home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB9.ZIP / GETFREE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-12-13  |  416 b   |  17 lines
  1. Program GetFree;
  2. Var
  3.  Free, total, size  :  byte;
  4.  drive   :   byte;
  5. {$I getfree.inc }
  6. begin
  7.   clrscr;
  8.   write('Enter drive number:  (0 = current dir, 1 = a:, 2 = b: ...)  ');
  9.   readln(drive);
  10.   get_free_space(free, total, size, drive);
  11.   writeln;
  12.   writeln('Drive ',drive,':');
  13.   writeln('Free clusters:    ',free);
  14.   writeln('Total clusters:   ',total);
  15.   writeln('Cluster size:     ',size);
  16. end.
  17.