Galaxians 131
190 LOCATE X+1,22:PRINT" ";CHR$(244);CH R$(237);"	";
200 IF INKEY(47)=0 THEN GOSUB 330:LOCATE 1,1:PRINT CHR$(24);"SCORE:";CHR$(24);:P EN 2:PRINT SC;:PEN 1
210 Y=Y+DIR
220 IF Y=0 OR Y=13 THEN DIR=-DIR
230 LOCATE M+1,L+1:PRINT"	ii, .
,
240 L=L+1:M=M+RND*4-RND*4
250 IF L=21 THEN L=3:D$=" "+CHR$(235)+CH R$(236)+" "+CHR$(235)+CHR$(236)+" "
260 IF M>25 THEN M=12
270 IF M<0 THEN M=12
280 LOCATE M+1,L+1:PEN 2:PRINT D$;:PEN 1 290 LOCATE H+1,G+1:PRINT " ";
300 G=G+3:PEN 3:LOCATE H+1,G+1:PRINT CHR $(242);CHR$(243);:1F G=21 THEN G=3:LOCAT E H+1,22:PRINT" ";:PEN 1:H1=H:H=INT(RND *17)+1:IF H=X+3 OR H1=X+2 OR H1=X+1 THEN
GOTO 710
310 IF RND>0.8 THEN IF D$<>"	" THE
N GOSUB 580
320 GOTO 140
330 IF TESTMX*8+23)*2+64),(((21-L)*8+4 )*2+48))=2 THEN GOTO 420
340 IF TEST (((X*8+23)*2+64),156*2+48)=2 THEN HIT =1
350 PLOT ((X*8+23)*2+64),8*2+48,3:DRAWR 0,292,3
360 SOUND 1,90,3
370 PLOT ((X*8+23)*2+64),9*2+48,0:DRAWR 0,292,0
380 IF HIT =1 THEN MID$(A$,X+2-Y,X+4-Y)= " ":MID$(B$,X+2-Y,X+4-Y)=" ":SC=SC+1 0:LOCATE X+2,3:PRINT STRING$(3,238);:FOR
F=0 TO 40 STEP 5:SOUND 1,F+10*2,3:NEXT: LOCATE X+2,3:PRINT"	";
390 HIT=0
400 IF A$=C$ THEN 490
410 RETURN
420 IF G=L THEN IF H=X+1 OR H=X+2 THEN R ETURN
430 PLOT ((X*8+23)*2+64),8*2+48,3:DRAWR 00(21-L)*8-8)*2,3