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