Program DiskPlayFreeDisk;
USES  VPSysLow, SysUtils;

FUNCTION DiskFreeLong(Disk : CHAR) : TQuad; // TQuad = COMP //
  BEGIN
    DiskFreeLong:=SysDiskFreeLong(Byte(Disk) AND $1F);
  END;

begin
  clrscr;
  writeln('Disk Free: ', DiskFreeLong('C'));
  writeln('Sucks I know, but have to convert it to string somehow..');
  readln;
end.
