Number in number by pooq

dim a(4)
do
input""n
n=n+0^n
for j=1to 4a(j)=mod(n,100)
n=int(n/100)next
?a(3),a(1),a(4),a(2)loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page