%BEGIN
%PROCEDURE CALLFUNC(FUNC,PARAM,RES);
%VALUE PARAM;%INTEGER PARAM,RES;
%INTEGER %PROCEDURE FUNC;%COMMENT(VAL):%VALUE VAL:%INTEGER VAL;
%EXTERNAL CALLFUNC;
%INTEGER FIVE;
%INTEGER %PROCEDURE SETVAL(VAL);
%VALUE VAL;%INTEGER VAL;
%EXTERNAL SETVAL;
PRINTSTRING(<CALLING_CALLFUNC>);
NEWLINE;
CALLFUNC(SETVAL,5,FIVE);
PRINTSTRING(<FIVE_=>);
PRINT(FIVE,4,0);NEWLINE;
PRINTSTRING(<DID_IT_WORK>);NEWLINE;
%END;