J V$²"¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨¨": ************** DRAW POKER **************l —53280,3:—53281,1:™"“":165 Œ ™£14)"DRAW POKER É †T(13),C9(4),S(4,13),M(5),M1(5),C(5),C1(5),R$(15),Q$(12) ™" REVISED FROM THE PUBLIC DOMAIN BY"¦12)"S C SLOOP-CIS 74366.2252; Z²0¤10:‡Q$(Z):‚:Z²1¤14:‡R$(Z):‚:ŒY ™"":165 :166 :173 ™"“"£10)"SHUFFLING THE CARDS ± ™£12)"PLEASE STANDBY"¦68)"THANK YOU.":166 Ñ X²1¤4:I²1¤13:S(X,I)².:‚:‚÷ ™"“CARDS ARE RESHUFFLED!" A9²5:™"ANTE OF $5.005 ™"YOU HAVE $";P9:166 e X²1¤5:136:M(X)²C:M1(X)²S:‚X:151 :™:165 ‹ ™£9)" I'LL DEAL MY HAND. ’¬ X²1¤5:136:C(X)²C:C1(X)²S:‚Ç 159 :C1²T:C2²H9:P1²«5é ™£8)"OPEN WITH A BET $";:…B$ B²µ(Å(B$)):‹B².§™£8)"PLEASE":‰27 ‹»(0)³.4§32 V ‹µ(((T¬»(0))ª1)ª((H9¬»(0))ª1)ª(T¬10))³B«(B­7)§63 f Z²1¤2000:‚Ž A9²A9ªB:™" MMMMMMMM ! ";:166 ¦ !™"OK, I'LL ACCEPT.â "™"HOW MANY CARDS TO REPLACE";:…K9$:‹K9$²Ç(13)§42 ý #K9²µ(Å(K9$)):‹K9².§42 $X²1¤K9> %™"CARD NUMBER";:…T9$:::::T9²µ(Å(T9$)):136L &‹T9².§40 Z '‹T9³6§41 ˆ (™" ENTER CARD NUMBER FROM 1 TO 5.":‰37 ¥ )M(T9)²C:M1(T9)²S:‚:151 Þ *158 :X²1¤5:T(M(X))²T(M(X))ª1:C9(M1(X))²C9(M1(X))ª1ù +‚:97 :P1²T:133:P2²H9 ,™:159 :H9².:‹T±3§49 ( -Z²1¤5:‹H9²3§48 < .‹T(C(Z))³±1§48 \ /H9²H9ª1:136:C(Z)²C:C1(Z)²Sb 0‚’ 1™:™£9)" I'LL TAKE "H9" CARDS. ":H8²H9¬ 2159 :C1²T:133:C2²H9è 3B9²µ((C1¬»(0))ª(C2¬»(0))ª(C1¬10))ªµ(A9­3)ª((K9«H8)¬2)ª7ó 4B1².:™5‹»(0)³C1¬.5§55 6B9²99.99:7™" HOW MUCH DO YOU BET ";:…B$Q8‹B$²Ç(13)§B²0:‰59 i9B²µ(Å(B$)):‹B²0§59 v:A9²A9ªB1›;‹B²0§™£12)"CALL":166 :70 :‰81 ¬<‹A9ªB³B9§68 Ä=‹A9ªB³B9ª(B9­2)§66 Ö>‹B9²99.99§66 ó?™"MMMMMMMMM ! ";:166 @™" I FOLD!!!":166 A70 :‰89 :B™£8)"I CALL YOU!":166 PCA9²A9ªB:70 :‰81 {DB1²µ(((B9«A9)­3)¬»(0))ª2:A9²A9ªB:166 ¬E™£9)" I'LL RAISE YOU $";B1;" ":‰55 ¶F181 àG™:™"I HAD ";:T²C1:™"";Q$(T);"ïH‹T±.99§74 úI™:‰75 (J™" HIGH CARD WAS A ";:C²C2:™R$(C);"7K‹P1²«5§80 cL™:™"YOU HAD ";:T²P1:™"";Q$(T);"rM‹T±.99§79 |N™:™:ŽªO™"HIGH CARD WAS A ";:C²P2:™R$(C);"°PŽ¿Q‹C1²P1§84 ÎR‹C1³P1§89 ×S‰88 æT‹C2²P2§87 õU‹C2³P2§89 þV‰88 W™"IT WAS A TIE!!!":‰90 PX™£9)" I WON $";A9;" ":P9²P9«A9:‰90 }Y™£9)" YOU WON $";A9;" ":P9²P9ªA9ŒZ™£28)"Y‘‘¸[™£12)"AGAIN? ( Y/N )";:…B$:‹B$²"Y"§19 È\™:‹P9³.§96 Ù]‹P9²±101§95 ^™"“"£8)" YOU LEFT LOSING $";100«P9:168 :‰161 L_™"“CONGRATULATIONS, YOU LEFT WITH $"P9:168 :‰161 z`™"“"£8)"YOU OWE ME $";«P9:168 :‰161 —aT².:I²1¤4:‹C9(I)³±5§99 ŸbT²5®c‚:I²2:H9².ÂdI²I«1:‹I³±0§102ËeI²13Ûf‹T(I)³1§100ägH9²1òh‹I³±1§106ûiI²14jZ²I«4kI²I«1:‹T(I)³±1§112*l‹Z³±1§107?mT²Tª4:‹Z³±10§112Ln‹T²4§23 VoT²Tª1dp‹I²13§100rq‹T³±5§116ƒr‹T(1)³±1§116ŒsH9²1™t‹T².§118ŸuŽ¸vI²1¤13:‹T(I)³±4§120ÀwT²7Ñx‹T(I)³±3§122àyT²Tª5:H9²Iñz‹T(I)³±2§130þ{‹T²5§129 |‹T³±.§126}H9².#~‹H9²1§1291‹H9±I§129:€H9²IDT²Tª1J‚‚Xƒ‹T³±5§135b„T²3:Žq…‹H9³±1§135{†H9²14‡Ž¢ˆS²µ(4¬»(0))ª1:C²µ(13¬»(0))ª1´‰‹S(S,C)²1§136ÊS(S,C)²1:ŽÍ‹167 ߌ‹C²1§™" A";:Žò‹C²11§™" J";:ŽŽ‹C²12§™" Q";:Ž‹C²13§™" K";:Ž+‹C²14§™" A";:ŽC‘‹C²10§™"";C;"";:ŽQ’™C;"";:Žd“‹S²1§™"–Ó";:Žw”‹S²2§™"Á";:ŽŠ•‹S²3§™"–Ú";:Ž˜–™"Ø";:ŽÁ—™"“"£9)" HERE IS YOUR HAND: ’䘙£8)"1 2 3 4 5 ™™£6)"Ï···Ð Ï···Ð Ï···Ð Ï···Ð Ï···Ðš™" ";#›X²1¤5IœC²M(X):S²M1(X):™" ";:139:147 Q‚:ŽyžX²1¤4:C9(X)².:‚:X²1¤13:T(X)².:‚:ŽœŸ158 :X²1¤5:T(C(X))²T(C(X))ª1¿ C9(C1(X))²C9(C1(X))ª1:‚:97 :Ží¡—53280,254:168 :™"“";£12)"BYE-BYE ! ¢—53281,246:168 :™"“š":€+£™:™"I HAD ";:T²C1:820\¤™"HIGH CARD WAS ";:C²C2:139:147 :™:Ži¥™V$ªV$:Ž{¦Z²1¤1000:‚:Ž§Z²1¤ 300:‚:ŽŸ¨Z²1¤3000:‚:ŽÅ©™£7)"HIT ANY KEY TO START GAME!몙£7)"££££££££££££££££££££££££££"ÿ«¡Z$:‹Z$²""§171 ¬Ž-­™"“"£10)" GAME RULES ":P9²100x®™" 1. DEALER IS INDEPENDENT OF YOUR HAND. IT IS BLOCKED FROM HIM.µ¯™" 2. DEALER MAY RAISE, CALL OR FOLD ON HIS HAND.°™" 3. DEALERS ACTIONS AS IN REAL POKER DEPEND ON YOUR BLUFFS,";6±™" BETS, AMOUNT OF CARDS TAKEN, AND RAISES.`²™" 4. YOU MAY DRAW UP TO FOUR CARDS.³™" 5. ON BETTING, BET A ZERO (0) TO CALL.Æ´™" 6. BET A NEGATIVE (-) NUMBER TO FOLD.":169 :Žîµ™"“"£12)" MY HAND: ":™:™" ";¶C²C(1):140:S²C1(1):147 :™" ";:·C²C(2):140:S²C1(2):147 :™" ";`¸C²C(3):140:S²C1(3):147 :™" ";†¹C²C(4):140:S²C1(4):147 :™" ";´ºC²C(5):140:S²C1(5):147 :™" ";:™:165 Ñ»™£12)" YOUR HAND: ’å¼155 :™:165 :Ž*½ƒNOTHING,ONE PAIR,TWO PAIR,3 OF A KIND,STRAIGHT,FLUSH,FULL HOUSEn¾ƒ4 OF A KIND,X,STRAIGHT FLUSH,ROYAL FLUSH ! !,ACE,DUECE,3,4,5,6¿ƒ7,8,9,10,JACK,QUEEN,KING,ACE–58 :X²1¤5:T(C(X))²T(C(X))ª1¿ C9(C1(X))²C9(C1(X))ª1:‚:97 :Ží¡—53280,254:168 :™"“";£12)"BYE-BYE ! ¢—53281,246:16Z²1¤ 300:‚:ŽŸ¨Z²1¤3000:‚:ŽÅ©™£7)"HIT ANY KEY TO START GAME!몙£7)"££££££££££££££££££££££££££"ÿ«¡Z$:‹Z$²""§171 Å