L-GAME
FILE INFORMATION
FILENAME(S): L-GAME
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 21:07:05
APPEARS ON: 1 disk(s)
FILE HASH
e466937049a6d9a00611a2083bd53f3f2d2ce97ed7e2cfe54621c9727a69a537
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PET GAMES 07 | L-GAME | PRG | DuncanTwain | 9 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 0A 04 00 00 99 22 93 22 00 20 04 0A 00 99 |.......".". ....|
00000010: A3 31 36 29 22 2A 12 4C 2D 47 41 4D 45 92 2A 22 |.16)"*.L-GAME.*"|
00000020: 00 3E 04 0B 00 99 A3 31 31 29 22 43 52 45 41 54 |.>.....11)"CREAT|
00000030: 49 56 45 20 43 4F 4D 50 55 54 49 4E 47 22 00 5F |IVE COMPUTING"._|
00000040: 04 0C 00 99 A3 39 29 22 4D 4F 52 52 49 53 54 4F |.....9)"MORRISTO|
00000050: 57 4E 2C 20 4E 45 57 20 4A 45 52 53 45 59 22 00 |WN, NEW JERSEY".|
00000060: 69 04 0D 00 99 3A 99 3A 99 00 90 04 14 00 86 43 |i....:.:.......C|
00000070: 28 34 29 2C 4F 28 34 29 2C 54 28 34 29 2C 42 28 |(4),O(4),T(4),B(|
00000080: 31 36 29 2C 4E 28 31 36 29 2C 4D 28 31 30 30 29 |16),N(16),M(100)|
00000090: 00 A7 04 28 00 99 22 42 4F 41 52 44 20 50 52 49 |...(.."BOARD PRI|
000000A0: 4E 54 4F 55 54 22 3B 00 AF 04 2D 00 85 41 24 00 |NTOUT";...-..A$.|
000000B0: C3 04 32 00 8B C8 28 41 24 2C 31 29 B2 22 4E 22 |..2...(A$,1)."N"|
000000C0: A7 36 35 00 CC 04 37 00 46 32 B2 30 00 D4 04 3C |.65...7.F2.0...<|
000000D0: 00 89 37 30 00 DD 04 41 00 46 32 B2 31 00 E6 04 |..70...A.F2.1...|
000000E0: 46 00 8D 31 30 30 00 EF 04 50 00 89 32 31 30 00 |F..100...P..210.|
000000F0: 05 05 64 00 8F 20 49 4E 49 54 49 41 4C 49 5A 45 |..d.. INITIALIZE|
00000100: 20 44 41 54 41 00 25 05 65 00 8F 20 42 31 2C 42 | DATA.%.e.. B1,B|
00000110: 32 20 20 20 20 20 3D 50 4F 53 49 54 49 4F 4E 20 |2 =POSITION |
00000120: 42 4F 58 45 53 00 49 05 66 00 8F 20 43 28 31 2C |BOXES.I.f.. C(1,|
00000130: 32 2C 33 2C 34 29 3D 43 4F 4D 50 55 54 45 52 53 |2,3,4)=COMPUTERS|
00000140: 20 50 4F 53 49 54 49 4F 4E 00 6D 05 67 00 8F 20 | POSITION.m.g.. |
00000150: 4F 28 31 2C 32 2C 33 2C 34 29 3D 4F 50 50 4F 4E |O(1,2,3,4)=OPPON|
00000160: 45 4E 54 53 20 50 4F 53 49 54 49 4F 4E 00 8F 05 |ENTS POSITION...|
00000170: 68 00 8F 20 54 28 31 2C 32 2C 33 2C 34 29 3D 43 |h.. T(1,2,3,4)=C|
00000180: 45 4E 54 45 52 20 50 4F 53 49 54 49 4F 4E 53 00 |ENTER POSITIONS.|
00000190: A7 05 69 00 8F 20 42 28 31 2E 2E 2E 2E 31 36 29 |..i.. B(1....16)|
000001A0: 3D 42 4F 41 52 44 3A 00 C6 05 6A 00 8F 20 20 20 |=BOARD:...j.. |
000001B0: 20 20 20 20 20 20 20 20 20 42 28 58 29 3D 30 20 | B(X)=0 |
000001C0: 20 45 4D 50 54 59 00 EB 05 6B 00 8F 20 20 20 20 | EMPTY...k.. |
000001D0: 20 20 20 20 20 20 20 20 42 28 58 29 3D 31 20 20 | B(X)=1 |
000001E0: 4F 50 50 4F 4E 45 4E 54 53 20 4C 00 10 06 6C 00 |OPPONENTS L...l.|
000001F0: 8F 20 20 20 20 20 20 20 20 20 20 20 20 42 28 58 |. B(X|
00000200: 29 3D 32 20 20 43 4F 4D 50 55 54 45 52 53 20 4C |)=2 COMPUTERS L|
00000210: 00 2F 06 6D 00 8F 20 20 20 20 20 20 20 20 20 20 |./.m.. |
00000220: 20 20 42 28 58 29 3D 33 20 20 42 4F 58 45 53 00 | B(X)=3 BOXES.|
00000230: 35 06 73 00 8C 00 5D 06 78 00 83 31 2C 31 36 2C |5.s...].x..1,16,|
00000240: 32 2C 37 2C 36 2C 36 2C 31 31 2C 37 2C 31 30 2C |2,7,6,6,11,7,10,|
00000250: 31 35 2C 31 30 2C 33 2C 31 34 2C 31 31 00 82 06 |15,10,3,14,11...|
00000260: 82 00 83 33 2C 32 2C 32 2C 30 2C 30 2C 32 2C 31 |...3,2,2,0,0,2,1|
00000270: 2C 30 2C 30 2C 32 2C 31 2C 30 2C 30 2C 31 2C 31 |,0,0,2,1,0,0,1,1|
00000280: 2C 33 00 8D 06 8C 00 87 42 31 2C 42 32 00 98 06 |,3......B1,B2...|
00000290: 96 00 81 58 B2 31 A4 34 00 AC 06 A0 00 87 43 28 |...X.1.4......C(|
000002A0: 58 29 2C 4F 28 58 29 2C 54 28 58 29 00 B3 06 AA |X),O(X),T(X)....|
000002B0: 00 82 58 00 BF 06 B4 00 81 58 B2 31 A4 31 36 00 |..X......X.1.16.|
000002C0: C9 06 BE 00 87 42 28 58 29 00 D0 06 C8 00 82 58 |.....B(X)......X|
000002D0: 00 D6 06 CD 00 8E 00 F3 06 D2 00 99 22 44 4F 20 |............"DO |
000002E0: 59 4F 55 20 57 49 53 48 20 54 4F 20 53 54 41 52 |YOU WISH TO STAR|
000002F0: 54 22 3B 00 FB 06 D7 00 85 41 24 00 04 07 D9 00 |T";......A$.....|
00000300: 99 22 93 22 00 20 07 DC 00 8B C8 28 41 24 2C 31 |.".". .....(A$,1|
00000310: 29 B2 22 4E 22 A7 8D 32 32 37 30 3A 89 35 30 30 |)."N"..2270:.500|
00000320: 00 37 07 E6 00 8F 20 20 4F 50 50 4F 4E 45 4E 54 |.7.... OPPONENT|
00000330: 27 53 20 4D 4F 56 45 00 41 07 EB 00 8D 32 32 37 |'S MOVE.A....227|
00000340: 30 00 4D 07 F0 00 81 51 57 B2 31 A4 38 00 7B 07 |0.M....QW.1.8.{.|
00000350: F1 00 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00000360: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000370: 20 20 20 20 20 20 20 20 20 20 22 00 83 07 F2 00 | ".....|
00000380: 82 51 57 00 93 07 F4 00 99 22 91 91 91 91 91 91 |.QW......"......|
00000390: 91 91 22 00 AB 07 F5 00 99 22 59 4F 55 52 20 4D |.."......"YOUR M|
000003A0: 4F 56 45 20 46 4F 52 20 4C 22 3B 00 C4 07 FA 00 |OVE FOR L";.....|
000003B0: 85 44 28 31 29 2C 44 28 32 29 2C 44 28 33 29 2C |.D(1),D(2),D(3),|
000003C0: 44 28 34 29 00 F0 07 FF 00 8B B6 28 44 28 31 29 |D(4).......(D(1)|
000003D0: 29 AA B6 28 44 28 32 29 29 AA B6 28 44 28 33 29 |)..(D(2))..(D(3)|
000003E0: 29 AA B6 28 44 28 34 29 29 B2 30 A7 31 32 38 30 |)..(D(4)).0.1280|
000003F0: 00 04 08 04 01 8F 20 20 20 42 55 42 42 4C 45 20 |...... BUBBLE |
00000400: 53 4F 52 54 00 0F 08 09 01 81 58 B2 31 A4 34 00 |SORT......X.1.4.|
00000410: 1A 08 0E 01 81 59 B2 32 A4 34 00 2F 08 13 01 8B |.....Y.2.4./....|
00000420: 44 28 59 29 B1 44 28 59 AB 31 29 A7 32 39 35 00 |D(Y).D(Y.1).295.|
00000430: 3A 08 18 01 5A B2 44 28 59 29 00 4A 08 1D 01 44 |:...Z.D(Y).J...D|
00000440: 28 59 29 B2 44 28 59 AB 31 29 00 57 08 22 01 44 |(Y).D(Y.1).W.".D|
00000450: 28 59 AB 31 29 B2 5A 00 5E 08 27 01 82 59 00 65 |(Y.1).Z.^.'..Y.e|
00000460: 08 2C 01 82 58 00 7D 08 31 01 8F 20 20 43 48 45 |.,..X.}.1.. CHE|
00000470: 43 4B 20 4C 45 47 41 42 49 4C 49 54 59 00 88 08 |CK LEGABILITY...|
00000480: 36 01 81 58 B2 31 A4 34 00 96 08 3B 01 4E 28 58 |6..X.1.4...;.N(X|
00000490: 29 B2 44 28 58 29 00 9D 08 40 01 82 58 00 A6 08 |).D(X)...@..X...|
000004A0: 45 01 4E 31 B2 34 00 AF 08 4A 01 46 31 B2 30 00 |E.N1.4...J.F1.0.|
000004B0: B9 08 4F 01 8D 31 38 30 30 00 C9 08 54 01 8B 4D |..O..1800...T..M|
000004C0: 31 B3 B1 34 A7 31 32 32 30 00 D4 08 59 01 81 58 |1..4.1220...Y..X|
000004D0: B2 31 A4 34 00 E8 08 5E 01 8B 42 28 4D 28 58 29 |.1.4...^..B(M(X)|
000004E0: 29 B1 31 A7 31 32 32 30 00 EF 08 63 01 82 58 00 |).1.1220...c..X.|
000004F0: FA 08 68 01 81 58 B2 31 A4 34 00 08 09 6D 01 42 |..h..X.1.4...m.B|
00000500: 28 4F 28 58 29 29 B2 30 00 0F 09 72 01 82 58 00 |(O(X)).0...r..X.|
00000510: 1A 09 77 01 81 58 B2 31 A4 34 00 28 09 7C 01 42 |..w..X.1.4.(.|.B|
00000520: 28 4D 28 58 29 29 B2 31 00 36 09 81 01 4F 28 58 |(M(X)).1.6...O(X|
00000530: 29 B2 4D 28 58 29 00 3D 09 86 01 82 58 00 49 09 |).M(X).=....X.I.|
00000540: 8B 01 42 28 42 31 29 B2 30 00 55 09 90 01 42 28 |..B(B1).0.U...B(|
00000550: 42 32 29 B2 30 00 75 09 98 01 99 22 59 4F 55 52 |B2).0.u...."YOUR|
00000560: 20 4D 4F 56 45 20 46 4F 52 20 54 48 45 20 42 4F | MOVE FOR THE BO|
00000570: 58 45 53 22 3B 00 7E 09 9A 01 85 58 2C 59 00 97 |XES";.~....X,Y..|
00000580: 09 9F 01 8B B6 28 58 29 AA B6 28 59 29 B3 B1 58 |.....(X)..(Y)..X|
00000590: AA 59 A7 31 32 35 30 00 A5 09 A0 01 8B 58 B2 59 |.Y.1250......X.Y|
000005A0: A7 31 32 35 30 00 BB 09 A4 01 8B 42 28 58 29 AA |.1250......B(X).|
000005B0: 42 28 59 29 B1 30 A7 31 32 35 30 00 C4 09 AE 01 |B(Y).0.1250.....|
000005C0: 42 31 B2 58 00 CD 09 B8 01 42 32 B2 59 00 D9 09 |B1.X.....B2.Y...|
000005D0: C2 01 42 28 42 31 29 B2 33 00 E5 09 CC 01 42 28 |..B(B1).3.....B(|
000005E0: 42 32 29 B2 33 00 11 0A D6 01 99 22 91 1D 1D 1D |B2).3......"....|
000005F0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000600: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 4F 2E 4B 2E |............O.K.|
00000610: 22 00 1B 0A DB 01 8D 32 32 37 30 00 32 0A E0 01 |"......2270.2...|
00000620: 8F 20 20 43 4F 4D 50 55 54 45 52 27 53 20 4D 4F |. COMPUTER'S MO|
00000630: 56 45 00 52 0A EA 01 8F 20 20 52 45 4D 4F 56 45 |VE.R.... REMOVE|
00000640: 20 43 28 31 2D 34 29 20 46 52 4F 4D 20 42 4F 41 | C(1-4) FROM BOA|
00000650: 52 44 00 5D 0A F4 01 81 58 B2 31 A4 34 00 6B 0A |RD.]....X.1.4.k.|
00000660: FE 01 42 28 43 28 58 29 29 B2 30 00 72 0A 08 02 |..B(C(X)).0.r...|
00000670: 82 58 00 7C 0A 12 02 8D 31 34 32 30 00 85 0A 1C |.X.|....1420....|
00000680: 02 46 31 B2 31 00 8E 0A 26 02 4E 31 B2 5A 00 98 |.F1.1...&.N1.Z..|
00000690: 0A 30 02 8D 31 38 30 30 00 A7 0A 3A 02 8B 4D 31 |.0..1800...:..M1|
000006A0: B2 30 A7 31 33 30 30 00 D2 0A 44 02 8F 20 20 46 |.0.1300...D.. F|
000006B0: 49 4E 44 20 4D 4F 56 45 20 57 49 54 48 20 42 45 |IND MOVE WITH BE|
000006C0: 53 54 20 43 45 4E 54 52 45 20 43 4F 56 45 52 41 |ST CENTRE COVERA|
000006D0: 47 45 00 DC 0A 49 02 8D 31 33 37 30 00 EC 0A 4E |GE...I..1370...N|
000006E0: 02 81 45 B2 30 A4 4D 31 AB 34 A9 34 00 F7 0A 58 |..E.0.M1.4.4...X|
000006F0: 02 81 46 B2 31 A4 34 00 02 0B 62 02 81 47 B2 31 |..F.1.4...b..G.1|
00000700: A4 34 00 18 0B 6C 02 8B 4D 28 45 AA 46 29 B3 B1 |.4...l..M(E.F)..|
00000710: 54 28 47 29 A7 36 34 30 00 30 0B 76 02 4E 28 45 |T(G).640.0.v.N(E|
00000720: AD 34 AA 31 29 B2 4E 28 45 AD 34 AA 31 29 AA 31 |.4.1).N(E.4.1).1|
00000730: 00 37 0B 80 02 82 47 00 3E 0B 8A 02 82 46 00 45 |.7....G.>....F.E|
00000740: 0B 94 02 82 45 00 4F 0B 9E 02 8D 31 35 30 30 00 |....E.O....1500.|
00000750: 69 0B A8 02 8F 20 20 50 55 54 20 4D 4F 56 45 20 |i.... PUT MOVE |
00000760: 49 4E 20 43 28 31 2D 34 29 00 77 0B B2 02 59 B2 |IN C(1-4).w...Y.|
00000770: 28 5A AB 31 29 AC 34 00 82 0B BC 02 81 58 B2 31 |(Z.1).4......X.1|
00000780: A4 34 00 92 0B C6 02 43 28 58 29 B2 4D 28 58 AA |.4.....C(X).M(X.|
00000790: 59 29 00 A0 0B D0 02 42 28 43 28 58 29 29 B2 32 |Y).....B(C(X)).2|
000007A0: 00 A7 0B DA 02 82 58 00 B3 0B E4 02 81 51 57 B2 |......X......QW.|
000007B0: 31 A4 38 00 E1 0B E5 02 99 22 20 20 20 20 20 20 |1.8......" |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007E0: 22 00 E9 0B E6 02 82 51 57 00 F9 0B E8 02 99 22 |"......QW......"|
000007F0: 91 91 91 91 91 91 91 91 22 00 27 0C EE 02 99 22 |........".'...."|
00000800: 43 4F 4D 50 55 54 45 52 20 4D 4F 56 45 53 20 54 |COMPUTER MOVES T|
00000810: 4F 3A 22 3B 43 28 31 29 3B 43 28 32 29 3B 43 28 |O:";C(1);C(2);C(|
00000820: 33 29 3B 43 28 34 29 00 43 0C F8 02 8F 20 20 46 |3);C(4).C.... F|
00000830: 49 4E 44 20 4D 4F 56 45 53 20 46 4F 52 20 42 4F |IND MOVES FOR BO|
00000840: 58 45 53 00 62 0C FD 02 8F 20 20 52 45 4D 4F 56 |XES.b.... REMOV|
00000850: 45 20 42 4F 58 45 53 20 46 52 4F 4D 20 42 4F 41 |E BOXES FROM BOA|
00000860: 52 44 00 6E 0C 02 03 42 28 42 31 29 B2 30 00 7A |RD.n...B(B1).0.z|
00000870: 0C 0C 03 42 28 42 32 29 B2 30 00 98 0C 16 03 8F |...B(B2).0......|
00000880: 20 20 49 53 20 4F 50 50 4F 4E 45 4E 54 20 49 4E | IS OPPONENT IN|
00000890: 20 43 4F 52 4E 45 52 3F 00 A3 0C 20 03 81 49 B2 | CORNER?... ..I.|
000008A0: 31 A4 34 00 AE 0C 2A 03 81 4A B2 31 A4 34 00 C1 |1.4...*..J.1.4..|
000008B0: 0C 34 03 8B 4F 28 49 29 B2 54 28 4A 29 A7 38 37 |.4..O(I).T(J).87|
000008C0: 30 00 C8 0C 3E 03 82 4A 00 CF 0C 48 03 82 49 00 |0...>..J...H..I.|
000008D0: F8 0C 4D 03 8F 20 20 4F 50 50 4F 4E 45 4E 54 20 |..M.. OPPONENT |
000008E0: 49 4E 20 43 4F 52 4E 45 52 3B 20 49 47 4E 4F 52 |IN CORNER; IGNOR|
000008F0: 45 20 43 45 4E 54 52 45 00 02 0D 52 03 89 31 30 |E CENTRE...R..10|
00000900: 32 30 00 34 0D 5C 03 8F 20 20 4F 50 50 4F 4E 45 |20.4.\.. OPPONE|
00000910: 4E 54 20 49 4E 20 43 4F 52 4E 45 52 3B 20 46 49 |NT IN CORNER; FI|
00000920: 4C 4C 20 43 45 4E 54 52 45 20 57 49 54 48 20 42 |LL CENTRE WITH B|
00000930: 4F 58 45 53 00 3F 0D 66 03 81 58 B2 31 A4 34 00 |OXES.?.f..X.1.4.|
00000940: 52 0D 70 03 8B 42 28 54 28 58 29 29 B1 30 A7 39 |R.p..B(T(X)).0.9|
00000950: 32 30 00 5E 0D 7A 03 42 31 B2 54 28 58 29 00 6A |20.^.z.B1.T(X).j|
00000960: 0D 84 03 42 28 42 31 29 B2 33 00 73 0D 8E 03 89 |...B(B1).3.s....|
00000970: 39 35 30 00 7A 0D 98 03 82 58 00 95 0D A2 03 8F |950.z....X......|
00000980: 20 20 4E 4F 20 53 50 41 43 45 53 20 49 4E 20 43 | NO SPACES IN C|
00000990: 45 4E 54 52 45 00 9F 0D AC 03 89 31 30 32 30 00 |ENTRE......1020.|
000009A0: AA 0D B6 03 81 58 B2 31 A4 34 00 BE 0D C0 03 8B |.....X.1.4......|
000009B0: 42 28 54 28 58 29 29 B1 30 A7 31 30 30 30 00 CA |B(T(X)).0.1000..|
000009C0: 0D CA 03 42 32 B2 54 28 58 29 00 D6 0D D4 03 42 |...B2.T(X).....B|
000009D0: 28 42 32 29 B2 33 00 E0 0D DE 03 89 31 30 38 30 |(B2).3......1080|
000009E0: 00 E7 0D E8 03 82 58 00 FC 0D ED 03 8F 20 20 43 |......X...... C|
000009F0: 45 4E 54 52 45 20 46 49 4C 4C 45 44 00 06 0E F2 |ENTRE FILLED....|
00000A00: 03 89 31 30 35 30 00 29 0E F7 03 8F 20 20 42 4F |..1050.).... BO|
00000A10: 54 48 20 42 4F 58 45 53 20 54 4F 20 42 45 20 50 |TH BOXES TO BE P|
00000A20: 4F 53 49 54 49 4F 4E 45 44 00 33 0E FC 03 8D 31 |OSITIONED.3....1|
00000A30: 36 31 30 00 3D 0E 06 04 42 31 B2 42 33 00 49 0E |610.=...B1.B3.I.|
00000A40: 10 04 42 28 42 31 29 B2 33 00 69 0E 15 04 8F 20 |..B(B1).3.i.... |
00000A50: 20 4F 4E 45 20 42 4F 58 20 54 4F 20 42 45 20 50 | ONE BOX TO BE P|
00000A60: 4F 53 49 54 49 4F 4E 45 44 00 73 0E 1A 04 8D 31 |OSITIONED.s....1|
00000A70: 36 31 30 00 7D 0E 24 04 42 32 B2 42 33 00 89 0E |610.}.$.B2.B3...|
00000A80: 2E 04 42 28 42 32 29 B2 33 00 AB 0E 38 04 99 22 |..B(B2).3...8.."|
00000A90: 49 20 4D 4F 56 45 20 42 4F 58 45 53 20 54 4F 20 |I MOVE BOXES TO |
00000AA0: 22 3B 42 31 3B 22 20 22 3B 42 32 00 B6 0E 39 04 |";B1;" ";B2...9.|
00000AB0: 81 58 B2 31 A4 34 00 C4 0E 3A 04 42 28 4F 28 58 |.X.1.4...:.B(O(X|
00000AC0: 29 29 B2 31 00 CB 0E 3B 04 82 58 00 D5 0E 3D 04 |)).1...;..X...=.|
00000AD0: 8D 32 32 37 30 00 EA 0E 42 04 8F 20 20 43 48 45 |.2270...B.. CHE|
00000AE0: 43 4B 20 46 4F 52 20 57 49 4E 00 F5 0E 4C 04 81 |CK FOR WIN...L..|
00000AF0: 58 B2 31 A4 34 00 03 0F 56 04 42 28 4F 28 58 29 |X.1.4...V.B(O(X)|
00000B00: 29 B2 30 00 0A 0F 60 04 82 58 00 14 0F 6A 04 8D |).0...`..X...j..|
00000B10: 31 34 32 30 00 1D 0F 74 04 46 31 B2 32 00 26 0F |1420...t.F1.2.&.|
00000B20: 7E 04 4E 31 B2 5A 00 30 0F 88 04 8D 31 38 30 30 |~.N1.Z.0....1800|
00000B30: 00 3F 0F 92 04 8B 4D 31 B2 30 A7 31 32 38 30 00 |.?....M1.0.1280.|
00000B40: 4A 0F 9C 04 81 58 B2 31 A4 34 00 58 0F A6 04 42 |J....X.1.4.X...B|
00000B50: 28 4F 28 58 29 29 B2 31 00 5F 0F B0 04 82 58 00 |(O(X)).1._....X.|
00000B60: 68 0F BA 04 89 32 34 30 00 81 0F C4 04 99 22 49 |h....240......"I|
00000B70: 4C 4C 45 47 41 4C 20 4D 4F 56 45 20 46 4F 52 20 |LLEGAL MOVE FOR |
00000B80: 4C 00 87 0F CE 04 99 00 90 0F D8 04 89 32 34 30 |L............240|
00000B90: 00 AC 0F E2 04 99 22 49 4C 4C 45 47 41 4C 20 4D |......"ILLEGAL M|
00000BA0: 4F 56 45 20 46 4F 52 20 42 4F 58 22 00 B2 0F EC |OVE FOR BOX"....|
00000BB0: 04 99 00 BB 0F F6 04 89 34 30 38 00 DA 0F 00 05 |........408.....|
00000BC0: 99 22 43 4F 4D 50 55 54 45 52 20 57 49 4E 53 21 |."COMPUTER WINS!|
00000BD0: 21 21 21 21 21 21 21 21 21 22 00 E4 0F 0A 05 89 |!!!!!!!!!"......|
00000BE0: 31 33 31 30 00 0C 10 14 05 99 22 43 4F 4E 47 52 |1310......"CONGR|
00000BF0: 41 54 55 4C 41 54 49 4F 4E 53 2C 20 59 4F 55 27 |ATULATIONS, YOU'|
00000C00: 56 45 20 57 4F 4E 21 21 21 21 21 22 00 12 10 1E |VE WON!!!!!"....|
00000C10: 05 99 00 25 10 28 05 99 22 50 4C 41 59 20 41 47 |...%.(.."PLAY AG|
00000C20: 41 49 4E 3F 22 00 39 10 2D 05 A1 41 24 3A 8B 41 |AIN?".9.-..A$:.A|
00000C30: 24 B2 22 22 A7 31 33 32 35 00 48 10 32 05 8B 41 |$."".1325.H.2..A|
00000C40: 24 B2 22 59 22 A7 37 30 00 52 10 3C 05 89 34 30 |$."Y".70.R.<..40|
00000C50: 30 30 00 6F 10 46 05 8F 20 20 2A 2A 2A 2A 2A 53 |00.o.F.. *****S|
00000C60: 55 42 52 4F 55 54 49 4E 45 53 2A 2A 2A 2A 2A 00 |UBROUTINES*****.|
00000C70: 81 10 50 05 8F 20 20 45 52 41 53 45 20 4E 28 58 |..P.. ERASE N(X|
00000C80: 29 00 8D 10 5A 05 81 58 B2 31 A4 31 36 00 98 10 |)...Z..X.1.16...|
00000C90: 64 05 4E 28 58 29 B2 30 00 9F 10 6E 05 82 58 00 |d.N(X).0...n..X.|
00000CA0: A5 10 78 05 8E 00 DB 10 82 05 8F 20 20 53 54 4F |..x........ STO|
00000CB0: 52 45 20 4C 4F 43 41 54 49 4F 4E 53 20 4F 46 20 |RE LOCATIONS OF |
00000CC0: 55 4E 4F 43 55 50 49 45 44 20 50 4F 53 49 54 49 |UNOCUPIED POSITI|
00000CD0: 4F 4E 53 20 49 4E 20 4E 28 58 29 00 E3 10 8C 05 |ONS IN N(X).....|
00000CE0: 5A B2 30 00 EF 10 96 05 81 58 B2 31 A4 31 36 00 |Z.0......X.1.16.|
00000CF0: 00 11 A0 05 8B 42 28 58 29 B1 30 A7 31 34 37 30 |.....B(X).0.1470|
00000D00: 00 0A 11 AA 05 5A B2 5A AA 31 00 15 11 B4 05 4E |.....Z.Z.1.....N|
00000D10: 28 5A 29 B2 58 00 1C 11 BE 05 82 58 00 22 11 C8 |(Z).X......X."..|
00000D20: 05 8E 00 44 11 D2 05 8F 20 54 48 49 53 20 53 55 |...D.... THIS SU|
00000D30: 42 52 4F 55 54 49 4E 45 20 52 45 54 55 52 4E 53 |BROUTINE RETURNS|
00000D40: 20 54 48 45 00 68 11 D3 05 8F 20 4C 4F 43 41 54 | THE.h.... LOCAT|
00000D50: 49 4F 4E 20 4F 46 20 54 48 45 20 4C 41 52 47 45 |ION OF THE LARGE|
00000D60: 53 54 20 56 41 4C 55 45 00 89 11 D4 05 8F 20 49 |ST VALUE...... I|
00000D70: 4E 20 4E 28 58 29 2E 20 49 46 20 41 20 54 49 45 |N N(X). IF A TIE|
00000D80: 20 45 58 49 53 54 53 20 41 00 A6 11 D7 05 8F 20 | EXISTS A...... |
00000D90: 52 41 4E 44 4F 4D 20 43 48 4F 49 53 45 20 49 53 |RANDOM CHOISE IS|
00000DA0: 20 4D 41 44 45 2E 00 AE 11 DC 05 59 B2 30 00 B6 | MADE......Y.0..|
00000DB0: 11 E6 05 5A B2 31 00 C4 11 F0 05 81 58 B2 31 A4 |...Z.1......X.1.|
00000DC0: 4D 31 AD 34 00 D5 11 FA 05 8B 4E 28 58 29 B3 59 |M1.4......N(X).Y|
00000DD0: A7 31 35 38 30 00 E6 11 04 06 8B 4E 28 58 29 B1 |.1580......N(X).|
00000DE0: 59 A7 31 35 36 30 00 F8 11 0E 06 8B BB 28 31 29 |Y.1560.......(1)|
00000DF0: B1 2E 35 A7 31 35 38 30 00 03 12 18 06 59 B2 4E |..5.1580.....Y.N|
00000E00: 28 58 29 00 0B 12 22 06 5A B2 58 00 12 12 2C 06 |(X)...".Z.X...,.|
00000E10: 82 58 00 18 12 36 06 8E 00 2F 12 40 06 8F 20 20 |.X...6.../.@.. |
00000E20: 20 20 20 20 20 42 4F 58 20 2D 20 46 49 4E 44 00 | BOX - FIND.|
00000E30: 55 12 41 06 8F 20 20 54 48 49 53 20 53 55 42 52 |U.A.. THIS SUBR|
00000E40: 4F 55 54 49 4E 45 20 46 49 4E 44 53 20 54 48 45 |OUTINE FINDS THE|
00000E50: 20 4D 4F 56 45 00 7B 12 42 06 8F 20 20 46 4F 52 | MOVE.{.B.. FOR|
00000E60: 20 54 48 45 20 42 4F 58 20 54 48 41 54 20 57 49 | THE BOX THAT WI|
00000E70: 4C 4C 20 4D 4F 53 54 20 52 45 2D 00 9D 12 43 06 |LL MOST RE-...C.|
00000E80: 8F 20 20 53 54 52 49 43 54 20 54 48 45 20 4F 50 |. STRICT THE OP|
00000E90: 50 4F 4E 45 4E 54 27 53 20 4C 20 49 4E 00 BC 12 |PONENT'S L IN...|
00000EA0: 44 06 8F 20 20 54 45 52 4D 53 20 4F 46 20 4D 4F |D.. TERMS OF MO|
00000EB0: 56 45 53 20 50 4F 53 53 49 42 4C 45 00 C7 12 4A |VES POSSIBLE...J|
00000EC0: 06 81 58 B2 31 A4 34 00 D5 12 54 06 42 28 4F 28 |..X.1.4...T.B(O(|
00000ED0: 58 29 29 B2 30 00 DC 12 5E 06 82 58 00 E6 12 68 |X)).0...^..X...h|
00000EE0: 06 8D 31 34 32 30 00 EF 12 72 06 46 31 B2 32 00 |..1420...r.F1.2.|
00000EF0: F8 12 7C 06 4E 31 B2 5A 00 02 13 86 06 8D 31 38 |..|.N1.Z......18|
00000F00: 30 30 00 0C 13 90 06 8D 31 33 37 30 00 18 13 9A |00......1370....|
00000F10: 06 81 58 B2 31 A4 4D 31 00 2E 13 A4 06 4E 28 4D |..X.1.M1.....N(M|
00000F20: 28 58 29 29 B2 4E 28 4D 28 58 29 29 AA 31 00 35 |(X)).N(M(X)).1.5|
00000F30: 13 AE 06 82 58 00 40 13 B8 06 81 58 B2 31 A4 34 |....X.@....X.1.4|
00000F40: 00 4E 13 C2 06 4E 28 4F 28 58 29 29 B2 30 00 55 |.N...N(O(X)).0.U|
00000F50: 13 CC 06 82 58 00 5F 13 D6 06 4D 31 B2 36 34 00 |....X._...M1.64.|
00000F60: 69 13 E0 06 8D 31 35 30 30 00 72 13 EA 06 42 33 |i....1500.r...B3|
00000F70: B2 5A 00 78 13 F4 06 8E 00 8D 13 FE 06 8F 20 20 |.Z.x.......... |
00000F80: 20 20 20 20 20 4C 20 2D 20 46 49 4E 44 00 B1 13 | L - FIND...|
00000F90: FF 06 8F 54 48 49 53 20 53 55 42 52 4F 55 54 49 |...THIS SUBROUTI|
00000FA0: 4E 45 20 43 41 4C 43 55 4C 41 54 45 53 20 41 4C |NE CALCULATES AL|
00000FB0: 4C 00 D4 13 00 07 8F 50 4F 53 53 49 42 4C 45 20 |L......POSSIBLE |
00000FC0: 4D 4F 56 45 53 20 46 4F 52 20 41 4E 20 4C 20 47 |MOVES FOR AN L G|
00000FD0: 49 56 45 4E 00 F8 13 01 07 8F 41 4C 4C 45 4D 50 |IVEN......ALLEMP|
00000FE0: 54 59 20 50 4F 53 49 54 49 4F 4E 53 20 49 4E 20 |TY POSITIONS IN |
00000FF0: 4E 28 58 29 2E 20 49 46 00 1B 14 02 07 8F 46 31 |N(X). IF......F1|
00001000: 3D 31 2C 20 54 48 45 20 43 55 52 52 45 4E 54 20 |=1, THE CURRENT |
00001010: 50 4F 53 49 54 49 4F 4E 20 4F 46 00 3D 14 03 07 |POSITION OF.=...|
00001020: 8F 54 48 45 20 43 4F 4D 50 55 54 45 52 27 53 20 |.THE COMPUTER'S |
00001030: 4C 20 49 53 20 4F 4D 49 54 54 45 44 2E 00 61 14 |L IS OMITTED..a.|
00001040: 04 07 8F 4F 54 48 45 52 57 49 53 45 2C 54 48 45 |...OTHERWISE,THE|
00001050: 20 43 55 52 52 45 4E 54 20 50 4F 53 49 54 49 4F | CURRENT POSITIO|
00001060: 4E 00 85 14 05 07 8F 4F 46 20 54 48 45 20 4F 50 |N......OF THE OP|
00001070: 50 4F 4E 45 4E 54 27 53 20 4C 20 49 53 20 4F 4D |PONENT'S L IS OM|
00001080: 49 54 54 45 44 00 A9 14 06 07 8F 4D 4F 56 45 53 |ITTED......MOVES|
00001090: 20 41 52 45 20 52 45 54 55 52 4E 45 44 20 49 4E | ARE RETURNED IN|
000010A0: 20 4D 28 58 29 2C 41 4E 44 00 C8 14 07 07 8F 4D | M(X),AND......M|
000010B0: 31 20 49 53 20 54 48 45 20 4C 45 4E 47 54 48 20 |1 IS THE LENGTH |
000010C0: 4F 46 20 4D 28 58 29 2E 00 D1 14 08 07 4D 31 B2 |OF M(X)......M1.|
000010D0: 30 00 D9 14 12 07 4A B2 34 00 E1 14 1C 07 4B B2 |0.....J.4.....K.|
000010E0: 31 00 EB 14 26 07 8D 31 38 38 30 00 F3 14 30 07 |1...&..1880...0.|
000010F0: 4A B2 31 00 FB 14 3A 07 4B B2 34 00 05 15 44 07 |J.1...:.K.4...D.|
00001100: 8D 31 38 38 30 00 0B 15 4E 07 8E 00 13 15 58 07 |.1880...N.....X.|
00001110: 50 B2 30 00 1D 15 62 07 50 B2 50 AA 31 00 2B 15 |P.0...b.P.P.1.+.|
00001120: 6C 07 41 28 31 29 B2 4E 28 50 29 00 33 15 76 07 |l.A(1).N(P).3.v.|
00001130: 58 B2 50 00 3D 15 80 07 58 B2 58 AA 31 00 4C 15 |X.P.=...X.X.1.L.|
00001140: 8A 07 8B 58 B1 4E 31 A7 32 30 35 30 00 63 15 94 |...X.N1.2050.c..|
00001150: 07 8B 4E 28 58 29 AB 41 28 31 29 B3 B1 4A A7 31 |..N(X).A(1)..J.1|
00001160: 39 32 30 00 71 15 9E 07 41 28 32 29 B2 4E 28 58 |920.q...A(2).N(X|
00001170: 29 00 7B 15 A8 07 58 B2 58 AA 31 00 8A 15 B2 07 |).{...X.X.1.....|
00001180: 8B 58 B1 4E 31 A7 32 30 35 30 00 A1 15 BC 07 8B |.X.N1.2050......|
00001190: 4E 28 58 29 AB 41 28 32 29 B3 B1 4A A7 31 39 36 |N(X).A(2)..J.196|
000011A0: 30 00 AF 15 C6 07 41 28 33 29 B2 4E 28 58 29 00 |0.....A(3).N(X).|
000011B0: BB 15 D0 07 81 45 B2 31 A4 4E 31 00 D4 15 DA 07 |.....E.1.N1.....|
000011C0: 8B B6 28 4E 28 45 29 AB 41 28 31 29 29 B2 4B A7 |..(N(E).A(1)).K.|
000011D0: 32 30 36 30 00 ED 15 E4 07 8B B6 28 4E 28 45 29 |2060.......(N(E)|
000011E0: AB 41 28 33 29 29 B2 4B A7 32 30 36 30 00 F4 15 |.A(3)).K.2060...|
000011F0: EE 07 82 45 00 FE 15 F8 07 89 31 38 39 30 00 0F |...E......1890..|
00001200: 16 02 08 8B 50 B3 4E 31 AB 32 A7 31 38 39 30 00 |....P.N1.2.1890.|
00001210: 15 16 07 08 8E 00 23 16 0C 08 41 28 34 29 B2 4E |......#...A(4).N|
00001220: 28 45 29 00 2E 16 16 08 81 46 B2 31 A4 34 00 4A |(E)......F.1.4.J|
00001230: 16 20 08 8B 41 28 46 29 AD 34 B3 B1 B5 28 41 28 |. ..A(F).4...(A(|
00001240: 46 29 AD 34 29 A7 32 31 33 30 00 55 16 2A 08 81 |F).4).2130.U.*..|
00001250: 47 B2 31 A4 34 00 6B 16 3E 08 8B 41 28 47 29 B2 |G.1.4.k.>..A(G).|
00001260: 41 28 46 29 AA 31 A7 32 30 33 30 00 72 16 48 08 |A(F).1.2030.r.H.|
00001270: 82 47 00 79 16 52 08 82 46 00 84 16 5C 08 81 59 |.G.y.R..F...\..Y|
00001280: B2 31 A4 34 00 93 16 66 08 8B 46 31 B2 31 A7 32 |.1.4...f..F1.1.2|
00001290: 31 39 30 00 A8 16 70 08 8B 41 28 59 29 B3 B1 4F |190...p..A(Y)..O|
000012A0: 28 59 29 A7 32 32 31 30 00 AF 16 7A 08 82 59 00 |(Y).2210...z..Y.|
000012B0: B9 16 84 08 89 32 30 33 30 00 CE 16 8E 08 8B 41 |.....2030......A|
000012C0: 28 59 29 B3 B1 43 28 59 29 A7 32 32 31 30 00 D8 |(Y)..C(Y).2210..|
000012D0: 16 98 08 89 32 31 37 30 00 E3 16 A2 08 81 59 B2 |....2170......Y.|
000012E0: 31 A4 34 00 F4 16 AC 08 4D 28 4D 31 AA 59 29 B2 |1.4.....M(M1.Y).|
000012F0: 41 28 59 29 00 FB 16 B6 08 82 59 00 07 17 C0 08 |A(Y)......Y.....|
00001300: 4D 31 B2 4D 31 AA 34 00 11 17 CA 08 89 32 30 33 |M1.M1.4......203|
00001310: 30 00 32 17 D4 08 8F 20 20 42 4F 41 52 44 20 50 |0.2.... BOARD P|
00001320: 52 49 4E 54 4F 55 54 20 53 55 42 52 4F 55 54 49 |RINTOUT SUBROUTI|
00001330: 4E 45 00 3B 17 DE 08 99 22 13 22 00 4A 17 E3 08 |NE.;....".".J...|
00001340: 8B 46 32 B2 31 A7 32 35 33 30 00 58 17 E8 08 81 |.F2.1.2530.X....|
00001350: 45 B2 31 A4 31 33 A9 34 00 63 17 F2 08 81 51 B2 |E.1.13.4.c....Q.|
00001360: 31 A4 33 00 70 17 FC 08 81 47 B2 45 A4 45 AA 33 |1.3.p....G.E.E.3|
00001370: 00 90 17 06 09 91 42 28 47 29 AA 31 89 32 33 32 |......B(G).1.232|
00001380: 30 2C 32 34 31 30 2C 32 34 33 30 2C 32 34 35 30 |0,2410,2430,2450|
00001390: 00 9E 17 10 09 8B 51 B2 32 A7 32 33 35 30 00 AB |......Q.2.2350..|
000013A0: 17 1A 09 99 22 DB C0 C0 DB 22 3B 00 B5 17 24 09 |...."....";...$.|
000013B0: 89 32 34 39 30 00 BF 17 2E 09 99 22 DD 22 3B 00 |.2490......".";.|
000013C0: CD 17 38 09 8B 47 B1 39 A7 32 33 39 30 00 E3 17 |..8..G.9.2390...|
000013D0: 42 09 99 22 20 22 3B C7 28 34 38 AA 47 29 3B 22 |B.." ";.(48.G);"|
000013E0: DD 22 3B 00 ED 17 4C 09 89 32 34 39 30 00 03 18 |.";...L..2490...|
000013F0: 56 09 99 22 31 22 3B C7 28 33 38 AA 47 29 3B 22 |V.."1";.(38.G);"|
00001400: DD 22 3B 00 0D 18 60 09 89 32 34 39 30 00 1A 18 |.";...`..2490...|
00001410: 6A 09 99 22 D7 D7 D7 D7 22 3B 00 24 18 74 09 89 |j.."....";.$.t..|
00001420: 32 34 39 30 00 31 18 7E 09 99 22 D1 D1 D1 D1 22 |2490.1.~.."...."|
00001430: 3B 00 3B 18 88 09 89 32 34 39 30 00 49 18 92 09 |;.;....2490.I...|
00001440: 8B 51 B2 32 A7 32 34 38 30 00 56 18 9C 09 99 22 |.Q.2.2480.V...."|
00001450: 2A 2A 2A 2A 22 3B 00 60 18 A6 09 89 32 34 39 30 |****";.`....2490|
00001460: 00 6D 18 B0 09 99 22 2A 20 20 2A 22 3B 00 74 18 |.m...."* *";.t.|
00001470: BA 09 82 47 00 7A 18 C4 09 99 00 81 18 CE 09 82 |...G.z..........|
00001480: 51 00 88 18 D8 09 82 45 00 8E 18 E2 09 99 00 94 |Q......E........|
00001490: 18 EC 09 8E 00 9A 18 A0 0F 80 00 00 00 |............. |
.......".". .....16)"*.L-GAME.*".>.....1
1)"CREATIVE COMPUTING"._.....9)"MORRISTO
WN, NEW JERSEY".I....:.:.......C(4),O(4)
,T(4),B(16),N(16),M(100)...(.."BOARD PRI
NTOUT";...-..A$.C.2..H(A$,1)."N".65.L.7.
F2.0.T.<..70...A.F2.1...F..100...P..210.
..D.. INITIALIZE DATA.%.E.. B1,B2 =P
OSITION BOXES.I.F.. C(1,2,3,4)=COMPUTERS
POSITION.M.G.. O(1,2,3,4)=OPPONENTS POS
ITION...H.. T(1,2,3,4)=CENTER POSITIONS.
..I.. B(1....16)=BOARD:.F.J..
B(X)=0 EMPTY...K.. B(X)=1
OPPONENTS L...L.. B(X)=2 COM
PUTERS L./.M.. B(X)=3 BOXES.
5.S...].X..1,16,2,7,6,6,11,7,10,15,10,3,
14,11......3,2,2,0,0,2,1,0,0,2,1,0,0,1,1
,3......B1,B2......X.1.4... ..C(X),O(X),
T(X)......X......X.1.16.I....B(X).P.H..X
.V.M.....R.."DO YOU WISH TO START";...W.
.A$...Y..".". ....H(A$,1)."N"..2270:.500
.7.... OPPONENT'S MOVE.A....2270.M....Q
W.1.8.{...."
"......QW......"........".....
."YOUR MOVE FOR L";.D....D(1),D(2),D(3),
D(4).......(D(1))..(D(2))..(D(3))..(D(4)
).0.1280...... BUBBLE SORT......X.1.4.
.....Y.2.4./....D(Y).D(Y.1).295.:...Z.D(
Y).J...D(Y).D(Y.1).W.".D(Y.1).Z.^.'..Y.E
.,..X.}.1.. CHECK LEGABILITY...6..X.1.4
...;.N(X).D(X)...@..X...E.N1.4...J.F1.0.
..O..1800.I.T..M1..4.1220.T.Y..X.1.4...^
..B(M(X)).1.1220...C..X...H..X.1.4...M.B
(O(X)).0...R..X...W..X.1.4.(.|.B(M(X)).1
.6...O(X).M(X).=....X.I...B(B1).0.U...B(
B2).0.U...."YOUR MOVE FOR THE BOXES";.~.
...X,Y.......(X)..(Y)..X.Y.1250... ..X.Y
.1250......B(X).B(Y).0.1250.D...B1.X.M..
.B2.Y.Y.B.B(B1).3...L.B(B2).3...V.."....
............................O.K."......2
270.2.... COMPUTER'S MOVE.R.... REMOVE
C(1-4) FROM BOARD.]....X.1.4.K...B(C(X)
).0.R....X.|....1420.....F1.1...&.N1.Z..
.0..1800...:..M1.0.1300.R.D.. FIND MOVE
WITH BEST CENTRE COVERAGE...I..1370...N
..E.0.M1.4.4...X..F.1.4...B..G.1.4...L..
M(E.F)..T(G).640.0.V.N(E.4.1).N(E.4.1).1
.7....G.>....F.E....E.O....1500.I.... P
UT MOVE IN C(1-4).W...Y.(Z.1).4......X.1
.4...F.C(X).M(X.Y). .P.B(C(X)).2...Z..X.
.....QW.1.8......"
"......QW......"........
".'...."COMPUTER MOVES TO:";C(1);C(2);C(
3);C(4).C.... FIND MOVES FOR BOXES.B...
. REMOVE BOXES FROM BOARD.N...B(B1).0.Z
...B(B2).0...... IS OPPONENT IN CORNER?
... ..I.1.4...*..J.1.4.A.4..O(I).T(J).87
0.H.>..J.O.H..I...M.. OPPONENT IN CORNE
R; IGNORE CENTRE...R..1020.4.\.. OPPONE
NT IN CORNER; FILL CENTRE WITH BOXES.?.F
..X.1.4.R.P..B(T(X)).0.920.^.Z.B1.T(X).J
...B(B1).3.S....950.Z....X...... NO SPA
CES IN CENTRE......1020......X.1.4......
B(T(X)).0.1000.J.J.B2.T(X).V.T.B(B2).3..
....1080......X...... CENTRE FILLED....
..1050.).... BOTH BOXES TO BE POSITIONE
D.3....1610.=...B1.B3.I...B(B1).3.I....
ONE BOX TO BE POSITIONED.S....1610.}.$.
B2.B3.....B(B2).3...8.."I MOVE BOXES TO
";B1;" ";B2...9..X.1.4.D.:.B(O(X)).1.K.;
..X.U.=..2270...B.. CHECK FOR WIN...L..
X.1.4...V.B(O(X)).0...`..X...J..1420...T
.F1.2.&.~.N1.Z.0....1800.?....M1.0.1280.
J....X.1.4.X...B(O(X)).1._....X.H....240
...D.."ILLEGAL MOVE FOR L...N.....X..240
......"ILLEGAL MOVE FOR BOX"............
408.Z...."COMPUTER WINS!!!!!!!!!!"......
1310......"CONGRATULATIONS, YOU'VE WON!!
!!!".......%.(.."PLAY AGAIN?".9.-..A$:.A
$."".1325.H.2..A$."Y".70.R.<..4000.O.F..
*****SUBROUTINES*****...P.. ERASE N(X
)...Z..X.1.16...D.N(X).0...N..X...X.....
... STORE LOCATIONS OF UNOCUPIED POSITI
ONS IN N(X).....Z.0......X.1.16... ..B(X
).0.1470.....Z.Z.1.....N(Z).X......X.".H
...D.R.. THIS SUBROUTINE RETURNS THE.H.S
.. LOCATION OF THE LARGEST VALUE...T.. I
N N(X). IF A TIE EXISTS A...W.. RANDOM C
HOISE IS MADE......Y.0.....Z.1.D....X.1.
M1.4.U....N(X).Y.1580......N(X).Y.1560..
.....(1)..5.1580.....Y.N(X)...".Z.X...,.
.X...6.../.@.. BOX - FIND.U.A.. T
HIS SUBROUTINE FINDS THE MOVE.{.B.. FOR
THE BOX THAT WILL MOST RE-...C.. STRIC
T THE OPPONENT'S L IN...D.. TERMS OF MO
VES POSSIBLE.G.J..X.1.4.U.T.B(O(X)).0...
^..X...H..1420...R.F1.2...|.N1.Z......18
00......1370......X.1.M1.....N(M(X)).N(M
(X)).1.5....X.@....X.1.4.N.B.N(O(X)).0.U
.L..X._.V.M1.64.I....1500.R...B3.Z.X....
...... L - FIND......THIS SUBROUTI
NE CALCULATES ALL.T....POSSIBLE MOVES FO
R AN L GIVEN......ALLEMPTY POSITIONS IN
N(X). IF......F1=1, THE CURRENT POSITION
OF.=....THE COMPUTER'S L IS OMITTED..A.
...OTHERWISE,THE CURRENT POSITION......O
F THE OPPONENT'S L IS OMITTED......MOVES
ARE RETURNED IN M(X),AND.H....M1 IS THE
LENGTH OF M(X)..Q...M1.0.Y...J.4.....K.
1...&..1880...0.J.1...:.K.4...D..1880...
N.....X.P.0...B.P.P.1.+.L.A(1).N(P).3.V.
X.P.=...X.X.1.L....X.N1.2050.C....N(X).A
(1)..J.1920.Q...A(2).N(X).{...X.X.1.....
.X.N1.2050......N(X).A(2)..J.1960...F.A(
3).N(X)...P..E.1.N1.T.Z...(N(E).A(1)).K.
2060.......(N(E).A(3)).K.2060......E....
..1890......P.N1.2.1890.......#...A(4).N
(E)......F.1.4.J. ..A(F).4...(A(F).4).21
30.U.*..G.1.4.K.>..A(G).A(F).1.2030.R.H.
.G.Y.R..F...\..Y.1.4...F..F1.1.2190...P.
.A(Y)..O(Y).2210...Z..Y......2030.N....A
(Y)..C(Y).2210.X....2170......Y.1.4.....
M(M1.Y).A(Y)......Y.....M1.M1.4...J..203
0.2.T.. BOARD PRINTOUT SUBROUTINE.;....
".".J....F2.1.2530.X....E.1.13.4.C....Q.
1.3.P....G.E.E.3......B(G).1.2320,2410,2
430,2450......Q.2.2350......"....";...$.
.2490......".";.M.8..G.9.2390...B.." ";G
(48.G);".";...L..2490...V.."1";G(38.G);"
.";...`..2490...J.."WWWW";.$.T..2490.1.~
.."QQQQ";.;....2490.I....Q.2.2480.V...."
****";.`....2490.M...."* *";.T....G.Z.D
.....N..Q...X..E............... .....
> CLICK IMAGE PREVIEW FOR FULL MODAL