1? "PRESS # ON KEYPAD TO CONTINUE"
2 rx=rx-1:IF  NOT PDL(11) THEN 2
3 junk=RND(rx)
4? "*******************************":?: h=1000
5? "HORRSERACE"
6?
7? "AT BEAUTIFUL MCENTYRE DOWNS"
8? "*******************************"
9GOTO 19
10IF h<=0 GOTO 2000
19FOR z=1 TO 1500:NEXT z:HOME
20? "HERE ARE THE HORSES RUNNING AND THEIR ODDS"
25? "==============================="
30? "1) GOLDEN MANURE------------8:1"
40? "2) MR. GLUE-----------------3:1"
50? "3) BEER BELLY---------------2:1"
60? "4) PREGNANT GLORY----------20:1"
70? "5) CRUDFACE----------------15:1"
80? "6) UNCLE JOHN'S ITCH--------7:1"
90? "7) DUCK WALKER--------------6:1"
100INPUT "ENTER THE NUMBER OF THE HORSE YOU WISH TO BET ON"; i
103? "YOUR ACCOUNT STANDS AT$"; h
105INPUT "HOW MUCH DO YOU WISH TO BET?"; j
110IF j<=h GOTO 120
112? "THATS MORE THAN YOU HAVE,HOOF BREATH":GOTO 103
120HOME:? "YOU HAVE BET $ "; j; "ON HORSE # "; i
125? "IF THIS IS CORRECT TYPE IN ANY NUMBER EXCEPT 1"; 
126INPUT z:IF z=1 GOTO 100
127HOME
129 a=0: b=0: c=0: d=0: e=0: f=0: g=0
130FOR z=1 TO 5:? "IT'S POST TIME!":FOR y=1 TO 250:NEXT y
135HOME:FOR y=1 TO 250:NEXT y:NEXT z
150? "S...|...|...|...|.F.|...|...|.."
155? TAB(a); "1":IF a=50 GOTO 1000
160? TAB(b); "2":IF b=50 GOTO 1050
165? TAB(c); "3":IF c=50 GOTO 1100
170? TAB(d); "4":IF d=50 GOTO 1150
180? TAB(e); "5":IF e=50 GOTO 1200
185? TAB(f); "6":IF f=50 GOTO 1250
190? TAB(g); "7":IF g=50 GOTO 1300
195? "S...|...|...|...|.F.|...|...|.."
199 l=INT(RND(2)*2+1): m=INT(RND(2)*2+1): n=INT(RND(2)*2+1)
200 o=INT(RND(2)*2+1): p=INT(RND(2)*2+1): q=INT(RND(2)*2+1): r=INT(RND(2)*2+1)
201IF l=1 THEN  a=a+1
202IF m=1 THEN  b=b+1
203IF n=1 THEN  c=c+1
204IF o=1 THEN  d=d+1
205IF p=1 THEN  e=e+1
206IF q=1 THEN  f=f+1
207IF r=1 THEN  g=g+1
208HOME
210GOTO 150
1000? "HOORAY! IT'S GOLDEN MANURE AT THE FINISH!"
1001IF i<>1 GOTO 1025
1005 v=j*8: h=h+v
1010? "YOU HAVE WON $"; v
1013GOTO 10
1025 h=h-j:? "YOU LOSE YOUR BET"
1030GOTO 10
1050? "MR. GLUE BEATS 'EM BY A MILE!"
1051IF i<>2 GOTO 1025
1055 v=j*3: h=h+j
1060GOTO 1010
1100? "IT'S BEER BELLY AT THE TAPE!"
1101IF i<>3 GOTO 1025
1105 v=j*2: h=h+v
1110GOTO 1010
1150? "IT'S PREGNANT GLORY BY A STRIDE"
1151IF i<>4 GOTO 1025
1155 v=j*20: h=h+v
1160GOTO 1010
1200? "INCREDIBLE...CRUDFACE WINS AGAIN!"
1201IF i<>5 GOTO 1025
1210 v=j*15: h=h+v
1220GOTO 1010
1250? "IT COULDN'T BE...IT IS! UNCLE JOHN'S ITCH IS NUMBER 1"
1251IF i<>6 GOTO 1025
1260 v=j*7: h=h+v
1270GOTO 1010
1300? "THR MIGHTY DUCK WALKER TAKES THE WINNERS CUP!"
1301IF i<>7 GOTO 1025
1310 v=j*6: h=h+v
1320GOTO 1010
2000? "YOUR ACCOUNT IS BUSTED AND YOUR CREDIT IS NO GOOD HERE"
2005? "BEAT IT...YA BUM."
2010END
