Battleships (UK) (1984) [Popular Computing Weekly] [TAPE].cdt
HexaDumpAscii only
000000:  5A 58 54 61 70 65 21 1A 01 0A 20 B8 0B 11 8A 04    ZXTape!... .....
000010:  45 02 45 02 45 02 8A 04 00 10 08 0A 00 07 01 00    E.E.E...........
000020:  2C 42 41 54 54 4C 45 53 48 49 50 53 00 00 00 00    ,BATTLESHIPS....
000030:  00 01 00 00 00 08 70 01 FF 51 1D 00 00 00 00 00    ......p..Q......
000040:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000050:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000060:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000070:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000080:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000090:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000A0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000B0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000C0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000D0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000E0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0000F0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000100:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000110:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000120:  00 E3 20 FF FF FF FF 11 8A 04 45 02 45 02 45 02    .. .......E.E.E.
000130:  8A 04 00 10 08 C4 09 15 08 00 16 3A 00 0A 00 C5    ...........:....
000140:  20 2A 2A 20 42 61 74 74 6C 65 73 68 69 70 73 2E     ** Battleships.
000150:  2E 2E 2E 61 20 67 61 6D 65 20 66 6F 72 20 74 68    ...a game for th
000160:  65 20 41 4D 53 54 52 41 44 20 43 50 43 20 34 36    e AMSTRAD CPC 46
000170:  34 20 2A 2A 00 1F 00 14 00 C5 20 2A 2A 20 3C 43    4 **...... ** <C
000180:  3E 20 53 74 65 76 65 20 57 2E 20 4C 75 63 61 73    > Steve W. Lucas
000190:  20 2A 2A 00 22 00 1E 00 C5 20 2A 2A 20 76 65 72     **.".... ** ver
0001A0:  73 69 6F 6E 20 31 2E 41 20 4A 75 6C 79 20 31 39    sion 1.A July 19
0001B0:  38 34 20 2A 2A 00 26 00 28 00 AD 20 0F 01 20 A2    84 **.&.(.. .. .
0001C0:  20 0E 2C 0E 01 20 A2 20 0F 2C 19 18 01 20 A2 20     .,.. . .,... . 
0001D0:  10 2C 19 14 01 20 A2 20 11 2C 14 00 09 00 32 00    .,... . .,....2.
0001E0:  82 20 19 0A 00 0A 00 3C 00 9F 20 1E EA 01 00 22    . .....<.. ...."
0001F0:  00 46 00 93 20 03 00 00 E1 28 17 2C 17 29 2C 03    .F.. ....(.,.),.
000200:  00 00 E2 28 17 2C 17 29 2C 03 00 00 E3 28 14 29    ...(.,.),....(.)
000210:  00 12 00 50 00 9E 20 0D 00 00 F8 EF 20 0F 20 EC    ...P.. ..... . .
000220:  20 14 00 11 00 5A 00 C3 20 03 00 00 E3 28 0D 00     ....Z.. ....(..
000230:  00 F8 29 00 0B 00 64 00 B0 20 0D CA B3 00 00 F8    ..)...d.. ......
000240:  00 08 00 6E 00 8C 20 22 00 19 00 78 00 8C 20 22    ...n.. "...x.. "
000250:  44 65 73 74 72 6F 79 65 72 20 20 20 20 20 20 20    Destroyer       
000260:  22 00 19 00 82 00 8C 20 22 53 75 62 6D 61 72 69    "...... "Submari
000270:  6E 65 20 20 20 20 20 20 20 22 00 19 00 8C 00 8C    ne       "......
000280:  20 22 43 72 75 69 73 65 72 20 20 20 20 20 20 20     "Cruiser       
000290:  20 20 22 00 19 00 96 00 8C 20 22 42 61 74 74 6C      "...... "Battl
0002A0:  65 73 68 69 70 20 20 20 20 20 20 22 00 19 00 A0    eship      "....
0002B0:  00 8C 20 22 41 69 72 63 72 61 66 74 20 43 61 72    .. "Aircraft Car
0002C0:  72 69 65 72 22 00 0A 00 AA 00 8A 01 BB 20 0F 00    rier"........ ..
0002D0:  24 00 B4 00 C5 20 2A 2A 20 50 6C 6F 74 20 6E 75    $.... ** Plot nu
0002E0:  6D 62 65 72 73 20 61 63 72 6F 73 73 20 74 6F 70    mbers across top
0002F0:  20 2A 2A 00 11 00 BE 00 9E 20 0D 00 00 F8 EF 0F     **...... ......
000300:  20 EC 20 17 00 1F 00 C8 00 A9 20 0D 00 00 F8 F6     . ....... .....
000310:  10 F4 0F 2C 0F 01 BF 20 FF 03 28 19 30 F4 0D 00    ...,... ..(.0...
000320:  00 F8 29 00 20 00 D2 00 A9 20 0D 00 00 F8 F6 10    ..). .... ......
000330:  F4 19 13 2C 0F 01 BF 20 FF 03 28 19 30 B6 F0 F4    ...,... ..(.0...
000340:  0D 00 00 F8 29 00 06 00 DC 00 B0 00 27 00 E6 00    ....).......'...
000350:  C5 20 2A 2A 20 70 72 69 6E 74 20 63 65 6E 74 72    . ** print centr
000360:  65 20 6C 69 6E 65 20 64 6F 77 6E 20 73 63 72 65    e line down scre
000370:  65 6E 00 12 00 F0 00 9E 20 0D 00 00 F8 EF 10 20    en...... ...... 
000380:  EC 20 19 14 00 18 00 FA 00 A9 20 19 14 2C 0D 00    . ........ ..,..
000390:  00 F8 01 20 BF 20 FF 03 28 19 95 29 00 06 00 04    ... . ..(..)....
0003A0:  01 B0 00 2D 00 0E 01 C5 20 2A 2A 20 50 6C 6F 74    ...-.... ** Plot
0003B0:  20 6C 65 74 74 65 72 73 20 64 6F 77 6E 20 73 69     letters down si
0003C0:  64 65 20 6F 66 20 73 63 72 65 65 6E 20 2A 2A 00    de of screen **.
0003D0:  11 00 18 01 9E 20 0D 00 00 F8 EF 0F 20 EC 20 17    ..... ...... . .
0003E0:  00 20 00 22 01 A9 20 0F 2C 0D 00 00 F8 F6 10 F4    . .".. .,.......
0003F0:  0F 01 20 BF 20 FF 03 28 19 40 F4 0D 00 00 F8 29    .. . ..(.@.....)
000400:  00 06 00 2C 01 B0 00 0B 00 36 01 A9 20 0F 2C 19    ...,.....6.. .,.
000410:  14 00 15 00 40 01 BF 20 FF 7B 20 28 19 28 2C FF    ....@.. .{ (.(,.
000420:  03 28 19 9A 29 29 00 0A 00 4A 01 9F 20 1E 76 02    .(..))...J.. .v.
000430:  00 0A 00 54 01 9F 20 1E 74 04 00 31 00 5E 01 E1    ...T.. .t..1.^..
000440:  3F C5 20 2A 2A 20 79 63 3D 20 79 6F 75 72 20 73    ?. ** yc= your s
000450:  63 6F 72 65 3A 20 63 63 3D 20 63 6F 6D 70 75 74    core: cc= comput
000460:  65 72 27 73 20 73 63 6F 72 65 20 2A 2A 00 0A 00    er's score **...
000470:  68 01 9F 20 1E FE 06 00 0A 00 72 01 9F 20 1E BC    h.. ......r.. ..
000480:  07 00 20 00 7C 01 A1 20 0D 00 00 63 E3 EF 19 14    .. .|.. ...c....
000490:  20 FC 20 0D 00 00 79 E3 EF 19 14 20 EB 20 1E 90     . ...y.... . ..
0004A0:  01 00 0A 00 86 01 A0 20 1E 68 01 00 34 00 90 01    ....... .h..4...
0004B0:  A1 20 0D 00 00 63 E3 EF 19 14 20 EB 20 03 00 00    . ...c.... . ...
0004C0:  E1 EF 22 49 20 77 69 6E 22 20 01 97 20 03 00 00    .."I win" .. ...
0004D0:  E1 EF 22 59 6F 75 20 77 69 6E 21 21 21 21 22 00    .."You win!!!!".
0004E0:  1B 00 9A 01 8A 01 A9 20 19 10 2C 19 0A 01 20 BB    ....... ..,... .
0004F0:  20 0F 01 20 BF 20 03 00 00 E1 00 36 00 A4 01 A9     .. . .....6....
000500:  20 13 2C 19 14 01 20 BB 20 10 01 20 BF 22 44 6F     .,... . .. ."Do
000510:  20 79 6F 75 20 77 61 6E 74 20 74 6F 20 70 6C 61     you want to pla
000520:  79 20 61 67 61 69 6E 20 3C 59 2F 4E 3E 20 3F 22    y again <Y/N> ?"
000530:  00 1D 00 AE 01 03 00 00 E1 EF FF 43 01 20 A1 20    ...........C. . 
000540:  03 DB 5B 00 00 E1 EF 22 22 20 EB 20 1E AE 01 00    ..[...."" . ....
000550:  12 00 B8 01 03 00 00 E1 EF FF 1C 28 03 00 00 E1    ...........(....
000560:  29 00 13 00 C2 01 A1 20 03 00 00 E1 EF 22 59 22    )...... ....."Y"
000570:  20 EB 20 CA 00 21 00 CC 01 8A 01 20 A9 20 19 10     . ..!..... . ..
000580:  2C 19 0A 01 BB 20 11 01 20 BF 22 47 6F 6F 64 62    ,.... .. ."Goodb
000590:  79 65 20 21 22 00 06 00 D6 01 98 00 06 00 E0 01    ye !"...........
0005A0:  98 00 23 00 EA 01 8A 01 20 A9 20 19 0F 2C 13 01    ..#..... . ..,..
0005B0:  20 BB 20 0F 01 20 BF 22 42 61 74 74 6C 65 73 68     . .. ."Battlesh
0005C0:  69 70 73 22 00 2C 00 F4 01 BB 20 10 01 20 A9 20    ips".,.... .. . 
0005D0:  15 2C 15 01 BF 22 3C 43 3E 20 53 74 65 76 65 20    .,..."<C> Steve 
0005E0:  4C 75 63 61 73 20 4A 75 6C 79 20 31 39 38 34 22    Lucas July 1984"
0005F0:  00 4D 00 FE 01 BB 20 11 01 20 A9 20 0F 2C 19 0A    .M.... .. . .,..
000600:  01 BF 22 20 20 54 68 69 73 20 69 73 20 61 20 63    .."  This is a c
000610:  6F 6D 70 75 74 65 72 69 73 65 64 20 76 65 72 73    omputerised vers
000620:  69 6F 6E 20 6F 66 20 74 68 65 20 74 72 61 64 69    ion of the tradi
000630:  74 69 6F 6E 61 6C 20 67 61 6D 65 2E 22 00 78 00    tional game.".x.
000640:  08 02 BF A0 72 01 BF 01 BB 20 0F 01 20 BF 22 54    ....r.... .. ."T
000650:  68 65 20 67 61 6D 65 20 69 73 20 70 6C 61 79 65    he game is playe
000660:  64 20 6F 6E 20 61 20 39 20 78 20 39 20 67 72 69    d on a 9 x 9 gri
000670:  64 2E 20 20 20 20 20 45 61 63 68 20 70 6F 69 6E    d.     Each poin
000680:  74 20 6F 6E 20 74 68 65 20 67 72 69 64 20 69 73    t on the grid is
000690:  20 69 64 65 6E 74 69 66 69 65 64 20 62 79 20 61     identified by a
0006A0:  20 63 6F 6F 72 64 69 6E 61 74 65 20 73 75 63 68     coordinate such
0006B0:  20 61 73 20 41 34 22 00 7D 00 12 02 BF 22 49 6E     as A4".}...."In
0006C0:  20 74 68 69 73 20 76 65 72 73 69 6F 6E 2C 20 79     this version, y
0006D0:  6F 75 72 20 6F 70 70 6F 6E 65 6E 74 20 69 73 20    our opponent is 
0006E0:  74 68 65 20 20 20 63 6F 6D 70 75 74 65 72 2E 20    the   computer. 
0006F0:  54 68 65 20 63 6F 6D 70 75 74 65 72 20 77 69 6C    The computer wil
000700:  6C 20 68 69 64 65 20 35 20 73 68 69 70 73 6F 6E    l hide 5 shipson
000710:  20 74 68 65 20 67 72 69 64 20 61 6E 64 20 79 6F     the grid and yo
000720:  75 20 6D 75 73 74 20 64 6F 20 74 68 65 20 73 61    u must do the sa
000730:  6D 65 2E 22 00 34 00 1C 02 BF 01 BF 01 BB 20 10    me.".4........ .
000740:  01 20 BF 22 50 48 A6 72 65 73 73 20 74 68 65 20    . ."PH.ress the 
000750:  3C 53 70 61 63 65 20 42 61 72 3E 20 74 6F 20 63    <Space Bar> to c
000760:  6F 6E 74 69 6E 75 65 2E 2E 22 00 1F 00 26 02 03    ontinue.."...&..
000770:  00 00 61 E1 EF FF 43 01 A1 20 03 00 00 61 E1 F2    ..a...C.. ...a..
000780:  22 20 22 20 EB 20 1E 26 02 00 60 00 30 02 8A 01    " " . .&..`.0...
000790:  BF 22 59 6F 75 20 77 69 6C 6C 20 74 61 6B 65 20    ."You will take 
0007A0:  74 75 72 6E 73 20 77 69 74 68 20 74 68 65 20 63    turns with the c
0007B0:  6F 6D 70 75 74 65 72 20 74 6F 67 75 65 73 73 20    omputer toguess 
0007C0:  74 68 65 20 6C 6F 63 61 74 69 6F 6E 20 6F 66 20    the location of 
0007D0:  79 6F 75 72 20 6F 70 70 6F 6E 65 6E 74 73 20 20    your opponents  
0007E0:  20 20 73 68 69 70 73 2E 22 00 4D 00 3A 02 BF 22      ships.".M.:.."
0007F0:  54 68 65 20 77 69 6E 6E 65 72 20 69 73 20 74 68    The winner is th
000800:  65 20 6F 6E 65 20 77 68 6F 20 6C 6F 63 61 74 65    e one who locate
000810:  73 20 61 6C 6C 20 20 20 74 68 65 69 72 20 6F 70    s all   their op
000820:  70 6F 6E 65 6E 74 73 20 73 68 69 70 73 20 66 69    ponents ships fi
000830:  72 73 74 20 21 22 00 38 00 44 02 A9 20 10 2C 19    rst !".8.D.. .,.
000840:  16 01 20 BB 20 0F 01 B3 39 20 BF 22 50 72 65 73    .. . ...9 ."Pres
000850:  73 20 74 68 65 20 3C 53 70 61 63 65 20 42 61 72    s the <Space Bar
000860:  3E 20 74 6F 20 73 74 61 72 74 20 67 61 6D 65 22    > to start game"
000870:  00 20 00 4E 02 03 00 00 61 E1 EF FF 43 01 20 A1    . .N....a...C. .
000880:  20 03 00 00 61 E1 F2 22 20 22 20 EB 20 1E 4E 02     ...a.." " . .N.
000890:  00 06 00 58 02 C9 00 06 00 62 02 98 00 34 00 6C    ...X.....b...4.l
0008A0:  02 C5 20 2A 2A 73 75 62 72 6F 75 74 69 6E 65 20    .. **subroutine 
0008B0:  74 6F 20 63 68 6F 6F 73 65 20 63 6F 6D 70 75 74    to choose comput
0008C0:  65 72 27 73 20 70 6F 73 69 74 69 6F 6E 73 2A 2A    er's positions**
0008D0:  00 18 00 76 02 A5 20 0D 00 00 E4 EF FF 0C 28 FF    ...v.. .......(.
0008E0:  45 28 0F 29 F6 19 51 29 00 32 00 80 02 C5 20 2A    E(.)..Q).2.... *
0008F0:  2A 20 61 72 72 61 79 20 61 24 28 78 2C 79 29 20    * array a$(x,y) 
000900:  68 6F 6C 64 73 20 70 6F 73 69 74 69 6F 6E 20 6F    holds position o
000910:  66 20 73 68 69 70 73 20 2A 2A 00 17 00 8A 02 A5    f ships **......
000920:  20 0D 00 00 E1 EF FF 0C 28 FF 45 28 0F 29 F6 10     .......(.E(.)..
000930:  29 00 4A 00 94 02 C5 20 2A 2A 20 69 66 20 61 3D    ).J.... ** if a=
000940:  30 20 74 68 65 6E 20 73 68 E1 67 FF FF FF FF 11    0 then sh.g.....
000950:  8A 04 45 02 45 02 45 02 8A 04 00 10 08 0A 00 07    ..E.E.E.........
000960:  01 00 2C 42 41 54 54 4C 45 53 48 49 50 53 00 00    ..,BATTLESHIPS..
000970:  00 00 00 02 00 00 00 08 70 09 00 51 1D 00 00 00    ........p..Q....
000980:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000990:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0009A0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0009B0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0009C0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0009D0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0009E0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0009F0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000A00:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000A10:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000A20:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000A30:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000A40:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000A50:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
000A60:  00 00 00 43 93 FF FF FF FF 11 8A 04 45 02 45 02    ...C........E.E.
000A70:  45 02 8A 04 00 10 08 C4 09 15 08 00 16 69 70 20    E............ip 
000A80:  69 73 20 68 6F 72 69 7A 6F 6E 74 61 6C 20 6F 74    is horizontal ot
000A90:  68 65 72 77 69 73 65 20 74 68 65 20 73 68 69 70    herwise the ship
000AA0:  20 69 73 20 76 65 72 74 69 63 61 6C 20 2A 2A 00     is vertical **.
000AB0:  30 00 9E 02 A5 20 0D 00 00 F8 EF 14 20 01 20 C5    0.... ...... . .
000AC0:  20 2A 2A 20 73 69 7A 65 20 6F 66 20 61 69 72 63     ** size of airc
000AD0:  72 61 66 74 20 63 61 72 72 69 65 72 20 2A 2A 00    raft carrier **.
000AE0:  51 00 A8 02 0D 00 00 EB EF FF 0C 28 FF 45 28 0F    Q..........(.E(.
000AF0:  29 F6 11 29 F4 0F 01 20 0D 00 00 EC EF FF 0C 28    )..)... .......(
000B00:  FF 45 28 0F 29 F6 11 29 F4 0F 01 20 C5 20 72 61    .E(.)..)... . ra
000B10:  6E 64 6F 6D 20 78 20 61 6E 64 20 79 20 63 6F 6F    ndom x and y coo
000B20:  72 64 69 6E 61 74 65 73 20 6F 66 20 73 68 69 70    rdinates of ship
000B30:  00 0A 00 B2 02 9F 20 1E FC 03 00 44 00 BC 02 A1    ...... ....D....
000B40:  20 0D 00 00 61 E1 EF 0F 20 EB 20 1E 9E 02 01 20     ...a... . .... 
000B50:  C5 20 2A 2A 20 69 66 20 6C 6F 63 61 74 69 6F 6E    . ** if location
000B60:  20 61 6C 72 65 61 64 79 20 68 61 73 20 73 68 69     already has shi
000B70:  70 2E 2E 2E 20 74 72 79 20 61 67 61 69 7F 79 6E    p... try agai.yn
000B80:  00 0D 00 C6 02 03 00 00 FA EF 22 41 22 00 20 00    .........."A". .
000B90:  D0 02 C5 20 2A 2A 20 70 75 74 20 73 68 69 70 20    ... ** put ship 
000BA0:  69 6E 74 6F 20 61 72 72 61 79 20 2A 2A 00 0A 00    into array **...
000BB0:  DA 02 9F 20 1E 38 04 00 37 00 E4 02 0D 00 00 E1    ... .8..7.......
000BC0:  EF FF 0C 28 FF 45 28 0F 29 F6 10 29 01 20 C5 20    ...(.E(.)..). . 
000BD0:  2A 2A 20 73 68 69 70 20 68 6F 72 69 7A 6F 6E 74    ** ship horizont
000BE0:  61 6C 20 6F 72 20 76 65 72 74 69 63 61 6C 00 21    al or vertical.!
000BF0:  00 EE 02 0D 00 00 F8 EF 13 01 20 C5 20 2A 2A 20    .......... . ** 
000C00:  73 69 7A 65 20 6F 66 20 73 68 69 70 20 2A 2A 00    size of ship **.
000C10:  50 00 F8 02 A5 20 0D 00 00 EB EF FF 0C 28 FF 45    P.... .......(.E
000C20:  28 0F 29 F6 12 29 F4 0F 01 20 A5 20 0D 00 00 EC    (.)..)... . ....
000C30:  EF FF 0C 28 FF 45 28 0F 29 F6 12 29 F4 0F 01 20    ...(.E(.)..)... 
000C40:  C5 20 2A 2A 20 72 61 6E 64 6F 6D 20 63 6F 6F 72    . ** random coor
000C50:  64 69 6E 61 74 65 73 20 6F 66 20 73 68 69 70 00    dinates of ship.
000C60:  0A 00 02 03 9F 20 1E FC 03 00 14 00 0C 03 A1 20    ..... ......... 
000C70:  0D 00 00 61 E1 EF 0F 20 EB 20 1E F8 02 00 0D 13    ...a... . ......
000C80:  E7 00 16 03 03 00 00 FA EF 22 42 22 00 0A 00 20    ........."B"... 
000C90:  03 9F 20 1E 38 04 00 15 00 2A 03 0D 00 00 E1 EF    .. .8....*......
000CA0:  FF 0C 28 FF 45 28 0F 29 F6 10 29 00 1E 00 34 03    ..(.E(.)..)...4.
000CB0:  0D 00 00 F8 EF 12 01 20 C5 20 2A 2A 20 73 68 69    ....... . ** shi
000CC0:  70 20 73 69 7A 65 20 2A 2A 00 49 00 3E 03 0D 00    p size **.I.>...
000CD0:  00 EB EF FF 0C 28 FF 45 28 0F 29 F6 13 29 F4 0F    .....(.E(.)..)..
000CE0:  01 20 0D 00 00 EC EF FF 0C 28 FF 45 28 0F 29 F6    . .......(.E(.).
000CF0:  13 29 F4 0F 01 20 C5 20 72 61 6E 64 6F 6D 20 63    .)... . random c
000D00:  6F 6F 72 64 69 6E 61 74 65 73 20 6F 66 20 73 68    oordinates of sh
000D10:  69 70 00 0A 00 48 03 9F 20 1E FC 03 00 14 00 52    ip...H.. ......R
000D20:  03 A1 20 0D 00 00 61 E1 EF 0F 20 EB 20 1E 3E 03    .. ...a... . .>.
000D30:  00 0D 00 5C 03 03 00 00 FA EF 22 43 22 00 0A 00    ...\......"C"...
000D40:  66 03 9F 20 1E 38 04 00 15 00 70 03 0D 00 00 E1    f.. .8....p.....
000D50:  EF FF 0C 28 FF 45 28 0F 29 F6 10 29 00 0B 00 7A    ...(.E(.)..)...z
000D60:  03 0D 00 00 F8 EF 11 00 2B 00 84 03 0D 00 00 EB    ........+.......
000D70:  EF FF 0C 28 FF 45 28 0F 29 F6 14 29 F4 0F 01 20    ...(.E(.)..)... 
000D80:  0D 58 1D 00 00 EC EF FF 0C 28 FF 45 28 0F 29 F6    .X.......(.E(.).
000D90:  14 29 F4 0F 00 0A 00 8E 03 9F 20 1E FC 03 00 14    .)........ .....
000DA0:  00 98 03 A1 20 0D 00 00 61 E1 EF 0F 20 EB 20 1E    .... ...a... . .
000DB0:  84 03 00 14 00 A2 03 03 00 00 FA EF 22 53 22 01    ............"S".
000DC0:  20 9F 20 1E 38 04 00 15 00 AC 03 0D 00 00 E1 EF     . .8...........
000DD0:  FF 0C 28 FF 45 28 0F 29 F6 10 29 00 0B 00 B6 03    ..(.E(.)..).....
000DE0:  0D 00 00 F8 EF 10 00 2A 00 C0 03 0D 00 00 EB EF    .......*........
000DF0:  FF 0C 28 FF 45 28 0F 29 F6 15 29 F4 0F 01 0D 00    ..(.E(.)..).....
000E00:  00 EC EF FF 0C 28 FF 45 28 0F 29 F6 15 29 F4 0F    .....(.E(.)..)..
000E10:  00 1B 00 CA 03 9F 20 1E FC 03 01 20 A1 20 0D 00    ...... .... . ..
000E20:  00 61 E1 EF 0F 20 EB 20 1E C0 03 00 0D 00 D4 03    .a... . ........
000E30:  03 00 00 FA EF 22 44 22 00 0A 00 DE 03 9F 20 1E    ....."D"...... .
000E40:  38 04 00 06 00 E8 03 C9 00 2C 00 F2 03 C5 20 2A    8........,.... *
000E50:  2A 20 63 68 65 63 6B 20 69 66 20 61 72 72 61 79    * check if array
000E60:  20 65 6C 65 6D 65 6E 74 20 69 73 20 65 6D 70 74     element is empt
000E70:  79 20 2A 2A 00 0C 00 FC 03 0D 00 00 61 E1 EF 0E    y **........a...
000E80:  00 14 00 8D 35 06 04 9E 20 0D 00 00 F0 EF 0E 20    ....5... ...... 
000E90:  EC 20 0D 00 00 F8 00 33 00 10 04 A1 20 0D 00 00    . .....3.... ...
000EA0:  E1 EF 0E 20 EB 20 A1 20 03 00 00 E1 28 0D 00 00    ... . . ....(...
000EB0:  EB F4 0D 00 00 F0 2C 0D 00 00 EC 29 F2 22 22 20    ......,....)."" 
000EC0:  EB 20 0D 00 00 61 E1 EF 0F 00 33 00 1A 04 A1 20    . ...a....3.... 
000ED0:  0D 00 00 E1 EF 0F 20 EB 20 A1 20 03 00 00 E1 28    ...... . . ....(
000EE0:  0D 00 00 EB 2C 0D 00 00 EC F4 0D 00 00 F0 29 F2    ....,.........).
000EF0:  22 22 20 EB 20 0D 00 00 61 E1 EF 0F 00 06 00 24    "" . ...a......$
000F00:  04 B0 00 06 00 2E 04 C9 00 14 00 38 04 9E 20 0D    ...........8.. .
000F10:  00 00 F0 EF 0F 20 EC 20 0D 00 00 F8 00 29 00 42    ..... . .....).B
000F20:  04 A1 20 0D 00 00 E1 EF 0E 20 EB 20 03 00 00 E1    .. ...... . ....
000F30:  28 0D 00 00 EB F4 0D 00 00 F0 2C 0D 00 00 EC 29    (.........,....)
000F40:  EF 03 00 00 FA 00 29 00 4C 04 A1 20 0D 00 00 E1    ......).L.. ....
000F50:  EF 0F 20 EB 20 03 00 00 E1 28 0D 00 00 EB 2C 0D    .. . ....(....,.
000F60:  00 00 EC F4 0D 00 00 F0 29 EF 03 00 00 FA 00 06    ........).......
000F70:  00 56 04 B0 00 06 00 60 04 C9 00 1E 00 6A 04 C5    .V.....`.....j..
000F80:  20 2A 2A 20 53 89 C4 65 74 20 75 70 20 79 6F 75     ** S..et up you
000F90:  72 20 62 6F 61 72 64 20 2A 2A 00 16 00 74 04 9E    r board **...t..
000FA0:  20 0D 00 00 F0 EF 14 20 EC 20 10 20 E6 20 F5 0F     ...... . . . ..
000FB0:  00 20 00 7E 04 03 00 00 EB EF 22 53 68 69 70 20    . .~......"Ship 
000FC0:  53 69 7A 65 20 3D 22 F4 FF 19 28 0D 00 00 F0 29    Size ="...(....)
000FD0:  00 18 00 88 04 A9 20 0F 2C 19 15 01 20 BB 20 0F    ...... .,... . .
000FE0:  01 20 BF 20 03 00 00 EB 00 0C 00 92 04 0D 00 00    . . ............
000FF0:  61 E2 EF 0E 00 30 00 9C 04 A9 20 0F 2C 19 17 01    a....0.... .,...
001000:  20 BF 22 45 6E 74 65 72 20 74 68 65 20 62 6F 77     ."Enter the bow
001010:  20 70 6F 73 69 74 69 6F 6E 20 6F 66 20 79 6F 75     position of you
001020:  72 20 20 22 00 2D 00 A6 04 A9 20 0F 2C 19 18 01    r  ".-.... .,...
001030:  20 BF 20 03 00 00 E3 28 0D 00 00 F0 29 01 20 9E     . ....(....). .
001040:  20 0D 00 00 70 EC EF 0F 20 EC 20 1A 4A 01 01 20     ...p... . .J.. 
001050:  B0 00 36 00 B0 04 A9 20 0F 2C 19 16 01 BF 22 20    ..6.... .,...." 
001060:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001070:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001080:  20 20 20 20 20 20 20 60 6F 00 17 00 BA 04 A9 20           `o...... 
001090:  19 19 2C 19 18 01 20 BF 22 20 20 20 20 20 20 22    ..,... ."      "
0010A0:  00 0C 00 C4 04 0D 00 00 E5 EF 19 19 00 11 00 CE    ................
0010B0:  04 9E 20 0D 00 00 E1 EF 0F 20 EC 20 10 00 29 00    .. ...... . ..).
0010C0:  D8 04 03 00 00 E4 28 0D 00 00 E1 29 EF FF 43 01    ......(....)..C.
0010D0:  20 A1 20 03 00 00 E4 28 0D 00 00 E1 29 EF 22 22     . ....(....).""
0010E0:  20 EB 20 1E D8 04 00 20 00 E2 04 A9 20 0D 00 00     . .... .... ...
0010F0:  E5 2C 19 18 01 20 BF 20 FF 1C 28 03 00 00 E4 28    .,... . ..(....(
001100:  0D 00 00 E1 29 29 00 2C 00 EC 04 0D 00 00 E5 EF    ....)).,........
001110:  0D 00 00 E5 F4 10 20 01 20 03 00 00 E4 28 0D 00    ...... . ....(..
001120:  00 E1 29 EF FF 11 28 03 00 00 E4 28 0D 00 00 E1    ..)...(....(....
001130:  29 29 00 06 00 F6 04 B0 00 16 00 00 05 A9 20 19    ))............ .
001140:  19 2C 19 18 01 20 BF 22 20 20 20 20 20 22 00 40    .,... ."     ".@
001150:  00 0A 05 9F 20 1E A0 05 01 20 0D 00 00 79 B1 EF    .... .... ...y..
001160:  0D 00 00 F9 01 0D 00 00 78 B1 EF 0D 00 00 F8 20    ........x...... 
001170:  01 20 C5 20 2A 2A 20 63 68 65 63 6B 20 69 66 20    . . ** check if 
001180:  70 6F 69 6E 74 20 6F 6E 20 93 0A 62 6F 61 72 64    point on ..board
001190:  00 14 00 14 05 A1 20 0D 00 00 61 E2 F2 0E 20 EB    ...... ...a... .
0011A0:  20 1E 7E 04 00 31 00 1E 05 A9 20 0F 2C 19 17 01     .~..1.... .,...
0011B0:  BF 22 45 6E 74 65 72 20 74 68 65 20 73 74 65 72    ."Enter the ster
0011C0:  6E 20 70 6F 73 69 74 69 6F 6E 20 6F 66 20 79 6F    n position of yo
0011D0:  75 72 20 20 22 00 21 00 28 05 A9 20 0F 2C 19 18    ur  ".!.(.. .,..
0011E0:  01 20 BF 20 03 00 00 E3 28 0D 00 00 F0 29 01 0D    . . ....(....)..
0011F0:  00 00 E5 EF 19 19 00 11 00 32 05 9E 20 0D 00 00    .........2.. ...
001200:  E1 EF 0F 20 EC 20 10 00 28 00 3C 05 03 00 00 E4    ... . ..(.<.....
001210:  28 0D 00 00 E1 29 EF FF 43 01 A1 20 03 00 00 E4    (....)..C.. ....
001220:  28 0D 00 00 E1 29 EF 22 22 20 EB 20 1E 3C 05 00    (....)."" . .<..
001230:  47 00 46 05 A9 20 0D 00 00 E5 2C 19 18 01 BF 20    G.F.. ....,.... 
001240:  FF 1C 28 03 00 00 E4 28 0D 00 00 E1 29 29 01 0D    ..(....(....))..
001250:  00 00 E5 EF 0D 00 00 E5 F4 10 20 01 20 03 00 00    .......... . ...
001260:  E4 28 0D 00 00 E1 29 EF FF 11 28 03 00 00 E4 28    .(....)...(....(
001270:  0D 00 00 E1 29 29 00 1A 00 50 05 B0 01 20 9E 20    ....))...P... . 
001280:  0D 00 00 70 F0 EF 0F 20 EC 20 1A 7D 7C FF FF FF    ...p... . .}|...
001290:  FF 11 8A 04 45 02 45 02 45 02 8A 04 00 10 08 0A    ....E.E.E.......
0012A0:  00 07 01 00 2C 42 41 54 54 4C 45 53 48 49 50 53    ....,BATTLESHIPS
0012B0:  00 00 00 00 00 03 00 00 00 08 70 11 00 51 1D 00    ..........p..Q..
0012C0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0012D0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0012E0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0012F0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001300:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001310:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001320:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001330:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001340:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001350:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001360:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001370:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001380:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001390:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0013A0:  00 00 00 00 00 12 0C FF FF FF FF 11 8A 04 45 02    ..............E.
0013B0:  45 02 45 02 8A 04 00 10 08 C4 09 15 08 00 16 4A    E.E............J
0013C0:  01 01 20 B0 00 36 00 5A 05 A9 20 0F 2C 19 16 01    .. ..6.Z.. .,...
0013D0:  BF 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20    ."              
0013E0:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
0013F0:  20 20 20 20 20 20 20 20 20 20 00 40 00 64 05 9F              .@.d..
001400:  20 1E A0 05 01 20 0D 00 00 79 B2 EF 0D 00 00 F9     .... ...y......
001410:  01 20 0D 00 00 78 B2 EF 0D 00 00 F8 01 20 C5 20    . ...x....... . 
001420:  2A 2A 20 63 68 65 63 6B 20 76 61 6C 69 64 69 74    ** check validit
001430:  79 20 6F 66 20 70 6F 69 6E 74 00 21 00 6E 05 A1    y of point.!.n..
001440:  20 0D 00 00 79 B1 EF 0D 00 00 79 B2 20 EB 20 9F     ...y.....y. . .
001450:  20 1E E6 05 01 20 A0 20 1E 8C 05 00 21 00 78 05     .... . ....!.x.
001460:  A1 20 0D 00 00 78 B1 EF 0D 00 00 78 B2 20 EB 20    . ...x.....x. . 
001470:  9F 20 1E 72 06 01 20 A0 20 1E 8C 05 00 38 00 82    . .r.. . ....8..
001480:  05 A9 20 0F 2C 19 16 01 20 BF 22 59 6F 75 20 68    .. .,... ."You h
001490:  61 76 65 20 6D 61 64 65 20 61 20 6D 69 73 74 61    ave made a mista
0014A0:  6B 65 20 21 22 01 20 0D 00 00 61 E2 EF 0F 01 A0    ke !". ...a.....
0014B0:  20 1E 9C 04 00 06 00 8C 05 B0 00 06 00 96 05 61     ..............a
0014C0:  E6 C9 00 18 00 A0 05 0D 00 00 F9 EF FF 01 28 03    ..............(.
0014D0:  00 00 E4 28 0F 29 29 F5 19 60 00 1E 00 AA 05 A1    ...(.))..`......
0014E0:  20 0D 00 00 F9 F1 0F 20 FC 20 0D 00 00 F9 EE 17     ...... . ......
0014F0:  20 EB 20 9F 20 1E D2 05 00 15 00 B4 05 0D 00 00     . . ...........
001500:  F8 EF FF 1D 28 03 00 00 E4 28 10 29 29 00 35 00    ....(....(.)).5.
001510:  BE 05 A1 20 0D 00 00 F8 F1 0F 20 FC 20 0D 00 00    ... ...... . ...
001520:  F8 EE 17 20 EB 20 9F 20 1E D2 05 01 20 C5 20 2A    ... . . .... . *
001530:  2A 20 64 69 73 70 6C 61 79 20 65 72 72 6F 72 20    * display error 
001540:  2A 2A 00 06 00 C8 05 C9 00 3A 00 D2 05 A9 20 0F    **.......:.... .
001550:  2C 19 16 01 20 BF 22 49 6E 63 6F 72 72 65 63 74    ,... ."Incorrect
001560:  20 63 6F 2D 6F 72 64 69 6E 61 74 65 73 3A 2D 20     co-ordinates:- 
001570:  74 72 79 20 61 67 61 69 6E 22 01 0D 00 00 61 E2    try again"....a.
001580:  EF 0F 00 06 00 DC 05 C9 00 34 00 E6 05 0D 00 00    .........4......
001590:  EC EF 0D 00 00 78 B1 F5 0D 00 00 78 B2 01 20 A1    .....x.....x.. .
0015A0:  20 0D 00 00 EC F1 0F 20 EB 20 0D 00 00 EC 20 EF     ...... . .... .
0015B0:  20 0D 00 00 78 B2 F5 0D 00 00 78 B1 00 10 00 F0     ...x.....x.....
0015C0:  05 7F 09 0D 00 00 EC EF 0D 00 00 EC F4 0F 00 28    ...............(
0015D0:  00 FA 05 A1 20 0D 00 00 EC F2 0D 00 00 F0 20 EB    .... ......... .
0015E0:  20 9F 20 1E D2 05 01 20 0D 00 00 F0 EF 0D 00 00     . .... ........
0015F0:  F0 F4 0F 01 20 C9 00 79 00 04 06 A1 20 0D 00 00    .... ..y.... ...
001600:  EC EF 14 20 EB 20 03 00 00 7A FA EF 22 41 22 20    ... . ...z.."A" 
001610:  01 97 20 A1 20 0D 00 00 EC EF 13 20 EB 20 03 00    .. . ...... . ..
001620:  00 7A FA EF 22 42 22 20 01 97 20 A1 20 0D 00 00    .z.."B" .. . ...
001630:  EC EF 12 20 EB 20 03 00 00 7A FA EF 22 43 22 20    ... . ...z.."C" 
001640:  01 97 20 A1 20 0D 00 00 EC EF 11 20 EB 20 03 00    .. . ...... . ..
001650:  00 7A FA EF 22 53 22 20 01 97 20 A1 20 0D 00 00    .z.."S" .. . ...
001660:  EC EF 10 20 EB 20 03 00 00 7A FA EF 22 44 22 00    ... . ...z.."D".
001670:  29 00 0E 06 C5 20 2A 2A 20 63 68 65 63 6B 20 69    ).... ** check i
001680:  66 20 6C 6F 63 61 74 69 6F 6E 20 6F 63 63 75 70    f location occup
001690:  69 65 64 20 21 20 2A 2A 00 66 00 18 06 A1 20 0D    ied ! **.f.... .
0016A0:  00 00 78 B1 EE 0D 00 00 78 B2 20 EB 20 0D 00 00    ..x.....x. . ...
0016B0:  6B EB EF 0D 00 00 78 B1 01 0D 00 00 78 B1 EF 0D    k.....x.....x...
0016C0:  00 00 78 11 8A B2 01 0D 00 00 78 B2 EF 0D 00 00    ..x.......x.....
0016D0:  6B EB 20 01 C5 20 2A 2A 20 73 77 61 70 20 63 6F    k. .. ** swap co
0016E0:  6F 72 69 6E 64 61 74 65 73 20 61 72 6F 75 6E 64    orindates around
0016F0:  20 69 66 20 77 72 6F 6E 67 20 77 61 79 20 2A 2A     if wrong way **
001700:  00 45 00 22 06 9E 20 0D 00 00 F3 EF 0D 00 00 78    .E.".. ........x
001710:  B1 20 EC 20 0D 00 00 78 B2 01 A1 20 03 00 00 E2    . . ...x... ....
001720:  28 0D 00 00 F3 2C 0D 00 00 79 B1 29 F2 22 22 20    (....,...y.)."" 
001730:  EB 20 9F 20 1E D2 05 01 0D 00 00 F0 EF 0D 00 00    . . ............
001740:  F0 F4 0F 01 C9 00 0B 00 2C 06 B0 20 0D 00 00 F3    ........,.. ....
001750:  00 34 00 36 06 9E 20 0D 00 00 F3 EF 0D 00 00 78    .4.6.. ........x
001760:  B1 20 EC 20 0D 00 00 78 B2 01 20 03 00 00 E2 28    . . ...x.. ....(
001770:  0D 00 00 F3 2C 0D 00 00 79 B1 29 EF 03 00 00 7A    ....,...y.)....z
001780:  FA 01 20 B0 00 19 00 40 06 9E 20 0D 00 00 F3 EF    .. ....@.. .....
001790:  0D 00 00 78 B1 20 EC 20 0D 00 00 78 B2 00 15 00    ...x. . ...x....
0017A0:  4A 06 C5 20 64 69 73 70 6C 61 79 20 63 68 6F 69    J.. display choi
0017B0:  63 65 00 21 00 54 06 A9 20 0D 00 00 F3 F6 10 F4    ce.!.T.. .......
0017C0:  0F 2C 0D 00 00 E8 2C 79 B1 F6 10 F4 0F 01 BF 20    .,....,y....... 
0017D0:  03 00 00 7A FA 00 0B 00 5E 06 B0 20 0D 00 00 F3    ...z....^.. ....
0017E0:  00 06 00 68 06 C9 00 32 00 72 06 0D 00 00 EC EF    ...h...2.r......
0017F0:  0D 00 00 79 B1 F5 0D 00 00 79 B2 01 20 A1 20 0D    ...y.....y.. . .
001800:  00 00 EC F1 0F 20 EB 20 0D 00 00 EC EF 0D 00 00    ..... . ........
001810:  79 B2 F5 0D 00 00 79 B1 00 10 00 7C 06 0D 00 00    y.....y....|....
001820:  EC EF 0D 00 00 EC F4 0F 00 26 00 86 06 A1 20 0D    .........&.... .
001830:  00 00 EC F2 0D 00 00 F0 20 EB 20 9F 20 1E D2 05    ........ . . ...
001840:  01 0D 00 00 F0 EF 0D 00 00 F0 F4 0F 01 C9 00 79    ...............y
001850:  00 90 06 A1 20 0D 00 00 EC EF 14 20 EB 20 03 00    .... ...... . ..
001860:  00 7A FA EF 22 41 22 20 01 97 20 A1 20 0D 00 00    .z.."A" .. . ...
001870:  EC EF 13 20 EB 20 03 00 00 7A FA EF 22 42 22 20    ... . ...z.."B" 
001880:  01 97 20 A1 20 0D 00 00 EC EF 12 20 EB 20 03 00    .. . ...... . ..
001890:  00 7A FA EF 22 43 22 20 01 97 20 A1 20 0D 00 00    .z.."C" .. . ...
0018A0:  EC EF 11 20 EB 20 03 00 00 7A FA EF 22 53 22 20    ... . ...z.."S" 
0018B0:  01 97 20 A1 20 0D 00 00 EC EF 10 20 EB 20 03 00    .. . ...... . ..
0018C0:  00 7A FA EF 22 44 22 68 EB 00 2C 00 9A 06 C5 20    .z.."D"h..,.... 
0018D0:  2A 2A 20 63 68 65 63 6B 20 69 66 20 6C 6F 63 61    ** check if loca
0018E0:  74 69 6F 6E 20 61 6C 72 65 61 64 79 20 6F 63 63    tion already occ
0018F0:  75 70 69 65 64 00 54 00 A4 06 A1 20 0D 00 00 79    upied.T.... ...y
001900:  B1 EE 0D 00 00 79 B2 20 EB 20 0D 00 00 6B EB EF    .....y. . ...k..
001910:  0D 00 00 79 B1 01 0D 00 00 79 B1 EF 0D 00 00 79    ...y.....y.....y
001920:  B2 01 0D 00 00 79 B2 EF 0D 00 00 6B EB 01 20 C5    .....y.....k.. .
001930:  20 73 77 61 6D 70 20 63 6F 6F 72 64 69 6E 61 74     swamp coordinat
001940:  65 73 20 61 72 6F 75 6E 64 00 47 00 AE 06 9E 20    es around.G.... 
001950:  0D 00 00 F3 EF 20 0D 00 00 79 B1 20 EC 20 0D 00    ..... ...y. . ..
001960:  00 79 B2 01 20 A1 20 03 00 00 E2 28 0D 00 00 78    .y.. . ....(...x
001970:  B1 2C 0D 00 00 F3 29 F2 22 22 20 EB 20 9F 20 1E    .,....)."" . . .
001980:  D2 05 01 0D 00 00 F0 EF 0D 00 00 F0 F4 0F 01 C9    ................
001990:  00 0B 00 B8 06 B0 20 0D 00 00 F3 00 33 00 C2 06    ...... .....3...
0019A0:  9E 20 0D 00 00 F3 EF 0D 00 00 79 B1 20 EC 20 0D    . ........y. . .
0019B0:  00 00 79 B2 01 20 03 00 00 E2 28 0D 00 00 78 B1    ..y.. ....(...x.
0019C0:  2C 0D 00 00 F3 29 EF 03 00 C9 42 00 7A FA 01 B0    ,....)....B.z...
0019D0:  00 19 00 CC 06 9E 20 0D 00 00 F3 EF 0D 00 00 79    ...... ........y
0019E0:  B1 20 EC 20 0D 00 00 79 B2 00 23 00 D6 06 C5 20    . . ...y..#.... 
0019F0:  2A 2A 20 64 69 73 70 6C 61 79 20 63 68 6F 69 63    ** display choic
001A00:  65 20 6F 66 20 73 68 69 70 20 2A 2A 00 21 00 E0    e of ship **.!..
001A10:  06 A9 20 0D 00 00 78 B1 F6 10 F4 0F 2C 0D 00 00    .. ...x.....,...
001A20:  F3 F6 10 F4 0F 01 BF 20 03 00 00 7A FA 00 06 00    ....... ...z....
001A30:  EA 06 B0 00 06 00 F4 06 C9 00 34 00 FE 06 A9 20    ..........4.... 
001A40:  0F 2C 19 15 01 20 BF 22 45 6E 74 65 72 20 79 6F    .,... ."Enter yo
001A50:  75 72 20 6D 69 73 73 69 6C 65 20 63 6F 6F 72 64    ur missile coord
001A60:  69 6E 61 74 65 73 20 6E 6F 77 3A 2D 22 00 37 00    inates now:-".7.
001A70:  08 07 A9 20 0F 2C 19 16 01 20 BF 22 20 20 20 20    ... .,... ."    
001A80:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001A90:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001AA0:  20 20 20 22 00 0C 00 12 07 0D 00 00 E5 EF 19 19       "............
001AB0:  00 37 00 1C 07 A9 20 0F 2C 19 17 01 20 BF 22 20    .7.... .,... ." 
001AC0:  20 20 20 20 20 20 20 20 20 20 20 C4 3A 20 20 20               .:   
001AD0:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001AE0:  20 20 20 20 20 20 20 20 22 00 37 00 26 07 A9 20            ".7.&.. 
001AF0:  0F 2C 19 18 01 20 BF 22 20 20 20 20 20 20 20 20    .,... ."        
001B00:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001B10:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22                   "
001B20:  00 37 00 30 07 A9 20 0F 2C 19 19 01 20 BF 22 20    .7.0.. .,... ." 
001B30:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001B40:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001B50:  20 20 20 20 20 20 22 00 0C 00 3A 07 0D 00 00 61          "...:....a
001B60:  E2 EF 0E 00 11 00 44 07 9E 20 0D 00 00 E1 EF 0F    ......D.. ......
001B70:  20 EC 20 10 00 29 00 4E 07 03 00 00 E4 28 0D 00     . ..).N.....(..
001B80:  00 E1 29 EF FF 43 01 20 A1 20 03 00 00 E4 28 0D    ..)..C. . ....(.
001B90:  00 00 E1 29 EF 22 22 20 EB 20 1E 4E 07 00 4A 00    ...)."" . .N..J.
001BA0:  58 07 03 00 00 E4 28 0D 00 00 E1 29 EF FF 11 28    X.....(....)...(
001BB0:  03 00 00 E4 28 0D 00 00 E1 29 29 01 A9 20 0D 00    ....(....)).. ..
001BC0:  00 E5 2C 19 18 01 20 BF 20 FF 1C 28 03 A4 EB FF    ..,... . ..(....
001BD0:  FF FF FF 11 8A 04 45 02 45 02 45 02 8A 04 00 10    ......E.E.E.....
001BE0:  08 0A 00 07 01 00 2C 42 41 54 54 4C 45 53 48 49    ......,BATTLESHI
001BF0:  50 53 00 00 00 00 00 04 FF 00 51 05 70 19 00 51    PS........Q.p..Q
001C00:  1D 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001C10:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001C20:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001C30:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001C40:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001C50:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001C60:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001C70:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001C80:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001C90:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001CA0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001CB0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001CC0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001CD0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
001CE0:  00 00 00 00 00 00 00 76 F7 FF FF FF FF 11 8A 04    .......v........
001CF0:  45 02 45 02 45 02 8A 04 00 10 08 C4 09 11 06 00    E.E.E...........
001D00:  16 00 00 E4 28 0D 00 00 E1 29 29 01 20 0D 00 00    ....(....)). ...
001D10:  E5 EF 0D 00 00 E5 F4 10 01 20 B0 00 28 00 62 07    ......... ..(.b.
001D20:  9F 20 1E A0 05 01 20 C5 20 2A 2A 20 63 68 65 63    . .... . ** chec
001D30:  6B 20 69 66 20 70 6F 69 6E 74 20 69 73 20 76 61    k if point is va
001D40:  6C 69 64 00 27 00 6C 07 A1 20 0D 00 00 61 E2 EF    lid.'.l.. ...a..
001D50:  0F 20 EB 20 9E 20 0D 00 00 E8 EF 0F 20 EC 20 1A    . . . ...... . .
001D60:  4A 01 01 B0 01 A0 20 1E FE 06 00 37 00 76 07 C5    J..... ....7.v..
001D70:  20 2A 2A 20 63 68 65 63 6B 20 69 66 20 79 6F 75     ** check if you
001D80:  20 68 61 76 65 20 61 6C 72 65 61 64 79 20 67 75     have already gu
001D90:  65 73 73 65 64 20 6C 6F 63 61 74 69 6F 6E 20 2A    essed location *
001DA0:  2A 00 4F 00 80 07 A1 20 03 00 00 E1 28 0D 00 00    *.O.... ....(...
001DB0:  F8 2C 0D 00 00 F9 29 EF 22 2B 22 20 EB 20 A9 20    .,....)."+" . . 
001DC0:  0F 2C 19 16 01 20 BF 22 41 6C 72 65 61 64 79 20    .,... ."Already 
001DD0:  74 72 69 65 64 20 21 22 01 9E 20 0D 00 00 E8 EF    tried !".. .....
001DE0:  0F 20 EC 20 1A 4A 01 01 20 B0 01 A0 20 1E FE 06    . . .J.. ... ...
001DF0:  00 2D 00 8A 07 C5 20 2A 2A 20 63 68 65 63 6B 20    .-.... ** check 
001E00:  69 8D B0 66 20 63 6F 6D 70 75 74 65 72 20 68 61    i..f computer ha
001E10:  73 20 73 68 69 70 20 74 68 65 72 65 20 2A 2A 00    s ship there **.
001E20:  61 00 94 07 A1 20 03 00 00 E1 28 0D 00 00 F8 2C    a.... ....(....,
001E30:  0D 00 00 F9 29 EF 22 22 20 EB 20 03 00 00 E1 28    ....)."" . ....(
001E40:  0D 00 00 F8 2C 0D 00 00 F9 29 EF 22 2B 22 01 20    ....,....)."+". 
001E50:  A9 20 0D 00 00 F8 F6 10 F4 19 13 2C 0D 00 00 F9    . .........,....
001E60:  F6 10 F4 0F 01 BF 22 2B 22 01 20 CC 20 0F 2C 10    ......"+". . .,.
001E70:  2C 19 0A 2C 15 2C 0E 2C 0E 2C 19 0A 20 01 20 C9    ,..,.,.,.,.. . .
001E80:  00 21 00 9E 07 C5 20 2A 2A 20 6E 6F 77 20 64 69    .!.... ** now di
001E90:  73 70 6C 61 79 20 6C 6F 63 61 74 69 6F 6E 20 2A    splay location *
001EA0:  2A 00 61 00 A8 07 A9 20 0D 00 00 F8 F6 10 F4 19    *.a.... ........
001EB0:  13 2C 0D 00 00 F9 F6 10 F4 0F 01 BF 20 03 00 00    .,.......... ...
001EC0:  E1 28 0D 00 00 F8 2C 0D 00 00 F9 29 01 03 00 00    .(....,....)....
001ED0:  E1 28 0D 00 00 F8 2C 0D 00 00 F9 29 EF 22 2B 22    .(....,....)."+"
001EE0:  01 20 0D 00 00 79 E3 EF 0D 00 00 79 E3 F4 0F 01    . ...y.....y....
001EF0:  CC 20 0F 2C 19 C8 2C 19 14 2C 14 2C 0E 2C 0E 2C    . .,..,..,.,.,.,
001F00:  19 1E 00 90 29 06 00 B2 07 C9 00 23 00 BC 07 A1    ....)......#....
001F10:  20 0D 00 00 61 FA EF 0E 20 EB 20 0D 00 00 F8 EF     ...a... . .....
001F20:  FF 0C 28 FF 45 28 0F 29 F6 17 29 F4 0F 00 2F 00    ..(.E(.)..).../.
001F30:  C6 07 A9 20 0F 2C 19 15 01 BF 22 48 6F 6C 64 20    ... .,...."Hold 
001F40:  6F 6E 20 77 68 69 6C 65 20 49 20 74 68 69 6E 6B    on while I think
001F50:  20 6F 75 74 20 6D 79 20 6D 6F 76 65 00 36 00 D0     out my move.6..
001F60:  07 A9 20 0F 2C 19 16 01 BF 22 20 20 20 20 20 20    .. .,...."      
001F70:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001F80:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001F90:  20 20 00 36 00 DA 07 A9 20 0F 2C 19 17 01 BF 22      .6.... .,...."
001FA0:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001FB0:  20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20                    
001FC0:  20 20 20 20 20 20 20 20 00 23 00 E4 07 A1 20 0D            .#.... .
001FD0:  00 00 61 FA EF 0E 20 EB 20 0D 00 00 F9 EF FF 0C    ..a... . .......
001FE0:  28 FF 45 28 0F 29 F6 17 29 F4 0F 00 17 00 EE 07    (.E(.)..).......
001FF0:  9E 20 0D 00 00 4C D0 EF 0F 20 EC 20 1A 4A 01 01    . ...L... . .J..
002000:  20 B0 00 2E 00 10 F5 F8 07 C5 20 2A 2A 20 61 7A     ......... ** az
002010:  20 63 68 65 63 6B 73 20 69 66 20 70 72 65 76 69     checks if previ
002020:  6F 75 73 20 67 75 65 73 73 20 61 20 68 69 74 20    ous guess a hit 
002030:  2A 2A 00 2A 00 02 08 A1 20 0D 00 00 61 FA EF 0E    **.*.... ...a...
002040:  20 FA 20 03 00 00 E2 28 0D 00 00 F8 2C 0D 00 00     . ....(....,...
002050:  F9 29 EF 22 2B 22 20 EB 20 1E BC 07 00 47 00 0C    .)."+" . ....G..
002060:  08 A1 20 03 00 00 E2 28 0D 00 00 F8 2C 0D 00 00    .. ....(....,...
002070:  F9 29 F2 22 22 20 FA 20 03 00 00 E2 28 0D 00 00    .)."" . ....(...
002080:  F8 2C 0D 00 00 F9 29 F2 22 2B 22 20 EB 20 03 00    .,....)."+" . ..
002090:  00 4C CC EF 03 00 00 E2 28 0D 00 00 F8 2C 0D 00    .L......(....,..
0020A0:  00 F9 29 00 56 00 16 08 A1 20 0D 00 00 61 FA EF    ..).V.... ...a..
0020B0:  0E 20 FA 20 03 00 00 E2 28 0D 00 00 F8 2C 0D 00    . . ....(....,..
0020C0:  00 F9 29 F2 22 22 20 EB 20 03 00 00 4C CC EF 03    ..)."" . ...L...
0020D0:  00 00 E2 28 0D 00 00 F8 2C 0D 00 00 F9 29 01 03    ...(....,....)..
0020E0:  00 00 E2 28 0D 00 00 F8 2C 0D 00 00 F9 29 EF 22    ...(....,....)."
0020F0:  2B 22 01 20 A0 20 1E 66 08 00 6B 00 20 08 A1 20    +". . .f..k. .. 
002100:  0D 00 00 61 FA EF 0E 62 E0 20 FA 20 03 00 00 E2    ...a...b. . ....
002110:  28 0D 00 00 F8 2C 0D 00 00 F9 29 EF 22 22 20 EB    (....,....)."" .
002120:  20 03 00 00 E2 28 0D 00 00 F8 2C 0D 00 00 F9 29     ....(....,....)
002130:  EF 22 2B 22 01 20 A9 20 0D 00 00 F8 F6 10 F4 0F    ."+". . ........
002140:  2C 0D 00 00 F9 F6 10 F4 0F 01 BF 22 2B 22 01 20    ,.........."+". 
002150:  CC 20 0F 2C 19 14 2C 19 14 2C 15 2C 0E 2C 0E 2C    . .,..,..,.,.,.,
002160:  19 0A 20 01 20 C9 00 1E 00 2A 08 9E 20 0D 00 00    .. . ....*.. ...
002170:  F0 EF 0F 20 EC 20 17 01 9E 20 0D 00 00 F1 EF 0F    ... . ... ......
002180:  20 EC 20 17 00 49 00 34 08 A1 20 03 00 00 E2 28     . ..I.4.. ....(
002190:  0D 00 00 F0 2C 0D 00 00 F1 29 EF 03 00 00 4C CC    ....,....)....L.
0021A0:  20 EB 20 0D 00 00 F8 EF 0D 00 00 F0 01 0D 00 00     . .............
0021B0:  F9 EF 0D 00 00 F1 01 0D 00 00 F0 EF 19 0B 01 0D    ................
0021C0:  00 00 F1 EF 19 0B 01 20 A0 20 1E 48 08 00 10 00    ....... . .H....
0021D0:  3E 08 B0 20 0D 00 00 F1 2C 0D 00 00 F0 00 1F 00    >.. ....,.......
0021E0:  48 08 A1 20 0D 00 00 F0 EF 19 0B 20 EB 20 0D 00    H.. ....... . ..
0021F0:  00 61 FA EF 0E 01 20 A0 20 1E 02 08 00 13 00 52    .a.... . ......R
002200:  08 0D 00 00 61 FA EF 0E 01 4F 50 20 A0 20 1E E4    ....a....OP . ..
002210:  07 00 06 00 5C 08 C9 00 42 00 66 08 A9 20 0D 00    ....\...B.f.. ..
002220:  00 F8 F6 10 F4 0F 2C 0D 00 00 F9 F6 10 F4 0F 01    ......,.........
002230:  BF 22 2B 22 01 0D 00 00 63 E3 EF 0D 00 00 63 E3    ."+"....c.....c.
002240:  F4 0F 01 CC 20 0F 2C 19 14 2C 19 14 2C 15 2C 0E    .... .,..,..,.,.
002250:  2C 0E 2C 19 0A 20 01 20 C9 00 00 00 00 00 00 00    ,.,.. . ........
002260:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
002270:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
002280:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
002290:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0022A0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0022B0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0022C0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0022D0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0022E0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
0022F0:  00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00    ................
002300:  00 00 00 00 00 00 00 00 00 00 00 18 C6 FF FF FF    ................
002310:  FF                                                 .
RESULT OF SEARCH :
PRO=0   CHEA=0   COD=0   MUSI=0   COP=0   GRA=0   WRIT=0   198=2   199=0   STARTER=0   KBI=0   CAAV=0   L.TOURNIER=0  
  EEE ,BATTLESHIPSpQ EEE  ** Battleships....a game for the AMSTRAD CPC 464 ** **
 C Steve W. Lucas **" ** version 1.A July 1984 **&(   ,  ,  ,  ,2    "F (,),(,),
()P     Z ( )d  n "x "Destroyer       " "Submarine       " "Cruiser         " "B
attleship      " "Aircraft Carrier"  $ ** Plot numbers across top **      , (0 )
   , (0 )' ** print centre line down screen     ,   ()- ** Plot letters down sid
e of screen **     " ,   ( ),6 ,  ((,()) J v T t1 ** yc your score cc computer's
 score ** h  r    c   y    h4  c  "I win"  "You win!!!!" ,     6 ,   "Do you wan
t to play again Y/N "C  ""  () "Y"  !  ,   "Goodbye !"#  ,   "Battleships",   ,"
C Steve Lucas July 1984"M   , "  This is a computerised version of the tradition
al game."xr  "The game is played on a 9 x 9 grid.     Each point on the grid is 
identified by a coordinate such as A4""In this version, your opponent is the   c
omputer. The computer will hide 5 shipson the grid and you must do the same."4  
"PHress the Space Bar to continue.."&aC a" "  &0"You will take turns with the co
mputer toguess the location of your opponents    ships."M"The winner is the one 
who locates all   their opponents ships first !"8D ,  9 "Press the Space Bar to 
start game" NaC  a" "  NXb4l **subroutine to choose computer's positions**v  (E(
)Q)2 ** array a$(x,y) holds position of ships **  (E())J ** if a0 then shgEEE ,B
ATTLESHIPSpQCEEEip is horizontal otherwise the ship is vertical **0     ** size 
of aircraft carrier **Q (E())  (E())  random x and y coordinates of ship  D  a  
  ** if location already has ship... try agaiyn "A"  ** put ship into array **  
87 (E())  ** ship horizontal or vertical!   ** size of ship **P  (E())   (E())  
** random coordinates of ship    a   "B"   8* (E())4   ** ship size **I (E())  (
E())  random coordinates of ship H R  a   "C" f 8p (E())z + (E())  X(E())    a  
"S"  8 (E()) * (E()) (E())    a   "D"  8, ** check if array element is empty ** 
a5     3     (  , )""   a3     ( ,  )""   a$.8     )B    (  , ))L    ( ,  )Vj **
 Set up your board **t       "Ship Size "( ) ,     a0 , "Enter the bow position 
of your  "- ,  ( )   p  J 6 ,"                                        o , "     
 "     )( )C  ( )""     ,  (( )),    ( )(( )) , "     "    y  x    ** check if p
oint on  board  a  1 ,"Enter the stern position of your  "!( ,  ( ) 2    (( )C (
 )""  GF  , (( ))    ( )(( ))P   p  EEE ,BATTLESHIPSpQEEEJ 6Z ,"                
                        d   y   x   ** check validity of point!n  y y     !x  x 
x   r  8 , "You have made a mistake !"  a a (())         (())5          ** displ
ay error ** , "Incorrect co-ordinates- try again" a4  x x         x x  (        
  y    z"A"      z"B"      z"C"      z"S"      z"D") ** check if location occupi
ed ! **f  x x   k x x x x k  ** swap coorindates around if wrong way **E"   x   
x ( , y)""     ,  46   x   x ( , y)z    x   xJ display choice!T  , ,y z  h2r  y 
y       y y  &        y    z"A"      z"B"      z"C"      z"S"      z"D"h, ** che
ck if location already occupiedT  y y   k y y y y k  swamp coordinates aroundG  
  y   y  ( x, )""       3   y   y ( x, )Bz   y   y# ** display choice of ship **
!  x,  z4 , "Enter your missile coordinates now-"7 , "                          
             " 7 , "                                       "7& , "              
                         "70 , "                                       " aD    )
N( )C  ( )""  NJX( )(( ))  ,  (EEE ,BATTLESHIPSQpQvEEE( ))    (b   ** check if p
oint is valid'l  a      J 7v ** check if you have already guessed location **O (
 , )"+"   , "Already tried !"    J  - ** check if computer has ship there **a ( 
, )""  ( , )"+"   , "+"  ,, ,,,,   ! ** now display location **a  ,  ( , )( , )"
+"  y y ,,,,,,)#  a   (E())/ ,"Hold on while I think out my move6 ,"            
                            6 ,"                                        #  a   (
E())  L  J . ** az checks if previous guess a hit ***  a  ( , )"+"  G ( , )""  (
 , )"+"  L( , )V  a  ( , )""  L( , )( , )"+"  fk   ab  ( , )""  ( , )"+"   , "+"
  ,,,,,,   *        I4 ( , )L          H  , H     a  R aOP  Bf  , "+" c c ,,,,,,
   
Tous droits réservés. Reproduction sans autorisation interdite. © Kukulcan