blob: 190577dcfbf3618cabd1f5c5f2aae4fe1c3dcb30 (
plain)
1
2
3
4
5
6
7
8
9
|
Program Example6;
uses Dos;
{ Program to demonstrate the DiskSize and DiskFree function. }
begin
WriteLn('This partition size has ',DiskSize(0),' bytes');
WriteLn('Currently ',DiskFree(0),' bytes are free');
end.
|
