DIRECTORY CharDisplays, DisplayControllers, DisplayControllerSteps, Rope, TermProgs; EmADM: CEDAR PROGRAM IMPORTS DisplayControllers, DisplayControllerSteps, TermProgs = {OPEN DisplayControllers, DisplayControllerSteps, TermProgs; MakeADM3: PROC RETURNS [t: Term] = { t _ NEW [TermRep _ [cp: NewControlProgram[] ]]; AddInstruction[t.cp, LIST["\000"], [Naught]]; AddInstruction[t.cp, LIST["\015"], [CarriageReturn]]; AddInstruction[t.cp, LIST["\012"], [SkipCursor, $down]]; AddInstruction[t.cp, LIST["\007"], [Beep]]; AddInstruction[t.cp, LIST["\010"], [SkipCursor, $left]]; AddInstruction[t.cp, LIST["\032"], [ClearScreen]]; }; MakeADM3a: PROC RETURNS [t: Term] = { t _ MakeADM3[]; AddInstruction[t.cp, LIST["\000"], [Naught]]; AddInstruction[t.cp, LIST["\036"], [Home]]; AddInstruction[t.cp, LIST["\014"], [SkipCursor, $right]]; AddInstruction[t.cp, LIST["\013"], [SkipCursor, $up]]; AddInstruction[t.cp, LIST[ "\033=", NEW [DecodeRep _ [reg: line, base: NumChars, org: ' , len: 1]], NEW [DecodeRep _ [reg: col, base: NumChars, org: ' , len: 1]] ], [JumpCursor, $hv]]; }; RegTerm["adm3", MakeADM3[]]; RegTerm["adm3a", MakeADM3a[]]; }. pEmADM.Mesa Last Edited by: Spreitzer, January 11, 1986 2:41:19 pm PST Emulates Lear-Sigler ADM terminals. Κl– "cedar" style˜Icode™ J™:K˜KšΟk œK˜TK˜K™#K˜šΠbxœœ˜Kšœ6˜=K˜Kšœœ7˜?K˜šΟnœœœ˜$Kšœœ(˜/Kšœœ˜-Kšœœ˜5Kšœœ˜8Kšœœ˜+Kšœœ˜8Kšœœ˜2K˜—K˜šŸ œœœ˜%K˜Kšœœ˜-Kšœœ˜+Kšœœ ˜9Kšœœ˜6˜šœ˜Kšœ˜Kšœ<˜?Kšœ:˜=Kšœ˜—Kšœ˜—K˜—K˜Kšœ˜Kšœ˜K˜K˜——…—zV