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
.