home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / DATABASE / FILCRD46.LBR / SETCARD.IZC / SETCARD.INC
Text File  |  2000-06-30  |  256b  |  11 lines
  1. Procedure SetCardFile;
  2. Begin
  3.    {$I-}
  4.    Filename := concat(Drive,'CARDFILE');
  5.    Assign(Disk2,Filename);
  6.    Reset(Disk2);
  7.    IOError;
  8.    FileEndpointer := Filesize(Disk2);
  9.    {$I+}
  10. End;
  11.