Program DiskFreeWorkAround;
{$M $4000,0,0 }   { 16K stack, no heap }
uses crt, Dos;
var
 command : string;
 readfile : text;
 readin   : string;
Begin
 clrscr;
 command := ' /C dir /W ';
 SwapVectors;
  Exec(GetEnv('COMSPEC'), command);
 SwapVectors;
 assign(readfile,'diskfree.txt');
 reset(readfile);
 while not eof(readfile) do begin
   readln(readfile,readin);
 end;
 close(readfile);
 writeln(readin);

End.