integer p,n,b
integer,dimension(99)::a
1 read*,n,b
p=1
do
if(n<b) then
exit
endif
a(p)=mod(n,b)
p=p+1
n=n/b
enddo
if(n>0) then
a(p)=n
p=p+1
endif
p=p-1
do
if(p<1) then
exit
endif
write(*,"(i0)",advance='no')a(p)
p=p-1
enddo
print"(a)",""
goto 1
end
Note that non-ascii characters in the above source code will be escaped (such as \x9f).