*DECK TXTQRTP 
USETEXT COMCBEG 
PROC COMQRTP; 
CONTROL STEXT;
BEGIN 
*CALL COMQRTP 
END 
TERM
