%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2748
File Name:CHASE 2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 7
\ClrText
"SAVED GAME?"
"(1=Y,0=NO)"
?\->\r
\r=0\=>\Goto8
\If G=0
\Then \ClrText
"YOU CHEATING BASTARD!"\Disp0\->\r
\IfEnd
\Lbl 8
\ClrText
5\->Y
\Locate 2,7,"123456789"
\For 2\->Z \To 6
\Locate 1,Z,Y
\Dsz Y
\Next 
\For 1\->Y \To 7
\Locate 11,Y,"#"
\Next 
"###########"
\Locate 13,3,"HP=  \slash":\Locate 13,5,"GUNS="
\Locate 13,7,"POINTS=":\r=1\=>\Goto4
10\->G~H:5\->I:20\->J:\(-)1\->W
\Lbl 6
4\->C:3\->D~F:8\->E
\Lbl 4
\Locate 6,6,"^"
C>0\=>D>0\=>\Locate C,D,"\aster"
E>0\=>F>0\=>\Locate E,F,"\aster"
\Locate 16,3,G
\Locate 19,3,H
\Locate 18,5,I
\Locate 20,7,J
\Locate 14,1,"READY "
0\->K:\While K<65
\Isz K
\WhileEnd
\r=1\=>\Goto5
W+1\->W
\Int 18\Ran#+W+4\->L
\Int 18\Ran#+W+4\->N
\Int 5\Ran#+W\->M
\Int 5\Ran#+W\->O
0\->R:0\->X
\Locate 14,1,"FIGHT!"
\Lbl 5
\While G>0
0\->\r
\If \Getkey=31
\Then \Locate 1,7," "
C>0\=>\Locate C,D," "
E>0\=>\Locate E,F," "
\While \Getkey\<>78
\Locate 3,3,"PAUSED"
\WhileEnd
\Locate 3,3,"      "
C>0\=>\Locate C,D,"\aster"
E>0\=>\Locate E,F,"\aster"
\IfEnd
\If N>0
\Then \Int 4\Ran#\->A
\If A=0\ And F>2
\Then \Locate E,F," "
\Dsz F
\Locate E,F,"\aster"
\IfEnd
\If A=1\ And F<6
\Then \Locate E,F," "
\Isz F
\Locate E,F,"\aster"
\IfEnd
\If A=2\ And E>2
\Then \Locate E,F," "
\Dsz E
\Locate E,F,"\aster"
\IfEnd
\If A=3\ And E\<=9
\Then \Locate E,F," "
\Isz E
\Locate E,F,"\aster"
\IfEnd
\If E=6\ And F=6
\Then G-N\->G:J+N\->J:0\->N
\Locate 16,3,G
G\<=9\=>\Locate 17,3," "
\Locate 20,7,J
\Locate 6,6,"^"
\IfEnd
\IfEnd
\If L>0
\Then \Int 4\Ran#\->B
\If B=0\ And C>2
\Then \Locate C,D," "
\Dsz C
\Locate C,D,"\aster"
\IfEnd
\If B=1\ And C\<=9
\Then \Locate C,D," "
\Isz C
\Locate C,D,"\aster"
\IfEnd
\If B=2\ And D>2
\Then \Locate C,D," "
\Dsz D
\Locate C,D,"\aster"
\IfEnd
\If B=3\ And D<6
\Then \Locate C,D," "
\Isz D
\Locate C,D,"\aster"
\IfEnd
\If C=6\ And D=6
\Then G-L\->G:J+L\->J:0\->L
\Locate 16,3,G
G\<=9\=>\Locate 17,3," "
\Locate 20,7,J
\Locate 6,6,"^"
\IfEnd
\IfEnd
\If L>0
\Then \Int 6\Ran#\->A
\Isz R:A-R\->A
A<0\=>0\->A
\Int 2\Ran#\->B
B=0\=>\(-)A\->A
\Int 6\Ran#\->S
S-R\->S
S<0\=>0\->S
\Int 2\Ran#\->B
B=0\=>\(-)S\->S
6+A\->A:6+S\->S
S>6\=>5\->S
\Locate A,S,"+"
\If A=6\ And S=6
\Then G-M\->G
\Locate 16,3,G
G\<=9\=>\Locate 17,3," "
0\->R
G<1\=>\Goto1
\IfEnd
\Locate A,S," "
\Locate 6,6,"^"
\IfEnd
\If N>0
\Then \Int 6\Ran#\->U
\Isz X:U-X\->U
U<0\=>0\->U
\Int 2\Ran#\->B
B=0\=>\(-)U\->U
\Int 6\Ran#\->V
V-X\->V
V<0\=>0\->V
\Int 2\Ran#\->B
B=0\=>\(-)U\->U
6+U\->U:6+V\->V
V>6\=>5\->V
\Locate U,V,"+"
\If U=6\ And V=6
\Then G-O\->G
\Locate 16,3,G
G\<=9\=>\Locate 17,3," "
0\->X
G<1\=>\Goto1
\IfEnd
\Locate U,V," "
\Locate 6,6,"^"
\IfEnd
\Locate 14,1,"  X=  "
0\->K:0\->P
\While K<40\ And P=0
\Getkey\->P
\Isz K
\WhileEnd
0\->K:\While K<12
\Locate 16,1,"  "
\Isz K
\WhileEnd
\Locate 16,1,"Y="
0\->K:0\->Q
\While K<40\ And Q=0
\Getkey\->Q
\Isz K
\WhileEnd
P=72\=>2\->P
P=62\=>3\->P
P=52\=>4\->P
P=73\=>5\->P
P=63\=>6\->P
P=53\=>7\->P
P=74\=>8\->P
P=64\=>9\->P
P=54\=>10\->P
P>10\ Or P=0\=>\Goto0
Q=72\=>6\->Q
Q=62\=>5\->Q
Q=52\=>4\->Q
Q=73\=>3\->Q
Q=63\=>2\->Q
Q>6\ Or Q=0\=>\Goto0
\Locate P,Q,"*"
\If P=C\ And Q=D
\Then L-I\->L
J+I\->J:0\->R
\Locate 20,7,J
\If L<1
\Then 0\->C~D
N<1\=>\Goto1
\IfEnd
\IfEnd
\If P=E\ And Q=F
\Then N-I\->N
J+I\->J:0\->X
\Locate 20,7,J
\If N<1
\Then 0\->E~F
L<1\=>\Goto1
\IfEnd
\IfEnd
\Locate P,Q," "
\Lbl 0
\WhileEnd
\Lbl 1
\For 2\->Z \To 6
\Locate 2,Z,"#########":\Next 
G>0\=>\Locate 3,4,"YOU WIN"
G<1\=>\Locate 3,4,"YOU LOSE"
\For 6\->Z \To 2 \Step \(-)1
\Locate 2,Z,"         ":\Next 
\Locate 18,3,"\slash"
\Locate 6,6,"^"
\Locate 14,1,"REPAIR"
G<0\=>0\->G
\Isz W
\Locate 16,3,G
G\<=9\=>\Locate 17,3," "
3\->Y:16\->Z
\Locate 12,Y,"\->"
\Locate Z,2,"4"
\While \Getkey\<>31
\If \Getkey=28
\Then 16\->Z
\Locate 18,4," "
\Locate 12,Y," "
3\->Y
\Locate 12,Y,"\->"
Z=16\=>\Locate Z,2,"4"
\IfEnd
\If \Getkey=38\ And Y=3
\Then \Locate 19,2," "
16\->Z:\Locate Z,2,"4"
\IfEnd
\If \Getkey=27\ And Y=3
\Then \Locate 16,2," "
19\->Z:\Locate Z,2,"6"
\IfEnd
\If \Getkey=37
\Then \Locate 16,2," "
\Locate 19,2," "
\Locate 12,Y," "
5\->Y:\Locate 12,Y,"\->"
18\->Z
\Locate Z,4,"5"
\IfEnd
\If \Getkey=78
\Then \Locate 5,5," "
\If Z=16\ And J\>=4\ And G<H
\Then \Locate 5,5," "
\If G=0
\Then J<18\=>\Goto2
J-14\->J
G+2\->G
\IfEnd
J-4\->J:\Isz G
\Locate 16,3,G
\IfEnd
\If Z=18\ And J\>=5
\Then J-5\->J:\Isz I
\Locate 18,5,I
\IfEnd
\If Z=19\ And J\>=6\ And H=G
\Then J-6\->J:\Isz H
\Locate 19,3,H
\IfEnd
\Locate 20,7,J
J\<=9\=>\Locate 21,7," "
\IfEnd
\WhileEnd
\Locate 12,Y," "
\Locate Z,2," "
\Locate Z,4," "
G=0\=>\Goto2
\Goto6
\Lbl 2
\ClrText
"GAME OVER"
"SCORE="
"HIGHSCORE="
((H/6)*(I/5)+J)*100\->A:\Int A\->A
\Locate 7,2,A
\Det \Mat W\->B
\Locate 11,3,B\Disp\If A>B
\Then \Locate 4,5,"NEW HIGHSCORE!"
[[A]]\->\Mat W
\Locate 11,3,B\Disp\IfEnd
\Goto7
%End