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

#44458
william winalot
Member
  • Total Posts 102

COPY LINE 2110 TO 2350 TO NOTEPAD<br>SAVE AS…[ TOTALS.BAS ] IN HORSES DIRECTORY

2110 CLS:KEY OFF<br>2120 DIM Q(500)<br>2130 OPEN "POSITION" FOR INPUT AS #1<br>2140 INPUT #1,A<br>2150 Q(A)=Q(A)+1<br>2160 IF EOF(1) THEN CLOSE:GOTO 2180<br>2170 GOTO 2140<br>2180 OPEN "DAYSSINC" FOR INPUT AS #1<br>2190 INPUT #1,A<br>2200 Q(A)=Q(A)+1<br>2210 IF EOF(1) THEN CLOSE:GOTO 2230<br>2220 GOTO 2190<br>2230 OPEN "WGHT" FOR INPUT AS #1<br>2240 INPUT #1,A<br>2250 Q(A)=Q(A)+1<br>2260 IF EOF(1) THEN CLOSE:GOTO 2280<br>2270 GOTO 2240<br>2280 OPEN "ODDS1" FOR INPUT AS #1<br>2290 INPUT #1,A<br>2300 Q(A)=Q(A)+1<br>2310 IF EOF(1) THEN CLOSE:GOTO 2330<br>2320 GOTO 2290<br>2330 FOR T=1 TO 500<br>2340 IF Q(T)>=1 THEN PRINT " HORSE NUMBER ";T;"QUALIFIES ON ";Q(T)<br>2350 NEXT