%EXTERNALROUTINE CALLFUNC(%INTEGERFN FUNC,%INTEGER PARAM, %C
          %INTEGERNAME RES)
%SPEC FUNC(%INTEGER VAL)
PRINTSTRING('ENTERING CALLFUNC');NEWLINE
RES=FUNC(PARAM)
%END
%ENDOFFILE