Galaxians
You are the commander of the sole surviving laser base on Earth. Fleets of Alien spacecraft are moving in for the final onslaught. Some swoop down, lasers blasting; others sit at the top of the screen launching unstoppable bombs which must be dodged. If you wipe out one fleet, another will appear in its place. In short, you haven't a chance. But make sure you take as many of the nasties with you as you can before you go.
10 REM GALAXIANS.
20 REM PAUL STANLEY.
30 MODE 1:BORDER 0:INK 0,0:INK 1,24:INK 2,20:INK 3,6:WINDOW #1,1,40,1,25:CLS #1 40 GOSUB 810
50 GOSUB 900
60 WINDOW #0,5,36,1,25:PAPER #0,0:PEN #0 ,1:CLS #0
70 X=15:SC=0:L=3:M=INT(RND*18):6=3:H=INT (RND*18)
80 AA$=CHR$(231)+CHR$(232):BB$=CHR$(233) +CHR$(234)
90 A$=" "+AA$+" "+AA$+" "+AA$+" "+AA$+" "+AA$+" "+AA$+" ":B$=" "+BB$+" "+BB$+" +BB$+" "+BB$+" "+BB$+" "+BB$+" ":C$=STRI NG$(19,32)
100 D$=" "+CHR$(235)+CHR$(236)+" "+CHR$( 235)+CHR$(236)+"
110 DIR=1:Y=0
120 HIT=0
130 LOCATE 17,I:PEN 3:PRINT CHR$(24);"HI GH SCORE:";CHR$(24);:PEN 2:PRINT HS;:PEN 1
140 LOCATE Y+1,3:PEN 2:PRINT A$;:PEN I 150 FOR ZZ=1 TO 2:SOUND 2,10*ZZ,3:SOUND 3,+20*ZZ,3:SOUND 1,ZZ*30,4:NEXT ZZ
160 LOCATE Y+1,3:PEN 2:PRINT B$;:PEN 1 170 SOUND 1,180,3:SOUND 2,120,3:SOUND 3, 90,3
180 X=X-2*(INKEY(1)=0 AND X<25)+2*(INKEY (8)=0 AND X>1)