CHName: PROGRAM 2 VERSION 0 = BEGIN Organization: TYPE = STRING; maxOrganizationLength: CARDINAL = 20; -- in bytes OrganizationName: TYPE = Organization; Domain: TYPE = STRING; maxDomainLength: CARDINAL = 20; -- in bytes DomainName: TYPE = TwoPartName; Object: TYPE = STRING; maxObjectLength: CARDINAL = 40; -- in bytes ObjectName: TYPE = ThreePartName; Name: TYPE = ThreePartName; TwoPartName: TYPE = RECORD [ organization: Organization, domain: Domain ]; ThreePartName: TYPE = RECORD [ organization: Organization, domain: Domain, object: Object ]; END. ° CHName0.cr Copyright Σ 1986, 1991 by Xerox Corporation. All rights reserved. Bill Jackson (bj) August 8, 1986 7:25:29 pm PDT Demers, January 14, 1987 10:00:19 pm PST ΚM•NewlineDelimiter –(cedarcode) style™šœ ™ Icodešœ Οeœ6™BK™/K™(—J˜šΟnœΟkœŸœŸ˜#J˜JšœŸœŸœ˜JšœŸœΟc ˜1JšœŸœ˜&J˜JšœŸœŸœ˜JšœŸœ   ˜+Jšœ Ÿœ˜J˜JšœŸœŸœ˜JšœŸœ   ˜+Jšœ Ÿœ˜!J˜JšœŸœ˜J˜šœ ŸœŸœ˜J˜J˜J˜—J™šœŸœŸœ˜J˜J˜J˜J˜J˜—JšŸœ˜——…—2/