%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1678
File Name:CHASE
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
Y=1\=>\GotoA
"DIFFICULTY"
"2=HARD 7=EASY"?\->J
J=1\=>\Stop
11-J\->V
0\->Y:1\->N
"BONUS"
"Y\ Or N"?\->S
\Pi\->Y
"SPEED MODE"
"Y\ Or N"?\->\theta
\ClrText
1\->M:3\->L:0\->U:4\->A~B:1\->C~D:6\->E~F
\Int 6\Ran#+1\->P
\Int 6\Ran#+1\->Q
\Lbl A
\Locate 1,7,"#######"
\For 1\->Z \To 6
\Locate 7,Z,"#"
\Next 
\Locate 11,2,"TIME="
\Locate 11,4,"LIVES="
\Locate 11,6,"BONUS="
\Locate 16,2,M
\Locate 17,4,L
\Locate 17,6,U
\Lbl 5
\Locate A,B,"~"
\Locate C,D,"\aster"
\Locate E,F,"\aster"
Y=1\=>\Goto7
\Lbl 8
0\->G:\While G=0
0\->Y:\Isz M
\theta\<>\Pi\=>\Locate 16,2,M
\If \Getkey=28\ And B>1
\Then \Locate A,B," "
\Dsz B
\Locate A,B,"~"
\IfEnd
\If \Getkey=37\ And B<6
\Then \Locate A,B," "
\Isz B
\Locate A,B,"~"
\IfEnd
\If \Getkey=27\ And A<6
\Then \Locate A,B," "
\Isz A
\Locate A,B,"~"
\IfEnd
\If \Getkey=38\ And A>1
\Then \Locate A,B," "
\Dsz A
\Locate A,B,"~"
\IfEnd
S=1\=>\Goto0
\If A=P\ And B=Q
\Then O+M\->M:U+O\->U
\Locate 17,6,U
\Locate 16,2,M
\Int 6\Ran#+1\->P
\Int 6\Ran#+1\->Q
\IfEnd
\Lbl 0
\Int J\Ran#+1\->H
\Int J\Ran#+1\->I
\If H=1\ And A<C
\Then \Locate C,D," "
\Dsz C
\Locate C,D,"\aster"
\Goto2
\IfEnd
\If H=1\ And A>C
\Then \Locate C,D," "
\Isz C
\Locate C,D,"\aster"
\Goto2
\IfEnd
\If H=2\ And B>D
\Then \Locate C,D," "
\Isz D
\Locate C,D,"\aster"
\IfEnd
\If H=2\ And B<D
\Then \Locate C,D," "
\Dsz D
\Locate C,D,"\aster"
\IfEnd
\Lbl 2
\If I=1\ And A>E
\Then \Locate E,F," "
\Isz E
\Locate E,F,"\aster"
\Goto3
\IfEnd
\If I=1\ And A<E
\Then \Locate E,F," "
\Dsz E
\Locate E,F,"\aster"
\Goto3
\IfEnd
\If I=2\ And B>F
\Then \Locate E,F," "
\Isz F
\Locate E,F,"\aster"
\IfEnd
\If I=2\ And B<F
\Then \Locate E,F," "
\Dsz F
\Locate E,F,"\aster"
\IfEnd
\Lbl 3
A=C\ And B=D\ Or A=E\ And B=F\=>\Goto4
\Getkey=31\=>\Goto7
S=1\=>\Goto8
\Int 9\Ran#+1\->O
\Int V\Ran#+1\->R
\If P<6\ And R=1
\Then \Locate P,Q," "
\Isz P
\Locate P,Q,O
\Goto9
\IfEnd
\If P>1\ And R=2
\Then \Locate P,Q," "
\Dsz P
\Locate P,Q,O
\Goto9
\IfEnd
\If Q>1\ And R=3
\Then \Locate P,Q," "
\Dsz Q
\Locate P,Q,O
\Goto9
\IfEnd
\If R=4\ And Q<6
\Then \Locate P,Q," "
\Isz Q
\Locate P,Q,O
\IfEnd
\Lbl 9
\If A=P\ And B=Q
\Then M+O\->M:U+O\->U
\Locate 17,6,U
\Locate 16,2,M
\Int 6\Ran#+1\->P
\Int 6\Ran#+1\->Q
\IfEnd
\WhileEnd
\Lbl 4
\Locate A,B,"\slash"
\For 6\->K \To 1 \Step \(-)1
\Locate K,1,"#"
\Locate K,2,"#"
\Locate K,3,"#"
\Locate K,4,"#"
\Locate K,5,"#"
\Locate K,6,"#"
\Next 
\For 1\->K \To 6
\Locate K,6," "
\Locate K,5," "
\Locate K,4," "
\Locate K,3," "
\Locate K,2," "
\Locate K,1," "
\Next 
L-1\->L
\Locate 17,4,L
\Locate 16,2,M
L<0\=>\Goto6
4\->A~B:1\->C~D:6\->E~F
\Goto5
\Lbl 6
\ClrText
"\asterGAME OVER\aster"
"SCORE="
"HIGHSCORE="
"BONUS="
(1000*M)/(J*20)\->M
\theta=\Pi\=>M*.50+M\->M
\Int M\->M
\Locate 7,2,M
\Locate 7,4,U
(\Det \Mat Z)\->\theta
\Locate 11,3,\theta\Disp\If M>\theta
\Then \Locate 4,6,"NEW HIGHSCORE!"\DispM\->\theta
[[\theta]]\->\Mat Z
\Locate 11,3,\theta
\IfEnd
\Stop
\Lbl 7
1\->Y
0\->W:\While W=0
\Locate 1,3,"PAUSED"
\If \Getkey=78
\Then \Locate 1,3,"      ":\Break
\IfEnd
\WhileEnd
0\->Y
\Goto8
%End