#: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" " AS OF 08 OCT 80%d DS(4),A%(51),B%(4,3),H%(13),D%(1,1),O%(8),O$(8)JnA$(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,KI08:O%(I),O$(I):W0,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,2N2,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,2nI13:J17:F$(I,J):J,I"ߒ  ","   ","  "," ֒ "," ߒ ""  "," "," "," ª ","  "," ֦ ":"  "," ݩ "," ̒","ߒ  "," ","  "h" ","  "," ݦ "," "~I051:A%(I)I:I04:J13:B%(I,J)0:J,II01:J01:D%(I,J)0:J,IS$" ":T$" "1 I03:S$(0,I)" ":S$(1,I)(S$,I41,7):T "I03:S$(2,I)(T$,I61,7): ,BA1000:BE0:OH0:HL0:H0:D0:J0:K0:L0:M0:N0:OB0 1ST%0:FL%0:SF%0:AF%0 h1250 w |BA01700 I11000:I BEOB:1450 "YOUR BET? ";:60000+ (IN$,1)"Q"RKH:1340:1300:A IN$""IN$(BE)S (IN$)0390d BE((IN$)) BE1"YOU CAN'T DO THAT!": 385 BEBA"YOU DON'T HAVE THAT MUCH.": 385 BE10000"HOUSE LIMIT IS $10000.":385 RKH:1340:1490 BABABE:1420:1300& MD$"";:5404 OH0:600= 990L 1450:380d MD$;"SHUFFLING" I051:J((52I)(1)):KA%(J):A%(J)A%(51I):A%(51I)K I:MD$;"";: C44C0:510 &I113:H%(I)0: 0N04 :B%(N,1)A%(C):CC1:1550/ DB%(N,2)K:B%(N,3)I:H%(I)H%(I)18 NN:T XST%0:FL%0:AF%0:SF%0 bI14:B%(I,2)B%(0,2)I4:FL%0:630 lFL%1 vI J0:H%(1)1AF%1 I19:H%(I)1JI:I9 I K4 IJ1JK:H%(I)0IJK:ST%0:700 ST%1 I9 AF%1ST%0H%(10)1K4J10:K3:680Y I113:H%(I)1ST%0:I13` Is ST%K4KJ4 ST%K3K1 ST%FL%SF%1 SF%H8:940 ST%H4:940 FL%H5:940 I01:J01:D%(I,J)0:J,I *J0:I113:H%(I)2840-4D%(J,0)H%(I):D%(J,1)I:JJ1;>J2I13BHITRJ0H0:940a\J1900fI01:D%(I,0)3H6:KI:I1:890pH2zI:940I01:D%(I,0)4H7:KI:I1:930D%(I,0)3H3:I1:930H1I1450OHHRV$"":RKH:1340+RKOH:13401GI113:H%(I)0:mI04:DS(I)0:I:D$"":ZC1:ZT0MD$"ENTER DISCARDS--"D$" ";Z$:Z$""" ":1050TIZT(" ",ZC,1);"";:ZC3ZC:ZTTI151020(Z$)131150$(Z$)20(D$)011101.Z$"1"Z$"5"(D$)21010K8Z(Z$)1:DS(Z)1010`BD$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$)01230MD$;"";5N04:DS(N)01200SB%(N,1)A%(C):CC1:1550kB%(N,2)K:B%(N,3)IrNI04:H%(B%(I,3))H%(B%(I,3))1:IOHH:600BABABE(O%(H)):1420"":1420T$""HAND"21)"ODDS"32)"PAYOFF":T$T$"8RK811:1340:RKG T$T$"":QMD$;fI1424:BL$:Iw(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)nZ$"$0"Z$""*x(BL$Z$,12)7RV$"":Y"CASH: $";((BA)BL$,2,13)20);"BET: $";((BE)BL$,2,13)MD$;BL$:BL$BL$;MD$;""OBBE1540RK811(B$,13RK);26);:1380RK OBBE:HK(B%(N,1)13):IB%(N,1)13K1:S$("",K1,1):L8NnMD$;"";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: J^ L);"";(BL$A$(I),7);""$h@1300:"YOU ARE BROKE!d"WANT TO TRY AGAIN? ";:60000{(IN$,1)"N"300`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010#Z(Z$):ZL(IN$):(Z127)32" ";:60110SFL(Z127)64(Z127)91Z$((Z128)255)eZL25460010IN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:60000 60010(PN060250$-60500?2"PRESS RETURN TO ";\