*DECK TXTACBF 
USETEXT COMCBEG 
USETEXT COMADEF 
PROC COMACBF; 
CONTROL STEXT;
BEGIN 
*CALL COMACBF 
END 
TERM
