-- 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.