%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:3025
File Name:RACING 3
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"SAVED GAME"
"1=Y 2=NO"?\->B
B=1\=>\Goto3
1000\->A:0\->K~T:1\->U
325\->V:4\->C~F:2\->W~X
60\->\r
\Lbl 3
\ClrText
4\->B
"     \asterRACING 3\aster"
"MONEY:"
" "
"\->STORE"
" RACE"
\Locate 7,2,A
\While \Getkey\<>31
\If \Getkey=28
\Then \Locate 1,B," "
4\->B
\Locate 1,B,"\->"
\IfEnd
\If \Getkey=37
\Then \Locate 1,B," "
5\->B
\Locate 1,B,"\->"
\IfEnd
\WhileEnd
\ClrText
B=4\=>\Goto0
B=5\=>\Goto5
\Lbl 0
\ClrText
" \asterBOB,S AUTO PARTS\aster"
" "
"  ENGINES"
"\->X2 X3 X4 X5 X6"
" "
"  TIRES"
" Z2 Z3 Z4 Z5 Z6"
4\->G:1\->B
\While \Getkey\<>31
\Getkey=47\=>\Goto3
\If \Getkey=28
\Then \Locate B,G," "
4\->G:\Locate B,G,"\->"
\IfEnd
\If \Getkey=37
\Then \Locate B,G," "
7\->G:\Locate B,G,"\->"
\IfEnd
\If \Getkey=38\ And B>1
\Then \Locate B,G," "
B-3\->B:\Locate B,G,"\->"
\IfEnd
\If \Getkey=27\ And B<12:\Then \Locate B,G," "
B+3\->B:\Locate B,G,"\->"
\IfEnd
\WhileEnd
\ClrText
(B+2)/3\->B
\Isz B
\If B=2
\Then 6\->J:4\->H:1000\->I
G=7\=>500\->I
\IfEnd
\If B=3
\Then 4\->J:6\->H:1700\->I
G=7\=>550\->I
\IfEnd
\If B=4
\Then 8\->J:4\->H:3000\->I
G=7\=>700\->I
\IfEnd
\If B=5
\Then 4\->J:8\->H:4500\->I
G=7\=>1000\->I
\IfEnd
\If B=6
\Then 7\->J:7\->H:7000\->I
G=7\=>2000\->I
\IfEnd
\If G=4
\Then "    ENGINE X"
\Locate 13,1,B
" "
"MONEY:"
"BUY? \->Y N"
"ACCEL:"
"SPEED:"
"PRICE:"
\Locate 7,5,J
\Locate 7,6,H
\Locate 7,7,I
\Locate 7,3,A
\Else "    TIRE Z"
\Locate 11,1,B
" "
"MONEY:"
"BUY? \->Y N"
"CONTROL:"
"SPEED:"
"PRICE:"
\Locate 9,5,J
\Locate 7,6,H
\Locate 7,7,I
\Locate 7,3,A
\IfEnd
6\->J
\While \Getkey\<>31
\Getkey=47\=>\Goto0
\If \Getkey=38
\Then \Locate J,4," "
6\->J:\Locate J,4,"\->"
\IfEnd
\If \Getkey=27
\Then \Locate J,4," "
8\->J:\Locate J,4,"\->"
\IfEnd
\WhileEnd
\If J=6\ And A>I+V
\Then A-I\->A
\If G=4
\Then B=2\=>B\->K
B=3\=>K=2\=>B\->L
B=4\=>L=3\=>B\->M
B=5\=>M=4\=>B\->N
B=6\=>N=5\=>B\->O
\Goto0
\Else B=2\=>B\->P
B=3\=>P=2\=>B\->Q
B=4\=>Q=3\=>B\->R
B=5\=>R=4\=>B\->S
B=6\=>S=5\=>B\->T
\Goto0
\IfEnd
\IfEnd
\Goto0
\Lbl 1
\ClrText
4\->C~F:1\->W~X
"     \asterSETUP\aster"
"\->ENGINE:X1  TIRES:Z1"
" ACL:4       CNTRL:4"
" SPD:4       SPD:4"
" "
"MONEY:"
\Locate 7,6,A
1\->B
\While \Getkey\<>31
\If \Getkey=38
\Then \Locate B,2," "
1\->B:\Locate B,2,"\->"
\IfEnd
\If \Getkey=27
\Then \Locate B,2," "
12\->B:\Locate B,2,"\->"
\IfEnd
\If \Getkey=28
\Then \If B=1
\Then \For W\->G \To 6
W=G\=>\Isz G
G\>=7\=>\Goto4
\If G=2
\Then 2\->W:6\->C:4\->D
\Goto4
\IfEnd
\If G=L
\Then 3\->W:4\->C:6\->D
\Goto4
\IfEnd
\If G=M
\Then 4\->W:8\->C:4\->D
\Goto4
\IfEnd
\If G=N
\Then 5\->W:4\->C:8\->D
\Goto4
\IfEnd
\If G=O
\Then 6\->W:7\->C~D
\Goto4
\IfEnd
\Next 
\Else \For X\->G \To 6
X=G\=>\Isz G
G\>=7\=>\Goto4
\If G=2
\Then 2\->X:6\->E:4\->F
\Goto4
\IfEnd
\If G=Q
\Then 3\->X:4\->E:6\->F
\Goto4
\IfEnd
\If G=R
\Then 4\->X:8\->E:4\->F
\Goto4
\IfEnd
\If G=S
\Then 5\->X:4\->E:8\->F
\Goto4
\IfEnd
\If G=T
\Then 6\->X:7\->E~F
\Goto4
\IfEnd
\Next 
\IfEnd
\IfEnd
\If \Getkey=37
\Then \If B=1
\Then W=1\=>\Goto4
\For W\->G \To 1 \Step \(-)1
W=G\=>\Dsz G
\If G=K
\Then 1\->W:4\->C:4\->D
\Goto4
\IfEnd
\If G=2
\Then 2\->W:6\->C:4\->D
\Goto4
\IfEnd
\If G=L
\Then 3\->W:4\->C:6\->D
\Goto4
\IfEnd
\If G=M
\Then 4\->W:8\->C:4\->D
\Goto4
\IfEnd
\If G=N
\Then 5\->W:4\->C:8\->D
\Goto4
\IfEnd
\Next 
\Else X=1\=>\Goto4
\For X\->G \To 1 \Step \(-)1
X=G\=>\Dsz G
\If G=P
\Then 1\->X:4\->E:4\->F
\Goto4
\IfEnd
\If G=2
\Then 2\->X:6\->E:4\->F
\Goto4
\IfEnd
\If G=Q
\Then 3\->X:4\->E:6\->F
\Goto4
\IfEnd
\If G=R
\Then 4\->X:8\->E:4\->F
\Goto4
\IfEnd
\If G=S
\Then 5\->X:4\->E:8\->F
\Goto4
\IfEnd
\Next 
\IfEnd
\IfEnd
\Lbl 4
\Locate 10,2,W
\Locate 20,2,X
\Locate 6,3,C
\Locate 6,4,D
\Locate 20,3,E
\Locate 18,4,F
\WhileEnd
\Goto2
\Lbl 5
"      \asterTRACK\aster"
" "
"LEVEL:"
"ENTRY FEE:"
"TURNS:"
"STRAIGHTS:"
\Locate 7,3,U
\Locate 11,4,V
\Int 8\Ran#+14\->Y
\Int 8\Ran#+14\->Z
\Locate 7,5,Y
\Locate 11,6,Z\DispV>A\=>\Stop
\Goto1
\Lbl 2
"      \asterRACE\aster"
" "
"U+"
"1+"
"2+"
"3+"
"4+"
\For 3\->B \To 7
\Locate 21,B,"I"
\Next 
Y*3-C*3-E*3\->B
Z*3-D*4-F*2\->G
B+G\->B
B<0\=>\(-)B\->B
B*1.5\->B
\Int B\->B
200-B\->B
\Int 20\Ran#+\Int \r\->G
\Int 20\Ran#+\Int \r\->H
\Int 20\Ran#+\Int \r\->I
\Int 20\Ran#+\Int \r\->J
2\->C~F:2\->X:5\->Z
\While C<21
\Int 200\Ran#+1\->\theta
\If B\>=\theta
\Then \Isz C
\Locate C,3,"+"
C=21\=>\Break
\IfEnd
\Int 200\Ran#+1\->\theta
\If G>\theta\ And D<21
\Then \Isz D
\Locate D,4,"+"
D=21\=>\Dsz Z
\IfEnd
\Int 200\Ran#+1\->\theta
\If H>\theta\ And E<21
\Then \Isz E
\Locate E,5,"+"
E=21\=>\Dsz Z
\IfEnd
\Int 200\Ran#+1\->\theta
\If I>\theta\ And F<21
\Then \Isz F
\Locate F,6,"+"
F=21\=>\Dsz Z
\IfEnd
\Int 200\Ran#+1\->\theta
\If J>\theta\ And X<21
\Then \Isz X
\Locate X,7,"+"
X=21\=>\Dsz Z
\IfEnd
\WhileEnd
Z=5\=>V*3+A\->A
Z=4\=>V*2+A\->A
Z=3\=>V+A\->A
Z=2\=>A+50\->A
Z=1\=>A-V-20\->A
A<0\=>\Stop
\Isz U
\r+8\->\r
V+50\->V
\ClrText
"    YOU WERE"
\Locate 14,1,6-Z
Z=5\=>\Locate 15,1,"ST"
Z=4\=>\Locate 15,1,"ND"
Z=3\=>\Locate 15,1,"RD"
Z\<=2\=>\Locate 15,1,"TH"
" "
"MONEY:"
"LEVEL:"
"HIGHLEVEL="
\Locate 7,3,A
\Locate 7,4,U
(\Det \Mat O)\->B
\Locate 11,5,B\Disp\If U>B
\Then [[U]]\->\Mat O
\Locate 11,5,U
\Locate 5,7,"NEW HIGHLEVEL!"\Disp\IfEnd
\Goto3
%End