*DECK TAFIT 
      PROC TAFIT; 
      BEGIN 
      CONTROL STEXT ; 
      BASED ARRAY AFIT; 
*CALL AFIT
      END 
      TERM
