%BEGIN
%EXTERNALROUTINESPEC CALLFUNC(%INTEGERFN FUNC,%INTEGER PARAM, %C
            %INTEGERNAME RES)
%INTEGERFN SETVAL(%INTEGER VAL)
%RESULT=VAL
%END
%INTEGER FIVE
PRINTSTRING('CALLING CALLFUNC')
NEWLINE
CALLFUNC(SETVAL,5,FIVE)
PRINTSTRING('FIVE=')
WRITE(FIVE,4)
NEWLINE
%ENDOFPROGRAM