do if a<11<>a>c?chr$(a);:c=a
a=peek(0)loop