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