#:PG$"POKER":NM$"22":62000E" COPYRIGHT(C)1980 DAVID HOOKX" 58 STEEL ST.|" BARRIE,ONTARIO,CANADA,L4M 2E9"" CURSOR #22, SEP 1980" THE CODE WORKS" BOX 550, GOLETA, CA. 93017" PLUS/4 VERSION BY ERICH/UNLIMITED  " IN 2005?d DS(4),A%(51),B%(4,3),H%(13),D%(1,1),O%(8),O$(8)dnA$(13),C%(10,7),S$(2,3),F$(3,7)xBL$" "B$""MD$(B$,14):C52:I(TI)I113:A$(I):H%(I)0:A,2,3,4,5,6,7,8,9,10,J,Q,K/I08:O%(I),O$(I):q0,NO PAIR,1,ONE PAIR,3,TWO PAIR,5,THREE OF A KIND,7,STRAIGHT10,FLUSH,20,FULL HOUSE,30,FOUR OF A KIND,50,STRAIGHT FLUSHI110:J17:C%(I,J):J,I0,0,0,1,0,0,0,1,0,0,0,0,0,1,1,0,0,1,0,0,1,2,0,0,0,0,0,2,2,0,0,1,0,0,2h2,0,0,2,0,0,2,2,0,1,0,2,0,2,2,0,2,0,2,0,2,2,0,2,1,2,0,2,2,1,2,0,2,1,2I13:J17:F$(I,J):J,I"ߒ  ","   ","  "," ֒ "," ߒ ""  "," "," "," ª ","  "," ֦ "T"  "," ݩ "," ̒","ߒ  "," ","  "" ","  "," ݦ "," "I051:A%(I)I:I04:J13:B%(I,J)0:J,II01:J01:D%(I,J)0:J,IS$" ":T$" "KI03:S$(0,I)" ":S$(1,I)(S$,I41,7):n"I03:S$(2,I)(T$,I61,7):,BA1000:BE0:OH0:HL0:H0:D0:J0:K0:L0:M0:N0:OB01ST%0:FL%0:SF%0:AF%0h1250w|BA01700I11000:IBEOB:1450 "YOUR BET? ";:60000E(IN$,1)"Q"RKH:1340:1300:[IN$""IN$(BE)m(IN$)0390~BE((IN$))BE1"YOU CAN'T DO THAT!": 385BEBA"YOU DON'T HAVE THAT MUCH.": 385BE10000"HOUSE LIMIT IS $10000.":385RKH:1340:1490-BABABE:1420:1300@MD$"";:540NOH0:600W990f1450:380~MD$;"SHUFFLING"I051:J((52I)(1)):KA%(J):A%(J)A%(51I):A%(51I)KI:MD$;"";:C44C0:510&I113:H%(I)0:0N04#:B%(N,1)A%(C):CC1:1550IDB%(N,2)K:B%(N,3)I:H%(I)H%(I)1RNN:nXST%0:FL%0:AF%0:SF%0bI14:B%(I,2)B%(0,2)I4:FL%0:630lFL%1vIJ0:H%(1)1AF%1I19:H%(I)1JI:I9IK4IJ1JK:H%(I)0IJK:ST%0:700 ST%1'ISAF%1ST%0H%(10)1K4J10:K3:680sI113:H%(I)1ST%0:I13zIST%K4KJ4ST%K3K1ST%FL%SF%1SF%H8:940 ST%H4:940FL%H5:940 I01:J01:D%(I,J)0:J,I%*J0:I113:H%(I)2840G4D%(J,0)H%(I):D%(J,1)I:JJ1U>J2I13\HInRJ0H0:940{\J1900fI01:D%(I,0)3H6:KI:I1:890pH2zI:940I01:D%(I,0)4H7:KI:I1:930D%(I,0)3H3:I1:930H1I1450OHH5RV$"":RKH:1340ERKOH:1340KaI113:H%(I)0:I04:DS(I)0:I:D$"":ZC1:ZT0MD$"ENTER DISCARDS--"D$" ";Z$:Z$""" ":1050TIZT(" ",ZC,1);"";:ZC3ZC:ZTTI151020(Z$)131150+$(Z$)20(D$)01110K.Z$"1"Z$"5"(D$)21010e8Z(Z$)1:DS(Z)1010zBD$D$Z$:DS(Z)1LMD$;"";Z8)"DISCARD":1010VZ$(D$,1):Z(Z$)1:DS(Z)0:" "`MD$;"";Z8)" "j(D$)1D$(D$,(D$)1):1010t1000&~1450:(D$)012306MD$;"";ON04:DS(N)01200mB%(N,1)A%(C):CC1:1550B%(N,2)K:B%(N,3)INI04:H%(B%(I,3))H%(B%(I,3))1:IOHH:600BABABE(O%(H)):1420"":1420T$"9"HAND"21)"ODDS"32)"PAYOFF":T$T$"RRK811:1340:RKa T$T$"":kMD$;I1424:BL$:I(BL$;MD$;""2<RK1RK81410F(B$,13RK);RV$;PZ$O$(RK):Z$Z$(BL$(O%(RK)),20(Z$))Z Z$;" FOR 1";dZ$"$"((BEO%(RK)),2)2nZ$"$0"Z$""Dx(BL$Z$,12)QRV$"":s"CASH: $";((BA)BL$,2,13)20);"BET: $";((BE)BL$,2,13)MD$;BL$:BL$BL$;MD$;""OBBE1540RK811(B$,13RK); 26);:1380 RK$ OBBE:b K(B%(N,1)13):IB%(N,1)13K1:S$("",K1,1):L8N MD$;"";L);"";(A$(I)BL$,7) "I10J17:L);"";S$(C%(I,J),K): J:1630 ,J17: L);""; 6 J1 " ";S$; @ F$(I10,J); !JJ7"";S$;" ";!T: J8!^ L);"";(BL$A$(I),7);"">!hZ!1300:"YOU ARE BROKE!~!"WANT TO TRY AGAIN? ";:60000!(IN$,1)"N"300!!`IN$" ":ZTTI:ZC2:ZD$(20)!jZ$:Z$""60070"tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15 "~60010="Z(Z$):ZL(IN$):(Z127)32" ";:60110m"FL(Z127)64(Z127)91Z$((Z128)255)"ZL25460010"IN$IN$Z$:Z$;ZD$;Z$;"Z13IN$(IN$,2):CR$;:"Z20ZL1IN$(IN$,ZL1):"";:60010#Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000##600103#(PN060250>#-60500Y#2"PRESS RETURN TO ";v#