`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 ClrHome`

*Tips:*

1. Press CLEAR to restart

2. Collect all 20 stars in 60 seconds or less…

G O O D L U C K!!!!!!!!!!!!!

]]>