<> <> <> DIRECTORY BcdDefs USING [BCD], IO USING [STREAM]; ListRTBcd: DEFINITIONS = BEGIN RefBCD: TYPE = REF BcdDefs.BCD; STREAM: TYPE = IO.STREAM; PrintRTBcd: PROC [out,inStream: STREAM, bcd: RefBCD]; END.