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