Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape32a_acorn_eu_1992_march.wav » Bomber

Bomber

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape32a_acorn_eu_1992_march.wav
Filename: Bomber
Read OK:
File size: 0260 bytes
Load address: FFFF0E00
Exec address: FFFF802B
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
    0*FX144,0,1
   10MODE7
   20VDU23,1,0;0;0;0;
   30PROCheader("City  Bomber")
   40PRINT
   50PROCdouble(CHR$&86+"Instructions  ")
   60PRINTTAB(3,8);"Mission: to destroy city by bombing"
   70PRINTTAB(5,11);"Score: 10 points for each hit"TAB(16,13)"-5 for a miss"
   80PRINTTAB(6,16);"Keys:"
   90PROCjustify("RETURN - Drop Bomb",16)
  100PROCcentre("Press any key",20)
  110PRINT
  120PROCheader("City  Bomber")
  130SOUND-1,246,0,0:SOUND-1,168,0,0:SOUND-1,212,0,0
  140X$=INKEY$(1000):IFX$="" THEN GOTO 130
  150CHAIN"BOMB1"
  160DEFPROCcentre(A$,vpos)PRINTTAB((20-LENA$DIV2),vpos);A$:ENDPROC
  170DEFPROCheader(A$):FORI=0TO1:PRINTCHR$&81;CHR$&9D;CHR$&83;CHR$&8D;:PROCcentre(A$,VPOS):NEXT:ENDPROC
  180DEFPROCjustify(A$,vpos)PRINTTAB(15,vpos);A$:ENDPROC
  190DEFPROCdouble(A$)FORI=0TO1:PROCcentre(CHR$&8D+A$,VPOS):NEXT:ENDPROC
*FX144,0,1

�7
�23,1,0;0;0;0;
�header("City  Bomber")
(�
2"�double(�&86+"Instructions  ")
<0�3,8);"Mission: to destroy city by bombing"
FA�5,11);"Score: 10 points for each hit"�16,13)"-5 for a miss"
P�6,16);"Keys:"
Z%�justify("RETURN - Drop Bomb",16)
d�centre("Press any key",20)
n�
x�header("City  Bomber")
�'�-1,246,0,0:�-1,168,0,0:�-1,212,0,0
�X$=�(1000):�X$="" � � �tB@
��"BOMB1"
�,��centre(A$,vpos)�(20-�A$�2),vpos);A$:�
�?��header(A$):�I=0�1:�&81;�&9D;�&83;�&8D;:�centre(A$,�):�:�
�%��justify(A$,vpos)�15,vpos);A$:�
�-��double(A$)�I=0�1:�centre(�&8D+A$,�):�:�
�
00000000  0d 00 00 0e 2a 46 58 31  34 34 2c 30 2c 31 0d 00  |....*FX144,0,1..|
00000010  0a 06 eb 37 0d 00 14 12  ef 32 33 2c 31 2c 30 3b  |...7.....23,1,0;|
00000020  30 3b 30 3b 30 3b 0d 00  1e 1b f2 68 65 61 64 65  |0;0;0;.....heade|
00000030  72 28 22 43 69 74 79 20  20 42 6f 6d 62 65 72 22  |r("City  Bomber"|
00000040  29 0d 00 28 05 f1 0d 00  32 22 f2 64 6f 75 62 6c  |)..(....2".doubl|
00000050  65 28 bd 26 38 36 2b 22  49 6e 73 74 72 75 63 74  |e(.&86+"Instruct|
00000060  69 6f 6e 73 20 20 22 29  0d 00 3c 30 f1 8a 33 2c  |ions  ")..<0..3,|
00000070  38 29 3b 22 4d 69 73 73  69 6f 6e 3a 20 74 6f 20  |8);"Mission: to |
00000080  64 65 73 74 72 6f 79 20  63 69 74 79 20 62 79 20  |destroy city by |
00000090  62 6f 6d 62 69 6e 67 22  0d 00 46 41 f1 8a 35 2c  |bombing"..FA..5,|
000000a0  31 31 29 3b 22 53 63 6f  72 65 3a 20 31 30 20 70  |11);"Score: 10 p|
000000b0  6f 69 6e 74 73 20 66 6f  72 20 65 61 63 68 20 68  |oints for each h|
000000c0  69 74 22 8a 31 36 2c 31  33 29 22 2d 35 20 66 6f  |it".16,13)"-5 fo|
000000d0  72 20 61 20 6d 69 73 73  22 0d 00 50 13 f1 8a 36  |r a miss"..P...6|
000000e0  2c 31 36 29 3b 22 4b 65  79 73 3a 22 0d 00 5a 25  |,16);"Keys:"..Z%|
000000f0  f2 6a 75 73 74 69 66 79  28 22 52 45 54 55 52 4e  |.justify("RETURN|
00000100  20 2d 20 44 72 6f 70 20  42 6f 6d 62 22 2c 31 36  | - Drop Bomb",16|
00000110  29 0d 00 64 1f f2 63 65  6e 74 72 65 28 22 50 72  |)..d..centre("Pr|
00000120  65 73 73 20 61 6e 79 20  6b 65 79 22 2c 32 30 29  |ess any key",20)|
00000130  0d 00 6e 05 f1 0d 00 78  1b f2 68 65 61 64 65 72  |..n....x..header|
00000140  28 22 43 69 74 79 20 20  42 6f 6d 62 65 72 22 29  |("City  Bomber")|
00000150  0d 00 82 27 d4 2d 31 2c  32 34 36 2c 30 2c 30 3a  |...'.-1,246,0,0:|
00000160  d4 2d 31 2c 31 36 38 2c  30 2c 30 3a d4 2d 31 2c  |.-1,168,0,0:.-1,|
00000170  32 31 32 2c 30 2c 30 0d  00 8c 1e 58 24 3d bf 28  |212,0,0....X$=.(|
00000180  31 30 30 30 29 3a e7 58  24 3d 22 22 20 8c 20 e5  |1000):.X$="" . .|
00000190  20 8d 74 42 40 0d 00 96  0c d7 22 42 4f 4d 42 31  | .tB@....."BOMB1|
000001a0  22 0d 00 a0 2c dd f2 63  65 6e 74 72 65 28 41 24  |"...,..centre(A$|
000001b0  2c 76 70 6f 73 29 f1 8a  28 32 30 2d a9 41 24 81  |,vpos)..(20-.A$.|
000001c0  32 29 2c 76 70 6f 73 29  3b 41 24 3a e1 0d 00 aa  |2),vpos);A$:....|
000001d0  3f dd f2 68 65 61 64 65  72 28 41 24 29 3a e3 49  |?..header(A$):.I|
000001e0  3d 30 b8 31 3a f1 bd 26  38 31 3b bd 26 39 44 3b  |=0.1:..&81;.&9D;|
000001f0  bd 26 38 33 3b bd 26 38  44 3b 3a f2 63 65 6e 74  |.&83;.&8D;:.cent|
00000200  72 65 28 41 24 2c bc 29  3a ed 3a e1 0d 00 b4 25  |re(A$,.):.:....%|
00000210  dd f2 6a 75 73 74 69 66  79 28 41 24 2c 76 70 6f  |..justify(A$,vpo|
00000220  73 29 f1 8a 31 35 2c 76  70 6f 73 29 3b 41 24 3a  |s)..15,vpos);A$:|
00000230  e1 0d 00 be 2d dd f2 64  6f 75 62 6c 65 28 41 24  |....-..double(A$|
00000240  29 e3 49 3d 30 b8 31 3a  f2 63 65 6e 74 72 65 28  |).I=0.1:.centre(|
00000250  bd 26 38 44 2b 41 24 2c  bc 29 3a ed 3a e1 0d ff  |.&8D+A$,.):.:...|
00000260
Bomber.m0
Bomber.m1
Bomber.m2
Bomber.m4
Bomber.m5