#:PG$"KALAH":NM$"22":620008" DALE S. COOPERN" 103 BAYVIEW ST.r" SCHREIBER,ONT.,CANADA,P0T 2S0x"" CURSOR #22, SEPT., 1980" COPYRIGHT(C)1980 THE CODE WORKS" BOX 550, GOLETA, CA. 93017" " AS OF 08 OCT 80GdDN$"":BL$" "mPT(14),CT(12),HT(12),KL(2),TB(2)"WANT TO PLAY AGAINST THE PET? ";:60000(IN$,1)"N"CH0:220PL$(2)"PET":"WHAT'S YOUR NAME? ";:60000:PL$(1)IN$IN$""PL$(1)"HUMAN"CH1:260?"PLAYER #1'S NAME? ";:60000lPL$(1)IN$:IN$""PL$(1)"FIRST PLAYER""PLAYER #2'S NAME? ";:60000PL$(2)IN$:IN$""PL$(2)"SECOND PLAYER"TB(1)(20(PL$(1))2) TB(2)(20(PL$(2))2)"HOW MANY STONES PER PIT? ";:60000^IN$"""FIVE IS THE USUAL NUMBER.":IN$"5":I11000:I~NP(IN$):NP0"";:270NP80"80 IS MAXIMUM.":260"KL(1)7:KL(2)14,PT114:PT(PT)NP::PT(KL(1))0:PT(KL(2))06820:NP30:PTKL(1):2000:PTKL(2):20008@I187:PTII5:2000:PT:IAJPL1STRV$"":1800f^CH0PL1380r1010:PTPT1:""wDN$;BL$;"":"I CHOSE PIT"14PT", HOLDING";PT(PT);". ":410|DN$;"WHICH PIT? ";}60000:(IN$,1)"Q""":770 PT(IN$):PT1PT6350/ PL2PT14PTA PT(PT)0350R DN$;"";BL$\ 1530o P10P20670 PTKL(PL)RV$"":1800:PL3PL:CHPL2DN$;BL$ PTKL(PL)PL2CHDN$;"I GET ANOTHER MOVE." 340 DN$;BL$:BL$ PT1:PL1:NP35* PL12:Z(PL1)71:KKL(PL)F PTZZ5:PT(PT)0710r PT(K)PT(K)PT(PT):PT(PT)0:2000:1900~ PT:PL PT(KL(1))PT(KL(2))DN$;"TIE GAME!":750 PL1:PT(KL(2))PT(KL(1))PL2 DN$;"WINNER: ";PL$(PL);"" "CURRENT STANDINGS:"J I12:SC(I)SC(I)PT(KL(I)):" ";PL$(I);":";SC(I):w "PLAY AGAIN? ";:60000:(IN$,1)"N" "SAME PLAYERS? ";:60000:(IN$,1)"N"180 NP(PT(KL(1))PT(KL(2)))12 "STILL";NP;"STONES PER PIT? ";:60000:(IN$,1)"N"260 *290< 4R$" 1 2 3 4 5 6"K 7"";R$} >T$"":B$"":P$" ":K$" ݝ " A""T$T$T$T$T$T$"ɝ DI13:""P$P$P$P$P$P$;" "K$:I HK$""B$B$B$B$B$B$K$ KK$35)K$ NK$""T$T$T$T$T$T$K$/ RI13:K$""P$P$P$P$P$P$" ݝ":IP U""B$B$B$B$B$B$"˝X XR$y \RV$"": PL1 2:1800: PL _ PT12:SC100000:SW1 (DN$,10);19); 1210:CT(PT)13PT13((CT(PT)13PT)13) PTPT1:PT61020CP7:PT7CTCP:1210:12907$CD1260,1070,1180,1180S.PL1:HP1:T610000:W1[8I6BCT(I)7I((CT(I)7I)13)13CTI:1290:1080LII1:I01090V1510:CT1`1290:CD1140,1130,1130,1280jCA(1)T6T6CA(1):T7CA(2)CA(1)tHPHP1:HP7CTHP:1520:1120U~WW1:W2HP1:CTCP:PL2:1210:1290:PL1:1110|1520:T7SC(2(4))SCT7:PTCP12601240CA(2)CA(1)SCSCCA(2)CA(1):PTCP1260I16:CT(I)PT(I):CT(I6)PT(I7):ICA(1)PT(KL(1)):CA(2)PT(KL(2))9("֒",2SW1,4);"";:SW3SW?sCA(1)CA(1)CT(1)CT(2)CT(3)CT(4)CT(5)CT(6)CA(2)CA(2)CT(7)CT(8)CT(9)CT(10)CT(11)CT(12):CPCP1:PL2:CP1310501240:1130 CT(CT)0CD1:NPCT(CT):CT(CT)0:CD2'CT1CT:CT714407(CT131490K2CT(CT)CT(CT)1b<NPNP1:NP01310vFCT7PL11400PCT6PL21400ZCT(1)CT(2)CT(3)CT(4)CT(5)CT(6)0CD4:dCT(7)CT(8)CT(9)CT(10)CT(11)CT(12)0CD4:nxCT(13CT)0CT(CT)11CA(PL)CA(PL)1CT(13CT)SCT(CT)0:CT(13CT)0:CT13CT]1370lPL21330NPNP1:CA(PL)CA(PL)1NP0CD3:1370CT71330CT1:1330PL114801450HA(1)CA(1):HA(2)CA(2):I112:HT(I)CT(I)::<CA(1)HA(1):CA(2)HA(2):I112:CT(I)HT(I)::YNPPT(PT):PT(PT)0:2000eNP0}PTPT1:PT14PT1PTKL(3PL)1550"PT(PT)PT(PT)1:NPNP1,PTKL(PL)2000:160062000@NP01550JPTKL(1)PTKL(2)1670-T(PT7)1PLPT(PT)1PT(14PT)01670X^PT(KL(PL))PT(KL(PL))PT(PT)PT(14PT)khPT(PT)0:2000rPT14PT:PT(PT)0:2000|1900P10:P20Z16P1P1PT(Z):P2P2PT(Z7) Z"";("",16PL15);TB(PL));RV$;PL$(PL):8lSVPT:PTKL(PL):2000:PTSV:MPK0: ""nT5PT1:PT7T5(14PT)1PTKL(1)PK1:T36PTKL(2)PK1:T1PK""PT0 PT7 "" P$((PT(PT)),2):PT(PT)0 P$" ""(P$)3P$" "P$: (P$)3 P$P$" "<*PH3:PV2: PK PV8{4PU$("",10PV,PHPV):PD$("",1PV)> T);:P20:PPPT(PT):PMPHPV:PP8PMPP8PMH PP8 " ";:PPPP8: 2160: 2120R PP0 (" ",2PP1,2);"";: 2160:\ PM0 " ";: 2160: 2140Mf PU$;"";P$:pPMPM1:P2P21: P2PV PD$;:P20:PHPH1z`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010(Z(Z$):ZL(IN$):(Z127)32" ";:60110XFL(Z127)64(Z127)91Z$((Z128)255)jZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:600006001060010)(PN0602504-60500O2"PRESS RETURN TO ";l