1 GOTO 22
2 CLEAR 
3 SAVE "BOMBER"
4 GENPAT 1,143,62,62,28,62,62,62,28,8
5 GENPAT 1,144,24,24,102,102,219,219,219,255
6 GENPAT 1,145,24,24,24,24,60,126,231,231
7 GENPAT 1,146,24,60,126,219,153,153,255,255
8 GENPAT 1,147,255,153,255,153,255,153,255,255
9 GENPAT 1,148,231,231,231,255,255,231,231,231
10 GENPAT 1,149,255,219,165,219,165,219,165,255
11 GENPAT 1,150,255,129,129,129,129,129,129,255
12 GENPAT 1,151,0,112,248,248,255,255,127,16
13 GENPAT 1,152,7,1,50,116,255,255,255,6
14 GENPAT 1,153,248,32,64,128,248,248,240,0
15 GENPAT 2,147,17,26,26,26,26,26,26,26
16 GENPAT 2,148,31,26,24,26,26,31,26,24
17 GENPAT 2,149,24,26,24,26,24,26,24,26
18 GENPAT 2,150,16,18,11,20,22,24,26,16
19 GENPAT 2,151,5,149,245,101,53,53,53,21
20 GENPAT 2,152,53,53,53,53,53,53,53,5
21 GENPAT 2,153,53,53,53,53,53,53,49,53
22 VS 4: CTLSPR 2,0: INK 1: PAPER 5: COLOUR 4,1: CLS : FOR X=0 TO 31: CSR X,22: PRINT CHR$(150);: NEXT X
23 FOR X=0 TO 31: LET HE=14+INT(RND*5): LET CH=INT(RND*3+147)
24 COLOUR 1,1: CSR X,HE: PRINT CHR$(CH-3)
25 FOR Z=HE+1 TO 21: CSR X,Z: PRINT CHR$(CH);: NEXT Z: NEXT X
26 CSR 0,23: FOR X=0 TO 7: COLOUR 3,8-X: LINE 0,X,255,X: NEXT X
27 LET B=100: LET PY=1: LET PX=0: LET P$=" "+CHR$(151)+CHR$(152)+CHR$(153): LET BY=0: LET BX=0: LET BF=0: LET B$=CHR$(143)
28 CSR 0,0: PRINT "Bombs Left";B
29 CSR PX,PY: PRINT P$;
30 IF ASC(SPK$)>143 THEN  GOTO 40
31 LET PX=PX+1: IF PX>31 THEN  LET PX=0: LET PY=PY+1
32 SOUND 3,23*RND+1000,12: IF PX=25 AND PY=22 THEN  GOTO 38
33 IF BF=1 THEN  GOSUB 36 ELSE  PAUSE 37
34 IF INKEY$="" THEN  GOTO 29
35 IF PY=22 OR BF=1 OR B=0 THEN  GOTO 29 ELSE  LET BF=1: LET B=B-1: LET BX=PX+1+32*(PX=31): LET BY=PY+1: CSR BX,BY: PRINT B$: CSR 10,0: PRINT B;"  ": GOTO 29
36 CSR BX,BY: PRINT " ": CSR BX,BY+1: IF SPK$<>" " THEN  SOUND 0,1023,15: FOR Z=BY TO 22: CSR BX,Z: PRINT " ": NEXT Z: LET BF=0: SOUND 0,0,0: RETURN 
37 LET BY=BY+1: SOUND 0,50+BY,15: IF BY=22 THEN  LET BF=0: SOUND 0,0,0: RETURN  ELSE  CSR BX,BY: PRINT B$: RETURN 
38 FOR X=2 TO 13: COLOUR 4,X: CRVS 5,1,X-2,X-2,36-2*X,28-2*X,32: COLOUR 2,X: CLS : NEXT X
39 VS 4: CSR 5,10: PRINT "SURVIVED:YOUR SCORE=";B*B: GOTO 41
40 FOR X=0 TO 15: PAUSE 15: COLOUR 4,X: NEXT X: COLOUR 4,6: CSR 10,10: PRINT "YOU'RE DEAD"
41 SOUND 0,0,0: SOUND 3,0,0: CSR 3,21: PRINT "PRESS ANY KEY TO PLAY AGAIN": PAUSE 100
42 IF INKEY$<>"" THEN  GOTO 22 ELSE  GOTO 42
