<<>> <> <> <> DIRECTORY RCMap USING [Base, Index, Object]; RCMapEncode: DEFINITIONS = { <> MapToDesc: PROC [base: RCMap.Base, first: RCMap.Index, text: REF TEXT] RETURNS [REF TEXT]; <> DescToIndex: PROC [text: REF TEXT, uz: UNCOUNTED ZONE, lookup: LookupProc] RETURNS [RCMap.Index]; <> <> LookupProc: TYPE = PROC [rp: LONG POINTER TO RCMap.Object] RETURNS [index: RCMap.Index, found: BOOL]; <> <<>> }.