PROGRAM EXTEST(OUTPUT);
PROCEDURE EXFUNC(VAR OP:TEXT);EXTERN;
BEGIN
WRITELN('CALLING EXFUNC');
EXFUNC(OUTPUT)
END.