1 RANDOMIZE
20 REM LINES 1170 AND 1210 SEEM TO HAVE SOMETHING TO DO WITH PRINT LENGTH
50 PRINT CHR$(26):WIDTH 80
100 PRINT TAB(31);"HORSERACE":PRINT
110 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
120 PRINT:PRINT:PRINT
210 DIM S(8)
220 PRINT "WELCOME TO SUFFERN DOWNS RACETRACK.":PRINT
240 PRINT "DO YOU WANT DIRECTIONS";
250 INPUT X$
255 PRINT
260 IF LEFT$(X$,1)="N" THEN 320
270 PRINT"UP TO 10 MAY PLAY.  A TABLE OF ODDS WILL BE PRINTED.  YOU"
280 PRINT"MAY BET ANY + AMOUNT UNDER 100000 ON ONE HORSE."
290 PRINT "DURING THE RACE, A HORSE WILL BE SHOWN BY ITS"
300 PRINT"NUMBER.  THE HORSES RACE DOWN THE PAPER!"
310 PRINT
320 PRINT "HOW MANY WANT TO BET";
330 INPUT C
335 IF C>10 THEN PRINT "MAXIMUM OF TEN BETTORS ONLY.":GOTO 320
340 PRINT "WHEN ? APPEARS,TYPE NAME"
350 FOR A=1 TO C
360 INPUT W$(A)
370 NEXT A
380 PRINT
390 PRINT"HORSE",,"NUMBER","ODDS"
395 PRINT "=====",,"======","===="
400 PRINT
410 FOR I=1 TO 8: S(I)=0: NEXT I
420 LET R=0
430 FOR A=1 TO 8
440 LET D(A)=INT(10*RND(1)+1)
450 NEXT A
460 FOR A=1 TO 8
470 LET R=R+D(A)
480 NEXT A
490 LET V$(1)="JOE MAW"
500 LET V$(2)="L.B.J."
510 LET V$(3)="MR.WASHBURN"
520 LET V$(4)="MISS KAREN"
530 LET V$(5)="JOLLY"
540 LET V$(6)="HORSE"
550 LET V$(7)="JELLY DO NOT"
560 LET V$(8)="MIDNIGHT"
570 FOR N=1 TO 8
580 PRINT V$(N),,"  ";N,:PRINT USING "##.#";R/D(N);:PRINT ":1"
590 NEXT N
595 N=8
600 PRINT:PRINT:PRINT"--------------------------------------------------":PRINT
610 PRINT "PLACE YOUR BETS...HORSE # THEN AMOUNT"
615 PRINT
620 FOR J=1 TO C
630 PRINT W$(J);
640 INPUT Q(J),P(J)
650 IF P(J)<1 THEN 670
660  IF P(J)<100000! THEN 690
670 PRINT"  YOU CAN'T DO THAT!"
680 GOTO 630
690 NEXT J
700 PRINT CHR$(26)
710 PRINT"1 2 3 4 5 6 7 8"
720 PRINT"-----START-----"
730 FOR I=1 TO N
740 LET M=I
750 LET M(I)=M
760 LET Y(M(I))=INT(100*RND(1)+1)
770 IF Y(M(I))<10 THEN 860
780 LET S=INT(R/D(I)+.5)
790 IF Y(M(I))<S+17 THEN 880
800 IF Y(M(I))<S+37 THEN 900
810 IF Y(M(I))<S+57 THEN 920
820 IF Y(M(I))<77+S THEN 940
830 IF Y(M(I))<S+92 THEN 960
840 LET Y(M(I))=7
850 GOTO 970
860 LET Y(M(I))=1
870 GOTO 970
880 LET Y(M(I))=2
890 GOTO 970
900 LET Y(M(I))=3
910 GOTO 970
920 LET Y(M(I))=4
930 GOTO 970
940 LET Y(M(I))=5
950 GOTO 970
960 LET Y(M(I))=6
970 NEXT I
980 LET M=I
990 FOR I=1 TO 8
1000 LET S(M(I))=S(M(I))+Y(M(I))
1010 NEXT I
1020 LET I=1
1030 FOR L=1 TO 8
1040 FOR I=1 TO 8-L
1050 IF S(M(I))<S(M(I+1))THEN 1090
1060 LET H=M(I)
1070 LET M(I)=M(I+1)
1080 LET M(I+1)=H
1090 NEXT I
1100 NEXT L
1110 LET T=S(M(8))
1120 FOR I=1 TO 8
1130 LET B=S(M(I))-S(M(I-1))
1140 IF B=0 THEN 1190
1150 FOR A=1 TO B
1160 PRINT
1170 IF S(M(I))>20 THEN 1240
1180 NEXT A
1190 PRINT M(I);
1200 NEXT I
1210 FOR A=1 TO 21-T
1220 PRINT
1230 NEXT A
1240 PRINT "----  FINISH  ----";
1244 'PRINT "---------------------------------------------"
1245 FOR DELAY=1 TO 1000:NEXT
1250 IF T<28 THEN PRINT CHR$(26): GOTO 720
1270 PRINT CHR$(26);"THE RACE RESULTS ARE:"
1272 LET Z9=1
1280 FOR I=8 TO 1 STEP-1
1290 LET F=M(I)
1300 PRINT
1310 PRINT Z9;CHR$(8);:IF Z9=1 THEN PRINT"ST ";ELSE IF Z9=2 THEN PRINT"ND ";ELSE IF

     Z9=3 THEN PRINT"RD ";ELSE IF Z9>3 THEN PRINT"TH ";
1311 PRINT"PLACE - HORSE #";F;"AT";:PRINT USING" ##.#";R/D(F);:PRINT":1"
1312 LET Z9=Z9+1
1320  NEXT I
1330 FOR J=1 TO C
1340 IF Q(J)<>M(8) THEN 1370
1350 LET N=Q(J)
1355 PRINT
1360 PRINT CHR$(22);"  ";W$(J);" WINS";:PRINT USING "$$##,###";(R/D(N))*P(J);:

     PRINT "  ";CHR$(22)
1370 NEXT J
1372 PRINT:INPUT "DO YOU WANT TO BET ON THE NEXT RACE";O$
1376 IF LEFT$(O$,1)="Y" THEN PRINT CHR$(26):GOTO 380
1380 RUN "MENU"
