$7Ra1?.u`Lŗ'a<:\Nf 8|~<<BBDDBBHBB~~TB~|TBBpx~~BDDT~BX@D<TBBDT@BDBB~l~<8 <9G9::8::89h9@8# #  @ & &8.Ӷ\\\UBEӁ1GGV\gX![!`HP! !98 `u K SR P 12 63999:1:10 ,10 ;"DRAW POKER";14,10 ;"Last part.":f=13:.1}L,20:.1}L,0:f:23659k\,0:7:"fnscfdbrbg":23659k\,2:1  12 63999:1:10 ,10 ;"DRAW POKER";14,10 ;"Last part.":f=13:.1}L,20:.1}L,0:f:23659k\,0:7:*"m";1;"fnscfdbrbg":23659k\,2:1 (ll=65092D:236077\,249  9720% Dround=0:out=0:togo=0:man=0:pot=0 nv=hand values, p=purses, c=pack+52 discards, h=5*5 cards (1-52), i=5*5 cards (2-14), c$=5*5 cards vals+suits (Wv(25):p(5):c(104h):h(25):i(25):c$(25,2) 22660d :GRAPHICS <630v:DISPLAY F P240:SHUFFLE Z)sing=0:togo=0:pot=0 _8900":into POT d330J:DEAL i nBlastup=0:nc=26:dc=535:players=5:w$="" wsing=0:a=0 x360h:TRANS 860\:PRINT 520:SORT 860\:prt sorted 1480:CD CH/VAL 1out=1out=0:6550:180 990:ply CH/VAL 4000:BID/PLAY 1f=15:p(f)<159990':f k"MORE [y/n]?";z$:z$="n"z$="N"65261:"a"-1:10 ,9 ;"LET THE TAPE RUN":"" 3"With shuffle [y/n]?";z$:z$="y"z$="Y"80P -f=0513:c(f+1)=c(nc+f):f 90Z    SHUFFLE k(524) E8,12 ;"SHUFFLING" s=1524    ="M" "4s1=(*524)+1:k(s1)=1290" ,k(s1)=1:c(s)=s1:s 6.1}L,10 @ J DEAL T8,12 ;1;" DEALING ":s3=14:s1=0:s=15:f=13:s1=s1+1:s2=(s-1)*5+f:h(s2)=c(s1):f:s3=s3+2:h(s2+1)=c(s3):h(s2+2)=c(s3+1):s ^ hTRANSLATE r;sing=1f=aa+5:i(f)=h(f):c$(f,2)="" |Tsing=0f=125:.01z# =,60<:i(f)=h(f):c$(f,2)="" 6i(f)>39'i(f)=i(f)-39':c$(f,2)="" 6i(f)>26i(f)=i(f)-26:c$(f,2)="" 6i(f)>13 i(f)=i(f)-13 :c$(f,2)=""  x$=i(f) x$="10"x$="" x$="11"x$="J" x$="12"x$="Q" x$="13"x$="K" x$="1"x$="A":i(f)=14 c$(f,1)=x$ f sing=0    SORT 8,0;,, 5f=15:8,12 ;f;" SORTING " &4b=15:.05|L,b*5-20:b DEsw=0:n=14:x=(f-1)*5+n:y=x+1 Nri(x)>i(y)sw=1:wk=i(x):i(x)=i(y):i(y)=wk:wk=h(x):h(x)=h(y):h(y)=wk:w$=c$(x):c$(x)=c$(y):c$(y)=w$ Xn:sw=1580D ]f: b PRINT c.:d=25:xx=10 :yy=0 dd>3xx=15 e"d=3d=5yy=27 fxx,yy;v(d);" " g0xx+1,yy;c$((d-1)*5+1) h0xx+2,yy;c$((d-1)*5+3) i0xx+3,yy;c$((d-1)*5+5) j8xx+1,yy+3;c$((d-1)*5+2) k8xx+2,yy+3;c$((d-1)*5+4) ld: vSCREEN LAYOUT 7:1:7: 83,171:0,-480:72H,0 :180,171:0,-480:72H,0 83,171:72H,0:0,-480 :180,171:72H,0:0,-480 u180,149:72H,0:180,149:72H,0:180,149:72H,0 Bx=10 18:5;x,7;" ":x o3,149:72H,0:3,149:72H,0:3,149:72H,0 9 ,6;"";9 ,9 ;"";9 ,12 ;"";9 ,15;"";9 ,18;"";9 ,25;"" 19,6;"";19,9 ;"";19,12 ;"";19,15;"";19,18;"";19,25;"" '568,103g:144,0 &568,16:144,0 &480,95_:0,-72H &72H,95_:0,-72H &96`,95_:0,-72H '120x,95_:0,-72H '144,95_:0,-72H '207,95_:0,-72H :1,1;"PLAYER 1";1,23;"PLAYER 2" %6;4,13 ;" YOU "  :4,1;"PLAYER 3";4,23;"PLAYER 4" &5;13 ,19;"" %14,19;"" &5;15,19;""  entry  B6;5,13 ;"` ";5,14;p(1) % Entry *fs$=" ":p(1)<100dp(2)<100dp(3)<100dp(4)<100ds$=" " /2,1;"`";p(2);s$;2,23;"`";p(3);s$;5,1;"`";p(4);s$;5,23;"`";p(5);s$ 4+u=110 :.05|L,60<:u :V5;0,13 ;" POT ";1,13 ;"` ";1,14;pot >G9 ;3;21,9 ;" TO GO: `";togo;7;" " H RPLAYERS CARD PRINT \ c1=0 fy=7193 zPc1=c1+1:ink=1:c$(c1,2)=""c$(c1,2)=""ink=2 Zink;10 ,y;c$(c1,1);11 ,y;c$(c1,2):.01z# =,10 :10 y Jink;17,24;c$(c1,1);18,24;c$(c1,2) 8,0;,,    player  out=1 u20:f=15:.05|L,40(:.05|L,502:f:8,0;" HOW MANY CARDS? [0-4]" 0:0:f A.06|u\,20:1;8,24;"";0;" " =""1010  l$=:l=l$ #l<480l>5241010  .05|L,40(  num=l$ 58,24;l$;8,25;1;"" $1:502 . =""1070 8Check for DELETE Bq$=:q=q$ L q=121000 V-8,0;,,;8,6;"O.K." `"l=4801400x:NONE ez(4):Discard Nos j!l=5351300:ALL t"8,11 ;"WHICH? [1-5]" y(.02{# =,30:.02{# =,30 q=l$:q=q+1  f=1q /8,23+f;1;"";0;" " =""1190  l$=:k=l$ k=12 1280 %f=q.05|L,40(:1310 #k<491k>5351180 .05|L,40( )m=14:z(m)=l$1180 m 2z(f)=l$:8,23+f;l$;1;"":f  1310 ?f=f-(f>1):z(f)=0:.04|# =,20:1180  1180 f=15:z(f)=f:f CHANGE CARDS (1:20 2-8,0;,,8,12 ;"O.K." <f=1num:q=z(f) Fc(dc)=h(q):dc=dc+1 Ph(q)=c(nc):nc=nc+1 Zf dXsing=1:a=1:360h:860\:f=11:550&:860\ nVALUE player's hand x<a=0:man=1:g=1:sub=1:15906 NONE       "Value hands and change cards  o(5) x(5):changed cards 610b e=12 &v(10 ):HANDS values + 2ND PAIR y(25):hand's discards a=5:start of hand g=25:No. hands me=1g=28,0;"Player 1 opens `10":p(g)=p(g)-10 :pot=pot+10 :800  e=1g>28,0;,,;8,0;"Player ";g-1;" in.":p(g)=p(g)-10 :pot=pot+10 :805% Je=28,0;"Player ";g-1;" thinking.. " ,!sub=(g-1)*5+1 1MAN ENTRY 6[tr1=0:tr2=0:tr3=0:pr1=0:pr2=0:pr3=0:pr4=0 @  J fsw=0:f=14 T5t=h(a+f):u=h(a+f+1):t+1u1670 ^f hSTRAIGHT FLUSH r)fsw=1y(sub)=1:1680 |#v(g)=200+i(a+f):23608 'f=4fsw=0y(sub)=5 &y(sub)=5e=123608 /f=1fsw=1:f=2:1620T   f=13 52413 h(a+1)f-13 h(a+2)f-13 h(a+3)f-13 h(a+4)f-13 h(a+5)h(a+5)>f-13 1850: f  1710  FLUSH )v(g)=120x+i(a+5):23608     fsw=0:f=14 5t=i(a+f):u=i(a+f+1):t+1u1790 f  RUN )fsw=1y(sub)=1:1780 #v(g)=100d+i(a+f):23608 'f=4fsw=0y(sub)=5 e=123608 /f=1fsw=1:f=2:1720 N   X[i(a+1)=i(a+2)i(a+1)=i(a+3)i(a+1)=i(a+4)1920 b[i(a+2)=i(a+3)i(a+2)=i(a+4)i(a+2)=i(a+5)1920 l 1940 v4 OF A KIND )v(g)=180+i(a+3):23608    3,2 or 3 (i(a+1)=i(a+3)tr1=1 (i(a+2)=i(a+4)tr2=1 (i(a+3)=i(a+5)tr3=1 +tr1i(a+4)=i(a+5)2070 9tr1y(sub)=4:y(sub+1)=5:2040 +tr3i(a+1)=i(a+2)2070 9tr3y(sub)=1:y(sub+1)=2:2040 9tr2y(sub)=1:y(sub+1)=5:2040  21004 3 of a kind C<.1}Ly(sub+1)=y(sub+2):y(sub+2)=0  (v(g)=80P+i(a+3):23608 FULL HOUSE  )v(g)=140+i(a+3):23608 *  4 2+2 or 2 >(i(a+1)=i(a+2)pr1=1 H(i(a+2)=i(a+3)pr2=1 R(i(a+3)=i(a+4)pr3=1 \(i(a+4)=i(a+5)pr4=1 fTWO PAIRS k%v(g+5)=i(a+2):2nd pair pApr1pr3y(sub)=5:v(g)=40(+i(a+4):23608 zApr2pr4y(sub)=1:v(g)=40(+i(a+4):23608 Apr1pr4y(sub)=3:v(g)=40(+i(a+4):23608  PAIR mpr1y(sub)=3:y(sub+1)=4:y(sub+2)=5:v(g)=20+i(a+1):23608 mpr2y(sub)=1:y(sub+1)=4:y(sub+2)=5:v(g)=20+i(a+2):23608 mpr3y(sub)=1:y(sub+1)=2:y(sub+2)=5:v(g)=20+i(a+3):23608 mpr4y(sub)=1:y(sub+1)=2:y(sub+2)=3:v(g)=20+i(a+4):23608 HIGH CARD e=22340$  If no K,A try poss flush <t=039'13 :ct=0:f=15 h(a+f)>th(a+f).8Lcnt=4 Vj=1cnt t~y(sub-1+j)0x(g)=x(g)+1:ch=y(sub-1+j):c(dc)=h(a+ch):h(a+ch)=c(nc):nc=nc+1:dc=dc+1 ~j  2sing=1:360h:sing=0:TRANS f=gg:580D:SORT a=a+5 Mv(g)<513ƥ>.8Lƥ<.83TzGv(g)=v(g)+300,: BLUFF  _e=28,8;", takes ";x(g);" cards.":.04|# =,20:1:100d g e=2 V.09}8Q,40(:8,0;"ARE YOU IN? [y/n]":25:=""2501 ]="n"f=1:6600:.5,0:out=1:o(1)=1:2510 "y"Ʀ"Y"2501 |8,0;,,;8,9 ;"`10 THANKYOU":60<:pot=pot+10 :p(1)=p(1)-10 :790 e  H0,78N,209,81Q,81Q,81Q,78N,0 N102f,255,255,255,126~,60<,24,24 M24,60<,126~,255,255,126~,60<,24 M24,60<,126~,255,255,219,24,60< J16,568,16,84T,254,84T,16,568 ( 2530 0("t"+1)=78N 2 f="t""t"+7:x:f,x:f < f="h""h"+7:x:f,x:f F f="d""d"+7:x:f,x:f P f="s""s"+7:x:f,x:f Z f="c""c"+7:x:f,x:f _ `  d 2700 e f="a""a"+7:x:f,x:f f(f=15:p(f)=10000':f n f="b""b"+7:x:f,x:f x f="e""e"+7:x:f,x:f f="f""f"+7:x:f,x:f f="p""p"+7:x:f,x:f f="i""l"+7:x:f,x:f K3,12 ,16,32 ,64@,128,128,128 D192,480,8,4,2,2,1,1 K128,128,128,64@,32 ,16,12 ,3 D1,1,2,2,4,8,480,192 M153,90Z,36$,239,239,36$,90Z,153 A0,3,2,3,2,2,0,0 I0,186,170,171,42*,58:,0,0 J0,187,162,513,163,178,0,0 I0,128,128,128,0,128,0,0    %z$="00050203THE HANDS:":9900& 7,0;"YOURS:";10 ,0;"PLAYER 1:";13 ,0;"PLAYER 2:";16,0;"PLAYER 3:";19,0;"PLAYER 4:" "io=1:x=7193:c1=o*5-5:y=12 304:c1=c1+1 ,Aink=1:c$(c1,2)=""c$(c1,2)=""ink=2 69o(o)=1o1x,y;"STACKED!":2900T 8:o(o)=1o1x,y;"STK":ink;x+1,y;c$(c1):y:2900 ;!off=0:o=winoff=1 @off;ink;x,y;c$(c1) Jy T o=o+1 ^x 'v$=" Press any key to continue. " f=132 #0;1,0;v$ -w$=v$:v$=v$(231)+w$(1) 5:"" f 3002 "  BETTING   Bamt=10 :u(20):round=0:w$="":players=5 calls=0 round=round+1  "f=25 $o(f)=1f (8,0;,, *f=65510 ,w=1:q=1 6f>3w=4 @!f=3f=5q=23 P!1;w,q+7;f-1 Tp(f).8L5000:RAISE \+>.8Ltogo>p(f)/10 5200P ]5400:CALL ^ov(f)>199u(1)=0:u(2)=0:u(3)=10 :5000:Running flush, raise h r v(f)<32 rest=8000@ t.v(f)32 v(f)<80Prest=8010J v/v(f)80Pv(f)<100drest=8020T x0v(f)100dv(f)<140rest=8030^ z!v(f)140rest=8040h (round<7rest=rest+round-1 "round7rest=rest+5 (rest:g=120:a:u(g)=a:g  h=1 players=24800 8h=h+2:players=3calls=04800  8h=h+2:players=3calls=14800  8h=h+2:players=4calls=04800 8h=h+2:players=4calls=14800 8h=h+2:players=4calls=24800 8h=h+2:players=5calls=04800 8h=h+2:players=5calls=14800 8h=h+2:players=5calls=24800  h=h+2:players=5calls=3   stack=u(h) call=u(h+1) amt=lastup+10 rnd=(*10 )+1 e20,0;players;":";calls;" deal ";round;" H:";h;"Rand ";rnd;" s:";u(h);" c:";h(h)+u(h+1);" ":0 3togo=0v(f)<205200P:stack $togo=05009:open gstack>100dmax=stack-100d:stack=round:call=max-stack:stack>maxstack=max:call=0 .rndstack5200P:stack 8"rndstack+call5400:call B"togo+amt>p(f)5200P:stack  RAISE togo=05009 6calls=0:8,10 ;"`";togo;" to stay" *d=14:.01z# =,502:d 1:100d o$="AND RAISE `" Qtogo=0o$="OPEN `":amt<10 amt=10 :<.5amt=20 #8,10 ;o$;amt;" " *d=14:.01z# =,502:d 1:100d togo=togo+amt  lastup=amt pot=pot+togo p(f)=p(f)-(togo)  805%  5420, P STACK Zw,q;" " _V8,13 ;"I STACK":.2~L,20:.4L,0:1:100d d'o(f)=1:players=players-1 fPg=15:c(dc)=h((f-1)*5+g):dc=dc+1:g:STACK i*players=1win=1:6575  5413%  CALL Hplayers=calls-2v(f)>79Oƥ>.05|L5000:RAISE #68,12 ;"CALL `";togo:calls=calls+1 $)pot=pot+togo:p(f)=p(f)-togo:805% %w,q+7;f-1 &Scalls=players-18,10 ;"ALL CALLED.":100d:6550 'f=14100 *1:40( ,w,q+7;f-1 6players=16510n @f J |PLAYERS BID  o(1)=14100 ltogo>p(1)8,0;"You have not enough to play!!":500:7000X: stack A8,0;,,;1;8,24;" ";0;" " &8,5;"YOUR TURN [s,c,r]" =""5550  l$=:l=l$ 0l115sl99cl114r5550 7.05|L,45-:8,24;l$;1;" " 1:10 l$="s"l$="S"7000X l$="c"l$="C"7100 Vl$"r"l$="R".05|L,20:8,10 ;"INVALID":20:5540 calls=0 88,0;,,;8,10 ;"HOW MUCH? `" e(5):` f=15 /8,23+f;1;"";0;" " =""5628  l$=:k=l$ "f>1k=12 5640 "f>1k=13 5700D #k<480k>5795626 .05|L,40( He(f)=l$:8,23+f;l$;1;" ":u=18:u:f ?f=f-(f>1):e(f)=0:.04|# =,20:5626 DDr$="":raze=0:g=1f-1:r$=r$+e(g):g:raze=r$ Eraze=05610 Fttogo+raze>p(1)8,10 ;"YOU HAVEN'T ENOUGH! ":.5,0:1:200:5535 IQ8,0;,,;8,1;"`";togo;" to go + ";raze;" = `";togo+raze J)1:100d:8,0;,, Xtogo=togo+raze ] lastup=raze b 7150 d @ W H O   W I N S ,win=0:f2=0:f=15 o(f)=16570 Pg=15:c(dc)=h((f-1)*5+g):dc=dc+1:g:STACK f2=f %v(f)>300,v(f)=v(f)-300, win=0win=f v(f)>v(win)win=f f .p(win)=p(win)+pot:pot=0:togo=0 8,0;,,:win=18,12 ;"YOU WIN!":l=50230-1:.01z# =,l:l:l=2030:.1}L,l:l:1,31:6590 2;8,10 ;"PLAYER ";win-1;" WINS.":l=2030:.01z# =,l:l:l=50230-1:.1}L,l:l:1,10 :100d {790:200:f=18:ll=650753:f:2830 :f=18:ll=650753:f:630v  CARDS BACK 1g=15:c(dc)=h(g):dc=dc+1:g  XPlayer stacks ]1g=15:c(dc)=h(g):dc=dc+1:g _ bi8,0;,,;8,10 ;"PLAYER STACKS":.1}L,0:o(1)=1:6550 Player calls J8,0;,,;8,10 ;"CALL, `";togo:.05|L,10 calls=calls+1 pot=pot+togo p(1)=p(1)-togo  790  Scalls=players-18,10 ;"ALL CALLED.":100d:6550  4100   @0,0,1,8,6,1,1,8,1,8,0,0,1,8,1,8,1,8,0,0 A8,1,1,8,8,1,1,9 ,1,9 ,9 ,1,10 ,0,10 ,0,10 ,0,10 ,0 B8,1,1,8,8,1,1,9 ,1,9 ,9 ,1,10 ,0,10 ,0,10 ,0,10 ,0 C8,1,1,8,8,1,1,9 ,1,9 ,9 ,1,10 ,0,10 ,0,10 ,0,10 ,0 D8,1,1,8,8,1,1,9 ,1,9 ,9 ,1,10 ,0,10 ,0,10 ,0,10 ,0 E8,1,1,8,8,1,1,9 ,1,9 ,9 ,1,10 ,0,10 ,0,10 ,0,10 ,0 J0,0,2,7,6,2,1,8,1,8,0,0,1,8,1,8,1,8,0,0 K1,7,2,7,6,3,2,7,3,7,7,2,1,8,1,8,2,7,6,3 L6,3,1,8,7,2,5,4,6,3,6,3,6,3,6,3,7,3,7,3 M6,3,1,8,7,2,5,4,6,3,6,3,6,3,6,3,7,3,7,3 N6,3,1,8,7,2,5,4,6,3,6,3,6,3,6,3,7,3,7,3 O6,3,1,8,7,2,5,4,6,3,6,3,6,3,6,3,7,3,7,3 T0,0,0,7,0,0,0,7,0,5,0,0,0,7,0,6,0,5,0,0 U0,1,1,4,0,0,1,5,1,4,0,1,1,6,1,5,1,4,0,1 V0,2,1,4,0,1,1,6,1,5,1,2,1,6,1,6,1,5,1,1 W1,3,4,4,1,2,4,4,5,3,2,3,4,4,5,4,5,3,2,4 X1,3,4,4,1,2,4,4,5,3,2,3,4,4,5,4,5,3,2,4 Y1,3,4,4,1,2,4,4,5,3,2,3,4,4,5,4,5,3,2,4 ^0,0,0,1,0,0,0,2,0,1,0,0,0,3,0,2,0,1,0,0 _0,0,0,1,0,0,0,2,0,1,0,0,0,3,0,2,0,1,0,0 `0,0,0,1,0,0,0,3,0,3,0,0,0,3,0,3,0,1,0,0 a0,0,0,2,0,0,0,4,0,4,0,0,0,4,0,4,0,1,0,1 b0,1,1,2,0,1,0,5,0,5,0,1,0,5,0,5,0,2,0,2 c0,1,1,2,0,1,0,5,0,5,0,1,0,5,0,5,0,2,0,2 h0,0,0,1,0,0,0,1,0,1,0,0,0,2,0,1,0,1,0,0 i0,0,0,1,0,0,0,1,0,1,0,0,0,2,0,1,0,1,0,0 j0,0,0,1,0,0,0,2,0,2,0,0,0,2,0,1,0,1,0,0 k0,0,0,2,0,0,0,4,0,3,0,0,0,4,0,2,0,2,0,0 l0,0,0,2,0,0,0,4,0,3,0,0,0,4,0,2,0,2,0,0 m0,1,0,2,0,1,0,5,0,4,0,1,0,5,0,3,0,2,0,1 !3 !READ BETTING DATA !"g=120:a:u(g)=a:g ! "=:z$="20010202I BET YOU EVEN ":9900&:ll=65261 " ="M" "\23506[,20:ll=64768:z$="20080202CHEAT AT ":9900&:ll=65261 "\23506[,502:ll=64768:z$="18030303PATIENCE!":9900&:ll=65261 "'23506[,30:ll=64768 "500:11 "*8,6;"`5 each into the pot." ")f=15:p(f)=p(f)-5:f "pot=pot+25 " 790 ".f=140(:f:8,0;,,: #( %SCROLL TITLES %2580 :graphics 1 &mem=64768: &110 ,6;"  DRAW POKER.  " & Pf=13:g=10 1-1:.02{# =,f:.02{# =,g:g:f & 502: &<10 ,0;,,:z$="17040203M. E. Yates":9900& &*#z$="20070202PRESENTS":9900& &423506[,16:ll=mem &>A21,10 ;"A game of":23506[,18:ll=mem &C%z$="20050201DRAW POKER":9900& &D*f=15:.05|L,40(:f &F23506[,4:ll=mem &M21,11 ;"for the" &N23506[,20:ll=mem &P$z$="20070201SPECTRUM.":9900& &Q*f=15:.05|L,30:f &R23506[,16:ll=mem &\721,0;"The SPECTRUM will act as dealer" &f23506[,10 :ll=mem &p321,0;"AND play the other 4 hands!" &z23506[,12 :ll=mem &521,0;"All players start with `10,000." &23506[,8:ll=mem &521,0;"Each deal ends when all players" &23506[,8:ll=mem &621,0;"since the last raise either CALL" &23506[,8:ll=mem &21,0;"or STACK." &23506[,12 :ll=mem &421,0;"Press a key if you feel lucky!" &23506[,4:ll=mem &Rg=13:.02{# =,20:.02{# =,25:.02{# =,30:g & 502 &Ag=06:.01z# =,g:5:g:g:=""9880& &17:f=18:ll=650753:f: &Gf=14:f:z$="10020304GOOD LUCK!":9900&:f:1 & 100d & &"23296[,z$(56) &"23297[,z$(78) &:23299[,175+23297[-8*z$(2) &*23298[,8*z$(34) &z$=z$(9 ) &z=1̱z$ &23300[,z$(z)-32 &ll=65261 &c23298[,((23298[)+8*23296[)*((23298[+8*23296[)<256) &z: 'Bf=15:p(f)=(*100d):f:f=3:9990' ':1,0:1.5@,-20:1,0;"SORRY!"'':x$="You have ":f1f=f-1:x$="Player "+f+" has " '3x$;"not enough to"'"play so the game has to end." ''"The final amounts were:" ' Rf=25:'"Player ";f-1;" `";p(f);':f:'"You: `";p(1) ' x$=" HARD LUCK! ":p(1)>p(2)p(1)>p(3)p(1)>p(4)p(1)>p(5)x$=" WELL DONE! " ' '10 ;1;x$ ' 1"Press x to end, any other key to start again." ' =""9997 ' ':*"m";1;"POKER"10 :*"m";1;"POKER":*"m";1;"fnscfdbrbg"64000,1368X:*"m";1;"fnscfdbrbg": '8:"POKER"1:"fnscfdbrbg"64000,1368X  &x8e &"" 1e/_`uMף&1`LQVe3vV> $$$~$$~$|P||bd&F(*D: 00>>> @|LTTd|(>|D8@||DD|(H~|@|D||@|DD||D|D8DD||DD|| >>|D~|D|DDB|BB~B@@B~BBBBBx@BBx@@~B@NB~B~BB||~HxHpXD@@BBlTDDbRJF~BBBB~BB~@~BBBR~B~DB~@~B~8DDDD|DDD(DTTTlD8(DD(8~D"~@ 888T<$p |||D~@|DD||@@@| |DD~|D|@|<$p p|DD||@|DDp|8HxLP`Pp|TTTDDD|DDD|~""> p|DD||$ p|@||<DDD~DD(8TTT~((DD||~D"~ @ 00b ||:[G![![666~'''݆@g~'''''o 4~ 64~ 64~ ![W :[G![![666~'''݆@g~'''''o 5~ 65~ 65~ ![@ !@:['''g:[''''''_:[ ~  + ##  ~B # !@ˆ# x |;; *=\s#rv͎{ ::\ ( ((<2\6!""B\!"D\;;}a*6\$:[O [![[[K[>#xG= >8{O= :[O  ">BB<DHpHDB@~BfZBBBBbRJFB