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

#44454
william winalot
Member
  • Total Posts 102

GO INTO DOS PROMPT.<br>MAKE DIRECTORY…..HORSES<br>COPY LINE 10 TO 400 TO NOTEPAD<br>SAVE AS >>> AS [ PLTO.BAS ] IN THE HORSES DIRECTORY<br>——————————————————————–<br>10 CLS:KEY OFF<br>20 COLOR 15<br>30 OPEN "PLTO" FOR OUTPUT AS #1<br>40 LOCATE 10,23<br>50 COLOR 14<br>60 INPUT "NUMBER OF RUNNERS IN RACE ",A<br>70 CLS:KEY OFF<br>80 COLOR 15<br>90 PRINT "                       IF FIRST TIME OUT TYPE 0"<br>100 PRINT "——————————————————————————-"<br>110 FOR B=1 TO A<br>120 COLOR 15<br>130 PRINT "POSITION OF HORSE NUMBER ";<br>140 COLOR 26<br>150 PRINT B;:COLOR 15<br>160 PRINT " LAST TIME OUT ":INPUT C<br>170 PRINT #1,C<br>180 D=C+D:E=D/B<br>190 IF B=11 THEN CLS:KEY OFF<br>200 NEXT<br>210 CLS:KEY OFF<br>220 COLOR 14:PRINT "                            AVERAGE=";E:COLOR 7<br>230 PRINT "——————————————————————————-"<br>240 CLOSE<br>250 COLOR 14:PRINT "                      POSITION LAST TIME OUT":COLOR 15<br>260 OPEN "PLTO" FOR INPUT AS #1<br>270 OPEN "POSITION" FOR OUTPUT AS #2<br>280 INPUT #1,F<br>290 IF F>0 AND F<=9 AND F<=E THEN COLOR 15:PRINT "          HORSE NUMBER ";" ";F;" ABOVE OR EQUAL TO AVERAGE";:COLOR 26:PRINT "<<<<<"<br>300 IF F>0 AND F>=10 AND F<=E THEN COLOR 15:PRINT "          HORSE NUMBER ";F;" ABOVE OR EQUAL TO AVERAGE";:COLOR 26:PRINT "<<<<<"<br>310 IF F>0 AND F<=9 AND F<=E THEN PRINT #2,F<br>320 IF F>0 AND F>=10 AND F<=E THEN PRINT #2,F<br>330 IF EOF(1) THEN CLOSE:GOTO 350<br>340 GOTO 280<br>350 OPEN "RUNNERS" FOR OUTPUT AS #1<br>360 PRINT #1,A<br>370 COLOR 15<br>380 PRINT:PRINT:PRINT:PRINT:PRINT "                     PRESS ANY KEY TO CONTINUE"<br>390 A$=INPUT$(1)<br>400 RUN "DAYS.BAS"<br>