*DECK TXTQTXT 
USETEXT COMCBEG 
USETEXT COMCAPR 
PROC COMQTXT; 
CONTROL STEXT;
BEGIN 
*CALL COMQTXT 
END 
TERM
