*DECK TXTADFM 
USETEXT COMCBEG 
PROC COMADFM; 
CONTROL STEXT;
BEGIN 
*CALL COMADFM 
END 
TERM
