{ IMPORTANT DOS FUNCTIONS XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX }

  procedure getdate(var year,month,day,dayofweek : word);
  procedure setdate(year,month,day : word);
  procedure gettime(var hour,minute,second,sec100 : word);
  procedure settime(hour,minute,second,sec100 : word);

  function  diskfree(drive : byte) : longint;
  function  disksize(drive : byte) : longint;

  procedure getfattr(var f;var attr : word);
  procedure setfattr(var f;attr : word);
  procedure getftime(var f;var time : longint);
  procedure setftime(var f;time : longint);

  procedure findfirst(path : pathstr;attr : word;var f : searchrec);
  procedure findnext(var f : searchrec);

  function  fexpand(path : pathstr) : pathstr;
  procedure fsplit(
    path : pathstr;var dir : dirstr;
    var name : namestr;var ext : extstr
  );

  function  __existfil(pathname : pathstr) : boolean;
  procedure __erasefil(filename : pathstr; var errorcode : word);
  procedure intr(intno : byte; var regs : registers);
  procedure swapvectors;
  function  envcount : integer;
  function  envstr(index : integer) : string;
  function  getenv(envvar : string) : string;
  function  __dosinkey(var extendedcode : byte) : char;
  function  __retkey: word;
  function  __exinkey(useextended: boolean; var scancode: byte): char;
  function  __exrdykey(
    useextended : boolean;
    var nextch : char;
    var scancode : byte
  ) : boolean;
  procedure __flushkey;


  { LOCK FUNCTIONS }
  function fopen(var fv : stream; fn : pathstr; mode : integer) : integer;
  function fclose(var fv : stream) : integer;
  function shareloaded : boolean;
  function filelock(
    handle :    word;
    action :    byte;
    start,
    bytes  : longint;
    var ax : integer
  ): boolean;