10 REM HRACE.ECB 100 REM ...WRITTEN BY MARK VEGLAND, ST. JAMES HIGH SCHOOL--12/71 110 REM ... RANDOMIZE..... LAST CHANGE 4/20/78 (RESEQUNCED) R.E.H. 120 LET Y=0 130 LET L=0 140 PRINT "&K": CURSOR 3,1 150 PRINT TAB(15);"=H=H=H=H=H=H=H=H=H=H=" 160 PRINT TAB(15);"=H= =H=" 170 PRINT TAB(15);"=H= H O R S E =H=" 180 PRINT TAB(15);"=H= R A C E =H=" 190 PRINT TAB(15);"=H= =H=" 200 PRINT TAB(15);"=H=H=H=H=H=H=H=H=H=H=" 210 PRINT 220 PRINT " WELCOME TO THE DONNYBROOKE RACING TRACK" 230 PRINT " YOU MAY BET UP TO $10000" 240 PRINT " WHEN YOU BET, PRINT THE NUMBER OF THE HORSE" 250 PRINT : PRINT "ARE YOU READY (NO=0 YES=1) ---=>"; 260 LET O=0 270 INPUT (1,0)A 280 IF A=0 THEN 980 290 IF A=1 THEN 300 300 PRINT "&K": PRINT "THERE ARE NINE HORSES": PRINT 310 PRINT "#1 CITATION 30-1 ODDS" 320 PRINT "#2 MAN-OF-WAR 20-1 ODDS" 330 PRINT "#3 CANEREO II 5-1 ODDS" 340 PRINT "#4 BUCKPASS 7-1 ODDS" 350 PRINT "#5 PRINCE ROYAL II 11-1 ODDS" 360 PRINT "#6 THE UNEXPECTED 15-1 ODDS" 370 PRINT "#7 BIG RACKET 35-1 ODDS" 380 PRINT "#8 LETTERS 25-1 ODDS" 390 PRINT "#9 KELSO 4-1 ODDS" 400 PRINT "======== PLACE YOUR BETS ---=>"; 410 INPUT C 420 PRINT 430 IF C<9999 THEN 450 440 GOTO 940 450 PRINT "WHAT HORSE DO YOU WANT" 460 PRINT "PRINT THE NUMBER OF HORSE ---=>"; 470 INPUT (1,0)H 480 PRINT 490 LET D=RND(0) 500 LET B=D*10 510 LET B=INT(B) 520 IF B=O THEN 490 530 PRINT " AND THE WINNER IS " 540 PRINT TAB(5);"### ";B;" ###" 550 IF B=H THEN 570 560 GOTO 850 570 ON B GOTO 580,610,640,670,700,730,760,790,820 580 LET T=C*30 590 PRINT "YOU HAVE WON $ ";T 600 GOTO 870 610 LET T=C*20 620 PRINT "YOU HAVE WON $ ";T 630 GOTO 870 640 LET T=C*5 650 PRINT "YOU HAVE WON $ ";T 660 GOTO 870 670 LET T=C*7 680 PRINT "YOU HAVE WON $ ";T 690 GOTO 870 700 LET T=C*11 710 PRINT "YOU HAVE WON $ ";T 720 GOTO 870 730 LET T=C*15 740 PRINT "YOU HAVE WON $ ";T 750 GOTO 870 760 LET T=C*3 770 PRINT "YOU HAVE WON $ ";T 780 GOTO 870 790 LET T=C*25 800 PRINT "YOU HAVE WON $ ";T 810 GOTO 870 820 LET T=C*4 830 PRINT "YOU HAVE WON $ ";T 840 GOTO 870 850 PRINT : PRINT "SORRY SUCKER YOU LOST" 860 GOTO 870 870 LET Y=Y+T 880 LET L=L+C 890 PRINT : PRINT "DO YOU WANT TO TRY AGAIN (NO=0 YES=1) ---=>"; 900 INPUT (1,0)I 910 IF I=0 THEN 980 920 PRINT 930 GOTO 960 940 PRINT "YOU MUST BET $10000 OR LESS" 950 GOTO 400 960 PRINT "THE SAME HORSES WILL RACE AGAIN" 970 GOTO 400 980 IF Y>L THEN 1010 990 IF Y