*DECK TCOM88
USETEXT   TSOURCE 
USETEXT   TCOM78Q 
USETEXT   TCEXECQ 
USETEXT   TREGNOS 
USETEXT   TCOMTF
      PRGM  TCOM88; 
      BEGIN 
      CONTROL STEXT;
  
*CALL COMEX 
*CALL COM88 
  
      END 
      TERM
