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