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 / ENTERPRS / CPM / UTILS / A / ARC20.ARC / ARCDEF.INC < prev    next >
Text File  |  1989-11-10  |  1KB  |  32 lines
  1. (* ARCDEF.INC TR 311089 *)
  2. (* DO NOT MODIFY DATA ORDER OF RECORDS!!! USED IN INLINES! *)
  3.  
  4. type  str4      = string[4];
  5.       filenam   = string[16];
  6.       longword  = record
  7.                     case byte of
  8.                       0 : (lo,hi : integer);
  9.                       1 : (dum : byte; mid : integer);
  10.                       2 : (b0,b1,b2,b3 : byte);
  11.                     end;
  12.       binfile   = record
  13.                     buff         : array[0..255] of byte;
  14.                     fsize,actpos : longword;
  15.                     feof         : boolean;
  16.                     id           : file;
  17.                     end;
  18.       headtype  = record
  19.                     case byte of
  20.                       0 : (vers          : byte;
  21.                            name          : array[1..13] of char;
  22.                            size          : longword;
  23.                            date,time,crc : integer;
  24.                            length        : longword);
  25.                       1 : (arr           : array[1..28] of byte);
  26.                     end;
  27.       arglist   = array[1..10] of filenam;
  28.       flaglist  = array[1..10] of boolean;
  29.  
  30. const long_null : longword = (lo:0; hi:0);
  31.       long_eins : longword = (lo:1; hi:0);
  32.