Space Traffic 187
390 IF D>112 THEN D=112
400 PLOT (X*8+3)*2+64,D*2+48,2:DRAWR 120-D)*2,2:FOR F=10 TO 20 STEP 2:SOUND 1 ,F*20,3:NEXT F:PLOT (X*8+3)*2+64,D*2+48, 0:DRAWR 0,(120-D)*2,0
410 PEN 3:FOR 6=1 TO 2:FOR F=5 TO 0 STEP
-1:LOCATE (X-5+F)+1,F+1:PRINT".";:LOCAT E (X+5-F)+1,F+1:PRINT".";:LOCATE (X-5+F) +1,(10-F)+1:PRINT".";:LOCATE (X+5-F)+1,( 10-F)+1:PRINT".";:LOCATE X+1,F+1:PRINT". "- I
420 LOCATE X+1,(10-F)+1:PRINT".";:LOCATE (X+5-F)+1,6:PRINT"."
430 LOCATE (X-5+F)+1,6:PRINT".";:NEXT F, G:PEN 1:LOCATE X+1,6:PRINT"
440 LI=LI-1:PEN 2:LOCATE 1,1:PRINT CHR$( 24);"LIVES LEFT:";LI;CHR$(24);:PEN 3:PRI NT TA8(24);"SCORE";SC;:PEN 1:FOR F=-5 TO
2:SOUND 1,90+F*10,3:NEXT F:FOR F=1 TO 1 000:NEXT
450 IF LI<>0 THEN RETURN
460 FOR F=1 TO 4:SOUND 1,F*20-F,3:SOUND 2,F*30,3:NEXT
470 CLS:LOCATE 1,5:PEN 2:PRINT CHR$(24); "You scored"; SC;" POINTS.";CHR$(24);:PEN 1
480 IF SC>HS THEN SC=HS:LOCATE 1,12:PRIN T CHR$(24);"C ONGRATULATIO N 5!";CHR$(24);:PEN 3:PRINT"	That is a
new high score	";:PEN 1
490 LOCATE 3,23:PEN 2:PRINT CHR$(24);"PR ESS ANY KEY TO PLAY AGAIN"; CHR$(24);:PE N 1
500 IF INKEY$<>"" THEN 500
510 IF INKEY$=" THEN 510 ELSE CLS:GOSUB 870:GOTO 90
520 PEN 3:PRINT:PRINT CHR$(24);"The high score is";HS;CHR$(24);:PEN 1
530 SC=SC-1:FOR F=7 TO 17
540 LOCATE X+1,F+1:PRINT".":SOUND 1,F*7,
550 LOCATE X+1,F+1:PRINT" ";:LOCATE X+1, F+2:CALL 360:LL=PEEK(367):IF LL<>32 THEN 570