z)3@3SETCHBASBYTCODTEMDINSDLBLANKTRKDATANSTYPEGRASHODDSFILEATEMPBLDAYHESWTRACESORTNUYCLASFGHTSTARFWINTWOWONCPTLNGLBTOPCLOOTBPFLADATWAI @@@@ !"#$%&'()*+,-./01234567&&** ANTIC ** AUG 84 ** PAGE 20 **dHORSEPLAYfBY DAVE ELWOODhANTIC MAGAZINEnΠŠҠ٢q, +(Wait....,@t;@2%A$,w$$6-+F:A,&@,$AVzԤנҠԛ}&-@@2"67,.& kk67@3,.Xrrrrrrr~~~rrrr~~~rrrr~~~ppp~~~~pppp~~~rrrrppppppp~~~rrrrrrrrrrr@FONGO kk67A!,.Xbr r~~~rrrrrrr~~~r~~~tvv~~~~||pp~~~r~~~pppkk67A ,.Xpppp~~~r~~~rrrrr~~ F@C\PPPP@b: PPPP\C@Fkk67A,.X@ :bONGOF@ rb@/[[67A,.H|???p@@8̠נҠԛ3-@AV/%&@@:7<,,3 ŠΠɠś%-AdA"!% ??72,169,224,141,9,212,169,146,141,0,2,169,6,141,1,2,104,64??72,169,152,141,9,212,169,128,141,0,2,169,6,141,1,2,104,64ŠΠנ٠ԛ$6-F:AY,$AY'A`'Aa@6-A6-@" % 1%@F:@,1%@F:@,-@@ " % 1%@!F:A`,1%@"F:Aa,77112,112,112,71,7,7,7,7,135,6,6,6,6,6,134,7,7,7,65(>:A%, AVF:A,&@9AA('A@9BBAEAA'A @H9AADEAY4-@ 4(@ -.CCCCCCCCC/014-@4(@ => ?@A4-@ @4(@ DEFGA4-@4(@ IJBBBBBBBBBKLA4-@ @4(@ H2222222222223(-@@((by dave elwood++(# *PREDICTING ODDS* -@@@"-@"(@mnopq)-%@ @)(@rstu!-@!(@ vwx -AAU)-@@P- 4F:B2y,"@*@@4 Ac-AAD)-@@P-  AH*** Main Program Here **C#@@E:C@@K: 6;A ,6. '67A ,.667@,. ]];@,;@,;@,;@,;@,;@,;@,;@ ,hh;A ,;@,;@,;@ ,9@,9@,9@,;@,9@, +%%6-F:A`,%F:Aa,$AV ***DLI for Color change***-A6AF"  ",,72,169,50,141,10,212,141,24,208,104,64%%@A0(9A'A@9BBA+'A@H'A@R.***Modify DL for Title***1?%@@q+%@?%@@4"(>:A%,"-@7) A)Trap for nonnumeric input:(="A)@!!(  RACE C( The Field:(F ApI#-@@#( ΠL0(0(% HDCP A NEW RACE PRINT THIS RACEO,,($ GET A SAVED RACE SAVE THIS RACER++(# SCRATCH A HORSE DELETE A FILEU""( SEE DISK FILES QUITX+(( CHOOSE==>+)@[-@(^6-A:>:,,aGGAbA(AvAUAAAgAd Ag***Handycap a new Race***j1 +AA1AABm'AA'AABp,-@@,(FOLLOW EACH ANSWERs%-@@%( WITH v-@A y,((WHAT TRACK ------- ,@|)(DATE ------------- )@ A;-@@.(WHICH RACE ------- ;@ A;-@@ .(HOW MANY HORSES -- ;@!@A/(/($WHAT WAS THE APPROX DATE 30 DAYS AGO,( ===>)@,(-@@/"(EVERYTHING ABOVE OK?(Y/N)/)@"@:Y, A"@:N, Ab A B(>:A%,(A) Is this race a....*(*( laiming race takes race,(,(! llowance race andicap race?-@@2(Type in the letter ===>?)@$"@:C,6-A3$ AI$"@:A,6-AH$ AI$"@:S,6-A$ AI$"@:H,6-A$ AI A1A-@@4(B) One Mile or more (Y/N)A)@"@:Y,)"@:N,Ad ARE-@@8(C) Is this a grass race (Y/N)E)@"@:Y,)"@:N,Ay Ad(>:A%,''***store names in pseudo array***&#(D) Type in the horses names&() 6. 67@,.)67@,.2-@%(NO.HORSE:2@) 6-B:, @)67%@,.0#6-+&@,$@%@,67,.0 @-@@!3(ǠˠˠٯΩ@)@"@:Y,A'"@:N,Ay  A *** Initialize Array ***$-@ 68,-@$ -@(>:A%,##6-+&@,$@%@##( Lets Figure 7<%@ , 7 AB(>:A%,7( Figuring 7<%@ ,!I-@@<(2) Has He raced since  (Y/N)I)@$"@:Y,A`'$"@:N,6-$ Ai* AB09-@@9(Enter Finish position last race3&((1,2,3,etc) ===>&@90-@@0(3) In the last 6 races<--@@-(at a MAJOR track...?--@@)(How many WINS -B--@@)(How many 2NDS -E--@@-(at a MINOR track...H--@@)(How many WINS -K@-@@!3(ǠˠˠٯΩ@)@N"@:Y,AQ"@:N,ABT AW#"@#68,-8,%@Z#"@#68,-8,%@]#"@#68,-8,%@`#"@#68,-8,%c#"@#68,-8,&@f#"@#68,-8,&@i#!@#68,-8,&@l6-$@%%o#@#68,-8,%@r#"@#68,-8,%@u#"@#68,-8,%@x#"@#68,-8,%@{#"@#68,-8,%@~#"@#68,-8,&@#"#68,-8,&@ AE-(>:A%,-( Figuring 7<%@ ,@-@@@(&4)Find and add the two best first call?-@@?(%positions AT THIS DISTANCE OR SHORTER'( ('(Example: 4 4 1 PINCAY""( + 2 1 1 SHOEMKR(  4'( 7 Enter Here ===>4@ 68,-3(&(5)Enter Todays Weight ===>3@ 68,- "@:Y, A  Mile?!"@:Y, A G!Grass? 2-@@!2(Stand by................ B''*** Transfer ES to SORT Array ***!-@68,-8,!  A t""*** Adjust for ES rating ***A-@#8,8@,768,-8,%@A A(68,-8,&@ ''*** Transfer WT to SORT Array ***!-@68,-8,!  A tSort SORT(HO)""*** Adjust for WT rating ***C-@%8,8&@,968,-8,%@C AI68,-8,&@ ***Minumum value=1***3-@ 8,/68,-@3 $##***Figure and Display ODDS***6--@6-%8,  -6-?6-$?y-Less 21% Take-@##6-+&@,$@%@6-6-8,'-"6.OUT# A-Scratch>>***If odds are higher then 9-2(NUM) then figure exact*** /  %6.=:P:@'&@,,/ A#''***If lower then 9-2 use Table***&-@@") ! A, /@"@6(@7<%@ , ------ @ A$2G!@#-@!&@=(7<%@ , -- G A$5(7<%@ , -- 85 #A'#A0 &@26-5$;\\.85,1-5,.71,2-5,.67,1-2,.62,3-5,.55,4-5,.5,EVEN,.45,6-5,.41,7-5,.4,3-2,.38,8-5,.35,9-5>...33,2,.28,5-2,.25,3,.22,7-2,.2,4,.18,9-2@A>-@@>($1)Has He ever finished 1st or 2nd inDB-@@5(this class or higher (Y/N)B)@G%"@:Y,"68,-8,%@%$J%"@:N,"68,-8,&@%$M A3P<-@@<("1)Has He ever raced in a Stakes orS>-@@1( Handicap race? (Y/N)>)@V"@:Y,AcY"@:N,Au\ AH_N-@@A(& Has He run in a claimer since? (Y/N)N)@b%"@:Y,"68,-8,&@%$e%"@:N,"68,-8,%@%$h Ack8-@@8( Has He run only Allowance ornJ-@@ =(" Non Claiming Maiden Races (Y/N)?J)@q"@:Y,$t%"@:N,"68,-8,&@%$w Auz<-@@<("1)Has He ever raced in a Stakes or}<-@@/(Handicap race? (Y/N)<)@"@:Y,A %"@:N,"68,-8,&@%$ A9-@@,(Did He Win? (Y/N)9)@%"@:Y,"68,-8,%@%$"@:N,$ A =-@@=(#6)Was his last race a Mile or more?--@@ ((Y/N)-)@%"@:Y,"68,-8,%@%$"@:N,A 2 A I-@@<(!Any Race at a Mile or more? (Y/N)I)@%"@:Y,"68,-8,%@%$"@:N,$ A 2:-@@:( 7)Was his last race on the Turf?--@@ ((Y/N)-)@%"@:Y,"68,-8,%@%$"@:N,A b A GF-@@ 9(Any Race at on the Turf? (Y/N)F)@%"@:Y,"68,-8,%@%$"@:N,$ A b*** Sort Routine ***6-&@6-#6-P:'@, "#$-@&6- 6-%8,8,A = 6-8,68,-8,!68,-)6-&=@A   A Save a race to Disk A#?"!-@/( No Field!<(>:AS,?$(-@(( Saving Race 0 6.D1:!67@,.RACE067@,. @@DD(@>:AU,>:AU,>:AU,>:AU,%-@!(@8,% @$W@/(Disk full or Write Protected<(>:AS,P-@APT W$Get a race from Disk4-@0(Which Race Number ==>40 6.D1:!67@,.RACE067@,.  AI  @@@+-@@'68,-+ @$$$( No Race NO.  on Disk2(>:AS,$-@A( 2 AF*** Read Disk Files ***0 +0@@D:*.*"@(%Q7@<@,4FREE*@-(A( Hit N)@Q$( AX**** Delete a File ***+A-@=("Which Race do you wish to delete? A.0 6.D1:!67@,.RACE067@,.1+(@3@+$4Scratches7?"!-@/( No Field!<(>:AS,?$:6-@2(Type in the Horses name6= 6-B:,@-@C##6-+&@,$@%@FH47<&@%,667<%@ ,. SCRATCHED E68,-H$IQ (>:AS,6(None by that Name (Spelling?)J-@APN Q$K*** Print a Race ***L?"!-@/( No Field!<(>:AS,?$Oj#@@P:5-@]("Position the Paper Then Hit j)@R:6-@/ @  RACE::(@U Ap$X& +@#@&D2:HORSPLAY.BAS