STEPS.bas .bas Sketcher Q <ý$–<ý[< TEXTSmBa `@M d@M H SŽ Main ´ n Oô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