* check if hnum_T = 0 as 2 Tri togehter, one may longer than another and 
  shorter one will have zero at the bottom
  

***** create the array to store the horse no. reading from file ********
SELE 1
   CTR = 1
   MHNUM_F = 'MHNUM_F'+LTRIM(STR(CTR))  // MHNUM_F = MHNUM_F1 
   MHNUM_S = 'MHNUM_S'+LTRIM(STR(CTR))

*@ 0,0 say  MHNUM_F + MHNUM_S 
*wait

DO WHILE .NOT. EOF()

   &MHNUM_F = HNUM_F1       // &MHNUM_F (1) = MHNUM_F1 ---> &MHNUM_F (2)
   &MHNUM_S = HNUM_S1       // MHNUM_F1 = HNUM_F1, MHNUM_F2 = HNUM_F1, MHNUM_F3 = HNUM_F1 ... etc

@ 0,0 say  &MHNUM_F
@ 1,0 say  &MHNUM_S 
@ 2,0 say  ctr
wait

   CTR = CTR + 1
   MHNUM_F = 'MHNUM_F'+LTRIM(STR(CTR))
   MHNUM_S = 'MHNUM_S'+LTRIM(STR(CTR))
   SKIP

@ 10,0 SAY &MHNUM_F 
@ 11,0 SAY &MHNUM_S 
@ 12,0 say ctr

WAIT


ENDDO