*DECK UTCITTX 
      PRGM UTCITTX; 
      CONTROL STEXT;
# *CALL UTCITDCLS # 
*CALL UTCITDCLS 
      TERM
