**Everything in CAPITALS and between " marks is entered by the user.
**Anything that has lower-case letters is a key word and are found in the following menus:

*ClrDraw,Horizontal, Vertical, Pt-Off(, Pt-On(, pxl-Test(,Text(,Line( are all
 found in the DRAW menu
*Xmin,Xmax,Ymin,Ymax are found in the VARS-Window menu
UnArchive and Archive are found in the MEM menu
*The small L is found in the LIST menu as well as max(, DO NOT USE THE max(
IN THE MATH menu!!!
*The <,>,<=,>=,and,or functions asr found in the TEST menu
*Everything else is found in the Program menu
*If you can't find a key word check the CATALOG menu

***<> is really the 'not equal to' symbol found in the TEST menu.


****BEFORE STARTING THE GAME YOU MUST ENTER THIS AT THE HOME SCREEN:*****
***{0}->LDROP (the L is the small L found in the LIST menu)***

----> ACTUAL PROGRAM STARTS HERE <----

AxesOff
FnOff
ClrDraw
0->Xmin: 94->Xmax
0->Ymin: 62->Ymax
UnArchive LDrop
Horizontal 0
Horizontal 62
Vertical 94
Vertical 0
Text(1,39,DROP!)
Horizontal 54
Text(55,2,HIGH:,max(LDrop))
Text(20,32,2ND-START)
Text(27,32,MODE-EXIT)
Text(34,32,DFFCLTY <1>)
1->G:0->K:1->Q
25(G^2-G+10)->U
While K<>21
getkey->K
If K=24 or K=26
G+K-25->G
If G<1
1->G
If G>3
3->G
If K=22
Then
ClrDraw
ClrHome
Stop
End
Text(34,62,G)
End
ClrDraw
Horizontal 39
Horizontal 35
For(A,3,91,8)
Line(A,39,A,35)
Pt-On(A,0,2)
Pt-On(A,0)
End
0->S:0->C:1->L
0->M
(G-4)(G-5)->V
Text(0,0,SCORE:,S)
Text(7,0,PLANT:,V)
Text(0,55,LEVEL:,L)
47->X:20->P
randInt(0,11)8+3->E
Pt-On(X,41,3)
Pt-On(E,4,2
Text(52,E-1,V)
Lbl A
While 1
getkey->K
C=1->C
If C=P
Goto E
If K=24 or K=26
Then
Pt-Off(X,41,3)
X+(K-25)8->X
Pt-On(X,41,3)
End
If K=22
Then
0->V
0->Q
Goto G
End
If  K=34
Goto D
End
Lbl D
X-4->A
Line(A+1,39,A+7,39,0)
Line(A+1,35,A+7,35,0)
Line(A+1,35,A+7,35,0)
31->B
While B>9
Line(A,B,A,B-4,0)
Line(A,B,A+8,B,0)
Line(A+8,B,A+8,B-4,0)
Line(A,B-4,A+8,B-4,0)
B-6->B
Line(A,B,A,B-4)
Line(A,B,A+8,B)
Line(A+8,B,A+8,B-4)
Line(A,B-4,A+8,B-4)
If B<=15 and abs(W-E) =4
Goto 7
End
Goto 8
Lbl 7
1->M
Lbl 8
Line(A,39,A+8,39)
Line(A,35,A+8,35)
Line(A,B,A,B-4,0)
Line(A,B,A+8,B,0)
Line(A+8,B,A+8,B-4,0)
Line(A,B-4,A+8,B-4,0)
If M=1
Goto E
If pxl-Test(61,X-4)=1
Then
Pt-Off(X-4,1)
Pt-Off(X-4,1,2)
V-1->V
End
If pxl-Test(61,X+4)=1
Then
Pt-Off(X+4,1)
Pt-Off(X+4,1,2)
V-1->V
End
If V<0
0->V
Text(7,22,7 spaces)
Text(7,22,V)
If V=0
Goto G
Goto A
Lbl E
If M=0 and pxl-Text(61,E)=1
Then
V-1->V
Pt-Off(E,0,2)
Pt-Off(E,0)
Text(7,22,7 spaces)
Text(7,22,V)
End
Pt-Off(E,8,2)
Pt-Off(E,6,2)
Pt-Off(E,6)
Pt-Off(E,4,2)
E->B
Lbl 13
randInt(0,11)8+3->E
If  E=B
Goto 13
Pt-On(E,4,2)
Text(52,E-1,V)
0->C
If M=1
Goto S
If V=0
Goto G
Goto A
Lbl S
S+25(G+1)->S
Text(0,22,S)
If S/U=int(S/U)and S>0
Then
L+1->L
Text(0,77,L)
P-3->P
End
If L=7
Goto W
Goto A
Lbl G
Text(22,30, GAME OVER )
Lbl W
If L=7
Text(22,30,  YOU WIN!  )
While getkey<>21
End
ClrHome
Disp SCORE:
Output(1,12,S)
Disp BONUS:
100V+125(-(G^2)+7G-6)->B
Output(2,12,B)
S+QB->S
Disp TOTAL:
Output(4,12,S)
While getkey<>21
End
If S>max(LDROP)
Then
{S}-> LDROP
ClrHome
Output(4,2,NEW HIGHSCORE!)
While getkey<>21
End
End
Menu(PLAY AGAIN?,YES, AG,NO,EX)
Lbl EX
ClrHome
Archive LDROP
Stop
Lbl AG
prgrmDROP








