∞ Rally II ∞

ClrText
Orange "== Rally 2 =="
Green "                "              ' 16 espaços '
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 (7Ran#) – 3 P
Int (3Ran#) + 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 Goto 2
PxlOn A, G
PxlOn A + B, G
Lbl 2
G ≤ 12 Next
Orange PxlOn C, G – 12
C ≥ U + B Goto P
C ≤ U Goto P
GetKeyH
If H
Then H = 37 C + 2 C
H = 28 C – 2 C
IfEnd
Next
Cls
Dsz B
If B = 10
Then Z + 2 Z
ClrText
"BONUS 260"
18 B
Goto 1
IfEnd
Isz Z:0
Goto 1
Lbl P
ClrText
"Game Over"
Locate 1, 3, "Score:"
Locate 8, 3, 130Z + G
Stop

Instruções

Use as teclas direccionais para movimentar para cima e para baixo.