do:c=peek(0)-48:if c^.5=1?chr$(i*25/8+j+90-59*!i);:j=-1
i=c:j=j+1loop