ZXTape! 0Created with Ramsoft MakeTZXBrag kꭔ?:0:4,0;"**Computer Brag T.Lebon 1983**" 236099\,200:go=1:6:1:8,0;"Welcome to Computer Brag.In justa moment we'll start the game."  9000(# 7known=0:l(4):turn=1:auto=0 :9959& K13 ,5;"Howdee,pardna!":16,5;"What's your name?" n$(1)::4,2;"Welcome to the game,";n$(1):''"You start with `500.We play until you have `1000 - or go bust." W'"Would you like to see the full instructions ?(y/n)":a$:a$="y"a$="Y"4200h Jcount=1:turn=2:bluff=1:loose=.1}L:bid=10 k=18 ,n$(1)=p$(k)player=k:known=1 k Z1:known=1w(player,1)+w(player,2)0auto=0:3,2;"The score so far is :- ":0:6,7;"Me You":9 ,7;w(player,1);" ";w(player,2):30:w(player,1)>w(player,2)2:1:6,7;"Me":0:25 f502:known=1n(player)0loose=n(player):bid=g(player):bluff=bid*loose:25 "known=0j=18 "g(j)=0player=j:20 j g(8)0player=8:w(8,1)=0:w(8,2)=0:g(8)=0:n(8)=0 p$(player)=n$(1) 6auto=1level=2:style=0:42*  :1 T3,0;"You now have the option of whether to choose the styles of" ;"your opponents yourself or to let the computer do so." !'"ENTER 0 for the standard game. In that case how tight or loose each opponent plays will be determined randomly by the computer." "'"ENTER 1 if you want to determinetheir styles yourself.As this would otherwise put you at an unfair advantage you will start with `300 instead of `500." #/z$:z$"0"z$"1".5,1:35# $&style=z$::style=141) %4:0,0;"You now have choice of levels" &2,0;"ENTER 1 for level 1 ":"At level 1 one opponent will play very loose,another tight, and another just right:but you have to work out which is which." '9 ,0;"ENTER 2 for level 2 ":"At level 2 the computer decides how loose or tight each opponentplays for the whole game,at random.(The difference between level 2 and level 1 is that at level 2 all 3 players can have the same style.)" (18,0;"ENTER 3 for level 3":"At level 3 your opponents all play close to the mathematicallycorrect play.":z$:z$"1"z$"2"z$"3"40( )Blevel=z$::style=1level=2:4,0;"ENTER 0 if you want this player to be very tight up to 10 for him to be very loose ":'"(A loose player is one who will bluff a lot ,a tight player one who will generally bet only on good hands)":'"eg ENTER 5 for his style to be neither loose nor tight" *k=24 +2style1st=1+(*9 ):47/ -)2:17,5;"For ";n$(k) .st /3st<0st>10 1,1:45- 0level160< 1Gk=2ƥ<.333*~st=10 :e(k,1)=1.2:62> 2Ek=2ƥ>.666*~st=0:e(k,1)=.8L:62> 37k=2st=5:e(k,1)=1:62> 4Uk=3ƥ<.4Le(2,1)1.2e(k,1)=1.2:62> 5Gk=3e(2,1)=1e(k,1)=.8L:62> 6+k=3e(k,1)=1:62> 7Ve(3,1).8Le(2,1).8Le(4,1)=.8L 8Se(3,1)1e(2,1)1e(4,1)=1 9Ye(3,1)1.2e(2,1)1.2e(4,1)=1.2 : 62> %e(k,2)=.15~+(*.8L) A%e(k,3)=.1}L-(st/20) F'l(k)=(e(k,1)/3)-.19~B\) Kk Pauto=1loose=.15~ Zcauto=1e(1,1)=1:e(1,2)=.5:e(1,3)=0  &k=14:m(k)=500:k >2style=1auto1m(1)=300, R 7000X f(4):l(1)=loose:loose=l(1):t(4):bet=0:get=0:after=0:s(4):b(4):blind=4:in=4:kitty=0:stake=10 k=14 >.98zGf(k)=1 5<(((e(k,1)-.5)/8))f(k)=1 k count=count+1 Tget=0:o(4):c$="23456789JQKA23456789JQKA23456789JQKA23456789JQKA" rq(4,3):min=10 :pot=0:i(4):s$(4,3):h$(4,3):r(12 )  m=2 k=112 r=(*524)+1 j=112 r=r(j)1020 j r(k)=r k after=1 k=14 $j=13 .&h$(k,j)=c$(r((k*3)+j-3)) 8@r((k*3)+j-3)<14s$(k,j)="":q(k,j)=2 Bbr((k*3)+j-3)14r((k*3)+j-3)<27s$(k,j)="":q(k,j)=0 br((k*3)+j-3)27r((k*3)+j-3)<40(s$(k,j)="":q(k,j)=2 br((k*3)+j-3)40(r((k*3)+j-3)<535s$(k,j)="":q(k,j)=0 j k  values hand fa(4):b(4):c(4):d(4):d$(4,10 ):h(4,3):v(4) k=14 !>.98zGf(1)=1 j=13 h$(k,j)="2"h(k,j)=2 h$(k,j)="3"h(k,j)=3 h$(k,j)="4"h(k,j)=4 h$(k,j)="5"h(k,j)=5 h$(k,j)="6"h(k,j)=6 h$(k,j)="7"h(k,j)=7 h$(k,j)="8"h(k,j)=8  h$(k,j)="9"h(k,j)=9  h$(k,j)=""h(k,j)=10  h$(k,j)="J"h(k,j)=11  h$(k,j)="Q"h(k,j)=12  h$(k,j)="K"h(k,j)=13 h$(k,j)="A"h(k,j)=14 j Ah(k,1)=h(k,2)h(k,1)=h(k,3)21059 wh(k,1)=h(k,2)h(k,3)=h(k,1)h(k,2)=h(k,3)d$(k)="pair":a(k)=2:2500 ~(h(k,1)-h(k,3))2ƽ(h(k,1)-h(k,2))2ƽ(h(k,2)-h(k,3))221059 (h(k,1)=14h(k,2)=14h(k,3)=14)h(k,1)+h(k,2)+h(k,3)=192200 Es$(k,1)=s$(k,2)s$(k,1)=s$(k,3)2200  xhigh "a(k)=1 #h(k,1)>h(k,2)h(k,1)>h(k,3)h(k,3)h(k,2)h(k,1)>h(k,3)h(k,3)>h(k,2)b(k)=h(k,1):c(k)=h(k,3):d(k)=h(k,2):2094. &h(k,1)h(k,2)d(k)=h(k,1):b(k)=h(k,3):c(k)=h(k,2):2094. (h(k,1)h(k,3)c(k)=h(k,1):d(k)=h(k,3):b(k)=h(k,2):2094. ,nh(k,1)>h(k,2)h(k,1)Ah(k,1)h(k,2)h(k,1)h(k,3)2200 Hd$(k)="Prial":a(k)=6 Rb(k)=h(k,1) \%h(k,1)=3b(k)=15 f,v(k)=99.9G+(b(k)*(1/150)) p 3000 flush Es$(k,1)s$(k,2)s$(k,1)s$(k,3)2300 d$(k)="Flush":a(k)=3 h(k,1)>h(k,2)h(k,1)>h(k,3)h(k,2)>h(k,3)b(k)=h(k,1):c(k)=h(k,2):d(k)=h(k,3):2280 h(k,1)>h(k,2)h(k,1)>h(k,3)h(k,2)h(k,3)b(k)=h(k,2):d(k)=h(k,3):c(k)=h(k,1):2280 zh(k,1)h(k,3)b(k)=h(k,2):d(k)=h(k,1):c(k)=h(k,3):2280 zh(k,1)h(k,2)b(k)=h(k,3):d(k)=h(k,1):c(k)=h(k,2):2280 v(k)=91[+(b(k)/3) run rh(k,1)=h(k,2)-1h(k,1)=h(k,3)-2a(k)=4:b(k)=h(k,3):2390V rh(k,1)=h(k,2)+1h(k,1)=h(k,3)-1a(k)=4:b(k)=h(k,3):2390V rh(k,1)=h(k,2)+1h(k,1)=h(k,3)+2a(k)=4:b(k)=h(k,1):2390V rh(k,1)=h(k,2)-1h(k,1)=h(k,3)+1a(k)=4:b(k)=h(k,2):2390V $rh(k,1)=h(k,2)-2h(k,1)=h(k,3)-1a(k)=4:b(k)=h(k,2):2390V )rh(k,1)=h(k,2)+2h(k,1)=h(k,3)+1a(k)=4:b(k)=h(k,1):2390V .jh(k,1)=14h(k,2)=3h(k,3)=2a(k)=4:b(k)=14:2390V 3jh(k,1)=14h(k,2)=2h(k,3)=3a(k)=4:b(k)=14:2390V 8jh(k,1)=3h(k,2)=2h(k,3)=14a(k)=4:b(k)=14:2390V =jh(k,1)=3h(k,2)=14h(k,3)=2a(k)=4:b(k)=14:2390V Bjh(k,1)=2h(k,2)=14h(k,3)=3a(k)=4:b(k)=14:2390V Gjh(k,1)=2h(k,2)=3h(k,3)=14a(k)=4:b(k)=14:2390V V;a(k)=4d$(k)="run":v(k)=96`+((b(k)/5)) `running flush ja(k)=4s$(k,1)=s$(k,2)s$(k,1)=s$(k,3)d$(k)="Flush Run":a(k)=5:v(k)=99c+((1/150)*b(k)) t 3000 pair |h(k,1)=h(k,2)b(k)=h(k,1):a(k)=2:d$(k)="pair":b(k)=h(k,1):c(k)=h(k,3):2600( |h(k,1)=h(k,3)b(k)=h(k,1):a(k)=2:d$(k)="pair":b(k)=h(k,1):c(k)=h(k,2):2600( |h(k,2)=h(k,3)b(k)=h(k,2):a(k)=2:d$(k)="pair":b(k)=h(k,2):c(k)=h(k,1):2600( (,v(k)=74J+((b(k)*(17/15))) k  l(1)=loose :k=14 !j=13 "s$(k,j)=""q=2 #s$(k,j)=""q=2 $s$(k,j)=""q=0 %s$(k,j)=""q=0 &22:0,24;"Hand ";count-1 +70:2,0;"Player Cards Rank" 01:(k*4),0;n$(k):(k*4),20;" ";1;d$(k):2:(k*4)+1,0;"`";m(k):7:o(k)0"value ";(s(k)*100d);" Prob of winning ";(p(k)*100d); 55q:(k*4),7+(j*3);h$(k,j);s$(k,j) :j ?k A;1:20,0;"winner of `";pot;" is ";n$(w) C6auto1"Hit ENTER to continue";a$:7000X Dauto=1pot>2000 E8auto=1count-1hands80P:7000X Fmost=0:best=0 I1:count-1=hands502::0,0;"Lets see how we ended up":k=14:k*4,0;n$(k);" `";m(k):k J1k=14:m(k)>bestbest=m(k):most=k Lk MPhands+1=count2:1:most*4,0;n$(most):0 N%"Hit ENTER to continue";q$:4 *z(k,9 ),z(k,10 );" " *z(k,9 ),z(k,10 );"Wins $";pot k=14 &z(k,15),z(k,16);" " ,0:z(k,15),z(k,16);m(k) k 0::7000X h-0::0,7;"Rules of Brag" r+2,5;"** Ranking of hands **" |24,0;"(1)A Prial or three of a kind" +5,10 ;"eg 8";2;"88" <0:6,0;"The highest hand is a prial of" U7,0;"threes.The second best prial is aces,then kings etc-down to twos" L10 ,0;"(2)Flush run":11 ,8;"3 in suit & sequence" 12 ,10 ;"egA23" >"The best Flush run is A23,then AKQ,down to 234,the lowest" '"(3)Run :any 3 in sequence" 717,10 ;"eg";2;"56";0;"7" I"The order of Runs is the same as Flush runs ieA23 is best,234 worst" ""ENTER c for hardcopy-else n";a$ a$="c"a$="C" :"(4)Flush :any 3 in suit" 1,10 ;"eg 26K" i"If 2 players both have a Flush the highest-ranking top card wins,or second-highest to break a tie" #'"(5)Pair :two only of same rank" 8,10 ;"eg339" d'"A pair of aces is best:a pair oftwos worst.Equal pairs are decided on the highest odd card" &!'"(6)High card :no combination" 0,15,10 ;"eg 9";2;"63" :'"The highest card wins.To break a tie the second-highest card decides.If the hands are still level then the third-highest card decides" N""ENTER c for hardcopy-else n";a$ ba$="c"a$="C" :" ** The Play **"  '"The computer automatically " $"deducts `2 ante from each player" "and then deals the cards" $"When it is your turn you will be" ""asked whether you want to peek"  B'"If you answer 'y'then the computer will show your hand." '"If you stay blind (i.e. bet without peeking at your hand)youneed only bet half the amount of those players who have opened" *D'"You must then decide how much you want to bet.The minimum and" 4!"maximum amounts are displayed" >"on the screen" A7"The maximum amount you can raisethe stake by is `50" H""ENTER c for hardcopy-else n";a$ Ra$="c"a$="C" WW:'"If you want to drop out (stack)ENTER '0' when asked how much you want to bet" \@'"The play continues until there are only 2 players left in." fy"Then,as long as neither player is blind (ie both have opened) one player can see the other one if he so chooses." pL'"There follows a showdown and theplayer with the best hand wins the pot" rj"If both players have hands of identical value then the player who has 'seen' his opponent loses." s?'"The entire game is played till you go bust or reach `1000" t""ENTER c for hardcopy-else n";a$ ua$="c"a$="C" v:'"If you go bust whilst in the middle of a hand you can play on but automatically have to open and see as soon as you can" x7'"Unlike you, your opponents have unlimited credit!" z'"The computer plays for your 3 opponents.All players start off 'blind'.i.e.none of your opponents have looked at their hands until 'OPENED' is printed on their cards" ""ENTER c for hardcopy-else n";a$ a$="c"a$="C" !:"*** About Computer Brag ***" 2,0;"You are in the possession of a sophisticated programme.The computer has a complex method for determining the value of its hands and its chances of winning" %7,7;".It also bluffs!" '"An original feature of 'ComputerBrag' is that the other players adjust their play to your style-e.g.if you bluff frequently theywill tend to stay in with you more often." A'"Each of your 3 opponents have an individual style of play." ~"You will be asked if you want toselect styles.If you answer 'y' then you choose how tight or loose each opponent plays." ""ENTER c for hardcopy-else n";a$ a$="c"a$="C" ʘ:'"Otherwise their style is chosen randomly.Note that each player will keep the same style the whole game,but may well change for another game." x'"This makes for a lot of fun -andskill- in trying to work out your opponents styles:just like in an ordinary game" |'"Because your computerised opponents have such a logical decision procedure you may find beating them difficult!" '"Rest assured though that the hands are dealt entirely at random.Nor do the other players ever know your hand during play!" ""ENTER c for hardcopy-else n";a$ a$="c"a$="C" $g:"Another feature is that you have a choice of skill levels. Level 3 is the hardest ." *w'"Do you want to see a demonstration game with the computer playing all 4 hands (ENTER 'y' or 'n')" .a$:a$"y"a$"Y" 8auto=1 B1''"ENTER how many deals you would like to see" Lhands Qhands=0auto=0: Rn$(1)="Slim" V  bidding 7k=1auto=0o(1)=162008 $auto=1k16000p 6in=1i(1)=0w=1:5420,  o(1)05021 (m(1)<0a$="y":5020 0,0; !"ENTER 'y' to peek-else 'n'";a$ aa$="Y"a$="y"o(1)=1:blind=blind-1:min=min*2:62008:5064 }0:m(1)<0blind=0in=2a$="s":z(1,9 ),z(1,10 );"See you":5023 J0,0:in=2blind=0"ENTER s to see-else 'n'";a$ in=2blind=0(a$="s"a$="S")see=1:seer=1:pot=pot+min:m(1)=m(1)-min:11 ,14;"`";pot:z(1,15),z(1,16);" ":z(1,15),z(1,16);m(1):5150 *2 :3,22;"Minm `";min 22:4,22;"Maxm `";min+502 =2:o(1)=117,23;"ENTER '0'" 3o(1)=118,23;"to stack" 6"How many ` do you bet?";v$:v$=05028 H(v$(1)="s"blind=0in=2)v$(1)="y"5007 a=1̱v$ v$(a)"0"v$(a)"2"v$(a)"3"v$(a)"4"v$(a)"5"v$(a)"1"v$(a)"6"v$(a)"7"v$(a)"8"v$(a)"9".1}L,1:5028 a  stake=v$ @17,23;" ":18,23;" " xstake=0o(1)=1i(1)=1:in=in-1:0:18,11 ;"STACKED":8978# stake15s(1)<-.05|L))bluff=bluff+.5 /bid>0loose=bluff/bid:n(player)=loose stake>min+5021,1:6,0;1;"Too much!";0:40(:6,0;" ":5028 m(1)=m(1)-stake 2z(1,15),z(1,16);" " >0:z(1,15),z(1,16);m(1) do(1)=1t(1)=0bet=bet+in-blind-3+in:t(1)=in-blind-3+in o(1)=1bet=bet+((1.5@+((stake-min)/35#)+(stake/80P)-(l(k)*5))*((in-blind)/1.5@)):t(k)=t(k)+((1.5@+((stake-min)/35#)+(stake/80P)-(l(k)*5))*((in-blind)/1.5@)) >in=2blind=0bet=bet+3:t(k)=t(k)+3 4pot=pot+stake:0:11 ,14;"`";pot 'o(1)=0min=stake*2 o(1)=1min=stake !4,22;" " !3,22;" "  6900 early=1:5152  1k=1:after=7:j=0:8040h 1k=1:after=7:j=4:8040h 1k=1:after=7:j=8:8040h !"Hit ENTER to see next card";q$ Pq(1,1):16,10 ;h$(1,1);s$(1,1) Pq(1,1):19,11 ;s$(1,1);h$(1,1) !"Hit ENTER to see next card";q$ Pq(1,2):16,14;h$(1,2);s$(1,2) <19,15;s$(1,2);h$(1,2) !"Hit ENTER to see next card";q$ Pq(1,3):16,18;h$(1,3);s$(1,3) <19,19;s$(1,3);h$(1,3)  5021 1asd=1:early=0:number=2-auto k=number4:  t=05 !>7:z(k,1)+t,z(k,4)-1;"" "t #0z(k,11 ),z(k,12 )-6;" " $early=1 &k<4k 'after=0:0 (k=number4 )fafter=7:i(k)=0j=0:8030^:j=j+4:8030^:j=j+4:8030^ *k -j=14 2@get=1:i(j)=0(auto=1j1)5260 <j<4j Fget=15347 iafter=7 Fq(j,1):z(j,7),z(j,8);h$(j,1);s$(j,1) Iz(j,7)+3,z(j,8)+1;;s$(j,1);h$(j,1) X20:q(j,2):z(j,7),z(j,8)+4;h$(j,2);s$(j,2) Hz(j,7)+3,z(j,8)+5;s$(j,2);h$(j,2) X20:q(j,3):z(j,7),z(j,8)+8;h$(j,3);s$(j,3) Hz(j,7)+3,z(j,8)+9 ;s$(j,3);h$(j,3) ,1:z(j,9 ),z(j,10 );d$(j) get=1  j=0 p=14 )i(p)=0j=0j=p:5353 i(p)=0k=p p<4p a(j)>a(k)w=j:5400 a(k)>a(j)w=k:5400 b(j)>b(k)w=j:5400 b(k)>b(j)w=k:5400 c(j)>c(k)w=j:5400 c(k)>c(j)w=k:5400 d(j)>d(k)w=j:5400  d(k)>d(j)w=k:5400 a=14 i(a)=0seeraw=a a (k1w=kget=1:5200P ,32:z(w,11 ),z(w,10 );" " 6z(w,11 ),z(w,10 );1;"wins `";pot:0:m(w)=m(w)+pot:z(w,15),z(w,16);" ":0:z(w,15),z(w,16);m(w) ;0,0 @auto1"ENTER 1 to see all hands at cost of `5- otherwise hit ENTER";z$:z$="1"m(1)=m(1)-5:3100 Eauto=13100 J 7000X pother players ui(k)=16900 v-o(k)=0min=((min/2)+.6) zpk=11:0:21,10 ;n$(1):40(:0:21,10 ;n$(1) {hk=21:0:8,0;"The Kid":40(:0:8,0;"The Kid" |nk=31:0:1,10 ;n$(3):40(:0:1,10 ;n$(3) }fk=41:0:8,19;"Puggy":40(:0:8,19;"Puggy" $k=1auto15000 i(k)=0in=1z(k,11 ),z(k,12 );"wins":m(k)=m(k)+pot:z(k,15),z(k,16);m(k):20:3100 "o(k)=16100:opened 0:(m(1)<0auto=0i(1)=0)ť40(ť>.73333)min=min*2:o(k)=1:z(k,13 ),z(k,14);"OPENED":blind=blind-1:6100 >.353333bet>1ƥ<(.2~L+(e(k,2)))min=min*2:o(k)=1:z(k,13 ),z(k,14);"OPENED":blind=blind-1:6100 <((e(k,2))+.353333)ƥ>.55 bet>3min=min*2:o(k)=1:z(k,13 ),z(k,14);"OPENED":blind=blind-1:6100 >.25~(<((e(k,2)+.45ffff)))bet>5min=min*2:o(k)=1:z(k,13 ),z(k,14);"OPENED":blind=blind-1:6100 @<.75@(m(k)<400ƥ>.2~L)stake=min:8900" 'stake=(min+(*10 )):8900" in262008 i=14 i(i)=0ikopp=i i ]p(k)=((v(k)/100d)^((in-blind-1+(.5*(bet-t(k)))))*((v(k)/100d)^blind)) >u(k)=(min+(5*blind*min))/(pot+min+(8*blind*min)) u(k)=u(k)/e(k,1) s(k)=p(k)-u(k) Xblind=0l(opp)>.3ƥ>.9ffffv(k)>60<stake=min+502:8900" Yp(k)>.65&fffblind=0l(opp)>.2~Lƥ>.8Lstake=min+502:8900" Xblind=0l(opp)>.2~Lv(k)>67Cƥ>.9ffffstake=min+502:8900" ^f(k)=1ƥ>.6(bet-t(k)<4ť>.8L)stake=(min+(*502)):6170 Lf(k)=1(bet-t(k)<4ť>.8L)stake=min+502:6170 hblind=1((v(k)>80Pť>.75@(>.5v(k)>65A)))stake=min+502:8900" Xbet-t(k)<5blind=0pot>502ƥ>.8Lstake=min+502:8900" `opp=1auto=0m(1)<0v(k)>491ƥ>.2~Lblind=06150 %s(k)<0ƥ>.1}L8970 # blind>06170 o<.8Lp(k)>.8Ls(k)>.5(bet<4v(k)>98bť>.9ffff)stake=min+502:8900" .>.975ystake=min+502:8900" !l(opp)>ƥ>.56170 4>.98zGstake=(min+(*502)):8900" $>.98zGstake=min:8900" p(k)>.67+6170 'p(k)>.64# =ƥ>.1}L6170 &p(k)>.6ƥ>.36170 (p(k)>.55 ƥ>.55 6170 &p(k)>.5ƥ>.733336170 s(k)<-.07}\(8970 # seer=k:z(k,11 ),z(k,12 )-6;" ":z(k,11 ),z(k,12 )-6;"See you":25:m(k)=m(k)-min:pot=pot+min:z(k,15),z(k,16);" ":z(k,15),z(k,16);m(k):11 ,14;"`";pot:20:5150  stake=min Jblind>0ƥ>.9ffffv(k)>80P+(*8)stake=stake+502 1blind>0ƥ>.75@stake=stake+502 Bs(k)<0ƥ<.5(t(k)=0blind=0)8970 # Es(k)<-.05|Lƥ<.8L(t(k)=0blind=0)8970 # ->.3stake=stake+((s(k)+)*20)  2(v(k)>80Pť<.2~L)ƥ<.2~Lstake=min !8k=2s(k)>.6ƥ>.3stake=min+502 "*k=2ƥ>.8Lstake=min+502 $9s(k)>.5ƥ>.3stake=stake+((s(k)*30)) )(>.8Lstake=stake+((*25)) +(stake>min+502stake=min+502 .stake=(stake+.5) 3 8900" 4 6900 8Dx=(min*((in-blind-1)^2))+min+((min*(blind^1.6L))) ;ap(k)=(((v(k)/100d)^(blind))*((v(k)/100d)^(in-blind-1+(.5*(bet-(t(k))))))) =Ku(k)=(min+x)/(e(k,1)*(min+pot+x+(x*(in-blind))+(.6*x*blind))) >s(k)=p(k)-u(k) ?auto=0k=1 A`f(k)=1((>.65&fffbet=0)ť>.75@)(bet-t(k))<4stake=min:6270~ BQf(k)=1ƥ>.75@(bet-t(k))<4stake=min+(*502):6270~ CAf(k)=1(bet-t(k))<4stake=min+502:6270~ D9f(k)=1ƥ>.8Lstake=min+502:6270~ E_k=3(<.05|L(p(3)>.84W =pƥ>.5))stake=min+(*502):6270~ `(s(k)<-.1}Lƥ<.95s3338970 # a%s(k)<0ƥ>.1}L8970 # b*s(k).9ffffƥ>.2~Lstake=min+502:8900" g->.85Ystake=min+502:8900" h1p(k)>.8Lƥ>.5stake=min:8900" i1p(k)<.73333ƥ>.6stake=min:8900" j1p(k)<.6ƥ<.8Lstake=min:8900" o2<.2~Lstake=(min+(/2)):8900" y@p(k)>.8Lblind=in-1stake=min+502:8900" z=>.8Lblind=in-1stake=min+502:8900" {-k<4ƥ>.8Lstake=min:8900" |1k<4p(k)>.85Ystake=min:8900" ~8stake=(min+(13 *(p(k)+(/2)))):8900"  8900" .1:0,0;"`";min;" to open" $k<4k=k+1:6000p k=1:6000p XEauto=0(m(1)<0m(1)>1000)9900& k=14 k 40::8,0;"The Kid `";m(2) (8,19;"Puggy `";m(4) 021,10 ;n$(1); "`";m(1) .1,10 ;n$(3);"`";m(3) J@1:1:z(turn,7),z(turn,4);"Shuffling" O30:2:0,23;"Hand ";count T0:900 U80::z(turn,7),z(turn,4);" " VEasd=1:k=1+(4*((count/4)-(count/4))) Wk>4k=k-4 X;turn=1+(4*((count/4)-(count/4))) Y j=0 ^ po=-1 h;1:z(k,1)+3,z(k,8)+3+j;"" p;1:z(k,1)+4,z(k,8)+j+3;"" q2z(k,1)+2,z(k,8)+j+3;"" r2z(k,1)+1,z(k,8)+j+3;"" t*z(k,1)+4,z(k,8)+j;"" u*z(k,1)+3,z(k,8)+j;"" v*z(k,1)+2,z(k,8)+j;"" w*z(k,1)+1,z(k,8)+j;"" xpo=po+1 },z(k,1)+5,z(k,8)+j;"" ~$z(k,1),z(k,8)+j;"___" after=7 3blind=0po<2j=j+4:8040h blind=0k blind=0 3after:z(k,1)+1,z(k,8)+j;"" ,z(k,1)+2,z(k,8)+j;"" ,z(k,1)+3,z(k,8)+j;"" ,z(k,1)+4,z(k,8)+j;"" %po<2j=j+4:8040h after=7 7k=k+1:asd=asd+1:asd<58023W blind=0 k=14: m(k)=m(k)-2 /0:z(k,15),z(k,16);" " ,5:z(k,15),z(k,16);m(k) pot=pot+2 k  min=2 "0:11 ,14;"`8" k=turn:8210 k=14 i(k)=06000p k "6stake=stake:stake>min+502stake=min+502 "!m(k)=m(k)-stake:pot=pot+stake: "Ɂ1:.1}L,-30+(14*k):.1}L,-30+(k*14):0:z(k,9 ),z(k,10 );"I bet `";stake "$0:11 ,14;" " "%0:11 ,14;"`";pot "Rt(k)=0o(k)=1t(k)=in-blind-3+in:bet=bet+in+in-blind-3 "o(k)=1t(k)=t(k)+((1.5@+((stake-min)/35#)+(stake/80P)-(l(k)*5))*((in-blind)/1.5@)):bet=bet+((1.5@+((stake-min)/35#)+(stake/80P)-(l(k)*5))*((in-blind)/1.5@)) ">blind=0in=2bet=bet+3:t(k)=t(k)+3 "%z(k,15),z(k,16);" " " 8930" "$2:18,0;"x=";x "-20,0;"p(k)=";(p(k)*100d) "-21,0;"s(k)=";(s(k)*100d) "#z(k,15),z(k,16);m(k) "#o(k)=0min=(stake*2) "o(k)=1min=(stake) "4502:z(k,9 ),z(k,10 );" " " 6900 # N0:z(k,13 ),z(k,14);"STACKED":in=in-1:i(k)=1 # .1}L,-28 # 502 #early=1:5152 :k=13,22;" ":4,22;" ":s(1)>020,0;1;2;"Chicken!":502:0:20,0;" " #in16900 #k=14 #i(k)=0w=k #k #502:5420, # #( 9000(# #2f="a""j"+7 #7f="f"f="g" #8f="i"f="j" #<a #Ff,a #Pf #K0,16,568,124|,254,124|,568,16 #K0,568,568,16,214,254,214,16 #M0,108l,254,254,124|,124|,568,16 #L0,16,568,124|,254,254,214,16 #M170,85U,170,85U,170,85U,170,85U #Q152,164,164,164,164,164,164,152 #Q128,128,128,128,128,128,128,128 #C255,0,0,0,0,0,0,0 #Y0,0,0,01111110~,11111111,01111110~,0,0 # & 1: & m(1)>09920& &m(1)<0w(player,1)=w(player,1)+1:5,0;" Hard luck ,pardna.It looks as if we machines are cleverer than some humans!" &4,-32 & 9950& &m(1)>1000w(player,2)=w(player,2)+1:5,0;" Congratulations! It looks as if some humans do know how to play Brag ,after all !" &.2~L,10 :.2~L,10 :.2~L,10 :.2~L,7:.2~L,10 :.2~L,12 :.2~L,10 :.4L,7 &H.2~L,7:.4L,5:.2~L,7:.4L,5 &Ö.2~L,10 :.2~L,10 :.2~L,10 :.2~L,7:.2~L,10 :.2~L,12 :.2~L,10 :.4L,7 &Z.2~L,7:.2~L,5:.2~L,7:.2~L,5:.4L,3 &ũ.2~L,10 :.2~L,10 :.2~L,10 :.2~L,7:.1}L,10 :.1}L,10 :.2~L,12 :.2~L,10 :.4L,7 &H.2~L,7:.4L,5:.2~L,7:.4L,5 &.2~L,10 :.2~L,10 :.2~L,10 :.2~L,7:.1}L,10 :.1}L,10 :.1}L,12 :.1}L,12 :.1}L,10 :.1}L,10 :.4L,7 &Z.2~L,7:.2~L,5:.2~L,7:.2~L,5:.8L,3 & 4 & 2 &2,4;"" &3,4;" " &4,4;" " &5,4;"" &6,4;" " &7,4;" " &8,4;"" & 0 &2,10 ;"" &3,10 ;" " &4,10 ;" " &5,10 ;"" &6,10 ;"" &7,10 ;" " &8,10 ;" " & 2 &2,16;" " &3,16;" " &4,16;" " &5,16;" " '6,16;"" '7,16;" " '8,16;" " ' 0 '2,22;" " '3,22;" " '4,22;"" ' 5,22;"" ' 6,22;" " ' 7,22;" " ' 8,22;" " '  'Rp$(8,10 ):w(8,2):n(8):g(8):"Brag"1 ' 9998'  r 2#o olinitttak i fteeemew- Tim The Kid Wild Bill Puggy  andounutumbe ur arloses}H:60kzHu5jի=8~j[B :+xtyllufoos}L̢i pnowlayesA H!Uq2-32xZnaM~E                    eeav eveqnsyQV0- high high A   :]FZ2C423456789JQKA23456789JQKA23456789JQKA23456789JQKAA  ? U U++