0 'RATER.BA Gene Nestro 1 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 2 'Mods by Bill Templeton 3 ' 3-Jul-86 4 'You need and must understand a RACING 5 'FORM. Use inputs of "head = .06 / 6 'Distance Code = race your rating 7 '(last performance). Does not rate 8 'Maiden Races or horses that did 9 'not run in last 2 weeks. 10 DIMX(12):E$=CHR$(27):R$=E$+"p":N$=E$+"q 11 X(1)=0:X(2)=6:X(3)=12.2:X(4)=18.4:X(5)=24.6:X(6)=37.4:X(7)=39.6:X(8)=41.8:X(9)=44:X(10)=51.2:X(11)=58.4:X(12)=65.6:CLS 12 SCREEN0,0:CLS:LINE(11,8)-(227,55),1,B:PRINT@95,R$" RATER.100 "N$:PRINT@179,"by":PRINT@215,"Gene Nestro 13 PRINT@123,CHR$(126)CHR$(145)CHR$(145)CHR$(225):PRINT@153,CHR$(226)CHR$(145)CHR$(145)CHR$(126) 14 IFINKEY$=""THEN14 15 CLS:PRINT@81,R$" Do you want Bugle Call (Y/N ?):"N$" ";:A$=INPUT$(1):IFINSTR("yY",A$)THENGOSUB64 16 PRINT@162,"Enter `99' if you keyed-in wrong answer to a prior question. Enter final results in your Racing Form. 17 IFINKEY$=""THEN17 18 CLS:DC=0:PRINT" 1 = 5 Furlongs 7 = 1 Mi 40 Yd":PRINT" 2 = 5 1/2 Furlongs 8 = 1 Mi 70 yd 19 PRINT" 3 = 6 Furlongs 9 = 1 1/16 Mile":PRINT" 4 = 6 1/2 Furlongs 10 = 1 1/8 Mile 20 PRINT" 5 = 7 Furlongs 11 = 1 3/16 Mile":PRINT" 6 = 1 Mile 12 = 1 1/4 Mile":CALL16959 21 PRINT@280,R$" Key in selected distance code #:"N$;:INPUTDC:IFDC=99THEN15 22 IFDC<1ORDC>12THEN21 23 GOSUB61 24 FR=0:GOSUB63:PRINT@280,R$" Fractional time (40-150): "N$;:INPUTFR:IFFR=99THEN18 25 IFFR<40ORFR>150THEN24 26 FT=0:GOSUB63:PRINT@280,R$" Final time (50-240): "N$;:INPUTFT:IFFT=99THEN24 27 IFFT<50ORFT>240THEN26 28 LT=0:GOSUB63:PRINT@280,R$" Lengths behind 3rd call (0-5): "N$;:INPUTLT:IFLT=99THEN26 29 IFLT<0ORLT>5THEN28 30 LF=0:GOSUB63:PRINT@280,R$" Lengths behind winner (0-5): "N$;:INPUTLF:IFLF=99THEN28 31 IFLF<0ORLF>50THEN30 32 WT=0:GOSUB63:PRINT@280,R$" Weight carried today (90-150): "N$;:INPUTWT:IFWT=99THEN30 33 IFWT<90ORWT>150THEN32 34 WR=0:GOSUB63:PRINT@280,R$" Weight rating (90-150): "N$;:INPUTWR:IFWR=99THEN32 35 IFWR<90ORWR>150THEN34 36 SR=0:GOSUB63:PRINT@280,R$" Speed rating (0-120): "N$;:INPUTSR:IFSR=99THENGOTO34 37 IFSR<0ORSR>120THEN36 38 VA=0:GOSUB63:PRINTR$" Variant (0-100): "N$;:INPUTVA:IFVA=99THEN36 39 IFVA<0ORVA>100THEN38 40 IFDC<6THENWA=((WR-WT)/4)ELSEWA=((WR-WT)/3) 41 GOSUB44:GOSUB55:R=WA+A+B+SR+(VA*.5):R=INT(R):CLS:PRINT@82,R$" Total rating is:"N$;R 42 PRINT@165,"Write this rating in Racing Form":PRINT@242,R$" Another horse (Y/N ?):"N$;:Q$=INPUT$(1) 43 PRINT:IFINSTR("yY",Q$)THENCLS:GOTO18ELSEMENU 44 IFFT>=200THENM=2 45 IFFT>=200GOTO49 46 IFFT>=100THENM=1 47 IFFT>=100GOTO49 48 M=0 49 IFFT>=200THENS=FT-200 50 IFFT>=200GOTO54 51 IFFT>=100THENS=FT-100 52 IFFT>=100GOTO54 53 S=FT 54 T=S-INT(S):T=T*2:S=INT(S):FT=(M*60)+S+T:FT=FT+(LF*.2):FORX=1TO12:K=X(DC)+56:NEXTX:B=FT-K:B=B*10:B=200-B 55 IFFR>=100THENM=1ELSEM=0 56 IFFR>=100THENS=FR-100ELSES=FR 57 T=S-INT(S):S=INT(S):T=T*2:FR=(M*60)+S+T:FR=FR+(LT*.2):IFDC<6THENA=FR-48 58 IFDC>5ANDDC<12THENA=FR-72.4 59 IFDC=12THENA=FR-97 60 A=A*5:A=100-A:RETURN 61 CLS:PRINT@40,R$" Fractional & Final time entry examples:"N$:PRINT@136,"1:12 = 112":PRINT@174,"58 2/5 = 58.2 62 PRINT@212,"1:22 3/5 = 122.3":PRINT:RETURN 63 PRINT@280,SPACE$(39):RETURN 64 SOUND6269,7:SOUND4697,7:SOUND3728,7:SOUND3134,25:SOUND3134,7:SOUND3134,7:SOUND3134,7:SOUND3728,25:SOUND3728,7:SOUND3728,7 65 SOUND3728,7:SOUND4697,25:SOUND3728,12:SOUND4697,12:SOUND6269,50:SOUND6269,7:SOUND4697,7:SOUND3728,7:SOUND3134,25:SOUND3134,7 66 SOUND3134,7:SOUND3134,7:SOUND3728,25:SOUND3728,7:SOUND3728,7:SOUND3728,7:SOUND4697,25:SOUND6269,18:SOUND6269,18:SOUND4697,75 67 RETURN