*DECK TXTACBX 
USETEXT COMCBEG 
USETEXT COMADEF 
PROC COMACBX; 
CONTROL STEXT;
BEGIN 
*CALL COMACBX 
END 
TERM
