ǥ01Hǥ0 XxD xT4x}0uؖ dpd8xK }hؖ@5ؖ}I}}@E 8 P d" ؖ dX P h 8yؖxؖPHW89ؖX}N]}Tؖdؖ}8y0)H@8R8p4ؖ`ؖ8+P8 !ؖX"p"ؖH}#@-$8x%ؖP%d &&ؖQ'83(ؖ(z)C* ++ؖl,ؖ--c.,//0ؖ#1X283ؖ3G455x6ؖh7`58d8I9:ؖ:Y; <ȹ<8=K>>ؖȒ?8u@88WA8p9B}(BؖNCCDؖDEؖE8ؽFؖTGH}`H}II8HJ@BKؖKؖoL8(RM8`4N1@SORTTRAX fmRM_Make DBTRACKERREPORTTESTDRIVE 0 ,DSORTTRAX;sel;alph;M;T;Y;I;MM alph'ABCDEFGHIJKLMNOPQRSTUVWXYZ' sel01TRAX  sel['fmRM.f1.ls1' wi 'value']1 M'fmRM.f1.ls1' wi 'list'  TOPM[1;]  MMM1 0M TM U2BNI '2'  Y0 :while 01M YY,((,M[1;])~alph,' ')U2BNI '('  M1 0M :endwhile (BY_TRACK,BY_YEAR_INC,BY_YEAR_DEC)[(0 1 2)sort31+sort] BY_TRACK: IalphT,alph['0123456789'푑MATRIFY Y]  TRAXTOP EXTEND MM[I;]'fmRM.f1.ls1' wi 'list' TRAX 'fmRM.f1.ls1' wi 'value' (OM sel[1],(1sel)[I])  0 BY_YEAR_INC: IY  TRAXTOP EXTEND MM[I;] 'fmRM.f1.ls1' wi 'list' TRAX 'fmRM.f1.ls1' wi 'value' (OM sel[1],(1sel)[I])  0 BY_YEAR_DEC: IY  TRAXTOP EXTEND MM[I;] 'fmRM.f1.ls1' wi 'list' TRAX 'fmRM.f1.ls1' wi 'value' (OM sel[1],(1sel)[I])  0 10wufmRM_Make;x;wself fmRM_Make -- Created 10/11/03 at 18:22:38 'fmRM' wi 'Delete' wself'fmRM' wi 'New' 'Form' 'Close' wi 'caption' 'A+ Performance Tracker Criteria Selection' wi 'extent' (19.875 76.25resfac) wi 'where' (10.625 16.625resfac) wi 'onResize' 'fmRM_Resize wsec' wself'fmRM.f1' wi 'New' 'Frame' wi 'caption' 'Choose One or More Tracks' wi 'tooltip' 'Choose one or more Tracks from this list. The default of "All Tracks" will be used if "All Tracks" is selected either by itself or with other tracks or if no tracks are selected. ' wi 'tooltipwidth' 50 wi 'where' (1 1 7.5 194resfac) wself'fmRM.f1.bn1' wi 'New' 'Button' wi 'caption' 'Sort' wi 'where' (.3 13 .65 44resfac) wi 'onClick' 'SORTTRAX' wself'fmRM.f1.ls1' wi 'New' 'List' wi 'list' TRAX wi 'style' 17 wi 'value' (,1) wi 'tooltip' 'Choose one or more Tracks from this list. The default of "All Tracks" will be used if "All Tracks" is selected either by itself or with other tracks or if no tracks are selected. The numbers in parentheses are the number of race cards for each represented track.' wi 'tooltipwidth' 50 wi 'where' (1 1 6.5 174resfac) wself'fmRM.f2' wi 'New' 'Frame' wi 'caption' 'Choose Race Length' wi 'tooltip' 'Choose one of the noted Distances (Sprint is less than 1 Mile and Route is 1 Mile or greater) or Both for races at all distances to be considered. ' wi 'tooltipwidth' 50 wi 'where' (0.5 22 8 154resfac) wself'fmRM.f2.op1' wi 'New' 'Option' wi 'caption' 'Sprint' wi 'value' 0 wi 'tooltip' 'Choose one of the noted Distances (Sprint is less than 1 Mile and Route is 1 Mile or greater) or Both for races at all distances to be considered. ' wi 'tooltipwidth' 50 wi 'where' (1.5 2 1 94resfac) wself'fmRM.f2.op2' wi 'New' 'Option' wi 'caption' 'Route' wi 'value' 0 wi 'tooltip' 'Choose one of the noted Distances (Sprint is less than 1 Mile and Route is 1 Mile or greater) or Both for races at all distances to be considered. ' wi 'tooltipwidth' 50 wi 'where' (3.5 2 1 94resfac) wself'fmRM.f2.op3' wi 'New' 'Option' wi 'caption' 'Both' wi 'value' 1 wi 'tooltip' 'Choose one of the noted Distances (Sprint is less than 1 Mile and Route is 1 Mile or greater) or Both for races at all distances to be considered. ' wi 'tooltipwidth' 50 wi 'where' (5.5 2 1 94resfac) wself'fmRM.f3' wi 'New' 'Frame' wi 'caption' 'Choose Race Surface' wi 'tooltip' 'Choose one of the noted Surfaces (Dirt or Turf) or Both for all racing surfaces to be considered. ' wi 'tooltipwidth' 50 wi 'where' (0.5 39 8 154resfac) wself'fmRM.f3.op1' wi 'New' 'Option' wi 'caption' 'Dirt' wi 'value' 0 wi 'tooltip' 'Choose one of the noted Surfaces (Dirt or Turf) or Both for all racing surfaces to be considered. ' wi 'tooltipwidth' 50 wi 'where' (1.5 2 1 94resfac) wself'fmRM.f3.op2' wi 'New' 'Option' wi 'caption' 'Turf' wi 'value' 0 wi 'tooltip' 'Choose one of the noted Surfaces (Dirt or Turf) or Both for all racing surfaces to be considered. ' wi 'tooltipwidth' 50 wi 'where' (3.5 2 1 94resfac) wself'fmRM.f3.op3' wi 'New' 'Option' wi 'caption' 'Both' wi 'value' 1 wi 'tooltip' 'Choose one of the noted Surfaces (Dirt or Turf) or Both for all racing surfaces to be considered. ' wi 'tooltipwidth' 50 wi 'where' (5.5 2 1 94resfac) wself'fmRM.f4' wi 'New' 'Frame' wi 'caption' 'Choose Race Classification(s)' wi 'tooltip' 'Choose one or more Race Classifications from this list. The default of "All Classifications" will be used if "All Classifications" is selected either by itself or with other classifications or if no classifications are selected. ' wi 'tooltipwidth' 50 wi 'where' (1 56 7.5 194resfac) wself'fmRM.f4.ls1' wi 'New' 'List' wi 'list' 'All Classifications' 'Maiden' 'Claiming' 'Allowance' 'Stakes' 'Handicap' 'Other' wi 'style' 17 wi 'value' (,1) wi 'tooltip' 'Choose one or more Race Classifications from this list. The default of "All Classifications" will be used if "All Classifications" is selected either by itself or with other classifications or if no classifications are selected. ' wi 'tooltipwidth' 50 wi 'where' (1 2 6.5 154resfac) wself'fmRM.f5' wi 'New' 'Frame' wi 'caption' 'Choose Date Range YYYYMMDD' wi 'tooltip' 'Enter a date range in "yyyymmdd" format (e.g. 20030901 for September 1st, 2003). Typing one date (or the same date twice) will construct your report for that day only. Leaving both fields blank will default to "All Dates". Typing 0 and 99999999 will also imply "All Dates". ' wi 'tooltipwidth' 50 wi 'where' (9 22 3.5 324resfac) wself'fmRM.f5.l1' wi 'New' 'Label' wi 'caption' 'From' wi 'where' (1.5 1 1 44resfac) wself'fmRM.f5.ed1' wi 'New' 'Edit' wi 'limit' 8 wi 'tooltip' 'Enter a date range in "yyyymmdd" format (e.g. 20030901 for September 1st, 2003). Typing one date (or the same date twice) will construct your report for that day only. Leaving both fields blank will default to "All Dates". Typing 0 and 99999999 will also imply "All Dates". ' wi 'tooltipwidth' 50 wi 'where' (1.5 5 1 94resfac) wself'fmRM.f5.l2' wi 'New' 'Label' wi 'caption' 'Through' wi 'where' (1.5 15 1 64resfac) wself'fmRM.f5.ed2' wi 'New' 'Edit' wi 'limit' 8 wi 'tooltip' 'Enter a date range in "yyyymmdd" format (e.g. 20030901 for September 1st, 2003). Typing one date (or the same date twice) will construct your report for that day only. Leaving both fields blank will default to "All Dates". Typing 0 and 99999999 will also imply "All Dates". ' wi 'tooltipwidth' 50 wi 'where' (1.5 21 1 94resfac) BEGIN BET TYPE SECTION wself'fmRM.f8' wi 'New' 'Frame' wi 'caption' 'Choose Bet Types' wi 'tooltip' 'Check all bet types you wish to see on your Tracker Strategy Report.' wi 'tooltipwidth' 50 wi 'where' (12.5 22 4 324resfac) wself'fmRM.f8.ck1' wi 'New' 'Check' wi 'caption' 'ALL' wi 'tooltip' 'Check all bet types you wish to see on your Tracker Strategy Report.' wi 'tooltipwidth' 50 wi 'value' 1 wi 'onClick' 'RMRESET 1' wi 'where' (.5 21.5 1 104resfac) wself'fmRM.f8.ck2' wi 'New' 'Check' wi 'caption' 'Win' wi 'tooltip' 'Check all bet types you wish to see on your Tracker Strategy Report.' wi 'tooltipwidth' 50 wi 'value' 0 wi 'onClick' 'RMRESET 2' wi 'where' (1.5 .5 1 104resfac) wself'fmRM.f8.ck3' wi 'New' 'Check' wi 'caption' 'Place' wi 'tooltip' 'Check all bet types you wish to see on your Tracker Strategy Report.' wi 'tooltipwidth' 50 wi 'value' 0 wi 'onClick' 'RMRESET 3' wi 'where' (1.5 11 1 104resfac) wself'fmRM.f8.ck4' wi 'New' 'Check' wi 'caption' 'Show' wi 'tooltip' 'Check all bet types you wish to see on your Tracker Strategy Report.' wi 'tooltipwidth' 50 wi 'value' 0 wi 'onClick' 'RMRESET 4' wi 'where' (1.5 21.5 1 104resfac) wself'fmRM.f8.ck5' wi 'New' 'Check' wi 'caption' 'Exacta' wi 'tooltip' 'Check all bet types you wish to see on your Tracker Strategy Report.' wi 'tooltipwidth' 50 wi 'value' 0 wi 'onClick' 'RMRESET 5' wi 'where' (2.5 .5 1 104resfac) wself'fmRM.f8.ck6' wi 'New' 'Check' wi 'caption' 'Trifecta' wi 'tooltip' 'Check all bet types you wish to see on your Tracker Strategy Report.' wi 'tooltipwidth' 50 wi 'value' 0 wi 'onClick' 'RMRESET 6' wi 'where' (2.5 11 1 104resfac) wself'fmRM.f8.ck7' wi 'New' 'Check' wi 'caption' 'Superfecta' wi 'tooltip' 'Check all bet types you wish to see on your Tracker Strategy Report.' wi 'tooltipwidth' 50 wi 'value' 0 wi 'onClick' 'RMRESET 7' wi 'where' (2.5 21.5 1 104resfac) END OF BET TYPE SECTION wself'fmRM.bn1' wi 'New' 'Button' wi 'caption' 'OK' wi 'tooltip' 'Click "OK" to create your report. ' wi 'tooltipwidth' 50 wi 'where' (17 13 2.5 104resfac) wi 'style' 1 wi 'onClick' 'fmRM_bn1_Click' wself'fmRM.bn2' wi 'New' 'Button' wi 'caption' '&Clear All' wi 'tooltip' 'Click "Clear All" to reset all criteria back to their default values. ' wi 'tooltipwidth' 50 wi 'where' (17 33 2.5 104resfac) wi 'onClick' 'fmRM_bn2_Click' wself'fmRM.bn3' wi 'New' 'Button' wi 'caption' 'E&xit' wi 'tooltip' 'Click "Exit" to leave without creating a report. ' wi 'tooltipwidth' 50 wi 'where' (17 53 2.5 104resfac) wi 'style' 2 wi 'onClick' 'fmRM_bn3_Click' wself'fmRM.f6' wi 'New' 'Frame' wi 'caption' 'Choose Report Format' wi 'tooltip' 'Choose the type of file you want as your report output. Plain Text will look good in Notepad or Word. HTML will give a color coded report (Blue=Winning Strategy, Red=Losing Strategy) that you can view in a Browser window or edit in Microsoft Word to produce a color hard copy printout. (Note that Spreadsheet Reports can only be created for All Strategies).'wi 'tooltipwidth' 50 wi 'where' (9 1 6 194resfac) wself'fmRM.f6.op1' wi 'New' 'Option' wi 'caption' 'Plain Text (.txt)' wi 'value' 1 wi 'tooltip' 'Choose the type of file you want as your report output. Plain Text will look good in Notepad or Word. HTML will give a color coded report (Blue=Winning Strategy, Red=Losing Strategy) that you can view in a Browser window or edit in Microsoft Word to produce a color hard copy printout. (Note that Spreadsheet Reports can only be created for All Strategies).'wi 'tooltipwidth' 50 wi 'where' (1.5 2 1 154resfac) wself'fmRM.f6.op2' wi 'New' 'Option' wi 'caption' 'Browser (.htm)' wi 'value' 0 wi 'tooltip' 'Choose the type of file you want as your report output. Plain Text will look good in Notepad or Word. HTML will give a color coded report (Blue=Winning Strategy, Red=Losing Strategy) that you can view in a Browser window or edit in Microsoft Word to produce a color hard copy printout. (Note that Spreadsheet Reports can only be created for All Strategies).'wi 'tooltipwidth' 50 wi 'where' (3 2 1 154resfac) wself'fmRM.f6.op3' wi 'New' 'Option' wi 'caption' 'Spreadsheet (.xlr)' wi 'value' 0 wi 'tooltip' 'Choose the type of file you want as your report output. Plain Text will look good in Notepad or Word. HTML will give a color coded report (Blue=Winning Strategy, Red=Losing Strategy) that you can view in a Browser window or edit in Microsoft Word to produce a color hard copy printout. (Note that Spreadsheet Reports can only be created for All Strategies).'wi 'tooltipwidth' 50 wi 'where' (4.5 2 1 154resfac) wself'fmRM.f7' wi 'New' 'Frame' wi 'caption' 'Choose Strategies' wi 'tooltip' 'Choose to include either "All Strategies" or "Winning Strategies Only" on your report. "All Strategies" can generate a report in excess of 1,000 lines. And if you''re using this report to place real bets, why look at losing strategies? ' wi 'tooltipwidth' 50 wi 'where' (9.5 56 5.5 194resfac) wself'fmRM.f7.op1' wi 'New' 'Option' wi 'caption' 'All Strategies' wi 'value' 0 wi 'tooltip' 'Choose to include either "All Strategies" or "Winning Strategies Only" on your report. "All Strategies" can generate a report in excess of 1,000 lines. And if you''re using this report to place real bets, why look at losing strategies? ' wi 'tooltipwidth' 50 wi 'where' (1.5 1 1 184resfac) wself'fmRM.f7.op2' wi 'New' 'Option' wi 'caption' 'Winning Strategies Only' wi 'value' 1 wi 'tooltip' 'Choose to include either "All Strategies" or "Winning Strategies Only" on your report. "All Strategies" can generate a report in excess of 1,000 lines. And if you''re using this report to place real bets, why look at losing strategies? ' wi 'tooltipwidth' 50 wi 'where' (3.5 1 1 174resfac) ) t0 <LUZDBTRACKERREPORT;CRIT;TD;TRAX;T;D;dst;win;X;file;type;write;filename;wsec;bets;sort 1.) PRESENT FORM fmRM 2.) VALIDATE INPUT 3.) BUILD REPORT CRIT CREATED IN "OK" AND "EXIT" ON-CLICK EVENTS CRIT[1]=TRACKS, CRIT[2]=DISTANCE, CRIT[3]=SURFACE, CRIT[4]=RACE TYPE CRIT[5]=DATES, CRIT[6]=FILE TYPE, CRIT[7]=STRATEGY Z''  (0TRAXDBTRACKS)/ERR0  sort0 L00:TD10000 100 1003TS  fmRM_Make wsecWSECGET 'fmRM' L0:Z'' L1:CRIT'' 0 0'fmRM' wi 'Wait' PRESENT FORM, WAIT ON USER ACTION (0=CRIT)/LX ABORT TRAX: (1(CRIT[1]))/'T''''  DST' "All Tracks" SELECTED (0=CRIT[1])/'T''''  DST' NO TRACKS SELECTED (DEFAULT IS ALL) TTRIM TRAX[CRIT[1];] SOME TRACKS (AND NOT ALL!) SELECTED dbtdT((1T),7)T tttyyyy DST: (1CRIT[4])/'CRIT[4] ,1' ALL RACE TYPES SELECTED (3=XCRIT[2])/'X2' DISTANCE dst1000X 1000, 2000 or (1000,2000) (3=XCRIT[3])/'X2' SURFACE dst,dst.+100X KEEP BUILDING (1XCRIT[4])/'X1+6' RACE TYPE(S) dst,dst.+10X-1 KEEP BUILDING dst,dst.+5  dstdst[dst] BETS/CASHES/AMT BET/AMT CASHED dst(dst>1000)/dst REMOVE 0001, 0002 etc (96=dst)/'0 0EX ''dst''' IF ALL SELECTED, ERASE dst DATE: DCRIT[5] DATE(S) (~^/(8D)' 0123456789')/ERR1A NON NUMERIC DATES (~^/(8D)' 0123456789')/ERR1B NON NUMERIC DATES (1<1'0 ',8D)/ERR1A >1 NUMBER IN FIRST DATE FIELD (1<1'0 ',8D)/ERR1B >1 NUMBER IN SECOND DATE FIELD D1'0 ',D ALRIGHT TO MAKE NUMERIC NOW (0=D)/'D''''  STRAT' DEFAULT IS ALL DATES (1=DREMDUP D)/STRAT IN CASE BOTH DATES THE SAME IF WE'VE GOTTEN THIS FAR, WE HAVE 2 DATES! (/(D[1]>TD),D[1]<20000000)/ERR1A FIRST DATE OUT OF RANGE (/(D[2]>TD),D[2]<20000000)/ERR1B SECOND DATE OUT OF RANGE D-D[D] SORT AND ADD "-" TO SIGNIFY A RANGE STRAT:win2=CRIT[7] WINNING STRATEGIES = 1, ELSE 0 FILE:fileCRIT[6] TXT=1, HTML=2, CSV=3 BETS:betsCRIT[8] DESIRED BET TYPES fmRM_bn2_Click RESET FORM TO ALL DEFAULTS (AT,AH,AC,WT,WH,WC)[file+3win] WHICH FILE TYPE/STRATEGY? WH:type'.htm'  (0ZT DBHTMLW D)/L9 REPORT((1 0V2CM Z)DROPTHRU '">')U2BNI '')U2BNI '