%BEGIN
%EXTERNALROUTINESPEC IOPROC;
SELECTOUTPUT(1);
PRINTSTRING(' CALLING IOPROC');
NEWLINE;
IOPROC;
PRINTSTRING(' DID IT WORK');
NEWLINE;
%ENDOFPROGRAM