PROGRAM EXTERN1;
%KEYEDENTRY ON
PROCEDURE EXFUNC(VAR OP:TEXT);
BEGIN
WRITELN(OP,'OUTPUT FROM FUNC')
END;
BEGIN
END.