Rope;

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];