HELP Please. mini-blackjack game

sad321 · Jan 17, 2007

So far my code is this:

DECLARE SUB heart ()
DECLARE SUB diamond ()
DECLARE SUB club ()
DECLARE SUB spade ()
DECLARE SUB display ()
DECLARE SUB score ()

DIM deck(52)
FOR card = 1 TO 52
deck(card) = card
NEXT card
scoreplayer = 0
scoredealer = 0

reshuffle:

RANDOMIZE TIMER
FOR ctr = 1 TO 50
a = INT(52 * RND) + 1
B = INT(52 * RND) + 1
SWAP deck(a), deck(B)
NEXT ctr

card = 0

playagain:
CLS
SCREEN 7
LINE (0, 0)-(320, 200), 7, BF
LINE (128, -1)-(228, 10), 15, BF
LINE (128, -1)-(228, 10), 1, B
LINE (5, 165)-(265, 185), 15, BF
LINE (5, 165)-(265, 185), 1, B
LINE (2, 94)-(41, 104), 15, BF
LINE (2, 94)-(41, 104), 1, B
LINE (2, 6)-(65, 16), 15, BF
LINE (2, 6)-(65, 16), 1, B

COLOR 1, 2

LOCATE 1, 18
PRINT "Black Jack"
LOCATE 2, 2
PRINT "Dealer:"
LOCATE 13, 2
PRINT "You:"

CALL score

totaldealer = 0
totalplayer = 0
totaldealer2 = 0
totalplayer2 = 0
ace.yes.no.dealer = 0
ace.yes.no.player = 0

LOCATE 4, 2

x = 2
y = 4

LINE (5, 20)-(45, 70), 4, BF
LINE (5, 20)-(45, 70), 1, B
LINE (6, 21)-(44, 69), 15, B

card1 = 1

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

cardoriginal = card

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no

card1 = 0

x = 2
y = 4
cardx = 5
cardy = 20

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no
x = -4
y = 15
cardx = -43
cardy = 107

ctr = 0

hit:

ctr = ctr + 1

total = totalplayer
total2 = totalplayer2
ace.yes.no = ace.yes.no.player

CALL display

totalplayer = total
totalplayer2 = total2
ace.yes.no.player = ace.yes.no

IF totalplayer > 21 THEN
GOTO over
END IF

IF ctr = 1 THEN
GOTO hit
END IF

LOCATE 22, 2
PRINT "Total-"; totalplayer;
IF ace.yes.no.player = 1 AND totalplayer2 <= 21 THEN
LOCATE 22, 2
PRINT "Total-"; totalplayer2; "or"; totalplayer;
END IF

LOCATE 23, 2
PRINT "Do you want to (H)it or (S)tay?"

getkey:
h.s$ = INKEY$
SELECT CASE h.s$
CASE "h"
GOTO hit
CASE "s"
GOTO stay
END SELECT
GOTO getkey

stay:

LOCATE 23, 2
PRINT

IF ace.yes.no.player = 1 AND totalplayer2 <= 21 THEN
totalplayer = totalplayer2
END IF

x = -4
y = 4
cardx = -43
cardy = 20
realcard = card

card = cardoriginal

CALL display

cardvalue = 0
cardx = 53
x = 8

card = realcard

IF totaldealer >= 17 OR totaldealer2 >= 17 THEN
GOTO staydealer
END IF

dealercount = 0

hitdealer:

dealercount = dealercount + 1
LOCATE dealercount, 38
PRINT dealercount

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no

IF ace.yes.no.dealer = 1 AND totaldealer2 <= 21 THEN
IF totaldealer2 < 17 THEN
GOTO hitdealer
END IF
ELSE
IF totaldealer < 17 THEN
GOTO hitdealer
END IF
END IF

staydealer:

IF ace.yes.no.dealer = 1 AND totaldealer2 <= 21 THEN
totaldealer = totaldealer2
END IF

LINE (5, 78)-(145, 88), 15, BF
LINE (5, 78)-(145, 88), 1, B

LOCATE 11, 2
PRINT "Dealer Total:"; totaldealer

IF totaldealer > 21 THEN
GOTO win
END IF
IF totalplayer > totaldealer THEN
GOTO win
END IF

LOCATE 23, 2
PRINT "The Dealer just owned you. "
scoredealer = scoredealer + 1
GOTO again

win:
LOCATE 23, 2
PRINT "Congratz you won Blackjack! "
scoreplayer = scoreplayer + 1
GOTO again

over:
LOCATE 22, 2
PRINT "Total:"; totalplayer;
LOCATE 23, 2
PRINT "You busted.Learn to count loser."
scoredealer = scoredealer + 1
GOTO again

again:
CALL score
LOCATE 22, 19
PRINT "Play again? y/n"
getkey2:
getkey$ = INKEY$
SELECT CASE getkey$
CASE "y"
GOTO again2
CASE "n"
GOTO quit
END SELECT
GOTO getkey2

again2:
IF card > 42 THEN
DO
y.n$ = INKEY$
LOOP UNTIL y.n$ <> ""
GOTO reshuffle
END IF
GOTO playagain

quit:
END

SUB club

SHARED x
SHARED y
SHARED card1
COLOR 1

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(5)

END SUB

SUB diamond

SHARED x
SHARED y
SHARED card1
COLOR 4

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(4)

END SUB

SUB display

COLOR 1, 15

SHARED deck()
SHARED playcard
SHARED card
SHARED cardx
SHARED cardy
SHARED card1
SHARED ace.yes.no
SHARED total
SHARED total2
SHARED x
SHARED y

card = card + 1
playcard = deck(card)
cardx = cardx + 48
x = x + 6

LOCATE y, x

IF card1 = 0 THEN
LINE (cardx, cardy)-(cardx + 40, cardy + 50), 15, BF
LINE (cardx, cardy)-(cardx + 40, cardy + 50), 1, B
END IF

IF playcard = 1 THEN
cardvalue = 0
PRINT "A"
CALL heart
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 2 THEN
cardvalue = 0
PRINT "A"
CALL diamond
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 3 THEN
cardvalue = 0
PRINT "A"
CALL club
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 4 THEN
cardvalue = 0
PRINT "A"
CALL spade
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 5 THEN
cardvalue = 2
CALL heart
END IF

IF playcard = 6 THEN
cardvalue = 2
CALL diamond
END IF

IF playcard = 7 THEN
cardvalue = 2
CALL club
END IF

IF playcard = 8 THEN
cardvalue = 2
CALL spade
END IF

IF playcard = 9 THEN
cardvalue = 3
CALL heart
END IF

IF playcard = 10 THEN
cardvalue = 3
CALL diamond
END IF

IF playcard = 11 THEN
cardvalue = 3
CALL club
END IF

IF playcard = 12 THEN
cardvalue = 3
CALL spade
END IF

IF playcard = 13 THEN
cardvalue = 4
CALL heart
END IF

IF playcard = 14 THEN
cardvalue = 4
CALL diamond
END IF

IF playcard = 15 THEN
cardvalue = 4
CALL club
END IF

IF playcard = 16 THEN
cardvalue = 4
CALL spade
END IF

IF playcard = 17 THEN
cardvalue = 5
CALL heart
END IF

IF playcard = 18 THEN
cardvalue = 5
CALL diamond
END IF

IF playcard = 19 THEN
cardvalue = 5
CALL club
END IF

IF playcard = 20 THEN
cardvalue = 5
CALL spade
END IF

IF playcard = 21 THEN
cardvalue = 6
CALL heart
END IF

IF playcard = 22 THEN
cardvalue = 6
CALL diamond
END IF

IF playcard = 23 THEN
cardvalue = 6
CALL club
END IF

IF playcard = 24 THEN
cardvalue = 6
CALL spade
END IF

IF playcard = 25 THEN
cardvalue = 7
CALL heart
END IF

IF playcard = 26 THEN
cardvalue = 7
CALL diamond
END IF

IF playcard = 27 THEN
cardvalue = 7
CALL club
END IF

IF playcard = 28 THEN
cardvalue = 7
CALL spade
END IF

IF playcard = 29 THEN
cardvalue = 8
CALL heart
END IF

IF playcard = 30 THEN
cardvalue = 8
CALL diamond
END IF

IF playcard = 31 THEN
cardvalue = 8
CALL club
END IF

IF playcard = 32 THEN
cardvalue = 8
CALL spade
END IF

IF playcard = 33 THEN
cardvalue = 9
CALL heart
END IF

IF playcard = 34 THEN
cardvalue = 9
CALL diamond
END IF

IF playcard = 35 THEN
cardvalue = 9
CALL club
END IF

IF playcard = 36 THEN
cardvalue = 9
CALL spade
END IF

IF playcard = 37 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 38 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 39 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 40 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 41 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 42 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 43 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 44 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 45 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 46 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 47 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 48 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 49 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 50 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 51 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 52 THEN
cardvalue = 10
CALL spade
END IF

LOCATE y, x

PRINT cardvalue

LOCATE y, x

IF cardvalue = 0 THEN
PRINT " A "
END IF

IF playcard > 48 AND playcard < 53 THEN
PRINT " K "
END IF

IF playcard > 44 AND playcard < 49 THEN
PRINT " Q "
END IF

IF playcard > 40 AND playcard < 45 THEN
PRINT " J "
END IF

COLOR 1

total = total + cardvalue
total2 = total2 + cardvalue

END SUB

SUB heart

SHARED x
SHARED y
SHARED card1

COLOR 4

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(3)

END SUB

SUB score
SHARED scoredealer
SHARED scoreplayer
LINE (154, 77)-(312, 97), 15, BF 'box around "Score: ..."
LINE (154, 77)-(312, 97), 1, B ' "
LOCATE 11, 22
PRINT "Score: Dealer-"; scoredealer
LOCATE 12, 29
PRINT "You- "; scoreplayer
END SUB

SUB spade

SHARED x
SHARED y
SHARED card1

COLOR 1

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(6)

END SUB

I need this to drop the keeping score feature in the game but when i remove the code i mess something up and it wont run agian can anyone help me?. any help is apriciated.

Buff1 · Jan 20, 2007

Try remming out all the lines in score (you can leave the
SHARED lines alone) and put a locate 13,1 before the end
sub

zolken1 · Apr 19, 2007

I just went in and removed the score sub, and all the score calcualation and it works fine.

Try it out

DECLARE SUB heart ()
DECLARE SUB diamond ()
DECLARE SUB club ()
DECLARE SUB spade ()
DECLARE SUB display ()

DIM deck(52)
FOR card = 1 TO 52
deck(card) = card
NEXT card

reshuffle:

RANDOMIZE TIMER
FOR ctr = 1 TO 50
a = INT(52 * RND) + 1
B = INT(52 * RND) + 1
SWAP deck(a), deck(B)
NEXT ctr

card = 0

playagain:
CLS
SCREEN 7
LINE (0, 0)-(320, 200), 7, BF
LINE (128, -1)-(228, 10), 15, BF
LINE (128, -1)-(228, 10), 1, B
LINE (5, 165)-(265, 185), 15, BF
LINE (5, 165)-(265, 185), 1, B
LINE (2, 94)-(41, 104), 15, BF
LINE (2, 94)-(41, 104), 1, B
LINE (2, 6)-(65, 16), 15, BF
LINE (2, 6)-(65, 16), 1, B

COLOR 1, 2

LOCATE 1, 18
PRINT "Black Jack"
LOCATE 2, 2
PRINT "Dealer:"
LOCATE 13, 2
PRINT "You:"

totaldealer = 0
totalplayer = 0
totaldealer2 = 0
totalplayer2 = 0
ace.yes.no.dealer = 0
ace.yes.no.player = 0

LOCATE 4, 2

x = 2
y = 4

LINE (5, 20)-(45, 70), 4, BF
LINE (5, 20)-(45, 70), 1, B
LINE (6, 21)-(44, 69), 15, B

card1 = 1

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

cardoriginal = card

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no

card1 = 0

x = 2
y = 4
cardx = 5
cardy = 20

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no
x = -4
y = 15
cardx = -43
cardy = 107

ctr = 0

hit:

ctr = ctr + 1

total = totalplayer
total2 = totalplayer2
ace.yes.no = ace.yes.no.player

CALL display

totalplayer = total
totalplayer2 = total2
ace.yes.no.player = ace.yes.no

IF totalplayer > 21 THEN
GOTO over
END IF

IF ctr = 1 THEN
GOTO hit
END IF

LOCATE 22, 2
PRINT "Total-"; totalplayer;
IF ace.yes.no.player = 1 AND totalplayer2 <= 21 THEN
LOCATE 22, 2
PRINT "Total-"; totalplayer2; "or"; totalplayer;
END IF

LOCATE 23, 2
PRINT "Do you want to (H)it or (S)tay?"

getkey:
h.s$ = INKEY$
SELECT CASE h.s$
CASE "h"
GOTO hit
CASE "s"
GOTO stay
END SELECT
GOTO getkey

stay:

LOCATE 23, 2
PRINT

IF ace.yes.no.player = 1 AND totalplayer2 <= 21 THEN
totalplayer = totalplayer2
END IF

x = -4
y = 4
cardx = -43
cardy = 20
realcard = card

card = cardoriginal

CALL display

cardvalue = 0
cardx = 53
x = 8

card = realcard

IF totaldealer >= 17 OR totaldealer2 >= 17 THEN
GOTO staydealer
END IF

dealercount = 0

hitdealer:

dealercount = dealercount + 1
LOCATE dealercount, 38
PRINT dealercount

total = totaldealer
total2 = totaldealer2
ace.yes.no = ace.yes.no.dealer

CALL display

totaldealer = total
totaldealer2 = total2
ace.yes.no.dealer = ace.yes.no

IF ace.yes.no.dealer = 1 AND totaldealer2 <= 21 THEN
IF totaldealer2 < 17 THEN
GOTO hitdealer
END IF
ELSE
IF totaldealer < 17 THEN
GOTO hitdealer
END IF
END IF

staydealer:

IF ace.yes.no.dealer = 1 AND totaldealer2 <= 21 THEN
totaldealer = totaldealer2
END IF

LINE (5, 78)-(145, 88), 15, BF
LINE (5, 78)-(145, 88), 1, B

LOCATE 11, 2
PRINT "Dealer Total:"; totaldealer

IF totaldealer > 21 THEN
GOTO win
END IF
IF totalplayer > totaldealer THEN
GOTO win
END IF

LOCATE 23, 2
PRINT "The Dealer just owned you. "

GOTO again

win:
LOCATE 23, 2
PRINT "Congratz you won Blackjack! "

GOTO again

over:
LOCATE 22, 2
PRINT "Total:"; totalplayer;
LOCATE 23, 2
PRINT "You busted.Learn to count loser."

GOTO again

again:

LOCATE 22, 19
PRINT "Play again? y/n"
getkey2:
getkey$ = INKEY$
SELECT CASE getkey$
CASE "y"
GOTO again2
CASE "n"
GOTO quit
END SELECT
GOTO getkey2

again2:
IF card > 42 THEN
DO
y.n$ = INKEY$
LOOP UNTIL y.n$ <> ""
GOTO reshuffle
END IF
GOTO playagain

quit:
END

SUB club

SHARED x
SHARED y
SHARED card1
COLOR 1

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(5)

END SUB

SUB diamond

SHARED x
SHARED y
SHARED card1
COLOR 4

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(4)

END SUB

SUB display

COLOR 1, 15

SHARED deck()
SHARED playcard
SHARED card
SHARED cardx
SHARED cardy
SHARED card1
SHARED ace.yes.no
SHARED total
SHARED total2
SHARED x
SHARED y

card = card + 1
playcard = deck(card)
cardx = cardx + 48
x = x + 6

LOCATE y, x

IF card1 = 0 THEN
LINE (cardx, cardy)-(cardx + 40, cardy + 50), 15, BF
LINE (cardx, cardy)-(cardx + 40, cardy + 50), 1, B
END IF

IF playcard = 1 THEN
cardvalue = 0
PRINT "A"
CALL heart
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 2 THEN
cardvalue = 0
PRINT "A"
CALL diamond
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 3 THEN
cardvalue = 0
PRINT "A"
CALL club
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 4 THEN
cardvalue = 0
PRINT "A"
CALL spade
IF ace.yes.no = 1 THEN
total = total + 1
total2 = total2 + 1
ELSE
total = total + 1
total2 = total2 + 11
END IF
ace.yes.no = 1
END IF

IF playcard = 5 THEN
cardvalue = 2
CALL heart
END IF

IF playcard = 6 THEN
cardvalue = 2
CALL diamond
END IF

IF playcard = 7 THEN
cardvalue = 2
CALL club
END IF

IF playcard = 8 THEN
cardvalue = 2
CALL spade
END IF

IF playcard = 9 THEN
cardvalue = 3
CALL heart
END IF

IF playcard = 10 THEN
cardvalue = 3
CALL diamond
END IF

IF playcard = 11 THEN
cardvalue = 3
CALL club
END IF

IF playcard = 12 THEN
cardvalue = 3
CALL spade
END IF

IF playcard = 13 THEN
cardvalue = 4
CALL heart
END IF

IF playcard = 14 THEN
cardvalue = 4
CALL diamond
END IF

IF playcard = 15 THEN
cardvalue = 4
CALL club
END IF

IF playcard = 16 THEN
cardvalue = 4
CALL spade
END IF

IF playcard = 17 THEN
cardvalue = 5
CALL heart
END IF

IF playcard = 18 THEN
cardvalue = 5
CALL diamond
END IF

IF playcard = 19 THEN
cardvalue = 5
CALL club
END IF

IF playcard = 20 THEN
cardvalue = 5
CALL spade
END IF

IF playcard = 21 THEN
cardvalue = 6
CALL heart
END IF

IF playcard = 22 THEN
cardvalue = 6
CALL diamond
END IF

IF playcard = 23 THEN
cardvalue = 6
CALL club
END IF

IF playcard = 24 THEN
cardvalue = 6
CALL spade
END IF

IF playcard = 25 THEN
cardvalue = 7
CALL heart
END IF

IF playcard = 26 THEN
cardvalue = 7
CALL diamond
END IF

IF playcard = 27 THEN
cardvalue = 7
CALL club
END IF

IF playcard = 28 THEN
cardvalue = 7
CALL spade
END IF

IF playcard = 29 THEN
cardvalue = 8
CALL heart
END IF

IF playcard = 30 THEN
cardvalue = 8
CALL diamond
END IF

IF playcard = 31 THEN
cardvalue = 8
CALL club
END IF

IF playcard = 32 THEN
cardvalue = 8
CALL spade
END IF

IF playcard = 33 THEN
cardvalue = 9
CALL heart
END IF

IF playcard = 34 THEN
cardvalue = 9
CALL diamond
END IF

IF playcard = 35 THEN
cardvalue = 9
CALL club
END IF

IF playcard = 36 THEN
cardvalue = 9
CALL spade
END IF

IF playcard = 37 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 38 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 39 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 40 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 41 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 42 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 43 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 44 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 45 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 46 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 47 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 48 THEN
cardvalue = 10
CALL spade
END IF

IF playcard = 49 THEN
cardvalue = 10
CALL heart
END IF

IF playcard = 50 THEN
cardvalue = 10
CALL diamond
END IF

IF playcard = 51 THEN
cardvalue = 10
CALL club
END IF

IF playcard = 52 THEN
cardvalue = 10
CALL spade
END IF

LOCATE y, x

PRINT cardvalue

LOCATE y, x

IF cardvalue = 0 THEN
PRINT " A "
END IF

IF playcard > 48 AND playcard < 53 THEN
PRINT " K "
END IF

IF playcard > 44 AND playcard < 49 THEN
PRINT " Q "
END IF

IF playcard > 40 AND playcard < 45 THEN
PRINT " J "
END IF

COLOR 1

total = total + cardvalue
total2 = total2 + cardvalue

END SUB

SUB heart

SHARED x
SHARED y
SHARED card1

COLOR 4

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(3)

END SUB

SUB spade

SHARED x
SHARED y
SHARED card1

COLOR 1

IF card1 = 1 THEN
COLOR 0
END IF

LOCATE y + 2, x + 2
PRINT CHR$(6)

END SUB

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

HELP Please. mini-blackjack game

sad321

Programmer

Buff1

Programmer

zolken1

Programmer

Similar threads

Part and Inventory Search

Sponsor