%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:774
File Name:OFF ROAD
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl D
0\->M
\ClrText
" "
"+-+"
"I I"
"I I"
"I I"
"+-+"
\Locate 2,3,"\asterI READY"
\For 1\->K \To 70
\Next 
\Locate 2,4,"\asterI  SET"
\For 1\->K \To 70
\Next 
\Locate 2,5,"\asterI  GO!"
0\->W:0\->H~I:6\->C:5\->A~B:0\->N:5\->R:10\->V:9\->K:7\->O
\Lbl 0
\Isz M
M<4\=>" "
M<4\=>\Goto0
\While 1
I\->J
H\->I
U\->N
X\->U
\Int 9\Ran#+6\->W
W\->X
\Locate W,7,"^-"
" "
\Getkey=38\=>\Dsz V
\Getkey=27\=>\Isz V
\If \Getkey=31
\Then \While \Getkey\<>78
\Locate 8,1,"PAUSED"
\WhileEnd
\Locate 8,1," "
\IfEnd
\Locate V,4,"+"
Y\->Z:\r\->Y:W\->\r
S-1\->S
S<0\=>0\->S
\If V=Z+1
\Then M+S+5\->M
S+5\->S
\IfEnd
V=5\ Or V=16\ Or V=J\ Or V=N\=>\GotoC
C\->D
B\->C
A\->B
R\->A
\WhileEnd
\Lbl C
0\->X
\While X\<=2
\Locate V-X,4-X,"\aster"
\Locate V+X,4+X,"\aster"
\Locate V-X,4+X,"\aster"
\Locate V+X,4-X,"\aster"
\Locate V,4+X,"\aster"
\Locate V,4-X,"\aster"
\Locate V+X,4,"\aster"
\Locate V-X,4,"\aster"
\Isz X
\WhileEnd
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," "
\Isz X
\WhileEnd
\Lbl 0
\ClrText
M*2\->M
\Locate 1,2,"SCORE:"
\Locate 1,3,"HIGHSCORE="
\Locate 7,2,M
(\Det \Mat S)\->\r
\Locate 11,3,\r\Disp\If M>\r
\Then [[M]]\->\Mat S
\Locate 11,3,M
\Locate 5,6,"NEW HIGHSCORE!"\Disp\IfEnd
\GotoD
%End