DECLARE SUB loser ()
DECLARE SUB winner ()
DECLARE SUB BetCalc ()
DECLARE SUB instructions ()
DECLARE SUB GetInfo ()
DECLARE SUB betting ()
DIM SHARED name$
DIM SHARED bet
DIM SHARED lane
DIM SHARED money
DIM SHARED win
RANDOMIZE TIMER
win = 0
money = 1000
CLS
GetInfo
betting
start: CLS
LOCATE 1, 4: COLOR 10: PRINT "Start": COLOR 14: LOCATE 1, 15: PRINT "Finish": LOCATE 1, 30: PRINT "Money: $"; money
LOCATE 2, 4: COLOR 10: PRINT "!"; : COLOR 15: PRINT " ! ! ! ! ! "; : COLOR 14: PRINT "!"
COLOR 15: LOCATE 3, 2: PRINT 1: COLOR 10: LOCATE 3, 4: PRINT "!": COLOR 15: LOCATE 3, 22: COLOR 14: PRINT "!": LOCATE 3, 23: COLOR 15: PRINT 1
LOCATE 7, 37: COLOR 9: PRINT "You have bet $"; bet; "on Horse #"; lane: COLOR 15
LOCATE 4, 2: PRINT 2: COLOR 10: LOCATE 4, 4: PRINT "!": COLOR 15: LOCATE 4, 22: COLOR 14: PRINT "!": LOCATE 4, 23: COLOR 15: PRINT 2
LOCATE 5, 2: PRINT 3: COLOR 10: LOCATE 5, 4: PRINT "!": COLOR 15: LOCATE 5, 22: COLOR 14: PRINT "!": LOCATE 5, 23: COLOR 15: PRINT 3
LOCATE 6, 2: PRINT 4: COLOR 10: LOCATE 6, 4: PRINT "!": COLOR 15: LOCATE 6, 22: COLOR 14: PRINT "!": LOCATE 6, 23: COLOR 15: PRINT 4
LOCATE 7, 2: PRINT 5: COLOR 10: LOCATE 7, 4: PRINT "!": COLOR 15: LOCATE 7, 22: COLOR 14: PRINT "!": LOCATE 7, 23: COLOR 15: PRINT 5
LOCATE 8, 2: PRINT 6: COLOR 10: LOCATE 8, 4: PRINT "!": COLOR 15: LOCATE 8, 22: COLOR 14: PRINT "!": LOCATE 8, 23: COLOR 15: PRINT 6
LOCATE 9, 2: PRINT 7: COLOR 10: LOCATE 9, 4: PRINT "!": COLOR 15: LOCATE 9, 22: COLOR 14: PRINT "!": LOCATE 9, 23: COLOR 15: PRINT 7
LOCATE 10, 2: PRINT 8: COLOR 10: LOCATE 10, 4: PRINT "!": COLOR 15: LOCATE 10, 22: COLOR 14: PRINT "!": LOCATE 10, 23: COLOR 15: PRINT 8
LOCATE 11, 2: PRINT 9: COLOR 10: LOCATE 11, 4: PRINT "!": COLOR 15: LOCATE 11, 22: COLOR 14: PRINT "!": LOCATE 11, 23: COLOR 15: PRINT 9
LOCATE 12, 2: PRINT "10": COLOR 10: LOCATE 12, 4: PRINT "!": COLOR 15: LOCATE 12, 22: COLOR 14: PRINT "!": LOCATE 12, 23: COLOR 15: PRINT 10
COLOR 7: LOCATE 3, 5: PRINT CHR$(1)
LOCATE 4, 5: PRINT CHR$(2)
LOCATE 5, 5: PRINT CHR$(3)
LOCATE 6, 5: PRINT CHR$(4)
LOCATE 7, 5: PRINT CHR$(5)
LOCATE 8, 5: PRINT CHR$(6)
LOCATE 9, 5: PRINT "*"
LOCATE 10, 5: PRINT CHR$(8)
LOCATE 11, 5: PRINT "&"
LOCATE 12, 5: PRINT "@": COLOR 15
LOCATE 14, 3: PRINT "On your marks...": SLEEP 1
LOCATE 15, 3: PRINT "Get set...": SLEEP 1
LOCATE 16, 3: PRINT "GO!"
LOCATE 3, 5: PRINT CHR$(0)
LOCATE 4, 5: PRINT CHR$(0)
LOCATE 5, 5: PRINT CHR$(0)
LOCATE 6, 5: PRINT CHR$(0)
LOCATE 7, 5: PRINT CHR$(0)
LOCATE 8, 5: PRINT CHR$(0)
LOCATE 9, 5: PRINT CHR$(0)
LOCATE 10, 5: PRINT CHR$(0)
LOCATE 11, 5: PRINT CHR$(0)
LOCATE 12, 5: PRINT CHR$(0)
x = 3: xx = 4: xxx = 5: xxxx = 6: xxxxx = 7: six = 8: sevenx = 9: eightx = 10: ninex = 11: tenx = 12
y = 5: yy = 5: yyy = 5: yyyy = 5: yyyyy = 5: sixy = 5: seveny = 5: eighty = 5: niney = 5: teny = 5
DO
IF y = 22 THEN
GOTO ywin
ELSEIF yy = 22 THEN
GOTO yywin
ELSEIF yyy = 22 THEN
GOTO yyywin
ELSEIF yyyy = 22 THEN
GOTO yyyywin
ELSEIF yyyyy = 22 THEN
GOTO yyyyywin
ELSEIF sixy = 22 THEN
GOTO sixywin
ELSEIF seveny = 22 THEN
GOTO sevenywin
ELSEIF eighty = 22 THEN
GOTO eightywin
ELSEIF niney = 22 THEN
GOTO nineywin
ELSEIF teny = 22 THEN
GOTO tenywin
ELSE
b: COLOR 7
a = INT(RND(1) * 102 + 1)
b = INT(RND(1) * 102 + 1)
IF b > 90 AND b < 101 OR a > 90 AND a < 93 THEN GOTO y
IF b > 80 AND b < 91 OR a > 80 AND a < 83 THEN GOTO yy
IF b > 70 AND b < 81 OR b = 10 THEN GOTO yyy
IF b > 60 AND b < 71 OR b = 20 THEN GOTO yyyy
IF b > 50 AND b < 61 OR a = 45 THEN GOTO yyyyy
IF b > 40 AND b < 51 OR a = 5 THEN GOTO sixy
IF b > 30 AND b < 41 OR a > 30 AND a < 41 THEN GOTO seveny
IF b > 20 AND b < 31 OR a > 20 AND a < 31 THEN GOTO eighty
IF b > 10 AND b < 19 THEN GOTO niney
IF b > 0 AND b < 9 THEN GOTO teny
IF b = b THEN GOTO b
y: LOCATE x, y
PRINT CHR$(1)
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a > 0 AND a < 10 THEN
LOCATE x, y
PRINT CHR$(0)
y = y + 1
END IF
yy: LOCATE xx, yy
PRINT CHR$(2)
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a > 25 AND a < 31 THEN
LOCATE xx, yy
PRINT CHR$(0)
yy = yy + 1
END IF
yyy: LOCATE xxx, yyy
PRINT CHR$(3)
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a > 19 AND a < 22 THEN
LOCATE xxx, yyy
PRINT CHR$(0)
yyy = yyy + 1
END IF
yyyy: LOCATE xxxx, yyyy
PRINT CHR$(4)
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a > 29 AND a < 31 THEN
LOCATE xxxx, yyyy
PRINT CHR$(0)
yyyy = yyyy + 1
END IF
yyyyy: LOCATE xxxxx, yyyyy
PRINT CHR$(5)
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a > 39 AND a < 42 THEN
LOCATE xxxxx, yyyyy
PRINT CHR$(0)
yyyyy = yyyyy + 1
END IF
sixy: LOCATE six, sixy
PRINT CHR$(6)
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a > 57 AND a < 59 THEN
LOCATE six, sixy
PRINT CHR$(0)
sixy = sixy + 1
END IF
seveny: LOCATE sevenx, seveny
PRINT "*"
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a = 70 THEN
LOCATE sevenx, seveny
PRINT CHR$(0)
seveny = seveny + 1
END IF
eighty: LOCATE eightx, eighty
PRINT CHR$(8)
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a = 80 THEN
LOCATE eightx, eighty
PRINT CHR$(0)
eighty = eighty + 1
END IF
niney: LOCATE ninex, niney
PRINT "&"
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a = 90 OR a = 93 THEN
LOCATE ninex, niney
PRINT CHR$(0)
niney = niney + 1
END IF
teny: LOCATE tenx, teny
PRINT "@"
a = INT(RND(1) * 100 + 1)
a = INT(RND(1) * 100 + 1)
IF a = 99 OR a = 96 THEN
LOCATE tenx, teny
PRINT CHR$(0)
teny = teny + 1
END IF
ELSE
END IF
LOOP
ywin:
COLOR 15
LOCATE 3, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT CHR$(1)
PRINT "Number one wins!"
win = 1
SLEEP 3: BetCalc
GOTO start
yywin:
COLOR 15
LOCATE 4, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT CHR$(2)
PRINT "Number two wins!"
win = 2
SLEEP 3: BetCalc
GOTO start
yyywin:
COLOR 15
LOCATE 5, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT CHR$(3)
PRINT "Number three wins!"
win = 3
SLEEP 3: BetCalc
GOTO start
yyyywin:
COLOR 15
LOCATE 6, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT CHR$(4)
PRINT "Number four wins!"
win = 4
SLEEP 3: BetCalc
GOTO start
yyyyywin:
COLOR 15
LOCATE 7, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT CHR$(5)
PRINT "Number five wins!"
win = 5
SLEEP 3: BetCalc
GOTO start
sixywin:
COLOR 15
LOCATE 8, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT CHR$(6)
PRINT "Number six wins!"
win = 6
SLEEP 3: BetCalc
GOTO start
sevenywin:
COLOR 15
LOCATE 9, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT "*"
PRINT "Number seven wins!"
win = 7
SLEEP 3: BetCalc
GOTO start
eightywin:
COLOR 15
LOCATE 10, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT CHR$(8)
PRINT "Number eight wins!"
win = 8
SLEEP 3: BetCalc
GOTO start
nineywin:
COLOR 15
LOCATE 11, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT "&"
PRINT "Number nine wins!"
win = 9
SLEEP 3: BetCalc
GOTO start
tenywin:
COLOR 15
LOCATE 12, 22: PRINT CHR$(0)
LOCATE 18, 2: PRINT "@"
PRINT "Number ten wins!"
win = 10
SLEEP 3: BetCalc
GOTO start
SUB BetCalc
SLEEP 1
CLS
IF lane = win THEN winner
IF lane <> win THEN loser
END SUB
SUB betting
bets: CLS
COLOR 14: LOCATE 1, 50: PRINT "Money: $"; money: COLOR 7
PRINT "Here are the odds:"
PRINT
PRINT "Lane Racer Odds"
PRINT "1. "; CHR$(1); " ........ 20:1"
PRINT "2. "; CHR$(2); " ........ 20:1"
PRINT "3. "; CHR$(3); " ........ 18:1"
PRINT "4. "; CHR$(4); " ........ 19:1"
PRINT "5. "; CHR$(5); " ........ 3:1"
PRINT "6. "; CHR$(6); " ........ 6:1"
PRINT "7. * ........ 6:1"
PRINT "8. "; CHR$(8); " ........ 4:1"
PRINT "9. & ........ 1:1"
PRINT "10. @ ........ 1:1"
PRINT
INPUT "To bet on a horse simply enter their lane number"; lane
INPUT "How much are you willing to bet on this horse?"; bet
INPUT "Is this right?"; yorn$
yorn$ = UCASE$(yorn$)
IF yorn$ = "N" OR yorn$ = "NO" THEN GOTO bets
money = money - bet
END SUB
SUB GetInfo
CLS
INPUT "Name?"; name$
INPUT "Age?"; age
IF age < 18 THEN
PRINT "You're not old enough to gamble!"
PRINT "But if you don't tell anyone, I'll let you go in"
END IF
INPUT "Instructions?"; instr$
instr$ = UCASE$(instr$)
IF instr$ = "Y" OR instr$ = "YES" THEN instructions
END SUB
SUB instructions
CLS
PRINT "Welcome, "; name$; ", to Marc Bryan's Horseracing game."
PRINT
PRINT "If the little things don't look like horses to you, then shut up and use your"
PRINT "imagination."
PRINT "The game is very simple.";
PRINT "Be sure to take into consideration the odds. I've run a million races and those"
PRINT "are the most accurate I could come up with."
PRINT
PRINT "An explanation of the odds"
PRINT "Odds are the possibility that a horse is going to win the race."
PRINT "Take, for example, number ten. It's odds are 1:1. So if you bet $50 on this"
PRINT "horse, and number ten wins, you win your $50 back."
PRINT "But, if you bet on number one, and it wins, with it's odds being 20:1, and you, once again, bet $50, you would win $1000."
PRINT "However, this may sound good, but the chances of a horse with 20:1 winning are"
PRINT "very slim."
PRINT
PRINT "You start out at $1000. You win if you reach $10000, or lose if you go -$50"
PRINT "Just bet on the horse, and watch the race!"
PRINT "Good luck!"
PRINT
PRINT "Press any key to continue"
DO: LOOP WHILE INKEY$ = ""
END SUB
SUB loser
PRINT "Ooo, sorry! You lost $"; bet
IF money <= -50 THEN
PRINT "Oh, you lost. Too bad! Better luck next time!"
END IF
PRINT "You now have $"; money
INPUT "Too bad. Would you like to try again?"; yorn$
yorn$ = UCASE$(yorn$)
IF yorn$ = "N" OR yorn$ = "NO" THEN
END
ELSE
END IF
betting
END SUB
SUB winner
IF win = 1 THEN
odds$ = "20:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
bet = bet * 20
PRINT "You have made "; bet
money = money + bet
PRINT "Your cash in hand is now $"; money
ELSEIF win = 2 THEN
odds$ = "20:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
bet = bet * 20
PRINT "You have made "; bet
money = money + bet
PRINT "Your cash in hand is now $"; money
ELSEIF win = 3 THEN
odds$ = "18:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
bet = bet * 18
PRINT "You have made "; bet
money = money + bet
PRINT "Your cash in hand is now $"; money
ELSEIF win = 4 THEN
odds$ = "19:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
bet = bet * 19
PRINT "You have made "; bet
money = money + bet
PRINT "Your cash in hand is now $"; money
ELSEIF win = 5 THEN
odds$ = "3:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
bet = bet * 3
PRINT "You have made "; bet
money = money + bet
PRINT "Your cash in hand is now $"; money
ELSEIF win = 6 THEN
odds$ = "6:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
bet = bet * 6
PRINT "You have made "; bet
money = money + bet
PRINT "Your cash in hand is now $"; money
ELSEIF win = 7 THEN
odds$ = "7:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
bet = bet * 7
PRINT "You have made "; bet
money = money + bet
PRINT "Your cash in hand is now $"; money
ELSEIF win = 8 THEN
odds$ = "4:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
bet = bet * 4
PRINT "You have made "; bet
money = money + bet
PRINT "Your cash in hand is now $"; money
ELSEIF win = 9 THEN
odds$ = "1:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
PRINT "You have made your money back"
money = money + bet
PRINT "Your cash in hand is now $"; money
ELSEIF win = 10 THEN
odds$ = "1:1"
PRINT "Congratulations! You're a winner!"
PRINT "You bet on horse #"; lane; "with a bet of $"; bet; "at the odds of "; odds$; "!"
PRINT "You have made your money back"
money = money + bet
PRINT "Your cash in hand is now $"; money
END IF
IF money >= 10000 THEN
PRINT "You are the most amazing person I've never met!"
PRINT "Congratulations. You have won the game."
END
END IF
PRINT "Good betting!"
INPUT "Would you like to try again?"; yorn$
yorn$ = UCASE$(yorn$)
IF yorn$ = "N" OR yorn$ = "NO" THEN END
betting
END SUB
(
geocities.com/southbeach/cove) (
geocities.com/southbeach)