Produced by: Quick Edge

Because the TI uses symbols that wordprossesors dont use,
I made a key for all those strange symbols you see..

Key:
ü=STO ->
Á=THETA (the O with a line through it)
ö=little T (under MATRX)
ù=greater than or equal to
÷=less than or equal to
ø=not equal to
ú=negative sign
á=mini "L" (under LIST)

prgmMEGARACE====================================

:

2üdim(áMAZE
If áMAZE(2)=0:Then
7777üáMAZE(2)
"DANIEL SIMS"üStr7
End

ClrDraw
Text(20,10,"RAPTUREDAN AT AOL.COM
Text(27,39,"1998
Pause 

ClrDraw
RecallPic 2
For(Z,62,0,ú2
Line(0,Z,95,Z
End
For(Z,11,51,1
Line(0,Z,95,Z,0
End
Text(12,30,"MAZE RACE
Text(20,21,"BY: DANIEL SIMS
Text(30,25,"PRESS ENTER
35üÁ

áMAZE(2)üW
Text(42,0,"BEST TIME ",W," ",Str7

Lbl A
Text(30,25,"PRESS ENTER
For(Z,1,20
getKeyüK
If K=105:Goto E
End
Text(30,25," "
Goto A
Lbl E

ClrHome
Disp ""," DIFFICULTY",""," 1)WIMPY"," 2)NOT SO EASY
Input N
If N>2 or N<1:1üN
If N=1:10üN

0üXmin
0üYmin
62üYmax
95üXmax

0üL
0üD
Goto WN

Lbl R
If V=1:X+1üX
1üV
Repeat X=96
Pxl-On(Y,X
D+.1üD
If X=94
Goto V
pxl-Test(Y,X+1)üC
If C=1:Goto Q

getKeyüK
If Kø0 and Kø26
Goto K
For(B,1,N
D+.1üD
End
X+1üX
End

Lbl L
If V=2:X-1üX
2üV
Repeat X=0
Pxl-On(Y,X
D+.1üD
pxl-Test(Y,X-1)üC
If C=1:Goto Q

getKeyüK
If Kø0 and Kø24
Goto K
For(B,1,N
D+.1üD
End
X-1üX
End


Lbl D
If V=3:Y+1üY
3üV
Repeat Y=64
Pxl-On(Y,X
D+.1üD
pxl-Test(Y+1,X)üC
If C=1:Goto Q

getKeyüK
If Kø0 and Kø34
Goto K
For(B,1,N
D+.1üD
End
Y+1üY
End

Lbl U
If V=4:Y-1üY
4üV
Repeat Y=0
Pxl-On(Y,X
D+.1üD
pxl-Test(Y-1,X)üC
If C=1:Goto Q

getKeyüK
If Kø0 and Kø25
Goto K
For(B,1,N
D+.1üD
End
Y-1üY
End

Lbl K
If X>80
Text(53,58,"ALMOST!

If K=24:Goto L
If K=25:Goto U
If K=26:Goto R
If K=34:Goto D


Lbl Q
For(Z,62,0,ú1
Line(0,Z,95,Z
End
ClrDraw
ClrHome
If L=0:Goto QQ
DüáMAZE(1
If áMAZE(1)<áMAZE(2)
Then
DüáMAZE(2
Disp "YOU BEAT THE","BEST TIME.","WHATS YOUR NAME?
Input Str7
End
Lbl QQ
Disp ""
Disp " GAMEOVER
Disp "",""
Disp " PRESS ENTER
Pause 
ClrHome
Return


Lbl V
1üL
Goto Q

Lbl WN
ClrDraw
RecallPic 2
Text(53,58,"HIT ENTER
Pause 
Text(53,58," "
Text(53,58,"GO GO GO!

2üX
5üY
Goto R