home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TABUG.ZIP / TEST.TYP < prev    next >
Encoding:
Text File  |  1988-03-18  |  296 b   |  14 lines
  1. TYPE
  2. ketstr = string[1];
  3.  
  4. DataRec = record                   {data rec for TACESS datafile}
  5.   RecStatus : longint;
  6.   dstate     : byte;
  7.   unused     : array[1..3] of byte;
  8.   dcount     : longint;
  9.   ddummy     : integer;
  10.   end;{DataRec}
  11.  
  12. MaxDataType = DataRec;
  13. MaxKeyType  = ketstr;
  14.