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