ListRTBcd.mesa
Copyright
© 1985 by Xerox Corporation. All rights reserved.
Russ Atkinson, March 7, 1985 4:08:34 am PST
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.