home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 153.img / TELES.ZIP / FREEK.PAS < prev    next >
Pascal/Delphi Source File  |  1988-07-14  |  294b  |  20 lines
  1. uses
  2.   crt,
  3.   dos;
  4.  
  5. procedure freebytes;
  6. var r:real; regs:registers; i:string[161];
  7. begin
  8.   regs.dx:=3;
  9.   regs.ax:=$36*256;
  10.   MsDos(regs);
  11.   r:=(regs.ax)*(regs.bx)*(regs.cx);
  12.   writeln(r);
  13.   str(r:8:2,i);
  14.   write(i+' Bytes');
  15. end;
  16.  
  17. begin
  18.   clrscr;
  19.   write(diskfree(3));
  20. end.