*DECK TXTQNET 
USETEXT COMCBEG 
USETEXT COMCAPR 
PROC COMQNET; 
CONTROL STEXT;
BEGIN 
*CALL COMQNET 
END 
TERM
