%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1174

File Name:RACER2

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

"RACER2"

"BETA\(-)VERSION"

\ViewWindow 1,127,1,63,1

\AxesOff

\Lbl 3

\Cls

10\->B

0\->C

\For 90\->A \To 180 \Step 03

\Green \F-Line 63,63,63+(\sin A)*B,63+(\cos A)*B

\Green \F-Line 63,63,63+(\sin (360-A))*B,63+(\cos (360-A))*B

\Getkey\->\r

\If (A<135\ And \r=0)\ Or (A\>=135\ And \r\<>0)

\Then \Dsz B

\Else B+02\->B

\IfEnd

\Next 

\StoPict 5

30\->D

\Int D\->D

\Int (63-D\ab/c2)\->A

63\->C

0\->P

0\->Q

1\->E

03\->M

23\->N

0\->I

\Lbl 0

P+10\->P

\Int (10\Ran#+1)\->B

\If \Ran#>0.5

\Then A+B\->A

\Else A-B\->A

\IfEnd

A+D>127\=>127-1-D\->A

A\<=1\=>1\->A

\Cls

\RclPict 5

P\>=500\=>\Goto2

P/50=\Int (P/50)\=>\Orange \Text 126/2-1,57,P/50

\StoPict 5

\F-Line 22,63,A,1

\F-Line 104,63,A+D,1

\Getkey\->\r

\r=27\=>C+11\->C

\r=38\=>C-11\->C

\Isz I

\r=38\ Or \r=27\=>0\->I

I>50\=>\Stop

\If C\<>63

\Then \Orange \F-Line ((C-63+62C-MC+63M)/62),M,((C-63+62C-NC+63N)/62),N

\Else \Orange \F-Line 63,M,63,N

\IfEnd

\PlotOn C,1

A+D\<=C\=>\Goto1

A\>=C\=>\Goto1

\Goto0

\Lbl 1

\ClrText

\Locate 1,1,"MACH DIE AUGEN AUF DU"

\Locate 1,2,"IDIOT ICH HASSE ES"

\If \Ran#>0.5

\Then \Locate 1,3,"INS KIESBETT"

\Else \Locate 1,3,"UEBER DEN RASEN"

\IfEnd

\Locate 1,4,"ZU DONNERN!!!"

\Locate 1,5,"---------------------"

\Locate 1,6,"LOS DRUECK SCHON EXE !!!"

\Locate 1,7,"---------------------"

P+10\->P

Q+1\->Q

\Do

\Getkey\->\r

\LpWhile \r\<>31

\Goto0

\Lbl 2

\ClrText

" "

" "

" "

'LEBEN:'

\If Q\<=3

\Then \Locate 1,1,"DU HAST DEN HOSEN\(-)"

\Locate 1,2,"SCHEISSER BESIEGT"

\Else \Locate 1,1,"DU LAHME ENTE HAST"

\Locate 1,2,"DEN ZWERG GEWINNEN"

\Locate 1,3,"LASSEN"

\IfEnd

\Cls

\Locate 1,6,"---------------------"

\Locate 1,7,"DRUECK SCHON EXE"

\Orange \Text 58,1,"ODER EXIT"

\For 1\->A \To 127 \Step 6

\F-Line A,56,A+4,56

\Next 

\Locate 1,6,"-"

\Do

\Getkey\->\r

\LpWhile \r\<>0

\Do

\Getkey\->\r

\LpWhile \r\<>31\ And \r\<>47

\r\<>47\=>\Goto3

"CIAO"

\Return

%End