*DECK TXTACST 
USETEXT COMCBEG 
PROC COMACST; 
CONTROL STEXT;
BEGIN 
*CALL COMACST 
END 
TERM
