{
  Issue QIO without waiting for completion
}


  PROCEDURE qio(VAR fnc: integer; { I/O function }
                VAR lun: integer; { Logical Unit Number }
                VAR efn: integer; { Event flag }
                VAR pri: integer; { Priority }
                VAR isb: io_status_block; { Status of operation }
                VAR param: qio_parameter_block; { Directive parameters }
                VAR ids: integer { Directive status }
                );
    NONPASCAL;

{
  Issue QIO and wait for completion
}


  PROCEDURE wtqio(VAR fnc: integer; { I/O function }
                  VAR lun: integer; { Logical Unit Number }
                  VAR efn: integer; { Event flag }
                  VAR pri: integer; { Priority }
                  VAR isb: io_status_block; { Status of operation }
                  VAR param: qio_parameter_block; { Directive parameters }
                  VAR ids: integer { Directive status }
                  );
    NONPASCAL;

{
  This dummy procedure is required since the Fortran entry points for
the QIO directives call the Fortran termination routine ($EXIT) for
some kinds of obscure errors.  This procedure is provided to prevent
UNDEFINED GLOBAL error messages from the Task Builder.
}


  PROCEDURE $exit;
    EXTERNAL;


  PROCEDURE $exit;


    BEGIN
    END;