%INTEGER %PROCEDURE SETVAL(VAL);
%VALUE VAL;%INTEGER VAL;
%BEGIN
PRINTSTRING(<ENTERING_SETVAL>);NEWLINE;
SETVAL:=VAL;
%END;
%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;