DIRECTORY Rope; XRope: CEDAR DEFINITIONS ~ BEGIN charSetEsc: CHAR ~ '\377; --character set selection escape code CHARSET: TYPE ~ CHAR; roman: CHARSET ~ '\000; --roman character set jis1: CHARSET ~ '\041; --roman character set greek: CHARSET ~ '\046; --greek character set cyrillic: CHARSET ~ '\047; --cyrillic character set technical: CHARSET ~ '\357; --technical character set FromRope: PUBLIC PROC [r: Rope.ROPE, cSet: XRope.CHARSET _ roman] RETURNS [Rope.ROPE]; FromChar: PUBLIC PROC [c: CHAR, cSet: XRope.CHARSET _ roman] RETURNS [Rope.ROPE]; END. ΨXRope.mesa Mcisaac, July 6, 1987 3:59:30 pm PDT returns a rope, coded in XEROX character code standard, with character set cSet returns a rope, coded in XEROX character code standard, with character set cSet Κ1˜J™ code™$K™—šΟk ˜ Kšœ˜K˜K˜—K˜KšΠlnœœ ˜šœ˜K˜Kšœ œ Οc%˜?K˜Kšœœœ˜K˜Kšœœ Ÿ˜-Kšœœ Ÿ˜,Kšœœ Ÿ˜-Kšœ œ Ÿ˜3Kšœ œ Ÿ˜5K˜šΟnœœœ œœ œœ˜VKšœO™O—K˜K˜š œœœœœ œœ˜QKšœœ1™O——K˜Kšœ˜—…—4=