BATTLESHIP
FILE INFORMATION
FILENAME(S): BATTLESHIP
FILE TYPE(S): PRG
FILE SIZE: 11.5K
FIRST SEEN: 2025-11-30 16:58:11
APPEARS ON: 1 disk(s)
FILE HASH
bebefebf2f13da7e54019966ba8b6c5982a673725559dc2a2d50068c85274431
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | BATTLESHIP | PRG | High Voltage Complete C64 Collection, Markus Merz | 20 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 08 09 28 00 97 55 4F 2C 30 3A 55 52 24 B2 22 |...(..UO,0:UR$."|
00000100: 22 3A 55 49 24 B2 22 22 00 18 09 2A 00 8B 55 4C |":UI$.""...*..UL|
00000110: B2 30 A7 55 4C B2 38 30 00 22 09 2D 00 97 55 43 |.0.UL.80.".-..UC|
00000120: 2C 30 00 36 09 32 00 A1 55 49 24 3A 8B 55 49 24 |,0.6.2..UI$:.UI$|
00000130: B2 22 22 A7 35 30 00 60 09 37 00 8B 55 49 24 B2 |."".50.`.7..UI$.|
00000140: C7 28 31 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 |.(13)..(UR$)..1.|
00000150: 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 |.UC,1:." .";:.85|
00000160: 00 73 09 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 |.s.<..UI$..(20).|
00000170: 31 30 35 00 87 09 3E 00 8B 20 C3 28 55 52 24 29 |105...>.. .(UR$)|
00000180: B2 B1 55 4C A7 35 30 00 AC 09 41 00 8D 31 32 30 |..UL.50...A..120|
00000190: 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C |:. CHECK FOR VAL|
000001A0: 49 44 20 43 48 41 52 41 43 54 45 52 00 BC 09 46 |ID CHARACTER...F|
000001B0: 00 55 52 24 B2 55 52 24 AA 55 49 24 00 C6 09 4B |.UR$.UR$.UI$...K|
000001C0: 00 99 55 49 24 3B 00 CE 09 50 00 89 35 30 00 F3 |..UI$;...P..50..|
000001D0: 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 |.U.. +++ CHECK F|
000001E0: 4F 52 20 48 45 4C 50 20 52 45 51 55 45 53 54 20 |OR HELP REQUEST |
000001F0: 2B 2B 2B 00 23 0A 5A 00 8F 2A 49 46 55 52 24 3D |+++.#.Z..*IFUR$=|
00000200: 55 58 24 54 48 45 4E 31 39 35 3A 52 45 4D 20 45 |UX$THEN195:REM E|
00000210: 58 49 54 20 54 4F 20 48 45 4C 50 20 52 4F 55 54 |XIT TO HELP ROUT|
00000220: 49 4E 45 00 32 0A 5F 00 8B 55 46 B2 31 A7 8D 32 |INE.2._..UF.1..2|
00000230: 34 30 00 3F 0A 64 00 55 46 B2 30 3A 99 3A 8E 00 |40.?.d.UF.0:.:..|
00000240: 58 0A 66 00 8F 20 2B 2B 20 43 48 45 43 4B 20 44 |X.f.. ++ CHECK D|
00000250: 45 4C 45 54 45 20 2B 2B 00 69 0A 69 00 8B C3 28 |ELETE ++.i.i...(|
00000260: 55 52 24 29 B3 31 A7 35 30 00 81 0A 6E 00 55 52 |UR$).1.50...n.UR|
00000270: 24 B2 C8 28 55 52 24 2C C3 28 55 52 24 29 AB 31 |$..(UR$,.(UR$).1|
00000280: 29 00 93 0A 73 00 99 22 9D 20 20 9D 9D 22 3B 3A |)...s..". ..";:|
00000290: 89 35 30 00 BA 0A 78 00 8F 20 2B 2B 20 43 48 45 |.50...x.. ++ CHE|
000002A0: 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 43 48 41 |CK FOR VALID CHA|
000002B0: 52 41 43 54 45 52 53 20 2B 2B 00 CC 0A 7D 00 8B |RACTERS ++...}..|
000002C0: C3 28 55 53 24 29 B2 30 A7 31 35 30 00 DD 0A 82 |.(US$).0.150....|
000002D0: 00 81 55 53 B2 31 A4 C3 28 55 53 24 29 00 F4 0A |..US.1..(US$)...|
000002E0: 87 00 8B 55 49 24 B2 CA 28 55 53 24 2C 55 53 2C |...UI$..(US$,US,|
000002F0: 31 29 A7 8E 00 FA 0A 8C 00 82 00 07 0B 91 00 55 |1).............U|
00000300: 49 24 B2 22 22 3A 8E 00 22 0B 96 00 8F 20 2A 2A |I$."":..".... **|
00000310: 20 53 54 41 4E 44 41 52 44 20 49 4E 50 55 54 20 | STANDARD INPUT |
00000320: 2A 2A 00 28 0B 97 00 8F 00 2E 0B 98 00 8F 00 3F |**.(...........?|
00000330: 0B 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 |....UI$..(32)...|
00000340: 5C 0B A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 |\.....(UI$).48..|
00000350: 28 55 49 24 29 B1 35 37 A7 31 37 30 00 62 0B A5 |(UI$).57.170.b..|
00000360: 00 8E 00 7F 0B AA 00 8B C6 28 55 49 24 29 B3 36 |.........(UI$).6|
00000370: 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 |5..(UI$).90.180.|
00000380: 85 0B AF 00 8E 00 A9 0B B4 00 8B C6 28 55 49 24 |............(UI$|
00000390: 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 |).193..(UI$).218|
000003A0: A7 55 49 24 B2 22 22 3A 8E 00 CC 0B B9 00 8B C2 |.UI$."":........|
000003B0: 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 |(UT).UU%.UI$..(.|
000003C0: 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 D2 0B BB |(UI$).128):.....|
000003D0: 00 8E 00 DF 0B BE 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
000003E0: 04 0C C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 |....UF.1:. +++ H|
000003F0: 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 |ELP ROUTINE EXIT|
00000400: 20 2B 2B 2B 00 0D 0C C5 00 8D 32 35 30 00 16 0C | +++......250...|
00000410: C8 00 8D 32 34 35 00 35 0C CD 00 81 55 51 B2 55 |...245.5....UQ.U|
00000420: 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |B.(U2%.256.U1%.U|
00000430: 33 25 AB 32 29 00 51 0C D2 00 55 51 25 28 55 51 |3%.2).Q...UQ%(UQ|
00000440: AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 |.UB)..(UQ):.:.".|
00000450: 22 00 64 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 |".d...UZ.1:UV%..|
00000460: 28 55 54 29 00 6D 0C D8 00 89 33 30 30 00 B1 0C |(UT).m....300...|
00000470: D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 |..UZ.0:US$.UJ$:U|
00000480: 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 |G$.UK$:UP.UJ:UL.|
00000490: 55 4B 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |UK:..(50003).0..|
000004A0: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
000004B0: 34 00 E6 0C DC 00 55 54 24 B2 55 4C 24 3A 99 22 |4.....UT$.UL$:."|
000004C0: 93 22 3B 3A 97 55 54 2C 55 56 25 3A 81 55 51 B2 |.";:.UT,UV%:.UQ.|
000004D0: 55 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA |UB.(U2%.256.U1%.|
000004E0: 55 33 25 AB 33 29 00 FB 0C E1 00 97 55 51 2C 55 |U3%.3)......UQ,U|
000004F0: 51 25 28 55 51 AB 55 42 29 3A 82 00 07 0D E6 00 |Q%(UQ.UB):......|
00000500: 97 55 31 2C 55 31 25 00 13 0D E8 00 97 55 32 2C |.U1,U1%......U2,|
00000510: 55 32 25 00 1F 0D E9 00 97 55 34 2C 55 34 25 00 |U2%......U4,U4%.|
00000520: 2D 0D EA 00 97 55 33 2C 55 33 25 AB 31 00 35 0D |-....U3,U3%.1.5.|
00000530: EB 00 89 33 35 00 67 0D F0 00 55 44 25 B2 28 28 |...35.g...UD%.((|
00000540: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 29 |U2%.256.U1%.U3%)|
00000550: AB 55 42 29 AD 34 30 3A 99 C8 28 55 44 24 2C 55 |.UB).40:..(UD$,U|
00000560: 44 25 AA 31 29 3A 8E 00 A2 0D F5 00 99 C8 28 55 |D%.1):........(U|
00000570: 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 |D$,24);" |
00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 20 | . |
00000590: 48 45 4C 50 20 43 4F 4D 49 4E 47 20 92 20 20 22 |HELP COMING . "|
000005A0: 3A 8E 00 CE 0D FA 00 55 31 25 B2 C2 28 55 31 29 |:......U1%..(U1)|
000005B0: 3A 55 32 25 B2 C2 28 55 32 29 3A 55 33 25 B2 C2 |:U2%..(U2):U3%..|
000005C0: 28 55 33 29 3A 55 34 25 B2 C2 28 55 34 29 00 F6 |(U3):U4%..(U4)..|
000005D0: 0D FB 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 |...UJ$.US$:UK$.U|
000005E0: 47 24 3A 55 4C 24 B2 55 54 24 3A 55 4A B2 55 50 |G$:UL$.UT$:UJ.UP|
000005F0: 3A 55 4B B2 55 4C 00 FC 0D FF 00 8E 00 0D 0E 2C |:UK.UL.........,|
00000600: 01 8F 20 2A 2A 20 4D 45 4E 55 20 2A 2A 00 13 0E |.. ** MENU **...|
00000610: 31 01 3A 00 2E 0E 36 01 99 22 93 22 3A 97 35 33 |1.:...6..".":.53|
00000620: 32 38 31 2C 30 3A 97 35 33 32 38 30 2C 30 00 3B |281,0:.53280,0.;|
00000630: 0E 3B 01 99 C7 28 31 34 32 29 3B 00 60 0E 40 01 |.;...(142);.`.@.|
00000640: 99 22 13 11 11 11 05 20 20 20 20 20 20 20 20 20 |."..... |
00000650: 20 20 20 20 20 20 20 20 20 4D 45 4E 55 11 11 22 | MENU.."|
00000660: 00 8F 0E 45 01 99 22 20 20 20 20 20 1C 20 D5 C4 |...E.." . ..|
00000670: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000680: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C9 20 20 20 22 00 |........... ".|
00000690: BA 0E 4A 01 99 22 20 20 20 20 20 20 C7 20 20 20 |..J.." . |
000006A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006B0: 20 20 20 20 20 20 20 20 C8 22 00 E5 0E 4F 01 99 | ."...O..|
000006C0: 22 20 20 20 20 20 20 C7 20 20 20 20 20 20 20 20 |" . |
000006D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006E0: 20 20 20 C8 22 00 12 0F 54 01 99 22 20 20 20 20 | ."...T.." |
000006F0: 20 20 C7 20 05 20 31 2E 20 20 20 42 45 47 49 4E | . . 1. BEGIN|
00000700: 20 42 41 54 54 4C 45 53 48 49 50 20 20 20 1C 20 | BATTLESHIP . |
00000710: C8 22 00 3D 0F 59 01 99 22 20 20 20 20 20 20 C7 |.".=.Y.." .|
00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000730: 20 20 20 20 20 20 20 20 20 20 20 C8 22 00 68 0F | .".h.|
00000740: 5E 01 99 22 20 20 20 20 20 20 C7 20 20 20 20 20 |^.." . |
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000760: 20 20 20 20 20 20 C8 22 00 95 0F 63 01 99 22 20 | ."...c.." |
00000770: 20 20 20 20 20 C7 20 05 20 32 2E 20 20 20 55 53 | . . 2. US|
00000780: 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |ER INSTRUCTIONS |
00000790: 20 1C 20 C8 22 00 C0 0F 68 01 99 22 20 20 20 20 | . ."...h.." |
000007A0: 20 20 C7 20 20 20 20 20 20 20 20 20 20 20 20 20 | . |
000007B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 C8 22 | ."|
000007C0: 00 EB 0F 6D 01 99 22 20 20 20 20 20 20 C7 20 20 |...m.." . |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007E0: 20 20 20 20 20 20 20 20 20 C8 22 00 18 10 72 01 | ."...r.|
000007F0: 99 22 20 20 20 20 20 20 C7 20 20 05 33 2E 20 20 |." . .3. |
00000800: 20 51 55 49 54 20 20 20 20 20 20 20 20 20 20 20 | QUIT |
00000810: 20 20 20 20 1C 20 C8 22 00 43 10 77 01 99 22 20 | . .".C.w.." |
00000820: 20 20 20 20 20 C7 20 20 20 20 20 20 20 20 20 20 | . |
00000830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000840: 20 C8 22 00 6E 10 7C 01 99 22 20 20 20 20 20 20 | .".n.|.." |
00000850: C7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 C8 22 00 99 | ."..|
00000870: 10 81 01 99 22 20 20 20 20 20 20 CA C6 C6 C6 C6 |...." .....|
00000880: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00000890: C6 C6 C6 C6 C6 C6 C6 CB 22 00 C6 10 82 01 99 22 |........"......"|
000008A0: 11 11 20 20 20 20 20 20 20 9E 05 50 52 45 53 53 |.. ..PRESS|
000008B0: 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 | A NUMBER KEY (1|
000008C0: 2D 33 29 20 22 3B 00 D9 10 86 01 A1 41 24 3A 8B |-3) ";......A$:.|
000008D0: 41 24 B2 22 22 A7 33 39 30 00 02 11 87 01 8B 41 |A$."".390......A|
000008E0: 24 B3 B1 22 2A 22 AF 41 24 B3 B1 22 31 22 AF 41 |$.."*".A$.."1".A|
000008F0: 24 B3 B1 22 32 22 AF 41 24 B3 B1 22 33 22 A7 33 |$.."2".A$.."3".3|
00000900: 39 30 00 24 11 88 01 8B 41 24 B3 B1 22 2A 22 A7 |90.$....A$.."*".|
00000910: 20 91 C5 28 41 24 29 8D 31 30 30 30 2C 34 30 30 | ..(A$).1000,400|
00000920: 2C 33 39 36 00 2A 11 89 01 8A 00 51 11 8B 01 8F |,396.*.....Q....|
00000930: 20 2A 2A 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 | ** RE-ENABLE ST|
00000940: 4F 50 20 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A |OP KEY AND END *|
00000950: 2A 00 80 11 8C 01 8B C2 28 35 30 30 30 33 29 B3 |*.......(50003).|
00000960: B1 31 AF C2 28 35 30 30 30 33 29 B3 B1 31 36 30 |.1..(50003)..160|
00000970: AF C2 28 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 |..(50003)..0.399|
00000980: 00 AA 11 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 |......UU.71:..(5|
00000990: 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 |0003).0..53281,6|
000009A0: 3A 97 35 33 32 38 30 2C 31 34 00 BB 11 8E 01 99 |:.53280,14......|
000009B0: 22 9A 93 22 3A 89 36 33 30 30 30 00 C6 11 8F 01 |"..":.63000.....|
000009C0: 8D 38 37 35 3A 8E 00 E7 11 90 01 8F 20 2A 2A 20 |.875:....... ** |
000009D0: 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 |STUDENT INSTRUCT|
000009E0: 49 4F 4E 53 20 2A 2A 00 16 12 95 01 99 22 93 22 |IONS **......"."|
000009F0: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000|
00000A00: 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 35 |3).0..53281,0:.5|
00000A10: 33 32 38 30 2C 30 00 3E 12 9A 01 55 50 B2 30 3A |3280,0.>...UP.0:|
00000A20: 55 47 24 B2 22 20 20 20 D5 53 45 52 20 C9 4E 53 |UG$." .SER .NS|
00000A30: 54 52 55 43 54 49 4F 4E 22 3A 8D 38 35 30 00 48 |TRUCTION":.850.H|
00000A40: 12 9C 01 8D 31 39 31 30 00 5C 12 EA 01 8B 55 5A |....1910.\....UZ|
00000A50: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 62 12 F3 |.1..UP%:.217.b..|
00000A60: 01 8E 00 83 12 F4 01 8F 20 2A 2A 20 54 45 41 43 |........ ** TEAC|
00000A70: 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |HER INSTRUCTIONS|
00000A80: 20 2A 2A 00 B3 12 F5 01 99 22 93 22 3A 97 55 54 | **......".":.UT|
00000A90: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0|
00000AA0: A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 |..53281,2:.53280|
00000AB0: 2C 31 30 00 D4 12 F6 01 55 50 B2 30 3A 55 47 24 |,10.....UP.0:UG$|
00000AC0: B2 22 20 20 C1 44 44 45 44 20 C9 4E 53 54 22 3A |." .DDED .NST":|
00000AD0: 8D 38 35 30 00 02 13 F7 01 99 22 11 11 20 20 20 |.850......".. |
00000AE0: 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 4F | .O THE BEST O|
00000AF0: 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 2C |F OUR KNOWLEDGE,|
00000B00: 11 22 00 2B 13 F8 01 99 22 20 20 20 54 48 49 53 |.".+...." THIS|
00000B10: 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 54 | PROGRAM IS IN T|
00000B20: 48 45 20 50 55 42 4C 49 43 11 22 00 3E 13 F9 01 |HE PUBLIC.".>...|
00000B30: 99 22 20 20 20 44 4F 4D 41 49 4E 2E 11 22 00 49 |." DOMAIN..".I|
00000B40: 13 FA 01 99 22 20 11 11 22 00 76 13 FB 01 99 22 |...." ..".v...."|
00000B50: 20 20 20 20 20 20 20 20 C7 52 45 45 4E 20 D6 41 | .REEN .A|
00000B60: 4C 4C 45 59 20 D0 55 42 4C 49 53 48 49 4E 47 20 |LLEY .UBLISHING |
00000B70: C9 4E 43 2E 11 22 00 9A 13 FC 01 99 22 20 20 20 |.NC.."......" |
00000B80: 20 20 20 20 20 37 31 32 32 20 D3 48 41 44 59 20 | 7122 .HADY |
00000B90: CF 41 4B 20 D2 4F 41 44 11 22 00 C0 13 FD 01 99 |.AK .OAD."......|
00000BA0: 22 20 20 20 20 20 20 20 20 C5 44 45 4E 20 D0 52 |" .DEN .R|
00000BB0: 41 52 49 45 2C 20 CD CE 20 20 35 35 33 34 34 22 |ARIE, .. 55344"|
00000BC0: 00 E0 13 FF 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000BE0: 00 F6 13 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A |.....UP.1:. 835:|
00000BF0: 8D 20 38 35 30 3A 00 1D 14 01 02 99 22 20 20 20 |. 850:......" |
00000C00: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME|
00000C10: 3A 20 C2 41 54 54 4C 45 53 48 49 50 11 00 44 14 |: .ATTLESHIP..D.|
00000C20: 02 02 99 22 20 20 20 20 20 D7 52 49 54 54 45 4E |..." .RITTEN|
00000C30: 20 C2 59 20 20 3A 20 CD 2E 20 D2 49 43 48 54 45 | .Y : .. .ICHTE|
00000C40: 52 20 20 11 00 6B 14 03 02 99 22 20 20 20 20 20 |R ..k...." |
00000C50: D5 50 47 52 41 44 45 44 20 C2 59 20 3A 20 D3 43 |.PGRADED .Y : .C|
00000C60: 4F 54 54 20 C2 52 55 4E 53 11 22 00 96 14 04 02 |OTT .RUNS.".....|
00000C70: 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F |." ..HIS PRO|
00000C80: 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E |GRAM WILL RUN ON|
00000C90: 20 41 4E 59 11 11 00 BB 14 08 02 99 22 20 20 20 | ANY........" |
00000CA0: 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 | ......... |
00000CB0: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 C4 14 09 02 |64 .............|
00000CC0: 8D 38 33 35 00 D8 14 4E 02 8B 55 5A B2 31 A7 9E |.835...N..UZ.1..|
00000CD0: 55 50 25 3A 89 32 31 37 00 DE 14 57 02 8E 00 04 |UP%:.217...W....|
00000CE0: 15 58 02 8F 20 2A 2A 20 50 52 4F 47 52 41 4D 20 |.X.. ** PROGRAM |
00000CF0: 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 49 4E 53 |MODIFICATION INS|
00000D00: 54 20 2A 2A 00 15 15 59 02 99 22 93 22 3A 97 55 |T **...Y..".":.U|
00000D10: 54 2C 55 4C 25 00 35 15 5D 02 55 50 B2 30 3A 55 |T,UL%.5.].UP.0:U|
00000D20: 47 24 B2 22 D0 52 4F 47 52 41 4D 20 CD 4F 44 22 |G$.".ROGRAM .OD"|
00000D30: 3A 8D 38 35 30 00 3E 15 94 02 8D 38 33 35 00 52 |:.850.>....835.R|
00000D40: 15 B2 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 |....UZ.1..UP%:.2|
00000D50: 31 37 00 58 15 BB 02 8E 00 7D 15 BC 02 8F 20 2A |17.X.....}.... *|
00000D60: 2A 20 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F |* TO USE 8032 LO|
00000D70: 41 44 20 43 42 4D 34 30 33 32 20 2A 2A 00 B3 15 |AD CBM4032 **...|
00000D80: C6 02 99 22 93 11 11 11 05 42 45 46 4F 52 45 20 |...".....BEFORE |
00000D90: 52 55 4E 4E 49 4E 47 20 54 48 49 53 20 50 52 4F |RUNNING THIS PRO|
00000DA0: 47 52 41 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 |GRAM ON AN 8032 |
00000DB0: 20 11 11 00 E9 15 D0 02 99 22 20 20 20 20 20 20 | ........" |
00000DC0: 4C 4F 41 44 20 54 48 45 20 27 43 42 4D 20 34 30 |LOAD THE 'CBM 40|
00000DD0: 33 32 27 20 50 52 4F 47 52 41 4D 11 11 11 11 11 |32' PROGRAM.....|
00000DE0: 11 11 11 11 11 11 11 11 22 00 F4 15 DA 02 9E 55 |........"......U|
00000DF0: 55 AA 37 31 00 FA 15 E4 02 80 00 1A 16 20 03 8F |U.71......... ..|
00000E00: 20 2A 2A 20 54 20 49 20 54 20 4C 20 45 20 20 20 | ** T I T L E |
00000E10: 50 20 41 20 47 20 45 20 2A 2A 00 2E 16 21 03 8B |P A G E **...!..|
00000E20: C2 28 34 39 31 35 32 29 B2 31 A7 38 33 30 00 56 |.(49152).1.830.V|
00000E30: 16 22 03 99 22 93 11 1D 05 22 3B 3A 97 35 33 32 |.".."....";:.532|
00000E40: 38 30 2C 31 33 3A 97 35 33 32 38 31 2C 31 33 3A |80,13:.53281,13:|
00000E50: 99 C7 28 31 34 29 00 8F 16 2C 03 99 22 95 13 11 |..(14)...,.."...|
00000E60: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000E70: 1D 1D C2 C1 D4 D4 CC C5 D3 C8 C9 D0 22 3A 99 A3 |............":..|
00000E80: 31 35 29 22 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 |15)"..........".|
00000E90: BE 16 2E 03 99 22 9A 11 11 1D 1D 1D 1D C6 49 52 |....."........IR|
00000EA0: 45 20 54 4F 52 50 45 44 4F 45 53 20 42 59 20 47 |E TORPEDOES BY G|
00000EB0: 55 45 53 53 49 4E 47 20 53 50 4F 54 53 22 00 E9 |UESSING SPOTS"..|
00000EC0: 16 30 03 99 22 11 1D 1D 1D 1D 4F 4E 20 54 48 45 |.0..".....ON THE|
00000ED0: 20 50 4C 41 59 49 4E 47 20 42 4F 41 52 44 2E 20 | PLAYING BOARD. |
00000EE0: D7 48 45 4E 20 59 4F 55 22 00 17 17 32 03 99 22 |.HEN YOU"...2.."|
00000EF0: 11 1D 1D 1D 1D 47 55 45 53 53 20 43 4F 52 52 45 |.....GUESS CORRE|
00000F00: 43 54 4C 59 2C 20 59 4F 55 27 4C 4C 20 53 49 4E |CTLY, YOU'LL SIN|
00000F10: 4B 20 54 48 45 20 22 00 44 17 34 03 99 22 11 1D |K THE ".D.4.."..|
00000F20: 1D 1D 1D 43 4F 4D 50 55 54 45 52 27 53 20 53 48 |...COMPUTER'S SH|
00000F30: 49 50 53 2E 20 C2 55 54 20 57 41 54 43 48 20 4F |IPS. .UT WATCH O|
00000F40: 55 54 2C 22 00 71 17 36 03 99 22 11 1D 1D 1D 1D |UT,".q.6..".....|
00000F50: 54 48 45 20 43 4F 4D 50 55 54 45 52 20 43 41 4E |THE COMPUTER CAN|
00000F60: 20 53 49 4E 4B 20 59 4F 55 52 20 53 48 49 50 53 | SINK YOUR SHIPS|
00000F70: 22 00 82 17 38 03 99 22 11 1D 1D 1D 1D 54 4F 4F |"...8..".....TOO|
00000F80: 21 22 00 9D 17 3A 03 8F 20 2A 2A 20 43 4F 4D 4D |!"...:.. ** COMM|
00000F90: 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 D6 17 |ODORE LOGO **...|
00000FA0: 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 1F 1D |;...(UD$,24);"..|
00000FB0: 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 53 |.........PRESS S|
00000FC0: 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 54 |PACE BAR OR WAIT|
00000FD0: 92 22 3A 49 B2 30 00 F9 17 3C 03 A1 41 24 3A 8B |.":I.0...<..A$:.|
00000FE0: 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B 49 |A$.." ".I.I.1:.I|
00000FF0: B3 31 30 30 30 A7 38 32 38 00 06 18 3D 03 97 34 |.1000.828...=..4|
00001000: 39 31 35 32 2C 31 00 2A 18 3E 03 54 31 24 B2 22 |9152,1.*.>.T1$."|
00001010: 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 22 22 3A |":T2$."":T3$."":|
00001020: 54 34 24 B2 22 22 3A 49 B2 30 00 33 18 40 03 89 |T4$."":I.0.3.@..|
00001030: 33 30 30 00 4F 18 43 03 8F 20 2A 2A 20 53 50 41 |300.O.C.. ** SPA|
00001040: 43 45 20 42 41 52 20 50 52 45 53 53 20 2A 2A 00 |CE BAR PRESS **.|
00001050: 8E 18 48 03 97 55 4F 2C 30 3A 99 C8 28 55 44 24 |..H..UO,0:..(UD$|
00001060: 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 |,24);".......PRE|
00001070: 53 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 |SS SPACE BAR TO |
00001080: 43 4F 4E 54 49 4E 55 45 92 20 20 20 20 22 00 AE |CONTINUE. "..|
00001090: 18 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 |.L..UI$:.UI$.." |
000010A0: 22 AF 55 49 24 B3 B1 22 2A 22 A7 38 34 34 00 BD |".UI$.."*".844..|
000010B0: 18 4D 03 8B 55 49 24 B2 22 2A 22 A7 8A 00 C3 18 |.M..UI$."*".....|
000010C0: 4E 03 8E 00 E3 18 52 03 8F 20 2A 2A 20 50 41 47 |N.....R.. ** PAG|
000010D0: 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 4E 45 |E DESIGN ROUTINE|
000010E0: 20 2A 2A 00 EF 18 54 03 55 50 B2 55 50 AA 31 00 | **...T.UP.UP.1.|
000010F0: 19 19 57 03 99 22 93 22 C8 28 55 54 24 AA 55 50 |..W..".".(UT$.UP|
00001100: 24 2C 32 31 29 3B C9 28 55 50 24 AA 55 47 24 AA |$,21);.(UP$.UG$.|
00001110: C4 28 55 50 29 2C 31 38 29 00 4A 19 5C 03 99 22 |.(UP),18).J.\.."|
00001120: 1C 20 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |. ..............|
00001130: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00001140: B7 B7 B7 B7 B7 B7 B7 B7 05 22 00 59 19 60 03 8B |.........".Y.`..|
00001150: 55 48 B3 B1 30 A7 38 37 30 00 8D 19 61 03 99 C8 |UH..0.870...a...|
00001160: 28 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 37 |(UD$,24);.(UP$,7|
00001170: 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |);" |
00001180: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 9E 19 | "...|
00001190: 66 03 55 48 B2 30 3A 99 22 13 11 22 3A 8E 00 BD |f.UH.0:."..":...|
000011A0: 19 6B 03 8F 20 2A 2A 20 50 4C 45 41 53 45 20 57 |.k.. ** PLEASE W|
000011B0: 41 49 54 20 52 45 4D 41 52 4B 20 2A 2A 00 F3 19 |AIT REMARK **...|
000011C0: 70 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |p...(UD$,24);" |
000011D0: 20 20 20 20 20 20 20 20 20 4F 4E 45 20 4D 4F 4D | ONE MOM|
000011E0: 45 4E 54 20 50 4C 45 41 53 45 2E 2E 2E 20 20 20 |ENT PLEASE... |
000011F0: 20 20 22 00 F9 19 75 03 8E 00 16 1A 84 03 8F 20 | "...u........ |
00001200: 2A 2A 20 53 45 54 20 55 50 20 56 41 52 49 41 42 |** SET UP VARIAB|
00001210: 4C 45 53 20 2A 2A 00 61 1A 85 03 55 58 24 B2 22 |LES **.a...UX$."|
00001220: 3F 22 3A 86 55 51 25 28 31 30 30 30 29 3A 55 42 |?":.UQ%(1000):UB|
00001230: B2 33 32 37 36 38 3A 55 31 B2 31 39 36 3A 55 32 |.32768:U1.196:U2|
00001240: B2 31 39 37 3A 55 33 B2 31 39 38 3A 55 34 B2 32 |.197:U3.198:U4.2|
00001250: 31 36 3A 55 43 B2 31 36 37 3A 55 55 B2 31 30 32 |16:UC.167:UU.102|
00001260: 34 00 9F 1A 86 03 55 54 B2 35 39 34 36 38 3A 55 |4.....UT.59468:U|
00001270: 55 25 B2 31 32 3A 55 4C 25 B2 31 34 3A 55 50 25 |U%.12:UL%.14:UP%|
00001280: B2 31 31 34 36 3A 55 4D B2 33 32 37 36 38 3A 55 |.1146:UM.32768:U|
00001290: 4F B2 31 35 38 3A 97 20 35 30 30 30 33 2C 30 00 |O.158:. 50003,0.|
000012A0: E2 1A 87 03 8B C2 28 35 30 30 30 33 29 B2 30 A7 |......(50003).0.|
000012B0: 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 3A 55 |UB.1024:U1.209:U|
000012C0: 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 34 B2 |2.210:U3.211:U4.|
000012D0: 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 32 30 |214:UC.204:UU.20|
000012E0: 34 38 00 21 1B 88 03 8B C2 28 35 30 30 30 33 29 |48.!.....(50003)|
000012F0: B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 25 B2 |.0.UT.53272:UU%.|
00001300: 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 32 31 |21:UL%.23:UP%.21|
00001310: 33 39 3A 55 4D B2 31 30 32 34 3A 55 4F B2 31 39 |39:UM.1024:UO.19|
00001320: 38 00 45 1B 89 03 55 44 24 B2 22 13 11 11 11 11 |8.E...UD$.".....|
00001330: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001340: 11 11 11 11 22 00 77 1B 8A 03 55 50 24 B2 22 20 |....".w...UP$." |
00001350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001370: 20 20 20 20 20 20 22 00 C4 1B 8B 03 55 54 24 B2 | ".....UT$.|
00001380: 22 20 C2 41 54 54 4C 45 53 48 49 50 20 A0 A0 A0 |" .ATTLESHIP ...|
00001390: A0 A0 A0 22 3A 8F 20 50 4C 41 43 45 20 50 52 4F |...":. PLACE PRO|
000013A0: 47 52 41 4D 20 54 49 54 4C 45 20 48 45 52 45 20 |GRAM TITLE HERE |
000013B0: 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 21 |!!!!!!!!!!!!!!!!|
000013C0: 21 2A 2A 2A 00 CA 1B 8C 03 8E 00 E4 1B 8E 03 8F |!***............|
000013D0: 20 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 | ** SET VARIABLE|
000013E0: 53 20 2A 2A 00 ED 1B 93 03 8D 39 30 30 00 08 1C |S **......900...|
000013F0: 98 03 8F 20 2A 2A 20 43 48 45 43 4B 20 46 4F 52 |... ** CHECK FOR|
00001400: 20 38 30 33 32 20 2A 2A 00 26 1C 9D 03 99 22 93 | 8032 **.&....".|
00001410: 22 3A 99 22 A0 22 3A 8F 20 53 48 49 46 54 45 44 |":.".":. SHIFTED|
00001420: 20 53 50 41 43 45 00 3D 1C A2 03 8B C2 28 55 42 | SPACE.=.....(UB|
00001430: AA 34 30 29 B3 B1 39 36 A7 8D 37 30 30 00 56 1C |.40)..96..700.V.|
00001440: A3 03 8F 20 2A 2A 20 4D 45 4D 4F 52 59 20 43 48 |... ** MEMORY CH|
00001450: 45 43 4B 20 2A 2A 00 6A 1C A4 03 8B 20 B8 28 30 |ECK **.j.... .(0|
00001460: 29 B1 32 30 30 30 A7 39 33 37 00 98 1C A5 03 99 |).2000.937......|
00001470: 22 93 11 11 05 54 48 49 53 20 4D 41 43 48 49 4E |"....THIS MACHIN|
00001480: 45 20 44 4F 45 53 20 4E 4F 54 20 48 41 56 45 20 |E DOES NOT HAVE |
00001490: 45 4E 4F 55 47 48 11 22 00 BC 1C A6 03 99 22 4D |ENOUGH."......"M|
000014A0: 45 4D 4F 52 59 20 54 4F 20 52 55 4E 20 54 48 49 |EMORY TO RUN THI|
000014B0: 53 20 50 52 4F 47 52 41 4D 20 21 22 00 C7 1C A7 |S PROGRAM !"....|
000014C0: 03 9E 55 55 AA 37 31 00 DC 1C A8 03 93 22 54 41 |..UU.71......"TA|
000014D0: 52 47 45 54 35 22 2C 38 3A 8A 3A 80 00 F6 1C A9 |RGET5",8:.:.....|
000014E0: 03 99 22 93 05 22 3A 8B C2 28 35 30 30 30 33 29 |.."..":..(50003)|
000014F0: B2 30 A7 39 36 32 00 25 1D AC 03 8F 20 2A 2A 20 |.0.962.%.... ** |
00001500: 42 41 53 49 43 20 32 2E 30 20 20 4F 52 20 20 34 |BASIC 2.0 OR 4|
00001510: 2E 30 20 20 4F 52 20 20 43 2D 36 34 20 53 45 54 |.0 OR C-64 SET|
00001520: 55 50 20 2A 2A 00 63 1D AD 03 97 31 30 37 35 2C |UP **.c....1075,|
00001530: 31 33 33 3A 97 31 30 37 36 2C 31 34 34 3A 97 31 |133:.1076,144:.1|
00001540: 30 37 37 2C 32 33 34 3A 97 31 30 37 39 2C 34 3A |077,234:.1079,4:|
00001550: 97 31 30 38 30 2C 31 33 33 3A 97 31 30 38 31 2C |.1080,133:.1081,|
00001560: 31 34 35 00 99 1D AE 03 97 31 30 39 31 2C 31 35 |145......1091,15|
00001570: 35 3A 97 31 30 39 38 2C 31 33 33 3A 97 31 30 39 |5:.1098,133:.109|
00001580: 39 2C 31 34 34 3A 97 31 31 30 30 2C 32 33 34 3A |9,144:.1100,234:|
00001590: 97 31 31 30 33 2C 31 33 33 00 BB 1D AF 03 97 31 |.1103,133......1|
000015A0: 31 30 34 2C 31 34 35 3A 97 31 31 30 35 2C 32 33 |104,145:.1105,23|
000015B0: 34 3A 97 31 30 38 32 2C 32 33 34 00 D2 1D B1 03 |4:.1082,234.....|
000015C0: 8B C2 28 35 30 30 30 33 29 B3 B1 31 36 30 A7 39 |..(50003)..160.9|
000015D0: 35 35 00 01 1E B6 03 97 31 30 39 33 2C 38 38 3A |55......1093,88:|
000015E0: 97 31 30 39 34 2C 32 32 38 3A 97 31 30 39 37 2C |.1094,228:.1097,|
000015F0: 38 35 3A 97 31 31 30 32 2C 32 32 38 3A 89 39 36 |85:.1102,228:.96|
00001600: 35 00 16 1E BB 03 8B C2 28 35 30 30 30 33 29 B3 |5.......(50003).|
00001610: B1 31 A7 39 39 30 00 45 1E C0 03 97 31 30 39 33 |.1.990.E....1093|
00001620: 2C 34 39 3A 97 31 30 39 34 2C 32 33 30 3A 97 31 |,49:.1094,230:.1|
00001630: 30 39 37 2C 34 36 3A 97 31 31 30 32 2C 32 33 30 |097,46:.1102,230|
00001640: 3A 89 39 36 35 00 7F 1E C2 03 97 32 30 39 39 2C |:.965......2099,|
00001650: 31 34 31 3A 97 32 31 30 30 2C 32 30 3A 97 32 31 |141:.2100,20:.21|
00001660: 30 31 2C 33 3A 97 32 31 30 33 2C 38 3A 97 32 31 |01,3:.2103,8:.21|
00001670: 30 34 2C 31 34 31 3A 97 32 31 30 35 2C 32 31 00 |04,141:.2105,21.|
00001680: BB 1E C3 03 97 32 31 30 36 2C 33 3A 97 32 31 31 |.....2106,3:.211|
00001690: 35 2C 31 34 35 3A 97 32 31 31 37 2C 35 32 3A 97 |5,145:.2117,52:.|
000016A0: 32 31 31 38 2C 32 33 34 3A 97 32 31 32 31 2C 34 |2118,234:.2121,4|
000016B0: 39 3A 97 32 31 32 32 2C 31 34 31 00 F5 1E C4 03 |9:.2122,141.....|
000016C0: 97 32 31 32 33 2C 32 30 3A 97 32 31 32 34 2C 33 |.2123,20:.2124,3|
000016D0: 3A 97 32 31 32 36 2C 32 33 34 3A 97 32 31 32 37 |:.2126,234:.2127|
000016E0: 2C 31 34 31 3A 97 32 31 32 38 2C 32 31 3A 97 32 |,141:.2128,21:.2|
000016F0: 31 32 39 2C 33 00 13 1F C5 03 9E 55 55 AA 34 38 |129,3......UU.48|
00001700: 3A 8F 20 44 49 53 41 42 4C 45 20 53 54 4F 50 20 |:. DISABLE STOP |
00001710: 4B 45 59 00 24 1F CA 03 8D 38 30 30 3A 8F 20 54 |KEY.$....800:. T|
00001720: 49 54 4C 45 00 34 1F D4 03 89 33 30 30 3A 8F 20 |ITLE.4....300:. |
00001730: 4D 45 4E 55 00 74 1F DE 03 99 22 93 54 48 45 20 |MENU.t....".THE |
00001740: 50 47 4D 20 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 |PGM WILL NOT WOR|
00001750: 4B 20 4F 4E 20 54 48 49 53 20 4D 41 43 48 49 4E |K ON THIS MACHIN|
00001760: 45 21 22 3A 93 22 54 41 52 47 45 54 35 22 2C 38 |E!":."TARGET5",8|
00001770: 3A 8A 3A 80 00 A9 1F E8 03 8B 55 5A B2 31 A7 9E |:.:.......UZ.1..|
00001780: 55 50 25 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 |UP%:.UP%:UZ.0:. |
00001790: 2A 2A 20 50 52 4F 47 52 41 4D 20 53 54 41 52 54 |** PROGRAM START|
000017A0: 53 20 48 45 52 45 20 2A 2A 00 D6 1F E9 03 99 22 |S HERE **......"|
000017B0: 93 05 22 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 |..";:.:..(50003)|
000017C0: B2 30 A7 97 35 33 32 38 31 2C 31 34 3A 97 35 33 |.0..53281,14:.53|
000017D0: 32 38 30 2C 31 34 00 DC 1F 42 04 3A 00 F5 1F 4C |280,14...B.:...L|
000017E0: 04 8F 20 42 41 54 54 4C 45 53 48 49 50 20 50 52 |.. BATTLESHIP PR|
000017F0: 4F 47 52 41 4D 00 0C 20 60 04 8F 20 42 28 33 2C |OGRAM.. `.. B(3,|
00001800: 37 29 2C 58 28 33 29 2C 59 28 33 29 00 12 20 6A |7),X(3),Y(3).. j|
00001810: 04 8F 00 4D 20 74 04 46 B2 30 3A 50 24 B2 22 40 |...M t.F.0:P$."@|
00001820: 32 32 32 35 35 32 35 35 33 34 34 33 31 33 33 31 |2225525534431331|
00001830: 34 36 36 34 36 31 31 36 31 30 30 31 30 34 34 30 |4664611610010440|
00001840: 37 33 33 37 37 36 36 37 37 30 30 37 40 00 53 20 |733776677007@.S |
00001850: 79 04 8F 00 7F 20 7E 04 99 C7 28 31 34 29 22 13 |y.... ~...(14)".|
00001860: 9E 20 20 20 20 20 20 20 20 20 2A 2A 2A 20 20 C2 |. *** .|
00001870: C1 D4 D4 CC C5 D3 C8 C9 D0 20 20 2A 2A 2A 05 00 |......... ***..|
00001880: BA 20 92 04 99 22 11 11 20 C8 4F 57 20 4D 41 4E |. ...".. .OW MAN|
00001890: 59 20 42 41 54 54 4C 45 53 48 49 50 53 20 50 45 |Y BATTLESHIPS PE|
000018A0: 52 20 53 49 44 45 3F 20 28 31 2D 37 29 20 22 3B |R SIDE? (1-7) ";|
000018B0: 3A 8D 32 32 39 30 3A 4E B2 43 00 EA 20 9C 04 99 |:.2290:N.C.. ...|
000018C0: 22 99 D7 48 49 4C 45 20 59 4F 55 20 4C 4F 43 41 |"..HILE YOU LOCA|
000018D0: 54 45 20 59 4F 55 52 53 2C 20 C9 27 4C 4C 20 48 |TE YOURS, .'LL H|
000018E0: 49 44 45 20 4D 49 4E 45 2E 22 00 1A 21 A1 04 99 |IDE MINE."..!...|
000018F0: 22 05 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |"...............|
00001900: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00001910: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 5B 21 A6 04 99 |.........".[!...|
00001920: 22 99 20 D4 4F 20 45 4E 54 45 52 20 41 20 42 41 |". .O ENTER A BA|
00001930: 54 54 4C 45 53 48 49 50 2C 20 47 49 56 45 20 4D |TTLESHIP, GIVE M|
00001940: 45 20 20 20 20 20 20 20 20 20 20 12 11 49 4E 20 |E ..IN |
00001950: 54 48 49 53 20 4F 52 44 45 52 3A 00 88 21 B0 04 |THIS ORDER:..!..|
00001960: 99 22 11 20 31 2E 20 D2 4F 57 20 28 CC C5 D4 D4 |.". 1. .OW (....|
00001970: C5 D2 29 20 4F 46 20 54 48 45 20 54 4F 50 2F 4C |..) OF THE TOP/L|
00001980: 45 46 54 20 45 4E 44 2E 00 A8 21 BA 04 99 22 11 |EFT END...!...".|
00001990: 20 32 2E 20 C9 54 53 20 C3 4F 4C 55 4D 4E 20 28 | 2. .TS .OLUMN (|
000019A0: CE D5 CD C2 C5 D2 29 2E 00 EF 21 C4 04 99 22 11 |......)...!...".|
000019B0: 20 33 2E 20 C9 54 53 20 C4 49 52 45 43 54 49 4F | 3. .TS .IRECTIO|
000019C0: 4E 2C 20 D6 45 52 54 49 43 41 4C 20 4F 52 20 20 |N, .ERTICAL OR |
000019D0: 20 20 20 20 20 20 20 20 20 20 20 20 C8 4F 52 49 | .ORI|
000019E0: 5A 4F 4E 54 41 4C 20 28 D6 2F C8 29 2E 11 22 00 |ZONTAL (./.)..".|
000019F0: 3A 22 C5 04 99 22 C6 4F 52 20 45 58 41 4D 50 4C |:"...".OR EXAMPL|
00001A00: 45 2C 20 45 4E 54 45 52 20 C1 30 C8 20 46 4F 52 |E, ENTER .0. FOR|
00001A10: 20 41 20 53 48 49 50 20 49 4E 20 54 48 45 55 50 | A SHIP IN THEUP|
00001A20: 50 45 52 20 4C 45 46 54 48 41 4E 44 20 43 4F 52 |PER LEFTHAND COR|
00001A30: 4E 45 52 20 49 4E 20 41 22 3B 00 5C 22 C6 04 99 |NER IN A";.\"...|
00001A40: 22 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 20 20 44 |" HORIZONTAL D|
00001A50: 49 52 45 43 54 49 4F 4E 2E 91 91 22 00 78 22 CE |IRECTION...".x".|
00001A60: 04 99 22 9E 22 3B 3A 8D 38 33 35 3A 99 C7 28 31 |..".";:.835:..(1|
00001A70: 34 32 29 3B 22 05 22 3B 00 94 22 E2 04 8F 20 47 |42);".";.."... G|
00001A80: 45 54 20 54 48 45 20 4E 20 42 41 54 54 4C 45 53 |ET THE N BATTLES|
00001A90: 48 49 50 53 00 A9 22 EC 04 8F 20 44 52 41 57 20 |HIPS.."... DRAW |
00001AA0: 54 48 45 20 46 49 45 4C 44 00 F0 22 F6 04 99 22 |THE FIELD.."..."|
00001AB0: 93 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001AC0: 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001AD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 20 |........... |
00001AE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001AF0: 00 11 23 F8 04 99 22 13 22 3B A6 36 29 3B 3A 81 |..#...".";.6);:.|
00001B00: 4A B2 30 A4 32 33 3A 99 22 A4 22 3B 3A 82 4A 3A |J.0.23:.".";:.J:|
00001B10: 99 00 38 23 00 05 81 49 B2 30 A4 37 3A 99 A6 36 |..8#...I.0.7:..6|
00001B20: 29 3B 3A 81 4A B2 30 A4 37 3A 99 22 A5 20 20 22 |);:.J.0.7:.". "|
00001B30: 3B 3A 82 4A 3A 99 22 A5 00 63 23 0A 05 99 A6 35 |;:.J:."..c#....5|
00001B40: 29 C7 28 36 35 AA 49 29 3B 3A 81 4A B2 30 A4 37 |).(65.I);:.J.0.7|
00001B50: 3A 99 22 CC A4 A4 22 3B 3A 82 4A 3A 99 22 A5 22 |:."...";:.J:."."|
00001B60: 3A 82 49 00 7B 23 14 05 99 A6 36 29 3B 3A 81 49 |:.I.{#....6);:.I|
00001B70: B2 30 A4 37 3A 99 49 3B 3A 82 49 00 84 23 1E 05 |.0.7:.I;:.I..#..|
00001B80: 43 48 B2 30 00 91 23 1F 05 81 4B B2 31 A4 4E AA |CH.0..#...K.1.N.|
00001B90: 31 00 A1 23 21 05 8B 43 48 B2 31 A7 4B B2 4B AB |1..#!..CH.1.K.K.|
00001BA0: 31 00 E9 23 23 05 99 22 13 11 11 11 11 11 11 11 |1..##.."........|
00001BB0: 11 11 11 11 11 11 11 11 11 11 11 11 9F 20 57 48 |............. WH|
00001BC0: 45 52 45 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 |ERE DO YOU WANT |
00001BD0: 53 48 49 50 22 4B 22 3F 20 A0 A0 A0 A0 9D 9D 9D |SHIP"K"? .......|
00001BE0: 9D 22 3B 3A 8D 32 31 39 30 00 F9 23 24 05 8B 43 |.";:.2190..#$..C|
00001BF0: 48 B2 30 A7 8D 31 37 30 30 00 06 24 25 05 8B 43 |H.0..1700..$%..C|
00001C00: 48 B2 31 A7 82 4B 00 32 24 28 05 8B 28 44 24 B2 |H.1..K.2$(..(D$.|
00001C10: 22 56 22 AF C8 28 52 24 2C 31 29 B1 22 46 22 29 |"V"..(R$,1)."F")|
00001C20: B0 28 44 24 B2 22 48 22 AF 43 B1 35 29 89 31 36 |.(D$."H".C.5).16|
00001C30: 39 30 00 53 24 32 05 52 B2 C6 28 C8 28 52 24 2C |90.S$2.R..(.(R$,|
00001C40: 31 29 29 AB 36 35 3A 8B 44 24 B2 22 56 22 89 31 |1)).65:.D$."V".1|
00001C50: 33 37 30 00 7C 24 3C 05 59 B2 52 3A 81 57 B2 30 |370.|$<.Y.R:.W.0|
00001C60: A4 32 3A 8B A8 42 28 30 2C 52 29 AF 32 AE 28 57 |.2:..B(0,R).2.(W|
00001C70: AA 43 29 A7 82 57 3A 89 31 33 36 30 00 86 24 46 |.C)..W:.1360..$F|
00001C80: 05 89 31 36 39 30 00 B4 24 50 05 81 58 B2 43 A4 |..1690..$P..X.C.|
00001C90: 43 AA 32 3A 42 28 30 2C 52 29 B2 42 28 30 2C 52 |C.2:B(0,R).B(0,R|
00001CA0: 29 B0 32 AE 58 3A 8D 31 37 38 30 3A 82 58 3A 89 |).2.X:.1780:.X:.|
00001CB0: 31 34 30 30 00 DB 24 5A 05 58 B2 43 3A 81 57 B2 |1400..$Z.X.C:.W.|
00001CC0: 30 A4 32 3A 8B A8 42 28 30 2C 52 AA 57 29 AF 32 |0.2:..B(0,R.W).2|
00001CD0: AE 43 A7 82 57 3A 89 31 33 39 30 00 E5 24 64 05 |.C..W:.1390..$d.|
00001CE0: 89 31 36 39 30 00 0D 25 6E 05 81 59 B2 52 A4 52 |.1690..%n..Y.R.R|
00001CF0: AA 32 3A 42 28 30 2C 59 29 B2 42 28 30 2C 59 29 |.2:B(0,Y).B(0,Y)|
00001D00: B0 32 AE 43 3A 8D 31 37 38 30 3A 82 59 00 1C 25 |.2.C:.1780:.Y..%|
00001D10: 78 05 8B 4B B2 B1 4E A7 31 34 31 30 00 23 25 7D |x..K..N.1410.#%}|
00001D20: 05 82 4B 00 36 25 82 05 8F 20 53 48 4F 4F 54 20 |..K.6%... SHOOT |
00001D30: 27 45 4D 20 55 50 00 76 25 8C 05 99 C8 28 55 44 |'EM UP.v%....(UD|
00001D40: 24 2C 31 39 29 3A 99 22 11 20 45 4E 54 45 52 20 |$,19):.". ENTER |
00001D50: 12 4C 45 54 54 45 52 2F 4E 55 4D 42 45 52 92 20 |.LETTER/NUMBER. |
00001D60: 4F 46 20 59 4F 55 52 20 53 48 4F 54 3A 20 22 3B |OF YOUR SHOT: ";|
00001D70: 3A 8D 32 32 36 30 00 86 25 91 05 8B 43 4B B2 31 |:.2260..%...CK.1|
00001D80: A7 89 31 34 32 30 00 B1 25 96 05 58 B2 43 3A 59 |..1420..%..X.C:Y|
00001D90: B2 C6 28 52 24 29 AB 36 35 3A 42 28 32 2C 59 29 |..(R$).65:B(2,Y)|
00001DA0: B2 42 28 32 2C 59 29 B0 32 AE 58 3A 8D 31 37 38 |.B(2,Y).2.X:.178|
00001DB0: 30 00 DD 25 A0 05 81 57 B2 30 A4 37 3A 8B 28 42 |0..%...W.0.7:.(B|
00001DC0: 28 31 2C 57 29 AF 42 28 32 2C 57 29 29 B2 42 28 |(1,W).B(2,W)).B(|
00001DD0: 31 2C 57 29 A7 82 57 3A 89 31 35 30 30 00 FE 25 |1,W)..W:.1500..%|
00001DE0: AA 05 8F 20 47 45 54 20 54 48 45 20 D0 C5 D4 27 |... GET THE ...'|
00001DF0: 53 20 50 4C 41 59 20 46 52 4F 4D 20 50 24 00 0A |S PLAY FROM P$..|
00001E00: 26 B4 05 8B 46 89 31 35 34 30 00 2A 26 BE 05 50 |&...F.1540.*&..P|
00001E10: B2 31 AA 32 AC B5 28 28 C3 28 50 24 29 AD 32 AB |.1.2..((.(P$).2.|
00001E20: 31 29 AC BB 28 31 29 AE 33 29 00 58 26 C8 05 58 |1)..(1).3).X&..X|
00001E30: 24 B2 CA 28 50 24 2C 50 AA 31 2C 32 29 3A 50 24 |$..(P$,P.1,2):P$|
00001E40: B2 C8 28 50 24 2C 50 29 AA C9 28 50 24 2C C3 28 |..(P$,P)..(P$,.(|
00001E50: 50 24 29 AB 50 AB 32 29 00 94 26 D2 05 58 B2 C5 |P$).P.2)..&..X..|
00001E60: 28 C8 28 58 24 2C 31 29 29 3A 59 B2 C5 28 C9 28 |(.(X$,1)):Y..(.(|
00001E70: 58 24 2C 31 29 29 3A 42 28 33 2C 59 29 B2 42 28 |X$,1)):B(3,Y).B(|
00001E80: 33 2C 59 29 B0 32 AE 58 3A 8D 31 37 38 30 3A 89 |3,Y).2.X:.1780:.|
00001E90: 31 34 31 30 00 B3 26 D7 05 99 22 20 20 20 20 20 |1410..&..." |
00001EA0: 20 20 20 20 20 20 20 20 20 20 47 4F 54 43 48 41 | GOTCHA|
00001EB0: 21 21 22 00 BD 26 D8 05 89 31 35 31 30 00 E4 26 |!!"..&...1510..&|
00001EC0: DC 05 99 22 20 20 20 20 20 20 20 20 20 2A 2A 2A |..." ***|
00001ED0: 20 59 4F 55 20 47 4F 54 20 4D 45 21 21 21 20 2A | YOU GOT ME!!! *|
00001EE0: 2A 2A 9E 22 00 F4 26 E6 05 99 22 9E 22 3B 3A 8D |**."..&...".";:.|
00001EF0: 20 38 34 30 00 FA 26 F0 05 8E 00 18 27 04 06 99 | 840..&.....'...|
00001F00: 3A 8F 20 4C 4F 4F 4B 20 46 4F 52 20 4E 45 49 47 |:. LOOK FOR NEIG|
00001F10: 48 42 4F 52 20 48 49 54 00 50 27 0E 06 8B 46 B2 |HBOR HIT.P'...F.|
00001F20: 32 A7 58 B2 58 28 31 29 AB 58 28 32 29 3A 59 B2 |2.X.X(1).X(2):Y.|
00001F30: 59 28 31 29 AB 59 28 32 29 3A 91 31 AA 58 28 30 |Y(1).Y(2):.1.X(0|
00001F40: 29 89 31 36 32 30 2C 31 36 33 30 2C 31 36 34 30 |).1620,1630,1640|
00001F50: 00 5E 27 18 06 8B 46 B1 33 89 33 30 30 30 00 88 |.^'...F.3.3000..|
00001F60: 27 22 06 58 28 30 29 B2 58 28 30 29 AA 31 3A 91 |'".X(0).X(0).1:.|
00001F70: 58 28 30 29 89 31 35 38 30 2C 31 35 39 30 2C 31 |X(0).1580,1590,1|
00001F80: 36 30 30 2C 31 36 31 30 00 A8 27 2C 06 8B 58 28 |600,1610..',..X(|
00001F90: 31 29 A7 58 B2 58 28 31 29 AB 31 3A 59 B2 59 28 |1).X.X(1).1:Y.Y(|
00001FA0: 31 29 3A 89 31 36 35 30 00 CA 27 36 06 8B 58 28 |1):.1650..'6..X(|
00001FB0: 31 29 B3 37 A7 58 B2 58 28 31 29 AA 31 3A 59 B2 |1).7.X.X(1).1:Y.|
00001FC0: 59 28 31 29 3A 89 31 36 35 30 00 EA 27 40 06 8B |Y(1):.1650..'@..|
00001FD0: 59 28 31 29 A7 58 B2 58 28 31 29 3A 59 B2 59 28 |Y(1).X.X(1):Y.Y(|
00001FE0: 31 29 AB 31 3A 89 31 36 35 30 00 0C 28 4A 06 8B |1).1:.1650..(J..|
00001FF0: 59 28 31 29 B3 37 A7 58 B2 58 28 31 29 3A 59 B2 |Y(1).7.X.X(1):Y.|
00002000: 59 28 31 29 AA 31 3A 89 31 36 35 30 00 40 28 54 |Y(1).1:.1650.@(T|
00002010: 06 8B 58 28 32 29 B1 B2 58 AF 59 28 32 29 B1 B2 |..X(2)..X.Y(2)..|
00002020: 59 A7 58 B2 58 28 32 29 AB 58 3A 59 B2 59 28 32 |Y.X.X(2).X:Y.Y(2|
00002030: 29 AB 59 3A 58 28 30 29 B2 31 3A 89 31 36 35 30 |).Y:X(0).1:.1650|
00002040: 00 76 28 5E 06 8B 58 28 31 29 AA 58 B3 38 AF 59 |.v(^..X(1).X.8.Y|
00002050: 28 31 29 AA 59 B3 38 A7 58 B2 58 28 31 29 AA 58 |(1).Y.8.X.X(1).X|
00002060: 3A 59 B2 59 28 31 29 AA 59 3A 58 28 30 29 B2 32 |:Y.Y(1).Y:X(0).2|
00002070: 3A 89 31 36 35 30 00 AE 28 68 06 46 B2 31 3A 97 |:.1650..(h.F.1:.|
00002080: 33 32 38 31 34 AB 33 32 37 36 38 AA 55 4D AA 33 |32814.32768.UM.3|
00002090: AC 58 28 32 29 AA 38 30 AC 59 28 32 29 2C 32 33 |.X(2).80.Y(2),23|
000020A0: 30 3A 58 28 30 29 B2 31 3A 89 31 35 37 30 00 CA |0:X(0).1:.1570..|
000020B0: 28 72 06 42 28 33 2C 59 29 B2 42 28 33 2C 59 29 |(r.B(3,Y).B(3,Y)|
000020C0: B0 32 AE 58 3A 8D 31 37 38 30 00 D9 28 7C 06 8B |.2.X:.1780..(|..|
000020D0: 46 B3 B1 33 89 31 34 31 30 00 06 29 86 06 81 57 |F..3.1410..)...W|
000020E0: B2 30 A4 37 3A 8B 28 42 28 30 2C 57 29 AF 42 28 |.0.7:.(B(0,W).B(|
000020F0: 33 2C 57 29 29 B2 42 28 30 2C 57 29 A7 82 57 3A |3,W)).B(0,W)..W:|
00002100: 89 20 31 34 39 35 00 14 29 90 06 46 B2 30 3A 89 |. 1495..)..F.0:.|
00002110: 31 34 31 30 00 4B 29 9A 06 8D 31 37 38 30 3A 99 |1410.K)...1780:.|
00002120: 22 20 54 52 59 20 41 47 41 49 4E 3B 20 57 48 45 |" TRY AGAIN; WHE|
00002130: 52 45 20 4E 4F 57 3F 20 20 20 20 9D 9D 22 3B 3A |RE NOW? ..";:|
00002140: 8D 32 31 39 30 3A 89 31 33 32 30 00 6D 29 A4 06 |.2190:.1320.m)..|
00002150: 8F 20 53 55 42 52 4F 55 54 49 4E 45 3A 20 4C 4F |. SUBROUTINE: LO|
00002160: 43 41 54 45 20 53 48 49 50 53 2A 2A 2A 00 95 29 |CATE SHIPS***..)|
00002170: AE 06 58 B2 B5 28 38 AC BB 28 31 29 29 3A 59 B2 |..X..(8..(1)):Y.|
00002180: B5 28 38 AC BB 28 31 29 29 3A 44 B2 B5 28 32 AC |.(8..(1)):D..(2.|
00002190: BB 28 31 29 29 00 B0 29 B8 06 8B 28 44 AF 58 B1 |.(1))..)...(D.X.|
000021A0: 35 29 B0 28 A8 44 AF 59 B1 35 29 89 31 37 31 30 |5).(.D.Y.5).1710|
000021B0: 00 C9 29 C2 06 8B 44 89 31 37 36 30 3A 8F 20 48 |..)...D.1760:. H|
000021C0: 4F 52 49 5A 4F 4E 54 41 4C 00 E7 29 CC 06 81 57 |ORIZONTAL..)...W|
000021D0: B2 59 A4 59 AA 32 3A 8B 42 28 31 2C 57 29 AF 32 |.Y.Y.2:.B(1,W).2|
000021E0: AE 58 89 31 37 31 30 00 0E 2A D6 06 82 57 3A 81 |.X.1710..*...W:.|
000021F0: 57 B2 59 A4 59 AA 32 3A 42 28 31 2C 57 29 B2 42 |W.Y.Y.2:B(1,W).B|
00002200: 28 31 2C 57 29 B0 32 AE 58 3A 82 57 3A 8E 00 2C |(1,W).2.X:.W:..,|
00002210: 2A E0 06 81 57 B2 58 A4 58 AA 32 3A 8B 42 28 31 |*...W.X.X.2:.B(1|
00002220: 2C 59 29 AF 32 AE 57 89 31 37 31 30 00 57 2A EA |,Y).2.W.1710.W*.|
00002230: 06 82 57 3A 81 57 B2 58 A4 58 AA 32 AC 44 A9 44 |..W:.W.X.X.2.D.D|
00002240: 3A 42 28 31 2C 59 29 B2 42 28 31 2C 59 29 B0 32 |:B(1,Y).B(1,Y).2|
00002250: AE 57 3A 82 57 3A 8E 00 71 2A F4 06 8F 20 49 4E |.W:.W:..q*... IN|
00002260: 53 45 52 54 20 48 49 54 53 20 26 20 54 52 49 45 |SERT HITS & TRIE|
00002270: 53 00 8F 2A FE 06 5A B2 33 32 38 31 34 AB 33 32 |S..*..Z.32814.32|
00002280: 37 36 38 AA 55 4D AA 33 AC 58 AA 38 30 AC 59 00 |768.UM.3.X.80.Y.|
00002290: B9 2A 08 07 8B 42 28 30 2C 59 29 AF 32 AE 58 AF |.*...B(0,Y).2.X.|
000022A0: A8 42 28 33 2C 59 29 A7 97 5A 2C 31 36 30 3A 97 |.B(3,Y)..Z,160:.|
000022B0: 35 34 32 37 32 AA 5A 2C 37 00 D9 2A 12 07 8B 42 |54272.Z,7..*...B|
000022C0: 28 33 2C 59 29 AF 32 AE 58 AF C2 28 5A 29 B3 B1 |(3,Y).2.X..(Z)..|
000022D0: 31 30 32 A7 8D 31 38 37 30 00 0B 2B 1C 07 8B 42 |102..1870..+...B|
000022E0: 28 32 2C 59 29 AF 32 AE 58 AF 42 28 31 2C 59 29 |(2,Y).2.X.B(1,Y)|
000022F0: A7 97 5A AA 32 2C 38 36 3A 97 35 34 32 37 32 AA |..Z.2,86:.54272.|
00002300: 5A AA 32 2C 32 3A 89 31 38 34 30 00 31 2B 26 07 |Z.2,2:.1840.1+&.|
00002310: 8B 42 28 32 2C 59 29 AF 32 AE 58 A7 97 5A AA 32 |.B(2,Y).2.X..Z.2|
00002320: 2C 38 37 3A 97 35 34 32 37 32 AA 5A AA 32 2C 31 |,87:.54272.Z.2,1|
00002330: 33 00 4B 2B 30 07 99 22 13 11 11 11 11 11 11 11 |3.K+0.."........|
00002340: 11 11 11 11 11 11 11 11 11 11 11 00 84 2B 3A 07 |.............+:.|
00002350: 81 57 B2 31 A4 34 3A 99 22 20 20 20 20 20 20 20 |.W.1.4:." |
00002360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002370: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002380: 22 3A 82 57 00 93 2B 44 07 99 22 91 91 91 91 91 |":.W..+D..".....|
00002390: 22 3A 8E 00 A9 2B 4E 07 8F 20 41 43 43 4F 55 4E |":...+N.. ACCOUN|
000023A0: 54 20 46 4F 52 20 48 49 54 00 D3 2B 58 07 97 5A |T FOR HIT..+X..Z|
000023B0: 2C 31 30 32 3A 8B C2 28 35 34 32 37 32 AA 5A 29 |,102:..(54272.Z)|
000023C0: B2 37 A7 97 35 34 32 37 32 AA 5A 2C 32 3A 89 31 |.7..54272.Z,2:.1|
000023D0: 38 38 39 00 E2 2B 5D 07 97 35 34 32 37 32 AA 5A |889..+]..54272.Z|
000023E0: 2C 36 00 F5 2B 61 07 8B A8 42 28 30 2C 59 29 AF |,6..+a...B(0,Y).|
000023F0: 32 AE 58 A7 8E 00 25 2C 62 07 8B 58 28 46 29 B3 |2.X...%,b..X(F).|
00002400: B1 58 B0 59 28 46 29 B3 B1 59 A7 46 B2 46 AA 31 |.X.Y(F)..Y.F.F.1|
00002410: 3A 58 28 46 29 B2 58 3A 59 28 46 29 B2 59 3A 58 |:X(F).X:Y(F).Y:X|
00002420: 28 30 29 B2 30 00 2B 2C 6C 07 8E 00 4B 2C 76 07 |(0).0.+,l...K,v.|
00002430: 8F 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 49 |. INSTRUCTIONS I|
00002440: 46 20 52 45 51 55 45 53 54 45 44 00 79 2C 80 07 |F REQUESTED.y,..|
00002450: 99 22 11 20 C1 20 42 41 54 54 4C 45 53 48 49 50 |.". . BATTLESHIP|
00002460: 20 49 53 20 41 20 42 4C 4F 43 4B 20 4F 46 20 33 | IS A BLOCK OF 3|
00002470: 20 41 44 4A 41 43 45 4E 54 00 A8 2C 8A 07 99 22 | ADJACENT..,..."|
00002480: 11 20 53 51 55 41 52 45 53 20 4F 4E 20 41 4E 20 |. SQUARES ON AN |
00002490: 38 58 38 20 46 49 45 4C 44 2E 20 20 D4 48 45 20 |8X8 FIELD. .HE |
000024A0: 53 48 49 50 20 4D 41 59 00 DA 2C 94 07 99 22 11 |SHIP MAY..,...".|
000024B0: 20 42 45 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 4F | BE HORIZONTAL O|
000024C0: 52 20 56 45 52 54 49 43 41 4C 20 4F 4E 20 54 48 |R VERTICAL ON TH|
000024D0: 45 20 42 4F 41 52 44 2E 22 3B 00 08 2D 9E 07 99 |E BOARD.";..-...|
000024E0: 22 11 20 D4 48 45 20 4D 41 58 49 4D 55 4D 20 4E |". .HE MAXIMUM N|
000024F0: 55 4D 42 45 52 20 4F 46 20 53 48 49 50 53 20 54 |UMBER OF SHIPS T|
00002500: 48 41 54 20 59 4F 55 22 00 37 2D A8 07 99 22 11 |HAT YOU".7-...".|
00002510: 20 4D 41 59 20 50 49 43 4B 20 49 53 20 53 45 56 | MAY PICK IS SEV|
00002520: 45 4E 2E 20 20 D9 4F 55 20 54 48 45 4E 20 50 49 |EN. .OU THEN PI|
00002530: 43 4B 20 54 48 45 22 00 66 2D B2 07 99 22 11 20 |CK THE".f-...". |
00002540: 4C 4F 43 41 54 49 4F 4E 20 46 4F 52 20 54 48 45 |LOCATION FOR THE|
00002550: 20 54 4F 50 2C 20 4C 45 46 54 20 43 4F 52 4E 45 | TOP, LEFT CORNE|
00002560: 52 20 41 4E 44 22 00 91 2D BC 07 99 22 11 20 57 |R AND"..-...". W|
00002570: 48 45 54 48 45 52 20 54 48 45 20 53 48 49 50 20 |HETHER THE SHIP |
00002580: 49 53 20 48 4F 52 49 5A 4F 4E 54 41 4C 20 4F 52 |IS HORIZONTAL OR|
00002590: 22 00 C0 2D C6 07 99 22 11 20 56 45 52 54 49 43 |"..-...". VERTIC|
000025A0: 41 4C 2E 20 46 4F 52 20 45 58 41 4D 50 4C 45 2C |AL. FOR EXAMPLE,|
000025B0: 20 41 20 53 48 49 50 20 48 45 41 44 49 4E 47 22 | A SHIP HEADING"|
000025C0: 00 EE 2D D0 07 99 22 11 20 53 4F 55 54 48 20 46 |..-...". SOUTH F|
000025D0: 52 4F 4D 20 54 48 45 20 54 4F 50 20 4C 45 46 54 |ROM THE TOP LEFT|
000025E0: 20 43 4F 52 4E 45 52 20 57 4F 55 4C 44 22 00 0D | CORNER WOULD"..|
000025F0: 2E DA 07 99 22 11 20 42 45 20 45 4E 54 45 52 45 |....". BE ENTERE|
00002600: 44 20 41 53 20 27 C1 30 D6 27 2E 9A 22 00 16 2E |D AS '.0.'.."...|
00002610: DB 07 8D 38 33 35 00 25 2E DC 07 99 22 05 22 3B |...835.%....".";|
00002620: 3A 8D 38 35 30 00 55 2E DF 07 99 22 11 20 D4 48 |:.850.U....". .H|
00002630: 52 45 45 20 59 45 4C 4C 4F 57 20 42 4C 4F 43 4B |REE YELLOW BLOCK|
00002640: 53 20 57 49 4C 4C 20 41 50 50 45 41 52 20 49 4E |S WILL APPEAR IN|
00002650: 20 54 48 45 22 00 85 2E E4 07 99 22 11 20 43 45 | THE"......". CE|
00002660: 4C 4C 53 20 2C C1 30 2C 20 C2 30 20 41 4E 44 20 |LLS ,.0, .0 AND |
00002670: C3 30 2E 20 20 D4 48 49 53 20 52 45 50 52 45 53 |.0. .HIS REPRES|
00002680: 45 4E 54 53 22 00 B3 2E EE 07 99 22 11 20 4F 4E |ENTS"......". ON|
00002690: 45 20 4F 46 20 59 4F 55 52 20 53 48 49 50 53 2E |E OF YOUR SHIPS.|
000026A0: 20 C9 46 20 59 4F 55 20 4D 49 53 53 2C 20 54 48 | .F YOU MISS, TH|
000026B0: 45 4E 22 00 E3 2E 02 08 99 22 11 20 41 20 27 99 |EN"......". A '.|
000026C0: 4F 05 27 20 41 50 50 45 41 52 53 2E 20 20 C9 46 |O.' APPEARS. .F|
000026D0: 20 59 4F 55 20 48 49 54 2C 20 41 4E 20 27 1C D8 | YOU HIT, AN '..|
000026E0: 05 27 22 00 0E 2F 0C 08 99 22 11 20 41 50 50 45 |.'"../...". APPE|
000026F0: 41 52 53 2E 20 C9 46 20 59 4F 55 20 57 49 50 45 |ARS. .F YOU WIPE|
00002700: 20 4F 55 54 20 54 48 45 20 36 34 27 53 22 00 3B | OUT THE 64'S".;|
00002710: 2F 16 08 99 22 11 20 53 48 49 50 20 42 45 46 4F |/...". SHIP BEFO|
00002720: 52 45 20 49 54 20 47 45 54 53 20 59 4F 55 52 53 |RE IT GETS YOURS|
00002730: 2C 20 59 4F 55 20 57 49 4E 2E 22 00 68 2F 20 08 |, YOU WIN.".h/ .|
00002740: 99 22 11 20 C2 55 54 20 46 4F 52 20 45 41 43 48 |.". .UT FOR EACH|
00002750: 20 4F 46 20 59 4F 55 52 20 53 48 4F 54 53 2C 20 | OF YOUR SHOTS, |
00002760: 54 48 45 20 36 34 20 22 00 B6 2F 2A 08 99 22 11 |THE 64 "../*..".|
00002770: 20 47 45 54 53 20 4F 4E 45 2C 20 4D 41 52 4B 45 | GETS ONE, MARKE|
00002780: 44 20 42 59 20 41 20 27 1F A6 05 27 20 41 4E 44 |D BY A '...' AND|
00002790: 22 3A 99 22 11 20 52 45 50 4C 41 43 45 44 20 42 |":.". REPLACED B|
000027A0: 59 20 41 20 27 1C 12 20 92 05 27 20 49 46 20 4F |Y A '.. ..' IF O|
000027B0: 4E 45 20 4F 46 22 00 D3 2F 34 08 99 22 11 20 59 |NE OF"../4..". Y|
000027C0: 4F 55 52 20 53 48 49 50 53 20 49 53 20 48 49 54 |OUR SHIPS IS HIT|
000027D0: 21 9A 22 00 DC 2F 3E 08 8D 38 33 35 00 EB 2F 3F |!."../>..835../?|
000027E0: 08 99 22 05 22 3B 3A 8D 38 35 30 00 19 30 48 08 |..".";:.850..0H.|
000027F0: 99 22 11 11 20 CE 45 49 54 48 45 52 20 59 4F 55 |.".. .EITHER YOU|
00002800: 20 4E 4F 52 20 54 48 45 20 36 34 20 43 41 4E 20 | NOR THE 64 CAN |
00002810: 48 41 56 45 20 54 57 4F 22 00 48 30 52 08 99 22 |HAVE TWO".H0R.."|
00002820: 11 20 53 48 49 50 53 20 4F 56 45 52 4C 41 50 2C |. SHIPS OVERLAP,|
00002830: 20 42 55 54 20 59 4F 55 52 53 20 41 4E 44 20 54 | BUT YOURS AND T|
00002840: 48 45 20 36 34 27 53 22 00 71 30 5C 08 99 22 11 |HE 64'S".q0\..".|
00002850: 20 4D 41 59 20 42 45 20 41 54 20 54 48 45 20 53 | MAY BE AT THE S|
00002860: 41 4D 45 20 43 4F 4F 52 44 49 4E 41 54 45 53 2E |AME COORDINATES.|
00002870: 22 00 9D 30 66 08 99 22 11 20 D0 4C 41 59 20 43 |"..0f..". .LAY C|
00002880: 41 52 45 46 55 4C 4C 59 2C 20 54 48 45 20 36 34 |AREFULLY, THE 64|
00002890: 20 50 4C 41 59 53 20 57 45 4C 4C 21 22 00 CA 30 | PLAYS WELL!"..0|
000028A0: 67 08 99 22 11 11 20 D9 4F 55 20 4D 41 59 20 45 |g..".. .OU MAY E|
000028B0: 4E 54 45 52 20 27 1F 2A 05 27 20 41 54 20 41 4E |NTER '.*.' AT AN|
000028C0: 59 20 54 49 4D 45 20 54 4F 22 00 E6 30 68 08 99 |Y TIME TO"..0h..|
000028D0: 22 11 20 52 45 53 54 41 52 54 20 54 48 45 20 47 |". RESTART THE G|
000028E0: 41 4D 45 2E 9A 22 00 EF 30 75 08 8D 38 33 35 00 |AME.."..0u..835.|
000028F0: FB 30 84 08 99 22 05 22 3B 3A 8E 00 0D 31 8E 08 |.0...".";:...1..|
00002900: 8F 20 47 45 54 20 52 24 2C 43 2C 44 24 00 48 31 |. GET R$,C,D$.H1|
00002910: 98 08 55 53 24 B2 22 2A 41 42 43 44 45 46 47 48 |..US$."*ABCDEFGH|
00002920: 30 31 32 33 34 35 36 37 56 22 3A 55 4C B2 33 3A |01234567V":UL.3:|
00002930: 8D 33 35 3A 52 24 B2 55 52 24 3A 8D 36 30 30 30 |.35:R$.UR$:.6000|
00002940: 3A 8B 43 48 B2 31 A7 8E 00 5B 31 9A 08 43 B2 C5 |:.CH.1...[1..C..|
00002950: 28 CA 28 52 24 2C 32 2C 31 29 29 00 69 31 9D 08 |(.(R$,2,1)).i1..|
00002960: 8B 52 24 B2 22 2A 22 A7 8A 00 89 31 A2 08 44 24 |.R$."*"....1..D$|
00002970: B2 C9 28 52 24 2C 31 29 3A 8B 44 24 B2 22 48 22 |..(R$,1):.D$."H"|
00002980: B0 44 24 B2 22 56 22 A7 8E 00 B5 31 AC 08 99 22 |.D$."V"....1..."|
00002990: 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000029A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A |.............";:|
000029B0: 89 32 32 30 30 00 CD 31 D4 08 8F 20 47 45 54 20 |.2200..1... GET |
000029C0: 50 4C 41 59 45 52 27 53 20 53 48 4F 54 00 D6 31 |PLAYER'S SHOT..1|
000029D0: D9 08 43 4B B2 30 00 11 32 DE 08 55 53 24 B2 22 |..CK.0..2..US$."|
000029E0: 2A 41 42 43 44 45 46 47 48 30 31 32 33 34 35 36 |*ABCDEFGH0123456|
000029F0: 37 22 3A 55 4C B2 32 3A 8D 33 35 3A 52 24 B2 55 |7":UL.2:.35:R$.U|
00002A00: 52 24 3A 43 B2 C5 28 CA 28 52 24 2C 32 2C 31 29 |R$:C..(.(R$,2,1)|
00002A10: 29 00 1F 32 DF 08 8B 52 24 B2 22 2A 22 A7 8A 00 |)..2...R$."*"...|
00002A20: 41 32 E0 08 8B 43 B2 30 20 AF 20 C9 28 52 24 2C |A2...C.0 . .(R$,|
00002A30: 31 29 B3 B1 C7 28 34 38 29 A7 20 43 4B B2 31 3A |1)...(48). CK.1:|
00002A40: 8E 00 77 32 E3 08 8B C3 28 52 24 29 B3 B1 32 B0 |..w2....(R$)..2.|
00002A50: C6 28 C8 28 52 24 2C 31 29 29 B1 37 32 B0 C6 28 |.(.(R$,1)).72..(|
00002A60: C8 28 52 24 2C 31 29 29 B3 36 35 A7 99 22 91 22 |.(R$,1)).65.."."|
00002A70: 3B 3A 89 31 34 32 30 00 7D 32 E8 08 8E 00 99 32 |;:.1420.}2.....2|
00002A80: F2 08 8F 20 45 4E 54 45 52 20 48 45 52 45 20 46 |... ENTER HERE F|
00002A90: 4F 52 20 43 20 4F 4E 4C 59 00 A2 32 F7 08 43 48 |OR C ONLY..2..CH|
00002AA0: B2 30 00 C5 32 FC 08 55 53 24 B2 22 2A 31 32 33 |.0..2..US$."*123|
00002AB0: 34 35 36 37 22 3A 55 4C B2 31 3A 8D 33 35 3A 43 |4567":UL.1:.35:C|
00002AC0: 24 B2 55 52 24 00 D3 32 01 09 8B 43 24 B2 22 2A |$.UR$..2...C$."*|
00002AD0: 22 A7 8A 00 E1 32 06 09 43 B2 C5 28 43 24 29 3A |"....2..C..(C$):|
00002AE0: 8E 00 F5 32 10 09 8F 20 47 45 54 20 59 45 53 20 |...2... GET YES |
00002AF0: 4F 52 20 4E 4F 00 14 33 1A 09 55 53 24 B2 22 59 |OR NO..3..US$."Y|
00002B00: 4E 22 3A 55 4C B2 31 3A 8D 33 35 3A 58 24 B2 55 |N":UL.1:.35:X$.U|
00002B10: 52 24 3A 8E 00 31 33 88 13 99 22 93 22 3A 97 20 |R$:..13...".":. |
00002B20: 35 33 32 38 30 2C 30 3A 97 20 35 33 32 38 31 2C |53280,0:. 53281,|
00002B30: 30 00 55 33 EC 13 99 A3 31 34 29 22 9A 11 11 11 |0.U3....14)"....|
00002B40: 11 11 11 11 11 11 11 11 11 4C 4F 41 44 49 4E 47 |.........LOADING|
00002B50: 2E 2E 2E 2E 22 00 6A 33 50 14 93 22 54 41 52 47 |....".j3P.."TARG|
00002B60: 45 54 35 22 2C 38 3A 8A 3A 80 00 89 33 70 17 8F |ET5",8:.:...3p..|
00002B70: 20 43 48 45 43 4B 20 46 4F 52 20 49 4E 50 55 54 | CHECK FOR INPUT|
00002B80: 20 56 41 4C 49 44 49 54 59 00 92 33 7A 17 43 48 | VALIDITY..3z.CH|
00002B90: B2 30 00 BD 33 84 17 8B C8 28 52 24 2C 31 29 20 |.0..3....(R$,1) |
00002BA0: B3 C7 28 36 35 29 B0 20 C8 28 52 24 2C 31 29 20 |..(65). .(R$,1) |
00002BB0: B1 C7 28 37 32 29 A7 43 48 B2 31 3A 8E 00 EB 33 |..(72).CH.1:...3|
00002BC0: 8E 17 8B 20 CA 28 52 24 2C 32 2C 31 29 B3 C7 28 |... .(R$,2,1)..(|
00002BD0: 34 38 29 B0 20 CA 28 52 24 2C 32 2C 31 29 B1 C7 |48). .(R$,2,1)..|
00002BE0: 28 35 35 29 A7 43 48 B2 31 3A 8E 00 12 34 98 17 |(55).CH.1:...4..|
00002BF0: 8B C9 28 52 24 2C 31 29 B3 B1 22 56 22 AF 20 C9 |..(R$,1).."V". .|
00002C00: 28 52 24 2C 31 29 B3 B1 22 48 22 A7 43 48 B2 31 |(R$,1).."H".CH.1|
00002C10: 3A 8E 00 1C 34 9D 17 4D B2 4D AA 31 00 22 34 A2 |:...4..M.M.1."4.|
00002C20: 17 8E 00 46 34 18 F6 97 20 35 33 32 38 30 2C 30 |...F4... 53280,0|
00002C30: 3A 97 35 33 32 38 31 2C 30 3A 99 C7 28 31 34 32 |:.53281,0:..(142|
00002C40: 29 C7 28 38 29 3B 00 7D 34 1D F6 99 22 9A 93 11 |).(8);.}4..."...|
00002C50: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 4D |.......... M|
00002C60: 41 4B 45 20 53 55 52 45 20 54 48 45 20 4D 41 53 |AKE SURE THE MAS|
00002C70: 54 45 52 20 44 49 53 4B 45 54 54 45 22 00 A5 34 |TER DISKETTE"..4|
00002C80: 1F F6 99 22 11 11 20 20 20 20 20 20 20 20 20 20 |...".. |
00002C90: 49 53 20 49 4E 20 54 48 45 20 44 49 53 4B 20 44 |IS IN THE DISK D|
00002CA0: 52 49 56 45 22 00 E7 34 22 F6 99 22 05 13 11 11 |RIVE"..4".."....|
00002CB0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002CC0: 11 11 11 11 11 20 20 20 20 20 20 20 50 52 45 53 |..... PRES|
00002CD0: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON|
00002CE0: 54 49 4E 55 45 2E 22 00 FF 34 2C F6 A1 20 41 24 |TINUE."..4,.. A$|
00002CF0: 3A 8B 20 41 24 B2 22 22 20 A7 36 33 30 32 30 00 |:. A$."" .63020.|
00002D00: 1D 35 36 F6 9F 31 2C 38 2C 32 2C 22 4D 45 4E 55 |.56..1,8,2,"MENU|
00002D10: 32 2C 50 2C 52 22 3A A1 23 31 2C 41 24 00 35 35 |2,P,R":.#1,A$.55|
00002D20: 40 F6 8B 20 53 54 B3 B1 30 20 A7 20 A0 31 3A 89 |@.. ST..0 . .1:.|
00002D30: 36 33 30 30 30 00 3C 35 4A F6 A0 31 00 5F 35 5E |63000.<5J..1._5^|
00002D40: F6 99 22 93 90 4C 4F 41 44 22 C7 28 33 34 29 22 |.."..LOAD".(34)"|
00002D50: 4D 45 4E 55 32 22 C7 28 33 34 29 22 2C 38 22 00 |MENU2".(34)",8".|
00002D60: 7F 35 68 F6 97 20 36 33 36 2C 30 3A 97 36 34 2C |.5h.. 636,0:.64,|
00002D70: 30 3A 97 34 38 2C 38 3A 97 35 32 2C 31 36 30 00 |0:.48,8:.52,160.|
00002D80: A0 35 72 F6 97 20 35 34 2C 30 3A 97 35 36 2C 31 |.5r.. 54,0:.56,1|
00002D90: 36 30 3A 97 35 37 2C 30 3A 97 35 38 2C 32 35 35 |60:.57,0:.58,255|
00002DA0: 00 AA 35 7C F6 97 36 32 2C 30 00 B9 35 86 F6 99 |..5|..62,0..5...|
00002DB0: 22 11 11 11 11 52 55 4E 22 00 E2 35 90 F6 99 22 |"....RUN"..5..."|
00002DC0: 11 11 11 11 11 11 11 22 A3 31 34 29 22 9A 4C 4F |.......".14)".LO|
00002DD0: 41 44 49 4E 47 2E 2E 2E 2E 90 22 3A 97 31 39 38 |ADING.....":.198|
00002DE0: 2C 33 00 0C 36 9A F6 97 36 33 31 2C 31 39 3A 97 |,3..6...631,19:.|
00002DF0: 36 33 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A 97 |632,13:.633,13:.|
00002E00: 35 39 2C 30 3A 97 36 30 2C 30 3A A2 00 00 00 |59,0:.60,0:.... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(..UO,0:UR$."":UI$.""...*..UL.0.UL.80
.".-..UC,0.6.2..UI$:.UI$."".50.`.7..UI$.
G(13).C(UR$)..1..UC,1:." .";:.85.S.<..UI
$.G(20).105...>.. C(UR$)..UL.50...A..120
:. CHECK FOR VALID CHARACTER...F.UR$.UR$
.UI$.F.K..UI$;.N.P..50...U.. +++ CHECK F
OR HELP REQUEST +++.#.Z..*IFUR$=UX$THEN1
95:REM EXIT TO HELP ROUTINE.2._..UF.1..2
40.?.D.UF.0:.:..X.F.. ++ CHECK DELETE ++
.I.I..C(UR$).1.50...N.UR$.H(UR$,C(UR$).1
)...S..". ..";:.50...X.. ++ CHECK FOR V
ALID CHARACTERS ++.L.}..C(US$).0.150....
..US.1.C(US$)......UI$.J(US$,US,1)......
.......UI$."":..".... ** STANDARD INPUT
**.(...........?....UI$.G(32)...\. ..F(U
I$).48.F(UI$).57.170.B.........F(UI$).6
5.F(UI$).90.180............F(UI$).193.F(
UI$).218.UI$."":..L....B(UT).UU%.UI$.G(F
(UI$).128):..R.........UI$."":....C.UF.1
:. +++ HELP ROUTINE EXIT +++...E..250...
H..245.5.M..UQ.UB.(U2%.256.U1%.U3%.2).Q.
R.UQ%(UQ.UB).B(UQ):.:.".".D.W.UZ.1:UV%.B
(UT).M.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:U
P.UJ:UL.UK:.B(50003).0..53281,6:.53280,1
4.....UT$.UL$:.".";:.UT,UV%:.UQ.UB.(U2%.
256.U1%.U3%.3)......UQ,UQ%(UQ.UB):......
.U1,U1%......U2,U2%......U4,U4%.-....U3,
U3%.1.5....35.G...UD%.((U2%.256.U1%.U3%)
.UB).40:.H(UD$,UD%.1):.......H(UD$,24);"
. HELP COMING . "
:..N...U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%
.B(U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP
:UK.UL.........,.. ** MENU **...1.:...6.
.".":.53281,0:.53280,0.;.;..G(142);.`.@.
."..... MENU.."...E.."
. UDDDDDDDDDDDDDDDDDDDDDDDDDDDI ".
..J.." G
H"...O.." G
H"...T.." G . 1. BEGIN BATTLES
HIP . H".=.Y.." G
H".H.^.." G
H"...C.." G . 2. US
ER INSTRUCTIONS . H"...H.." G
H"...M.." G
H"...R.."
G .3. QUIT . H".C.W.."
G H".N.|.
." G H"..
...." JFFFFFFFFFFFFFFFFFFFFFFFFFFFK
".F....".. ..PRESS A NUMBER KEY (1
-3) ";.Y....A$:.A$."".390......A$.."*".A
$.."1".A$.."2".A$.."3".390.$....A$.."*".
.E(A$).1000,400,396.*.....Q.... ** RE-E
NABLE STOP KEY AND END **......B(50003).
.1.B(50003)..160.B(50003)..0.399......UU
.71:.B(50003).0..53281,6:.53280,14......
"..":.63000.F....875:....... ** STUDENT
INSTRUCTIONS **......".":.UT,UL%:.B(5000
3).0..53281,0:.53280,0.>...UP.0:UG$."
USER INSTRUCTION":.850.H....1910.\....UZ
.1..UP%:.217.B.......... ** TEACHER INST
RUCTIONS **......".":.UT,UL%:.B(50003).0
..53281,2:.53280,10.T...UP.0:UG$." ADDE
D INST":.850......".. TO THE BEST O
F OUR KNOWLEDGE,.".+...." THIS PROGRAM
IS IN THE PUBLIC.".>...." DOMAIN..".I
...." ..".V...." GREEN VALLEY PUB
LISHING INC.."......" 7122 SHADY
OAK ROAD."......" EDEN PRARIE, MN
55344"......" "
.....UP.1:. 835:. 850:......" ..PROG
RAM NAME: BATTLESHIP..D...." WRITTEN
BY : M. RICHTER ..K...." UPGRADED
BY : SCOTT BRUNS."......" .THIS PRO
GRAM WILL RUN ON ANY........" CO
MMODORE 64 COMPUTER.D....835.X.N..UZ.1..
UP%:.217...W.....X.. ** PROGRAM MODIFICA
TION INST **...Y..".":.UT,UL%.5.].UP.0:U
G$."PROGRAM MOD":.850.>....835.R....UZ.1
..UP%:.217.X.....}.... ** TO USE 8032 LO
AD CBM4032 **...F..".....BEFORE RUNNING
THIS PROGRAM ON AN 8032 .....P.."
LOAD THE 'CBM 4032' PROGRAM.............
"...Z..UU.71......... .. ** T I T L E
P A G E **...!..B(49152).1.830.V.".."...
.";:.53280,13:.53281,13:.G(14)...,.."...
..................BATTLESHIP":..15)"....
......"......".......FIRE TORPEDOES BY G
UESSING SPOTS"...0..".....ON THE PLAYING
BOARD. WHEN YOU"...2..".....GUESS CORRE
CTLY, YOU'LL SINK THE ".D.4..".....COMPU
TER'S SHIPS. BUT WATCH OUT,".Q.6..".....
THE COMPUTER CAN SINK YOUR SHIPS"...8.."
.....TOO!"...:.. ** COMMODORE LOGO **.V.
;..H(UD$,24);"...........PRESS SPACE BAR
OR WAIT.":I.0...<..A$:.A$.." ".I.I.1:.I
.1000.828...=..49152,1.*.>.T1$."":T2$.""
:T3$."":T4$."":I.0.3.@..300.O.C.. ** SPA
CE BAR PRESS **...H..UO,0:.H(UD$,24);"..
.....PRESS SPACE BAR TO CONTINUE. "..
.L..UI$:.UI$.." ".UI$.."*".844...M..UI$.
"*"...C.N.....R.. ** PAGE DESIGN ROUTINE
**...T.UP.UP.1...W.."."H(UT$.UP$,21);I(
UP$.UG$.D(UP),18).J.\..". ..............
.........................".Y.`..UH..0.87
0...A..H(UD$,24);H(UP$,7);"
"...F.UH.0:."..":....K.. **
PLEASE WAIT REMARK **...P..H(UD$,24);"
ONE MOMENT PLEASE... "...U.
....... ** SET UP VARIABLES **.A...UX$."
?":.UQ%(1000):UB.32768:U1.196:U2.197:U3.
198:U4.216:UC.167:UU.1024.....UT.59468:U
U%.12:UL%.14:UP%.1146:UM.32768:UO.158:.
50003,0......B(50003).0.UB.1024:U1.209:U
2.210:U3.211:U4.214:UC.204:UU.2048.!....
B(50003).0.UT.53272:UU%.21:UL%.23:UP%.21
39:UM.1024:UO.198.E...UD$.".............
............".W...UP$."
".D...UT$." BATTLE
SHIP ":. PLACE PROGRAM TITLE HERE
!!!!!!!!!!!!!!!!!***.J.......... ** SET
VARIABLES **......900...... ** CHECK FOR
8032 **.&....".":." ":. SHIFTED SPACE.=
....B(UB.40)..96..700.V.... ** MEMORY CH
ECK **.J.... .(0).2000.937......"....THI
S MACHINE DOES NOT HAVE ENOUGH."......"M
EMORY TO RUN THIS PROGRAM !".G....UU.71.
....."TARGET5",8:.:......."..":.B(50003)
.0.962.%.... ** BASIC 2.0 OR 4.0 OR
C-64 SETUP **.C....1075,133:.1076,144:.1
077,234:.1079,4:.1080,133:.1081,145.....
.1091,155:.1098,133:.1099,144:.1100,234:
.1103,133......1104,145:.1105,234:.1082,
234.R....B(50003)..160.955......1093,88:
.1094,228:.1097,85:.1102,228:.965......B
(50003)..1.990.E....1093,49:.1094,230:.1
097,46:.1102,230:.965..B..2099,141:.210
0,20:.2101,3:.2103,8:.2104,141:.2105,21.
..C..2106,3:.2115,145:.2117,52:.2118,234
:.2121,49:.2122,141...D..2123,20:.2124,3
:.2126,234:.2127,141:.2128,21:.2129,3...
E..UU.48:. DISABLE STOP KEY.$.J..800:. T
ITLE.4.T..300:. MENU.T....".THE PGM WILL
NOT WORK ON THIS MACHINE!":."TARGET5",8
:.:.......UZ.1..UP%:.UP%:UZ.0:. ** PROGR
AM STARTS HERE **.V...."..";:.:.B(50003)
.0..53281,14:.53280,14...B.:...L.. BATTL
ESHIP PROGRAM.. `.. B(3,7),X(3),Y(3).. J
...M T.F.0:P$."@222552553443133146646116
10010440733776677007@.S Y... ~..G(14)".
. *** BATTLESHIP ***... ..."..
HOW MANY BATTLESHIPS PER SIDE? (1-7) ";
:.2290:N.C.. ...".WHILE YOU LOCATE YOURS
, I'LL HIDE MINE."..!..."...............
.........................".[!...". TO EN
TER A BATTLESHIP, GIVE ME ..IN
THIS ORDER:..!...". 1. ROW (LETTER) OF T
HE TOP/LEFT END...!...". 2. ITS COLUMN (
NUMBER)...!D..". 3. ITS DIRECTION, VERTI
CAL OR HORIZONTAL (V/H)..".
:"E.."FOR EXAMPLE, ENTER A0H FOR A SHIP
IN THEUPPER LEFTHAND CORNER IN A";.\"F..
" HORIZONTAL DIRECTION...".X"N..".";:.
835:.G(142);".";.."... GET THE N BATTLES
HIPS.."... DRAW THE FIELD.."..."........
...................................
"..#...".";.6);:.J.0.23:.
".";:.J:..8#...I.0.7:..6);:.J.0.7:.". "
;:.J:."..C#....5)G(65.I);:.J.0.7:."L..";
:.J:.".":.I.{#....6);:.I.0.7:.I;:.I..#..
CH.0..#...K.1.N.1..#!..CH.1.K.K.1..##.."
..................... WHERE DO YOU WANT
SHIP"K"? ....";:.2190..#$..CH.0..170
0..$%..CH.1..K.2$(..(D$."V".H(R$,1)."F")
.(D$."H".C.5).1690.S$2.R.F(H(R$,1)).65:.
D$."V".1370.|$<.Y.R:.W.0.2:..B(0,R).2.(W
.C)..W:.1360..$F..1690..$P..X.C.C.2:B(0,
R).B(0,R).2.X:.1780:.X:.1400..$Z.X.C:.W.
0.2:..B(0,R.W).2.C..W:.1390..$D..1690..%
N..Y.R.R.2:B(0,Y).B(0,Y).2.C:.1780:.Y..%
X..K..N.1410.#%}..K.6%... SHOOT 'EM UP.V
%...H(UD$,19):.". ENTER .LETTER/NUMBER.
OF YOUR SHOT: ";:.2260..%...CK.1..1420..
%..X.C:Y.F(R$).65:B(2,Y).B(2,Y).2.X:.178
0..% ..W.0.7:.(B(1,W).B(2,W)).B(1,W)..W:
.1500..%... GET THE PET'S PLAY FROM P$..
&...F.1540.*&..P.1.2..((C(P$).2.1)..(1).
3).X&H.X$.J(P$,P.1,2):P$.H(P$,P).I(P$,C(
P$).P.2)..&R.X.E(H(X$,1)):Y.E(I(X$,1)):B
(3,Y).B(3,Y).2.X:.1780:.1410..&W.."
GOTCHA!!"..&X..1510..&..."
*** YOU GOT ME!!! ***."..&...".";:.
840..&.....'...:. LOOK FOR NEIGHBOR HIT
.P'...F.2.X.X(1).X(2):Y.Y(1).Y(2):.1.X(0
).1620,1630,1640.^'...F.3.3000..'".X(0).
X(0).1:.X(0).1580,1590,1600,1610..',..X(
1).X.X(1).1:Y.Y(1):.1650.J'6..X(1).7.X.X
(1).1:Y.Y(1):.1650..'@..Y(1).X.X(1):Y.Y(
1).1:.1650..(J..Y(1).7.X.X(1):Y.Y(1).1:.
1650.@(T..X(2)..X.Y(2)..Y.X.X(2).X:Y.Y(2
).Y:X(0).1:.1650.V(^..X(1).X.8.Y(1).Y.8.
X.X(1).X:Y.Y(1).Y:X(0).2:.1650..(H.F.1:.
32814.32768.UM.3.X(2).80.Y(2),230:X(0).1
:.1570.J(R.B(3,Y).B(3,Y).2.X:.1780.Y(|..
F..3.1410..)...W.0.7:.(B(0,W).B(3,W)).B(
0,W)..W:. 1495..)..F.0:.1410.K)...1780:.
" TRY AGAIN; WHERE NOW? ..";:.2190:.1
320.M)... SUBROUTINE: LOCATE SHIPS***..)
..X..(8..(1)):Y..(8..(1)):D..(2..(1))..)
...(D.X.5).(.D.Y.5).1710.I)B..D.1760:. H
ORIZONTAL..)L..W.Y.Y.2:.B(1,W).2.X.1710.
.*V..W:.W.Y.Y.2:B(1,W).B(1,W).2.X:.W:..,
*...W.X.X.2:.B(1,Y).2.W.1710.W*...W:.W.X
.X.2.D.D:B(1,Y).B(1,Y).2.W:.W:..Q*... IN
SERT HITS & TRIES..*..Z.32814.32768.UM.3
.X.80.Y..*...B(0,Y).2.X..B(3,Y)..Z,160:.
54272.Z,7.Y*...B(3,Y).2.X.B(Z)..102..187
0..+...B(2,Y).2.X.B(1,Y)..Z.2,86:.54272.
Z.2,2:.1840.1+&..B(2,Y).2.X..Z.2,87:.542
72.Z.2,13.K+0..".....................+:.
.W.1.4:."
":.W..+D..".....":...+N.. ACCOUN
T FOR HIT.S+X..Z,102:.B(54272.Z).7..5427
2.Z,2:.1889..+]..54272.Z,6..+A...B(0,Y).
2.X...%,B..X(F)..X.Y(F)..Y.F.F.1:X(F).X:
Y(F).Y:X(0).0.+,L...K,V.. INSTRUCTIONS I
F REQUESTED.Y,...". A BATTLESHIP IS A BL
OCK OF 3 ADJACENT..,...". SQUARES ON AN
8X8 FIELD. THE SHIP MAY.Z,...". BE HORI
ZONTAL OR VERTICAL ON THE BOARD.";..-...
". THE MAXIMUM NUMBER OF SHIPS THAT YOU"
.7-...". MAY PICK IS SEVEN. YOU THEN PI
CK THE".F-...". LOCATION FOR THE TOP, LE
FT CORNER AND"..-...". WHETHER THE SHIP
IS HORIZONTAL OR"..-F..". VERTICAL. FOR
EXAMPLE, A SHIP HEADING"..-P..". SOUTH F
ROM THE TOP LEFT CORNER WOULD"...Z..". B
E ENTERED AS 'A0V'.."......835.%....".";
:.850.U....". THREE YELLOW BLOCKS WILL A
PPEAR IN THE"......". CELLS ,A0, B0 AND
C0. THIS REPRESENTS"......". ONE OF YOU
R SHIPS. IF YOU MISS, THEN"......". A '.
O.' APPEARS. IF YOU HIT, AN '.X.'"../..
.". APPEARS. IF YOU WIPE OUT THE 64'S".;
/...". SHIP BEFORE IT GETS YOURS, YOU WI
N.".H/ ..". BUT FOR EACH OF YOUR SHOTS,
THE 64 "../*..". GETS ONE, MARKED BY A '
...' AND":.". REPLACED BY A '.. ..' IF O
NE OF".S/4..". YOUR SHIPS IS HIT!."../>.
.835../?..".";:.850..0H..".. NEITHER YOU
NOR THE 64 CAN HAVE TWO".H0R..". SHIPS
OVERLAP, BUT YOURS AND THE 64'S".Q0\..".
MAY BE AT THE SAME COORDINATES."..0F.."
. PLAY CAREFULLY, THE 64 PLAYS WELL!".J0
G..".. YOU MAY ENTER '.*.' AT ANY TIME T
O"..0H..". RESTART THE GAME.."..0U..835.
.0...".";:...1... GET R$,C,D$.H1..US$."*
ABCDEFGH01234567V":UL.3:.35:R$.UR$:.6000
:.CH.1...[1..C.E(J(R$,2,1)).I1...R$."*".
...1..D$.I(R$,1):.D$."H".D$."V"....1..."
.............................";:.2200.M1
T.. GET PLAYER'S SHOT.V1Y.CK.0..2..US$."
*ABCDEFGH01234567":UL.2:.35:R$.UR$:C.E(J
(R$,2,1))..2...R$."*"...A2...C.0 . I(R$,
1)..G(48). CK.1:..W2...C(R$)..2.F(H(R$,1
)).72.F(H(R$,1)).65..".";:.1420.}2.....2
... ENTER HERE FOR C ONLY..2..CH.0.E2..U
S$."*1234567":UL.1:.35:C$.UR$.S2...C$."*
"....2..C.E(C$):...2... GET YES OR NO..3
..US$."YN":UL.1:.35:X$.UR$:..13...".":.
53280,0:. 53281,0.U3....14)"............
.LOADING....".J3P.."TARGET5",8:.:...3P..
CHECK FOR INPUT VALIDITY..3Z.CH.0..3...
H(R$,1) .G(65). H(R$,1) .G(72).CH.1:...3
... J(R$,2,1).G(48). J(R$,2,1).G(55).CH.
1:...4...I(R$,1).."V". I(R$,1).."H".CH.1
:...4..M.M.1."4....F4... 53280,0:.53281,
0:.G(142)G(8);.}4..."............. M
AKE SURE THE MASTER DISKETTE"..4..."..
IS IN THE DISK DRIVE"..4".."....
..................... PRESS ANY KE
Y TO CONTINUE."..4,.. A$:. A$."" .63020.
.56..1,8,2,"MENU2,P,R":.#1,A$.55@.. ST..
0 . 1:.63000.<5J. 1._5^.."..LOAD"G(34)"
MENU2"G(34)",8".5H.. 636,0:.64,0:.48,8:
.52,160. 5R.. 54,0:.56,160:.57,0:.58,255
..5|..62,0..5..."....RUN"..5..."......."
.14)".LOADING.....":.198,3..6...631,19:.
632,13:.633,13:.59,0:.60,0:....
> CLICK IMAGE PREVIEW FOR FULL MODAL