*DECK TCOM88K 
USETEXT   TSOURCE 
USETEXT   TCEXECQ 
USETEXT   TCOM78Q 
USETEXT   TCOM39Q 
USETEXT   TREGNOS 
      PRGM  TCOM88K;
      BEGIN 
      CONTROL STEXT;
  
*CALL COMEX 
*CALL COM88K
  
      END 
      TERM
