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