%include "CONSTS"

%control 0

%external %integer %function  CHECK %alias "IO$CHECK" %c
                                    (%integer sno, min)
   %signal 9, 2, sno %unless min <= sno <= max streams
   %result = sno
%end

%end %of %file