%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1019
File Name:Indy 500
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 5
\ClrText
"+-+"
"I I"
"I I"
"I I"
"+-+"
\For 1\->K \To 70
\Next 
\Locate 1,2,"I+I READY"
\For 1\->K \To 70
\Next 
\Locate 1,3,"I+I SET"
\For 1\->K \To 70
\Next 
\Locate 1,4,"I+I HAUL ASS!"
\For 1\->K \To 80
\Next 
\Locate 10,4,"    "
\Lbl J
6\->C
5\->B
5\->A
1\->N
5\->R
7\->V
7\->K
7\->O
\While 1
N+1\->N
R+\Int (3\Ran#)-1\->R
\If R=2
\Then 3\->R
\IfEnd
\If R=9
\Then 8\->R
\IfEnd
" "
\If O-R=-7
\Then \GotoJ
\IfEnd
\If N\>=20
\Then L+1\->L
0\->N
O-1\->O
\IfEnd
\Locate R,7,"I"
\Locate R+O,7,"I"
\If \Getkey=73
\Then V-1\->V
\IfEnd
\If \Getkey=53
\Then V+1\->V
\IfEnd
\If \Getkey=64
\Then \Locate 8,1,"PAUSED"
\While \Getkey=\<>31
\Locate 8,1,"PAUSED"
\WhileEnd
\Locate 8,1,"      "
\IfEnd
\Locate K,3," "
\Locate V,4,"H"
V\->K
\If V\<=C\ Or V\>=C+O
\Then \GotoC
\IfEnd
C\->D
B\->C
A\->B
R\->A
\If N=0
\Then C+1\->C
\IfEnd
\WhileEnd
\Lbl C
0\->X
\While X\<=2
\Locate V-X,4-X,"*"
\Locate V+X,4+X,"*"
\Locate V-X,4+X,"*"
\Locate V+X,4-X,"*"
\Locate V,4+X,"*"
\Locate V,4-X,"*"
\Locate V+X,4,"*"
\Locate V-X,4,"*"
X+1\->X
\WhileEnd
0\->X
\While X\<=2
\Locate V-X,4-X," "
\Locate V-X,4+X," "
\Locate V+X,4-X," "
\Locate V,4+X," "
\Locate V,4-X," "
\Locate V+X,4," "
\Locate V-X,4," "
X+1\->X
\WhileEnd
\ClrText
\Locate 1,6,"YOUR SCORE="
(L*130)+N\->S
\Locate 12,6,S
\Dim \List 1\->V
\Locate 1,5,"HIGHSCORE="
S\->\List 1[(\Dim \List 1)-1]
\Dim \List 1\->S
\Locate 12,5,\List 1[V]\Disp\If S=\List 1[V]
\Then \For 1\->A \To 50
\Locate 6,7,"            "
\Locate 4,7,"NEW HIGHSCORE"\Disp\Next 
\IfEnd
\ClrText
"Play Again?"
"1:Yes"
"2:No"?\->P
\IfEnd
P=1\=>\Goto5
P=2\=>\Locate 1,6,"Thank You \For Playing"
\Locate 7,7,"INDY 500"\Disp
%End