<> <> <> DIRECTORY BcdDefs USING [BCD], IO USING [STREAM], Rope USING [ROPE], SymbolTable USING [Base]; CodeLister: DEFINITIONS = BEGIN BCD: TYPE = BcdDefs.BCD; RefBCD: TYPE = REF BCD; ROPE: TYPE = Rope.ROPE; STREAM: TYPE = IO.STREAM; SymbolTableBase: TYPE = SymbolTable.Base; ListCode: PROC [out,inStream: STREAM, stb: SymbolTableBase, bcd: RefBCD, pattern: ROPE]; ListFGT: PROC [out,inStream: STREAM, stb: SymbolTableBase, bcd: RefBCD]; END.