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