- faster than std  + sign
  STD - ACT

  Accumulated
  T2 
  T2 = T1+


- temp_res
  temp_re   --- modify the sectional time 
  temp_re8  --- convert the margin to figure


- rescommk.dbf
  do add_h
  do add_dist
  do resc_con ---- running pos zero taken
  do add_sect ---- add sectional time

- pace2122.prg
  
- upd_pace.prg

  update the t1c t2c (horse's time and race time)

  temp_re1.prg

  add_sect.prg  --- Add sectional time for recommk.dbf    

                                 * 15.10  23.18

   ntfa1 = val(substr(mtfa,1,2))   15.00
   ntfa2 = val(substr(mtfa,4,2))   10.00
   ntfa3 = ntfa1 + 0.01 * ntfa2    15.1000

   nt1a1 = val(substr(mt1a,1,2))   23.00
   nt1a2 = val(substr(mt1a,4,2))   18.00
   nt1a3 = nt1a1 + 0.01 * nt1a2    23.1800


   nts1  = ntfa3 + nt1a3           38.2800 = length field =7
   pts1  = str(nts1,7,4)           


   pts1  = str(nts1,7,0)  38
   pts1  = str(nts1,7,1)  38.3   1 after decimal point
   pts1  = str(nts1,7,2)  38.28

   pts1  = str(nts1,7,3)  38.280
   pts1  = str(nts1,7,4)  38.2800
   pts1  = str(nts1,7,5)  38.2800

      if nts2 > 60 .or. nts2 = 60 
         nts2a = nts2 - 60
	 if nts2a > 10.00	    
            pts2k = str(nts2a,7,2)      
            pts2 = '1.' + pts2k
         else
            pts2k = str(nts2a,4,2)  2.85  so (nts2a,4,2) 
            pts2 = '1.0' + pts2k
         endif
      endif

- 0.0000   1.00.02  OK  tested 
- 1.00.00