Click above to get retro games delivered to your door ever month!

  Name:     diskspace() - get the amount of disk space left
  Usage:    <integer> = diskspace([<drive>])
  Params:   string <drive> - drive letter to check, optional - if
            none, then the default is the currently logged drive
  Returns:  integer equal to the amount of available disk space left

 ---------------------------------- Example ---------------------------------

                 if diskspace("A:") < filesize("client.dbf")
                      @ 0,0 say "Can't create backup...."
                 else
                      fcopy("client.dbf","A:client.dbf")
                 endif

  Note:     For compatibility with Clipper, you can also pass
            an integer to diskspace() where 0 is the default drive,
            1 is A:, 2 is B: etc. This function sets ferror() if
            an error occurs.