prgmSCAVENGR
(account deleted) 09 May 2017 19:24
Here is the code: (NOTE: THE PROGRAM SHOULD BE SLOW, BECAUSE A HUMAN BEING IS NOT THAT FAST,)
PROGRAM:SCAVENGR
0→Xmin:94→Xmax:0→Ymin:62→Ymax
1→X:1→Y
randInt(0,46→A
randInt(0,46→B
500→C
For(I,94,49,-1
Vertical I
End
For(J,62,48,-1
Horizontal J
End
startTmr→T
Lbl 0
Repeat K
getKey→K
If C≤99
Text(7,0,"Low
Text(0,0,C,"_ _ _ //"_" = 1 space
Pt-On(A,B,2
Pt-Off(X,Y,2
If K=25
Y+1→Y
If K=26
X+1→X
If K=34
Y-1→Y
If K=45 or K=21
Goto LC
Pt-On(X,Y,2
Pt-On(X,Y
If X>46
0→X
If Y>46
0→Y
C-1→C
End
Pt-Off(X,Y,2
Pt-Off(X,Y
If X=A and Y=B:Then
randInt(0,46→A
randInt(0,46→B
Pt-Off(A,B,2
C+25→C
P+1→P
End
CheckTmr(T→S
If C≥100
Text(7,0,"_ _ _ _ _ _THIS IS UNFINISHED!!!
