WO2008066573A2 - Algorithm for truly random automated poker playing - Google Patents

Algorithm for truly random automated poker playing Download PDF

Info

Publication number
WO2008066573A2
WO2008066573A2 PCT/US2007/013001 US2007013001W WO2008066573A2 WO 2008066573 A2 WO2008066573 A2 WO 2008066573A2 US 2007013001 W US2007013001 W US 2007013001W WO 2008066573 A2 WO2008066573 A2 WO 2008066573A2
Authority
WO
WIPO (PCT)
Prior art keywords
aaa
return
instr
ithen
2thenaaa
Prior art date
Application number
PCT/US2007/013001
Other languages
French (fr)
Other versions
WO2008066573A3 (en
Inventor
Richard John Edwards
Original Assignee
Richard John Edwards
Priority date (The priority date is an assumption and is not a legal conclusion. Google has not performed a legal analysis and makes no representation as to the accuracy of the date listed.)
Filing date
Publication date
Application filed by Richard John Edwards filed Critical Richard John Edwards
Publication of WO2008066573A2 publication Critical patent/WO2008066573A2/en
Publication of WO2008066573A3 publication Critical patent/WO2008066573A3/en

Links

Classifications

    • A—HUMAN NECESSITIES
    • A63—SPORTS; GAMES; AMUSEMENTS
    • A63F—CARD, BOARD, OR ROULETTE GAMES; INDOOR GAMES USING SMALL MOVING PLAYING BODIES; VIDEO GAMES; GAMES NOT OTHERWISE PROVIDED FOR
    • A63F1/00—Card games
    • A63F1/06—Card games appurtenances
    • A63F1/18—Score computers; Miscellaneous indicators
    • G—PHYSICS
    • G07—CHECKING-DEVICES
    • G07F—COIN-FREED OR LIKE APPARATUS
    • G07F17/00—Coin-freed apparatus for hiring articles; Coin-freed facilities or services
    • G07F17/32—Coin-freed apparatus for hiring articles; Coin-freed facilities or services for games, toys, sports, or amusements
    • G—PHYSICS
    • G07—CHECKING-DEVICES
    • G07F—COIN-FREED OR LIKE APPARATUS
    • G07F17/00—Coin-freed apparatus for hiring articles; Coin-freed facilities or services
    • G07F17/32—Coin-freed apparatus for hiring articles; Coin-freed facilities or services for games, toys, sports, or amusements
    • G07F17/3286—Type of games
    • G07F17/3293—Card games, e.g. poker, canasta, black jack
    • A—HUMAN NECESSITIES
    • A63—SPORTS; GAMES; AMUSEMENTS
    • A63F—CARD, BOARD, OR ROULETTE GAMES; INDOOR GAMES USING SMALL MOVING PLAYING BODIES; VIDEO GAMES; GAMES NOT OTHERWISE PROVIDED FOR
    • A63F9/00—Games not otherwise provided for
    • A63F9/24—Electric games; Games using electronic circuits not otherwise provided for
    • A63F2009/2401—Detail of input, input devices
    • A63F2009/2402—Input by manual operation

Definitions

  • FAIR CHANCE Computerized Card Games It used FAIR CHANCE Decks which are great. (Take 100 ordinary decks and shuffle them thoroughly. Enter the sequence of each to a computer game program routine; #1 to 100. Reshuffle the decks and enter the new sequences as a cotinuation; # 101 to 200. A manufacturer may do this to say 50000 pre-shuffled decks for each system). At the start, a deck is randomly selected then "cut", which is a randomize command to start the deal anywhere from 1 to 52. After reaching 52, it goes to 1.
  • the main objects of this invention are to bring truly automated random poker playing to homes and casinos in great numbers. And to improve online play.
  • the tables must be inexpensive, normal in size and easy to operate. It must exude confidence.
  • the average person must be able to buy a publication of the algorithm, read and understand it or have it easily explained. That is why it is written in simple BASIC. This can be easily converted to any other computer language to use with any system.
  • Ports can be just simple monitors with input capability.
  • Each player's hand will go to it's own copy of the invention, with variables representing his position in the deal's array.
  • the invention is also ideal for hand - held and desk calculators. If there are disputes about the better hand, this calculator can become the final arbiter.
  • a Sample of the decks in the game file is shown on the next 4 pages. After one is selected at random, the deck is "cut” and cards dealt to the players. At the end of the deal, Each hand is sent to it's version of the invention (appropriate variables) to be read and given a printout of the hand made and with a score.
  • Player #1 is A$ with score AAA, hand made, AH$ Player Wl is B$ ditto BBB, ditto , BH$ Player #3 is C$ ditto CCC, ditto , CH$ And so on.
  • Player number is not seat number when they are the same it's coincidental, player #1 is the player who is dealt first. Or where the deal starts. In Texas Hold ' Em and Omaha, player numbers move clockwise with the blinds. Player #1 is the small blind. The big blind is #2. Under the gun is #3. 4,5.6, FAIR CHANCE * DECKS - probably 1000. Changed periodically.
  • LET FLA KA1+KA2+KA3+KA4+KA5+KA6+KA7+KA8+KA9+KA10 +KA11+KA12+KA13
  • LET FLA NA1+NA2+NA3+NA4+NA5+NA6+NA7+NA8+NA9+NA10 +NA11+NA12+NA13
  • IFLTA7 2THEN5356 GOTO 5359

Abstract

This invention introduces quantitative scoring to poker. It is new to poker but in many sports, it is almost all that counts. So welcome scoring to poker because you may argue until blue in the face, but at the end, only the cards speak. One may say 'The cards keep the score'. Poker is a gruelling game. This invention will relieve much of the stress since players can have: Hands made with scores so far, as the game progresses, and at the end. It will be like going from a slide rule to a calculator. And should allow older players and beginners to keep up better with the twenty-somethings.

Description

ALGORITHM FOR TRULY RANDOM AUTOMATED POKERPLAYING
BACKGROUND OF THE INVENTION
In 1996 the inventor thought of making a poker table with automated dealing, automated reading of players' hands and picking the winner.
A program was written: FAIR CHANCE Computerized Card Games. It used FAIR CHANCE Decks which are great. (Take 100 ordinary decks and shuffle them thoroughly. Enter the sequence of each to a computer game program routine; #1 to 100. Reshuffle the decks and enter the new sequences as a cotinuation; # 101 to 200. A manufacturer may do this to say 50000 pre-shuffled decks for each system). At the start, a deck is randomly selected then "cut", which is a randomize command to start the deal anywhere from 1 to 52. After reaching 52, it goes to 1.
Auto random deal was now perfect. In other words, it was just as we do now with a human dealer. But search as you may, there was no mathematical or computer procsss to construct an algorithm to read poker hands from true random deals. The inventor found out that FAIR CHANCE Computerized Card Games could not be marketted without inventing something more than a new deck and output format. So I persevered and finally accomplish this Algorithm.
BRIEF SUMMARY OF THE INVENTION
The main objects of this invention are to bring truly automated random poker playing to homes and casinos in great numbers. And to improve online play. For the home, the tables must be inexpensive, normal in size and easy to operate. It must exude confidence. The average person must be able to buy a publication of the algorithm, read and understand it or have it easily explained. That is why it is written in simple BASIC. This can be easily converted to any other computer language to use with any system.
No download to player ports will be required. Ports can be just simple monitors with input capability. Each player's hand will go to it's own copy of the invention, with variables representing his position in the deal's array. The invention is also ideal for hand - held and desk calculators. If there are disputes about the better hand, this calculator can become the final arbiter.
Highest score always wins. Also great for use when playing Omaha where each player has 6 possible hands to analyze. Just punch in the cards and get the hands made with scores. This poker-hand calculator could even be used with the manual playing we now have.
DETAILED DESCRIPTION OF THE INVENTION
A Sample of the decks in the game file is shown on the next 4 pages. After one is selected at random, the deck is "cut" and cards dealt to the players. At the end of the deal, Each hand is sent to it's version of the invention (appropriate variables) to be read and given a printout of the hand made and with a score.
Player #1 is A$ with score AAA, hand made, AH$ Player Wl is B$ ditto BBB, ditto , BH$ Player #3 is C$ ditto CCC, ditto , CH$ And so on. There is no change in variables used for the cards. In other words, enter the same invention routine for each player replacing the 1A' most places in the program with B,C,D,E,F,G,H,I,J for prayers 2 to 10. The only exception is where A represents Ace in the deck.
Player number is not seat number when they are the same it's coincidental, player #1 is the player who is dealt first. Or where the deal starts. In Texas Hold ' Em and Omaha, player numbers move clockwise with the blinds. Player #1 is the small blind. The big blind is #2. Under the gun is #3. 4,5.6, FAIR CHANCE * DECKS - probably 1000. Changed periodically.
16402 DIM Q$(52)
Q$(I) =" 7(CL) "
Q$(2) =" K(HE) "
Q$(3) =" 5(CL) "
Q$(4) =" 4(HE) "
Q$(5) =" 2(SP) "
Q$(6) =" 4(CL) "
Q$(7) =" 7(HE) "
Q$(8) =" 8(DI) "
Q$(9) =" A(CL) "
Q$(10)='' 7(SP) "
Q$(11)=" 2(DI) "
Q$(12)=" Q(DI) "
Q$(13)=" 3(CL) "
Q$(14)=" 8(CL) "
Q$(15)=" J(DI) "
Q$(16)=" K(SP) "
Q$(H)='' 2(HE) "
Q$(18)=" 6(DI) "
Q$(19)=" 5(Dl) "
Q$(20)=" 10(CL) "
Q$(21)=" 5(HE) "
Q$(22)=" 6(SP) "
Q$(23)=" 4(DI) "
Q$(24)=" 4(SP) "
Q$(25)=" K(DJ) "
Q$(26)=" 9(HE) "
Q$(27)=" K(CL) "
Q$(28)=" Q(CL) "
Q$(29)=" A(DI) "
Q$(30)=" 6(HE) "
Q$(31)=" J(CL) "
Q$(32)=" 7(DI) "
Q$(33)=" J(SP) "
Q$(34)=" A(SP) "
Q$(35)=" 9(DI) "
Q$(36)=" J(HE) "
Q$(37)=" 3(HE) "
Q$(38)=" Q(HE) "
Q$(39)=" 3(DI) "
Q$(40)=" 2(CL) " Q$(41)=" 8(SP) "
Q$(42)=" A(HE) "
Q$(43)=" 6(CL) "
Q$(44)=" 9(CL) "
Q$(45)=" 3(SP) "
Q$(46)=" 5(SP) "
Q$(47)=" 10(SP) "
Q$(48)=" Q(SP) "
Q$(49)=" 8(HE) "
Q$(50)=" 9(SP) "
Q$(51)=" 10(DI) "
Q$(52)=" 10(HE) "
GOTO 350
16410 REM THIS IS DECK NO.54
16412 DIM Q$(52)
Q$(l) =" 2(SP) "
Q$(2) =" K(DI) "
Q$(3) =" 8(SP) "
Q$(4) =" 3(DI) "
Q$(5) =" 7(HE) "
Q$(6) =" 8(CL) "
Q$(7) =" 4(CL) "
Q$(8) =" 4(SP) "
Q$(9) =" J(SP) "
Q$(10)=" 6(SP) "
Q$(ll)=" 5(CL) "
Q$(12)=" 10(DI) "
Q$(13)=" A(SP) "
Q$(14)=" 3(SP) "
Q$(15)=" Q(DI) "
Q$(16)=" A(DI) "
Q$(17)=" K(HE) "
Q$(18)=" 7(CL) "
Q$(19)=" 7(SP) "
Q$(20)=" Q(HE) "
Q$(21)=" 3(CL) "
Q$(22)=" A(CL) "
Q$(23)=" 3(HE) "
Q$(24)=" 2(HE) "
Q$(25)=" 5(SP) "
Q$(26)=" 5(DI) "
Q$(27)=" Q(SP) "
Q$(28)=" 6(DI) " Q$(30)=" Q(CL) "
Q$(31)=" 9(CL) " Q$(32)=" 10(CL) " Q$(33)=" J(HE) " Q$(34)=" 5(HE) " Q$(35)=" 2(CL) " Q$(36)=" 9(DI) " Q$(37)=" 8(HE) " Q$(38)=" 6(CL) " Q$(39)=" J(CL) " Q$(40)=" J(DI) " Q$(41)=" 10(SP) " Q$(42)=" 4(Dl) " Q$(43)=" 9(HE) " Q$(44)=" A(HE) " Q$(45)=" K(CL) " Q$(46)=" K(SP) " Q$(47)=" 8(DI) " Q$(48)=" 4(HE) " Q$(49)=" 7(DI) " Q$(50)=" 6(HE) " Q$(51)=" 2(DI) " Q$(52)=" 9(SP) " GOTO 350
16420 REM THIS IS DECK NO.55
16422 DIM Q$(52)
Q$(l) =" 6(SP) "
Q$(2) =" A(DI) "
Q$(3) =" 4(CL) "
Q$(4) =" 5(DI) "
Q$(5) =" Q(CL) "
Q$(6) =" 3(DI) "
Q$(7) =" 5(SP) "
Q$(8) =" A(HE) "
Q$(9) =" 5(CL) "
Q$(10)=" J(DI) "
Q$(11)=" 10(HE) "
Q$(12)=" 7(DI) "
Q$(13)=" 9(HE) "
Q$(14)=" K(CL) " Q$(15)=" 6(DI) " Q$(16)=" 2(CL) " Q$(17)=" 4(HE) " Q$(18)=" Q(DI) " Q$(19)=" 8(CL) " Q$(20)=" A(CL) " Q$(21)=" 2(DI) " Q$(22)=" A(SP) " Q$(23)=" K(HE) ' Q$(24)=" Q(SP) " Q$(25)=" 8(DI) " Q$(26)=" 8(SP) " Q$(27)=" J(CL) " Q$(28)=" 2(SP) " Q$(29)=" 7(SP) " Q$(30)=" 4(DI) " Q$(31)=" 10(CL) " Q$(32)=" 9(CL) " Q$(33)=" 9(SP) " Q$(34)=" 10(Di) " Q$(35)=" 5(HE) " Q$(36)=" J(HE) " Q$(37)=" 10(SP) " Q$(38)=" 6(HE) " Q$(39)=" 4(SP) " Q$(40)=" 2(HE) " Q$(41)=" 3(SP) " Q$(42)=" 7(HE) " Q$(43)=" 8(HE) " Q$(44)=" K(SP) " Q$(45)=" 7(CL) " Q$(46)=" 9(DI) " Q$(47)=" 3(CL) " Q$(48)=" Q(HE) " Q$(49)=" J(SP) " Q$(50)=" K(DI) " Q$(51)=" 6(CL) " Q$(52)=" 3(HE) " GOTO 350 mid position. 7,8,9, late position. The button is last to be dealt, and #10 when a full table. So #1 this game, will be #2 next game, and so on. These are the numbers used by the invention. It will use these in coordination with the routine of the game program that controls the automatic movement of the blinds. The players dont see these numbers. But the program always knows a player's number only for a particular game, that is all it cares about connecting a player with a number during a game, before going to the algorithm, let me give you a few pointers. I tried my best to make this algorithm easy to understand despite the difficulty involved in getting a computer routine to accurately read true random deals, you must start at the beginning all the time. It's really more like a maze than a very difficult math problem. It starts at straight flush. Then it goes to 4 of a kind. Now you have all the important variables and information for all the other hands. Straight flush will have them for straight and for flush. 4 of a kind will have them for full house, 3 of a kind, 2 pairs, pair, high card.
A$ = player #1 AH$ = player's hand AAA = players score KAl 3 to KAl = 2 of club to ace of club. CA$ to CK$ = ignore for now. SFAl to SF A4 = will be used when we go to flush LA 13 to LAl = 2 of diamond to ace of diamond then MA 13 to MAl for heart and NA 13 to NAl for spade. Most other variables are defined. 5200 REM HAND SCORE OF A$
REM WILL NAME POKER HANDS AND SCORES
5205 LET SN= 12
5208 IF R = 7T.HENSN=1
PRINT
LET J = INSTR (SN, A$, " A(C) ")
IF J>OTHENKA1 = 1
IF KAl = 1 THEN CA$ = "A"
IF KAl = 1 THEN SFAl = 340
LET J = INSTR(SN5AS,112(C) ")
IF J>0THENKA13 = l
IF KA13 = 1THENC2$ = "2"
IF KA13 = 1 THEN SFAl = 100
LET J = INSTR(SN3AS3" 3(C) M)
IF J>0THENKA12=l
IF KA12 = 1 THEN C3$ = "3"
IF KA12 = 1 THEN SFAl = 120
LET J = INSTR(SN,A$," 4(C) ")
IF J>OTHENKA11 = 1
IF KA11 = 1THENC4$ = "4"
IF KAIl = 1 THEN SFAl = 140
LET J = INSTR(SN3AS3" 5(C) ") IF J>0THENKA10=l
IF KAlO = 1 THEN C5$ = "5"
DF KAlO = 1 THEN SFAl = 160
LET KTA = KA1+KA1O+KA11+KA12+KA13
DF KTA = 5 THEN AAA = 10000
5212 REM NOW TO CHECK FOR 2 - 6
LET J = INSTR(SN, A$, " 6(C) ")
IF J>0THENKA9=l
IF KA9 = 1 THEN C6$ = "6"
IF KA9 = 1 THEN SFAl = 180
LET KTA = KA9+KA1O+KA11+KA12+KA13
IF KTA = 5 THEN AAA = 10010
REM NOW TO CKECK FOR 3- 7
LET J = INSTR(SN, A$, " 7(C) ")
IF J>0THENKA8 = l
IF KA8 = 1THENC7$ = "7"
IF KA8 = 1 THEN SFAl = 200
LET KTA = KA8+KA9+KA10+KA11+KA12
IF KTA = 5 THEN AAA =10020
REM NOW TO CHECK FOR 4 - 8
LET J = INSTR(SN, A$, " 8(C) ") IF J>0THENKA7 = l
IF KA7 = 1 THEN C8$ = "8"
IF KA7 = 1 THEN SFAl = 220
LET KTA = KA7+KA8+KA9+KA1O+KA11
IF KTA = 5 THEN AAA =10030
5214 REM NOW TO CHECK FOR 5 - 9
LET J = INSTR(SN, Al " 9(C) ")
IF J>0THENKA6=l
IF KA6 = 1 THEN C9$ = "9"
IF KA6 = 1 THEN SFAl = 240
LET KTA = KA6+KA7+KA8+KA9+KA10
IF KTA = 5 THEN AAA = 10040
REM NOW TO CHECK FOR 6 - 10
LET J = INSTR(SN, A$. " 10(C) ")
IF J>0 THENKA5 = 1
IF KA5 = 1 THEN C10$ = "10"
IF KA5 = 1 THEN SFAl = 260
LET KTA = KA5+KA6+KA7+KA8+KA9
IF KTA = 5 THEN AAA =10050
REM NOW TO CHECK FOR 7 - J
LET J = INSTR(SN5AS," J(C) ")
IF J>0THENKA4 = l IF KA4 = 1 THEN CJ$ = "J"
IF KA4 = 1 THEN SFAl = 280
LET KTA = KA4+KA5+KA6+KA7+KA8
IF KTA = 5 THEN AAA = 10060
5216 REM NOW TO CHECK FOR 8 - Q
LET J = INSTR(SN, A$, " Q(C) ")
IF J > 0 THENKA3 = l
IF KA3 = 1 THEN CQ$ = "Q"
IF KA3 = 1 THEN SFAl = 300
LET KTA = KA3+KA4+KA5+KA6+KA7
IF KTA = 5 THEN AAA = 10070
REM NOW TO CHECK FOR 9 - K
LET J = INSTR(SN, A$, " K(C) ")
IF J > 0 THEN KA2 = l
IF KA2 = 1 THEN CK$ = "K"
IF KA2 = 1 THEN SFAl = 320
LET KTA = KA2+KA3+KA4+KA5+KA6
IF KTA = 5 THEN AAA = 10080
REM NOW TO CHECK FOR THE ROYAL
LET KTA = KA1+KA2+KA3+KA4+KA5
IF KTA = 5 THEN AAA = 19999 IF AAA > 9999 THEN AH$ —"STRAIGHT FLUSH"
IF AAA > 9999 THEN RETURN
5225 REM NOW THE DIAMOND SUIT
LET J = INSTR(SN, A$," A(D) ")
IF JX)THENLAl = I
IF LAl = 1 THENDAS = "A"
IF LAl = 1 THEN SFA2 = 340
LET J = INSTR(SN, A$, " 2(D) ")
IF J>OTHENLA13 = 1
IF LA13 = 1THEND2$ = "2"
IF LA13 = 1 THEN SFA2 = 100
LET J = INSTR(SN, A$, " 3(D) ")
EF J>0THENLA12 = l
IF LA12 = 1THEND3$ = "3"
IF LA12 = 1 THEN SFA2 = 120
LET J = INSTR(SN, A$, " 4(D) ")
IF J>OTHENLA11 = 1
IF LA11 = 1THEND4$ = "4"
IF LAIl = 1 THEN SFA2 = 140
LET J = INSTR(SN, A$," 5(D) ")
IF J>0 THENLAlO=I
IF LAlO = 1 THEN D5$ = "5" IF LAlO = 1 THEN SFA2 = 160
LET LTA = LA1+LA1O+LA11+LA12+LA13
IF LTA = 5 THEN AAA = 10000
5226 REM NOW TO CHECK FOR 2 - 6
LET J = INSTR(SN, A$, " 6(D) ")
IF J>0THENLA9=l
IF LA9 = 1THEND6$ = M6"
IF LA9 = 1 THEN SFA2 = 180
LET LTA = LA9+LA1O+LA11+LA12+LA13
IF LTA = 5 THEN AAA = 10010
LET J = INSTR(SN, A$, " 7(D) ")
IF J>0THENLA8 = l
IF LA8 = 1THEND7$ = "7"
IF LA8 = 1 THEN SFA2 = 200
LET LTA = LA8+LA9+LA1O+LA11+LA12
IF LTA = 5 THEN AAA = 10020
LET J = INSTR(SN, A$, " 8(D) ")
IF J>0THENLA7=l
IF LA7 = 1THEND8$ = "8"
IF LA7 = 1 THEN SFA2 = 220
LET LTA = LA7+LA8+LA9+LA1O+LA11 IF LTA = 5 THEN AAA =10030
LET J = INSTR(SN, A$," 9(D) ")
IF J>0THENLA6=l
IF LA6 = 1THEND9$ = "9"
IF LA6 = 1 THEN SFA2 = 240
LET LTA = LA6+LA7+LA8+LA9+LA10
IF LTA = 5 THEN AAA = 10040
LET J = INSTR(SN, A$, " 10(D) ")
IF J>0THENLA5 = l
IF LA5 = 1 THEND10$ = "10"
IF LA5 = 1 THEN SFA2 = 260
LET LTA = LA5+LA6+LA7+LA8+LA9
IF LTA = 5 THEN AAA = 10050
LET J = INSTR(SN, A$, " J(D) ")
IF J>0THENLA4=l
IF LA4 = 1 THEN DJ$ •= "J"
IF LA4 = 1 THEN SFA2 = 280
LET LTA = LA4+LA5+LA6+LA7+LA8
IF LTA = 5 THEN AAA = 10060
LET J = INSTR(SN, A$, " Q(D) ")
IF J>0THENLA3 = l
IF LA3 = ITHENDQ$ = "Q" IF LA3 = 1 THEN SFA2 = 300
LET LTA = LA3+LA4+LA5+LA6+LA7
BF LTA = 5 THEN AAA =10070
LET J = DSfSTR(SN, A$," K(D) ")
IF J>0THENLA2 = l
IF LA2 = 1 THEN DK$ = 11K"
IF LA2 = 1 THEN SFA2 = 320
LET LTA = LA2+LA3+LA4+LA5+LA6
IF LTA = 5 THEN AAA = 10080
LET LTA = LA1+LA2+LA3+LA4+LA5
IF LTA = 5 THEN AAA =19999
IF AAA > 9999 THEN AH$ = "STRAIGHT FLUSH"
IF AAA > 9999 THEN RETURN
5232 REM NOW THE HEART SUIT
LET J = INSTR(SN, A$," A(H) ")
IF J>OTHENMA1 = 1
IF MAl = 1 THEN HA$ = "A"
IF MAl = 1 THEN SFA3 = 340
LET J = INSTR(SN, A$, " 2(H) ")
IF J>0THENMA13 = l
IF MA13 = 1 THENH2S = "2" IF MA13 = 1 THEN SFA3 = 100
LET J = INSTR(SN, A$, " 3(H) ")
IF J>0THENMA12=l
IF MA12 = 1 THEN H3$ = "3"
IF MA12 = 1 THEN SFA3 = 120
LET J = INSTR(SN, A$, " 4(H) ")
IF J>OTHENMA11 = 1
IF MA11 = 1THENH4$ = "4"
IF MAl 1 = 1 THEN SFA3 = 140
LET J = INSTR(SN3 A$, " 5(H) ")
IF J>0THENMA10=l
IF MAlO = 1 THEN H5$ = "5"
IF MAlO = 1 THEN SFA3 = 160
LET MTA = MA1+MA1O+MA11+MA12+MA13
IF MTA = 5 THEN AAA = 10000
LET J = INSTR(SN, A$, " 6(H) ")
IF J>0THENMA9=l
IF MA9 = 1 THEN H6$ = "6"
IF MA9 = 1 THEN SFA3 = 180
LET MTA = MA9+MA1O+MA11+MA12+MA13
IF MTA = 5 THEN AAA =10010
LET J = INSTR(SN5AS," 7(H) ") IF J>0THENMA8=l
IF MA8 = 1THENH7$ = "7"
IF MA8 = 1 THEN SF A3 = 200
LET MTA = MA8+MA9+MA1O+MA11+MA12
IF MTA = 5 THEN AAA =10020
LET J = INSTR(SN, A$5" 8(H) ")
IF J>0THENMA7=l
IF MA7 = 1 THEN H8$ = "8"
IF MA7 = 1 THEN SFA3 = 220
LET MTA = MA7+MA8+MA9+MA10+MA11
IF MTA = 5 THEN AAA = 10030
LET J = INSTR(SN, A$, " 9(H) ")
IF J>0THENMA6 = l
IF MA6 = 1 THEN H9$ = "9"
EF MA6 = 1 THEN SFA3 = 240
LET MTA = MA6+MA7+MA8+MA9+MA10
IF MTA = 5 THEN AAA =10040
LET J = INSTR(SN, A$, " 10(H)")
IF J>0THENMA5 = l
IF MA5 = 1 THEN H10$ = "10"
IF MA5 = 1 THEN SFA3 = 260 LET MTA = MA5+MA6+MA7+MA8+MA9
IF MTA = 5 THEN AAA =10050
LET J = JNSTR(SN3A$," J(H) ")
IF J>0THENMA4=l
BF MA4 = 1 THEN HJ$ = 11J"
IF MA4 = 1 THEN SFA3 = 280
LET MTA = MA4+MA5+MA6+MA7+MA8
IF MTA = 5 THEN AAA =10060
LET J = INSTR(SN, A$, " Q(H) ")
IF J>0THENMA3 = l
IF MA3 = 1 THEN HQ$ = "Q"
IF MA3 = 1 THEN SFA3 = 300
LET MTA = MA3+MA4+MA5+MA6+MA7
IF MTA = 5 THEN AAA =10070
LET J = INSTR(SN5AS,11 K(H) ")
IF J>0THENMA2=l
IF MA2 = 1 THEN HK$ = 11K"
IF MA2 = 1 THEN SFA3 = 320
LET MTA = MA2+MA3+MA4+MA5+MA6
IF MTA = 5 THEN AAA = 10080
LET MTA = MA1+MA2+MA3+MA4+MA5
IF MTA = 5 THEN AAA = 19999 IF AAA > 9999 THEN AH$ = "STRAIGHT FLUSH11
IF AAA > 9999 THEN RETURN
5240 REM NOW THE SPADE SUIT
LET J = INSTR(SN3AS5" A(S) ")
IF J>OTHENNA1 = 1
IF NAl = 1 THEN SA$ = "A"
IF NAl = 1 THEN SFA4 = 340
LET J = INSTR(SN5AS," 2(S) ")
IF J>0THENNA13 = l
IF NA13 = 1 THEN S2$ = "2"
IF NA13 = 1 THEN SFA4 = 100
LET J = INSTR(SN5AS5" 3(S) ")
IF J>0THENNA12=l
IF NA12 = 1 THEN S3$ = "3"
IF NA12 = 1 THEN SFA4 = 120
LET J = INSTR(SN5AS5" 4(S) ")
IF J>OTHENNA11 = 1
IF NAIl = 1 THEN S4$ = "4"
IF NAl 1 = 1 THEN SFA4 = 140
LET J = INSTR(SN5AS," 5(S) ")
IF J>0THENNA10=l IF NAlO = 1 THEN S5$ = "5"
F NAlO = 1 THEN SFA4 = 160
LET NTA = NA1+NA1O+NA11+NA12+NA13
IF NTA = 5 THEN AAA =10000
LET J = INSTR(SN3AS5" 6(S) ")
IF J>0THENNA9=l
IF NA9 = 1 THEN S6$ = "6"
IF NA9 = 1 THEN SFA4 = 180
LET NTA = NA9+NA1O+NA11+NA12+NA13
IF NTA = 5 THEN AAA = 10010
LET J = INSTR(SN5AS," 7(S) ")
IF J>0THENNA8=l
IF NA8 = 1 THEN S7$ = "7"
IF NA8 = 1 THEN SFA4 = 200
LET NTA = NA8+NA9+NA10+NA11+NA12
IF NTA = 5 THENAAA= 10020
LET J = INSTR(SN5AS5 " 8(S) ")
IF J>0THENNA7=l
IF NA7 = 1 THEN S8$ = "8"
IF NA7 = 1 THEN SFA4 = 220
LET NTA = NA7+NA8+NA9+NA1O+NA11
IF NTA = 5 THEN AAA = 10030 LET J = INSTR(SN3AS,119(S) ")
IF J>0THENNA6 = l
IF NA6 = 1 THEN S9$ = "9"
IF NA6 = 1 THEN SFA4 = 240
LET NTA = NA6+NA7+NA8+NA9+NA10
IF NTA = 5 THEN AAA =10040
LET J = INSTR(SN, A$, " 10(S) ")
IF J>0TΗENNA5 = l
IF NAS = ITHENSIOS = 11IO11
IF NA5 = 1 THEN SFA4 = 260
LET NTA = NA5+NA6+NA7+NA8+NA9
IF NTA = 5 THENAAA= 10050
LET J = INSTR(SN5AS," J(S) ")
IF J>0THENNA4=l
IF NA4 = 1 THEN SJS = "J"
IF NA4 = 1 THEN SFA4 = 280
LET NTA = NA4+NA5+NA6+NA7+NA8
IF NTA = 5 THEN AAA =10060
LET J = INSTR(SN5AS," Q(S) ")
IF J>0THENNA3 = l
IF NA3 = 1 THEN SQ$ = "Q" IF NA3 = 1 THEN SFA4 = 300
LET NTA = NA3+NA4+NA5+NA6+NA7
IF NTA = 5 THEN AAA =10070
LET J = INSTR(SN3 A$, " K(S) ")
IF J>0THENNA2=l
IF NA2 = 1 THEN SK$ = "K"
IF NA2 = 1 THEN SFA4 = 320
LET NTA = NA2+NA3+NA4+NA5+NA6
IF NTA = 5 THENAAA= 10080
LET NTA = NA1+NA2+NA3+NA4+NA5
IF NTA = 5 THENAAA= 19999
IF AAA > 9999 THEN AH$ = "STRAIGHT FLUSH"
IF AAA > 9999 THEN RETURN
5250 REM NOW TO CHECK FOR 4 OF A KIND
LET J = INSTR(SN, A$," 2(C) ")
JF J>0THENLA21 = l
LET J = INSTR(SN, A$, " 2(D) ")
IF J>0THENLA22=l
LET J = INSTR(SN, A$, " 2(H) ")
IF J > 0 THEN LA23 = 1
LET J = INSTR(SN, A$," 2(S) ")
IF J>0THENLA24=l LET LTA13 = LA21+LA22+LA23+LA24
IF LTA13 = 4 THEN AAA = 9000
LET J = INSTR(SN,A$," 3(C) ")
IF J>0THENLA31 = l
LET J = INSTR(SN, A$, " 3(D) ")
IF J>0THENLA32 = l
LET J = INSTR(SN3AS," 3(H) ")
IF J>0THENLA33 = l
LET J = INSTR(SN3AS," 3(S) ")
IF J>0THENLA34=l
LET LTA12 = LA31+LA32+LA33+LA34
IF LTA12 = 4 THEN AAA = 9010
LET J = INSTR(SN3AS3" 4(C) ")
IF J>0THENLA41 = l
LET J = INSTR(SN3AS," 4(D) ")
IF J>0THENLA42=l
LET J = INSTR(SN3AS3" 4(H) ")
IF J>0THENLA43 = l
LET J = INSTR(SN3AS," 4(S) ")
IF J>0THENLA44=l
LET LTAIl =LA41+LA42+LA43+LA44 IF LTAIl = 4 THEN AAA = 9020
LET J = INSTR(SN, A$," 5(C) ")
IF J>0THENLA51 = l
LET J = INSTR(SN, A$, " 5(D) ")
IF J>0THENLA52 = l
LET J = INSTR(SN, A$, " 5(H) ")
IF J>0THENLA53 = l
LET J = INSTR(SN, A$, " (5S) ")
IF J>0THENLA54=l
LET LTAlO = LA51+LA52+LA53+LA54
IF LTAlO = 4 THEN AAA = 9030
LET J = INSTR(SN, A$, " 6(C) ")
IF J>0THENLA61 = l
LET J = INSTR(SN, A$, " 6(D) ")
IF J>0THENLA62 = l
LET J = INSTR(SN, A$, " 6(H) ")
IF J>0THENLA63 = l
LET J = INSTR(SN, A$, " 6(S) ")
IF J>0THENLA64=l
LET LTA9 = LA61+LA62+LA63+LA64
IF LTA9 = 4 THEN AAA = 9040
LET J = INSTR(SN5AS," 7(C) ") IF J>0THENLA71 = l
LET J = INSTR(SN3 A$5 " 7(D) ")
IF J>0THENLA72=l
LET J = INSTR(SN5 A$, " 7(H) ")
IF J>0THENLA73 = l
LET J = INSTR(SN5 A$, " 7(S) ")
IF J>0THENLA74=l
LET LTA8 = LA71+LA72+LA73+LA74
IF LTA8 = 4 THEN AAA = 9050
LET J = INSTR(SN, A$, " 8(C) ")
IF J>0THENLA81 = l
LET J = INSTR(SN, A$, " 8(D) ")
IF J>0THENLA82=l
LET J = INSTR(SN3 A$, " 8(H) ")
IF J>0THENLA83 = l
LET J = INSTR(SN3AS3" 8(S) ")
IF J>0THENLA84=l
LET LTA7 = LA81+LA82+LA83+LA84
IF LTA7 = 4THENAAA = 9060
LET J = INSTR(SN, A$," 9(C) ")
IF J>0THENLA91 = l LET J = INSTR(SN,A$," 9(D) ")
IF J>0THENLA92=l
LET J = INSTR(SN, A$, " 9(H) ")
IF J>0THENLA93 = l
LET J = INSTR(SN, AS5" 9(S) ")
IF J>0THENLA94=l
LET LTA6 = LA91+LA92+LA93+LA94
IF LTA6 = 4THENAAA = 9070
LET J = INSTR(SN5AS5 11 10(C)")
IF J>0THENLA01 = l
LET J = INSTR(LN5AS5" 10(D)")
IF J>0THENLA02 = l
LET J = INSTR(LN, AS, " 10(H)")
IF J>0THENLA03 = l
LET J = INSTR(SN5 AS5 " 10(S)")
IF J>0THENLA04=l
LET LTA5 = LA01+LA02+LA03+LA04
IF LTA5 = 4 THEN AAA = 9080
LET J = INSTR(SN5AS5" J(C) ")
IF J>OTHENLAJ1 = 1
LET J = INSTR(SN5AS5" J(D) ")
IF J>0THENLAJ2=l LET J = INSTR(SN, A$," J(H) ")
IF J>0THENLAJ3 = l
LET J = INSTR(SN, A$, " J(S) ")
IF J>0THENLAJ4=l
LET LTA4 = LAJ1+LAJ2+LAJ3+LAJ4
IF LTA4 = 4TΗENAAA = 9090
LET J = INSTR(SN, A$, " Q(C) ")
EF J>OTHENLAQ1 = 1
LET J = INSTR(SN, A$, " Q(D) ")
IF J>0THENLAQ2=l
LET J = INSTR(SN, A$, " Q(H) ")
IF J>0THENLAQ3 = l
LET J = INSTR(SN, A$, " Q(S) M)
IF J>0THENLAQ4=l
LET LTA3 = LAQ1+LAQ2+LAQ3+LAQ4
IF LTA3 = 4 THEN AAA 9100
LET J = INSTR(SN, A$, " K(C) ")
IF J> OTHENLAKl = I
LET J = INSTR(SN, A$, " K(D) ")
IF J>0THENLAK2=l
LET J = INSTR(SN, A$, " K(H) ") JF J>0THENLAK3 = l
LET J = INSTR(SN5AS5" K(S) ")
IF J>0THENLAK4=l
LET LTA2 = LAK1+LAK2+LAK3+LAK4
IF LTA2 = 4 THEN AAA = 9200
LET J = INSTR(SN5Al11 A(C) ")
IF J>OTΗENLAA1 = 1
LET J = INSTR(SN5AS," A(D) ")
IF J>0THENLAA2 = l
LET J = INSTR(SN5AS5" A(H) ")
IF J>0THENLAA3 = l
LET J = INSTR(SN5 AS, " A(S) ")
IF J>0THENLAA4=l
LET LTAl =LAA1+LAA2+LAA3+LAA4
IF LTAl =4 THEN AAA = 9500
IF AAA > 8999 THEN AHS = "FOUR OF A KIND"
IF AAA > 8999 THEN GOSUB 6700
IF AAA > 8999 THEN RETURN
5265 REM NOW TO CHECK FOR FULL HOUSE IF LTAl = 3 THEN 5266
GOTO 5268
5266 IF LTA13 >1 THEN AAA = 7602 IF LTA12 > 1 THEN AAA = 7603
F LTAIl > ITHOEN AAA = 7604
IF LTAlO > 1 THEN AAA = 7605
IF LTA9> ITHEN AAA = 7606
IF LTA8 > 1 THEN AAA = 7607
IF LTA7 > 1 THEN AAA = 7608
IF LTA6 > 1 THEN AAA = 7609
IF LTA5 > 1 THEN AAA = 7610
IF LTA4> ITHDEN AAA = 7611
IF LTA3> ITHENAAA = 7612
IF LTA2 > 1 THEN AAA = 7613
IF AAA > 7600 THEN AH$ = 11ACES FULL"
IF AAA > 7600 THEN RETURN
5268 IF LTA2 = 3 THEN 5269 GOTO 5271
5269 IF LTA13 > 1 THEN AAA = 7552 IF LTA12 > 1 THEN AAA = 7553
IF LTAIl > ITHEN AAA = 7554 IF LTAlO > 1 THEN AAA = 7555 IF LTA9> ITHEN AAA = 7556 IF LTA8 > 1 THEN AAA = 7557 IF LTA7 > 1 THEN AAA = 7558
IF LTA6> ITHEN AAA = 7559
IF LTA5> 1 THENAAA = 7560
IF LTA4> ITHEN AAA = 7561
IF LTA3 > 1 THEN AAA = 7562
IF LTAl = 2 THEN AAA = 7564
IF AAA > 7550 THEN AH$ = "KINGS FULL"
IF AAA > 7550 THEN RETURN
5271 IF LTA3 = 3 THEN 5272 GOTO 5274
5272 IF LTA13 > 1 THEN AAA = 7502 IF LTA12 > 1 THEN AAA = 7503
IF LTAl 1 > 1 THEN AAA = 7504 IF LTAlO > 1 THEN AAA = 7505 IF LTA9 > 1 THEN AAA = 7506 IF LTA8> ITHEN AAA = 7507 IF LTA7>1 THENAAA = 7508 IF LTA6 > 1 THEN AAA = 7509 IF LTA5>1THENAAA = 751O IF LTA4> ITHEN AAA = 7511 IF LTA2 = 2 THEN AAA = 7513 IF LTAl = 2 THEN AAA = 7514 IF AAA > 7500 THEN AH$ = "QUEENS FULL" IF AAA > 7500 THEN RETURN
5274 IF LTA4 = 3 THEN 5275 GOTO 5277
5275 IF LTA13 > 1 THEN AAA = 7452 IF LTA12 > 1 THEN AAA = 7453
IF LTAI l > I THEN AAA = 7454
IF LTAlO > 1 THEN AAA = 7455
IF LTA9 > I THEN AAA = 7456
IF LTA8 > 1 THEN AAA = 7457
IF LTA7 > 1 THEN AAA = 7458
IF LTA6 > 1 THEN AAA = 7459
IF LTA5 > I THEN AAA = 7460
IF LTA3 = 2 THEN AAA = 7462
DF LTA2 = 2 THEN AAA = 7463
IF LTAl = 2 THEN AAA = 7464
IF AAA > 7450 THEN AH$ = "JACKS FULL"
IF AAA > 7450 THEN RETURN
5277 IF LTA5 = 3 THEN 5278 GOTO 5280
5278 IF LTAl 3 > 1 THEN AAA = 7402 IF LTA12 > 1 THEN AAA = 7403
IF LTAI l > I THEN AAA = 7404
IF LTAlO > 1 THEN AAA = 7405
IF LTA9 > 1 THEN AAA = 7406
IF LTA8 > 1 THEN AAA = 7407
IF LTA7 > 1 THEN AAA = 7408
IF LTA6 > 1 THEN AAA = 7409
IF LTA4 = 2 THEN AAA = 7411
IF LTA3 = 2 THEN AAA = 7412
IF LTA2 = 2 THEN AAA = 7413
IF LTAl = 2 THEN AAA = 7414
IF AAA > 7400 THEN AHS = "TENS FULL"
IF AAA > 7400 THEN RETURN
5280 IF LTA6 = 3 THEN 5281 GOTO 5283
5281 IF LTA13 > 1 THEN AAA = 7352 IF LTA12 > 1 THEN AAA = 7353
IF LTAI l > 1 THEN AAA = 7354 IF LTAlO > 1 THEN AAA = 7355 F LTA9 > 1 THEN AAA = 7356 IF LTA8 > 1 THEN AAA = 7357 IF LTA7 > 1 THEN AAA = 7358 BF LTA5 = 2 THEN AAA = 7360
IF LTA4 = 2 THEN AAA = 7361
IF LTA3 = 2TΗENAAA = 7362
IF LTA2 = 2 THEN AAA = 7363
IF LTAl = 2 THEN AAA = 7364
IF AAA > 7350 THEN AH$ = "NINES FULL"
IF AAA > 7350 THEN RETURN
5283 F LTA7 = 3 THEN 5284 GOTO 5286
5284 IF LTA13 > 1 THEN AAA = 7302 IF LTA12 > 1 THEN AAA = 7303
IF LTAIl > ITHEN AAA = 7304 IF LTAlO > 1 THEN AAA = 7305 IF LTA9> 1 THENAAA = 7306 IF LTA8 > 1 THEN AAA = 7307 IF LTA6 = 2 THEN AAA = 7309 IF LTA5 = 2 THEN AAA = 7310 IF LTA4 = 2THENAAA = 7311 IF LTA3 = 2 THENAAA- 7312 IF LTA2 = 2 THEN AAA = 7313 IF LTAl = 2 THENAAA = 7314 IF AAA > 7300 THEN AH$ = "EIGHTS FULL" IF AAA > 7300 THEN RETURN
5286 IF LTA8 = 3 THEN 5287 GOTO 5289
5287 IF LTA13 > 1 THEN AAA = 7252 IF LTA12 > 1 THEN AAA = 7253
IF LTAl 1 > 1 THEN AAA = 7254
IF LTAlO > 1 THEN AAA = 7255
IF LTA9 > 1 THEN AAA = 7256
IF LTA7 = 2 THEN AAA = 7258
IF LTA6 = 2 IHEN AAA = 7259
IF LTA5 = 2 THEN AAA = 7260
IF LTA4 = 2 THEN AAA = 7261
IF LTA3 = 2 THEN AAA = 7262
IF LTA2 = 2 THEN AAA = 7263
IF LTAl = 2 THEN AAA = 7264
IF AAA > 7250 THEN AHS = "SEVENS FULL"
IF AAA > 7250 THEN RETURN
5289 IF LTA9 = 3 THEN 5290 GOTO 5292
5290 IF LTA13 > 1 THEN AAA = 7202 IF LTA12 > 1 THEN AAA = 7203 IF LTAl 1 > 1 THEN AAA = 7204
IF LTAlO > 1 THEN AAA = 7205
IF LTA8 = 2THENAAA = 7207
IF LTA7 = 2THENAAA = 7208
IF LTA6 = 2 THEN AAA = 7209
IF LTA5 = 2 THEN AAA = 7210
IF LTA4-2THENAAA-7211
IF LTA3 = 2THENAAA = 7212
IF LTA2 = 2THENAAA = 7213
IF LTAl =2 THEN AAA = 7214
IF AAA > 7200 THEN AH$ = "SIXES FULL"
IF AAA > 7200 THEN RETURN
5292 IF LTAlO = 3 THEN 5293 GOTO 5295
5293 IF LTA13 > 1 THEN AAA = 7152 IF LTA12> ITHEN AAA = 7153
IF LTAIl > ITHEN AAA = 7154 IF LTA9 = 2 THEN AAA = 7156 IF LTA8 = 2THENAAA = 7157 IF LTA7 = 2 THEN AAA = 7158 IF LTA6 = 2 THEN AAA = 7159 IF LTA5 = 2 TΗENAAA = 7160
IF LTA4 = 2 THEN AAA = 7161
IF LTA3 = 2 THEN AAA = 7162
IF LTA2 = 2 THEN AAA = 7163
IF LTAl = 2 THEN AAA = 7164
IF AAA > 7150 THENAH$ = "FIVES FULL"
IF AAA > 7150 THEN RETURN
5295 IF LTAl 1 = 3 THEN 5296 GOTO 5298
5296 IF LTA13 > I THEN AAA = 7102 W LTA12 > 1 THEN AAA = 7103
IF LTAlO = 2 THEN AAA = 7105
IF LTA9 = 2 THEN AAA = 7106
IF LTA8 = 2 THEN AAA = 7107
IF LTA7 = 2 TfIEN AAA = 7108
IF LTA6 = 2 THEN AAA = 7109
IF LTA5 = 2 THEN AAA = 7110
IF LTA4 = 2 THENAAA = 7111
IF LTA3 = 2 THEN AAA = 7112
IF LTA2 = 2 THENAAA = 7113
IF LTAl = 2 THEN AAA = 7114
IF AAA > 7100 THEN AH$ = "FOURS FULL" IF AAA > 7100 THEN RETURN
5298 IF LTA12 = 3 THEN 5299 GOTO 5301
5299 IF LTA13 > 1 THEN AAA = 7052 IF LTAl 1 = 2 THEN AAA = 7054
IF LTAlO = 2 THEN AAA = 7055
IF LTA9 = 2 THEN AAA = 7056
IF LTA8 = 2TΗENAAA = 7057
IF LTA7 = 2THENAAA = 7058
IF LTA6 = 2THENAAA = 7059
IF LTA5 = 2 THEN AAA = 7060
IF LTA4 = 2THENAAA = 7061
IF LTA3 = 2THENAAA = 7062
IF LTA2 = 2THENAAA = 7063
IF LTAl = 2 THEN AAA = 7064
IF AAA > 7050 THEN AH$ = "THREES FULL"
IF AAA > 7050 THEN RETURN
5301 IF LTA13 = 3 THEN 5302 GOTO 5310
5302 IF LTA12 = 2THENAAA = 7003 IF LTAIl =2 THEN AAA = 7004 IF LTAlO = 2 THEN AAA = 7005
IF LTA9 = 2 THEN AAA = 7006
IF LTA8 = 2 THEN AAA = 7007
IF LTA7 = 2 THEN AAA = 7008
IF LTA6 = 2 THEN AAA = 7009
IF LTA5 = 2 THEN AAA = 7010
IF LTA4 = 2 THEN AAA = 7011
IF LTA3 = 2 THEN AAA = 7012
IF LTA2 = 2 THEN AAA = 7013
IF LTAl = 2 THEN AAA = 7014
IF AAA > 7000 THEN AH$ = "DEUCES FULL"
IF AAA > 7000 THEN RETURN
5310 NOW TO CHECK FOR CLUB FLUSH
LET FLA = KA1+KA2+KA3+KA4+KA5+KA6+KA7+KA8+KA9+KA10 +KA11+KA12+KA13
IF FLA > 4 THEN 5312
GOTO 5315
5312 IF SFAl = 200 THEN AAA = 6000
IF SFAl = 220 THEN AAA = 6100
IF SFAl = 240 THEN AAA = 6200
IF SFAl = 260 THEN AAA = 6300
IF SFAl = 280 THEN AAA = 6400 IF SFAl = 300 THEN AAA = 6500
IF SFAl = 320 THEN AAA = 6600
IF SFAl = 340 THEN AAA = 6700
IF AAA > 5999 IHEN AHS = "CLUB FLUSH"
IF AAA > 5999 THEN GOSUB 6702
IF AAA > 5999 THEN RETURN
5315 REM CHECK FOR DIAMOND FLUSH
LET FLA = LA1+LA2+LA3+LA4+LA5+LA6+LA7+LA8+LA9+LA10 +LA11+LA12+LA13
IF FLA > 4 THEN 5316 GOTO 5318
5316 IF SFA2 = 200 THEN AAA = 6000 IF SFA2 = 220 THEN AAA = 6100
3F SFA2 = 240 THEN AAA = 6200
IF SFA2 = 260 THEN AAA = 6300
IF SFA2 = 280 THEN AAA = 6400
IF SFA2 = 300 THEN AAA = 6500
IF SFA2 = 320 THEN AAA = 6600
IF SFA2 = 340 THEN AAA = 6700
IF AAA > 5999 THEN AH$ = "DIAMOND FLUSH"
IF AAA > 5999 THEN GOSUB 6704
IF AAA > 5999 THEN RETURN 5318 REM CHECK FOR HEART FLUSH
LET FLA = MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9 +MA10+MA11+MA12+MA13
IF FLA > 4 THEN 5319 GOTO5321
5319 IF SFA3 = 200 THEN AAA = 6000 IF SFA3 = 220 THEN AAA = 6100
IF SFA3 = 240 THEN AAA = 6200
IF SFA3 = 260 THEN AAA = 6300
IF SFA3 = 280 THEN AAA = 6400
IF SFA3 = 300 THEN AAA = 6500
IF SFA3 = 320 THEN AAA = 6600
IF SFA3 = 340 THEN AAA = 6700
IF AAA > 5999 THEN AHS = 11HEART FLUSH"
TF AAA > 5999 THEN GOSUB 6706
IF AAA > 5999 THEN RETURN
5321 REM CHECK SPADE FLUSH
LET FLA = NA1+NA2+NA3+NA4+NA5+NA6+NA7+NA8+NA9+NA10 +NA11+NA12+NA13
IF FLA > 4 THEN 5322 GOTO 5325
5322 IF SFA4 = 200 THEN AAA = 6000 IF SFA4 = 220 THEN AAA = 6100 IF SFA4 = 240 THEN AAA = 6200
IF SFA4 = 260 THEN AAA = 6300
IF SFA4 = 280 THEN AAA = 6400
IF SFA4 = 300 THEN AAA = 6500
BF SFA4 = 320 THEN AAA = 6600
IF SFA4 = 340 THEN AAA = 6700
IF AAA > 5999 THEN AH$ = "SPADE FLUSH"
IF AAA > 5999 THEN GOSUB 6708
W AAA > 5999 THEN RETURN
5325 REM NOW TO CHECK FOR STRAIGHT
LET STRA = LTA1O*LTA11*LTA12*LTA13*LTA1
IF STRA > O THEN AAA = 5000
IF AAA = 5000 THEN AH$ = "STRAIGHT TO FIVE"
LET STRA = LTA9*LTA1O*LYA11*LTA12*LTA13
IF STRA > O THEN AAA = 5050
IF AAA = 5050 THEN AH$ = "STRAIGHT TO SIX"
LET STRA = LTA8*LTA9*LTA10*LTAl l*LTA12
IF STRA > O THENAAA = 5100
IF AAA = 5100 THEN AH$ = "STRAIGHT TO SEVEN"
LET STRA = LTA7*LTA8*LTA9*LTA1O*LTA11
IF STRA > O THEN AAA = 5150 IF AAA = 5150 THENAH$ = "STRAIGHT TO EIGHT"
LET STRA = LTA6*LTA7*LTA8*LTA9*LTA10
IF STRA > OTHEN AAA -5200
IF AAA = SIOOTHENAHS = 11STRAIGHTTONINE"
LET STRA = LTA5*LTA6*LTA7*LTA8*LTA9
IF STElA > OTHEN AAA = 5250
IF AAA = 5250 THENAHS = "STRAIGHT TO TEN"
LET STRA = LTA4*LTA5*LTA6*LTA7*LTA8
IF STRA > OTHEN AAA = 5300
IF AAA = 5300 THEN AH$="STRAIGHT TO JACK"
LET STRA = LTA3*LTA4*LTA5*LTA6*LTA7
IF STCA > 01ΗENAAA = 5350
IF AAA = 5350 THEN AHS = "STRAIGHT TO QUEEN"
LET STRA = LTA2*LTA3*LTA4*LTA5*LTA6
IF STRA > OTHEN AAA = 5400
IF AAA = 5400 THEN AHS = "STRAIGHT TO KING"
LET STRA = LTA1*LTA2*LTA3*LTA4*LTA5
IF STRA > OTHEN AAA = 5500
IF AAA = 5500 THEN AHS = "STRAIGHT TO ACE"
IF AAA > 4999 THEN RETURN
5328 REM NOW TO CHECK FOR THREE OF A KIND
IF LTA13 = 3THENAAA = 4000 IF LTA12 = 3THENAAA = 4050
IF LTAIl =3 THEN AAA = 4100
IF LTAlO = 3 THEN AAA = 4150
IF LTA9 = 3THENAAA = 4200
IF LTA8 = 3THENAAA = 4250
IF LTA7 = 3THENAAA = 4300
IF LTA6 = 3TΗENAAA = 4350
IF LTA5 = 3THENAAA = 4400
IF LTA4 = 3THENAAA = 4450
IF LTA3 = 3THENAAA = 4500
IF LTA2 = 3THENAAA = 4550
IF LTAl = 3 THEN AAA = 4600
IF AAA > 3999 THEN AH$ = "THREE OF A KIND"
IF AAA > 3999 THEN GOSUB 6710
IF AAA > 3999 THEN RETURN
5332 REM NOW TO CHECK FOR TWO PAIRS IF LTAl = 2 THEN 5333
GOTO 5335
5333 IF LTA13=2THENAAA = 3020 IF LTA12 = 2THENAAA = 3030
IF LTAIl =2 THEN AAA = 3040 IF LTAlO = 2 THEN AAA = 3050
IF LTA9 = 2THENAAA = 3060
IF LTA8 = 2THENAAA = 3070
IF LTA7 = 2THENAAA = 3080
IF LTA6 = 2THENAAA = 3090
IF LTA5 = 2THENAAA = 3100
IF LTA4 = 2THENAAA = 3110
IF LTA3 = 2THENAAA = 3120
IF LTA2 = 2THENAAA = 3130
IF AAA > 3000 THEN AH$ = "ACES HIGH 2 PAIRS
IF AAA > 3000 THEN GOSUB 6712
IF AAA > 3000 THEN RETURN
5335 IF LTA2 = 2THEN5336 GOTO 5338
5336 IF LTA13 = 2 THEN AAA = 2820 IF LTA12 = 2THENAAA = 2830
IF LTAIl = 2 THEN AAA = 2840 IF LTAlO = 2 THEN AAA = 2850 IF LTA9 = 2THENAAA = 2860 IF LTA8 = 2THENAAA = 2870 IF LTA7 = 2THENAAA = 2880 IF LTA6 = 2THENAAA = 2890 JF LTA5 = 2THENAAA = 2900
IF LTA4 = 2THENAAA = 2910
EF LTA3 = 2THENAAA = 2920
IF AAA > 2800 THEN AH$ = "KINGS HIGH 2 PAIRS"
IF AAA > 2800 THEN GOSUB 6712
IF AAA > 2800 THEN RETURN
5338 IF LTA3 = 2 THEN 5339 GOTO 5342
5339 IF LTA13=2THENAAA = 2620 IF LTA12 = 2THENAAA = 2630
IF LTAIl = 2 THEN AAA = 2640
IF LTAlO = 2 THEN AAA = 2650
IF LTA9 = 2THENAAA = 2660
IF LTA8 = 2THENAAA = 2670
IF LTA7 = 2THENAAA = 2680
IF LTA6 = 2THENAAA = 2690
IF LTA5 = 2THENAAA = 2700
IF LTA4 = 2THENAAA = 2710
IF AAA > 2600 THENAHS = "QUEENS HIGH 2 PAIRS"
IF AAA > 2600 THEN GOSUB 6712
IF AAA > 2600 THEN RETURN 5342 IFLTA4 = 2THEN5343 GOTO 5345
5343 IF LTA13 = 2THENAAA = 2420 IF LTA12 = 2THENAAA = 2430
IF LTAIl =2 THEN AAA = 2440
BF LTAlO = 2 THEN AAA = 2450
EF LTA9 = 2THENAAA = 2460
IF LTA8 = 2THENAAA = 2470
IF LTA7 = 2THENAAA = 2480
JF LTA6 = 2THENAAA = 2490
IF LTA5 = 2THENAAA = 2500
IF AAA > 2400 THENAHS = "JACKS HIGH 2 PAIRS"
IF AAA > 2400 THEN GOSUB 6712
IF AAA > 2400 THEN RETURN
5345 IF LTA5 = 2THEN5347
GOTO 5350
5347 IF LTA13 = 2 THEN AAA = 2220
IF LTA12 = 2THENAAA = 2230
IF LTAIl = 2 THEN AAA = 2240
IF LTAlO = 2 THEN AAA = 2250
IF LTA9 = 2THENAAA = 2260
IF LTA8 = 2THENAAA = 2270 IF LTA7 = 2TΗENAAA = 2280
IF LTA6 = 2THENAAA = 2290
IF AAA > 2200 THEN AH$ = "TENS HIGH 2 PAIRS"
IF AAA > 2200 THEN GOSUB 6712
IF AAA > 2200 THEN RETURN
5350 IF LTA6 = 2THEN5351 GOTO 5355
5351 IF LTA13 = 2 THEN AAA = 2020 IF LTA12 = 2THENAAA = 2030
IF LTAIl = 2 THEN AAA = 2040
IF LTAlO = 2 THEN AAA = 2050
IF LTA9 = 2THENAAA = 2060
IF LTA8 = 2 TEEN AAA = 2070
IF LTA7 = 2THENAAA = 2080
IF AAA > 2000 THENAH$ = "NINES HIGH 2 PAIRS"
IF AAA > 2000 THEN GOSUB 6712
IF AAA > 2000 THEN RETURN
5355 IFLTA7 = 2THEN5356 GOTO 5359
5356 IF LTA13 = 2 THEN AAA = 1820 IF LTA12 = 2THENAAA=1830 JF LTAIl = 2 XHENAAA= 1840
IF LTAlO = 2 THEN AAA =1850
IF LTA9 = 2THENAAA=1860
IF LTA8 = 2THENAAA=1870
IF AAA > 1800 THEN AH$ = " EIGHTS HIGH 2 PAIRS"
IF AAA > 1800 THEN GOSUB 6712
IF AAA > 1800 THEN RETURN
5359 IF LTA8 = 2THEN5360 GOTO 5363
5360 IFLTA13 = 2 THENAAA = 1620 IF LTA12 = 2 THENAAA= 1630
IF LTAIl =2 THEN AAA =1640
JF LTAlO = 2 THENAAA= 1650
IF LTA9 = 2THENAAA=1660
IF AAA > 1600 THEN AH$ = "SEVENS HIGH 2 PAIRS"
IF AAA > 1600 THEN GOSUB 6712
IF AAA > 1600 THEN RETURN
5363 IF LTA9 = 2THEN5364 GOTO 5367
5364 IF LTA13 = 2 THEN AAA = 1420 IF LTA12 = 2THENAAA=1430
IF LTAIl =2 THENAAA= 1440 IF LTAlO = 2 THEN AAA =1450
IF AAA > 1400 THEN AHS = 11SIXES HIGH 2 PAIRS"
IF AAA > 1400 THEN GOSUB 6712
IF AAA > 1400 THEN RETURN
5367 IF LTAlO = 2 THEN 5368 GOTO 5370
5368 IF LTA13 = 2THENAAA=1220 IF LTA12 = 2THENAAA=1230
IF LTAIl =2 THENAAA= 1240
IF AAA > 1200 THEN AH$ = "FIVES HIGH 2 PAIRS"
IF AAA > 1200 THEN GOSUB 6712
IF AAA > 1200 THEN RETURN
5370 IF LTAl 1 = 2 THEN 5371 GOTO 5373
5371 IF LTA13 = 2 THEN AAA = 1020 IF LTA12 = 2THENAAA=1030
IF AAA > 1000 THEN AH$ = "FOURS HIGH 2 PAIRS" IF AAA > 1000 THEN GOSUB 6712 IF AAA > 1000 THENRETURN 5373 IF LTA12 = 2THEN5374 GOTO 5380 5374 IF LTA13 = 2THENAAA = 820
IF AAA > 800 THENAHS = "TEIREES HIGH 2 PAIRS"
IF AAA > 800 THEN GOSUB 6712
IF AAA > 800 THEN RETURN
5380 REM NOWTOCHECKFORSINGLEPAIRS
IF LTA13 = 2THENAAA=100
IF AAA = 100 THEN AH$ = "PAIR OF DEUCES"
IF LTA12 = 2THENAAA = 120
IF AAA = 120 THEN AH$ = "PAIR OF TKOREES"
IF LTAIl =2 THENAAA= 140
IF AAA = 140 THEN AH$ = "PAIR OF FOURS"
IF LTAlO = 2 THEN AAA = 160
IF AAA = 160 THEN AH$ = "PAIR OF FIVES"
IF LTA9 = 2THENAAA=180
IF AAA = 180 THEN AH$ = "PAIR OF SIXES"
F LTA8 = 2THENAAA = 200
IF AAA = 200 THEN AH$ = "PAIR OF SEVENS"
IF LTA7 = 2THENAAA = 220
IF AAA = 220 THEN AH$ = "PAIR OF EIGHTS"
IF LTA6 = 2 THEN AAA = 240
IF AAA = 240 THEN AH$ = "PAIR OF NINES"
IF LTA5 = 2 THEN AAA = 260 W AAA = 260 THEN AH$ = "PAIR OF TENS"
IF LTA4 = 2 IHENAAA = 280
IF AAA = 280 THEN AH$ = "PAIR OF JACKS"
IF LTA3 = 2 THEN AAA = 300
IF AAA = 300 THEN AH$ = "PAIR OF QUEENS"
IF LTA2 = 2 THEN AAA = 320
IF AAA = 320 THEN AH$ = "PAIR OF KINGS"
IF LTAl = 2 THEN AAA = 340
IF AAA = 340 THEN AH$ = "PAIR OF ACES"
IF AAA > 99 THEN GOSUB 6714
IF AAA > 99 THENRETURN
5385 REM NOW HIGH CARDS
IF LTA13 = I THEN AAA = .001
IF AAA = .001 THEN AH$ = "A DEUCE"
IF LTA12 = 1 THEN AAA = .003
IF AAA = .003 THEN AH$ = "THREE HIGH"
IF LTAI l = I THEN AAA = .005
IF AAA = .005 THEN AH$ = "FOUR HIGH"
IF LTAlO = I THEN AAA = .008
IF AAA = .008 THEN AH$ = "FIVE HIGH"
IF LTA9 = I THEN AAA = .01 IF AAA = .01 THDEN AH$ = "SIX HIGH"
IF LTA8= ITHEN AAA = .03
IF AAA = .03 THEN AH$ = "SEVEN HIGH11
IF LTA7 = 1 THEN AAA = .06
IF AAA = .06 THEN AH$ = "EIGHT HIGH"
IF LTA6 = ITHEN AAA = .1
IF AAA = .1 THENAHS = "NINE HIGH"
IF LTA5 = 1THENAAA = .3
IF AAA = .3 THEN AH$ = "TEN HIGH"
IF LTA4=1THENAAA = .5
IF AAA = .5 THEN AH$ = "JACK HIGH"
IF LTA3 = ITHENAAA=I
IF AAA = 1 THEN AH$ = "QUEEN HIGH"
IF LTA2=1THENAAA = 3
IF AAA = 3 THEN AH$ = "KING HIGH"
IF LTAl = ITHENAAA = 5
IF AAA = 5 THEN AH$ = "ACE HIGH"
IF AAA > 0 THEN GOSUB 6716
RETURN 6700 REM FOUR OF A KIND SCORE ADJUST
IF LTAl>0<4THENAAA = AAA + 5
IF LTAl > 0 < 4 THENRETURN
TF LTA2>0<4THENAAA = AAA + 3
IF LTA2 > 0 < 4 THENRETURN
IF LTA3>0<4THENAAA = AAA+l
JF LTA3 > 0 < 4 THENRETURN
IF LTA4>0<4THENAAA = AAA + .5
IF LTA4 > 0 < 4 TΗEN RETURN
IF LTA5>0<4THENAAA = AAA + .3
IF LTA5 > 0 < 4 THENRETURN
IF LTA6>0<4 THENAAA = AAA + .l
IF LTA6 > 0 < 4 THENRETURN
IF LTA7>O<4THENAAA = AAA + .O6
IF LTA7 > 0 < 4 THENRETURN
IF LTA8>O<4THENAAA = AAA + .O3
IF LTA8 > 0 < 4 THENRETURN
IF LTA9>O<4THENAAA = AAA + .O11
IF LTA9 > 0 < 4 THENRETURN
IF LTAlO >0<4 THEN AAA = AAA + .007
IF LTAlO >0<4 THENRETURN IF LTAIl >0<4THENAAA = AAA + .004
IF LTAIl >0<4 THEN RETURN
IF LTA12>0<4THEN AAA = AAA + .003
IF LTA12>0<4 THEN RETURN
IF LTA13>0<4 THEN AAA = AAA + .001
RETURN
6702 REM CLUBS FLUSH SCORE ADJUST
LET CFLA = O
IF KAl = ITHEN AAA = AAA + 5
IF KAl = 1 THENCFLA = CFLA + 1
IF KA2= ITHEN AAA = AAA + 3
IF KA2= 1 THENCFLA = CFLA+ 1
IF KA3 = ITHEN AAA = AAA +1
IF KA3 = ITHEN CFLA = CFLA +1
IF KA4=lTHENAAA = AAA + .5
IF KA4=1 THENCFLA = CFLA + 1
IF KA5 = ITHEN AAA = AAA + .3
IF KA5 = 1 THENCFLA = CFLA+ 1
IF KAo = ITHEN AAA = AAA + .11
IF KA6 = ITHEN CFLA = CFLA + 1
IF CFLA = 5 THEN RETURN
IF KA7=1THENAAA = AAA + .O6 IF KA7 = ITHEN CFLA = CFLA +1
IF CFLA = 5 THENRETURN
IF KA8 = ITHEN AAA = AAA + .03
IF KA8 = ITHEN CFLA = CFLA +1
IF CFLA = 5 THEN RETURN
IF KA9 = ITHEN AAA = AAA + .011
IF KA9=1 THENCFLA = CFLA+ 1
IF CFLA = 5 THEN RETURN
IF KAlO= ITHEN AAA = AAA + .007
IF KAlO = ITHEN CFLA = CFLA +1
IF CFLA = 5 THEN RETURN
IF KAIl = ITHEN AAA = AAA + .OO4
IF KAIl = 1 THEN CFLA = CFLA + 1
IF CFLA = 5 THEN RETURN
IF KA12 = ITHEN AAA = AAA + .003
IF KA12 = 1 THEN CFLA = CFLA + 1
IF CFLA = 5 THEN RETURN
IF KA13 = ITHEN AAA = AAA + .001
RETURN
6704 REM DIAMONDFLUSHSCOREADJUST
LET DFLA = O IF LAl = ITHEN AAA = AAA + 5 IF LAl = 1 THENDFLA = DFLA+ 1 IF LA2=lTHENAAA = AAA + 3 IF LA2 = 1THENDFLA = DFLA + 1 IF LA3 = 1 THENAAA = AAA + 1 IF LA3 = 1 THENDFLA = DFLA+ 1 IF LA4=lTHENAAA = AAA + .5 IF LA4 = 1 THENDFLA = DFLA + 1 IF LA5 = lTHENAAA = AAA + .3 IF LA5 = 1THENDFLA = DFLA + 1 IF LAo = ITHEN AAA = AAA + .11 IF LA6= 1 THENDFLA = DFLA+ 1 IF DFLA = 5 THEN RETURN IF LA7= ITHEN AAA = AAA + .06 IF LA7= 1 THENDFLA = DFLA+ 1 IF DFLA = 5 THEN RETURN IF LA8 = 1THENAAA = AAA + .O3 IF LA8= 1 THEN DFLA = DFLA + 1 IF DFLA = 5 THENRETURN IF LA9= ITHEN AAA = AAA + .011 IF LA9 = 1 THENDFLA = DFLA+ 1 IF DFLA = 5 THENRETURN IF LAlO= ITHEN AAA = AAA + .007
IF LAlO= 1 THENDFLA = DFLA+ 1
IF DFLA = 5 THEN RETURN
IF LAIl = ITHEN AAA = AAA + .004
IF LAIl = I THENDFLA = DFLA + 1
IF DFLA = 5 THEN RETURN
IF LA12= ITHEN AAA = AAA + .003
IF LA12= 1 THENDFLA = DFLA+ 1
IF DFLA = 5 THEN RETURN
IF LA13 = ITHEN AAA = AAA + .001
RETURN
6706 REM HEART FLUSH SCORE ADJUST
LET HFLA = 0
IF MAl = ITHEN AAA = AAA + 5
IF MAl = I THENHFLA = HFLA+ 1
IF MA2=lTHENAAA = AAA + 3
IF MA2=1 THENHFLA = HFLA+ 1
IF MA3 = ITHEN AAA = AAA +1
IF MA3=1 THENHFLA = HFLA+ 1
IF MA4=lTHENAAA = AAA + .5
IF MA4= 1THENHFLA = HFLA+1 IF MA5==lTHENAAA = AAA + .3
IF MA5 = 1 TΗENHFLA = HFLA + 1
IF MAo = ITHEN AAA = AAA + .11
IF MA6 = 1 THENHFLA = HFLA+ 1
IF HFLA = 5 THEN RETURN
IF MA7= ITHEN AAA = AAA + .06
IF MA7=1 THENHFLA = HFLA+ 1
IF HFLA = 5 THEN RETURN
IF MA8=1THENAAA = AAA + .O3
IF MA8=1 THENHFLA = HFLA+ 1
IF HFLA = 5 THENRETURN
IF MA9= ITHEN AAA = AAA + .011
IF MA9=1 THENHFLA = HFLA+ 1
IF HFLA = 5 THENRETURN
IF MAlO= ITHEN AAA = AAA + .007
IF MAlO = ITHEN HFLA = HFLA + 1
IF HFLA = 5 THEN RETURN
IF MAIl = ITHEN AAA = AAA + .004
IF MAIl = I THENHFLA = HFLA+ 1
IF HFLA = 5 THEN RETURN
IF MA12 = ITHEN AAA = AAA + .003
IF MA12= 1THENHFLA = HFLA+1 IF HFLA = 5 THEN RETURN
IF MA13 = ITHEN AAA = AAA + .001
RETURN
6708 REM SPADE FLUSH SCORE ADJUST
LET SFLA = 0
IF NAl = ITHEN AAA = AAA + 5
IF NAl = 1 THENSFLA = SFLA + 1
IF NA2=lTHENAAA = AAA + 3
F NA2 = 1 THEN SFLA = SFLA + 1
IF NA3 = ITHEN AAA = AAA +1
IF NA3 = 1 THENSFLA = SFLA+ 1
IF NA4=lTHENAAA = AAA + .5
IF NA4 = 1 THEN SFLA = SFLA + 1
JF NA5=lTHENAAA = AAA + .3
IF NA5 = 1 THEN SFLA = SFLA + 1
IF NAo=ITHEN AAA = AAA + .11
IF NA6 = 1 THEN SFLA = SFLA + 1
IF SFLA = 5 THEN RETURN
IF NA7= ITHEN AAA= AAA + .06
IF NA7=1 THENSFLA = SFLA+ 1
IF SFLA = 5 THEN RETURN IF NA8=1THENAAA = AAA + .O3
IF NA8=1 THENSFLA = SFLA+ 1
IF SFLA = 5 THEN RETURN
IF NA9= ITHEN AAA = AAA + .011
IF NA9=1 THENSFLA = SFLA+ 1
IF SFLA = 5 THEN RETURN
IF NAlO= ITHEN AAA = AAA + .007
IF NAlO = ITHEN SFLA = SFLA +1
IF SFLA = 5 THEN RETURN
IF NAIl = ITHEN AAA = AAA+.004
IF NAIl = 1 THEN SFLA = SFLA + 1
IF SFLA = 5 THEN RETURN
IF NA12= ITHEN AAA = AAA + .003
IF NA12 = ITHEN SFLA = SFLA +1
IF SFLA = 5 THEN RETURN
IF NA13 = 1 THEN AAA = AAA + .001
RETURN
6710 REM 3 OF A KIND SCORE ADJUST
LET TOK = O
IF LTAl = I THEN AAA = AAA + 5
IF LTAl = 1 TEiENTOK = TOK + 1
IF LTA2= ITHEN AAA = AAA + 3 IF LTA2=1 THENTOK = TOK+ 1
IF TOK = 2 THEN RETURN
IF LTA3 = 1 TEffiNAAA = AAA+ 1
IF LTA3 = 1 THENTOK = TOK+ 1
IF TOK = 2 THEN RETURN
IF LTA4= ITHEN AAA = AAA + .5
IF LTA4= 1 THENTOK = TOK+ 1
TF TOK = 2 THEN RETURN
IF LTA5=lTHENAAA = AAA + .3
IF LTA5= 1 THENTOK = TOK+ 1
IF TOK = 2 THEN RETURN
IF LTA6= 1THENAAA = AAA + .1
IF LTA6= 1 THENTOK = TOK+ 1
IF TOK = 2 THEN RETURN
IF LTA7= ITHEN AAA = AAA + .06
BF LTA7 = ITHEN TOK = TOK +1
IF TOK = 2 THEN RETURN
IF LTA8= ITHEN AAA = AAA + .03
IF LTA8=1 THENTOK = TOK+ 1
IF TOK = 2 THEN RETURN
IF LTA9 = 1THENAAA = AAA + .O11 IF LTA9 = ITHEN TOK = TOK +1
IF TOK = 2 THEN RETURN
IF LTAlO= ITHEN AAA = AAA + .007
IF LTAlO = ITHEN TOK = TOK +1
IF TOK = 2 THEN RETURN
IF LTAIl = ITHEN AAA = AAA + .004
IF LTAIl = I THENTOK = TOK+ 1
IF TOK = 2 THEN RETURN
IF LTA12= ITHEN AAA = AAA + .003
IF LTA12= ITHEN TOK = TOK+!
IF TOK = 2 THEN RETURN
IF LTA13 = ITHEN AAA = AAA + .001
RETURN
6712 REM 2 PAIRS SCORE ADJUST
LET TPA = O
IF LTAl = I THEN AAA = AAA + 5
IF LTAl = 1 THENRETURN
IF LTAl =2THEN TPA = TPA+ 1
IF LTA2=lTHENAAA = AAA + 3
IF LTA2 = 1 THEN RETURN
IF LTA2 = 2THENTPA = TPA+1
IF LTA3 = 1THENAAA = AAA + 1 IF LTA3 = 1 THEN RETURN
TP LTA3 = 2 THEN TPA = TPA + 1
IF TPA = 3 THENAAA = AAA+ 1
IF TPA = 3 THEN RETURN
IF LTA4=lTHENAAA = AAA + .5
IF LTA4 = 1 THEN THEN RETURN
IF LTA4 = 2THENTPA = TPA+1
IF TPA = 3THENAAA = AAA + .5
IF TPA = 3 THEN RETURN
IF LTA5=lTHENAAA = AAA + .3
IF LTA5 = 1 THENRETURN
IF LTA5 = 2THENTPA = TPA + 1
IF TPA = 3THENAAA = AAA + .3
IF TPA = 3 THEN RETURN
IF LTAO = I THEN AAA = AAA + .1
IF LTA6 = 1 THEN RETURN
IF LTA6 = 2THEN TPA = TPA+ 1
IF TPA = 3 THEN AAA = AAA + .1
IF TPA = 3 THEN RETURN
IF LTA7= ITHEN AAA = AAA + .06
IF LTA7 = 1 THEN RETURN IF LTA7 = 2 THEN TPA = TPA + 1
IF TPA = 3THENAAA = AAA + .O6
IF TPA = 3 THEN RETURN
IF LTA8= ITHEN AAA = AAA + .03
IF LTA8= 1 THENRETURN
IF LTA8 = 2THEN TPA = TPA+ 1
F TPA = 3THENAAA = AAA + .O3
IF TPA = 3 THEN RETURN
IF LTA9= ITHEN AAA = AAA + .011
IF LTA9 = 1 THENRETURN
IF LTA9 = 2THENTPA = TPA+1
IF TPA = 3 THEN AAA = AAA + .011
IF TPA = 3 THEN RETURN
TF LTAlO= ITHEN AAA = AAA +.007
IF LTAlO = 1 THEN RETURN
IF LTAlO = 2 THEN TPA = TPA + 1
EF TPA = 3 THEN AAA = AAA + .007
IF TPA = 3 THEN RETURN
IF LTAIl = ITHEN AAA = AAA + .004
IF LTAIl = 1 THENRETURN
EF LTA11=2THENTPA = TPA + 1
EF TPA = 3 THEN AAA = AAA + .004 IF TPA = 3 THEN RETURN
IF LTA12 = ITHEN AAA = AAA + .003
EF LTA12= 1 THENRETURN
IF LTA12 = 2 THEN TPA = TPA + 1
IF TPA = 3 THEN AAA = AAA + .003
IF TPA = 3 THEN RETURN
IF LTA13> OTHEN AAA = AAA + .001
RETURN
6714 REM SINGLEPAIRSCOREADJUST
LET SPA = O
IF LTAl = ITHEN AAA = AAA + 5
IF LTAl = 1 THENSPA = SPA+ 1
JF LTA2 = ITHEN AAA = AAA + 3
IF LTA2 = 1 THEN SPA = SPA + 1
IF LTA3 = ITHEN AAA = AAA + 1
IF LTA3 = 1 THENSPA = SPA + 1
IF SPA = 3 THEN RETURN
IF LTA4=lTHENAAA = AAA + .5
IF LTA4= 1 THENSPA = SPA+ 1
IF SPA = 3 THEN RETURN
IF LTA5 = ITHEN AAA = AAA + .3 IF LTA5 = 1 THEN SPA = SPA + 1
IF SPA = 3 THENRETURN
IF LTA6= ITHEN AAA = AAA + .1
IF LTAO=ITHEN SPA = SPAH-I
IF SPA = 3 THEN RETURN
IF LTA7= ITHEN AAA = AAA + .06
IF LTA7 = ITHEN SPA = SPA +1
IF SPA = 3 THEN RETURN
IF LTA8= ITHEN AAA = AAA + .03
IF LTA8 = 1 THEN SPA = SPA + 1
IF SPA = 3 THEN RETURN
IF LTA9=1THENAAA = AAA + .O11
IF LTA9 = ITHEN SPA = SPA +1
IF SPA = 3 THEN RETURN
IF LTAlO= ITHEN AAA = AAA + .007
IF LTAlO = 1 THEN SPA = SPA + 1
IF SPA = 3 THEN RETURN
W LTAIl = I THEN AAA = AAA + .004
IF LTAIl = I THENSPA = SPA+ 1
IF SPA = 3 THENRETURN
IF LTA12= ITHEN AAA = AAA + .003
IF LTA12 = 1 THEN SPA = SPA + 1 IF SPA = 3 THEN RETURN
IF LTA13 = 1 THEN AAA = AAA + .001
RETURN
6716 REM HANDSLESSTHANONEPAIR
LET NPA = O
IF LTAl = I THEN AAA = AAA + 5
IF LTAl = 1 THENNPA = NPA + 1
IF LTA2 = 1 THEN AAA = AAA + 3
IF LTA2= 1 THENNPA = NPA+ 1
IF LTA3=1 THENAAA = AAA + 1
IF LTA3 = 1 THENNPA = NPA+ 1
IF LTA4=1 THEN AAA = AAA + .5
TF LTA4=1 THENNPA = NPA + 1
IF LTA5=lTHENAAA = AAA + .3
IF LTA5 = 1 THENNPA = NPA+ 1
IF LTA6= ITHEN AAA = AAA + .1
IF LTA6=1 THENNPA = NPA+ 1
EF NPA = 5 THEN RETURN
IF LTA7= ITHEN AAA = AAA + .06
IF LTA7=1 THENNPA = NPA+ 1
IF NPA = 5 THEN RETURN IF LTA8= ITHEN AAA = AAA + .03
IF LTA8 =1 THEN NPA = NPA +1
IF NPA = 5 THEN RETURN
IF LTA9=11ΗEN AAA = AAA + .011
IF LTA9=1 THENNPA = NPA + 1
IF NPA = 5 THEN RETURN
IF LTAlO= ITHEN AAA = AAA + .007
IF LTAlO=I THENNPA = NPA+ 1
IF NPA = 5 THEN RETURN
W LTAIl = ITHEN AAA = AAA + .004
IF LTAIl = I THENNPA = NPA+ 1
IF NPA = 5 THENRETURN
IF LTA12= ITHEN AAA = AAA + .003
IF LTA12 = ITHEN NPA = NPA +1
IF NPA = 5 THEN RETURN
IF LTA13 = ITHEN AAA = AAA + .001
RETURN

Claims

CLAIMSI claim:
1. An algorithm to be used as a subroutine or otherwise, in a computer program in an electronic system for playing the card games of poker.
2. The algorithm of claim 1 can also be used in small poker-hand calculators.
3. The algorithm of claim 1 will be the first and only systematic method for truly randon automated poker playing.
4. The small poker-hand caculators of claim 2 may also be used by players in manual games with human dealers, for reading their hands and getting a score for strategy and for comparison with others.
5. The algorithm to be a poker-hand reader.
PCT/US2007/013001 2006-08-31 2007-06-01 Algorithm for truly random automated poker playing WO2008066573A2 (en)

Applications Claiming Priority (2)

Application Number Priority Date Filing Date Title
US11/513,398 2006-08-31
US11/513,398 US20080076502A1 (en) 2006-08-31 2006-08-31 Algorithm for truly random automated poker playing

Publications (2)

Publication Number Publication Date
WO2008066573A2 true WO2008066573A2 (en) 2008-06-05
WO2008066573A3 WO2008066573A3 (en) 2008-11-06

Family

ID=39225655

Family Applications (1)

Application Number Title Priority Date Filing Date
PCT/US2007/013001 WO2008066573A2 (en) 2006-08-31 2007-06-01 Algorithm for truly random automated poker playing

Country Status (2)

Country Link
US (1) US20080076502A1 (en)
WO (1) WO2008066573A2 (en)

Citations (4)

* Cited by examiner, † Cited by third party
Publication number Priority date Publication date Assignee Title
US4743022A (en) * 1986-03-06 1988-05-10 Wood Michael W 2nd chance poker method
US6089975A (en) * 1997-07-16 2000-07-18 Dunn; Jerry B. Electronic gaming apparatus with means for displaying interactive advertising programs
US6196547B1 (en) * 1998-02-12 2001-03-06 Silicon Gaming - Nevada Play strategy for a computer opponent in a electronic card game
US6457714B1 (en) * 1999-05-14 2002-10-01 John Feola Poker-type game of chance

Family Cites Families (1)

* Cited by examiner, † Cited by third party
Publication number Priority date Publication date Assignee Title
US6582301B2 (en) * 1995-10-17 2003-06-24 Smart Shoes, Inc. System including card game dispensing shoe with barrier and scanner, and enhanced card gaming table, enabling waging by remote bettors

Patent Citations (4)

* Cited by examiner, † Cited by third party
Publication number Priority date Publication date Assignee Title
US4743022A (en) * 1986-03-06 1988-05-10 Wood Michael W 2nd chance poker method
US6089975A (en) * 1997-07-16 2000-07-18 Dunn; Jerry B. Electronic gaming apparatus with means for displaying interactive advertising programs
US6196547B1 (en) * 1998-02-12 2001-03-06 Silicon Gaming - Nevada Play strategy for a computer opponent in a electronic card game
US6457714B1 (en) * 1999-05-14 2002-10-01 John Feola Poker-type game of chance

Also Published As

Publication number Publication date
US20080076502A1 (en) 2008-03-27
WO2008066573A3 (en) 2008-11-06

Similar Documents

Publication Publication Date Title
US7591728B2 (en) Online gaming system configured for remote user interaction
US6517072B1 (en) Casino table card game
US6155568A (en) Three-hand poker game method
US5743530A (en) Method and apparatus for a card game
US7048274B2 (en) Casino card game
US7832731B2 (en) Three-card game without poker ranking
WO2012066271A1 (en) Card games
US20030139211A1 (en) No bust 21 (Blackjack)
US6685189B2 (en) Method of playing a rummy game using star playing cards and companion playing card games
US20110198809A1 (en) Pai gow card game with side bet options
US20200246681A1 (en) Apparatus and Method for Double-Valued Playing Cards
US20070126181A1 (en) Method Of Playing A Card Game
US20070228653A1 (en) Three card blackjack
US20100133751A1 (en) Blackjack options
WO2004043555A8 (en) Apparatus and method of playing cribbage as a casino game and as a slot machine
WO2008066573A2 (en) Algorithm for truly random automated poker playing
US8651870B2 (en) Apparatus, system and method for teaching card counting systems
US20110089636A1 (en) Blackjack-type game with modified deck
US20210398397A1 (en) Method for playing poker with a zero value playing card
US20170337780A1 (en) Game of chance, thinking and strategy
WO2008109950A1 (en) Game apparatus and games
US8500126B1 (en) Methods of playing a multi-variant poker game
US20090045575A1 (en) Poker game method and device
US20230302349A1 (en) Strategy Multiplication Game
US20170151492A1 (en) Card randomizing method for wagering games

Legal Events

Date Code Title Description
121 Ep: the epo has been informed by wipo that ep was designated in this application

Ref document number: 07870698

Country of ref document: EP

Kind code of ref document: A2

NENP Non-entry into the national phase

Ref country code: DE

NENP Non-entry into the national phase

Ref country code: RU

32PN Ep: public notification in the ep bulletin as address of the adressee cannot be established

Free format text: NOTING OF LOSS OF RIGHTS PURSUANT TO RULE 112(1) EPC, EPO FORM 1205A DATED 08.07.2009

122 Ep: pct application non-entry in european phase

Ref document number: 07870698

Country of ref document: EP

Kind code of ref document: A2