BAUDLESHIP
FILE INFORMATION
FILENAME(S): BAUDLESHIP
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-12-01 02:21:56
APPEARS ON: 1 disk(s)
FILE HASH
d1429ff5de3f52cb69d75bda4545b7d1ec1cf9ce5d2245db8ffe9c07fa36cfdc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SNOWMAN | BAUDLESHIP | PRG | hedning, scooby | 34 | 8 | 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 4A 08 82 00 86 20 42 25 |CHANNEL.J.... B%|
00000030: 28 31 30 2C 31 30 29 3A 8F 20 53 48 49 50 20 47 |(10,10):. SHIP G|
00000040: 52 49 44 20 4D 41 54 52 49 58 00 6C 08 8C 00 97 |RID MATRIX.l....|
00000050: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 |53280,0:.53281,0|
00000060: 3A 97 35 34 32 37 32 AA 32 34 2C 38 00 90 08 96 |:.54272.24,8....|
00000070: 00 42 54 24 B2 22 13 11 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 22 |..............."|
00000090: 00 A1 08 A0 00 4D 24 B2 C8 28 42 54 24 2C 31 36 |.....M$..(BT$,16|
000000A0: 29 00 C2 08 AA 00 4D 45 24 B2 22 22 3A 81 51 B2 |).....ME$."":.Q.|
000000B0: 31 A4 33 39 3A 4D 45 24 B2 4D 45 24 AA 22 20 22 |1.39:ME$.ME$." "|
000000C0: 3A 82 00 DF 08 B4 00 42 4C 24 B2 4D 45 24 3A 4D |:......BL$.ME$:M|
000000D0: 59 24 B2 4D 45 24 3A 53 36 B2 35 34 32 37 32 00 |Y$.ME$:S6.54272.|
000000E0: 00 09 BE 00 43 52 24 B2 C7 28 31 33 29 3A 46 31 |....CR$..(13):F1|
000000F0: 24 B2 C7 28 31 33 33 29 3A 44 53 24 B2 22 24 22 |$..(133):DS$."$"|
00000100: 00 18 09 C8 00 43 24 28 30 29 B2 22 9E 22 3A 43 |.....C$(0).".":C|
00000110: 24 28 31 29 B2 22 1E 22 00 2F 09 D2 00 99 20 C7 |$(1)."."./.... .|
00000120: 28 31 34 37 29 C7 28 31 34 32 29 C7 28 38 29 00 |(147).(142).(8).|
00000130: 45 09 DC 00 53 24 28 31 29 B2 C7 28 32 38 29 AA |E...S$(1)..(28).|
00000140: C7 28 34 32 29 00 5B 09 E6 00 81 58 B2 32 A4 35 |.(42).[....X.2.5|
00000150: 3A 87 20 53 24 28 58 29 3A 82 20 00 88 09 F0 00 |:. 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 C3 09 04 01 8D 32 32 33 30 3A 8F 20 |460......2230:. |
000001B0: 42 4F 54 48 20 50 4C 41 59 45 52 53 20 52 45 41 |BOTH PLAYERS REA|
000001C0: 44 59 3F 00 D3 09 0E 01 8B 4E 24 B3 B1 22 22 A7 |DY?......N$.."".|
000001D0: 33 33 30 00 F2 09 18 01 4E 24 B2 22 43 36 34 22 |330.....N$."C64"|
000001E0: 3A 85 22 93 05 59 4F 55 52 20 4E 41 4D 45 22 3B |:."..YOUR NAME";|
000001F0: 4E 24 00 01 0A 22 01 8B 4E 24 B2 22 22 A7 32 38 |N$..."..N$."".28|
00000200: 30 00 12 0A 2C 01 99 22 11 11 57 41 49 54 2E 2E |0...,.."..WAIT..|
00000210: 2E 22 00 49 0A 36 01 8D 20 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 86 0A 54 01 99 22 93 22 3A |INATES...T..".":|
00000270: 50 B2 30 3A 8D 20 36 38 30 3A 8F 20 50 52 49 4E |P.0:. 680:. PRIN|
00000280: 54 20 47 52 49 44 00 98 0A 5E 01 81 58 B2 32 A4 |T GRID...^..X.2.|
00000290: 35 3A 8D 20 31 33 37 30 00 A4 0A 68 01 81 4A B2 |5:. 1370...h..J.|
000002A0: 31 A4 31 30 00 B1 0A 72 01 3A 81 4B B2 31 A4 31 |1.10...r.:.K.1.1|
000002B0: 30 00 CB 0A 7C 01 3A 8B 42 25 28 4A 2C 4B 29 B2 |0...|.:.B%(J,K).|
000002C0: 58 A7 42 25 28 4A 2C 4B 29 B2 30 00 D4 0A 86 01 |X.B%(J,K).0.....|
000002D0: 82 4B 2C 4A 00 F3 0A 90 01 8D 38 39 30 3A 8F 20 |.K,J......890:. |
000002E0: 45 52 41 53 45 20 44 49 52 45 43 54 49 4F 4E 20 |ERASE DIRECTION |
000002F0: 41 49 44 00 0E 0B 9A 01 99 4D 24 22 05 45 4E 54 |AID......M$".ENT|
00000300: 45 52 20 22 53 24 28 58 29 22 20 20 20 22 00 2B |ER "S$(X)" ".+|
00000310: 0B A4 01 8D 20 31 31 34 30 3A 8F 20 47 45 54 20 |.... 1140:. GET |
00000320: 43 4F 4F 52 44 49 4E 41 54 45 53 00 5D 0B AE 01 |COORDINATES.]...|
00000330: 8B 42 25 28 56 2C 48 29 B3 B1 30 A7 20 8D 20 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 7D 0B |THERE ALREADY.}.|
00000360: B8 01 8D 20 38 34 30 3A 8F 20 50 52 49 4E 54 20 |... 840:. PRINT |
00000370: 44 49 52 45 43 54 49 4F 4E 20 41 49 44 00 95 0B |DIRECTION AID...|
00000380: C2 01 97 31 39 38 2C 30 3A 92 20 31 39 38 2C 31 |...198,0:. 198,1|
00000390: 3A A1 20 44 24 00 A5 0B CC 01 43 4B B2 30 3A 81 |:. D$.....CK.0:.|
000003A0: 59 B2 31 A4 38 00 C3 0B D6 01 8B CA 28 22 54 59 |Y.1.8.......("TY|
000003B0: 55 47 4A 42 4E 4D 22 2C 59 2C 31 29 B2 44 24 A7 |UGJBNM",Y,1).D$.|
000003C0: 34 39 30 00 D5 0B E0 01 82 59 3A 8D 31 30 36 30 |490......Y:.1060|
000003D0: 3A 89 34 35 30 00 FF 0B EA 01 91 20 59 20 89 20 |:.450...... Y . |
000003E0: 35 30 30 2C 35 31 30 2C 35 32 30 2C 35 33 30 2C |500,510,520,530,|
000003F0: 35 34 30 2C 35 35 30 2C 35 36 30 2C 35 37 30 00 |540,550,560,570.|
00000400: 14 0C F4 01 58 44 B2 AB 31 3A 59 44 B2 AB 31 3A |....XD..1:YD..1:|
00000410: 89 35 38 30 00 28 0C FE 01 58 44 B2 30 3A 59 44 |.580.(...XD.0:YD|
00000420: B2 AB 31 3A 89 35 38 30 00 3C 0C 08 02 58 44 B2 |..1:.580.<...XD.|
00000430: 31 3A 59 44 B2 AB 31 3A 89 35 38 30 00 50 0C 12 |1:YD..1:.580.P..|
00000440: 02 58 44 B2 AB 31 3A 59 44 B2 30 3A 89 35 38 30 |.XD..1:YD.0:.580|
00000450: 00 63 0C 1C 02 58 44 B2 31 3A 59 44 B2 30 3A 89 |.c...XD.1:YD.0:.|
00000460: 35 38 30 00 77 0C 26 02 58 44 B2 AB 31 3A 59 44 |580.w.&.XD..1:YD|
00000470: B2 31 3A 89 35 38 30 00 8A 0C 30 02 58 44 B2 30 |.1:.580...0.XD.0|
00000480: 3A 59 44 B2 31 3A 89 35 38 30 00 9D 0C 3A 02 58 |:YD.1:.580...:.X|
00000490: 44 B2 31 3A 59 44 B2 31 3A 89 35 38 30 00 AF 0C |D.1:YD.1:.580...|
000004A0: 44 02 4C B2 31 3A 42 25 28 56 2C 48 29 B2 58 00 |D.L.1:B%(V,H).X.|
000004B0: C9 0C 4E 02 58 31 B2 48 AA 58 44 3A 59 31 B2 56 |..N.X1.H.XD:Y1.V|
000004C0: AA 59 44 3A 4C B2 4C AA 31 00 E5 0C 58 02 8B 58 |.YD:L.L.1...X..X|
000004D0: 31 B1 31 30 B0 59 31 B1 31 30 A7 8D 31 30 36 30 |1.10.Y1.10..1060|
000004E0: 3A 89 33 36 30 00 FF 0C 62 02 8B 58 31 B3 31 B0 |:.360...b..X1.1.|
000004F0: 59 31 B3 31 A7 8D 31 30 36 30 3A 89 33 36 30 00 |Y1.1..1060:.360.|
00000500: 1D 0D 6C 02 8B 42 25 28 59 31 2C 58 31 29 B3 B1 |..l..B%(Y1,X1)..|
00000510: 30 A7 8D 20 31 30 36 30 3A 89 33 36 30 00 2D 0D |0.. 1060:.360.-.|
00000520: 76 02 42 25 28 59 31 2C 58 31 29 B2 58 00 45 0D |v.B%(Y1,X1).X.E.|
00000530: 80 02 8B 4C B3 58 A7 48 B2 58 31 3A 56 B2 59 31 |...L.X.H.X1:V.Y1|
00000540: 3A 89 35 39 30 00 52 0D 8A 02 47 B2 30 3A 8D 39 |:.590.R...G.0:.9|
00000550: 34 30 00 5E 0D 94 02 82 58 3A 8D 38 39 30 00 80 |40.^....X:.890..|
00000560: 0D 9E 02 89 31 34 30 30 3A 8F 20 53 4B 49 50 20 |....1400:. SKIP |
00000570: 54 4F 20 50 4C 41 59 20 52 4F 55 54 49 4E 45 53 |TO PLAY ROUTINES|
00000580: 00 9E 0D A8 02 8F 20 47 52 49 44 20 44 52 41 57 |...... GRID DRAW|
00000590: 49 4E 47 20 53 55 42 52 4F 55 54 49 4E 45 00 B5 |ING SUBROUTINE..|
000005A0: 0D B2 02 99 20 A3 50 AC 31 38 29 C7 28 31 39 29 |.... .P.18).(19)|
000005B0: 43 24 28 50 29 00 D0 0D BC 02 99 20 A3 50 AC 31 |C$(P)...... .P.1|
000005C0: 38 29 22 20 20 AF AF AF AF AF AF AF AF AF AF 22 |8)" .........."|
000005D0: 00 EA 0D C6 02 99 A3 50 AC 31 38 29 22 30 AA 2A |.......P.18)"0.*|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 04 0E D0 02 99 |*********"......|
000005F0: A3 50 AC 31 38 29 22 31 AA 2A 2A 2A 2A 2A 2A 2A |.P.18)"1.*******|
00000600: 2A 2A 2A 22 00 1E 0E DA 02 99 A3 50 AC 31 38 29 |***".......P.18)|
00000610: 22 32 AA 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 38 |"2.**********".8|
00000620: 0E E4 02 99 A3 50 AC 31 38 29 22 33 AA 2A 2A 2A |.....P.18)"3.***|
00000630: 2A 2A 2A 2A 2A 2A 2A 22 00 52 0E EE 02 99 A3 50 |*******".R.....P|
00000640: AC 31 38 29 22 34 AA 2A 2A 2A 2A 2A 2A 2A 2A 2A |.18)"4.*********|
00000650: 2A 22 00 6C 0E F8 02 99 A3 50 AC 31 38 29 22 35 |*".l.....P.18)"5|
00000660: AA 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 86 0E 02 |.**********"....|
00000670: 03 99 A3 50 AC 31 38 29 22 36 AA 2A 2A 2A 2A 2A |...P.18)"6.*****|
00000680: 2A 2A 2A 2A 2A 22 00 A0 0E 0C 03 99 A3 50 AC 31 |*****".......P.1|
00000690: 38 29 22 37 AA 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 |8)"7.**********"|
000006A0: 00 BA 0E 16 03 99 A3 50 AC 31 38 29 22 38 AA 2A |.......P.18)"8.*|
000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 D4 0E 20 03 99 |*********"... ..|
000006C0: A3 50 AC 31 38 29 22 39 AA 2A 2A 2A 2A 2A 2A 2A |.P.18)"9.*******|
000006D0: 2A 2A 2A 22 00 EE 0E 2A 03 99 A3 50 AC 31 38 29 |***"...*...P.18)|
000006E0: 22 20 20 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 08 |" .........."..|
000006F0: 0F 34 03 99 A3 50 AC 31 38 29 22 20 20 41 42 43 |.4...P.18)" ABC|
00000700: 44 45 46 47 48 49 4A 22 00 0E 0F 3E 03 8E 00 2B |DEFGHIJ"...>...+|
00000710: 0F 48 03 99 22 13 20 20 20 20 20 20 20 20 20 20 |.H..". |
00000720: 44 49 52 45 43 54 49 4F 4E 3F 22 00 3C 0F 52 03 |DIRECTION?".<.R.|
00000730: 99 A3 31 33 29 22 11 12 54 59 55 22 00 4C 0F 5C |..13)"..TYU".L.\|
00000740: 03 99 A3 31 33 29 22 12 47 20 4A 22 00 5C 0F 66 |...13)".G J".\.f|
00000750: 03 99 A3 31 33 29 22 12 42 4E 4D 22 00 62 0F 70 |...13)".BNM".b.p|
00000760: 03 8E 00 7F 0F 7A 03 99 22 13 20 20 20 20 20 20 |.....z..". |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00000780: 8F 0F 84 03 99 A3 31 33 29 22 11 20 20 20 22 00 |......13)". ".|
00000790: 9E 0F 8E 03 99 A3 31 33 29 22 20 20 20 22 00 AD |......13)" "..|
000007A0: 0F 98 03 99 A3 31 33 29 22 20 20 20 22 00 B3 0F |.....13)" "...|
000007B0: A2 03 8E 00 D7 0F AC 03 8F 20 44 52 41 57 20 53 |......... DRAW S|
000007C0: 48 49 50 53 20 4F 4E 20 47 52 49 44 20 53 55 42 |HIPS ON GRID SUB|
000007D0: 52 4F 55 54 49 4E 45 00 EA 0F B6 03 8D 20 31 33 |ROUTINE...... 13|
000007E0: 37 30 3A 99 22 13 11 11 22 3B 00 F6 0F C0 03 81 |70:."...";......|
000007F0: 4A B2 31 A4 31 30 00 06 10 CA 03 99 22 1D 1D 22 |J.1.10......".."|
00000800: A3 47 AC 31 38 29 00 12 10 D4 03 81 4B B2 31 A4 |.G.18)......K.1.|
00000810: 31 30 00 31 10 DE 03 53 B2 42 25 28 4A 2C 4B 29 |10.1...S.B%(J,K)|
00000820: 3A 8B 53 B2 30 A7 99 22 1D 22 3B 3A 89 31 30 32 |:.S.0..".";:.102|
00000830: 30 00 4B 10 E8 03 8B 53 B2 31 A7 20 99 22 1C 12 |0.K....S.1. ."..|
00000840: 20 92 22 3B 3A 89 20 31 30 32 30 00 6B 10 F2 03 | .";:. 1020.k...|
00000850: 99 C7 28 31 38 29 C7 28 35 29 C8 28 53 24 28 53 |..(18).(5).(S$(S|
00000860: 29 2C 31 29 C7 28 31 34 36 29 3B 00 79 10 FC 03 |),1).(146);.y...|
00000870: 82 4B 3A 99 3A 82 4A 3A 8E 00 90 10 06 04 8F 20 |.K:.:.J:....... |
00000880: 42 45 45 50 53 20 53 55 42 52 4F 55 54 49 4E 45 |BEEPS SUBROUTINE|
00000890: 00 BF 10 10 04 8D 31 31 32 30 3A 97 53 36 AA 31 |......1120:.S6.1|
000008A0: 2C 31 33 30 3A 97 53 36 AA 35 2C 39 3A 97 53 36 |,130:.S6.5,9:.S6|
000008B0: AA 31 35 2C 33 30 3A 97 53 36 AA 32 34 2C 35 00 |.15,30:.S6.24,5.|
000008C0: EB 10 1A 04 97 53 36 AA 34 2C 32 31 3A 81 44 45 |.....S6.4,21:.DE|
000008D0: B2 31 A4 32 35 3A 82 3A 97 53 36 AA 34 2C 32 30 |.1.25:.:.S6.4,20|
000008E0: 3A 97 53 36 AA 32 34 2C 30 3A 8E 00 02 11 24 04 |:.S6.24,0:....$.|
000008F0: 8F 20 42 41 50 50 53 20 53 55 42 52 4F 55 54 49 |. BAPPS SUBROUTI|
00000900: 4E 45 00 19 11 2E 04 99 4D 24 22 11 11 11 12 42 |NE......M$"....B|
00000910: 41 44 20 45 4E 54 52 59 22 00 3A 11 38 04 97 53 |AD ENTRY".:.8..S|
00000920: 36 AA 32 34 2C 31 32 3A 97 53 36 AA 36 2C 32 34 |6.24,12:.S6.6,24|
00000930: 30 3A 97 53 36 AA 34 2C 31 37 00 51 11 42 04 81 |0:.S6.4,17.Q.B..|
00000940: 41 B2 31 A4 32 3A 81 42 B2 31 A4 32 35 35 A9 32 |A.1.2:.B.1.255.2|
00000950: 35 00 6B 11 4C 04 97 53 36 AA 31 2C 42 3A 82 42 |5.k.L..S6.1,B:.B|
00000960: 2C 41 3A 97 53 36 AA 34 2C 33 32 00 78 11 56 04 |,A:.S6.4,32.x.V.|
00000970: 97 53 36 AA 34 2C 33 32 00 8E 11 60 04 81 51 B2 |.S6.4,32...`..Q.|
00000980: 30 A4 32 34 3A 97 53 36 AA 51 2C 30 3A 82 00 A7 |0.24:.S6.Q,0:...|
00000990: 11 6A 04 99 4D 24 22 11 11 11 20 20 20 20 20 20 |.j..M$"... |
000009A0: 20 20 20 20 22 3A 8E 00 C9 11 74 04 8F 20 43 4F | ":....t.. CO|
000009B0: 4F 52 44 49 4E 41 54 45 20 49 4E 50 55 54 20 53 |ORDINATE INPUT S|
000009C0: 55 42 52 4F 55 54 49 4E 45 00 EE 11 7E 04 99 20 |UBROUTINE...~.. |
000009D0: C8 28 42 54 24 2C 31 37 29 22 05 43 4F 4F 52 44 |.(BT$,17)".COORD|
000009E0: 49 4E 41 54 45 53 3F 20 28 56 2C 48 29 22 00 00 |INATES? (V,H)"..|
000009F0: 12 88 04 99 22 20 20 20 20 22 3A 99 22 91 22 3B |...." ":.".";|
00000A00: 00 16 12 92 04 97 31 39 38 2C 30 3A 92 31 39 38 |......198,0:.198|
00000A10: 2C 31 3A A1 56 24 00 39 12 9C 04 8B C6 28 56 24 |,1:.V$.9.....(V$|
00000A20: 29 B3 34 38 B0 C6 28 56 24 29 B1 35 37 A7 8D 31 |).48..(V$).57..1|
00000A30: 30 36 30 3A 89 31 31 37 30 00 4B 12 A6 04 99 4D |060:.1170.K....M|
00000A40: 24 22 11 11 22 56 24 22 2D 22 3B 00 61 12 B0 04 |$".."V$"-";.a...|
00000A50: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A A1 48 |.198,0:.198,1:.H|
00000A60: 24 00 84 12 BA 04 8B C6 28 48 24 29 B3 36 35 B0 |$.......(H$).65.|
00000A70: C6 28 48 24 29 B1 37 34 A7 8D 31 30 36 30 3A 89 |.(H$).74..1060:.|
00000A80: 31 32 30 30 00 94 12 C4 04 99 4D 24 22 11 11 1D |1200......M$"...|
00000A90: 1D 22 48 24 00 AE 12 CE 04 48 B2 C6 28 48 24 29 |."H$.....H..(H$)|
00000AA0: AB 36 34 3A 56 B2 C6 28 56 24 29 AB 34 37 00 B4 |.64:V..(V$).47..|
00000AB0: 12 D8 04 8E 00 CF 12 E2 04 8F 20 48 49 54 20 4E |.......... HIT N|
00000AC0: 4F 49 53 45 20 53 55 42 52 4F 55 54 49 4E 45 00 |OISE SUBROUTINE.|
00000AD0: EE 12 EC 04 81 51 B2 30 A4 32 34 3A 97 53 36 AA |.....Q.0.24:.S6.|
00000AE0: 51 2C 30 3A 82 3A 97 53 36 AA 32 34 2C 38 00 06 |Q,0:.:.S6.24,8..|
00000AF0: 13 F6 04 97 53 36 AA 35 2C 31 39 32 3A 97 53 36 |....S6.5,192:.S6|
00000B00: AA 36 2C 32 35 30 00 17 13 00 05 81 51 B2 31 32 |.6,250......Q.12|
00000B10: 30 A4 38 30 A9 AB 31 00 3A 13 0A 05 97 53 36 AA |0.80..1.:....S6.|
00000B20: 31 2C 51 3A 97 53 36 AA 34 2C 31 37 3A 81 44 45 |1,Q:.S6.4,17:.DE|
00000B30: B2 31 A4 38 3A 82 44 45 2C 51 00 50 13 14 05 97 |.1.8:.DE,Q.P....|
00000B40: 35 33 32 38 30 2C 32 3A 97 35 33 32 38 31 2C 32 |53280,2:.53281,2|
00000B50: 00 71 13 1E 05 97 53 36 AA 32 34 2C 31 35 3A 97 |.q....S6.24,15:.|
00000B60: 53 36 AA 31 2C 31 35 3A 97 53 36 AA 34 2C 31 32 |S6.1,15:.S6.4,12|
00000B70: 38 00 9A 13 28 05 81 56 4F B2 31 35 A4 30 A9 AB |8...(..VO.15.0..|
00000B80: 31 3A 81 44 45 B2 31 A4 31 30 3A 82 44 45 3A 97 |1:.DE.1.10:.DE:.|
00000B90: 53 36 AA 32 34 2C 56 4F 3A 82 00 B2 13 32 05 97 |S6.24,VO:....2..|
00000BA0: 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 |53280,0:.53281,0|
00000BB0: 3A 8E 00 D0 13 3C 05 97 53 36 AA 32 34 2C 39 3A |:....<..S6.24,9:|
00000BC0: 97 53 36 AA 35 2C 39 3A 97 53 36 AA 31 2C 32 30 |.S6.5,9:.S6.1,20|
00000BD0: 00 F8 13 46 05 97 53 36 AA 34 2C 31 32 38 3A 81 |...F..S6.4,128:.|
00000BE0: 44 B2 31 A4 31 30 3A 82 3A 97 53 36 AA 34 2C 31 |D.1.10:.:.S6.4,1|
00000BF0: 32 39 3A 89 31 33 31 30 00 1E 14 50 05 8F 20 43 |29:.1310...P.. C|
00000C00: 4C 45 41 52 20 4D 45 53 53 41 47 45 20 53 43 52 |LEAR MESSAGE SCR|
00000C10: 45 45 4E 20 53 55 42 52 4F 55 54 49 4E 45 00 39 |EEN SUBROUTINE.9|
00000C20: 14 5A 05 99 4D 24 42 4C 24 3A 81 51 B2 31 A4 33 |.Z..M$BL$:.Q.1.3|
00000C30: 3A 99 42 4C 24 3A 82 3A 8E 00 3F 14 64 05 8F 00 |:.BL$:.:..?.d...|
00000C40: 54 14 6E 05 8F 20 52 45 41 44 59 20 46 4F 52 20 |T.n.. READY FOR |
00000C50: 47 41 4D 45 00 73 14 78 05 8D 31 33 37 30 3A 8F |GAME.s.x..1370:.|
00000C60: 20 43 4C 45 41 52 20 4D 45 53 53 41 47 45 20 41 | CLEAR MESSAGE A|
00000C70: 52 45 41 00 7B 14 82 05 50 B2 30 00 90 14 8C 05 |REA.{...P.0.....|
00000C80: 8D 36 38 30 3A 8F 20 44 52 41 57 20 47 52 49 44 |.680:. DRAW GRID|
00000C90: 00 9D 14 96 05 50 B2 31 3A 8D 36 38 30 00 B7 14 |.....P.1:.680...|
00000CA0: A0 05 99 22 13 9E 20 20 22 4E 24 A3 31 38 29 22 |...".. "N$.18)"|
00000CB0: 1E 20 20 22 4E 31 24 00 CF 14 AA 05 8D 39 34 30 |. "N1$......940|
00000CC0: 3A 8F 20 44 52 41 57 20 4F 4E 20 47 52 49 44 00 |:. DRAW ON GRID.|
00000CD0: E4 14 B4 05 47 56 B2 30 3A 99 C8 28 42 54 24 2C |....GV.0:..(BT$,|
00000CE0: 32 31 29 3B 00 1B 15 BE 05 99 22 1C 2A 2A 2A 2A |21);......".****|
00000CF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D10: 2A 2A 2A 2A 22 3B C7 28 31 39 29 00 41 15 C8 05 |****";.(19).A...|
00000D20: 8B 42 50 B2 30 A7 8D 32 31 34 30 3A 8F 20 4F 54 |.BP.0..2140:. OT|
00000D30: 48 45 52 20 50 4C 41 59 45 52 20 52 45 41 44 59 |HER PLAYER READY|
00000D40: 3F 00 59 15 D2 05 8F 20 4D 41 49 4E 20 50 4C 41 |?.Y.... MAIN PLA|
00000D50: 59 49 4E 47 20 4C 4F 4F 50 00 7F 15 DC 05 8F 20 |YING LOOP...... |
00000D60: 2A 2A 2A 2A 2A 20 49 4E 50 55 54 20 46 52 4F 4D |***** INPUT FROM|
00000D70: 20 4F 54 48 45 52 20 43 4F 4D 50 55 54 45 52 00 | OTHER COMPUTER.|
00000D80: 9C 15 E6 05 A1 23 31 2C 41 24 3A 8B 41 24 B2 22 |.....#1,A$:.A$."|
00000D90: 22 B0 53 54 B3 B1 30 A7 31 36 30 30 00 BD 15 F0 |".ST..0.1600....|
00000DA0: 05 8B 41 24 B2 46 31 24 A7 31 37 39 30 3A 8F 20 |..A$.F1$.1790:. |
00000DB0: 43 4F 4F 52 44 53 20 43 4F 4D 49 4E 47 00 E9 15 |COORDS COMING...|
00000DC0: FA 05 8B 41 24 B2 C7 28 31 33 34 29 A7 31 38 37 |...A$..(134).187|
00000DD0: 30 3A 8F 20 52 45 50 4F 52 54 20 4F 46 20 48 49 |0:. REPORT OF HI|
00000DE0: 54 20 26 20 56 41 4C 55 45 00 0E 16 04 06 8B 41 |T & VALUE......A|
00000DF0: 24 B2 C7 28 31 33 35 29 A7 31 39 31 30 3A 8F 20 |$..(135).1910:. |
00000E00: 52 45 50 4F 52 54 20 4F 46 20 4D 49 53 53 00 26 |REPORT OF MISS.&|
00000E10: 16 0E 06 8B 41 24 B3 22 20 22 B0 41 24 B1 22 5A |....A$." ".A$."Z|
00000E20: 22 A7 31 36 30 30 00 39 16 18 06 8B 41 24 B2 C7 |".1600.9....A$..|
00000E30: 28 31 33 36 29 A7 32 35 30 00 4E 16 22 06 4D 45 |(136).250.N.".ME|
00000E40: 24 B2 C9 28 4D 45 24 AA 41 24 2C 33 39 29 00 6A |$..(ME$.A$,39).j|
00000E50: 16 2C 06 99 22 9F 22 C8 28 42 54 24 2C 32 30 29 |.,..".".(BT$,20)|
00000E60: 4D 45 24 3A 97 32 31 32 2C 30 00 86 16 36 06 8F |ME$:.212,0...6..|
00000E70: 20 2A 2A 2A 2A 2A 20 46 52 4F 4D 20 59 4F 55 20 | ***** FROM YOU |
00000E80: 54 4F 20 48 49 4D 00 B6 16 40 06 8B 4D 46 B2 31 |TO HIM...@..MF.1|
00000E90: AF 20 47 56 B2 30 AF 42 50 B2 30 A7 8D 31 33 37 |. GV.0.BP.0..137|
00000EA0: 30 3A 99 4D 24 22 05 59 4F 55 52 20 54 55 52 4E |0:.M$".YOUR TURN|
00000EB0: 20 28 46 31 29 22 00 D0 16 4A 06 8B 4D 46 B2 30 | (F1)"...J..MF.0|
00000EC0: AF 47 56 B2 30 AF 42 50 B2 30 A7 8D 31 33 37 30 |.GV.0.BP.0..1370|
00000ED0: 00 F0 16 54 06 8B 42 50 A7 99 4D 24 22 11 05 50 |...T..BP..M$"..P|
00000EE0: 52 45 53 53 20 46 31 20 54 4F 20 50 4C 41 59 22 |RESS F1 TO PLAY"|
00000EF0: 00 03 17 5E 06 A1 41 24 3A 8B 47 56 B2 31 A7 31 |...^..A$:.GV.1.1|
00000F00: 36 36 30 00 30 17 68 06 8B 41 24 B2 46 31 24 AF |660.0.h..A$.F1$.|
00000F10: 4D 46 B2 31 AF 42 50 B2 30 A7 31 37 36 30 3A 8F |MF.1.BP.0.1760:.|
00000F20: 20 47 45 54 20 43 4F 4F 52 44 49 4E 41 54 45 53 | GET COORDINATES|
00000F30: 00 63 17 72 06 8B 41 24 B2 46 31 24 AF 42 50 B2 |.c.r..A$.F1$.BP.|
00000F40: 31 A7 42 50 B2 30 3A 89 32 36 30 3A 8F 20 45 4E |1.BP.0:.260:. EN|
00000F50: 44 20 49 4E 49 54 49 41 4C 20 43 48 41 54 20 4D |D INITIAL CHAT M|
00000F60: 4F 44 45 00 91 17 7C 06 8B 48 53 B2 30 A7 47 56 |ODE...|..HS.0.GV|
00000F70: B2 31 3A 8D 31 33 37 30 3A 99 4D 24 4E 24 22 20 |.1:.1370:.M$N$" |
00000F80: 57 49 4E 53 21 22 3A 8D 32 32 32 30 3A 89 32 35 |WINS!":.2220:.25|
00000F90: 30 00 C1 17 86 06 8B 54 53 B2 30 20 A7 47 56 B2 |0......TS.0 .GV.|
00000FA0: 31 3A 8D 31 33 37 30 3A 99 4D 24 4E 31 24 22 20 |1:.1370:.M$N1$" |
00000FB0: 57 49 4E 53 21 22 3A 8D 32 32 32 30 3A 89 32 35 |WINS!":.2220:.25|
00000FC0: 30 00 E6 17 90 06 8B 41 24 B1 B2 22 C1 22 AF 41 |0......A$..".".A|
00000FD0: 24 B3 B2 22 DA 22 A7 41 24 B2 C7 28 C6 28 41 24 |$..".".A$..(.(A$|
00000FE0: 29 AB 31 32 38 29 00 FC 17 9A 06 8B 41 24 B2 C7 |).128)......A$..|
00000FF0: 28 31 36 30 29 A7 41 24 B2 22 20 22 00 14 18 A4 |(160).A$." "....|
00001000: 06 8B 41 24 B3 22 20 22 B0 41 24 B1 22 5A 22 A7 |..A$." ".A$."Z".|
00001010: 31 35 31 30 00 31 18 AE 06 41 31 24 B2 41 24 3A |1510.1...A1$.A$:|
00001020: 8B 41 24 B2 C7 28 33 34 29 A7 41 31 24 B2 22 27 |.A$..(34).A1$."'|
00001030: 22 00 47 18 B8 06 4D 59 24 B2 C9 28 4D 59 24 AA |".G...MY$..(MY$.|
00001040: 41 31 24 2C 33 39 29 00 61 18 C2 06 99 22 9E 22 |A1$,39).a...."."|
00001050: C8 28 42 54 24 2C 32 32 29 4D 59 24 C7 28 31 39 |.(BT$,22)MY$.(19|
00001060: 29 00 72 18 CC 06 98 31 2C 41 24 3B 3A 89 31 35 |).r....1,A$;:.15|
00001070: 31 30 00 88 18 D6 06 8F 20 47 45 54 20 43 4F 4F |10...... GET COO|
00001080: 52 44 49 4E 41 54 45 53 00 9F 18 E0 06 8D 20 31 |RDINATES...... 1|
00001090: 33 37 30 3A 8D 31 31 34 30 3A 8D 31 33 37 30 00 |370:.1140:.1370.|
000010A0: B3 18 EA 06 98 31 2C 46 31 24 C7 28 48 29 C7 28 |.....1,F1$.(H).(|
000010B0: 56 29 3B 00 C2 18 F4 06 4D 46 B2 30 3A 89 31 34 |V);.....MF.0:.14|
000010C0: 39 30 00 E8 18 FE 06 8F 20 47 45 54 20 4F 54 48 |90...... GET OTH|
000010D0: 45 52 20 43 4F 4D 50 55 54 45 52 53 20 43 4F 4F |ER COMPUTERS COO|
000010E0: 52 44 49 4E 41 54 45 53 00 FF 18 08 07 A1 23 31 |RDINATES......#1|
000010F0: 2C 48 24 3A 8B 48 24 B2 22 22 A7 31 38 30 30 00 |,H$:.H$."".1800.|
00001100: 16 19 12 07 A1 23 31 2C 56 24 3A 8B 56 24 B2 22 |.....#1,V$:.V$."|
00001110: 22 A7 31 38 31 30 00 39 19 1C 07 48 B2 C6 28 48 |".1810.9...H..(H|
00001120: 24 29 3A 56 B2 C6 28 56 24 29 3A 4D 46 B2 31 3A |$):V..(V$):MF.1:|
00001130: 42 B2 42 25 28 56 2C 48 29 00 64 19 26 07 8B 42 |B.B%(V,H).d.&..B|
00001140: B2 30 B0 42 B2 31 A7 98 31 2C C7 28 31 33 35 29 |.0.B.1..1,.(135)|
00001150: 3B 3A 99 4D 24 22 05 22 4E 31 24 22 20 4D 49 53 |;:.M$"."N1$" MIS|
00001160: 53 45 44 22 00 7D 19 2B 07 8B 42 B2 30 B0 42 B2 |SED".}.+..B.0.B.|
00001170: 31 A7 8D 32 32 31 30 3A 89 31 36 30 30 00 90 19 |1..2210:.1600...|
00001180: 30 07 98 31 2C C7 28 31 33 34 29 C7 28 42 29 3B |0..1,.(134).(B);|
00001190: 00 C0 19 3A 07 8D 31 32 35 30 3A 99 4D 24 22 05 |...:..1250:.M$".|
000011A0: 22 4E 31 24 22 20 47 45 54 53 20 41 20 48 49 54 |"N1$" GETS A HIT|
000011B0: 21 22 3A 54 53 B2 54 53 AB 31 3A 8D 32 32 31 30 |!":TS.TS.1:.2210|
000011C0: 00 D9 19 44 07 42 25 28 56 2C 48 29 B2 31 3A 8D |...D.B%(V,H).1:.|
000011D0: 39 34 30 3A 89 31 36 30 30 00 F0 19 4E 07 A1 23 |940:.1600...N..#|
000011E0: 31 2C 42 24 3A 8B 42 24 B2 22 22 A7 31 38 37 30 |1,B$:.B$."".1870|
000011F0: 00 04 1A 58 07 42 B2 C6 28 42 24 29 3A 48 53 B2 |...X.B..(B$):HS.|
00001200: 48 53 AB 31 00 24 1A 62 07 42 24 B2 22 12 22 AA |HS.1.$.b.B$.".".|
00001210: C8 28 53 24 28 42 29 2C 31 29 AA 22 92 22 3A 8D |.(S$(B),1).".":.|
00001220: 31 33 34 30 00 2E 1A 6C 07 89 31 39 32 30 00 39 |1340...l..1920.9|
00001230: 1A 76 07 42 24 B2 22 2A 22 00 4D 1A 80 07 99 22 |.v.B$."*".M...."|
00001240: 13 22 3A 81 51 B2 31 A4 56 3A 99 3A 82 00 60 1A |.":.Q.1.V:.:..`.|
00001250: 8A 07 99 A3 31 AA 31 38 AA 48 29 22 9E 22 42 24 |....1.18.H)"."B$|
00001260: 00 6A 1A 94 07 89 31 36 30 30 00 8C 1A 9E 07 8F |.j....1600......|
00001270: 20 53 45 4E 44 20 4E 41 4D 45 20 54 4F 20 4F 54 | SEND NAME TO OT|
00001280: 48 45 52 20 43 4F 4D 50 55 54 45 52 00 B4 1A A8 |HER COMPUTER....|
00001290: 07 8F 20 46 4F 52 51 3D 31 54 4F 31 30 30 3A 50 |.. FORQ=1TO100:P|
000012A0: 52 49 4E 54 23 31 2C 43 48 52 24 28 30 29 3B 3A |RINT#1,CHR$(0);:|
000012B0: 4E 45 58 54 00 C0 1A B2 07 98 31 2C 46 31 24 3B |NEXT......1,F1$;|
000012C0: 00 D9 1A BC 07 A1 23 31 2C 41 24 3A 8B 41 24 B3 |......#1,A$:.A$.|
000012D0: B1 46 31 24 A7 31 39 37 30 00 00 1B C6 07 81 51 |.F1$.1970......Q|
000012E0: B2 31 A4 C3 28 4E 24 29 3A 98 31 2C CA 28 4E 24 |.1..(N$):.1,.(N$|
000012F0: 2C 51 2C 31 29 3B 3A 82 3A 98 31 2C 43 52 24 3B |,Q,1);:.:.1,CR$;|
00001300: 00 0B 1B D0 07 4E 31 24 B2 22 22 00 33 1B DA 07 |.....N1$."".3...|
00001310: A1 23 31 2C 41 24 3A 8B 41 24 B1 B2 22 20 22 AF |.#1,A$:.A$.." ".|
00001320: 41 24 B3 B2 22 5A 22 A7 20 4E 31 24 B2 4E 31 24 |A$.."Z". N1$.N1$|
00001330: AA 41 24 00 47 1B E4 07 8B 41 24 B3 B1 C7 28 31 |.A$.G....A$...(1|
00001340: 33 29 A7 32 30 31 30 00 5D 1B EE 07 8F 20 57 48 |3).2010.].... WH|
00001350: 4F 20 47 4F 45 53 20 46 49 52 53 54 3F 00 75 1B |O GOES FIRST?.u.|
00001360: F8 07 81 58 B2 31 A4 31 30 30 3A 98 31 2C C7 28 |...X.1.100:.1,.(|
00001370: 30 29 3B 3A 82 00 90 1B 02 08 57 46 24 B2 C7 28 |0);:......WF$..(|
00001380: B5 28 BB 28 30 29 AC 31 30 30 29 AA 31 35 30 29 |.(.(0).100).150)|
00001390: 00 9C 1B 0C 08 98 31 2C 57 46 24 3B 00 B3 1B 16 |......1,WF$;....|
000013A0: 08 A1 23 31 2C 41 24 3A 8B 41 24 B2 22 22 A7 32 |..#1,A$:.A$."".2|
000013B0: 30 36 30 00 D1 1B 20 08 8B C6 28 41 24 29 B3 31 |060... ...(A$).1|
000013C0: 35 30 B0 C6 28 41 24 29 B1 32 34 39 A7 32 30 37 |50..(A$).249.207|
000013D0: 30 00 E2 1B 2A 08 8B 57 46 24 B2 41 24 A7 32 30 |0...*..WF$.A$.20|
000013E0: 34 30 00 11 1C 34 08 4D 46 B2 30 3A 4D 46 24 B2 |40...4.MF.0:MF$.|
000013F0: 22 53 45 43 4F 4E 44 22 3A 8B 57 46 24 B1 41 24 |"SECOND":.WF$.A$|
00001400: A7 4D 46 B2 31 3A 4D 46 24 B2 22 46 49 52 53 54 |.MF.1:MF$."FIRST|
00001410: 22 00 2B 1C 3E 08 8D 31 33 37 30 3A 99 4D 24 22 |".+.>..1370:.M$"|
00001420: 05 57 45 20 47 4F 20 22 4D 46 24 00 43 1C 48 08 |.WE GO "MF$.C.H.|
00001430: 81 58 B2 31 A4 31 30 30 3A 98 31 2C C7 28 30 29 |.X.1.100:.1,.(0)|
00001440: 3B 3A 82 00 49 1C 52 08 8E 00 6A 1C 5C 08 8F 20 |;:..I.R...j.\.. |
00001450: 4F 54 48 45 52 20 50 4C 41 59 45 52 20 52 45 41 |OTHER PLAYER REA|
00001460: 44 59 3F 2A 2A 2A 2A 2A 2A 2A 00 75 1C 66 08 98 |DY?*******.u.f..|
00001470: 31 2C 44 53 24 00 8D 1C 70 08 A1 23 31 2C 41 24 |1,DS$...p..#1,A$|
00001480: 3A 8B 41 24 B2 44 53 24 A7 32 31 38 30 00 AC 1C |:.A$.DS$.2180...|
00001490: 7A 08 99 4D 24 22 05 50 4C 45 41 53 45 20 57 41 |z..M$".PLEASE WA|
000014A0: 49 54 2E 2E 2E 22 3A 89 32 31 35 30 00 BB 1C 84 |IT...":.2150....|
000014B0: 08 98 31 2C C7 28 32 35 35 29 3B 00 D7 1C 8E 08 |..1,.(255);.....|
000014C0: A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 C7 28 32 35 |.#1,A$:.A$...(25|
000014D0: 35 29 A7 32 31 39 30 00 DD 1C 98 08 8E 00 F3 1C |5).2190.........|
000014E0: A2 08 81 44 45 4C 41 59 B2 31 A4 31 30 30 30 3A |...DELAY.1.1000:|
000014F0: 82 3A 8E 00 0A 1D AC 08 98 31 2C C7 28 31 33 36 |.:.......1,.(136|
00001500: 29 3B 3A 8D 32 32 31 30 3A 8E 00 2E 1D B6 08 8F |);:.2210:.......|
00001510: 20 53 49 47 4E 41 4C 20 4F 54 48 45 52 20 43 4F | SIGNAL OTHER CO|
00001520: 4D 50 55 54 45 52 20 59 4F 55 20 41 52 45 00 53 |MPUTER YOU ARE.S|
00001530: 1D C0 08 8F 20 20 20 20 52 45 41 44 59 2C 20 57 |.... READY, W|
00001540: 41 49 54 20 46 4F 52 20 48 49 53 20 53 49 47 4E |AIT FOR HIS SIGN|
00001550: 41 4C 2E 00 77 1D CA 08 99 22 93 57 41 49 54 49 |AL..w....".WAITI|
00001560: 4E 47 20 46 4F 52 20 4F 54 48 45 52 20 50 4C 41 |NG FOR OTHER PLA|
00001570: 59 45 52 2E 2E 2E 22 00 A0 1D D4 08 98 31 2C 22 |YER..."......1,"|
00001580: 20 20 20 20 50 55 53 48 20 54 48 45 20 46 31 20 | PUSH THE F1 |
00001590: 4B 45 59 2E 20 28 49 20 48 41 56 45 21 29 20 22 |KEY. (I HAVE!) "|
000015A0: 00 AD 1D DE 08 98 31 2C C7 28 37 29 3B 00 C7 1D |......1,.(7);...|
000015B0: E8 08 A1 23 31 2C 41 24 3A 8B 41 24 B3 B1 C7 28 |...#1,A$:.A$...(|
000015C0: 37 29 A7 32 32 37 30 00 E0 1D F2 08 81 58 B2 31 |7).2270......X.1|
000015D0: A4 31 30 3A 98 31 2C C7 28 37 29 3B 3A 82 3A 8E |.10:.1,.(7);:.:.|
000015E0: 00 00 00 |... |
..'.X..1,2,3,G(6):. OPEN RS-232 CHANNEL.
J.... B%(10,10):. SHIP GRID MATRIX.L....
53280,0:.53281,0:.54272.24,8.....BT$."..
......................."... .M$.H(BT$,16
).B...ME$."":.Q.1.39:ME$.ME$." ":......B
L$.ME$:MY$.ME$:S6.54272.....CR$.G(13):F1
$.G(133):DS$."$"...H.C$(0).".":C$(1)."."
./.R.. G(147)G(142)G(8).E...S$(1).G(28).
G(42).[....X.2.5:. S$(X):. ...... SUBMAR
INE,DESTROYER,CRUISER,BATTLESHIP.....TS.
14:HS.14:BP.1:.1460.C....2230:. BOTH PLA
YERS READY?.S....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:. PRIN
T GRID...^..X.2.5:. 1370...H..J.1.10...R
.:.K.1.10.K.|.:.B%(J,K).X.B%(J,K).0.T...
.K,J......890:. ERASE DIRECTION AID.....
.M$".ENTER "S$(X)" ".+.... 1140:. GET
COORDINATES.]....B%(V,H)..0. . 1060:.360
:. SHIP THERE ALREADY.}.... 840:. PRINT
DIRECTION AID...B..198,0:. 198,1:. D$...
L.CK.0:.Y.1.8.C.V..J("TYUGJBNM",Y,1).D$.
490.U....Y:.1060:.450...... Y . 500,510,
520,530,540,550,560,570.....XD..1:YD..1:
.580.(...XD.0:YD..1:.580.<...XD.1:YD..1:
.580.P...XD..1:YD.0:.580.C...XD.1:YD.0:.
580.W.&.XD..1:YD.1:.580...0.XD.0:YD.1:.5
80...:.XD.1:YD.1:.580...D.L.1:B%(V,H).X.
I.N.X1.H.XD:Y1.V.YD:L.L.1...X..X1.10.Y1.
10..1060:.360...B..X1.1.Y1.1..1060:.360.
..L..B%(Y1,X1)..0.. 1060:.360.-.V.B%(Y1,
X1).X.E....L.X.H.X1:V.Y1:.590.R...G.0:.9
40.^....X:.890......1400:. SKIP TO PLAY
ROUTINES...... GRID DRAWING SUBROUTINE..
.... .P.18)G(19)C$(P).P.... .P.18)" ...
......."...F...P.18)"0.**********"...P..
.P.18)"1.**********"...Z...P.18)"2.*****
*****".8.....P.18)"3.**********".R.....P
.18)"4.**********".L.....P.18)"5.*******
***".......P.18)"6.**********". .....P.1
8)"7.**********".......P.18)"8.*********
*".T. ...P.18)"9.**********"...*...P.18)
" .........."...4...P.18)" ABCDEFGHIJ"
...>...+.H..". DIRECTION?".<.R.
..13)"..TYU".L.\...13)".G J".\.F...13)".
BNM".B.P....Z..". ".
......13)". ".......13)" ".......13)
" ".......W.... DRAW SHIPS ON GRID SUB
ROUTINE...... 1370:."...";......J.1.10..
.J.."..".G.18)...T..K.1.10.1...S.B%(J,K)
:.S.0..".";:.1020.K....S.1. .".. .";:. 1
020.K....G(18)G(5)H(S$(S),1)G(146);.Y...
.K:.:.J:....... BEEPS SUBROUTINE......11
20:.S6.1,130:.S6.5,9:.S6.15,30:.S6.24,5.
.....S6.4,21:.DE.1.25:.:.S6.4,20:.S6.24,
0:....$.. BAPPS SUBROUTINE......M$"....B
AD ENTRY".:.8..S6.24,12:.S6.6,240:.S6.4,
17.Q.B..A.1.2:.B.1.255.25.K.L..S6.1,B:.B
,A:.S6.4,32.X.V..S6.4,32...`..Q.0.24:.S6
.Q,0:....J..M$"... ":..I.T.. CO
ORDINATE INPUT SUBROUTINE...~.. H(BT$,17
)".COORDINATES? (V,H)"......" ":.".";
......198,0:.198,1:.V$.9....F(V$).48.F(V
$).57..1060:.1170.K....M$".."V$"-";.A...
.198,0:.198,1:.H$......F(H$).65.F(H$).74
..1060:.1200...D..M$"...."H$...N.H.F(H$)
.64:V.F(V$).47...X...O.... HIT NOISE SUB
ROUTINE......Q.0.24:.S6.Q,0:.:.S6.24,8..
....S6.5,192:.S6.6,250......Q.120.80..1.
:....S6.1,Q:.S6.4,17:.DE.1.8:.DE,Q.P....
53280,2:.53281,2.Q....S6.24,15:.S6.1,15:
.S6.4,128...(..VO.15.0..1:.DE.1.10:.DE:.
S6.24,VO:....2..53280,0:.53281,0:..P.<..
S6.24,9:.S6.5,9:.S6.1,20...F..S6.4,128:.
D.1.10:.:.S6.4,129:.1310...P.. CLEAR MES
SAGE SCREEN SUBROUTINE.9.Z..M$BL$:.Q.1.3
:.BL$:.:..?.D...T.N.. READY FOR GAME.S.X
..1370:. CLEAR MESSAGE AREA.{...P.0.....
.680:. DRAW GRID.....P.1:.680... .."..
"N$.18)". "N1$.O....940:. DRAW ON GRID.
....GV.0:.H(BT$,21);......".************
****************************";G(19).A.H.
.BP.0..2140:. OTHER PLAYER READY?.Y.R..
MAIN PLAYING LOOP..... ***** INPUT FROM
OTHER COMPUTER......#1,A$:.A$."".ST..0.
1600......A$.F1$.1790:. COORDS COMING...
...A$.G(134).1870:. REPORT OF HIT & VALU
E......A$.G(135).1910:. REPORT OF MISS.&
....A$." ".A$."Z".1600.9....A$.G(136).25
0.N.".ME$.I(ME$.A$,39).J.,.."."H(BT$,20)
ME$:.212,0...6.. ***** FROM YOU TO HIM..
.@..MF.1. GV.0.BP.0..1370:.M$".YOUR TURN
(F1)".P.J..MF.0.GV.0.BP.0..1370...T..BP
..M$"..PRESS F1 TO PLAY"...^..A$:.GV.1.1
660.0.H..A$.F1$.MF.1.BP.0.1760:. GET COO
RDINATES.C.R..A$.F1$.BP.1.BP.0:.260:. EN
D INITIAL CHAT MODE...|..HS.0.GV.1:.1370
:.M$N$" WINS!":.2220:.250.A....TS.0 .GV.
1:.1370:.M$N1$" WINS!":.2220:.250......A
$.."A".A$.."Z".A$.G(F(A$).128)......A$.G
(160).A$." "......A$." ".A$."Z".1510.1..
.A1$.A$:.A$.G(34).A1$."'".G...MY$.I(MY$.
A1$,39).A.B.."."H(BT$,22)MY$G(19).R.L..1
,A$;:.1510...V.. GET COORDINATES...... 1
370:.1140:.1370......1,F1$G(H)G(V);.B...
MF.0:.1490...... GET OTHER COMPUTERS COO
RDINATES......#1,H$:.H$."".1800......#1,
V$:.V$."".1810.9...H.F(H$):V.F(V$):MF.1:
B.B%(V,H).D.&..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$" GE
TS A HIT!":TS.TS.1:.2210.Y.D.B%(V,H).1:.
940:.1600...N..#1,B$:.B$."".1870...X.B.F
(B$):HS.HS.1.$.B.B$.".".H(S$(B),1).".":.
1340...L..1920.9.V.B$."*".M....".":.Q.1.
V:.:..`.....1.18.H)"."B$.J....1600......
SEND NAME TO OTHER COMPUTER...... FORQ=
1TO100:PRINT#1,CHR$(0);:NEXT......1,F1$;
.Y....#1,A$:.A$..F1$.1970...F..Q.1.C(N$)
:.1,J(N$,Q,1);:.:.1,CR$;...P.N1$."".3.Z.
.#1,A$:.A$.." ".A$.."Z". N1$.N1$.A$.G...
.A$..G(13).2010.].... WHO GOES FIRST?.U.
...X.1.100:.1,G(0);:......WF$.G(.(.(0).1
00).150)......1,WF$;......#1,A$:.A$."".2
060.Q. ..F(A$).150.F(A$).249.2070...*..W
F$.A$.2040...4.MF.0:MF$."SECOND":.WF$.A$
.MF.1:MF$."FIRST".+.>..1370:.M$".WE GO "
MF$.C.H..X.1.100:.1,G(0);:..I.R...J.\..
OTHER PLAYER READY?*******.U.F..1,DS$...
P..#1,A$:.A$.DS$.2180...Z..M$".PLEASE WA
IT...":.2150......1,G(255);.W....#1,A$:.
A$..G(255).2190............DELAY.1.1000:
.:.......1,G(136);:.2210:....... SIGNAL
OTHER COMPUTER YOU ARE.S.... READY, W
AIT FOR HIS SIGNAL..W.J..".WAITING FOR O
THER PLAYER...". .T..1," PUSH THE F1
KEY. (I HAVE!) "......1,G(7);.G....#1,A$
:.A$..G(7).2270......X.1.10:.1,G(7);:.:.
...
> CLICK IMAGE PREVIEW FOR FULL MODAL