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