KALAH
FILE INFORMATION
FILENAME(S): KALAH
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-30 21:07:11
APPEARS ON: 1 disk(s)
FILE HASH
38056dd65965f4206087698bf52c03556dba21307b4740e28ad0efbd5c1b741f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CURSOR 6 | KALAH | PRG | DuncanTwain | 22 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 23 04 00 00 9C 3A 50 47 24 B2 22 4B 41 4C |..#....:PG$."KAL| 00000010: 41 48 22 3A 4E 4D 24 B2 22 32 32 22 3A 89 36 32 |AH":NM$."22":.62| 00000020: 30 30 30 00 38 04 01 00 22 20 44 41 4C 45 20 53 |000.8..." DALE S| 00000030: 2E 20 43 4F 4F 50 45 52 00 4E 04 02 00 22 20 31 |. COOPER.N..." 1| 00000040: 30 33 20 42 41 59 56 49 45 57 20 53 54 2E 00 72 |03 BAYVIEW ST..r| 00000050: 04 03 00 22 20 53 43 48 52 45 49 42 45 52 2C 4F |..." SCHREIBER,O| 00000060: 4E 54 2E 2C 43 41 4E 41 44 41 2C 50 30 54 20 32 |NT.,CANADA,P0T 2| 00000070: 53 30 00 78 04 04 00 22 00 96 04 05 00 22 20 43 |S0.x..."....." C| 00000080: 55 52 53 4F 52 20 23 32 32 2C 20 53 45 50 54 2E |URSOR #22, SEPT.| 00000090: 2C 20 31 39 38 30 00 BC 04 06 00 22 20 43 4F 50 |, 1980....." COP| 000000A0: 59 52 49 47 48 54 28 43 29 31 39 38 30 20 54 48 |YRIGHT(C)1980 TH| 000000B0: 45 20 43 4F 44 45 20 57 4F 52 4B 53 00 DD 04 07 |E CODE WORKS....| 000000C0: 00 22 20 42 4F 58 20 35 35 30 2C 20 47 4F 4C 45 |." BOX 550, GOLE| 000000D0: 54 41 2C 20 43 41 2E 20 39 33 30 31 37 00 E3 04 |TA, CA. 93017...| 000000E0: 08 00 22 00 F9 04 0A 00 22 20 41 53 20 4F 46 20 |.."....." AS OF | 000000F0: 30 38 20 4F 43 54 20 38 30 00 47 05 64 00 44 4E |08 OCT 80.G.d.DN| 00000100: 24 B2 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |$.".............| 00000110: 11 11 11 11 11 11 11 11 22 3A 42 4C 24 B2 22 20 |........":BL$." | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000140: 20 20 20 20 20 20 22 00 6D 05 AA 00 86 50 54 28 | ".m....PT(| 00000150: 31 34 29 2C 43 54 28 31 32 29 2C 48 54 28 31 32 |14),CT(12),HT(12| 00000160: 29 2C 4B 4C 28 32 29 2C 54 42 28 32 29 00 9C 05 |),KL(2),TB(2)...| 00000170: B4 00 99 22 11 57 41 4E 54 20 54 4F 20 50 4C 41 |...".WANT TO PLA| 00000180: 59 20 41 47 41 49 4E 53 54 20 54 48 45 20 50 45 |Y AGAINST THE PE| 00000190: 54 3F 20 22 3B 3A 8D 36 30 30 30 30 00 B8 05 B9 |T? ";:.60000....| 000001A0: 00 8B C8 28 49 4E 24 2C 31 29 B2 22 4E 22 A7 43 |...(IN$,1)."N".C| 000001B0: 48 B2 30 3A 89 32 32 30 00 F3 05 BE 00 50 4C 24 |H.0:.220.....PL$| 000001C0: 28 32 29 B2 22 50 45 54 22 3A 99 22 11 57 48 41 |(2)."PET":.".WHA| 000001D0: 54 27 53 20 59 4F 55 52 20 4E 41 4D 45 3F 20 22 |T'S YOUR NAME? "| 000001E0: 3B 3A 8D 36 30 30 30 30 3A 50 4C 24 28 31 29 B2 |;:.60000:PL$(1).| 000001F0: 49 4E 24 00 0E 06 C8 00 8B 49 4E 24 B2 22 22 A7 |IN$......IN$."".| 00000200: 50 4C 24 28 31 29 B2 22 48 55 4D 41 4E 22 00 1C |PL$(1)."HUMAN"..| 00000210: 06 D2 00 43 48 B2 31 3A 89 32 36 30 00 3F 06 DC |...CH.1:.260.?..| 00000220: 00 99 22 11 50 4C 41 59 45 52 20 23 31 27 53 20 |..".PLAYER #1'S | 00000230: 4E 41 4D 45 3F 20 22 3B 3A 8D 36 30 30 30 30 00 |NAME? ";:.60000.| 00000240: 6C 06 E6 00 50 4C 24 28 31 29 B2 49 4E 24 3A 8B |l...PL$(1).IN$:.| 00000250: 49 4E 24 B2 22 22 A7 50 4C 24 28 31 29 B2 22 46 |IN$."".PL$(1)."F| 00000260: 49 52 53 54 20 50 4C 41 59 45 52 22 00 8F 06 F0 |IRST PLAYER"....| 00000270: 00 99 22 11 50 4C 41 59 45 52 20 23 32 27 53 20 |..".PLAYER #2'S | 00000280: 4E 41 4D 45 3F 20 22 3B 3A 8D 36 30 30 30 30 00 |NAME? ";:.60000.| 00000290: BD 06 FA 00 50 4C 24 28 32 29 B2 49 4E 24 3A 8B |....PL$(2).IN$:.| 000002A0: 49 4E 24 B2 22 22 A7 50 4C 24 28 32 29 B2 22 53 |IN$."".PL$(2)."S| 000002B0: 45 43 4F 4E 44 20 50 4C 41 59 45 52 22 00 D9 06 |ECOND PLAYER"...| 000002C0: 04 01 54 42 28 31 29 B2 B5 28 32 30 AB C3 28 50 |..TB(1)..(20..(P| 000002D0: 4C 24 28 31 29 29 AD 32 29 00 F5 06 09 01 54 42 |L$(1)).2).....TB| 000002E0: 28 32 29 B2 B5 28 32 30 AB C3 28 50 4C 24 28 32 |(2)..(20..(PL$(2| 000002F0: 29 29 AD 32 29 00 1F 07 0E 01 99 22 11 48 4F 57 |)).2)......".HOW| 00000300: 20 4D 41 4E 59 20 53 54 4F 4E 45 53 20 50 45 52 | MANY STONES PER| 00000310: 20 50 49 54 3F 20 22 3B 3A 8D 36 30 30 30 30 00 | PIT? ";:.60000.| 00000320: 5E 07 11 01 8B 49 4E 24 B2 22 22 A7 99 22 11 46 |^....IN$.""..".F| 00000330: 49 56 45 20 49 53 20 54 48 45 20 55 53 55 41 4C |IVE IS THE USUAL| 00000340: 20 4E 55 4D 42 45 52 2E 22 3A 49 4E 24 B2 22 35 | NUMBER.":IN$."5| 00000350: 22 3A 81 49 B2 31 A4 31 30 30 30 3A 82 49 00 7E |":.I.1.1000:.I.~| 00000360: 07 13 01 4E 50 B2 C5 28 49 4E 24 29 3A 8B 4E 50 |...NP..(IN$):.NP| 00000370: B2 30 A7 99 22 91 91 22 3B 3A 89 32 37 30 00 A1 |.0.."..";:.270..| 00000380: 07 18 01 8B 4E 50 B1 38 30 A7 99 22 11 38 30 20 |....NP.80..".80 | 00000390: 49 53 20 4D 41 58 49 4D 55 4D 2E 22 3A 89 32 36 |IS MAXIMUM.":.26| 000003A0: 30 00 B6 07 22 01 4B 4C 28 31 29 B2 37 3A 4B 4C |0...".KL(1).7:KL| 000003B0: 28 32 29 B2 31 34 00 E7 07 2C 01 81 50 54 B2 31 |(2).14...,..PT.1| 000003C0: A4 31 34 3A 50 54 28 50 54 29 B2 4E 50 3A 82 3A |.14:PT(PT).NP:.:| 000003D0: 50 54 28 4B 4C 28 31 29 29 B2 30 3A 50 54 28 4B |PT(KL(1)).0:PT(K| 000003E0: 4C 28 32 29 29 B2 30 00 14 08 36 01 8D 38 32 30 |L(2)).0...6..820| 000003F0: 3A 4E 50 B2 33 30 3A 50 54 B2 4B 4C 28 31 29 3A |:NP.30:PT.KL(1):| 00000400: 8D 32 30 30 30 3A 50 54 B2 4B 4C 28 32 29 3A 8D |.2000:PT.KL(2):.| 00000410: 32 30 30 30 00 38 08 40 01 81 49 B2 31 A4 38 A9 |2000.8.@..I.1.8.| 00000420: 37 3A 81 50 54 B2 49 A4 49 AA 35 3A 8D 32 30 30 |7:.PT.I.I.5:.200| 00000430: 30 3A 82 50 54 3A 82 49 00 41 08 4A 01 50 4C B2 |0:.PT:.I.A.J.PL.| 00000440: 31 00 53 08 54 01 52 56 24 B2 22 12 22 3A 8D 31 |1.S.T.RV$.".":.1| 00000450: 38 30 30 00 66 08 5E 01 8B 43 48 B2 30 B0 50 4C |800.f.^..CH.0.PL| 00000460: B2 31 A7 33 38 30 00 7F 08 72 01 8D 31 30 31 30 |.1.380...r..1010| 00000470: 3A 50 54 B2 50 54 AA 31 3A 99 22 92 D6 D6 22 00 |:PT.PT.1:."...".| 00000480: C3 08 77 01 99 44 4E 24 3B 42 4C 24 3B 22 91 22 |..w..DN$;BL$;"."| 00000490: 3A 99 22 49 20 43 48 4F 53 45 20 50 49 54 22 31 |:."I CHOSE PIT"1| 000004A0: 34 AB 50 54 22 9D 2C 20 48 4F 4C 44 49 4E 47 22 |4.PT"., HOLDING"| 000004B0: 3B 50 54 28 50 54 29 3B 22 9D 2E 20 20 22 3A 89 |;PT(PT);".. ":.| 000004C0: 34 31 30 00 DC 08 7C 01 99 44 4E 24 3B 22 11 57 |410...|..DN$;".W| 000004D0: 48 49 43 48 20 50 49 54 3F 20 22 3B 00 FF 08 7D |HICH PIT? ";...}| 000004E0: 01 8D 36 30 30 30 30 3A 8B C8 28 49 4E 24 2C 31 |..60000:..(IN$,1| 000004F0: 29 B2 22 51 22 A7 99 22 93 22 3A 89 37 37 30 00 |)."Q"..".":.770.| 00000500: 1C 09 81 01 50 54 B2 C5 28 49 4E 24 29 3A 8B 50 |....PT..(IN$):.P| 00000510: 54 B3 31 B0 50 54 B1 36 A7 33 35 30 00 2F 09 86 |T.1.PT.6.350./..| 00000520: 01 8B 50 4C B2 32 A7 50 54 B2 31 34 AB 50 54 00 |..PL.2.PT.14.PT.| 00000530: 41 09 90 01 8B 50 54 28 50 54 29 B2 30 A7 33 35 |A....PT(PT).0.35| 00000540: 30 00 52 09 9A 01 99 44 4E 24 3B 22 11 22 3B 42 |0.R....DN$;".";B| 00000550: 4C 24 00 5C 09 9F 01 8D 31 35 33 30 00 6F 09 A4 |L$.\....1530.o..| 00000560: 01 8B 50 31 B2 30 B0 50 32 B2 30 A7 36 37 30 00 |..P1.0.P2.0.670.| 00000570: A6 09 AE 01 8B 50 54 B3 B1 4B 4C 28 50 4C 29 A7 |.....PT..KL(PL).| 00000580: 52 56 24 B2 22 22 3A 8D 31 38 30 30 3A 50 4C B2 |RV$."":.1800:PL.| 00000590: 33 AB 50 4C 3A 8B 43 48 AF 50 4C B2 32 A7 99 44 |3.PL:.CH.PL.2..D| 000005A0: 4E 24 3B 42 4C 24 00 D9 09 B8 01 8B 50 54 B2 4B |N$;BL$......PT.K| 000005B0: 4C 28 50 4C 29 AF 50 4C B2 32 AF 43 48 A7 99 44 |L(PL).PL.2.CH..D| 000005C0: 4E 24 3B 22 11 49 20 47 45 54 20 41 4E 4F 54 48 |N$;".I GET ANOTH| 000005D0: 45 52 20 4D 4F 56 45 2E 22 00 E2 09 EA 01 89 33 |ER MOVE."......3| 000005E0: 34 30 00 F4 09 9E 02 99 44 4E 24 3B 42 4C 24 3A |40......DN$;BL$:| 000005F0: 99 42 4C 24 00 08 0A A8 02 50 54 B2 31 3A 50 4C |.BL$.....PT.1:PL| 00000600: B2 31 3A 4E 50 B2 33 35 00 2A 0A B2 02 81 50 4C |.1:NP.35.*....PL| 00000610: B2 31 A4 32 3A 5A B2 28 50 4C AB 31 29 AC 37 AA |.1.2:Z.(PL.1).7.| 00000620: 31 3A 4B B2 4B 4C 28 50 4C 29 00 46 0A BC 02 81 |1:K.KL(PL).F....| 00000630: 50 54 B2 5A A4 5A AA 35 3A 8B 50 54 28 50 54 29 |PT.Z.Z.5:.PT(PT)| 00000640: B2 30 A7 37 31 30 00 72 0A C1 02 50 54 28 4B 29 |.0.710.r...PT(K)| 00000650: B2 50 54 28 4B 29 AA 50 54 28 50 54 29 3A 50 54 |.PT(K).PT(PT):PT| 00000660: 28 50 54 29 B2 30 3A 8D 32 30 30 30 3A 8D 31 39 |(PT).0:.2000:.19| 00000670: 30 30 00 7E 0A C6 02 82 50 54 3A 82 50 4C 00 AF |00.~....PT:.PL..| 00000680: 0A D0 02 8B 50 54 28 4B 4C 28 31 29 29 B2 50 54 |....PT(KL(1)).PT| 00000690: 28 4B 4C 28 32 29 29 A7 99 44 4E 24 3B 22 12 54 |(KL(2))..DN$;".T| 000006A0: 49 45 20 47 41 4D 45 21 92 22 3A 89 37 35 30 00 |IE GAME!.":.750.| 000006B0: D2 0A DA 02 50 4C B2 31 3A 8B 50 54 28 4B 4C 28 |....PL.1:.PT(KL(| 000006C0: 32 29 29 B1 50 54 28 4B 4C 28 31 29 29 A7 50 4C |2)).PT(KL(1)).PL| 000006D0: B2 32 00 F4 0A E4 02 99 44 4E 24 3B 22 57 49 4E |.2......DN$;"WIN| 000006E0: 4E 45 52 3A 20 20 12 22 3B 50 4C 24 28 50 4C 29 |NER: .";PL$(PL)| 000006F0: 3B 22 92 22 00 0F 0B EE 02 99 22 11 43 55 52 52 |;"."......".CURR| 00000700: 45 4E 54 20 53 54 41 4E 44 49 4E 47 53 3A 22 00 |ENT STANDINGS:".| 00000710: 4A 0B F8 02 81 49 B2 31 A4 32 3A 53 43 28 49 29 |J....I.1.2:SC(I)| 00000720: B2 53 43 28 49 29 AA 50 54 28 4B 4C 28 49 29 29 |.SC(I).PT(KL(I))| 00000730: 3A 99 22 20 20 20 22 3B 50 4C 24 28 49 29 3B 22 |:." ";PL$(I);"| 00000740: 3A 22 3B 53 43 28 49 29 3A 82 00 77 0B 02 03 99 |:";SC(I):..w....| 00000750: 22 11 50 4C 41 59 20 41 47 41 49 4E 3F 20 22 3B |".PLAY AGAIN? ";| 00000760: 3A 8D 36 30 30 30 30 3A 8B C8 28 49 4E 24 2C 31 |:.60000:..(IN$,1| 00000770: 29 B2 22 4E 22 A7 80 00 AA 0B 0C 03 99 22 93 11 |)."N"........"..| 00000780: 11 53 41 4D 45 20 50 4C 41 59 45 52 53 3F 20 22 |.SAME PLAYERS? "| 00000790: 3B 3A 8D 36 30 30 30 30 3A 8B C8 28 49 4E 24 2C |;:.60000:..(IN$,| 000007A0: 31 29 B2 22 4E 22 A7 31 38 30 00 CA 0B 16 03 4E |1)."N".180.....N| 000007B0: 50 B2 28 50 54 28 4B 4C 28 31 29 29 AA 50 54 28 |P.(PT(KL(1)).PT(| 000007C0: 4B 4C 28 32 29 29 29 AD 31 32 00 08 0C 20 03 99 |KL(2))).12... ..| 000007D0: 22 11 53 54 49 4C 4C 22 3B 4E 50 3B 22 53 54 4F |".STILL";NP;"STO| 000007E0: 4E 45 53 20 50 45 52 20 50 49 54 3F 20 22 3B 3A |NES PER PIT? ";:| 000007F0: 8D 36 30 30 30 30 3A 8B C8 28 49 4E 24 2C 31 29 |.60000:..(IN$,1)| 00000800: B2 22 4E 22 A7 32 36 30 00 11 0C 2A 03 89 32 39 |."N".260...*..29| 00000810: 30 00 3C 0C 34 03 52 24 B2 22 20 20 20 20 20 20 |0.<.4.R$." | 00000820: 20 31 20 20 20 20 32 20 20 20 20 33 20 20 20 20 | 1 2 3 | 00000830: 34 20 20 20 20 35 20 20 20 20 36 22 00 4B 0C 37 |4 5 6".K.7| 00000840: 03 99 22 93 11 11 11 22 3B 52 24 00 7D 0C 3E 03 |.."....";R$.}.>.| 00000850: 54 24 B2 22 D5 C0 C0 C0 C9 22 3A 42 24 B2 22 CA |T$.".....":B$.".| 00000860: C0 C0 C0 CB 22 3A 50 24 B2 22 20 20 20 AB B3 22 |....":P$." .."| 00000870: 3A 4B 24 B2 22 DD 20 20 DD 9D 94 20 22 00 9E 0C |:K$.". ... "...| 00000880: 41 03 99 22 D5 C0 C0 C0 C9 22 54 24 54 24 54 24 |A.."....."T$T$T$| 00000890: 54 24 54 24 54 24 22 D5 C0 C0 C9 9D 94 C0 00 C6 |T$T$T$".........| 000008A0: 0C 44 03 81 49 B2 31 A4 33 3A 99 22 DD 22 50 24 |.D..I.1.3:."."P$| 000008B0: 50 24 50 24 50 24 50 24 50 24 3B 22 20 20 20 DD |P$P$P$P$P$;" .| 000008C0: 22 4B 24 3A 82 49 00 DF 0C 48 03 99 4B 24 22 1D |"K$:.I...H..K$".| 000008D0: 22 42 24 42 24 42 24 42 24 42 24 42 24 4B 24 00 |"B$B$B$B$B$B$K$.| 000008E0: ED 0C 4B 03 99 4B 24 A3 33 35 29 4B 24 00 06 0D |..K..K$.35)K$...| 000008F0: 4E 03 99 4B 24 22 1D 22 54 24 54 24 54 24 54 24 |N..K$"."T$T$T$T$| 00000900: 54 24 54 24 4B 24 00 2F 0D 52 03 81 49 B2 31 A4 |T$T$K$./.R..I.1.| 00000910: 33 3A 99 4B 24 22 1D DD 22 50 24 50 24 50 24 50 |3:.K$".."P$P$P$P| 00000920: 24 50 24 50 24 22 20 20 DD 9D 94 22 3A 82 49 00 |$P$P$" ...":.I.| 00000930: 50 0D 55 03 99 22 CA C0 C0 C0 CB 22 42 24 42 24 |P.U.."....."B$B$| 00000940: 42 24 42 24 42 24 42 24 22 CA C0 C0 CB 9D 94 C0 |B$B$B$B$".......| 00000950: 00 58 0D 58 03 99 52 24 00 79 0D 5C 03 52 56 24 |.X.X..R$.y.\.RV$| 00000960: B2 22 22 3A 81 20 50 4C B2 31 20 A4 20 32 3A 8D |."":. PL.1 . 2:.| 00000970: 31 38 30 30 3A 82 20 50 4C 00 7F 0D 5F 03 8E 00 |1800:. PL..._...| 00000980: 99 0D F2 03 50 54 B2 31 32 3A 53 43 B2 AB 31 30 |....PT.12:SC..10| 00000990: 30 30 30 30 3A 53 57 B2 31 00 AE 0D F7 03 99 C8 |0000:SW.1.......| 000009A0: 28 44 4E 24 2C 31 30 29 3B A3 31 39 29 3B 00 E0 |(DN$,10);.19);..| 000009B0: 0D FC 03 8D 31 32 31 30 3A 8B 43 54 28 50 54 29 |....1210:.CT(PT)| 000009C0: AB 31 33 AA 50 54 B2 31 33 AC B5 28 28 43 54 28 |.13.PT.13..((CT(| 000009D0: 50 54 29 AB 31 33 AA 50 54 29 AD 31 33 29 A7 8E |PT).13.PT).13)..| 000009E0: 00 F7 0D 06 04 50 54 B2 50 54 AB 31 3A 8B 50 54 |.....PT.PT.1:.PT| 000009F0: B1 36 A7 31 30 32 30 00 05 0E 10 04 43 50 B2 37 |.6.1020.....CP.7| 00000A00: 3A 50 54 B2 37 00 1B 0E 1A 04 43 54 B2 43 50 3A |:PT.7.....CT.CP:| 00000A10: 8D 31 32 31 30 3A 8D 31 32 39 30 00 37 0E 24 04 |.1210:.1290.7.$.| 00000A20: 91 43 44 89 31 32 36 30 2C 31 30 37 30 2C 31 31 |.CD.1260,1070,11| 00000A30: 38 30 2C 31 31 38 30 00 53 0E 2E 04 50 4C B2 31 |80,1180.S...PL.1| 00000A40: 3A 48 50 B2 31 3A 54 36 B2 AB 31 30 30 30 30 3A |:HP.1:T6..10000:| 00000A50: 57 B2 31 00 5B 0E 38 04 49 B2 36 00 90 0E 42 04 |W.1.[.8.I.6...B.| 00000A60: 8B 43 54 28 49 29 AB 37 AA 49 B2 B5 28 28 43 54 |.CT(I).7.I..((CT| 00000A70: 28 49 29 AB 37 AA 49 29 AD 31 33 29 AC 31 33 A7 |(I).7.I).13).13.| 00000A80: 43 54 B2 49 3A 8D 31 32 39 30 3A 89 31 30 38 30 |CT.I:.1290:.1080| 00000A90: 00 A4 0E 4C 04 49 B2 49 AB 31 3A 8B 49 B1 30 A7 |...L.I.I.1:.I.0.| 00000AA0: 31 30 39 30 00 B3 0E 56 04 8D 31 35 31 30 3A 43 |1090...V..1510:C| 00000AB0: 54 B2 31 00 D5 0E 60 04 8D 31 32 39 30 3A 91 43 |T.1...`..1290:.C| 00000AC0: 44 89 31 31 34 30 2C 31 31 33 30 2C 31 31 33 30 |D.1140,1130,1130| 00000AD0: 2C 31 32 38 30 00 FB 0E 6A 04 8B 43 41 28 31 29 |,1280...j..CA(1)| 00000AE0: B1 54 36 A7 54 36 B2 43 41 28 |.T6.T6.CA( |
..#....:PG$."KALAH":NM$."22":.62000.8...
" DALE S. COOPER.N..." 103 BAYVIEW ST..R
..." SCHREIBER,ONT.,CANADA,P0T 2S0.X..."
....." CURSOR #22, SEPT., 1980....." COP
YRIGHT(C)1980 THE CODE WORKS....." BOX 5
50, GOLETA, CA. 93017....."....." AS OF
08 OCT 80.G.D.DN$.".....................
":BL$."
".M....PT(14),CT(12),HT(12),KL(2),
TB(2)......".WANT TO PLAY AGAINST THE PE
T? ";:.60000......H(IN$,1)."N".CH.0:.220
.....PL$(2)."PET":.".WHAT'S YOUR NAME? "
;:.60000:PL$(1).IN$...H..IN$."".PL$(1)."
HUMAN"...R.CH.1:.260.?....".PLAYER #1'S
NAME? ";:.60000.L...PL$(1).IN$:.IN$."".P
L$(1)."FIRST PLAYER"......".PLAYER #2'S
NAME? ";:.60000.....PL$(2).IN$:.IN$."".P
L$(2)."SECOND PLAYER".Y...TB(1)..(20.C(P
L$(1)).2).....TB(2)..(20.C(PL$(2)).2)...
...".HOW MANY STONES PER PIT? ";:.60000.
^....IN$.""..".FIVE IS THE USUAL NUMBER.
":IN$."5":.I.1.1000:.I.~...NP.E(IN$):.NP
.0.."..";:.270......NP.80..".80 IS MAXIM
UM.":.260...".KL(1).7:KL(2).14...,..PT.1
.14:PT(PT).NP:.:PT(KL(1)).0:PT(KL(2)).0.
..6..820:NP.30:PT.KL(1):.2000:PT.KL(2):.
2000.8.@..I.1.8.7:.PT.I.I.5:.2000:.PT:.I
.A.J.PL.1.S.T.RV$.".":.1800.F.^..CH.0.PL
.1.380..R..1010:PT.PT.1:.".VV".C.W..DN$
;BL$;".":."I CHOSE PIT"14.PT"., HOLDING"
;PT(PT);".. ":.410...|..DN$;".WHICH PIT
? ";...}..60000:.H(IN$,1)."Q"..".":.770.
....PT.E(IN$):.PT.1.PT.6.350./....PL.2.P
T.14.PT.A....PT(PT).0.350.R....DN$;".";B
L$.\....1530.O....P1.0.P2.0.670......PT.
.KL(PL).RV$."":.1800:PL.3.PL:.CH.PL.2..D
N$;BL$.Y....PT.KL(PL).PL.2.CH..DN$;".I G
ET ANOTHER MOVE."......340......DN$;BL$:
.BL$.....PT.1:PL.1:NP.35.*....PL.1.2:Z.(
PL.1).7.1:K.KL(PL).F....PT.Z.Z.5:.PT(PT)
.0.710.R.A.PT(K).PT(K).PT(PT):PT(PT).0:.
2000:.1900.~.F..PT:.PL...P..PT(KL(1)).PT
(KL(2))..DN$;".TIE GAME!.":.750.R.Z.PL.1
:.PT(KL(2)).PT(KL(1)).PL.2......DN$;"WIN
NER: .";PL$(PL);"."......".CURRENT STAN
DINGS:".J....I.1.2:SC(I).SC(I).PT(KL(I))
:." ";PL$(I);":";SC(I):..W....".PLAY A
GAIN? ";:.60000:.H(IN$,1)."N"........"..
.SAME PLAYERS? ";:.60000:.H(IN$,1)."N".1
80.J...NP.(PT(KL(1)).PT(KL(2))).12... ..
".STILL";NP;"STONES PER PIT? ";:.60000:.
H(IN$,1)."N".260...*..290.<.4.R$."
1 2 3 4 5 6".K.7.."...."
;R$.}.>.T$."U...I":B$."J...K":P$." .."
:K$.". ... "...A.."U...I"T$T$T$T$T$T$"U
..I....F.D..I.1.3:."."P$P$P$P$P$P$;" .
"K$:.I...H..K$"."B$B$B$B$B$B$K$...K..K$.
35)K$...N..K$"."T$T$T$T$T$T$K$./.R..I.1.
3:.K$".."P$P$P$P$P$P$" ...":.I.P.U.."J.
..K"B$B$B$B$B$B$"J..K....X.X..R$.Y.\.RV$
."":. PL.1 . 2:.1800:. PL.._.......PT.1
2:SC..100000:SW.1......H(DN$,10);.19);..
....1210:.CT(PT).13.PT.13..((CT(PT).13.P
T).13).......PT.PT.1:.PT.6.1020.....CP.7
:PT.7.....CT.CP:.1210:.1290.7.$..CD.1260
,1070,1180,1180.S...PL.1:HP.1:T6..10000:
W.1.[.8.I.6...B..CT(I).7.I..((CT(I).7.I)
.13).13.CT.I:.1290:.1080...L.I.I.1:.I.0.
1090...V..1510:CT.1.U.`..1290:.CD.1140,1
130,1130,1280...J..CA(1).T6.T6.CA(
> CLICK IMAGE PREVIEW FOR FULL MODAL