%SYSTEMROUTINESPEC IOCP(%INTEGER EP,N)
%SYSTEMINTEGERMAPSPEC COMREG(%INTEGER I)
%EXTERNALROUTINE SETMARGINS(%INTEGER STREAM,L,R)
%INTEGER I
%IF STREAM=COMREG(22) %THEN I=12 %ELSESTART
  %IF STREAM=COMREG(23) %THEN I=13 %ELSESTART
    PRINTSTRING('
*** INVALID STREAM
')
    %MONITOR
    %STOP
  %FINISH
%FINISH
IOCP(I,L<<16!R)
%END
%ENDOFFILE