%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:616
File Name:RACING 2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 1
\Cls
\ViewWindow 1,127,1,1,63,1
\Vertical 1
\Vertical 127
\Horizontal 1
\Horizontal 63
\Plot 20,13
\Plot 110,13
\Line
\Plot 110,50
\Line
\Plot 20,50
\Line
\Plot 20,13
\Line
\F-Line 50,1,50,13
\Text 55,45,"+"
55\->A:45\->B:0\->C:0\->E~H
\While H\<=3
\If \Getkey=31
\Then \Text 30,50,"PAUSED"
\While \Getkey\<>78
\WhileEnd
\Text 30,50,"      "
\IfEnd
\Isz C
\If \Getkey=37\ Or \Getkey=28
\Then F>0\=>F-2\->F
F<0\=>F+2\->F
\Getkey=37\=>E+2\->E
\Getkey=28\=>E-2\->E
\IfEnd
\If \Getkey=38\ Or \Getkey=27
\Then E>0\=>E-2\->E
E<0\=>E+2\->E
\Getkey=27\=>F+2\->F
\Getkey=38\=>F-2\->F
\IfEnd
\Text A,B," ":B\->G
A+E\->A:B+F\->B
\If B>124\ Or B<2\ Or A>61\ Or A<3\ Or B>20\ And B<110\ And A>13\ And A<50\ Or A>13\ And A<50\ And B>20\ And B<11
\Then C+10\->C
55\->A:60\->B:4\->F:0\->E
B\->G
\IfEnd
\Text A,B,"+"
G\<=50\=>B>50\=>A>50\=>\Isz H
\WhileEnd
\ClrText
"SCORE="
"HIGHSCORE="
1000000/C\->C
\Int C\->C
\Locate 7,1,C
(\Det \Mat R)\->\r
\Locate 11,2,\r\Disp\If C>\r
\Then [[C]]\->\Mat R
\Locate 11,2,C
\Locate 5,6,"NEW HIGHSCORE!"\Disp\IfEnd
\Goto1
%End