%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:672
File Name:ASTEROID
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ViewWindow 1,100,0,1,100,0
\Cls
\Text 10,50,"ASTEROIDS"
\Horizontal 20
\Horizontal 70
\For 5\->A \To 100
\Green \PxlOn \Int 30\Ran#+20,A
\Next 
\For 4\->A \To 80 \Step 10
\F-Line A,20,A,70
A\<>4\=>\Text \Int (20\Ran#+25),\Int (1.25A)," "
A\<>4\=>\Text \Int (20\Ran#+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
C>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 58
\Text 27,A," "
\Next 
M-365\->W
\Text 27,35,"SCORE:"
\Text 27,65,S
W+\Int (98\Ran#)+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
%End