do
x=peek(0)
if(x<0)?a$
a$=chr$(x)+a$loop