home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / ctenari / NoWork / PASCAL / DISKSTAT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-12-30  |  1001 b   |  33 lines
  1. {Public domain program od NoWork Computer Systems}
  2.  
  3. uses Dos,crt;
  4. var
  5.  Ver: Word;
  6. begin
  7.  textbackground(black);
  8.  textcolor(7);
  9.  clrscr;
  10.  writeln;
  11.  writeln;
  12.  writeln;
  13.  writeln;
  14.  textcolor(green);
  15.  writeln('   Disk status (c) NoWork 1996.');textcolor(7);
  16.  writeln('=================================');
  17.  Writeln(DiskSize(0) div 1048576, '             Mbytes capacity');
  18.  Writeln(DiskFree(0) div 1048576, '              Mbytes free ');
  19.  writeln('=================================');
  20.  Writeln(DiskSize(0) div 1024, '          Kbytes capacity');
  21.  Writeln(DiskFree(0) div 1024, '           Kbytes free ');
  22.  writeln('=================================');
  23.  Writeln(DiskSize(0) div 1,'       Bytes capacity');
  24.  Writeln(DiskFree(0) div 1, '        Bytes free ');
  25.  writeln('=================================');
  26.  writeln;
  27.  Ver := DosVersion;
  28.  Writeln('This is DOS version ', Lo(Ver), '.',Hi(Ver));
  29.  writeln;
  30.  write('Press any key to continue . . .');
  31.  repeat until readkey<>#0;
  32. end.
  33.