Shoot the bomber as fast as you can before it can complete its mission. But beware, its shields can deflect your missiles.
Use Z to move left, . to move right, and M to fire.
PROG : 16509
D-FILE: 17703
VARS : 18496
E-LINE: 18497
STKBOT: 18497
STKEND: 18497
9999 means line number
PRINT means treat as KEYWORD P
10 REM **BLASTER**SLR/1985****
15 CLS
20 LET S=0
25 LET Z=.5
30 LET A$=" * "
40 LET B$=" <O>"
50 FOR A=1 TO 4
60 PRINT AT A-1,0;"
"
70 PRINT AT A-1,INT (RND*32);"
."
80 PRINT AT A-1,INT (RND*32);"
."
90 PRINT AT A-1,INT (RND*32);"
."
100 NEXT A
110 LET R=INT (RND*3)
120 LET X=15
130 FOR G=0 TO 28 STEP Z
140 PRINT AT R,G;B$;AT 3,X;A$
150 IF B$="." THEN LET B$=" "
160 LET B$(1)=" . "(INT (RND*4
+1))
170 LET X=X-(INKEY$="Z" AND X>0
)+(INKEY$="." AND X<29)
180 LET S=S+10
190 IF INKEY$="M" AND RND>.6
THEN GOTO 230
200 NEXT G
210 PRINT AT R,29;" "
220 PRINT AT 4,0;"
";AT 4,0;"BLA
STER**YOU DIED.SCORE:";S;AT 1,0;
"*** PRESS A KEY TO START **
*"
225 IF INKEY$<>"" THEN RUN
226 GOTO 225
230 IF X+1>G AND X+1<G+4 THEN
GOTO 250
240 GOTO 200
250 PRINT AT R,G+1;" ."
260 LET S=S+25
270 PRINT AT 4,0;"
";AT 4,0;"BLA
STER**GOOD SHOT.SCORE:";S
280 FOR H=1 TO 100
290 NEXT H
300 PRINT AT 4,9;"CONTINUE ON W
ARRIOR "
310 FOR H=1 TO 50
320 NEXT H
330 PRINT AT 4,0;"
"
340 IF Z<.85 THEN LET Z=Z+.01
350 GOTO 50
400 SAVE "BLASTER"
410 RUN