do
a=peek(0)
?chr$(a);
if mod(a,4)=3?
loop