Source Code 1994 March

home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1994 March / Source_Code_CD-ROM_Walnut_Creek_March_1994.iso / unix_c / editors / emcsvtky.tar < prev next >
Tape Archive | 1989-02-26 | 16.0 KB
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: Tape Archive (archive/tar).

You can browse this item here: emcsvtky.tar
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	Tape Archive `(archive/tar)`	magic	Supported
`100%`	file	tar archive	default
`99%`	file	tar archive (V7), file emacs-vt100keys/, mode 751 , uid 243 , gid 12 , size 0 , seconds 4402065471	default
`98%`	file	data	default
`100%`	lsar	Tar	default
`100%`	gt2	TAR Archiv gefunden (Auflistung ist deaktiviert)	default
`100%`	disktype	Pre-POSIX tar archive	default
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 65 6d 61 63 73 2d 76 74 | 31 30 30 6b 65 79 73 2f |emacs-vt|100keys/|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 20 20 20 37 | 35 31 20 00 20 20 20 32 |....   7|51 .   2|
|00000070| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00000080| 20 20 20 20 20 20 30 20 | 20 34 34 30 32 30 36 35 |      0 | 4402065|
|00000090| 34 37 31 20 20 20 36 36 | 34 36 00 20 00 00 00 00 |471   66|46. ....|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 65 6d 61 63 73 2d 76 74 | 31 30 30 6b 65 79 73 2f |emacs-vt|100keys/|
|00000210| 76 74 31 30 30 2e 6d 6c | 00 00 00 00 00 00 00 00 |vt100.ml|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 20 20 20 36 | 34 30 20 00 20 20 20 32 |....   6|40 .   2|
|00000270| 34 33 20 00 20 20 20 20 | 31 32 20 00 20 20 20 20 |43 .    |12 .    |
|00000280| 20 20 32 32 32 34 35 20 | 20 34 34 30 32 30 36 35 |  22245 | 4402065|
|00000290| 34 37 31 20 20 31 30 31 | 36 34 00 20 00 00 00 00 |471  101|64. ....|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |;-------|--------|
|00000410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0a 3b |--------|------.;|
|00000450| 4e 41 4d 45 0a 3b 20 20 | 20 76 74 31 30 30 2e 6d |NAME.;  | vt100.m|
|00000460| 6c 20 2d 2d 20 76 74 31 | 30 30 20 74 65 72 6d 69 |l -- vt1|00 termi|
|00000470| 6e 61 6c 20 73 75 70 70 | 6f 72 74 20 70 61 63 6b |nal supp|ort pack|
|00000480| 61 67 65 0a 3b 0a 3b 53 | 59 4e 4f 50 53 49 53 0a |age.;.;S|YNOPSIS.|
|00000490| 3b 20 20 20 4e 6f 20 65 | 78 74 65 72 6e 61 6c 6c |;   No e|xternall|
|000004a0| 79 20 75 73 65 61 62 6c | 65 20 66 75 6e 63 74 69 |y useabl|e functi|
|000004b0| 6f 6e 73 20 70 72 6f 76 | 69 64 65 64 3b 20 74 68 |ons prov|ided; th|
|000004c0| 69 73 20 70 61 63 6b 61 | 67 65 20 69 73 20 73 65 |is packa|ge is se|
|000004d0| 6c 66 20 63 6f 6e 74 61 | 69 6e 65 64 2e 0a 3b 0a |lf conta|ined..;.|
|000004e0| 3b 52 45 51 55 49 52 45 | 4d 45 4e 54 53 0a 3b 20 |;REQUIRE|MENTS.; |
|000004f0| 20 20 56 54 31 30 30 20 | 6f 72 20 6c 6f 6f 6b 61 |  VT100 |or looka|
|00000500| 6c 69 6b 65 20 74 65 72 | 6d 69 6e 61 6c 0a 3b 20 |like ter|minal.; |
|00000510| 20 20 45 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |  Emacs |version |
|00000520| 32 2e 30 30 20 6f 72 20 | 6c 61 74 65 72 0a 3b 20 |2.00 or |later.; |
|00000530| 20 20 59 6f 75 20 73 68 | 6f 75 6c 64 20 73 65 74 |  You sh|ould set|
|00000540| 20 64 65 66 61 75 6c 74 | 20 76 61 6c 75 65 20 6f | default| value o|
|00000550| 66 20 76 74 31 30 30 2d | 6d 6c 2d 70 61 74 68 20 |f vt100-|ml-path |
|00000560| 62 65 6c 6f 77 20 28 6e | 65 61 72 20 6c 69 6e 65 |below (n|ear line|
|00000570| 20 31 32 31 29 0a 3b 0a | 3b 4b 45 59 20 42 49 4e | 121).;.|;KEY BIN|
|00000580| 44 49 4e 47 53 20 28 5e | 76 20 74 6f 20 70 61 67 |DINGS (^|v to pag|
|00000590| 65 20 74 68 72 6f 75 67 | 68 20 74 68 69 73 20 64 |e throug|h this d|
|000005a0| 6f 63 75 6d 65 6e 74 61 | 74 69 6f 6e 2c 20 65 73 |ocumenta|tion, es|
|000005b0| 63 20 76 20 74 6f 20 70 | 61 67 65 20 62 61 63 6b |c v to p|age back|
|000005c0| 29 0a 3b 09 20 2d 2d 2d | 2d 2d 2d 20 2d 2d 2d 2d |).;. ---|--- ----|
|000005d0| 2d 2d 20 2d 2d 2d 2d 2d | 2d 20 2d 2d 2d 2d 2d 2d |-- -----|- ------|
|000005e0| 0a 3b 09 7c 20 6c 65 66 | 74 20 7c 20 72 69 67 68 |.;.| lef|t | righ|
|000005f0| 74 7c 20 70 61 72 61 20 | 7c 20 70 61 67 65 20 7c |t| para || page ||
|00000600| 0a 3b 09 7c 6d 61 72 67 | 69 6e 7c 6d 61 72 67 69 |.;.|marg|in|margi|
|00000610| 6e 7c 20 20 75 70 20 20 | 7c 20 20 75 70 20 20 7c |n|  up  ||  up  ||
|00000620| 0a 3b 09 20 2d 2d 2d 2d | 2d 2d 20 2d 2d 2d 2d 2d |.;. ----|-- -----|
|00000630| 2d 20 2d 2d 2d 2d 2d 2d | 20 2d 2d 2d 2d 2d 2d 0a |- ------| ------.|
|00000640| 3b 09 7c 20 77 6f 72 64 | 20 7c 20 77 6f 72 64 20 |;.| word| | word |
|00000650| 7c 20 70 61 72 61 20 7c | 20 70 61 67 65 20 7c 0a || para || page |.|
|00000660| 3b 09 7c 20 6c 65 66 74 | 20 7c 20 72 69 67 68 74 |;.| left| | right|
|00000670| 7c 20 64 6f 77 6e 20 7c | 20 64 6f 77 6e 20 7c 0a || down || down |.|
|00000680| 3b 09 20 2d 2d 2d 2d 2d | 2d 20 2d 2d 2d 2d 2d 2d |;. -----|- ------|
|00000690| 20 2d 2d 2d 2d 2d 2d 20 | 2d 2d 2d 2d 2d 2d 0a 3b | ------ |------.;|
|000006a0| 09 7c 20 62 6f 66 2f 20 | 7c 20 77 72 61 70 2f 7c |.| bof/ || wrap/||
|000006b0| 20 6c 69 6e 65 20 7c 77 | 69 6e 64 6f 77 7c 0a 3b | line |w|indow|.;|
|000006c0| 09 7c 20 65 6f 66 20 20 | 7c 73 63 72 6f 6c 6c 7c |.| eof  ||scroll||
|000006d0| 3f 2f 67 6f 74 6f 7c 6e | 78 74 2f 64 6c 7c 0a 3b |?/goto|n|xt/dl|.;|
|000006e0| 09 20 2d 2d 2d 2d 2d 2d | 20 2d 2d 2d 2d 2d 2d 20 |. ------| ------ |
|000006f0| 2d 2d 2d 2d 2d 2d 20 2d | 2d 2d 2d 2d 2d 0a 3b 09 |------ -|-----.;.|
|00000700| 7c 20 6d 61 72 6b 20 7c | 20 70 61 73 74 65 7c 20 || mark || paste| |
|00000710| 6d 61 63 72 6f 7c 20 77 | 20 66 20 20 7c 0a 3b 09 |macro| w| f  |.;.|
|00000720| 7c 20 26 63 75 74 20 7c | 20 2f 75 6e 64 6f 7c 78 || &cut || /undo|x|
|00000730| 65 71 2f 65 64 7c 20 72 | 20 69 20 20 7c 0a 3b 09 |eq/ed| r| i  |.;.|
|00000740| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 2d | -------|------ -|
|00000750| 2d 2d 2d 2d 2d 7c 20 69 | 20 6c 20 20 7c 0a 3b 09 |-----| i| l  |.;.|
|00000760| 7c 20 20 20 20 76 69 73 | 69 74 20 20 20 20 7c 20 ||    vis|it    | |
|00000770| 67 6f 6c 64 20 7c 20 74 | 20 65 20 20 7c 0a 3b 09 |gold | t| e  |.;.|
|00000780| 7c 20 20 66 69 6c 65 2f | 73 68 65 6c 6c 20 7c 20 ||  file/|shell | |
|00000790| 2f 68 65 6c 70 7c 20 65 | 28 73 29 20 7c 0a 3b 09 |/help| e|(s) |.;.|
|000007a0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 20 2d | -------|------ -|
|000007b0| 2d 2d 2d 2d 2d 20 2d 2d | 2d 2d 2d 2d 0a 3b 20 20 |----- --|----.;  |
|000007c0| 20 53 65 65 20 62 65 6c | 6f 77 20 66 6f 72 20 6d | See bel|ow for m|
|000007d0| 6f 72 65 20 64 65 74 61 | 69 6c 2e 0a 3b 0a 3b 44 |ore deta|il..;.;D|
|000007e0| 45 53 43 52 49 50 54 49 | 4f 4e 0a 3b 20 20 20 54 |ESCRIPTI|ON.;   T|
|000007f0| 68 69 73 20 70 61 63 6b | 61 67 65 2c 20 77 68 65 |his pack|age, whe|
|00000800| 6e 20 6c 6f 61 64 65 64 | 2c 20 73 65 74 73 20 75 |n loaded|, sets u|
|00000810| 70 20 67 6c 6f 62 61 6c | 20 62 69 6e 64 69 6e 67 |p global| binding|
|00000820| 73 20 66 6f 72 20 74 68 | 65 20 73 70 65 63 69 61 |s for th|e specia|
|00000830| 6c 0a 3b 20 20 20 6b 65 | 79 73 20 6f 6e 20 61 20 |l.;   ke|ys on a |
|00000840| 56 54 31 30 30 20 74 65 | 72 6d 69 6e 61 6c 20 6f |VT100 te|rminal o|
|00000850| 72 20 57 61 6e 67 20 50 | 43 20 75 73 69 6e 67 20 |r Wang P|C using |
|00000860| 56 54 31 30 30 20 65 6d | 75 6c 61 74 69 6f 6e 2e |VT100 em|ulation.|
|00000870| 0a 3b 20 20 20 43 61 72 | 65 20 68 61 73 20 62 65 |.;   Car|e has be|
|00000880| 65 6e 20 74 61 6b 65 6e | 20 74 6f 3a 0a 3b 20 20 |en taken| to:.;  |
|00000890| 20 20 20 28 31 29 20 6d | 61 78 69 6d 69 7a 65 20 |   (1) m|aximize |
|000008a0| 66 75 6e 63 74 69 6f 6e | 61 6c 69 74 79 0a 3b 20 |function|ality.; |
|000008b0| 20 20 20 20 28 32 29 20 | 6d 69 6e 69 6d 69 7a 65 |    (2) |minimize|
|000008c0| 20 6b 65 79 73 74 72 6f | 6b 65 73 0a 3b 20 20 20 | keystro|kes.;   |
|000008d0| 20 20 28 33 29 20 6d 69 | 6e 69 6d 69 7a 65 20 64 |  (3) mi|nimize d|
|000008e0| 61 6e 67 65 72 20 66 72 | 6f 6d 20 6d 69 73 73 65 |anger fr|om misse|
|000008f0| 64 20 6b 65 79 73 74 72 | 6f 6b 65 73 0a 3b 20 0a |d keystr|okes.; .|
|00000900| 3b 45 58 50 4c 41 4e 41 | 54 49 4f 4e 0a 3b 09 67 |;EXPLANA|TION.;.g|
|00000910| 6f 6c 64 09 09 65 6e 61 | 62 6c 65 73 20 73 65 63 |old..ena|bles sec|
|00000920| 6f 6e 64 61 72 79 20 63 | 68 6f 69 63 65 20 66 6f |ondary c|hoice fo|
|00000930| 72 20 6f 74 68 65 72 20 | 6b 65 79 73 0a 3b 20 20 |r other |keys.;  |
|00000940| 67 6f 6c 64 20 67 6f 6c | 64 20 28 68 65 6c 70 29 |gold gol|d (help)|
|00000950| 20 20 20 20 20 76 69 73 | 69 74 20 64 65 66 69 6e |     vis|it defin|
|00000960| 69 74 69 6f 6e 20 66 69 | 6c 65 20 66 6f 72 20 74 |ition fi|le for t|
|00000970| 68 69 73 20 70 61 63 6b | 61 67 65 0a 3b 20 0a 3b |his pack|age.; .;|
|00000980| 09 6d 61 72 6b 26 63 75 | 74 09 69 66 20 6d 61 72 |.mark&cu|t.if mar|
|00000990| 6b 20 69 73 20 6e 6f 74 | 20 73 65 74 2c 20 6d 61 |k is not| set, ma|
|000009a0| 72 6b 20 6f 6e 65 20 65 | 6e 64 20 6f 66 20 74 65 |rk one e|nd of te|
|000009b0| 78 74 28 5e 40 29 0a 3b | 20 20 20 20 20 20 20 20 |xt(^@).;|        |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 69 |        |       i|
|000009d0| 66 20 6d 61 72 6b 20 69 | 73 20 73 65 74 2c 20 63 |f mark i|s set, c|
|000009e0| 75 74 20 74 68 65 20 74 | 65 78 74 20 62 65 74 77 |ut the t|ext betw|
|000009f0| 65 65 6e 09 28 5e 77 29 | 0a 3b 09 09 09 20 20 6d |een.(^w)|.;...  m|
|00000a00| 61 72 6b 20 61 6e 64 20 | 70 72 65 73 65 6e 74 20 |ark and |present |
|00000a10| 63 75 72 73 6f 72 20 70 | 6f 73 69 74 69 6f 6e 0a |cursor p|osition.|
|00000a20| 3b 09 70 61 73 74 65 09 | 09 69 6e 73 65 72 74 20 |;.paste.|.insert |
|00000a30| 74 68 65 20 6c 61 73 74 | 20 63 75 74 20 74 65 78 |the last| cut tex|
|00000a40| 74 09 09 28 5e 79 29 0a | 3b 09 09 09 20 20 61 66 |t..(^y).|;...  af|
|00000a50| 74 65 72 20 74 68 65 20 | 63 75 72 73 6f 72 20 70 |ter the |cursor p|
|00000a60| 6f 73 69 74 69 6f 6e 0a | 3b 20 20 67 6f 6c 64 20 |osition.|;  gold |
|00000a70| 75 6e 64 6f 09 09 75 6e | 64 6f 20 6c 61 73 74 20 |undo..un|do last |
|00000a80| 63 6f 6d 6d 61 6e 64 0a | 3b 20 0a 3b 09 76 69 73 |command.|; .;.vis|
|00000a90| 69 74 28 66 69 6c 65 29 | 09 6d 61 6b 65 20 66 69 |it(file)|.make fi|
|00000aa0| 6c 65 20 76 69 73 69 62 | 6c 65 20 28 72 65 61 64 |le visib|le (read|
|00000ab0| 20 69 66 20 6e 65 63 65 | 73 73 61 72 79 29 09 28 | if nece|ssary).(|
|00000ac0| 5e 78 20 5e 76 29 0a 3b | 20 20 67 6f 6c 64 20 76 |^x ^v).;|  gold v|
|00000ad0| 69 73 69 74 28 73 68 65 | 6c 6c 29 09 6d 61 6b 65 |isit(she|ll).make|
|00000ae0| 20 73 68 65 6c 6c 20 76 | 69 73 69 62 6c 65 20 28 | shell v|isible (|
|00000af0| 73 74 61 72 74 20 69 66 | 20 6e 65 63 65 73 73 61 |start if| necessa|
|00000b00| 72 79 29 09 28 65 73 63 | 20 73 29 0a 3b 0a 3b 09 |ry).(esc| s).;.;.|
|00000b10| 77 72 69 74 65 20 66 69 | 6c 65 09 77 72 69 74 65 |write fi|le.write|
|00000b20| 20 63 75 72 72 65 6e 74 | 20 62 75 66 66 65 72 20 | current| buffer |
|00000b30| 74 6f 20 69 74 73 20 66 | 69 6c 65 09 28 5e 78 20 |to its f|ile.(^x |
|00000b40| 5e 73 29 0a 3b 20 20 67 | 6f 6c 64 20 77 72 69 74 |^s).;  g|old writ|
|00000b50| 65 20 66 69 6c 65 73 09 | 77 72 69 74 65 20 61 6c |e files.|write al|
|00000b60| 6c 20 6d 6f 64 69 66 69 | 65 64 20 62 75 66 66 65 |l modifi|ed buffe|
|00000b70| 72 73 20 74 6f 20 66 69 | 6c 65 73 09 28 5e 78 20 |rs to fi|les.(^x |
|00000b80| 5e 6d 29 0a 3b 20 0a 3b | 20 20 20 20 20 20 20 6e |^m).; .;|       n|
|00000b90| 78 74 20 77 69 6e 64 6f | 77 09 63 75 72 73 6f 72 |xt windo|w.cursor|
|00000ba0| 20 74 6f 20 6e 65 78 74 | 20 77 69 6e 64 6f 77 09 | to next| window.|
|00000bb0| 09 09 28 5e 78 20 6e 29 | 0a 3b 20 20 67 6f 6c 64 |..(^x n)|.;  gold|
|00000bc0| 20 64 6c 20 77 69 6e 64 | 6f 77 09 73 70 6c 69 74 | dl wind|ow.split|
|00000bd0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 77 69 6e | the cur|rent win|
|00000be0| 64 6f 77 09 09 28 5e 78 | 20 32 29 0a 3b 0a 3b 09 |dow..(^x| 2).;.;.|
|00000bf0| 6d 61 63 72 6f 20 78 65 | 71 09 70 6c 61 79 6f 75 |macro xe|q.playou|
|00000c00| 74 20 6c 61 73 74 20 64 | 65 66 69 6e 65 64 20 6b |t last d|efined k|
|00000c10| 65 79 62 6f 61 72 64 20 | 6d 61 63 72 6f 09 28 5e |eyboard |macro.(^|
|00000c20| 78 20 65 29 0a 3b 20 20 | 67 6f 6c 64 20 6d 61 63 |x e).;  |gold mac|
|00000c30| 72 6f 20 65 64 09 65 78 | 61 6d 69 6e 65 20 6f 72 |ro ed.ex|amine or|
|00000c40| 20 65 64 69 74 20 63 75 | 72 72 65 6e 74 20 6b 65 | edit cu|rrent ke|
|00000c50| 79 62 6f 61 72 64 20 6d | 61 63 72 6f 0a 3b 0a 3b |yboard m|acro.;.;|
|00000c60| 09 6c 69 6e 65 20 3f 09 | 09 64 69 73 70 6c 61 79 |.line ?.|.display|
|00000c70| 20 63 75 72 72 65 6e 74 | 20 6c 69 6e 65 20 6e 75 | current| line nu|
|00000c80| 6d 62 65 72 0a 3b 20 20 | 67 6f 6c 64 20 6c 69 6e |mber.;  |gold lin|
|00000c90| 65 20 67 6f 74 6f 09 67 | 6f 74 6f 20 73 70 65 63 |e goto.g|oto spec|
|00000ca0| 69 66 69 65 64 20 6c 69 | 6e 65 0a 3b 0a 3b 09 77 |ified li|ne.;.;.w|
|00000cb0| 6f 72 64 20 6c 65 66 74 | 09 6d 6f 76 65 20 63 75 |ord left|.move cu|
|00000cc0| 72 73 6f 72 20 74 6f 20 | 66 69 72 73 74 20 6c 65 |rsor to |first le|
|00000cd0| 74 74 65 72 20 6f 66 20 | 6e 65 78 74 20 77 6f 72 |tter of |next wor|
|00000ce0| 64 20 74 6f 20 74 68 65 | 20 6c 65 66 74 0a 3b 09 |d to the| left.;.|
|00000cf0| 77 6f 72 64 20 72 69 67 | 68 74 09 6d 6f 76 65 20 |word rig|ht.move |
|00000d00| 63 75 72 73 6f 72 20 74 | 6f 20 63 68 61 72 61 63 |cursor t|o charac|
|00000d10| 74 65 72 20 66 6f 6c 6c | 6f 77 69 6e 67 20 77 6f |ter foll|owing wo|
|00000d20| 72 64 20 74 6f 20 74 68 | 65 20 72 69 67 68 74 0a |rd to th|e right.|
|00000d30| 3b 20 0a 3b 09 6c 65 66 | 74 20 6d 61 72 67 69 6e |; .;.lef|t margin|
|00000d40| 09 6d 6f 76 65 20 63 75 | 72 73 6f 72 20 74 6f 20 |.move cu|rsor to |
|00000d50| 6c 65 66 74 20 65 6e 64 | 20 6f 66 20 63 75 72 72 |left end| of curr|
|00000d60| 65 6e 74 20 6c 69 6e 65 | 09 28 5e 61 29 0a 3b 09 |ent line|.(^a).;.|
|00000d70| 72 69 67 68 74 20 6d 61 | 72 67 69 6e 09 6d 6f 76 |right ma|rgin.mov|
|00000d80| 65 20 63 75 72 73 6f 72 | 20 74 6f 20 72 69 67 68 |e cursor| to righ|
|00000d90| 74 20 65 6e 64 20 6f 66 | 20 63 75 72 72 65 6e 74 |t end of| current|
|00000da0| 20 6c 69 6e 65 28 5e 65 | 29 0a 3b 20 0a 3b 09 62 | line(^e|).; .;.b|
|00000db0| 6f 66 09 09 6d 6f 76 65 | 20 63 75 72 73 6f 72 20 |of..move| cursor |
|00000dc0| 74 6f 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |to begin|ning of |
|00000dd0| 66 69 6c 65 09 28 65 73 | 63 20 3c 29 0a 3b 20 20 |file.(es|c <).;  |
|00000de0| 67 6f 6c 64 20 65 6f 66 | 09 09 6d 6f 76 65 20 63 |gold eof|..move c|
|00000df0| 75 72 73 6f 72 20 74 6f | 20 65 6e 64 20 6f 66 20 |ursor to| end of |
|00000e00| 66 69 6c 65 09 09 28 65 | 73 63 20 3e 29 0a 3b 20 |file..(e|sc >).; |
|00000e10| 0a 3b 09 70 61 67 65 20 | 75 70 09 09 6d 6f 76 65 |.;.page |up..move|
|00000e20| 20 64 69 73 70 6c 61 79 | 20 74 6f 20 70 72 65 76 | display| to prev|
|00000e30| 69 6f 75 73 20 70 61 67 | 65 09 09 28 65 73 63 20 |ious pag|e..(esc |
|00000e40| 76 29 0a 3b 09 70 61 67 | 65 20 64 6f 77 6e 09 6d |v).;.pag|e down.m|
|00000e50| 6f 76 65 20 64 69 73 70 | 6c 61 79 20 74 6f 20 6e |ove disp|lay to n|
|00000e60| 65 78 74 20 70 61 67 65 | 09 09 28 5e 76 29 0a 3b |ext page|..(^v).;|
|00000e70| 20 0a 3b 09 70 61 72 61 | 20 75 70 09 09 6d 6f 76 | .;.para| up..mov|
|00000e80| 65 20 74 6f 20 70 72 65 | 76 69 6f 75 73 20 70 61 |e to pre|vious pa|
|00000e90| 72 61 67 72 61 70 68 0a | 3b 09 70 61 72 61 20 64 |ragraph.|;.para d|
|00000ea0| 6f 77 6e 09 6d 6f 76 65 | 20 74 6f 20 6e 65 78 74 |own.move| to next|
|00000eb0| 20 70 61 72 61 67 72 61 | 70 68 0a 3b 20 0a 3b 09 | paragra|ph.; .;.|
|00000ec0| 77 72 61 70 09 09 74 6f | 67 67 6c 65 20 77 72 61 |wrap..to|ggle wra|
|00000ed0| 70 2f 6e 6f 2d 77 72 61 | 70 20 6d 6f 64 65 73 0a |p/no-wra|p modes.|
|00000ee0| 3b 20 20 67 6f 6c 64 20 | 73 63 72 6f 6c 6c 09 09 |;  gold |scroll..|
|00000ef0| 68 6f 72 69 7a 6f 6e 74 | 61 6c 20 73 63 72 6f 6c |horizont|al scrol|
|00000f00| 6c 69 6e 67 3a 0a 3b 09 | 09 09 20 20 73 65 74 20 |ling:.;.|..  set |
|00000f10| 64 69 73 74 61 6e 63 65 | 20 66 72 6f 6d 20 62 65 |distance| from be|
|00000f20| 67 69 6e 2d 6f 66 2d 6c | 69 6e 65 20 74 6f 20 62 |gin-of-l|ine to b|
|00000f30| 65 67 69 6e 2d 6f 66 2d | 73 63 72 65 65 6e 0a 3b |egin-of-|screen.;|
|00000f40| 0a 3b 09 62 61 63 6b 73 | 70 61 63 65 09 64 65 6c |.;.backs|pace.del|
|00000f50| 65 74 65 20 70 72 65 76 | 69 6f 75 73 20 63 68 61 |ete prev|ious cha|
|00000f60| 72 61 63 74 65 72 0a 3b | 09 64 65 6c 65 74 65 09 |racter.;|.delete.|
|00000f70| 09 64 65 6c 65 74 65 20 | 63 68 61 72 61 63 74 65 |.delete |characte|
|00000f80| 72 20 6f 76 65 72 20 63 | 75 72 73 6f 72 0a 3b 09 |r over c|ursor.;.|
|00000f90| 5e 63 09 09 70 61 75 73 | 65 20 65 6d 61 63 73 20 |^c..paus|e emacs |
|00000fa0| 61 6e 64 20 72 65 74 75 | 72 6e 20 74 6f 20 75 6e |and retu|rn to un|
|00000fb0| 69 78 0a 3b 0a 3b 56 54 | 31 30 30 20 54 45 52 4d |ix.;.;VT|100 TERM|
|00000fc0| 43 41 50 0a 3b 0a 3b 64 | 31 7c 76 74 31 30 30 7c |CAP.;.;d|1|vt100||
|00000fd0| 76 74 2d 31 30 30 7c 70 | 74 31 30 30 7c 70 74 2d |vt-100|p|t100|pt-|
|00000fe0| 31 30 30 7c 64 65 63 20 | 76 74 31 30 30 3a 5c 0a |100|dec |vt100:\.|
|00000ff0| 3b 09 3a 63 6f 23 38 30 | 3a 6c 69 23 32 34 3a 61 |;.:co#80|:li#24:a|
|00001000| 6d 3a 63 6c 3d 35 30 5c | 45 5b 3b 48 5c 45 5b 32 |m:cl=50\|E[;H\E[2|
|00001010| 4a 3a 62 73 3a 63 6d 3d | 35 5c 45 5b 25 69 25 32 |J:bs:cm=|5\E[%i%2|
|00001020| 3b 25 32 48 3a 6e 64 3d | 32 5c 45 5b 43 3a 75 70 |;%2H:nd=|2\E[C:up|
|00001030| 3d 32 5c 45 5b 41 3a 5c | 0a 3b 09 3a 63 65 3d 33 |=2\E[A:\|.;.:ce=3|
|00001040| 5c 45 5b 4b 3a 63 64 3d | 35 30 5c 45 5b 4a 3a 73 |\E[K:cd=|50\E[J:s|
|00001050| 6f 3d 32 5c 45 5b 37 6d | 3a 73 65 3d 32 5c 45 5b |o=2\E[7m|:se=2\E[|
|00001060| 6d 3a 75 73 3d 32 5c 45 | 5b 34 6d 3a 75 65 3d 32 |m:us=2\E|[4m:ue=2|
|00001070| 5c 45 5b 6d 3a 5c 0a 3b | 09 3a 69 73 3d 5c 45 3e |\E[m:\.;|.:is=\E>|
|00001080| 5c 45 5b 3f 33 6c 5c 45 | 5b 3f 34 6c 5c 45 5b 3f |\E[?3l\E|[?4l\E[?|
|00001090| 35 6c 5c 45 5b 3f 37 68 | 5c 45 5b 3f 38 68 3a 6b |5l\E[?7h|\E[?8h:k|
|000010a0| 73 3d 5c 45 5b 3f 31 68 | 5c 45 3d 3a 6b 65 3d 5c |s=\E[?1h|\E=:ke=\|
|000010b0| 45 5b 3f 31 6c 5c 45 3e | 3a 5c 0a 3b 09 3a 69 66 |E[?1l\E>|:\.;.:if|
|000010c0| 3d 2f 75 73 72 2f 6c 69 | 62 2f 74 61 62 73 65 74 |=/usr/li|b/tabset|
|000010d0| 2f 76 74 31 30 30 3a 6b | 75 3d 5c 45 4f 41 3a 6b |/vt100:k|u=\EOA:k|
|000010e0| 64 3d 5c 45 4f 42 3a 6b | 72 3d 5c 45 4f 43 3a 6b |d=\EOB:k|r=\EOC:k|
|000010f0| 6c 3d 5c 45 4f 44 3a 5c | 0a 3b 09 3a 6b 68 3d 5c |l=\EOD:\|.;.:kh=\|
|00001100| 45 5b 48 3a 6b 31 3d 5c | 45 4f 50 3a 6b 32 3d 5c |E[H:k1=\|EOP:k2=\|
|00001110| 45 4f 51 3a 6b 33 3d 5c | 45 4f 52 3a 6b 34 3d 5c |EOQ:k3=\|EOR:k4=\|
|00001120| 45 4f 53 3a 70 74 3a 73 | 72 3d 35 5c 45 4d 3a 78 |EOS:pt:s|r=5\EM:x|
|00001130| 6e 3a 0a 3b 0a 3b 48 49 | 53 54 4f 52 59 0a 3b 20 |n:.;.;HI|STORY.; |
|00001140| 20 7b 34 7d 09 33 30 2d | 41 70 72 2d 38 35 20 20 | {4}.30-|Apr-85  |
|00001150| 42 69 6c 6c 20 4d 63 4b | 65 65 6d 61 6e 20 61 74 |Bill McK|eeman at|
|00001160| 20 57 61 6e 67 49 6e 73 | 74 0a 3b 09 45 6c 61 62 | WangIns|t.;.Elab|
|00001170| 6f 72 61 74 65 64 20 6b | 65 79 70 61 64 20 64 65 |orated k|eypad de|
|00001180| 66 69 6e 69 74 69 6f 6e | 73 2e 0a 3b 20 20 7b 33 |finition|s..;  {3|
|00001190| 7d 09 32 32 2d 4e 6f 76 | 2d 38 34 20 20 4d 69 6b |}.22-Nov|-84  Mik|
|000011a0| 65 20 47 61 6c 6c 61 68 | 65 72 20 61 74 20 75 6e |e Gallah|er at un|
|000011b0| 69 70 72 65 73 73 0a 3b | 09 41 64 64 65 64 20 73 |ipress.;|.Added s|
|000011c0| 74 61 6e 64 61 72 64 20 | 6b 65 79 70 61 64 20 61 |tandard |keypad a|
|000011d0| 6e 64 20 6c 61 62 65 6c | 65 64 20 6b 65 79 20 64 |nd label|ed key d|
|000011e0| 65 66 69 6e 69 74 69 6f | 6e 73 2e 0a 3b 20 20 7b |efinitio|ns..;  {|
|000011f0| 32 7d 09 30 37 2d 41 75 | 67 2d 38 34 20 20 45 72 |2}.07-Au|g-84  Er|
|00001200| 69 63 20 53 2e 20 52 61 | 79 6d 6f 6e 64 0a 3b 09 |ic S. Ra|ymond.;.|
|00001210| 46 69 78 65 64 20 61 20 | 64 6f 63 75 6d 65 6e 74 |Fixed a |document|
|00001220| 61 74 69 6f 6e 20 62 75 | 67 2e 0a 3b 20 20 7b 31 |ation bu|g..;  {1|
|00001230| 7d 09 31 32 2d 4a 75 6c | 2d 38 34 20 20 45 72 69 |}.12-Jul|-84  Eri|
|00001240| 63 20 53 2e 20 52 61 79 | 6d 6f 6e 64 20 61 6e 64 |c S. Ray|mond and|
|00001250| 20 44 61 76 65 20 4c 61 | 6e 67 64 6f 6e 20 61 74 | Dave La|ngdon at|
|00001260| 20 52 61 62 62 69 74 20 | 53 6f 66 74 77 61 72 65 | Rabbit |Software|
|00001270| 0a 3b 09 43 72 65 61 74 | 65 64 2e 0a 3b 2d 2d 2d |.;.Creat|ed..;---|
|00001280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000012c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0a 28 64 65 63 6c |--------|--.(decl|
|000012d0| 61 72 65 2d 67 6c 6f 62 | 61 6c 20 76 74 31 30 30 |are-glob|al vt100|
|000012e0| 2d 6d 61 72 6b 2d 69 73 | 2d 73 65 74 29 20 28 73 |-mark-is|-set) (s|
|000012f0| 65 74 71 20 76 74 31 30 | 30 2d 6d 61 72 6b 2d 69 |etq vt10|0-mark-i|
|00001300| 73 2d 73 65 74 20 30 29 | 0a 28 64 65 63 6c 61 72 |s-set 0)|.(declar|
|00001310| 65 2d 67 6c 6f 62 61 6c | 20 76 74 31 30 30 2d 67 |e-global| vt100-g|
|00001320| 6f 6c 64 2d 6b 65 79 2d | 70 72 65 73 73 65 64 29 |old-key-|pressed)|
|00001330| 20 28 73 65 74 71 20 76 | 74 31 30 30 2d 67 6f 6c | (setq v|t100-gol|
|00001340| 64 2d 6b 65 79 2d 70 72 | 65 73 73 65 64 20 30 29 |d-key-pr|essed 0)|
|00001350| 0a 28 64 65 63 6c 61 72 | 65 2d 67 6c 6f 62 61 6c |.(declar|e-global|
|00001360| 20 76 74 31 30 30 2d 6d | 6c 2d 70 61 74 68 29 0a | vt100-m|l-path).|
|00001370| 0a 3b 20 50 72 65 6c 69 | 6d 69 6e 61 72 69 65 73 |.; Preli|minaries|
|00001380| 20 2d 2d 20 6c 65 74 27 | 73 20 67 65 74 20 74 68 | -- let'|s get th|
|00001390| 65 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 72 69 |e enviro|nment ri|
|000013a0| 67 68 74 0a 28 70 72 6f | 67 6e 20 76 65 72 20 20 |ght.(pro|gn ver  |
|000013b0| 3b 20 63 68 65 63 6b 20 | 66 6f 72 20 22 45 6d 61 |; check |for "Ema|
|000013c0| 63 73 20 56 32 2e 30 30 | 20 28 31 32 2d 46 65 62 |cs V2.00| (12-Feb|
|000013d0| 2d 38 35 29 20 55 6e 69 | 78 20 76 65 72 73 69 6f |-85) Uni|x versio|
|000013e0| 6e 22 0a 20 20 28 73 65 | 74 71 20 76 65 72 20 28 |n".  (se|tq ver (|
|000013f0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 29 0a |emacs-ve|rsion)).|
|00001400| 20 20 28 69 66 20 28 7c | 20 28 3c 20 28 73 75 62 |  (if (|| (< (sub|
|00001410| 73 74 72 20 76 65 72 20 | 38 20 31 29 20 22 32 22 |str ver |8 1) "2"|
|00001420| 29 20 28 21 3d 20 28 73 | 75 62 73 74 72 20 76 65 |) (!= (s|ubstr ve|
|00001430| 72 20 39 20 31 29 20 22 | 2e 22 29 29 0a 20 20 20 |r 9 1) "|.")).   |
|00001440| 20 28 65 72 72 6f 72 2d | 6d 65 73 73 61 67 65 20 | (error-|message |
|00001450| 22 4e 65 65 64 20 6c 61 | 74 65 72 20 76 65 72 73 |"Need la|ter vers|
|00001460| 69 6f 6e 20 6f 66 20 65 | 6d 61 63 73 20 66 6f 72 |ion of e|macs for|
|00001470| 20 76 74 31 30 30 2e 6d | 6c 20 70 61 63 6b 61 67 | vt100.m|l packag|
|00001480| 65 22 29 0a 20 20 29 0a | 20 20 28 73 65 6e 64 2d |e").  ).|  (send-|
|00001490| 73 74 72 69 6e 67 2d 74 | 6f 2d 74 65 72 6d 69 6e |string-t|o-termin|
|000014a0| 61 6c 09 09 09 22 5c 65 | 3d 22 29 09 3b 20 73 65 |al..."\e|=").; se|
|000014b0| 74 20 6b 65 79 70 61 64 | 20 61 6c 74 20 6d 6f 64 |t keypad| alt mod|
|000014c0| 65 0a 20 20 28 69 66 20 | 28 65 72 72 6f 72 2d 6f |e.  (if |(error-o|
|000014d0| 63 63 75 72 72 65 64 20 | 28 73 65 74 71 20 76 74 |ccurred |(setq vt|
|000014e0| 31 30 30 2d 6d 6c 2d 70 | 61 74 68 20 28 67 65 74 |100-ml-p|ath (get|
|000014f0| 65 6e 76 20 22 45 50 41 | 54 48 22 29 29 29 0a 20 |env "EPA|TH"))). |
|00001500| 20 20 20 28 70 72 6f 67 | 6e 09 09 09 09 09 09 3b |   (prog|n......;|
|00001510| 20 70 61 74 68 20 74 6f | 20 68 65 6c 70 20 66 69 | path to| help fi|
|00001520| 6c 65 0a 20 20 20 20 20 | 20 28 73 65 74 71 20 76 |le.     | (setq v|
|00001530| 74 31 30 30 2d 6d 6c 2d | 70 61 74 68 20 22 2f 75 |t100-ml-|path "/u|
|00001540| 73 72 2f 6c 6f 63 61 6c | 2f 6c 69 62 2f 65 6d 61 |sr/local|/lib/ema|
|00001550| 63 73 2f 6d 61 63 6c 69 | 62 2f 22 29 3b 20 72 65 |cs/macli|b/"); re|
|00001560| 61 73 6f 6e 61 62 6c 65 | 20 64 65 66 61 75 6c 74 |asonable| default|
|00001570| 0a 20 20 20 20 20 20 28 | 6d 65 73 73 61 67 65 20 |.      (|message |
|00001580| 22 55 6e 69 78 20 65 6e | 76 69 72 6f 6e 6d 65 6e |"Unix en|vironmen|
|00001590| 74 20 76 61 72 69 61 62 | 6c 65 20 45 50 41 54 48 |t variab|le EPATH|
|000015a0| 20 6e 6f 74 20 73 65 74 | 3b 20 64 65 66 61 75 6c | not set|; defaul|
|000015b0| 74 20 75 73 65 64 22 29 | 0a 20 20 20 20 20 20 28 |t used")|.      (|
|000015c0| 73 69 74 2d 66 6f 72 20 | 32 29 0a 20 20 29 20 29 |sit-for |2).  ) )|
|000015d0| 0a 29 0a 3b 20 53 70 65 | 63 69 61 6c 20 65 64 69 |.).; Spe|cial edi|
|000015e0| 74 69 6e 67 20 6b 65 79 | 73 20 61 6e 64 20 73 65 |ting key|s and se|
|000015f0| 74 74 69 6e 67 73 0a 28 | 62 69 6e 64 2d 74 6f 2d |ttings.(|bind-to-|
|00001600| 6b 65 79 20 22 64 65 6c | 65 74 65 2d 70 72 65 76 |key "del|ete-prev|
|00001610| 69 6f 75 73 2d 63 68 61 | 72 61 63 74 65 72 22 09 |ious-cha|racter".|
|00001620| 22 5c 5e 68 22 29 09 3b | 20 62 61 63 6b 73 70 61 |"\^h").;| backspa|
|00001630| 63 65 0a 28 62 69 6e 64 | 2d 74 6f 2d 6b 65 79 20 |ce.(bind|-to-key |
|00001640| 22 64 65 6c 65 74 65 2d | 6e 65 78 74 2d 63 68 61 |"delete-|next-cha|
|00001650| 72 61 63 74 65 72 22 09 | 09 22 5c 31 37 37 22 29 |racter".|."\177")|
|00001660| 09 3b 20 64 65 6c 65 74 | 65 0a 28 62 69 6e 64 2d |.; delet|e.(bind-|
|00001670| 74 6f 2d 6b 65 79 20 22 | 70 61 75 73 65 2d 65 6d |to-key "|pause-em|
|00001680| 61 63 73 22 09 09 09 22 | 5c 5e 63 22 29 09 3b 20 |acs"..."|\^c").; |
|00001690| 63 6f 6e 74 72 6f 6c 20 | 63 0a 28 62 69 6e 64 2d |control |c.(bind-|
|000016a0| 74 6f 2d 6b 65 79 20 22 | 76 74 31 30 30 2d 63 61 |to-key "|vt100-ca|
|000016b0| 72 65 66 75 6c 2d 6d 61 | 63 72 6f 22 09 09 22 5c |reful-ma|cro".."\|
|000016c0| 5e 78 65 22 29 09 3b 20 | 63 6f 6e 74 72 6f 6c 20 |^xe").; |control |
|000016d0| 78 20 65 0a 28 73 65 74 | 71 20 72 69 67 68 74 2d |x e.(set|q right-|
|000016e0| 6d 61 72 67 69 6e 20 37 | 38 29 09 09 09 09 09 3b |margin 7|8).....;|
|000016f0| 20 61 76 6f 69 64 20 65 | 64 67 65 20 65 66 66 65 | avoid e|dge effe|
|00001700| 63 74 73 0a 28 73 65 74 | 71 20 73 63 72 6f 6c 6c |cts.(set|q scroll|
|00001710| 2d 73 74 65 70 20 31 29 | 09 09 09 09 09 3b 20 61 |-step 1)|.....; a|
|00001720| 75 74 6f 20 73 63 72 6f | 6c 6c 20 61 6d 6f 75 6e |uto scro|ll amoun|
|00001730| 74 0a 28 73 65 74 71 20 | 74 72 61 63 6b 2d 65 6f |t.(setq |track-eo|
|00001740| 6c 2d 6f 6e 2d 5e 4e 2d | 5e 50 20 30 29 09 09 09 |l-on-^N-|^P 0)...|
|00001750| 09 3b 20 76 65 72 74 69 | 63 61 6c 20 63 75 72 73 |.; verti|cal curs|
|00001760| 65 20 63 74 72 6c 0a 0a | 3b 20 43 75 72 73 6f 72 |e ctrl..|; Cursor|
|00001770| 20 63 6f 6e 74 72 6f 6c | 73 0a 28 62 69 6e 64 2d | control|s.(bind-|
|00001780| 74 6f 2d 6b 65 79 20 22 | 62 61 63 6b 77 61 72 64 |to-key "|backward|
|00001790| 2d 63 68 61 72 61 63 74 | 65 72 22 09 09 22 5c 65 |-charact|er".."\e|
|000017a0| 5b 44 22 29 09 3b 20 63 | 75 72 73 6f 72 20 3c 0a |[D").; c|ursor <.|
|000017b0| 28 62 69 6e 64 2d 74 6f | 2d 6b 65 79 20 22 70 72 |(bind-to|-key "pr|
|000017c0| 65 76 69 6f 75 73 2d 6c | 69 6e 65 22 09 09 09 22 |evious-l|ine"..."|
|000017d0| 5c 65 5b 41 22 29 09 3b | 20 63 75 72 73 6f 72 20 |\e[A").;| cursor |
|000017e0| 5e 0a 28 62 69 6e 64 2d | 74 6f 2d 6b 65 79 20 22 |^.(bind-|to-key "|
|000017f0| 6e 65 78 74 2d 6c 69 6e | 65 22 09 09 09 22 5c 65 |next-lin|e"..."\e|
|00001800| 5b 42 22 29 09 3b 20 63 | 75 72 73 6f 72 20 76 0a |[B").; c|ursor v.|
|00001810| 28 62 69 6e 64 2d 74 6f | 2d 6b 65 79 20 22 66 6f |(bind-to|-key "fo|
|00001820| 72 77 61 72 64 2d 63 68 | 61 72 61 63 74 65 72 22 |rward-ch|aracter"|
|00001830| 09 09 22 5c 65 5b 43 22 | 29 09 3b 20 63 75 72 73 |.."\e[C"|).; curs|
|00001840| 6f 72 20 3e 0a 28 62 69 | 6e 64 2d 74 6f 2d 6b 65 |or >.(bi|nd-to-ke|
|00001850| 79 20 22 62 61 63 6b 77 | 61 72 64 2d 63 68 61 72 |y "backw|ard-char|
|00001860| 61 63 74 65 72 22 09 09 | 22 5c 65 4f 44 22 29 09 |acter"..|"\eOD").|
|00001870| 3b 20 63 75 72 73 6f 72 | 20 3c 0a 28 62 69 6e 64 |; cursor| <.(bind|
|00001880| 2d 74 6f 2d 6b 65 79 20 | 22 70 72 65 76 69 6f 75 |-to-key |"previou|
|00001890| 73 2d 6c 69 6e 65 22 09 | 09 09 22 5c 65 4f 41 22 |s-line".|.."\eOA"|
|000018a0| 29 09 3b 20 63 75 72 73 | 6f 72 20 5e 0a 28 62 69 |).; curs|or ^.(bi|
|000018b0| 6e 64 2d 74 6f 2d 6b 65 | 79 20 22 6e 65 78 74 2d |nd-to-ke|y "next-|
|000018c0| 6c 69 6e 65 22 09 09 09 | 22 5c 65 4f 42 22 29 09 |line"...|"\eOB").|
|000018d0| 3b 20 63 75 72 73 6f 72 | 20 76 0a 28 62 69 6e 64 |; cursor| v.(bind|
|000018e0| 2d 74 6f 2d 6b 65 79 20 | 22 66 6f 72 77 61 72 64 |-to-key |"forward|
|000018f0| 2d 63 68 61 72 61 63 74 | 65 72 22 09 09 22 5c 65 |-charact|er".."\e|
|00001900| 4f 43 22 29 09 3b 20 63 | 75 72 73 6f 72 20 3e 0a |OC").; c|ursor >.|
|00001910| 0a 3b 20 4b 65 79 70 61 | 64 20 64 65 66 69 6e 69 |.; Keypa|d defini|
|00001920| 74 69 6f 6e 73 0a 28 62 | 69 6e 64 2d 74 6f 2d 6b |tions.(b|ind-to-k|
|00001930| 65 79 20 22 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |ey "begi|nning-of|
|00001940| 2d 6c 69 6e 65 22 09 09 | 22 5c 65 4f 50 22 29 20 |-line"..|"\eOP") |
|00001950| 3b 20 6b 65 79 70 61 64 | 20 70 66 31 20 2b 0a 28 |; keypad| pf1 +.(|
|00001960| 62 69 6e 64 2d 74 6f 2d | 6b 65 79 20 22 65 6e 64 |bind-to-|key "end|
|00001970| 2d 6f 66 2d 6c 69 6e 65 | 22 09 09 09 22 5c 65 4f |-of-line|"..."\eO|
|00001980| 51 22 29 20 3b 20 6b 65 | 79 70 61 64 20 70 66 32 |Q") ; ke|ypad pf2|
|00001990| 20 2d 0a 28 62 69 6e 64 | 2d 74 6f 2d 6b 65 79 20 | -.(bind|-to-key |
|000019a0| 22 62 61 63 6b 77 61 72 | 64 2d 70 61 72 61 67 72 |"backwar|d-paragr|
|000019b0| 61 70 68 22 09 09 22 5c | 65 4f 52 22 29 20 3b 20 |aph".."\|eOR") ; |
|000019c0| 6b 65 79 70 61 64 20 70 | 66 33 20 2a 0a 28 62 69 |keypad p|f3 *.(bi|
|000019d0| 6e 64 2d 74 6f 2d 6b 65 | 79 20 22 70 72 65 76 69 |nd-to-ke|y "previ|
|000019e0| 6f 75 73 2d 70 61 67 65 | 22 09 09 09 22 5c 65 4f |ous-page|"..."\eO|
|000019f0| 53 22 29 20 3b 20 6b 65 | 79 70 61 64 20 70 66 34 |S") ; ke|ypad pf4|
|00001a00| 20 2f 0a 28 62 69 6e 64 | 2d 74 6f 2d 6b 65 79 20 | /.(bind|-to-key |
|00001a10| 22 66 6f 72 77 61 72 64 | 2d 70 61 72 61 67 72 61 |"forward|-paragra|
|00001a20| 70 68 22 09 09 22 5c 65 | 4f 79 22 29 20 3b 20 6b |ph".."\e|Oy") ; k|
|00001a30| 65 79 70 61 64 20 39 0a | 28 62 69 6e 64 2d 74 6f |eypad 9.|(bind-to|
|00001a40| 2d 6b 65 79 20 22 66 6f | 72 77 61 72 64 2d 77 6f |-key "fo|rward-wo|
|00001a50| 72 64 22 09 09 09 22 5c | 65 4f 78 22 29 20 3b 20 |rd"..."\|eOx") ; |
|00001a60| 6b 65 79 70 61 64 20 38 | 0a 28 62 69 6e 64 2d 74 |keypad 8|.(bind-t|
|00001a70| 6f 2d 6b 65 79 20 22 62 | 61 63 6b 77 61 72 64 2d |o-key "b|ackward-|
|00001a80| 77 6f 72 64 22 09 09 09 | 22 5c 65 4f 77 22 29 20 |word"...|"\eOw") |
|00001a90| 3b 20 6b 65 79 70 61 64 | 20 37 0a 28 62 69 6e 64 |; keypad| 7.(bind|
|00001aa0| 2d 74 6f 2d 6b 65 79 20 | 22 76 74 31 30 30 2d 6c |-to-key |"vt100-l|
|00001ab0| 69 6e 65 2d 6e 75 6d 62 | 65 72 22 09 09 22 5c 65 |ine-numb|er".."\e|
|00001ac0| 4f 76 22 29 20 3b 20 6b | 65 79 70 61 64 20 36 0a |Ov") ; k|eypad 6.|
|00001ad0| 28 62 69 6e 64 2d 74 6f | 2d 6b 65 79 20 22 76 74 |(bind-to|-key "vt|
|00001ae0| 31 30 30 2d 77 72 61 70 | 2d 6f 72 2d 73 63 72 6f |100-wrap|-or-scro|
|00001af0| 6c 6c 22 09 09 22 5c 65 | 4f 75 22 29 20 3b 20 6b |ll".."\e|Ou") ; k|
|00001b00| 65 79 70 61 64 20 35 0a | 28 62 69 6e 64 2d 74 6f |eypad 5.|(bind-to|
|00001b10| 2d 6b 65 79 20 22 76 74 | 31 30 30 2d 66 69 6c 65 |-key "vt|100-file|
|00001b20| 2d 62 65 67 69 6e 2d 6f | 72 2d 65 6e 64 22 09 09 |-begin-o|r-end"..|
|00001b30| 22 5c 65 4f 74 22 29 20 | 3b 20 6b 65 79 70 61 64 |"\eOt") |; keypad|
|00001b40| 20 34 0a 28 62 69 6e 64 | 2d 74 6f 2d 6b 65 79 20 | 4.(bind|-to-key |
|00001b50| 22 76 74 31 30 30 2d 6d | 61 63 72 6f 73 22 09 09 |"vt100-m|acros"..|
|00001b60| 09 22 5c 65 4f 73 22 29 | 20 3b 20 6b 65 79 70 61 |."\eOs")| ; keypa|
|00001b70| 64 20 33 0a 28 62 69 6e | 64 2d 74 6f 2d 6b 65 79 |d 3.(bin|d-to-key|
|00001b80| 20 22 76 74 31 30 30 2d | 70 61 73 74 65 2d 6f 72 | "vt100-|paste-or|
|00001b90| 2d 75 6e 64 6f 22 09 09 | 22 5c 65 4f 72 22 29 20 |-undo"..|"\eOr") |
|00001ba0| 3b 20 6b 65 79 70 61 64 | 20 32 0a 28 62 69 6e 64 |; keypad| 2.(bind|
|00001bb0| 2d 74 6f 2d 6b 65 79 20 | 22 76 74 31 30 30 2d 73 |-to-key |"vt100-s|
|00001bc0| 65 74 2d 6d 61 72 6b 2d | 6f 72 2d 63 75 74 22 09 |et-mark-|or-cut".|
|00001bd0| 09 22 5c 65 4f 71 22 29 | 20 3b 20 6b 65 79 70 61 |."\eOq")| ; keypa|
|00001be0| 64 20 31 0a 28 62 69 6e | 64 2d 74 6f 2d 6b 65 79 |d 1.(bin|d-to-key|
|00001bf0| 20 22 76 74 31 30 30 2d | 76 69 73 69 74 2d 66 69 | "vt100-|visit-fi|
|00001c00| 6c 65 2d 6f 72 2d 73 68 | 65 6c 6c 22 09 22 5c 65 |le-or-sh|ell"."\e|
|00001c10| 4f 70 22 29 20 3b 20 6b | 65 79 70 61 64 20 30 0a |Op") ; k|eypad 0.|
|00001c20| 28 62 69 6e 64 2d 74 6f | 2d 6b 65 79 20 22 6e 65 |(bind-to|-key "ne|
|00001c30| 78 74 2d 70 61 67 65 22 | 09 09 09 22 5c 65 4f 6d |xt-page"|..."\eOm|
|00001c40| 22 29 20 3b 20 6b 65 79 | 70 61 64 20 2d 20 70 72 |") ; key|pad - pr|
|00001c50| 69 6e 74 0a 28 62 69 6e | 64 2d 74 6f 2d 6b 65 79 |int.(bin|d-to-key|
|00001c60| 20 22 76 74 31 30 30 2d | 6e 65 78 74 2d 6f 72 2d | "vt100-|next-or-|
|00001c70| 64 65 6c 65 74 65 2d 77 | 69 6e 64 6f 77 22 09 22 |delete-w|indow"."|
|00001c80| 5c 65 4f 6c 22 29 20 3b | 20 6b 65 79 70 61 64 20 |\eOl") ;| keypad |
|00001c90| 2c 20 65 72 61 73 65 0a | 28 62 69 6e 64 2d 74 6f |, erase.|(bind-to|
|00001ca0| 2d 6b 65 79 20 22 76 74 | 31 30 30 2d 67 6f 6c 64 |-key "vt|100-gold|
|00001cb0| 2d 6b 65 79 22 09 09 09 | 22 5c 65 4f 6e 22 29 20 |-key"...|"\eOn") |
|00001cc0| 3b 20 6b 65 79 70 61 64 | 20 2e 0a 28 62 69 6e 64 |; keypad| ..(bind|
|00001cd0| 2d 74 6f 2d 6b 65 79 20 | 22 76 74 31 30 30 2d 77 |-to-key |"vt100-w|
|00001ce0| 72 69 74 65 2d 66 69 6c | 65 2d 6f 72 2d 66 69 6c |rite-fil|e-or-fil|
|00001cf0| 65 73 22 09 22 5c 65 4f | 4d 22 29 20 3b 20 6b 65 |es"."\eO|M") ; ke|
|00001d00| 79 70 61 64 20 65 6e 74 | 65 72 0a 0a 28 64 65 66 |ypad ent|er..(def|
|00001d10| 75 6e 20 0a 20 20 28 76 | 74 31 30 30 2d 67 6f 6c |un .  (v|t100-gol|
|00001d20| 64 2d 6b 65 79 0a 20 20 | 20 20 28 69 66 20 28 3d |d-key.  |  (if (=|
|00001d30| 20 76 74 31 30 30 2d 67 | 6f 6c 64 2d 6b 65 79 2d | vt100-g|old-key-|
|00001d40| 70 72 65 73 73 65 64 20 | 30 29 0a 20 20 20 20 20 |pressed |0).     |
|00001d50| 20 28 73 65 74 71 20 76 | 74 31 30 30 2d 67 6f 6c | (setq v|t100-gol|
|00001d60| 64 2d 6b 65 79 2d 70 72 | 65 73 73 65 64 20 31 29 |d-key-pr|essed 1)|
|00001d70| 0a 20 20 20 20 20 20 28 | 76 74 31 30 30 2d 68 65 |.      (|vt100-he|
|00001d80| 6c 70 29 0a 20 20 20 20 | 29 0a 20 20 29 0a 0a 20 |lp).    |).  ).. |
|00001d90| 20 28 76 74 31 30 30 2d | 70 61 73 74 65 2d 6f 72 | (vt100-|paste-or|
|00001da0| 2d 75 6e 64 6f 0a 20 20 | 20 20 28 69 66 20 28 3d |-undo.  |  (if (=|
|00001db0| 20 76 74 31 30 30 2d 67 | 6f 6c 64 2d 6b 65 79 2d | vt100-g|old-key-|
|00001dc0| 70 72 65 73 73 65 64 20 | 30 29 0a 20 20 20 20 20 |pressed |0).     |
|00001dd0| 20 28 79 61 6e 6b 2d 66 | 72 6f 6d 2d 6b 69 6c 6c | (yank-f|rom-kill|
|00001de0| 62 75 66 66 65 72 29 0a | 20 20 20 20 20 20 28 65 |buffer).|      (e|
|00001df0| 72 72 6f 72 2d 6f 63 63 | 75 72 72 65 64 20 28 6e |rror-occ|urred (n|
|00001e00| 65 77 2d 75 6e 64 6f 29 | 29 0a 20 20 20 20 29 0a |ew-undo)|).    ).|
|00001e10| 20 20 20 20 28 73 65 74 | 71 20 76 74 31 30 30 2d |    (set|q vt100-|
|00001e20| 67 6f 6c 64 2d 6b 65 79 | 2d 70 72 65 73 73 65 64 |gold-key|-pressed|
|00001e30| 20 30 29 0a 20 20 29 0a | 0a 20 20 28 76 74 31 30 | 0).  ).|.  (vt10|
|00001e40| 30 2d 73 65 74 2d 6d 61 | 72 6b 2d 6f 72 2d 63 75 |0-set-ma|rk-or-cu|
|00001e50| 74 0a 20 20 20 20 28 69 | 66 20 28 65 72 72 6f 72 |t.    (i|f (error|
|00001e60| 2d 6f 63 63 75 72 72 65 | 64 20 28 6d 61 72 6b 29 |-occurre|d (mark)|
|00001e70| 29 20 28 73 65 74 71 20 | 76 74 31 30 30 2d 6d 61 |) (setq |vt100-ma|
|00001e80| 72 6b 2d 69 73 2d 73 65 | 74 20 30 29 29 0a 20 20 |rk-is-se|t 0)).  |
|00001e90| 20 20 28 69 66 20 28 3d | 20 76 74 31 30 30 2d 6d |  (if (=| vt100-m|
|00001ea0| 61 72 6b 2d 69 73 2d 73 | 65 74 20 30 29 0a 20 20 |ark-is-s|et 0).  |
|00001eb0| 20 20 20 20 28 70 72 6f | 67 6e 20 28 73 65 74 2d |    (pro|gn (set-|
|00001ec0| 6d 61 72 6b 29 20 28 73 | 65 74 71 20 76 74 31 30 |mark) (s|etq vt10|
|00001ed0| 30 2d 6d 61 72 6b 2d 69 | 73 2d 73 65 74 20 31 29 |0-mark-i|s-set 1)|
|00001ee0| 29 0a 20 20 20 20 20 20 | 28 70 72 6f 67 6e 20 28 |).      |(progn (|
|00001ef0| 64 65 6c 65 74 65 2d 74 | 6f 2d 6b 69 6c 6c 62 75 |delete-t|o-killbu|
|00001f00| 66 66 65 72 29 20 28 73 | 65 74 71 20 76 74 31 30 |ffer) (s|etq vt10|
|00001f10| 30 2d 6d 61 72 6b 2d 69 | 73 2d 73 65 74 20 30 29 |0-mark-i|s-set 0)|
|00001f20| 29 0a 20 20 20 20 29 0a | 20 20 20 20 28 73 65 74 |).    ).|    (set|
|00001f30| 71 20 76 74 31 30 30 2d | 67 6f 6c 64 2d 6b 65 79 |q vt100-|gold-key|
|00001f40| 2d 70 72 65 73 73 65 64 | 20 30 29 0a 20 20 29 0a |-pressed| 0).  ).|
|00001f50| 0a 20 20 28 76 74 31 30 | 30 2d 77 72 69 74 65 2d |.  (vt10|0-write-|
|00001f60| 66 69 6c 65 2d 6f 72 2d | 66 69 6c 65 73 0a 20 20 |file-or-|files.  |
|00001f70| 20 20 28 69 66 20 28 3d | 20 76 74 31 30 30 2d 67 |  (if (=| vt100-g|
|00001f80| 6f 6c 64 2d 6b 65 79 2d | 70 72 65 73 73 65 64 20 |old-key-|pressed |
|00001f90| 30 29 0a 20 20 20 20 20 | 20 28 70 72 6f 67 6e 20 |0).     | (progn |
|00001fa0| 28 77 72 69 74 65 2d 63 | 75 72 72 65 6e 74 2d 66 |(write-c|urrent-f|
|00001fb0| 69 6c 65 29 28 6d 65 73 | 73 61 67 65 28 63 6f 6e |ile)(mes|sage(con|
|00001fc0| 63 61 74 20 22 57 72 6f | 74 65 20 22 28 63 75 72 |cat "Wro|te "(cur|
|00001fd0| 72 65 6e 74 2d 66 69 6c | 65 2d 6e 61 6d 65 29 29 |rent-fil|e-name))|
|00001fe0| 29 29 0a 20 20 20 20 20 | 20 28 70 72 6f 67 6e 20 |)).     | (progn |
|00001ff0| 28 77 72 69 74 65 2d 6d | 6f 64 69 66 69 65 64 2d |(write-m|odified-|
|00002000| 66 69 6c 65 73 29 20 28 | 6d 65 73 73 61 67 65 20 |files) (|message |
|00002010| 22 57 72 6f 74 65 20 61 | 6c 6c 20 6d 6f 64 69 66 |"Wrote a|ll modif|
|00002020| 69 65 64 20 66 69 6c 65 | 73 2e 22 29 29 0a 20 20 |ied file|s.")).  |
|00002030| 20 20 29 0a 20 20 20 20 | 28 73 65 74 71 20 76 74 |  ).    |(setq vt|
|00002040| 31 30 30 2d 67 6f 6c 64 | 2d 6b 65 79 2d 70 72 65 |100-gold|-key-pre|
|00002050| 73 73 65 64 20 30 29 0a | 20 20 29 0a 0a 20 20 28 |ssed 0).|  )..  (|
|00002060| 76 74 31 30 30 2d 6d 61 | 63 72 6f 73 0a 20 20 20 |vt100-ma|cros.   |
|00002070| 20 28 69 66 20 28 3d 20 | 76 74 31 30 30 2d 67 6f | (if (= |vt100-go|
|00002080| 6c 64 2d 6b 65 79 2d 70 | 72 65 73 73 65 64 20 30 |ld-key-p|ressed 0|
|00002090| 29 0a 20 20 20 20 20 20 | 28 76 74 31 30 30 2d 63 |).      |(vt100-c|
|000020a0| 61 72 65 66 75 6c 2d 6d | 61 63 72 6f 29 0a 20 20 |areful-m|acro).  |
|000020b0| 20 20 20 20 28 70 72 6f | 67 6e 0a 20 20 20 20 20 |    (pro|gn.     |
|000020c0| 20 20 20 28 65 72 72 6f | 72 2d 6f 63 63 75 72 72 |   (erro|r-occurr|
|000020d0| 65 64 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 62 6f |ed (defi|ne-keybo|
|000020e0| 61 72 64 2d 6d 61 63 72 | 6f 20 22 76 74 31 30 30 |ard-macr|o "vt100|
|000020f0| 2d 63 75 72 72 65 6e 74 | 2d 6d 61 63 72 6f 22 29 |-current|-macro")|
|00002100| 29 0a 20 20 20 20 20 20 | 20 20 28 69 66 20 28 65 |).      |  (if (e|
|00002110| 72 72 6f 72 2d 6f 63 63 | 75 72 72 65 64 20 28 65 |rror-occ|urred (e|
|00002120| 64 69 74 2d 6d 61 63 72 | 6f 20 22 76 74 31 30 30 |dit-macr|o "vt100|
|00002130| 2d 63 75 72 72 65 6e 74 | 2d 6d 61 63 72 6f 22 29 |-current|-macro")|
|00002140| 29 0a 20 20 20 20 20 20 | 20 20 20 20 28 6d 65 73 |).      |    (mes|
|00002150| 73 61 67 65 20 22 4e 6f | 20 6d 61 63 72 6f 20 64 |sage "No| macro d|
|00002160| 65 66 69 6e 65 64 2e 20 | 20 5e 78 28 20 6d 61 63 |efined. | ^x( mac|
|00002170| 72 6f 2d 62 6f 64 79 20 | 5e 78 29 20 74 6f 20 64 |ro-body |^x) to d|
|00002180| 65 66 69 6e 65 20 6d 61 | 63 72 6f 2e 22 29 0a 20 |efine ma|cro."). |
|00002190| 20 20 20 20 20 20 20 20 | 20 28 6d 65 73 73 61 67 |        | (messag|
|000021a0| 65 20 22 43 75 72 72 65 | 6e 74 20 6d 61 63 72 6f |e "Curre|nt macro|
|000021b0| 3a 20 65 64 69 74 20 61 | 6e 64 20 28 64 65 66 69 |: edit a|nd (defi|
|000021c0| 6e 65 2d 62 75 66 66 65 | 72 2d 6d 61 63 72 6f 29 |ne-buffe|r-macro)|
|000021d0| 20 6f 72 20 64 65 6c 65 | 74 65 20 77 69 6e 64 6f | or dele|te windo|
|000021e0| 77 2e 22 29 0a 20 20 20 | 20 20 20 20 20 29 0a 20 |w.").   |     ). |
|000021f0| 20 20 20 20 20 29 0a 20 | 20 20 20 29 0a 20 20 20 |     ). |   ).   |
|00002200| 20 28 73 65 74 71 20 76 | 74 31 30 30 2d 67 6f 6c | (setq v|t100-gol|
|00002210| 64 2d 6b 65 79 2d 70 72 | 65 73 73 65 64 20 30 29 |d-key-pr|essed 0)|
|00002220| 0a 20 20 29 0a 0a 20 20 | 28 76 74 31 30 30 2d 63 |.  )..  |(vt100-c|
|00002230| 61 72 65 66 75 6c 2d 6d | 61 63 72 6f 0a 20 20 20 |areful-m|acro.   |
|00002240| 20 28 69 66 20 28 65 72 | 72 6f 72 2d 6f 63 63 75 | (if (er|ror-occu|
|00002250| 72 72 65 64 20 28 65 78 | 65 63 75 74 65 2d 6b 65 |rred (ex|ecute-ke|
|00002260| 79 62 6f 61 72 64 2d 6d | 61 63 72 6f 29 29 0a 20 |yboard-m|acro)). |
|00002270| 20 20 20 20 20 28 69 66 | 20 28 65 72 72 6f 72 2d |     (if| (error-|
|00002280| 6f 63 63 75 72 72 65 64 | 20 28 76 74 31 30 30 2d |occurred| (vt100-|
|00002290| 63 75 72 72 65 6e 74 2d | 6d 61 63 72 6f 29 29 0a |current-|macro)).|
|000022a0| 20 20 20 20 20 20 20 20 | 28 6d 65 73 73 61 67 65 |        |(message|
|000022b0| 20 22 4e 6f 20 6d 61 63 | 72 6f 20 64 65 66 69 6e | "No mac|ro defin|
|000022c0| 65 64 2e 20 5e 78 28 20 | 6d 61 63 72 6f 2d 62 6f |ed. ^x( |macro-bo|
|000022d0| 64 79 20 5e 78 29 20 74 | 6f 20 64 65 66 69 6e 65 |dy ^x) t|o define|
|000022e0| 20 6d 61 63 72 6f 2e 22 | 29 0a 20 20 20 20 20 20 | macro."|).      |
|000022f0| 20 20 28 6d 65 73 73 61 | 67 65 20 22 45 78 65 63 |  (messa|ge "Exec|
|00002300| 75 74 65 64 20 6d 61 63 | 72 6f 2e 22 29 0a 20 20 |uted mac|ro.").  |
|00002310| 20 20 20 20 29 0a 20 20 | 20 20 20 20 28 6d 65 73 |    ).  |    (mes|
|00002320| 73 61 67 65 20 22 45 78 | 65 63 75 74 65 64 20 6d |sage "Ex|ecuted m|
|00002330| 61 63 72 6f 2e 22 29 0a | 20 20 20 20 29 0a 20 20 |acro.").|    ).  |
|00002340| 29 0a 0a 20 20 28 76 74 | 31 30 30 2d 6e 65 78 74 |)..  (vt|100-next|
|00002350| 2d 6f 72 2d 64 65 6c 65 | 74 65 2d 77 69 6e 64 6f |-or-dele|te-windo|
|00002360| 77 0a 20 20 20 20 28 69 | 66 20 28 3d 20 76 74 31 |w.    (i|f (= vt1|
|00002370| 30 30 2d 67 6f 6c 64 2d | 6b 65 79 2d 70 72 65 73 |00-gold-|key-pres|
|00002380| 73 65 64 20 30 29 0a 20 | 20 20 20 20 20 28 6e 65 |sed 0). |     (ne|
|00002390| 78 74 2d 77 69 6e 64 6f | 77 29 0a 20 20 20 20 20 |xt-windo|w).     |
|000023a0| 20 28 64 65 6c 65 74 65 | 2d 77 69 6e 64 6f 77 29 | (delete|-window)|
|000023b0| 0a 20 20 20 20 29 0a 20 | 20 20 20 28 73 65 74 71 |.    ). |   (setq|
|000023c0| 20 76 74 31 30 30 2d 67 | 6f 6c 64 2d 6b 65 79 2d | vt100-g|old-key-|
|000023d0| 70 72 65 73 73 65 64 20 | 30 29 0a 20 20 29 0a 0a |pressed |0).  )..|
|000023e0| 20 20 28 76 74 31 30 30 | 2d 6c 69 6e 65 2d 6e 75 |  (vt100|-line-nu|
|000023f0| 6d 62 65 72 0a 20 20 20 | 20 28 69 66 20 28 3d 20 |mber.   | (if (= |
|00002400| 76 74 31 30 30 2d 67 6f | 6c 64 2d 6b 65 79 2d 70 |vt100-go|ld-key-p|
|00002410| 72 65 73 73 65 64 20 30 | 29 0a 20 20 20 20 20 20 |ressed 0|).      |
|00002420| 28 6d 65 73 73 61 67 65 | 20 28 63 6f 6e 63 61 74 |(message| (concat|
|00002430| 20 22 6c 69 6e 65 20 6e | 75 6d 62 65 72 20 3d 20 | "line n|umber = |
|00002440| 22 20 28 6c 69 6e 65 2d | 6e 75 6d 62 65 72 29 29 |" (line-|number))|
|00002450| 29 0a 20 20 20 20 20 20 | 28 67 6f 74 6f 2d 6c 69 |).      |(goto-li|
|00002460| 6e 65 20 28 67 65 74 2d | 74 74 79 2d 73 74 72 69 |ne (get-|tty-stri|
|00002470| 6e 67 20 22 67 6f 20 74 | 6f 20 6c 69 6e 65 20 6e |ng "go t|o line n|
|00002480| 75 6d 62 65 72 3a 20 22 | 29 29 0a 20 20 20 20 29 |umber: "|)).    )|
|00002490| 0a 20 20 20 20 28 73 65 | 74 71 20 76 74 31 30 30 |.    (se|tq vt100|
|000024a0| 2d 67 6f 6c 64 2d 6b 65 | 79 2d 70 72 65 73 73 65 |-gold-ke|y-presse|
|000024b0| 64 20 30 29 0a 20 20 29 | 0a 0a 20 20 28 76 74 31 |d 0).  )|..  (vt1|
|000024c0| 30 30 2d 66 69 6c 65 2d | 62 65 67 69 6e 2d 6f 72 |00-file-|begin-or|
|000024d0| 2d 65 6e 64 0a 20 20 20 | 20 28 69 66 20 28 3d 20 |-end.   | (if (= |
|000024e0| 76 74 31 30 30 2d 67 6f | 6c 64 2d 6b 65 79 2d 70 |vt100-go|ld-key-p|
|000024f0| 72 65 73 73 65 64 20 30 | 29 0a 20 20 20 20 20 20 |ressed 0|).      |
|00002500| 28 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 66 69 |(beginni|ng-of-fi|
|00002510| 6c 65 29 0a 20 20 20 20 | 20 20 28 65 6e 64 2d 6f |le).    |  (end-o|
|00002520| 66 2d 66 69 6c 65 29 0a | 20 20 20 20 29 0a 20 20 |f-file).|    ).  |
|00002530| 20 20 28 73 65 74 71 20 | 76 74 31 30 30 2d 67 6f |  (setq |vt100-go|
|00002540| 6c 64 2d 6b 65 79 2d 70 | 72 65 73 73 65 64 20 30 |ld-key-p|ressed 0|
|00002550| 29 0a 20 20 29 0a 0a 20 | 20 28 76 74 31 30 30 2d |).  ).. | (vt100-|
|00002560| 76 69 73 69 74 2d 66 69 | 6c 65 2d 6f 72 2d 73 68 |visit-fi|le-or-sh|
|00002570| 65 6c 6c 0a 20 20 20 20 | 28 69 66 20 28 3d 20 76 |ell.    |(if (= v|
|00002580| 74 31 30 30 2d 67 6f 6c | 64 2d 6b 65 79 2d 70 72 |t100-gol|d-key-pr|
|00002590| 65 73 73 65 64 20 30 29 | 0a 20 20 20 20 20 20 28 |essed 0)|.      (|
|000025a0| 76 69 73 69 74 2d 66 69 | 6c 65 20 28 67 65 74 2d |visit-fi|le (get-|
|000025b0| 74 74 79 2d 66 69 6c 65 | 20 22 45 6e 74 65 72 20 |tty-file| "Enter |
|000025c0| 66 69 6c 65 20 6e 61 6d | 65 3a 22 29 29 0a 20 20 |file nam|e:")).  |
|000025d0| 20 20 20 20 28 73 68 65 | 6c 6c 29 0a 20 20 20 20 |    (she|ll).    |
|000025e0| 29 0a 20 20 20 20 28 73 | 65 74 71 20 76 74 31 30 |).    (s|etq vt10|
|000025f0| 30 2d 67 6f 6c 64 2d 6b | 65 79 2d 70 72 65 73 73 |0-gold-k|ey-press|
|00002600| 65 64 20 30 29 0a 20 20 | 29 0a 0a 20 20 28 76 74 |ed 0).  |)..  (vt|
|00002610| 31 30 30 2d 77 72 61 70 | 2d 6f 72 2d 73 63 72 6f |100-wrap|-or-scro|
|00002620| 6c 6c 0a 20 20 20 20 28 | 69 66 20 28 3d 20 76 74 |ll.    (|if (= vt|
|00002630| 31 30 30 2d 67 6f 6c 64 | 2d 6b 65 79 2d 70 72 65 |100-gold|-key-pre|
|00002640| 73 73 65 64 20 30 29 0a | 20 20 20 20 20 20 28 73 |ssed 0).|      (s|
|00002650| 65 74 71 20 77 72 61 70 | 2d 6c 6f 6e 67 2d 6c 69 |etq wrap|-long-li|
|00002660| 6e 65 73 20 28 21 20 77 | 72 61 70 2d 6c 6f 6e 67 |nes (! w|rap-long|
|00002670| 2d 6c 69 6e 65 73 29 29 | 0a 20 20 20 20 20 20 28 |-lines))|.      (|
|00002680| 73 65 74 71 20 6c 65 66 | 74 2d 6f 66 66 73 65 74 |setq lef|t-offset|
|00002690| 20 28 67 65 74 2d 74 74 | 79 2d 73 74 72 69 6e 67 | (get-tt|y-string|
|000026a0| 20 22 4d 6f 76 65 20 6c | 65 66 74 20 73 63 72 65 | "Move l|eft scre|
|000026b0| 65 6e 20 65 64 67 65 20 | 74 6f 3a 22 29 29 0a 20 |en edge |to:")). |
|000026c0| 20 20 20 29 0a 20 20 20 | 20 28 73 65 74 71 20 76 |   ).   | (setq v|
|000026d0| 74 31 30 30 2d 67 6f 6c | 64 2d 6b 65 79 2d 70 72 |t100-gol|d-key-pr|
|000026e0| 65 73 73 65 64 20 30 29 | 0a 20 20 29 0a 0a 20 20 |essed 0)|.  )..  |
|000026f0| 28 76 74 31 30 30 2d 68 | 65 6c 70 0a 20 20 20 20 |(vt100-h|elp.    |
|00002700| 28 73 65 74 71 20 76 74 | 31 30 30 2d 67 6f 6c 64 |(setq vt|100-gold|
|00002710| 2d 6b 65 79 2d 70 72 65 | 73 73 65 64 20 30 29 0a |-key-pre|ssed 0).|
|00002720| 20 20 20 20 28 73 77 69 | 74 63 68 2d 74 6f 2d 62 |    (swi|tch-to-b|
|00002730| 75 66 66 65 72 20 22 76 | 74 31 30 30 2d 68 65 6c |uffer "v|t100-hel|
|00002740| 70 22 29 0a 20 20 20 20 | 28 69 66 20 28 65 72 72 |p").    |(if (err|
|00002750| 6f 72 2d 6f 63 63 75 72 | 72 65 64 20 28 72 65 61 |or-occur|red (rea|
|00002760| 64 2d 66 69 6c 65 20 28 | 63 6f 6e 63 61 74 20 76 |d-file (|concat v|
|00002770| 74 31 30 30 2d 6d 6c 2d | 70 61 74 68 20 22 76 74 |t100-ml-|path "vt|
|00002780| 31 30 30 2e 6d 6c 22 29 | 29 29 0a 20 20 20 20 20 |100.ml")|)).     |
|00002790| 20 28 70 72 6f 67 6e 0a | 20 20 20 20 20 20 20 20 | (progn.|        |
|000027a0| 28 64 65 6c 65 74 65 2d | 62 75 66 66 65 72 20 22 |(delete-|buffer "|
|000027b0| 76 74 31 30 30 2d 68 65 | 6c 70 22 29 0a 20 20 20 |vt100-he|lp").   |
|000027c0| 20 20 20 20 20 28 65 72 | 72 6f 72 2d 6d 65 73 73 |     (er|ror-mess|
|000027d0| 61 67 65 0a 20 20 20 20 | 20 20 20 20 20 20 22 55 |age.    |      "U|
|000027e0| 6e 69 78 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |nix envi|ronment |
|000027f0| 76 61 72 69 61 62 6c 65 | 20 45 50 41 54 48 20 64 |variable| EPATH d|
|00002800| 6f 65 73 20 6e 6f 74 20 | 70 6f 69 6e 74 20 74 6f |oes not |point to|
|00002810| 20 76 74 31 30 30 2e 6d | 6c 22 0a 20 20 20 20 29 | vt100.m|l".    )|
|00002820| 20 29 20 29 0a 20 20 20 | 20 28 73 65 74 71 20 72 | ) ).   | (setq r|
|00002830| 65 61 64 2d 6f 6e 6c 79 | 20 31 29 0a 20 20 20 20 |ead-only| 1).    |
|00002840| 28 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 66 69 |(beginni|ng-of-fi|
|00002850| 6c 65 29 0a 20 20 29 0a | 29 0a 3b 20 76 74 31 30 |le).  ).|).; vt10|
|00002860| 30 2e 6d 6c 20 65 6e 64 | 73 20 68 65 72 65 20 2d |0.ml end|s here -|
|00002870| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002880| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002890| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000028a0| 2d 2d 2d 2d 0a 20 6c 69 | 6e 65 0a 3b 0a 3b 09 77 |----. li|ne.;.;.w|
|000028b0| 6f 72 64 20 6c 65 66 74 | 09 6d 6f 76 65 20 63 75 |ord left|.move cu|
|000028c0| 72 73 6f 72 20 74 6f 20 | 66 69 72 73 74 20 6c 65 |rsor to |first le|
|000028d0| 74 74 65 72 20 6f 66 20 | 6e 65 78 74 20 77 6f 72 |tter of |next wor|
|000028e0| 64 20 74 6f 20 74 68 65 | 20 6c 65 66 74 0a 3b 09 |d to the| left.;.|
|000028f0| 77 6f 72 64 20 72 69 67 | 68 74 09 6d 6f 76 65 20 |word rig|ht.move |
|00002900| 63 75 72 73 6f 72 20 74 | 6f 20 63 68 61 72 61 63 |cursor t|o charac|
|00002910| 74 65 72 20 66 6f 6c 6c | 6f 77 69 6e 67 20 77 6f |ter foll|owing wo|
|00002920| 72 64 20 74 6f 20 74 68 | 65 20 72 69 67 68 74 0a |rd to th|e right.|
|00002930| 3b 20 0a 3b 09 6c 65 66 | 74 20 6d 61 72 67 69 6e |; .;.lef|t margin|
|00002940| 09 6d 6f 76 65 20 63 75 | 72 73 6f 72 20 74 6f 20 |.move cu|rsor to |
|00002950| 6c 65 66 74 20 65 6e 64 | 20 6f 66 20 63 75 72 72 |left end| of curr|
|00002960| 65 6e 74 20 6c 69 6e 65 | 09 28 5e 61 29 0a 3b 09 |ent line|.(^a).;.|
|00002970| 72 69 67 68 74 20 6d 61 | 72 67 69 6e 09 6d 6f 76 |right ma|rgin.mov|
|00002980| 65 20 63 75 72 73 6f 72 | 20 74 6f 20 72 69 67 68 |e cursor| to righ|
|00002990| 74 20 65 6e 64 20 6f 66 | 20 63 75 72 72 65 6e 74 |t end of| current|
|000029a0| 20 6c 69 6e 65 28 5e 65 | 29 0a 3b 20 0a 3b 09 62 | line(^e|).; .;.b|
|000029b0| 6f 66 09 09 6d 6f 76 65 | 20 63 75 72 73 6f 72 20 |of..move| cursor |
|000029c0| 74 6f 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |to begin|ning of |
|000029d0| 66 69 6c 65 09 28 65 73 | 63 20 3c 29 0a 3b 20 20 |file.(es|c <).;  |
|000029e0| 67 6f 6c 64 20 65 6f 66 | 09 09 6d 6f 76 65 20 63 |gold eof|..move c|
|000029f0| 75 72 73 6f 72 20 74 6f | 20 65 6e 64 20 6f 66 20 |ursor to| end of |
|00002a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002aa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ab0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e00| 66 69 6c 65 09 09 28 65 | 73 63 20 3e 29 0a 3b 20 |file..(e|sc >).; |
|00002e10| 0a 3b 09 70 61 67 65 20 | 75 70 09 09 6d 6f 76 65 |.;.page |up..move|
|00002e20| 20 64 69 73 70 6c 61 79 | 20 74 6f 20 70 72 65 76 | display| to prev|
|00002e30| 69 6f 75 73 20 70 61 67 | 65 09 09 28 65 73 63 20 |ious pag|e..(esc |
|00002e40| 76 29 0a 3b 09 70 61 67 | 65 20 64 6f 77 6e 09 6d |v).;.pag|e down.m|
|00002e50| 6f 76 65 20 64 69 73 70 | 6c 61 79 20 74 6f 20 6e |ove disp|lay to n|
|00002e60| 65 78 74 20 70 61 67 65 | 09 09 28 5e 76 29 0a 3b |ext page|..(^v).;|
|00002e70| 20 0a 3b 09 70 61 72 61 | 20 75 70 09 09 6d 6f 76 | .;.para| up..mov|
|00002e80| 65 20 74 6f 20 70 72 65 | 76 69 6f 75 73 20 70 61 |e to pre|vious pa|
|00002e90| 72 61 67 72 61 70 68 0a | 3b 09 70 61 72 61 20 64 |ragraph.|;.para d|
|00002ea0| 6f 77 6e 09 6d 6f 76 65 | 20 74 6f 20 6e 65 78 74 |own.move| to next|
|00002eb0| 20 70 61 72 61 67 72 61 | 70 68 0a 3b 20 0a 3b 09 | paragra|ph.; .;.|
|00002ec0| 77 72 61 70 09 09 74 6f | 67 67 6c 65 20 77 72 61 |wrap..to|ggle wra|
|00002ed0| 70 2f 6e 6f 2d 77 72 61 | 70 20 6d 6f 64 65 73 0a |p/no-wra|p modes.|
|00002ee0| 3b 20 20 67 6f 6c 64 20 | 73 63 72 6f 6c 6c 09 09 |;  gold |scroll..|
|00002ef0| 68 6f 72 69 7a 6f 6e 74 | 61 6c 20 73 63 72 6f 6c |horizont|al scrol|
|00002f00| 6c 69 6e 67 3a 0a 3b 09 | 09 09 20 20 73 65 74 20 |ling:.;.|..  set |
|00002f10| 64 69 73 74 61 6e 63 65 | 20 66 72 6f 6d 20 62 65 |distance| from be|
|00002f20| 67 69 6e 2d 6f 66 2d 6c | 69 6e 65 20 74 6f 20 62 |gin-of-l|ine to b|
|00002f30| 65 67 69 6e 2d 6f 66 2d | 73 63 72 65 65 6e 0a 3b |egin-of-|screen.;|
|00002f40| 0a 3b 09 62 61 63 6b 73 | 70 61 63 65 09 64 65 6c |.;.backs|pace.del|
|00002f50| 65 74 65 20 70 72 65 76 | 69 6f 75 73 20 63 68 61 |ete prev|ious cha|
|00002f60| 72 61 63 74 65 72 0a 3b | 09 64 65 6c 65 74 65 09 |racter.;|.delete.|
|00002f70| 09 64 65 6c 65 74 65 20 | 63 68 61 72 61 63 74 65 |.delete |characte|
|00002f80| 72 20 6f 76 65 72 20 63 | 75 72 73 6f 72 0a 3b 09 |r over c|ursor.;.|
|00002f90| 5e 63 09 09 70 61 75 73 | 65 20 65 6d 61 63 73 20 |^c..paus|e emacs |
|00002fa0| 61 6e 64 20 72 65 74 75 | 72 6e 20 74 6f 20 75 6e |and retu|rn to un|
|00002fb0| 69 78 0a 3b 0a 3b 56 54 | 31 30 30 20 54 45 52 4d |ix.;.;VT|100 TERM|
|00002fc0| 43 41 50 0a 3b 0a 3b 64 | 31 7c 76 74 31 30 30 7c |CAP.;.;d|1|vt100||
|00002fd0| 76 74 2d 31 30 30 7c 70 | 74 31 30 30 7c 70 74 2d |vt-100|p|t100|pt-|
|00002fe0| 31 30 30 7c 64 65 63 20 | 76 74 31 30 30 3a 5c 0a |100|dec |vt100:\.|
|00002ff0| 3b 09 3a 63 6f 23 38 30 | 3a 6c 69 23 32 34 3a 61 |;.:co#80|:li#24:a|
|00003000| 6d 3a 63 6c 3d 35 30 5c | 45 5b 3b 48 5c 45 5b 32 |m:cl=50\|E[;H\E[2|
|00003010| 4a 3a 62 73 3a 63 6d 3d | 35 5c 45 5b 25 69 25 32 |J:bs:cm=|5\E[%i%2|
|00003020| 3b 25 32 48 3a 6e 64 3d | 32 5c 45 5b 43 3a 75 70 |;%2H:nd=|2\E[C:up|
|00003030| 3d 32 5c 45 5b 41 3a 5c | 0a 3b 09 3a 63 65 3d 33 |=2\E[A:\|.;.:ce=3|
|00003040| 5c 45 5b 4b 3a 63 64 3d | 35 30 5c 45 5b 4a 3a 73 |\E[K:cd=|50\E[J:s|
|00003050| 6f 3d 32 5c 45 5b 37 6d | 3a 73 65 3d 32 5c 45 5b |o=2\E[7m|:se=2\E[|
|00003060| 6d 3a 75 73 3d 32 5c 45 | 5b 34 6d 3a 75 65 3d 32 |m:us=2\E|[4m:ue=2|
|00003070| 5c 45 5b 6d 3a 5c 0a 3b | 09 3a 69 73 3d 5c 45 3e |\E[m:\.;|.:is=\E>|
|00003080| 5c 45 5b 3f 33 6c 5c 45 | 5b 3f 34 6c 5c 45 5b 3f |\E[?3l\E|[?4l\E[?|
|00003090| 35 6c 5c 45 5b 3f 37 68 | 5c 45 5b 3f 38 68 3a 6b |5l\E[?7h|\E[?8h:k|
|000030a0| 73 3d 5c 45 5b 3f 31 68 | 5c 45 3d 3a 6b 65 3d 5c |s=\E[?1h|\E=:ke=\|
|000030b0| 45 5b 3f 31 6c 5c 45 3e | 3a 5c 0a 3b 09 3a 69 66 |E[?1l\E>|:\.;.:if|
|000030c0| 3d 2f 75 73 72 2f 6c 69 | 62 2f 74 61 62 73 65 74 |=/usr/li|b/tabset|
|000030d0| 2f 76 74 31 30 30 3a 6b | 75 3d 5c 45 4f 41 3a 6b |/vt100:k|u=\EOA:k|
|000030e0| 64 3d 5c 45 4f 42 3a 6b | 72 3d 5c 45 4f 43 3a 6b |d=\EOB:k|r=\EOC:k|
|000030f0| 6c 3d 5c 45 4f 44 3a 5c | 0a 3b 09 3a 6b 68 3d 5c |l=\EOD:\|.;.:kh=\|
|00003100| 45 5b 48 3a 6b 31 3d 5c | 45 4f 50 3a 6b 32 3d 5c |E[H:k1=\|EOP:k2=\|
|00003110| 45 4f 51 3a 6b 33 3d 5c | 45 4f 52 3a 6b 34 3d 5c |EOQ:k3=\|EOR:k4=\|
|00003120| 45 4f 53 3a 70 74 3a 73 | 72 3d 35 5c 45 4d 3a 78 |EOS:pt:s|r=5\EM:x|
|00003130| 6e 3a 0a 3b 0a 3b 48 49 | 53 54 4f 52 59 0a 3b 20 |n:.;.;HI|STORY.; |
|00003140| 20 7b 34 7d 09 33 30 2d | 41 70 72 2d 38 35 20 20 | {4}.30-|Apr-85  |
|00003150| 42 69 6c 6c 20 4d 63 4b | 65 65 6d 61 6e 20 61 74 |Bill McK|eeman at|
|00003160| 20 57 61 6e 67 49 6e 73 | 74 0a 3b 09 45 6c 61 62 | WangIns|t.;.Elab|
|00003170| 6f 72 61 74 65 64 20 6b | 65 79 70 61 64 20 64 65 |orated k|eypad de|
|00003180| 66 69 6e 69 74 69 6f 6e | 73 2e 0a 3b 20 20 7b 33 |finition|s..;  {3|
|00003190| 7d 09 32 32 2d 4e 6f 76 | 2d 38 34 20 20 4d 69 6b |}.22-Nov|-84  Mik|
|000031a0| 65 20 47 61 6c 6c 61 68 | 65 72 20 61 74 20 75 6e |e Gallah|er at un|
|000031b0| 69 70 72 65 73 73 0a 3b | 09 41 64 64 65 64 20 73 |ipress.;|.Added s|
|000031c0| 74 61 6e 64 61 72 64 20 | 6b 65 79 70 61 64 20 61 |tandard |keypad a|
|000031d0| 6e 64 20 6c 61 62 65 6c | 65 64 20 6b 65 79 20 64 |nd label|ed key d|
|000031e0| 65 66 69 6e 69 74 69 6f | 6e 73 2e 0a 3b 20 20 7b |efinitio|ns..;  {|
|000031f0| 32 7d 09 30 37 2d 41 75 | 67 2d 38 34 20 20 45 72 |2}.07-Au|g-84  Er|
|00003200| 69 63 20 53 2e 20 52 61 | 79 6d 6f 6e 64 0a 3b 09 |ic S. Ra|ymond.;.|
|00003210| 46 69 78 65 64 20 61 20 | 64 6f 63 75 6d 65 6e 74 |Fixed a |document|
|00003220| 61 74 69 6f 6e 20 62 75 | 67 2e 0a 3b 20 20 7b 31 |ation bu|g..;  {1|
|00003230| 7d 09 31 32 2d 4a 75 6c | 2d 38 34 20 20 45 72 69 |}.12-Jul|-84  Eri|
|00003240| 63 20 53 2e 20 52 61 79 | 6d 6f 6e 64 20 61 6e 64 |c S. Ray|mond and|
|00003250| 20 44 61 76 65 20 4c 61 | 6e 67 64 6f 6e 20 61 74 | Dave La|ngdon at|
|00003260| 20 52 61 62 62 69 74 20 | 53 6f 66 74 77 61 72 65 | Rabbit |Software|
|00003270| 0a 3b 09 43 72 65 61 74 | 65 64 2e 0a 3b 2d 2d 2d |.;.Creat|ed..;---|
|00003280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0a 28 64 65 63 6c |--------|--.(decl|
|000032d0| 61 72 65 2d 67 6c 6f 62 | 61 6c 20 76 74 31 30 30 |are-glob|al vt100|
|000032e0| 2d 6d 61 72 6b 2d 69 73 | 2d 73 65 74 29 20 28 73 |-mark-is|-set) (s|
|000032f0| 65 74 71 20 76 74 31 30 | 30 2d 6d 61 72 6b 2d 69 |etq vt10|0-mark-i|
|00003300| 73 2d 73 65 74 20 30 29 | 0a 28 64 65 63 6c 61 72 |s-set 0)|.(declar|
|00003310| 65 2d 67 6c 6f 62 61 6c | 20 76 74 31 30 30 2d 67 |e-global| vt100-g|
|00003320| 6f 6c 64 2d 6b 65 79 2d | 70 72 65 73 73 65 64 29 |old-key-|pressed)|
|00003330| 20 28 73 65 74 71 20 76 | 74 31 30 30 2d 67 6f 6c | (setq v|t100-gol|
|00003340| 64 2d 6b 65 79 2d 70 72 | 65 73 73 65 64 20 30 29 |d-key-pr|essed 0)|
|00003350| 0a 28 64 65 63 6c 61 72 | 65 2d 67 6c 6f 62 61 6c |.(declar|e-global|
|00003360| 20 76 74 31 30 30 2d 6d | 6c 2d 70 61 74 68 29 0a | vt100-m|l-path).|
|00003370| 0a 3b 20 50 72 65 6c 69 | 6d 69 6e 61 72 69 65 73 |.; Preli|minaries|
|00003380| 20 2d 2d 20 6c 65 74 27 | 73 20 67 65 74 20 74 68 | -- let'|s get th|
|00003390| 65 20 65 6e 76 69 72 6f | 6e 6d 65 6e 74 20 72 69 |e enviro|nment ri|
|000033a0| 67 68 74 0a 28 70 72 6f | 67 6e 20 76 65 72 20 20 |ght.(pro|gn ver  |
|000033b0| 3b 20 63 68 65 63 6b 20 | 66 6f 72 20 22 45 6d 61 |; check |for "Ema|
|000033c0| 63 73 20 56 32 2e 30 30 | 20 28 31 32 2d 46 65 62 |cs V2.00| (12-Feb|
|000033d0| 2d 38 35 29 20 55 6e 69 | 78 20 76 65 72 73 69 6f |-85) Uni|x versio|
|000033e0| 6e 22 0a 20 20 28 73 65 | 74 71 20 76 65 72 20 28 |n".  (se|tq ver (|
|000033f0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 29 29 0a |emacs-ve|rsion)).|
|00003400| 20 20 28 69 66 20 28 7c | 20 28 3c 20 28 73 75 62 |  (if (|| (< (sub|
|00003410| 73 74 72 20 76 65 72 20 | 38 20 31 29 20 22 32 22 |str ver |8 1) "2"|
|00003420| 29 20 28 21 3d 20 28 73 | 75 62 73 74 72 20 76 65 |) (!= (s|ubstr ve|
|00003430| 72 20 39 20 31 29 20 22 | 2e 22 29 29 0a 20 20 20 |r 9 1) "|.")).   |
|00003440| 20 28 65 72 72 6f 72 2d | 6d 65 73 73 61 67 65 20 | (error-|message |
|00003450| 22 4e 65 65 64 20 6c 61 | 74 65 72 20 76 65 72 73 |"Need la|ter vers|
|00003460| 69 6f 6e 20 6f 66 20 65 | 6d 61 63 73 20 66 6f 72 |ion of e|macs for|
|00003470| 20 76 74 31 30 30 2e 6d | 6c 20 70 61 63 6b 61 67 | vt100.m|l packag|
|00003480| 65 22 29 0a 20 20 29 0a | 20 20 28 73 65 6e 64 2d |e").  ).|  (send-|
|00003490| 73 74 72 69 6e 67 2d 74 | 6f 2d 74 65 72 6d 69 6e |string-t|o-termin|
|000034a0| 61 6c 09 09 09 22 5c 65 | 3d 22 29 09 3b 20 73 65 |al..."\e|=").; se|
|000034b0| 74 20 6b 65 79 70 61 64 | 20 61 6c 74 20 6d 6f 64 |t keypad| alt mod|
|000034c0| 65 0a 20 20 28 69 66 20 | 28 65 72 72 6f 72 2d 6f |e.  (if |(error-o|
|000034d0| 63 63 75 72 72 65 64 20 | 28 73 65 74 71 20 76 74 |ccurred |(setq vt|
|000034e0| 31 30 30 2d 6d 6c 2d 70 | 61 74 68 20 28 67 65 74 |100-ml-p|ath (get|
|000034f0| 65 6e 76 20 22 45 50 41 | 54 48 22 29 29 29 0a 20 |env "EPA|TH"))). |
|00003500| 20 20 20 28 70 72 6f 67 | 6e 09 09 09 09 09 09 3b |   (prog|n......;|
|00003510| 20 70 61 74 68 20 74 6f | 20 68 65 6c 70 20 66 69 | path to| help fi|
|00003520| 6c 65 0a 20 20 20 20 20 | 20 28 73 65 74 71 20 76 |le.     | (setq v|
|00003530| 74 31 30 30 2d 6d 6c 2d | 70 61 74 68 20 22 2f 75 |t100-ml-|path "/u|
|00003540| 73 72 2f 6c 6f 63 61 6c | 2f 6c 69 62 2f 65 6d 61 |sr/local|/lib/ema|
|00003550| 63 73 2f 6d 61 63 6c 69 | 62 2f 22 29 3b 20 72 65 |cs/macli|b/"); re|
|00003560| 61 73 6f 6e 61 62 6c 65 | 20 64 65 66 61 75 6c 74 |asonable| default|
|00003570| 0a 20 20 20 20 20 20 28 | 6d 65 73 73 61 67 65 20 |.      (|message |
|00003580| 22 55 6e 69 78 20 65 6e | 76 69 72 6f 6e 6d 65 6e |"Unix en|vironmen|
|00003590| 74 20 76 61 72 69 61 62 | 6c 65 20 45 50 41 54 48 |t variab|le EPATH|
|000035a0| 20 6e 6f 74 20 73 65 74 | 3b 20 64 65 66 61 75 6c | not set|; defaul|
|000035b0| 74 20 75 73 65 64 22 29 | 0a 20 20 20 20 20 20 28 |t used")|.      (|
|000035c0| 73 69 74 2d 66 6f 72 20 | 32 29 0a 20 20 29 20 29 |sit-for |2).  ) )|
|000035d0| 0a 29 0a 3b 20 53 70 65 | 63 69 61 6c 20 65 64 69 |.).; Spe|cial edi|
|000035e0| 74 69 6e 67 20 6b 65 79 | 73 20 61 6e 64 20 73 65 |ting key|s and se|
|000035f0| 74 74 69 6e 67 73 0a 28 | 62 69 6e 64 2d 74 6f 2d |ttings.(|bind-to-|
|00003600| 6b 65 79 20 22 64 65 6c | 65 74 65 2d 70 72 65 76 |key "del|ete-prev|
|00003610| 69 6f 75 73 2d 63 68 61 | 72 61 63 74 65 72 22 09 |ious-cha|racter".|
|00003620| 22 5c 5e 68 22 29 09 3b | 20 62 61 63 6b 73 70 61 |"\^h").;| backspa|
|00003630| 63 65 0a 28 62 69 6e 64 | 2d 74 6f 2d 6b 65 79 20 |ce.(bind|-to-key |
|00003640| 22 64 65 6c 65 74 65 2d | 6e 65 78 74 2d 63 68 61 |"delete-|next-cha|
|00003650| 72 61 63 74 65 72 22 09 | 09 22 5c 31 37 37 22 29 |racter".|."\177")|
|00003660| 09 3b 20 64 65 6c 65 74 | 65 0a 28 62 69 6e 64 2d |.; delet|e.(bind-|
|00003670| 74 6f 2d 6b 65 79 20 22 | 70 61 75 73 65 2d 65 6d |to-key "|pause-em|
|00003680| 61 63 73 22 09 09 09 22 | 5c 5e 63 22 29 09 3b 20 |acs"..."|\^c").; |
|00003690| 63 6f 6e 74 72 6f 6c 20 | 63 0a 28 62 69 6e 64 2d |control |c.(bind-|
|000036a0| 74 6f 2d 6b 65 79 20 22 | 76 74 31 30 30 2d 63 61 |to-key "|vt100-ca|
|000036b0| 72 65 66 75 6c 2d 6d 61 | 63 72 6f 22 09 09 22 5c |reful-ma|cro".."\|
|000036c0| 5e 78 65 22 29 09 3b 20 | 63 6f 6e 74 72 6f 6c 20 |^xe").; |control |
|000036d0| 78 20 65 0a 28 73 65 74 | 71 20 72 69 67 68 74 2d |x e.(set|q right-|
|000036e0| 6d 61 72 67 69 6e 20 37 | 38 29 09 09 09 09 09 3b |margin 7|8).....;|
|000036f0| 20 61 76 6f 69 64 20 65 | 64 67 65 20 65 66 66 65 | avoid e|dge effe|
|00003700| 63 74 73 0a 28 73 65 74 | 71 20 73 63 72 6f 6c 6c |cts.(set|q scroll|
|00003710| 2d 73 74 65 70 20 31 29 | 09 09 09 09 09 3b 20 61 |-step 1)|.....; a|
|00003720| 75 74 6f 20 73 63 72 6f | 6c 6c 20 61 6d 6f 75 6e |uto scro|ll amoun|
|00003730| 74 0a 28 73 65 74 71 20 | 74 72 61 63 6b 2d 65 6f |t.(setq |track-eo|
|00003740| 6c 2d 6f 6e 2d 5e 4e 2d | 5e 50 20 30 29 09 09 09 |l-on-^N-|^P 0)...|
|00003750| 09 3b 20 76 65 72 74 69 | 63 61 6c 20 63 75 72 73 |.; verti|cal curs|
|00003760| 65 20 63 74 72 6c 0a 0a | 3b 20 43 75 72 73 6f 72 |e ctrl..|; Cursor|
|00003770| 20 63 6f 6e 74 72 6f 6c | 73 0a 28 62 69 6e 64 2d | control|s.(bind-|
|00003780| 74 6f 2d 6b 65 79 20 22 | 62 61 63 6b 77 61 72 64 |to-key "|backward|
|00003790| 2d 63 68 61 72 61 63 74 | 65 72 22 09 09 22 5c 65 |-charact|er".."\e|
|000037a0| 5b 44 22 29 09 3b 20 63 | 75 72 73 6f 72 20 3c 0a |[D").; c|ursor <.|
|000037b0| 28 62 69 6e 64 2d 74 6f | 2d 6b 65 79 20 22 70 72 |(bind-to|-key "pr|
|000037c0| 65 76 69 6f 75 73 2d 6c | 69 6e 65 22 09 09 09 22 |evious-l|ine"..."|
|000037d0| 5c 65 5b 41 22 29 09 3b | 20 63 75 72 73 6f 72 20 |\e[A").;| cursor |
|000037e0| 5e 0a 28 62 69 6e 64 2d | 74 6f 2d 6b 65 79 20 22 |^.(bind-|to-key "|
|000037f0| 6e 65 78 74 2d 6c 69 6e | 65 22 09 09 09 22 5c 65 |next-lin|e"..."\e|
|00003800| 5b 42 22 29 09 3b 20 63 | 75 72 73 6f 72 20 76 0a |[B").; c|ursor v.|
|00003810| 28 62 69 6e 64 2d 74 6f | 2d 6b 65 79 20 22 66 6f |(bind-to|-key "fo|
|00003820| 72 77 61 72 64 2d 63 68 | 61 72 61 63 74 65 72 22 |rward-ch|aracter"|
|00003830| 09 09 22 5c 65 5b 43 22 | 29 09 3b 20 63 75 72 73 |.."\e[C"|).; curs|
|00003840| 6f 72 20 3e 0a 28 62 69 | 6e 64 2d 74 6f 2d 6b 65 |or >.(bi|nd-to-ke|
|00003850| 79 20 22 62 61 63 6b 77 | 61 72 64 2d 63 68 61 72 |y "backw|ard-char|
|00003860| 61 63 74 65 72 22 09 09 | 22 5c 65 4f 44 22 29 09 |acter"..|"\eOD").|
|00003870| 3b 20 63 75 72 73 6f 72 | 20 3c 0a 28 62 69 6e 64 |; cursor| <.(bind|
|00003880| 2d 74 6f 2d 6b 65 79 20 | 22 70 72 65 76 69 6f 75 |-to-key |"previou|
|00003890| 73 2d 6c 69 6e 65 22 09 | 09 09 22 5c 65 4f 41 22 |s-line".|.."\eOA"|
|000038a0| 29 09 3b 20 63 75 72 73 | 6f 72 20 5e 0a 28 62 69 |).; curs|or ^.(bi|
|000038b0| 6e 64 2d 74 6f 2d 6b 65 | 79 20 22 6e 65 78 74 2d |nd-to-ke|y "next-|
|000038c0| 6c 69 6e 65 22 09 09 09 | 22 5c 65 4f 42 22 29 09 |line"...|"\eOB").|
|000038d0| 3b 20 63 75 72 73 6f 72 | 20 76 0a 28 62 69 6e 64 |; cursor| v.(bind|
|000038e0| 2d 74 6f 2d 6b 65 79 20 | 22 66 6f 72 77 61 72 64 |-to-key |"forward|
|000038f0| 2d 63 68 61 72 61 63 74 | 65 72 22 09 09 22 5c 65 |-charact|er".."\e|
|00003900| 4f 43 22 29 09 3b 20 63 | 75 72 73 6f 72 20 3e 0a |OC").; c|ursor >.|
|00003910| 0a 3b 20 4b 65 79 70 61 | 64 20 64 65 66 69 6e 69 |.; Keypa|d defini|
|00003920| 74 69 6f 6e 73 0a 28 62 | 69 6e 64 2d 74 6f 2d 6b |tions.(b|ind-to-k|
|00003930| 65 79 20 22 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |ey "begi|nning-of|
|00003940| 2d 6c 69 6e 65 22 09 09 | 22 5c 65 4f 50 22 29 20 |-line"..|"\eOP") |
|00003950| 3b 20 6b 65 79 70 61 64 | 20 70 66 31 20 2b 0a 28 |; keypad| pf1 +.(|
|00003960| 62 69 6e 64 2d 74 6f 2d | 6b 65 79 20 22 65 6e 64 |bind-to-|key "end|
|00003970| 2d 6f 66 2d 6c 69 6e 65 | 22 09 09 09 22 5c 65 4f |-of-line|"..."\eO|
|00003980| 51 22 29 20 3b 20 6b 65 | 79 70 61 64 20 70 66 32 |Q") ; ke|ypad pf2|
|00003990| 20 2d 0a 28 62 69 6e 64 | 2d 74 6f 2d 6b 65 79 20 | -.(bind|-to-key |
|000039a0| 22 62 61 63 6b 77 61 72 | 64 2d 70 61 72 61 67 72 |"backwar|d-paragr|
|000039b0| 61 70 68 22 09 09 22 5c | 65 4f 52 22 29 20 3b 20 |aph".."\|eOR") ; |
|000039c0| 6b 65 79 70 61 64 20 70 | 66 33 20 2a 0a 28 62 69 |keypad p|f3 *.(bi|
|000039d0| 6e 64 2d 74 6f 2d 6b 65 | 79 20 22 70 72 65 76 69 |nd-to-ke|y "previ|
|000039e0| 6f 75 73 2d 70 61 67 65 | 22 09 09 09 22 5c 65 4f |ous-page|"..."\eO|
|000039f0| 53 22 29 20 3b 20 6b 65 | 79 70 61 64 20 70 66 34 |S") ; ke|ypad pf4|
|00003a00| 20 2f 0a 28 62 69 6e 64 | 2d 74 6f 2d 6b 65 79 20 | /.(bind|-to-key |
|00003a10| 22 66 6f 72 77 61 72 64 | 2d 70 61 72 61 67 72 61 |"forward|-paragra|
|00003a20| 70 68 22 09 09 22 5c 65 | 4f 79 22 29 20 3b 20 6b |ph".."\e|Oy") ; k|
|00003a30| 65 79 70 61 64 20 39 0a | 28 62 69 6e 64 2d 74 6f |eypad 9.|(bind-to|
|00003a40| 2d 6b 65 79 20 22 66 6f | 72 77 61 72 64 2d 77 6f |-key "fo|rward-wo|
|00003a50| 72 64 22 09 09 09 22 5c | 65 4f 78 22 29 20 3b 20 |rd"..."\|eOx") ; |
|00003a60| 6b 65 79 70 61 64 20 38 | 0a 28 62 69 6e 64 2d 74 |keypad 8|.(bind-t|
|00003a70| 6f 2d 6b 65 79 20 22 62 | 61 63 6b 77 61 72 64 2d |o-key "b|ackward-|
|00003a80| 77 6f 72 64 22 09 09 09 | 22 5c 65 4f 77 22 29 20 |word"...|"\eOw") |
|00003a90| 3b 20 6b 65 79 70 61 64 | 20 37 0a 28 62 69 6e 64 |; keypad| 7.(bind|
|00003aa0| 2d 74 6f 2d 6b 65 79 20 | 22 76 74 31 30 30 2d 6c |-to-key |"vt100-l|
|00003ab0| 69 6e 65 2d 6e 75 6d 62 | 65 72 22 09 09 22 5c 65 |ine-numb|er".."\e|
|00003ac0| 4f 76 22 29 20 3b 20 6b | 65 79 70 61 64 20 36 0a |Ov") ; k|eypad 6.|
|00003ad0| 28 62 69 6e 64 2d 74 6f | 2d 6b 65 79 20 22 76 74 |(bind-to|-key "vt|
|00003ae0| 31 30 30 2d 77 72 61 70 | 2d 6f 72 2d 73 63 72 6f |100-wrap|-or-scro|
|00003af0| 6c 6c 22 09 09 22 5c 65 | 4f 75 22 29 20 3b 20 6b |ll".."\e|Ou") ; k|
|00003b00| 65 79 70 61 64 20 35 0a | 28 62 69 6e 64 2d 74 6f |eypad 5.|(bind-to|
|00003b10| 2d 6b 65 79 20 22 76 74 | 31 30 30 2d 66 69 6c 65 |-key "vt|100-file|
|00003b20| 2d 62 65 67 69 6e 2d 6f | 72 2d 65 6e 64 22 09 09 |-begin-o|r-end"..|
|00003b30| 22 5c 65 4f 74 22 29 20 | 3b 20 6b 65 79 70 61 64 |"\eOt") |; keypad|
|00003b40| 20 34 0a 28 62 69 6e 64 | 2d 74 6f 2d 6b 65 79 20 | 4.(bind|-to-key |
|00003b50| 22 76 74 31 30 30 2d 6d | 61 63 72 6f 73 22 09 09 |"vt100-m|acros"..|
|00003b60| 09 22 5c 65 4f 73 22 29 | 20 3b 20 6b 65 79 70 61 |."\eOs")| ; keypa|
|00003b70| 64 20 33 0a 28 62 69 6e | 64 2d 74 6f 2d 6b 65 79 |d 3.(bin|d-to-key|
|00003b80| 20 22 76 74 31 30 30 2d | 70 61 73 74 65 2d 6f 72 | "vt100-|paste-or|
|00003b90| 2d 75 6e 64 6f 22 09 09 | 22 5c 65 4f 72 22 29 20 |-undo"..|"\eOr") |
|00003ba0| 3b 20 6b 65 79 70 61 64 | 20 32 0a 28 62 69 6e 64 |; keypad| 2.(bind|
|00003bb0| 2d 74 6f 2d 6b 65 79 20 | 22 76 74 31 30 30 2d 73 |-to-key |"vt100-s|
|00003bc0| 65 74 2d 6d 61 72 6b 2d | 6f 72 2d 63 75 74 22 09 |et-mark-|or-cut".|
|00003bd0| 09 22 5c 65 4f 71 22 29 | 20 3b 20 6b 65 79 70 61 |."\eOq")| ; keypa|
|00003be0| 64 20 31 0a 28 62 69 6e | 64 2d 74 6f 2d 6b 65 79 |d 1.(bin|d-to-key|
|00003bf0| 20 22 76 74 31 30 30 2d | 76 69 73 69 74 2d 66 69 | "vt100-|visit-fi|
|00003c00| 6c 65 2d 6f 72 2d 73 68 | 65 6c 6c 22 09 22 5c 65 |le-or-sh|ell"."\e|
|00003c10| 4f 70 22 29 20 3b 20 6b | 65 79 70 61 64 20 30 0a |Op") ; k|eypad 0.|
|00003c20| 28 62 69 6e 64 2d 74 6f | 2d 6b 65 79 20 22 6e 65 |(bind-to|-key "ne|
|00003c30| 78 74 2d 70 61 67 65 22 | 09 09 09 22 5c 65 4f 6d |xt-page"|..."\eOm|
|00003c40| 22 29 20 3b 20 6b 65 79 | 70 61 64 20 2d 20 70 72 |") ; key|pad - pr|
|00003c50| 69 6e 74 0a 28 62 69 6e | 64 2d 74 6f 2d 6b 65 79 |int.(bin|d-to-key|
|00003c60| 20 22 76 74 31 30 30 2d | 6e 65 78 74 2d 6f 72 2d | "vt100-|next-or-|
|00003c70| 64 65 6c 65 74 65 2d 77 | 69 6e 64 6f 77 22 09 22 |delete-w|indow"."|
|00003c80| 5c 65 4f 6c 22 29 20 3b | 20 6b 65 79 70 61 64 20 |\eOl") ;| keypad |
|00003c90| 2c 20 65 72 61 73 65 0a | 28 62 69 6e 64 2d 74 6f |, erase.|(bind-to|
|00003ca0| 2d 6b 65 79 20 22 76 74 | 31 30 30 2d 67 6f 6c 64 |-key "vt|100-gold|
|00003cb0| 2d 6b 65 79 22 09 09 09 | 22 5c 65 4f 6e 22 29 20 |-key"...|"\eOn") |
|00003cc0| 3b 20 6b 65 79 70 61 64 | 20 2e 0a 28 62 69 6e 64 |; keypad| ..(bind|
|00003cd0| 2d 74 6f 2d 6b 65 79 20 | 22 76 74 31 30 30 2d 77 |-to-key |"vt100-w|
|00003ce0| 72 69 74 65 2d 66 69 6c | 65 2d 6f 72 2d 66 69 6c |rite-fil|e-or-fil|
|00003cf0| 65 73 22 09 22 5c 65 4f | 4d 22 29 20 3b 20 6b 65 |es"."\eO|M") ; ke|
|00003d00| 79 70 61 64 20 65 6e 74 | 65 72 0a 0a 28 64 65 66 |ypad ent|er..(def|
|00003d10| 75 6e 20 0a 20 20 28 76 | 74 31 30 30 2d 67 6f 6c |un .  (v|t100-gol|
|00003d20| 64 2d 6b 65 79 0a 20 20 | 20 20 28 69 66 20 28 3d |d-key.  |  (if (=|
|00003d30| 20 76 74 31 30 30 2d 67 | 6f 6c 64 2d 6b 65 79 2d | vt100-g|old-key-|
|00003d40| 70 72 65 73 73 65 64 20 | 30 29 0a 20 20 20 20 20 |pressed |0).     |
|00003d50| 20 28 73 65 74 71 20 76 | 74 31 30 30 2d 67 6f 6c | (setq v|t100-gol|
|00003d60| 64 2d 6b 65 79 2d 70 72 | 65 73 73 65 64 20 31 29 |d-key-pr|essed 1)|
|00003d70| 0a 20 20 20 20 20 20 28 | 76 74 31 30 30 2d 68 65 |.      (|vt100-he|
|00003d80| 6c 70 29 0a 20 20 20 20 | 29 0a 20 20 29 0a 0a 20 |lp).    |).  ).. |
|00003d90| 20 28 76 74 31 30 30 2d | 70 61 73 74 65 2d 6f 72 | (vt100-|paste-or|
|00003da0| 2d 75 6e 64 6f 0a 20 20 | 20 20 28 69 66 20 28 3d |-undo.  |  (if (=|
|00003db0| 20 76 74 31 30 30 2d 67 | 6f 6c 64 2d 6b 65 79 2d | vt100-g|old-key-|
|00003dc0| 70 72 65 73 73 65 64 20 | 30 29 0a 20 20 20 20 20 |pressed |0).     |
|00003dd0| 20 28 79 61 6e 6b 2d 66 | 72 6f 6d 2d 6b 69 6c 6c | (yank-f|rom-kill|
|00003de0| 62 75 66 66 65 72 29 0a | 20 20 20 20 20 20 28 65 |buffer).|      (e|
|00003df0| 72 72 6f 72 2d 6f 63 63 | 75 72 72 65 64 20 28 6e |rror-occ|urred (n|
|00003e00| 65 77 2d 75 6e 64 6f 29 | 29 0a 20 20 20 20 29 0a |ew-undo)|).    ).|
|00003e10| 20 20 20 20 28 73 65 74 | 71 20 76 74 31 30 30 2d |    (set|q vt100-|
|00003e20| 67 6f 6c 64 2d 6b 65 79 | 2d 70 72 65 73 73 65 64 |gold-key|-pressed|
|00003e30| 20 30 29 0a 20 20 29 0a | 0a 20 20 28 76 74 31 30 | 0).  ).|.  (vt10|
|00003e40| 30 2d 73 65 74 2d 6d 61 | 72 6b 2d 6f 72 2d 63 75 |0-set-ma|rk-or-cu|
|00003e50| 74 0a 20 20 20 20 28 69 | 66 20 28 65 72 72 6f 72 |t.    (i|f (error|
|00003e60| 2d 6f 63 63 75 72 72 65 | 64 20 28 6d 61 72 6b 29 |-occurre|d (mark)|
|00003e70| 29 20 28 73 65 74 71 20 | 76 74 31 30 30 2d 6d 61 |) (setq |vt100-ma|
|00003e80| 72 6b 2d 69 73 2d 73 65 | 74 20 30 29 29 0a 20 20 |rk-is-se|t 0)).  |
|00003e90| 20 20 28 69 66 20 28 3d | 20 76 74 31 30 30 2d 6d |  (if (=| vt100-m|
|00003ea0| 61 72 6b 2d 69 73 2d 73 | 65 74 20 30 29 0a 20 20 |ark-is-s|et 0).  |
|00003eb0| 20 20 20 20 28 70 72 6f | 67 6e 20 28 73 65 74 2d |    (pro|gn (set-|
|00003ec0| 6d 61 72 6b 29 20 28 73 | 65 74 71 20 76 74 31 30 |mark) (s|etq vt10|
|00003ed0| 30 2d 6d 61 72 6b 2d 69 | 73 2d 73 65 74 20 31 29 |0-mark-i|s-set 1)|
|00003ee0| 29 0a 20 20 20 20 20 20 | 28 70 72 6f 67 6e 20 28 |).      |(progn (|
|00003ef0| 64 65 6c 65 74 65 2d 74 | 6f 2d 6b 69 6c 6c 62 75 |delete-t|o-killbu|
|00003f00| 66 66 65 72 29 20 28 73 | 65 74 71 20 76 74 31 30 |ffer) (s|etq vt10|
|00003f10| 30 2d 6d 61 72 6b 2d 69 | 73 2d 73 65 74 20 30 29 |0-mark-i|s-set 0)|
|00003f20| 29 0a 20 20 20 20 29 0a | 20 20 20 20 28 73 65 74 |).    ).|    (set|
|00003f30| 71 20 76 74 31 30 30 2d | 67 6f 6c 64 2d 6b 65 79 |q vt100-|gold-key|
|00003f40| 2d 70 72 65 73 73 65 64 | 20 30 29 0a 20 20 29 0a |-pressed| 0).  ).|
|00003f50| 0a 20 20 28 76 74 31 30 | 30 2d 77 72 69 74 65 2d |.  (vt10|0-write-|
|00003f60| 66 69 6c 65 2d 6f 72 2d | 66 69 6c 65 73 0a 20 20 |file-or-|files.  |
|00003f70| 20 20 28 69 66 20 28 3d | 20 76 74 31 30 30 2d 67 |  (if (=| vt100-g|
|00003f80| 6f 6c 64 2d 6b 65 79 2d | 70 72 65 73 73 65 64 20 |old-key-|pressed |
|00003f90| 30 29 0a 20 20 20 20 20 | 20 28 70 72 6f 67 6e 20 |0).     | (progn |
|00003fa0| 28 77 72 69 74 65 2d 63 | 75 72 72 65 6e 74 2d 66 |(write-c|urrent-f|
|00003fb0| 69 6c 65 29 28 6d 65 73 | 73 61 67 65 28 63 6f 6e |ile)(mes|sage(con|
|00003fc0| 63 61 74 20 22 57 72 6f | 74 65 20 22 28 63 75 72 |cat "Wro|te "(cur|
|00003fd0| 72 65 6e 74 2d 66 69 6c | 65 2d 6e 61 6d 65 29 29 |rent-fil|e-name))|
|00003fe0| 29 29 0a 20 20 20 20 20 | 20 28 70 72 6f 67 6e 20 |)).     | (progn |
|00003ff0| 28 77 72 69 74 65 2d 6d | 6f 64 69 66 69 65 64 2d |(write-m|odified-|
+--------+-------------------------+-------------------------+--------+--------+