do
c$=chr$(peek(0))
?c$,c$;loop