*
* - function values for 'dos.library'
*

      integer Open            ; parameter (Open           =z'00241105')
      integer Close           ; parameter (Close          =z'00011106')
      integer Read            ; parameter (Read           =z'04C51107')
      integer Write           ; parameter (Write          =z'04C51108')
      integer Input           ; parameter (Input          =z'00000109')
      integer Output          ; parameter (Output         =z'0000010A')
      integer Seek            ; parameter (Seek           =z'04E5110B')
      integer DeleteFile      ; parameter (DeleteFile     =z'0000110C')
      integer Rename          ; parameter (Rename         =z'0004110D')
      integer Lock            ; parameter (Lock           =z'0024110E')
      integer UnLock          ; parameter (UnLock         =z'0001110F')
      integer DupLock         ; parameter (DupLock        =z'00011110')
      integer Examine         ; parameter (Examine        =z'00051111')
      integer ExNext          ; parameter (ExNext         =z'00051112')
      integer Info            ; parameter (Info           =z'00051113')
      integer CreateDir       ; parameter (CreateDir      =z'00001114')
      integer CurrentDir      ; parameter (CurrentDir     =z'00011115')
      integer IoErr           ; parameter (IoErr          =z'00000116')
      integer CreateProc      ; parameter (CreateProc     =z'A4E41117')
      integer Exit            ; parameter (Exit           =z'00011118')
      integer LoadSeg         ; parameter (LoadSeg        =z'00001119')
      integer UnLoadSeg       ; parameter (UnLoadSeg      =z'0001111A')
      integer DeviceProc      ; parameter (DeviceProc     =z'0000111D')
      integer SetComment      ; parameter (SetComment     =z'0004111E')
      integer SetProtection   ; parameter (SetProtection  =z'0024111F')
      integer DateStamp       ; parameter (DateStamp      =z'00001120')
      integer Delay           ; parameter (Delay          =z'00011121')
      integer WaitForChar     ; parameter (WaitForChar    =z'00251122')
      integer ParentDir       ; parameter (ParentDir      =z'00011123')
      integer IsInteractive   ; parameter (IsInteractive  =z'00011124')
      integer Execute         ; parameter (Execute        =z'04E41125')

* - modes for Open:

      integer MODE_OLDFILE     ; parameter (MODE_OLDFILE     =1005)
      integer MODE_NEWFILE     ; parameter (MODE_NEWFILE     =1006)

* - access modes for Lock:

      integer ACCESS_READ      ; parameter (ACCESS_READ      = -2 )
      integer ACCESS_WRITE     ; parameter (ACCESS_WRITE     = -1 )

* - offset values for Seek:

      integer OFFSET_BEGINNING ; parameter (OFFSET_BEGINNING = -1 )
      integer OFFSET_CURRENT   ; parameter (OFFSET_CURRENT   =  0 )
      integer OFFSET_END       ; parameter (OFFSET_END       =  1 )

* - end of directory return value for ExNext:

      integer ERROR_NO_MORE_ENTRIES
      parameter (ERROR_NO_MORE_ENTRIES = 232)