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