188 Space Traffic
560 NEXT F
570 IF LL=238 THEN RETURN
580 LOCATE X+1,F+2:PRINT" ":FOR D=I TO 3 :SOUND 1,D*20,3:NEXT D
590 IF RND>0.4 THEN RETURN
600 T=INT (RND*4+1)
610 FOR D=0 TO T:LOCATE (X-D)+1,(F+1-D)+ I:PRINT CHR$(232);:LOCATE (X+D)+I, (F+1- D)+1:PRINT CHR$(232);:LOCATE (X-D)+1,(F+ 1+D)+1:PRINT CHR$(232);:LOCATE X+D+1,F+D +2:PRINT CHR$(232);
620 SOUND 1,190,3
630 IF D<T THEN LOCATE (X-D)+1,(F+I-D)+1 :PRINT " ";:LOCATE (X+D)+1, (F+1-D)+1:PR INT " ";:LOCATE (X-D)+1,(F+1+D)+1:PRINT
";:LOCATE X+D+1,F+D+2:PRINT " "; 640 NEXT D:RETURN
650 PEN 2:PRINT CHR$(24);"	S P A
CE	TRAFFIC	";CHR$(24);:PE
N1
660 PEN 3:LOCATE 1,5:PRINT"You are flyin g through space when you	encounter an
asteroid belt.":PEN 1
670 PRINT:PRINT"Enemy craft (";:PEN 2:PR INT ;CHR$(237);:PEN 1:PRINT ;") will fir e-at you given";"the chance, and other m issiles are	aimed right at you."
680 PEN 2:PRINT:PRINT"To score you have to recover lost	satellites (";:PEN
3:PRINT CHR$(238);:PEN 2:PRINT ") in th e process.":PEN 1
690 PEN 3:PRINT:PRINT:PRINT CHR$(24);" Use Left and right arrow Keys. CHR$(24);:PEN 1
700 PRINT CHR$(24);"	SPACEBAR
TO FIRE	";CHR$(24)
710 LOCATE 10,22:PEN 2:PRINT CHR$(24);"P RESS ANY KEY TO START";CHR$(24);:PEN I 720 IF INKEY$<>"" THEN 720
730 IF INKEY$=""THEN 730 ELSE CLS
740 RETURN
750 SYMBOL AFTER 230
760 SYMBOL 231,254,124,40,124,40,56,16,1 6