C cYkoMAX:F : F,HF,F, F:[,F((F))]"":X,,`,:"CRIBBAGE":"COPYRIGHT KNIGHTS"::`:"C2R9RR" ,,, ::CV(P),PX(@),MX(@),HX():PP(@),PS(@),PC(@),MC(@):MP(@),MS(@),BP(),BS(@),DC():EV(p),V(p,),IJ(@,@),EP()ES(),FT(,),DP(),A(),RW(p):Q$(),TH(),ML():I :PX(I)I@ :MX(I)8I:I:MY@:PY:I@:HX(I)I@ :I:@jC1$" PRESS ANY KEY TO SHUFFLE":C2$" YOUR CUT":C3$" MY CUT":C4$" ENTER A NUMBER FROM 1-52 "O(X)(X()):CF$"    ":CK$"K  ":CQ$"Q "CJ$"J  ":CA$"A  ":CM$"":CB$"pppppppppppppppppp":BC$"qpppprqpprqpprqpprqppr"$BC$BC$"qppppr":CZ$"":SB$"      ":SC$"      ":BB$"rrrrrr":BB$BB$CM$CB$::I `:J-I,J:[`,]CB$:J,I:LK:CH:J:I `:CVO(P):SUO():CXI:CYJ: 3I,J: :I```:I,:SC$::,@,`,P:[,]""::, :[@,]"C R I B B A G E": :0,P:[@,]"O.K. HERE WE GO...": S8XP:XM:TP:TM:YPx:YMP:"";C1$:(x):Q$:Q$"" :.; B:" THE CARDS ARE BEING SHUFFLED..."< :"R9R"/= B:"CUT FOR BOX (ACE LOW:LOW WINS)":>"";C4$;:LKOA?" ";Q$:Q(Q$):(Q)(QP)"-F2-C6": D: > @ FA " YOUR CUT"'BNQQ:CXHX():CYMY:CHC :PC()CV(D"MY CUT"ENZO() FNZQ E GNQNZ%HCXHX(): :MC()CV I =J C:PC()MC()AN$"YOU HAVE":B: MEKPC()MC() B:" THE SAME! LET'S CUT AGAIN": >LAN$"I HAVE":BjM :" IT LOOKS LIKE ";AN$;" THE FIRST BOX":"R9RR": D:HX(),MY:SC$:HX(),MY:SC$Q#RAN$"YOUR":BAN$"MY"5S" IT'S ";AN$;" DEAL": :B : WU" ";C1$VQ$:Q$"" VhW F:" SHUFFLE...SHUFFLE...SHUFFLE": : F:(x):" THE CARDS ARE SHUFFLED "::Q-ZBC3$:QO() : `[C2$;C4$;K\" ";Q$:Q(Q$):L9:(Q)(QP)"-F2-C6": F: [_"";();" "B`NQQ: 2:L9:LK:J@:B hrdCXMX(J):CYMY:NQQ:CH: :MP(J)CV:MS(J)SU:MC(J)CV(NQ):CV(NQ):QQ:QTQrhCXPX(J):CYPY:NQQ:CH: :PP(J)CV:PS(J)SU:PC(J)CV(NQ):CV(NQ):QQ:QTQlB qrmCXMX(J):CYMY:NQQ:CH: :MP(J)CV:MS(J)SU:MC(J)CV(NQ):CV(NQ):QQ:QTQqJ:X,@:"MY HAND":,:"YOUR":,:"HAND":@,8:"[A] [B] [C] [D] [E] [F]":AN$"YOUR":BAN$"MY"v" IT'S ";AN$;" BOX":(x):" ME FIRST, YOU THINK OF TWO DISCARDS":E:Ip:EV(I):RW(I):I:I@:J@:IJ(I,J):J,I:I@E{INZO(@):"C4DG":NZ , , , , , |J@ }JI +~(IJ(I,J))(IJ(J,I)) MIJ(I,J):IJ(J,I):L:K@:(KI)(KJ) NLL:EP(L)MP(K):ES(L)MS(K):DP(L)EP(L):DP(L) DP(L) K: PJ,I:"";():"CG":" I'M DISCARDING...AT LAST!":HI:HSRW()EV():Ip:JRW(I)EV(I)HSJ HSRW(HI)JRW(I) HSJ HSJ:HIII:I@:MX(I),MY:SB$:"R0":I: ,MY:[`,]CB$:I:BP(I)MP(V(HI,I)):BS(I)MS(V(HI,I)):MP(V(HI,I)):MS(V(HI,I)):MC(V(HI,I)):I:"";()BI:(x):AN$"FIRST":IAN$"SECOND"C" ENTER A LETTER (A-F)":" TO THROW YOUR ";AN$;" CARD"Q$(I):Q$(I)"" 8((Q$(I)))((Q$(I)) )"-C8": ,:(((Q$(I)))@);"*":I:(x): G:" PRESS ANY KEY IF DISCARDS ARE O.K.":" (ENTER N IF THEY ARE NOT)"Q$:Q$"" 7,:();" ":(Q$)  G: I:BP(I)PP((Q$(I))):BS(I)PS((Q$(I))):PP((Q$(I))):PS((Q$(I))):PC((Q$(I))):PX((Q$(I))),PY:SC$:I: FkCYPY:CH:LK:PX( ),PY:SC$:PX(@),PY:SC$:F:PP(F) PP( ) rPP(F)PP( ):PS(F)PS( ):PC(F)PC( ):PP( ):PS( ):PC( ): PP(@) mPP(F)PP(@):PS(F)PS(@):PC(F)PC(@):PP(@):PS(@):PC(@)$CXPX(F):CVPP(F):SUPS(F): IF:h,8:" ":F:MP(F) MP( ) rMP(F)MP( ):MS(F)MS( ):MC(F)MC( ):MP( ):MS( ):MC( ): MP(@) mMP(F)MP(@):MS(F)MS(@):MC(F)MC(@):MP(@):MS(@):MC(@)FB = ,MY:SC$:PX(@),PY:[`,]CB$;""1AN$" IT'S MY ":BAN$" IT'S YOUR "+"";AN$;"CUT FOR THE TURN UP":"R9R"(BQO(p) : =" ENTER A NUMBER FROM 1-40 ";:L9=" ";Q$:Q(Q$)::(Q)(Q )"-F2-C6": ECV(Q) "QQ:QTQ ;NQQ: 2:CYMY:CXHX():LK:CH: " TURN UP =":BP()CV:BS()SU: :HX(),MY:SC$:" ":CYMY:BCYPY+CXPX(@):LK:CH: 4"":SM:SP:BP()0 =" 2 FOR THE JACK!": :BSM: : SP: |C:B1B:PH:MH:I:TH(I)y:I:SP:SM:I:ML(I):IRRT:PG:MG:CR: E: H:IC:TH(I)y:I6(PH)(MH)B1:PG: 7(PH)(MH)B1:MG: 8(PH)(MH)" ALL DONE ": : _B1 PH 3MGSP: :B1B1(): B1B1:PG: PG W" YOU CAN'T GO ":"B3-BR":MGSM: :  :B1B1: 7" YOU TO GO: ENTER N IF YOU CAN'T GO ":"B3+B"Q$:Q$"" (Q$) PG:PGMG 2 E:" ONE TO YOU":"+C2R9":SP: B1B1: B1B1: >TD(Q$):(TD)(TD)"-F3-C6": "(RPX(TD)) #DPPP(TD):DP DP RTDPx 7 B:" THAT ADDS UP TO OVER 31":"C4CR9R": .PHPH:CC:TH(C)PP(TD):  BkPX(TD),PY:SC$:LK:CVPP(TD):SUPS(TD):CXHX()(PH):CYMY:CHO: PRTRTDP:" RUNNING TOTAL=";RT:TH():RTpSPSPCR "CVTH(C)SPSPCR@ 6(CVTH(C))(CVTH(C))SPSPCR H(CVTH(C))(CVTH(C))(CVTH(C@))SPSP@'CR@ :SPSPSR:SRRTx |SPSP: B:"F4#C":" TRUST YOU TO HAVE THE";DP:" FOR";SP: :"R9R":" ":B1B1(): PHMH hSPSP:" AND THE LAST ONE TO YOU ":" FOR";SP: : H:"C2+CR9R": F: _7SP" FOR";SP: : :" "B1B1()MH >" I'M OUT OF CARDS ":"B3-BR9R": BF(PG)(MG)SM: : :B1B1(): I(PG)(MG)]HENSP: : :B1B1(): (B1B1():MG: : MG d" I STILL CAN'T GO ":PGSM: :"R9R":B1B1(): B1B1(): : W" ME TO PLAY ":FL:CV:"R9R":C 3!C 3$"I:FL &L$(MP(I) )(MP(I))CVMP(I):SUMS(I):ML(I):FL%DPCV:DP DP &I'FL G(MP() +M)CVMP():SUMS():ML():DPCV:DP DP * G+MP() .M,CVMP():SUMS():ML():DPCV:DP DP - G.MP(@) 1M/CVMP(@):SUMS(@):ML(@):DPCV:DP DP 0 GM1CVMP():SUMS():ML():DPCV:DP DP 2 G$3I:FL :5ML(I) :"6DPMP(I):DP DP @7DPRTpCVMP(I):SUMS(I):ML(I):FL: :P8(MP(I)TH(C))(DPRT)CVMP(I):SUMS(I):ML(I):FL: :@9DPRTxCVMP(I):SUMS(I):ML(I):FL: ::I;FL G$<I:FL @">DPMP(I):DP DP X?(CV)(ML(I))(DPRT)CVMP(I):SUMS(I):ML(I):FL@IAFL G]B" I CAN'T GO... ":MG:MGPGB1B1(): : OE"";(`);"EITHER":"+C2R9":B1B1():SM: : F: JGFL:CC:MHMH:RTRTDP:AN$SB$:MHAN$SC$qIMX(MH)@,MY:AN$:TH(C)CV:LK:CXHX(@)(MH):CYMY:CH: : >L" RUNNING TOTAL=";RT:TH():CR X"OCVTH(C)SMSMPCR@ U Q B6R(CVTH(C))(CVTH(C))SMSMSCR UHT(CVTH(C))(CVTH(C))(CVTH(C@))SMSM@URTpSMSM'VCR@ :SMSMSR:SRWRTxSMSM7XSM" FOR";SM: : :" "$YRTxB1B1(): ZPHMH ^F[SM:"THAT'S IT: ONE TO ME": : : H:"C2+CR9": F ] _^B1B1(): _P,@:():,:"  ":,8:();" ":" TIME TO COUNT UP":M@:"C0CCR":M:LK:CH:B mPe" YOUR HAND..":CYPY:I:CXPX(I):CVPP(I):SUPS(I): :IgPP()BP():PS()BS():I:EP(I)PP(I):ES(I)PS(I):DP(I)PP(I):DP(I) DP(I) hI: :SPSH: -kI:PX(I),PY:SC$:I: FlB uPm" MY HAND....":CYMY:I:CXHX(I):CVMP(I):SUMS(I): :IoMP()BP():MS()BS():I:EP(I)MP(I):ES(I)MS(I):DP(I)MP(I):DP(I) DP(I) qI: :SMSH: -sI:HX(I),MY:SC$:I: FtB e,u" THE BOX....":CYMY:BCYPYvZVMY:BZVPYIw ,ZV:SC$:I:CXHX(I):CVBP(I):SUBS(I): :ITyI:EP(I)BP(I):ES(I)BS(I):DP(I)BP(I):DP(I) DP(I) 6{I:FB: :FB:BSMSH: ~ }SPSH!~ : : F:BB()(TPTM)(TPd) (TMTP)(TMh) (((TPTM))(TPp) ,(TMTP)(TMTPp)(TMp) ,(TPTM)(TPTM)(TPp) ,(TPTM)(TPTM@)(TPp) ,(TMTP)(TMTPp)(TMp)   B  Q"C2DEFC":3" COME ON - YOU ARE LOSING !": : : ;" WHY WASN'T I PROGRAMMED TO CHEAT?!": : : +" NOT MUCH IN IT NOW": : : 3" IT LOOKS LIKE YOU WILL WIN": : : /" IT LOOKS LIKE MY GAME!": : : 3" I'LL CATCH UP, DON'T WORRY": : : ," LOOK WHO'S WINNING!": : : HI:HX(I),CY:SC$:I:B ,:  ,@ SC$:oSH:F:T:FT(F,T):T,F:F:T:TF +(FT(F,T))(FT(T,F)) <FT(F,T):FT(T,F):EP(F)EP(T)SHSH%DP(F)DP(T)pSHSH/Z:Q:(QF)(QT) ZZDP(Q)Q:ZpSHSHUT,F:DP()DP()DP()DP(@)DP()pSHSH8F:Z:T:TF ZZDP(T)TZpSHSH$F:N:FBN8NF:WN@:ES(W)ES(W)NFCW:NFSHSH:ES()ES()SHSHEU:(EP(U)0)(ES(U)ES())SHSHhU:F :TH(F)EP(F):F:F:T:TH(T)TH(T) @TH()TH(T):TH(T)TH(T):TH(T)TH()T,F:(TH()TH())(TH()TH(@))(TH(@)TH())(TH()TH( ))   SHSH : 8U :N:J :JU A(N)TH(J):NNvJ:(A()A())(A()A())(A()A(@))SHSH:F4!U:F4F4: eI :J :IJ(I,J):J,I:V :W :WV +(IJ(V,W))(IJ(W,V)) MIJ(V,W):IJ(W,V):N:K :(KV)(KW) NN:A(N)TH(K)OK:(A()A())(A()A(@))SHSH@ W,V:(TP)(TM),P:"MEYOU"SP -SSP:TPTP:TPr TPp J(TP)(((TP) )(TP) )XPXPXPTP,YP:"F0":S: <((TP) )(TP) XPXP,tXPTP,YP:"G0":S: SM -SSM:TMTM:TMr TMp J(TM)(((TM) )(TM) )XMXMXMTM,YM:"F0":S: <((TM) )(TM) XMXM-tXMTM,YM:"G0":S: SM:SP:^R2,:AN$" YOU WIN! ":TMrAN$" I WIN! "MAN$:Ip:R2,:"C0":R2,:"G":I: G#" ANOTHER GAME ? (Y N)"Q$:Q$"" Q$"Y""": 81"THANKS FOR PLAYING":TMTP"MAYBE I CAN BEAT YOU AGAIN SOMETIME!": 1"NEXT TIME - I'LL BEAT YOU!": ,,@,:uIP:CV(I)I:I:IP:RCO(P):CV()CV(I):CV(I)CV(RC):CV(RC)CV():I:oCV((CV(NQ))):I@:((CV(NQ)I))(CV(NQ)I)SUII!SUSU$"":CC!SUSU$"":CC!SU@SU$"":CC!SUSU$"":CC ! CX,CY:LK :   :CH .X[,`]CF$:CX,CY:CV , , , , , , , !, $, (, +, ,, -5[CC,`]CA$:CX,CY:[CC,`]SU$:G[CC,`]"2"SU$:CX,CY:[CC,`]SU$""SU$:M[CC,`]"3"SU$:CX,CY:[CC,`]SU$""SU$""SU$:U[CC,`]"4"SU$:CX,CY:[CC,`]SU$" "SU$""SU$" "SU$:[[CC,`]"5"SU$:CX,CY:[CC,`]SU$" "SU$""SU$""SU$" "SU$:c[CC,`]"6"SU$:CX,CY:[CC,`]SU$" "SU$""SU$" "SU$""SU$" "SU$:e[CC,`]"7"SU$:CX,CY:[CC,`]SU$" "SU$""SU$;SU$;SU$""SU$" "SU$:g![CC,`]"8"SU$:CX,CY:[CC,`]SU$" "SU$""SU$;SU$;SU$""SU$;SU$;SU$:t$[CC,`]"9"SU$:CX,CY:[CC,`]SU$" "SU$""SU$" "SU$""SU$;SU$;SU$""SU$" "SU$:w([CC,`]"10"SU$:CX,CY:[CC,`]SU$" "SU$""SU$;SU$;SU$""SU$;SU$;SU$""SU$" "SU$:5+[CC,`]CJ$:CX,CY:[CC,`]SU$:5,[CC,`]CQ$:CX,CY:[CC,`]SU$:5-[CC,`]CK$:CX,CY:[CC,`]SU$:%."R3":J[,]BC$:Y0J[,]"      ";BB$;:[`,]"";CB$:61[,]BB$;:[`,]"";CB$:2 ,MY:[,]"pppppppppppppppppppppppp":"R4": ,MY:[,]"ttttttssssss":"R3":I:I,MY3;[,]" tttttt ssssss":"R1":I="R3":L9 @D>,MY:"CUT WAS";NQ;"CARDS";"DOWN"@"R6": F: HAL9:B"";();"";:%C"";():();"";:0D"";():():();"";:!E D:"";();"";:"F E:"";();"";:,G"";():():():H"";(8);" ":"";(8);" ":"";(8);" ":"";(8);" ":"";(8);" ":"";(8);" ":"";(8);" ":PFF:EE:F:T:FT(F,T):T,F:EV(E):EE:V(E,)I:V(E,)J:F:T:TF Y+U(FT(F,T))(FT(T,F)) YRVFT(F,T):FT(T,F):EP(F)EP(T)EV(E)EV(E):FF q0XDP(F)DP(T)pEV(E)EV(E): u YT,F^[DP()DP()DP(@)DP()pEV(E)EV(E):RW(E)RW(E)PS\DP()DP()DP(@)pEV(E)EV(E):RW(E)RW(E)@S]DP()DP()DP()pEV(E)EV(E):RW(E)RW(E)@S^DP()DP(@)DP()pEV(E)EV(E):RW(E)RW(E)@S_DP()DP(@)DP()pEV(E)EV(E):RW(E)RW(E)@e`(ES()ES())(ES()ES(@))(ES(@)ES())EV(E)EV(E): ycaZ1:A(Z1)EP(Z1):Z1:Z1@:Z2@:A(Z2)A(Z2) e>dA()A(Z2):A(Z2)A(Z2):A(Z2)A(){eZ2,Z1:(A()@A())(A()A())(A(@)A())EV(E)EV(E): orh(A()A(@))(A()A(@))EV(E)EV(E)@:RW(E)RW(E)p:EEEEri(A()A())(A()A())EV(E)EV(E)@:RW(E)RW(E)p:EEEErj(A()A())(A(@)A())EV(E)EV(E)@:RW(E)RW(E)p:EEEErk(A()A())(A(@)A())EV(E)EV(E)@:RW(E)RW(E)p:EEEElFF n m znoFF npRW(E)RW(E): mXqRW(E)RW(E) :(EP(F) )(EP(F)`)(EP(F))RW(E)RW(E)6r(EP(F))(EP(F)@)RW(E)RW(E)6s(EP(F)@)(DP(F) )RW(E)RW(E)tIuRW(E)RW(E) :(DP(F) )(DP(F) )RW(E)RW(E)6v(DP(F)`)(DP(F))RW(E)RW(E)0w(DP(F))(DP(F)@)RW(E)xyRW(E)RW(E) :"zEERW(I)RW(I)pK{DC()MP(I):DC()MP(J):DC() DC() )}DC() DC() ~B E(MP(I)MP(J))(DC()DC()p)RW(E)RW(E)(_(DC()DC() )(DC() )(DC() )RW(E)RW(E)p@(DC()`)(DC()`)RW(E)RW(E) @(DC())(DC())RW(E)RW(E) V(DC()DC()`)(DC()DC())RW(E)RW(E)B(MP(I)MP(J))(MP(J)MP(I))RW(E)RW(E) B(MP(I)MP(J))(MP(J)MP(I))RW(E)RW(E)_(DC()DC() )(DC() )(DC() )RW(E)RW(E)X(MP(I)MP(J))(DC()DC()p)RW(E)RW(E)0:EV(E)EV(E)K(MP(I) )(MP(J) )(MP(I)MP(J) )RW(E)RW(E)K(MP(I)`)(MP(J)`)(MP(I)MP(J)`)RW(E)RW(E) K(MP(I))(MP(J))(MP(I)MP(J))RW(E)RW(E) _(DC() )(DC() )(DC()DC() )RW(E)RW(E)@B(MP(I)MP(J))(MP(J)MP(I))RW(E)RW(E)@C(MP(I)P)(MP(I)MP(J))RW(E)RW(E)C(MP(J)P)(MP(J)MP(I))RW(E)RW(E)CR:SR: 5CR" HANG ON - I'M CHECKING FOR A RUN"CRCR`K@CR:IK:FR:RW(I)TH(CI):I:IK:JK:RW(J)RW(J) @RW()RW(J):RW(J)RW(J):RW(J)RW()AJ,I:VK:RW(V)RW(V)FRV:FRSRK K:+IC:TH(I)yCRCR I:2" SORRY THAT I'M TAKING SO LONG ":2" NEARLY READY...HANG ON A MOMENT MORE":2" DECISIONS! DECISIONS! I DON'T KNOW..":2" I'M STILL THINKING ":2" I SHAN'T BE MUCH LONGER...I HOPE! ":2" I'VE GOT A HAND LIKE A FOOT..HANG ON": "R9":"R9R":S"";(@);"SCORES";SH:SH" N I N E T E E N !":"FEC6":   #" PRESS ANY KEY TO GO ON"Q$:Q$""   B:}M1$"C1CECGECECADAFDAD":M2$"GBBAG#FFDBCECBGFD":M3$"CBCGECGEC5":`:M1$;M2$;M1$;M2$;M3$: