dim a(99):m=10:for i=0to 50k=m:m=-m for j=0to 99k=a(j)*i+int(k/10):a(j)=mod(k,10):if k n=j next:for j=-n to 0?a(-j),"";next:?next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page