""! BY DAN A. SIEBENf8)" CRIBBAGE":9)"INSTRUCTIONS? YES/NO|(53280,3:53281,32X(TI)<2290FA%(52),V(5),S(5),G(1),T%(6),U%(6),C(3,5),C$(15)PS(X)((X1)13)1:V(X)X13(S(X)1):C$""EZFL((1)2):V1$"A23456789TJQK":S1$""jdL$" GET A POINT FOR LAST CARD."yn780:1660xM1:N4:C5:A511:BA11XX%(C):YU%(C):X%(C)X%(B):U%(C)U%(B):X%(B)X:U%(B)YI14:V(I)X%(I):S(I)U%(I)::3900PMMP:I16:W%(I)X%(I):T%(I)U%(I):AB:C11C:Aw198,0:(C$,21)"WHAT ARE YOUR DISCARDS (1-6) ?"(C$,19);" ";G(0)0:I01A$:A$""200A$" "A$"0"180 X(A$):X1X6XG(0)2001G(I)(A$):(C$,19)26X)"^":DA$:A$""240TA$" "180^1720yI13:C(I,5)A%(13):I14:C(1,I)13(T%(I)1)W%(I):"J0:I16:IG(0)IG(1)310,JJ1:C(2,J)A%(I6)6" @I12:C(3,I)A%(6G(I1)):C(3,I2)13(T%(I4)1)W%(I4):_ JA13:B15:V(B)V(C(A,B)):S(B)S(C(A,B))::N5:390 TC(A,0)P::I14:W%(I)V(C(1,I)):X%(I)V(C(2,I)): ^"";:K14:VV(C(2,K)):SS(C(2,K)):1760 h"";: r800:2120:2190)!|(C$,12)12)"YOU:"P2" ME:"P1:2200:FL1FL:110g!P0:S(1)S(2)S(2)S(3)S(3)S(4)P4:N5S(1)S(5)P5x!P4A3P0!N4450!I14:V(I)11S(I)S(5)PP1!:S(5)0!"!I1N1:V20:JIN:V(J)VVV(J):UJ":V(U)V(I):V(I)V:5"G(0)0:G(1)0:U0:V1:W0:X0:Y0:Z0:I1N1["V(I)V(I1)G(U)G(U)1:XI:550h"I1U1"V(I1)V(I)1530"W0VV1:ZI1:V2YI"550"V2W1:550"V1"&"0UG(0)2G(1)2G(0)G(1)#:W1:IYZ:V(X)V(I)WU #D#NU0W1##XU6W30#bV3V0>#lPVWUPJ#vZ0:Y0f#I1N:V(I)10V(I)10l##I1N:YYV(I)::Y15PP2:#I13:JI14:N4690#ZJ15#V(I)V(J)V(Z)15PP2#N4740$YV(I)V(J)V(Z)15PP2$N4740$Z $J,I<$I1N:YV(I)15PP2B$H$^$ A152:A%(A)A:$A152:B((1)521):CA%(A):A%(A)A%(B):A%(B)C::$ I14$*W%(I4)W%(I):W%(I)10W%(I4)10$4X%(I4)X%(I):X%(I)10X%(I4)10$>%HN10:N20:C0:SM0%RFL01050-%\N24890<%fN141300F%p1050m%z2230:158,0:B$"YOUR PLAY?":1900%A$:A$""900%B$"":1900%A(A$):A$"0"2520%A1A4890%X%(A)0B$"CARD ALREADY PLAYED!":1900:2200:8902&SMX%(A4)31B$"TOTAL IS MORE THAN 31!":1900:2200:890^&SMSMX%(A4):N2N21:CC1:A%(C)X%(A)h&1450|& IFA=4THEN2208& PRINT"";TAB(A*3-2)"      ":GOTO2210'"";A76)"   ";C'"    ";'VV(C(2,A)):SS(C(2,A)):Y1:P2P2P:X%(A)0:2220:1640'SM311050'2240:Y0:C0:SM0:Z0'N141120'$N241300'.A$"0"860'8Y1890,1090,1110(BB$"YOU"L$:P2P21:16404(L1900:2240:Y0:C0:SM0:860V(VB$"I"L$:P1P11:1620:1100r(`M1:N0:UC:VSM:CC1(jL14:W%(L)01170(tSMW%(L4)311170(~NN1:SMSMW%(L4):A%(C)W%(L):1450:SMV(PMMP:XL((CU:N01360)A$"0"1230)Z11250G)B$"I"L$:C0:SM0:P1P11:1900:2240V)1620:860f)N241280t)Y21210)B$"YOU"L$:P2P21:1640:C0:SM0:Z0)A$"":1900:2240)1050)Z1860) B$"GO...":1900:2200:Z1:860)Y01350 *Y11340.*(B$"I"L$:P1P11:1900:2200>*21620:1350h*<B$"YOU"L$:P2P21:1900:1640:2200n*F*PCC1:N1N11:C1W%(4)01390*ZX31390*dW%(X)5W%(X)0XX1:1370*nSMSMW%(X4):A%(C)W%(X)"+xVV(C(1,X)):SS(C(1,X)):PM:Y2:P1P1P:2220:W%(X)0:16203+SM311430U+2200:2240:Y0:C0:SM0:860m+A$"0"A$"G"1050v+860+P0:C1+SM15SM31PP2+IC(C5)(C4)21+A%(I)A%(I1)1540+CI11500,1510,1520+PP2:1530 ,PP4:1530,PP6,%,C2D,W0:I3C:1560::PPW:d,J1C:A%(J10)A%(CJ1):,"K1I1:JK1I:A%(K10)A%(J10)1590,,BA%(K10):A%(K10)A%(J10):A%(J10)B,6J,K,@K1I1:A%(K10)A%(K11)1,JK:WI:5-T2200:P11202190:(C$,13)10)"I WIN!"P1"TO"P2:2150;-^x-h2200:P21202190:(C$,13)9)"YOU WIN!"P2"TO"P1:2150~-r-|FL02190:"YOUR CRIB..."-FL12190:"MY CRIB..."-59468,12:"";.K16:VV(A%(K6)):SS(A%(K6))%.U%(K)S(A%(K)):X%(K)V(A%(K))Z.1760:"";:::"THINKING":120.2190:VV(A%(13)):SS(A%(13)):32)"";:1760.(C$,9)."YOU ME TOTAL ".2250:270.V$(V1$,V,1):S$(S1$,S,1) /S$""S$""S$""S$(/S$""S$""S$""S$@/I115:C$(I)" ":`/V3V7C$(2)S$:C$(14)S$/V3C$(4)S$:C$(6)S$:C$(10)S$:C$(12)S$/V2V9C$(5)S$:C$(11)S$/&V5C$(7)S$:C$(9)S$/0V1V3V5V7V9C$(8)S$.0:"";:I17:" ݝ";::"";L0D""V$S$"";x0NI1153:J02:C$(IJ);::"";:0X""S$""V$"";0b0l(C$,22);:I184:" ";::(C$,22);B$;"":0v"";:K15:VV(C(X,K)):SS(C(X,K))11760:K4"";1K5:(1"";::71FLY1990n1:"I HAVE"C(X,0)"POINTS":P1P1C(X,0):1620:25501(203)64 197011""1198,0:"HOW MANY POINTS";1"";PT$:Q(PT$)1ZZC(Z,0):PT$"0"20502Q1Q(Q)0"":2000C2QZZ(C$,20);"TOO MANY...TRY AGAIN!":20002QZZ(C$,22);"MUGGINS FOR"ZZQ" POINTS!":P1P1ZZQ:1620:2070:22002 P2P2Q:2200:1640:2(515)25520702 2*2190:"":"";:FL0(C$,6);A$34FL1(C$,6);B$3>1910:1950:Y3HA$"I COUNT FIRST":B$"YOU COUNT FIRST":XFL1:Y1:Z2:20903RA$"YOUR HAND":B$"MY HAND":X2FL:Y0:Z2:20903\A$"YOUR CRIB":B$"MY CRIB":X3:Z3:2090:3f12)"ANOTHER GAME?"3pA$:A$""21604zA$"N"2190: 4:704"";:)4I11000::;4I15000::c4:(C$,11Y)C44);:1760:""4""3)(C$,10)P2:""10)(C$,10)P1:""20)(C$,10)SM" ":4(C$,12);:I11040:" ";::"":4V(A%(13))115FL0A$"YOU":P2P22:16405FL1A$"I":P1P12:N5B$A$" GET 2 POINTS FOR THE JACK":1900:b5AN$:AN$"N"t5AN$"Y"2320~5 22905 "INSTUCTIONS:"5 "TO SELECT DISCARDS USE KEYS 1 THRU 6 THEN RETURN."6$ "TO CHANGE CHOICE OF DISCARDS PRESS THE SPACE BAR BEFORE ";-6. "PRESSING RETURN."{68 "ONCE YOU HAVE PRESSED THE RETURN KEY, YOU'RE STUCK WITH YOUR CHOICE."6B FORD=1TO10000:NEXTD6L "TO SELECT A CARD TO PLAY USE KEYS 1 THRU4."6V "***CHOOSE CAREFULLY***"!7` "YOU WON'T BE ABLE TO CHANGE YOU'RE CHOICE."J7j "IF YOU CAN'T PLAY A CARD TYPE 0."j7t 13)"HIT ANY KEY":198,17~ "THE COMPUTER WILL KEEP SCORE BUT YOU MUST COUNT YOUR OWN CARDS."7 "***COUNT CAREFULLY***"8 "THE COMPUTER WILL TAKE ALL THE POINTS THAT YOU MISS!"=8 " INSTRUCTIONS AGAIN? ";O8 "YES/NO"m8 A$:A$"Y"A$"N"2480|8 A$"Y"8 23208 (C$,11)YOU"P2" ME"P1" TTL"SM8 P14:X%(P)0X%(P)SM32B$"YOU HAVE A PLAYABLE CARD!!":108 P:10509 1900:2200:890=9 " HIT ANY KEY":198,1: