'===========================================================================
' Subject: GENERIC HORSE RACING GAME         Date: 03-13-96 (00:00)       
' Author:  Eric Benoit                       Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: GAMES.ABC
'===========================================================================
'Here ya go, do what you want with it!
'I decided to post the local version because you need EASYDOOR to use the
'DOOR version <duh>
CLS
MONEY = 1000
DIM X(20)
REDO:
CLS
COLOR 14
PRINT "                Generic Horse Racing Game 1.00 - Eric Benoit 1995"
COLOR 12
PRINT "                ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ"
'
COLOR 9
LOCATE 5, 1
PRINT "ÄÄÄÄÄ¿"
FOR A = 1 TO 11
LOCATE A + 5, 6
PRINT "³"
NEXT A
LOCATE 17, 1
PRINT "ÄÄÄÄÄÙ"
'
LOCATE 5, 75
PRINT "ÚÄÄ"
FOR A = 1 TO 11
LOCATE A + 5, 75
PRINT "³"
NEXT A
LOCATE 17, 75
PRINT "ÀÄÄ"
'
FOR A = 1 TO 6
X(A) = 3
NEXT A
COLOR 15
FOR A = 1 TO 11 STEP 2
LOCATE A + 5, 1: PRINT STR$((A + 1) / 2); ") "
NEXT A
LOCATE 18, 1
COLOR 10
FOR QQ = 1 TO 80
PRINT "Ä";
NEXT QQ
IF MONEY <= 2 THEN : LOCATE 23, 5: COLOR 11: PRINT "Whoops! You only have $2 left, you need that for bus fare to get home!": SLEEP 4: COLOR 8: END
LOCATE 19, 1
PRINT "Money: $"; MONEY
HORSE:
LOCATE 21, 1
INPUT "Horse to bet on: ", HORSE
IF HORSE < 1 OR HORSE > 6 THEN LOCATE 21, 1: PRINT "                  ": GOTO HORSE
BID:
LOCATE 21, 40
INPUT "Amount to bet: ", BID
IF BID < 1 OR BID > MONEY - 2 THEN LOCATE 21, 40: PRINT "                  ": GOTO BID
LOCATE 23, 24
COLOR 12
PRINT "Press "; : COLOR 14: PRINT "<ENTER> "; : COLOR 12: PRINT "to start the race..."
DO
A$ = INKEY$
IF A$ = CHR$(13) THEN EXIT DO
LOOP
'
COLOR 15
DO
FOR A = 1 TO 6
RANDOMIZE TIMER
X(A) = X(A) + INT(RND * 2)
NEXT A
FOR A = 1 TO 6
IF X(A) > 75 THEN HN = A: EXIT DO
NEXT A
FOR A = 1 TO 6
LOCATE (A + 2) * 2, X(A) + 1
PRINT " ";
NEXT A
FOR Q = 1 TO 500: NEXT Q
LOOP
IF HORSE = HN THEN MONEY = MONEY + (BID * 2): LOCATE 23, 23: COLOR 11: PRINT "You Won $" + STR$(BID * 2) + "!!!          ": SLEEP 4: GOTO REDO
LOCATE 23, 17: COLOR 11: PRINT "Sorry, you lost this time, but please try again!"
MONEY = MONEY - BID
SLEEP 4
GOTO REDO