Space Traffic
As you travel about in the midst of an asteroid belt recovering lost satellites (well, someone has to do it), you are assailed by missiles and enemy spacecraft which you can either dodge or attack.
The satellites are collected by manoeuvring your spaceship into them and points are gained for each one which you manage to recover. Collision with other objects results in destruction, although you are allotted several lives at the start of each game.
10 REM SPACE TRAFFIC.
20 REM @ PAUL STANLEY.
30 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,20:INK 3,6:WINDOW #1,1,40,1,25:PAPER # 1,0:PEN #1,1:CLS #1
5 REM WINDOW #5,1,40,1,1
40 GOSUB 900 50 GOSUB 750 60 GOSUB 650
70 WINDOW #0,5,36,1,25:PAPER #0,0:PEN #0 ,1:CLS #0
80 HS=0
90 FOR F=1 TO 4:LOCATE 1,1:PRINT" 	
ASTEROIDS DETECTED 	 ";:LOCATE 1,1:P
PINT CHR$(24);" 	 ASTEROIDS DETECTED
	 ";CHR$(24);:FOR D=-2 TO 5:SOUND 1
,F*10+D+40,3:SOUND 2,F+D+40,3:NEXT D,F 100 X1=X
110 X=X—(INKEY(1)=0 AND X<26)+(INKEY(B)= 0 AND X>5)
120 LOCATE X+1,8:CALL 360:LL=PEEK(367):I F LL<>23e AND LL-=.>32 AND LL ..=-46 THEN HIT
=1
130 IF LL=238 THEN SC=SC4-1:FOR XX=10 TO 25 STEP 5:SOUND 1,XX*10,3:NEXT
140 LOCATE X1+1,7:PRINT" ";:LOCATE 32,25 :PRINT" ";:LOCATE X+1,7:PRINT CHR$(231)
150 IF Q=6 THEN IF W=X THEN SOUND 1,90,3 :SOUND 1,120,3:SOUND 1,180,3:GOSUB 410