ftp.barnyard.co.uk/2015.02.ftp.barnyard.co.uk.tar/ftp.barnyard.co.uk/cpm/walnut-creek-CDROM/CPM/DATABASE/FILCRD46.LBR/GETCARD.IZC/GETCARD.INC

Text File | 2000-06-30 | 640b | 25 lines

   Procedure GetCardRecord;
   Begin
      (* {$I-} *)
      Assign(Disk2,'B:CARDFILE');
      Reset(Disk2);
      IOError;
      Seek(Disk2,FilePointer);
      IOError;
      With Cardrec do
      Begin
         Read(Disk2,Cardrec);
         IOError;
         For Row := 1 to MaxRows do
         Begin
            For Column := 1 to MaxColumns do
            Begin
               CardArray[Column,Row] := XCardArray[Column,Row];
            End;
         End;
      End;
      Close(Disk2);
      IOError;
      {$I+}
   End;