∞ Rally I ∞

ClrText
Lbl Z
0 A~E
0 Mat A[3, 1]
Mat A[1, 1] W
ViewWindow - 20, 20, 0, - 20, 20, 0
AxesOff
Deg
GridOff
CoordOff
Norm
For 3.6 F To 1 Step -0.06
Locate 10, 4, Int F
Next
Locate 10, 4, "GO !"
"    "        ' 4 espaços '
F-Line -1, -14, 1, -14
F-Line 1, -14, 1, -9
F-Line 1, -9, -1, -9
F-Line -1, -9, -1, -14
F-Line -1.3, -10.5, -1.3, -11
F-Line 1.3, -10.5, 1.3, -11
F-Line -1.3, -13, -1.3, -13.5
F-Line 1.3, -13, 1.3, -13.5
F-Line -0.5, -13, 0.5, -13
F-Line 0.5, -13, 0.5, -11
F-Line 0.5, -11, -.5, -11
F-Line -0.5, -11, -0.5, -13
StoPict 1
Lbl 0
1 + Z – U Z
Cls
RclPict 1
10Ran# – 5 R
C D
B C
A B
G A
R + G G
U – 20 E
U – 10 F
U + 10 I
U + 20 J
F-Line D – 4, E, C – 4, F
F-Line D + 4, E, C + 4, F
F-Line C – 4, F, B – 4, U
F-Line C + 4, F, B + 4, U
F-Line B – 4, U, A – 4, I
F-Line B + 5, U, A + 5, I
F-Line A – 4, I, G – 4, J
F-Line A + 5, I, G + 5, J
C H
U < -7 B H
ClrText
If -1 < H – 5 Or 1 > H + 5
Then "SCORE:"
Z + Mat A[3, 1] Mat A[3, 1]
If Mat A[3, 1] > Mat A[3, 2]
Then Mat A[3, 1] Mat A[3, 2]
IfEnd
" "        ' 1 espaço '
"HIGHSCORE:"
Mat A[3, 2]
Goto Z
0 A~Z
IfEnd
GetKeyK
If K ≠ 0
Then If K = 27
Then G – W G
A – W A
B – W B
C – W C
D – W D
Else If K = 38
Then G + W G
A + W A
B + W B
C + W C
D + W D
IfEnd
K = 28 U – Mat A[1, 2] U
K = 37 U + Mat A[1, 3] U
If Z > 150 And T = 1
Then "TOP"
0 Z
IfEnd
IfEnd
IfEnd
Goto 0

Instruções

Use as teclas direccionais para movimentar para a esquerda e para a direita.