PDP-10 Archive: emacs/tekvt100.elib from mit_emacs_170_teco

Trailing-Edge - PDP-10 Archives - mit_emacs_170_teco_1220 - emacs/tekvt100.elib

There are no other files named tekvt100.elib in the archive.

PW
[0+8+FQ(+4)[1
0FO10F"G+Q1'
+FQ()+4U1
FQ1"L0'
,Q1:M(Q1+4(]1]0))
er=


%
M7C,O9]_e tk6@#-
<JfZGk]uW|C& Set VT100 Mode Line& Setup TEKVT100 LibrarySet Terminal WidthVT100 ALTERNATE KEYPADVT100 InfoVT100 NORMAL KEYPADVT100 Number KeypadVT100 Transmit Keypad^R Toggle Terminal Width~DIRECTORY~~DOC~ & Set VT100 Mode Line"~DOC~ & Setup TEKVT100 Library~DOC~ Set Terminal Width ~DOC~ VT100 ALTERNATE KEYPAD~DOC~ VT100 Info~DOC~ VT100 NORMAL KEYPAD~DOC~ VT100 Number Keypad~DOC~ VT100 Transmit Keypad"~DOC~ ^R Toggle Terminal Width~DOC~ ~Filename~~Filename~

~INVERT~0FO..QVT100 Setup Hook[0fq0"G:M0'
M.VVT100 SETUP HOOK
@:iVT100 SETUP HOOK/:i*CVT100 Library has already been loaded
fsechodisplay0fsechoactive/
0M.CTemporary Vt100 storageIntermediate storage for VT100 mode
1M.CVT100 Mode!* Non-zero activates alternate Keypad!
"'N-(q$Temporary Vt100 storage$"'N)"E'
1FSMODECH$
"N:M(M.MVT100 Alternate Keypad$)'
  "#:M(M.MVT100 Normal Keypad$)'
M(M.M & SET VT100 MODE LINE)
0fo..qExit to Inferior Hookf"E
:i*M.VExit to Inferior HookW:i*'"#'[1
@:iExit to Inferior Hook|1WM(M.MVT100 NORMAL KEYPAD)|
0fo..qExit to superior hookf"E
:i*M.VExit To Superior Hookw:i*'"#'[2
@:iExit to superior hook|2WM(M.MVT100 NORMAL KEYPAD)|
0fo..qReturn From Inferior Hookf"E
:i*M.VReturn From Inferior HookW:i*'"#'[3
@:iReturn From Inferior Hook|3WM(M.MVT100 ALTERNATE KEYPAD)|
0fo..qReturn From Superior Hookf"E
:i*M.VReturn From Superior Hookw:i*'"#'[4
@:iReturn From Superior Hook|4WM(M.MVT100 ALTERNATE KEYPAD)|
:M(M.MVT100 ALTERNATE KEYPAD)'128M(M.MMAKE PREFIX CHARACTER).OU..O
M.M^R Up Real LineU:.O(A)
M.M^R Down Real LineU:.O(B)
6fs^RInitU:.O(C)
2fs^RinitU:.O(D)
M.M^R ExitU:.O(M)
M.MFind FileU:.O(P)
M.M^R Save FileU:.O(Q)
M.M^R Copy RegionU:.O(R)
M.M^R Un-KillU:.O(S)
M.M^R Next ScreenU:.O(l)
M.M^R Previous ScreenU:.O(m)
M.M^R Prefix Control-MetaU:.O(n)
M.M^R Prefix MetaU:.O(p)
M.M^R Backward WordU:.O(q)
M.M^R Forward ParagraphU:.O(r)
M.M^R Forward WordU:.O(s)
M.M^R Backward Kill WordU:.O(t)
M.M^R Delete CharacterU:.O(u)
M.M^R Kill WordU:.O(v)
01fs^RinitU:.O(w)
M.M^R Backward ParagraphU:.O(x)'
05fs^RinitU:.O(y)
@:I*/[?1h/FSIMAGEOUT
@:I*/=/FSIMAGEOUT
1M(M.M& Set VT100 Mode line)
.(f[bbind
gprefix char list
j:sMeta-O  "EJiMeta-O  Q.O
'
HFXPrefix char list
f]bbind)J
1uTemporary Vt100 storage
1UVT100 MODE
`@:I*/[?1l>/FSIMAGEOUT
M.M^R SPLIT LINEU..O
M.M& PREFIX CHARACTER DRIVERU.P
.(f[bbind
gprefix char list
j:sMeta-O  "N0lk'
HFXPrefix char list
f]bbind)J
0uTemporary Vt100 storage
0UVT100 MODE
4qSet Mode line hook[1
f[bbind
fq1"L:i1'
g1j
:@S/VT100 MODE/"E@I/
0FO..QVT100 MODE"N
FSRGETTY-47"EI VT132'"#I VT100''/'
HXSET MODE LINE HOOK
1fsmodechange
t80[a
[B
QB-79"G
QB-133"L
QBUA''
QA-80"G
:@I*`<[?3h[0q[1q[2q`fsimageout'!>!
"#w:@I*`<[?3l[0q[1q`FSimageout'!>!
4
QA-1fswidth
0FO..QWindow 2 Size"N
M.M& Multi-Window RefreshF[refresh'
1fsmodechange
0f[lines

ft-----------------------------------------
|  "PF1"  |  "PF2"  |  "PF3"  |  "PF4"  |
|  Find   |  Save   |  Copy   | Unkill  |   DEL Delete char back
|  file   |  file   | region  |  text   |   BREAK Set mark
|---------+---------+---------+---------|   ESC Prefix-Meta
|   "7"   |   "8"   |   "9"   |   "-"   |
|Beginning|Backwards| End of  |Previous |   Arrow keys are defined to move
| of line |paragraph|  line   | screen  |   cursor one position in direction
|---------+---------+---------+---------|   indicated.
|   "4"   |   "5"   |   "6"   |   ","   |
|Back kill| Delete  |Frwd kill|  Next   |
|  word   |Character|  word   | screen  |
|---------+---------+---------+---------|
|   "1"   |   "2"   |   "3"   | "ENTER" |
|Backwards| Forward | Forward |         |
|  word   |paragraph|  word   |         |
|---------+---------+---------|  Exit   |
|        "0"        |   "."   |  EMACS  |
|       Meta-       |  Ctrl-  |         |
|                   |  Meta-  |         |
|-------------------+---------+---------|
!<!@:I*/>/FSIMAGEOUT
@:I*/=/FSIMAGEOUT
<FSWIDTH+1[a
QA-80"G80'"#132':M(M.MSet Terminal Width)

TEKVT100VT100 Keypad Definitions)S Sets up the defaults for the VT100
keypad upon the entrance of the library.  The fork hooks are
defined so that the keypad is left in numeric mode upon
exiting.C Sets alternate keypad mode for VT100's
When this command is executed, the keypad on the left and the arrow
keys are now executable commands.-C Undos alternate keypad mode for VT100's,S Set the Mode line hook for the libraryC Set the terminal and display widths.
The only argument is the width of the display (a number between 80 and
132 inclusive).  The default is 80.4C Prints out the key definitions in display modeC Turns off the keypad to allow using the numbers.
The key definitions for the pad are still there upon returning with
VT100 Transmit KeypadCC Sets the keypad to transmit their escape seq.
If the key definitions need to be reset the user should use
VT100 Alternate Keypad.  This command is the opposite of
VT100 Number Keypad0^R Toggles window between 80 and 132 columnsH& Setup TEKVT100 Library
VT100 ALTERNATE KEYPAD
VT100 NORMAL KEYPAD
& Set VT100 Mode Line
Set Terminal Width
VT100 Info
VT100 Number Keypad
VT100 Transmit Keypad
^R Toggle Terminal Width
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2