-- ConvertAsciiCmds.mesaDIRECTORYFitJaM USING [InitProc],JaM USING [State, PopRope, PushRope, PushInt, PopInt, Register],Rope;ConvertAsciiCmds: CEDAR PROGRAMIMPORTS JaM, RopeEXPORTS FitJaM= BEGINROPE: TYPE = Rope.ROPE;State: TYPE = JaM.State;PopRope: PROCEDURE [f: State] RETURNS [rope: ROPE] = {RETURN[JaM.PopRope[f]]};PushRope: PROCEDURE [f: State, rope: ROPE] = {JaM.PushRope[f,rope]};ConvertAcsiiCharToInteger: PROCEDURE [f: State] = {char: CHAR _ PopRope[f].Fetch[0];byte: [0..256) _  char - 000C;JaM.PushInt[f, byte];};ConvertIntegerToAcsiiChar: PROCEDURE [f: State] = {byte: [0..256) _  JaM.PopInt[f];PushRope[f, Rope.FromChar[000C + byte]];};ConvertIntegerToAcsiiString: PROCEDURE [f: State] = {byte: [0..256) _  JaM.PopInt[f];b0: CHAR _ '0 + byte MOD 8;b1: CHAR _ '0 + byte/8 MOD 8;b2: CHAR _ '0 + byte/64 MOD 8;IF 000C + byte IN (' ..'}] AND 000C + byte # '\" AND 000C + byte # '\\ THEN PushRope[f, Rope.FromChar[000C + byte]]ELSE PushRope[f, Rope.Cat["\\", Rope.FromChar[b2], Rope.FromChar[b1], Rope.FromChar[b0]]];};ConvertAsciiCmdsInit: PUBLIC FitJaM.InitProc = {JaM.Register[state, ".cvaci", ConvertAcsiiCharToInteger];JaM.Register[state, ".cviac", ConvertIntegerToAcsiiChar];JaM.Register[state, ".cvias", ConvertIntegerToAcsiiString];};END.   ª  -- Written by Michael Plass on October 14, 1982 2:28 pm-- Last edit by Michael Plass on October 14, 1982 2:28 pm-- Maureen Stone February 8, 1984 4:13:09 pm PST ÊÉ  –"Mesa" style˜ JšÏcœ˜Jš7™7Jšœ)™9Jš0™0šÏk	˜	Jšœžœ˜Jšœžœ7˜@Jšœ˜—šœž˜Jšžœ
˜Jšžœ˜Jšœž˜Jšžœžœžœ˜Jšœžœ˜Iprocš
Ïnœž	œžœžœžœ˜NKšŸœž	œžœ˜DšŸœž	œ˜3Jšœžœ˜!Jšœ˜Jšœ˜J˜—šŸœž	œ˜3Jšœ ˜ Jšœ(˜(J˜—šŸœž	œ˜5Jšœ ˜ Jšœžœžœ˜Jšœžœžœ˜Jšœžœžœ˜Jš
žœžœ
žœžœžœ(˜sJšžœV˜ZJ˜—J˜ J˜ šœžœ˜0Jšœ9˜9Jšœ9˜9Jšœ;˜;J˜—J˜ Jšžœ˜—J˜ — …—      ƒ  