DIRECTORY CharDisplays, DisplayControllers, DisplayControllerSteps, Rope, TermProgs; EmVT52: CEDAR PROGRAM IMPORTS DisplayControllers, DisplayControllerSteps, TermProgs = {OPEN DisplayControllers, DisplayControllerSteps, TermProgs; MakeVT52: PROC RETURNS [t: Term] = { t _ NEW [TermRep _ [cp: NewControlProgram[] ]]; AddInstruction[t.cp, LIST["\007"], [Flash]]; AddInstruction[t.cp, LIST["\010"], [SkipCursor, $left]]; AddInstruction[t.cp, LIST["\011"], [Tab, $dontTouch]]; AddInstruction[t.cp, LIST["\012"], [SkipCursor, $down]]; AddInstruction[t.cp, LIST["\015"], [CarriageReturn]]; AddInstruction[t.cp, LIST["\033A"], [SkipCursor, $up]]; AddInstruction[t.cp, LIST["\033C"], [SkipCursor, $right]]; AddInstruction[t.cp, LIST["\033H\033J"], [ClearScreen]]; AddInstruction[t.cp, LIST["\033I"], [ScrollBack]]; AddInstruction[t.cp, LIST["\033J"], [ClrTo, $eos]]; AddInstruction[t.cp, LIST["\033K"], [ClrTo, $eol]]; AddInstruction[t.cp, LIST["\033Y", NEW [DecodeRep _ [reg: line, base: NumChars, org: ' , len: 1]], NEW [DecodeRep _ [reg: col, base: NumChars, org: ' , len: 1]]], [JumpCursor, $hv]]; }; RegTerm["vt52", MakeVT52[]]; }. \EmVT52.Mesa Last Edited by: Spreitzer, March 17, 1985 5:42:18 pm PST Emulates a VT52. ΚG– "cedar" style˜Icode™ J™8K˜KšΟk œK˜TK˜K™K˜šΠbxœœ˜Kšœ6˜=K˜Kšœœ7˜?K˜šΟnœœœ˜$Kšœœ(˜/Kšœœ˜,Kšœœ˜8Kšœœ˜6Kšœœ˜8Kšœœ˜5Kšœœ˜7Kšœœ!˜:Kšœœ˜8Kšœœ˜2Kšœœ˜3Kšœœ˜3˜šœ ˜ Kšœ<˜?Kšœ<˜?—Kšœ˜—K˜—K˜Kšœ˜K˜K˜——…—t