--------------------------------------------------------------------------------------------
Notes (Do not include in program):

			       ***************************
			       *FAST RACE by Kerm Martian*
			       ***************************

'-->' is the 'Sto >' key
'!' is [MATH][<][4]
'_' is [ALPHA][0] (a space)
End notes
--------------------------------------------------------------------------------------------

Lbl AZ
Menu("FAST RACE","LET'S GO!",AA,"HELP ME",H,"QUIT",QQ
Lbl QQ
ClrHome
Disp "FAST RACE","BY KERM MARTIAN
Return
Lbl H
ClrHome
Disp "USE THE ARROWS","TO GO DOWN THE","ROAD.  AVOID THE","POTHOLES. GOOD LUCK!
Pause
Goto AZ
Lbl AA
0-->L
8-->X
For(A,1,8
Disp""
Output(1,7,"GO!
End
0-->A
0-->B
0-->C
0-->D
Lbl A1
0-->N
L+1-->L
If L=11
Goto YW
Output(8,9,"LEVEL
Output(8,15,L
Lbl A
randInt(1,16)-->D
Output(5,X,"V
Output(8,D,"o
If A=X
Goto YL
getKey-->K
If K=24
X-1-->X
If K=26
X+1-->X
If X>16
X-1-->X
If X<1
X+1-->X
If N=16
Goto A1
B-->A
C-->B
D-->C
Output(5,X,"_
Disp""
Goto A
Lbl YL
ClrHome
Disp "SORRY, YOU LOSE","HIT A POTHOLE!"
Pause
Goto QQ
Lbl YW
ClrHome
Disp "CONGRATULATIONS!","YOU WON!
Pause
Goto QQ