*DECK TCOMTF
      PRGM  TCOMTF; 
      BEGIN 
      CONTROL STEXT;
  
*CALL COMTF 
  
      END 
      TERM
