do
b$=chr$(peek(0))
?b$+b$;loop