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

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

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

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

]w**3>KRm]iuB

(r*=nOk`jq& Set VT100 Mode Line& Setup DVT100 LibraryFix PHOTO FileSet Terminal WidthVT100 ALTERNATE KEYPADVT100 InfoVT100 NORMAL KEYPADVT100 Number KeypadVT100 Transmit Keypad ^R Delete Last Searched Item^R Proper Delete Character^R Toggle Terminal Width~DIRECTORY~~DOC~ & Set VT100 Mode Line ~DOC~ & Setup DVT100 Library~DOC~ Fix PHOTO File~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 Delete Last Searched Item$~DOC~ ^R Proper Delete Character"~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 Next ScreenU:.O(M)
M.M^R One WindowU:.O(P)
M.M^R Two WindowsU:.O(Q)
M.M^R Other WindowU:.O(R)
M.MReplace StringU:.O(S)
M.M^R KILL WORDU:.O(l)
M.M^R FORWARD WORDU:.O(m)
M.M^R INCREMENTAL SEARCHU:.O(n)
M.M^R Previous ScreenU:.O(p)
M.M^R Backward WordU:.O(q)
M.M^R Kill WordU:.O(r)
M.M^R Forward WordU:.O(s)
M.M^R Set/Pop MarkU:.O(t)
M.M^R Proper Delete CharacterU:.O(u)
M.M^R Delete Last Searched ItemU:.O(v)
15fs^RinitU:.O(w)
1,M.M& SETUP PAGE LIBRARY"E
M.M^R NEXT PAGEU:.O(x)'
"#M.M^R GOTO PAGEU:.O(x)'
M.M^R QUOTED INSERTU:.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
-F"GM(4FS^RINIT)'
"#FS^RRUBOUT'
[0[..O
QSEARCH DEFAULT RINGU..O
.FSWORDU0
]..O
-FQ0F~0"E-FQ0@:M(M.M& KILL TEXT)'
"#FQ0F~0"EFQ0@:M(M.M& KILL TEXT)''
0t80[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"  |
|  Save   |  TECO   | Unsave  |  Next   | C-M-(  Toggles 80/132 column mode
|  text   | Command |  text   | Screen  |
|---------+---------+---------+---------|
|   "7"   |   "8"   |   "9"   |   "-"   |
|  Open   |  Page   |  Quote  | Forward |   Arrow keys are defined to move
|  line   |         |  next   |  Word   |   cursor one position in direction
|---------+---------+---------+---------|   indicated.
|   "4"   |   "5"   |   "6"   |   ","   |
|   Up    | Delete  | Delete  |  Kill   |
|  line   |Character|  last   |  Word   |
|---------+---------+---------+---------|
|   "1"   |   "2"   |   "3"   | "ENTER" |
|   Top   | Bottom  |  Start  |         |
| of page | of page | of line |         |
|---------+---------+---------| String  |
|        "0"        |   "."   |         |
|     Down Line     |Incrmntl.| Search  |
|                   | Search  |         |
|-------------------+---------+---------|
!<!@:I*/>/FSIMAGEOUT
@:I*/=/FSIMAGEOUT
[8[9
FSRGETTY-47"E
j<:@s`j`;-2c.u8-sc.-q8u9q9d-q9d2d>
j<:@s`>
j<:s;fkd>
j<:s;fkd4<13i10i>>
j<:s
;r13i>'
j<FSWIDTH+1[a
QA-80"G80'"#132':M(M.MSet Terminal Width)
DVT100VT100 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 libraryQ^R Delete the character after the point.
Negative arguments delete backwardsX^R Deletes last searched item in buffer.
Will only work if the pointer hasn't movedC 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 Keypad.S Strips a PHOTO file if created on a VT520^R Toggles window between 80 and 132 columns& Setup DVT100 Library
VT100 ALTERNATE KEYPAD
VT100 NORMAL KEYPAD
& Set VT100 Mode Line
^R Proper Delete Character
^R Delete Last Searched Item
Set Terminal Width
VT100 Info
VT100 Number Keypad
VT100 Transmit Keypad
Fix PHOTO File
^R Toggle Terminal Width
T+8+fq(+4)[20[3
<%3,-q2f2u3q3&1@;q3"l0'>
f[BBindq3-1*5,q3*5g2q:..o(0)+q2