The home of intelligent horse racing discussion
The home of intelligent horse racing discussion

Reply To: Computer Based System

Home Forums Tipping and Research Systems Computer Based System Reply To: Computer Based System

#44455
william winalot
Member
  • Total Posts 102

COPY LINE 410 TO 670 TO NOTEPAD<br>SAVE AS….[ DAYS.BAS ] IN HORSES DIRECTORY

<br>410 CLS:KEY OFF<br>420 COLOR 15<br>430 OPEN "RUNNERS" FOR INPUT AS #1<br>440 INPUT #1,A<br>450 CLOSE<br>460 OPEN "DAYS" FOR OUTPUT AS #1<br>470 FOR B=1 TO A<br>480 PRINT "HORSE NUMBER ";:COLOR 26:PRINT B;:COLOR 15:PRINT" DAYS SINCE LAST RUN ":INPUT C:COLOR 15<br>490 CLS:KEY OFF<br>500 D=C+D:E=D/A<br>510 PRINT #1,B,C<br>520 NEXT<br>530 CLOSE<br>540 CLS:KEY OFF<br>550 PRINT "                           AVERAGE=";E<br>560 PRINT "——————————————————————————-"<br>570 OPEN "DAYS" FOR INPUT AS #1<br>580 OPEN "DAYSSINC" FOR OUTPUT AS #2<br>590 INPUT #1,F,G<br>600 IF G<=E THEN PRINT "                   HORSE";F;"BETTER THAN AVERAGE"<br>610 IF G<=E THEN PRINT #2,F<br>620 IF EOF(1) THEN CLOSE:GOTO 640<br>630 GOTO 590<br>640 COLOR 15<br>650 PRINT:PRINT:PRINT:PRINT:PRINT "                     PRESS ANY KEY TO CONTINUE"<br>660 A$=INPUT$(1)<br>670 RUN "WEIGHT.BAS"<br>