mirror of
https://github.com/PDP-10/klh10.git
synced 2026-02-14 11:55:37 +00:00
25 lines
933 B
Bash
Executable File
25 lines
933 B
Bash
Executable File
#!/bin/sh
|
|
#
|
|
# This is a shell script for running in an XTerm
|
|
# to set it to better modes to run ITS in:
|
|
#
|
|
# - VT52 mode;
|
|
# - the backarrow key sends DEL (not backspace);
|
|
# - the meta key sends ESC before a key instead of setting its 8th bit;
|
|
# - correct terminal size.
|
|
|
|
printf '\e< ' # Exit VT52 mode (Enter VT100 mode).
|
|
# CSI ? Pm l DEC Private Mode Reset (DECRST)
|
|
printf '\e[?67l' # Ps = 6 7 -> Backarrow key sends delete (DECBKM)
|
|
|
|
# CSI ? Pm h DEC Private Mode Set (DECSET)
|
|
printf '\e[?1036l' # Ps = 1 0 3 6 -> Send ESC when Meta modifies a key
|
|
# (enables the metaSendsEscape resource).
|
|
|
|
# CSI Ps ; Ps ; Ps t Window manipulation
|
|
# May be disabled using the allowWindowOps resource.
|
|
printf '\e[8;24;80t' # Ps = 8 ; height ; width -> Resize the text area to [height;width] in characters.
|
|
printf '\e[?2l' # Ps = 2 -> Designate VT52 mode (DECANM).
|
|
|
|
# After this, run ITS, then setvt100.
|