<> <> <> <> <> 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..$new] OF CompStrDesc, ApplName: ARRAY Tree.NodeName[$apply..$joinx] OF CompStrDesc, FApplName: ARRAY Tree.NodeName[$restart..$broadcast] OF CompStrDesc, ErrorMessages: ARRAY Log.ErrorCode OF CompStrDesc]; }.