<> <> <> <> DIRECTORY Symbols USING [TransferMode, TypeClass], Tree USING [NodeName]; DebugTable: DEFINITIONS = { CSRptr: TYPE = LONG BASE POINTER TO CompStrRecord; CompStrDesc: TYPE = RECORD[offset, length: CARDINAL]; CompStrRecord: TYPE = RECORD [ stringOffset: CSRptr RELATIVE POINTER TO StringBody, NodePrintName: ARRAY Tree.NodeName OF CompStrDesc, TypePrintName: ARRAY Symbols.TypeClass OF CompStrDesc, ModePrintName: ARRAY Symbols.TransferMode OF CompStrDesc]; }.