STEPS.bas.basSketcher Q<ý$–<ý[<TEXTSmBa`@M d@M HSŽMain´ nOôQ\T„ P´OôTÆEyòT˜F‘ÞOôF‘¦' STEPS.bas IF EXIST("steps")=1 GOTO 2 FI OPEN "steps" FOR OUTPUT AS #1 DIM a(50) FOR n=0 TO 50 ? CAT(87); INPUT "Enter step ";a(n) CLS IF a(n) = 0 GOTO 1 FI NEXT ? a 1 ? #1,a CLOSE #1 END 2 DIM a(50) OPEN "steps" FOR INPUT AS #2 FOR n=1 TO 50 INPUT #2, a(n) NEXT PEN ON n=1 RECT 5,125,35,155 RECT 45,125,95,155 RECT 105,125,155,155 AT 11,133 ? CAT(87);"END" AT 50,133 ? "<>" REPEAT IF PEN(1)>45 AND PEN(1)<95 AND PEN(2)>120 AND PEN(3)=1 DELAY 300 n=n-1 ELIF PEN(1)>105 AND PEN(2)>120 AND PEN(3)=1 DELAY 300 n=n+1 ELIF n=0 n=1 ELIF a(n)=0 n=n-1 FI AT 0,0 ? n;") ";a(n);" << " UNTIL PEN(1)<35 AND PEN(2)>120 AND PEN(3)=1 CLOSE #2 PEN OFF END