class CONTROL_STR inherit ASCII export {NONE} all end; creation make feature make (code: INTEGER) is do control_code := code; end; control_code: INTEGER; lock_on: BOOLEAN; set_lock (f: BOOLEAN) is do lock_on := f; end; cntrl_str: STRING is do if lock_on then inspect control_code when Ctrl_a then Result := "CtrlA"; when Ctrl_b then Result := "CtrlB"; when Ctrl_c then Result := "CtrlC"; when Ctrl_d then Result := "CtrlD"; when Ctrl_e then Result := "CtrlE"; when Ctrl_f then Result := "CtrlF"; when Ctrl_g then Result := "CtrlG"; when Ctrl_h then Result := "CtrlH"; when Ctrl_i then Result := "CtrlI"; when Ctrl_j then Result := "CtrlJ"; when Ctrl_k then Result := "CtrlK"; when Ctrl_l then Result := "CtrlL"; when Ctrl_m then Result := "CtrlM"; when Ctrl_n then Result := "CtrlN"; when Ctrl_o then Result := "CtrlO"; when Ctrl_p then Result := "CtrlP"; when Ctrl_q then Result := "CtrlQ"; when Ctrl_r then Result := "CtrlR"; when Ctrl_s then Result := "CtrlS"; when Ctrl_t then Result := "CtrlT"; when Ctrl_u then Result := "CtrlU"; when Ctrl_v then Result := "CtrlV"; when Ctrl_w then Result := "CtrlW"; when Ctrl_x then Result := "CtrlX"; when Ctrl_y then Result := "CtrlY"; when Ctrl_z then Result := "CtrlZ"; else Result := "Ctrl"; end; else inspect control_code when Ctrl_a then Result := "Ctrla"; when Ctrl_b then Result := "Ctrlb"; when Ctrl_c then Result := "Ctrlc"; when Ctrl_d then Result := "Ctrld"; when Ctrl_e then Result := "Ctrle"; when Ctrl_f then Result := "Ctrlf"; when Ctrl_g then Result := "Ctrlg"; when Ctrl_h then Result := "Ctrlh"; when Ctrl_i then Result := "Ctrli"; when Ctrl_j then Result := "Ctrlj"; when Ctrl_k then Result := "Ctrlk"; when Ctrl_l then Result := "Ctrll"; when Ctrl_m then Result := "Ctrlm"; when Ctrl_n then Result := "Ctrln"; when Ctrl_o then Result := "Ctrlo"; when Ctrl_p then Result := "Ctrlp"; when Ctrl_q then Result := "Ctrlq"; when Ctrl_r then Result := "Ctrlr"; when Ctrl_s then Result := "Ctrls"; when Ctrl_t then Result := "Ctrlt"; when Ctrl_u then Result := "Ctrlu"; when Ctrl_v then Result := "Ctrlv"; when Ctrl_w then Result := "Ctrlw"; when Ctrl_x then Result := "Ctrlx"; when Ctrl_y then Result := "Ctrly"; when Ctrl_z then Result := "Ctrlz"; else Result := "Ctrl"; end; end; end; end