home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 168.img / XTMK42-2.ZIP / XTDRCHEK.XTS < prev    next >
Text File  |  1990-03-06  |  630b  |  29 lines
  1.  
  2. /*
  3.     Procedure CHECK_DRIVES: Check the system's disk drives, and
  4.         report disk capacities, noting same in the default window.
  5.         Used primarily as a translation for the XVI DRive command.
  6.  
  7.     CHECK_DRIVES
  8.  
  9.     Copyright (c) 1986, 1989, Digital Communications Associates, Inc.
  10.     All rights reserved
  11.     For Crosstalk Mk. 4, Ver 1.1 - 01-19-89 by Sheldon T. Hall
  12.  
  13. */
  14.  
  15. proc CHECK_DRIVES
  16.  
  17.     For I = 65 to 90
  18.         drdr = chr(I)
  19.         drcap = capacity(drdr)
  20.         drspc = diskspace(drdr)
  21.         If drcap > 0 then            ...
  22.             Print " Drive "; drdr;        ...
  23.                  " Capacity "; drcap;    ...
  24.                  " Space remaining "; drspc
  25.     Next
  26.  
  27. endproc
  28.  
  29.