%PROCEDURE CALLFUNC(FUNC,PARAM,RES);
%VALUE PARAM;%INTEGER PARAM,RES;
%INTEGER %PROCEDURE FUNC;
%COMMENT (VAL):%VALUE VAL:%INTEGER VAL;
%BEGIN
PRINTSTRING(<ENTERING CALLFUNC>);NEWLINE;
RES:=FUNC(PARAM);
%END;