home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1318 / gepackt.exe / UTILITY / SOURCE / FREE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-04-26  |  417 b   |  23 lines
  1. {$A+,B-,D+,E-,F-,I+,L+,N-,O-,R-,S-,V+}
  2. {$M 5000,5000,10000}
  3. program free;
  4.  
  5.   uses
  6.     testfile,uupcase,dos;
  7.  
  8.   var
  9.     s : string;
  10.     n : longint;
  11.     b : byte;
  12.  
  13.   begin
  14.     s:=paramstr(1);
  15.     if s='' then getdir(0,s);
  16.     s:=copy(s,1,2);
  17.     upcasestring(s);
  18.     b:=ord(s[1])-pred(ord('A'));
  19.     n:=diskfree(b);
  20.     writeln('Laufwerk ',s,' ',n,' Bytes frei');
  21.     if n<0 then halt(1);
  22.   end.
  23.