STEPS.bas.bass.basd_PARCDA).C~dAl`TEXTSmBaH@M @M `lnch1.0STEPS.basH 6YETFX5P M劥 x= 5 X rayHTl : H" UPUU R< SMain nOQ\T POTEyTFOF' STEPS.bas IF EXIST("steps")=1 GOTO 2 FI OPEN "steps" FOR OUTPUT AS #1 DIM a(1 TO 50) FOR n=1 TO 50 ? CAT(87); "Enter step ";n INPUT a(n) ? #1,a(n) IF a(n) = 0 GOTO 1 FI NEXT 1 CLOSE #1 ? "Steps are entered" DELAY 1000 END 2 DIM a(1 TO 50) OPEN "steps" FOR INPUT AS #2 FOR n = 1 TO 50 INPUT #2, a(n) NEXT n=1 AT 5,269 ? CAT(87);"DATE TO END" REPEAT k=INKEY IF ASC(RIGHT(k,1))=4 DELAY 300 n=n-.5 ELIF ASC(RIGHT(k,1))=5 DELAY 300 n=n+.5 ELIF a(n)=0 n=n-1 FI IF n=.5 n=1 FI AT 0,0 ? n;") ";a(n);" << " UNTIL ASC(RIGHT(k,1))=3 DELAY 100 CLOSE #2 END100 END=0 n=1 FI AT 0,0 ? n;") ";a(n);" << " UNTIL ASC(RIGHT(k,1))=4 CLOSE #2 PEN OFF END0 n=n-1 FI IF n=0 n=1 FI AT 0,0 ? n;") ";a(n);" << " UNTIL ASC(RIGHT(k,1))=4 CLOSE #2 PEN OFF ENDCLOSE #2 PEN OFF END