for n=-256to 256i=n:for _=0to 63k=and(i,1):?chr$(32+3*k);:i=i*k+i/2-k/2next:?"|"next
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page