prgmCHASESTR
(account deleted) 05 May 2017 15:24
Here is the code: (I AM NOT THEL)
PROGRAM:CHASESTR
0→P:0→L
If R=0
100→R
Clear Entries
ClrHome
1→X:8→Y
randInt(1,8→B
randInt(1,16→A
Output(1,1,"You have 60 sec.
Output(2,1,"Get all 20
Output(3,1,"of the stars.
Pause
For(I,1,25
Outpit(8,1,"Go!
End
ClrHome
startTmr→T
0→L:0→P
Lbl 0
Repeat K
getKey→K
If K=45:Then
0→P
8→Y
1→X
randInt(1,8→B
randInr(1,16→A
ClrHome
startTmr→T
Goto 0
End
Output(Y,X,"_
Output(B,A,"_
If K=25
Y-1→Y
If K=26
X+1→X
If k=24
X-1→X
If X>16
1→X
If X<1
16→X
If Y>8
1→Y
If Y<1
8→Y
Output(1,1,checkTmr(T
Ans→S
Output(Y,X,"+
Output(B,A,"*
If X=A and Y=B:Then
randInt(1,8→B
randInt(1,16→A
L+5→L
P+1→P
End
If P=20 and S≤59
Goto YD
If P≥0 and S≥59
Goto LO
End
Goto 0
Lbl YD
ClrHome
Disp "You did it!
Stop
Lbl LO
ClrHome
Output(1,1,"Times up!
Output(2,1,"You did not make
Output(3,1,"it in 60 seconds
Output(4,1,"or less...
Output(5,1,"----RESULTS!----
Output(6,1,L
Output(6,4,"%
Output(7,1,"(
Output(7,2,P
Output(7,5,"out of 20)
Pause
ClrHomeTips:
1. Press CLEAR to restart
2. Collect all 20 stars in 60 seconds or less…
G O O D L U C K!!!!!!!!!!!!!