∞ Mario Kart ∞

ClrText
0 A~Z
Lbl X
A = 0 Goto 8
A = 10 Goto O
Lbl 8
{O, O, O, O, O, O} List 1
File6
Norm
0 L
A=4 Goto N
Goto M
Lbl N
40 L
Lbl O
A = 10 Goto Q
Goto M
Lbl Q
998 L
Lbl M
1.5 Q
Lbl 3
ClrText
" "            ' 1 espaço '
" "            ' 1 espaço '
Isz L
Locate 1, 1, "Level:"
Locate 7, 1, L 
"          "                ' 10 espaços '
"          "                ' 10 espaços '
0 J
l0 A
1 B~H
Lbl 1
lsz J
J=50 Goto 3
G H
F G
E F
D E
C D
B C
lnt 21Ran# + 1 B
Locate B, 7, "θθθ"
Locate 1, 2, lnt (100 – ((9J / 500) x 100))
" "            ' 1 espaço '
GetKey = 38 A – I A
GetKey = 27 A + 1 A
lf GetKey = 28
Then Locate 8,1, "PAUSE"
While GetKey ≠ 31
WhileEnd
IfEnd
A < 1 l A
A > 21 21 A
Locate A, 1, "Y"
A=G Or A=G+1 Or A=G+2 Goto 2
Goto 1
Lbl 2
(75L) + J S
ClrText
Locate 1, 7, "SCORE:"
Locate 19, 7, S
2 S
Goto X

Instruções

Use as teclas direccionais para movimentar para a esquerda e para a direita e [^] para pausar o jogo.