%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:857

File Name:RACER3

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\ClrText

"RACER3"

"BETAVERSION"

"SPURBREITE (1-6)?: -"

" "

0\->I

\Do

\Do

\Getkey\->\r

\LpWhile \r=0

\r=72\=>1\->I

\r=62\=>2\->I

\r=52\=>3\->I

\r=73\=>4\->I

\r=63\=>5\->I

\r=53\=>6\->I

\If I=0

\Then \Locate 1,4,"UNGUELTIGE EINGABE"

\For 1\->U \To 99

\Next 

\Locate 1,4,"                  "

\IfEnd

\LpWhile I=0

\Locate 20,3,I

\Locate 1,4,"OK"

0\->F

20\->B

12\->C

\For 1\->E \To 7

\Next 

"+-+"

\Orange "I I"

"+-+"

\Orange "I I"

"+-+"

\Green "I I"

"+-+"

\Locate 2,2,"O"

\Locate 2,4,"O"

\Locate 2,6,"O"

\Getkey\<>44\=>0\->P

\Lbl 0

50\->E

0\->G

5\->U:I=1\=>6\->U:U\->D:D\->A:A\->J

\For 1\->V \To 7

\Locate U,V,"(      "

\Locate U+I+1,V,")"

\If V=5

\Then \For 1+U\->E \To I+U

\Locate E,V,"-"

\Next 

\IfEnd

\Next 

7\->C

0\->X

0\->F

I\->E

\Lbl 1

\r=48\=>\Goto2

\Isz P

\r\->\theta

\Getkey\->\r

" "

\r=27\=>C<21\=>\Isz C

\r=38\=>C>01\=>\Dsz C

U\->S:J\->U:A\->J

\If \Ran#>0.5

\Then A>1\=>\Dsz A

\Else A<21-E-2\=>\Isz A

\IfEnd

\Locate C,4,"\theta"

\Locate A,7,"("

\Locate A+E+1,7,")"

\If C<S+1\ Or C>S+E

\Then \Isz X

\Locate 8,1,"CRASH"

X>3\=>\Goto3

C\<=S\=>\Isz C

C\>=S+E+1\=>\Dsz C

\IfEnd

\Goto1

\Lbl 2

\Text 57,1,"PAUSE UND MENUE"

\Locate 1,1," "

\Do

\Getkey\->\r

\LpWhile \r=48

\Do

\Getkey\->\r

\LpWhile \r=0

\r=47\=>\Locate 11,7,P

E\->I

\Do

\Getkey\->\r

\r=37\=>I>1\=>\Dsz I

\r=28\=>I<6\=>\Isz I

\Locate 1,1,I

\LpWhile (I\<>E\ Or (\r=37\ And \r=28))\ And \r\<>31

E\<>I\=>\Goto0

\Goto1

\Lbl 3

"LOOSER"

P

\Return

%End