*DECK TXTRUNKN
USETEXT COMCBEG 
PROC COMRUNKN;
CONTROL STEXT;
BEGIN 
*CALL COMRUNKN
END 
TERM
