%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:683
File Name:DROPZONE
Group Name:
Password:
Option1:
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 3,3,"DROPZONE V 1.2"
\Locate 3,4,"FOR CASIO CFX"
\Locate 3,5,"BY OS-98"
\Locate 3,6,"START.AT\slashCASIOS"\Disp20\->D
0\->P
0\->Y
3\->V
\Lbl B
\ViewWindow 1,127,0,1,63,0
64\->A
54\->B
0\->U
\For 1\->U \To 63
A-1\->A
\If A<60
\Then \Int 4\Ran#\->C
C=0\=>B-1\->B
C=1\=>B+1\->B
C=2\=>B-2\->B
C=3\=>B+2\->B
B<0\=>B+3\->B
B>127\=>B-3\->B
\IfEnd
\F-Line 1,A,B,A
\F-Line B+D,A,127,A
\Next 
\If Y=1
\Then \Text 2,2,"NEXT LEVEL"
0\->Y
\IfEnd
\Int ((54+D/2)/2)*2\->G
0\->H
1\->J
\Lbl C
\Int 32\Ran#*2+18\->K
\Int 63\Ran#+1\->L
\PxlTest L,K
\Ans=1\=>\GotoC
\Green \PxlOn L,K
V=3\=>\Text 19,2,"\=>\=>\=>"
V=2\=>\Text 19,2,"\=>\=>"
V=1\=>\Text 19,2,"\=>"
\Lbl A
G\->I
H\<>0\=>H\->J
\Getkey=27\=>G+2\->G
\Getkey=38\=>G-2\->G
H+1\->H
H\>=64\=>\GotoR
\If G\<>K\ Or H\<>L
\Then \PxlTest H,G
\Ans=1\=>\GotoX
\IfEnd
\If G=K\ And H=L
\Then P+1\->P
\Text 12,2,"+1P"
\IfEnd
\PxlOn H,G
\PxlOff J,I
\GotoA
\Lbl X
\ClrText
V-1\->V
\If V=0
\Then \Locate 3,3,"GAME OVER"
\Locate 3,4,"POINTS:"
\Locate 11,4,P
\Locate 3,6,"DROPZONE"
\Stop
\IfEnd
\GotoB
\Lbl R
P+1\->P
D-1\->D
\If D=7
\Then 1\->Y
P+10\->P
20\->D
\IfEnd
\GotoB
%End