BcdLister.mesa
Copyright
© 1985 by Xerox Corporation. All rights reserved.
Russ Atkinson, March 7, 1985 4:08:17 am PST
Satterthwaite March 7, 1986 5:17:45 pm PST
DIRECTORY
BcdDefs:
TYPE
USING [
BCD],
IO:
TYPE
USING [
STREAM];
BcdLister:
DEFINITIONS = {
RefBCD:
TYPE =
REF BcdDefs.
BCD;
ListBcd:
PROC[stream, inStream:
IO.
STREAM, bcd: RefBCD, cmd:
ATOM];
}.