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