*DECK TXTMNET 
USETEXT COMCBEG 
    PROC COMRNET; 
CONTROL STEXT;
      BEGIN 
*CALL COMRNET 
      END 
    TERM
