Ejection simplified by pooq

input""a$
b=len(a$)
?a$
for i=3to b
line input""c$
for j=2to b-1e$=mid$(c$,j,1)
if" "<e$c$=c$+e$
mid$(c$,j)=" "next
?c$next
?a$

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

download

return to the top page