home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MKEY4.ZIP / TEST.TYP < prev   
Encoding:
Text File  |  1988-04-19  |  463 b   |  18 lines
  1. TYPE
  2.   Str80 = STRING[80];
  3.   Inventory_Rec = RECORD
  4.                     Status : INTEGER;
  5.                     ProductCode : Str80;
  6.                     Description : Str80;
  7.                     VendorNumber : Str80;
  8.                   END;
  9.  
  10.   Vendor_Rec = RECORD
  11.                  Status : INTEGER;
  12.                  VendorNumber : Str80;
  13.                  VendorName : Str80;
  14.                END;
  15.  
  16.   MaxDataType = Inventory_Rec;
  17.   MaxKeyType = Str80;
  18.