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

    Source: geocities.com/renwand