ZXTape! 0Created with Ramsoft MakeTZXcrib ::<|61999/:7:0:7::#0;1,3;0;1;1;"PLEASE LEAVE TAPE RUNNING" "pic":#0;1,3;0;1;1;"PLEASE LEAVE TAPE RUNNING":4:4:19,1;" ";:"cr"620000:19,1;" ";:"game" spic @!!@B#<@D pp!pCB!@B%B<<@D<   @!@B!@B%(BB @H@88D88 D  ! @B!@B)B<(@@HBH@PDT< x"D!@B!@C1B~@`BDTD @"<pp!p@B!@B?B><<@`<8 (< <<!@B#B!<@?8? ?@ffffffff ffff  ffff B@ ~<     fD8@8@8hB8888<8ffff ffff ffff  ffff ZD xD| T@DDD     BD DD@< T@D20!(xͭWͭ=(###7(!(<ͭWͭ=( #20!5W=(##20~G!0#~#>20!5W( :020W=(##(# !5W !WW :020:020:020game o kmo8x=14:620000+x,c(x):x:62500$ x=620000: @#0;1,0;" ": As(10 ):p(10 ):n=1524:a(n)=1:n:  2001 z=3247 r=111 r=235# r=3557 105i Ax=14:s(x)=4s(x+6)=0205 x Ax=14:s(x)=6s(x+6)=0205 x Ax=14:s(x)>9 s(x+6)=0205 x Mx=14:s(x)+r(9 )>15s(x+6)=0205 x  247 #9x=14:y=s(x):s(x)>10 s(x)=10 &Bs(x)+r(9 )=15s(x+6)=0s(x)=y:205 ' s(x)=y:x (Fx=14:s(x)=r(r-1)s(x+6)=0205 )x *r=362> +r>3137 33x=14:s(x+6)=1546 4ks(x)=r(9 )+1s(x)=r(9 )-1s(x)=r(9 )+2s(x)=r(9 )-2546 5!s(x+6)=0205 6x:247 7Tx=14:s(x+6)=0s(x)=r(1)s(x)=r(2)205 8x 9x=14:(s(x+6)=0s(x)=r(1)+2s(x)=r(2)+1)(s(x+6)=0s(x)=r(1)+1s(x)=r(2)+2)205 :(s(x+6)=0s(x)=r(1)+1s(x)=r(2)-1)(s(x+6)=0s(x)=r(1)-1s(x)=r(2)+2)205 ;(s(x+6)=0s(x)=r(1)-1s(x)=r(2)+1)(s(x+6)=0s(x)=r(1)-2s(x)=r(2)-1)205 <x = 35# >9x=14:y=s(x):s(x)>10 s(x)=10 ?Bs(x)+r(9 )=30s(x+6)=0s(x)=y:205 @ s(x)=y:x A3x=14:s(x+6)=168D Bks(x)=r(2)+1s(x)=r(2)-1s(x)=r(2)+2s(x)=r(2)-268D C 205 Dx h 247 ijx=14:s(x+6)=0s(x)=r(r-1)s(x)=r(r-2)s(x)=r(r-3)205 j/x:x=13:620000+x,r(r-x):x kXx=14:s(x+6)=0s(x)=r(r-1)s(x)=r(r-2)205 lx mx=14:y=s(x) os(x)>10 y=10 p:s(x+6)=1y+r(9 )>31x:132 qs(x)-r(r-1)>3r(r-1)-s(x)>3s(x)-r(r-2)>3r(r-2)-s(x)>3s(x)-r(r-3)>3r(r-3)-s(x)>3x:132 r 620044,s(x):62360 s!620000=4205 tx x=14:(s(x)=r(r-2)+2s(x)=r(r-1)+1)(s(x)=r(r-2)+1s(x)=r(r-1)+2)205 x(s(x)=r(r-2)+1s(x)=r(r-1)-1)(s(x)=r(r-2)-1s(x)=r(r-1)+2)205 x(s(x)=r(r-2)-1s(x)=r(r-1)+1)(s(x)=r(r-2)-2s(x)=r(r-1)-1)205 x 35# 9x=14:y=s(x):s(x)>10 s(x)=10 Bs(x)+r(9 )=31s(x+6)=0s(x)=y:205 s(x)=y:x 9x=14:y=s(x):s(x)>10 s(x)=10 Bs(x)+r(9 )=30s(x+6)=0s(x)=y:205 s(x)=y:x 4x=14:s(x+6)=1146 ls(x)=r(2)+1s(x)=r(2)-1s(x)=r(2)+2s(x)=r(2)-2146 205 x 247 #y=s(x):s(x)>10 y=10 .y>31-r(9 )s(x+6)=1 250 6x=14:y=s(x):s(x)>10 y=10 7s(x+6)=0y<32 -r(9 )250 x 8r$(r)=s$(x):r(r)=s(x):v=r(r):v>10 v=10 Tr(9 )=r(9 )+v:c=0:s$(x,3)=""s$(x,3)=""c=2 8s(x+6)=1:5+r,9 ;"s ";c;r$(r) !700:t=1:650 4:n=214:n,0;" ":n:u=0:r=0:r(10 ):r$(9 ,3):1,1;6;"PLAYER";1,23;6;"SPECTRUM":605]:23670v\,23672x\:n=16:4320 ?p(n)=x:p$(n)=x$(1):n+2,1;n;" ";c;p$(n) F4320:s(n)=x:s$(n)=x$(1):n+2,23;n;" " n c2000:5600:n=115:m=14:v:c(m)=s(v):m:1:h(n)=x:n >n=0:v=115:h(v)>nn=h(v):620000,v 7v:v=620000:v<1v=(*15)+1  5655  502 y#0;1,0;7;1;" DISCARD A CARD. CHOOSE 1 to 5. ":a=13:.1}L,45-:a  /x=-480:x<1x>5521   N3:n=813 :n,0;" ":n:x+2,1;" "  Fx=5b$(2)=p$(5):b(2)=p(5):526  b$(2)=p$(x):b(2)=p(x):n=x4:p(n)=p(n+1):p$(n)=p$(n+1):c=0:p$(n,3)=""p$(n,3)=""c=2  'n+2,1;n;" ";c;p$(n):n S7,1;" ";7,11 ;" ";8,13 ;" "  608` y#0;1,0;7;0;" DISCARD A CARD. CHOOSE 1 to 6. ":a=13:.1}L,45-:a /x=-480:x<1x>6541 &3:x+2,1;" " Fx=6b$(1)=p$(6):b(1)=p(6):547#  b$(1)=p$(x):b(1)=p(x):n=x5:p(n)=p(n+1):p$(n)=p$(n+1):c=0:p$(n,3)=""p$(n,3)=""c=2 !'n+2,1;n;" ";c;p$(n):n "8,1;" " % 520 03,4,5,6,2,4,5,6,2,3,5,6,2,3,4,6,2,3,4,5,1,4,5,6,1,3,5,6,1,3,4,6,1,3,4,5,1,2,5,6,1,2,4,6,1,2,4,5,1,2,3,6,1,2,3,5,1,2,3,4 5t580D+v:n=16:w:n<3b$(n+2)=s$(w):b(n+2)=s(w):s$(w)=" ":s(w)=0:n 6+h$(n-2)=s$(w):h(n-2)=s(w):n 79n=14:s$(n)=h$(n):s(n)=h(n):n:600X E11,2,3,4,5,6 F11,3,2,4,5,6 G11,4,2,3,5,6 H11,5,2,3,4,6 I11,6,2,3,4,5 J12,3,1,4,5,6 K12,4,1,3,5,6 L12,5,1,3,4,6 M12,6,1,3,4,5 N13,4,1,2,5,6 O13,5,1,2,4,6 P13,6,1,2,4,5 Q14,5,1,2,3,6 R14,6,1,2,3,5 S15,6,1,2,3,4 Xn=14 Y"n+2,23;n;" ":n ZD7,23;" ";8,23;" ":540 ]y3,11 ;5;"CUT.":d=17,11 ;1;"PLAYER'S";8,13 ;1;"BOX.": ^J7,11 ;1;"SPECTRUM";8,14;1;"BOX": `23670v\,23672x\:4320:c$(1)=x$(1):c(5)=x:c$(1,3)=""c$(1,3)=""c=2 a}3,16;c;c$(1):c(5)=11 e(d+2)=e(d+2)+2:1600@:892|:1300 b#5,11 ;5;"LAID" -1200:r=r+1:t=25 G#0;1,0;7;" YOUR TURN. LAY A CARD 1 TO 4 " )a=13:.1}L,45-:a /x=-480:x<1x>4653 p(x+6)=1#0;1,0;2;7;" CARD ALREADY LAID. TRY ANOTHER ":a=13:.1}L,2:a:653 8r$(r)=p$(x):r(r)=p(x):v=r(r):v>10 v=10 r(9 )+v>31#0;1,0;7;2;" TOTAL MORE THAN 31. TRY AGAIN ":a=13:.1}L,2:a:653 Tr(9 )=r(9 )+v:c=0:p$(x,3)=""p$(x,3)=""c=2 cp(x+6)=1:2+x,4;0;" ";5+r,9 ;7;"p ";c;r$(r) !700:t=2:650 -s=0:r(9 )=15s=s+2 hr>3r(r)=r(r-1)r(r)=r(r-2)r(r)=r(r-3)i=r-1:s=s+12 :733 Ur>2r(r)=r(r-1)r(r)=r(r-2)i=r-1:s=s+6:733 Cr>1r(r)=r(r-1)i=r-1:s=s+2:733 r<3+i733 Fj=0:r>2+iz=r-2:w=3:b=3:725 ;r>3+iz=r-3:w=6:b=4:725 <r>4+iz=r-4:w=10 :b=5:725 <r>5+iz=r-5:w=15:b=6:725 <r>6+iz=r-6:w=21:b=7:725  732 0y=r:q=0:x=yz-1:r(x)>qq=r(x) =x:n=0:x=yz-1:n=n+q-r(x):x:n=w728   x=zy:k=zy:x=kk:x:j=b:  r(x)=r(k)  k:x:j=b:  s=s+j ?s>0e(t+2)=e(t+2)+s:890z:1300 r(9 )=40(e(t+2)=e(t+2)+1:s=1:r=r+1:890z:r=r-1:r(9 )=0:i=0:1300:900 r(9 )=31e(t+2)=e(t+2)+2:s=2:r=r+1:890z:r=r-1:i=0:r(9 )=0:1300:900:r=0  s=0:  #0;1,0;1;7;1;" SCORING HANDS. ":n=14:c=0:p$(n,3)=""p$(n,3)=""c=2 !-n+2,1;7;n;" ";c;p$(n) ";c=0:s$(n,3)=""s$(n,3)=""c=2 #jn+2,23;n;" ";c;s$(n):s(n+6)=0:p(n+6)=0:n:d=1t=2 $d=2t=1 %7f=0:t=2x=14:c(x)=s(x):x &,t=1x=14:c(x)=p(x):x 'Hc(6)=c(5):x=15:c(x)>10 c(x)=10 (gx:s=0:c(1)+c(2)+c(3)+c(4)+c(5)=15s=s+2:813- )U8215:n=15:x:y:z:w:c(x)+c(y)+c(z)+c(w)=15s=s+2 *Qn:8237:n=110 :x:y:z:c(x)+c(y)+c(z)=15s=s+2 +In:8193:n=110 :x:y:c(x)+c(y)=15s=s+2 ,n -Kc(5)=c(6):s>9 8,t(t);"15 FOR ";s:815/ .8,t(t);"15 FOR ";s /`e(t+2)=e(t+2)+s:892|:1300:t=2x=14:c(x)=s(x):x 0,t=1x=14:c(x)=p(x):x 1v8193:s=0:n=110 :x:y:c(x)=c(y)s=s+2:e(t+2)=e(t+2)+2:f=1 27n:s>9 9 ,t(t);"PAIRS FOR ";s:8215 31,2,1,3,1,4,1,5,2,3,2,4,2,5,3,4,3,5,4,5 49 ,t(t);"PAIRS FOR ";s 51,2,3,4,1,2,3,5,1,2,4,5,1,3,4,5,2,3,4,5 6892|:1300 71,2,3,1,2,4,1,2,5,1,3,4,1,3,5,1,4,5,2,3,4,2,3,5,2,4,5,3,4,5 8Jx=15:(62137+x),c(x):x:62143:s=620000 RRe(t+2)=e(t+2)+s:s>9 10 ,t(t);"RUNS FOR ";s:852T S 10 ,t(t);"RUNS FOR ";s T892|:1300 Us=0:t=1p$(1,3)=p$(2,3)p$(1,3)=p$(3,3)p$(1,3)=p$(4,3)p$(1,3)=c$(1,3)s=5:858Z Vt=1p$(1,3)=p$(2,3)p$(1,3)=p$(3,3)p$(1,3)=p$(4,3)s=4:858Z Wt=2s$(1,3)=s$(2,3)s$(1,3)=s$(3,3)s$(1,3)=s$(4,3)s$(1,3)=c$(1,3)s=5:858Z Xt=2s$(1,3)=s$(2,3)s$(1,3)=s$(3,3)s$(1,3)=s$(4,3)s=4:858Z ZT11 ,t(t);"FLUSH FOR ";s:e(t+2)=e(t+2)+s:892|:1300 [ds=0:x=14:t=1p(x)=11 p$(x,3)=c$(1,3)862^ \Ft=2s(x)=11 s$(x,3)=c$(1,3)862^ ]x:875k ^s=1:12 ,t(t);"SCORES ";s;13 ,t(t);"FOR HIS";14,t(t);"HAT":e(t+2)=e(t+2)+s:892|:1300 k!u=1901:878n l.u=1:t=t+1:t>2t=1 m 805% n#d=d+1:d>2d=1 pw#0;1,0;7;2;" PRESS ANY KEY TO DEAL NEXT HAND":.1}L,45-:0:500 z4s>9 5+r,15;"FOR ";s:892| {5+r,15;"FOR ";s |,e(3)>121ye(3)=121y },e(4)>121ye(4)=121y ~~21,1;e(3);21,5;0;6;" PLAYER SCORE SPECTRUM ":21,29;e(4);: #0;1,0;4;" NEITHER CAN GO. PRESS ANY KEY ":.1}L,45-:0:u=0:x=19 :5+x,9 ;" ":x:r(10 )=r:r=0:r(9 )=0: #0;1,0;3;1;7;" TO SCORE BOX PRESS ANY KEY ":.1}L,45-:0:n=714:n,0;" ":n |#0;1,0;1;7;1;" SCORING BOX ":7,15;5;"BOX." Nn=14:c=0:b$(n,3)=""b$(n,3)=""c=2 *n+7,15;7;c;b$(n):n ,f=0:x=14:c(x)=b(x):x Hc(6)=c(5):x=15:c(x)>10 c(x)=10 gx:s=0:c(1)+c(2)+c(3)+c(4)+c(5)=15s=s+2:913 U8215:n=15:x:y:z:w:c(x)+c(y)+c(z)+c(w)=15s=s+2 Qn:8237:n=110 :x:y:z:c(x)+c(y)+c(z)=15s=s+2 In:8193:n=110 :x:y:c(x)+c(y)=15s=s+2 n Kc(5)=c(6):s>9 8,t(t);"15 FOR ";s:915 8,t(t);"15 FOR ";s Ue(t+2)=e(t+2)+s:892|:1300:x=14:c(x)=b(x):x v8193:s=0:n=110 :x:y:c(x)=c(y)s=s+2:e(t+2)=e(t+2)+2:f=1 7n:s>9 9 ,t(t);"PAIRS FOR ";s:921 9 ,t(t);"PAIRS FOR ";s 892|:1300 Jx=15:(62137+x),c(x):x:62143:s=620000 Re(t+2)=e(t+2)+s:s>9 10 ,t(t);"RUNS FOR ";s:952  10 ,t(t);"RUNS FOR ";s 892|:1300 s=0:b$(1,3)=b$(2,3)b$(1,3)=b$(3,3)b$(1,3)=b$(4,3)b$(1,3)=c$(1,3)s=5 T11 ,t(t);"FLUSH FOR ";s:e(t+2)=e(t+2)+s:892|:1300 Zs=0:x=14:b(x)=11 b$(x,3)=c$(1,3)957 x:975 s=1:12 ,t(t);"SCORES ";s;13 ,t(t);"FOR HIS";14,t(t);"HAT":e(t+2)=e(t+2)+s:892|:1300  u=0:e(4):1500:7:0:5:0::1,11 ;6;"CRIBBAGE":n=031:v:"a"+n,v:n Un=1519:m=130:n=17m=2n,m;4;"*":m %n=17n,m;4;" ":m:n n,m;4;"*":m:n  500 Iy=0:z=0:x=14:v=p(x):v>10 v=10 9v>31-r(9 )p(x+6)=1y=y+1  v=s(x):v>10 v=10 9v>31-r(9 )s(x+6)=1z=z+1 x *y=4z=4r=0800  Ny=4 z=4r(9 )=40(:t=t+1:t>2t=1 Cy=4z=4748:t=t+1:t>2t=1  y=4z=4650 Æy=4t=1#0;1,0;6;1;" SPECTRUM'S TURN. YOU CANNOT GO ":t=2:r=r+1:6 Ĉz=4t=2#0;1,0;7;1;" YOUR TURN. SPECTRUM CANNOT GO ":t=1:r=r+1:652  Ke(1)<31e(1)>015,e(1);4;"*" Ue(1)<61=e(1)>3016,61=-e(1);4;"*" Ue(1)<91[e(1)>60<15,e(1)-60<;4;"*" We(1)<121ye(1)>90Z16,121y-e(1);4;"*" ke(3)<31e(3)015,e(3);6;1;"P":e(1)=e(3) ue(3)<61=e(3)>3016,61=-e(3);6;1;"P":e(1)=e(3) ue(3)<91[e(3)>60<15,e(3)-60<;6;1;"P":e(1)=e(3) we(3)<121ye(3)>90Z16,121y-e(3);6;1;"P":e(1)=e(3) Ke(3)121y17,2;6;1;"P":1400x Ke(2)<31e(2)>019,e(2);4;"*" Ue(2)<61=e(2)>3018,61=-e(2);4;"*"  Ue(2)<91[e(2)>60<19,e(2)-60<;4;"*" !We(2)<121ye(2)>90Z18,121y-e(2);4;"*" "me(4)<31e(4)>019,e(4);6;1;"S":e(2)=e(4): #we(4)<61=e(4)>3018,61=-e(4);6;1;"S":e(2)=e(4): $we(4)<91[e(4)>60<19,e(4)-60<;6;1;"S":e(2)=e(4): %ye(4)<121ye(4)>90Z18,121y-e(4);6;1;"S":e(2)=e(4): &Ke(4)121y17,2;6;1;"S":1400x ' xe(3)>e(4)#0;1,0;6;1;" YOU WIN BY ";121y-e(4);". PRESS ANY KEY. ":1407 }}e(4)>e(3)#0;1,0;6;1;"SPECTRUM WINS BY ";121y-e(3);".PRESS A KEY." ~Px=12:1411:y=111 :w:z:w,z:y:x:1408 Dx=12:1410:y=126:w:z:w,z:y:x 0:#0;1,0;6;1;" PRESS ANY KEY FOR NEXT GAME. ":0:d=d+1:d>2d=1  1000 .4L,12 ,.2~L,12 ,.2~L,12 ,.2~L,14,.2~L,16,.2~L,16,.2~L,19,.2~L,16,.2~L,19,.2~L,21,.2~L,19,.2~L,28,.2~L,26,.2~L,24,.2~L,21,.2~L,21,.2~L,19,.2~L,21,.2~L,19,.08}# =,16,.05|L,14,.2~L,12 ,.2~L,16,.2~L,14,.2~L,14,.75@,12 .75@,3,.5,3,.5,1,.5,0,.5,0,.5,-2,.5,0,.5,0,.5,-2,.5,-2,.75@,-4 00000000 01100110f 11111111 11111111 01111110~ 00111100< 00011000 00011000 00000000 00111100< 00111100< 11011011 11111111 11011011 00011000 00111100< 00000000 00011000 00111100< 01111110~ 11111111 01111110~ 00111100< 00011000 00000000 00011000 00111100< 01111110~ 11111111 01011010Z 00011000 00011000 @"x=1:d=2x=23 AA8,x;"SCORE 2";9 ,x;"FOR HIS";10 ,x;"HEELS": I#0;1,0;6;" SPECTRUM IS DISCARDING 2 CARDS.": I#0;1,0;6;"SPECTRUM IS DECIDING CARD TO LAY": V5:0:0::6:x=021:x,2+x;"CRIBBAGE":x Bx=021:x,22-x;"CRIBBAGE":x:19,13 ;0;6;"1983";20,11 ;"D.J.Mutch.";2,14;"CRIB";9 ,2;"PRESS";9 ,25;"PRESS";10 ,3;"ANY";10 ,26;"ANY";11 ,3;"KEY";11 ,26;"KEY":0:3008 :1,0;" CRIBBAGE BOTH YOU AND THE SPECTRUM ARE DEALT 6 CARDS. YOU ARE ASKED TO DISCARD ONE CARD THEN ANOTHER. TRY TO KEEP CARDS WHICH COMBINE TO MAKE 15,(COLOUR CARDS COUNT AS 10),RUNS OF 3 OR MORE, OR PAIRS. BEWARE OF THROWING GOOD SCORING CARDS INTO THE BOX WHEN IT BELONGS TO THE SPECTRUM, IF, HOWEVER, THE BOX IS YOURS, YOU COULD THROW SCORING CARDS IN IT TO SCORE LATER WHEN THE BOX IS TOTTED UP. WITH EACH NEW HAND THE BOX ALTERNATES BETWEEN YOU AND THE SPECTRUM. IN THE ACTUAL CARD GAME, IT IS THE DEALER THAT HOLDS THE BOX. PRESS ANY KEY" W0::1,1;"WHILE YOU ARE DECIDING WHICH CARDS TO DISCARD, THE SPECTRUM HAS DECIDED WHICH TWO CARDS TO THROW IN THE BOX. A CARD IS THEN CUT. IF THE CARD IS A JACK, THE DEALER,(THE HOLDER OF THE BOX), SCORES 2 FOR HIS HEELS. FROM NOW ON, READ THE PROMPTS DISPLAYED IN THE LOWER PART OF THE SCREEN WHILST PLAYING YOUR HAND. EACH HAND IS PLAYED UP TO 31 (THE SUM OF ALL THE CARDS LAID),AND ANY SCORES ARE NOTED NEXT TO THE CARD LAID AND THE SCORE IS AUTOMATICALLY PEGGED UP ON THE CRIB BOARD. PRESS ANY KEY." 0::1,1;"YOU SCORE AS FOLLOWS:- TOTAL LAID = 15 SCORE 2 2 CARDS SAME SCORE 2 3 CARDS SAME SCORE 6=3 PAIRS 4 CARDS SAME SCORE12=6 PAIRS RUN OF 3 OR 3+ SCORE 3 OR 3+ LAST CARD = 31 SCORE 2 LAST CARD < 31 SCORE 1 IN CRIBBAGE A RUN MAY BE LAID IN ANY ORDER.(e.g.4567 SCORES 4 7654 SCORES 4, 6754 SCORES 4 AND SO ON), BUT IS BLOCKED BY A DOUBLE.(e.g.6754 SCORES 4 BUT 67754 SCORES NIL.) TRY TO SCORE POINTS BUT AVOID LAYING CARDS WHICH COULD HELP THE SPECTRUM TO SCORE. PRESS ANY KEY" 0::1,1;"WHEN ALL CARDS HAVE BEEN LAID, THE SPECTRUM THEN REVEALS ITS OWN HAND AND BOTH HANDS ARE SCORED (THE HOLDER OF THE BOX LAST). SCORING IS AS WHEN PLAYING YOUR HAND BUT IF ALL CARDS IN THE HAND ARE THE SAME SUIT,THEN YOU SCORE A FLUSH FOR 4. IF THE CUT CARD ALSO MATCHES THE SUIT, YOU THEN SCORE A FLUSH FOR 5. BEAR THIS IN MIND WHEN THROWING CARDS INTO THE BOX AT THE START OF EACH HAND. A FINAL BONUS OF 1 FOR HIS HAT IS SCORED WHEN YOU HOLD THE JACK THAT MATCHES THE SUIT OF THE CUT CARD. YOU MAY THEN STUDY THE HANDS AND SCORES BEFORE PROCEEDING TO SCORE THE BOX. PRESS ANY KEY." R0::1,1;"THE BOX IS THEN SCORED IN THE SAME MANNER AS THE HANDS WITH THE EXCEPTION OF THE RULE THAT A FLUSH CAN ONLY BE SCORED IF ALL 4 CARDS AND THE CUT CARD MATCH SUIT, THUS SCORING 5. PLAY CONTINUES UNTIL SUCH TIME AS EITHER THE SPECTRUM OR THE PLAYER SCORES 121 OR MORE. I HOPE YOU ENJOY PLAYING CRIB AND EVENTUALLY BECOME AN EXPERT ABLE TO HOLD YOUR OWN WITHIN ANY CARD PLAYING GROUP. PRESS ANY KEY TO PLAY A GAME.":0:3014 6::" CRIBBAGE ________ CRIB IS BASED ON THE CARD GAME CALLED CRIBBAGE AND LONG PLAYED IN PUBS. THIS PROGRAM FOLLOWS THE MOST COMMON RULES EXACTLY, AND IS DESIGNED TO TEACH AS WELL AS TO GIVE PLEASURE TO THE SOLITARY SKILLED PLAYER. CRIB IS A GAME OF BOTH LUCK AND SKILL, WITH SCORING THAT AT FIRST SIGHT SEEMS COMPLEX. FOR THIS REASON, THE METHOD OF PLAY AND SCORING IS PRINTED ON THE CASSETTE INLAY CARD AS WELL AS WITHIN THE PROGRAM. I HOPE THE SPECTRUM PROVES A WORTHY OPPONENT GIVING HOURS OF PLEASURE. PRESS ANY KEY." t0::10 ,8;"PRESS X TO PLAY PRESS R FOR RULES." ="X"Ŧ="x"3014 ="R"Ŧ="r"3003 3011 i=0:t(2):t(1)=1:t(2)=19:a(524):c$(1,3):t=2:d=1:h$(6,3):h(15):c(6):p$(6,3):s$(6,3):x$(1,3):b$(4,3):b(4) 1000 Ax=(*524)+1:a(x)=1a(x)=0:4325  4320 Gx$(1)=" ":x<14x$(1)="":c=0:4330 Mx>13 x<27x$(1)="":c=2:x=x-13 :4330 Mx>26x<40(x$(1)="":c=2:x=x-26:4330 6x>39'x$(1)="":c=0:x=x-39' )x=1x$(1)="A "+x$(1) )x=2x$(1)="2 "+x$(1) )x=3x$(1)="3 "+x$(1) )x=4x$(1)="4 "+x$(1) )x=5x$(1)="5 "+x$(1) )x=6x$(1)="6 "+x$(1) )x=7x$(1)="7 "+x$(1) )x=8x$(1)="8 "+x$(1) )x=9 x$(1)="9 "+x$(1) *x=10 x$(1)="10"+x$(1) *x=11 x$(1)="J "+x$(1) *x=12 x$(1)="Q "+x$(1) *x=13 x$(1)="K "+x$(1)  [itdu 1 rcw ~zsjbq f 44 2 A 3 9 N ! 6 9 107 7 7 2 A 3 9 3 9 4 Q 105 10    5   5  5    7 109 2 A 3