*DECK TXTRNDR 
USETEXT COMCBEG 
PROC COMRNDR; 
CONTROL STEXT;
BEGIN 
*CALL COMRNDR 
END 
TERM
