10 REM HRASE.ECB
   20 REM ...HRASE...(HRACES)...FROM MERITSS : GAME  12-20-77
   30 PRINT "&K"
   50 DIM T(50),U(50),V(50)
  100 PRINT "THIS DEMONSTRATION SHOWS YOU SOME VERSATILE FEATURES"
  110 PRINT "OF CDC'S KRONOS TIME-SHARING SERVICE BY SIMULATING A"
  120 PRINT "HORSE RACE. ANY NUMBER OF PLAYERS CAN BET ON THE RESULTS."
  130 PRINT
  140 PRINT "      SEVENTH - 1 MILE, 3 YR. OLDS       POST 2:35"
  150 PRINT
  160 PRINT "1 MAN O'WAR       3:1"
  170 PRINT "2 CITATION        4:1"
  180 PRINT "3 WHIRLAWAY       5:1"
  190 PRINT "4 ASSAULT         8:1"
  200 PRINT "5 SEABISCUIT      9:1"
  210 PRINT "6 GALLANT FOX    11:1"
  220 PRINT "7 STYMIE         20:1"
  230 PRINT "8 COALTOWN       30:1"
  235 INPUT (1,0)"ENTER any letter to continue---=>",I$
  240 PRINT
  250 LET S=0
  260 LET S=S+1
  270 PRINT
  280 PRINT "BET NO. ";S
  285 IF S>1 THEN 300
  290 PRINT "ENTER HORSE(1-8);TO WIN,PLACE,SHOW(1,2,3);AND THE WAGER."
  300 INPUT " ---=>",T(S),U(S),V(S)
  310 LET T(S)=ABS(INT(T(S)))
  320 IF T(S)>8 THEN 370
  330 IF T(S)<1 THEN 370
  340 LET U(S)=ABS(INT(U(S)))
  350 IF U(S)>3 THEN 370
  360 IF U(S)>0 THEN 400
  370 PRINT "HORSE NO. OR WIN-PLACE-SHOW BET IN ERROR"
  380 GOTO 290
  390 INPUT V(S)
  400 IF V(S)-2=ABS(V(S)-2) THEN 430
  410 PRINT "BET MUST BE >$2 AND <$300, BET AGAIN";
  420 GOTO 390
  430 IF V(S)>300 THEN 410
  435 PRINT
  440 PRINT "ANY MORE BETS ?"
  450 INPUT (1,0)"(Y=yes  N=no) ---=>",Y$
  455 IF LEN(Y$)=0 THEN  LET Y$="N"
  460 IF Y$="Y" THEN 260
  470 PRINT
  480 PRINT "   THEY'RE OFF AND RUNNING -"
  490 PRINT
  500 LET M(1)=62.5
  510 LET M(2)=60
  520 LET M(3)=350/6
  530 LET M(4)=500/9
  540 LET M(5)=55
  550 LET M(6)=650/12
  560 LET M(7)=1100/21
  570 LET M(8)=1600/31
  580 LET O(1)=6
  590 LET O(2)=8
  600 LET O(3)=10
  610 LET O(4)=16
  620 LET O(5)=18
  630 LET O(6)=22
  640 LET O(7)=40
  650 LET O(8)=60
  660 FOR N=1 TO 8
  670   LET H(N)=0
  680 NEXT N
  690 LET K=0
  700 LET G=1
  710 LET J=1
  720 LET N=3*T(1)-U(1)
  725 IF N>0 THEN 730
  727 LET N=1
  730 FOR Z5=S TO 5*V(S)+N
  740   LET Z1=RND(0)
  750 NEXT Z5
  760 FOR Z5=1 TO 500000
  770   IF INT(Z5/N)-G<>0 THEN 950
  780   LET H(J)=H(J)+RND(0)*M(J)
  790   LET J=J+1
  800   LET G=G+1
  810   IF J<>9 THEN 940
  820   LET J=1
  830   GOSUB 1460
  840   LET D=H(B(1))
  850   LET K=K+1
  860   PRINT
  870   IF K=8 THEN 910
  880   GOSUB 2030
  890   GOSUB 1700
  900   GOTO 950
  910   PRINT "           FINISH"
  920   LET Z5=500001
  930   GOSUB 1700
  940   LET Z1=RND(0)
  950 NEXT Z5
  960 PRINT
  965 FOR J=1 TO 200: LET Z9=RND(0): NEXT J
  970 PRINT
  980 PRINT "$2 MUTUELS PAID:"
  990 PRINT TAB(15);"STRAIGHT    PLACE     SHOW"
 1000 LET K=0
 1010 FOR I=1 TO 3
 1020   GOSUB 1740
 1030   LET J=I
 1040   IF J=1 THEN 1080
 1050   PRINT "         ";
 1060   LET J=J-1
 1070   GOTO 1040
 1080   FOR J=I TO 3
 1090     LET L=2*I+J-2
 1100     IF J>1 THEN 1130
 1110     LET R=1
 1120     GOTO 1140
 1130     LET R=3*J
 1140     LET H(L)=1.5+.01*INT((O(B(I))/R+RND(0))*100)
 1150     PRINT H(L);"    ";
 1160   NEXT J
 1170   PRINT
 1180 NEXT I
 1190 PRINT
 1200 LET Q=0
 1205 LET J=0
 1210 LET J=J+1: REM .....FOR J=1 TO S
 1215 PRINT
 1220 PRINT "BET NO. ";J
 1230 LET P=0
 1240 FOR I=1 TO 3
 1250   IF B(I)<>T(J) THEN 1320
 1260   IF U(J)<I THEN 1370
 1270   LET P=.01*INT(V(J)*50*H(2*I+U(J)-2))
 1280   PRINT "YOU COLLECT ";P;" ON ";
 1290   GOSUB 1740
 1300   PRINT
 1310   LET Q=Q+P-V(J)
 1315   GOTO 1400
 1320 NEXT I
 1330 PRINT "TEAR UP YOUR TICKET ON ";
 1340 FOR I=4 TO 8
 1350   IF B(I)=T(J) THEN 1290
 1360 NEXT I
 1370 IF I=3 THEN 1375
 1372 PRINT "NEXT TIME, PURCHASE A PLACE TICKET ON ";
 1373 GOTO 1290
 1375 PRINT "NEXT TIME, PURCHASE A SHOW TICKET ON ";
 1380 GOTO 1290
 1390 LET Q=Q+P-V(J)
 1400 IF J<S THEN 1210
 1405 PRINT
 1410 IF Q<0 THEN 1440
 1420 PRINT "YOUR TOTAL WINNINGS AMOUNT TO $";Q
 1425 PRINT
 1430 GOTO 1450
 1440 PRINT "YOUR TOTAL LOSSES AMOUNT TO $";ABS(Q)
 1445 PRINT
 1450 PRINT "&JLIKE TO TRY AGAIN ? ( Y=yes  N=no ) ---=>";
 1451 INPUT (1,0)Y$: LET Y$=Y$+"Y"
 1452 IF Y$(1,1)="Y" THEN 240
 1453 GOTO 2230
 1460 LET Q=1
 1470 FOR L1=1 TO 8
 1480   LET B(L1)=0
 1490   LET A(L1)=0
 1500 NEXT L1
 1510 FOR L1=1 TO 8
 1520   FOR L2=1 TO 8
 1530     IF L1=L2 THEN 1570
 1540     IF H(L1)<>H(L2) THEN 1570
 1550     PRINT "RERUN PLEASE"
 1560     STOP
 1570     IF H(L1)<H(L2) THEN 1590
 1580     LET A(L1)=A(L1)+1
 1590   NEXT L2
 1600 NEXT L1
 1610 FOR L1=8 TO 0 STEP -1
 1620   FOR L2=1 TO 8
 1630     IF A(L2)<>L1 THEN 1670
 1640     LET B(Q)=L2
 1650     LET Q=Q+1
 1660     LET L2=8
 1670   NEXT L2
 1680 NEXT L1
 1690 RETURN
 1700 PRINT "POS.  HORSE   LENGTHS BEHIND"
 1710 PRINT
 1720 FOR I=1 TO 8
 1730   PRINT I;
 1740   IF B(I)=1 THEN 1950
 1750   IF B(I)=2 THEN 1930
 1760   IF B(I)=3 THEN 1910
 1770   IF B(I)=4 THEN 1890
 1780   IF B(I)=5 THEN 1870
 1790   IF B(I)=6 THEN 1850
 1800   IF B(I)=7 THEN 1830
 1810   PRINT " -=-  COALTOWN   ";
 1820   GOTO 1960
 1830   PRINT " -=-  STYMIE     ";
 1840   GOTO 1960
 1850   PRINT " -=-  GALLANT FOX";
 1860   GOTO 1960
 1870   PRINT " -=-  SEABISCUIT ";
 1880   GOTO 1960
 1890   PRINT " -=-  ASSAULT    ";
 1900   GOTO 1960
 1910   PRINT " -=-  WHIRLAWAY  ";
 1920   GOTO 1960
 1930   PRINT " -=-  CITATION   ";
 1940   GOTO 1960
 1950   PRINT " -=-  MAN O'WAR  ";
 1960   IF K=0 THEN 2020
 1970   IF I>1 THEN 2000
 1980   PRINT
 1990   GOTO 2010
 2000   PRINT .1*INT(D-H(B(I)));"   "
 2010 NEXT I
 2020 RETURN
 2030 IF K=1 THEN 2110
 2040 IF K=2 THEN 2130
 2050 IF K=3 THEN 2150
 2060 IF K=4 THEN 2170
 2070 IF K=5 THEN 2190
 2080 IF K=6 THEN 2210
 2090 PRINT "   COMING DOWN THE STRETCH -"
 2100 GOTO 2220
 2110 PRINT "   AS THEY BREAK FROM THE GATE -"
 2120 GOTO 2220
 2130 PRINT "   AT THE 1/4 MILE POLE -"
 2140 GOTO 2220
 2150 PRINT "   NEARING THE HALFWAY MARK -"
 2160 GOTO 2220
 2170 PRINT "   MIDWAY IN THE RACE -"
 2180 GOTO 2220
 2190 PRINT "   AT 5/8 OF A MILE -"
 2200 GOTO 2220
 2210 PRINT "   ROUNDING THE TURN -"
 2220 RETURN
 2230 PRINT ,"-=< The track is closed >=-"
 2240 END