input""n:for i=1to n-1for j=1to n-1for k=-2to 0m=mod(i*j*n^k,n):?chr$(m+55-7*(m<10)-16*!m+!k);next:next:?next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page