do:c=peek(0):if c<0?c$
c$=chr$(c)+c$loop