76 Stellar Run
570 IF FG<2 THEN GOTO 670
580 F=1:FG=FG-2
590 FG=-FG*(FG>0)
600 REM KEY PRESSED
610 IF INKEY(8)=0 THEN M=M-(M<3):X=X-M:X =-X*(X>=1)-(X<1):GOTO 660
620 IF INKEY(1)=0 THEN M=M-(M<3):X=X+M:X =-X*(X<=30)-30*(X>30):GOTO 660
630 IF INKEY(2)=0 THEN M=M-(M<3):Y=Y+M:Y =-Y*(Y<=14)-14*(Y>14):GOTO 660
640 IF INKEY(0)=0 THEN M=M-(M<3):Y=Y-M:Y =-Y*(Y>=2)-2*(Y<2):GOTO 660
650 M=M-2: GOTO 670
660 REM
670 REM DISPLAY AND CHECK HIT
680 FG=-FG*(FG<=9)-9*(FG>9)
690 GOSUB 80:IF I>231 THEN GOTO 820
700 LOCATE FX+1,FY:PRINT" ";:LOCATE FX+1 ,FY-1:PRINT" ";:LOCATE X+I,Y+1:PRINT S$; :FX=X:FY=Y
710 IF F<1 THEN 120
720 F=2
730 SOUND 1,60+10*D,4
740 R=X*8+3:S=(21-Y)*8:PLOT R*2+64,S*2+4 8,3:DRAWR 0,-100,3:PLOT R*2+64,S*2+48,0: DRAWR 0,-100,0
750 T=(R-4)/B: FOR V=Y+1 TO Y+7:LOCATE T +1,V+1:CALL 360:KK=PEEK(367):IF KK<>32 T HEN LOCATE T+1,V+1:PRINT" ":SOUND 1,30,3 760 NEXT V:F=0:GOTO 120
770 REM YOU'VE MADE IT!
780 CLS
790 FOR K=100 TO 30 STEP -3:SOUND 1,K,3: NEXT
BOO FOR K=100 TO 110:SOUND 1,K,2:LOCATE 4,6:PRINT"WELL DONE! YOU'VE MADE IT!!":S OUND 1,K,2:NEXT K
810 GOTO 900
820 REM SHIP HIT
830 LOCATE FX+1,FY:PRINT" ";
840 FOR K=I TO 10:SOUND 1,100,2:FOR KK=1 TO 10:NEXT KK,K
850 CLS
860 LOCATE 12,7:PRINT"DESTROYED"