Transpose by pooq

do
c=peek(0)
if c<0b=len(a$)+1:for i=1to b:for j=0to 4?mid$(z$,b*j+i,1);next:?next:end
line input""a$
z$=z$+chr$(c)+a$loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page