GRIDLOC.128
FILE INFORMATION
FILENAME(S): GRIDLOC.128
FILE TYPE(S): PRG
FILE SIZE: 3.6K
FIRST SEEN: 2025-11-30 18:13:09
APPEARS ON: 1 disk(s)
FILE HASH
4a7679f9e5fa1bf042c29c61ed4ffd20eddcec773a16514d0037ab49244cc396
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FEBRUARY GAZETTE | GRIDLOC.128 | PRG | Sailor, Ganheden | 22 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 47 1C 0A 00 8F 20 43 4F 50 59 52 49 47 48 |..G.... COPYRIGH|
00000010: 54 20 31 39 38 39 20 43 4F 4D 50 55 54 45 21 20 |T 1989 COMPUTE! |
00000020: 50 55 42 4C 49 43 41 54 4F 4E 53 2C 20 49 4E 43 |PUBLICATONS, INC|
00000030: 2E 20 2D 20 41 4C 4C 20 52 49 47 48 54 53 20 52 |. - ALL RIGHTS R|
00000040: 45 53 45 52 56 45 44 00 62 1C 14 00 99 C7 28 32 |ESERVED.b.....(2|
00000050: 37 29 22 4D 13 13 93 22 3A E7 30 2C 31 3A E7 34 |7)"M...":.0,1:.4|
00000060: 2C 31 00 A7 1C 1E 00 86 4E 4D 24 28 36 29 2C 4E |,1......NM$(6),N|
00000070: 50 24 28 36 29 2C 41 50 24 28 36 29 2C 42 4C 24 |P$(6),AP$(6),BL$|
00000080: 28 37 29 2C 42 50 24 28 36 2C 36 29 2C 47 50 28 |(7),BP$(6,6),GP(|
00000090: 36 2C 36 29 3A 96 A5 52 28 58 29 B2 B5 28 BB 28 |6,6):..R(X)..(.(|
000000A0: 31 29 AC 58 29 AA 31 00 CC 1C 28 00 81 58 B2 31 |1).X).1...(..X.1|
000000B0: A4 37 3A 50 43 24 28 58 29 B2 CA 28 22 1C 81 9E |.7:PC$(X)..("...|
000000C0: 1E 1F 9C 9F 22 2C 58 2C 31 29 3A 82 00 DF 1C 32 |....",X,1):....2|
000000D0: 00 58 B2 58 AA 31 3A 8B 58 B1 36 A7 58 B2 31 00 |.X.X.1:.X.6.X.1.|
000000E0: F9 1C 3C 00 99 50 43 24 28 58 29 3A 47 4C 24 B2 |..<..PC$(X):GL$.|
000000F0: 22 47 52 49 44 4C 4F 43 22 00 76 1D 46 00 99 22 |"GRIDLOC".v.F.."|
00000100: 13 11 11 11 22 A3 38 29 22 12 A9 20 20 20 20 20 |....".8)".. |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: CE 22 3A 99 A3 38 29 22 12 20 92 05 D5 C0 C9 B0 |.":..8)". ......|
00000130: C0 C9 B0 B2 AE B0 C0 C9 B2 20 20 D5 C0 C9 D5 C0 |......... .....|
00000140: C9 22 50 43 24 28 58 29 22 12 20 22 3A 99 A3 38 |."PC$(X)". ":..8|
00000150: 29 22 12 20 92 05 DD 20 AE AB B2 CB 20 DD 20 DD |)". ... .... . .|
00000160: 20 DD DD 20 20 DD 20 DD DD 20 20 22 50 43 24 28 | .. . .. "PC$(|
00000170: 58 29 22 12 20 22 00 C4 1D 50 00 99 A3 38 29 22 |X)". "...P...8)"|
00000180: 12 20 92 05 CA C0 CB B1 CA CB AD B1 BD AD C0 CB |. ..............|
00000190: AD C0 BD CA C0 CB CA C0 CB 22 50 43 24 28 58 29 |........."PC$(X)|
000001A0: 22 12 20 22 3A 99 A3 38 29 22 12 CE 20 20 20 20 |". ":..8)".. |
000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001C0: 20 92 A9 22 00 0C 1E 5A 00 99 22 11 1D 1D 1D 1D | .."...Z..".....|
000001D0: 1D 1D 1D 1D 1D 1D 1D 1D 43 4F 50 59 52 49 47 48 |........COPYRIGH|
000001E0: 54 20 31 39 38 39 22 3A 99 22 1D 1D 1D 1D 1D 1D |T 1989":."......|
000001F0: 43 4F 4D 50 55 54 45 21 20 50 55 42 4C 49 43 41 |COMPUTE! PUBLICA|
00000200: 54 49 4F 4E 53 2C 20 49 4E 43 2E 22 00 31 1E 64 |TIONS, INC.".1.d|
00000210: 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 41 4C 4C |.."..........ALL|
00000220: 20 52 49 47 48 54 53 20 52 45 53 45 52 56 45 44 | RIGHTS RESERVED|
00000230: 22 00 5D 1E 6E 00 99 22 11 11 11 11 11 1D 1D 1D |".].n.."........|
00000240: 1D 1D 1D 1D 1D 05 48 4F 57 20 4D 41 4E 59 20 50 |......HOW MANY P|
00000250: 4C 41 59 45 52 53 3F 20 28 31 2D 35 29 00 6F 1E |LAYERS? (1-5).o.|
00000260: 78 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 35 30 00 |x..A$:.A$."".50.|
00000270: 8F 1E 82 00 8B 41 24 B3 22 31 22 B0 41 24 B1 22 |.....A$."1".A$."|
00000280: 35 22 A7 35 30 3A D5 50 4C B2 C5 28 41 24 29 00 |5".50:.PL..(A$).|
00000290: 9B 1E 8C 00 81 58 B2 31 A4 50 4C 00 DF 1E 96 00 |.....X.1.PL.....|
000002A0: 99 50 43 24 28 58 29 22 93 11 1D 57 48 41 54 20 |.PC$(X)"...WHAT |
000002B0: 49 53 20 50 4C 41 59 45 52 20 23 22 58 22 9D 27 |IS PLAYER #"X".'|
000002C0: 53 20 4E 41 4D 45 22 3B 3A 85 4E 4D 24 28 58 29 |S NAME";:.NM$(X)|
000002D0: 3A 8B 4E 4D 24 28 58 29 B2 22 22 A7 31 35 30 00 |:.NM$(X)."".150.|
000002E0: 13 1F A0 00 4E 4D 24 28 58 29 B2 C8 28 4E 4D 24 |....NM$(X)..(NM$|
000002F0: 28 58 29 2C 39 29 3A 82 3A 50 4C B2 50 4C AA 31 |(X),9):.:PL.PL.1|
00000300: 3A 4E 4D 24 28 50 4C 29 B2 22 43 4F 4D 50 55 54 |:NM$(PL)."COMPUT|
00000310: 45 52 22 00 5D 1F AA 00 81 58 B2 31 A4 38 3A 87 |ER".]....X.1.8:.|
00000320: 42 58 24 28 58 29 3A 82 3A 83 22 A4 A4 A4 22 2C |BX$(X):.:."...",|
00000330: 22 AF AF AF 22 2C 22 B9 B9 B9 22 2C 22 A2 A2 A2 |"...","...","...|
00000340: 22 2C 22 12 B8 B8 B8 22 2C 22 12 B7 B7 B7 22 2C |","....","....",|
00000350: 22 12 A3 A3 A3 22 2C 22 12 20 20 20 22 00 A2 1F |"....",". "...|
00000360: B4 00 4F 4C 24 B2 22 CF B7 D0 11 9D 9D 9D A5 20 |..OL$."........ |
00000370: A7 11 9D 9D 9D CC AF BA 22 3A 81 58 B2 31 A4 36 |........":.X.1.6|
00000380: 3A 87 4E 50 24 28 58 29 2C 41 50 24 28 58 29 3A |:.NP$(X),AP$(X):|
00000390: 82 3A 81 58 B2 31 A4 37 3A 87 42 4C 24 28 58 29 |.:.X.1.7:.BL$(X)|
000003A0: 3A 82 00 B5 1F BE 00 42 4C 24 28 50 4C 29 B2 42 |:......BL$(PL).B|
000003B0: 4C 24 28 37 29 00 00 20 C8 00 41 24 B2 22 13 11 |L$(7).. ..A$."..|
000003C0: 1D 22 3A 81 58 B2 31 A4 36 3A 42 24 B2 41 24 3A |.":.X.1.6:B$.A$:|
000003D0: 81 59 B2 31 A4 36 3A 42 50 24 28 59 2C 58 29 B2 |.Y.1.6:BP$(Y,X).|
000003E0: 42 24 3A 42 24 B2 42 24 AA 22 1D 1D 1D 1D 22 3A |B$:B$.B$."....":|
000003F0: 82 3A 41 24 B2 41 24 AA 22 11 11 11 11 22 3A 82 |.:A$.A$."....":.|
00000400: 00 2F 20 D2 00 99 22 93 22 3A 81 59 B2 31 A4 36 |./ ...".":.Y.1.6|
00000410: 3A 81 58 B2 31 A4 36 3A 99 50 43 24 28 58 29 42 |:.X.1.6:.PC$(X)B|
00000420: 50 24 28 58 2C 59 29 4F 4C 24 3A 82 58 2C 59 00 |P$(X,Y)OL$:.X,Y.|
00000430: 81 20 DC 00 99 22 13 11 22 A3 32 36 29 22 9E D5 |. ..."..".26)"..|
00000440: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 3A 81 58 |............":.X|
00000450: B2 31 A4 33 3A 99 A3 32 36 29 22 DD 22 A6 31 31 |.1.3:..26)".".11|
00000460: 29 22 DD 22 3A 82 3A 99 A3 32 36 29 22 CA C0 05 |)".":.:..26)"...|
00000470: 43 4F 4C 9E C0 C0 C0 05 52 4F 57 9E C0 CB 11 11 |COL.....ROW.....|
00000480: 22 00 C8 20 E6 00 81 58 B2 31 A4 37 3A 99 A3 32 |".. ...X.1.7:..2|
00000490: 39 29 50 43 24 28 58 29 22 12 22 C8 28 47 4C 24 |9)PC$(X)".".(GL$|
000004A0: 2C 58 AB 31 29 22 05 92 22 CA 28 47 4C 24 2C 58 |,X.1)"..".(GL$,X|
000004B0: 2C 31 29 50 43 24 28 58 29 22 12 22 CA 28 47 4C |,1)PC$(X)".".(GL|
000004C0: 24 2C 58 AA 31 29 3A 82 00 11 21 F0 00 99 A3 32 |$,X.1):...!....2|
000004D0: 36 29 22 11 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |6)".............|
000004E0: C9 22 3A 81 58 B2 31 A4 36 3A 99 A3 32 36 29 22 |.":.X.1.6:..26)"|
000004F0: DD 22 A6 31 31 29 22 DD 22 3A 82 3A 99 A3 32 36 |.".11)".":.:..26|
00000500: 29 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 13 |)"..............|
00000510: 22 00 2D 21 FA 00 8F 20 2A 2A 2A 2A 2A 20 47 41 |".-!... ***** GA|
00000520: 4D 45 20 4C 4F 4F 50 20 2A 2A 2A 2A 2A 00 5B 21 |ME LOOP *****.[!|
00000530: 04 01 47 57 B2 30 3A 81 50 B2 31 A4 50 4C 3A FE |..GW.0:.P.1.PL:.|
00000540: 1A 32 37 2C 31 37 2C 33 37 2C 32 32 2C 31 3A 99 |.27,17,37,22,1:.|
00000550: 50 43 24 28 50 29 3A 8D 34 35 30 00 8B 21 0E 01 |PC$(P):.450..!..|
00000560: 8D 33 38 30 3A 99 22 05 22 3A 8D 37 30 30 3A 8B |.380:.".":.700:.|
00000570: 4E 4D 24 28 50 29 B2 22 43 4F 4D 50 55 54 45 52 |NM$(P)."COMPUTER|
00000580: 22 A7 8D 35 32 30 3A 89 33 32 30 00 CB 21 18 01 |"..520:.320..!..|
00000590: FE 1A 32 37 2C 31 37 2C 33 37 2C 32 32 2C 31 3A |..27,17,37,22,1:|
000005A0: 99 22 13 22 4E 4D 24 28 50 29 3A 99 22 45 4E 54 |."."NM$(P):."ENT|
000005B0: 45 52 1D 1D 1D 1D 1D 1D 43 4F 4C 22 43 31 22 2D |ER......COL"C1"-|
000005C0: 22 43 32 3A 99 22 11 2D 3E 22 3B 00 F7 21 22 01 |"C2:.".->";..!".|
000005D0: A1 F9 41 24 3A 41 B2 C5 28 41 24 29 3A 8B 41 B3 |..A$:A..(A$):.A.|
000005E0: 43 31 B0 41 B1 43 32 A7 32 39 30 3A D5 99 41 22 |C1.A.C2.290:..A"|
000005F0: 2C 22 3A 43 50 B2 41 00 28 22 2C 01 99 22 13 11 |,":CP.A.(",.."..|
00000600: 11 52 4F 57 20 22 C7 28 36 34 AA 52 31 29 22 20 |.ROW ".(64.R1)" |
00000610: 2D 20 22 C7 28 36 34 AA 52 32 29 3A 99 22 11 1D |- ".(64.R2):."..|
00000620: 1D 1D 1D 1D 1D 1D 22 3B 00 5F 22 36 01 A1 F9 42 |......";._"6...B|
00000630: 24 3A 8B 42 24 B3 C7 28 36 34 AA 52 31 29 B0 42 |$:.B$..(64.R1).B|
00000640: 24 B1 C7 28 36 34 AA 52 32 29 A7 33 31 30 3A D5 |$..(64.R2).310:.|
00000650: 99 42 24 3A 52 50 B2 C6 28 42 24 29 AB 36 34 00 |.B$:RP..(B$).64.|
00000660: AA 22 40 01 99 22 13 13 22 3A 46 B2 38 30 30 30 |."@.."..":F.8000|
00000670: 3A 81 58 B2 31 A4 38 3A 46 B2 46 AA 32 30 30 3A |:.X.1.8:F.F.200:|
00000680: 99 42 50 24 28 43 50 2C 52 50 29 22 20 20 20 11 |.BP$(CP,RP)" .|
00000690: 9D 9D 9D 20 20 20 11 9D 9D 9D 22 42 58 24 28 58 |... ...."BX$(X|
000006A0: 29 3A DA 31 2C 46 2C 31 3A 82 00 EB 22 4A 01 81 |):.1,F,1:..."J..|
000006B0: 58 B2 31 A4 38 3A 46 B2 46 AA 32 30 30 3A 99 42 |X.1.8:F.F.200:.B|
000006C0: 50 24 28 43 50 2C 52 50 29 22 20 20 20 11 9D 9D |P$(CP,RP)" ...|
000006D0: 9D 22 42 58 24 28 58 29 22 11 9D 9D 9D 12 20 20 |."BX$(X)"..... |
000006E0: 20 22 3A DA 31 2C 46 2C 31 3A 82 00 4A 23 54 01 | ":.1,F,1:..J#T.|
000006F0: 81 58 B2 31 A4 38 3A 46 B2 46 AA 32 30 30 3A 99 |.X.1.8:F.F.200:.|
00000700: 42 50 24 28 43 50 2C 52 50 29 42 58 24 28 58 29 |BP$(CP,RP)BX$(X)|
00000710: 22 11 9D 9D 9D 12 20 20 20 11 9D 9D 9D 20 20 20 |"..... .... |
00000720: 22 3A DA 31 2C 46 2C 31 3A 82 3A 99 42 50 24 28 |":.1,F,1:.:.BP$(|
00000730: 43 50 2C 52 50 29 22 12 22 42 4C 24 28 50 29 3A |CP,RP)"."BL$(P):|
00000740: DA 31 2C 33 30 30 30 2C 31 30 00 7C 23 5E 01 47 |.1,3000,10.|#^.G|
00000750: 50 28 43 50 2C 52 50 29 B2 50 3A 99 22 90 22 3A |P(CP,RP).P:.".":|
00000760: 8D 37 30 30 3A 8D 34 35 30 3A 8B 50 43 B2 31 32 |.700:.450:.PC.12|
00000770: 36 AF 50 52 B2 31 32 36 A7 36 33 30 00 87 23 68 |6.PR.126.630..#h|
00000780: 01 82 3A 89 32 36 30 00 A3 23 72 01 8F 20 2A 2A |..:.260..#r.. **|
00000790: 2A 2A 2A 20 44 49 43 45 20 52 4F 4C 4C 20 2A 2A |*** DICE ROLL **|
000007A0: 2A 2A 2A 00 D4 23 7C 01 FE 1A 32 37 2C 32 2C 33 |***..#|...27,2,3|
000007B0: 37 2C 34 2C 31 3A 43 4C B2 50 3A 81 58 B2 31 A4 |7,4,1:CL.P:.X.1.|
000007C0: 36 3A 43 4C B2 43 4C AA 31 3A 8B 43 4C B1 36 A7 |6:CL.CL.1:.CL.6.|
000007D0: 43 4C B2 31 00 F5 23 86 01 43 31 B2 A5 52 28 36 |CL.1..#..C1..R(6|
000007E0: 29 3A 43 32 B2 A5 52 28 36 29 3A 8B 43 31 B2 43 |):C2..R(6):.C1.C|
000007F0: 32 A7 33 39 30 00 10 24 90 01 8B 43 31 B1 43 32 |2.390..$...C1.C2|
00000800: A7 51 B2 43 32 3A 43 32 B2 43 31 3A 43 31 B2 51 |.Q.C2:C2.C1:C1.Q|
00000810: 00 31 24 9A 01 52 31 B2 A5 52 28 36 29 3A 52 32 |.1$..R1..R(6):R2|
00000820: B2 A5 52 28 36 29 3A 8B 52 31 B2 52 32 A7 34 31 |..R(6):.R1.R2.41|
00000830: 30 00 4C 24 A4 01 8B 52 31 B1 52 32 A7 51 B2 52 |0.L$...R1.R2.Q.R|
00000840: 32 3A 52 32 B2 52 31 3A 52 31 B2 51 00 9E 24 AE |2:R2.R1:R1.Q..$.|
00000850: 01 99 50 43 24 28 43 4C 29 22 13 12 1D 22 4E 50 |..PC$(CL)"..."NP|
00000860: 24 28 43 31 29 22 91 91 22 4E 50 24 28 43 32 29 |$(C1)".."NP$(C2)|
00000870: 22 91 91 1D 22 41 50 24 28 52 31 29 22 91 91 22 |"..."AP$(R1)".."|
00000880: 41 50 24 28 52 32 29 3A DA 31 2C A5 52 28 32 30 |AP$(R2):.1,.R(20|
00000890: 30 30 29 AA 38 30 30 30 2C 35 3A 82 3A 8E 00 BE |00).8000,5:.:...|
000008A0: 24 B8 01 8F 20 2A 2A 2A 2A 2A 20 43 48 45 43 4B |$... ***** CHECK|
000008B0: 20 46 4F 52 20 57 49 4E 20 2A 2A 2A 2A 2A 00 FD | FOR WIN *****..|
000008C0: 24 C2 01 50 52 B2 30 3A 50 43 B2 30 3A 81 58 B2 |$..PR.0:PC.0:.X.|
000008D0: 31 A4 36 3A 81 59 B2 31 A4 36 3A 8B 47 50 28 58 |1.6:.Y.1.6:.GP(X|
000008E0: 2C 59 29 B2 50 A7 50 43 B2 50 43 B0 28 32 AE 58 |,Y).P.PC.PC.(2.X|
000008F0: 29 3A 50 52 B2 50 52 B0 28 32 AE 59 29 00 15 25 |):PR.PR.(2.Y)..%|
00000900: CC 01 82 59 2C 58 3A 43 B2 30 3A 52 B2 30 3A 81 |...Y,X:C.0:R.0:.|
00000910: 58 B2 31 A4 36 00 2C 25 D6 01 8B 28 50 43 AF 32 |X.1.6.,%...(PC.2|
00000920: AE 58 29 B3 B1 30 A7 43 B2 43 AA 31 00 43 25 E0 |.X)..0.C.C.1.C%.|
00000930: 01 8B 28 50 52 AF 32 AE 58 29 B3 B1 30 A7 52 B2 |..(PR.2.X)..0.R.|
00000940: 52 AA 31 00 5B 25 EA 01 8B 43 B1 34 AF 52 B1 34 |R.1.[%...C.4.R.4|
00000950: A7 47 57 B2 47 57 B0 32 AE 50 4C 00 61 25 F4 01 |.GW.GW.2.PL.a%..|
00000960: 8E 00 81 25 FE 01 8F 20 2A 2A 2A 2A 2A 20 43 4F |...%... ***** CO|
00000970: 4D 50 55 54 45 52 20 4D 4F 56 45 20 2A 2A 2A 2A |MPUTER MOVE ****|
00000980: 2A 00 C6 25 08 02 FE 1A 32 37 2C 31 37 2C 33 37 |*..%....27,17,37|
00000990: 2C 32 32 2C 31 3A 99 22 13 43 4F 4D 50 55 54 45 |,22,1:.".COMPUTE|
000009A0: 52 22 3A 99 22 4D 4F 56 45 53 3A 22 3A 99 22 11 |R":."MOVES:":.".|
000009B0: 2D 3E 22 3B 3A 51 24 B2 22 22 3A 51 43 B2 50 43 |->";:Q$."":QC.PC|
000009C0: 3A 51 52 B2 50 52 00 EC 25 12 02 43 4D B2 30 3A |:QR.PR..%..CM.0:|
000009D0: 81 58 B2 43 32 A4 43 31 A9 AB 31 3A 81 59 B2 52 |.X.C2.C1..1:.Y.R|
000009E0: 32 A4 52 31 A9 AB 31 3A 4D 43 B2 31 00 FF 25 1C |2.R1..1:MC.1..%.|
000009F0: 02 8B 47 50 28 58 2C 59 29 B2 50 A7 35 39 30 00 |..GP(X,Y).P.590.|
00000A00: 20 26 26 02 8B 28 47 57 AF 28 32 AE 47 50 28 58 | &&..(GW.(2.GP(X|
00000A10: 2C 59 29 29 29 B3 B1 30 A7 4D 43 B2 4D 43 AA 35 |,Y)))..0.MC.MC.5|
00000A20: 00 3A 26 30 02 8B 28 50 43 AF 28 32 AE 58 29 29 |.:&0..(PC.(2.X))|
00000A30: B2 30 A7 4D 43 B2 4D 43 AA 32 00 54 26 3A 02 8B |.0.MC.MC.2.T&:..|
00000A40: 28 50 52 AF 28 32 AE 59 29 29 B2 30 A7 4D 43 B2 |(PR.(2.Y)).0.MC.|
00000A50: 4D 43 AA 32 00 77 26 44 02 8B 47 50 28 58 2C 59 |MC.2.w&D..GP(X,Y|
00000A60: 29 B3 B1 50 AF 47 50 28 58 2C 59 29 B3 B1 30 A7 |)..P.GP(X,Y)..0.|
00000A70: 4D 43 B2 4D 43 AA 31 00 9E 26 4E 02 51 24 B2 51 |MC.MC.1..&N.Q$.Q|
00000A80: 24 AA C4 28 4D 43 29 3A 8B 4D 43 B1 43 4D A7 43 |$..(MC):.MC.CM.C|
00000A90: 4D B2 4D 43 3A 43 50 B2 58 3A 52 50 B2 59 00 B9 |M.MC:CP.X:RP.Y..|
00000AA0: 26 58 02 82 59 2C 58 3A 99 43 50 22 2C 20 22 C7 |&X..Y,X:.CP", ".|
00000AB0: 28 36 34 AA 52 50 29 3A 8E 00 D5 26 62 02 8F 20 |(64.RP):...&b.. |
00000AC0: 2A 2A 2A 2A 2A 20 47 41 4D 45 20 4F 56 45 52 20 |***** GAME OVER |
00000AD0: 2A 2A 2A 2A 2A 00 01 27 6C 02 99 22 90 22 3A 81 |*****..'l..".":.|
00000AE0: 43 31 B2 31 A4 33 3A 52 31 B2 43 31 3A 43 32 B2 |C1.1.3:R1.C1:C2.|
00000AF0: 37 AB 43 31 3A 52 32 B2 43 32 3A 8D 37 30 30 3A |7.C1:R2.C2:.700:|
00000B00: 82 00 42 27 76 02 FE 1A 32 37 2C 31 37 2C 33 37 |..B'v...27,17,37|
00000B10: 2C 32 32 2C 31 3A 99 22 13 9E 47 52 49 44 4C 4F |,22,1:."..GRIDLO|
00000B20: 43 22 3A 99 22 20 20 41 43 48 49 45 56 45 44 22 |C":." ACHIEVED"|
00000B30: 3A 99 22 20 20 20 20 42 59 22 3A 99 4E 4D 24 28 |:." BY":.NM$(|
00000B40: 50 29 00 7A 27 80 02 81 58 B2 31 A4 31 36 3A E7 |P).z'...X.1.16:.|
00000B50: 30 2C 58 3A E7 34 2C 31 37 AB 58 3A DA 31 2C A5 |0,X:.4,17.X:.1,.|
00000B60: 52 28 32 30 30 30 29 AA 38 30 30 30 2C 35 3A 82 |R(2000).8000,5:.|
00000B70: 3A E7 30 2C 31 3A E7 34 2C 31 00 99 27 8A 02 99 |:.0,1:.4,1..'...|
00000B80: 22 50 4C 41 59 20 41 47 41 49 4E 3F 22 3A 99 22 |"PLAY AGAIN?":."|
00000B90: 20 20 20 28 59 2F 4E 29 22 00 AC 27 94 02 A1 F9 | (Y/N)"..'....|
00000BA0: 41 24 3A 8B 41 24 B2 22 59 22 A7 8A 00 BD 27 9E |A$:.A$."Y"....'.|
00000BB0: 02 8B 41 24 B3 B1 22 4E 22 A7 36 36 30 00 D0 27 |..A$.."N".660..'|
00000BC0: A8 02 99 C7 28 32 37 29 22 4C 13 13 93 22 3A 80 |....(27)"L...":.|
00000BD0: 00 EA 27 B2 02 8F 20 2A 2A 2A 2A 2A 20 4F 55 54 |..'... ***** OUT|
00000BE0: 4C 49 4E 45 20 2A 2A 2A 2A 2A 00 FF 27 BC 02 99 |LINE *****..'...|
00000BF0: 22 13 13 22 3B 3A 8B 43 31 B2 31 A7 37 32 30 00 |"..";:.C1.1.720.|
00000C00: 16 28 C6 02 81 58 B2 32 A4 43 31 3A 99 22 1D 1D |.(...X.2.C1:."..|
00000C10: 1D 1D 22 3B 3A 82 00 24 28 D0 02 8B 52 31 B2 31 |..";:..$(...R1.1|
00000C20: A7 37 34 30 00 3B 28 DA 02 81 58 B2 32 A4 52 31 |.740.;(...X.2.R1|
00000C30: 3A 99 22 11 11 11 11 22 3B 3A 82 00 BA 28 E4 02 |:."....";:...(..|
00000C40: 99 22 20 22 3B 3A 81 58 B2 43 31 A4 43 32 3A 99 |." ";:.X.C1.C2:.|
00000C50: 22 C0 22 C7 28 34 38 AA 58 29 22 C0 C0 22 3B 3A |".".(48.X)"..";:|
00000C60: 82 3A 99 22 9D C9 22 3B 3A 81 58 B2 52 31 A4 52 |.:."..";:.X.R1.R|
00000C70: 32 3A 99 22 11 9D DD 11 9D 22 C7 28 36 34 AA 58 |2:.".....".(64.X|
00000C80: 29 22 11 9D DD 11 9D DD 22 3B 3A 82 3A 99 22 9D |)"......";:.:.".|
00000C90: CB 22 3B 3A 81 58 B2 43 32 A4 43 31 A9 AB 31 3A |.";:.X.C2.C1..1:|
00000CA0: 99 22 9D 9D C0 9D 9D 22 C7 28 34 38 AA 58 29 22 |.".....".(48.X)"|
00000CB0: 9D 9D C0 9D 9D C0 22 3B 3A 82 00 FC 28 EE 02 99 |......";:...(...|
00000CC0: 22 9D CA 22 3B 3A 81 58 B2 52 32 A4 52 31 A9 AB |"..";:.X.R2.R1..|
00000CD0: 31 3A 99 22 91 9D DD 91 9D 22 C7 28 36 34 AA 58 |1:.".....".(64.X|
00000CE0: 29 22 91 9D DD 91 9D DD 22 3B 3A 82 3A 99 22 9D |)"......";:.:.".|
00000CF0: D5 22 3A 99 50 43 24 28 50 29 3A 8E 00 19 29 F8 |.":.PC$(P):...).|
00000D00: 02 8F 20 2A 2A 2A 2A 2A 20 44 41 54 41 20 53 54 |.. ***** DATA ST|
00000D10: 4D 54 53 20 2A 2A 2A 2A 2A 00 96 29 02 03 83 22 |MTS *****..)..."|
00000D20: 20 AE 11 9D 9D 20 DD 11 9D 9D 20 B1 22 2C 22 D5 | .... .... .",".|
00000D30: C9 11 9D 9D AB B3 11 9D 9D B1 B1 22 2C 22 D5 C9 |...........","..|
00000D40: 11 9D 9D D5 CB 11 9D 9D AD BD 22 2C 22 B2 C9 11 |..........","...|
00000D50: 9D 9D AB B3 11 9D 9D B1 CB 22 2C 22 D5 C9 11 9D |.........","....|
00000D60: 9D 20 B3 11 9D 9D CA CB 22 2C 22 D5 C9 11 9D 9D |. ......",".....|
00000D70: DD 20 11 9D 9D CA CB 22 2C 22 B2 B2 11 9D 9D AD |. .....","......|
00000D80: B3 11 9D 9D 20 B1 22 2C 22 B2 C9 11 9D 9D DD DD |.... .",".......|
00000D90: 11 9D 9D B1 CB 22 00 D7 29 0C 03 83 22 B0 AE 11 |....."..)..."...|
00000DA0: 9D 9D AD C9 11 9D 9D CA CB 22 2C 22 B0 AE 11 9D |.........","....|
00000DB0: 9D AB 20 11 9D 9D AD BD 22 2C 22 D5 C9 11 9D 9D |.. .....",".....|
00000DC0: AB C9 11 9D 9D CA CB 22 2C 22 B0 AE 11 9D 9D AB |.......","......|
00000DD0: 20 11 9D 9D B1 20 22 00 18 2A 16 03 83 22 20 AE | .... "..*..." .|
00000DE0: 20 11 9D 9D 9D 20 DD 20 11 9D 9D 9D 20 B1 20 22 | .... . .... . "|
00000DF0: 2C 22 D5 C0 C9 11 9D 9D 9D D5 C0 CB 11 9D 9D 9D |,"..............|
00000E00: AD C0 BD 22 2C 22 D5 C0 C9 11 9D 9D 9D 20 C0 B3 |...","....... ..|
00000E10: 11 9D 9D 9D CA C0 CB 22 00 6D 2A 20 03 83 22 B2 |.......".m* ..".|
00000E20: 20 B2 11 9D 9D 9D AD C0 B3 11 9D 9D 9D 20 20 B1 | ............ .|
00000E30: 22 2C 22 B0 C0 AE 11 9D 9D 9D AD C0 C9 11 9D 9D |",".............|
00000E40: 9D CA C0 CB 22 2C 22 D5 C0 C9 11 9D 9D 9D AB C0 |....",".........|
00000E50: C9 11 9D 9D 9D CA C0 CB 22 2C 22 D5 C0 C9 11 9D |........",".....|
00000E60: 9D 9D DD 20 20 11 9D 9D 9D CA C0 CB 22 00 00 00 |... ......."...|
..G.... COPYRIGHT 1989 COMPUTE! PUBLICAT
ONS, INC. - ALL RIGHTS RESERVED.B....G(2
7)"M...":.0,1:.4,1......NM$(6),NP$(6),AP
$(6),BL$(7),BP$(6,6),GP(6,6):..R(X)..(.(
1).X).1.L.(..X.1.7:PC$(X).J(".......",X,
1):....2.X.X.1:.X.6.X.1...<..PC$(X):GL$.
"GRIDLOC".V.F.."....".8)"..
N":..8)". ..U.I..I.....I. U.IU.
I"PC$(X)". ":..8)". ... ...K . . .. . .
. "PC$(X)". ".D.P...8)". ..J.K.JK.....K
...J.KJ.K"PC$(X)". ":..8)".N
.."...Z..".............COPYRIGH
T 1989":."......COMPUTE! PUBLICATIONS, I
NC.".1.D.."..........ALL RIGHTS RESERVED
".].N.."..............HOW MANY PLAYERS?
(1-5).O.X..A$:.A$."".50......A$."1".A$."
5".50:UPL.E(A$)......X.1.PL......PC$(X)"
...WHAT IS PLAYER #"X".'S NAME";:.NM$(X)
:.NM$(X)."".150... .NM$(X).H(NM$(X),9):.
:PL.PL.1:NM$(PL)."COMPUTER".]....X.1.8:.
BX$(X):.:."...","...","...","...","...."
,"....","....",". ".....OL$."O.P.....
.....L..":.X.1.6:.NP$(X),AP$(X):.:.X.1.7
:.BL$(X):......BL$(PL).BL$(7).. H.A$."..
.":.X.1.6:B$.A$:.Y.1.6:BP$(Y,X).B$:B$.B$
."....":.:A$.A$."....":../ R..".":.Y.1.6
:.X.1.6:.PC$(X)BP$(X,Y)OL$:.X,Y.. ..."..
".26)".U...........I":.X.1.3:..26)".".11
)".":.:..26)"J..COL.....ROW..K..".H ...X
.1.7:..29)PC$(X)"."H(GL$,X.1)".."J(GL$,X
,1)PC$(X)"."J(GL$,X.1):...!....26)".U...
........I":.X.1.6:..26)".".11)".":.:..26
)"J...........K.".-!... ***** GAME LOOP
*****.[!..GW.0:.P.1.PL:..27,17,37,22,1:.
PC$(P):.450..!...380:.".":.700:.NM$(P)."
COMPUTER"..520:.320.K!....27,17,37,22,1:
."."NM$(P):."ENTER......COL"C1"-"C2:.".-
>";..!"...A$:A.E(A$):.A.C1.A.C2.290:U.A"
,":CP.A.(",.."...ROW "G(64.R1)" - "G(64.
R2):."........";._"6...B$:.B$.G(64.R1).B
$.G(64.R2).310:U.B$:RP.F(B$).64.."@.."..
":F.8000:.X.1.8:F.F.200:.BP$(CP,RP)" .
... ...."BX$(X):Z1,F,1:..."J..X.1.8:F.
F.200:.BP$(CP,RP)" ...."BX$(X)".....
":Z1,F,1:..J#T..X.1.8:F.F.200:.BP$(CP,R
P)BX$(X)"..... .... ":Z1,F,1:.:.BP$(
CP,RP)"."BL$(P):Z1,3000,10.|#^.GP(CP,RP)
.P:.".":.700:.450:.PC.126.PR.126.630..#H
..:.260..#R.. ***** DICE ROLL *****.T#|.
..27,2,37,4,1:CL.P:.X.1.6:CL.CL.1:.CL.6.
CL.1..#..C1..R(6):C2..R(6):.C1.C2.390..$
...C1.C2.Q.C2:C2.C1:C1.Q.1$..R1..R(6):R2
..R(6):.R1.R2.410.L$...R1.R2.Q.R2:R2.R1:
R1.Q..$...PC$(CL)"..."NP$(C1)".."NP$(C2)
"..."AP$(R1)".."AP$(R2):Z1,.R(2000).8000
,5:.:...$... ***** CHECK FOR WIN *****..
$B.PR.0:PC.0:.X.1.6:.Y.1.6:.GP(X,Y).P.PC
.PC.(2.X):PR.PR.(2.Y)..%L..Y,X:C.0:R.0:.
X.1.6.,%V..(PC.2.X)..0.C.C.1.C%...(PR.2.
X)..0.R.R.1.[%...C.4.R.4.GW.GW.2.PL.A%..
...%... ***** COMPUTER MOVE *****.F%....
27,17,37,22,1:.".COMPUTER":."MOVES:":.".
->";:Q$."":QC.PC:QR.PR..%..CM.0:.X.C2.C1
..1:.Y.R2.R1..1:MC.1..%...GP(X,Y).P.590.
&&..(GW.(2.GP(X,Y)))..0.MC.MC.5.:&0..(P
C.(2.X)).0.MC.MC.2.T&:..(PR.(2.Y)).0.MC.
MC.2.W&D..GP(X,Y)..P.GP(X,Y)..0.MC.MC.1.
.&N.Q$.Q$.D(MC):.MC.CM.CM.MC:CP.X:RP.Y..
&X..Y,X:.CP", "G(64.RP):..U&B.. ***** GA
ME OVER *****..'L..".":.C1.1.3:R1.C1:C2.
7.C1:R2.C2:.700:..B'V...27,17,37,22,1:."
..GRIDLOC":." ACHIEVED":." BY":.NM$(
P).Z'...X.1.16:.0,X:.4,17.X:Z1,.R(2000).
8000,5:.:.0,1:.4,1..'..."PLAY AGAIN?":."
(Y/N)"..'....A$:.A$."Y"....'...A$.."N
".660.P'...G(27)"L...":...'... ***** OUT
LINE *****..'..."..";:.C1.1.720..(F..X.2
.C1:."....";:..$(P..R1.1.740.;(Z..X.2.R1
:."....";:...(..." ";:.X.C1.C2:."."G(48.
X)"..";:.:.".I";:.X.R1.R2:."....."G(64.X
)"......";:.:.".K";:.X.C2.C1..1:."....."
G(48.X)"......";:...(...".J";:.X.R2.R1..
1:."....."G(64.X)"......";:.:.".U":.PC$(
P):...)... ***** DATA STMTS *****..)..."
.... .... .","UI..........","UI...UK...
..",".I.........K","UI... ....JK","UI...
. ...JK",".......... .",".I.........K".W
)..."......I...JK","...... .....","UI...
.I...JK","...... .... "..*..." . .... .
.... . ","U.I....U.K.......","U.I.... ..
....J.K".M* ..". ............ .",".....
....I....J.K","U.I......I....J.K","U.I..
... ....J.K"...
> CLICK IMAGE PREVIEW FOR FULL MODAL