poker 3 3I5 "poker":"poker"  2"poker"10 poker + ->2͛ #F##~  > F> ##F>(>5 "xd8dG##~(d  > >(P> ##~d8dGƪ2>0>2V> ##~d8d2>2V~d8d2>2V>2F##N####~(##~ yd8dG2VF##N##~V ##F##~ )zd8d(2V##^##y ~(y(~ zd8d2VF##N##Vy( ##F##^x( yd8d2V##N##Fy( yd8d(2V~d8d62{ :2:2 :2:2 :2:2 <8!K\^#VV>ú >_8#^#V#>8>0>8#V>ߺ0>2͛p "*.&ˁˡ˩˱˹>8A>̺?>hI>4Yz2(|2+~gwO$>h &zS_>(4>49> ->h(9>H2͛###~##F0(w++p#F##Np++q>  > P P P 88 MMZ*ZL8Wq !v>888||88|l||8U*@ F&AUffTdb!F&A!F&Adbdb!F&@ U*ffUdbTBB<poker N8%5P8J.R.Hollingbery,1983  64000 j$(1,40() s(4,7) GB(4,3):x$(12 ):j$(40():C$(2,104h) /h$=" " (ist=5:ib=.75@:plr=2 xC$(2)="23456789234567892345678923456789" !a=2*(*502)+3 (3c$(1)=c$(2,a)+c$(2,a-1) 20n=14:b(n,1)=10000':n <x=12 :y=19 F0:4 P8000@:shuffle Z7000X:deal d2000:sort CHANGE CARDS 3400H :score q=14 p=10 *q-9 ,plrq4000:553):exchange  17,3;"1 2 3 4 5 " '"Which cards do you want changed?";a$ ! a$=a$+"6" &Kn=1̱a$-1:a$(n)<"1"a$(n)>"5"a$(n)a$(n+1)540 'n (a$=a$(1̱a$-1) )b(pos,3)=1 *Qpos<4ƥ<.85YƱa$<5a$=a$(2̱a$):b(pos,3)=2 +Fpa=8+(9 pos=3):pb=21-(16pos=1) -$pos<4pa,pb;"changes ";a$ .+pos=pos+1:pos=5pos=1 0n=1̱a$ 5.03{u\,-45- :&h=10 *q-11 +2*a$(n) DTc$(1,idid+1)=h$(hh+1):id=id+2:id=105iid=1 N+h$(hh+1)=c$(1,icic+1) Splr=q7;(0+(2(h$(h+1)=""h$(h+1)="")));12 ,1+2*a$(n);h$(h);13 ,1+2*a$(n);h$(h+1);4;17,3;" " XIc$(1,icic+1)=" ":ic=ic+2:ic=105iic=1 bn vq 2000:sort 3400H :score 6000p:bet +p(1)=0n=1:2300 ,p(2)=0n=11 :2300 ,p(4)=0n=31:2300 ,p(3)=0n=21:2300 05000:winner 3Z6+(9 a13),6+(16(a1=2a1=3));1;"wins" 8!b(a1,1)=b(a1,1)+stt =Oib=ib+((100d*(st1-s(4,1)*ib)/s(4,1)))/500 Bg23659k\,0:22,0;"press any key for next hand.":23659k\,2:1 K 0 LPid<65Ac$(1,idid+39')=h$(1):id=id+40(:90Z QLid=65Ac$(1,idid+39')=h$(1):id=1:90Z Vid>65Ac$(1,id104h)=h$(1105i-id):c$(1,1id-65A)=h$(106j-id40():id=id-64@:90Z  sort zx=65121a >j$=(h$(10 *plr+1)plr<4)+h$(10 *plr) j$(1)=j$ 4n=19 2 >?ink=0+(2(j$(n+31)=""j$(n+31)="")) HU7;ink;12 ,2+n;j$(n+30);13 ,2+n;j$(n+31) Rn \O7;ink;15,13 ;j$(40();16,13 ;j$(39') f -e$="":f$="":g$="" n=80-1 He$=e$(1n)+"":f$=f$(1n)+"":g$=g$(1n)+"" 7;1;x,y;e$;4;" ";7;x+1,y;f$;4;" ";7;x+2,y;f$;4;" ";7;x+3,y;f$;4;" ";7;x+4,y;g$;4;" " n   x=3+(9 n>20) .y=3+(16(n>10 n<31)) 7:1 .m=nn+82 3f=m-n 8x,y+f;0+(2(j$(m+1)=""j$(m+1)=""));j$(m);0;"";x+1,y+f;0+(2(j$(m+1)=""j$(m+1)=""));j$(m+1);0;"";x+2,y+f;" ";x+3,y+f;" ";x+4,y+f;" " Bm L0+(2(j$(n+9 )=""j$(n+9 )=""));x,y+9 ;" ";x+1,y+9 ;" ";x+2,y+9 ;" ";x+3,y+9 ;" ";j$(n+9 );x+4,y+9 ;" ";j$(n+8) V4:0: score H64469 Rn=14 \Js(n,1)=(64914+2*n)+(64913+2*n)*256 fn: exchange a$="" x$=h$(pp+9 ) s(q,1)70F #s(q,1)<10 4200h !x$(3)x$(1)a$="1" m=59 2 Wx$(m)x$(m-2)x$(m-2)x$(m-4)a$=a$+((m+1)/2-1) m $x$(9 )x$(7)a$=a$+"5" 1a$=3ƥ>.75@a$=a$(23)  h i(4,10 ):j=0 rm=210 2 |a=x$(m)-143 3i(a,1)=i(a,1)+1:i(a,m)=1 "i(a,1)=44270 m  4300 m=15 !i(a,2*m)=0a$=m: m  i=0 m=172 a=x$(m):b=x$(m+2) *a=b+1a=b+101em:4360 m=1i=1:m ,m=7i=0i=5:4360 a$="12345":  a$=i:  winner  a=0 n=14 p(n)=1n: b=s(n,1)  baa=b:a1=n:n: l=14 &x$=j$(10 *l-9 10 *l) m=26 s(l,m)=x$(2*m-3) m s(l,7)=x$(2) l 9s(n,1)43+s(n,1)295130  m=56:5140  m=27 s(n,m)s(a1,m)a1=n:n: (m 29s(n,1)>29s(n,1)<43+5130  < p BET qR8,5;" ";5;" ";17,21;" " z+p(4):i=0:st=ist:ft=0 n=13 Yb(n,2)=s(n,1)*b(pos,3)*ib+(*s(n,1)*b(pos,3)*ib/4) 1>.9ffffb(n,2)=*3*b(n,2) n *b(4,2)=s(4,1)*ib .i=i+1:i=9 3(b(4,1)=09000(# 4,b(4,1)=40000@9050Z# 8p(pos)=16400 :pos<46215G <23659k\,0 ?v20,0;"Press ""B"" to place bet"'" ""R"" to raise stakes"'" ""F"" to fold hand" @.ft=2" ""c"" to raise and see" B23659k\,2 D1b$=:b$"b"b$"c"b$"f"b$"r"6212D E23659k\,0:20,0;" ";0;" ":23659k\,2:6250j F 6213E GDi4ƥ<.3st1.1 *b(pos,2)b$="c":6250j V%stb(pos,2)*1.1 b$="b" `%st>b(pos,2)*1.1 b$="f" j6b$="r"b$="b"b$="f"(b$="c"ft=2)6260t o#6204<+(11 pos4) tst=2000b$="r"b$="b" ~*b(pos,1)<2*stb$="r"b$="b" b(pos,1)1ƥ*13 <18000@ plr>17170 Q:10 ,4;"Do you want to shuffle?";13 ,10 ;"Press y or n" "y"Ʀ"n"7165 ="y"8000@  7ih=1:plr=plr-1:plr=0plr=4  pos=(plr-5) ;c=0:pa=5+(9 (pos=3pos=4))  Gpb=2+(1pos=1)+(17(pos=2pos=3)) *-h$(ihih+1)=c$(1,icic+1) /.03{u\,-45- 4pos47;1;pa-2,pb+2*c;"";pa-1,pb+2*c;"";pa,pb+2*c;"";pa+1,pb+2*c;"";pa+2,pb+2*c;"" 9Oink=0+(2(c$(1,ic+1)=""c$(1,ic+1)="")) >?pos=4c>07;0;pa-2,pb+2*c;"";ink;c$(1,ic);0;" ";pa-1,pb+2*c;"";ink;c$(1,ic+1);0;" ";pa,pb+2*c;" ";pa+1,pb+2*c;" ";ink;c$(1,ic+1);0;pa+2,pb+2*c;" ";ink;c$(1,ic) C7pos=4c=07;ink;pa-2,pb+1+2*c;c$(1,ic);0;" ";pa-1,pb+1+2*c;ink;c$(1,ic+1);" ";pa,pb+1+2*c;" ";pa+1,pb+1+2*c;" ";c$(1,ic+1);pa+2,pb+1+2*c;" ";c$(1,ic) H c$(1,icic+1)=" " R8ic=ic+2:ih=ih+2:ic=105iic=1 \$c=c+1:c<37210* f+pos=pos+1:pos=5pos=1 p2c=3ih31ih=ih+4:7190 z ih=7 ;c=0:pa=5+(9 (pos=3pos=4)) Gpb=8+(1pos=1)+(17(pos=2pos=3)) -h$(ihih+1)=c$(1,icic+1) .03{u\,-45- pos47;1;pa-2,pb+2*c;"";pa-1,pb+2*c;"";pa,pb+2*c;"";pa+1,pb+2*c;"";pa+2,pb+2*c;"" Oink=0+(2(c$(1,ic+1)=""c$(1,ic+1)="")) 5pos=47;0;pa-2,pb+2*c;"";ink;c$(1,ic);0;" ";pa-1,pb+2*c;"";ink;c$(1,ic+1);0;" ";pa,pb+2*c;" ";pa+1,pb+2*c;" ";ink;c$(1,ic+1);0;pa+2,pb+2*c;" ";ink;c$(1,ic)  c$(1,icic+1)=" " 8ic=ic+2:ih=ih+2:ic=105iic=1 $c=c+1:c<27320 +pos=pos+1:pos=5pos=1 2c=2ih37%ih=ih+6:7300 stt=4*ist n=14 b(n,1)=b(n,1)-ist:1+(17(n=3n=4)),5+(16(n=2n=3));"`";b(n,1) n <10 ,0;"stake=`";ist;10 ,15;"`";stt L @ shuffle J64987 O T)id=2*(*513)+3:ic=id /x=3+(9 (plr=1plr=2)) 0y=3+(16(plr=3plr=2)) l 4: v7:1 8x,y;"";x+1,y;"";x+2,y;"" 20 Dx,y+5;"";x+1,y+5;"";x+2,y+5;"" n=58 5x,y+n;"";x+1,y+n;"";x+2,y+n;"" n ƒx,y+5;4;" ";7;"";x+1,y+5;4;" ";7;"";x+2,y+5;4;" ";7;"" 20 x,y;4;" ";7;"";x,y+9 ;"";4;" ";x+1,y;" ";7;"";x+1,y+9 ;"";4;" ";x+2,y;" ";7;"";x+2,y+9 ;"";4;" " n=15 Dx,y+5;"";x+1,y+5;"";x+2,y+5;"" .03{u\,-45-:5 Dx,y+5;"";x+1,y+5;"";x+2,y+5;"" !!.03{u\,-45-:5:n ! Gx,y+4;"";x+1,y+4;"";x+2,y+4;"" !Gx,y+5;"";x+1,y+5;"";x+2,y+5;"" ! n=yy+4 !*o4;x,n;" ";7;"";x+1,n;4;" ";7;"";x+2,n;4;" ";7;"" !4n !> 25 ! 4: ! #' end #(-:11 ,5;"you are out of credit" #2\13 ,7;"do you want to join "''10 ;"another game?";''15;"y/n ?";a$ #<a$="y"300, #F #ZH:11 ,12 ;"well done"''4;"you have wiped the table." #d 90102# # %423659k\,2:4:0:64000 %&V1,7;1;"Rules of The House";2,7;"" %0$'" The game is 5 card stud POKER." %: '" Stakes:- Min `5,Max `2000." %Dy'" If play passes twice round the table without the stakes being raised,betting will stop and the winner decided." %Nb'" If identical hands are dealt the suit of the highest card will count.The order is " %Xr'" Hands in decending order:- running flush - 4 - full house (3+2) - flush - run - 3 - 2+2 - 2 - single" %>21,5;1;"press any key to start":0 % 2 ' "poker"64469,1067+ '"poker"9500% '+1;"REWIND";0;"Press cont": ':"poker":"poker" A'''' +( h9242284358839957363 7678545266767922259579678243883936347545667H(49 s@la !x y?Cocn