line input""c$ do b=peek(0) n=n+1 if!b=10line input""a$:a$=chr$(b)+a$ if b=10a$="" if instr(" "+c$+" "," "+str$(n)+" ")?a$ ?a$loop
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page