BAUDLESHIP
FILE INFORMATION
FILENAME(S): BAUDLESHIP
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-10-19 22:49:50
APPEARS ON: 1 disk(s)
FILE HASH
0091ae72dcd28c6c0dbe7e19a615521e65fdbe8336281c590c79911f4dea4e0d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR GAMES | BAUDLESHIP | PRG | Radd Maxx | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 78 00 9F 31 2C 32 2C 33 2C C7 28 36 |..'.x..1,2,3,.(6|
00000010: 29 3A 8F 20 4F 50 45 4E 20 52 53 2D 32 33 32 20 |):. OPEN RS-232 |
00000020: 43 48 41 4E 4E 45 4C 00 4B 08 82 00 86 20 42 25 |CHANNEL.K.... B%|
00000030: 28 31 30 2C 31 30 29 3A 20 8F 20 53 48 49 50 20 |(10,10): . SHIP |
00000040: 47 52 49 44 20 4D 41 54 52 49 58 00 6D 08 8C 00 |GRID MATRIX.m...|
00000050: 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C |.53280,0:.53281,|
00000060: 30 3A 97 35 34 32 37 32 AA 32 34 2C 38 00 91 08 |0:.54272.24,8...|
00000070: 96 00 42 54 24 B2 22 13 11 11 11 11 11 11 11 11 |..BT$.".........|
00000080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000090: 22 00 A2 08 A0 00 4D 24 B2 C8 28 42 54 24 2C 31 |".....M$..(BT$,1|
000000A0: 36 29 00 C4 08 AA 00 4D 45 24 B2 22 22 3A 81 20 |6).....ME$."":. |
000000B0: 51 B2 31 A4 33 39 3A 4D 45 24 B2 4D 45 24 AA 22 |Q.1.39:ME$.ME$."|
000000C0: 20 22 3A 82 00 E1 08 B4 00 42 4C 24 B2 4D 45 24 | ":......BL$.ME$|
000000D0: 3A 4D 59 24 B2 4D 45 24 3A 53 36 B2 35 34 32 37 |:MY$.ME$:S6.5427|
000000E0: 32 00 02 09 BE 00 43 52 24 B2 C7 28 31 33 29 3A |2.....CR$..(13):|
000000F0: 46 31 24 B2 C7 28 31 33 33 29 3A 44 53 24 B2 22 |F1$..(133):DS$."|
00000100: 24 22 00 1A 09 C8 00 43 24 28 30 29 B2 22 9E 22 |$".....C$(0)."."|
00000110: 3A 43 24 28 31 29 B2 22 1E 22 00 30 09 D2 00 99 |:C$(1).".".0....|
00000120: C7 28 31 34 37 29 C7 28 31 34 32 29 C7 28 38 29 |.(147).(142).(8)|
00000130: 00 46 09 DC 00 53 24 28 31 29 B2 C7 28 32 38 29 |.F...S$(1)..(28)|
00000140: AA C7 28 34 32 29 00 5B 09 E6 00 81 20 58 B2 32 |..(42).[.... X.2|
00000150: A4 35 3A 87 53 24 28 58 29 3A 82 00 88 09 F0 00 |.5:.S$(X):......|
00000160: 83 20 53 55 42 4D 41 52 49 4E 45 2C 44 45 53 54 |. SUBMARINE,DEST|
00000170: 52 4F 59 45 52 2C 43 52 55 49 53 45 52 2C 42 41 |ROYER,CRUISER,BA|
00000180: 54 54 4C 45 53 48 49 50 00 A3 09 FA 00 54 53 B2 |TTLESHIP.....TS.|
00000190: 31 34 3A 48 53 B2 31 34 3A 42 50 B2 31 3A 89 31 |14:HS.14:BP.1:.1|
000001A0: 34 36 30 00 C4 09 04 01 8D 20 32 32 33 30 3A 8F |460...... 2230:.|
000001B0: 20 42 4F 54 48 20 50 4C 41 59 45 52 53 20 52 45 | BOTH PLAYERS RE|
000001C0: 41 44 59 3F 00 D4 09 0E 01 8B 4E 24 B3 B1 22 22 |ADY?......N$..""|
000001D0: A7 33 33 30 00 F3 09 18 01 4E 24 B2 22 43 36 34 |.330.....N$."C64|
000001E0: 22 3A 85 22 93 05 59 4F 55 52 20 4E 41 4D 45 22 |":."..YOUR NAME"|
000001F0: 3B 4E 24 00 02 0A 22 01 8B 4E 24 B2 22 22 A7 32 |;N$..."..N$."".2|
00000200: 38 30 00 13 0A 2C 01 99 22 11 11 57 41 49 54 2E |80...,.."..WAIT.|
00000210: 2E 2E 22 00 49 0A 36 01 8D 31 39 35 30 3A 8F 20 |..".I.6..1950:. |
00000220: 53 45 4E 44 20 4E 41 4D 45 20 54 4F 20 4F 54 48 |SEND NAME TO OTH|
00000230: 45 52 20 43 4F 4D 50 55 54 45 52 2C 20 57 41 49 |ER COMPUTER, WAI|
00000240: 54 20 46 4F 52 20 48 49 53 00 66 0A 4A 01 8F 20 |T FOR HIS.f.J.. |
00000250: 49 4E 50 55 54 20 53 48 49 50 20 43 4F 4F 52 44 |INPUT SHIP COORD|
00000260: 49 4E 41 54 45 53 00 85 0A 54 01 99 22 93 22 3A |INATES...T..".":|
00000270: 50 B2 30 3A 8D 36 38 30 3A 8F 20 50 52 49 4E 54 |P.0:.680:. PRINT|
00000280: 20 47 52 49 44 00 97 0A 5E 01 81 20 58 B2 32 A4 | GRID...^.. X.2.|
00000290: 35 3A 8D 31 33 37 30 00 A4 0A 68 01 81 20 4A B2 |5:.1370...h.. J.|
000002A0: 31 A4 31 30 00 B3 0A 72 01 3A 20 81 20 4B B2 31 |1.10...r.: . K.1|
000002B0: A4 31 30 00 CE 0A 7C 01 3A 20 8B 42 25 28 4A 2C |.10...|.: .B%(J,|
000002C0: 4B 29 B2 58 A7 42 25 28 4A 2C 4B 29 B2 30 00 D7 |K).X.B%(J,K).0..|
000002D0: 0A 86 01 82 4B 2C 4A 00 F6 0A 90 01 8D 38 39 30 |....K,J......890|
000002E0: 3A 8F 20 45 52 41 53 45 20 44 49 52 45 43 54 49 |:. ERASE DIRECTI|
000002F0: 4F 4E 20 41 49 44 00 11 0B 9A 01 99 4D 24 22 05 |ON AID......M$".|
00000300: 45 4E 54 45 52 20 22 53 24 28 58 29 22 20 20 20 |ENTER "S$(X)" |
00000310: 22 00 2D 0B A4 01 8D 31 31 34 30 3A 8F 20 47 45 |".-....1140:. GE|
00000320: 54 20 43 4F 4F 52 44 49 4E 41 54 45 53 00 5D 0B |T COORDINATES.].|
00000330: AE 01 8B 42 25 28 56 2C 48 29 B3 B1 30 A7 8D 31 |...B%(V,H)..0..1|
00000340: 30 36 30 3A 89 33 36 30 3A 8F 20 53 48 49 50 20 |060:.360:. SHIP |
00000350: 54 48 45 52 45 20 41 4C 52 45 41 44 59 00 7C 0B |THERE ALREADY.|.|
00000360: B8 01 8D 38 34 30 3A 8F 20 50 52 49 4E 54 20 44 |...840:. PRINT D|
00000370: 49 52 45 43 54 49 4F 4E 20 41 49 44 00 92 0B C2 |IRECTION AID....|
00000380: 01 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 |..198,0:.198,1:.|
00000390: 44 24 00 A3 0B CC 01 43 4B B2 30 3A 81 20 59 B2 |D$.....CK.0:. Y.|
000003A0: 31 A4 38 00 C1 0B D6 01 8B CA 28 22 54 59 55 47 |1.8.......("TYUG|
000003B0: 4A 42 4E 4D 22 2C 59 2C 31 29 B2 44 24 A7 34 39 |JBNM",Y,1).D$.49|
000003C0: 30 00 D3 0B E0 01 82 59 3A 8D 31 30 36 30 3A 89 |0......Y:.1060:.|
000003D0: 34 35 30 00 FA 0B EA 01 91 59 89 35 30 30 2C 35 |450......Y.500,5|
000003E0: 31 30 2C 35 32 30 2C 35 33 30 2C 35 34 30 2C 35 |10,520,530,540,5|
000003F0: 35 30 2C 35 36 30 2C 35 37 30 00 0F 0C F4 01 58 |50,560,570.....X|
00000400: 44 B2 AB 31 3A 59 44 B2 AB 31 3A 89 35 38 30 00 |D..1:YD..1:.580.|
00000410: 24 0C FE 01 58 44 B2 20 30 3A 59 44 B2 AB 31 3A |$...XD. 0:YD..1:|
00000420: 89 35 38 30 00 39 0C 08 02 58 44 B2 20 31 3A 59 |.580.9...XD. 1:Y|
00000430: 44 B2 AB 31 3A 89 35 38 30 00 4E 0C 12 02 58 44 |D..1:.580.N...XD|
00000440: B2 AB 31 3A 59 44 B2 20 30 3A 89 35 38 30 00 63 |..1:YD. 0:.580.c|
00000450: 0C 1C 02 58 44 B2 20 31 3A 59 44 B2 20 30 3A 89 |...XD. 1:YD. 0:.|
00000460: 35 38 30 00 78 0C 26 02 58 44 B2 AB 31 3A 59 44 |580.x.&.XD..1:YD|
00000470: B2 20 31 3A 89 35 38 30 00 8D 0C 30 02 58 44 B2 |. 1:.580...0.XD.|
00000480: 20 30 3A 59 44 B2 20 31 3A 89 35 38 30 00 A2 0C | 0:YD. 1:.580...|
00000490: 3A 02 58 44 B2 20 31 3A 59 44 B2 20 31 3A 89 35 |:.XD. 1:YD. 1:.5|
000004A0: 38 30 00 B4 0C 44 02 4C B2 31 3A 42 25 28 56 2C |80...D.L.1:B%(V,|
000004B0: 48 29 B2 58 00 CE 0C 4E 02 58 31 B2 48 AA 58 44 |H).X...N.X1.H.XD|
000004C0: 3A 59 31 B2 56 AA 59 44 3A 4C B2 4C AA 31 00 EA |:Y1.V.YD:L.L.1..|
000004D0: 0C 58 02 8B 58 31 B1 31 30 B0 59 31 B1 31 30 A7 |.X..X1.10.Y1.10.|
000004E0: 8D 31 30 36 30 3A 89 33 36 30 00 04 0D 62 02 8B |.1060:.360...b..|
000004F0: 58 31 B3 31 B0 59 31 B3 31 A7 8D 31 30 36 30 3A |X1.1.Y1.1..1060:|
00000500: 89 33 36 30 00 21 0D 6C 02 8B 42 25 28 59 31 2C |.360.!.l..B%(Y1,|
00000510: 58 31 29 B3 B1 30 A7 8D 31 30 36 30 3A 89 33 36 |X1)..0..1060:.36|
00000520: 30 00 31 0D 76 02 42 25 28 59 31 2C 58 31 29 B2 |0.1.v.B%(Y1,X1).|
00000530: 58 00 49 0D 80 02 8B 4C B3 58 A7 48 B2 58 31 3A |X.I....L.X.H.X1:|
00000540: 56 B2 59 31 3A 89 35 39 30 00 56 0D 8A 02 47 B2 |V.Y1:.590.V...G.|
00000550: 30 3A 8D 39 34 30 00 62 0D 94 02 82 58 3A 8D 38 |0:.940.b....X:.8|
00000560: 39 30 00 86 0D 9E 02 89 20 31 34 30 30 20 3A 8F |90...... 1400 :.|
00000570: 20 53 4B 49 50 20 54 4F 20 50 4C 41 59 20 52 4F | SKIP TO PLAY RO|
00000580: 55 54 49 4E 45 53 00 A4 0D A8 02 8F 20 47 52 49 |UTINES...... GRI|
00000590: 44 20 44 52 41 57 49 4E 47 20 53 55 42 52 4F 55 |D DRAWING SUBROU|
000005A0: 54 49 4E 45 00 BB 0D B2 02 99 20 A3 50 AC 31 38 |TINE...... .P.18|
000005B0: 29 C7 28 31 39 29 43 24 28 50 29 00 D6 0D BC 02 |).(19)C$(P).....|
000005C0: 99 20 A3 50 AC 31 38 29 22 20 20 AF AF AF AF AF |. .P.18)" .....|
000005D0: AF AF AF AF AF 22 00 F1 0D C6 02 99 20 A3 50 AC |....."...... .P.|
000005E0: 31 38 29 22 30 AA BA BA BA BA BA BA BA BA BA BA |18)"0...........|
000005F0: 22 00 0C 0E D0 02 99 20 A3 50 AC 31 38 29 22 31 |"...... .P.18)"1|
00000600: AA BA BA BA BA BA BA BA BA BA BA 22 00 27 0E DA |...........".'..|
00000610: 02 99 20 A3 50 AC 31 38 29 22 32 AA BA BA BA BA |.. .P.18)"2.....|
00000620: BA BA BA BA BA BA 22 00 42 0E E4 02 99 20 A3 50 |......".B.... .P|
00000630: AC 31 38 29 22 33 AA BA BA BA BA BA BA BA BA BA |.18)"3..........|
00000640: BA 22 00 5D 0E EE 02 99 20 A3 50 AC 31 38 29 22 |.".].... .P.18)"|
00000650: 34 AA BA BA BA BA BA BA BA BA BA BA 22 00 78 0E |4...........".x.|
00000660: F8 02 99 20 A3 50 AC 31 38 29 22 35 AA BA BA BA |... .P.18)"5....|
00000670: BA BA BA BA BA BA BA 22 00 93 0E 02 03 99 20 A3 |......."...... .|
00000680: 50 AC 31 38 29 22 36 AA BA BA BA BA BA BA BA BA |P.18)"6.........|
00000690: BA BA 22 00 AE 0E 0C 03 99 20 A3 50 AC 31 38 29 |.."...... .P.18)|
000006A0: 22 37 AA BA BA BA BA BA BA BA BA BA BA 22 00 C9 |"7..........."..|
000006B0: 0E 16 03 99 20 A3 50 AC 31 38 29 22 38 AA BA BA |.... .P.18)"8...|
000006C0: BA BA BA BA BA BA BA BA 22 00 E4 0E 20 03 99 20 |........"... .. |
000006D0: A3 50 AC 31 38 29 22 39 AA BA BA BA BA BA BA BA |.P.18)"9........|
000006E0: BA BA BA 22 00 FF 0E 2A 03 99 20 A3 50 AC 31 38 |..."...*.. .P.18|
000006F0: 29 22 20 20 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 |)" ..........".|
00000700: 1A 0F 34 03 99 20 A3 50 AC 31 38 29 22 20 20 41 |..4.. .P.18)" A|
00000710: 42 43 44 45 46 47 48 49 4A 22 00 20 0F 3E 03 8E |BCDEFGHIJ". .>..|
00000720: 00 3D 0F 48 03 99 22 13 20 20 20 20 20 20 20 20 |.=.H..". |
00000730: 20 20 44 49 52 45 43 54 49 4F 4E 3F 22 00 4E 0F | DIRECTION?".N.|
00000740: 52 03 99 A3 31 33 29 22 11 12 54 59 55 22 00 5E |R...13)"..TYU".^|
00000750: 0F 5C 03 99 A3 31 33 29 22 12 47 20 4A 22 00 6E |.\...13)".G J".n|
00000760: 0F 66 03 99 A3 31 33 29 22 12 42 4E 4D 22 00 74 |.f...13)".BNM".t|
00000770: 0F 70 03 8E 00 91 0F 7A 03 99 22 13 20 20 20 20 |.p.....z..". |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000790: 22 00 A1 0F 84 03 99 A3 31 33 29 22 11 20 20 20 |".......13)". |
000007A0: 22 00 B0 0F 8E 03 99 A3 31 33 29 22 20 20 20 22 |".......13)" "|
000007B0: 00 BF 0F 98 03 99 A3 31 33 29 22 20 20 20 22 00 |.......13)" ".|
000007C0: C5 0F A2 03 8E 00 E9 0F AC 03 8F 20 44 52 41 57 |........... DRAW|
000007D0: 20 53 48 49 50 53 20 4F 4E 20 47 52 49 44 20 53 | SHIPS ON GRID S|
000007E0: 55 42 52 4F 55 54 49 4E 45 00 FB 0F B6 03 8D 31 |UBROUTINE......1|
000007F0: 33 37 30 3A 99 22 13 11 11 22 3B 00 08 10 C0 03 |370:."...";.....|
00000800: 81 20 4A B2 31 A4 31 30 00 18 10 CA 03 99 22 1D |. J.1.10......".|
00000810: 1D 22 A3 47 AC 31 38 29 00 25 10 D4 03 81 20 4B |.".G.18).%.... K|
00000820: B2 31 A4 31 30 00 44 10 DE 03 53 B2 42 25 28 4A |.1.10.D...S.B%(J|
00000830: 2C 4B 29 3A 8B 53 B2 30 A7 99 22 1D 22 3B 3A 89 |,K):.S.0..".";:.|
00000840: 31 30 32 30 00 5C 10 E8 03 8B 53 B2 31 A7 99 22 |1020.\....S.1.."|
00000850: 1C 12 20 92 22 3B 3A 89 31 30 32 30 00 7C 10 F2 |.. .";:.1020.|..|
00000860: 03 99 C7 28 31 38 29 C7 28 35 29 C8 28 53 24 28 |...(18).(5).(S$(|
00000870: 53 29 2C 31 29 C7 28 31 34 36 29 3B 00 8A 10 FC |S),1).(146);....|
00000880: 03 82 4B 3A 99 3A 82 4A 3A 8E 00 A1 10 06 04 8F |..K:.:.J:.......|
00000890: 20 42 45 45 50 53 20 53 55 42 52 4F 55 54 49 4E | BEEPS SUBROUTIN|
000008A0: 45 00 D0 10 10 04 8D 31 31 32 30 3A 97 53 36 AA |E......1120:.S6.|
000008B0: 31 2C 31 33 30 3A 97 53 36 AA 35 2C 39 3A 97 53 |1,130:.S6.5,9:.S|
000008C0: 36 AA 31 35 2C 33 30 3A 97 53 36 AA 32 34 2C 35 |6.15,30:.S6.24,5|
000008D0: 00 FD 10 1A 04 97 53 36 AA 34 2C 32 31 3A 81 20 |......S6.4,21:. |
000008E0: 44 45 B2 31 A4 32 35 3A 82 3A 97 53 36 AA 34 2C |DE.1.25:.:.S6.4,|
000008F0: 32 30 3A 97 53 36 AA 32 34 2C 30 3A 8E 00 14 11 |20:.S6.24,0:....|
00000900: 24 04 8F 20 42 41 50 50 53 20 53 55 42 52 4F 55 |$.. BAPPS SUBROU|
00000910: 54 49 4E 45 00 2B 11 2E 04 99 4D 24 22 11 11 11 |TINE.+....M$"...|
00000920: 12 42 41 44 20 45 4E 54 52 59 22 00 4D 11 38 04 |.BAD ENTRY".M.8.|
00000930: 97 20 53 36 AA 32 34 2C 31 32 3A 97 53 36 AA 36 |. S6.24,12:.S6.6|
00000940: 2C 32 34 30 3A 97 53 36 AA 34 2C 31 37 00 69 11 |,240:.S6.4,17.i.|
00000950: 42 04 81 20 41 B2 31 A4 32 20 3A 20 81 20 42 B2 |B.. A.1.2 : . B.|
00000960: 31 A4 32 35 35 20 A9 32 35 00 85 11 4C 04 97 20 |1.255 .25...L.. |
00000970: 53 36 AA 31 2C 42 3A 82 42 2C 41 20 3A 97 53 36 |S6.1,B:.B,A :.S6|
00000980: AA 34 2C 33 32 00 93 11 56 04 97 20 53 36 AA 34 |.4,32...V.. S6.4|
00000990: 2C 33 32 00 AA 11 60 04 81 20 51 B2 30 A4 32 34 |,32...`.. Q.0.24|
000009A0: 3A 97 53 36 AA 51 2C 30 3A 82 00 C3 11 6A 04 99 |:.S6.Q,0:....j..|
000009B0: 4D 24 22 11 11 11 20 20 20 20 20 20 20 20 20 20 |M$"... |
000009C0: 22 3A 8E 00 E5 11 74 04 8F 20 43 4F 4F 52 44 49 |":....t.. COORDI|
000009D0: 4E 41 54 45 20 49 4E 50 55 54 20 53 55 42 52 4F |NATE INPUT SUBRO|
000009E0: 55 54 49 4E 45 00 09 12 7E 04 99 C8 28 42 54 24 |UTINE...~...(BT$|
000009F0: 2C 31 37 29 22 05 43 4F 4F 52 44 49 4E 41 54 45 |,17)".COORDINATE|
00000A00: 53 3F 20 28 56 2C 48 29 22 00 1B 12 88 04 99 22 |S? (V,H)"......"|
00000A10: 20 20 20 20 22 3A 99 22 91 22 3B 00 31 12 92 04 | ":.".";.1...|
00000A20: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 56 |.198,0:.198,1:.V|
00000A30: 24 00 54 12 9C 04 8B C6 28 56 24 29 B3 34 38 B0 |$.T.....(V$).48.|
00000A40: C6 28 56 24 29 B1 35 37 A7 8D 31 30 36 30 3A 89 |.(V$).57..1060:.|
00000A50: 31 31 37 30 00 66 12 A6 04 99 4D 24 22 11 11 22 |1170.f....M$".."|
00000A60: 56 24 22 2D 22 3B 00 7C 12 B0 04 97 31 39 38 2C |V$"-";.|....198,|
00000A70: 30 3A 92 31 39 38 2C 31 3A A1 48 24 00 9F 12 BA |0:.198,1:.H$....|
00000A80: 04 8B C6 28 48 24 29 B3 36 35 B0 C6 28 48 24 29 |...(H$).65..(H$)|
00000A90: B1 37 34 A7 8D 31 30 36 30 3A 89 31 32 30 30 00 |.74..1060:.1200.|
00000AA0: AF 12 C4 04 99 4D 24 22 11 11 1D 1D 22 48 24 00 |.....M$"...."H$.|
00000AB0: C9 12 CE 04 48 B2 C6 28 48 24 29 AB 36 34 3A 56 |....H..(H$).64:V|
00000AC0: B2 C6 28 56 24 29 AB 34 37 00 CF 12 D8 04 8E 00 |..(V$).47.......|
00000AD0: EA 12 E2 04 8F 20 48 49 54 20 4E 4F 49 53 45 20 |..... HIT NOISE |
00000AE0: 53 55 42 52 4F 55 54 49 4E 45 00 0A 13 EC 04 81 |SUBROUTINE......|
00000AF0: 20 51 B2 30 A4 32 34 3A 97 53 36 AA 51 2C 30 3A | Q.0.24:.S6.Q,0:|
00000B00: 82 3A 97 53 36 AA 32 34 2C 38 00 22 13 F6 04 97 |.:.S6.24,8."....|
00000B10: 53 36 AA 35 2C 31 39 32 3A 97 53 36 AA 36 2C 32 |S6.5,192:.S6.6,2|
00000B20: 35 30 00 34 13 00 05 81 20 51 B2 31 32 30 A4 38 |50.4.... Q.120.8|
00000B30: 30 A9 AB 31 00 58 13 0A 05 97 53 36 AA 31 2C 51 |0..1.X....S6.1,Q|
00000B40: 3A 97 53 36 AA 34 2C 31 37 3A 81 20 44 45 B2 31 |:.S6.4,17:. DE.1|
00000B50: A4 38 3A 82 44 45 2C 51 00 6F 13 14 05 97 20 35 |.8:.DE,Q.o.... 5|
00000B60: 33 32 38 30 2C 32 3A 97 35 33 32 38 31 2C 32 00 |3280,2:.53281,2.|
00000B70: 90 13 1E 05 97 53 36 AA 32 34 2C 31 35 3A 97 53 |.....S6.24,15:.S|
00000B80: 36 AA 31 2C 31 35 3A 97 53 36 AA 34 2C 31 32 38 |6.1,15:.S6.4,128|
00000B90: 00 BB 13 28 05 81 20 56 4F B2 31 35 A4 30 A9 AB |...(.. VO.15.0..|
00000BA0: 31 3A 81 20 44 45 B2 31 A4 31 30 3A 82 44 45 3A |1:. DE.1.10:.DE:|
00000BB0: 97 53 36 AA 32 34 2C 56 4F 3A 82 00 D5 13 32 05 |.S6.24,VO:....2.|
00000BC0: 97 20 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 |. 53280,0:.53281|
00000BD0: 2C 30 3A 20 8E 00 F4 13 3C 05 97 20 53 36 AA 32 |,0: ....<.. S6.2|
00000BE0: 34 2C 39 3A 97 53 36 AA 35 2C 39 3A 97 53 36 AA |4,9:.S6.5,9:.S6.|
00000BF0: 31 2C 32 30 00 1E 14 46 05 97 20 53 36 AA 34 2C |1,20...F.. S6.4,|
00000C00: 31 32 38 3A 81 20 44 B2 31 A4 31 30 3A 82 3A 97 |128:. D.1.10:.:.|
00000C10: 53 36 AA 34 2C 31 32 39 3A 89 31 33 31 30 00 44 |S6.4,129:.1310.D|
00000C20: 14 50 05 8F 20 43 4C 45 41 52 20 4D 45 53 53 41 |.P.. CLEAR MESSA|
00000C30: 47 45 20 53 43 52 45 45 4E 20 53 55 42 52 4F 55 |GE SCREEN SUBROU|
00000C40: 54 49 4E 45 00 60 14 5A 05 99 4D 24 42 4C 24 3A |TINE.`.Z..M$BL$:|
00000C50: 81 20 51 B2 31 A4 33 3A 99 42 4C 24 3A 82 3A 8E |. Q.1.3:.BL$:.:.|
00000C60: 00 66 14 64 05 8F 00 7B 14 6E 05 8F 20 52 45 41 |.f.d...{.n.. REA|
00000C70: 44 59 20 46 4F 52 20 47 41 4D 45 00 9C 14 78 05 |DY FOR GAME...x.|
00000C80: 8D 31 33 37 30 20 3A 20 8F 20 43 4C 45 41 52 20 |.1370 : . CLEAR |
00000C90: 4D 45 53 53 41 47 45 20 41 52 45 41 00 A4 14 82 |MESSAGE AREA....|
00000CA0: 05 50 B2 30 00 BB 14 8C 05 8D 36 38 30 20 3A 20 |.P.0......680 : |
00000CB0: 8F 20 44 52 41 57 20 47 52 49 44 00 C8 14 96 05 |. DRAW GRID.....|
00000CC0: 50 B2 31 3A 8D 36 38 30 00 E2 14 A0 05 99 22 13 |P.1:.680......".|
00000CD0: 9E 20 20 22 4E 24 A3 31 38 29 22 1E 20 20 22 4E |. "N$.18)". "N|
00000CE0: 31 24 00 FA 14 AA 05 8D 39 34 30 3A 8F 20 44 52 |1$......940:. DR|
00000CF0: 41 57 20 4F 4E 20 47 52 49 44 00 0F 15 B4 05 47 |AW ON GRID.....G|
00000D00: 56 B2 30 3A 99 C8 28 42 54 24 2C 32 31 29 3B 00 |V.0:..(BT$,21);.|
00000D10: 46 15 BE 05 99 22 1C C0 C0 C0 C0 C0 C0 C0 C0 C0 |F...."..........|
00000D20: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000D30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 |..............."|
00000D40: 3B C7 28 31 39 29 00 6D 15 C8 05 8B 42 50 B2 30 |;.(19).m....BP.0|
00000D50: A7 8D 20 32 31 34 30 3A 8F 20 4F 54 48 45 52 20 |.. 2140:. OTHER |
00000D60: 50 4C 41 59 45 52 20 52 45 41 44 59 3F 00 85 15 |PLAYER READY?...|
00000D70: D2 05 8F 20 4D 41 49 4E 20 50 4C 41 59 49 4E 47 |... MAIN PLAYING|
00000D80: 20 4C 4F 4F 50 00 AB 15 DC 05 8F 20 2A 2A 2A 2A | LOOP...... ****|
00000D90: 2A 20 49 4E 50 55 54 20 46 52 4F 4D 20 4F 54 48 |* INPUT FROM OTH|
00000DA0: 45 52 20 43 4F 4D 50 55 54 45 52 00 C8 15 E6 05 |ER COMPUTER.....|
00000DB0: A1 23 31 2C 41 24 3A 8B 41 24 B2 22 22 B0 53 54 |.#1,A$:.A$."".ST|
00000DC0: B3 B1 30 A7 31 36 30 30 00 E9 15 F0 05 8B 41 24 |..0.1600......A$|
00000DD0: B2 46 31 24 A7 31 37 39 30 3A 8F 20 43 4F 4F 52 |.F1$.1790:. COOR|
00000DE0: 44 53 20 43 4F 4D 49 4E 47 00 15 16 FA 05 8B 41 |DS COMING......A|
00000DF0: 24 B2 C7 28 31 33 34 29 A7 31 38 37 30 3A 8F 20 |$..(134).1870:. |
00000E00: 52 45 50 4F 52 54 20 4F 46 20 48 49 54 20 26 20 |REPORT OF HIT & |
00000E10: 56 41 4C 55 45 00 3A 16 04 06 8B 41 24 B2 C7 28 |VALUE.:....A$..(|
00000E20: 31 33 35 29 A7 31 39 31 30 3A 8F 20 52 45 50 4F |135).1910:. REPO|
00000E30: 52 54 20 4F 46 20 4D 49 53 53 00 52 16 0E 06 8B |RT OF MISS.R....|
00000E40: 41 24 B3 22 20 22 B0 41 24 B1 22 5A 22 A7 31 36 |A$." ".A$."Z".16|
00000E50: 30 30 00 65 16 18 06 8B 41 24 B2 C7 28 31 33 36 |00.e....A$..(136|
00000E60: 29 A7 32 35 30 00 7A 16 22 06 4D 45 24 B2 C9 28 |).250.z.".ME$..(|
00000E70: 4D 45 24 AA 41 24 2C 33 39 29 00 96 16 2C 06 99 |ME$.A$,39)...,..|
00000E80: 22 9F 22 C8 28 42 54 24 2C 32 30 29 4D 45 24 3A |".".(BT$,20)ME$:|
00000E90: 97 32 31 32 2C 30 00 B2 16 36 06 8F 20 2A 2A 2A |.212,0...6.. ***|
00000EA0: 2A 2A 20 46 52 4F 4D 20 59 4F 55 20 54 4F 20 48 |** FROM YOU TO H|
00000EB0: 49 4D 00 E1 16 40 06 8B 4D 46 B2 31 AF 47 56 B2 |IM...@..MF.1.GV.|
00000EC0: 30 AF 42 50 B2 30 A7 8D 31 33 37 30 3A 99 4D 24 |0.BP.0..1370:.M$|
00000ED0: 22 05 59 4F 55 52 20 54 55 52 4E 20 28 46 31 29 |".YOUR TURN (F1)|
00000EE0: 22 00 FB 16 4A 06 8B 4D 46 B2 30 AF 47 56 B2 30 |"...J..MF.0.GV.0|
00000EF0: AF 42 50 B2 30 A7 8D 31 33 37 30 00 1B 17 54 06 |.BP.0..1370...T.|
00000F00: 8B 42 50 A7 99 4D 24 22 11 05 50 52 45 53 53 20 |.BP..M$"..PRESS |
00000F10: 46 31 20 54 4F 20 50 4C 41 59 22 00 2E 17 5E 06 |F1 TO PLAY"...^.|
00000F20: A1 41 24 3A 8B 47 56 B2 31 A7 31 36 36 30 00 5B |.A$:.GV.1.1660.[|
00000F30: 17 68 06 8B 41 24 B2 46 31 24 AF 4D 46 B2 31 AF |.h..A$.F1$.MF.1.|
00000F40: 42 50 B2 30 A7 31 37 36 30 3A 8F 20 47 45 54 20 |BP.0.1760:. GET |
00000F50: 43 4F 4F 52 44 49 4E 41 54 45 53 00 8E 17 72 06 |COORDINATES...r.|
00000F60: 8B 41 24 B2 46 31 24 AF 42 50 B2 31 A7 42 50 B2 |.A$.F1$.BP.1.BP.|
00000F70: 30 3A 89 32 36 30 3A 8F 20 45 4E 44 20 49 4E 49 |0:.260:. END INI|
00000F80: 54 49 41 4C 20 43 48 41 54 20 4D 4F 44 45 00 BC |TIAL CHAT MODE..|
00000F90: 17 7C 06 8B 48 53 B2 30 A7 47 56 B2 31 3A 8D 31 |.|..HS.0.GV.1:.1|
00000FA0: 33 37 30 3A 99 4D 24 4E 24 22 20 57 49 4E 53 21 |370:.M$N$" WINS!|
00000FB0: 22 3A 8D 32 32 32 30 3A 89 32 35 30 00 EB 17 86 |":.2220:.250....|
00000FC0: 06 8B 54 53 B2 30 A7 47 56 B2 31 3A 8D 31 33 37 |..TS.0.GV.1:.137|
00000FD0: 30 3A 99 4D 24 4E 31 24 22 20 57 49 4E 53 21 22 |0:.M$N1$" WINS!"|
00000FE0: 3A 8D 32 32 32 30 3A 89 32 35 30 00 10 18 90 06 |:.2220:.250.....|
00000FF0: 8B 41 24 B1 B2 22 C1 22 AF 41 24 B3 B2 22 DA 22 |.A$..".".A$.."."|
00001000: A7 41 24 B2 C7 28 C6 28 41 24 29 AB 31 32 38 29 |.A$..(.(A$).128)|
00001010: 00 26 18 9A 06 8B 41 24 B2 C7 28 31 36 30 29 A7 |.&....A$..(160).|
00001020: 41 24 B2 22 20 22 00 3E 18 A4 06 8B 41 24 B3 22 |A$." ".>....A$."|
00001030: 20 22 B0 41 24 B1 22 5A 22 A7 31 35 31 30 00 5B | ".A$."Z".1510.[|
00001040: 18 AE 06 41 31 24 B2 41 24 3A 8B 41 24 B2 C7 28 |...A1$.A$:.A$..(|
00001050: 33 34 29 A7 41 31 24 B2 22 27 22 00 71 18 B8 06 |34).A1$."'".q...|
00001060: 4D 59 24 B2 C9 28 4D 59 24 AA 41 31 24 2C 33 39 |MY$..(MY$.A1$,39|
00001070: 29 00 8B 18 C2 06 99 22 9E 22 C8 28 42 54 24 2C |)......".".(BT$,|
00001080: 32 32 29 4D 59 24 C7 28 31 39 29 00 9C 18 CC 06 |22)MY$.(19).....|
00001090: 98 31 2C 41 24 3B 3A 89 31 35 31 30 00 B2 18 D6 |.1,A$;:.1510....|
000010A0: 06 8F 20 47 45 54 20 43 4F 4F 52 44 49 4E 41 54 |.. GET COORDINAT|
000010B0: 45 53 00 C8 18 E0 06 8D 31 33 37 30 3A 8D 31 31 |ES......1370:.11|
000010C0: 34 30 3A 8D 31 33 37 30 00 DC 18 EA 06 98 31 2C |40:.1370......1,|
000010D0: 46 31 24 C7 28 48 29 C7 28 56 29 3B 00 EB 18 F4 |F1$.(H).(V);....|
000010E0: 06 4D 46 B2 30 3A 89 31 34 39 30 00 11 19 FE 06 |.MF.0:.1490.....|
000010F0: 8F 20 47 45 54 20 4F 54 48 45 52 20 43 4F 4D 50 |. GET OTHER COMP|
00001100: 55 54 45 52 53 20 43 4F 4F 52 44 49 4E 41 54 45 |UTERS COORDINATE|
00001110: 53 00 28 19 08 07 A1 23 31 2C 48 24 3A 8B 48 24 |S.(....#1,H$:.H$|
00001120: B2 22 22 A7 31 38 30 30 00 3F 19 12 07 A1 23 31 |."".1800.?....#1|
00001130: 2C 56 24 3A 8B 56 24 B2 22 22 A7 31 38 31 30 00 |,V$:.V$."".1810.|
00001140: 62 19 1C 07 48 B2 C6 28 48 24 29 3A 56 B2 C6 28 |b...H..(H$):V..(|
00001150: 56 24 29 3A 4D 46 B2 31 3A 42 B2 42 25 28 56 2C |V$):MF.1:B.B%(V,|
00001160: 48 29 00 8D 19 26 07 8B 42 B2 30 B0 42 B2 31 A7 |H)...&..B.0.B.1.|
00001170: 98 31 2C C7 28 31 33 35 29 3B 3A 99 4D 24 22 05 |.1,.(135);:.M$".|
00001180: 22 4E 31 24 22 20 4D 49 53 53 45 44 22 00 A6 19 |"N1$" MISSED"...|
00001190: 2B 07 8B 42 B2 30 B0 42 B2 31 A7 8D 32 32 31 30 |+..B.0.B.1..2210|
000011A0: 3A 89 31 36 30 30 00 B9 19 30 07 98 31 2C C7 28 |:.1600...0..1,.(|
000011B0: 31 33 34 29 C7 28 42 29 3B 00 E9 19 3A 07 8D 31 |134).(B);...:..1|
000011C0: 32 35 30 3A 99 4D 24 22 05 22 4E 31 24 22 20 47 |250:.M$"."N1$" G|
000011D0: 45 54 53 20 41 20 48 49 54 21 22 3A 54 53 B2 54 |ETS A HIT!":TS.T|
000011E0: 53 AB 31 3A 8D 32 32 31 30 00 02 1A 44 07 42 25 |S.1:.2210...D.B%|
000011F0: 28 56 2C 48 29 B2 31 3A 8D 39 34 30 3A 89 31 36 |(V,H).1:.940:.16|
00001200: 30 30 00 19 1A 4E 07 A1 23 31 2C 42 24 3A 8B 42 |00...N..#1,B$:.B|
00001210: 24 B2 22 22 A7 31 38 37 30 00 2D 1A 58 07 42 B2 |$."".1870.-.X.B.|
00001220: C6 28 42 24 29 3A 48 53 B2 48 53 AB 31 00 4D 1A |.(B$):HS.HS.1.M.|
00001230: 62 07 42 24 B2 22 12 22 AA C8 28 53 24 28 42 29 |b.B$."."..(S$(B)|
00001240: 2C 31 29 AA 22 92 22 3A 8D 31 33 34 30 00 58 1A |,1).".":.1340.X.|
00001250: 6C 07 89 20 31 39 32 30 00 63 1A 76 07 42 24 B2 |l.. 1920.c.v.B$.|
00001260: 22 2A 22 00 78 1A 80 07 99 22 13 22 3A 81 20 51 |"*".x....".":. Q|
00001270: B2 31 A4 56 3A 99 3A 82 00 8B 1A 8A 07 99 A3 31 |.1.V:.:........1|
00001280: AA 31 38 AA 48 29 22 9E 22 42 24 00 95 1A 94 07 |.18.H)"."B$.....|
00001290: 89 31 36 30 30 00 B7 1A 9E 07 8F 20 53 45 4E 44 |.1600...... SEND|
000012A0: 20 4E 41 4D 45 20 54 4F 20 4F 54 48 45 52 20 43 | NAME TO OTHER C|
000012B0: 4F 4D 50 55 54 45 52 00 DF 1A A8 07 8F 20 46 4F |OMPUTER...... FO|
000012C0: 52 51 3D 31 54 4F 31 30 30 3A 50 52 49 4E 54 23 |RQ=1TO100:PRINT#|
000012D0: 31 2C 43 48 52 24 28 30 29 3B 3A 4E 45 58 54 00 |1,CHR$(0);:NEXT.|
000012E0: EB 1A B2 07 98 31 2C 46 31 24 3B 00 04 1B BC 07 |.....1,F1$;.....|
000012F0: A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 46 31 24 A7 |.#1,A$:.A$..F1$.|
00001300: 31 39 37 30 00 2C 1B C6 07 81 20 51 B2 31 A4 C3 |1970.,.... Q.1..|
00001310: 28 4E 24 29 3A 98 31 2C CA 28 4E 24 2C 51 2C 31 |(N$):.1,.(N$,Q,1|
00001320: 29 3B 3A 82 3A 98 31 2C 43 52 24 3B 00 37 1B D0 |);:.:.1,CR$;.7..|
00001330: 07 4E 31 24 B2 22 22 00 5E 1B DA 07 A1 23 31 2C |.N1$."".^....#1,|
00001340: 41 24 3A 8B 41 24 B1 B2 22 20 22 AF 41 24 B3 B2 |A$:.A$.." ".A$..|
00001350: 22 5A 22 A7 4E 31 24 B2 4E 31 24 AA 41 24 00 72 |"Z".N1$.N1$.A$.r|
00001360: 1B E4 07 8B 41 24 B3 B1 C7 28 31 33 29 A7 32 30 |....A$...(13).20|
00001370: 31 30 00 88 1B EE 07 8F 20 57 48 4F 20 47 4F 45 |10...... WHO GOE|
00001380: 53 20 46 49 52 53 54 3F 00 A1 1B F8 07 81 20 58 |S FIRST?...... X|
00001390: B2 31 A4 31 30 30 3A 98 31 2C C7 28 30 29 3B 3A |.1.100:.1,.(0);:|
000013A0: 82 00 BC 1B 02 08 57 46 24 B2 C7 28 B5 28 BB 28 |......WF$..(.(.(|
000013B0: 30 29 AC 31 30 30 29 AA 31 35 30 29 00 C8 1B 0C |0).100).150)....|
000013C0: 08 98 31 2C 57 46 24 3B 00 DF 1B 16 08 A1 23 31 |..1,WF$;......#1|
000013D0: 2C 41 24 3A 8B 41 24 B2 22 22 A7 32 30 36 30 00 |,A$:.A$."".2060.|
000013E0: FD 1B 20 08 8B C6 28 41 24 29 B3 31 35 30 B0 C6 |.. ...(A$).150..|
000013F0: 28 41 24 29 B1 32 34 39 A7 32 30 37 30 00 0E 1C |(A$).249.2070...|
00001400: 2A 08 8B 57 46 24 B2 41 24 A7 32 30 34 30 00 3D |*..WF$.A$.2040.=|
00001410: 1C 34 08 4D 46 B2 30 3A 4D 46 24 B2 22 53 45 43 |.4.MF.0:MF$."SEC|
00001420: 4F 4E 44 22 3A 8B 57 46 24 B1 41 24 A7 4D 46 B2 |OND":.WF$.A$.MF.|
00001430: 31 3A 4D 46 24 B2 22 46 49 52 53 54 22 00 57 1C |1:MF$."FIRST".W.|
00001440: 3E 08 8D 31 33 37 30 3A 99 4D 24 22 05 57 45 20 |>..1370:.M$".WE |
00001450: 47 4F 20 22 4D 46 24 00 70 1C 48 08 81 20 58 B2 |GO "MF$.p.H.. X.|
00001460: 31 A4 31 30 30 3A 98 31 2C C7 28 30 29 3B 3A 82 |1.100:.1,.(0);:.|
00001470: 00 76 1C 52 08 8E 00 98 1C 5C 08 8F 20 4F 54 48 |.v.R.....\.. OTH|
00001480: 45 52 20 50 4C 41 59 45 52 20 52 45 41 44 59 3F |ER PLAYER READY?|
00001490: 20 2A 2A 2A 2A 2A 2A 2A 00 A3 1C 66 08 98 31 2C | *******...f..1,|
000014A0: 44 53 24 00 BB 1C 70 08 A1 23 31 2C 41 24 3A 8B |DS$...p..#1,A$:.|
000014B0: 41 24 B2 44 53 24 A7 32 31 38 30 00 DA 1C 7A 08 |A$.DS$.2180...z.|
000014C0: 99 4D 24 22 05 50 4C 45 41 53 45 20 57 41 49 54 |.M$".PLEASE WAIT|
000014D0: 2E 2E 2E 22 3A 89 32 31 35 30 00 E9 1C 84 08 98 |...":.2150......|
000014E0: 31 2C C7 28 32 35 35 29 3B 00 05 1D 8E 08 A1 23 |1,.(255);......#|
000014F0: 31 2C 41 24 3A 8B 41 24 B3 B1 C7 28 32 35 35 29 |1,A$:.A$...(255)|
00001500: A7 32 31 39 30 00 0B 1D 98 08 8E 00 22 1D A2 08 |.2190......."...|
00001510: 81 20 44 45 4C 41 59 B2 31 A4 31 30 30 30 3A 82 |. DELAY.1.1000:.|
00001520: 3A 8E 00 39 1D AC 08 98 31 2C C7 28 31 33 36 29 |:..9....1,.(136)|
00001530: 3B 3A 8D 32 32 31 30 3A 8E 00 5D 1D B6 08 8F 20 |;:.2210:..].... |
00001540: 53 49 47 4E 41 4C 20 4F 54 48 45 52 20 43 4F 4D |SIGNAL OTHER COM|
00001550: 50 55 54 45 52 20 59 4F 55 20 41 52 45 00 81 1D |PUTER YOU ARE...|
00001560: C0 08 8F 20 20 20 52 45 41 44 59 2C 20 57 41 49 |... READY, WAI|
00001570: 54 20 46 4F 52 20 48 49 53 20 53 49 47 4E 41 4C |T FOR HIS SIGNAL|
00001580: 2E 00 A5 1D CA 08 99 22 93 57 41 49 54 49 4E 47 |.......".WAITING|
00001590: 20 46 4F 52 20 4F 54 48 45 52 20 50 4C 41 59 45 | FOR OTHER PLAYE|
000015A0: 52 2E 2E 2E 22 00 CE 1D D4 08 98 31 2C 22 20 20 |R..."......1," |
000015B0: 20 20 50 55 53 48 20 54 48 45 20 46 31 20 4B 45 | PUSH THE F1 KE|
000015C0: 59 2E 20 28 49 20 48 41 56 45 21 29 20 22 00 DB |Y. (I HAVE!) "..|
000015D0: 1D DE 08 98 31 2C C7 28 37 29 3B 00 F5 1D E8 08 |....1,.(7);.....|
000015E0: A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 C7 28 37 29 |.#1,A$:.A$...(7)|
000015F0: A7 32 32 37 30 00 0F 1E F2 08 81 20 58 B2 31 A4 |.2270...... X.1.|
00001600: 31 30 3A 98 31 2C C7 28 37 29 3B 3A 82 3A 8E 00 |10:.1,.(7);:.:..|
00001610: 00 00 |.. |
..'.X..1,2,3,G(6):. OPEN RS-232 CHANNEL.
K.... B%(10,10): . SHIP GRID MATRIX.M...
.53280,0:.53281,0:.54272.24,8.....BT$.".
........................"... .M$.H(BT$,1
6).D...ME$."":. Q.1.39:ME$.ME$." ":.....
.BL$.ME$:MY$.ME$:S6.54272.....CR$.G(13):
F1$.G(133):DS$."$"...H.C$(0).".":C$(1)."
.".0.R..G(147)G(142)G(8).F...S$(1).G(28)
.G(42).[.... X.2.5:.S$(X):....... SUBMAR
INE,DESTROYER,CRUISER,BATTLESHIP.....TS.
14:HS.14:BP.1:.1460.D.... 2230:. BOTH PL
AYERS READY?.T....N$.."".330.....N$."C64
":."..YOUR NAME";N$..."..N$."".280...,..
"..WAIT...".I.6..1950:. SEND NAME TO OTH
ER COMPUTER, WAIT FOR HIS.F.J.. INPUT SH
IP COORDINATES...T..".":P.0:.680:. PRINT
GRID...^.. X.2.5:.1370...H.. J.1.10...R
.: . K.1.10.N.|.: .B%(J,K).X.B%(J,K).0.W
....K,J......890:. ERASE DIRECTION AID..
....M$".ENTER "S$(X)" ".-....1140:. GE
T COORDINATES.]....B%(V,H)..0..1060:.360
:. SHIP THERE ALREADY.|....840:. PRINT D
IRECTION AID...B..198,0:.198,1:.D$...L.C
K.0:. Y.1.8.A.V..J("TYUGJBNM",Y,1).D$.49
0.S....Y:.1060:.450......Y.500,510,520,5
30,540,550,560,570.....XD..1:YD..1:.580.
$...XD. 0:YD..1:.580.9...XD. 1:YD..1:.58
0.N...XD..1:YD. 0:.580.C...XD. 1:YD. 0:.
580.X.&.XD..1:YD. 1:.580...0.XD. 0:YD. 1
:.580...:.XD. 1:YD. 1:.580...D.L.1:B%(V,
H).X.N.N.X1.H.XD:Y1.V.YD:L.L.1...X..X1.1
0.Y1.10..1060:.360...B..X1.1.Y1.1..1060:
.360.!.L..B%(Y1,X1)..0..1060:.360.1.V.B%
(Y1,X1).X.I....L.X.H.X1:V.Y1:.590.V...G.
0:.940.B....X:.890...... 1400 :. SKIP TO
PLAY ROUTINES...... GRID DRAWING SUBROU
TINE...... .P.18)G(19)C$(P).V.... .P.18)
" .........."...F.. .P.18)"0...........
"...P.. .P.18)"1...........".'.Z.. .P.18
)"2...........".B.... .P.18)"3..........
.".].... .P.18)"4...........".X.... .P.1
8)"5..........."...... .P.18)"6.........
.."...... .P.18)"7...........".I.... .P.
18)"8..........."... .. .P.18)"9........
..."...*.. .P.18)" .........."...4.. .P
.18)" ABCDEFGHIJ". .>...=.H..".
DIRECTION?".N.R...13)"..TYU".^.\...13)
".G J".N.F...13)".BNM".T.P.....Z..".
".......13)". ".......
13)" ".......13)" ".E.......... DRAW
SHIPS ON GRID SUBROUTINE......1370:."..
.";...... J.1.10...J.."..".G.18).%.T.. K
.1.10.D...S.B%(J,K):.S.0..".";:.1020.\..
..S.1..".. .";:.1020.|....G(18)G(5)H(S$(
S),1)G(146);......K:.:.J:....... BEEPS S
UBROUTINE.P....1120:.S6.1,130:.S6.5,9:.S
6.15,30:.S6.24,5......S6.4,21:. DE.1.25:
.:.S6.4,20:.S6.24,0:....$.. BAPPS SUBROU
TINE.+....M$"....BAD ENTRY".M.8.. S6.24,
12:.S6.6,240:.S6.4,17.I.B.. A.1.2 : . B.
1.255 .25...L.. S6.1,B:.B,A :.S6.4,32...
V.. S6.4,32...`.. Q.0.24:.S6.Q,0:..C.J..
M$"... ":....T.. COORDINATE INP
UT SUBROUTINE...~..H(BT$,17)".COORDINATE
S? (V,H)"......" ":.".";.1....198,0:.
198,1:.V$.T....F(V$).48.F(V$).57..1060:.
1170.F....M$".."V$"-";.|....198,0:.198,1
:.H$......F(H$).65.F(H$).74..1060:.1200.
..D..M$"...."H$.I.N.H.F(H$).64:V.F(V$).4
7.O.X........ HIT NOISE SUBROUTINE......
Q.0.24:.S6.Q,0:.:.S6.24,8."....S6.5,192
:.S6.6,250.4.... Q.120.80..1.X....S6.1,Q
:.S6.4,17:. DE.1.8:.DE,Q.O.... 53280,2:.
53281,2......S6.24,15:.S6.1,15:.S6.4,128
...(.. VO.15.0..1:. DE.1.10:.DE:.S6.24,V
O:..U.2.. 53280,0:.53281,0: ....<.. S6.2
4,9:.S6.5,9:.S6.1,20...F.. S6.4,128:. D.
1.10:.:.S6.4,129:.1310.D.P.. CLEAR MESSA
GE SCREEN SUBROUTINE.`.Z..M$BL$:. Q.1.3:
.BL$:.:..F.D...{.N.. READY FOR GAME...X.
.1370 : . CLEAR MESSAGE AREA.....P.0....
..680 : . DRAW GRID.H...P.1:.680... ..".
. "N$.18)". "N1$......940:. DRAW ON GR
ID.....GV.0:.H(BT$,21);.F...."..........
...............................";G(19).M
.H..BP.0.. 2140:. OTHER PLAYER READY?...
R.. MAIN PLAYING LOOP...... ***** INPUT
FROM OTHER COMPUTER.H....#1,A$:.A$."".ST
..0.1600......A$.F1$.1790:. COORDS COMIN
G......A$.G(134).1870:. REPORT OF HIT &
VALUE.:....A$.G(135).1910:. REPORT OF MI
SS.R....A$." ".A$."Z".1600.E....A$.G(136
).250.Z.".ME$.I(ME$.A$,39)...,.."."H(BT$
,20)ME$:.212,0...6.. ***** FROM YOU TO H
IM...@..MF.1.GV.0.BP.0..1370:.M$".YOUR T
URN (F1)"...J..MF.0.GV.0.BP.0..1370...T.
.BP..M$"..PRESS F1 TO PLAY"...^..A$:.GV.
1.1660.[.H..A$.F1$.MF.1.BP.0.1760:. GET
COORDINATES...R..A$.F1$.BP.1.BP.0:.260:.
END INITIAL CHAT MODE...|..HS.0.GV.1:.1
370:.M$N$" WINS!":.2220:.250......TS.0.G
V.1:.1370:.M$N1$" WINS!":.2220:.250.....
.A$.."A".A$.."Z".A$.G(F(A$).128).&....A$
.G(160).A$." ".>....A$." ".A$."Z".1510.[
...A1$.A$:.A$.G(34).A1$."'".Q...MY$.I(MY
$.A1$,39)...B.."."H(BT$,22)MY$G(19)...L.
.1,A$;:.1510...V.. GET COORDINATES.H....
1370:.1140:.1370......1,F1$G(H)G(V);....
.MF.0:.1490...... GET OTHER COMPUTERS CO
ORDINATES.(....#1,H$:.H$."".1800.?....#1
,V$:.V$."".1810.B...H.F(H$):V.F(V$):MF.1
:B.B%(V,H)...&..B.0.B.1..1,G(135);:.M$".
"N1$" MISSED"...+..B.0.B.1..2210:.1600..
.0..1,G(134)G(B);...:..1250:.M$"."N1$" G
ETS A HIT!":TS.TS.1:.2210...D.B%(V,H).1:
.940:.1600...N..#1,B$:.B$."".1870.-.X.B.
F(B$):HS.HS.1.M.B.B$.".".H(S$(B),1).".":
.1340.X.L.. 1920.C.V.B$."*".X....".":. Q
.1.V:.:........1.18.H)"."B$......1600...
... SEND NAME TO OTHER COMPUTER...... FO
RQ=1TO100:PRINT#1,CHR$(0);:NEXT......1,F
1$;......#1,A$:.A$..F1$.1970.,.F.. Q.1.C
(N$):.1,J(N$,Q,1);:.:.1,CR$;.7.P.N1$."".
^.Z..#1,A$:.A$.." ".A$.."Z".N1$.N1$.A$.R
....A$..G(13).2010...... WHO GOES FIRST?
...... X.1.100:.1,G(0);:......WF$.G(.(.(
0).100).150).H....1,WF$;......#1,A$:.A$.
"".2060... ..F(A$).150.F(A$).249.2070...
*..WF$.A$.2040.=.4.MF.0:MF$."SECOND":.WF
$.A$.MF.1:MF$."FIRST".W.>..1370:.M$".WE
GO "MF$.P.H.. X.1.100:.1,G(0);:..V.R....
.\.. OTHER PLAYER READY? *******...F..1,
DS$...P..#1,A$:.A$.DS$.2180.Z.Z..M$".PLE
ASE WAIT...":.2150......1,G(255);......#
1,A$:.A$..G(255).2190.......".... DELAY.
1.1000:.:..9....1,G(136);:.2210:..]....
SIGNAL OTHER COMPUTER YOU ARE...... RE
ADY, WAIT FOR HIS SIGNAL....J..".WAITING
FOR OTHER PLAYER...".N.T..1," PUSH T
HE F1 KEY. (I HAVE!) "......1,G(7);.....
.#1,A$:.A$..G(7).2270...... X.1.10:.1,G(
7);:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL