132 Galaxians
440 SOUND 2,190,3:SOUND 1,90,3
450 PLOT ((X*8+23)*2+64),8*2+48,0:DRAWR 0,((21-L)*8-8)*2,0
460 MID$(D$,X+2-M,X+4-M)="	":SC=SC+20:
LOCATE X+2,L+1:PRINT STR1NG$(3,238);:FOR F=0 TO 40 STEP 5:SOUND 1,F+10*2,3:NEXT: LOCATE X+2,L+1:PRINT"	";
470 RETURN
480 FOR F=0 TO 15
490 LOCATE F+1,8:PRINT" ";CHR$(239);CHR$ (240);CHR$(241);
500 IF F=0 OR F=3 OR F=6 OR F=9 OR F=12 OR F=15 THEN FOR 1=6 TO 2 STEP -2:LOCATE F+2,I+1:PEN 2:PRINT CHR$(231);CHR$(232) ;:SOUND 1,50+10*I,3:PEN 0:LOCATE F+2,I+1 :PRINT CHR$(231);CHR$(232);:NEXT I:PEN 2 :LOCATE F+2,3:PRINT CHR$(231);CHR$(232); :PEN 1
510 NEXT F
520 FOR F=14 TO 26 STEP 2
530 SOUND 1,F*2,3
540 LOCATE F+1,8:PRINT" ";CHR$(238);CHR $(239);CHR$(240);
550 NEXT F
560 LOCATE 29,8:PRINT"
570 GOTO 90
5130 IF MID$(D$,2,1)<>CHR$(235) THEN 650 590 PLOT (M*8+16)*2+64,((20-L)*(3-1)*2+64
9 1
600 DRAWR 0,(9-(20-L)*8)*2,1
610 FOR F=20 TO 25:SOUND 1,F*2,3:NEXT 620 PLOT (M*8+16)*2+640(20-L)*8-1)*2+64 ,O:DRAWR 0,(9-(20-L)*8)*2,0
630 IF TESTMM*8+16)*2+64),56) THEN 710 640 RETURN
650 IF G=L AND H=X+2 OR H=X+1 THEN RETUR N
660 PLOT (M*8+36)*2+640(20-L)*8-1)*2+64 ,1: DRAWR 0,(9-(20-L)*8)*2,1
670 FOR F=20 TO 25:SOUND 1,F*2,3:NEXT 680 PLOT (M*8+36)*2+64,((20-L)*8-1)*2+64 ,0: DRAWR 0,(9-(20-L)*8)*2,0
690 IF TESTMM*8+36)*2+64),56) THEN 710