do?chr$(c*!f);:if c=10f=!f
c=peek(c<0)loop