{+++++++++++++++++++++++++++++++++++++++++++++++++++} {+ These string sequences pertain to the Televideo +} {+ model 912 & 920 terminal. +} {+++++++++++++++++++++++++++++++++++++++++++++++++++} PModeON[1] := ESC; { Protect Mode ON } PModeON[2] := '&'; PModeOFF[1] := ESC; { Protect Mode OFF } PModeOFF[2] := ''''; ProtON[1] := ESC; { Write Protect ON } ProtON[2] := ')'; ProtOFF[1] := ESC; { Write Protect OFF } ProtOFF[2] := '('; INVOFF[1] := ESC; { inverse video OFF } INVOFF[2] := 'k'; INVON[1] := ESC; { inverse video ON } INVON[2] := 'j'; KbdEnable[1] := ESC; { Keyboard unlock } KbdEnable[2] := '"'; KbdDisable[1] := ESC; { Keyboard lock } KbdDisable[2] := '#'; LineDelete[1] := ESC; { delete the line the cursor is on } LineDelete[2] := 'R'; LineErase[1] := ESC; { erase from the cursor to the end of the line } LineErase[2] := 't'; HintOn[1] := ESC; { half intensity ON } HintOn[2] := ')'; HintOff[1] := ESC; { half intensity OFF } HintOff[2] := '('; ; { half intensity ON } HintOn