/ OS/2 Professional / OS2PRO194.ISO / os2 / prgramer / unix / emacs / lisp / os2.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00000010| 20 6f 73 32 29 29 0a 0a | 28 64 65 66 75 6e 20 72 | os2))..|(defun r|
|00000020| 65 70 6c 61 63 65 2d 63 | 68 61 72 2d 69 6e 2d 73 |eplace-c|har-in-s|
|00000030| 74 72 69 6e 67 20 28 73 | 74 72 20 63 31 20 63 32 |tring (s|tr c1 c2|
|00000040| 29 20 22 5c 0a 52 65 70 | 6c 61 63 65 20 63 68 61 |) "\.Rep|lace cha|
|00000050| 72 61 63 74 65 72 20 43 | 31 20 69 6e 20 73 74 72 |racter C|1 in str|
|00000060| 69 6e 67 20 53 54 52 20 | 77 69 74 68 20 63 68 61 |ing STR |with cha|
|00000070| 72 61 63 74 65 72 20 43 | 32 20 61 6e 64 20 72 65 |racter C|2 and re|
|00000080| 74 75 72 6e 20 53 54 52 | 2e 0a 54 68 69 73 20 66 |turn STR|..This f|
|00000090| 75 6e 63 74 69 6f 6e 20 | 64 6f 65 73 20 2a 6e 6f |unction |does *no|
|000000a0| 74 2a 20 63 6f 70 79 20 | 74 68 65 20 73 74 72 69 |t* copy |the stri|
|000000b0| 6e 67 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ng." (by|te-code |
|000000c0| 22 c6 0a 47 c7 1b 19 18 | 08 09 57 85 26 00 0a 08 |"..G....|..W.&...|
|000000d0| 48 89 13 88 0b 0c 3d 85 | 1d 00 0a 08 0d 49 88 08 |H.....=.|.....I..|
|000000e0| 54 89 10 88 82 07 00 88 | 0a 2b 87 22 20 5b 69 6e |T.......|.+." [in|
|000000f0| 64 78 20 6c 65 6e 20 73 | 74 72 20 63 68 72 20 63 |dx len s|tr chr c|
|00000100| 31 20 63 32 20 30 20 6e | 69 6c 5d 20 34 29 29 0a |1 c2 0 n|il] 4)).|
|00000110| 0a 28 64 65 66 75 6e 20 | 6d 61 6b 65 2d 6c 65 67 |.(defun |make-leg|
|00000120| 61 6c 2d 66 69 6c 65 2d | 6e 61 6d 65 20 28 66 6e |al-file-|name (fn|
|00000130| 29 20 22 5c 0a 54 75 72 | 6e 20 46 4e 20 69 6e 74 |) "\.Tur|n FN int|
|00000140| 6f 20 61 20 6c 65 67 61 | 6c 20 66 69 6c 65 20 6e |o a lega|l file n|
|00000150| 61 6d 65 20 61 6e 64 20 | 72 65 74 75 72 6e 20 74 |ame and |return t|
|00000160| 68 65 20 6d 6f 64 69 66 | 69 65 64 20 63 6f 70 79 |he modif|ied copy|
|00000170| 20 6f 66 20 74 68 65 20 | 73 74 72 69 6e 67 2e 0a | of the |string..|
|00000180| 54 68 65 20 63 68 61 72 | 61 63 74 65 72 73 20 2a |The char|acters *|
|00000190| 20 61 6e 64 20 3f 20 77 | 69 6c 6c 20 62 65 20 72 | and ? w|ill be r|
|000001a0| 65 70 6c 61 63 65 64 20 | 77 69 74 68 20 5f 2e 22 |eplaced |with _."|
|000001b0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 | (byte-c|ode "..!|
|000001c0| 89 10 88 c2 08 c3 c4 23 | 88 c2 08 c5 c4 23 87 22 |.......#|.....#."|
|000001d0| 20 5b 66 6e 20 63 6f 70 | 79 2d 73 65 71 75 65 6e | [fn cop|y-sequen|
|000001e0| 63 65 20 72 65 70 6c 61 | 63 65 2d 63 68 61 72 2d |ce repla|ce-char-|
|000001f0| 69 6e 2d 73 74 72 69 6e | 67 20 34 32 20 39 35 20 |in-strin|g 42 95 |
|00000200| 36 33 5d 20 36 29 29 0a | 0a 28 64 65 66 75 6e 20 |63] 6)).|.(defun |
|00000210| 6d 61 6b 65 2d 61 75 74 | 6f 2d 73 61 76 65 2d 66 |make-aut|o-save-f|
|00000220| 69 6c 65 2d 6e 61 6d 65 | 20 6e 69 6c 20 22 5c 0a |ile-name| nil "\.|
|00000230| 52 65 74 75 72 6e 20 66 | 69 6c 65 20 6e 61 6d 65 |Return f|ile name|
|00000240| 20 74 6f 20 75 73 65 20 | 66 6f 72 20 61 75 74 6f | to use |for auto|
|00000250| 2d 73 61 76 65 73 20 6f | 66 20 63 75 72 72 65 6e |-saves o|f curren|
|00000260| 74 20 62 75 66 66 65 72 | 2e 0a 44 6f 65 73 20 6e |t buffer|..Does n|
|00000270| 6f 74 20 63 6f 6e 73 69 | 64 65 72 20 61 75 74 6f |ot consi|der auto|
|00000280| 2d 73 61 76 65 2d 76 69 | 73 69 74 65 64 2d 66 69 |-save-vi|sited-fi|
|00000290| 6c 65 2d 6e 61 6d 65 3b | 20 74 68 61 74 20 69 73 |le-name;| that is|
|000002a0| 20 63 68 65 63 6b 65 64 | 0a 62 65 66 6f 72 65 20 | checked|.before |
|000002b0| 63 61 6c 6c 69 6e 67 20 | 74 68 69 73 20 66 75 6e |calling |this fun|
|000002c0| 63 74 69 6f 6e 2e 0a 54 | 68 69 73 20 68 61 73 20 |ction..T|his has |
|000002d0| 62 65 65 6e 20 72 65 64 | 65 66 69 6e 65 64 20 66 |been red|efined f|
|000002e0| 6f 72 20 63 75 73 74 6f | 6d 69 7a 61 74 69 6f 6e |or custo|mization|
|000002f0| 2e 0a 53 65 65 20 61 6c | 73 6f 20 61 75 74 6f 2d |..See al|so auto-|
|00000300| 73 61 76 65 2d 66 69 6c | 65 2d 6e 61 6d 65 2d 70 |save-fil|e-name-p|
|00000310| 2e 22 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 09 |." (byte|-code ".|
|00000320| 83 10 00 c3 09 21 c4 c5 | 09 21 c4 52 82 19 00 c6 |.....!..|.!.R....|
|00000330| c7 c8 c9 20 21 c4 51 21 | 18 ca 08 21 83 24 00 08 |... !.Q!|...!.$..|
|00000340| 82 3a 00 09 83 30 00 cb | c4 09 c4 23 82 3a 00 c6 |.:...0..|...#.:..|
|00000350| cb c7 c8 c9 20 21 c4 23 | 21 29 87 22 20 5b 74 65 |.... !.#|!)." [te|
|00000360| 6d 20 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 6e 61 |m buffer|-file-na|
|00000370| 6d 65 20 74 20 66 69 6c | 65 2d 6e 61 6d 65 2d 64 |me t fil|e-name-d|
|00000380| 69 72 65 63 74 6f 72 79 | 20 22 23 22 20 66 69 6c |irectory| "#" fil|
|00000390| 65 2d 6e 61 6d 65 2d 6e | 6f 6e 64 69 72 65 63 74 |e-name-n|ondirect|
|000003a0| 6f 72 79 20 65 78 70 61 | 6e 64 2d 66 69 6c 65 2d |ory expa|nd-file-|
|000003b0| 6e 61 6d 65 20 22 23 25 | 22 20 6d 61 6b 65 2d 6c |name "#%|" make-l|
|000003c0| 65 67 61 6c 2d 66 69 6c | 65 2d 6e 61 6d 65 20 62 |egal-fil|e-name b|
|000003d0| 75 66 66 65 72 2d 6e 61 | 6d 65 20 76 61 6c 69 64 |uffer-na|me valid|
|000003e0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 2d 70 20 61 64 64 |-file-na|me-p add|
|000003f0| 2d 74 6f 2d 66 61 74 2d | 66 69 6c 65 2d 6e 61 6d |-to-fat-|file-nam|
|00000400| 65 5d 20 31 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |e] 14)).|.(defun |
|00000410| 6d 61 6b 65 2d 62 61 63 | 6b 75 70 2d 66 69 6c 65 |make-bac|kup-file|
|00000420| 2d 6e 61 6d 65 20 28 66 | 69 6c 65 29 20 22 5c 0a |-name (f|ile) "\.|
|00000430| 43 72 65 61 74 65 20 74 | 68 65 20 6e 6f 6e 2d 6e |Create t|he non-n|
|00000440| 75 6d 65 72 69 63 20 62 | 61 63 6b 75 70 20 66 69 |umeric b|ackup fi|
|00000450| 6c 65 20 6e 61 6d 65 20 | 66 6f 72 20 46 49 4c 45 |le name |for FILE|
|00000460| 2e 0a 54 68 69 73 20 69 | 73 20 61 20 73 65 70 61 |..This i|s a sepa|
|00000470| 72 61 74 65 20 66 75 6e | 63 74 69 6f 6e 20 73 6f |rate fun|ction so|
|00000480| 20 79 6f 75 20 63 61 6e | 20 72 65 64 65 66 69 6e | you can| redefin|
|00000490| 65 20 69 74 20 66 6f 72 | 20 63 75 73 74 6f 6d 69 |e it for| customi|
|000004a0| 7a 61 74 69 6f 6e 2e 22 | 20 28 62 79 74 65 2d 63 |zation."| (byte-c|
|000004b0| 6f 64 65 20 22 c2 18 09 | c3 50 89 10 88 c4 08 21 |ode "...|.P.....!|
|000004c0| 86 15 00 c5 c2 09 c3 23 | 89 10 88 08 29 87 22 20 |.......#|....)." |
|000004d0| 5b 62 61 63 6b 75 70 20 | 66 69 6c 65 20 6e 69 6c |[backup |file nil|
|000004e0| 20 22 7e 22 20 76 61 6c | 69 64 2d 66 69 6c 65 2d | "~" val|id-file-|
|000004f0| 6e 61 6d 65 2d 70 20 61 | 64 64 2d 74 6f 2d 66 61 |name-p a|dd-to-fa|
|00000500| 74 2d 66 69 6c 65 2d 6e | 61 6d 65 5d 20 35 29 29 |t-file-n|ame] 5))|
|00000510| 0a 0a 28 64 65 66 75 6e | 20 73 70 6c 69 74 2d 66 |..(defun| split-f|
|00000520| 69 6c 65 2d 6e 61 6d 65 | 20 28 6e 61 6d 65 29 20 |ile-name| (name) |
|00000530| 22 5c 0a 53 70 6c 69 74 | 20 4e 41 4d 45 20 69 6e |"\.Split| NAME in|
|00000540| 74 6f 20 64 69 72 65 63 | 74 6f 72 79 20 70 61 72 |to direc|tory par|
|00000550| 74 2c 20 62 61 73 65 20 | 6e 61 6d 65 20 70 61 72 |t, base |name par|
|00000560| 74 20 61 6e 64 20 65 78 | 74 65 6e 73 69 6f 6e 2e |t and ex|tension.|
|00000570| 0a 52 65 74 75 72 6e 20 | 61 20 6c 69 73 74 20 63 |.Return |a list c|
|00000580| 6f 6e 74 61 69 6e 69 6e | 67 20 74 68 72 65 65 20 |ontainin|g three |
|00000590| 65 6c 65 6d 65 6e 74 73 | 2e 20 49 66 20 61 20 70 |elements|. If a p|
|000005a0| 61 72 74 20 69 73 20 65 | 6d 70 74 79 2c 20 74 68 |art is e|mpty, th|
|000005b0| 65 20 6c 69 73 74 20 65 | 6c 65 6d 65 6e 74 0a 69 |e list e|lement.i|
|000005c0| 73 20 6e 69 6c 2e 22 20 | 28 62 79 74 65 2d 63 6f |s nil." |(byte-co|
|000005d0| 64 65 20 22 c7 09 21 18 | c8 09 21 1a c9 ca 0a 5c |de "..!.|..!....\|
|000005e0| 22 1b 0b 83 18 00 0a cb | 0b 4f 82 19 00 0a 1c 0b |".......|.O......|
|000005f0| 83 25 00 0a 0b c6 4f 82 | 26 00 c6 1d 08 0c 0d 45 |.%....O.|&......E|
|00000600| 2d 87 22 20 5b 64 69 72 | 20 6e 61 6d 65 20 66 69 |-." [dir| name fi|
|00000610| 6c 65 20 70 6f 73 20 62 | 61 73 65 20 65 78 74 20 |le pos b|ase ext |
|00000620| 6e 69 6c 20 66 69 6c 65 | 2d 6e 61 6d 65 2d 64 69 |nil file|-name-di|
|00000630| 72 65 63 74 6f 72 79 20 | 66 69 6c 65 2d 6e 61 6d |rectory |file-nam|
|00000640| 65 2d 6e 6f 6e 64 69 72 | 65 63 74 6f 72 79 20 73 |e-nondir|ectory s|
|00000650| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5c 5c 2e |tring-ma|tch "\\.|
|00000660| 5b 5e 2e 5d 2a 24 22 20 | 30 5d 20 36 29 29 0a 0a |[^.]*$" |0] 6))..|
|00000670| 28 64 65 66 75 6e 20 61 | 64 64 2d 74 6f 2d 66 61 |(defun a|dd-to-fa|
|00000680| 74 2d 66 69 6c 65 2d 6e | 61 6d 65 20 28 70 72 65 |t-file-n|ame (pre|
|00000690| 66 69 78 20 66 69 6c 65 | 20 73 75 66 66 69 78 29 |fix file| suffix)|
|000006a0| 20 22 5c 0a 43 6f 6e 63 | 61 74 65 6e 61 74 65 20 | "\.Conc|atenate |
|000006b0| 50 52 45 46 49 58 2c 20 | 46 49 4c 45 20 61 6e 64 |PREFIX, |FILE and|
|000006c0| 20 53 55 46 46 49 58 2c | 20 74 68 65 6e 20 6d 61 | SUFFIX,| then ma|
|000006d0| 6b 65 20 69 74 20 46 41 | 54 20 63 6f 6d 70 61 74 |ke it FA|T compat|
|000006e0| 69 62 6c 65 2e 0a 49 74 | 20 69 73 20 61 73 73 75 |ible..It| is assu|
|000006f0| 6d 65 64 20 74 68 61 74 | 20 46 49 4c 45 20 69 73 |med that| FILE is|
|00000700| 20 61 6c 72 65 61 64 79 | 20 63 6f 6d 70 61 74 69 | already| compati|
|00000710| 62 6c 65 20 77 69 74 68 | 20 74 68 65 20 46 41 54 |ble with| the FAT|
|00000720| 20 66 69 6c 65 20 73 79 | 73 74 65 6d 2e 22 20 28 | file sy|stem." (|
|00000730| 62 79 74 65 2d 63 6f 64 | 65 20 22 c9 09 21 18 0b |byte-cod|e "..!..|
|00000740| ca 08 38 50 1a cb 08 38 | 1c 0c 47 1d 0e 07 47 1e |..8P...8|..G...G.|
|00000750| 06 0a 47 cc 56 85 23 00 | 0a cd cc 4f 89 12 88 0e |..G.V.#.|...O....|
|00000760| 06 cd 56 85 32 00 ce 0e | 07 cd 5c 22 cf 3d 85 48 |..V.2...|..\".=.H|
|00000770| 00 0e 06 53 89 16 06 88 | 0e 07 ca d0 4f 89 16 07 |...S....|....O...|
|00000780| 88 82 24 00 88 0e 06 d1 | 56 85 5d 00 d1 89 16 06 |..$.....|V.].....|
|00000790| 88 0e 07 cd d1 4f 89 16 | 07 88 d2 0e 06 21 83 69 |.....O..|.....!.i|
|000007a0| 00 09 82 9c 00 0c 3f 83 | 77 00 d3 0e 07 50 89 14 |......?.|w....P..|
|000007b0| 82 96 00 0d 0e 06 5c 5c | d4 58 83 89 00 0c 0e 07 |......\\|.X......|
|000007c0| 50 89 14 82 96 00 d3 0c | ca d4 0e 06 5a 4f 0e 07 |P.......|....ZO..|
|000007d0| 51 89 14 88 08 40 0a 0c | 51 2d 87 22 20 5b 73 70 |Q....@..|Q-." [sp|
|000007e0| 6c 69 74 20 66 69 6c 65 | 20 62 61 73 65 20 70 72 |lit file| base pr|
|000007f0| 65 66 69 78 20 65 78 74 | 20 65 78 74 2d 6c 65 6e |efix ext| ext-len|
|00000800| 20 73 75 66 66 69 78 2d | 6c 65 6e 20 73 75 66 66 | suffix-|len suff|
|00000810| 69 78 20 74 20 73 70 6c | 69 74 2d 66 69 6c 65 2d |ix t spl|it-file-|
|00000820| 6e 61 6d 65 20 31 20 32 | 20 38 20 30 20 65 6c 74 |name 1 2| 8 0 elt|
|00000830| 20 34 36 20 6e 69 6c 20 | 33 20 7a 65 72 6f 70 20 | 46 nil |3 zerop |
|00000840| 22 2e 22 20 34 5d 20 38 | 29 29 0a 0a 28 73 65 74 |"." 4] 8|))..(set|
|00000850| 71 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 69 67 6e |q comple|tion-ign|
|00000860| 6f 72 65 64 2d 65 78 74 | 65 6e 73 69 6f 6e 73 20 |ored-ext|ensions |
|00000870| 28 61 70 70 65 6e 64 20 | 63 6f 6d 70 6c 65 74 69 |(append |completi|
|00000880| 6f 6e 2d 69 67 6e 6f 72 | 65 64 2d 65 78 74 65 6e |on-ignor|ed-exten|
|00000890| 73 69 6f 6e 73 20 28 6c | 69 73 74 20 22 2e 63 6f |sions (l|ist ".co|
|000008a0| 6d 22 20 22 2e 65 78 65 | 22 20 22 2e 64 6c 6c 22 |m" ".exe|" ".dll"|
|000008b0| 20 22 2e 6f 62 6a 22 20 | 22 2e 62 61 6b 22 20 22 | ".obj" |".bak" "|
|000008c0| 2e 7a 69 70 22 20 22 2e | 61 72 6a 22 20 22 2e 6c |.zip" ".|arj" ".l|
|000008d0| 7a 68 22 20 22 2e 69 63 | 6f 22 29 29 29 0a 0a 28 |zh" ".ic|o")))..(|
|000008e0| 73 65 74 71 20 6d 65 74 | 61 2d 66 6c 61 67 20 74 |setq met|a-flag t|
|000008f0| 29 0a 0a 28 73 65 74 71 | 20 64 65 66 61 75 6c 74 |)..(setq| default|
|00000900| 2d 63 74 6c 2d 61 72 72 | 6f 77 20 31 29 0a 0a 28 |-ctl-arr|ow 1)..(|
|00000910| 64 65 66 75 6e 20 6b 65 | 79 2d 64 65 73 63 72 69 |defun ke|y-descri|
|00000920| 70 74 69 6f 6e 20 28 6b | 65 79 73 29 20 22 5c 0a |ption (k|eys) "\.|
|00000930| 52 65 74 75 72 6e 20 61 | 20 70 72 65 74 74 79 20 |Return a| pretty |
|00000940| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 6f 66 20 6b |descript|ion of k|
|00000950| 65 79 2d 73 65 71 75 65 | 6e 63 65 20 4b 45 59 53 |ey-seque|nce KEYS|
|00000960| 2e 0a 43 6f 6e 74 72 6f | 6c 20 63 68 61 72 61 63 |..Contro|l charac|
|00000970| 74 65 72 73 20 74 75 72 | 6e 20 69 6e 74 6f 20 5c |ters tur|n into \|
|00000980| 22 43 2d 66 6f 6f 5c 22 | 20 73 65 71 75 65 6e 63 |"C-foo\"| sequenc|
|00000990| 65 73 2c 20 6d 65 74 61 | 20 69 6e 74 6f 20 5c 22 |es, meta| into \"|
|000009a0| 4d 2d 66 6f 6f 5c 22 0a | 74 68 65 20 6e 61 6d 65 |M-foo\".|the name|
|000009b0| 73 20 6f 66 20 50 43 20 | 66 75 6e 63 74 69 6f 6e |s of PC |function|
|000009c0| 20 6b 65 79 73 20 61 72 | 65 20 69 6e 73 65 72 74 | keys ar|e insert|
|000009d0| 65 64 2c 0a 73 70 61 63 | 65 73 20 61 72 65 20 70 |ed,.spac|es are p|
|000009e0| 75 74 20 62 65 74 77 65 | 65 6e 20 73 65 71 75 65 |ut betwe|en seque|
|000009f0| 6e 63 65 20 65 6c 65 6d | 65 6e 74 73 2c 20 65 74 |nce elem|ents, et|
|00000a00| 63 2e 22 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |c." (byt|e-code "|
|00000a10| c9 c9 ca 0c 47 cb cb 1e | 06 1d 1b 1a 19 18 0a 0b |....G...|........|
|00000a20| 57 85 56 00 cc 0c 0a 5c | 22 89 15 88 0a 54 89 12 |W.V....\|"....T..|
|00000a30| 88 cd 0d 21 85 36 00 0a | 0b 57 85 36 00 0e 07 cc |...!.6..|.W.6....|
|00000a40| 0c 0a 5c 22 48 89 16 06 | 83 40 00 0a 54 89 12 82 |..\"H...|.@..T...|
|00000a50| 46 00 ce 0d 21 89 16 06 | 88 08 09 0e 06 51 89 10 |F...!...|.....Q..|
|00000a60| 88 cf 89 11 88 82 0e 00 | 88 08 2e 06 87 22 20 5b |........|....." [|
|00000a70| 72 65 73 75 6c 74 20 61 | 64 64 20 69 6e 64 65 78 |result a|dd index|
|00000a80| 20 6c 65 6e 20 6b 65 79 | 73 20 63 68 61 72 20 6e | len key|s char n|
|00000a90| 65 77 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |ew pc-fu|nction-k|
|00000aa0| 65 79 73 20 74 20 22 22 | 20 30 20 6e 69 6c 20 65 |eys t ""| 0 nil e|
|00000ab0| 6c 74 20 7a 65 72 6f 70 | 20 73 69 6e 67 6c 65 2d |lt zerop| single-|
|00000ac0| 6b 65 79 2d 64 65 73 63 | 72 69 70 74 69 6f 6e 20 |key-desc|ription |
|00000ad0| 22 20 22 5d 20 38 29 29 | 0a 0a 28 64 65 66 76 61 |" "] 8))|..(defva|
|00000ae0| 72 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |r pc-fun|ction-ke|
|00000af0| 79 73 20 28 6d 61 6b 65 | 2d 76 65 63 74 6f 72 20 |ys (make|-vector |
|00000b00| 32 35 36 20 6e 69 6c 29 | 20 22 5c 0a 41 72 72 61 |256 nil)| "\.Arra|
|00000b10| 79 20 63 6f 6e 74 61 69 | 6e 69 6e 67 20 64 65 73 |y contai|ning des|
|00000b20| 63 72 69 70 74 69 6f 6e | 73 20 6f 66 20 74 68 65 |cription|s of the|
|00000b30| 20 50 43 20 66 75 6e 63 | 74 69 6f 6e 20 6b 65 79 | PC func|tion key|
|00000b40| 73 2e 22 29 0a 0a 28 61 | 73 65 74 20 70 63 2d 66 |s.")..(a|set pc-f|
|00000b50| 75 6e 63 74 69 6f 6e 2d | 6b 65 79 73 20 31 20 22 |unction-|keys 1 "|
|00000b60| 41 2d 45 53 43 22 29 0a | 0a 28 61 73 65 74 20 70 |A-ESC").|.(aset p|
|00000b70| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 73 20 |c-functi|on-keys |
|00000b80| 33 20 22 43 2d 32 22 29 | 0a 0a 28 61 73 65 74 20 |3 "C-2")|..(aset |
|00000b90| 70 63 2d 66 75 6e 63 74 | 69 6f 6e 2d 6b 65 79 73 |pc-funct|ion-keys|
|00000ba0| 20 31 34 20 22 41 2d 42 | 53 22 29 0a 0a 28 61 73 | 14 "A-B|S")..(as|
|00000bb0| 65 74 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |et pc-fu|nction-k|
|00000bc0| 65 79 73 20 31 35 20 22 | 42 54 41 42 22 29 0a 0a |eys 15 "|BTAB")..|
|00000bd0| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00000be0| 6e 2d 6b 65 79 73 20 31 | 36 20 22 41 2d 71 22 29 |n-keys 1|6 "A-q")|
|00000bf0| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00000c00| 69 6f 6e 2d 6b 65 79 73 | 20 31 37 20 22 41 2d 77 |ion-keys| 17 "A-w|
|00000c10| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|00000c20| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 31 38 20 22 41 |ction-ke|ys 18 "A|
|00000c30| 2d 65 22 29 0a 0a 28 61 | 73 65 74 20 70 63 2d 66 |-e")..(a|set pc-f|
|00000c40| 75 6e 63 74 69 6f 6e 2d | 6b 65 79 73 20 31 39 20 |unction-|keys 19 |
|00000c50| 22 41 2d 72 22 29 0a 0a | 28 61 73 65 74 20 70 63 |"A-r")..|(aset pc|
|00000c60| 2d 66 75 6e 63 74 69 6f | 6e 2d 6b 65 79 73 20 32 |-functio|n-keys 2|
|00000c70| 30 20 22 41 2d 74 22 29 | 0a 0a 28 61 73 65 74 20 |0 "A-t")|..(aset |
|00000c80| 70 63 2d 66 75 6e 63 74 | 69 6f 6e 2d 6b 65 79 73 |pc-funct|ion-keys|
|00000c90| 20 32 31 20 22 41 2d 79 | 22 29 0a 0a 28 61 73 65 | 21 "A-y|")..(ase|
|00000ca0| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00000cb0| 79 73 20 32 32 20 22 41 | 2d 75 22 29 0a 0a 28 61 |ys 22 "A|-u")..(a|
|00000cc0| 73 65 74 20 70 63 2d 66 | 75 6e 63 74 69 6f 6e 2d |set pc-f|unction-|
|00000cd0| 6b 65 79 73 20 32 33 20 | 22 41 2d 69 22 29 0a 0a |keys 23 |"A-i")..|
|00000ce0| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00000cf0| 6e 2d 6b 65 79 73 20 32 | 34 20 22 41 2d 6f 22 29 |n-keys 2|4 "A-o")|
|00000d00| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00000d10| 69 6f 6e 2d 6b 65 79 73 | 20 32 35 20 22 41 2d 70 |ion-keys| 25 "A-p|
|00000d20| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|00000d30| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 32 37 20 22 41 |ction-ke|ys 27 "A|
|00000d40| 2d 5b 22 29 0a 0a 28 61 | 73 65 74 20 70 63 2d 66 |-[")..(a|set pc-f|
|00000d50| 75 6e 63 74 69 6f 6e 2d | 6b 65 79 73 20 32 38 20 |unction-|keys 28 |
|00000d60| 22 41 2d 5d 22 29 0a 0a | 28 61 73 65 74 20 70 63 |"A-]")..|(aset pc|
|00000d70| 2d 66 75 6e 63 74 69 6f | 6e 2d 6b 65 79 73 20 32 |-functio|n-keys 2|
|00000d80| 39 20 22 41 2d 52 45 54 | 22 29 0a 0a 28 61 73 65 |9 "A-RET|")..(ase|
|00000d90| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00000da0| 79 73 20 33 30 20 22 41 | 2d 61 22 29 0a 0a 28 61 |ys 30 "A|-a")..(a|
|00000db0| 73 65 74 20 70 63 2d 66 | 75 6e 63 74 69 6f 6e 2d |set pc-f|unction-|
|00000dc0| 6b 65 79 73 20 33 31 20 | 22 41 2d 73 22 29 0a 0a |keys 31 |"A-s")..|
|00000dd0| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00000de0| 6e 2d 6b 65 79 73 20 33 | 32 20 22 41 2d 64 22 29 |n-keys 3|2 "A-d")|
|00000df0| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00000e00| 69 6f 6e 2d 6b 65 79 73 | 20 33 33 20 22 41 2d 66 |ion-keys| 33 "A-f|
|00000e10| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|00000e20| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 33 34 20 22 41 |ction-ke|ys 34 "A|
|00000e30| 2d 67 22 29 0a 0a 28 61 | 73 65 74 20 70 63 2d 66 |-g")..(a|set pc-f|
|00000e40| 75 6e 63 74 69 6f 6e 2d | 6b 65 79 73 20 33 35 20 |unction-|keys 35 |
|00000e50| 22 41 2d 68 22 29 0a 0a | 28 61 73 65 74 20 70 63 |"A-h")..|(aset pc|
|00000e60| 2d 66 75 6e 63 74 69 6f | 6e 2d 6b 65 79 73 20 33 |-functio|n-keys 3|
|00000e70| 36 20 22 41 2d 6a 22 29 | 0a 0a 28 61 73 65 74 20 |6 "A-j")|..(aset |
|00000e80| 70 63 2d 66 75 6e 63 74 | 69 6f 6e 2d 6b 65 79 73 |pc-funct|ion-keys|
|00000e90| 20 33 37 20 22 41 2d 6b | 22 29 0a 0a 28 61 73 65 | 37 "A-k|")..(ase|
|00000ea0| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00000eb0| 79 73 20 33 38 20 22 41 | 2d 6c 22 29 0a 0a 28 61 |ys 38 "A|-l")..(a|
|00000ec0| 73 65 74 20 70 63 2d 66 | 75 6e 63 74 69 6f 6e 2d |set pc-f|unction-|
|00000ed0| 6b 65 79 73 20 33 39 20 | 22 41 2d 3b 22 29 0a 0a |keys 39 |"A-;")..|
|00000ee0| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00000ef0| 6e 2d 6b 65 79 73 20 34 | 30 20 22 41 2d 60 22 29 |n-keys 4|0 "A-`")|
|00000f00| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00000f10| 69 6f 6e 2d 6b 65 79 73 | 20 34 33 20 22 41 2d 5c |ion-keys| 43 "A-\|
|00000f20| 5c 22 29 0a 0a 28 61 73 | 65 74 20 70 63 2d 66 75 |\")..(as|et pc-fu|
|00000f30| 6e 63 74 69 6f 6e 2d 6b | 65 79 73 20 34 34 20 22 |nction-k|eys 44 "|
|00000f40| 41 2d 7a 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |A-z")..(|aset pc-|
|00000f50| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 34 35 |function|-keys 45|
|00000f60| 20 22 41 2d 78 22 29 0a | 0a 28 61 73 65 74 20 70 | "A-x").|.(aset p|
|00000f70| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 73 20 |c-functi|on-keys |
|00000f80| 34 36 20 22 41 2d 63 22 | 29 0a 0a 28 61 73 65 74 |46 "A-c"|)..(aset|
|00000f90| 20 70 63 2d 66 75 6e 63 | 74 69 6f 6e 2d 6b 65 79 | pc-func|tion-key|
|00000fa0| 73 20 34 37 20 22 41 2d | 76 22 29 0a 0a 28 61 73 |s 47 "A-|v")..(as|
|00000fb0| 65 74 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |et pc-fu|nction-k|
|00000fc0| 65 79 73 20 34 38 20 22 | 41 2d 62 22 29 0a 0a 28 |eys 48 "|A-b")..(|
|00000fd0| 61 73 65 74 20 70 63 2d | 66 75 6e 63 74 69 6f 6e |aset pc-|function|
|00000fe0| 2d 6b 65 79 73 20 34 39 | 20 22 41 2d 6e 22 29 0a |-keys 49| "A-n").|
|00000ff0| 0a 28 61 73 65 74 20 70 | 63 2d 66 75 6e 63 74 69 |.(aset p|c-functi|
|00001000| 6f 6e 2d 6b 65 79 73 20 | 35 30 20 22 41 2d 6d 22 |on-keys |50 "A-m"|
|00001010| 29 0a 0a 28 61 73 65 74 | 20 70 63 2d 66 75 6e 63 |)..(aset| pc-func|
|00001020| 74 69 6f 6e 2d 6b 65 79 | 73 20 35 31 20 22 41 2d |tion-key|s 51 "A-|
|00001030| 2c 22 29 0a 0a 28 61 73 | 65 74 20 70 63 2d 66 75 |,")..(as|et pc-fu|
|00001040| 6e 63 74 69 6f 6e 2d 6b | 65 79 73 20 35 32 20 22 |nction-k|eys 52 "|
|00001050| 41 2d 2e 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |A-.")..(|aset pc-|
|00001060| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 35 33 |function|-keys 53|
|00001070| 20 22 41 2d 2f 22 29 0a | 0a 28 61 73 65 74 20 70 | "A-/").|.(aset p|
|00001080| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 73 20 |c-functi|on-keys |
|00001090| 35 35 20 22 41 2d 4e 55 | 4d 2a 22 29 0a 0a 28 61 |55 "A-NU|M*")..(a|
|000010a0| 73 65 74 20 70 63 2d 66 | 75 6e 63 74 69 6f 6e 2d |set pc-f|unction-|
|000010b0| 6b 65 79 73 20 35 39 20 | 22 46 31 22 29 0a 0a 28 |keys 59 |"F1")..(|
|000010c0| 61 73 65 74 20 70 63 2d | 66 75 6e 63 74 69 6f 6e |aset pc-|function|
|000010d0| 2d 6b 65 79 73 20 36 30 | 20 22 46 32 22 29 0a 0a |-keys 60| "F2")..|
|000010e0| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|000010f0| 6e 2d 6b 65 79 73 20 36 | 31 20 22 46 33 22 29 0a |n-keys 6|1 "F3").|
|00001100| 0a 28 61 73 65 74 20 70 | 63 2d 66 75 6e 63 74 69 |.(aset p|c-functi|
|00001110| 6f 6e 2d 6b 65 79 73 20 | 36 32 20 22 46 34 22 29 |on-keys |62 "F4")|
|00001120| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00001130| 69 6f 6e 2d 6b 65 79 73 | 20 36 33 20 22 46 35 22 |ion-keys| 63 "F5"|
|00001140| 29 0a 0a 28 61 73 65 74 | 20 70 63 2d 66 75 6e 63 |)..(aset| pc-func|
|00001150| 74 69 6f 6e 2d 6b 65 79 | 73 20 36 34 20 22 46 36 |tion-key|s 64 "F6|
|00001160| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|00001170| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 36 35 20 22 46 |ction-ke|ys 65 "F|
|00001180| 37 22 29 0a 0a 28 61 73 | 65 74 20 70 63 2d 66 75 |7")..(as|et pc-fu|
|00001190| 6e 63 74 69 6f 6e 2d 6b | 65 79 73 20 36 36 20 22 |nction-k|eys 66 "|
|000011a0| 46 38 22 29 0a 0a 28 61 | 73 65 74 20 70 63 2d 66 |F8")..(a|set pc-f|
|000011b0| 75 6e 63 74 69 6f 6e 2d | 6b 65 79 73 20 36 37 20 |unction-|keys 67 |
|000011c0| 22 46 39 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |"F9")..(|aset pc-|
|000011d0| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 36 38 |function|-keys 68|
|000011e0| 20 22 46 31 30 22 29 0a | 0a 28 61 73 65 74 20 70 | "F10").|.(aset p|
|000011f0| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 73 20 |c-functi|on-keys |
|00001200| 37 31 20 22 48 4f 4d 45 | 22 29 0a 0a 28 61 73 65 |71 "HOME|")..(ase|
|00001210| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00001220| 79 73 20 37 32 20 22 55 | 50 22 29 0a 0a 28 61 73 |ys 72 "U|P")..(as|
|00001230| 65 74 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |et pc-fu|nction-k|
|00001240| 65 79 73 20 37 33 20 22 | 50 41 47 45 55 50 22 29 |eys 73 "|PAGEUP")|
|00001250| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00001260| 69 6f 6e 2d 6b 65 79 73 | 20 37 34 20 22 41 2d 4e |ion-keys| 74 "A-N|
|00001270| 55 4d 2d 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |UM-")..(|aset pc-|
|00001280| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 37 35 |function|-keys 75|
|00001290| 20 22 4c 45 46 54 22 29 | 0a 0a 28 61 73 65 74 20 | "LEFT")|..(aset |
|000012a0| 70 63 2d 66 75 6e 63 74 | 69 6f 6e 2d 6b 65 79 73 |pc-funct|ion-keys|
|000012b0| 20 37 36 20 22 43 45 4e | 54 45 52 22 29 0a 0a 28 | 76 "CEN|TER")..(|
|000012c0| 61 73 65 74 20 70 63 2d | 66 75 6e 63 74 69 6f 6e |aset pc-|function|
|000012d0| 2d 6b 65 79 73 20 37 37 | 20 22 52 49 47 48 54 22 |-keys 77| "RIGHT"|
|000012e0| 29 0a 0a 28 61 73 65 74 | 20 70 63 2d 66 75 6e 63 |)..(aset| pc-func|
|000012f0| 74 69 6f 6e 2d 6b 65 79 | 73 20 37 38 20 22 41 2d |tion-key|s 78 "A-|
|00001300| 4e 55 4d 2b 22 29 0a 0a | 28 61 73 65 74 20 70 63 |NUM+")..|(aset pc|
|00001310| 2d 66 75 6e 63 74 69 6f | 6e 2d 6b 65 79 73 20 37 |-functio|n-keys 7|
|00001320| 39 20 22 45 4e 44 22 29 | 0a 0a 28 61 73 65 74 20 |9 "END")|..(aset |
|00001330| 70 63 2d 66 75 6e 63 74 | 69 6f 6e 2d 6b 65 79 73 |pc-funct|ion-keys|
|00001340| 20 38 30 20 22 44 4f 57 | 4e 22 29 0a 0a 28 61 73 | 80 "DOW|N")..(as|
|00001350| 65 74 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |et pc-fu|nction-k|
|00001360| 65 79 73 20 38 31 20 22 | 50 41 47 45 44 4f 57 4e |eys 81 "|PAGEDOWN|
|00001370| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|00001380| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 38 32 20 22 49 |ction-ke|ys 82 "I|
|00001390| 4e 53 45 52 54 22 29 0a | 0a 28 61 73 65 74 20 70 |NSERT").|.(aset p|
|000013a0| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 73 20 |c-functi|on-keys |
|000013b0| 38 33 20 22 44 45 4c 45 | 54 45 22 29 0a 0a 28 61 |83 "DELE|TE")..(a|
|000013c0| 73 65 74 20 70 63 2d 66 | 75 6e 63 74 69 6f 6e 2d |set pc-f|unction-|
|000013d0| 6b 65 79 73 20 38 34 20 | 22 53 2d 46 31 22 29 0a |keys 84 |"S-F1").|
|000013e0| 0a 28 61 73 65 74 20 70 | 63 2d 66 75 6e 63 74 69 |.(aset p|c-functi|
|000013f0| 6f 6e 2d 6b 65 79 73 20 | 38 35 20 22 53 2d 46 32 |on-keys |85 "S-F2|
|00001400| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|00001410| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 38 36 20 22 53 |ction-ke|ys 86 "S|
|00001420| 2d 46 33 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |-F3")..(|aset pc-|
|00001430| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 38 37 |function|-keys 87|
|00001440| 20 22 53 2d 46 34 22 29 | 0a 0a 28 61 73 65 74 20 | "S-F4")|..(aset |
|00001450| 70 63 2d 66 75 6e 63 74 | 69 6f 6e 2d 6b 65 79 73 |pc-funct|ion-keys|
|00001460| 20 38 38 20 22 53 2d 46 | 35 22 29 0a 0a 28 61 73 | 88 "S-F|5")..(as|
|00001470| 65 74 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |et pc-fu|nction-k|
|00001480| 65 79 73 20 38 39 20 22 | 53 2d 46 36 22 29 0a 0a |eys 89 "|S-F6")..|
|00001490| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|000014a0| 6e 2d 6b 65 79 73 20 39 | 30 20 22 53 2d 46 37 22 |n-keys 9|0 "S-F7"|
|000014b0| 29 0a 0a 28 61 73 65 74 | 20 70 63 2d 66 75 6e 63 |)..(aset| pc-func|
|000014c0| 74 69 6f 6e 2d 6b 65 79 | 73 20 39 31 20 22 53 2d |tion-key|s 91 "S-|
|000014d0| 46 38 22 29 0a 0a 28 61 | 73 65 74 20 70 63 2d 66 |F8")..(a|set pc-f|
|000014e0| 75 6e 63 74 69 6f 6e 2d | 6b 65 79 73 20 39 32 20 |unction-|keys 92 |
|000014f0| 22 53 2d 46 39 22 29 0a | 0a 28 61 73 65 74 20 70 |"S-F9").|.(aset p|
|00001500| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 73 20 |c-functi|on-keys |
|00001510| 39 33 20 22 53 2d 46 31 | 30 22 29 0a 0a 28 61 73 |93 "S-F1|0")..(as|
|00001520| 65 74 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |et pc-fu|nction-k|
|00001530| 65 79 73 20 39 34 20 22 | 43 2d 46 31 22 29 0a 0a |eys 94 "|C-F1")..|
|00001540| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00001550| 6e 2d 6b 65 79 73 20 39 | 35 20 22 43 2d 46 32 22 |n-keys 9|5 "C-F2"|
|00001560| 29 0a 0a 28 61 73 65 74 | 20 70 63 2d 66 75 6e 63 |)..(aset| pc-func|
|00001570| 74 69 6f 6e 2d 6b 65 79 | 73 20 39 36 20 22 43 2d |tion-key|s 96 "C-|
|00001580| 46 33 22 29 0a 0a 28 61 | 73 65 74 20 70 63 2d 66 |F3")..(a|set pc-f|
|00001590| 75 6e 63 74 69 6f 6e 2d | 6b 65 79 73 20 39 37 20 |unction-|keys 97 |
|000015a0| 22 43 2d 46 34 22 29 0a | 0a 28 61 73 65 74 20 70 |"C-F4").|.(aset p|
|000015b0| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 73 20 |c-functi|on-keys |
|000015c0| 39 38 20 22 43 2d 46 35 | 22 29 0a 0a 28 61 73 65 |98 "C-F5|")..(ase|
|000015d0| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|000015e0| 79 73 20 39 39 20 22 43 | 2d 46 36 22 29 0a 0a 28 |ys 99 "C|-F6")..(|
|000015f0| 61 73 65 74 20 70 63 2d | 66 75 6e 63 74 69 6f 6e |aset pc-|function|
|00001600| 2d 6b 65 79 73 20 31 30 | 30 20 22 43 2d 46 37 22 |-keys 10|0 "C-F7"|
|00001610| 29 0a 0a 28 61 73 65 74 | 20 70 63 2d 66 75 6e 63 |)..(aset| pc-func|
|00001620| 74 69 6f 6e 2d 6b 65 79 | 73 20 31 30 31 20 22 43 |tion-key|s 101 "C|
|00001630| 2d 46 38 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |-F8")..(|aset pc-|
|00001640| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 31 30 |function|-keys 10|
|00001650| 32 20 22 43 2d 46 39 22 | 29 0a 0a 28 61 73 65 74 |2 "C-F9"|)..(aset|
|00001660| 20 70 63 2d 66 75 6e 63 | 74 69 6f 6e 2d 6b 65 79 | pc-func|tion-key|
|00001670| 73 20 31 30 33 20 22 43 | 2d 46 31 30 22 29 0a 0a |s 103 "C|-F10")..|
|00001680| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00001690| 6e 2d 6b 65 79 73 20 31 | 30 34 20 22 41 2d 46 31 |n-keys 1|04 "A-F1|
|000016a0| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|000016b0| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 31 30 35 20 22 |ction-ke|ys 105 "|
|000016c0| 41 2d 46 32 22 29 0a 0a | 28 61 73 65 74 20 70 63 |A-F2")..|(aset pc|
|000016d0| 2d 66 75 6e 63 74 69 6f | 6e 2d 6b 65 79 73 20 31 |-functio|n-keys 1|
|000016e0| 30 36 20 22 41 2d 46 33 | 22 29 0a 0a 28 61 73 65 |06 "A-F3|")..(ase|
|000016f0| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00001700| 79 73 20 31 30 37 20 22 | 41 2d 46 34 22 29 0a 0a |ys 107 "|A-F4")..|
|00001710| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00001720| 6e 2d 6b 65 79 73 20 31 | 30 38 20 22 41 2d 46 35 |n-keys 1|08 "A-F5|
|00001730| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|00001740| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 31 30 39 20 22 |ction-ke|ys 109 "|
|00001750| 41 2d 46 36 22 29 0a 0a | 28 61 73 65 74 20 70 63 |A-F6")..|(aset pc|
|00001760| 2d 66 75 6e 63 74 69 6f | 6e 2d 6b 65 79 73 20 31 |-functio|n-keys 1|
|00001770| 31 30 20 22 41 2d 46 37 | 22 29 0a 0a 28 61 73 65 |10 "A-F7|")..(ase|
|00001780| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00001790| 79 73 20 31 31 31 20 22 | 41 2d 46 38 22 29 0a 0a |ys 111 "|A-F8")..|
|000017a0| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|000017b0| 6e 2d 6b 65 79 73 20 31 | 31 32 20 22 41 2d 46 39 |n-keys 1|12 "A-F9|
|000017c0| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|000017d0| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 31 31 33 20 22 |ction-ke|ys 113 "|
|000017e0| 41 2d 46 31 30 22 29 0a | 0a 28 61 73 65 74 20 70 |A-F10").|.(aset p|
|000017f0| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 73 20 |c-functi|on-keys |
|00001800| 31 31 34 20 22 43 2d 50 | 52 54 53 43 22 29 0a 0a |114 "C-P|RTSC")..|
|00001810| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00001820| 6e 2d 6b 65 79 73 20 31 | 31 35 20 22 43 2d 4c 45 |n-keys 1|15 "C-LE|
|00001830| 46 54 22 29 0a 0a 28 61 | 73 65 74 20 70 63 2d 66 |FT")..(a|set pc-f|
|00001840| 75 6e 63 74 69 6f 6e 2d | 6b 65 79 73 20 31 31 36 |unction-|keys 116|
|00001850| 20 22 43 2d 52 49 47 48 | 54 22 29 0a 0a 28 61 73 | "C-RIGH|T")..(as|
|00001860| 65 74 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |et pc-fu|nction-k|
|00001870| 65 79 73 20 31 31 37 20 | 22 43 2d 45 4e 44 22 29 |eys 117 |"C-END")|
|00001880| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00001890| 69 6f 6e 2d 6b 65 79 73 | 20 31 31 38 20 22 43 2d |ion-keys| 118 "C-|
|000018a0| 50 41 47 45 44 4f 57 4e | 22 29 0a 0a 28 61 73 65 |PAGEDOWN|")..(ase|
|000018b0| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|000018c0| 79 73 20 31 31 39 20 22 | 43 2d 48 4f 4d 45 22 29 |ys 119 "|C-HOME")|
|000018d0| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|000018e0| 69 6f 6e 2d 6b 65 79 73 | 20 31 32 30 20 22 41 2d |ion-keys| 120 "A-|
|000018f0| 31 22 29 0a 0a 28 61 73 | 65 74 20 70 63 2d 66 75 |1")..(as|et pc-fu|
|00001900| 6e 63 74 69 6f 6e 2d 6b | 65 79 73 20 31 32 31 20 |nction-k|eys 121 |
|00001910| 22 41 2d 32 22 29 0a 0a | 28 61 73 65 74 20 70 63 |"A-2")..|(aset pc|
|00001920| 2d 66 75 6e 63 74 69 6f | 6e 2d 6b 65 79 73 20 31 |-functio|n-keys 1|
|00001930| 32 32 20 22 41 2d 33 22 | 29 0a 0a 28 61 73 65 74 |22 "A-3"|)..(aset|
|00001940| 20 70 63 2d 66 75 6e 63 | 74 69 6f 6e 2d 6b 65 79 | pc-func|tion-key|
|00001950| 73 20 31 32 33 20 22 41 | 2d 34 22 29 0a 0a 28 61 |s 123 "A|-4")..(a|
|00001960| 73 65 74 20 70 63 2d 66 | 75 6e 63 74 69 6f 6e 2d |set pc-f|unction-|
|00001970| 6b 65 79 73 20 31 32 34 | 20 22 41 2d 35 22 29 0a |keys 124| "A-5").|
|00001980| 0a 28 61 73 65 74 20 70 | 63 2d 66 75 6e 63 74 69 |.(aset p|c-functi|
|00001990| 6f 6e 2d 6b 65 79 73 20 | 31 32 35 20 22 41 2d 36 |on-keys |125 "A-6|
|000019a0| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|000019b0| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 31 32 36 20 22 |ction-ke|ys 126 "|
|000019c0| 41 2d 37 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |A-7")..(|aset pc-|
|000019d0| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 31 32 |function|-keys 12|
|000019e0| 37 20 22 41 2d 38 22 29 | 0a 0a 28 61 73 65 74 20 |7 "A-8")|..(aset |
|000019f0| 70 63 2d 66 75 6e 63 74 | 69 6f 6e 2d 6b 65 79 73 |pc-funct|ion-keys|
|00001a00| 20 31 32 38 20 22 41 2d | 39 22 29 0a 0a 28 61 73 | 128 "A-|9")..(as|
|00001a10| 65 74 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |et pc-fu|nction-k|
|00001a20| 65 79 73 20 31 33 32 20 | 22 43 2d 50 41 47 45 55 |eys 132 |"C-PAGEU|
|00001a30| 50 22 29 0a 0a 28 61 73 | 65 74 20 70 63 2d 66 75 |P")..(as|et pc-fu|
|00001a40| 6e 63 74 69 6f 6e 2d 6b | 65 79 73 20 31 33 33 20 |nction-k|eys 133 |
|00001a50| 22 46 31 31 22 29 0a 0a | 28 61 73 65 74 20 70 63 |"F11")..|(aset pc|
|00001a60| 2d 66 75 6e 63 74 69 6f | 6e 2d 6b 65 79 73 20 31 |-functio|n-keys 1|
|00001a70| 33 34 20 22 46 31 32 22 | 29 0a 0a 28 61 73 65 74 |34 "F12"|)..(aset|
|00001a80| 20 70 63 2d 66 75 6e 63 | 74 69 6f 6e 2d 6b 65 79 | pc-func|tion-key|
|00001a90| 73 20 31 33 35 20 22 53 | 2d 46 31 31 22 29 0a 0a |s 135 "S|-F11")..|
|00001aa0| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00001ab0| 6e 2d 6b 65 79 73 20 31 | 33 36 20 22 53 2d 46 31 |n-keys 1|36 "S-F1|
|00001ac0| 32 22 29 0a 0a 28 61 73 | 65 74 20 70 63 2d 66 75 |2")..(as|et pc-fu|
|00001ad0| 6e 63 74 69 6f 6e 2d 6b | 65 79 73 20 31 33 37 20 |nction-k|eys 137 |
|00001ae0| 22 43 2d 46 31 31 22 29 | 0a 0a 28 61 73 65 74 20 |"C-F11")|..(aset |
|00001af0| 70 63 2d 66 75 6e 63 74 | 69 6f 6e 2d 6b 65 79 73 |pc-funct|ion-keys|
|00001b00| 20 31 33 38 20 22 43 2d | 46 31 32 22 29 0a 0a 28 | 138 "C-|F12")..(|
|00001b10| 61 73 65 74 20 70 63 2d | 66 75 6e 63 74 69 6f 6e |aset pc-|function|
|00001b20| 2d 6b 65 79 73 20 31 33 | 39 20 22 41 2d 46 31 31 |-keys 13|9 "A-F11|
|00001b30| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|00001b40| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 31 34 30 20 22 |ction-ke|ys 140 "|
|00001b50| 41 2d 46 31 32 22 29 0a | 0a 28 61 73 65 74 20 70 |A-F12").|.(aset p|
|00001b60| 63 2d 66 75 6e 63 74 69 | 6f 6e 2d 6b 65 79 73 20 |c-functi|on-keys |
|00001b70| 31 34 31 20 22 43 2d 55 | 50 22 29 0a 0a 28 61 73 |141 "C-U|P")..(as|
|00001b80| 65 74 20 70 63 2d 66 75 | 6e 63 74 69 6f 6e 2d 6b |et pc-fu|nction-k|
|00001b90| 65 79 73 20 31 34 32 20 | 22 43 2d 4e 55 4d 2d 22 |eys 142 |"C-NUM-"|
|00001ba0| 29 0a 0a 28 61 73 65 74 | 20 70 63 2d 66 75 6e 63 |)..(aset| pc-func|
|00001bb0| 74 69 6f 6e 2d 6b 65 79 | 73 20 31 34 33 20 22 43 |tion-key|s 143 "C|
|00001bc0| 2d 43 45 4e 54 45 52 22 | 29 0a 0a 28 61 73 65 74 |-CENTER"|)..(aset|
|00001bd0| 20 70 63 2d 66 75 6e 63 | 74 69 6f 6e 2d 6b 65 79 | pc-func|tion-key|
|00001be0| 73 20 31 34 34 20 22 43 | 2d 4e 55 4d 2b 22 29 0a |s 144 "C|-NUM+").|
|00001bf0| 0a 28 61 73 65 74 20 70 | 63 2d 66 75 6e 63 74 69 |.(aset p|c-functi|
|00001c00| 6f 6e 2d 6b 65 79 73 20 | 31 34 35 20 22 43 2d 44 |on-keys |145 "C-D|
|00001c10| 4f 57 4e 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |OWN")..(|aset pc-|
|00001c20| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 31 34 |function|-keys 14|
|00001c30| 36 20 22 43 2d 49 4e 53 | 45 52 54 22 29 0a 0a 28 |6 "C-INS|ERT")..(|
|00001c40| 61 73 65 74 20 70 63 2d | 66 75 6e 63 74 69 6f 6e |aset pc-|function|
|00001c50| 2d 6b 65 79 73 20 31 34 | 37 20 22 43 2d 44 45 4c |-keys 14|7 "C-DEL|
|00001c60| 45 54 45 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |ETE")..(|aset pc-|
|00001c70| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 31 34 |function|-keys 14|
|00001c80| 38 20 22 43 2d 54 41 42 | 22 29 0a 0a 28 61 73 65 |8 "C-TAB|")..(ase|
|00001c90| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00001ca0| 79 73 20 31 34 39 20 22 | 43 2d 4e 55 4d 2f 22 29 |ys 149 "|C-NUM/")|
|00001cb0| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00001cc0| 69 6f 6e 2d 6b 65 79 73 | 20 31 35 30 20 22 43 2d |ion-keys| 150 "C-|
|00001cd0| 4e 55 4d 2a 22 29 0a 0a | 28 61 73 65 74 20 70 63 |NUM*")..|(aset pc|
|00001ce0| 2d 66 75 6e 63 74 69 6f | 6e 2d 6b 65 79 73 20 31 |-functio|n-keys 1|
|00001cf0| 35 31 20 22 41 2d 48 4f | 4d 45 22 29 0a 0a 28 61 |51 "A-HO|ME")..(a|
|00001d00| 73 65 74 20 70 63 2d 66 | 75 6e 63 74 69 6f 6e 2d |set pc-f|unction-|
|00001d10| 6b 65 79 73 20 31 35 32 | 20 22 41 2d 55 50 22 29 |keys 152| "A-UP")|
|00001d20| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00001d30| 69 6f 6e 2d 6b 65 79 73 | 20 31 35 33 20 22 41 2d |ion-keys| 153 "A-|
|00001d40| 50 41 47 45 55 50 22 29 | 0a 0a 28 61 73 65 74 20 |PAGEUP")|..(aset |
|00001d50| 70 63 2d 66 75 6e 63 74 | 69 6f 6e 2d 6b 65 79 73 |pc-funct|ion-keys|
|00001d60| 20 31 35 35 20 22 41 2d | 4c 45 46 54 22 29 0a 0a | 155 "A-|LEFT")..|
|00001d70| 28 61 73 65 74 20 70 63 | 2d 66 75 6e 63 74 69 6f |(aset pc|-functio|
|00001d80| 6e 2d 6b 65 79 73 20 31 | 35 37 20 22 41 2d 52 49 |n-keys 1|57 "A-RI|
|00001d90| 47 48 54 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |GHT")..(|aset pc-|
|00001da0| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 31 35 |function|-keys 15|
|00001db0| 39 20 22 41 2d 45 4e 44 | 22 29 0a 0a 28 61 73 65 |9 "A-END|")..(ase|
|00001dc0| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00001dd0| 79 73 20 31 36 30 20 22 | 41 2d 44 4f 57 4e 22 29 |ys 160 "|A-DOWN")|
|00001de0| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00001df0| 69 6f 6e 2d 6b 65 79 73 | 20 31 36 31 20 22 41 2d |ion-keys| 161 "A-|
|00001e00| 50 41 47 45 44 4f 57 4e | 22 29 0a 0a 28 61 73 65 |PAGEDOWN|")..(ase|
|00001e10| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00001e20| 79 73 20 31 36 32 20 22 | 41 2d 49 4e 53 45 52 54 |ys 162 "|A-INSERT|
|00001e30| 22 29 0a 0a 28 61 73 65 | 74 20 70 63 2d 66 75 6e |")..(ase|t pc-fun|
|00001e40| 63 74 69 6f 6e 2d 6b 65 | 79 73 20 31 36 33 20 22 |ction-ke|ys 163 "|
|00001e50| 41 2d 44 45 4c 45 54 45 | 22 29 0a 0a 28 61 73 65 |A-DELETE|")..(ase|
|00001e60| 74 20 70 63 2d 66 75 6e | 63 74 69 6f 6e 2d 6b 65 |t pc-fun|ction-ke|
|00001e70| 79 73 20 31 36 34 20 22 | 41 2d 4e 55 4d 2f 22 29 |ys 164 "|A-NUM/")|
|00001e80| 0a 0a 28 61 73 65 74 20 | 70 63 2d 66 75 6e 63 74 |..(aset |pc-funct|
|00001e90| 69 6f 6e 2d 6b 65 79 73 | 20 31 36 35 20 22 41 2d |ion-keys| 165 "A-|
|00001ea0| 54 41 42 22 29 0a 0a 28 | 61 73 65 74 20 70 63 2d |TAB")..(|aset pc-|
|00001eb0| 66 75 6e 63 74 69 6f 6e | 2d 6b 65 79 73 20 31 36 |function|-keys 16|
|00001ec0| 36 20 22 41 2d 45 4e 54 | 45 52 22 29 0a 0a 28 64 |6 "A-ENT|ER")..(d|
|00001ed0| 65 66 76 61 72 20 66 69 | 6c 65 2d 74 79 70 65 2d |efvar fi|le-type-|
|00001ee0| 61 6c 69 73 74 20 6e 69 | 6c 20 30 29 0a 0a 28 73 |alist ni|l 0)..(s|
|00001ef0| 65 74 71 20 66 69 6c 65 | 2d 74 79 70 65 2d 61 6c |etq file|-type-al|
|00001f00| 69 73 74 20 28 6d 61 70 | 63 61 72 20 28 71 75 6f |ist (map|car (quo|
|00001f10| 74 65 20 70 75 72 65 63 | 6f 70 79 29 20 28 71 75 |te purec|opy) (qu|
|00001f20| 6f 74 65 20 28 28 22 5c | 5c 2e 65 6c 63 24 22 20 |ote (("\|\.elc$" |
|00001f30| 2e 20 22 62 22 29 29 29 | 29 29 0a 0a 28 64 65 66 |. "b")))|))..(def|
|00001f40| 75 6e 20 66 69 6c 65 2d | 74 79 70 65 2d 66 72 6f |un file-|type-fro|
|00001f50| 6d 2d 66 69 6c 65 2d 6e | 61 6d 65 20 28 66 69 6c |m-file-n|ame (fil|
|00001f60| 65 6e 61 6d 65 29 20 22 | 5c 0a 52 65 74 75 72 6e |ename) "|\.Return|
|00001f70| 20 74 68 65 20 66 69 6c | 65 20 74 79 70 65 20 64 | the fil|e type d|
|00001f80| 65 70 65 6e 64 69 6e 67 | 20 6f 6e 20 46 49 4c 45 |epending| on FILE|
|00001f90| 4e 41 4d 45 2e 0a 41 20 | 72 65 74 75 72 6e 20 76 |NAME..A |return v|
|00001fa0| 61 6c 75 65 20 6f 66 20 | 5c 22 62 5c 22 20 64 65 |alue of |\"b\" de|
|00001fb0| 6e 6f 74 65 73 20 61 20 | 62 69 6e 61 72 79 20 66 |notes a |binary f|
|00001fc0| 69 6c 65 3a 20 6e 6f 20 | 43 52 2f 4c 46 20 63 6f |ile: no |CR/LF co|
|00001fd0| 6e 76 65 72 73 69 6f 6e | 0a 77 69 6c 6c 20 62 65 |nversion|.will be|
|00001fe0| 20 64 6f 6e 65 2e 20 41 | 20 72 65 74 75 72 6e 20 | done. A| return |
|00001ff0| 76 61 6c 75 65 20 6f 66 | 20 5c 22 74 5c 22 20 64 |value of| \"t\" d|
|00002000| 65 6e 6f 74 65 73 20 61 | 20 74 65 78 74 20 66 69 |enotes a| text fi|
|00002010| 6c 65 3a 20 43 52 2f 4c | 46 20 70 61 69 72 73 0a |le: CR/L|F pairs.|
|00002020| 77 69 6c 6c 20 62 65 20 | 63 6f 6e 76 65 72 74 65 |will be |converte|
|00002030| 64 20 74 6f 20 4c 46 20 | 6f 6e 20 72 65 61 64 69 |d to LF |on readi|
|00002040| 6e 67 2c 20 61 20 66 69 | 6e 61 6c 20 43 2d 5a 20 |ng, a fi|nal C-Z |
|00002050| 2d 2d 20 69 66 20 70 72 | 65 73 65 6e 74 20 2d 2d |-- if pr|esent --|
|00002060| 20 77 69 6c 6c 20 62 65 | 0a 64 69 73 63 61 72 64 | will be|.discard|
|00002070| 65 64 20 6f 6e 20 72 65 | 61 64 69 6e 67 2e 20 4f |ed on re|ading. O|
|00002080| 6e 20 77 72 69 74 69 6e | 67 2c 20 4c 46 20 69 73 |n writin|g, LF is|
|00002090| 20 63 6f 6e 76 65 72 74 | 65 64 20 74 6f 20 43 52 | convert|ed to CR|
|000020a0| 2f 4c 46 2e 0a 0a 54 68 | 69 73 20 66 75 6e 63 74 |/LF...Th|is funct|
|000020b0| 69 6f 6e 20 75 73 65 73 | 20 66 69 6c 65 2d 74 79 |ion uses| file-ty|
|000020c0| 70 65 2d 61 6c 69 73 74 | 2e 20 49 66 20 74 68 69 |pe-alist|. If thi|
|000020d0| 73 20 66 61 69 6c 73 2c | 20 64 65 66 61 75 6c 74 |s fails,| default|
|000020e0| 2d 66 69 6c 65 2d 74 79 | 70 65 20 69 73 0a 75 73 |-file-ty|pe is.us|
|000020f0| 65 64 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ed." (by|te-code |
|00002100| 22 09 c5 1a 18 0a 3f 85 | 0a 00 08 85 24 00 c6 08 |".....?.|....$...|
|00002110| 40 40 0b 5c 22 85 1b 00 | 08 40 41 89 12 88 08 41 |@@.\"...|.@A....A|
|00002120| 89 10 88 82 04 00 88 0a | 86 2e 00 0c 86 2e 00 c7 |........|........|
|00002130| 2a 87 22 20 5b 61 6c 69 | 73 74 20 66 69 6c 65 2d |*." [ali|st file-|
|00002140| 74 79 70 65 2d 61 6c 69 | 73 74 20 74 79 70 65 20 |type-ali|st type |
|00002150| 66 69 6c 65 6e 61 6d 65 | 20 64 65 66 61 75 6c 74 |filename| default|
|00002160| 2d 66 69 6c 65 2d 74 79 | 70 65 20 6e 69 6c 20 73 |-file-ty|pe nil s|
|00002170| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 74 22 5d |tring-ma|tch "t"]|
|00002180| 20 34 29 29 0a 0a 28 73 | 65 74 71 20 73 68 65 6c | 4))..(s|etq shel|
|00002190| 6c 2d 70 72 6f 6d 70 74 | 2d 70 61 74 74 65 72 6e |l-prompt|-pattern|
|000021a0| 20 22 5e 5c 5c 5b 2e 2a | 5c 5c 5d 20 2a 22 29 0a | "^\\[.*|\\] *").|
|000021b0| 0a 28 73 65 74 71 20 73 | 68 65 6c 6c 2d 66 69 6c |.(setq s|hell-fil|
|000021c0| 65 2d 6e 61 6d 65 20 22 | 63 6d 64 22 29 0a 0a 28 |e-name "|cmd")..(|
|000021d0| 64 65 66 75 6e 20 6f 73 | 32 2d 63 64 2d 63 6f 6d |defun os|2-cd-com|
|000021e0| 6d 61 6e 64 20 28 64 69 | 72 29 20 22 5c 0a 52 65 |mand (di|r) "\.Re|
|000021f0| 74 75 72 6e 20 61 20 73 | 74 72 69 6e 67 20 63 6f |turn a s|tring co|
|00002200| 6e 74 61 69 6e 69 6e 67 | 20 74 68 65 20 4f 53 2f |ntaining| the OS/|
|00002210| 32 20 63 6f 6d 6d 61 6e | 64 28 73 29 20 66 6f 72 |2 comman|d(s) for|
|00002220| 20 63 68 61 6e 67 69 6e | 67 20 74 6f 20 44 49 52 | changin|g to DIR|
|00002230| 2e 0a 54 68 61 74 20 73 | 74 72 69 6e 67 20 63 61 |..That s|tring ca|
|00002240| 6e 20 62 65 20 75 73 65 | 64 20 64 69 72 65 63 74 |n be use|d direct|
|00002250| 6c 79 20 77 69 74 68 20 | 73 65 6e 64 2d 73 74 72 |ly with |send-str|
|00002260| 69 6e 67 2e 20 49 74 20 | 63 6f 6e 74 61 69 6e 73 |ing. It |contains|
|00002270| 20 6f 6e 65 0a 6f 72 20 | 74 77 6f 20 6c 69 6e 65 | one.or |two line|
|00002280| 20 66 65 65 64 20 63 68 | 61 72 61 63 74 65 72 73 | feed ch|aracters|
|00002290| 2e 22 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |." (byte|-code ".|
|000022a0| c2 08 21 c3 c4 23 89 10 | 88 c5 c6 08 5c 22 85 17 |..!..#..|....\"..|
|000022b0| 00 08 c7 c8 4f 89 10 88 | c5 c9 08 5c 22 85 2c 00 |....O...|...\".,.|
|000022c0| 08 c7 ca 4f cb 50 08 ca | cc 4f 89 10 88 08 47 c7 |...O.P..|.O....G.|
|000022d0| 56 85 37 00 cd 08 cb 51 | 50 87 22 20 5b 64 69 72 |V.7....Q|P." [dir|
|000022e0| 20 72 65 70 6c 61 63 65 | 2d 63 68 61 72 2d 69 6e | replace|-char-in|
|000022f0| 2d 73 74 72 69 6e 67 20 | 63 6f 70 79 2d 73 65 71 |-string |copy-seq|
|00002300| 75 65 6e 63 65 20 34 37 | 20 39 32 20 73 74 72 69 |uence 47| 92 stri|
|00002310| 6e 67 2d 6d 61 74 63 68 | 20 22 5b 5e 3a 5d 5c 5c |ng-match| "[^:]\\|
|00002320| 5c 5c 24 22 20 30 20 2d | 31 20 22 5b 41 2d 5a 61 |\\$" 0 -|1 "[A-Za|
|00002330| 2d 7a 5d 3a 22 20 32 20 | 22 0a 22 20 6e 69 6c 20 |-z]:" 2 |"." nil |
|00002340| 22 63 64 20 22 5d 20 38 | 29 29 0a                |"cd "] 8|)).     |
+--------+-------------------------+-------------------------+--------+--------+