ListRTBcd.mesa
Russ Atkinson, October 24, 1983 4:05 pm
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.