PROGRAM DEFCALLFUNC;
%KEYEDENTRY ON
PROCEDURE CALLFUNC(FUNCTION FUNC:INTEGER;PARAM:INTEGER;VAR RES:INTEGER);
BEGIN
RES:=FUNC(PARAM);
END;
FUNCTION SETVAL(VAL:INTEGER):INTEGER;
BEGIN
SETVAL:=VAL;
END;
BEGIN
END.