'
'
'            W E L C O M E   T O   F I V E   C A R D   D R A W
'
'      > > > > > >  P R E S S  "F5"   T O    S T A R T   < < < < < <
'
'          Programmed by:  Ronald K. Francis
'                          3881 77th Street East
'                          Inver Grove Heights MN 55076-3157
'
'
'     This program replaces "5CARD.BAS" uploaded on 10/5/97 by the
'  author "RKFighmn". Comments/questions about this game are welcome.
'  E-mail:  jaf3881@aol.com
'
'
'
'



















COMMON SHARED B%, W%, win!, FLAG%, GAMES%, BANK!
COMMON SHARED C1%, C2%, C3%, C4%, C5%, C6%, C7%, C8%, C9%, C10%
COMMON SHARED CARD%(), C%
COMMON SHARED x, y
DECLARE SUB delay ()
DECLARE SUB cardbacks ()
DECLARE SUB blankcards ()
DECLARE SUB suits ()
DECLARE SUB cardnumbers ()
DECLARE SUB pay ()
DECLARE SUB firstdraw ()
DECLARE SUB royalflush ()
DECLARE SUB straightflush ()
DECLARE SUB fourofakind ()
DECLARE SUB fullhouse ()
DECLARE SUB flush ()
DECLARE SUB straight ()
DECLARE SUB threeofakind ()
DECLARE SUB twopair ()
DECLARE SUB jacksorbetter ()
DECLARE SUB doubleup ()

SCREEN 12
cardbacks
LOCATE 2, 8
PRINT "CARD  1"
LOCATE 2, 23
PRINT "CARD  2"
LOCATE 2, 38
PRINT "CARD  3"
LOCATE 2, 52
PRINT "CARD  4"
LOCATE 2, 67
PRINT "CARD  5"


COLOR 6                               'puts in pay table
LOCATE 26, 1
PRINT "Jacks or better = $0.25"
LOCATE 27, 1
PRINT "Two pair        = $0.50"
LOCATE 28, 1
PRINT "3 of a kind     = $0.75"
LOCATE 26, 30
PRINT "Straight   = $1.00"
LOCATE 27, 30
PRINT "Flush      = $1.25"
LOCATE 28, 30
PRINT "Full house = $2.00"
LOCATE 26, 55
PRINT "4 of a kind    =   $6.25"
LOCATE 27, 55
PRINT "Straight flush =  $12.50"
LOCATE 28, 55
PRINT "Royal flush    = $100.00"
COLOR 7
pay   'puts in games played, cost per game, initial winnings
GAMES% = 0
'--------------------------------------------------------------------------
LOCATE 22, 1
PRINT "To Quit Press (Ctrl+Break) then (Alt+F) then press x."
1000

LOCATE 16, 1
PRINT "                                 "
PRINT "                                 "
PRINT "                                 "
PRINT "                                 "
PRINT "                                 "
PRINT "                                 "

PAINT (84, 28), 1, 1


LOCATE 2, 8
PRINT "CARD  1"
LOCATE 2, 23
PRINT "CARD  2"
LOCATE 2, 38
PRINT "CARD  3"
LOCATE 2, 52
PRINT "CARD  4"
LOCATE 2, 67
PRINT "CARD  5"


LOCATE 13, 25                                'begins bet selection
PRINT "BET?  Press a number from 1 to 5."
DONEBET% = 0
DO
 a$ = INKEY$
 IF a$ = CHR$(49) THEN B% = 1
 IF a$ = CHR$(50) THEN B% = 2
 IF a$ = CHR$(51) THEN B% = 3
 IF a$ = CHR$(52) THEN B% = 4
 IF a$ = CHR$(53) THEN B% = 5
 IF a$ = CHR$(49) OR a$ = CHR$(50) OR a$ = CHR$(51) OR a$ = CHR$(52) OR a$ = CHR$(53) THEN DONEBET% = 1
LOOP UNTIL DONEBET% = 1                         'exit bet selection

LOCATE 16, 70
PRINT "Bet is: "; B%
PAINT (320, 202), 1, 1

OPTION BASE 1
ERASE CARD%
DIM CARD%(10, 5)
CARD%(1, 1) = 84     'X
CARD%(1, 2) = 112    'Y
CARD%(1, 3) = 0      'color (red or black)
CARD%(1, 4) = 0      'number
CARD%(1, 5) = 0      'suit
CARD%(2, 1) = 202
CARD%(2, 2) = 112
CARD%(2, 3) = 0
CARD%(2, 4) = 0
CARD%(2, 5) = 0
CARD%(3, 1) = 320
CARD%(3, 2) = 112
CARD%(3, 3) = 0
CARD%(3, 4) = 0
CARD%(3, 5) = 0
CARD%(4, 1) = 438
CARD%(4, 2) = 112
CARD%(4, 3) = 0
CARD%(4, 4) = 0
CARD%(4, 5) = 0
CARD%(5, 1) = 556
CARD%(5, 2) = 112
CARD%(5, 3) = 0
CARD%(5, 4) = 0
CARD%(5, 5) = 0
CARD%(6, 1) = 84
CARD%(6, 2) = 112
CARD%(6, 3) = 0
CARD%(6, 4) = 0
CARD%(6, 5) = 0
CARD%(7, 1) = 202
CARD%(7, 2) = 112
CARD%(7, 3) = 0
CARD%(7, 4) = 0
CARD%(7, 5) = 0
CARD%(8, 1) = 320
CARD%(8, 2) = 112
CARD%(8, 3) = 0
CARD%(8, 4) = 0
CARD%(8, 5) = 0
CARD%(9, 1) = 438
CARD%(9, 2) = 112
CARD%(9, 3) = 0
CARD%(9, 4) = 0
CARD%(9, 5) = 0
CARD%(10, 1) = 556
CARD%(10, 2) = 112
CARD%(10, 3) = 0
CARD%(10, 4) = 0
CARD%(10, 5) = 0

firstdraw                     'select 10 random cards and assign array values
FOR x = 84 TO 556 STEP 118
 blankcards                   'draws blank cards
NEXT x

C% = 1
FOR x = 84 TO 556 STEP 118
  cardnumbers                  'puts in card numbers
  suits                        'draws in card suits
  C% = C% + 1
NEXT x

LOCATE 16, 1                               'begin hold selection
PRINT "Press card number to HOLD/UNHOLD."
PRINT "Press  D  to DRAW new cards."

h1% = 0
h2% = 0
h3% = 0
h4% = 0
h5% = 0

DONEHOLD% = 0
DO
 a$ = INKEY$
 IF a$ = CHR$(49) AND h1% = 0 THEN
     h1% = 1
     LOCATE 13, 10
     PRINT "HOLD"
     GOSUB 100
 END IF
 IF a$ = CHR$(49) AND h1% = 1 THEN
     h1% = 0
     PAINT (84, 202), 1, 1
     GOSUB 100
 END IF

 IF a$ = CHR$(50) AND h2% = 0 THEN
     h2% = 1
     LOCATE 13, 24
     PRINT "HOLD"
     GOSUB 100
 END IF
 IF a$ = CHR$(50) AND h2% = 1 THEN
     h2% = 0
     PAINT (202, 202), 1, 1
     GOSUB 100
 END IF

 IF a$ = CHR$(51) AND h3% = 0 THEN
     h3% = 1
     LOCATE 13, 39
     PRINT "HOLD"
     GOSUB 100
 END IF
 IF a$ = CHR$(51) AND h3% = 1 THEN
     h3% = 0
     PAINT (320, 202), 1, 1
     GOSUB 100
 END IF

 IF a$ = CHR$(52) AND h4% = 0 THEN
     h4% = 1
     LOCATE 13, 54
     PRINT "HOLD"
     GOSUB 100
 END IF
 IF a$ = CHR$(52) AND h4% = 1 THEN
     h4% = 0
     PAINT (438, 202), 1, 1
     GOSUB 100
 END IF

 IF a$ = CHR$(53) AND h5% = 0 THEN
     h5% = 1
     LOCATE 13, 69
     PRINT "HOLD"
     GOSUB 100
 END IF
 IF a$ = CHR$(53) AND h5% = 1 THEN
     h5% = 0
     PAINT (556, 202), 1, 1
     GOSUB 100
 END IF

100 IF a$ = CHR$(68) OR a$ = CHR$(100) THEN DONEHOLD% = 1
LOOP UNTIL DONEHOLD% = 1                                     'exit hold selection

y = 112                                          'begin display of re-drawn cards
IF h1% = 0 THEN
 x = 84
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
 C% = 6
 cardnumbers
 suits
 C1% = C6%
END IF
IF h2% = 0 THEN
 x = 202
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
 C% = 7
 cardnumbers
 suits
 C2% = C7%
END IF
IF h3% = 0 THEN
 x = 320
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
 C% = 8
 cardnumbers
 suits
 C3% = C8%
END IF
IF h4% = 0 THEN
 x = 438
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
 C% = 9
 cardnumbers
 suits
 C4% = C9%
END IF
IF h5% = 0 THEN
 x = 556
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
 C% = 10
 cardnumbers
 suits
 C5% = C10%
END IF                                        'end display of re-drawn cards

LOCATE 16, 1
PRINT "                                          "
LOCATE 17, 1
PRINT "                                          "

win! = 0                                        'put test cards here
FLAG% = 0
royalflush
straightflush
fourofakind
fullhouse
flush
straight
threeofakind
twopair
jacksorbetter

IF FLAG% = 0 THEN
 COLOR 4
 LOCATE 16, 1
 PRINT "YOU LOSE"
 SOUND 90, 3
 SOUND 62, 2
 COLOR 7
END IF

GAMES% = GAMES% + 1

pay

LOCATE 17, 1
PRINT "Press SPACE BAR to play again."
PRINT "                                                              "
PRINT "                                                              "
PRINT "                                                              "
FINISH% = 1
DO
 a$ = INKEY$
 IF a$ = " " THEN FINISH% = 0
LOOP UNTIL FINISH% = 0

 x = 84
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
 x = 202
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
 x = 320
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
 x = 438
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
 x = 556
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
blankcards
cardbacks

PAINT (84, 202), 1, 1      'erases "HOLD"
PAINT (202, 202), 1, 1
PAINT (320, 202), 1, 1
PAINT (438, 202), 1, 1
PAINT (556, 202), 1, 1

IF FINISH% = 0 THEN GOSUB 1000

SUB blankcards

y = 112
LINE (x - 44, y - 56)-(x - 44, y + 56), 1              'draws outside border
LINE (x + 44, y - 56)-(x + 44, y + 56), 1
LINE (x - 36, y - 64)-(x + 36, y - 64), 1
LINE (x - 36, y + 64)-(x + 36, y + 64), 1
CIRCLE (x - 36, y - 56), 8, 1, 1.5708, 3.1416
CIRCLE (x - 36, y + 56), 8, 1, 3.1416, 4.7124
CIRCLE (x + 36, y + 56), 8, 1, 4.7124, 0
CIRCLE (x + 36, y - 56), 8, 1, 0, 1.5708
'--
CIRCLE (x + 44, y - 50), 8, 1, 0, 1.5708               'shadow
LINE (x + 52, y - 50)-(x + 52, y + 66), 1
CIRCLE (x + 44, y + 66), 8, 1, 4.7124, 0
LINE (x + 44, y + 74)-(x - 32, y + 74), 1
CIRCLE (x - 32, y + 66), 8, 1, 3.1416, 4.7124
LINE (x - 40, y + 66)-(x - 40, y + 64), 1
PAINT (x, y), 7, 1                               'fills to out border except suit



END SUB

SUB cardbacks
FOR x = 84 TO 556 STEP 118
y = 112
LINE (x - 44, y - 56)-(x - 44, y + 56), 1              'draws outside border
LINE (x + 44, y - 56)-(x + 44, y + 56), 1
LINE (x - 36, y - 64)-(x + 36, y - 64), 1
LINE (x - 36, y + 64)-(x + 36, y + 64), 1
CIRCLE (x - 36, y - 56), 8, 1, 1.5708, 3.1416
CIRCLE (x - 36, y + 56), 8, 1, 3.1416, 4.7124
CIRCLE (x + 36, y + 56), 8, 1, 4.7124, 0
CIRCLE (x + 36, y - 56), 8, 1, 0, 1.5708
'--
CIRCLE (x + 44, y - 50), 8, 1, 0, 1.5708               'shadow
LINE (x + 52, y - 50)-(x + 52, y + 66), 1
CIRCLE (x + 44, y + 66), 8, 1, 4.7124, 0
LINE (x + 44, y + 74)-(x - 32, y + 74), 1
CIRCLE (x - 32, y + 66), 8, 1, 3.1416, 4.7124
LINE (x - 40, y + 66)-(x - 40, y + 64), 1
TILE$ = CHR$(209) + CHR$(112) + CHR$(201) + CHR$(210)   'draws back of card
PAINT (x, y), TILE$, 1
NEXT x

CIRCLE (320, -1375), 1608, 1                      'draws blue table top
PAINT (1, 1), 1, 1


END SUB

SUB cardnumbers

SELECT CASE (CARD%(C%, 4))
                                               
  CASE 1
    LINE (x - 39, y - 45)-(x - 34, y - 60), CARD%(C%, 3) 'top
    LINE (x - 38, y - 45)-(x - 33, y - 60), CARD%(C%, 3)
    LINE (x - 29, y - 45)-(x - 34, y - 60), CARD%(C%, 3)
    LINE (x - 28, y - 45)-(x - 33, y - 60), CARD%(C%, 3)
    LINE (x - 37, y - 51)-(x - 30, y - 51), CARD%(C%, 3)
    LINE (x - 36, y - 52)-(x - 31, y - 52), CARD%(C%, 3)
    LINE (x - 41, y - 45)-(x - 36, y - 45), CARD%(C%, 3)
    LINE (x - 41, y - 46)-(x - 36, y - 46), CARD%(C%, 3)
    LINE (x - 31, y - 45)-(x - 26, y - 45), CARD%(C%, 3)
    LINE (x - 31, y - 46)-(x - 26, y - 46), CARD%(C%, 3)

    LINE (x + 28, y + 60)-(x + 33, y + 45), CARD%(C%, 3) 'bottom
    LINE (x + 29, y + 60)-(x + 34, y + 45), CARD%(C%, 3)
    LINE (x + 38, y + 60)-(x + 33, y + 45), CARD%(C%, 3)
    LINE (x + 39, y + 60)-(x + 34, y + 45), CARD%(C%, 3)
    LINE (x + 30, y + 54)-(x + 37, y + 54), CARD%(C%, 3)
    LINE (x + 31, y + 53)-(x + 36, y + 53), CARD%(C%, 3)
    LINE (x + 26, y + 60)-(x + 31, y + 60), CARD%(C%, 3)
    LINE (x + 26, y + 59)-(x + 31, y + 59), CARD%(C%, 3)
    LINE (x + 36, y + 60)-(x + 41, y + 60), CARD%(C%, 3)
    LINE (x + 36, y + 59)-(x + 41, y + 59), CARD%(C%, 3)
 
  CASE 2
    CIRCLE (x - 37, y - 56), 4, CARD%(C%, 3), 4.7121, 2.8'top
    CIRCLE (x - 36, y - 56), 4, CARD%(C%, 3), 4.7121, 2.8
    CIRCLE (x - 37, y - 48), 4, CARD%(C%, 3), 1.5708, 3.1416
    CIRCLE (x - 36, y - 48), 4, CARD%(C%, 3), 1.5708, 3.1416
    LINE (x - 41, y - 48)-(x - 41, y - 45), CARD%(C%, 3)
    LINE (x - 40, y - 48)-(x - 40, y - 45), CARD%(C%, 3)
    LINE (x - 41, y - 46)-(x - 32, y - 46), CARD%(C%, 3)
    LINE (x - 41, y - 45)-(x - 32, y - 45), CARD%(C%, 3)

    CIRCLE (x + 36, y + 49), 4, CARD%(C%, 3), 4.7121, 2.8'bottom
    CIRCLE (x + 37, y + 49), 4, CARD%(C%, 3), 4.7121, 2.8
    CIRCLE (x + 36, y + 57), 4, CARD%(C%, 3), 1.5708, 3.1416
    CIRCLE (x + 37, y + 57), 4, CARD%(C%, 3), 1.5708, 3.1416
    LINE (x + 32, y + 57)-(x + 32, y + 60), CARD%(C%, 3)
    LINE (x + 33, y + 57)-(x + 33, y + 60), CARD%(C%, 3)
    LINE (x + 32, y + 59)-(x + 41, y + 59), CARD%(C%, 3)
    LINE (x + 32, y + 60)-(x + 41, y + 60), CARD%(C%, 3)
 
  CASE 3
    CIRCLE (x - 37, y - 56), 4, CARD%(C%, 3), 4.7121, 2.8'top
    CIRCLE (x - 37, y - 49), 4, CARD%(C%, 3), 3.4, 1.5708
    CIRCLE (x - 36, y - 56), 4, CARD%(C%, 3), 4.7121, 2.8
    CIRCLE (x - 36, y - 49), 4, CARD%(C%, 3), 3.4, 1.5708
 
    CIRCLE (x + 36, y + 49), 4, CARD%(C%, 3), 4.7121, 2.8'bottom
    CIRCLE (x + 36, y + 56), 4, CARD%(C%, 3), 3.4, 1.5708
    CIRCLE (x + 37, y + 49), 4, CARD%(C%, 3), 4.7121, 2.8
    CIRCLE (x + 37, y + 56), 4, CARD%(C%, 3), 3.4, 1.5708

  CASE 4
    LINE (x - 41, y - 53)-(x - 34, y - 60), CARD%(C%, 3) 'top
    LINE (x - 41, y - 52)-(x - 33, y - 60), CARD%(C%, 3)
    LINE (x - 41, y - 52)-(x - 31, y - 52), CARD%(C%, 3)
    LINE (x - 41, y - 51)-(x - 31, y - 51), CARD%(C%, 3)
    LINE (x - 34, y - 60)-(x - 34, y - 45), CARD%(C%, 3)
    LINE (x - 33, y - 60)-(x - 33, y - 45), CARD%(C%, 3)

    LINE (x + 31, y + 52)-(x + 38, y + 45), CARD%(C%, 3) 'bottom
    LINE (x + 31, y + 53)-(x + 39, y + 45), CARD%(C%, 3)
    LINE (x + 31, y + 53)-(x + 41, y + 53), CARD%(C%, 3)
    LINE (x + 31, y + 54)-(x + 41, y + 54), CARD%(C%, 3)
    LINE (x + 38, y + 45)-(x + 38, y + 60), CARD%(C%, 3)
    LINE (x + 39, y + 45)-(x + 39, y + 60), CARD%(C%, 3)

  CASE 5
    CIRCLE (x - 36, y - 49), 4, CARD%(C%, 3), 3.5, 1.5708'top
    CIRCLE (x - 37, y - 49), 4, CARD%(C%, 3), 3.5, 1.5708
    LINE (x - 41, y - 53)-(x - 36, y - 53), CARD%(C%, 3)
    LINE (x - 41, y - 52)-(x - 36, y - 52), CARD%(C%, 3)
    LINE (x - 41, y - 60)-(x - 41, y - 52), CARD%(C%, 3)
    LINE (x - 40, y - 60)-(x - 40, y - 52), CARD%(C%, 3)
    LINE (x - 41, y - 60)-(x - 33, y - 60), CARD%(C%, 3)
    LINE (x - 41, y - 59)-(x - 33, y - 59), CARD%(C%, 3)
                                            
    CIRCLE (x + 36, y + 56), 4, CARD%(C%, 3), 3.5, 1.5708'bottom
    CIRCLE (x + 37, y + 56), 4, CARD%(C%, 3), 3.5, 1.5708
    LINE (x + 32, y + 53)-(x + 37, y + 53), CARD%(C%, 3)
    LINE (x + 32, y + 52)-(x + 37, y + 52), CARD%(C%, 3)
    LINE (x + 32, y + 45)-(x + 32, y + 53), CARD%(C%, 3)
    LINE (x + 33, y + 45)-(x + 33, y + 53), CARD%(C%, 3)
    LINE (x + 32, y + 45)-(x + 40, y + 45), CARD%(C%, 3)
    LINE (x + 32, y + 46)-(x + 40, y + 46), CARD%(C%, 3)
 
  CASE 6
    CIRCLE (x - 37, y - 56), 4, CARD%(C%, 3), 0, 3.1416 'top
    CIRCLE (x - 36, y - 56), 4, CARD%(C%, 3), 0, 3.1416
    LINE (x - 41, y - 56)-(x - 41, y - 49), CARD%(C%, 3)
    LINE (x - 40, y - 56)-(x - 40, y - 49), CARD%(C%, 3)
    CIRCLE (x - 37, y - 49), 4, CARD%(C%, 3)
    CIRCLE (x - 36, y - 49), 4, CARD%(C%, 3)

    CIRCLE (x + 37, y + 49), 4, CARD%(C%, 3), 0, 3.1416  'bottom
    CIRCLE (x + 36, y + 49), 4, CARD%(C%, 3), 0, 3.1416
    LINE (x + 33, y + 56)-(x + 33, y + 49), CARD%(C%, 3)
    LINE (x + 32, y + 56)-(x + 32, y + 49), CARD%(C%, 3)
    CIRCLE (x + 37, y + 56), 4, CARD%(C%, 3)
    CIRCLE (x + 36, y + 56), 4, CARD%(C%, 3)

  CASE 7
    LINE (x - 40, y - 60)-(x - 30, y - 60), CARD%(C%, 3) 'top
    LINE (x - 40, y - 59)-(x - 31, y - 59), CARD%(C%, 3)
    LINE (x - 30, y - 60)-(x - 37, y - 45), CARD%(C%, 3)
    LINE (x - 31, y - 60)-(x - 38, y - 45), CARD%(C%, 3)
   
    LINE (x + 31, y + 45)-(x + 40, y + 45), CARD%(C%, 3) 'bottom
    LINE (x + 31, y + 46)-(x + 39, y + 46), CARD%(C%, 3)
    LINE (x + 41, y + 45)-(x + 34, y + 60), CARD%(C%, 3)
    LINE (x + 40, y + 45)-(x + 33, y + 60), CARD%(C%, 3)
 
  CASE 8
    CIRCLE (x - 36, y - 56), 4, CARD%(C%, 3)             'top
    CIRCLE (x - 37, y - 56), 4, CARD%(C%, 3)
    CIRCLE (x - 36, y - 49), 4, CARD%(C%, 3)
    CIRCLE (x - 37, y - 49), 4, CARD%(C%, 3)

    CIRCLE (x + 36, y + 56), 4, CARD%(C%, 3)             'bottom
    CIRCLE (x + 37, y + 56), 4, CARD%(C%, 3)
    CIRCLE (x + 36, y + 49), 4, CARD%(C%, 3)
    CIRCLE (x + 37, y + 49), 4, CARD%(C%, 3)

  CASE 9
    CIRCLE (x - 36, y - 56), 4, CARD%(C%, 3)             'top
    CIRCLE (x - 37, y - 56), 4, CARD%(C%, 3)
    LINE (x - 32, y - 56)-(x - 32, y - 48), CARD%(C%, 3)
    LINE (x - 33, y - 56)-(x - 33, y - 48), CARD%(C%, 3)
    CIRCLE (x - 36, y - 48), 4, CARD%(C%, 3), 3.1416, 0
    CIRCLE (x - 37, y - 48), 4, CARD%(C%, 3), 3.1416, 0

    CIRCLE (x + 37, y + 49), 4, CARD%(C%, 3)             'bottom
    CIRCLE (x + 36, y + 49), 4, CARD%(C%, 3)
    LINE (x + 41, y + 49)-(x + 41, y + 57), CARD%(C%, 3)
    LINE (x + 40, y + 56)-(x + 40, y + 48), CARD%(C%, 3)
    CIRCLE (x + 37, y + 57), 4, CARD%(C%, 3), 3.1416, 0
    CIRCLE (x + 36, y + 57), 4, CARD%(C%, 3), 3.1416, 0
 
  CASE 10
    LINE (x - 41, y - 57)-(x - 38, y - 60), CARD%(C%, 3) 'top
    LINE (x - 40, y - 57)-(x - 37, y - 60), CARD%(C%, 3)
    LINE (x - 38, y - 60)-(x - 38, y - 45), CARD%(C%, 3)
    LINE (x - 37, y - 60)-(x - 37, y - 45), CARD%(C%, 3)
    LINE (x - 40, y - 46)-(x - 35, y - 46), CARD%(C%, 3)
    LINE (x - 40, y - 45)-(x - 35, y - 45), CARD%(C%, 3)
    CIRCLE (x - 29, y - 56), 4, CARD%(C%, 3), 0, 3.1416
    CIRCLE (x - 28, y - 56), 4, CARD%(C%, 3), 0, 3.1416
    CIRCLE (x - 29, y - 49), 4, CARD%(C%, 3), 3.1416, 0
    CIRCLE (x - 28, y - 49), 4, CARD%(C%, 3), 3.1416, 0
    LINE (x - 33, y - 56)-(x - 33, y - 49), CARD%(C%, 3)
    LINE (x - 32, y - 56)-(x - 32, y - 49), CARD%(C%, 3)
    LINE (x - 25, y - 56)-(x - 25, y - 49), CARD%(C%, 3)
    LINE (x - 24, y - 56)-(x - 24, y - 49), CARD%(C%, 3)

    LINE (x + 24, y + 48)-(x + 27, y + 45), CARD%(C%, 3) 'bottom
    LINE (x + 25, y + 48)-(x + 28, y + 45), CARD%(C%, 3)
    LINE (x + 27, y + 45)-(x + 27, y + 60), CARD%(C%, 3)
    LINE (x + 28, y + 45)-(x + 28, y + 60), CARD%(C%, 3)
    LINE (x + 25, y + 59)-(x + 30, y + 59), CARD%(C%, 3)
    LINE (x + 25, y + 60)-(x + 30, y + 60), CARD%(C%, 3)
    CIRCLE (x + 36, y + 49), 4, CARD%(C%, 3), 0, 3.1416
    CIRCLE (x + 37, y + 49), 4, CARD%(C%, 3), 0, 3.1416
    CIRCLE (x + 36, y + 56), 4, CARD%(C%, 3), 3.1416, 0
    CIRCLE (x + 37, y + 56), 4, 0, 3.1416, 0
    LINE (x + 32, y + 49)-(x + 32, y + 56), CARD%(C%, 3)
    LINE (x + 33, y + 49)-(x + 33, y + 56), CARD%(C%, 3)
    LINE (x + 40, y + 49)-(x + 40, y + 56), CARD%(C%, 3)
    LINE (x + 41, y + 49)-(x + 41, y + 56), CARD%(C%, 3)
 
  CASE 11  'jack
    CIRCLE (x - 37, y - 49), 4, CARD%(C%, 3), 3.1416, 0  'top
    CIRCLE (x - 36, y - 49), 4, CARD%(C%, 3), 3.1416, 0
    LINE (x - 33, y - 49)-(x - 33, y - 60), CARD%(C%, 3)
    LINE (x - 32, y - 49)-(x - 32, y - 60), CARD%(C%, 3)
    LINE (x - 36, y - 60)-(x - 29, y - 60), CARD%(C%, 3)
    LINE (x - 36, y - 59)-(x - 29, y - 59), CARD%(C%, 3)

    CIRCLE (x + 33, y + 56), 4, CARD%(C%, 3), 3.1416, 0  'bottom
    CIRCLE (x + 34, y + 56), 4, CARD%(C%, 3), 3.1416, 0
    LINE (x + 37, y + 56)-(x + 37, y + 45), CARD%(C%, 3)
    LINE (x + 38, y + 56)-(x + 38, y + 45), CARD%(C%, 3)
    LINE (x + 34, y + 45)-(x + 41, y + 45), CARD%(C%, 3)
    LINE (x + 34, y + 46)-(x + 41, y + 46), CARD%(C%, 3)

    LINE (x - 24, y - 44)-(x + 24, y - 44), CARD%(C%, 3)
    LINE -(x + 24, y + 44), CARD%(C%, 3)
    LINE -(x - 24, y + 44), CARD%(C%, 3)
    LINE -(x - 24, y - 44), CARD%(C%, 3)
 
  CASE 12  'queen
    CIRCLE (x - 35, y - 56), 4, CARD%(C%, 3), 0, 3.1416  'top
    CIRCLE (x - 34, y - 56), 4, CARD%(C%, 3), 0, 3.1416
    CIRCLE (x - 35, y - 49), 4, CARD%(C%, 3), 3.1416, 0
    CIRCLE (x - 34, y - 49), 4, CARD%(C%, 3), 3.1416, 0
    LINE (x - 39, y - 56)-(x - 39, y - 49), CARD%(C%, 3)
    LINE (x - 38, y - 56)-(x - 38, y - 49), CARD%(C%, 3)
    LINE (x - 31, y - 56)-(x - 31, y - 49), CARD%(C%, 3)
    LINE (x - 30, y - 56)-(x - 30, y - 49), CARD%(C%, 3)
    LINE (x - 34, y - 49)-(x - 29, y - 44), CARD%(C%, 3)
    LINE (x - 35, y - 49)-(x - 30, y - 44), CARD%(C%, 3)

    CIRCLE (x + 34, y + 49), 4, CARD%(C%, 3), 0, 3.1416  'bottom
    CIRCLE (x + 35, y + 49), 4, CARD%(C%, 3), 0, 3.1416
    CIRCLE (x + 34, y + 56), 4, CARD%(C%, 3), 3.1416, 0
    CIRCLE (x + 35, y + 56), 4, CARD%(C%, 3), 3.1416, 0
    LINE (x + 30, y + 49)-(x + 30, y + 56), CARD%(C%, 3)
    LINE (x + 31, y + 49)-(x + 31, y + 56), CARD%(C%, 3)
    LINE (x + 38, y + 49)-(x + 38, y + 56), CARD%(C%, 3)
    LINE (x + 38, y + 49)-(x + 39, y + 56), CARD%(C%, 3)
    LINE (x + 34, y + 56)-(x + 39, y + 61), CARD%(C%, 3)
    LINE (x + 35, y + 56)-(x + 40, y + 61), CARD%(C%, 3)

    LINE (x - 24, y - 44)-(x + 24, y - 44), CARD%(C%, 3)
    LINE -(x + 24, y + 44), CARD%(C%, 3)
    LINE -(x - 24, y + 44), CARD%(C%, 3)
    LINE -(x - 24, y - 44), CARD%(C%, 3)
   
  CASE 13  'king
    LINE (x - 38, y - 60)-(x - 38, y - 45), CARD%(C%, 3) 'top
    LINE (x - 37, y - 60)-(x - 37, y - 45), CARD%(C%, 3)
    LINE (x - 36, y - 53)-(x - 29, y - 60), CARD%(C%, 3)
    LINE (x - 36, y - 54)-(x - 30, y - 60), CARD%(C%, 3)
    LINE (x - 36, y - 53)-(x - 28, y - 45), CARD%(C%, 3)
    LINE (x - 36, y - 52)-(x - 29, y - 45), CARD%(C%, 3)

    LINE (x + 30, y + 45)-(x + 30, y + 60), CARD%(C%, 3) 'bottom
    LINE (x + 31, y + 45)-(x + 31, y + 60), CARD%(C%, 3)
    LINE (x + 32, y + 51)-(x + 38, y + 45), CARD%(C%, 3)
    LINE (x + 32, y + 52)-(x + 39, y + 45), CARD%(C%, 3)
    LINE (x + 32, y + 52)-(x + 40, y + 60), CARD%(C%, 3)
    LINE (x + 32, y + 53)-(x + 39, y + 60), CARD%(C%, 3)

    LINE (x - 24, y - 44)-(x + 24, y - 44), CARD%(C%, 3)
    LINE -(x + 24, y + 44), CARD%(C%, 3)
    LINE -(x - 24, y + 44), CARD%(C%, 3)
    LINE -(x - 24, y - 44), CARD%(C%, 3)

END SELECT

END SUB

SUB delay
      FOR i% = 1 TO 10000
        FOR j% = 1 TO 2
        NEXT j%
      NEXT i%

END SUB

SUB doubleup
PAINT (84, 202), 1, 1      'erases "HOLD"
PAINT (202, 202), 1, 1
PAINT (320, 202), 1, 1
PAINT (438, 202), 1, 1
PAINT (556, 202), 1, 1

FLAG% = 1

win! = .05 * W% * B%

300
COLOR 2
LOCATE 19, 1
            tmp$ = "YOU WIN $$#####.## "
            win! = win
            PRINT USING tmp$; win
            v! = win! * 2
            LOCATE 20, 1
            tmp$ = "DOUBLE UP TO $$#####.##?  Press Y (YES), or N (NO)."
            PRINT USING tmp$; v
            
PAINT (84, 202), 1, 1      'erases CHOICE
PAINT (202, 202), 1, 1
PAINT (320, 202), 1, 1
PAINT (438, 202), 1, 1
PAINT (556, 202), 1, 1

DONE = 0
DO
 a$ = INKEY$
 IF a$ = CHR$(78) OR a$ = CHR$(110) THEN DONE% = 1     'no
 IF a$ = CHR$(89) OR a$ = CHR$(121) THEN               'yes
 LOCATE 19, 27
 PRINT "                                 "
 LOCATE 20, 1
 PRINT "If your card beats dealers card, you win! ACE is HIGH."
 LOCATE 13, 29
 PRINT "Select card 2, 3, 4 or 5."

firstdraw            'gets 5 new random cards for double up

y = 112                      'erases faces of existing cards
FOR x = 84 TO 556 STEP 118
 LINE (x - 41, y - 61)-(x + 41, y + 61), 7, BF
NEXT x

FOR x = 202 TO 556 STEP 118              'draws back of 4 cards to choose
y = 112
LINE (x - 44, y - 56)-(x - 44, y + 56), 1              'draws outside border
LINE (x + 44, y - 56)-(x + 44, y + 56), 1
LINE (x - 36, y - 64)-(x + 36, y - 64), 1
LINE (x - 36, y + 64)-(x + 36, y + 64), 1
CIRCLE (x - 36, y - 56), 8, 1, 1.5708, 3.1416
CIRCLE (x - 36, y + 56), 8, 1, 3.1416, 4.7124
CIRCLE (x + 36, y + 56), 8, 1, 4.7124, 0
CIRCLE (x + 36, y - 56), 8, 1, 0, 1.5708
'--
CIRCLE (x + 44, y - 50), 8, 1, 0, 1.5708               'shadow
LINE (x + 52, y - 50)-(x + 52, y + 66), 1
CIRCLE (x + 44, y + 66), 8, 1, 4.7124, 0
LINE (x + 44, y + 74)-(x - 32, y + 74), 1
CIRCLE (x - 32, y + 66), 8, 1, 3.1416, 4.7124
LINE (x - 40, y + 66)-(x - 40, y + 64), 1
TILE$ = CHR$(209) + CHR$(112) + CHR$(201) + CHR$(210)   'draws back of card
PAINT (x, y), TILE$, 1
NEXT x

x = 84              'displays dealers card
y = 112
LINE (x - 44, y - 56)-(x - 44, y + 56), 1              'draws outside border
LINE (x + 44, y - 56)-(x + 44, y + 56), 1
LINE (x - 36, y - 64)-(x + 36, y - 64), 1
LINE (x - 36, y + 64)-(x + 36, y + 64), 1
CIRCLE (x - 36, y - 56), 8, 1, 1.5708, 3.1416
CIRCLE (x - 36, y + 56), 8, 1, 3.1416, 4.7124
CIRCLE (x + 36, y + 56), 8, 1, 4.7124, 0
CIRCLE (x + 36, y - 56), 8, 1, 0, 1.5708
'--
CIRCLE (x + 44, y - 50), 8, 1, 0, 1.5708               'shadow
LINE (x + 52, y - 50)-(x + 52, y + 66), 1
CIRCLE (x + 44, y + 66), 8, 1, 4.7124, 0
LINE (x + 44, y + 74)-(x - 32, y + 74), 1
CIRCLE (x - 32, y + 66), 8, 1, 3.1416, 4.7124
LINE (x - 40, y + 66)-(x - 40, y + 64), 1
PAINT (x, y), 7, 1                               'fills to out border except suit


 C% = 1
 cardnumbers
 suits                  'end display of dealers card

LOCATE 2, 6
PRINT "DEALER CARD"
LOCATE 2, 23
PRINT "CARD  2"
LOCATE 2, 38
PRINT "CARD  3"
LOCATE 2, 52
PRINT "CARD  4"
LOCATE 2, 67
PRINT "CARD  5"
        
        
         D2% = 0
         D3% = 0
         D4% = 0
         D5% = 0
         DUN% = 0                    'user selects card 2, 3, 4 or 5
         DO
          B$ = INKEY$
          IF B$ = CHR$(50) THEN
           D2% = 1
           DUN% = 1
           GOSUB 200
          END IF
          IF B$ = CHR$(51) THEN
           D3% = 1
           DUN% = 1
           GOSUB 200
          END IF
          IF B$ = CHR$(52) THEN
           D4% = 1
           DUN% = 1
           GOSUB 200
          END IF
          IF B$ = CHR$(53) THEN
           D5% = 1
           DUN% = 1
           GOSUB 200
          END IF
200      LOOP UNTIL DUN% = 1

PAINT (320, 202), 1, 1               'prints choice
IF D2% = 1 THEN
 LOCATE 13, 23
 PRINT "CHOICE"
END IF
IF D3% = 1 THEN
 LOCATE 13, 38
 PRINT "CHOICE"
END IF
IF D4% = 1 THEN
 LOCATE 13, 53
 PRINT "CHOICE"
END IF
IF D5% = 1 THEN
 LOCATE 13, 68
 PRINT "CHOICE"
END IF
 
  LOCATE 17, 1
  PRINT "                                                       "
  LOCATE 18, 1
  PRINT "                                                       "
  LOCATE 19, 1
  PRINT "                                                       "
  LOCATE 20, 1
  PRINT "                                                       "

T1% = C1%     'create temporary card numbers
T2% = C2%
T3% = C3%
T4% = C4%
T5% = C5%
                    'change all card numbers to between 1 and 13(all one suit)
FOR i% = 1 TO 13
IF T1% = i% OR T1% = (i% + 13) OR T1% = (i% + 26) OR T1% = (i% + 39) THEN T1% = i%
IF T2% = i% OR T2% = (i% + 13) OR T2% = (i% + 26) OR T2% = (i% + 39) THEN T2% = i%
IF T3% = i% OR T3% = (i% + 13) OR T3% = (i% + 26) OR T3% = (i% + 39) THEN T3% = i%
IF T4% = i% OR T4% = (i% + 13) OR T4% = (i% + 26) OR T4% = (i% + 39) THEN T4% = i%
IF T5% = i% OR T5% = (i% + 13) OR T5% = (i% + 26) OR T5% = (i% + 39) THEN T5% = i%
NEXT i%
IF T1% = 1 THEN T1% = 14    'make low ace high ace
IF T2% = 1 THEN T2% = 14
IF T3% = 1 THEN T3% = 14
IF T4% = 1 THEN T4% = 14
IF T5% = 1 THEN T5% = 14




'------------------------------------------------------------------------
'------------------------------------------------------------------------


'----------------------------------------------------
IF D2% = 1 THEN      'check card 2 (D2%)
 x = 202             'expose chosen card
 blankcards
 C% = 2
 cardnumbers
 suits
 IF T1% > T2% THEN           'if card 2 less than dealer
  win! = 0
  COLOR 4
  LOCATE 16, 1
  PRINT "YOU LOSE"
  SOUND 90, 3
  SOUND 62, 2
  COLOR 7
  delay
  x = 320                 'expose other three cards
  blankcards
  C% = 3
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 438
  blankcards
  C% = 4
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 556
  blankcards
  C% = 5
  cardnumbers
  suits
  SOUND 600, 1
  DONE% = 1
  GOSUB 400
 END IF
 IF T1% = T2% THEN           'if card 2 = dealer
  win! = win!
  COLOR 14
  LOCATE 18, 1
  PRINT "TIE, TRY AGAIN?"
  SOUND 90, 3
  SOUND 62, 2
  GOSUB 300
 END IF
 IF T1% < T2% THEN           'if card 2 greater than dealer
  win! = v!
  COLOR 2
  SOUND 300, 3
  SOUND 500, 3
  SOUND 700, 3
  SOUND 900, 3
  COLOR 7
  delay
  x = 320                 'expose other three cards
  blankcards
  C% = 3
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 438
  blankcards
  C% = 4
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 556
  blankcards
  C% = 5
  cardnumbers
  suits
  SOUND 600, 1
  GOSUB 300
 END IF
END IF


'----------------------------------------------------
IF D3% = 1 THEN      'check card 3 (D3%)
 x = 320             'expose chosen card
 blankcards
 C% = 3
 cardnumbers
 suits
 IF T1% > T3% THEN           'if card 3 less than dealer
  win! = 0
  COLOR 4
  LOCATE 16, 1
  PRINT "YOU LOSE"
  SOUND 90, 3
  SOUND 62, 2
  COLOR 7
  delay
  x = 202                 'expose other three cards
  blankcards
  C% = 2
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 438
  blankcards
  C% = 4
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 556
  blankcards
  C% = 5
  cardnumbers
  suits
  SOUND 600, 1
  DONE% = 1
  GOSUB 400
 END IF
 IF T1% = T3% THEN           'if card 3 = dealer
  win! = win!
  COLOR 14
  LOCATE 18, 1
  PRINT "TIE, TRY AGAIN?"
  SOUND 90, 3
  SOUND 62, 2
  GOSUB 300
 END IF
 IF T1% < T3% THEN           'if card 3 greater than dealer
  win! = v!
  COLOR 2
  SOUND 300, 3
  SOUND 500, 3
  SOUND 700, 3
  SOUND 900, 3
  COLOR 7
  delay
  x = 202                 'expose other three cards
  blankcards
  C% = 2
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 438
  blankcards
  C% = 4
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 556
  blankcards
  C% = 5
  cardnumbers
  suits
  SOUND 600, 1
  GOSUB 300
 END IF
END IF



'----------------------------------------------------
IF D4% = 1 THEN      'check card 4 (D4%)
 x = 438             'expose chosen card
 blankcards
 C% = 4
 cardnumbers
 suits
 IF T1% > T4% THEN           'if card 4 less than dealer
  win! = 0
  COLOR 4
  LOCATE 16, 1
  PRINT "YOU LOSE"
  SOUND 90, 3
  SOUND 62, 2
  COLOR 7
  delay
  x = 202                 'expose other three cards
  blankcards
  C% = 2
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 320
  blankcards
  C% = 3
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 556
  blankcards
  C% = 5
  cardnumbers
  suits
  SOUND 600, 1
  DONE% = 1
  GOSUB 400
 END IF
 IF T1% = T4% THEN           'if card 4 = dealer
  win! = win!
  COLOR 14
  LOCATE 18, 1
  PRINT "TIE, TRY AGAIN?"
  SOUND 90, 3
  SOUND 62, 2
  GOSUB 300
 END IF
 IF T1% < T4% THEN           'if card 4 greater than dealer
  win! = v!
  COLOR 2
  SOUND 300, 3
  SOUND 500, 3
  SOUND 700, 3
  SOUND 900, 3
  COLOR 7
  delay
  x = 202                 'expose other three cards
  blankcards
  C% = 2
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 320
  blankcards
  C% = 3
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 556
  blankcards
  C% = 5
  cardnumbers
  suits
  SOUND 600, 1
  GOSUB 300
 END IF
END IF


'----------------------------------------------------
IF D5% = 1 THEN      'check card 5 (D5%)
 x = 556             'expose chosen card
 blankcards
 C% = 5
 cardnumbers
 suits
 IF T1% > T5% THEN           'if card 5 less than dealer
  win! = 0
  COLOR 4
  LOCATE 16, 1
  PRINT "YOU LOSE"
  SOUND 90, 3
  SOUND 62, 2
  COLOR 7
  delay
  x = 202                 'expose other three cards
  blankcards
  C% = 2
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 320
  blankcards
  C% = 3
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 438
  blankcards
  C% = 4
  cardnumbers
  suits
  SOUND 600, 1
  DONE% = 1
  GOSUB 400
 END IF
 IF T1% = T5% THEN           'if card 5 = dealer
  win! = win!
  COLOR 14
  LOCATE 18, 1
  PRINT "TIE, TRY AGAIN?"
  SOUND 90, 3
  SOUND 62, 2
  GOSUB 300
 END IF
 IF T1% < T5% THEN           'if card 5 greater than dealer
  win! = v!
  COLOR 2
  SOUND 300, 3
  SOUND 500, 3
  SOUND 700, 3
  SOUND 900, 3
  COLOR 7
  delay
  x = 202                 'expose other three cards
  blankcards
  C% = 2
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 320
  blankcards
  C% = 3
  cardnumbers
  suits
  SOUND 600, 1
  delay
  x = 438
  blankcards
  C% = 4
  cardnumbers
  suits
  SOUND 600, 1
  GOSUB 300
 END IF
END IF



 END IF     'for inkey Y
400 LOOP UNTIL DONE% = 1

END SUB

SUB firstdraw
RANDOMIZE TIMER
C1% = INT((RND * 100) / 1.9230679#) + 1
DO
C2% = INT((RND * 100) / 1.9230679#) + 1
LOOP UNTIL C2% <> C1%
DO
C3% = INT((RND * 100) / 1.9230679#) + 1
LOOP UNTIL C3% <> C2% AND C3% <> C1%
DO
C4% = INT((RND * 100) / 1.9230679#) + 1
LOOP UNTIL C4% <> C3% AND C4% <> C2% AND C4% <> C1%
DO
C5% = INT((RND * 100) / 1.9230679#) + 1
LOOP UNTIL C5% <> C4% AND C5% <> C3% AND C5% <> C2% AND C5% <> C1%
DO
C6% = INT((RND * 100) / 1.9230679#) + 1
LOOP UNTIL C6% <> C5% AND C6% <> C4% AND C6% <> C3% AND C6% <> C2% AND C6% <> C1%
DO
C7% = INT((RND * 100) / 1.9230679#) + 1
LOOP UNTIL C7% <> C6% AND C7% <> C5% AND C7% <> C4% AND C7% <> C3% AND C7% <> C2% AND C7% <> C1%
DO
C8% = INT((RND * 100) / 1.9230679#) + 1
LOOP UNTIL C8% <> C7% AND C8% <> C6% AND C8% <> C5% AND C8% <> C4% AND C8% <> C3% AND C8% <> C2% AND C8% <> C1%
DO
C9% = INT((RND * 100) / 1.9230679#) + 1
LOOP UNTIL C9% <> C8% AND C9% <> C7% AND C9% <> C6% AND C9% <> C5% AND C9% <> C4% AND C9% <> C3% AND C9% <> C2% AND C9% <> C1%
DO
C10% = INT((RND * 100) / 1.9230679#) + 1
LOOP UNTIL C10% <> C9% AND C10% <> C8% AND C10% <> C7% AND C10% <> C6% AND C10% <> C5% AND C10% <> C4% AND C10% <> C3% AND C10% <> C2% AND C10% <> C1%




FOR i% = 1 TO 52

  IF i% = C1% AND C1% > 0 AND C1% < 14 THEN
    CARD%(1, 5) = 1
    CARD%(1, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C1% THEN CARD%(1, 4) = j%
    NEXT j%
  END IF
  IF i% = C1% AND C1% > 13 AND C1% < 27 THEN
    CARD%(1, 5) = 2
    CARD%(1, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C1% THEN CARD%(1, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C1% AND C1% > 26 AND C1% < 40 THEN
    CARD%(1, 5) = 3
    CARD%(1, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C1% THEN CARD%(1, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C1% AND C1% > 39 AND C1% < 53 THEN
    CARD%(1, 5) = 4
    CARD%(1, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C1% THEN CARD%(1, 4) = j% - 39
    NEXT j%
  END IF


  IF i% = C2% AND C2% > 0 AND C2% < 14 THEN
    CARD%(2, 5) = 1
    CARD%(2, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C2% THEN CARD%(2, 4) = j%
    NEXT j%
  END IF
  IF i% = C2% AND C2% > 13 AND C2% < 27 THEN
    CARD%(2, 5) = 2
    CARD%(2, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C2% THEN CARD%(2, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C2% AND C2% > 26 AND C2% < 40 THEN
    CARD%(2, 5) = 3
    CARD%(2, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C2% THEN CARD%(2, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C2% AND C2% > 39 AND C2% < 53 THEN
    CARD%(2, 5) = 4
    CARD%(2, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C2% THEN CARD%(2, 4) = j% - 39
    NEXT j%
  END IF


  IF i% = C3% AND C3% > 0 AND C3% < 14 THEN
    CARD%(3, 5) = 1
    CARD%(3, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C3% THEN CARD%(3, 4) = j%
    NEXT j%
  END IF
  IF i% = C3% AND C3% > 13 AND C3% < 27 THEN
    CARD%(3, 5) = 2
    CARD%(3, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C3% THEN CARD%(3, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C3% AND C3% > 26 AND C3% < 40 THEN
    CARD%(3, 5) = 3
    CARD%(3, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C3% THEN CARD%(3, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C3% AND C3% > 39 AND C3% < 53 THEN
    CARD%(3, 5) = 4
    CARD%(3, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C3% THEN CARD%(3, 4) = j% - 39
    NEXT j%
  END IF


  IF i% = C4% AND C4% > 0 AND C4% < 14 THEN
    CARD%(4, 5) = 1
    CARD%(4, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C4% THEN CARD%(4, 4) = j%
    NEXT j%
  END IF
  IF i% = C4% AND C4% > 13 AND C4% < 27 THEN
    CARD%(4, 5) = 2
    CARD%(4, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C4% THEN CARD%(4, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C4% AND C4% > 26 AND C4% < 40 THEN
    CARD%(4, 5) = 3
    CARD%(4, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C4% THEN CARD%(4, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C4% AND C4% > 39 AND C4% < 53 THEN
    CARD%(4, 5) = 4
    CARD%(4, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C4% THEN CARD%(4, 4) = j% - 39
    NEXT j%
  END IF


  IF i% = C5% AND C5% > 0 AND C5% < 14 THEN
    CARD%(5, 5) = 1
    CARD%(5, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C5% THEN CARD%(5, 4) = j%
    NEXT j%
  END IF
  IF i% = C5% AND C5% > 13 AND C5% < 27 THEN
    CARD%(5, 5) = 2
    CARD%(5, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C5% THEN CARD%(5, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C5% AND C5% > 26 AND C5% < 40 THEN
    CARD%(5, 5) = 3
    CARD%(5, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C5% THEN CARD%(5, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C5% AND C5% > 39 AND C5% < 53 THEN
    CARD%(5, 5) = 4
    CARD%(5, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C5% THEN CARD%(5, 4) = j% - 39
    NEXT j%
  END IF

'-------------------------------------------------------------

  IF i% = C6% AND C6% > 0 AND C6% < 14 THEN
    CARD%(6, 5) = 1
    CARD%(6, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C6% THEN CARD%(6, 4) = j%
    NEXT j%
  END IF
  IF i% = C6% AND C6% > 13 AND C6% < 27 THEN
    CARD%(6, 5) = 2
    CARD%(6, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C6% THEN CARD%(6, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C6% AND C6% > 26 AND C6% < 40 THEN
    CARD%(6, 5) = 3
    CARD%(6, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C6% THEN CARD%(6, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C6% AND C6% > 39 AND C6% < 53 THEN
    CARD%(6, 5) = 4
    CARD%(6, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C6% THEN CARD%(6, 4) = j% - 39
    NEXT j%
  END IF


  IF i% = C7% AND C7% > 0 AND C7% < 14 THEN
    CARD%(7, 5) = 1
    CARD%(7, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C7% THEN CARD%(7, 4) = j%
    NEXT j%
  END IF
  IF i% = C7% AND C7% > 13 AND C7% < 27 THEN
    CARD%(7, 5) = 2
    CARD%(7, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C7% THEN CARD%(7, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C7% AND C7% > 26 AND C7% < 40 THEN
    CARD%(7, 5) = 3
    CARD%(7, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C7% THEN CARD%(7, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C7% AND C7% > 39 AND C7% < 53 THEN
    CARD%(7, 5) = 4
    CARD%(7, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C7% THEN CARD%(7, 4) = j% - 39
    NEXT j%
  END IF


  IF i% = C8% AND C8% > 0 AND C8% < 14 THEN
    CARD%(8, 5) = 1
    CARD%(8, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C8% THEN CARD%(8, 4) = j%
    NEXT j%
  END IF
  IF i% = C8% AND C8% > 13 AND C8% < 27 THEN
    CARD%(8, 5) = 2
    CARD%(8, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C8% THEN CARD%(8, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C8% AND C8% > 26 AND C8% < 40 THEN
    CARD%(8, 5) = 3
    CARD%(8, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C8% THEN CARD%(8, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C8% AND C8% > 39 AND C8% < 53 THEN
    CARD%(8, 5) = 4
    CARD%(8, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C8% THEN CARD%(8, 4) = j% - 39
    NEXT j%
  END IF


  IF i% = C9% AND C9% > 0 AND C9% < 14 THEN
    CARD%(9, 5) = 1
    CARD%(9, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C9% THEN CARD%(9, 4) = j%
    NEXT j%
  END IF
  IF i% = C9% AND C9% > 13 AND C9% < 27 THEN
    CARD%(9, 5) = 2
    CARD%(9, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C9% THEN CARD%(9, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C9% AND C9% > 26 AND C9% < 40 THEN
    CARD%(9, 5) = 3
    CARD%(9, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C9% THEN CARD%(9, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C9% AND C9% > 39 AND C9% < 53 THEN
    CARD%(9, 5) = 4
    CARD%(9, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C9% THEN CARD%(9, 4) = j% - 39
    NEXT j%
  END IF


  IF i% = C10% AND C10% > 0 AND C10% < 14 THEN
    CARD%(10, 5) = 1
    CARD%(10, 3) = 0
    FOR j% = 1 TO 13
      IF j% = C10% THEN CARD%(10, 4) = j%
    NEXT j%
  END IF
  IF i% = C10% AND C10% > 13 AND C10% < 27 THEN
    CARD%(10, 5) = 2
    CARD%(10, 3) = 0
    FOR j% = 14 TO 26
      IF j% = C10% THEN CARD%(10, 4) = j% - 13
    NEXT j%
  END IF
  IF i% = C10% AND C10% > 26 AND C10% < 40 THEN
    CARD%(10, 5) = 3
    CARD%(10, 3) = 4
    FOR j% = 27 TO 39
      IF j% = C10% THEN CARD%(10, 4) = j% - 26
    NEXT j%
  END IF
  IF i% = C10% AND C10% > 39 AND C10% < 53 THEN
    CARD%(10, 5) = 4
    CARD%(10, 3) = 4
    FOR j% = 40 TO 52
      IF j% = C10% THEN CARD%(10, 4) = j% - 39
    NEXT j%
  END IF
NEXT i%

END SUB

SUB flush
IF FLAG% = 0 THEN

W% = 25
k% = 0
FOR j% = 1 TO 40 STEP 13
k% = k% + 13
      F% = 0
      FOR i% = j% TO k%
      IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
       F% = F% + 1
      END IF
      NEXT i%
       IF F% = 5 THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FLUSH"
             SOUND 400, 3
             doubleup
       END IF
IF k% >= 52 THEN EXIT FOR
NEXT j%
ELSE
END IF

END SUB

SUB fourofakind
W% = 125
F% = 0
FOR i% = 1 TO 40 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 2 TO 41 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 3 TO 42 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 4 TO 43 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 5 TO 44 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 6 TO 45 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 7 TO 46 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 8 TO 47 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 9 TO 48 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 10 TO 49 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 11 TO 50 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 12 TO 51 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 13 TO 52 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 4 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "FOUR OF A KIND"
           SOUND 400, 3
           doubleup
 END IF

END SUB

SUB fullhouse
W% = 40
k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C3% OR i% = C4% OR i% = C5% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C1% = (C2% + 13) OR C1% = (C2% - 13) OR C1% = (C2% + 26) OR C1% = (C2% - 26) OR C1% = (C2% + 39) OR C1% = (C2% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
           doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%



k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C2% OR i% = C4% OR i% = C5% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C1% = (C3% + 13) OR C1% = (C3% - 13) OR C1% = (C3% + 26) OR C1% = (C3% - 26) OR C1% = (C3% + 39) OR C1% = (C3% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
             doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%



k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C2% OR i% = C3% OR i% = C5% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C1% = (C4% + 13) OR C1% = (C4% - 13) OR C1% = (C4% + 26) OR C1% = (C4% - 26) OR C1% = (C4% + 39) OR C1% = (C4% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
           doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%



k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C2% OR i% = C3% OR i% = C4% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C1% = (C5% + 13) OR C1% = (C5% - 13) OR C1% = (C5% + 26) OR C1% = (C5% - 26) OR C1% = (C5% + 39) OR C1% = (C5% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
           doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%



k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C1% OR i% = C4% OR i% = C5% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C2% = (C3% + 13) OR C2% = (C3% - 13) OR C2% = (C3% + 26) OR C2% = (C3% - 26) OR C2% = (C3% + 39) OR C2% = (C3% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
             doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%



k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C1% OR i% = C3% OR i% = C5% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C2% = (C4% + 13) OR C2% = (C4% - 13) OR C2% = (C4% + 26) OR C2% = (C4% - 26) OR C2% = (C4% + 39) OR C2% = (C4% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
             doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%



k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C1% OR i% = C3% OR i% = C4% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C2% = (C5% + 13) OR C2% = (C5% - 13) OR C2% = (C5% + 26) OR C2% = (C5% - 26) OR C2% = (C5% + 39) OR C2% = (C5% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
             doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%



k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C1% OR i% = C2% OR i% = C5% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C3% = (C4% + 13) OR C3% = (C4% - 13) OR C3% = (C4% + 26) OR C3% = (C4% - 26) OR C3% = (C4% + 39) OR C3% = (C4% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
             doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%



k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C1% OR i% = C2% OR i% = C4% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C3% = (C5% + 13) OR C3% = (C5% - 13) OR C3% = (C5% + 26) OR C3% = (C5% - 26) OR C3% = (C5% + 39) OR C3% = (C5% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
             doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%



k% = 39
FOR j% = 1 TO 13
k% = k% + 1
      F% = 0
      FOR i% = j% TO k% STEP 13
       IF i% = C1% OR i% = C2% OR i% = C3% THEN
        F% = F% + 1
       END IF
      NEXT i%
       IF F% = 3 THEN
          IF C4% = (C5% + 13) OR C4% = (C5% - 13) OR C4% = (C5% + 26) OR C4% = (C5% - 26) OR C4% = (C5% + 39) OR C4% = (C5% - 39) THEN
             COLOR 5
             LOCATE 17, 1
             PRINT "FULL HOUSE"
             SOUND 400, 3
             doubleup
          END IF
       END IF
IF k% = 53 THEN EXIT FOR
NEXT j%

END SUB

SUB jacksorbetter
IF FLAG% = 0 THEN

W% = 5
              'create temporary card numbers
T1% = C1%
T2% = C2%
T3% = C3%
T4% = C4%
T5% = C5%
                    'change all card numbers to between 1 and 13(all one suit)
FOR i% = 1 TO 13
IF T1% = i% OR T1% = (i% + 13) OR T1% = (i% + 26) OR T1% = (i% + 39) THEN T1% = i%
IF T2% = i% OR T2% = (i% + 13) OR T2% = (i% + 26) OR T2% = (i% + 39) THEN T2% = i%
IF T3% = i% OR T3% = (i% + 13) OR T3% = (i% + 26) OR T3% = (i% + 39) THEN T3% = i%
IF T4% = i% OR T4% = (i% + 13) OR T4% = (i% + 26) OR T4% = (i% + 39) THEN T4% = i%
IF T5% = i% OR T5% = (i% + 13) OR T5% = (i% + 26) OR T5% = (i% + 39) THEN T5% = i%
NEXT i%

                                  'change low ace to high ace
IF T1% = 1 THEN T1% = 14
IF T2% = 1 THEN T2% = 14
IF T3% = 1 THEN T3% = 14
IF T4% = 1 THEN T4% = 14
IF T5% = 1 THEN T5% = 14


FOR i% = 11 TO 14
   IF i% = T1% AND i% = T2% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%

FOR i% = 11 TO 14
   IF i% = T1% AND i% = T3% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%

FOR i% = 11 TO 14
   IF i% = T1% AND i% = T4% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%

FOR i% = 11 TO 14
   IF i% = T1% AND i% = T5% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%

FOR i% = 11 TO 14
   IF i% = T2% AND i% = T3% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%

FOR i% = 11 TO 14
   IF i% = T2% AND i% = T4% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%

FOR i% = 11 TO 14
   IF i% = T2% AND i% = T5% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%

FOR i% = 11 TO 14
   IF i% = T3% AND i% = T4% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%

FOR i% = 11 TO 14
   IF i% = T3% AND i% = T5% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%

FOR i% = 11 TO 14
   IF i% = T4% AND i% = T5% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "JACKS OR BETTER"
            SOUND 400, 3
           doubleup
   END IF
NEXT i%
ELSE
END IF

END SUB

SUB pay
COLOR 6
LOCATE 23, 41
PRINT "Cost per game: $0.25 times BET amount."

COLOR 7
BANK! = BANK! + win! - (.25 * B%)
IF BANK! > 0 THEN COLOR 2
IF BANK! = 0 THEN COLOR 14
IF BANK! < 0 THEN COLOR 4
LOCATE 24, 41
tmp$ = "TOTAL NET WINNINGS (-LOSS): $$#####.##"
BANK! = BANK
PRINT USING tmp$; BANK
COLOR 7

COLOR 6
LOCATE 24, 1
PRINT "Games played:"; GAMES%
COLOR 7



END SUB

SUB royalflush
W% = 2000
F% = 0
FOR i% = 1 TO 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
 F% = F% + 1
ELSE
END IF
NEXT i%
 IF F% = 5 THEN
   IF C1% = 10 OR C2% = 10 OR C3% = 10 OR C4% = 10 OR C5% = 10 THEN
     IF C1% = 11 OR C2% = 11 OR C3% = 11 OR C4% = 11 OR C5% = 11 THEN
       IF C1% = 12 OR C2% = 12 OR C3% = 12 OR C4% = 12 OR C5% = 12 THEN
         IF C1% = 13 OR C2% = 13 OR C3% = 13 OR C4% = 13 OR C5% = 13 THEN
           IF C1% = 1 OR C2% = 1 OR C3% = 1 OR C4% = 1 OR C5% = 1 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "R O Y A L  F L U S H  C L U B S"
           SOUND 400, 3
           doubleup
           ELSE
           END IF
         ELSE
         END IF
       ELSE
       END IF
     ELSE
     END IF
   ELSE
   END IF
 ELSE
 END IF

F% = 0
FOR i% = 14 TO 26
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
 F% = F% + 1
ELSE
END IF
NEXT i%
 IF F% = 5 THEN
   IF C1% = 23 OR C2% = 23 OR C3% = 23 OR C4% = 23 OR C5% = 23 THEN
     IF C1% = 24 OR C2% = 24 OR C3% = 24 OR C4% = 24 OR C5% = 24 THEN
       IF C1% = 25 OR C2% = 25 OR C3% = 25 OR C4% = 25 OR C5% = 25 THEN
         IF C1% = 26 OR C2% = 26 OR C3% = 26 OR C4% = 26 OR C5% = 26 THEN
           IF C1% = 14 OR C2% = 14 OR C3% = 14 OR C4% = 14 OR C5% = 14 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "R O Y A L  F L U S H  H E A R T S"
            
           SOUND 400, 3
           doubleup
           ELSE
           END IF
         ELSE
         END IF
       ELSE
       END IF
     ELSE
     END IF
   ELSE
   END IF
 ELSE
 END IF

F% = 0
FOR i% = 27 TO 39
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
 F% = F% + 1
ELSE
END IF
NEXT i%
 IF F% = 5 THEN
   IF C1% = 36 OR C2% = 36 OR C3% = 36 OR C4% = 36 OR C5% = 36 THEN
     IF C1% = 37 OR C2% = 37 OR C3% = 37 OR C4% = 37 OR C5% = 37 THEN
       IF C1% = 38 OR C2% = 38 OR C3% = 38 OR C4% = 38 OR C5% = 38 THEN
         IF C1% = 39 OR C2% = 39 OR C3% = 39 OR C4% = 39 OR C5% = 39 THEN
           IF C1% = 27 OR C2% = 27 OR C3% = 27 OR C4% = 27 OR C5% = 27 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "R O Y A L  F L U S H  D I A M O N D S"
            
           SOUND 400, 3
           doubleup
           ELSE
           END IF
         ELSE
         END IF
       ELSE
       END IF
     ELSE
     END IF
   ELSE
   END IF
 ELSE
 END IF

F% = 0
FOR i% = 40 TO 52
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
 F% = F% + 1
ELSE
END IF
NEXT i%
 IF F% = 5 THEN
   IF C1% = 49 OR C2% = 49 OR C3% = 49 OR C4% = 49 OR C5% = 49 THEN
     IF C1% = 50 OR C2% = 50 OR C3% = 50 OR C4% = 50 OR C5% = 50 THEN
       IF C1% = 51 OR C2% = 51 OR C3% = 51 OR C4% = 51 OR C5% = 51 THEN
         IF C1% = 52 OR C2% = 52 OR C3% = 52 OR C4% = 52 OR C5% = 52 THEN
           IF C1% = 40 OR C2% = 40 OR C3% = 40 OR C4% = 40 OR C5% = 40 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "R O Y A L  F L U S H  S P A D E S"
            
           SOUND 400, 3
           doubleup
           ELSE
           END IF
         ELSE
         END IF
       ELSE
       END IF
     ELSE
     END IF
   ELSE
   END IF
 ELSE
 END IF

END SUB

SUB straight
IF FLAG% = 0 THEN

W% = 20              'create temporary card numbers
T1% = C1%
T2% = C2%
T3% = C3%
T4% = C4%
T5% = C5%
                    'change all card numbers to between 1 and 13(all one suit)
FOR i% = 1 TO 13
IF T1% = i% OR T1% = (i% + 13) OR T1% = (i% + 26) OR T1% = (i% + 39) THEN T1% = i%
IF T2% = i% OR T2% = (i% + 13) OR T2% = (i% + 26) OR T2% = (i% + 39) THEN T2% = i%
IF T3% = i% OR T3% = (i% + 13) OR T3% = (i% + 26) OR T3% = (i% + 39) THEN T3% = i%
IF T4% = i% OR T4% = (i% + 13) OR T4% = (i% + 26) OR T4% = (i% + 39) THEN T4% = i%
IF T5% = i% OR T5% = (i% + 13) OR T5% = (i% + 26) OR T5% = (i% + 39) THEN T5% = i%
NEXT i%


  S% = 0
  FOR i% = 1 TO 5
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
           doubleup
  END IF

  S% = 0
  FOR i% = 2 TO 6
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
           doubleup
  END IF

  S% = 0
  FOR i% = 3 TO 7
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
           doubleup
  END IF

  S% = 0
  FOR i% = 4 TO 8
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
           doubleup
  END IF

  S% = 0
  FOR i% = 5 TO 9
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
           doubleup
  END IF

  S% = 0
  FOR i% = 6 TO 10
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
           doubleup
  END IF

  S% = 0
  FOR i% = 7 TO 11
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
            doubleup
  END IF

  S% = 0
  FOR i% = 8 TO 12
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
            doubleup
  END IF

  S% = 0
  FOR i% = 9 TO 13
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
           doubleup
  END IF

                                  'change low ace to high ace
IF T1% = 1 THEN T1% = 14
IF T2% = 1 THEN T2% = 14
IF T3% = 1 THEN T3% = 14
IF T4% = 1 THEN T4% = 14
IF T5% = 1 THEN T5% = 14

  S% = 0
  FOR i% = 10 TO 14
   IF T1% = i% OR T2% = i% OR T3% = i% OR T4% = i% OR T5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT"
            SOUND 400, 3
            doubleup
  END IF
ELSE
END IF

END SUB

SUB straightflush
IF FLAG% = 0 THEN

W% = 250
F% = 0
FOR i% = 1 TO 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
 F% = F% + 1
ELSE
END IF
NEXT i%
 IF F% = 5 THEN
  S% = 0
  FOR i% = 1 TO 5
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 2 TO 6
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 3 TO 7
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 4 TO 8
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 5 TO 9
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 6 TO 10
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            SOUND 400, 3
          
           doubleup
  END IF
  S% = 0
  FOR i% = 7 TO 11
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 8 TO 12
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 9 TO 13
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            SOUND 400, 3
          
           doubleup
  END IF
 END IF



F% = 0
FOR i% = 14 TO 26
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
 F% = F% + 1
ELSE
END IF
NEXT i%
 IF F% = 5 THEN
  S% = 0
  FOR i% = 14 TO 18
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 15 TO 19
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 16 TO 20
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 17 TO 21
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 18 TO 22
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 19 TO 23
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 20 TO 24
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 21 TO 25
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            SOUND 400, 3
          
           doubleup
  END IF
  S% = 0
  FOR i% = 22 TO 26
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
 END IF



F% = 0
FOR i% = 27 TO 39
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
 F% = F% + 1
ELSE
END IF
NEXT i%
 IF F% = 5 THEN
  S% = 0
  FOR i% = 27 TO 31
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 28 TO 32
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 29 TO 33
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 30 TO 34
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            SOUND 400, 3
          
           doubleup
  END IF
  S% = 0
  FOR i% = 31 TO 35
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            SOUND 400, 3
          
           doubleup
  END IF
  S% = 0
  FOR i% = 32 TO 36
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 33 TO 37
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            SOUND 400, 3
          
           doubleup
  END IF
  S% = 0
  FOR i% = 34 TO 38
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 35 TO 39
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
 END IF


F% = 0
FOR i% = 40 TO 52
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
 F% = F% + 1
ELSE
END IF
NEXT i%
 IF F% = 5 THEN
  S% = 0
  FOR i% = 40 TO 44
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            SOUND 400, 3
          
           doubleup
  END IF
  S% = 0
  FOR i% = 41 TO 45
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            SOUND 400, 3
          
           doubleup
  END IF
  S% = 0
  FOR i% = 42 TO 46
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            SOUND 400, 3
          
           doubleup
  END IF
  S% = 0
  FOR i% = 43 TO 47
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 44 TO 48
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 45 TO 49
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 46 TO 50
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 47 TO 51
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
           doubleup
  END IF
  S% = 0
  FOR i% = 48 TO 52
   IF C1% = i% OR C2% = i% OR C3% = i% OR C4% = i% OR C5% = i% THEN
   S% = S% + 1
   END IF
  NEXT i%
  IF S% = 5 THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "STRAIGHT FLUSH"
            
            SOUND 400, 3
            doubleup
  END IF
 END IF
ELSE
END IF

END SUB

SUB suits

SELECT CASE CARD%(C%, 5)

CASE 1
  CIRCLE (x, y - 8.75), 6, 1, 5.236, 4.1888              'draws club
  CIRCLE (x - 8.19, y - .56), 6, 1, .5236, 5.7596
  CIRCLE (x + 8.19, y - .56), 6, 1, 3.6652, 2.618
  CIRCLE (x - 19.9145, y + 8.6), 18, 1, 5.9341, .3491
  CIRCLE (x + 19.9145, y + 8.6), 18, 1, 2.7925, 3.4907
  LINE (x - 3, y + 14.75)-(x + 3, y + 14.75), 1
  PAINT (x, y), 0, 1                                     'fills to border of suit

CASE 2
  CIRCLE (x - 8, y + 2.44), 5, 1, 2.4435, 0              'draws spade
  LINE (x - 11.912, y - .56)-(x, y - 14.75), 1
  CIRCLE (x + 8, y + 2.44), 5, 1, 3.1416, .6981
  LINE (x + 11.912, y - .56)-(x, y - 14.75), 1
  CIRCLE (x - 19.9145, y + 8.6), 18, 1, 5.9341, .3491
  CIRCLE (x + 19.9145, y + 8.6), 18, 1, 2.7925, 3.4907
  LINE (x - 3, y + 14.75)-(x + 3, y + 14.75), 1
  PAINT (x, y), 0, 1                                     'fills to border of suit

CASE 3
  CIRCLE (x - 7, y - 7.75), 7, 1, 0, 3.7446              'draws heart
  CIRCLE (x + 7, y - 7.75), 7, 1, 5.6802, 3.1416
  LINE (x - 12.7654, y - 3.7845)-(x, y + 14.75), 1
  LINE (x + 12.7654, y - 3.7845)-(x, y + 14.75), 1
  PAINT (x, y), 4, 1                                     'fills to border of suit
 
CASE 4
  LINE (x - 10, y)-(x, y + 14.75), 1                     'draws diamond
  LINE (x + 10, y)-(x, y + 14.75), 1
  LINE (x - 10, y)-(x, y - 14.75), 1
  LINE (x + 10, y)-(x, y - 14.75), 1
  PAINT (x, y), 4, 1                                     'fills to border of suit

END SELECT

END SUB

SUB threeofakind
IF FLAG% = 0 THEN

W% = 15
F% = 0
FOR i% = 1 TO 40 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 2 TO 41 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 3 TO 42 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 4 TO 43 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF
F% = 0

FOR i% = 5 TO 44 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF

F% = 0
FOR i% = 6 TO 45 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF
F% = 0

FOR i% = 7 TO 46 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF
F% = 0

FOR i% = 8 TO 47 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF
F% = 0

FOR i% = 9 TO 48 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF
F% = 0

FOR i% = 10 TO 49 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF
F% = 0

FOR i% = 11 TO 50 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF
F% = 0

FOR i% = 12 TO 51 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF
F% = 0

FOR i% = 13 TO 52 STEP 13
 IF i% = C1% OR i% = C2% OR i% = C3% OR i% = C4% OR i% = C5% THEN
  F% = F% + 1
 END IF
NEXT i%
 IF F% = 3 THEN
 COLOR 5
 LOCATE 17, 1
 PRINT "THREE OF A KIND"
 SOUND 400, 3
           doubleup
 END IF
ELSE
END IF

END SUB

SUB twopair
IF FLAG% = 0 THEN

W% = 10              'create temporary card numbers
T1% = C1%
T2% = C2%
T3% = C3%
T4% = C4%
T5% = C5%
                    'change all card numbers to between 1 and 13(all one suit)
FOR i% = 1 TO 13
IF T1% = i% OR T1% = (i% + 13) OR T1% = (i% + 26) OR T1% = (i% + 39) THEN T1% = i%
IF T2% = i% OR T2% = (i% + 13) OR T2% = (i% + 26) OR T2% = (i% + 39) THEN T2% = i%
IF T3% = i% OR T3% = (i% + 13) OR T3% = (i% + 26) OR T3% = (i% + 39) THEN T3% = i%
IF T4% = i% OR T4% = (i% + 13) OR T4% = (i% + 26) OR T4% = (i% + 39) THEN T4% = i%
IF T5% = i% OR T5% = (i% + 13) OR T5% = (i% + 26) OR T5% = (i% + 39) THEN T5% = i%
NEXT i%

  IF T1% = T2% AND T3% = T4% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T5% = T1% AND T2% = T3% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T4% = T5% AND T1% = T2% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T3% = T4% AND T5% = T1% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T2% = T3% AND T4% = T5% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T4% = T1% AND T2% = T3% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T3% = T5% AND T1% = T2% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T2% = T4% AND T5% = T1% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T1% = T3% AND T4% = T5% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T5% = T2% AND T3% = T4% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T2% = T4% AND T3% = T1% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T1% = T4% AND T5% = T2% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T1% = T4% AND T5% = T3% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T2% = T4% AND T5% = T3% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
  IF T1% = T3% AND T2% = T5% THEN
            COLOR 5
            LOCATE 17, 1
            PRINT "TWO PAIR"
            SOUND 400, 3
           doubleup
  END IF
ELSE
END IF

END SUB