AxesOff
ViewWindow 1,100,1,1,100,1
Cls
Text 10,50,"ASTEROIDS"
Horizontal 20
Horinzontal 70
For 5->A To 100
PxlOn Int 30Ran#+20,A
Next
For 4->A To 80 Step 10
F-Line A,20,A,70
A =/= 4 =>Text Int (20Ran#+25),Int (1.25A),"
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->T
While Z=1
Do
A+C->A
B+D->B
B>125=>0->Z
B<3=>2->Z
PxlText A,B
Ans=1=>0->Z
PxlOn A,B
Getkey->G
1 =/= Z=>1->G
Isz S
LpWhile 0=G
If G=28
Then 0->D:-1->C
IfEnd
If G=37
Then 0->D:1->C
IfEnd
If G=38
Then 0->C:-1->D
IfEnd
If G=27
Then 0->C:1->D
IfEnd
WhileEnd
If 2=Z
Then Text 55,20,"GOAL 200 EXTRA POINTS"
S+200->S
IfEnd
S*2->N
Z=0=>Text 55,44,"YOU CRASHED"
N+T->N
F-Line 25,49,71,49
F-Line 25,49,25,60
F-Line 25,60,71,60
F-Line 71,60,71,49
N*50->M
For 35->A To 85
Text 27,A," ''
Next
M-365->W
Text 27,35,"SCORE:"
Text 27,65,S
W+Int (98Ran#)+1->W
Line
W / 100 ->W
Frac W ->U
W-U->W
100U->U
WU*100+U->W
Text 3,1,"CODE:"
Text 3,26,W