ZXTape! 0Created with Ramsoft MakeTZX2I Card Games Buffer Micro P. Etheridge1984English Card GamesROMgames  eJ 5400  "gamest" !7:19,31;" " "gamesm"620000 ("19,31;" ":"gamesb" 2  5480h "i=144148 ,k=i 6j=07 @l Jk+j,l Tj ^i c hG0,76L,82R,82R,82R,82R,76L,0 rM108l,254,254,254,126~,60<,24,0 |J24,24,126~,126~,60<,24,60<,0 M16,568,124|,254,254,124|,568,16 J0,16,568,124|,124|,568,16,568  "kx6l88gamest @@lllww|<<@@<<<<88~~<8~<|BB@~~@BBBB||@@@w~|8w(wF|BB@~~@BBBB(|||~|J|~~@<<@>>>>~~HBw~<|wR|BB@@||<<~BBB<|8b|BB@<<@<<<<88<<<w<8w>w<|@8||||| A?||'IA|\ H?@|P8|w|~|~~|C A|~||@JA~<<|T P|`<?<<||@p|q@|A>|| ((HABB|(D@`|@B?|BF|w||8|9||A|ĠHA< |(@|B8?|<BJ|A0||IA?}LPB|HA|>8?x>R|w|1@B?|?|9B|  YA?|\ABB|~B>||>b|| A<~|~>q<|PB IA|V>>B<<|>D|<><<||AA?|| I|T D|H<|?>|<<<<<<B|~~~B~|>x<~<<<><~BBBBB@@@B@BDB@(BB~<>~@@BBB|||~|BB@|B<(~>>>>@|@@@B@|BN@>BH~>@@@@@B@DDB@B~~~<@B@~~~B~B>x<~><<66<888888888888888888888888888888888888888888888888888888888888888888888888:88888:8:88888:88888888888888888:88888:8:88888:88888888888888888::::::::888888888888888888888888:888:888:8888888:888888888888888:888:888:888888888888888889988888888:88888888888888888888999888888888888888888888888888899999888888899999999998888888999999999988888889999999999888888899999999998888888999998999988888888888888888888888888889988888:888888888888888:8888888899<<<<8:888:888:8888888:888888888888888:888:888:8888888:8888888888888888888888888888888888888888889999999999999999999998888888888899999999999999999999998888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888gamesm 0W7:W(((>201y:XO>2ZA"*:Z<2ZwwQ:W:0Cz2 yP:^W:W:] ~~~~~~( ~ݖ ~~:\W:[>PQ 8{_(!_:[G!$>w#>!#24͘3͖ !:YO:Zݾ(9~w#"*A:Z(~ݾ :2(H y :Zݾ(~w!!~(# !A #"A~݆Ox( yp#w#y :2#(#N xG!##*"##S (##!:[ .:XGo:Zݾ f:Zݾ(|ݾ ):[(:YG:X(|ݾ } ݾ ~!_g ~d(>2F!#~Wy8>BG:2+ɺgamesb ߂߂J:0:7:5:5,5;"1 CRIBBAGE";7,5;"2 BINGO";9 ,5;"3 PATIENCE";11 ,5;"4 PAIRS" 1d$="ENTER GAME (1 - 4)":inv=1:520 d$<"1"d$>"4"20 d$="1":45-:10  d$="2":3000 :10 # d$="3":4000:10 (:6000p:10 -"noc=6:62040X,6 / inv=0 2 e(6) 7winp=121y A%w$="21nnnnA23456789JQKnnn0yyy" Fn$(12 ,8) Ko$(6,3) PZo$(2)="NO":o$(3)=" 6":o$(4)="NO":o$(5)="NO":o$(6)="NO" Ubox=1+(*2) Zp$="":i=14 _d$=w$(i+6) dj=113 ip$=p$+w$(10 +j)+d$ nj:i sn$(1)="Fifteens":n$(2)="Pairs":n$(3)="Flushes":n$(4)="Runs":n$(5)="Jack":n$(6)="TOTAL":n$(7)="COMP":n$(8)="YOU":n$(9 )="BOX" xKn$(10 )=" SCORE":n$(11 )=" DISCARD":n$(12 )=" PLAY" } w$(3)="y"250 0,0;"Available Options :";3,5;"OPTION";3,26;"VALUE";5,7;"0 Play Game";7,7;"1 Demonstration";7,27;o$(2);11 ,7;"3 Enter your score";11 ,27;o$(4);13 ,7;"4 Discard check";13 ,27;o$(5);9 ,7;"2 Number of Cards";9 ,27;o$(3) D15,7;"5 Play Checked";15,27;o$(6) &d$="Enter Option (0 - 5)":520 d$="0"250 d$="1"200 d$="2"175 d$>"2"d$<"6"220 145 )d$="Number of cards ? (5-7)":520 d$<"5"d$>"7"175 \noc=d$:winp=1+60<*(noc-4):o$(3,2)=d$:9 ,28;d$ #62040X,noc:62045],winp 135 ,o$(2)="YES":7,27;"YES" "Number of Games ? ";nog w$(36)="ynnn" 250 Ji=d$:d$=w$(i+1):w$(i+1)=w$(25+i):w$(25+i)=d$ 'd$=" ":w$(i+1)="n"d$=" NOT " |21,0;n$(7+i);" will";d$;"be checked":1,5:21,0;" " &d$="YES":w$(i+1)="n"d$="NO" Ho$(i+1)=d$:5+2*i,27;o$(i+1):135 w$(5)=d$ (e(3)=0:e(4)=0 620l 'player=1:1985:460  &player=2:300,:460 (865a:w$(24)="y"290" )1210:w$(24)="y"290"  940 w$(24)="n"255 "570::d$="n" ' 125} ,w$(3)="y"1995: 6"Your discard ? (nn) ";c$ ;e(1)=0 @c$"h"335O E e(1)=01995 JT21,0;"TRY '";e(1)+e(2);"'":3,10 :3106 Oc$2350^ T$c$(1)=c$(2)350^ YNc$(1)>"0"c$(1)nocc$(2)>"0"c$(2)noc355c ^n21,0;1;1;"INVALID !":2,-20:21,0;" ":3106 cw$(5)="n"395 h e(1)=01995 md$=e(1)+e(2) r-c$=d$c$=d$(2)+d$(1)395 w;inv=1:d$="ARE YOU SURE ? (y or n or h)":520 |d$="h"330J d$="n"3106 400:450 400:415 i=12 Ql=2*(6-noc+c$(i)):14,l;" ";15,l;" ";17,l;" " i: F.2~L,9 :inv=1:d$="HAPPY ? (y or n or s)":520  d$="s"62042Z,502:i=62086+5*(c$(1)):j=62086+5*(c$(2)):i,502:j,502:2050:i,0:j,0:21,0;"SCORES ";62160:2,5:21,0;" ":415 d$="y"450 i=12 j=c$(i):k=(62082+5*(c$(i))):ink=2*(k<27):ink;14,2*(6-noc+j);p$(2*k-1);15,2*(6-noc+j);p$(2*k) )17,2*(6-noc+j);c$(i) i:3106 2e(1)=c$(1):e(2)=c$(2)  i=12 boxno=boxno+1 ,k=620011+40(*player+5*e(i) j=14 0(62126+j+5*(boxno-1)),(k+j) j 5(620066+40(*player+5*e(i)),99c k=2+12 *(player-1):l=2*(6-noc+e(i)):k,l;" ";k+1,l;" ":player=217,l;" " Ml=22+2*(boxno-1):1;9 ,l;"";10 ,l;"" i  inv;21,0;d$  =""525  d$= ""535  inv=0 !421,0;" " & +6d$="PRINT WANTED ? (y or n)":inv=1:520 0 d$="y" 5 :f4;0;1;1;21,0;"Win to ";n$(player+6):2,14 D-e(player+4)=e(player+4)+1 Iw$(3)="n"600X NInog=e(5)+e(6)o$(2)="NO":w$(3)="n":600X S 610b X)d$="Another game ? (y or n)":520 bw$(24)="n" g l v;b$=" " {f(2,13 ) Vbox=w$(box):62044\,box:boxno=0:e(1)=0:e(2)=0 L:1;1;4;8,5;"DEALING":.4L,10 i=12 j=1noc  680 <l=k-13 *((k-1)/13 ):b$(l)<"1"b$(l)="0" j i:810*:725 k=1+(*524) b$(k)>"0"680  b$(k)=i: )z=620022+40(*i+5*j:z,k 2(z+1),k-13 *(((k-1)/13 )) G(z+2),(z+1):(z+2)>10 (z+2),10 -(z+3),1+((k-1)/13 ) (z+4),0  >:i=512 :4;i,0;"":i ڪ4;1,19;"+----+----+";2,19;"| | |";3,19;"+----+----+";4,19;"| | |";5,19;"+----+----+" #d$="COMP":box=2d$="YOUR" 1;0,4;"COMP WINS ";e(5);1;0,19;"FIRST TO ";winp;1;2,20;"COMP";2,25;" YOU";19,4;"YOU WINS ";e(6);" ";1;7+5*(box-1),21;d$;" BOX" ,i=12:750:i:765 Bd$=e(i+2):d$<3d$=" "+d$:d$<3d$=" "+d$ *4,21+5*(i-1);d$  i=1noc k=2*(6-noc+i) (1;2,k;"";3,k;""  Lj=(62082+5*i):ink=2*((62085+5*i)<3) Bink;14,k;p$(2*j-1);15,k;p$(2*j) 17,k;i i  61;8,11 ;"";9 ,11 ;"" % *l=113 4b$(l)=" "855W 9k=l52413 >b$(k)<"1"850R Ci=b$(k):e(i)=e(i)+1 Hj=e(i):695 M>j=(620033+40(*i+5*j):f(i,j)=f(i,j)+1 Rk Wl \ aJ21,0;4;1;1;"CUTTING":.2~L,3 k p,i=3:j=5:680:695 ui=12 z&y=620077+40(*i+5*noc j=03 (y+j),(z+j) j (y+4),0 i 21,0;" " ink=2*(k<27) Nink;8,11 ;p$(2*k-1);9 ,11 ;p$(2*k) (z+1)=11 e(box+2)=e(box+2)+2:2;1;1;21,0;"TWO FOR HIS HEELS !":2,30:21,0;" ":i=box:750:e(box+2)winpw$(24)="y":player=box  player=w$(box) 62042Z,99c 62041Y,noc+1 not=noc+1  1100L  1045:w$(24)="y" player=w$(player)  1100L  1045:w$(24)="y" player=3 62041Y,5  k=9  not=5  l=22  1065)  1100L  player=box  1045  [.1}L,5:w$(3)="n"inv=1:d$="PRESS ANY KEY TO CONTINUE":520  2e(player+2)=e(player+2)+62160 i=player:750 *e(player+2)winpw$(24)="y" $ )i=1not-1 .)z=620022+40(*player+5*i 33player<3(z+4)=99c1090B 8*j=z:ink=2*((z+3)<3) =dink;k,l+2*(i-1);p$(2*j-1);k+1,l+2*(i-1);p$(2*j) Bi G LZplayer<3k=2+12 *(player-1):l=2*(7-noc):1065) QYplayer=1(player=3box=1)w$(3)="y"w$(4)="n"1140t V 2050 [;player=3"Enter box score (or 999) ";i:1125e `"Enter your score(or 999) ";i ei=9991145y jiɾ621604;1;1;21,0;"TRY AGAIN !":1,-20:21,0;" ":1115[ o t 2040 y14,26;" " ~ j=14 714,26;n$(6+player,14) i=16 a(62154+i)>0i=6j=j+1:j,17;n$(i);j,26;(62154+i) i .w$(3)="y"2,0:1185 &d$="OK ? (reply any key)":520 i=15j i,17;" " i 14,26;" "  S21,0;"PLAY BEGINS":2,8:21,0;" " not=2*(noc-2) (e(1)=0:e(2)=0  1355K count=0  nop=0 player=w$(box):oppo=box t=1not  1295 w$(24)="y"1285  1540 w$(24)="y"1285 t tally01340< 4;6,7;"";7,7;"";10 ,7;"";11 ,7;"";8,0;"";9 ,2;""   Az=0:w$(24+oppo)="n"e(oppo)=noc-2z=1 ,player=2w$(3)="n"1410 #e(player)=noc-213357 # 1650r (card>0 -w$(24+player)="n" 2c21,0;4;1;1;"PASS":.5,-20:21,0;" " 76z=0player=oppo:oppo=w$(player):1295 <oppo=w$(27):player=w$(oppo):21,0;"POINT TO ";n$(6+oppo):.5,5:21,0;" ":e(2+oppo)=e(2+oppo)+1:i=oppo:750:e(2+oppo)=winpw$(24)="y":player=oppo: At=not+1 F1355K:1295 Kc(not,2) U nop=0 Z_1;8,0;"TALLY";0;9 ,2;"0";4;9 ,3;"" _w$(2526)="yy" d*e(1)=noc-2w$(25)="n" i*e(2)=noc-2w$(26)="n" ntally=0 s`4;6,7;"";7,7;"";10 ,7;"";11 ,7;"" x[.1}L,5:w$(3)="n"inv=1:d$="PRESS ANY KEY TO CONTINUE":520 } comb=99c $e(2)=noc-21450 (w$(6)="y"1650r:comb=card  s=99c ?d$="Enter card (or 'p' or 'h')":.2~L,40(:520 d$"p"1460  1665:d$="q"1535 w$(26)="n"  13357 d$"h"1485 &comb99ccard=comb:1475 1650r:comb=card 2d$="TRY 'p'":card>0d$="TRY '"+card+"'" P21,0;d$:2,1:21,0;" ":1435 d$<"1"d$>noc1535  card=d$ ,i=620022+40(*player+5*card #(i+4)>97a1535 )tally+(i+2)>311535 w$(6)="n" Ad$="y":combcardd$="ARE YOU SURE ? (y or n or h)":520  d$="y" d$="h"1465  1435 `3;6;1;1;21,0;"INVALID":1,-15:1435 Process card  .off=620022+40(*player+5*card (off+4),98b nop=nop+1 c(nop,1)=(off+1) c(nop,2)=(off+2) ";f(player,c(nop,1))=f(player,c(nop,1))-1 'Fs=99cscore=0:tally>0i=nop:1875S:score=s ,Ck=2+12 *(player-1):l=2*(6-noc+card) 1.j=off:ink=2*((off+3)<3) 6\player=1w$(3)="n"ink;k,l;p$(2*j-1);k+1,l;p$(2*j) ;kplayer=1w$(3)="n".1}L,502:inv=1:d$="PRESS ANY KEY TO CONTINUE":520 @tally=tally+c(nop,2) E9 ,2;tally Jscore>015,17;score;" points":1,8:15,17;" ":e(player+2)=e(player+2)+score:i=player:750:e(player+2)winpw$(24)="y": O<k,l;" ";k+1,l;" ":player=217,l;" " Tj=off:ink=2*((off+3)<3):ink;6+4*(player-1),7;p$(2*j-1);7+4*(player-1),7;p$(2*j) Ytally=311355K ^e(player)=e(player)+1 c/w$(24+player)="y":w$(27)=player h{player=w$(player):oppo=w$(player):e(player)=noc-2w$(24+player)="n"player=w$(player):oppo=w$(player) m r,count=0:card=0:score=0 |d$="q" x=noc1-1 +off=620022+40(*player+5*x %(off+4)>97a1725 +(off+2)+tally>311725 d$="p"d$="q": i=nop+1 c(i,1)=(off+1) c(i,2)=(off+2) &s=0:tally>01875S #s>01735:1720  1760 #y>countcount=y:card=x:score=s x  y=120x+s s+e(player+2)winp J2*(off+2)=31-tallys<4z=0y=y-120x  3tally+c(i,2)=5z=0y=1: tally>018400 Lc(i,2)<5f(player,5-c(i,2))>0y=80P: "c(i,2)<61820 5f(player,15-c(i,2))=01820 #y=1:c(i,1)=9 c(i,1)=7  y=70F-c(i,2) 6e(2+oppo)+2winpz=0y=y-70F  z=11835+ !9f(player,c(i,1))>1y=30+20*z: &1c(i,2)>5y=20-c(i,2): +y=30+c(i,2): 04c(i,2)+tally=21z=0y=1: :%w=c(i,2)-c(i-1,2) ?Yw=1(tally+2*c(i,2)+w-(w=-1))<32 y=1+z*40(: DTw=2(tally+2*c(i,2)-w/2)<32 y=2+z*30: I_f(player,c(i,1))>1(tally+2*c(i,2))<32 y=30+20*z: Ny=20+c(i,2): S score play X s=0 ]*tally+c(i,2)=15s=s+2 b*tally+c(i,2)=31s=s+2 g k=0 lj=i-11-1 q'c(i,1)c(j,1)1920 v k=k+1 {j  k>0s=s+k*(k+1):  i<3 b$=" " 6n=0:k=1:l=c(i,1):m=l:b$(l)="1" j=i-11-1 "b$(c(j,1))" "1980  k=k+1 b$(c(j,1))="1" ,c(j,1)mm=c(j,1) k=m-l+1k>2n=k j  s=s+n: K4;1;1;21,0;"THINKING":1,20 62039W,1 62041Y,62040X 62043[,player 62044\,box 62046^,e(player+2) 620000 Je(1)=noc+1-62153:e(2)=noc+1-62154 21,0;" "  u4;1;1;21,0;"SCORING":1,15:2055:21,0;" ": 2055: 62039W,2  62043[,player 620000  :1,0 a=0 d=0 i=0  j=0 k=0 l=0 p$(8,10 ) b(8,10 ) v(8) #k$="5461072300077000":3085 i=1a p$(i) = "PLAYER " p$(i,8)=i i:  8d$="Number of Players ? (1-8)":inv=1:520 d$<"0"d$>"8"3090 a=d$ #a>03060 :3130: :0;1;1;"Name of Player or END ? ";c$ !!c$ = "END"c$="end"3130: & a=a+1 +a>83140D -=j=1:c$<9 j=1+((10 -c$)/2) 0p$(a,j10 )=c$ 5 3100 :rgap=8-2*((a+1)/2):2;1;1;1,1;"SELECTING YOUR NUMBERS" ?33310 :c$=b$:i=17:c$=c$+b$:i D i=1a Ij=110 N!k=1+8*(*90Z) Sc$(k)=i3150N U4c$(k)" "c$(k+1k+7)=c$(kk+7) X c$(k)=i ]j bi g)c(8):i=17138 qj=ii+7 vc$(j)=" "3205 {Dk=c$(j):c(k)=c(k)+1:b(k,c(k))=1+(i-1)/8 j i H2;1;1;1,1;"HERE COME YOUR NUMBERS !" 2,0 2,1 2,2::7 x=0:i=1a "ink=k$(i+8):paper=k$(i) d=1 #i=(i/2)*2d=2 ink;paper;x,16*(d-1);"+-- --+";x+1,16*(d-1);"| | | | | |";x+2,16*(d-1);"|--|--|--|--|--|";x+3,16*(d-1);"| | | | | |";x+4,16*(d-1);"+--------------+" B0;7;1;x,3+16*(d-1);p$(i) k=x+1 j=110 b0;1;k,1+3*(j-1-5*(j>5))+16*(d-1);b(i,j) j=5k=k+2 j d=2x=x+5+gap i D4;1;1;21,1;"SHUFFLING NUMBERS !" c$="010203040506070809101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990" "3310 :b$=b$+b$:3315 cb$=" ": i=90Z1-1 j=1+(i*) Ab$(2*i-12*i)=c$(2*j-12*j) Gj j=1a Ck=110 Hb(j,k)m3410R Mk Rk=11 3470 Wb(j,k)>m3470 \v(j)=v(j)+1 aDl=1+(5+gap)*((j-1)/2)+2*(k>5) fWd=1+3*(k-1-5*(k>5))+16*((j/2)=(j/2)) k0;1;l,d;" " p1,0 u l,d;" " zv(j)<10 3470  i=99c t3;1;1;(5+gap)*((j-1)/2),3+16*((j/2)=(j/2));p$(j) 3,20 j i 5,30 8:d$="ANOTHER GAME ? (y or n)":inv=1:520 d$ = "n" i=1a v(i) = 0 i 3d$="NEW CARDS ? (y or n)":inv=1:520 d$="y"3130: 3225 np=0:nw=0   A0,0;4;1;1;"SHUFFLING PACK !!" card=0 z(8,2)  y(24)  c$=" " d$=" "  i=0  j=0  k=0  l=0  n=0  p=0  f(524) a(234)  b$=""  z$="2020"  e$=" " s:x$="0102030405060708091011121314151617181920212223242526272829303132333435363738394041424344454647484950515253"  i=5241-1 k=(i*)+1 0a(568+i)=x$(2*k-12*k) Ax$(2*k-1106j)=x$(2*k+1106j) i " $(0;0,0;1;"0" 'count=568 ,j=17 .:0;1,2+4*(j-1);1;j ; i=j7 @#k=i+108l+(j-1)*7 Ecount=count+1 Jcard=a(count) O a(card)=k T a(k)=card Y c$="" ^7i=jz(j,1)=card:z(j,2)=card:4790 hc$(3)=""ink=1 w*j+1,i+(i-1)*3;ink;c$ |c$""f(card)=1  c$="" i j j=85U108l  a(a(j))=j j =19,0;1;1;"PLAYED ";np;" WON ";nw n20,21;0;"24 ";20,24;1;"";20,31;0;1;"8" 820,5;6;1;"CARDS IN DECK : "  j=0 count=0  jj=0 =d$="ENTER ACTION (d or e or '1-8')":inv=1:520  p=0 d$"e"4320 44000:d$="n" 3,-20:4010  d$="d"4430N:4285 'd$<"1"d$>"8"4335:4285 3c$=d$:d$="ENTER MOVE TO COLUMN (0-7)":520 'd$<"0"d$>"7"4335:4285 "d$=c$+d$:4525:4355 @21,1;4;1;1;"WRONG OPTION !!" 3,-20 '21,1;" ": c204285 i=14 &a(524+i)13 *i4285  i nw=nw+1 =21,0;2;1;1;"A WINNER !!!" 5,502 ! 44000 # d$="n" & 4010 0 p=1 :np=np+1: ?6d$="ANOTHER GAME ? (y or n)":inv=1:520 I N p=2 Sjj=244335: X$count>0f(y(count))=0 b i=0 g j=j+1 l&j>24j=1:count=0 q#a(j+84T)=04455g v i=i+1 x-count=count+1:y(count)=a(j+84T) {#i<3j<244455g }'c$="":jj+count24c$=" " ~ 1;20,24;c$ card=a(j+84T) f(card)=1 2z(8,1)=card:z(8,2)=card  4790 20,28;ink;c$   p=2 Pc1=d$(1):c2=d$(2):i=z(c1,1):c2=0i=z(c1,2) i04610 `21,1;3;1;1;"INVALID ENTRY !! ";0;0;0;d$ 3,-40( 221,1;" "  @v$="r":r=((i-1)/13 ):r=1r=3v$="b"  l=0  card=0 >$c2=05000:4695W Ccard=z(c2,2) H&card=05070:4695W MCw$="r":r=((card-1)/13 ):r=1r=3w$="b" Wl04760 \(card<1card>5244590 af(card)14590 f7card=14card=27card=40(4590 kl=card-1 p m=i-1 ul=(l/13 ) zm=(m/13 ) l=card-l*13 m=i-m*13 lm+14590 v$=w$4590 l=a(card)+7 m=a(i)  s=0 a(i)>108ls=1 s=15295 s=05120  r=card-1  c$=" " r=(r/13 )  r=r+1 c$(3)=b$(r)  ink=z$(r) r=card-13 *(r-1) c$(1)=" " #r>9 c$(12)=r r<10 c$(2)=r "c$(1)="0"c$(1)=" " +c$(12)=" 1"c$(2)="A" 4c$(12)="11"c$(12)=" J" 4c$(12)="12"c$(12)=" Q" 4c$(12)="13"c$(12)=" K"  card=1  l=i-1 l=(l/13 ) l=l+535 m=i+12 m=(m/13 ) n=i+12 n=n/13 ;mn(a(i-1)lf(i-1)=0)card=99c I(a(i)<228a(i)>108l)a(a(i)+7)0card=99c card=99cl=0 *card99cmnf(i-1)=0  card=1  l=0 'z(c2,2)=0l=108l+c2 l=0card=99c )i/13 ɺ(i/13 )card=99c card=99cl=0  .c20z(c2,2)=z(8,1) a(a(i))=0 jj=jj+1 'jj2319,24;" " #count=count-1 (20,21;" " -;20,21;(24-jj);19,28;" " 25count=020,28;" ":5220d 7card=y(count) <f(card)=1 F2z(8,1)=card:z(8,2)=card K 4790 _20,28;ink;c$ dcard=i fc20z(c2,2)=i ia(l)=i na(i)=l s 4790 @l<109m0,(1+(l-535)*4);ink;c$: k=l-109m k=(k/7) l=l-108l-k*7 *k+2,l+(l-1)*3;ink;c$  )c20z(c2,2)=z(c1,2) k=m2347 a(k)=054251 n=k-109m n=(n/7)  card=a(k)  4790 r=k-n*7-108l (n+2,r+(r-1)*3;" "  a(l)=card  a(card)=l a(k)=0 l<109m5410" n=l-109m n=(n/7) q=l-n*7-108l *n+2,q+(q-1)*3;ink;c$  l=l+7 k=227+r5410" k 1>l<109m0,(1+(l-535)*4);ink;c$ 6 m=m-7 ;=m<109mz(c1,1)=0:z(c1,2)=0: =card=a(m):z(c1,2)=card @f(card)=1 Ez(c1,1)=card Jf(card)=1 O 4790 ^n=m-109m cn=(n/7) hr=m-n*7-108l r*ink;n+2,r+(r-1)*3;c$ w p:1,30 u 6040 z 6445-  6160  6310 tot266015 6380:b$="n" 6156 :6010z G:use=0:d$="How many players ? (1-4) ":inv=0:520 %d$<1Űd$>46040  nop=d$  x(4) w(nop) n$(4,7) $a$="cccc2341":a$(4+nop)="1" h$="":b$="JQKA" i=14 j=29 h$=h$+j+b$(i) j j=59 h$=h$+b$(j)+b$(i) j i i=1nop 620,0;"Do you want the computer to play" 121,0;"as player ";i;" ? (y or n)" B.3,0:6600:b$="n"a$(i)="m":use=use+1 "Name ? (MAX 7 chars) ";b$  n$(i)=b$ i skill=25:6156     use=nopuse=0  4:"Skill level ? (0 - 25) ";skill:skill=skill: 21,0;n$(player) a$(player)="c"6260t: "1st card ? (A1-G4)";b$ .i=0:6215G:i=16170 $-6620:x(1)=card:x(2)=pos )21,0;n$(player) ."2nd card ? (A1-G4)";b$ 3.i=0:6215G:i=16190. 8(pos=x(2)6665 :6190. =-6620:x(3)=card:x(4)=pos B G&i=0:b$26665 : LVb$(1)>96`Ưb$(1)<105ib$(1)=((b$(1))-32 ) Q/b$(1)<"A"b$(1)>"G"6665 : V/b$(2)<"1"b$(2)>"8"6665 : [/b$(1)="G"b$(2)>"4"6665 : `4pos=8*((b$(1))-65A)+b$(2) e card=a(pos) je$(card)="1"6665 : o t%nom=06670:6285 y%pos=f(1,1):card=a(pos) ~-x(1)=card:x(2)=pos:6620 %pos=f(1,2):card=a(pos) /x(3)=card:x(4)=pos:6620: -x(1)=card:x(2)=pos:6620 *prt0pos=prt:card=i:6300  6670 -x(3)=card:x(4)=pos:6620  Ccard=x(1):6655:dup=num:card=x(3):6655 dup=num6325 b$="":player=a$(player+4):21,0;"BAD LUCK !":.5,-20:21,0;" ":use=0150:6360 3d$="CARRY ON ? (ANY KEY)":inv=1:520  6360 k1;1;2;21,0;"A MATCH !":2,20:21,0;" " ;d(player)=d(player)+1:d(player)>maxmax=d(player) 'b$=d(player):b$=1b$=" "+b$ /19,2+8*(player-1);b$ tot=tot+1 1e$(x(1))="1":e$(x(3))="1":b$=" "  6720@ i=242 ,pos=x(i):6660:1;row,col;b$ i skill>246379 i=242 j=x(i):j<10 f$=f$+"0"  f$=f$+j:e(j)=e(j)+1:i (skill>nognog=nog+1:6379 i=132 /j=f$(ii+1):k=a(j):e(j)=e(j)-1 ae$(k)"1"e(j)=0e$(k)=" ":g$(j)="1"noc=noc-1:g$(j)="1":c$=f$(ii+1)+c$ i "skill=0f$="":6379 f$=f$(5̱f$)  :j=0:d$="Winner : " i=1nop d(i)max6402 )j=j+1:j>1d$=" also : " I1;3;6+j*2,8;d$;n$(i):2,30 w(i)=w(i)+1 i 1:10 ,8;3;"Winners so far :"  i=1nop 6w(i)>012 +i,8;n$(i);" ";w(i): !i:.5,10 :300, @:1;4;8,5;"Another GAME ? (y or n)"  6600 ( -:6595 2:1;1;4;8,10 ;"SHUFFLING" 7:player=1+(*nop) 26ink=0 O1;row,col;ink;h$(2*card-12*card):1,0 Qrow,col;ink;h$(2*card-12*card):e$(card)=" "e$(card)="2"  6655 prt=0:e$(card)"3"nom<467051:prt>0nom=nom+1:f(nom,1)=pos:f(nom,2)=prt:e$(card)="3"  2num=card-13 *(((card-1)/13 )): nrow=2+2*((pos-1)/8):col=1+3*(pos-8*(((pos-1)/8))):  ui=1:1;1;2;21,0;"ERROR !":2,-20:21,0;" ": k=1+(*(524-noc)) &pos=c$(2*k-12*k)  g$(pos)="1" Ac$(2*k-1104h)=c$(2*k+1106j)  card=a(pos) "noc=noc+1 'e$(card)" "6670 , 1i=num52413 6)e$(i)="2"icardprt=b(i):e$(i)="3": ;i: @i=1nom E=x(2)=f(i,1)x(4)=f(i,1)6740T Ji O T j=inom YFf(j,1)=f(j+1,1):f(j,2)=f(j+1,2) ^j cnom=nom-1 h W