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