-- Translate.mesa
-- Last edited by Tim Diebert: April 29, 1985 3:25:02 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.