'===========================================================================
' Subject: VIDEO POKER FOR BASEC             Date: 01-05-99 (06:23)       
' Author:  The ABC Programmer                Code: BEC                    
' Origin:  voxel@edmc.net                  Packet: BASEC.ABC
'===========================================================================
' Converted to BASEC v0.15 [DOS] by William Yu
'Variable list for vidpok.bas [Generated by BEC]
'   Declaring variables in BASEC make a much more stable program
DIM BET AS INTEGER
DIM MONEY AS LONG
DIM VIDPOKER% AS INTEGER
DIM DEALCARD AS INTEGER
DIM ACARD% AS INTEGER
DIM AST% AS INTEGER
DIM ACARDST$ AS STRING
DIM BCARD% AS INTEGER
DIM BST% AS INTEGER
DIM BCARDST$ AS STRING
DIM CCARD% AS INTEGER
DIM CST% AS INTEGER
DIM CCARDST$ AS STRING
DIM DCARD% AS INTEGER
DIM DST% AS INTEGER
DIM DCARDST$ AS STRING
DIM ECARD% AS INTEGER
DIM EST% AS INTEGER
DIM ECARDST$ AS STRING
DIM ACARD$ AS STRING
DIM BCARD$ AS STRING
DIM CCARD$ AS STRING
DIM DCARD$ AS STRING
DIM ECARD$ AS STRING
DIM KEEPA$ AS STRING
DIM KEEPB$ AS STRING
DIM KEEPC$ AS STRING
DIM KEEPD$ AS STRING
DIM KEEPE$ AS STRING
DIM HOLDCARD$ AS STRING
DIM DEALSTOP AS INTEGER
DIM TEMPA% AS INTEGER
DIM TEMPB% AS INTEGER
DIM TEMPC% AS INTEGER
DIM TEMPD% AS INTEGER
DIM TEMPE% AS INTEGER
DIM ACARD AS INTEGER

'===========================================================================
' Subject: VIDEO POKER                       Date: 07-25-96 (23:45)       
'  Author: Mike Kristopert                   Code: QB, QBasic, PDS        
'  Origin: /SiliconValley/Park/6165/       Packet: GAMES.ABC
'===========================================================================
'DECLARE SUB getpress ()
poker:
bet = 0
money = 10000
poker2:
RANDOMIZE TIMER
CLS
PRINT ""
PRINT "                  **    Video Poker    **"
PRINT "==========================================================="
PRINT ""
PRINT "               Your current bet is $"; bet
PRINT ""
PRINT "                    [1]  Bet (required)"
PRINT "                    [2]  View Payouts"
PRINT "                    [3]  Deal Cards"
PRINT "                    [4]  Quit"
PRINT "             (answer using number)"
DO
INPUT "                    ? ", vidpoker%
LOOP UNTIL vidpoker% > 0 AND vidpoker% < 5
IF vidpoker% = 4 THEN END
placebet:
IF vidpoker% = 1 THEN
  CLS
  PRINT ""
  PRINT "                  **    Video Poker    **"
  PRINT "==========================================================="
  PRINT ""
  PRINT "     Maximum bet of $ 1000"
  PRINT "     You only have $"; money
  INPUT "     How much would you like to bet?  $", bet
  IF bet > money THEN PRINT "": PRINT "     You don't have that much.": bet = 0: GOSUB getpress: GOTO placebet
  IF bet > 1000 THEN PRINT "    That is over the maximum bet.": bet = 0: GOSUB getpress: GOTO placebet
  GOTO poker2
END IF


IF vidpoker% = 2 THEN
  CLS
  PRINT "                  **    Video Poker    **"
  PRINT "==========================================================="
  PRINT ""
  PRINT "               Payouts"
  IF bet = 0 THEN PRINT "": PRINT "       You must place a bet first.": GOSUB getpress: GOTO poker2
  PRINT ""
  PRINT "   Five of a kind ... $"; (bet * 1000)
  PRINT "   Royal Flush ...... $"; (bet * 400)
  PRINT "   Straight Flush ... $"; (bet * 200)
  PRINT "   Four of a kind ... $"; (bet * 100)
  PRINT "   Full House ....... $"; (bet * 30)
  PRINT "   Flush ............ $"; (bet * 20)
  PRINT "   Straight ......... $"; (bet * 10)
  PRINT "   Three of a kind .. $"; (bet * 5)
  PRINT "   Two Pair ......... $"; (bet * 3)
  PRINT "   Jacks or better .. $"; bet
  GOSUB getpress
  GOTO poker2
END IF

IF bet = 0 THEN
  CLS
  PRINT ""
  PRINT "                  **    Video Poker    **"
  PRINT "==========================================================="
  PRINT ""
  PRINT "                You Must Place a bet first."
  GOSUB getpress
  GOTO poker2
END IF

pkrdeal:
COLOR 7, 0
CLS
PRINT ""
PRINT "                  **    Video Poker    **"
PRINT "==========================================================="
PRINT "                      (Aces are high)"
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "           1        2        3        4        5"
PRINT ""
PRINT "       Type the number of the cards you want to Hold"
PRINT "                   Then [Space] to deal"
sleep .1
acard% = INT(RND * 13)
ast% = INT(RND * 4)
IF ast% = 0 THEN acardst$ = ""
IF ast% = 1 THEN acardst$ = ""
IF ast% = 2 THEN acardst$ = ""
IF ast% = 3 THEN acardst$ = ""
bcard% = INT(RND * 13)
bst% = INT(RND * 4)
IF bst% = 0 THEN bcardst$ = ""
IF bst% = 1 THEN bcardst$ = ""
IF bst% = 2 THEN bcardst$ = ""
IF bst% = 3 THEN bcardst$ = ""
ccard% = INT(RND * 13)
cst% = INT(RND * 4)
IF cst% = 0 THEN ccardst$ = ""
IF cst% = 1 THEN ccardst$ = ""
IF cst% = 2 THEN ccardst$ = ""
IF cst% = 3 THEN ccardst$ = ""
dcard% = INT(RND * 13)
dst% = INT(RND * 4)
IF dst% = 0 THEN dcardst$ = ""
IF dst% = 1 THEN dcardst$ = ""
IF dst% = 2 THEN dcardst$ = ""
IF dst% = 3 THEN dcardst$ = ""
ecard% = INT(RND * 13)
est% = INT(RND * 4)
IF est% = 0 THEN ecardst$ = ""
IF est% = 1 THEN ecardst$ = ""
IF est% = 2 THEN ecardst$ = ""
IF est% = 3 THEN ecardst$ = ""

dealem1:
IF acard% = 0 THEN acard$ = "2"
IF acard% = 1 THEN acard$ = "3"
IF acard% = 2 THEN acard$ = "4"
IF acard% = 3 THEN acard$ = "5"
IF acard% = 4 THEN acard$ = "6"
IF acard% = 5 THEN acard$ = "7"
IF acard% = 6 THEN acard$ = "8"
IF acard% = 7 THEN acard$ = "9"
IF acard% = 8 THEN acard$ = "10"
IF acard% = 9 THEN acard$ = "J"
IF acard% = 10 THEN acard$ = "Q"
IF acard% = 11 THEN acard$ = "K"
IF acard% = 12 THEN acard$ = "A"

IF bcard% = 0 THEN bcard$ = "2"
IF bcard% = 1 THEN bcard$ = "3"
IF bcard% = 2 THEN bcard$ = "4"
IF bcard% = 3 THEN bcard$ = "5"
IF bcard% = 4 THEN bcard$ = "6"
IF bcard% = 5 THEN bcard$ = "7"
IF bcard% = 6 THEN bcard$ = "8"
IF bcard% = 7 THEN bcard$ = "9"
IF bcard% = 8 THEN bcard$ = "10"
IF bcard% = 9 THEN bcard$ = "J"
IF bcard% = 10 THEN bcard$ = "Q"
IF bcard% = 11 THEN bcard$ = "K"
IF bcard% = 12 THEN bcard$ = "A"

IF ccard% = 0 THEN ccard$ = "2"
IF ccard% = 1 THEN ccard$ = "3"
IF ccard% = 2 THEN ccard$ = "4"
IF ccard% = 3 THEN ccard$ = "5"
IF ccard% = 4 THEN ccard$ = "6"
IF ccard% = 5 THEN ccard$ = "7"
IF ccard% = 6 THEN ccard$ = "8"
IF ccard% = 7 THEN ccard$ = "9"
IF ccard% = 8 THEN ccard$ = "10"
IF ccard% = 9 THEN ccard$ = "J"
IF ccard% = 10 THEN ccard$ = "Q"
IF ccard% = 11 THEN ccard$ = "K"
IF ccard% = 12 THEN ccard$ = "A"

IF dcard% = 0 THEN dcard$ = "2"
IF dcard% = 1 THEN dcard$ = "3"
IF dcard% = 2 THEN dcard$ = "4"
IF dcard% = 3 THEN dcard$ = "5"
IF dcard% = 4 THEN dcard$ = "6"
IF dcard% = 5 THEN dcard$ = "7"
IF dcard% = 6 THEN dcard$ = "8"
IF dcard% = 7 THEN dcard$ = "9"
IF dcard% = 8 THEN dcard$ = "10"
IF dcard% = 9 THEN dcard$ = "J"
IF dcard% = 10 THEN dcard$ = "Q"
IF dcard% = 11 THEN dcard$ = "K"
IF dcard% = 12 THEN dcard$ = "A"

IF ecard% = 0 THEN ecard$ = "2"
IF ecard% = 1 THEN ecard$ = "3"
IF ecard% = 2 THEN ecard$ = "4"
IF ecard% = 3 THEN ecard$ = "5"
IF ecard% = 4 THEN ecard$ = "6"
IF ecard% = 5 THEN ecard$ = "7"
IF ecard% = 6 THEN ecard$ = "8"
IF ecard% = 7 THEN ecard$ = "9"
IF ecard% = 8 THEN ecard$ = "10"
IF ecard% = 9 THEN ecard$ = "J"
IF ecard% = 10 THEN ecard$ = "Q"
IF ecard% = 11 THEN ecard$ = "K"
IF ecard% = 12 THEN ecard$ = "A"

'displays the cards

COLOR 7, 0
LOCATE 5, 9
PRINT "ллллллл"
LOCATE 6, 9
PRINT "ллллллл"
LOCATE 7, 9
PRINT "ллллллл"
LOCATE 8, 9
PRINT "ллллллл"
LOCATE 9, 9
PRINT "ллллллл"
IF ast% < 2 THEN COLOR 4, 15
IF ast% > 1 THEN COLOR 0, 15
LOCATE 6, 10
PRINT acard$
IF acard$ = "10" THEN
  LOCATE 8, 13: PRINT acard$
ELSE
  LOCATE 8, 14: PRINT acard$
END IF
LOCATE 7, 12
PRINT acardst$
sleep .1

COLOR 7, 0
LOCATE 5, 18
PRINT "ллллллл"
LOCATE 6, 18
PRINT "ллллллл"
LOCATE 7, 18
PRINT "ллллллл"
LOCATE 8, 18
PRINT "ллллллл"
LOCATE 9, 18
PRINT "ллллллл"
IF bst% < 2 THEN COLOR 4, 15
IF bst% > 1 THEN COLOR 0, 15
LOCATE 6, 19
PRINT bcard$
IF bcard$ = "10" THEN
  LOCATE 8, 22: PRINT bcard$
ELSE
  LOCATE 8, 23: PRINT bcard$
END IF
LOCATE 7, 21
PRINT bcardst$
sleep .1

COLOR 7, 0
LOCATE 5, 27
PRINT "ллллллл"
LOCATE 6, 27
PRINT "ллллллл"
LOCATE 7, 27
PRINT "ллллллл"
LOCATE 8, 27
PRINT "ллллллл"
LOCATE 9, 27
PRINT "ллллллл"
IF cst% < 2 THEN COLOR 4, 15
IF cst% > 1 THEN COLOR 0, 15
LOCATE 6, 28
PRINT ccard$
IF ccard$ = "10" THEN
  LOCATE 8, 31: PRINT ccard$
ELSE
  LOCATE 8, 32: PRINT ccard$
END IF
LOCATE 7, 30
PRINT ccardst$
sleep .1

COLOR 7, 0
LOCATE 5, 36
PRINT "ллллллл"
LOCATE 6, 36
PRINT "ллллллл"
LOCATE 7, 36
PRINT "ллллллл"
LOCATE 8, 36
PRINT "ллллллл"
LOCATE 9, 36
PRINT "ллллллл"
IF dst% < 2 THEN COLOR 4, 15
IF dst% > 1 THEN COLOR 0, 15
LOCATE 6, 37
PRINT dcard$
IF dcard$ = "10" THEN
  LOCATE 8, 40: PRINT dcard$
ELSE
  LOCATE 8, 41: PRINT dcard$
END IF
LOCATE 7, 39
PRINT dcardst$
sleep .1

COLOR 7, 0
LOCATE 5, 45
PRINT "ллллллл"
LOCATE 6, 45
PRINT "ллллллл"
LOCATE 7, 45
PRINT "ллллллл"
LOCATE 8, 45
PRINT "ллллллл"
LOCATE 9, 45
PRINT "ллллллл"
IF est% < 2 THEN COLOR 4, 15
IF est% > 1 THEN COLOR 0, 15
LOCATE 6, 46
PRINT ecard$
IF ecard$ = "10" THEN
  LOCATE 8, 49: PRINT ecard$
ELSE
  LOCATE 8, 50: PRINT ecard$
END IF
LOCATE 7, 48
PRINT ecardst$

keepa$ = "no"
keepb$ = "no"
keepc$ = "no"
keepd$ = "no"
keepe$ = "no"


DO
holdcard$ = INKEY$
IF holdcard$ = CHR$(49) THEN
 IF keepa$ = "yes" THEN
  LOCATE 10, 9
  COLOR 7, 0
  PRINT "   1   "
  keepa$ = "no"
  ELSE
   LOCATE 10, 9
   COLOR 4, 0
   PRINT "[HELD]"
   keepa$ = "yes"
 END IF
END IF

IF holdcard$ = CHR$(50) THEN
 IF keepb$ = "yes" THEN
  LOCATE 10, 18
  COLOR 7, 0
  PRINT "   2   "
  keepb$ = "no"
  ELSE
   LOCATE 10, 18
   COLOR 4, 0
   PRINT "[HELD]"
   keepb$ = "yes"
 END IF
END IF

IF holdcard$ = CHR$(51) THEN
 IF keepc$ = "yes" THEN
  LOCATE 10, 27
  COLOR 7, 0
  PRINT "   3   "
  keepc$ = "no"
  ELSE
   LOCATE 10, 27
   COLOR 4, 0
   PRINT "[HELD]"
   keepc$ = "yes"
 END IF
END IF

IF holdcard$ = CHR$(52) THEN
 IF keepd$ = "yes" THEN
  LOCATE 10, 36
  COLOR 7, 0
  PRINT "   4   "
  keepd$ = "no"
  ELSE
   LOCATE 10, 36
   COLOR 4, 0
   PRINT "[HELD]"
   keepd$ = "yes"
 END IF
END IF

IF holdcard$ = CHR$(53) THEN
 IF keepe$ = "yes" THEN
  LOCATE 10, 45
  COLOR 7, 0
  PRINT "   5   "
  keepe$ = "no"
  ELSE
   LOCATE 10, 45
   COLOR 4, 0
   PRINT "[HELD]"
   keepe$ = "yes"
 END IF
END IF

LOOP UNTIL holdcard$ = CHR$(32)

Sleep .1

IF keepa$ = "no" THEN
    acard% = INT(RND * 13)
    ast% = INT(RND * 4)
    IF ast% = 0 THEN acardst$ = ""
    IF ast% = 1 THEN acardst$ = ""
    IF ast% = 2 THEN acardst$ = ""
    IF ast% = 3 THEN acardst$ = ""
    COLOR 7, 0
    LOCATE 5, 9
    PRINT "       "
    LOCATE 6, 9
    PRINT "       "
    LOCATE 7, 9
    PRINT "       "
    LOCATE 8, 9
    PRINT "       "
    LOCATE 9, 9
    PRINT "       "
    SLEEP .1
    IF acard% = 0 THEN acard$ = "2"
    IF acard% = 1 THEN acard$ = "3"
    IF acard% = 2 THEN acard$ = "4"
    IF acard% = 3 THEN acard$ = "5"
    IF acard% = 4 THEN acard$ = "6"
    IF acard% = 5 THEN acard$ = "7"
    IF acard% = 6 THEN acard$ = "8"
    IF acard% = 7 THEN acard$ = "9"
    IF acard% = 8 THEN acard$ = "10"
    IF acard% = 9 THEN acard$ = "J"
    IF acard% = 10 THEN acard$ = "Q"
    IF acard% = 11 THEN acard$ = "K"
    IF acard% = 12 THEN acard$ = "A"
    COLOR 7, 0
    LOCATE 5, 9
    PRINT "ллллллл"
    LOCATE 6, 9
    PRINT "ллллллл"
    LOCATE 7, 9
    PRINT "ллллллл"
    LOCATE 8, 9
    PRINT "ллллллл"
    LOCATE 9, 9
    PRINT "ллллллл"
    IF ast% < 2 THEN COLOR 4, 15
    IF ast% > 1 THEN COLOR 0, 15
    LOCATE 6, 10
    PRINT acard$
    IF acard$ = "10" THEN
      LOCATE 8, 13: PRINT acard$
    ELSE
      LOCATE 8, 14: PRINT acard$
    END IF
    LOCATE 7, 12
    PRINT acardst$
    sleep .1
END IF

IF keepb$ = "no" THEN
    bcard% = INT(RND * 13)
    bst% = INT(RND * 4)
    IF bst% = 0 THEN bcardst$ = ""
    IF bst% = 1 THEN bcardst$ = ""
    IF bst% = 2 THEN bcardst$ = ""
    IF bst% = 3 THEN bcardst$ = ""
    COLOR 7, 0
    LOCATE 5, 18
    PRINT "       "
    LOCATE 6, 18
    PRINT "       "
    LOCATE 7, 18
    PRINT "       "
    LOCATE 8, 18
    PRINT "       "
    LOCATE 9, 18
    PRINT "       "
    Sleep .1
    IF bcard% = 0 THEN bcard$ = "2"
    IF bcard% = 1 THEN bcard$ = "3"
    IF bcard% = 2 THEN bcard$ = "4"
    IF bcard% = 3 THEN bcard$ = "5"
    IF bcard% = 4 THEN bcard$ = "6"
    IF bcard% = 5 THEN bcard$ = "7"
    IF bcard% = 6 THEN bcard$ = "8"
    IF bcard% = 7 THEN bcard$ = "9"
    IF bcard% = 8 THEN bcard$ = "10"
    IF bcard% = 9 THEN bcard$ = "J"
    IF bcard% = 10 THEN bcard$ = "Q"
    IF bcard% = 11 THEN bcard$ = "K"
    IF bcard% = 12 THEN bcard$ = "A"
    COLOR 7, 0
    LOCATE 5, 18
    PRINT "ллллллл"
    LOCATE 6, 18
    PRINT "ллллллл"
    LOCATE 7, 18
    PRINT "ллллллл"
    LOCATE 8, 18
    PRINT "ллллллл"
    LOCATE 9, 18
    PRINT "ллллллл"
    IF bst% < 2 THEN COLOR 4, 15
    IF bst% > 1 THEN COLOR 0, 15
    LOCATE 6, 19
    PRINT bcard$
    IF bcard$ = "10" THEN
      LOCATE 8, 22: PRINT bcard$
    ELSE
      LOCATE 8, 23: PRINT bcard$
    END IF
    LOCATE 7, 21
    PRINT bcardst$
    sleep .1
END IF

IF keepc$ = "no" THEN
    ccard% = INT(RND * 13)
    cst% = INT(RND * 4)
    IF cst% = 0 THEN ccardst$ = ""
    IF cst% = 1 THEN ccardst$ = ""
    IF cst% = 2 THEN ccardst$ = ""
    IF cst% = 3 THEN ccardst$ = ""
    COLOR 7, 0
    LOCATE 5, 27
    PRINT "       "
    LOCATE 6, 27
    PRINT "       "
    LOCATE 7, 27
    PRINT "       "
    LOCATE 8, 27
    PRINT "       "
    LOCATE 9, 27
    PRINT "       "
    Sleep .1
    IF ccard% = 0 THEN ccard$ = "2"
    IF ccard% = 1 THEN ccard$ = "3"
    IF ccard% = 2 THEN ccard$ = "4"
    IF ccard% = 3 THEN ccard$ = "5"
    IF ccard% = 4 THEN ccard$ = "6"
    IF ccard% = 5 THEN ccard$ = "7"
    IF ccard% = 6 THEN ccard$ = "8"
    IF ccard% = 7 THEN ccard$ = "9"
    IF ccard% = 8 THEN ccard$ = "10"
    IF ccard% = 9 THEN ccard$ = "J"
    IF ccard% = 10 THEN ccard$ = "Q"
    IF ccard% = 11 THEN ccard$ = "K"
    IF ccard% = 12 THEN ccard$ = "A"
    COLOR 7, 0
    LOCATE 5, 27
    PRINT "ллллллл"
    LOCATE 6, 27
    PRINT "ллллллл"
    LOCATE 7, 27
    PRINT "ллллллл"
    LOCATE 8, 27
    PRINT "ллллллл"
    LOCATE 9, 27
    PRINT "ллллллл"
    IF cst% < 2 THEN COLOR 4, 15
    IF cst% > 1 THEN COLOR 0, 15
    LOCATE 6, 28
    PRINT ccard$
    IF ccard$ = "10" THEN
      LOCATE 8, 31: PRINT ccard$
    ELSE
      LOCATE 8, 32: PRINT ccard$
    END IF
    LOCATE 7, 30
    PRINT ccardst$
    sleep .1
END IF

IF keepd$ = "no" THEN
    dcard% = INT(RND * 13)
    dst% = INT(RND * 4)
    IF dst% = 0 THEN dcardst$ = ""
    IF dst% = 1 THEN dcardst$ = ""
    IF dst% = 2 THEN dcardst$ = ""
    IF dst% = 3 THEN dcardst$ = ""
    COLOR 7, 0
    LOCATE 5, 36
    PRINT "       "
    LOCATE 6, 36
    PRINT "       "
    LOCATE 7, 36
    PRINT "       "
    LOCATE 8, 36
    PRINT "       "
    LOCATE 9, 36
    PRINT "       "
    Sleep .1
    IF dcard% = 0 THEN dcard$ = "2"
    IF dcard% = 1 THEN dcard$ = "3"
    IF dcard% = 2 THEN dcard$ = "4"
    IF dcard% = 3 THEN dcard$ = "5"
    IF dcard% = 4 THEN dcard$ = "6"
    IF dcard% = 5 THEN dcard$ = "7"
    IF dcard% = 6 THEN dcard$ = "8"
    IF dcard% = 7 THEN dcard$ = "9"
    IF dcard% = 8 THEN dcard$ = "10"
    IF dcard% = 9 THEN dcard$ = "J"
    IF dcard% = 10 THEN dcard$ = "Q"
    IF dcard% = 11 THEN dcard$ = "K"
    IF dcard% = 12 THEN dcard$ = "A"
    COLOR 7, 0
    LOCATE 5, 36
    PRINT "ллллллл"
    LOCATE 6, 36
    PRINT "ллллллл"
    LOCATE 7, 36
    PRINT "ллллллл"
    LOCATE 8, 36
    PRINT "ллллллл"
    LOCATE 9, 36
    PRINT "ллллллл"
    IF dst% < 2 THEN COLOR 4, 15
    IF dst% > 1 THEN COLOR 0, 15
    LOCATE 6, 37
    PRINT dcard$
    IF dcard$ = "10" THEN
      LOCATE 8, 40: PRINT dcard$
    ELSE
      LOCATE 8, 41: PRINT dcard$
    END IF
    LOCATE 7, 39
    PRINT dcardst$
    sleep .1
END IF

IF keepe$ = "no" THEN
    ecard% = INT(RND * 13)
    est% = INT(RND * 4)
    IF est% = 0 THEN ecardst$ = ""
    IF est% = 1 THEN ecardst$ = ""
    IF est% = 2 THEN ecardst$ = ""
    IF est% = 3 THEN ecardst$ = ""
    COLOR 7, 0
    LOCATE 5, 45
    PRINT "       "
    LOCATE 6, 45
    PRINT "       "
    LOCATE 7, 45
    PRINT "       "
    LOCATE 8, 45
    PRINT "       "
    LOCATE 9, 45
    PRINT "       "
    sleep .1
    IF ecard% = 0 THEN ecard$ = "2"
    IF ecard% = 1 THEN ecard$ = "3"
    IF ecard% = 2 THEN ecard$ = "4"
    IF ecard% = 3 THEN ecard$ = "5"
    IF ecard% = 4 THEN ecard$ = "6"
    IF ecard% = 5 THEN ecard$ = "7"
    IF ecard% = 6 THEN ecard$ = "8"
    IF ecard% = 7 THEN ecard$ = "9"
    IF ecard% = 8 THEN ecard$ = "10"
    IF ecard% = 9 THEN ecard$ = "J"
    IF ecard% = 10 THEN ecard$ = "Q"
    IF ecard% = 11 THEN ecard$ = "K"
    IF ecard% = 12 THEN ecard$ = "A"
    COLOR 7, 0
    LOCATE 5, 45
    PRINT "ллллллл"
    LOCATE 6, 45
    PRINT "ллллллл"
    LOCATE 7, 45
    PRINT "ллллллл"
    LOCATE 8, 45
    PRINT "ллллллл"
    LOCATE 9, 45
    PRINT "ллллллл"
    IF est% < 2 THEN COLOR 4, 15
    IF est% > 1 THEN COLOR 0, 15
    LOCATE 6, 46
    PRINT ecard$
    IF ecard$ = "10" THEN
      LOCATE 8, 49: PRINT ecard$
    ELSE
      LOCATE 8, 50: PRINT ecard$
    END IF
    LOCATE 7, 48
    PRINT ecardst$
    sleep .1
END IF

DO
tempa% = acard%
tempb% = bcard%
tempc% = ccard%
tempd% = dcard%
tempe% = ecard%
acard% = tempb%
bcard% = tempc%
ccard% = tempd%
dcard% = tempe%
ecard% = tempa%
LOOP UNTIL acard% <= bcard% AND acard% <= ccard% AND acard% <= dcard% AND acard% <= ecard%


DO
tempb% = bcard%
tempc% = ccard%
tempd% = dcard%
tempe% = ecard%
bcard% = tempc%
ccard% = tempd%
dcard% = tempe%
ecard% = tempb%
LOOP UNTIL bcard% <= ccard% AND bcard% <= dcard% AND bcard% <= ecard%
 
DO
tempc% = ccard%
tempd% = dcard%
tempe% = ecard%
ccard% = tempd%
dcard% = tempe%
ecard% = tempc%
LOOP UNTIL ccard% <= dcard% AND ccard% <= ecard%
  
DO
tempd% = dcard%
tempe% = ecard%
dcard% = tempe%
ecard% = tempd%
LOOP UNTIL dcard% <= ecard%

IF acard% = bcard% AND acard% = ccard% AND acard% = dcard% AND acard% = ecard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Five of a kind, you win $"; (bet * 1000)
 money = money + (bet * 1000)
 GOTO payup
END IF

IF acard% = 8 AND bcard% = 9 AND ccard% = 10 AND dcard% = 11 AND ecard% = 12 AND acardst$ = bcardst$ AND acardst$ = ccardst$ AND acardst$ = dcardst$ AND acardst$ = ecardst$ THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Royal Flush, you win $"; (bet * 400)
 money = money + (bet * 400)
 GOTO payup
END IF

IF ecard% = 1 + dcard% AND dcard% = 1 + ccard% AND ccard% = 1 + bcard% AND bcard% = 1 + acard AND ast% = bst% AND ast% = cst% AND ast% = dst% AND ast% = est% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Straight Flush, you win $"; (bet * 200)
 money = money + (bet * 200)
 GOTO payup
END IF

IF acard% = bcard% AND acard% = ccard% AND acard% = dcard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Four of a kind, you win $"; (bet * 100)
 money = money + (bet * 100)
 GOTO payup
END IF

IF bcard% = ccard% AND bcard% = dcard% AND bcard% = ecard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Four of a kind, you win $"; (bet * 100)
 money = money + (bet * 100)
 GOTO payup
END IF

IF acard% = bcard% AND acard% = ccard% AND dcard% = ecard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Full House, you win $"; (bet * 30)
 money = money + (bet * 30)
 GOTO payup
END IF

IF acard% = bcard% AND ccard% = dcard% AND ccard% = ecard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Full House, you win $"; (bet * 30)
 money = money + (bet * 30)
 GOTO payup
END IF

IF ast% = bst% AND ast% = cst% AND ast% = dst% AND ast% = est% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Flush, you win $"; (bet * 20)
 money = money + (bet * 20)
 GOTO payup
END IF

IF ecard% = 1 + dcard% AND dcard% = 1 + ccard% AND ccard% = 1 + bcard% AND bcard% = 1 + acard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Straight, you win $"; (bet * 10)
 money = money + (bet * 10)
 GOTO payup
END IF

IF acard% = bcard% AND acard% = ccard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Three of a kind, you win $"; (bet * 5)
 money = money + (bet * 5)
 GOTO payup
END IF

IF bcard% = ccard% AND bcard% = dcard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Three of a kind, you win $"; (bet * 5)
 money = money + (bet * 5)
 GOTO payup
END IF

IF ccard% = dcard% AND ccard% = ecard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Three of a kind, you win $"; (bet * 5)
 money = money + (bet * 5)
 GOTO payup
END IF

IF acard% = bcard% AND ccard% = dcard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Two Pair, you win $"; (bet * 3)
 money = money + (bet * 3)
 GOTO payup
END IF

IF acard% = bcard% AND dcard% = ecard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Two Pair, you win $"; (bet * 3)
 money = money + (bet * 3)
 GOTO payup
END IF

IF bcard% = ccard% AND dcard% = ecard% THEN
 LOCATE 15, 20
 COLOR 7, 0
 PRINT "Two Pair, you win $"; (bet * 3)
 money = money + (bet * 3)
 GOTO payup
END IF

IF acard% = bcard% THEN
  IF acard% > 8 THEN
    LOCATE 15, 18
    COLOR 7, 0
    PRINT "Jacks or Better, you win $"; bet
    GOTO payup
  END IF
END IF

IF bcard% = ccard% THEN
  IF bcard% > 8 THEN
    LOCATE 15, 18
    COLOR 7, 0
    PRINT "Jacks or Better, you win $"; bet
    GOTO payup
  END IF
END IF

IF ccard% = dcard% THEN
  IF ccard% > 8 THEN
    LOCATE 15, 18
    COLOR 7, 0
    PRINT "Jacks or Better, you win $"; bet
    GOTO payup
  END IF
END IF

IF dcard% = ecard% THEN
  IF dcard% > 8 THEN
    LOCATE 15, 18
    COLOR 7, 0
    PRINT "Jacks or Better, you win $"; bet
    GOTO payup
  END IF
END IF

LOCATE 15, 18
COLOR 7, 0
PRINT "You lose your bet of $"; bet
money = money - bet

payup:
LOCATE 17, 15
PRINT "Deal again to bet the same amount"
GOSUB getpress
GOTO poker2

getpress:
sleep
RETURN