11) HORSE RACE (602 B)
To use: LOAD 3, RUN 400
"\letter" means: press SHIFT and letter

410 REM
420 REM HORSE RACE
430 REM
440 DIM O(4)
450 DIM D(4)
460 LET A$="\F\T\S"
470 LET B$=" \S\G\Q"
480 LET C$="\R  \E"
490 LET M=100
500 GOTO 580
510 FOR C=1 TO D
520 PRINT " ";
530 NEXT C
540 RETURN
550 FOR I=0 TO 4
560 LET D(I)=0
570 NEXT I
580 PRINT "BANK$";M
590 PRINT "BET? (0=QUIT)"
600 PRINT
610 PRINT "ODDS"
620 FOR I=1 TO 4
630 LET O(I)=RND(9)+1
640 PRINT CHR$(I+37),O(I);"/1"
650 NEXT I
660 INPUT B
670 IF B=0 THEN GOTO 990
680 PRINT "HORSE?"
690 INPUT H$
700 FOR L=1 TO 4
710 CLS
720 PRINT "LAP ";L
730 FOR I=1 TO 4
740 LET D(I)=D(I)+5+7/O(I)+RND(2*O(I)/3)
750 IF D(I)>D(0) THEN LET D(0)=D(I)
760 IF D(0)=D(I) THEN LET J=I
770 NEXT I
780 FOR I=1 TO 4
790 PRINT CHR$(I+37)
800 LET D=D(I)-D(0)+15
810 GOSUB 510
820 PRINT A$
830 GOSUB 510
840 PRINT B$
850 GOSUB 510
860 PRINT C$
870 PRINT
880 NEXT I
890 PRINT "N/L"
900 INPUT D$
910 NEXT L
920 CLS
930 PRINT "WINNER ";CHR$(J+37)
940 LET S=0
950 IF CODE(H$)=J+37 THEN LET S=1
960 LET M=M-B+S*B*O(J)
970 IF M<1 THEN GOTO 990
980 GOTO 550
990 STOP