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