input""s$:k=1-len(s$):for i=k to 0for j=1to-k-i+!i?mid$(s$,j,!i/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