do
f=!f
?chr$(peek(0)*f);loop