'---------------------------Mat's ASCII BlackJack------------------------------- ' ' I'm Mat, Mathew Brenaman, and this my casino version of BlackJack. Its in 'ASCII beacuse I was bored over my mom's house and she got a crapy 286 and 'the graphic functions were just slow. I had an entire BBS put this up as an 'online game, I think its still there. This is one of my first BASIC programs. 'Now I just finished learning C and I'm working on a strategy game. Maybe 'I'll make graphics for this, if enough like it, maybe 25-50 good comments. 'After all, it's my specialty. ' 'Rules - No hits, Ace = 10, Bet once before the deal and once after. 'Fred is dealer, so if there is a tie, You WIN!, and I you both go over you both WIN! ' 'Q&A or comments or ANYTHING, E-Mail me, and if anyone knows a better way to 'define the cards with varibles so there can be less typing. ' 'GeekUp@worldnet.att.net ' 'They really do play this in casinos. ' 'Have fun playing FRED! ' ' DECLARE SUB HisDrawCard (CardDrawing%, Low%) DECLARE SUB YouDrawCard (CardDrawing%, Low%) CLS DEFINT A-Z OPTION BASE 1 RANDOMIZE TIMER TYPE YouType Card AS INTEGER END TYPE TYPE GameType Money AS INTEGER Pot AS INTEGER HisMoney AS INTEGER END TYPE TYPE HisType Card AS INTEGER END TYPE DIM SHARED You(5) AS YouType DIM SHARED His(5) AS HisType DIM SHARED Game AS GameType Game.Money = 100 Game.HisMoney = 100 CLS COLOR 9, 1 PRINT " ±± ±± ±±± ±±±±± ± ±±±±± ±±±±± ±±±±± ±±±±± ±±±±± ±±±±± " PRINT " ± ± ± ± ± ± ± ± ± ± ± ± ± ± " PRINT " ± ± ±±±±± ± ±±±±± ±±±±± ±±±±± ± ± ± " PRINT " ± ± ± ± ± ± ± ± ± ± ± ± " PRINT " ± ± ± ± ± ±±±±± ± ± ±±±±± ±±±±± ±±±±± ±±±±± " PRINT " " PRINT " " PRINT " " PRINT " " PRINT " " PRINT " " COLOR 30, 1 PRINT " ²²²²²² ² ²²²²² ²²²²²² ² ² ²²²²²²² ²²²²² ²²²²²² ² ² " PRINT " ² ² ² ² ² ² ² ² ² ² ² ² ² ² " PRINT " ² ² ² ² ² ² ² ² ² ² ² ² ² ² " PRINT " ²²²²²² ² ²²²²²²² ² ²² ² ²²²²²²² ² ²² " PRINT " ² ² ² ² ² ² ² ² ² ² ² ² ² ² " PRINT " ² ² ² ² ² ² ² ² ² ² ² ² ² ² " PRINT " ²²²²²² ²²²²²²² ² ² ²²²²²² ² ² ²²²² ² ² ²²²²²² ² ² " PRINT " " PRINT " " PRINT " " PRINT " " PRINT " " PLAY "T255L6O2 ABABCB L2C" SLEEP TheTop: Game.Pot = 0 YouTotal = 0 Add1 = 0 Add2 = 0 HisTotal = 0 HAdd1 = 0 hAdd2 = 0 You(1).Card = INT(RND * 51) + 1 You(2).Card = INT(RND * 51) + 1 IF You(2).Card = You(1).Card THEN You(2).Card = INT(RND * 51) + 1 IF You(2).Card = You(1).Card THEN You(2).Card = INT(RND * 51) + 1 IF You(2).Card = You(1).Card THEN You(2).Card = INT(RND * 51) + 1 IF You(2).Card = You(1).Card THEN You(2).Card = INT(RND * 51) + 1 IF You(2).Card = You(1).Card THEN You(2).Card = INT(RND * 51) + 1 IF You(2).Card = You(1).Card THEN You(2).Card = INT(RND * 51) + 1 His(1).Card = INT(RND * 51) + 1 His(2).Card = INT(RND * 51) + 1 IF His(2).Card = His(1).Card THEN His(2).Card = INT(RND * 51) + 1 IF His(2).Card = His(1).Card THEN His(2).Card = INT(RND * 51) + 1 IF His(2).Card = His(1).Card THEN His(2).Card = INT(RND * 51) + 1 IF His(2).Card = His(1).Card THEN His(2).Card = INT(RND * 51) + 1 IF His(2).Card = His(1).Card THEN His(2).Card = INT(RND * 51) + 1 IF His(2).Card = His(1).Card THEN His(2).Card = INT(RND * 51) + 1 Game.Money = Game.Money - 5 Game.HisMoney = Game.HisMoney - 5 Game.Pot = Game.Pot + 10 Ask: FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 9, 1: LOCATE 1, 1: PRINT "You put in 5 and the Fred puts in 5 to start off." COLOR 2, 1: LOCATE 2, 1: PRINT "Would you like to," COLOR 3, 1: LOCATE 4, 4: PRINT "1.Bet" COLOR 3, 1: LOCATE 5, 4: PRINT "2.Deal" COLOR 2, 1: LOCATE 7, 1: INPUT "Choose 1 or 2. ", Choice IF Choice = 1 THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "Your money,"; Game.Money COLOR 2, 1: LOCATE 2, 1: INPUT "How much would you like to put in?", Bet IF Bet > Game.Money THEN PRINT "You don't have enough money for that kind of bet.": SLEEP: GOTO Ask Game.Money = Game.Money - Bet Game.Pot = Game.Pot + Bet Game.HisMoney = Game.HisMoney - Bet Game.Pot = Game.Pot + Bet COLOR 2, 1: LOCATE 3, 1: PRINT "Fred matches" SLEEP GOTO Deal: END IF IF Choice = 2 THEN GOTO Deal GOTO Ask Deal: FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 4, 1: LOCATE 1, 40: PRINT "Pot-"; Game.Pot COLOR 9, 1: LOCATE 4, 1: PRINT "Fred's cards." COLOR 15, 4: LOCATE 5, 9: PRINT "ÚÄÄÄÄÄ¿" COLOR 15, 4: LOCATE 6, 9: PRINT "ÀÄÄÄÄÄÙ" SOUND 300, 1.5 HisDrawCard 2, 2 SOUND 500, 1.5 COLOR 9, 1: LOCATE 12, 1: PRINT "Your cards." YouDrawCard 1, 10 SOUND 300, 1.5 YouDrawCard 2, 10 SOUND 500, 1.5 Ask2: COLOR 2, 1: LOCATE 7, 45: PRINT "Would you like to," COLOR 3, 1: LOCATE 8, 45: PRINT "1.Bet" COLOR 3, 1: LOCATE 9, 45: PRINT "2.Stay" COLOR 2, 1: LOCATE 10, 45: INPUT "Choose 1 or 2. ", Choice IF Choice = 1 THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "Your money,"; Game.Money COLOR 2, 1: LOCATE 2, 1: INPUT "How much would you like to put in?", Bet IF Bet > Game.Money THEN PRINT "You don't have enough money for that kind of bet.": SLEEP: GOTO Ask Game.Money = Game.Money - Bet Game.Pot = Game.Pot + Bet Game.HisMoney = Game.HisMoney - Bet Game.Pot = Game.Pot + Bet COLOR 2, 1: LOCATE 3, 1: PRINT "Fred matches" SLEEP GOTO Deal2 END IF IF Choice = 2 THEN GOTO Deal2 GOTO Ask2 Deal2: IF His(1).Card = 1 THEN HAdd1 = 10 IF His(1).Card = 2 THEN HAdd1 = 2 IF His(1).Card = 3 THEN HAdd1 = 3 IF His(1).Card = 4 THEN HAdd1 = 4 IF His(1).Card = 5 THEN HAdd1 = 5 IF His(1).Card = 6 THEN HAdd1 = 6 IF His(1).Card = 7 THEN HAdd1 = 7 IF His(1).Card = 8 THEN HAdd1 = 8 IF His(1).Card = 9 THEN HAdd1 = 9 IF His(1).Card = 10 THEN HAdd1 = 10 IF His(1).Card = 11 THEN HAdd1 = 10 IF His(1).Card = 12 THEN HAdd1 = 10 IF His(1).Card = 13 THEN HAdd1 = 10 IF His(1).Card = 14 THEN HAdd1 = 10 IF His(1).Card = 15 THEN HAdd1 = 2 IF His(1).Card = 16 THEN HAdd1 = 3 IF His(1).Card = 17 THEN HAdd1 = 4 IF His(1).Card = 18 THEN HAdd1 = 5 IF His(1).Card = 19 THEN HAdd1 = 6 IF His(1).Card = 20 THEN HAdd1 = 7 IF His(1).Card = 21 THEN HAdd1 = 8 IF His(1).Card = 22 THEN HAdd1 = 9 IF His(1).Card = 23 THEN HAdd1 = 10 IF His(1).Card = 24 THEN HAdd1 = 10 IF His(1).Card = 25 THEN HAdd1 = 10 IF His(1).Card = 26 THEN HAdd1 = 10 IF His(1).Card = 27 THEN HAdd1 = 10 IF His(1).Card = 28 THEN HAdd1 = 2 IF His(1).Card = 29 THEN HAdd1 = 3 IF His(1).Card = 30 THEN HAdd1 = 4 IF His(1).Card = 31 THEN HAdd1 = 5 IF His(1).Card = 32 THEN HAdd1 = 6 IF His(1).Card = 33 THEN HAdd1 = 7 IF His(1).Card = 34 THEN HAdd1 = 8 IF His(1).Card = 35 THEN HAdd1 = 9 IF His(1).Card = 36 THEN HAdd1 = 10 IF His(1).Card = 37 THEN HAdd1 = 10 IF His(1).Card = 38 THEN HAdd1 = 10 IF His(1).Card = 39 THEN HAdd1 = 10 IF His(1).Card = 40 THEN HAdd1 = 10 IF His(1).Card = 41 THEN HAdd1 = 2 IF His(1).Card = 42 THEN HAdd1 = 3 IF His(1).Card = 43 THEN HAdd1 = 4 IF His(1).Card = 44 THEN HAdd1 = 5 IF His(1).Card = 45 THEN HAdd1 = 6 IF His(1).Card = 46 THEN HAdd1 = 7 IF His(1).Card = 47 THEN HAdd1 = 8 IF His(1).Card = 48 THEN HAdd1 = 9 IF His(1).Card = 49 THEN HAdd1 = 10 IF His(1).Card = 50 THEN HAdd1 = 10 IF His(1).Card = 51 THEN HAdd1 = 10 IF His(1).Card = 52 THEN HAdd1 = 10 IF His(2).Card = 1 THEN hAdd2 = 10 IF His(2).Card = 2 THEN hAdd2 = 2 IF His(2).Card = 3 THEN hAdd2 = 3 IF His(2).Card = 4 THEN hAdd2 = 4 IF His(2).Card = 5 THEN hAdd2 = 5 IF His(2).Card = 6 THEN hAdd2 = 6 IF His(2).Card = 7 THEN hAdd2 = 7 IF His(2).Card = 8 THEN hAdd2 = 8 IF His(2).Card = 9 THEN hAdd2 = 9 IF His(2).Card = 10 THEN hAdd2 = 10 IF His(2).Card = 11 THEN hAdd2 = 10 IF His(2).Card = 12 THEN hAdd2 = 10 IF His(2).Card = 13 THEN hAdd2 = 10 IF His(2).Card = 14 THEN hAdd2 = 10 IF His(2).Card = 15 THEN hAdd2 = 2 IF His(2).Card = 16 THEN hAdd2 = 3 IF His(2).Card = 17 THEN hAdd2 = 4 IF His(2).Card = 18 THEN hAdd2 = 5 IF His(2).Card = 19 THEN hAdd2 = 6 IF His(2).Card = 20 THEN hAdd2 = 7 IF His(2).Card = 21 THEN hAdd2 = 8 IF His(2).Card = 22 THEN hAdd2 = 9 IF His(2).Card = 23 THEN hAdd2 = 10 IF His(2).Card = 24 THEN hAdd2 = 10 IF His(2).Card = 25 THEN hAdd2 = 10 IF His(2).Card = 26 THEN hAdd2 = 10 IF His(2).Card = 27 THEN hAdd2 = 10 IF His(2).Card = 28 THEN hAdd2 = 2 IF His(2).Card = 29 THEN hAdd2 = 3 IF His(2).Card = 30 THEN hAdd2 = 4 IF His(2).Card = 31 THEN hAdd2 = 5 IF His(2).Card = 32 THEN hAdd2 = 6 IF His(2).Card = 33 THEN hAdd2 = 7 IF His(2).Card = 34 THEN hAdd2 = 8 IF His(2).Card = 35 THEN hAdd2 = 9 IF His(2).Card = 36 THEN hAdd2 = 10 IF His(2).Card = 37 THEN hAdd2 = 10 IF His(2).Card = 38 THEN hAdd2 = 10 IF His(2).Card = 39 THEN hAdd2 = 10 IF His(2).Card = 40 THEN hAdd2 = 10 IF His(2).Card = 41 THEN hAdd2 = 2 IF His(2).Card = 42 THEN hAdd2 = 3 IF His(2).Card = 43 THEN hAdd2 = 4 IF His(2).Card = 44 THEN hAdd2 = 5 IF His(2).Card = 45 THEN hAdd2 = 6 IF His(2).Card = 46 THEN hAdd2 = 7 IF His(2).Card = 47 THEN hAdd2 = 8 IF His(2).Card = 48 THEN hAdd2 = 9 IF His(2).Card = 49 THEN hAdd2 = 10 IF His(2).Card = 50 THEN hAdd2 = 10 IF His(2).Card = 51 THEN hAdd2 = 10 IF His(2).Card = 52 THEN hAdd2 = 10 HisTotal = hAdd2 + HAdd1 IF HisTotal = 21 THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "Fred won with a straight 21!" COLOR 2, 1: LOCATE 1, 1: PRINT "Fred had," HisDrawCard 1, 2 HisDrawCard 2, 2 Game.HisMoney = Game.HisMoney + Game.Pot Game.Pot = 0 SLEEP GOTO PlayAgain END IF IF HisTotal > 21 THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "Fred went over 21, you win." COLOR 2, 1: LOCATE 2, 1: PRINT "Fred had," HisDrawCard 1, 2 HisDrawCard 2, 2 Game.Money = Game.Money + Game.Pot Game.Pot = 0 SLEEP GOTO PlayAgain END IF Dumb = INT(RND * 5) + 1 IF Dumb = 3 OR Dumb = 5 AND HisTotal < 10 THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 9, 1: LOCATE 1, 1: PRINT "Fred bets 10." Game.HisMoney = Game.HisMoney - 10 Game.Pot = Game.Pot + 10 Game.Money = Game.Money - 10 Game.Pot = Game.Pot + 10 COLOR 9, 1: LOCATE 2, 1: PRINT "You put in 10." SLEEP GOTO Fredsdonebetting END IF IF Dumb = 3 OR Dumb = 5 AND HisTotal > 10 THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 9, 1: LOCATE 1, 1: PRINT "Fred bets 20." Game.HisMoney = Game.HisMoney - 20 Game.Pot = Game.Pot + 20 Game.Money = Game.Money - 20 Game.Pot = Game.Pot + 20 COLOR 9, 1: LOCATE 2, 1: PRINT "You put in 20." SLEEP GOTO Fredsdonebetting END IF IF Dumb = 4 THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 9, 1: LOCATE 1, 1: PRINT "Fred bets 5." Game.HisMoney = Game.HisMoney - 5 Game.Pot = Game.Pot + 5 Game.Money = Game.Money - 5 Game.Pot = Game.Pot + 5 COLOR 9, 1: LOCATE 2, 1: PRINT "You put in the same." SLEEP END IF Fredsdonebetting: IF You(1).Card = 1 THEN Add1 = 10 IF You(1).Card = 2 THEN Add1 = 2 IF You(1).Card = 3 THEN Add1 = 3 IF You(1).Card = 4 THEN Add1 = 4 IF You(1).Card = 5 THEN Add1 = 5 IF You(1).Card = 6 THEN Add1 = 6 IF You(1).Card = 7 THEN Add1 = 7 IF You(1).Card = 8 THEN Add1 = 8 IF You(1).Card = 9 THEN Add1 = 9 IF You(1).Card = 10 THEN Add1 = 10 IF You(1).Card = 11 THEN Add1 = 10 IF You(1).Card = 12 THEN Add1 = 10 IF You(1).Card = 13 THEN Add1 = 10 IF You(1).Card = 14 THEN Add1 = 10 IF You(1).Card = 15 THEN Add1 = 2 IF You(1).Card = 16 THEN Add1 = 3 IF You(1).Card = 17 THEN Add1 = 4 IF You(1).Card = 18 THEN Add1 = 5 IF You(1).Card = 19 THEN Add1 = 6 IF You(1).Card = 20 THEN Add1 = 7 IF You(1).Card = 21 THEN Add1 = 8 IF You(1).Card = 22 THEN Add1 = 9 IF You(1).Card = 23 THEN Add1 = 10 IF You(1).Card = 24 THEN Add1 = 10 IF You(1).Card = 25 THEN Add1 = 10 IF You(1).Card = 26 THEN Add1 = 10 IF You(1).Card = 27 THEN Add1 = 10 IF You(1).Card = 28 THEN Add1 = 2 IF You(1).Card = 29 THEN Add1 = 3 IF You(1).Card = 30 THEN Add1 = 4 IF You(1).Card = 31 THEN Add1 = 5 IF You(1).Card = 32 THEN Add1 = 6 IF You(1).Card = 33 THEN Add1 = 7 IF You(1).Card = 34 THEN Add1 = 8 IF You(1).Card = 35 THEN Add1 = 9 IF You(1).Card = 36 THEN Add1 = 10 IF You(1).Card = 37 THEN Add1 = 10 IF You(1).Card = 38 THEN Add1 = 10 IF You(1).Card = 39 THEN Add1 = 10 IF You(1).Card = 40 THEN Add1 = 10 IF You(1).Card = 41 THEN Add1 = 2 IF You(1).Card = 42 THEN Add1 = 3 IF You(1).Card = 43 THEN Add1 = 4 IF You(1).Card = 44 THEN Add1 = 5 IF You(1).Card = 45 THEN Add1 = 6 IF You(1).Card = 46 THEN Add1 = 7 IF You(1).Card = 47 THEN Add1 = 8 IF You(1).Card = 48 THEN Add1 = 9 IF You(1).Card = 49 THEN Add1 = 10 IF You(1).Card = 50 THEN Add1 = 10 IF You(1).Card = 51 THEN Add1 = 10 IF You(1).Card = 52 THEN Add1 = 10 IF You(2).Card = 1 THEN Add2 = 10 IF You(2).Card = 2 THEN Add2 = 2 IF You(2).Card = 3 THEN Add2 = 3 IF You(2).Card = 4 THEN Add2 = 4 IF You(2).Card = 5 THEN Add2 = 5 IF You(2).Card = 6 THEN Add2 = 6 IF You(2).Card = 7 THEN Add2 = 7 IF You(2).Card = 8 THEN Add2 = 8 IF You(2).Card = 9 THEN Add2 = 9 IF You(2).Card = 10 THEN Add2 = 10 IF You(2).Card = 11 THEN Add2 = 10 IF You(2).Card = 12 THEN Add2 = 10 IF You(2).Card = 13 THEN Add2 = 10 IF You(2).Card = 14 THEN Add2 = 10 IF You(2).Card = 15 THEN Add2 = 2 IF You(2).Card = 16 THEN Add2 = 3 IF You(2).Card = 17 THEN Add2 = 4 IF You(2).Card = 18 THEN Add2 = 5 IF You(2).Card = 19 THEN Add2 = 6 IF You(2).Card = 20 THEN Add2 = 7 IF You(2).Card = 21 THEN Add2 = 8 IF You(2).Card = 22 THEN Add2 = 9 IF You(2).Card = 23 THEN Add2 = 10 IF You(2).Card = 24 THEN Add2 = 10 IF You(2).Card = 25 THEN Add2 = 10 IF You(2).Card = 26 THEN Add2 = 10 IF You(2).Card = 27 THEN Add2 = 10 IF You(2).Card = 28 THEN Add2 = 2 IF You(2).Card = 29 THEN Add2 = 3 IF You(2).Card = 30 THEN Add2 = 4 IF You(2).Card = 31 THEN Add2 = 5 IF You(2).Card = 32 THEN Add2 = 6 IF You(2).Card = 33 THEN Add2 = 7 IF You(2).Card = 34 THEN Add2 = 8 IF You(2).Card = 35 THEN Add2 = 9 IF You(2).Card = 36 THEN Add2 = 10 IF You(2).Card = 37 THEN Add2 = 10 IF You(2).Card = 38 THEN Add2 = 10 IF You(2).Card = 39 THEN Add2 = 10 IF You(2).Card = 40 THEN Add2 = 10 IF You(2).Card = 41 THEN Add2 = 2 IF You(2).Card = 42 THEN Add2 = 3 IF You(2).Card = 43 THEN Add2 = 4 IF You(2).Card = 44 THEN Add2 = 5 IF You(2).Card = 45 THEN Add2 = 6 IF You(2).Card = 46 THEN Add2 = 7 IF You(2).Card = 47 THEN Add2 = 8 IF You(2).Card = 48 THEN Add2 = 9 IF You(2).Card = 49 THEN Add2 = 10 IF You(2).Card = 50 THEN Add2 = 10 IF You(2).Card = 51 THEN Add2 = 10 IF You(2).Card = 52 THEN Add2 = 10 YouTotal = Add1 + Add2 IF YouTotal = 21 THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "You won with a straight 21!" COLOR 2, 1: LOCATE 2, 1: PRINT "Fred had," HisDrawCard 1, 2 HisDrawCard 2, 2 Game.Money = Game.Money + Game.Pot Game.Pot = 0 SLEEP GOTO PlayAgain END IF IF YouTotal > 21 THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "You went over 21, Fred win." COLOR 2, 1: LOCATE 2, 1: PRINT "Fred had," HisDrawCard 1, 2 HisDrawCard 2, 2 Game.HisMoney = Game.HisMoney + Game.Pot Game.Pot = 0 SLEEP GOTO PlayAgain END IF IF YouTotal > HisTotal THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "You have won." COLOR 2, 1: LOCATE 2, 1: PRINT "Fred had," HisDrawCard 1, 2 HisDrawCard 2, 2 Game.Money = Game.Money + Game.Pot Game.Pot = 0 SLEEP GOTO PlayAgain END IF IF HisTotal > YouTotal THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "Fred has won." COLOR 2, 1: LOCATE 2, 1: PRINT "Fred had," HisDrawCard 1, 2 HisDrawCard 2, 2 Game.HisMoney = Game.HisMoney + Game.Pot Game.Pot = 0 SLEEP GOTO PlayAgain END IF IF YouTotal = HisTotal THEN FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "You have won, Fred is dealer so equal cards is your gain." COLOR 2, 1: LOCATE 2, 1: PRINT "Fred had," HisDrawCard 1, 2 HisDrawCard 2, 2 Game.Money = Game.Money + Game.Pot Game.Pot = 0 SLEEP GOTO PlayAgain END IF PlayAgain: FOR I = 1 TO 25 COLOR 1, 1: LOCATE I, 1: PRINT " " NEXT COLOR 2, 1: LOCATE 1, 1: PRINT "Your money"; Game.Money COLOR 2, 1: LOCATE 2, 1: PRINT "Fred's money"; Game.HisMoney IF Game.Money <= 0 THEN IF Game.Money < 0 THEN COLOR 2, 1: LOCATE 3, 1: PRINT "You owe Fred, your OUT!" IF Game.Money = 0 THEN COLOR 2, 1: LOCATE 3, 1: PRINT "Your BROCK, your OUT!" END END IF IF Game.HisMoney <= 0 THEN IF Game.HisMoney < 0 THEN COLOR 2, 1: LOCATE 3, 1: PRINT "Fred is in debt to you, his OUT!" IF Game.HisMoney = 0 THEN COLOR 2, 1: LOCATE 3, 1: PRINT "Fred is BROCK, his OUT!" END END IF StopMissing: COLOR 2, 1: LOCATE 3, 1: INPUT "Play Again, Y or N."; Maybe$ Maybe$ = UCASE$(Maybe$) IF Maybe$ = "Y" THEN GOTO TheTop IF Maybe$ = "N" THEN END GOTO StopMissing SUB HisDrawCard (CardDrawing, Low) FOR I = 1 TO 26 IF His(CardDrawing).Card = I THEN Col$ = "Red" NEXT FOR I = 27 TO 52 IF His(CardDrawing).Card = I THEN Col$ = "Black" NEXT IF Col$ = "Red" THEN FOR Z = 1 TO 13 IF His(CardDrawing).Card = Z THEN Suite$ = "Heart " NEXT FOR Z = 14 TO 26 IF His(CardDrawing).Card = Z THEN Suite$ = "Diamond" NEXT END IF IF Col$ = "Black" THEN FOR Z = 27 TO 39 IF His(CardDrawing).Card = Z THEN Suite$ = "Spade " NEXT FOR Z = 40 TO 52 IF His(CardDrawing).Card = Z THEN Suite$ = "Club " NEXT END IF IF Col$ = "Red" THEN COLOR 4, 15 IF Col$ = "Black" THEN COLOR 0, 15 LOCATE (CardDrawing * 2) + (CardDrawing + Low), 9: PRINT Suite$ IF His(CardDrawing).Card = 1 OR His(CardDrawing).Card = 14 OR His(CardDrawing).Card = 27 OR His(CardDrawing).Card = 40 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Ace " IF His(CardDrawing).Card = 2 OR His(CardDrawing).Card = 15 OR His(CardDrawing).Card = 28 OR His(CardDrawing).Card = 41 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Two " IF His(CardDrawing).Card = 3 OR His(CardDrawing).Card = 16 OR His(CardDrawing).Card = 29 OR His(CardDrawing).Card = 42 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Three " IF His(CardDrawing).Card = 4 OR His(CardDrawing).Card = 17 OR His(CardDrawing).Card = 30 OR His(CardDrawing).Card = 43 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Four " IF His(CardDrawing).Card = 5 OR His(CardDrawing).Card = 18 OR His(CardDrawing).Card = 31 OR His(CardDrawing).Card = 44 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Five " IF His(CardDrawing).Card = 6 OR His(CardDrawing).Card = 19 OR His(CardDrawing).Card = 32 OR His(CardDrawing).Card = 45 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Six " IF His(CardDrawing).Card = 7 OR His(CardDrawing).Card = 20 OR His(CardDrawing).Card = 33 OR His(CardDrawing).Card = 46 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Seven " IF His(CardDrawing).Card = 8 OR His(CardDrawing).Card = 21 OR His(CardDrawing).Card = 34 OR His(CardDrawing).Card = 47 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Eight " IF His(CardDrawing).Card = 9 OR His(CardDrawing).Card = 22 OR His(CardDrawing).Card = 35 OR His(CardDrawing).Card = 48 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Nine " IF His(CardDrawing).Card = 10 OR His(CardDrawing).Card = 23 OR His(CardDrawing).Card = 36 OR His(CardDrawing).Card = 49 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Ten " IF His(CardDrawing).Card = 11 OR His(CardDrawing).Card = 24 OR His(CardDrawing).Card = 37 OR His(CardDrawing).Card = 50 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Jack " IF His(CardDrawing).Card = 12 OR His(CardDrawing).Card = 25 OR His(CardDrawing).Card = 38 OR His(CardDrawing).Card = 51 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Queen " IF His(CardDrawing).Card = 13 OR His(CardDrawing).Card = 26 OR His(CardDrawing).Card = 39 OR His(CardDrawing).Card = 52 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " King " END SUB SUB YouDrawCard (CardDrawing, Low) FOR I = 1 TO 26 IF You(CardDrawing).Card = I THEN Col$ = "Red" NEXT FOR I = 27 TO 52 IF You(CardDrawing).Card = I THEN Col$ = "Black" NEXT IF Col$ = "Red" THEN FOR Z = 1 TO 13 IF You(CardDrawing).Card = Z THEN Suite$ = "Heart " NEXT FOR Z = 14 TO 26 IF You(CardDrawing).Card = Z THEN Suite$ = "Diamond" NEXT END IF IF Col$ = "Black" THEN FOR Z = 27 TO 39 IF You(CardDrawing).Card = Z THEN Suite$ = "Spade " NEXT FOR Z = 40 TO 52 IF You(CardDrawing).Card = Z THEN Suite$ = "Club " NEXT END IF IF Col$ = "Red" THEN COLOR 4, 15 IF Col$ = "Black" THEN COLOR 0, 15 LOCATE (CardDrawing * 2) + (CardDrawing + Low), 9: PRINT Suite$ IF You(CardDrawing).Card = 1 OR You(CardDrawing).Card = 14 OR You(CardDrawing).Card = 27 OR You(CardDrawing).Card = 40 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Ace " IF You(CardDrawing).Card = 2 OR You(CardDrawing).Card = 15 OR You(CardDrawing).Card = 28 OR You(CardDrawing).Card = 41 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Two " IF You(CardDrawing).Card = 3 OR You(CardDrawing).Card = 16 OR You(CardDrawing).Card = 29 OR You(CardDrawing).Card = 42 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Three " IF You(CardDrawing).Card = 4 OR You(CardDrawing).Card = 17 OR You(CardDrawing).Card = 30 OR You(CardDrawing).Card = 43 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Four " IF You(CardDrawing).Card = 5 OR You(CardDrawing).Card = 18 OR You(CardDrawing).Card = 31 OR You(CardDrawing).Card = 44 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Five " IF You(CardDrawing).Card = 6 OR You(CardDrawing).Card = 19 OR You(CardDrawing).Card = 32 OR You(CardDrawing).Card = 45 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Six " IF You(CardDrawing).Card = 7 OR You(CardDrawing).Card = 20 OR You(CardDrawing).Card = 33 OR You(CardDrawing).Card = 46 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Seven " IF You(CardDrawing).Card = 8 OR You(CardDrawing).Card = 21 OR You(CardDrawing).Card = 34 OR You(CardDrawing).Card = 47 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Eight " IF You(CardDrawing).Card = 9 OR You(CardDrawing).Card = 22 OR You(CardDrawing).Card = 35 OR You(CardDrawing).Card = 48 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Nine " IF You(CardDrawing).Card = 10 OR You(CardDrawing).Card = 23 OR You(CardDrawing).Card = 36 OR You(CardDrawing).Card = 49 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Ten " IF You(CardDrawing).Card = 11 OR You(CardDrawing).Card = 24 OR You(CardDrawing).Card = 37 OR You(CardDrawing).Card = 50 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Jack " IF You(CardDrawing).Card = 12 OR You(CardDrawing).Card = 25 OR You(CardDrawing).Card = 38 OR You(CardDrawing).Card = 51 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " Queen " IF You(CardDrawing).Card = 13 OR You(CardDrawing).Card = 26 OR You(CardDrawing).Card = 39 OR You(CardDrawing).Card = 52 THEN LOCATE (CardDrawing * 2 + 1) + (CardDrawing + Low), 9: PRINT " King " END SUB