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