_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

Multiple names: BATTLESHIPS     , BATTLESHIPS

FILE INFORMATION

FILENAME(S):
• BATTLESHIPS&nbsp&nbsp&nbsp&nbsp&nbsp<br>• BATTLESHIPS

FILE TYPE(S): PRG

FILE SIZE: 3.4K

FIRST SEEN: 2025-11-02 22:11:33

APPEARS ON: 2 disk(s)

FILE HASH

bd6fa844c02d1c8b08b244c15b5a665db82eb3da1bdcd87b02250b89c18d5530

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PUBLIC DOMAIN BATTLESHIPS      PRG Treasure Chest - ToGuMi 4 0 DOWNLOAD FILE
S PIELE BATTLESHIPS PRG Treasure Chest - Wolfgang Rauprich 6 0 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 2F 08 64 00 85 22  57 41 4E 54 20 49 4E 53  |../.d.."WANT INS|
00000010: 54 52 55 43 54 49 4F 4E  53 22 3B 5A 24 3A 8B C8  |TRUCTIONS";Z$:..|
00000020: 28 5A 24 2C 31 29 B3 B1  22 59 22 89 32 30 30 00  |(Z$,1).."Y".200.|
00000030: 56 08 6E 00 99 22 11 57  45 20 45 41 43 48 20 48  |V.n..".WE EACH H|
00000040: 41 56 45 20 35 20 53 48  49 50 53 20 4F 4E 20 41  |AVE 5 SHIPS ON A|
00000050: 20 47 52 49 44 22 00 7F  08 78 00 99 22 2E 2E 57  | GRID"...x.."..W|
00000060: 45 20 43 41 4E 27 54 20  53 45 45 20 45 41 43 48  |E CAN'T SEE EACH|
00000070: 20 4F 54 48 45 52 53 20  53 48 49 50 53 2C 22 00  | OTHERS SHIPS,".|
00000080: AC 08 82 00 99 22 42 55  54 20 54 41 4B 45 20 54  |....."BUT TAKE T|
00000090: 55 52 4E 53 20 46 49 52  49 4E 47 20 41 54 20 45  |URNS FIRING AT E|
000000A0: 41 43 48 20 4F 54 48 45  52 27 53 22 00 DE 08 8C  |ACH OTHER'S"....|
000000B0: 00 99 22 47 52 49 44 2E  20 20 41 20 4D 49 53 53  |.."GRID.  A MISS|
000000C0: 20 53 48 4F 57 53 20 41  53 20 27 D7 27 2C 20 41  | SHOWS AS '.', A|
000000D0: 20 48 49 54 20 41 53 20  27 12 20 92 27 22 00 0D  | HIT AS '. .'"..|
000000E0: 09 96 00 99 22 54 52 59  20 54 4F 20 53 49 4E 4B  |...."TRY TO SINK|
000000F0: 20 4D 59 20 53 48 49 50  53 20 42 45 46 4F 52 45  | MY SHIPS BEFORE|
00000100: 20 49 20 47 45 54 20 59  4F 55 52 53 22 00 3A 09  | I GET YOURS".:.|
00000110: A0 00 99 22 11 54 4F 20  53 54 41 52 54 20 59 4F  |...".TO START YO|
00000120: 55 20 4D 55 53 54 20 49  4E 50 55 54 20 43 4F 2D  |U MUST INPUT CO-|
00000130: 4F 52 44 49 4E 41 54 45  53 22 00 7C 09 AA 00 99  |ORDINATES".|....|
00000140: 22 46 4F 52 20 59 4F 55  52 20 53 48 49 50 53 11  |"FOR YOUR SHIPS.|
00000150: 45 47 2C 20 41 20 53 55  42 4D 41 52 49 4E 45 28  |EG, A SUBMARINE(|
00000160: 4C 45 4E 47 54 48 20 33  29 20 4D 49 47 48 54 20  |LENGTH 3) MIGHT |
00000170: 4C 49 45 20 27 45 34 2D  45 36 27 22 00 A5 09 B4  |LIE 'E4-E6'"....|
00000180: 00 99 22 11 47 4F 4F 44  20 4C 55 43 4B 21 20 11  |..".GOOD LUCK! .|
00000190: 48 49 54 20 41 4E 59 20  4B 45 59 20 54 4F 20 53  |HIT ANY KEY TO S|
000001A0: 54 41 52 54 22 00 B8 09  BE 00 A1 5A 24 3A 8B 5A  |TART"......Z$:.Z|
000001B0: 24 B2 22 22 89 31 39 30  00 DE 09 C8 00 86 20 42  |$."".190...... B|
000001C0: 28 39 2C 39 2C 31 29 2C  4E 24 28 34 29 2C 4C 28  |(9,9,1),N$(4),L(|
000001D0: 34 29 2C 48 28 34 2C 31  29 3A 52 B2 54 49 00 05  |4),H(4,1):R.TI..|
000001E0: 0A D2 00 99 22 93 42 41  54 54 4C 45 53 48 49 50  |....".BATTLESHIP|
000001F0: 53 20 20 20 12 20 4A 20  42 55 54 54 45 52 46 49  |S   . J BUTTERFI|
00000200: 45 4C 44 20 22 00 3A 0A  E6 00 83 20 43 41 52 52  |ELD ".:.... CARR|
00000210: 49 45 52 2C 42 41 54 54  4C 45 53 48 49 50 2C 43  |IER,BATTLESHIP,C|
00000220: 52 55 49 53 45 52 2C 53  55 42 4D 41 52 49 4E 45  |RUISER,SUBMARINE|
00000230: 2C 22 50 54 20 42 4F 41  54 22 00 4A 0A F0 00 83  |,"PT BOAT".J....|
00000240: 20 35 2C 35 2C 34 2C 33  2C 32 00 74 0A FA 00 81  | 5,5,4,3,2.t....|
00000250: 20 4A B2 30 20 A4 20 34  3A 87 20 4E 24 28 4A 29  | J.0 . 4:. N$(J)|
00000260: 3A 82 20 4A 3A 81 4A B2  30 A4 34 3A 87 4C 28 4A  |:. J:.J.0.4:.L(J|
00000270: 29 3A 82 4A 00 93 0A 04  01 52 B2 52 AD 31 30 30  |):.J.....R.R.100|
00000280: 30 3A 52 31 B2 BB 28 AB  52 29 3A 8B 52 B1 31 89  |0:R1..(.R):.R.1.|
00000290: 32 36 30 00 B3 0A 18 01  99 20 22 20 20 4D 59 20  |260...... "  MY |
000002A0: 42 4F 41 52 44 20 20 20  59 4F 55 52 20 42 4F 41  |BOARD   YOUR BOA|
000002B0: 52 44 22 00 D2 0A 22 01  5A B2 30 3A 5A 24 B2 22  |RD"...".Z.0:Z$."|
000002C0: B0 B2 B2 B2 B2 B2 B2 B2  B2 AE 22 3A 8D 20 31 31  |..........":. 11|
000002D0: 30 30 00 F7 0A 2C 01 5A  24 B2 22 AB DB DB DB DB  |00...,.Z$.".....|
000002E0: DB DB DB DB B3 22 3A 81  5A B2 31 A4 38 3A 8D 31  |.....":.Z.1.8:.1|
000002F0: 31 30 30 3A 82 20 5A 00  12 0B 36 01 5A 24 B2 22  |100:. Z...6.Z$."|
00000300: AD B1 B1 B1 B1 B1 B1 B1  B1 BD 22 3A 8D 20 31 31  |..........":. 11|
00000310: 30 30 00 2C 0B 40 01 5A  24 B2 22 13 11 11 11 11  |00.,.@.Z$.".....|
00000320: 11 11 11 11 11 11 11 11  11 11 11 22 00 62 0B 4A  |...........".b.J|
00000330: 01 45 24 B2 5A 24 AA 22  20 20 20 20 20 20 20 20  |.E$.Z$."        |
00000340: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000350: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000360: 91 22 00 82 0B 54 01 99  22 5E 5E 5E 5E 5E 5E 5E  |."...T.."^^^^^^^|
00000370: 5E 5E 5E 22 3A 99 22 41  42 43 44 45 46 47 48 49  |^^^":."ABCDEFGHI|
00000380: 4A 22 00 AF 0B 5E 01 99  5A 24 3B 22 49 4E 50 55  |J"...^..Z$;"INPU|
00000390: 54 20 59 4F 55 52 20 53  48 49 50 53 20 28 49 20  |T YOUR SHIPS (I |
000003A0: 57 4F 4E 27 54 20 50 45  45 4B 29 2E 2E 2E 22 00  |WON'T PEEK)...".|
000003B0: ED 0B 68 01 81 4A B2 31  A4 33 30 30 30 3A 82 4A  |..h..J.1.3000:.J|
000003C0: 3A 99 45 24 3B 22 47 49  56 45 20 45 4E 44 20 43  |:.E$;"GIVE END C|
000003D0: 4F 2D 4F 52 44 49 4E 41  54 45 53 20 46 4F 52 20  |O-ORDINATES FOR |
000003E0: 45 41 43 48 20 53 48 49  50 2E 2E 2E 22 00 18 0C  |EACH SHIP..."...|
000003F0: 72 01 81 4C B2 30 A4 31  3A 81 4A B2 30 A4 39 3A  |r..L.0.1:.J.0.9:|
00000400: 81 4B B2 30 A4 39 3A 42  28 4A 2C 4B 2C 4C 29 B2  |.K.0.9:B(J,K,L).|
00000410: 30 3A 82 4B 2C 4A 2C 4C  00 38 0C 7C 01 81 4C B2  |0:.K,J,L.8.|..L.|
00000420: 30 A4 31 3A 81 4A B2 30  A4 34 3A 48 28 4A 2C 4C  |0.1:.J.0.4:H(J,L|
00000430: 29 B2 30 3A 82 4A 2C 4C  00 43 0C 86 01 81 43 B2  |).0:.J,L.C....C.|
00000440: 30 A4 34 00 78 0C 90 01  99 45 24 3B 4E 24 28 43  |0.4.x....E$;N$(C|
00000450: 29 3B 22 28 4C 45 4E 47  54 48 22 3B 4C 28 43 29  |);"(LENGTH";L(C)|
00000460: 3B 22 29 22 3B 3A 85 59  24 3A 8D 31 31 31 30 3A  |;")";:.Y$:.1110:|
00000470: 8B 45 B2 31 89 34 30 30  00 95 0C 9A 01 58 31 B2  |.E.1.400.....X1.|
00000480: 58 3A 59 31 B2 59 3A 8D  31 31 32 30 3A 8B 45 B2  |X:Y1.Y:.1120:.E.|
00000490: 31 89 34 30 30 00 B8 0C  A4 01 4C B2 4C 28 43 29  |1.400.....L.L(C)|
000004A0: 3A 8B 58 B3 B1 58 31 AF  B6 28 58 AB 58 31 29 B3  |:.X..X1..(X.X1).|
000004B0: B1 4C AB 31 89 34 30 30  00 D4 0C AE 01 8B 59 B3  |.L.1.400......Y.|
000004C0: B1 59 31 AF B6 28 59 AB  59 31 29 B3 B1 4C AB 31  |.Y1..(Y.Y1)..L.1|
000004D0: 89 34 30 30 00 E7 0C B8  01 8B 59 B2 59 31 AF 58  |.400......Y.Y1.X|
000004E0: B2 58 31 89 34 30 30 00  0B 0D C2 01 59 32 B2 B4  |.X1.400.....Y2..|
000004F0: 28 59 31 AB 59 29 3A 58  32 B2 B4 28 58 31 AB 58  |(Y1.Y):X2..(X1.X|
00000500: 29 3A 59 33 B2 59 3A 58  33 B2 58 00 2B 0D CC 01  |):Y3.Y:X3.X.+...|
00000510: 81 4A B2 31 A4 4C AB 31  3A 8B 42 28 58 33 2C 59  |.J.1.L.1:.B(X3,Y|
00000520: 33 2C 30 29 B3 B1 30 89  34 30 30 00 6C 0D D6 01  |3,0)..0.400.l...|
00000530: 8B 58 32 AC 59 32 B3 B1  30 A7 8B 42 28 58 33 AA  |.X2.Y2..0..B(X3.|
00000540: 58 32 2C 59 33 2C 30 29  B2 42 28 58 33 2C 59 33  |X2,Y3,0).B(X3,Y3|
00000550: AA 59 32 2C 30 29 A7 8B  42 28 58 33 2C 59 33 AA  |.Y2,0)..B(X3,Y3.|
00000560: 59 32 2C 30 29 B3 B1 30  89 34 30 30 00 85 0D E0  |Y2,0)..0.400....|
00000570: 01 58 33 B2 58 33 AA 58  32 3A 59 33 B2 59 33 AA  |.X3.X3.X2:Y3.Y3.|
00000580: 59 32 3A 82 4A 00 9C 0D  EA 01 8B 42 28 58 33 2C  |Y2:.J......B(X3,|
00000590: 59 33 2C 30 29 B3 B1 30  89 34 30 30 00 D4 0D F4  |Y3,0)..0.400....|
000005A0: 01 59 24 B2 22 D1 22 3A  81 4A B2 31 A4 4C 3A 42  |.Y$.".":.J.1.L:B|
000005B0: 28 58 2C 59 2C 30 29 B2  43 AA 31 3A 8D 31 31 36  |(X,Y,0).C.1:.116|
000005C0: 30 3A 58 B2 58 AA 58 32  3A 59 B2 59 AA 59 32 3A  |0:X.X.X2:Y.Y.Y2:|
000005D0: 82 4A 2C 43 00 F8 0D FE  01 99 45 24 3B 22 4E 4F  |.J,C......E$;"NO|
000005E0: 57 20 49 20 41 4D 20 52  45 41 44 59 2E 2E 22 3A  |W I AM READY..":|
000005F0: 53 B2 30 3A 48 39 B2 30  00 0A 0E 08 02 81 43 B2  |S.0:H9.0......C.|
00000600: 30 A4 34 3A 4C B2 4C 28  43 29 00 28 0E 12 02 44  |0.4:L.L(C).(...D|
00000610: B2 B5 28 BB 28 31 29 AC  34 29 3A 58 31 B2 4C AB  |..(.(1).4):X1.L.|
00000620: 31 3A 59 31 B2 4C AB 31  00 36 0E 1C 02 8B 44 B2  |1:Y1.L.1.6....D.|
00000630: 32 A7 58 31 B2 30 00 44  0E 26 02 8B 44 B2 30 A7  |2.X1.0.D.&..D.0.|
00000640: 59 31 B2 30 00 66 0E 30  02 58 B2 B5 28 BB 28 31  |Y1.0.f.0.X..(.(1|
00000650: 29 AC 28 31 30 AB 58 31  29 29 3A 8B 44 B2 33 A7  |).(10.X1)):.D.3.|
00000660: 58 B2 58 AA 58 31 00 99  0E 3A 02 59 B2 B5 28 BB  |X.X.X1...:.Y..(.|
00000670: 28 31 29 AC 28 31 30 AB  59 31 29 29 3A 59 33 B2  |(1).(10.Y1)):Y3.|
00000680: 59 3A 58 33 B2 58 3A 58  32 B2 B4 28 32 AB 44 29  |Y:X3.X:X2..(2.D)|
00000690: 3A 59 32 B2 B4 28 59 31  29 00 B9 0E 44 02 81 4A  |:Y2..(Y1)...D..J|
000006A0: B2 31 A4 4C AB 31 3A 8B  42 28 58 33 2C 59 33 2C  |.1.L.1:.B(X3,Y3,|
000006B0: 31 29 B3 B1 30 89 35 33  30 00 FA 0E 4E 02 8B 58  |1)..0.530...N..X|
000006C0: 32 AC 59 32 B3 B1 30 A7  8B 42 28 58 33 AA 58 32  |2.Y2..0..B(X3.X2|
000006D0: 2C 59 33 2C 31 29 B2 42  28 58 33 2C 59 33 AA 59  |,Y3,1).B(X3,Y3.Y|
000006E0: 32 2C 31 29 A7 8B 42 28  58 33 2C 59 33 AA 59 32  |2,1)..B(X3,Y3.Y2|
000006F0: 2C 31 29 B3 B1 30 89 35  33 30 00 13 0F 58 02 58  |,1)..0.530...X.X|
00000700: 33 B2 58 33 AA 58 32 3A  59 33 B2 59 33 AA 59 32  |3.X3.X2:Y3.Y3.Y2|
00000710: 3A 82 4A 00 2A 0F 62 02  8B 42 28 58 33 2C 59 33  |:.J.*.b..B(X3,Y3|
00000720: 2C 31 29 B3 B1 30 89 35  33 30 00 55 0F 6C 02 81  |,1)..0.530.U.l..|
00000730: 4A B2 31 A4 4C 3A 42 28  58 2C 59 2C 31 29 B2 43  |J.1.L:B(X,Y,1).C|
00000740: AA 31 3A 58 B2 58 AA 58  32 3A 59 B2 59 AA 59 32  |.1:X.X.X2:Y.Y.Y2|
00000750: 3A 82 4A 2C 43 00 5E 0F  76 02 99 45 24 3B 00 74  |:.J,C.^.v..E$;.t|
00000760: 0F 80 02 85 22 3A 20 59  4F 55 52 20 53 48 4F 54  |....": YOUR SHOT|
00000770: 22 3B 59 24 00 88 0F 8A  02 8D 20 31 31 31 30 3A  |";Y$...... 1110:|
00000780: 8B 45 B2 31 89 36 33 30  00 A0 0F 94 02 42 B2 42  |.E.1.630.....B.B|
00000790: 28 58 2C 59 2C 31 29 3A  8B 42 B1 39 89 36 33 30  |(X,Y,1):.B.9.630|
000007A0: 00 C2 0F 9E 02 42 28 58  2C 59 2C 31 29 B2 42 AA  |.....B(X,Y,1).B.|
000007B0: 31 30 3A 59 24 B2 22 D7  22 3A 8B 42 B2 30 89 37  |10:Y$.".":.B.0.7|
000007C0: 31 30 00 F7 0F A8 02 59  24 B2 22 12 20 22 3A 48  |10.....Y$.". ":H|
000007D0: 28 42 AB 31 2C 31 29 B2  48 28 42 AB 31 2C 31 29  |(B.1,1).H(B.1,1)|
000007E0: AA 31 3A 8B 48 28 42 AB  31 2C 31 29 B3 4C 28 42  |.1:.H(B.1,1).L(B|
000007F0: AB 31 29 89 37 31 30 00  34 10 B2 02 99 45 24 3B  |.1).710.4....E$;|
00000800: 4E 24 28 42 AB 31 29 3B  22 20 12 53 55 4E 4B 22  |N$(B.1);" .SUNK"|
00000810: 3A 81 43 B2 31 A4 35 30  30 3A 82 43 3A 81 43 B2  |:.C.1.500:.C:.C.|
00000820: 30 A4 34 3A 8B 48 28 43  2C 31 29 B3 4C 28 43 29  |0.4:.H(C,1).L(C)|
00000830: 89 37 31 30 00 41 10 BC  02 82 43 3A 89 31 32 31  |.710.A....C:.121|
00000840: 30 00 4B 10 C6 02 8D 31  31 37 30 00 5A 10 D0 02  |0.K....1170.Z...|
00000850: 91 53 89 37 38 30 2C 38  36 30 00 78 10 DA 02 58  |.S.780,860.x...X|
00000860: B2 B5 28 BB 28 31 29 AC  31 30 29 3A 59 B2 B5 28  |..(.(1).10):Y..(|
00000870: BB 28 31 29 AC 31 30 29  00 91 10 E4 02 42 B2 42  |.(1).10).....B.B|
00000880: 28 58 2C 59 2C 30 29 3A  8B 42 B3 39 89 20 39 32  |(X,Y,0):.B.9. 92|
00000890: 30 00 A5 10 EE 02 58 B2  58 AA 33 3A 8B 58 B3 31  |0.....X.X.3:.X.1|
000008A0: 30 89 37 34 30 00 C0 10  F8 02 58 B2 58 AB 31 30  |0.740.....X.X.10|
000008B0: 3A 59 B2 59 AA 31 3A 8B  59 B3 31 30 89 37 34 30  |:Y.Y.1:.Y.10.740|
000008C0: 00 D0 10 02 03 59 B2 59  AB 31 30 3A 89 37 34 30  |.....Y.Y.10:.740|
000008D0: 00 F4 10 0C 03 58 31 B2  58 39 AB 44 3A 58 32 B2  |.....X1.X9.D:X2.|
000008E0: 58 39 AA 44 3A 59 31 B2  59 39 AB 44 3A 59 32 B2  |X9.D:Y1.Y9.D:Y2.|
000008F0: 59 39 AA 44 00 03 11 16  03 8B 58 31 B3 30 A7 58  |Y9.D......X1.0.X|
00000900: 31 B2 30 00 12 11 20 03  8B 59 31 B3 30 A7 59 31  |1.0... ..Y1.0.Y1|
00000910: B2 30 00 21 11 2A 03 8B  58 32 B1 39 A7 58 32 B2  |.0.!.*..X2.9.X2.|
00000920: 39 00 30 11 34 03 8B 59  32 B1 39 A7 59 32 B2 39  |9.0.4..Y2.9.Y2.9|
00000930: 00 46 11 3E 03 81 58 B2  58 31 A4 58 32 3A 81 59  |.F.>..X.X1.X2:.Y|
00000940: B2 59 31 A4 59 32 00 5F  11 48 03 42 B2 42 28 58  |.Y1.Y2._.H.B.B(X|
00000950: 2C 59 2C 30 29 3A 8B 42  B3 39 89 20 39 32 30 00  |,Y,0):.B.9. 920.|
00000960: 73 11 52 03 82 59 2C 58  3A 44 B2 44 AA 31 3A 89  |s.R..Y,X:D.D.1:.|
00000970: 37 38 30 00 81 11 5C 03  58 B2 58 39 3A 59 B2 59  |780...\.X.X9:Y.Y|
00000980: 39 00 A8 11 66 03 58 B2  58 AA 58 38 3A 59 B2 59  |9...f.X.X.X8:Y.Y|
00000990: AA 59 38 3A 8B 58 B3 30  B0 58 B1 39 B0 59 B3 30  |.Y8:.X.0.X.9.Y.0|
000009A0: B0 59 B1 39 89 39 30 30  00 C1 11 70 03 42 B2 42  |.Y.9.900...p.B.B|
000009B0: 28 58 2C 59 2C 30 29 3A  8B 42 B3 39 89 20 39 32  |(X,Y,0):.B.9. 92|
000009C0: 30 00 D5 11 7A 03 42 B2  42 AB 31 30 3A 8B 42 B1  |0...z.B.B.10:.B.|
000009D0: 30 89 38 37 30 00 E8 11  84 03 8B 53 31 B2 31 A7  |0.870......S1.1.|
000009E0: 53 B2 31 3A 89 37 38 30  00 04 12 8E 03 53 31 B2  |S.1:.780.....S1.|
000009F0: 31 3A 58 38 B2 AB 58 38  3A 59 38 B2 AB 59 38 3A  |1:X8..X8:Y8..Y8:|
00000A00: 89 38 36 30 00 47 12 98  03 42 28 58 2C 59 2C 30  |.860.G...B(X,Y,0|
00000A10: 29 B2 42 AA 31 30 3A 59  24 B2 22 D7 22 3A 48 37  |).B.10:Y$.".":H7|
00000A20: B2 30 3A 48 38 B2 B4 28  42 29 3A 48 39 B2 48 39  |.0:H8..(B):H9.H9|
00000A30: AA 48 38 3A 58 24 B2 22  4D 49 53 53 22 3A 8B 42  |.H8:X$."MISS":.B|
00000A40: B2 30 89 20 39 35 30 00  84 12 A2 03 42 B2 42 AB  |.0. 950.....B.B.|
00000A50: 31 3A 59 24 B2 22 12 20  22 3A 58 24 B2 22 48 49  |1:Y$.". ":X$."HI|
00000A60: 54 22 3A 48 28 42 2C 30  29 B2 48 28 42 2C 30 29  |T":H(B,0).H(B,0)|
00000A70: AA 31 3A 8B 48 28 42 2C  30 29 B3 4C 28 42 29 89  |.1:.H(B,0).L(B).|
00000A80: 20 39 35 30 00 A9 12 AC  03 48 37 B2 31 3A 48 39  | 950.....H7.1:H9|
00000A90: B2 48 39 AB 4C 28 42 29  3A 58 24 B2 22 53 49 4E  |.H9.L(B):X$."SIN|
00000AA0: 4B 20 22 AA 4E 24 28 42  29 00 E4 12 B6 03 8D 31  |K ".N$(B)......1|
00000AB0: 31 36 30 3A 99 45 24 3B  22 49 20 22 3B 58 24 3B  |160:.E$;"I ";X$;|
00000AC0: 22 20 41 54 20 22 3B C7  28 58 AA 36 35 29 3B C7  |" AT ";.(X.65);.|
00000AD0: 28 59 AA 34 38 29 3B 3A  81 4A B2 31 A4 31 30 30  |(Y.48);:.J.1.100|
00000AE0: 30 3A 82 4A 00 01 13 C0  03 81 4A B2 30 A4 34 3A  |0:.J......J.0.4:|
00000AF0: 8B 48 28 4A 2C 30 29 B3  4C 28 4A 29 89 20 39 38  |.H(J,0).L(J). 98|
00000B00: 30 00 0E 13 CA 03 82 4A  3A 89 31 32 32 30 00 1F  |0......J:.1220..|
00000B10: 13 D4 03 91 53 89 31 30  31 30 2C 31 30 36 30 00  |....S.1010,1060.|
00000B20: 3B 13 DE 03 8B 48 38 B2  31 A7 53 B2 31 3A 44 B2  |;....H8.1.S.1:D.|
00000B30: 31 3A 58 39 B2 58 3A 59  39 B2 59 00 44 13 E8 03  |1:X9.X:Y9.Y.D...|
00000B40: 89 36 34 30 00 57 13 F2  03 8B 48 39 B2 30 A7 53  |.640.W....H9.0.S|
00000B50: B2 30 3A 89 36 34 30 00  65 13 FC 03 8B 48 38 B2  |.0:.640.e....H8.|
00000B60: 30 89 36 34 30 00 7E 13  06 04 58 38 B2 58 AB 58  |0.640.~...X8.X.X|
00000B70: 39 3A 59 38 B2 59 AB 59  39 3A 53 31 B2 30 00 99  |9:Y8.Y.Y9:S1.0..|
00000B80: 13 10 04 8B 58 38 B2 B4  28 58 38 29 AF 59 38 B2  |....X8..(X8).Y8.|
00000B90: B4 28 59 38 29 A7 53 B2  32 00 A2 13 1A 04 89 36  |.(Y8).S.2......6|
00000BA0: 34 30 00 B0 13 24 04 8B  48 37 B2 30 89 36 34 30  |40...$..H7.0.640|
00000BB0: 00 B8 13 2E 04 53 B2 31  00 C6 13 38 04 8B 48 39  |.....S.1...8..H9|
00000BC0: B2 30 A7 53 B2 30 00 CF  13 42 04 89 36 34 30 00  |.0.S.0...B..640.|
00000BD0: EC 13 4C 04 99 5A 24 3B  22 5F 22 3B C7 28 5A AA  |..L..Z$;"_";.(Z.|
00000BE0: 34 38 29 3B 22 20 22 3B  5A 24 3A 8E 00 F8 13 56  |48);" ";Z$:....V|
00000BF0: 04 50 B2 31 3A 45 B2 30  00 2A 14 60 04 81 20 5A  |.P.1:E.0.*.`.. Z|
00000C00: B2 50 A4 C3 28 59 24 29  AB 31 3A 58 B2 C6 28 CA  |.P..(Y$).1:X..(.|
00000C10: 28 59 24 2C 5A 29 29 AB  36 35 3A 8B 58 B1 B2 30  |(Y$,Z)).65:.X..0|
00000C20: AF 58 B3 B2 39 89 31 31  34 30 00 37 14 6A 04 82  |.X..9.1140.7.j..|
00000C30: 5A 3A 45 B2 31 3A 8E 00  64 14 74 04 81 20 50 B2  |Z:E.1:..d.t.. P.|
00000C40: 5A A4 C3 28 59 24 29 3A  59 B2 C6 28 CA 28 59 24  |Z..(Y$):Y..(.(Y$|
00000C50: 2C 50 29 29 AB 34 38 3A  8B 59 B1 B2 30 AF 59 B3  |,P)).48:.Y..0.Y.|
00000C60: B2 39 A7 8E 00 71 14 7E  04 82 50 3A 89 31 31 33  |.9...q.~..P:.113|
00000C70: 30 00 86 14 88 04 99 22  13 22 3B A3 31 33 29 3B  |0......".";.13);|
00000C80: 3A 89 31 31 38 30 00 90  14 92 04 99 22 13 22 3B  |:.1180......".";|
00000C90: 00 A7 14 9C 04 81 51 B2  31 A4 59 AA 32 3A 99 22  |......Q.1.Y.2:."|
00000CA0: 11 22 3B 3A 82 20 51 00  BE 14 A6 04 81 51 B2 31  |.";:. Q......Q.1|
00000CB0: A4 58 AA 31 3A 99 22 1D  22 3B 3A 82 20 51 00 CC  |.X.1:.".";:. Q..|
00000CC0: 14 B0 04 99 22 9D 22 3B  59 24 3A 8E 00 EA 14 BA  |....".";Y$:.....|
00000CD0: 04 8D 31 31 37 30 3A 99  45 24 3B 22 59 4F 55 20  |..1170:.E$;"YOU |
00000CE0: 57 49 4E 22 3A 89 31 32  37 30 00 14 15 C4 04 99  |WIN":.1270......|
00000CF0: 3A 99 22 49 20 57 49 4E  20 2D 49 27 4C 4C 20 53  |:."I WIN -I'LL S|
00000D00: 48 4F 57 20 4D 59 20 48  49 44 44 45 4E 20 53 48  |HOW MY HIDDEN SH|
00000D10: 49 50 53 22 00 26 15 CE  04 81 58 B2 30 A4 39 3A  |IPS".&....X.0.9:|
00000D20: 81 59 B2 30 A4 39 00 43  15 D8 04 42 B2 42 28 58  |.Y.0.9.C...B.B(X|
00000D30: 2C 59 2C 31 29 3A 8B 42  B2 30 B0 42 B1 39 89 31  |,Y,1):.B.0.B.9.1|
00000D40: 32 36 30 00 54 15 E2 04  59 24 B2 22 D1 22 3A 8D  |260.T...Y$.".":.|
00000D50: 31 31 37 30 00 5E 15 EC  04 82 59 3A 82 58 00 7B  |1170.^....Y:.X.{|
00000D60: 15 F6 04 99 5A 24 3B 22  11 11 11 11 20 41 4E 4F  |....Z$;".... ANO|
00000D70: 54 48 45 52 20 47 41 4D  45 22 3B 00 95 15 00 05  |THER GAME";.....|
00000D80: 85 59 24 3A 8B C8 28 59  24 2C 31 29 B3 B1 22 4E  |.Y$:..(Y$,1).."N|
00000D90: 22 89 32 37 30 00 00 00  64                       |".270...d       |
../.D.."WANT INSTRUCTIONS";Z$:.H(Z$,1)..
"Y".200.V.N..".WE EACH HAVE 5 SHIPS ON A
 GRID"..X.."..WE CAN'T SEE EACH OTHERS 
SHIPS,"......"BUT TAKE TURNS FIRING AT E
ACH OTHER'S"......"GRID.  A MISS SHOWS A
S 'W', A HIT AS '. .'"......"TRY TO SINK
 MY SHIPS BEFORE I GET YOURS".:. ..".TO 
START YOU MUST INPUT CO-ORDINATES".|....
"FOR YOUR SHIPS.EG, A SUBMARINE(LENGTH 3
) MIGHT LIE 'E4-E6'"......".GOOD LUCK! .
HIT ANY KEY TO START"......Z$:.Z$."".190
...H.. B(9,9,1),N$(4),L(4),H(4,1):R.TI..
.R..".BATTLESHIPS   . J BUTTERFIELD ".:.
... CARRIER,BATTLESHIP,CRUISER,SUBMARINE
,"PT BOAT".J.... 5,5,4,3,2.T.... J.0 . 4
:. N$(J):. J:.J.0.4:.L(J):.J.....R.R.100
0:R1..(.R):.R.1.260...... "  MY BOARD   
YOUR BOARD".R.".Z.0:Z$."..........":. 11
00...,.Z$."..........":.Z.1.8:.1100:. Z.
..6.Z$."..........":. 1100.,.@.Z$.".....
...........".B.J.E$.Z$."                
                        ."...T.."^^^^^^^
^^^":."ABCDEFGHIJ"...^..Z$;"INPUT YOUR S
HIPS (I WON'T PEEK)..."...H..J.1.3000:.J
:.E$;"GIVE END CO-ORDINATES FOR EACH SHI
P..."...R..L.0.1:.J.0.9:.K.0.9:B(J,K,L).
0:.K,J,L.8.|..L.0.1:.J.0.4:H(J,L).0:.J,L
.C....C.0.4.X....E$;N$(C);"(LENGTH";L(C)
;")";:.Y$:.1110:.E.1.400.....X1.X:Y1.Y:.
1120:.E.1.400.....L.L(C):.X..X1..(X.X1).
.L.1.400.T....Y..Y1..(Y.Y1)..L.1.400....
..Y.Y1.X.X1.400...B.Y2..(Y1.Y):X2..(X1.X
):Y3.Y:X3.X.+.L..J.1.L.1:.B(X3,Y3,0)..0.
400.L.V..X2.Y2..0..B(X3.X2,Y3,0).B(X3,Y3
.Y2,0)..B(X3,Y3.Y2,0)..0.400.....X3.X3.X
2:Y3.Y3.Y2:.J......B(X3,Y3,0)..0.400.T..
.Y$."Q":.J.1.L:B(X,Y,0).C.1:.1160:X.X.X2
:Y.Y.Y2:.J,C......E$;"NOW I AM READY..":
S.0:H9.0......C.0.4:L.L(C).(...D..(.(1).
4):X1.L.1:Y1.L.1.6....D.2.X1.0.D.&..D.0.
Y1.0.F.0.X..(.(1).(10.X1)):.D.3.X.X.X1..
.:.Y..(.(1).(10.Y1)):Y3.Y:X3.X:X2..(2.D)
:Y2..(Y1)...D..J.1.L.1:.B(X3,Y3,1)..0.53
0...N..X2.Y2..0..B(X3.X2,Y3,1).B(X3,Y3.Y
2,1)..B(X3,Y3.Y2,1)..0.530...X.X3.X3.X2:
Y3.Y3.Y2:.J.*.B..B(X3,Y3,1)..0.530.U.L..
J.1.L:B(X,Y,1).C.1:X.X.X2:Y.Y.Y2:.J,C.^.
V..E$;.T....": YOUR SHOT";Y$...... 1110:
.E.1.630. ...B.B(X,Y,1):.B.9.630.B...B(X
,Y,1).B.10:Y$."W":.B.0.710.....Y$.". ":H
(B.1,1).H(B.1,1).1:.H(B.1,1).L(B.1).710.
4....E$;N$(B.1);" .SUNK":.C.1.500:.C:.C.
0.4:.H(C,1).L(C).710.A....C:.1210.K.F..1
170.Z.P..S.780,860.X.Z.X..(.(1).10):Y..(
.(1).10).....B.B(X,Y,0):.B.9. 920.....X.
X.3:.X.10.740.....X.X.10:Y.Y.1:.Y.10.740
.P...Y.Y.10:.740.....X1.X9.D:X2.X9.D:Y1.
Y9.D:Y2.Y9.D......X1.0.X1.0... ..Y1.0.Y1
.0.!.*..X2.9.X2.9.0.4..Y2.9.Y2.9.F.>..X.
X1.X2:.Y.Y1.Y2._.H.B.B(X,Y,0):.B.9. 920.
S.R..Y,X:D.D.1:.780...\.X.X9:Y.Y9...F.X.
X.X8:Y.Y.Y8:.X.0.X.9.Y.0.Y.9.900.A.P.B.B
(X,Y,0):.B.9. 920.U.Z.B.B.10:.B.0.870...
...S1.1.S.1:.780.....S1.1:X8..X8:Y8..Y8:
.860.G...B(X,Y,0).B.10:Y$."W":H7.0:H8..(
B):H9.H9.H8:X$."MISS":.B.0. 950.....B.B.
1:Y$.". ":X$."HIT":H(B,0).H(B,0).1:.H(B,
0).L(B). 950.....H7.1:H9.H9.L(B):X$."SIN
K ".N$(B)......1160:.E$;"I ";X$;" AT ";G
(X.65);G(Y.48);:.J.1.1000:.J......J.0.4:
.H(J,0).L(J). 980...J..J:.1220...T..S.10
10,1060.;....H8.1.S.1:D.1:X9.X:Y9.Y.D...
.640.W....H9.0.S.0:.640.E....H8.0.640.~.
..X8.X.X9:Y8.Y.Y9:S1.0......X8..(X8).Y8.
.(Y8).S.2......640...$..H7.0.640.....S.1
.F.8..H9.0.S.0.O.B..640...L..Z$;"_";G(Z.
48);" ";Z$:....V.P.1:E.0.*.`.. Z.P.C(Y$)
.1:X.F(J(Y$,Z)).65:.X..0.X..9.1140.7.J..
Z:E.1:..D.T.. P.Z.C(Y$):Y.F(J(Y$,P)).48:
.Y..0.Y..9...Q.~..P:.1130......".";.13);
:.1180......".";......Q.1.Y.2:.".";:. Q.
.....Q.1.X.1:.".";:. Q.L....".";Y$:.....
..1170:.E$;"YOU WIN":.1270...D..:."I WIN
 -I'LL SHOW MY HIDDEN SHIPS".&.N..X.0.9:
.Y.0.9.C.X.B.B(X,Y,1):.B.0.B.9.1260.T...
Y$."Q":.1170.^....Y:.X.{....Z$;".... ANO
THER GAME";......Y$:.H(Y$,1).."N".270...
D
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL