home *** CD-ROM | disk | FTP | other *** search
/ The Devil's Doorknob BBS Capture (1996-2003) / devilsdoorknobbbscapture1996-2003.iso / Dloads / PROGRAMM / BUILDER.ZIP / FREE.BLD < prev    next >
Text File  |  1992-11-17  |  903b  |  33 lines
  1. ' FREE.BLD
  2.  
  3. ' Displays drive statistics: space available, total space, and space used.
  4.  
  5. longint d,dsize
  6. string CurDisk
  7. integer status
  8. say "FREE by Tom Campbell: A HYPE utility"
  9. say "A free utility from hyperkinetix, inc."
  10.  
  11.  
  12. say
  13. if ParamCount is 1
  14.   CurDisk := CurrentDrive
  15.   d := DiskFree CurDisk
  16.   dsize := DiskSize CurDisk
  17.   say "Available disk space on drive "; CurDisk; "   "; d; " bytes."
  18.   say "Total capacity of drive "; CurDisk; "         "; dsize; " bytes."
  19.   say "Disk space in use on drive "; CurDisk; "      "; dsize-d; " bytes."
  20.   exit
  21. end
  22. ' Use %1
  23. status := DiskReady "%1"
  24. if status
  25.   d := DiskFree "%1"
  26.   dsize := DiskSize "%1"
  27.   say "Available disk space on drive %1:  "; d; " bytes."
  28.   say "Total capacity of drive %1:        "; dsize; " bytes."
  29.   say "Disk space in use on drive %1:     "; dsize-d; " bytes."
  30.   exit
  31. end
  32. say "Disk %1 isn't ready, dude."
  33.