Title:  Asteroid 3 ! ! !
Author: Margaret Bernhardt <pedro615@earthlink.net>
changes: Added High Score Capability

You have to have Mat B set on 3x1



0->R 				//Added text
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
PxlTest 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             
W / 100 ->W
Frac W ->U
W-U->W
100U->U
WU*100+U->W
Text 3,1,"CODE:"
Text 3,26,W
If S>Mat B[1,1]			//Start added text
Then ClrText
"NEW HIGHSCORE!"
"YOU MADE 1ST PLACE!"
S->Mat B[1,1]
Goto r
IfEnd
If s>Mat B[2,1]
Then ClrText
"NEW HIGHSCORE!!"
"YOU MADE 2ND PLACE!"
S->Mat B[2,1]
Goto r
IfEnd
If S>Mat B[3,1]
Then ClrText
"NEW HIGHSCORE!!!"
"YOU MADE 3RD PLACE!"
S->Mat B[3,1]
Goto r
Lbl r:Stop			//End added text