PROGRAM IOPROCDEF;
(*# E+*)
PROCEDURE IOPROC(VAR OP:TEXT);
BEGIN
WRITELN(OP,'OUTPUT FROM FUNC')
END;
BEGIN
END.