∞ Asteróides ∞

AxesOff
ViewWindow 1,100,1,1,100,1
Cls
Text 10,50,"ASTEROIDES"
Horizontal 20
Horizontal 70
For 5 A To 100
PxlOn Int 30Ran# +20,A
Next
For 4 A To 80 Step10
F-Line A,20,A,70
A ≠ 4 Text Int (20Ran# +25,Int (1.25A )," "     ' 1 espaço '
A=4 Text Int (20Ran#+25,Int(1.25A–1),"="
Next
40 A:110 B:-1 C:0 D
1 Z:0 S:0 T
Text 40,109,"+"
S=0 5 S
While Z=1
Do
A+C A
B+D B
B>125 0 Z
B<3 2 Z
PxlTest A,B
Ans =1 0 Z
PxlOn A,B
Getkey G
1 ≠ Z 1 G
Isz S
LpWhile 0=G
If End
If G=28
Then -1 C:0 D
If End
If G=37
Then 1 C:0 D
If End
If G=38
Then 0 C:-1 D
If End
If G=27
Then 0 C:1 D
If End
WhileEnd
If 2=Z
Then Text 55,44,"MISSION COMPLETE"
X + T X
F-Line 25,49,71,49
F-Line 25,49,25,60
F-Line 25,60,71,60
F-Line 71,60,71,49
X x 50 Y
For 35 A TO 85
Text 27,A," "            ' 1 espaço '
Next
Y=365 W
Text 27,35,"             "          ' 13 espaços '
Text 27,42,"SCORE:"
Text 25,65,S
Mat D[1,1] θ
If S ≥ θ
Then S=0
Else S D[1,1]
IfEnd
Text 2,1, "HIGHSCORE:"
Text 2,40, θ

Instruções

Primeiro deverá criar a matriz D[1,1], com valor 1. Para isso no menu de matrizes deverá seleccionar a matriz D e depois inserir "1" <EXE> "1" <EXE> (1x1) e de seguida introduzir o valor, "1".

Para jogar são usadas as teclas direccionais.