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