%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2354
File Name:BOXING
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"SAME GAME"
"1=YES 2=NO"?\->\r
R=1\=>\Goto5
\Int 50\Ran#+200\->A
\Int 5\Ran#+1\->B
\Int 5\Ran#+1\->C
\Int 2\Ran#\->D
0\->E
\Lbl 5
0\->F~Z
\ClrText
"     \asterFIGHT\aster"
"CASH  AIM SPE EXP"
" "
" "
\Locate 2,3,A
\Locate 8,3,B
\Locate 12,3,C
\Locate 16,3,D
1\->Y
"\->FIGHT"
" TRAIN"
\While Z\<>31
\Getkey\->Z
\If Z=28
\Then \Locate 1,6," "
\Locate 1,5,"\->"
1\->Y
\IfEnd
\If Z=37
\Then \Locate 1,5," "
\Locate 1,6,"\->"
0\->Y
\IfEnd
\WhileEnd
Y=1\=>\Goto1
\ClrText
" \->AIM(65)  SPEED(75)"
\Locate 3,3,"CASH AIM SPE EXP"
\Locate 4,4,A
\Locate 10,4,B
\Locate 14,4,C
\Locate 18,4,D
\Lbl 3
0\->F
0\->Z:\While Z\<>31
\Getkey\->Z
Z=47\=>\Goto5
\If Z=38
\Then \Locate 11,1," "
\Locate 2,1,"\->"
\IfEnd
\If Z=27
\Then \Locate 2,1," "
\Locate 11,1,"\->"
2.5\->H
\IfEnd
\WhileEnd
H=2.5\=>\Goto2
A-65\->F
F<0\=>\Goto3
F\->A
\ClrText
\Locate 9,5,"\(-)\(-)\(-)\(-)\(-)"
0\->F~Z
1\->I
\Lbl 4
\Locate 9,1,"\asterAIM\aster"
\Locate I,6," "
\Int 5\Ran#+9\->I
\Locate I,6,"^"
\Locate 9,4," "
\Locate 8,2,"READY...":0\->Z:\While Z<70
\Isz Z
\WhileEnd
\Locate 8,2," GO!    ":\Locate 9,4,"     "
0\->Z:\While Z\<>31
\Int 5\Ran#+9\->H
\Getkey=31\=>\Goto6
\Locate H,4,"X"
\For B\->M \To 37
\Getkey=31\=>\Goto6
\Next 
\Locate H,4," "
\WhileEnd
\Lbl 6
\Locate H,4,"X"
H=I\=>1\->J
H\<>I\=>2\->J
K\<>0\=>K+J\->K
K=0\=>J\->K
\Isz L
\Locate 1,1," "\DispL<4\=>\Goto4
\If K>6
\Then \ClrText
\Locate 9,4,"\asterFAIL\aster"\Disp\Goto5
\IfEnd
\ClrText
\Locate 7,4,"\asterPASS\aster"\Disp\Isz E
E=2\=>\Isz D
E=2\=>0\->E
\Isz B
\Goto5
\Lbl 2
A-75\->F
F<0\=>\Goto3
F\->A
0\->F~Z
\Lbl 0
\ClrText
\Locate 7,1,"\asterSPEED\aster"
\Int 99\Ran#+120\->H
0\->Z:0\->J
\Locate 8,4,"TIME="
\Locate 8,2,"READY...":\For 0\->I \To H
\Next 
\Locate 8,2,"GO!      ":\While Z\<>31
\Isz J
\Getkey\->Z
\WhileEnd
\If J=1
\Then \Locate 13,4,"X"
K+8\->K
\Goto0
\IfEnd
\Locate 13,4,J\Disp\Isz L
K+J\->K
L<4\=>\Goto0
87-C\->\theta
\If K>\theta
\Then \ClrText
\Locate 9,4,"\asterLOSE\aster"\Disp\Goto5
\IfEnd
\ClrText
\Locate 7,4,"\asterWIN\aster"\Disp\Isz E
E=2\=>\Isz D
E=2\=>0\->E
\Isz C
\Goto5
\Lbl 1
A<0\=>\Stop
0\->F~Z
\ClrText
\Locate 8,1,"READY..."
\Locate 2,2,"A S E  H \aster H  A S E"
10+D\->F
\Locate 2,3,B
\Locate 4,3,C
\Locate 6,3,D
\Locate 9,3,F
\Int 9\Ran#+1\->G
\Int 12\Ran#+1\->\theta
\Int 12\Ran#+1\->I
\theta-B>4\=>B+4\->\theta
\theta*.7\->H
\Int H\->H
H=0\=>1\->H
I-C>4\=>C+4\->I
G-D>5\=>D+5\->G
G+10\->J
\Locate 13,3,J
\Locate 16,3,\theta
\Locate 18,3,I
\Locate 20,3,G
\Locate 10,4,"#+#"
\Locate 10,6,"#+#"
0\->O:\While O\<>31
\Getkey\->O
\WhileEnd
C+10\->K
0\->\r
\While \r<B
\Isz \r
\WhileEnd
\r-1\->\r
1\ab/c6*\r+1\->M
0\->\r
\While \r<H
\Isz \r
\WhileEnd
\r-1\->\r
1\ab/c6*\r+1\->N
\Locate 8,1,"\asterFIGHT\aster ":\Lbl 9
0\->S:\While S<K
\Isz S
\Getkey\->Q
\If Q=68\ Or Q=58
\Then C-I\->L
Q=68\=>10\->P
Q=58\=>12\->P
L\<=\(-)9\=>\(-)8\->L
L\>=9\=>8\->L
\Int 18\Ran#-9\->R
\If L\>=R
\Then \Locate P,5,"1"
\Locate P,4,"0"
0\->O:\While O<24
\Isz O
\WhileEnd
K\->S
J-M\->J
J\<=9\=>\Locate 14,3," "
\Locate 13,3,\Int J
\Locate P,4,"#"
\Locate P,5," "
J\<=0\=>\Goto8
\Else \Locate P,5,"0"
\Locate P,4,"X"
0\->O:\While O<25
\Isz O
\WhileEnd
K\->S
\Locate P,4,"#"
\Locate P,5," "
\IfEnd
\IfEnd
\WhileEnd
0\->Y
\Int 2\Ran#\->V
V=1\=>10\->V
V=0\=>12\->V
\Locate V,5,"X"
12\->U:0\->W
\While W=0\ And U>I
\Dsz U
\Getkey\->W
\WhileEnd
V=10\=>W=67\=>1\->Y
V=12\=>W=57\=>1\->Y
\If Y=0
\Then \Locate V,5,"1"
\Locate V,6,"X"
0\->X:\While X<25
\Isz X
\WhileEnd
F-N\->F
F\<=9\=>\Locate 10,3," "
\Locate 9,3,\Int F
\Locate V,6,"#"
\Locate V,5," "
F\<=0\=>\Goto8
\Else \Locate V,5,"X"
\Locate V,6,"0"
0\->X:\While X<30
\Isz X
\WhileEnd
\Locate V,6,"#"
\Locate V,5," "
\IfEnd
\Goto9
\Lbl 8
\If F\<=0
\Then \Locate 11,6,"   "
\Locate 11,4,"   "
\Locate 10,4,"# ## 0-#"
\Locate 10,5,"+  #####*"
\Locate 10,6,"# ## 0-#"\Disp\ClrText
\Locate 3,4,"MEDICAL BILLS="
\Int 22\Ran#+(G*J+C+B)\->T
\Int T\->T
A-T\->A
\Locate 17,4,T\Disp\If A<0
\Then \ClrText
"\asterYOU LOSE\aster"
\Stop
\IfEnd
\Isz D
\Goto5
\IfEnd
\Locate 5,4,"#-X ## #"
\Locate 4,5,"*#####  +"
\Locate 5,6,"#-X ## #"\Disp\ClrText
\Locate 4,4,"PRIZE MONEY="
\Int 75\Ran#+(B*F+G+\theta+I)\->T
\Int T\->T
\Locate 16,4,T\DispA+T\->A
\Isz D
\Goto5

%End