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