<> <> <> DIRECTORY Log: TYPE USING [ErrorCode], Tree: TYPE USING [NodeName]; ErrorTable: DEFINITIONS = { CSRptr: TYPE = LONG BASE POINTER TO CompStrRecord; CompStrDesc: TYPE = RECORD[offset, length: CARDINAL]; CompStrRecord: TYPE = RECORD [ stringOffset: CSRptr RELATIVE POINTER TO StringBody, OpName: ARRAY Tree.NodeName[assignx..uparrow] OF CompStrDesc, FnName: ARRAY Tree.NodeName[min..nil] OF CompStrDesc, ErrorMessages: ARRAY Log.ErrorCode OF CompStrDesc]; }.