Translate.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last edited by Tim Diebert: May 13, 1985 1:32:25 pm PDT
Last Edited by: McCreight, February 26, 1985 10:06:38 am PST
DIRECTORY TapeStreams;
Translate: CEDAR DEFINITIONS = BEGIN
AsciiToEbcdic: PROC [lrecl: CARDINAL ← 0] RETURNS [TapeStreams.ConversionList];
EbcdicToAscii: PROC [] RETURNS [TapeStreams.ConversionList];
TranslationTable: TYPE = REF PACKED ARRAY CHAR OF CHAR;
EbcdicToAsciiTable, AsciiToEbcdicTable: TranslationTable;
END.