<> <> <> DIRECTORY BcdDefs USING [BCD], IO USING [STREAM]; BcdLister: DEFINITIONS = { BCD: TYPE = BcdDefs.BCD; RefBCD: TYPE = REF BCD; STREAM: TYPE = IO.STREAM; ListBcd: PROC [stream,inStream: STREAM, bcd: RefBCD, cmd: ATOM]; }.