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