do input""i$:k=val(i$):j=0^i$>"":n$="" 1j=j+1:n$=chr$(mod(k,j)+48)+n$:k=k/j:if!!k goto 1 ?n$loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page