do
p=peek(0)
if p<0break
b$=b$+chr$(p)loop
c=len(b$)
d=80
if c=62d=20
if c=89d=68
mid$(b$,d)="1"
?b$