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];