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 / WRTCARD.IZC / WRTCARD.INC
Text File  |  2000-06-30  |  512b  |  21 lines
  1. Procedure WriteCardFile;
  2. Begin
  3.    {$I-}
  4.    IOError;
  5.    Seek(Disk2,FilePointer);
  6.    IOError;
  7.    With CardRec do
  8.    Begin
  9.       For Row := 1 to MaxRows do
  10.       Begin
  11.          For Column := 1 to MaxColumns do
  12.          Begin
  13.             XCardArray[Column,Row] := CardArray[Column,Row];
  14.          End;
  15.       End;
  16.       Write(Disk2,CardRec);
  17.       IOError;
  18.    End;
  19.    {$I+}
  20. End;
  21.