home *** CD-ROM | disk | FTP | other *** search
- {Public domain program od NoWork Computer Systems}
-
- uses Dos,crt;
- var
- Ver: Word;
- begin
- textbackground(black);
- textcolor(7);
- clrscr;
- writeln;
- writeln;
- writeln;
- writeln;
- textcolor(green);
- writeln(' Disk status (c) NoWork 1996.');textcolor(7);
- writeln('=================================');
- Writeln(DiskSize(0) div 1048576, ' Mbytes capacity');
- Writeln(DiskFree(0) div 1048576, ' Mbytes free ');
- writeln('=================================');
- Writeln(DiskSize(0) div 1024, ' Kbytes capacity');
- Writeln(DiskFree(0) div 1024, ' Kbytes free ');
- writeln('=================================');
- Writeln(DiskSize(0) div 1,' Bytes capacity');
- Writeln(DiskFree(0) div 1, ' Bytes free ');
- writeln('=================================');
- writeln;
- Ver := DosVersion;
- Writeln('This is DOS version ', Lo(Ver), '.',Hi(Ver));
- writeln;
- write('Press any key to continue . . .');
- repeat until readkey<>#0;
- end.
-