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