%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:428
File Name:RALLY
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
" "
\Orange "      Rally 1.3"
\Green "   ---------------"
\Orange "  by Jaakko Heinonen"\Disp\ViewWindow 2,1,0,2,1,0
0\->A~Z
1\->Q
18\->B
\Lbl 1
27\->A
27\->S~W
A+\Int (B/2\->C
\For 1\->G \To 139 \Step 3
\If Q=1
\Then \Int (7\Ran#)-3\->P
\Int (3\Ran#)+2\->Q
\IfEnd
\Dsz Q
P+A\->A
A+B\>=63\=>63-B\->A
A\<=2\=>2\->A
V\->U:W\->V:T\->W:S\->T:A\->S
G>127\=>\Goto2
\PxlOn A,G
\PxlOn A+B,G
\Lbl 2
G\<=12\=>\Next 
\Orange \PxlOn C,G-12
C\>=U+B\ Or C\<=U\=>\GotoP
\Getkey\->H
\If H
\Then H=62\=>C+2\->C
H=64\=>C-2\->C
\IfEnd
\Next 
\Cls
\Dsz B
\If B=10
\Then Z+2\->Z
\ClrText
"BONUS +260"\Disp18\->B
\Goto1
\IfEnd
\Isz Z:0
\Goto1
\Lbl P
\ClrText
"Game Over!"
\Locate 1,3,"Sc\ore:"
\Locate 8,3,130Z+G
\Stop
%End