home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-04-01 | 21.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 77 7a 40 74 68 61 |piled by| jwz@tha|
|00000020| 6c 69 64 6f 6d 69 64 65 | 20 6f 6e 20 4d 6f 6e 20 |lidomide| on Mon |
|00000030| 46 65 62 20 20 31 20 31 | 39 3a 30 34 3a 31 31 20 |Feb 1 1|9:04:11 |
|00000040| 31 39 39 33 0a 3b 3b 3b | 20 66 72 6f 6d 20 66 69 |1993.;;;| from fi|
|00000050| 6c 65 20 2f 63 61 64 69 | 6c 6c 61 63 31 2f 63 6f |le /cadi|llac1/co|
|00000060| 64 65 2f 62 75 69 6c 64 | 2f 6c 65 6d 61 63 73 2f |de/build|/lemacs/|
|00000070| 6c 69 73 70 2f 70 61 63 | 6b 61 67 65 73 2f 61 72 |lisp/pac|kages/ar|
|00000080| 72 61 79 2e 65 6c 0a 3b | 3b 3b 20 65 6d 61 63 73 |ray.el.;|;; emacs|
|00000090| 20 76 65 72 73 69 6f 6e | 20 31 39 2e 34 2e 31 33 | version| 19.4.13|
|000000a0| 20 4c 75 63 69 64 2e 0a | 3b 3b 3b 20 62 79 74 65 | Lucid..|;;; byte|
|000000b0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 32 2e 31 |comp ver|sion 2.1|
|000000c0| 30 3b 20 20 31 2d 66 65 | 62 2d 39 33 2e 0a 3b 3b |0; 1-fe|b-93..;;|
|000000d0| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|000000e0| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|000000f0| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000100| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000110| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 31 38 2e 0a |ist in E|macs18..|
|00000120| 0a 28 69 66 20 28 61 6e | 64 20 28 62 6f 75 6e 64 |.(if (an|d (bound|
|00000130| 70 20 27 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |p 'emacs|-version|
|00000140| 29 0a 09 20 28 6f 72 20 | 28 61 6e 64 20 28 62 6f |).. (or |(and (bo|
|00000150| 75 6e 64 70 20 27 65 70 | 6f 63 68 3a 3a 76 65 72 |undp 'ep|och::ver|
|00000160| 73 69 6f 6e 29 20 65 70 | 6f 63 68 3a 3a 76 65 72 |sion) ep|och::ver|
|00000170| 73 69 6f 6e 29 0a 09 20 | 20 20 20 20 28 73 74 72 |sion).. | (str|
|00000180| 69 6e 67 2d 6c 65 73 73 | 70 20 65 6d 61 63 73 2d |ing-less|p emacs-|
|00000190| 76 65 72 73 69 6f 6e 20 | 22 31 39 22 29 29 29 0a |version |"19"))).|
|000001a0| 20 20 20 20 28 65 72 72 | 6f 72 20 22 54 68 69 73 | (err|or "This|
|000001b0| 20 66 69 6c 65 20 77 61 | 73 20 63 6f 6d 70 69 6c | file wa|s compil|
|000001c0| 65 64 20 66 6f 72 20 45 | 6d 61 63 73 31 39 2e 22 |ed for E|macs19."|
|000001d0| 29 29 0a 0a 28 66 73 65 | 74 20 27 61 72 72 61 79 |))..(fse|t 'array|
|000001e0| 2d 63 75 72 73 6f 72 2d | 69 6e 2d 61 72 72 61 79 |-cursor-|in-array|
|000001f0| 2d 72 61 6e 67 65 20 23 | 5b 6e 69 6c 20 22 08 09 |-range #|[nil "..|
|00000200| a6 1a 0b 0c 59 ae 9e 0d | 0e 06 0e 07 5f 59 ae 95 |....Y...|...._Y..|
|00000210| 0d 54 0e 06 a6 c8 55 ad | 8c 5c 6e c8 55 3f ad 86 |.T....U.|.\n.U?..|
|00000220| 0b 5c 6e 0e 09 5f 59 29 | 3f 87 22 20 5b 6d 61 78 |.\n.._Y)|?." [max|
|00000230| 2d 63 6f 6c 75 6d 6e 20 | 63 6f 6c 75 6d 6e 73 2d |-column |columns-|
|00000240| 70 65 72 2d 6c 69 6e 65 | 20 63 6f 6c 75 6d 6e 73 |per-line| columns|
|00000250| 2d 6c 61 73 74 2d 6c 69 | 6e 65 20 62 75 66 66 65 |-last-li|ne buffe|
|00000260| 72 2d 63 6f 6c 75 6d 6e | 20 6c 69 6e 65 2d 6c 65 |r-column| line-le|
|00000270| 6e 67 74 68 20 62 75 66 | 66 65 72 2d 6c 69 6e 65 |ngth buf|fer-line|
|00000280| 20 6c 69 6e 65 73 2d 70 | 65 72 2d 72 6f 77 20 6d | lines-p|er-row m|
|00000290| 61 78 2d 72 6f 77 20 30 | 20 66 69 65 6c 64 2d 77 |ax-row 0| field-w|
|000002a0| 69 64 74 68 5d 20 33 20 | 22 5c 0a 52 65 74 75 72 |idth] 3 |"\.Retur|
|000002b0| 6e 73 20 74 20 69 66 20 | 74 68 65 20 63 75 72 73 |ns t if |the curs|
|000002c0| 6f 72 20 69 73 20 69 6e | 20 61 20 76 61 6c 69 64 |or is in| a valid|
|000002d0| 20 61 72 72 61 79 20 63 | 65 6c 6c 2e 0a 49 74 73 | array c|ell..Its|
|000002e0| 20 6f 6b 61 79 20 74 6f | 20 62 65 20 6f 6e 20 61 | okay to| be on a|
|000002f0| 20 72 6f 77 20 6e 75 6d | 62 65 72 20 6c 69 6e 65 | row num|ber line|
|00000300| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 61 72 72 61 |."]).(fs|et 'arra|
|00000310| 79 2d 63 75 72 72 65 6e | 74 2d 72 6f 77 20 23 5b |y-curren|t-row #[|
|00000320| 6e 69 6c 20 22 c0 20 ad | 85 c1 5c 6e 0b 5c 22 54 |nil ". .|..\n.\"T|
|00000330| 87 22 20 5b 61 72 72 61 | 79 2d 63 75 72 73 6f 72 |." [arra|y-cursor|
|00000340| 2d 69 6e 2d 61 72 72 61 | 79 2d 72 61 6e 67 65 20 |-in-arra|y-range |
|00000350| 61 72 72 61 79 2d 6d 6f | 64 65 2d 66 6c 6f 6f 72 |array-mo|de-floor|
|00000360| 20 62 75 66 66 65 72 2d | 6c 69 6e 65 20 6c 69 6e | buffer-|line lin|
|00000370| 65 73 2d 70 65 72 2d 72 | 6f 77 5d 20 33 20 22 5c |es-per-r|ow] 3 "\|
|00000380| 0a 52 65 74 75 72 6e 20 | 74 68 65 20 61 72 72 61 |.Return |the arra|
|00000390| 79 20 72 6f 77 20 6f 66 | 20 74 68 65 20 66 69 65 |y row of| the fie|
|000003a0| 6c 64 20 69 6e 20 77 68 | 69 63 68 20 74 68 65 20 |ld in wh|ich the |
|000003b0| 63 75 72 73 6f 72 20 69 | 73 0a 63 75 72 72 65 6e |cursor i|s.curren|
|000003c0| 74 6c 79 20 6c 6f 63 61 | 74 65 64 2e 22 5d 29 0a |tly loca|ted."]).|
|000003d0| 28 66 73 65 74 20 27 61 | 72 72 61 79 2d 63 75 72 |(fset 'a|rray-cur|
|000003e0| 72 65 6e 74 2d 63 6f 6c | 75 6d 6e 20 23 5b 6e 69 |rent-col|umn #[ni|
|000003f0| 6c 20 22 c0 20 ad a1 09 | ad 85 5c 6e 0b a6 c4 55 |l ". ...|..\n...U|
|00000400| 3f ad 96 0d 09 ab 86 5c | 6e 0b a6 53 aa 83 5c 6e |?......\|n..S..\n|
|00000410| 0b a6 5f c6 0e 07 54 0e | 08 5c 22 5c 5c 87 22 20 |.._...T.|.\"\\." |
|00000420| 5b 61 72 72 61 79 2d 63 | 75 72 73 6f 72 2d 69 6e |[array-c|ursor-in|
|00000430| 2d 61 72 72 61 79 2d 72 | 61 6e 67 65 20 72 6f 77 |-array-r|ange row|
|00000440| 73 2d 6e 75 6d 62 65 72 | 65 64 20 62 75 66 66 65 |s-number|ed buffe|
|00000450| 72 2d 6c 69 6e 65 20 6c | 69 6e 65 73 2d 70 65 72 |r-line l|ines-per|
|00000460| 2d 72 6f 77 20 30 20 63 | 6f 6c 75 6d 6e 73 2d 70 |-row 0 c|olumns-p|
|00000470| 65 72 2d 6c 69 6e 65 20 | 61 72 72 61 79 2d 6d 6f |er-line |array-mo|
|00000480| 64 65 2d 63 65 69 6c 69 | 6e 67 20 62 75 66 66 65 |de-ceili|ng buffe|
|00000490| 72 2d 63 6f 6c 75 6d 6e | 20 66 69 65 6c 64 2d 77 |r-column| field-w|
|000004a0| 69 64 74 68 5d 20 34 20 | 22 5c 0a 52 65 74 75 72 |idth] 4 |"\.Retur|
|000004b0| 6e 20 74 68 65 20 61 72 | 72 61 79 20 63 6f 6c 75 |n the ar|ray colu|
|000004c0| 6d 6e 20 6f 66 20 74 68 | 65 20 66 69 65 6c 64 20 |mn of th|e field |
|000004d0| 69 6e 20 77 68 69 63 68 | 20 74 68 65 20 63 75 72 |in which| the cur|
|000004e0| 73 6f 72 20 69 73 0a 63 | 75 72 72 65 6e 74 6c 79 |sor is.c|urrently|
|000004f0| 20 6c 6f 63 61 74 65 64 | 2e 22 5d 29 0a 28 66 73 | located|."]).(fs|
|00000500| 65 74 20 27 61 72 72 61 | 79 2d 75 70 64 61 74 65 |et 'arra|y-update|
|00000510| 2d 61 72 72 61 79 2d 70 | 6f 73 69 74 69 6f 6e 20 |-array-p|osition |
|00000520| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 2d 72 |#[(&opti|onal a-r|
|00000530| 6f 77 20 61 2d 63 6f 6c | 75 6d 6e 29 20 22 08 ae |ow a-col|umn) "..|
|00000540| 82 c1 20 12 0b ae 82 c4 | 20 89 15 87 22 20 5b 61 |.. .....| ..." [a|
|00000550| 2d 72 6f 77 20 61 72 72 | 61 79 2d 63 75 72 72 65 |-row arr|ay-curre|
|00000560| 6e 74 2d 72 6f 77 20 61 | 72 72 61 79 2d 72 6f 77 |nt-row a|rray-row|
|00000570| 20 61 2d 63 6f 6c 75 6d | 6e 20 61 72 72 61 79 2d | a-colum|n array-|
|00000580| 63 75 72 72 65 6e 74 2d | 63 6f 6c 75 6d 6e 20 61 |current-|column a|
|00000590| 72 72 61 79 2d 63 6f 6c | 75 6d 6e 5d 20 32 20 22 |rray-col|umn] 2 "|
|000005a0| 5c 0a 53 65 74 20 61 72 | 72 61 79 2d 72 6f 77 20 |\.Set ar|ray-row |
|000005b0| 61 6e 64 20 61 72 72 61 | 79 2d 63 6f 6c 75 6d 6e |and arra|y-column|
|000005c0| 20 74 6f 20 74 68 65 69 | 72 20 63 75 72 72 65 6e | to thei|r curren|
|000005d0| 74 20 76 61 6c 75 65 73 | 2e 22 5d 29 0a 28 66 73 |t values|."]).(fs|
|000005e0| 65 74 20 27 61 72 72 61 | 79 2d 75 70 64 61 74 65 |et 'arra|y-update|
|000005f0| 2d 62 75 66 66 65 72 2d | 70 6f 73 69 74 69 6f 6e |-buffer-|position|
|00000600| 20 23 5b 6e 69 6c 20 22 | c0 20 11 69 89 12 87 22 | #[nil "|. .i..."|
|00000610| 20 5b 63 75 72 72 65 6e | 74 2d 6c 69 6e 65 20 62 | [curren|t-line b|
|00000620| 75 66 66 65 72 2d 6c 69 | 6e 65 20 62 75 66 66 65 |uffer-li|ne buffe|
|00000630| 72 2d 63 6f 6c 75 6d 6e | 5d 20 32 20 22 5c 0a 53 |r-column|] 2 "\.S|
|00000640| 65 74 20 62 75 66 66 65 | 72 2d 6c 69 6e 65 20 61 |et buffe|r-line a|
|00000650| 6e 64 20 62 75 66 66 65 | 72 2d 63 6f 6c 75 6d 6e |nd buffe|r-column|
|00000660| 20 74 6f 20 74 68 65 69 | 72 20 63 75 72 72 65 6e | to thei|r curren|
|00000670| 74 20 76 61 6c 75 65 73 | 2e 22 5d 29 0a 28 66 73 |t values|."]).(fs|
|00000680| 65 74 20 27 61 72 72 61 | 79 2d 77 68 61 74 2d 70 |et 'arra|y-what-p|
|00000690| 6f 73 69 74 69 6f 6e 20 | 23 5b 6e 69 6c 20 22 c0 |osition |#[nil ".|
|000006a0| 20 69 19 1a c3 c4 c5 c6 | c7 20 21 c6 c8 20 21 23 | i......|. !.. !#|
|000006b0| 21 2a 87 22 20 5b 63 75 | 72 72 65 6e 74 2d 6c 69 |!*." [cu|rrent-li|
|000006c0| 6e 65 20 62 75 66 66 65 | 72 2d 63 6f 6c 75 6d 6e |ne buffe|r-column|
|000006d0| 20 62 75 66 66 65 72 2d | 6c 69 6e 65 20 6d 65 73 | buffer-|line mes|
|000006e0| 73 61 67 65 20 66 6f 72 | 6d 61 74 20 22 41 72 72 |sage for|mat "Arr|
|000006f0| 61 79 20 72 6f 77 3a 20 | 25 73 20 20 41 72 72 61 |ay row: |%s Arra|
|00000700| 79 20 63 6f 6c 75 6d 6e | 3a 20 25 73 22 20 70 72 |y column|: %s" pr|
|00000710| 69 6e 31 2d 74 6f 2d 73 | 74 72 69 6e 67 20 61 72 |in1-to-s|tring ar|
|00000720| 72 61 79 2d 63 75 72 72 | 65 6e 74 2d 72 6f 77 20 |ray-curr|ent-row |
|00000730| 61 72 72 61 79 2d 63 75 | 72 72 65 6e 74 2d 63 6f |array-cu|rrent-co|
|00000740| 6c 75 6d 6e 5d 20 36 20 | 22 5c 0a 44 69 73 70 6c |lumn] 6 |"\.Displ|
|00000750| 61 79 20 74 68 65 20 72 | 6f 77 20 61 6e 64 20 63 |ay the r|ow and c|
|00000760| 6f 6c 75 6d 6e 20 69 6e | 20 77 68 69 63 68 20 74 |olumn in| which t|
|00000770| 68 65 20 63 75 72 73 6f | 72 20 69 73 20 70 6f 73 |he curso|r is pos|
|00000780| 69 74 69 6f 6e 65 64 2e | 22 20 6e 69 6c 5d 29 0a |itioned.|" nil]).|
|00000790| 28 66 73 65 74 20 27 61 | 72 72 61 79 2d 64 69 73 |(fset 'a|rray-dis|
|000007a0| 70 6c 61 79 2d 6c 6f 63 | 61 6c 2d 76 61 72 69 61 |play-loc|al-varia|
|000007b0| 62 6c 65 73 20 23 5b 6e | 69 6c 20 22 c0 70 21 19 |bles #[n|il ".p!.|
|000007c0| c2 90 c3 0c 21 88 c5 20 | 88 c6 c7 c8 09 5c 22 21 |....!.. |.....\"!|
|000007d0| 88 c6 c7 c9 ca 0e 0b 21 | 5c 22 21 88 c6 c7 cc ca |.......!|\"!.....|
|000007e0| 0e 0d 21 5c 22 21 88 c6 | c7 ce ca 0e 0f 21 5c 22 |..!\"!..|.....!\"|
|000007f0| 21 88 c6 c7 d0 ca 0e 11 | 21 5c 22 21 88 c6 c7 d2 |!.......|!\"!....|
|00000800| ca 0e 13 21 5c 22 21 88 | c6 c7 d4 ca 0e 15 21 5c |...!\"!.|......!\|
|00000810| 22 21 88 c6 c7 d6 ca 0e | 17 21 5c 22 21 91 29 87 |"!......|.!\"!.).|
|00000820| 22 20 5b 62 75 66 66 65 | 72 2d 6e 61 6d 65 20 62 |" [buffe|r-name b|
|00000830| 75 66 20 22 2a 4c 6f 63 | 61 6c 20 56 61 72 69 61 |uf "*Loc|al Varia|
|00000840| 62 6c 65 73 2a 22 20 62 | 75 66 66 65 72 2d 64 69 |bles*" b|uffer-di|
|00000850| 73 61 62 6c 65 2d 75 6e | 64 6f 20 73 74 61 6e 64 |sable-un|do stand|
|00000860| 61 72 64 2d 6f 75 74 70 | 75 74 20 74 65 72 70 72 |ard-outp|ut terpr|
|00000870| 69 20 70 72 69 6e 63 20 | 66 6f 72 6d 61 74 20 22 |i princ |format "|
|00000880| 20 42 75 66 66 65 72 3a | 20 20 20 20 20 20 20 20 | Buffer:| |
|00000890| 20 20 20 20 20 25 73 5c | 6e 5c 6e 22 20 22 20 20 | %s\|n\n" " |
|000008a0| 6d 61 78 2d 72 6f 77 3a | 20 20 20 20 20 20 20 20 |max-row:| |
|000008b0| 20 20 20 25 73 5c 6e 22 | 20 70 72 69 6e 31 2d 74 | %s\n"| prin1-t|
|000008c0| 6f 2d 73 74 72 69 6e 67 | 20 6d 61 78 2d 72 6f 77 |o-string| max-row|
|000008d0| 20 22 20 20 6d 61 78 2d | 63 6f 6c 75 6d 6e 3a 20 | " max-|column: |
|000008e0| 20 20 20 20 20 20 20 25 | 73 5c 6e 22 20 6d 61 78 | %|s\n" max|
|000008f0| 2d 63 6f 6c 75 6d 6e 20 | 22 20 20 63 6f 6c 75 6d |-column |" colum|
|00000900| 6e 73 2d 70 65 72 2d 6c | 69 6e 65 3a 20 20 25 73 |ns-per-l|ine: %s|
|00000910| 5c 6e 22 20 63 6f 6c 75 | 6d 6e 73 2d 70 65 72 2d |\n" colu|mns-per-|
|00000920| 6c 69 6e 65 20 22 20 20 | 66 69 65 6c 64 2d 77 69 |line " |field-wi|
|00000930| 64 74 68 3a 20 20 20 20 | 20 20 20 25 73 5c 6e 22 |dth: | %s\n"|
|00000940| 20 66 69 65 6c 64 2d 77 | 69 64 74 68 20 22 20 20 | field-w|idth " |
|00000950| 72 6f 77 73 2d 6e 75 6d | 62 65 72 65 64 3a 20 20 |rows-num|bered: |
|00000960| 20 20 20 25 73 5c 6e 22 | 20 72 6f 77 73 2d 6e 75 | %s\n"| rows-nu|
|00000970| 6d 62 65 72 65 64 20 22 | 20 20 6c 69 6e 65 73 2d |mbered "| lines-|
|00000980| 70 65 72 2d 72 6f 77 3a | 20 20 20 20 20 25 73 5c |per-row:| %s\|
|00000990| 6e 22 20 6c 69 6e 65 73 | 2d 70 65 72 2d 72 6f 77 |n" lines|-per-row|
|000009a0| 20 22 20 20 6c 69 6e 65 | 2d 6c 65 6e 67 74 68 3a | " line|-length:|
|000009b0| 20 20 20 20 20 20 20 25 | 73 5c 6e 22 20 6c 69 6e | %|s\n" lin|
|000009c0| 65 2d 6c 65 6e 67 74 68 | 5d 20 36 20 22 5c 0a 44 |e-length|] 6 "\.D|
|000009d0| 69 73 70 6c 61 79 20 74 | 68 65 20 63 75 72 72 65 |isplay t|he curre|
|000009e0| 6e 74 20 73 74 61 74 65 | 20 6f 66 20 74 68 65 20 |nt state| of the |
|000009f0| 6c 6f 63 61 6c 20 76 61 | 72 69 61 62 6c 65 73 20 |local va|riables |
|00000a00| 69 6e 20 74 68 65 20 6d | 69 6e 69 62 75 66 66 65 |in the m|inibuffe|
|00000a10| 72 2e 22 20 6e 69 6c 5d | 29 0a 28 66 73 65 74 20 |r." nil]|).(fset |
|00000a20| 27 61 72 72 61 79 2d 62 | 65 67 69 6e 6e 69 6e 67 |'array-b|eginning|
|00000a30| 2d 6f 66 2d 66 69 65 6c | 64 20 23 5b 28 26 6f 70 |-of-fiel|d #[(&op|
|00000a40| 74 69 6f 6e 61 6c 20 67 | 6f 2d 74 68 65 72 65 29 |tional g|o-there)|
|00000a50| 20 22 08 89 09 a6 5a 1a | 0b ab 85 c4 5c 6e 21 aa | "....Z.|....\n!.|
|00000a60| 81 5c 6e 29 87 22 20 5b | 62 75 66 66 65 72 2d 63 |.\n)." [|buffer-c|
|00000a70| 6f 6c 75 6d 6e 20 66 69 | 65 6c 64 2d 77 69 64 74 |olumn fi|eld-widt|
|00000a80| 68 20 67 6f 61 6c 2d 63 | 6f 6c 75 6d 6e 20 67 6f |h goal-c|olumn go|
|00000a90| 2d 74 68 65 72 65 20 6d | 6f 76 65 2d 74 6f 2d 63 |-there m|ove-to-c|
|00000aa0| 6f 6c 75 6d 6e 2d 75 6e | 74 61 62 69 66 79 5d 20 |olumn-un|tabify] |
|00000ab0| 33 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |3 "\.Ret|urn the |
|00000ac0| 63 6f 6c 75 6d 6e 20 6f | 66 20 74 68 65 20 62 65 |column o|f the be|
|00000ad0| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 63 |ginning |of the c|
|00000ae0| 75 72 72 65 6e 74 20 66 | 69 65 6c 64 2e 0a 4f 70 |urrent f|ield..Op|
|00000af0| 74 69 6f 6e 61 6c 20 61 | 72 67 75 6d 65 6e 74 20 |tional a|rgument |
|00000b00| 47 4f 2d 54 48 45 52 45 | 2c 20 69 66 20 6e 6f 6e |GO-THERE|, if non|
|00000b10| 2d 6e 69 6c 2c 20 6d 65 | 61 6e 73 20 67 6f 20 74 |-nil, me|ans go t|
|00000b20| 68 65 72 65 20 74 6f 6f | 2e 22 5d 29 0a 28 66 73 |here too|."]).(fs|
|00000b30| 65 74 20 27 61 72 72 61 | 79 2d 65 6e 64 2d 6f 66 |et 'arra|y-end-of|
|00000b40| 2d 66 69 65 6c 64 20 23 | 5b 28 26 6f 70 74 69 6f |-field #|[(&optio|
|00000b50| 6e 61 6c 20 67 6f 2d 74 | 68 65 72 65 29 20 22 08 |nal go-t|here) ".|
|00000b60| 89 09 a6 5a 09 5c 5c 1a | 0b ab 85 c4 5c 6e 21 aa |...Z.\\.|....\n!.|
|00000b70| 81 5c 6e 29 87 22 20 5b | 62 75 66 66 65 72 2d 63 |.\n)." [|buffer-c|
|00000b80| 6f 6c 75 6d 6e 20 66 69 | 65 6c 64 2d 77 69 64 74 |olumn fi|eld-widt|
|00000b90| 68 20 67 6f 61 6c 2d 63 | 6f 6c 75 6d 6e 20 67 6f |h goal-c|olumn go|
|00000ba0| 2d 74 68 65 72 65 20 6d | 6f 76 65 2d 74 6f 2d 63 |-there m|ove-to-c|
|00000bb0| 6f 6c 75 6d 6e 2d 75 6e | 74 61 62 69 66 79 5d 20 |olumn-un|tabify] |
|00000bc0| 33 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |3 "\.Ret|urn the |
|00000bd0| 63 6f 6c 75 6d 6e 20 6f | 66 20 74 68 65 20 65 6e |column o|f the en|
|00000be0| 64 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |d of the| current|
|00000bf0| 20 61 72 72 61 79 20 66 | 69 65 6c 64 2e 0a 49 66 | array f|ield..If|
|00000c00| 20 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 75 6d 65 | optiona|l argume|
|00000c10| 6e 74 20 47 4f 2d 54 48 | 45 52 45 20 69 73 20 6e |nt GO-TH|ERE is n|
|00000c20| 6f 6e 2d 6e 69 6c 2c 20 | 67 6f 20 74 68 65 72 65 |on-nil, |go there|
|00000c30| 20 74 6f 6f 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 | too."])|.(fset '|
|00000c40| 61 72 72 61 79 2d 6d 6f | 76 65 2d 74 6f 2d 63 65 |array-mo|ve-to-ce|
|00000c50| 6c 6c 20 23 5b 28 61 2d | 72 6f 77 20 61 2d 63 6f |ll #[(a-|row a-co|
|00000c60| 6c 75 6d 6e 29 20 22 08 | 09 53 5f 5c 6e ab 83 c3 |lumn) ".|.S_\n...|
|00000c70| aa 81 c4 c5 0e 06 53 0e | 07 5c 22 5c 5c 5c 5c 0e |......S.|.\"\\\\.|
|00000c80| 08 0e 06 53 0e 07 a6 5f | 1e 09 1e 5c 6e 65 62 88 |...S..._|...\neb.|
|00000c90| 0e 5c 6e 79 88 cb 0e 09 | 21 2a 87 22 20 5b 6c 69 |.\ny....|!*." [li|
|00000ca0| 6e 65 73 2d 70 65 72 2d | 72 6f 77 20 61 2d 72 6f |nes-per-|row a-ro|
|00000cb0| 77 20 72 6f 77 73 2d 6e | 75 6d 62 65 72 65 64 20 |w rows-n|umbered |
|00000cc0| 31 20 30 20 61 72 72 61 | 79 2d 6d 6f 64 65 2d 66 |1 0 arra|y-mode-f|
|00000cd0| 6c 6f 6f 72 20 61 2d 63 | 6f 6c 75 6d 6e 20 63 6f |loor a-c|olumn co|
|00000ce0| 6c 75 6d 6e 73 2d 70 65 | 72 2d 6c 69 6e 65 20 66 |lumns-pe|r-line f|
|00000cf0| 69 65 6c 64 2d 77 69 64 | 74 68 20 67 6f 61 6c 2d |ield-wid|th goal-|
|00000d00| 63 6f 6c 75 6d 6e 20 67 | 6f 61 6c 2d 6c 69 6e 65 |column g|oal-line|
|00000d10| 20 6d 6f 76 65 2d 74 6f | 2d 63 6f 6c 75 6d 6e 2d | move-to|-column-|
|00000d20| 75 6e 74 61 62 69 66 79 | 5d 20 35 20 22 5c 0a 4d |untabify|] 5 "\.M|
|00000d30| 6f 76 65 20 74 6f 20 61 | 72 72 61 79 20 72 6f 77 |ove to a|rray row|
|00000d40| 20 41 2d 52 4f 57 20 61 | 6e 64 20 61 72 72 61 79 | A-ROW a|nd array|
|00000d50| 20 63 6f 6c 75 6d 6e 20 | 41 2d 43 4f 4c 55 4d 4e | column |A-COLUMN|
|00000d60| 2e 20 20 0a 4c 65 61 76 | 65 20 70 6f 69 6e 74 20 |. .Leav|e point |
|00000d70| 61 74 20 74 68 65 20 62 | 65 67 69 6e 6e 69 6e 67 |at the b|eginning|
|00000d80| 20 6f 66 20 74 68 65 20 | 66 69 65 6c 64 20 61 6e | of the |field an|
|00000d90| 64 20 72 65 74 75 72 6e | 20 74 68 65 20 6e 65 77 |d return| the new|
|00000da0| 20 62 75 66 66 65 72 20 | 63 6f 6c 75 6d 6e 2e 22 | buffer |column."|
|00000db0| 5d 29 0a 28 66 73 65 74 | 20 27 61 72 72 61 79 2d |]).(fset| 'array-|
|00000dc0| 6d 6f 76 65 2d 74 6f 2d | 72 6f 77 20 23 5b 28 61 |move-to-|row #[(a|
|00000dd0| 2d 72 6f 77 29 20 22 08 | 09 53 5f 5c 6e 08 a6 5c |-row) ".|.S_\n..\|
|00000de0| 5c 0b 89 0c a6 5a 1d 89 | 1e 06 5c 6e 5a 79 88 c7 |\....Z..|..\nZy..|
|00000df0| 0d 21 88 09 2a 87 22 20 | 5b 6c 69 6e 65 73 2d 70 |.!..*." |[lines-p|
|00000e00| 65 72 2d 72 6f 77 20 61 | 2d 72 6f 77 20 62 75 66 |er-row a|-row buf|
|00000e10| 66 65 72 2d 6c 69 6e 65 | 20 62 75 66 66 65 72 2d |fer-line| buffer-|
|00000e20| 63 6f 6c 75 6d 6e 20 66 | 69 65 6c 64 2d 77 69 64 |column f|ield-wid|
|00000e30| 74 68 20 67 6f 61 6c 2d | 63 6f 6c 75 6d 6e 20 67 |th goal-|column g|
|00000e40| 6f 61 6c 2d 6c 69 6e 65 | 20 6d 6f 76 65 2d 74 6f |oal-line| move-to|
|00000e50| 2d 63 6f 6c 75 6d 6e 2d | 75 6e 74 61 62 69 66 79 |-column-|untabify|
|00000e60| 5d 20 35 20 22 5c 0a 4d | 6f 76 65 20 74 6f 20 61 |] 5 "\.M|ove to a|
|00000e70| 72 72 61 79 20 72 6f 77 | 20 41 2d 52 4f 57 20 70 |rray row| A-ROW p|
|00000e80| 72 65 73 65 72 76 69 6e | 67 20 74 68 65 20 63 75 |reservin|g the cu|
|00000e90| 72 72 65 6e 74 20 61 72 | 72 61 79 20 63 6f 6c 75 |rrent ar|ray colu|
|00000ea0| 6d 6e 2e 0a 4c 65 61 76 | 65 20 70 6f 69 6e 74 20 |mn..Leav|e point |
|00000eb0| 61 74 20 74 68 65 20 62 | 65 67 69 6e 6e 69 6e 67 |at the b|eginning|
|00000ec0| 20 6f 66 20 74 68 65 20 | 66 69 65 6c 64 20 61 6e | of the |field an|
|00000ed0| 64 20 72 65 74 75 72 6e | 20 74 68 65 20 6e 65 77 |d return| the new|
|00000ee0| 20 61 72 72 61 79 20 72 | 6f 77 2e 22 5d 29 0a 28 | array r|ow."]).(|
|00000ef0| 66 73 65 74 20 27 61 72 | 72 61 79 2d 6d 6f 76 65 |fset 'ar|ray-move|
|00000f00| 2d 74 6f 2d 63 6f 6c 75 | 6d 6e 20 23 5b 28 61 2d |-to-colu|mn #[(a-|
|00000f10| 63 6f 6c 75 6d 6e 29 20 | 22 08 89 09 a6 5a 5c 6e |column) |"....Z\n|
|00000f20| ab 83 c3 aa 81 c4 c5 0e | 06 53 0e 07 5c 22 5c 5c |........|.S..\"\\|
|00000f30| 5c 5c 0e 08 0e 06 53 0e | 07 a6 5f 1e 09 89 1e 5c |\\....S.|.._....\|
|00000f40| 6e 08 5a 79 88 cb 0e 09 | 21 88 0e 06 2a 87 22 20 |n.Zy....|!...*." |
|00000f50| 5b 62 75 66 66 65 72 2d | 6c 69 6e 65 20 6c 69 6e |[buffer-|line lin|
|00000f60| 65 73 2d 70 65 72 2d 72 | 6f 77 20 72 6f 77 73 2d |es-per-r|ow rows-|
|00000f70| 6e 75 6d 62 65 72 65 64 | 20 31 20 30 20 61 72 72 |numbered| 1 0 arr|
|00000f80| 61 79 2d 6d 6f 64 65 2d | 66 6c 6f 6f 72 20 61 2d |ay-mode-|floor a-|
|00000f90| 63 6f 6c 75 6d 6e 20 63 | 6f 6c 75 6d 6e 73 2d 70 |column c|olumns-p|
|00000fa0| 65 72 2d 6c 69 6e 65 20 | 66 69 65 6c 64 2d 77 69 |er-line |field-wi|
|00000fb0| 64 74 68 20 67 6f 61 6c | 2d 63 6f 6c 75 6d 6e 20 |dth goal|-column |
|00000fc0| 67 6f 61 6c 2d 6c 69 6e | 65 20 6d 6f 76 65 2d 74 |goal-lin|e move-t|
|00000fd0| 6f 2d 63 6f 6c 75 6d 6e | 2d 75 6e 74 61 62 69 66 |o-column|-untabif|
|00000fe0| 79 5d 20 36 20 22 5c 0a | 4d 6f 76 65 20 74 6f 20 |y] 6 "\.|Move to |
|00000ff0| 61 72 72 61 79 20 63 6f | 6c 75 6d 6e 20 41 2d 43 |array co|lumn A-C|
|00001000| 4f 4c 55 4d 4e 20 70 72 | 65 73 65 72 76 69 6e 67 |OLUMN pr|eserving|
|00001010| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 61 72 72 | the cur|rent arr|
|00001020| 61 79 20 72 6f 77 2e 0a | 4c 65 61 76 65 20 70 6f |ay row..|Leave po|
|00001030| 69 6e 74 20 61 74 20 74 | 68 65 20 62 65 67 69 6e |int at t|he begin|
|00001040| 6e 69 6e 67 20 6f 66 20 | 74 68 65 20 66 69 65 6c |ning of |the fiel|
|00001050| 64 20 61 6e 64 20 72 65 | 74 75 72 6e 20 74 68 65 |d and re|turn the|
|00001060| 20 6e 65 77 20 61 72 72 | 61 79 20 63 6f 6c 75 6d | new arr|ay colum|
|00001070| 6e 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 61 72 72 |n."]).(f|set 'arr|
|00001080| 61 79 2d 6d 6f 76 65 2d | 6f 6e 65 2d 72 6f 77 20 |ay-move-|one-row |
|00001090| 23 5b 28 73 69 67 6e 29 | 20 22 c0 20 c1 20 ae 83 |#[(sign)| ". . ..|
|000010a0| c2 c3 21 1c 1d 0c 0e 06 | 55 ab 8b 0e 07 c8 55 ab |..!.....|U.....U.|
|000010b0| 85 c2 c9 21 aa 9f 0c c8 | 55 ab 8b 0e 07 ca 55 ab |...!....|U.....U.|
|000010c0| 85 c2 cb 21 aa 8f 0e 07 | 0e 0c 5f 79 88 cd 0d 21 |...!....|.._y...!|
|000010d0| 88 0c 0e 07 5c 5c 2a 87 | 22 20 5b 61 72 72 61 79 |....\\*.|" [array|
|000010e0| 2d 62 65 67 69 6e 6e 69 | 6e 67 2d 6f 66 2d 66 69 |-beginni|ng-of-fi|
|000010f0| 65 6c 64 20 61 72 72 61 | 79 2d 63 75 72 72 65 6e |eld arra|y-curren|
|00001100| 74 2d 72 6f 77 20 65 72 | 72 6f 72 20 22 43 75 72 |t-row er|ror "Cur|
|00001110| 73 6f 72 20 69 73 20 6e | 6f 74 20 69 6e 20 61 20 |sor is n|ot in a |
|00001120| 76 61 6c 69 64 20 61 72 | 72 61 79 20 63 65 6c 6c |valid ar|ray cell|
|00001130| 2e 22 20 61 72 72 61 79 | 2d 72 6f 77 20 67 6f 61 |." array|-row goa|
|00001140| 6c 2d 63 6f 6c 75 6d 6e | 20 6d 61 78 2d 72 6f 77 |l-column| max-row|
|00001150| 20 73 69 67 6e 20 31 20 | 22 45 6e 64 20 6f 66 20 | sign 1 |"End of |
|00001160| 61 72 72 61 79 2e 22 20 | 2d 31 20 22 42 65 67 69 |array." |-1 "Begi|
|00001170| 6e 6e 69 6e 67 20 6f 66 | 20 61 72 72 61 79 2e 22 |nning of| array."|
|00001180| 20 6c 69 6e 65 73 2d 70 | 65 72 2d 72 6f 77 20 6d | lines-p|er-row m|
|00001190| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 2d 75 6e |ove-to-c|olumn-un|
|000011a0| 74 61 62 69 66 79 5d 20 | 33 20 22 5c 0a 4d 6f 76 |tabify] |3 "\.Mov|
|000011b0| 65 20 6f 6e 65 20 61 72 | 72 61 79 20 72 6f 77 20 |e one ar|ray row |
|000011c0| 69 6e 20 64 69 72 65 63 | 74 69 6f 6e 20 53 49 47 |in direc|tion SIG|
|000011d0| 4e 20 28 31 20 6f 72 20 | 2d 31 29 2e 0a 4c 65 61 |N (1 or |-1)..Lea|
|000011e0| 76 65 20 70 6f 69 6e 74 | 20 61 74 20 74 68 65 20 |ve point| at the |
|000011f0| 62 65 67 69 6e 6e 69 6e | 67 20 6f 66 20 74 68 65 |beginnin|g of the|
|00001200| 20 66 69 65 6c 64 20 61 | 6e 64 20 72 65 74 75 72 | field a|nd retur|
|00001210| 6e 20 74 68 65 20 6e 65 | 77 20 61 72 72 61 79 20 |n the ne|w array |
|00001220| 72 6f 77 2e 0a 49 66 20 | 72 65 71 75 65 73 74 65 |row..If |requeste|
|00001230| 64 20 74 6f 20 6d 6f 76 | 65 20 62 65 79 6f 6e 64 |d to mov|e beyond|
|00001240| 20 74 68 65 20 61 72 72 | 61 79 20 62 6f 75 6e 64 | the arr|ay bound|
|00001250| 73 2c 20 73 69 67 6e 61 | 6c 20 61 6e 20 65 72 72 |s, signa|l an err|
|00001260| 6f 72 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 61 72 |or."]).(|fset 'ar|
|00001270| 72 61 79 2d 6d 6f 76 65 | 2d 6f 6e 65 2d 63 6f 6c |ray-move|-one-col|
|00001280| 75 6d 6e 20 23 5b 28 73 | 69 67 6e 29 20 22 c0 20 |umn #[(s|ign) ". |
|00001290| ae 83 c1 c2 21 89 1b 0c | 55 ab 8a 0d c6 55 ab 85 |....!...|U....U..|
|000012a0| c1 c7 21 aa c9 0b c6 55 | ab 8a 0d c8 55 ab 85 c1 |..!....U|....U...|
|000012b0| c9 21 aa ba 0d c8 55 ab | 96 0b 0e 5c 6e a6 c6 55 |.!....U.|...\n..U|
|000012c0| ab 8e c8 79 88 cb 0e 0c | 0e 5c 6e 53 5f 21 88 aa |...y....|.\nS_!..|
|000012d0| 9c 0d c6 55 ab 8d 0b 0e | 5c 6e a6 cd 55 ab 85 c6 |...U....|\n..U...|
|000012e0| 79 88 aa 8a cb ce 20 0e | 0c 0d 5f 5c 5c 21 88 0b |y..... .|.._\\!..|
|000012f0| 0d 5c 5c 29 87 22 20 5b | 61 72 72 61 79 2d 63 75 |.\\)." [|array-cu|
|00001300| 72 72 65 6e 74 2d 63 6f | 6c 75 6d 6e 20 65 72 72 |rrent-co|lumn err|
|00001310| 6f 72 20 22 43 75 72 73 | 6f 72 20 69 73 20 6e 6f |or "Curs|or is no|
|00001320| 74 20 69 6e 20 61 20 76 | 61 6c 69 64 20 61 72 72 |t in a v|alid arr|
|00001330| 61 79 20 63 65 6c 6c 2e | 22 20 61 72 72 61 79 2d |ay cell.|" array-|
|00001340| 63 6f 6c 75 6d 6e 20 6d | 61 78 2d 63 6f 6c 75 6d |column m|ax-colum|
|00001350| 6e 20 73 69 67 6e 20 31 | 20 22 45 6e 64 20 6f 66 |n sign 1| "End of|
|00001360| 20 61 72 72 61 79 2e 22 | 20 2d 31 20 22 42 65 67 | array."| -1 "Beg|
|00001370| 69 6e 6e 69 6e 67 20 6f | 66 20 61 72 72 61 79 2e |inning o|f array.|
|00001380| 22 20 63 6f 6c 75 6d 6e | 73 2d 70 65 72 2d 6c 69 |" column|s-per-li|
|00001390| 6e 65 20 6d 6f 76 65 2d | 74 6f 2d 63 6f 6c 75 6d |ne move-|to-colum|
|000013a0| 6e 2d 75 6e 74 61 62 69 | 66 79 20 66 69 65 6c 64 |n-untabi|fy field|
|000013b0| 2d 77 69 64 74 68 20 30 | 20 61 72 72 61 79 2d 62 |-width 0| array-b|
|000013c0| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 66 69 65 6c |eginning|-of-fiel|
|000013d0| 64 5d 20 35 20 22 5c 0a | 4d 6f 76 65 20 6f 6e 65 |d] 5 "\.|Move one|
|000013e0| 20 61 72 72 61 79 20 63 | 6f 6c 75 6d 6e 20 69 6e | array c|olumn in|
|000013f0| 20 64 69 72 65 63 74 69 | 6f 6e 20 53 49 47 4e 20 | directi|on SIGN |
|00001400| 28 31 20 6f 72 20 2d 31 | 29 2e 0a 4c 65 61 76 65 |(1 or -1|)..Leave|
|00001410| 20 70 6f 69 6e 74 20 61 | 74 20 74 68 65 20 62 65 | point a|t the be|
|00001420| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 66 |ginning |of the f|
|00001430| 69 65 6c 64 20 61 6e 64 | 20 72 65 74 75 72 6e 20 |ield and| return |
|00001440| 74 68 65 20 6e 65 77 20 | 61 72 72 61 79 20 63 6f |the new |array co|
|00001450| 6c 75 6d 6e 2e 0a 49 66 | 20 72 65 71 75 65 73 74 |lumn..If| request|
|00001460| 65 64 20 74 6f 20 6d 6f | 76 65 20 62 65 79 6f 6e |ed to mo|ve beyon|
|00001470| 64 20 74 68 65 20 61 72 | 72 61 79 20 62 6f 75 6e |d the ar|ray boun|
|00001480| 64 73 2c 20 73 69 67 6e | 61 6c 20 61 6e 20 65 72 |ds, sign|al an er|
|00001490| 72 6f 72 2e 22 5d 29 0a | 28 66 73 65 74 20 27 61 |ror."]).|(fset 'a|
|000014a0| 72 72 61 79 2d 6e 6f 72 | 6d 61 6c 69 7a 65 2d 63 |rray-nor|malize-c|
|000014b0| 75 72 73 6f 72 20 23 5b | 6e 69 6c 20 22 69 18 c1 |ursor #[|nil "i..|
|000014c0| 8a c2 c3 21 88 60 29 53 | 77 88 c4 20 29 87 22 20 |...!.`)S|w.. )." |
|000014d0| 5b 62 75 66 66 65 72 2d | 63 6f 6c 75 6d 6e 20 22 |[buffer-|column "|
|000014e0| 20 09 22 20 61 72 72 61 | 79 2d 65 6e 64 2d 6f 66 | ." arra|y-end-of|
|000014f0| 2d 66 69 65 6c 64 20 74 | 20 61 72 72 61 79 2d 6d |-field t| array-m|
|00001500| 61 79 62 65 2d 73 63 72 | 6f 6c 6c 2d 68 6f 72 69 |aybe-scr|oll-hori|
|00001510| 7a 6f 6e 74 61 6c 6c 79 | 5d 20 33 20 22 5c 0a 4d |zontally|] 3 "\.M|
|00001520| 6f 76 65 20 74 68 65 20 | 63 75 72 73 6f 72 20 74 |ove the |cursor t|
|00001530| 6f 20 74 68 65 20 66 69 | 72 73 74 20 6e 6f 6e 2d |o the fi|rst non-|
|00001540| 77 68 69 74 65 73 70 61 | 63 65 20 63 68 61 72 61 |whitespa|ce chara|
|00001550| 63 74 65 72 20 69 6e 20 | 74 68 65 20 66 69 65 6c |cter in |the fiel|
|00001560| 64 20 61 6e 64 2c 0a 69 | 66 20 6e 65 63 65 73 73 |d and,.i|f necess|
|00001570| 61 72 79 2c 20 73 63 72 | 6f 6c 6c 20 68 6f 72 69 |ary, scr|oll hori|
|00001580| 7a 6f 6e 74 61 6c 6c 79 | 20 74 6f 20 6b 65 65 70 |zontally| to keep|
|00001590| 20 74 68 65 20 63 75 72 | 73 6f 72 20 69 6e 20 76 | the cur|sor in v|
|000015a0| 69 65 77 2e 22 5d 29 0a | 28 66 73 65 74 20 27 61 |iew."]).|(fset 'a|
|000015b0| 72 72 61 79 2d 6d 61 79 | 62 65 2d 73 63 72 6f 6c |rray-may|be-scrol|
|000015c0| 6c 2d 68 6f 72 69 7a 6f | 6e 74 61 6c 6c 79 20 23 |l-horizo|ntally #|
|000015d0| 5b 6e 69 6c 20 22 c0 20 | c1 20 1a 1b 0c 0b 59 ab |[nil ". |. ....Y.|
|000015e0| 8a 0c 0b 5c 6e 5c 5c 58 | ab 83 c5 aa 9b 0c 0b 5c |...\n\\X|.......\|
|000015f0| 6e 5c 5c 56 ab 8b c6 0c | 0b 5a 5c 6e c7 a5 5a 21 |n\\V....|.Z\n..Z!|
|00001600| aa 89 c8 0b 0c 5a 5c 6e | c7 a5 5c 5c 21 2a 87 22 |.....Z\n|..\\!*."|
|00001610| 20 5b 77 69 6e 64 6f 77 | 2d 68 73 63 72 6f 6c 6c | [window|-hscroll|
|00001620| 20 77 69 6e 64 6f 77 2d | 77 69 64 74 68 20 77 2d | window-|width w-|
|00001630| 77 69 64 74 68 20 77 2d | 68 73 63 72 6f 6c 6c 20 |width w-|hscroll |
|00001640| 62 75 66 66 65 72 2d 63 | 6f 6c 75 6d 6e 20 6e 69 |buffer-c|olumn ni|
|00001650| 6c 20 73 63 72 6f 6c 6c | 2d 6c 65 66 74 20 32 20 |l scroll|-left 2 |
|00001660| 73 63 72 6f 6c 6c 2d 72 | 69 67 68 74 5d 20 34 20 |scroll-r|ight] 4 |
|00001670| 22 5c 0a 49 66 20 6e 65 | 63 65 73 73 61 72 79 2c |"\.If ne|cessary,|
|00001680| 20 73 63 72 6f 6c 6c 20 | 68 6f 72 69 7a 6f 6e 74 | scroll |horizont|
|00001690| 61 6c 6c 79 20 74 6f 20 | 6b 65 65 70 20 74 68 65 |ally to |keep the|
|000016a0| 20 63 75 72 73 6f 72 20 | 69 6e 20 76 69 65 77 2e | cursor |in view.|
|000016b0| 22 5d 29 0a 28 66 73 65 | 74 20 27 61 72 72 61 79 |"]).(fse|t 'array|
|000016c0| 2d 6e 65 78 74 2d 72 6f | 77 20 23 5b 28 26 6f 70 |-next-ro|w #[(&op|
|000016d0| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 c0 20 69 |tional a|rg) ". i|
|000016e0| 19 1a c3 0c 21 c5 55 ab | 86 c6 0c 21 88 aa 90 c7 |....!.U.|...!....|
|000016f0| c8 c9 20 ae 83 ca cb 21 | 0c 5c 5c 0e 0c 5c 22 21 |.. ....!|.\\..\"!|
|00001700| 88 2a cd 20 87 22 20 5b | 63 75 72 72 65 6e 74 2d |.*. ." [|current-|
|00001710| 6c 69 6e 65 20 62 75 66 | 66 65 72 2d 63 6f 6c 75 |line buf|fer-colu|
|00001720| 6d 6e 20 62 75 66 66 65 | 72 2d 6c 69 6e 65 20 61 |mn buffe|r-line a|
|00001730| 62 73 20 61 72 67 20 31 | 20 61 72 72 61 79 2d 6d |bs arg 1| array-m|
|00001740| 6f 76 65 2d 6f 6e 65 2d | 72 6f 77 20 61 72 72 61 |ove-one-|row arra|
|00001750| 79 2d 6d 6f 76 65 2d 74 | 6f 2d 72 6f 77 20 61 72 |y-move-t|o-row ar|
|00001760| 72 61 79 2d 6d 6f 64 65 | 2d 6c 69 6d 69 74 2d 69 |ray-mode|-limit-i|
|00001770| 6e 64 65 78 20 61 72 72 | 61 79 2d 63 75 72 72 65 |ndex arr|ay-curre|
|00001780| 6e 74 2d 72 6f 77 20 65 | 72 72 6f 72 20 22 43 75 |nt-row e|rror "Cu|
|00001790| 72 73 6f 72 20 69 73 20 | 6e 6f 74 20 69 6e 20 61 |rsor is |not in a|
|000017a0| 6e 20 61 72 72 61 79 20 | 63 65 6c 6c 2e 22 20 6d |n array |cell." m|
|000017b0| 61 78 2d 72 6f 77 20 61 | 72 72 61 79 2d 6e 6f 72 |ax-row a|rray-nor|
|000017c0| 6d 61 6c 69 7a 65 2d 63 | 75 72 73 6f 72 5d 20 34 |malize-c|ursor] 4|
|000017d0| 20 22 5c 0a 4d 6f 76 65 | 20 64 6f 77 6e 20 6f 6e | "\.Move| down on|
|000017e0| 65 20 61 72 72 61 79 20 | 72 6f 77 2c 20 73 74 61 |e array |row, sta|
|000017f0| 79 69 6e 67 20 69 6e 20 | 74 68 65 20 63 75 72 72 |ying in |the curr|
|00001800| 65 6e 74 20 61 72 72 61 | 79 20 63 6f 6c 75 6d 6e |ent arra|y column|
|00001810| 2e 0a 49 66 20 6f 70 74 | 69 6f 6e 61 6c 20 41 52 |..If opt|ional AR|
|00001820| 47 20 69 73 20 67 69 76 | 65 6e 2c 20 6d 6f 76 65 |G is giv|en, move|
|00001830| 20 64 6f 77 6e 20 41 52 | 47 20 61 72 72 61 79 20 | down AR|G array |
|00001840| 72 6f 77 73 2e 22 20 22 | 70 22 5d 29 0a 28 66 73 |rows." "|p"]).(fs|
|00001850| 65 74 20 27 61 72 72 61 | 79 2d 70 72 65 76 69 6f |et 'arra|y-previo|
|00001860| 75 73 2d 72 6f 77 20 23 | 5b 28 26 6f 70 74 69 6f |us-row #|[(&optio|
|00001870| 6e 61 6c 20 61 72 67 29 | 20 22 c0 09 5b 21 87 22 |nal arg)| "..[!."|
|00001880| 20 5b 61 72 72 61 79 2d | 6e 65 78 74 2d 72 6f 77 | [array-|next-row|
|00001890| 20 61 72 67 5d 20 32 20 | 22 5c 0a 4d 6f 76 65 20 | arg] 2 |"\.Move |
|000018a0| 75 70 20 6f 6e 65 20 61 | 72 72 61 79 20 72 6f 77 |up one a|rray row|
|000018b0| 2c 20 73 74 61 79 69 6e | 67 20 69 6e 20 74 68 65 |, stayin|g in the|
|000018c0| 20 63 75 72 72 65 6e 74 | 20 61 72 72 61 79 20 63 | current| array c|
|000018d0| 6f 6c 75 6d 6e 2e 0a 49 | 66 20 6f 70 74 69 6f 6e |olumn..I|f option|
|000018e0| 61 6c 20 41 52 47 20 69 | 73 20 67 69 76 65 6e 2c |al ARG i|s given,|
|000018f0| 20 6d 6f 76 65 20 75 70 | 20 41 52 47 20 61 72 72 | move up| ARG arr|
|00001900| 61 79 20 72 6f 77 73 2e | 22 20 22 70 22 5d 29 0a |ay rows.|" "p"]).|
|00001910| 28 66 73 65 74 20 27 61 | 72 72 61 79 2d 66 6f 72 |(fset 'a|rray-for|
|00001920| 77 61 72 64 2d 63 6f 6c | 75 6d 6e 20 23 5b 28 26 |ward-col|umn #[(&|
|00001930| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 22 c0 |optional| arg) ".|
|00001940| 20 69 19 1a c3 0c 21 c5 | 55 ab 86 c6 0c 21 88 aa | i....!.|U....!..|
|00001950| 90 c7 c8 c9 20 ae 83 ca | cb 21 0c 5c 5c 0e 0c 5c |.... ...|.!.\\..\|
|00001960| 22 21 88 2a cd 20 87 22 | 20 5b 63 75 72 72 65 6e |"!.*. ."| [curren|
|00001970| 74 2d 6c 69 6e 65 20 62 | 75 66 66 65 72 2d 63 6f |t-line b|uffer-co|
|00001980| 6c 75 6d 6e 20 62 75 66 | 66 65 72 2d 6c 69 6e 65 |lumn buf|fer-line|
|00001990| 20 61 62 73 20 61 72 67 | 20 31 20 61 72 72 61 79 | abs arg| 1 array|
|000019a0| 2d 6d 6f 76 65 2d 6f 6e | 65 2d 63 6f 6c 75 6d 6e |-move-on|e-column|
|000019b0| 20 61 72 72 61 79 2d 6d | 6f 76 65 2d 74 6f 2d 63 | array-m|ove-to-c|
|000019c0| 6f 6c 75 6d 6e 20 61 72 | 72 61 79 2d 6d 6f 64 65 |olumn ar|ray-mode|
|000019d0| 2d 6c 69 6d 69 74 2d 69 | 6e 64 65 78 20 61 72 72 |-limit-i|ndex arr|
|000019e0| 61 79 2d 63 75 72 72 65 | 6e 74 2d 63 6f 6c 75 6d |ay-curre|nt-colum|
|000019f0| 6e 20 65 72 72 6f 72 20 | 22 43 75 72 73 6f 72 20 |n error |"Cursor |
|00001a00| 69 73 20 6e 6f 74 20 69 | 6e 20 61 6e 20 61 72 72 |is not i|n an arr|
|00001a10| 61 79 20 63 65 6c 6c 2e | 22 20 6d 61 78 2d 63 6f |ay cell.|" max-co|
|00001a20| 6c 75 6d 6e 20 61 72 72 | 61 79 2d 6e 6f 72 6d 61 |lumn arr|ay-norma|
|00001a30| 6c 69 7a 65 2d 63 75 72 | 73 6f 72 5d 20 34 20 22 |lize-cur|sor] 4 "|
|00001a40| 5c 0a 4d 6f 76 65 20 66 | 6f 72 77 61 72 64 20 6f |\.Move f|orward o|
|00001a50| 6e 65 20 66 69 65 6c 64 | 2c 20 73 74 61 79 69 6e |ne field|, stayin|
|00001a60| 67 20 69 6e 20 74 68 65 | 20 63 75 72 72 65 6e 74 |g in the| current|
|00001a70| 20 61 72 72 61 79 20 72 | 6f 77 2e 0a 49 66 20 6f | array r|ow..If o|
|00001a80| 70 74 69 6f 6e 61 6c 20 | 41 52 47 20 69 73 20 67 |ptional |ARG is g|
|00001a90| 69 76 65 6e 2c 20 6d 6f | 76 65 20 66 6f 72 77 61 |iven, mo|ve forwa|
|00001aa0| 72 64 20 41 52 47 20 61 | 72 72 61 79 20 63 6f 6c |rd ARG a|rray col|
|00001ab0| 75 6d 6e 73 2e 0a 49 66 | 20 6e 65 63 65 73 73 61 |umns..If| necessa|
|00001ac0| 72 79 2c 20 6b 65 65 70 | 20 74 68 65 20 63 75 72 |ry, keep| the cur|
|00001ad0| 73 6f 72 20 69 6e 20 74 | 68 65 20 77 69 6e 64 6f |sor in t|he windo|
|00001ae0| 77 20 62 79 20 73 63 72 | 6f 6c 6c 69 6e 67 20 72 |w by scr|olling r|
|00001af0| 69 67 68 74 20 6f 72 20 | 6c 65 66 74 2e 22 20 22 |ight or |left." "|
|00001b00| 70 22 5d 29 0a 28 66 73 | 65 74 20 27 61 72 72 61 |p"]).(fs|et 'arra|
|00001b10| 79 2d 62 61 63 6b 77 61 | 72 64 2d 63 6f 6c 75 6d |y-backwa|rd-colum|
|00001b20| 6e 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |n #[(&op|tional a|
|00001b30| 72 67 29 20 22 c0 09 5b | 21 87 22 20 5b 61 72 72 |rg) "..[|!." [arr|
|00001b40| 61 79 2d 66 6f 72 77 61 | 72 64 2d 63 6f 6c 75 6d |ay-forwa|rd-colum|
|00001b50| 6e 20 61 72 67 5d 20 32 | 20 22 5c 0a 4d 6f 76 65 |n arg] 2| "\.Move|
|00001b60| 20 62 61 63 6b 77 61 72 | 64 20 6f 6e 65 20 66 69 | backwar|d one fi|
|00001b70| 65 6c 64 2c 20 73 74 61 | 79 69 6e 67 20 69 6e 20 |eld, sta|ying in |
|00001b80| 74 68 65 20 63 75 72 72 | 65 6e 74 20 61 72 72 61 |the curr|ent arra|
|00001b90| 79 20 72 6f 77 2e 0a 49 | 66 20 6f 70 74 69 6f 6e |y row..I|f option|
|00001ba0| 61 6c 20 41 52 47 20 69 | 73 20 67 69 76 65 6e 2c |al ARG i|s given,|
|00001bb0| 20 6d 6f 76 65 20 62 61 | 63 6b 77 61 72 64 20 41 | move ba|ckward A|
|00001bc0| 52 47 20 61 72 72 61 79 | 20 63 6f 6c 75 6d 6e 73 |RG array| columns|
|00001bd0| 2e 0a 49 66 20 6e 65 63 | 65 73 73 61 72 79 2c 20 |..If nec|essary, |
|00001be0| 6b 65 65 70 20 74 68 65 | 20 63 75 72 73 6f 72 20 |keep the| cursor |
|00001bf0| 69 6e 20 74 68 65 20 77 | 69 6e 64 6f 77 20 62 79 |in the w|indow by|
|00001c00| 20 73 63 72 6f 6c 6c 69 | 6e 67 20 72 69 67 68 74 | scrolli|ng right|
|00001c10| 20 6f 72 20 6c 65 66 74 | 2e 22 20 22 70 22 5d 29 | or left|." "p"])|
|00001c20| 0a 28 66 73 65 74 20 27 | 61 72 72 61 79 2d 67 6f |.(fset '|array-go|
|00001c30| 74 6f 2d 63 65 6c 6c 20 | 23 5b 28 61 2d 72 6f 77 |to-cell |#[(a-row|
|00001c40| 20 61 2d 63 6f 6c 75 6d | 6e 29 20 22 c0 c1 5c 6e | a-colum|n) "..\n|
|00001c50| 0b 5c 22 c1 0c 0d 5c 22 | 5c 22 88 c6 20 87 22 20 |.\"...\"|\".. ." |
|00001c60| 5b 61 72 72 61 79 2d 6d | 6f 76 65 2d 74 6f 2d 63 |[array-m|ove-to-c|
|00001c70| 65 6c 6c 20 61 72 72 61 | 79 2d 6d 6f 64 65 2d 6c |ell arra|y-mode-l|
|00001c80| 69 6d 69 74 2d 69 6e 64 | 65 78 20 61 2d 72 6f 77 |imit-ind|ex a-row|
|00001c90| 20 6d 61 78 2d 72 6f 77 | 20 61 2d 63 6f 6c 75 6d | max-row| a-colum|
|00001ca0| 6e 20 6d 61 78 2d 63 6f | 6c 75 6d 6e 20 61 72 72 |n max-co|lumn arr|
|00001cb0| 61 79 2d 6e 6f 72 6d 61 | 6c 69 7a 65 2d 63 75 72 |ay-norma|lize-cur|
|00001cc0| 73 6f 72 5d 20 35 20 22 | 5c 0a 47 6f 20 74 6f 20 |sor] 5 "|\.Go to |
|00001cd0| 61 72 72 61 79 20 72 6f | 77 20 41 2d 52 4f 57 20 |array ro|w A-ROW |
|00001ce0| 61 6e 64 20 61 72 72 61 | 79 20 63 6f 6c 75 6d 6e |and arra|y column|
|00001cf0| 20 41 2d 43 4f 4c 55 4d | 4e 2e 22 20 22 6e 41 72 | A-COLUM|N." "nAr|
|00001d00| 72 61 79 20 72 6f 77 3a | 20 5c 6e 6e 41 72 72 61 |ray row:| \nnArra|
|00001d10| 79 20 63 6f 6c 75 6d 6e | 3a 20 22 5d 29 0a 28 66 |y column|: "]).(f|
|00001d20| 73 65 74 20 27 61 72 72 | 61 79 2d 66 69 65 6c 64 |set 'arr|ay-field|
|00001d30| 2d 73 74 72 69 6e 67 20 | 23 5b 6e 69 6c 20 22 8a |-string |#[nil ".|
|00001d40| c0 c1 21 88 60 29 8a c2 | c1 21 88 60 29 7b 87 22 |..!.`)..|.!.`){."|
|00001d50| 20 5b 61 72 72 61 79 2d | 62 65 67 69 6e 6e 69 6e | [array-|beginnin|
|00001d60| 67 2d 6f 66 2d 66 69 65 | 6c 64 20 74 20 61 72 72 |g-of-fie|ld t arr|
|00001d70| 61 79 2d 65 6e 64 2d 6f | 66 2d 66 69 65 6c 64 5d |ay-end-o|f-field]|
|00001d80| 20 33 20 22 5c 0a 52 65 | 74 75 72 6e 20 74 68 65 | 3 "\.Re|turn the|
|00001d90| 20 66 69 65 6c 64 20 73 | 74 72 69 6e 67 20 61 74 | field s|tring at|
|00001da0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 63 75 72 | the cur|rent cur|
|00001db0| 73 6f 72 20 6c 6f 63 61 | 74 69 6f 6e 2e 22 5d 29 |sor loca|tion."])|
|00001dc0| 0a 28 66 73 65 74 20 27 | 61 72 72 61 79 2d 63 6f |.(fset '|array-co|
|00001dd0| 70 79 2d 6f 6e 63 65 2d | 76 65 72 74 69 63 61 6c |py-once-|vertical|
|00001de0| 6c 79 20 23 5b 28 73 69 | 67 6e 29 20 22 c0 09 21 |ly #[(si|gn) "..!|
|00001df0| 1a c3 1c 60 8a c5 c3 21 | 88 60 29 7c 88 0e 06 63 |...`...!|.`)|...c|
|00001e00| 88 29 c7 0e 08 21 88 5c | 6e 29 87 22 20 5b 61 72 |.)...!.\|n)." [ar|
|00001e10| 72 61 79 2d 6d 6f 76 65 | 2d 6f 6e 65 2d 72 6f 77 |ray-move|-one-row|
|00001e20| 20 73 69 67 6e 20 61 2d | 72 6f 77 20 74 20 69 6e | sign a-|row t in|
|00001e30| 68 69 62 69 74 2d 71 75 | 69 74 20 61 72 72 61 79 |hibit-qu|it array|
|00001e40| 2d 65 6e 64 2d 6f 66 2d | 66 69 65 6c 64 20 63 6f |-end-of-|field co|
|00001e50| 70 79 2d 73 74 72 69 6e | 67 20 6d 6f 76 65 2d 74 |py-strin|g move-t|
|00001e60| 6f 2d 63 6f 6c 75 6d 6e | 20 62 75 66 66 65 72 2d |o-column| buffer-|
|00001e70| 63 6f 6c 75 6d 6e 5d 20 | 33 20 22 5c 0a 43 6f 70 |column] |3 "\.Cop|
|00001e80| 79 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 66 69 |y the cu|rrent fi|
|00001e90| 65 6c 64 20 69 6e 74 6f | 20 6f 6e 65 20 61 72 72 |eld into| one arr|
|00001ea0| 61 79 20 72 6f 77 20 69 | 6e 20 64 69 72 65 63 74 |ay row i|n direct|
|00001eb0| 69 6f 6e 20 53 49 47 4e | 20 28 31 20 6f 72 20 2d |ion SIGN| (1 or -|
|00001ec0| 31 29 2e 0a 4c 65 61 76 | 65 20 70 6f 69 6e 74 20 |1)..Leav|e point |
|00001ed0| 61 74 20 74 68 65 20 62 | 65 67 69 6e 6e 69 6e 67 |at the b|eginning|
|00001ee0| 20 6f 66 20 74 68 65 20 | 66 69 65 6c 64 20 61 6e | of the |field an|
|00001ef0| 64 20 72 65 74 75 72 6e | 20 74 68 65 20 6e 65 77 |d return| the new|
|00001f00| 20 61 72 72 61 79 20 72 | 6f 77 2e 0a 49 66 20 72 | array r|ow..If r|
|00001f10| 65 71 75 65 73 74 65 64 | 20 74 6f 20 6d 6f 76 65 |equested| to move|
|00001f20| 20 62 65 79 6f 6e 64 20 | 74 68 65 20 61 72 72 61 | beyond |the arra|
|00001f30| 79 20 62 6f 75 6e 64 73 | 2c 20 73 69 67 6e 61 6c |y bounds|, signal|
|00001f40| 20 61 6e 20 65 72 72 6f | 72 2e 22 5d 29 0a 28 66 | an erro|r."]).(f|
|00001f50| 73 65 74 20 27 61 72 72 | 61 79 2d 63 6f 70 79 2d |set 'arr|ay-copy-|
|00001f60| 6f 6e 63 65 2d 68 6f 72 | 69 7a 6f 6e 74 61 6c 6c |once-hor|izontall|
|00001f70| 79 20 23 5b 28 73 69 67 | 6e 29 20 22 c0 09 21 1a |y #[(sig|n) "..!.|
|00001f80| c3 20 88 c4 1d 60 8a c6 | c4 21 88 60 29 7c 88 0e |. ...`..|.!.`)|..|
|00001f90| 07 63 88 29 c8 0e 09 21 | 88 5c 6e 29 87 22 20 5b |.c.)...!|.\n)." [|
|00001fa0| 61 72 72 61 79 2d 6d 6f | 76 65 2d 6f 6e 65 2d 63 |array-mo|ve-one-c|
|00001fb0| 6f 6c 75 6d 6e 20 73 69 | 67 6e 20 61 2d 63 6f 6c |olumn si|gn a-col|
|00001fc0| 75 6d 6e 20 61 72 72 61 | 79 2d 75 70 64 61 74 65 |umn arra|y-update|
|00001fd0| 2d 62 75 66 66 65 72 2d | 70 6f 73 69 74 69 6f 6e |-buffer-|position|
|00001fe0| 20 74 20 69 6e 68 69 62 | 69 74 2d 71 75 69 74 20 | t inhib|it-quit |
|00001ff0| 61 72 72 61 79 2d 65 6e | 64 2d 6f 66 2d 66 69 65 |array-en|d-of-fie|
|00002000| 6c 64 20 63 6f 70 79 2d | 73 74 72 69 6e 67 20 6d |ld copy-|string m|
|00002010| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 20 62 75 |ove-to-c|olumn bu|
|00002020| 66 66 65 72 2d 63 6f 6c | 75 6d 6e 5d 20 33 20 22 |ffer-col|umn] 3 "|
|00002030| 5c 0a 43 6f 70 79 20 74 | 68 65 20 63 75 72 72 65 |\.Copy t|he curre|
|00002040| 6e 74 20 66 69 65 6c 64 | 20 69 6e 74 6f 20 6f 6e |nt field| into on|
|00002050| 65 20 61 72 72 61 79 20 | 63 6f 6c 75 6d 6e 20 69 |e array |column i|
|00002060| 6e 20 64 69 72 65 63 74 | 69 6f 6e 20 53 49 47 4e |n direct|ion SIGN|
|00002070| 20 28 31 20 6f 72 20 2d | 31 29 2e 0a 4c 65 61 76 | (1 or -|1)..Leav|
|00002080| 65 20 70 6f 69 6e 74 20 | 61 74 20 74 68 65 20 62 |e point |at the b|
|00002090| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |eginning| of the |
|000020a0| 66 69 65 6c 64 20 61 6e | 64 20 72 65 74 75 72 6e |field an|d return|
|000020b0| 20 74 68 65 20 6e 65 77 | 20 61 72 72 61 79 20 63 | the new| array c|
|000020c0| 6f 6c 75 6d 6e 2e 0a 49 | 66 20 72 65 71 75 65 73 |olumn..I|f reques|
|000020d0| 74 65 64 20 74 6f 20 6d | 6f 76 65 20 62 65 79 6f |ted to m|ove beyo|
|000020e0| 6e 64 20 74 68 65 20 61 | 72 72 61 79 20 62 6f 75 |nd the a|rray bou|
|000020f0| 6e 64 73 2c 20 73 69 67 | 6e 61 6c 20 61 6e 20 65 |nds, sig|nal an e|
|00002100| 72 72 6f 72 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |rror."])|.(fset '|
|00002110| 61 72 72 61 79 2d 63 6f | 70 79 2d 74 6f 2d 72 6f |array-co|py-to-ro|
|00002120| 77 20 23 5b 28 61 2d 72 | 6f 77 29 20 22 08 09 5a |w #[(a-r|ow) "..Z|
|00002130| 1a c3 5c 6e 21 89 1c c5 | 55 3f ad 83 5c 6e 0c a5 |..\n!...|U?..\n..|
|00002140| 1e 06 0c c5 56 ad a5 c7 | 0e 06 21 88 c8 20 88 c9 |....V...|..!.. ..|
|00002150| 1e 5c 6e 60 8a cb c9 21 | 88 60 29 7c 88 0e 0c 63 |.\n`...!|.`)|...c|
|00002160| 88 29 cd 0e 0e 21 88 0c | 53 89 14 aa 57 2b 87 22 |.)...!..|S...W+."|
|00002170| 20 5b 61 2d 72 6f 77 20 | 61 72 72 61 79 2d 72 6f | [a-row |array-ro|
|00002180| 77 20 6e 75 6d 20 61 62 | 73 20 63 6f 75 6e 74 20 |w num ab|s count |
|00002190| 30 20 73 69 67 6e 20 61 | 72 72 61 79 2d 6d 6f 76 |0 sign a|rray-mov|
|000021a0| 65 2d 6f 6e 65 2d 72 6f | 77 20 61 72 72 61 79 2d |e-one-ro|w array-|
|000021b0| 75 70 64 61 74 65 2d 62 | 75 66 66 65 72 2d 70 6f |update-b|uffer-po|
|000021c0| 73 69 74 69 6f 6e 20 74 | 20 69 6e 68 69 62 69 74 |sition t| inhibit|
|000021d0| 2d 71 75 69 74 20 61 72 | 72 61 79 2d 65 6e 64 2d |-quit ar|ray-end-|
|000021e0| 6f 66 2d 66 69 65 6c 64 | 20 63 6f 70 79 2d 73 74 |of-field| copy-st|
|000021f0| 72 69 6e 67 20 6d 6f 76 | 65 2d 74 6f 2d 63 6f 6c |ring mov|e-to-col|
|00002200| 75 6d 6e 20 62 75 66 66 | 65 72 2d 63 6f 6c 75 6d |umn buff|er-colum|
|00002210| 6e 5d 20 34 20 22 5c 0a | 43 6f 70 79 20 74 68 65 |n] 4 "\.|Copy the|
|00002220| 20 63 75 72 72 65 6e 74 | 20 66 69 65 6c 64 20 76 | current| field v|
|00002230| 65 72 74 69 63 61 6c 6c | 79 20 69 6e 74 6f 20 65 |erticall|y into e|
|00002240| 76 65 72 79 20 63 65 6c | 6c 20 75 70 20 74 6f 20 |very cel|l up to |
|00002250| 61 6e 64 20 69 6e 63 6c | 75 64 69 6e 67 20 41 2d |and incl|uding A-|
|00002260| 52 4f 57 2e 0a 4c 65 61 | 76 65 20 70 6f 69 6e 74 |ROW..Lea|ve point|
|00002270| 20 61 74 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e | at the |beginnin|
|00002280| 67 20 6f 66 20 74 68 65 | 20 66 69 65 6c 64 2e 22 |g of the| field."|
|00002290| 5d 29 0a 28 66 73 65 74 | 20 27 61 72 72 61 79 2d |]).(fset| 'array-|
|000022a0| 63 6f 70 79 2d 74 6f 2d | 63 6f 6c 75 6d 6e 20 23 |copy-to-|column #|
|000022b0| 5b 28 61 2d 63 6f 6c 75 | 6d 6e 29 20 22 08 09 5a |[(a-colu|mn) "..Z|
|000022c0| 1a c3 5c 6e 21 89 1c c5 | 55 3f ad 83 5c 6e 0c a5 |..\n!...|U?..\n..|
|000022d0| 1e 06 0c c5 56 ad a5 c7 | 0e 06 21 88 c8 20 88 c9 |....V...|..!.. ..|
|000022e0| 1e 5c 6e 60 8a cb c9 21 | 88 60 29 7c 88 0e 0c 63 |.\n`...!|.`)|...c|
|000022f0| 88 29 cd 0e 0e 21 88 0c | 53 89 14 aa 57 2b 87 22 |.)...!..|S...W+."|
|00002300| 20 5b 61 2d 63 6f 6c 75 | 6d 6e 20 61 72 72 61 79 | [a-colu|mn array|
|00002310| 2d 63 6f 6c 75 6d 6e 20 | 6e 75 6d 20 61 62 73 20 |-column |num abs |
|00002320| 63 6f 75 6e 74 20 30 20 | 73 69 67 6e 20 61 72 72 |count 0 |sign arr|
|00002330| 61 79 2d 6d 6f 76 65 2d | 6f 6e 65 2d 63 6f 6c 75 |ay-move-|one-colu|
|00002340| 6d 6e 20 61 72 72 61 79 | 2d 75 70 64 61 74 65 2d |mn array|-update-|
|00002350| 62 75 66 66 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |buffer-p|osition |
|00002360| 74 20 69 6e 68 69 62 69 | 74 2d 71 75 69 74 20 61 |t inhibi|t-quit a|
|00002370| 72 72 61 79 2d 65 6e 64 | 2d 6f 66 2d 66 69 65 6c |rray-end|-of-fiel|
|00002380| 64 20 63 6f 70 79 2d 73 | 74 72 69 6e 67 20 6d 6f |d copy-s|tring mo|
|00002390| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 20 62 75 66 |ve-to-co|lumn buf|
|000023a0| 66 65 72 2d 63 6f 6c 75 | 6d 6e 5d 20 34 20 22 5c |fer-colu|mn] 4 "\|
|000023b0| 0a 43 6f 70 79 20 74 68 | 65 20 63 75 72 72 65 6e |.Copy th|e curren|
|000023c0| 74 20 66 69 65 6c 64 20 | 68 6f 72 69 7a 6f 6e 74 |t field |horizont|
|000023d0| 61 6c 6c 79 20 69 6e 74 | 6f 20 65 76 65 72 79 20 |ally int|o every |
|000023e0| 63 65 6c 6c 20 75 70 20 | 74 6f 20 61 6e 64 20 69 |cell up |to and i|
|000023f0| 6e 63 6c 75 64 69 6e 67 | 20 41 2d 43 4f 4c 55 4d |ncluding| A-COLUM|
|00002400| 4e 2e 0a 4c 65 61 76 65 | 20 70 6f 69 6e 74 20 61 |N..Leave| point a|
|00002410| 74 20 74 68 65 20 62 65 | 67 69 6e 6e 69 6e 67 20 |t the be|ginning |
|00002420| 6f 66 20 74 68 65 20 66 | 69 65 6c 64 2e 22 5d 29 |of the f|ield."])|
|00002430| 0a 28 66 73 65 74 20 27 | 61 72 72 61 79 2d 63 6f |.(fset '|array-co|
|00002440| 70 79 2d 74 6f 2d 63 65 | 6c 6c 20 23 5b 28 61 2d |py-to-ce|ll #[(a-|
|00002450| 72 6f 77 20 61 2d 63 6f | 6c 75 6d 6e 29 20 22 c0 |row a-co|lumn) ".|
|00002460| 09 5c 6e 5c 22 88 c3 20 | 88 60 8a c4 c5 21 88 60 |.\n\".. |.`...!.`|
|00002470| 29 7c 88 0e 06 63 88 c7 | 0e 08 21 87 22 20 5b 61 |)|...c..|..!." [a|
|00002480| 72 72 61 79 2d 6d 6f 76 | 65 2d 74 6f 2d 63 65 6c |rray-mov|e-to-cel|
|00002490| 6c 20 61 2d 72 6f 77 20 | 61 2d 63 6f 6c 75 6d 6e |l a-row |a-column|
|000024a0| 20 61 72 72 61 79 2d 75 | 70 64 61 74 65 2d 62 75 | array-u|pdate-bu|
|000024b0| 66 66 65 72 2d 70 6f 73 | 69 74 69 6f 6e 20 61 72 |ffer-pos|ition ar|
|000024c0| 72 61 79 2d 65 6e 64 2d | 6f 66 2d 66 69 65 6c 64 |ray-end-|of-field|
|000024d0| 20 74 20 63 6f 70 79 2d | 73 74 72 69 6e 67 20 6d | t copy-|string m|
|000024e0| 6f 76 65 2d 74 6f 2d 63 | 6f 6c 75 6d 6e 20 62 75 |ove-to-c|olumn bu|
|000024f0| 66 66 65 72 2d 63 6f 6c | 75 6d 6e 5d 20 33 20 22 |ffer-col|umn] 3 "|
|00002500| 5c 0a 43 6f 70 79 20 74 | 68 65 20 63 75 72 72 65 |\.Copy t|he curre|
|00002510| 6e 74 20 66 69 65 6c 64 | 20 69 6e 74 6f 20 74 68 |nt field| into th|
|00002520| 65 20 63 65 6c 6c 20 61 | 74 20 41 2d 52 4f 57 2c |e cell a|t A-ROW,|
|00002530| 20 41 2d 43 4f 4c 55 4d | 4e 2e 0a 4c 65 61 76 65 | A-COLUM|N..Leave|
|00002540| 20 70 6f 69 6e 74 20 61 | 74 20 74 68 65 20 62 65 | point a|t the be|
|00002550| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 66 |ginning |of the f|
|00002560| 69 65 6c 64 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |ield."])|.(fset '|
|00002570| 61 72 72 61 79 2d 63 6f | 70 79 2d 64 6f 77 6e 20 |array-co|py-down |
|00002580| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |#[(&opti|onal arg|
|00002590| 29 20 22 c0 20 19 69 1a | c3 20 ae 83 c4 c5 21 1e |) ". .i.|. ....!.|
|000025a0| 06 c7 20 1e 08 c9 0e 5c | 6e 21 cb 55 ab 87 cc 0e |.. ....\|n!.U....|
|000025b0| 5c 6e 21 88 aa 8c cd ce | 0e 06 0e 5c 6e 5c 5c 0e |\n!.....|...\n\\.|
|000025c0| 0f 5c 22 21 88 2c d0 20 | 87 22 20 5b 63 75 72 72 |.\"!.,. |." [curr|
|000025d0| 65 6e 74 2d 6c 69 6e 65 | 20 62 75 66 66 65 72 2d |ent-line| buffer-|
|000025e0| 6c 69 6e 65 20 62 75 66 | 66 65 72 2d 63 6f 6c 75 |line buf|fer-colu|
|000025f0| 6d 6e 20 61 72 72 61 79 | 2d 63 75 72 72 65 6e 74 |mn array|-current|
|00002600| 2d 72 6f 77 20 65 72 72 | 6f 72 20 22 43 75 72 73 |-row err|or "Curs|
|00002610| 6f 72 20 69 73 20 6e 6f | 74 20 69 6e 20 61 20 76 |or is no|t in a v|
|00002620| 61 6c 69 64 20 61 72 72 | 61 79 20 63 65 6c 6c 2e |alid arr|ay cell.|
|00002630| 22 20 61 72 72 61 79 2d | 72 6f 77 20 61 72 72 61 |" array-|row arra|
|00002640| 79 2d 66 69 65 6c 64 2d | 73 74 72 69 6e 67 20 63 |y-field-|string c|
|00002650| 6f 70 79 2d 73 74 72 69 | 6e 67 20 61 62 73 20 61 |opy-stri|ng abs a|
|00002660| 72 67 20 31 20 61 72 72 | 61 79 2d 63 6f 70 79 2d |rg 1 arr|ay-copy-|
|00002670| 6f 6e 63 65 2d 76 65 72 | 74 69 63 61 6c 6c 79 20 |once-ver|tically |
|00002680| 61 72 72 61 79 2d 63 6f | 70 79 2d 74 6f 2d 72 6f |array-co|py-to-ro|
|00002690| 77 20 61 72 72 61 79 2d | 6d 6f 64 65 2d 6c 69 6d |w array-|mode-lim|
|000026a0| 69 74 2d 69 6e 64 65 78 | 20 6d 61 78 2d 72 6f 77 |it-index| max-row|
|000026b0| 20 61 72 72 61 79 2d 6e | 6f 72 6d 61 6c 69 7a 65 | array-n|ormalize|
|000026c0| 2d 63 75 72 73 6f 72 5d | 20 34 20 22 5c 0a 43 6f |-cursor]| 4 "\.Co|
|000026d0| 70 79 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 66 |py the c|urrent f|
|000026e0| 69 65 6c 64 20 6f 6e 65 | 20 61 72 72 61 79 20 72 |ield one| array r|
|000026f0| 6f 77 20 64 6f 77 6e 2e | 0a 49 66 20 6f 70 74 69 |ow down.|.If opti|
|00002700| 6f 6e 61 6c 20 41 52 47 | 20 69 73 20 67 69 76 65 |onal ARG| is give|
|00002710| 6e 2c 20 63 6f 70 79 20 | 64 6f 77 6e 20 74 68 72 |n, copy |down thr|
|00002720| 6f 75 67 68 20 41 52 47 | 20 61 72 72 61 79 20 72 |ough ARG| array r|
|00002730| 6f 77 73 2e 22 20 22 70 | 22 5d 29 0a 28 66 73 65 |ows." "p|"]).(fse|
|00002740| 74 20 27 61 72 72 61 79 | 2d 63 6f 70 79 2d 75 70 |t 'array|-copy-up|
|00002750| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00002760| 67 29 20 22 c0 09 5b 21 | 87 22 20 5b 61 72 72 61 |g) "..[!|." [arra|
|00002770| 79 2d 63 6f 70 79 2d 64 | 6f 77 6e 20 61 72 67 5d |y-copy-d|own arg]|
|00002780| 20 32 20 22 5c 0a 43 6f | 70 79 20 74 68 65 20 63 | 2 "\.Co|py the c|
|00002790| 75 72 72 65 6e 74 20 66 | 69 65 6c 64 20 6f 6e 65 |urrent f|ield one|
|000027a0| 20 61 72 72 61 79 20 72 | 6f 77 20 75 70 2e 0a 49 | array r|ow up..I|
|000027b0| 66 20 6f 70 74 69 6f 6e | 61 6c 20 41 52 47 20 69 |f option|al ARG i|
|000027c0| 73 20 67 69 76 65 6e 2c | 20 63 6f 70 79 20 75 70 |s given,| copy up|
|000027d0| 20 74 68 72 6f 75 67 68 | 20 41 52 47 20 61 72 72 | through| ARG arr|
|000027e0| 61 79 20 72 6f 77 73 2e | 22 20 22 70 22 5d 29 0a |ay rows.|" "p"]).|
|000027f0| 28 66 73 65 74 20 27 61 | 72 72 61 79 2d 63 6f 70 |(fset 'a|rray-cop|
|00002800| 79 2d 66 6f 72 77 61 72 | 64 20 23 5b 28 26 6f 70 |y-forwar|d #[(&op|
|00002810| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 c0 20 19 |tional a|rg) ". .|
|00002820| 69 1a c3 20 ae 83 c4 c5 | 21 1e 06 c7 20 1e 08 c9 |i.. ....|!... ...|
|00002830| 0e 5c 6e 21 cb 55 ab 87 | cc 0e 5c 6e 21 88 aa 8c |.\n!.U..|..\n!...|
|00002840| cd ce 0e 06 0e 5c 6e 5c | 5c 0e 0f 5c 22 21 88 2c |.....\n\|\..\"!.,|
|00002850| d0 20 87 22 20 5b 63 75 | 72 72 65 6e 74 2d 6c 69 |. ." [cu|rrent-li|
|00002860| 6e 65 20 62 75 66 66 65 | 72 2d 6c 69 6e 65 20 62 |ne buffe|r-line b|
|00002870| 75 66 66 65 72 2d 63 6f | 6c 75 6d 6e 20 61 72 72 |uffer-co|lumn arr|
|00002880| 61 79 2d 63 75 72 72 65 | 6e 74 2d 63 6f 6c 75 6d |ay-curre|nt-colum|
|00002890| 6e 20 65 72 72 6f 72 20 | 22 43 75 72 73 6f 72 20 |n error |"Cursor |
|000028a0| 69 73 20 6e 6f 74 20 69 | 6e 20 61 20 76 61 6c 69 |is not i|n a vali|
|000028b0| 64 20 61 72 72 61 79 20 | 63 65 6c 6c 2e 22 20 61 |d array |cell." a|
|000028c0| 72 72 61 79 2d 63 6f 6c | 75 6d 6e 20 61 72 72 61 |rray-col|umn arra|
|000028d0| 79 2d 66 69 65 6c 64 2d | 73 74 72 69 6e 67 20 63 |y-field-|string c|
|000028e0| 6f 70 79 2d 73 74 72 69 | 6e 67 20 61 62 73 20 61 |opy-stri|ng abs a|
|000028f0| 72 67 20 31 20 61 72 72 | 61 79 2d 63 6f 70 79 2d |rg 1 arr|ay-copy-|
|00002900| 6f 6e 63 65 2d 68 6f 72 | 69 7a 6f 6e 74 61 6c 6c |once-hor|izontall|
|00002910| 79 20 61 72 72 61 79 2d | 63 6f 70 79 2d 74 6f 2d |y array-|copy-to-|
|00002920| 63 6f 6c 75 6d 6e 20 61 | 72 72 61 79 2d 6d 6f 64 |column a|rray-mod|
|00002930| 65 2d 6c 69 6d 69 74 2d | 69 6e 64 65 78 20 6d 61 |e-limit-|index ma|
|00002940| 78 2d 63 6f 6c 75 6d 6e | 20 61 72 72 61 79 2d 6e |x-column| array-n|
|00002950| 6f 72 6d 61 6c 69 7a 65 | 2d 63 75 72 73 6f 72 5d |ormalize|-cursor]|
|00002960| 20 34 20 22 5c 0a 43 6f | 70 79 20 74 68 65 20 63 | 4 "\.Co|py the c|
|00002970| 75 72 72 65 6e 74 20 66 | 69 65 6c 64 20 6f 6e 65 |urrent f|ield one|
|00002980| 20 61 72 72 61 79 20 63 | 6f 6c 75 6d 6e 20 74 6f | array c|olumn to|
|00002990| 20 74 68 65 20 72 69 67 | 68 74 2e 0a 49 66 20 6f | the rig|ht..If o|
|000029a0| 70 74 69 6f 6e 61 6c 20 | 41 52 47 20 69 73 20 67 |ptional |ARG is g|
|000029b0| 69 76 65 6e 2c 20 63 6f | 70 79 20 74 68 72 6f 75 |iven, co|py throu|
|000029c0| 67 68 20 41 52 47 20 61 | 72 72 61 79 20 63 6f 6c |gh ARG a|rray col|
|000029d0| 75 6d 6e 73 20 74 6f 20 | 74 68 65 20 72 69 67 68 |umns to |the righ|
|000029e0| 74 2e 22 20 22 70 22 5d | 29 0a 28 66 73 65 74 20 |t." "p"]|).(fset |
|000029f0| 27 61 72 72 61 79 2d 63 | 6f 70 79 2d 62 61 63 6b |'array-c|opy-back|
|00002a00| 77 61 72 64 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ward #[(|&optiona|
|00002a10| 6c 20 61 72 67 29 20 22 | c0 09 5b 21 87 22 20 5b |l arg) "|..[!." [|
|00002a20| 61 72 72 61 79 2d 63 6f | 70 79 2d 66 6f 72 77 61 |array-co|py-forwa|
|00002a30| 72 64 20 61 72 67 5d 20 | 32 20 22 5c 0a 43 6f 70 |rd arg] |2 "\.Cop|
|00002a40| 79 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 66 69 |y the cu|rrent fi|
|00002a50| 65 6c 64 20 6f 6e 65 20 | 61 72 72 61 79 20 63 6f |eld one |array co|
|00002a60| 6c 75 6d 6e 20 74 6f 20 | 74 68 65 20 6c 65 66 74 |lumn to |the left|
|00002a70| 2e 0a 49 66 20 6f 70 74 | 69 6f 6e 61 6c 20 41 52 |..If opt|ional AR|
|00002a80| 47 20 69 73 20 67 69 76 | 65 6e 2c 20 63 6f 70 79 |G is giv|en, copy|
|00002a90| 20 74 68 72 6f 75 67 68 | 20 41 52 47 20 61 72 72 | through| ARG arr|
|00002aa0| 61 79 20 63 6f 6c 75 6d | 6e 73 20 74 6f 20 74 68 |ay colum|ns to th|
|00002ab0| 65 20 6c 65 66 74 2e 22 | 20 22 70 22 5d 29 0a 28 |e left."| "p"]).(|
|00002ac0| 66 73 65 74 20 27 61 72 | 72 61 79 2d 63 6f 70 79 |fset 'ar|ray-copy|
|00002ad0| 2d 63 6f 6c 75 6d 6e 2d | 66 6f 72 77 61 72 64 20 |-column-|forward |
|00002ae0| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |#[(&opti|onal arg|
|00002af0| 29 20 22 c0 20 88 c1 20 | 88 5c 6e ac 84 c3 c4 21 |) ". .. |.\n....!|
|00002b00| 88 c5 c6 21 88 c7 1e 08 | 0e 08 0e 09 57 ab af 0e |...!....|....W...|
|00002b10| 08 54 16 08 ca 0e 08 5c | 6e 5c 22 88 c0 20 88 cb |.T.....\|n\".. ..|
|00002b20| 20 1e 0c cd 0e 0e 21 cf | 55 ab 87 d0 0e 0e 21 88 | .....!.|U.....!.|
|00002b30| aa 8b d1 d2 5c 6e 0e 0e | 5c 5c 0e 13 5c 22 21 88 |....\n..|\\..\"!.|
|00002b40| 29 aa 4a 29 c5 d4 21 88 | d5 0e 16 21 88 d7 20 87 |).J)..!.|...!.. .|
|00002b50| 22 20 5b 61 72 72 61 79 | 2d 75 70 64 61 74 65 2d |" [array|-update-|
|00002b60| 62 75 66 66 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |buffer-p|osition |
|00002b70| 61 72 72 61 79 2d 75 70 | 64 61 74 65 2d 61 72 72 |array-up|date-arr|
|00002b80| 61 79 2d 70 6f 73 69 74 | 69 6f 6e 20 61 72 72 61 |ay-posit|ion arra|
|00002b90| 79 2d 63 6f 6c 75 6d 6e | 20 65 72 72 6f 72 20 22 |y-column| error "|
|00002ba0| 43 75 72 73 6f 72 20 69 | 73 20 6e 6f 74 20 69 6e |Cursor i|s not in|
|00002bb0| 20 61 20 76 61 6c 69 64 | 20 61 72 72 61 79 20 63 | a valid| array c|
|00002bc0| 65 6c 6c 2e 22 20 6d 65 | 73 73 61 67 65 20 22 57 |ell." me|ssage "W|
|00002bd0| 6f 72 6b 69 6e 67 2e 2e | 2e 22 20 30 20 74 68 69 |orking..|." 0 thi|
|00002be0| 73 2d 72 6f 77 20 6d 61 | 78 2d 72 6f 77 20 61 72 |s-row ma|x-row ar|
|00002bf0| 72 61 79 2d 6d 6f 76 65 | 2d 74 6f 2d 63 65 6c 6c |ray-move|-to-cell|
|00002c00| 20 61 72 72 61 79 2d 66 | 69 65 6c 64 2d 73 74 72 | array-f|ield-str|
|00002c10| 69 6e 67 20 63 6f 70 79 | 2d 73 74 72 69 6e 67 20 |ing copy|-string |
|00002c20| 61 62 73 20 61 72 67 20 | 31 20 61 72 72 61 79 2d |abs arg |1 array-|
|00002c30| 63 6f 70 79 2d 6f 6e 63 | 65 2d 68 6f 72 69 7a 6f |copy-onc|e-horizo|
|00002c40| 6e 74 61 6c 6c 79 20 61 | 72 72 61 79 2d 63 6f 70 |ntally a|rray-cop|
|00002c50| 79 2d 74 6f 2d 63 6f 6c | 75 6d 6e 20 61 72 72 61 |y-to-col|umn arra|
|00002c60| 79 2d 6d 6f 64 65 2d 6c | 69 6d 69 74 2d 69 6e 64 |y-mode-l|imit-ind|
|00002c70| 65 78 20 6d 61 78 2d 63 | 6f 6c 75 6d 6e 20 22 57 |ex max-c|olumn "W|
|00002c80| 6f 72 6b 69 6e 67 2e 2e | 2e 64 6f 6e 65 22 20 61 |orking..|.done" a|
|00002c90| 72 72 61 79 2d 6d 6f 76 | 65 2d 74 6f 2d 72 6f 77 |rray-mov|e-to-row|
|00002ca0| 20 61 72 72 61 79 2d 72 | 6f 77 20 61 72 72 61 79 | array-r|ow array|
|00002cb0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 2d 63 75 72 73 6f |-normali|ze-curso|
|00002cc0| 72 5d 20 34 20 22 5c 0a | 43 6f 70 79 20 74 68 65 |r] 4 "\.|Copy the|
|00002cd0| 20 65 6e 74 69 72 65 20 | 63 75 72 72 65 6e 74 20 | entire |current |
|00002ce0| 63 6f 6c 75 6d 6e 20 69 | 6e 20 74 6f 20 74 68 65 |column i|n to the|
|00002cf0| 20 63 6f 6c 75 6d 6e 20 | 74 6f 20 74 68 65 20 72 | column |to the r|
|00002d00| 69 67 68 74 2e 0a 49 66 | 20 6f 70 74 69 6f 6e 61 |ight..If| optiona|
|00002d10| 6c 20 41 52 47 20 69 73 | 20 67 69 76 65 6e 2c 20 |l ARG is| given, |
|00002d20| 63 6f 70 79 20 74 68 72 | 6f 75 67 68 20 41 52 47 |copy thr|ough ARG|
|00002d30| 20 61 72 72 61 79 20 63 | 6f 6c 75 6d 6e 73 20 74 | array c|olumns t|
|00002d40| 6f 20 74 68 65 20 72 69 | 67 68 74 2e 22 20 22 70 |o the ri|ght." "p|
|00002d50| 22 5d 29 0a 28 66 73 65 | 74 20 27 61 72 72 61 79 |"]).(fse|t 'array|
|00002d60| 2d 63 6f 70 79 2d 63 6f | 6c 75 6d 6e 2d 62 61 63 |-copy-co|lumn-bac|
|00002d70| 6b 77 61 72 64 20 23 5b | 28 26 6f 70 74 69 6f 6e |kward #[|(&option|
|00002d80| 61 6c 20 61 72 67 29 20 | 22 c0 09 5b 21 87 22 20 |al arg) |"..[!." |
|00002d90| 5b 61 72 72 61 79 2d 63 | 6f 70 79 2d 63 6f 6c 75 |[array-c|opy-colu|
|00002da0| 6d 6e 2d 66 6f 72 77 61 | 72 64 20 61 72 67 5d 20 |mn-forwa|rd arg] |
|00002db0| 32 20 22 5c 0a 43 6f 70 | 79 20 74 68 65 20 65 6e |2 "\.Cop|y the en|
|00002dc0| 74 69 72 65 20 63 75 72 | 72 65 6e 74 20 63 6f 6c |tire cur|rent col|
|00002dd0| 75 6d 6e 20 6f 6e 65 20 | 63 6f 6c 75 6d 6e 20 74 |umn one |column t|
|00002de0| 6f 20 74 68 65 20 6c 65 | 66 74 2e 0a 49 66 20 6f |o the le|ft..If o|
|00002df0| 70 74 69 6f 6e 61 6c 20 | 41 52 47 20 69 73 20 67 |ptional |ARG is g|
|00002e00| 69 76 65 6e 2c 20 63 6f | 70 79 20 74 68 72 6f 75 |iven, co|py throu|
|00002e10| 67 68 20 41 52 47 20 63 | 6f 6c 75 6d 6e 73 20 74 |gh ARG c|olumns t|
|00002e20| 6f 20 74 68 65 20 6c 65 | 66 74 2e 22 20 22 70 22 |o the le|ft." "p"|
|00002e30| 5d 29 0a 28 66 73 65 74 | 20 27 61 72 72 61 79 2d |]).(fset| 'array-|
|00002e40| 63 6f 70 79 2d 72 6f 77 | 2d 64 6f 77 6e 20 23 5b |copy-row|-down #[|
|00002e50| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00002e60| 22 c0 20 88 c1 20 88 5c | 6e ac 84 c3 c4 21 88 5c |". .. .\|n....!.\|
|00002e70| 6e c5 55 ab 8d 0e 06 c7 | 55 ab 87 c3 c8 21 88 82 |n.U.....|U....!..|
|00002e80| ae 00 5c 6e 0e 09 55 ab | 8c 0e 06 c5 55 ab 86 c3 |..\n..U.|....U...|
|00002e90| ca 21 88 aa fd 8a cb 5c | 6e c5 5c 22 88 60 29 8a |.!.....\|n.\".`).|
|00002ea0| cb 5c 6e 0e 0c 5c 22 88 | c5 79 88 60 29 7b 1e 0d |.\n..\".|.y.`){..|
|00002eb0| 5c 6e 1e 0e cf 0e 0e 0e | 06 5c 5c 0e 09 5c 22 89 |\n......|.\\..\".|
|00002ec0| 1e 10 0e 0e 5a 1e 11 d2 | 0e 11 21 89 1e 13 d4 55 |....Z...|..!....U|
|00002ed0| 3f ad 85 0e 11 0e 13 a5 | 1e 15 0e 13 d4 56 ab ad |?.......|.....V..|
|00002ee0| 0e 0e 0e 15 5c 5c 16 0e | cb 0e 0e c5 5c 22 88 d6 |....\\..|....\"..|
|00002ef0| 1e 17 60 8a cb 0e 0e 0e | 0c 5c 22 88 c5 79 88 60 |..`.....|.\"..y.`|
|00002f00| 29 7c 88 0e 0d 63 88 29 | 0e 13 53 89 16 13 aa 4f |)|...c.)|..S....O|
|00002f10| cb 0e 10 0e 18 ae 81 c5 | 5c 22 88 2e 06 d9 20 87 |........|\".... .|
|00002f20| 22 20 5b 61 72 72 61 79 | 2d 75 70 64 61 74 65 2d |" [array|-update-|
|00002f30| 62 75 66 66 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |buffer-p|osition |
|00002f40| 61 72 72 61 79 2d 75 70 | 64 61 74 65 2d 61 72 72 |array-up|date-arr|
|00002f50| 61 79 2d 70 6f 73 69 74 | 69 6f 6e 20 61 72 72 61 |ay-posit|ion arra|
|00002f60| 79 2d 72 6f 77 20 65 72 | 72 6f 72 20 22 43 75 72 |y-row er|ror "Cur|
|00002f70| 73 6f 72 20 69 73 20 6e | 6f 74 20 69 6e 20 61 20 |sor is n|ot in a |
|00002f80| 76 61 6c 69 64 20 61 72 | 72 61 79 20 63 65 6c 6c |valid ar|ray cell|
|00002f90| 2e 22 20 31 20 61 72 67 | 20 2d 31 20 22 42 65 67 |." 1 arg| -1 "Beg|
|00002fa0| 69 6e 6e 69 6e 67 20 6f | 66 20 61 72 72 61 79 2e |inning o|f array.|
|00002fb0| 22 20 6d 61 78 2d 72 6f | 77 20 22 45 6e 64 20 6f |" max-ro|w "End o|
|00002fc0| 66 20 61 72 72 61 79 2e | 22 20 61 72 72 61 79 2d |f array.|" array-|
|00002fd0| 6d 6f 76 65 2d 74 6f 2d | 63 65 6c 6c 20 6d 61 78 |move-to-|cell max|
|00002fe0| 2d 63 6f 6c 75 6d 6e 20 | 63 6f 70 79 2d 73 74 72 |-column |copy-str|
|00002ff0| 69 6e 67 20 74 68 69 73 | 2d 72 6f 77 20 61 72 72 |ing this|-row arr|
|00003000| 61 79 2d 6d 6f 64 65 2d | 6c 69 6d 69 74 2d 69 6e |ay-mode-|limit-in|
|00003010| 64 65 78 20 67 6f 61 6c | 2d 72 6f 77 20 6e 75 6d |dex goal|-row num|
|00003020| 20 61 62 73 20 63 6f 75 | 6e 74 20 30 20 73 69 67 | abs cou|nt 0 sig|
|00003030| 6e 20 74 20 69 6e 68 69 | 62 69 74 2d 71 75 69 74 |n t inhi|bit-quit|
|00003040| 20 61 72 72 61 79 2d 63 | 6f 6c 75 6d 6e 20 61 72 | array-c|olumn ar|
|00003050| 72 61 79 2d 6e 6f 72 6d | 61 6c 69 7a 65 2d 63 75 |ray-norm|alize-cu|
|00003060| 72 73 6f 72 5d 20 35 20 | 22 5c 0a 43 6f 70 79 20 |rsor] 5 |"\.Copy |
|00003070| 74 68 65 20 65 6e 74 69 | 72 65 20 63 75 72 72 65 |the enti|re curre|
|00003080| 6e 74 20 72 6f 77 20 6f | 6e 65 20 72 6f 77 20 64 |nt row o|ne row d|
|00003090| 6f 77 6e 2e 0a 49 66 20 | 6f 70 74 69 6f 6e 61 6c |own..If |optional|
|000030a0| 20 41 52 47 20 69 73 20 | 67 69 76 65 6e 2c 20 63 | ARG is |given, c|
|000030b0| 6f 70 79 20 74 68 72 6f | 75 67 68 20 41 52 47 20 |opy thro|ugh ARG |
|000030c0| 72 6f 77 73 20 64 6f 77 | 6e 2e 22 20 22 70 22 5d |rows dow|n." "p"]|
|000030d0| 29 0a 28 66 73 65 74 20 | 27 61 72 72 61 79 2d 63 |).(fset |'array-c|
|000030e0| 6f 70 79 2d 72 6f 77 2d | 75 70 20 23 5b 28 26 6f |opy-row-|up #[(&o|
|000030f0| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 c0 09 |ptional |arg) "..|
|00003100| 5b 21 87 22 20 5b 61 72 | 72 61 79 2d 63 6f 70 79 |[!." [ar|ray-copy|
|00003110| 2d 72 6f 77 2d 64 6f 77 | 6e 20 61 72 67 5d 20 32 |-row-dow|n arg] 2|
|00003120| 20 22 5c 0a 43 6f 70 79 | 20 74 68 65 20 65 6e 74 | "\.Copy| the ent|
|00003130| 69 72 65 20 63 75 72 72 | 65 6e 74 20 61 72 72 61 |ire curr|ent arra|
|00003140| 79 20 72 6f 77 20 69 6e | 74 6f 20 74 68 65 20 72 |y row in|to the r|
|00003150| 6f 77 20 61 62 6f 76 65 | 2e 0a 49 66 20 6f 70 74 |ow above|..If opt|
|00003160| 69 6f 6e 61 6c 20 41 52 | 47 20 69 73 20 67 69 76 |ional AR|G is giv|
|00003170| 65 6e 2c 20 63 6f 70 79 | 20 74 68 72 6f 75 67 68 |en, copy| through|
|00003180| 20 41 52 47 20 72 6f 77 | 73 20 75 70 2e 22 20 22 | ARG row|s up." "|
|00003190| 70 22 5d 29 0a 28 66 73 | 65 74 20 27 61 72 72 61 |p"]).(fs|et 'arra|
|000031a0| 79 2d 66 69 6c 6c 2d 72 | 65 63 74 61 6e 67 6c 65 |y-fill-r|ectangle|
|000031b0| 20 23 5b 6e 69 6c 20 22 | c0 20 88 c1 20 ae 83 c2 | #[nil "|. .. ...|
|000031c0| c3 21 c4 20 ae 83 c2 c3 | 21 8a c5 20 88 c0 20 88 |.!. ....|!.. .. .|
|000031d0| c1 20 ae 83 c2 c6 21 29 | 8a c5 20 88 c0 20 88 c4 |. ....!)|.. .. ..|
|000031e0| 20 ae 83 c2 c6 21 29 1e | 07 1e 08 1e 09 1e 5c 6e | ....!).|......\n|
|000031f0| cb cc 21 88 0e 08 0e 5c | 6e 5e 0e 08 0e 5c 6e 5d |..!....\|n^...\n]|
|00003200| 0e 07 0e 09 5e 0e 07 0e | 09 5d 1e 0d 1e 0e 1e 0f |....^...|.]......|
|00003210| 1e 10 8a d1 0e 08 0e 07 | 5c 22 88 c0 20 88 d2 20 |........|\".. .. |
|00003220| 29 1e 13 d4 0e 10 0e 0e | 5c 22 88 d5 0e 10 0e 0e |).......|\"......|
|00003230| 5c 22 88 c0 20 88 d6 0e | 0d 21 88 29 d1 0e 10 0e |\".. ...|.!.)....|
|00003240| 0e 5c 22 88 60 8a d1 0e | 10 0e 0d 5c 22 88 69 16 |.\".`...|...\".i.|
|00003250| 17 d8 d9 21 88 60 29 7b | 0e 10 1e 1a 1e 13 0e 1a |...!.`){|........|
|00003260| 0e 0f 55 ac aa 0e 1a 54 | 16 1a d1 0e 1a 0e 0e 5c |..U....T|.......\|
|00003270| 22 88 d9 1e 1b 60 8a d1 | 0e 1a 0e 0d 5c 22 88 69 |"....`..|....\".i|
|00003280| 16 17 d8 d9 21 88 60 29 | 7c 88 0e 13 63 88 29 aa |....!.`)||...c.).|
|00003290| 4f 2e 06 cb dc 21 88 dd | 0e 5c 6e 0e 09 5c 22 2c |O....!..|.\n..\",|
|000032a0| 87 22 20 5b 61 72 72 61 | 79 2d 75 70 64 61 74 65 |." [arra|y-update|
|000032b0| 2d 62 75 66 66 65 72 2d | 70 6f 73 69 74 69 6f 6e |-buffer-|position|
|000032c0| 20 61 72 72 61 79 2d 63 | 75 72 72 65 6e 74 2d 72 | array-c|urrent-r|
|000032d0| 6f 77 20 65 72 72 6f 72 | 20 22 43 75 72 73 6f 72 |ow error| "Cursor|
|000032e0| 20 69 73 20 6e 6f 74 20 | 69 6e 20 61 20 76 61 6c | is not |in a val|
|000032f0| 69 64 20 61 72 72 61 79 | 20 63 65 6c 6c 2e 22 20 |id array| cell." |
|00003300| 61 72 72 61 79 2d 63 75 | 72 72 65 6e 74 2d 63 6f |array-cu|rrent-co|
|00003310| 6c 75 6d 6e 20 65 78 63 | 68 61 6e 67 65 2d 70 6f |lumn exc|hange-po|
|00003320| 69 6e 74 2d 61 6e 64 2d | 6d 61 72 6b 20 22 4d 61 |int-and-|mark "Ma|
|00003330| 72 6b 20 69 73 20 6e 6f | 74 20 69 6e 20 61 20 76 |rk is no|t in a v|
|00003340| 61 6c 69 64 20 61 72 72 | 61 79 20 63 65 6c 6c 2e |alid arr|ay cell.|
|00003350| 22 20 6d 2d 63 6f 6c 75 | 6d 6e 20 6d 2d 72 6f 77 |" m-colu|mn m-row|
|00003360| 20 70 2d 63 6f 6c 75 6d | 6e 20 70 2d 72 6f 77 20 | p-colum|n p-row |
|00003370| 6d 65 73 73 61 67 65 20 | 22 57 6f 72 6b 69 6e 67 |message |"Working|
|00003380| 2e 2e 2e 22 20 72 69 67 | 68 74 2d 63 6f 6c 75 6d |..." rig|ht-colum|
|00003390| 6e 20 6c 65 66 74 2d 63 | 6f 6c 75 6d 6e 20 62 6f |n left-c|olumn bo|
|000033a0| 74 74 6f 6d 2d 72 6f 77 | 20 74 6f 70 2d 72 6f 77 |ttom-row| top-row|
|000033b0| 20 61 72 72 61 79 2d 6d | 6f 76 65 2d 74 6f 2d 63 | array-m|ove-to-c|
|000033c0| 65 6c 6c 20 61 72 72 61 | 79 2d 66 69 65 6c 64 2d |ell arra|y-field-|
|000033d0| 73 74 72 69 6e 67 20 63 | 6f 70 79 2d 73 74 72 69 |string c|opy-stri|
|000033e0| 6e 67 20 61 72 72 61 79 | 2d 63 6f 70 79 2d 74 6f |ng array|-copy-to|
|000033f0| 2d 63 65 6c 6c 20 61 72 | 72 61 79 2d 75 70 64 61 |-cell ar|ray-upda|
|00003400| 74 65 2d 61 72 72 61 79 | 2d 70 6f 73 69 74 69 6f |te-array|-positio|
|00003410| 6e 20 61 72 72 61 79 2d | 63 6f 70 79 2d 74 6f 2d |n array-|copy-to-|
|00003420| 63 6f 6c 75 6d 6e 20 62 | 75 66 66 65 72 2d 63 6f |column b|uffer-co|
|00003430| 6c 75 6d 6e 20 61 72 72 | 61 79 2d 65 6e 64 2d 6f |lumn arr|ay-end-o|
|00003440| 66 2d 66 69 65 6c 64 20 | 74 20 74 68 69 73 2d 72 |f-field |t this-r|
|00003450| 6f 77 20 69 6e 68 69 62 | 69 74 2d 71 75 69 74 20 |ow inhib|it-quit |
|00003460| 22 57 6f 72 6b 69 6e 67 | 2e 2e 2e 64 6f 6e 65 22 |"Working|...done"|
|00003470| 20 61 72 72 61 79 2d 67 | 6f 74 6f 2d 63 65 6c 6c | array-g|oto-cell|
|00003480| 5d 20 35 20 22 5c 0a 43 | 6f 70 79 20 74 68 65 20 |] 5 "\.C|opy the |
|00003490| 66 69 65 6c 64 20 61 74 | 20 6d 61 72 6b 20 69 6e |field at| mark in|
|000034a0| 74 6f 20 65 76 65 72 79 | 20 63 65 6c 6c 20 62 65 |to every| cell be|
|000034b0| 74 77 65 65 6e 20 6d 61 | 72 6b 20 61 6e 64 20 70 |tween ma|rk and p|
|000034c0| 6f 69 6e 74 2e 22 20 6e | 69 6c 5d 29 0a 28 66 73 |oint." n|il]).(fs|
|000034d0| 65 74 20 27 61 72 72 61 | 79 2d 6d 61 6b 65 2d 74 |et 'arra|y-make-t|
|000034e0| 65 6d 70 6c 61 74 65 20 | 23 5b 6e 69 6c 20 22 c0 |emplate |#[nil ".|
|000034f0| c1 1a 1b 0b ab a3 c4 c5 | 21 89 16 06 47 89 12 0e |........|!...G...|
|00003500| 07 55 ac 90 c8 c9 ca 5c | 6e 5c 22 21 ab 67 5c 6e |.U.....\|n\"!.g\n|
|00003510| 16 07 c1 89 13 aa 60 c1 | 89 13 ac 5d 2a 65 62 88 |......`.|...]*eb.|
|00003520| cb cc 21 88 cd 1e 0e 0e | 0e 0e 0f 58 ab be 0e 10 |..!.....|...X....|
|00003530| ab 87 c9 d1 0e 0e 5c 22 | 63 88 cd 1e 12 cd 0e 13 |......\"|c.......|
|00003540| 58 ab 9f 0e 06 63 88 0e | 12 0e 14 a6 d5 55 ab 8a |X....c..|.....U..|
|00003550| 0e 12 0e 13 55 ac 83 d6 | 20 88 0e 12 54 89 16 12 |....U...| ...T...|
|00003560| aa 5c 5c 29 0e 0e 54 16 | 0e d6 20 88 aa 3b 29 cb |.\\)..T.|.. ..;).|
|00003570| d7 21 88 d8 cd 89 5c 22 | 87 22 20 5b 74 20 6e 69 |.!....\"|." [t ni|
|00003580| 6c 20 6c 65 6e 20 63 68 | 65 63 6b 20 72 65 61 64 |l len ch|eck read|
|00003590| 2d 69 6e 70 75 74 20 22 | 49 6e 69 74 69 61 6c 20 |-input "|Initial |
|000035a0| 66 69 65 6c 64 20 76 61 | 6c 75 65 3a 20 22 20 69 |field va|lue: " i|
|000035b0| 6e 69 74 2d 66 69 65 6c | 64 20 66 69 65 6c 64 2d |nit-fiel|d field-|
|000035c0| 77 69 64 74 68 20 79 2d | 6f 72 2d 6e 2d 70 20 66 |width y-|or-n-p f|
|000035d0| 6f 72 6d 61 74 20 22 43 | 68 61 6e 67 65 20 66 69 |ormat "C|hange fi|
|000035e0| 65 6c 64 20 77 69 64 74 | 68 20 74 6f 20 25 64 3f |eld widt|h to %d?|
|000035f0| 20 22 20 6d 65 73 73 61 | 67 65 20 22 57 6f 72 6b | " messa|ge "Work|
|00003600| 69 6e 67 2e 2e 2e 22 20 | 31 20 74 68 69 73 2d 72 |ing..." |1 this-r|
|00003610| 6f 77 20 6d 61 78 2d 72 | 6f 77 20 72 6f 77 73 2d |ow max-r|ow rows-|
|00003620| 6e 75 6d 62 65 72 65 64 | 20 22 25 64 3a 5c 6e 22 |numbered| "%d:\n"|
|00003630| 20 74 68 69 73 2d 63 6f | 6c 75 6d 6e 20 6d 61 78 | this-co|lumn max|
|00003640| 2d 63 6f 6c 75 6d 6e 20 | 63 6f 6c 75 6d 6e 73 2d |-column |columns-|
|00003650| 70 65 72 2d 6c 69 6e 65 | 20 30 20 6e 65 77 6c 69 |per-line| 0 newli|
|00003660| 6e 65 20 22 57 6f 72 6b | 69 6e 67 2e 2e 2e 64 6f |ne "Work|ing...do|
|00003670| 6e 65 22 20 61 72 72 61 | 79 2d 67 6f 74 6f 2d 63 |ne" arra|y-goto-c|
|00003680| 65 6c 6c 5d 20 35 20 22 | 5c 0a 43 72 65 61 74 65 |ell] 5 "|\.Create|
|00003690| 20 74 68 65 20 74 65 6d | 70 6c 61 74 65 20 6f 66 | the tem|plate of|
|000036a0| 20 61 6e 20 61 72 72 61 | 79 2e 22 20 6e 69 6c 5d | an arra|y." nil]|
|000036b0| 29 0a 28 66 73 65 74 20 | 27 61 72 72 61 79 2d 72 |).(fset |'array-r|
|000036c0| 65 63 6f 6e 66 69 67 75 | 72 65 2d 72 6f 77 73 20 |econfigu|re-rows |
|000036d0| 23 5b 28 6e 65 77 2d 63 | 6f 6c 75 6d 6e 73 2d 70 |#[(new-c|olumns-p|
|000036e0| 65 72 2d 6c 69 6e 65 20 | 6e 65 77 2d 72 6f 77 73 |er-line |new-rows|
|000036f0| 2d 6e 75 6d 62 65 72 65 | 64 29 20 22 c0 19 09 ab |-numbere|d) "....|
|00003700| 9a 5c 6e c3 59 ab 8a 5c | 6e 0c 58 ab 85 c5 89 11 |.\n.Y..\|n.X.....|
|00003710| aa 6f c6 c7 c8 c9 0c 5c | 22 21 21 12 aa 63 29 0e |.o.....\|"!!..c).|
|00003720| 5c 6e cb 3d ab 85 c0 16 | 5c 6e aa 90 0e 5c 6e cc |\n.=....|\n...\n.|
|00003730| 3d ab 85 c5 16 5c 6e aa | 85 cd ce 21 16 5c 6e cf |=....\n.|...!.\n.|
|00003740| d0 21 88 d1 20 88 d2 70 | 21 1e 13 d4 d5 21 1e 16 |.!.. ..p|!....!..|
|00003750| 0e 17 1e 18 0c 1e 19 0e | 1a 1e 1b 0e 1c 1e 1d 0e |........|........|
|00003760| 1e 1e 1f 0e 20 1e 21 0e | 5c 22 1e 23 c3 1e 24 e5 |.... .!.|\".#..$.|
|00003770| 20 88 e6 0e 16 65 64 23 | 88 0e 16 71 88 65 62 88 | ....ed#|...q.eb.|
|00003780| 0e 24 0e 18 58 83 1a 01 | 0e 1b ab 84 0e 5c 6e ac |.$..X...|.....\n.|
|00003790| 9e 0e 1b ac 84 0e 5c 6e | ab 96 0e 1b ab 8a 0e 5c |......\n|.......\|
|000037a0| 6e ac 86 e7 c3 21 88 aa | 88 e8 c8 e9 0e 24 5c 22 |n....!..|.....$\"|
|000037b0| 21 88 0e 1d 5c 6e 55 ab | 8f 0e 1f 0e 1b ab 83 c3 |!...\nU.|........|
|000037c0| aa 81 ea 5a 79 88 aa d3 | eb 0e 19 53 0e 1d 5c 22 |...Zy...|...S..\"|
|000037d0| ea eb 0e 19 53 5c 6e 5c | 22 ea 1e 2c 1e 2d 1e 2e |....S\n\|"..,.-..|
|000037e0| 1e 2f 0e 2e 0e 2f 57 ab | 95 f0 0e 2e 54 0e 23 5f |./.../W.|....T.#_|
|000037f0| 21 88 e7 c3 21 88 0e 2e | 54 89 16 2e aa 66 ea 79 |!...!...|T....f.y|
|00003800| 88 0e 2c 0e 2d 57 ab 92 | f0 0e 21 5c 6e 5f 21 88 |..,.-W..|..!\n_!.|
|00003810| f1 20 88 0e 2c 54 89 16 | 2c aa 69 c3 79 88 2c 0e |. ..,T..|,.i.y.,.|
|00003820| 24 54 89 16 24 82 7d 00 | c0 1e 32 0e 13 71 88 f3 |$T..$.}.|..2..q..|
|00003830| 20 88 f4 0e 16 21 88 5c | 6e 16 1c 0e 5c 6e 16 1a | ....!.\|n...\n..|
|00003840| 0e 21 5c 6e 5f 16 5c 22 | f5 0e 19 5c 6e 5c 22 0e |.!\n_.\"|...\n\".|
|00003850| 5c 6e ab 83 c3 aa 81 ea | 5c 5c 16 1e f6 0e 37 ae |\n......|\\....7.|
|00003860| 81 c3 0e 38 ae 81 c3 5c | 22 88 29 f9 0e 16 21 88 |...8...\|".)...!.|
|00003870| 2e 5c 6e cf fa 21 87 22 | 20 5b 74 20 63 68 65 63 |.\n..!."| [t chec|
|00003880| 6b 20 6e 65 77 2d 63 6f | 6c 75 6d 6e 73 2d 70 65 |k new-co|lumns-pe|
|00003890| 72 2d 6c 69 6e 65 20 31 | 20 6d 61 78 2d 63 6f 6c |r-line 1| max-col|
|000038a0| 75 6d 6e 20 6e 69 6c 20 | 73 74 72 69 6e 67 2d 74 |umn nil |string-t|
|000038b0| 6f 2d 69 6e 74 20 72 65 | 61 64 2d 69 6e 70 75 74 |o-int re|ad-input|
|000038c0| 20 66 6f 72 6d 61 74 20 | 22 43 6f 6c 75 6d 6e 73 | format |"Columns|
|000038d0| 20 70 65 72 20 6c 69 6e | 65 20 28 31 20 2d 20 25 | per lin|e (1 - %|
|000038e0| 64 29 3a 20 22 20 6e 65 | 77 2d 72 6f 77 73 2d 6e |d): " ne|w-rows-n|
|000038f0| 75 6d 62 65 72 65 64 20 | 31 32 31 20 31 31 30 20 |umbered |121 110 |
|00003900| 79 2d 6f 72 2d 6e 2d 70 | 20 22 52 6f 77 73 20 6e |y-or-n-p| "Rows n|
|00003910| 75 6d 62 65 72 65 64 3f | 20 22 20 6d 65 73 73 61 |umbered?| " messa|
|00003920| 67 65 20 22 57 6f 72 6b | 69 6e 67 2e 2e 2e 22 20 |ge "Work|ing..." |
|00003930| 61 72 72 61 79 2d 75 70 | 64 61 74 65 2d 62 75 66 |array-up|date-buf|
|00003940| 66 65 72 2d 70 6f 73 69 | 74 69 6f 6e 20 62 75 66 |fer-posi|tion buf|
|00003950| 66 65 72 2d 6e 61 6d 65 | 20 6d 61 69 6e 2d 62 75 |fer-name| main-bu|
|00003960| 66 66 65 72 20 6d 61 6b | 65 2d 74 65 6d 70 2d 6e |ffer mak|e-temp-n|
|00003970| 61 6d 65 20 22 41 72 72 | 61 79 22 20 74 65 6d 70 |ame "Arr|ay" temp|
|00003980| 2d 62 75 66 66 65 72 20 | 6d 61 78 2d 72 6f 77 20 |-buffer |max-row |
|00003990| 74 65 6d 70 2d 6d 61 78 | 2d 72 6f 77 20 74 65 6d |temp-max|-row tem|
|000039a0| 70 2d 6d 61 78 2d 63 6f | 6c 75 6d 6e 20 72 6f 77 |p-max-co|lumn row|
|000039b0| 73 2d 6e 75 6d 62 65 72 | 65 64 20 6f 6c 64 2d 72 |s-number|ed old-r|
|000039c0| 6f 77 73 2d 6e 75 6d 62 | 65 72 65 64 20 63 6f 6c |ows-numb|ered col|
|000039d0| 75 6d 6e 73 2d 70 65 72 | 2d 6c 69 6e 65 20 6f 6c |umns-per|-line ol|
|000039e0| 64 2d 63 6f 6c 75 6d 6e | 73 2d 70 65 72 2d 6c 69 |d-column|s-per-li|
|000039f0| 6e 65 20 6c 69 6e 65 73 | 2d 70 65 72 2d 72 6f 77 |ne lines|-per-row|
|00003a00| 20 6f 6c 64 2d 6c 69 6e | 65 73 2d 70 65 72 2d 72 | old-lin|es-per-r|
|00003a10| 6f 77 20 66 69 65 6c 64 | 2d 77 69 64 74 68 20 6f |ow field|-width o|
|00003a20| 6c 64 2d 66 69 65 6c 64 | 2d 77 69 64 74 68 20 6c |ld-field|-width l|
|00003a30| 69 6e 65 2d 6c 65 6e 67 | 74 68 20 6f 6c 64 2d 6c |ine-leng|th old-l|
|00003a40| 69 6e 65 2d 6c 65 6e 67 | 74 68 20 74 68 69 73 2d |ine-leng|th this-|
|00003a50| 72 6f 77 20 61 72 72 61 | 79 2d 75 70 64 61 74 65 |row arra|y-update|
|00003a60| 2d 61 72 72 61 79 2d 70 | 6f 73 69 74 69 6f 6e 20 |-array-p|osition |
|00003a70| 63 6f 70 79 2d 74 6f 2d | 62 75 66 66 65 72 20 6b |copy-to-|buffer k|
|00003a80| 69 6c 6c 2d 6c 69 6e 65 | 20 69 6e 73 65 72 74 2d |ill-line| insert-|
|00003a90| 73 74 72 69 6e 67 20 22 | 25 64 3a 5c 6e 22 20 30 |string "|%d:\n" 0|
|00003aa0| 20 61 72 72 61 79 2d 6d | 6f 64 65 2d 66 6c 6f 6f | array-m|ode-floo|
|00003ab0| 72 20 6e 65 77 6c 69 6e | 65 73 2d 61 64 64 65 64 |r newlin|es-added|
|00003ac0| 20 6e 65 77 6c 69 6e 65 | 73 2d 74 6f 2d 62 65 2d | newline|s-to-be-|
|00003ad0| 61 64 64 65 64 20 6e 65 | 77 6c 69 6e 65 73 2d 72 |added ne|wlines-r|
|00003ae0| 65 6d 6f 76 65 64 20 6e | 65 77 6c 69 6e 65 73 2d |emoved n|ewlines-|
|00003af0| 74 6f 2d 62 65 2d 72 65 | 6d 6f 76 65 64 20 6d 6f |to-be-re|moved mo|
|00003b00| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 2d 75 6e 74 |ve-to-co|lumn-unt|
|00003b10| 61 62 69 66 79 20 6e 65 | 77 6c 69 6e 65 20 69 6e |abify ne|wline in|
|00003b20| 68 69 62 69 74 2d 71 75 | 69 74 20 65 72 61 73 65 |hibit-qu|it erase|
|00003b30| 2d 62 75 66 66 65 72 20 | 69 6e 73 65 72 74 2d 62 |-buffer |insert-b|
|00003b40| 75 66 66 65 72 20 61 72 | 72 61 79 2d 6d 6f 64 65 |uffer ar|ray-mode|
|00003b50| 2d 63 65 69 6c 69 6e 67 | 20 61 72 72 61 79 2d 67 |-ceiling| array-g|
|00003b60| 6f 74 6f 2d 63 65 6c 6c | 20 61 72 72 61 79 2d 72 |oto-cell| array-r|
|00003b70| 6f 77 20 61 72 72 61 79 | 2d 63 6f 6c 75 6d 6e 20 |ow array|-column |
|00003b80| 6b 69 6c 6c 2d 62 75 66 | 66 65 72 20 22 57 6f 72 |kill-buf|fer "Wor|
|00003b90| 6b 69 6e 67 2e 2e 2e 64 | 6f 6e 65 22 5d 20 36 20 |king...d|one"] 6 |
|00003ba0| 22 5c 0a 52 65 63 6f 6e | 66 69 67 75 72 65 20 74 |"\.Recon|figure t|
|00003bb0| 68 65 20 73 74 61 74 65 | 20 6f 66 20 72 6f 77 2d |he state| of row-|
|00003bc0| 6e 75 6d 62 65 72 69 6e | 67 20 61 6e 64 20 63 6f |numberin|g and co|
|00003bd0| 6c 75 6d 6e 73 2d 70 65 | 72 2d 6c 69 6e 65 2e 0a |lumns-pe|r-line..|
|00003be0| 4e 45 57 2d 43 4f 4c 55 | 4d 4e 53 2d 50 45 52 2d |NEW-COLU|MNS-PER-|
|00003bf0| 4c 49 4e 45 20 69 73 20 | 74 68 65 20 64 65 73 69 |LINE is |the desi|
|00003c00| 72 65 64 20 76 61 6c 75 | 65 20 6f 66 20 63 6f 6c |red valu|e of col|
|00003c10| 75 6d 6e 73 2d 70 65 72 | 2d 6c 69 6e 65 20 61 6e |umns-per|-line an|
|00003c20| 64 0a 4e 45 57 2d 52 4f | 57 53 2d 4e 55 4d 42 45 |d.NEW-RO|WS-NUMBE|
|00003c30| 52 45 44 20 28 61 20 63 | 68 61 72 61 63 74 65 72 |RED (a c|haracter|
|00003c40| 2c 20 65 69 74 68 65 72 | 20 3f 79 20 6f 72 20 3f |, either| ?y or ?|
|00003c50| 6e 29 20 69 73 20 74 68 | 65 20 64 65 73 69 72 65 |n) is th|e desire|
|00003c60| 64 20 76 61 6c 75 65 0a | 6f 66 20 72 6f 77 73 2d |d value.|of rows-|
|00003c70| 6e 75 6d 62 65 72 65 64 | 2e 22 20 22 6e 43 6f 6c |numbered|." "nCol|
|00003c80| 75 6d 6e 73 20 70 65 72 | 20 6c 69 6e 65 3a 20 5c |umns per| line: \|
|00003c90| 6e 63 52 6f 77 73 20 6e | 75 6d 62 65 72 65 64 3f |ncRows n|umbered?|
|00003ca0| 20 28 79 20 6f 72 20 6e | 29 20 22 5d 29 0a 28 66 | (y or n|) "]).(f|
|00003cb0| 73 65 74 20 27 61 72 72 | 61 79 2d 65 78 70 61 6e |set 'arr|ay-expan|
|00003cc0| 64 2d 72 6f 77 73 20 23 | 5b 6e 69 6c 20 22 c0 09 |d-rows #|[nil "..|
|00003cd0| c2 5c 22 87 22 20 5b 61 | 72 72 61 79 2d 72 65 63 |.\"." [a|rray-rec|
|00003ce0| 6f 6e 66 69 67 75 72 65 | 2d 72 6f 77 73 20 6d 61 |onfigure|-rows ma|
|00003cf0| 78 2d 63 6f 6c 75 6d 6e | 20 31 31 30 5d 20 33 20 |x-column| 110] 3 |
|00003d00| 22 5c 0a 45 78 70 61 6e | 64 20 74 68 65 20 72 6f |"\.Expan|d the ro|
|00003d10| 77 73 20 73 6f 20 65 61 | 63 68 20 66 69 74 73 20 |ws so ea|ch fits |
|00003d20| 6f 6e 20 6f 6e 65 20 6c | 69 6e 65 20 61 6e 64 20 |on one l|ine and |
|00003d30| 72 65 6d 6f 76 65 20 72 | 6f 77 20 6e 75 6d 62 65 |remove r|ow numbe|
|00003d40| 72 73 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |rs." nil|]).(fset|
|00003d50| 20 27 61 72 72 61 79 2d | 6d 6f 64 65 2d 6c 69 6d | 'array-|mode-lim|
|00003d60| 69 74 2d 69 6e 64 65 78 | 20 23 5b 28 69 6e 64 65 |it-index| #[(inde|
|00003d70| 78 20 6c 69 6d 69 74 29 | 20 22 08 c1 57 ab 82 c1 |x limit)| "..W...|
|00003d80| 87 08 5c 6e 56 ab 82 5c | 6e 87 08 87 22 20 5b 69 |..\nV..\|n..." [i|
|00003d90| 6e 64 65 78 20 31 20 6c | 69 6d 69 74 5d 20 32 5d |ndex 1 l|imit] 2]|
|00003da0| 29 0a 28 66 73 65 74 20 | 27 61 72 72 61 79 2d 6d |).(fset |'array-m|
|00003db0| 6f 64 65 2d 66 6c 6f 6f | 72 20 23 5b 28 69 6e 74 |ode-floo|r #[(int|
|00003dc0| 31 20 69 6e 74 32 29 20 | 22 08 c1 57 ab 87 c2 08 |1 int2) |"..W....|
|00003dd0| 5b 0b 5c 22 5b 87 08 0b | a5 87 22 20 5b 69 6e 74 |[.\"[...|.." [int|
|00003de0| 31 20 30 20 61 72 72 61 | 79 2d 6d 6f 64 65 2d 63 |1 0 arra|y-mode-c|
|00003df0| 65 69 6c 69 6e 67 20 69 | 6e 74 32 5d 20 33 20 22 |eiling i|nt2] 3 "|
|00003e00| 5c 0a 52 65 74 75 72 6e | 73 20 74 68 65 20 66 6c |\.Return|s the fl|
|00003e10| 6f 6f 72 20 6f 66 20 49 | 4e 54 31 20 64 69 76 69 |oor of I|NT1 divi|
|00003e20| 64 65 64 20 62 79 20 49 | 4e 54 32 2e 0a 49 4e 54 |ded by I|NT2..INT|
|00003e30| 31 20 6d 61 79 20 62 65 | 20 6e 65 67 61 74 69 76 |1 may be| negativ|
|00003e40| 65 2e 20 20 49 4e 54 32 | 20 6d 75 73 74 20 62 65 |e. INT2| must be|
|00003e50| 20 70 6f 73 69 74 69 76 | 65 2e 22 5d 29 0a 28 66 | positiv|e."]).(f|
|00003e60| 73 65 74 20 27 61 72 72 | 61 79 2d 6d 6f 64 65 2d |set 'arr|ay-mode-|
|00003e70| 63 65 69 6c 69 6e 67 20 | 23 5b 28 69 6e 74 31 20 |ceiling |#[(int1 |
|00003e80| 69 6e 74 32 29 20 22 08 | 09 a5 08 09 a6 c2 55 ab |int2) ".|......U.|
|00003e90| 83 c2 aa 81 c3 5c 5c 87 | 22 20 5b 69 6e 74 31 20 |.....\\.|" [int1 |
|00003ea0| 69 6e 74 32 20 30 20 31 | 5d 20 33 20 22 5c 0a 52 |int2 0 1|] 3 "\.R|
|00003eb0| 65 74 75 72 6e 73 20 74 | 68 65 20 63 65 69 6c 69 |eturns t|he ceili|
|00003ec0| 6e 67 20 6f 66 20 49 4e | 54 31 20 64 69 76 69 64 |ng of IN|T1 divid|
|00003ed0| 65 64 20 62 79 20 49 4e | 54 32 2e 0a 41 73 73 75 |ed by IN|T2..Assu|
|00003ee0| 6d 65 73 20 74 68 61 74 | 20 62 6f 74 68 20 61 72 |mes that| both ar|
|00003ef0| 67 75 6d 65 6e 74 73 20 | 61 72 65 20 6e 6f 6e 6e |guments |are nonn|
|00003f00| 65 67 61 74 69 76 65 2e | 22 5d 29 0a 28 66 73 65 |egative.|"]).(fse|
|00003f10| 74 20 27 63 75 72 72 65 | 6e 74 2d 6c 69 6e 65 20 |t 'curre|nt-line |
|00003f20| 23 5b 6e 69 6c 20 22 8a | c0 79 88 c1 65 60 5c 22 |#[nil ".|.y..e`\"|
|00003f30| 29 87 22 20 5b 30 20 63 | 6f 75 6e 74 2d 6c 69 6e |)." [0 c|ount-lin|
|00003f40| 65 73 5d 20 33 20 22 5c | 0a 52 65 74 75 72 6e 20 |es] 3 "\|.Return |
|00003f50| 74 68 65 20 63 75 72 72 | 65 6e 74 20 62 75 66 66 |the curr|ent buff|
|00003f60| 65 72 20 6c 69 6e 65 20 | 61 74 20 70 6f 69 6e 74 |er line |at point|
|00003f70| 2e 20 20 54 68 65 20 66 | 69 72 73 74 20 6c 69 6e |. The f|irst lin|
|00003f80| 65 20 69 73 20 30 2e 22 | 5d 29 0a 28 66 73 65 74 |e is 0."|]).(fset|
|00003f90| 20 27 6d 6f 76 65 2d 74 | 6f 2d 63 6f 6c 75 6d 6e | 'move-t|o-column|
|00003fa0| 2d 75 6e 74 61 62 69 66 | 79 20 23 5b 28 63 6f 6c |-untabif|y #[(col|
|00003fb0| 75 6d 6e 29 20 22 08 c1 | 08 21 55 ab 83 08 ae 8d |umn) "..|.!U.....|
|00003fc0| 5c 6e ab 84 c3 c4 21 87 | c5 20 88 c1 08 21 87 22 |\n....!.|. ...!."|
|00003fd0| 20 5b 63 6f 6c 75 6d 6e | 20 6d 6f 76 65 2d 74 6f | [column| move-to|
|00003fe0| 2d 63 6f 6c 75 6d 6e 20 | 72 65 73 70 65 63 74 2d |-column |respect-|
|00003ff0| 74 61 62 73 20 65 72 72 | 6f 72 20 22 54 68 65 72 |tabs err|or "Ther|
|00004000| 65 20 69 73 20 61 20 54 | 41 42 20 63 68 61 72 61 |e is a T|AB chara|
|00004010| 63 74 65 72 20 69 6e 20 | 74 68 65 20 77 61 79 2e |cter in |the way.|
|00004020| 22 20 75 6e 74 61 62 69 | 66 79 2d 62 61 63 6b 77 |" untabi|fy-backw|
|00004030| 61 72 64 5d 20 33 20 22 | 5c 0a 4d 6f 76 65 20 74 |ard] 3 "|\.Move t|
|00004040| 6f 20 43 4f 4c 55 4d 4e | 20 6f 6e 20 74 68 65 20 |o COLUMN| on the |
|00004050| 63 75 72 72 65 6e 74 20 | 6c 69 6e 65 2c 20 75 6e |current |line, un|
|00004060| 74 61 62 69 66 79 69 6e | 67 20 69 66 20 6e 65 63 |tabifyin|g if nec|
|00004070| 65 73 73 61 72 79 2e 0a | 52 65 74 75 72 6e 20 43 |essary..|Return C|
|00004080| 4f 4c 55 4d 4e 2e 22 5d | 29 0a 28 66 73 65 74 20 |OLUMN."]|).(fset |
|00004090| 27 75 6e 74 61 62 69 66 | 79 2d 62 61 63 6b 77 61 |'untabif|y-backwa|
|000040a0| 72 64 20 23 5b 6e 69 6c | 20 22 8a 60 18 c1 c2 21 |rd #[nil| ".`...!|
|000040b0| 88 c3 60 08 5c 22 2a 87 | 22 20 5b 73 74 61 72 74 |..`.\"*.|" [start|
|000040c0| 20 62 61 63 6b 77 61 72 | 64 2d 63 68 61 72 20 31 | backwar|d-char 1|
|000040d0| 20 75 6e 74 61 62 69 66 | 79 5d 20 33 20 22 5c 0a | untabif|y] 3 "\.|
|000040e0| 55 6e 74 61 62 69 66 79 | 20 74 68 65 20 70 72 65 |Untabify| the pre|
|000040f0| 63 65 64 69 6e 67 20 74 | 61 62 2e 22 5d 29 0a 28 |ceding t|ab."]).(|
|00004100| 64 65 66 76 61 72 20 61 | 72 72 61 79 2d 6d 6f 64 |defvar a|rray-mod|
|00004110| 65 2d 6d 61 70 20 6e 69 | 6c 20 22 5c 0a 4b 65 79 |e-map ni|l "\.Key|
|00004120| 6d 61 70 20 75 73 65 64 | 20 69 6e 20 61 72 72 61 |map used| in arra|
|00004130| 79 20 6d 6f 64 65 2e 22 | 29 0a 28 62 79 74 65 2d |y mode."|).(byte-|
|00004140| 63 6f 64 65 20 22 08 ac | f5 c1 20 10 c2 08 c3 c4 |code "..|.. .....|
|00004150| 23 88 c2 08 c5 c6 23 88 | c2 08 c7 c8 23 88 c2 08 |#.....#.|....#...|
|00004160| c9 ca 23 88 c2 08 cb cc | 23 88 c2 08 cd ce 23 88 |..#.....|#.....#.|
|00004170| c2 08 cf d0 23 88 c2 08 | d1 d2 23 88 c2 08 d3 d4 |....#...|..#.....|
|00004180| 23 88 c2 08 d5 d6 23 88 | c2 08 d7 d8 23 88 c2 08 |#.....#.|....#...|
|00004190| d9 da 23 88 c2 08 db dc | 23 88 c2 08 dd de 23 88 |..#.....|#.....#.|
|000041a0| c2 08 df e0 23 88 c2 08 | e1 e2 23 88 c2 08 e3 e4 |....#...|..#.....|
|000041b0| 23 88 c2 08 e5 e6 23 88 | c2 08 e7 e8 23 88 e9 ea |#.....#.|....#...|
|000041c0| eb ec 23 87 22 20 5b 61 | 72 72 61 79 2d 6d 6f 64 |..#." [a|rray-mod|
|000041d0| 65 2d 6d 61 70 20 6d 61 | 6b 65 2d 6b 65 79 6d 61 |e-map ma|ke-keyma|
|000041e0| 70 20 64 65 66 69 6e 65 | 2d 6b 65 79 20 22 e1 64 |p define|-key ".d|
|000041f0| 22 20 61 72 72 61 79 2d | 64 69 73 70 6c 61 79 2d |" array-|display-|
|00004200| 6c 6f 63 61 6c 2d 76 61 | 72 69 61 62 6c 65 73 20 |local-va|riables |
|00004210| 22 e1 6d 22 20 61 72 72 | 61 79 2d 6d 61 6b 65 2d |".m" arr|ay-make-|
|00004220| 74 65 6d 70 6c 61 74 65 | 20 22 e1 65 22 20 61 72 |template| ".e" ar|
|00004230| 72 61 79 2d 65 78 70 61 | 6e 64 2d 72 6f 77 73 20 |ray-expa|nd-rows |
|00004240| 22 e1 72 22 20 61 72 72 | 61 79 2d 72 65 63 6f 6e |".r" arr|ay-recon|
|00004250| 66 69 67 75 72 65 2d 72 | 6f 77 73 20 22 e1 3d 22 |figure-r|ows ".="|
|00004260| 20 61 72 72 61 79 2d 77 | 68 61 74 2d 70 6f 73 69 | array-w|hat-posi|
|00004270| 74 69 6f 6e 20 22 e1 67 | 22 20 61 72 72 61 79 2d |tion ".g|" array-|
|00004280| 67 6f 74 6f 2d 63 65 6c | 6c 20 22 0e 22 20 61 72 |goto-cel|l "." ar|
|00004290| 72 61 79 2d 6e 65 78 74 | 2d 72 6f 77 20 22 10 22 |ray-next|-row "."|
|000042a0| 20 61 72 72 61 79 2d 70 | 72 65 76 69 6f 75 73 2d | array-p|revious-|
|000042b0| 72 6f 77 20 22 06 22 20 | 61 72 72 61 79 2d 66 6f |row "." |array-fo|
|000042c0| 72 77 61 72 64 2d 63 6f | 6c 75 6d 6e 20 22 02 22 |rward-co|lumn "."|
|000042d0| 20 61 72 72 61 79 2d 62 | 61 63 6b 77 61 72 64 2d | array-b|ackward-|
|000042e0| 63 6f 6c 75 6d 6e 20 22 | ee 22 20 61 72 72 61 79 |column "|." array|
|000042f0| 2d 63 6f 70 79 2d 64 6f | 77 6e 20 22 f0 22 20 61 |-copy-do|wn "." a|
|00004300| 72 72 61 79 2d 63 6f 70 | 79 2d 75 70 20 22 e6 22 |rray-cop|y-up "."|
|00004310| 20 61 72 72 61 79 2d 63 | 6f 70 79 2d 66 6f 72 77 | array-c|opy-forw|
|00004320| 61 72 64 20 22 e2 22 20 | 61 72 72 61 79 2d 63 6f |ard "." |array-co|
|00004330| 70 79 2d 62 61 63 6b 77 | 61 72 64 20 22 8e 22 20 |py-backw|ard "." |
|00004340| 61 72 72 61 79 2d 63 6f | 70 79 2d 72 6f 77 2d 64 |array-co|py-row-d|
|00004350| 6f 77 6e 20 22 90 22 20 | 61 72 72 61 79 2d 63 6f |own "." |array-co|
|00004360| 70 79 2d 72 6f 77 2d 75 | 70 20 22 86 22 20 61 72 |py-row-u|p "." ar|
|00004370| 72 61 79 2d 63 6f 70 79 | 2d 63 6f 6c 75 6d 6e 2d |ray-copy|-column-|
|00004380| 66 6f 72 77 61 72 64 20 | 22 82 22 20 61 72 72 61 |forward |"." arra|
|00004390| 79 2d 63 6f 70 79 2d 63 | 6f 6c 75 6d 6e 2d 62 61 |y-copy-c|olumn-ba|
|000043a0| 63 6b 77 61 72 64 20 22 | e1 66 22 20 61 72 72 61 |ckward "|.f" arra|
|000043b0| 79 2d 66 69 6c 6c 2d 72 | 65 63 74 61 6e 67 6c 65 |y-fill-r|ectangle|
|000043c0| 20 70 75 74 20 61 72 72 | 61 79 2d 6d 6f 64 65 20 | put arr|ay-mode |
|000043d0| 6d 6f 64 65 2d 63 6c 61 | 73 73 20 73 70 65 63 69 |mode-cla|ss speci|
|000043e0| 61 6c 5d 20 34 29 0a 28 | 66 73 65 74 20 27 61 72 |al] 4).(|fset 'ar|
|000043f0| 72 61 79 2d 6d 6f 64 65 | 20 23 5b 6e 69 6c 20 22 |ray-mode| #[nil "|
|00004400| c0 c1 21 88 c0 c2 21 88 | c0 c3 21 88 c0 c4 21 88 |..!...!.|..!...!.|
|00004410| c0 c5 21 88 c0 c6 21 88 | c0 c7 21 88 c0 c8 21 88 |..!...!.|..!...!.|
|00004420| c0 c9 21 88 c0 ca 21 88 | c0 cb 21 88 c0 cc 21 88 |..!...!.|..!...!.|
|00004430| c0 cd 21 88 ce 16 0d cf | 20 88 d0 16 11 d2 16 13 |..!.....| .......|
|00004440| 8a d4 20 71 88 29 d5 d6 | 20 21 88 d7 d8 21 88 d9 |.. q.)..| !...!..|
|00004450| da 21 88 db 16 1a db 16 | 1c dd 0e 1e 21 88 df e0 |.!......|....!...|
|00004460| 21 87 22 20 5b 6d 61 6b | 65 2d 6c 6f 63 61 6c 2d |!." [mak|e-local-|
|00004470| 76 61 72 69 61 62 6c 65 | 20 6d 61 78 2d 72 6f 77 |variable| max-row|
|00004480| 20 6d 61 78 2d 63 6f 6c | 75 6d 6e 20 63 6f 6c 75 | max-col|umn colu|
|00004490| 6d 6e 73 2d 70 65 72 2d | 6c 69 6e 65 20 66 69 65 |mns-per-|line fie|
|000044a0| 6c 64 2d 77 69 64 74 68 | 20 72 6f 77 73 2d 6e 75 |ld-width| rows-nu|
|000044b0| 6d 62 65 72 65 64 20 6c | 69 6e 65 2d 6c 65 6e 67 |mbered l|ine-leng|
|000044c0| 74 68 20 6c 69 6e 65 73 | 2d 70 65 72 2d 72 6f 77 |th lines|-per-row|
|000044d0| 20 62 75 66 66 65 72 2d | 6c 69 6e 65 20 62 75 66 | buffer-|line buf|
|000044e0| 66 65 72 2d 63 6f 6c 75 | 6d 6e 20 61 72 72 61 79 |fer-colu|mn array|
|000044f0| 2d 72 6f 77 20 61 72 72 | 61 79 2d 63 6f 6c 75 6d |-row arr|ay-colum|
|00004500| 6e 20 63 6f 70 79 2d 73 | 74 72 69 6e 67 20 72 65 |n copy-s|tring re|
|00004510| 73 70 65 63 74 2d 74 61 | 62 73 20 6e 69 6c 20 61 |spect-ta|bs nil a|
|00004520| 72 72 61 79 2d 69 6e 69 | 74 2d 6c 6f 63 61 6c 2d |rray-ini|t-local-|
|00004530| 76 61 72 69 61 62 6c 65 | 73 20 61 72 72 61 79 2d |variable|s array-|
|00004540| 6d 6f 64 65 20 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 |mode maj|or-mode |
|00004550| 22 41 72 72 61 79 22 20 | 6d 6f 64 65 2d 6e 61 6d |"Array" |mode-nam|
|00004560| 65 20 6f 74 68 65 72 2d | 62 75 66 66 65 72 20 73 |e other-|buffer s|
|00004570| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00004580| 65 64 2d 70 20 62 75 66 | 66 65 72 2d 6d 6f 64 69 |ed-p buf|fer-modi|
|00004590| 66 69 65 64 2d 70 20 73 | 69 74 2d 66 6f 72 20 30 |fied-p s|it-for 0|
|000045a0| 20 6d 61 6b 65 2d 76 61 | 72 69 61 62 6c 65 2d 62 | make-va|riable-b|
|000045b0| 75 66 66 65 72 2d 6c 6f | 63 61 6c 20 74 72 75 6e |uffer-lo|cal trun|
|000045c0| 63 61 74 65 2d 6c 69 6e | 65 73 20 74 20 6f 76 65 |cate-lin|es t ove|
|000045d0| 72 77 72 69 74 65 2d 6d | 6f 64 65 20 75 73 65 2d |rwrite-m|ode use-|
|000045e0| 6c 6f 63 61 6c 2d 6d 61 | 70 20 61 72 72 61 79 2d |local-ma|p array-|
|000045f0| 6d 6f 64 65 2d 6d 61 70 | 20 72 75 6e 2d 68 6f 6f |mode-map| run-hoo|
|00004600| 6b 73 20 61 72 72 61 79 | 2d 6d 6f 64 65 2d 68 6f |ks array|-mode-ho|
|00004610| 6f 6b 5d 20 32 20 22 5c | 0a 4d 61 6a 6f 72 20 6d |ok] 2 "\|.Major m|
|00004620| 6f 64 65 20 66 6f 72 20 | 65 64 69 74 69 6e 67 20 |ode for |editing |
|00004630| 61 72 72 61 79 73 2e 0a | 0a 20 20 41 72 72 61 79 |arrays..|. Array|
|00004640| 20 6d 6f 64 65 20 69 73 | 20 61 20 73 70 65 63 69 | mode is| a speci|
|00004650| 61 6c 69 7a 65 64 20 6d | 6f 64 65 20 66 6f 72 20 |alized m|ode for |
|00004660| 65 64 69 74 69 6e 67 20 | 61 72 72 61 79 73 2e 20 |editing |arrays. |
|00004670| 20 41 6e 20 61 72 72 61 | 79 20 69 73 0a 63 6f 6e | An arra|y is.con|
|00004680| 73 69 64 65 72 65 64 20 | 74 6f 20 62 65 20 61 20 |sidered |to be a |
|00004690| 74 77 6f 2d 64 69 6d 65 | 6e 73 69 6f 6e 61 6c 20 |two-dime|nsional |
|000046a0| 73 65 74 20 6f 66 20 73 | 74 72 69 6e 67 73 2e 20 |set of s|trings. |
|000046b0| 20 54 68 65 20 73 74 72 | 69 6e 67 73 20 61 72 65 | The str|ings are|
|000046c0| 0a 4e 4f 54 20 72 65 63 | 6f 67 6e 69 7a 65 64 20 |.NOT rec|ognized |
|000046d0| 61 73 20 69 6e 74 65 67 | 65 72 73 20 6f 72 20 72 |as integ|ers or r|
|000046e0| 65 61 6c 20 6e 75 6d 62 | 65 72 73 2e 0a 0a 20 20 |eal numb|ers... |
|000046f0| 54 68 65 20 61 72 72 61 | 79 20 4d 55 53 54 20 72 |The arra|y MUST r|
|00004700| 65 73 69 64 65 20 61 74 | 20 74 68 65 20 74 6f 70 |eside at| the top|
|00004710| 20 6f 66 20 74 68 65 20 | 62 75 66 66 65 72 2e 20 | of the |buffer. |
|00004720| 20 0a 0a 20 20 54 41 42 | 73 20 61 72 65 20 6e 6f | .. TAB|s are no|
|00004730| 74 20 72 65 73 70 65 63 | 74 65 64 2c 20 61 6e 64 |t respec|ted, and|
|00004740| 20 6d 61 79 20 62 65 20 | 63 6f 6e 76 65 72 74 65 | may be |converte|
|00004750| 64 20 69 6e 74 6f 20 73 | 70 61 63 65 73 20 61 74 |d into s|paces at|
|00004760| 20 61 6e 79 20 74 69 6d | 65 2e 0a 53 65 74 74 69 | any tim|e..Setti|
|00004770| 6e 67 20 74 68 65 20 76 | 61 72 69 61 62 6c 65 20 |ng the v|ariable |
|00004780| 27 72 65 73 70 65 63 74 | 2d 74 61 62 73 20 74 6f |'respect|-tabs to|
|00004790| 20 6e 6f 6e 2d 6e 69 6c | 20 77 69 6c 6c 20 70 72 | non-nil| will pr|
|000047a0| 65 76 65 6e 74 20 54 41 | 42 20 63 6f 6e 76 65 72 |event TA|B conver|
|000047b0| 73 69 6f 6e 2c 0a 62 75 | 74 20 77 69 6c 6c 20 63 |sion,.bu|t will c|
|000047c0| 61 75 73 65 20 6d 61 6e | 79 20 66 75 6e 63 74 69 |ause man|y functi|
|000047d0| 6f 6e 73 20 74 6f 20 67 | 69 76 65 20 65 72 72 6f |ons to g|ive erro|
|000047e0| 72 73 20 69 66 20 74 68 | 65 79 20 65 6e 63 6f 75 |rs if th|ey encou|
|000047f0| 6e 74 65 72 20 6f 6e 65 | 2e 0a 0a 20 20 55 70 6f |nter one|... Upo|
|00004800| 6e 20 65 6e 74 65 72 69 | 6e 67 20 61 72 72 61 79 |n enteri|ng array|
|00004810| 20 6d 6f 64 65 2c 20 79 | 6f 75 20 77 69 6c 6c 20 | mode, y|ou will |
|00004820| 62 65 20 70 72 6f 6d 70 | 74 65 64 20 66 6f 72 20 |be promp|ted for |
|00004830| 74 68 65 20 76 61 6c 75 | 65 73 20 6f 66 0a 73 65 |the valu|es of.se|
|00004840| 76 65 72 61 6c 20 76 61 | 72 69 61 62 6c 65 73 2e |veral va|riables.|
|00004850| 20 20 4f 74 68 65 72 73 | 20 77 69 6c 6c 20 62 65 | Others| will be|
|00004860| 20 63 61 6c 63 75 6c 61 | 74 65 64 20 62 61 73 65 | calcula|ted base|
|00004870| 64 20 6f 6e 20 74 68 65 | 20 76 61 6c 75 65 73 20 |d on the| values |
|00004880| 79 6f 75 0a 73 75 70 70 | 6c 79 2e 20 20 54 68 65 |you.supp|ly. The|
|00004890| 73 65 20 76 61 72 69 61 | 62 6c 65 73 20 61 72 65 |se varia|bles are|
|000048a0| 20 61 6c 6c 20 6c 6f 63 | 61 6c 20 74 68 65 20 74 | all loc|al the t|
|000048b0| 68 65 20 62 75 66 66 65 | 72 2e 20 20 4f 74 68 65 |he buffe|r. Othe|
|000048c0| 72 20 62 75 66 66 65 72 | 0a 69 6e 20 61 72 72 61 |r buffer|.in arra|
|000048d0| 79 20 6d 6f 64 65 20 6d | 61 79 20 68 61 76 65 20 |y mode m|ay have |
|000048e0| 64 69 66 66 65 72 65 6e | 74 20 76 61 6c 75 65 73 |differen|t values|
|000048f0| 20 61 73 73 69 67 6e 65 | 64 20 74 6f 20 74 68 65 | assigne|d to the|
|00004900| 20 76 61 72 69 61 62 6c | 65 73 2e 0a 54 68 65 20 | variabl|es..The |
|00004910| 76 61 72 69 61 62 6c 65 | 73 20 61 72 65 3a 0a 0a |variable|s are:..|
|00004920| 56 61 72 69 61 62 6c 65 | 73 20 79 6f 75 20 61 73 |Variable|s you as|
|00004930| 73 69 67 6e 3a 0a 20 20 | 20 20 20 6d 61 78 2d 72 |sign:. | max-r|
|00004940| 6f 77 3a 20 20 20 20 20 | 20 20 20 20 20 54 68 65 |ow: | The|
|00004950| 20 6e 75 6d 62 65 72 20 | 6f 66 20 72 6f 77 73 20 | number |of rows |
|00004960| 69 6e 20 74 68 65 20 61 | 72 72 61 79 2e 0a 20 20 |in the a|rray.. |
|00004970| 20 20 20 6d 61 78 2d 63 | 6f 6c 75 6d 6e 3a 20 20 | max-c|olumn: |
|00004980| 20 20 20 20 20 54 68 65 | 20 6e 75 6d 62 65 72 20 | The| number |
|00004990| 6f 66 20 63 6f 6c 75 6d | 6e 73 20 69 6e 20 74 68 |of colum|ns in th|
|000049a0| 65 20 61 72 72 61 79 2e | 20 0a 20 20 20 20 20 63 |e array.| . c|
|000049b0| 6f 6c 75 6d 6e 73 2d 70 | 65 72 2d 6c 69 6e 65 3a |olumns-p|er-line:|
|000049c0| 20 54 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | The num|ber of c|
|000049d0| 6f 6c 75 6d 6e 73 20 69 | 6e 20 74 68 65 20 61 72 |olumns i|n the ar|
|000049e0| 72 61 79 20 70 65 72 20 | 6c 69 6e 65 20 6f 66 20 |ray per |line of |
|000049f0| 62 75 66 66 65 72 2e 0a | 20 20 20 20 20 66 69 65 |buffer..| fie|
|00004a00| 6c 64 2d 77 69 64 74 68 | 3a 20 20 20 20 20 20 54 |ld-width|: T|
|00004a10| 68 65 20 77 69 64 74 68 | 20 6f 66 20 65 61 63 68 |he width| of each|
|00004a20| 20 66 69 65 6c 64 2c 20 | 69 6e 20 63 68 61 72 61 | field, |in chara|
|00004a30| 63 74 65 72 73 2e 0a 20 | 20 20 20 20 72 6f 77 73 |cters.. | rows|
|00004a40| 2d 6e 75 6d 62 65 72 65 | 64 3a 20 20 20 20 41 20 |-numbere|d: A |
|00004a50| 6c 6f 67 69 63 61 6c 20 | 76 61 72 69 61 62 6c 65 |logical |variable|
|00004a60| 20 64 65 73 63 72 69 62 | 69 6e 67 20 77 68 65 74 | describ|ing whet|
|00004a70| 68 65 72 20 74 6f 20 69 | 67 6e 6f 72 65 0a 20 20 |her to i|gnore. |
|00004a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a90| 20 20 20 20 20 20 72 6f | 77 20 6e 75 6d 62 65 72 | ro|w number|
|00004aa0| 73 20 69 6e 20 74 68 65 | 20 62 75 66 66 65 72 2e |s in the| buffer.|
|00004ab0| 0a 0a 56 61 72 69 61 62 | 6c 65 73 20 77 68 69 63 |..Variab|les whic|
|00004ac0| 68 20 61 72 65 20 63 61 | 6c 63 75 6c 61 74 65 64 |h are ca|lculated|
|00004ad0| 3a 0a 20 20 20 20 20 6c | 69 6e 65 2d 6c 65 6e 67 |:. l|ine-leng|
|00004ae0| 74 68 3a 20 20 20 20 20 | 20 54 68 65 20 6e 75 6d |th: | The num|
|00004af0| 62 65 72 20 6f 66 20 63 | 68 61 72 61 63 74 65 72 |ber of c|haracter|
|00004b00| 73 20 69 6e 20 61 20 62 | 75 66 66 65 72 20 6c 69 |s in a b|uffer li|
|00004b10| 6e 65 2e 0a 20 20 20 20 | 20 6c 69 6e 65 73 2d 70 |ne.. | lines-p|
|00004b20| 65 72 2d 72 6f 77 3a 20 | 20 20 20 54 68 65 20 6e |er-row: | The n|
|00004b30| 75 6d 62 65 72 20 6f 66 | 20 62 75 66 66 65 72 20 |umber of| buffer |
|00004b40| 6c 69 6e 65 73 20 75 73 | 65 64 20 74 6f 20 64 69 |lines us|ed to di|
|00004b50| 73 70 6c 61 79 20 65 61 | 63 68 20 72 6f 77 2e 0a |splay ea|ch row..|
|00004b60| 0a 20 20 54 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |. The f|ollowing|
|00004b70| 20 63 6f 6d 6d 61 6e 64 | 73 20 61 72 65 20 61 76 | command|s are av|
|00004b80| 61 69 6c 61 62 6c 65 20 | 28 61 6e 20 61 73 74 65 |ailable |(an aste|
|00004b90| 72 69 73 6b 20 69 6e 64 | 69 63 61 74 65 73 20 69 |risk ind|icates i|
|00004ba0| 74 20 6d 61 79 0a 74 61 | 6b 65 20 61 20 6e 75 6d |t may.ta|ke a num|
|00004bb0| 65 72 69 63 20 70 72 65 | 66 69 78 20 61 72 67 75 |eric pre|fix argu|
|00004bc0| 6d 65 6e 74 29 3a 0a 0a | 20 20 20 20 2a 20 20 09 |ment):..| * .|
|00004bd0| 43 2d 66 09 4d 6f 76 65 | 20 66 6f 72 77 61 72 64 |C-f.Move| forward|
|00004be0| 20 6f 6e 65 20 63 6f 6c | 75 6d 6e 2e 0a 20 20 20 | one col|umn.. |
|00004bf0| 20 2a 20 20 09 43 2d 62 | 09 4d 6f 76 65 20 62 61 | * .C-b|.Move ba|
|00004c00| 63 6b 77 61 72 64 20 6f | 6e 65 20 63 6f 6c 75 6d |ckward o|ne colum|
|00004c10| 6e 2e 0a 20 20 20 20 2a | 20 20 09 43 2d 6e 09 4d |n.. *| .C-n.M|
|00004c20| 6f 76 65 20 64 6f 77 6e | 20 6f 6e 65 20 72 6f 77 |ove down| one row|
|00004c30| 2e 0a 20 20 20 20 2a 20 | 20 09 43 2d 70 09 4d 6f |.. * | .C-p.Mo|
|00004c40| 76 65 20 75 70 20 6f 6e | 65 20 72 6f 77 2e 0a 0a |ve up on|e row...|
|00004c50| 20 20 20 20 2a 20 20 20 | 4d 2d 66 09 43 6f 70 79 | * |M-f.Copy|
|00004c60| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 66 69 65 | the cur|rent fie|
|00004c70| 6c 64 20 69 6e 74 6f 20 | 74 68 65 20 63 6f 6c 75 |ld into |the colu|
|00004c80| 6d 6e 20 74 6f 20 74 68 | 65 20 72 69 67 68 74 2e |mn to th|e right.|
|00004c90| 0a 20 20 20 20 2a 20 20 | 20 4d 2d 62 09 43 6f 70 |. * | M-b.Cop|
|00004ca0| 79 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 66 69 |y the cu|rrent fi|
|00004cb0| 65 6c 64 20 69 6e 74 6f | 20 74 68 65 20 63 6f 6c |eld into| the col|
|00004cc0| 75 6d 6e 20 74 6f 20 74 | 68 65 20 6c 65 66 74 2e |umn to t|he left.|
|00004cd0| 0a 20 20 20 20 2a 20 20 | 20 4d 2d 6e 09 43 6f 70 |. * | M-n.Cop|
|00004ce0| 79 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 66 69 |y the cu|rrent fi|
|00004cf0| 65 6c 64 20 69 6e 74 6f | 20 74 68 65 20 72 6f 77 |eld into| the row|
|00004d00| 20 62 65 6c 6f 77 2e 0a | 20 20 20 20 2a 20 20 20 | below..| * |
|00004d10| 4d 2d 70 09 43 6f 70 79 | 20 74 68 65 20 63 75 72 |M-p.Copy| the cur|
|00004d20| 72 65 6e 74 20 66 69 65 | 6c 64 20 69 6e 74 6f 20 |rent fie|ld into |
|00004d30| 74 68 65 20 72 6f 77 20 | 61 62 6f 76 65 2e 0a 0a |the row |above...|
|00004d40| 20 20 20 20 2a 20 20 20 | 4d 2d 43 2d 66 20 20 20 | * |M-C-f |
|00004d50| 43 6f 70 79 20 74 68 65 | 20 63 75 72 72 65 6e 74 |Copy the| current|
|00004d60| 20 63 6f 6c 75 6d 6e 20 | 69 6e 74 6f 20 74 68 65 | column |into the|
|00004d70| 20 63 6f 6c 75 6d 6e 20 | 74 6f 20 74 68 65 20 72 | column |to the r|
|00004d80| 69 67 68 74 2e 0a 20 20 | 20 20 2a 20 20 20 4d 2d |ight.. | * M-|
|00004d90| 43 2d 62 20 20 20 43 6f | 70 79 20 74 68 65 20 63 |C-b Co|py the c|
|00004da0| 75 72 72 65 6e 74 20 63 | 6f 6c 75 6d 6e 20 69 6e |urrent c|olumn in|
|00004db0| 74 6f 20 74 68 65 20 63 | 6f 6c 75 6d 6e 20 74 6f |to the c|olumn to|
|00004dc0| 20 74 68 65 20 6c 65 66 | 74 2e 0a 20 20 20 20 2a | the lef|t.. *|
|00004dd0| 20 20 20 4d 2d 43 2d 6e | 20 20 20 43 6f 70 79 20 | M-C-n| Copy |
|00004de0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 72 6f 77 20 |the curr|ent row |
|00004df0| 69 6e 74 6f 20 74 68 65 | 20 72 6f 77 20 62 65 6c |into the| row bel|
|00004e00| 6f 77 2e 0a 20 20 20 20 | 2a 20 20 20 4d 2d 43 2d |ow.. |* M-C-|
|00004e10| 70 20 20 20 43 6f 70 79 | 20 74 68 65 20 63 75 72 |p Copy| the cur|
|00004e20| 72 65 6e 74 20 72 6f 77 | 20 69 6e 74 6f 20 74 68 |rent row| into th|
|00004e30| 65 20 72 6f 77 20 61 62 | 6f 76 65 2e 0a 0a 20 20 |e row ab|ove... |
|00004e40| 20 20 20 20 20 20 4d 2d | 61 20 66 20 20 20 43 6f | M-|a f Co|
|00004e50| 70 79 20 74 68 65 20 66 | 69 65 6c 64 20 61 74 20 |py the f|ield at |
|00004e60| 6d 61 72 6b 20 69 6e 74 | 6f 20 65 76 65 72 79 20 |mark int|o every |
|00004e70| 63 65 6c 6c 20 77 69 74 | 68 20 72 6f 77 20 61 6e |cell wit|h row an|
|00004e80| 64 20 63 6f 6c 75 6d 6e | 0a 20 20 20 20 20 20 20 |d column|. |
|00004e90| 20 20 20 20 20 20 20 20 | 20 20 62 65 74 77 65 65 | | betwee|
|00004ea0| 6e 20 74 68 61 74 20 6f | 66 20 70 6f 69 6e 74 20 |n that o|f point |
|00004eb0| 61 6e 64 20 6d 61 72 6b | 2e 0a 0a 09 4d 2d 61 20 |and mark|....M-a |
|00004ec0| 3d 09 44 69 73 70 6c 61 | 79 20 74 68 65 20 63 75 |=.Displa|y the cu|
|00004ed0| 72 72 65 6e 74 20 61 72 | 72 61 79 20 72 6f 77 20 |rrent ar|ray row |
|00004ee0| 61 6e 64 20 63 6f 6c 75 | 6d 6e 2e 0a 09 4d 2d 61 |and colu|mn...M-a|
|00004ef0| 20 67 09 47 6f 20 74 6f | 20 61 20 70 61 72 74 69 | g.Go to| a parti|
|00004f00| 63 75 6c 61 72 20 61 72 | 72 61 79 20 63 65 6c 6c |cular ar|ray cell|
|00004f10| 2e 0a 0a 09 4d 2d 61 20 | 74 09 4d 61 6b 65 20 61 |....M-a |t.Make a|
|00004f20| 20 74 65 6d 70 6c 61 74 | 65 20 66 6f 72 20 61 20 | templat|e for a |
|00004f30| 6e 65 77 20 61 72 72 61 | 79 2e 0a 09 4d 2d 61 20 |new arra|y...M-a |
|00004f40| 72 09 52 65 63 6f 6e 66 | 69 67 75 72 65 20 74 68 |r.Reconf|igure th|
|00004f50| 65 20 61 72 72 61 79 2e | 0a 20 20 20 20 20 20 20 |e array.|. |
|00004f60| 20 4d 2d 61 20 65 20 20 | 20 45 78 70 61 6e 64 20 | M-a e | Expand |
|00004f70| 74 68 65 20 61 72 72 61 | 79 20 28 72 65 6d 6f 76 |the arra|y (remov|
|00004f80| 65 20 72 6f 77 20 6e 75 | 6d 62 65 72 73 20 61 6e |e row nu|mbers an|
|00004f90| 64 20 6e 65 77 6c 69 6e | 65 73 20 69 6e 73 69 64 |d newlin|es insid|
|00004fa0| 65 20 72 6f 77 73 2e 29 | 0a 20 20 20 20 20 20 20 |e rows.)|. |
|00004fb0| 20 4d 2d 61 20 64 20 20 | 20 44 69 73 70 6c 61 79 | M-a d | Display|
|00004fc0| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 76 61 6c | the cur|rent val|
|00004fd0| 75 65 73 20 6f 66 20 6c | 6f 63 61 6c 20 76 61 72 |ues of l|ocal var|
|00004fe0| 69 61 62 6c 65 73 2e 0a | 0a 45 6e 74 65 72 69 6e |iables..|.Enterin|
|00004ff0| 67 20 61 72 72 61 79 20 | 6d 6f 64 65 20 63 61 6c |g array |mode cal|
|00005000| 6c 73 20 74 68 65 20 66 | 75 6e 63 74 69 6f 6e 20 |ls the f|unction |
|00005010| 61 72 72 61 79 2d 6d 6f | 64 65 2d 68 6f 6f 6b 2e |array-mo|de-hook.|
|00005020| 22 20 6e 69 6c 5d 29 0a | 28 66 73 65 74 20 27 61 |" nil]).|(fset 'a|
|00005030| 72 72 61 79 2d 69 6e 69 | 74 2d 6c 6f 63 61 6c 2d |rray-ini|t-local-|
|00005040| 76 61 72 69 61 62 6c 65 | 73 20 23 5b 6e 69 6c 20 |variable|s #[nil |
|00005050| 22 c0 20 88 c1 20 88 c2 | 20 88 c3 20 88 c4 20 88 |". .. ..| .. .. .|
|00005060| c5 20 88 c6 20 88 c7 c8 | 21 87 22 20 5b 61 72 72 |. .. ...|!." [arr|
|00005070| 61 79 2d 69 6e 69 74 2d | 6d 61 78 2d 72 6f 77 20 |ay-init-|max-row |
|00005080| 61 72 72 61 79 2d 69 6e | 69 74 2d 6d 61 78 2d 63 |array-in|it-max-c|
|00005090| 6f 6c 75 6d 6e 20 61 72 | 72 61 79 2d 69 6e 69 74 |olumn ar|ray-init|
|000050a0| 2d 63 6f 6c 75 6d 6e 73 | 2d 70 65 72 2d 6c 69 6e |-columns|-per-lin|
|000050b0| 65 20 61 72 72 61 79 2d | 69 6e 69 74 2d 66 69 65 |e array-|init-fie|
|000050c0| 6c 64 2d 77 69 64 74 68 | 20 61 72 72 61 79 2d 69 |ld-width| array-i|
|000050d0| 6e 69 74 2d 72 6f 77 73 | 2d 6e 75 6d 62 65 72 65 |nit-rows|-numbere|
|000050e0| 64 20 61 72 72 61 79 2d | 69 6e 69 74 2d 6c 69 6e |d array-|init-lin|
|000050f0| 65 2d 6c 65 6e 67 74 68 | 20 61 72 72 61 79 2d 69 |e-length| array-i|
|00005100| 6e 69 74 2d 6c 69 6e 65 | 73 2d 70 65 72 2d 72 6f |nit-line|s-per-ro|
|00005110| 77 20 6d 65 73 73 61 67 | 65 20 22 22 5d 20 32 20 |w messag|e ""] 2 |
|00005120| 22 5c 0a 49 6e 69 74 69 | 61 6c 69 7a 65 20 74 68 |"\.Initi|alize th|
|00005130| 65 20 76 61 72 69 61 62 | 6c 65 73 20 61 73 73 6f |e variab|les asso|
|00005140| 63 69 61 74 65 64 20 77 | 69 74 68 20 74 68 65 0a |ciated w|ith the.|
|00005150| 61 72 72 61 79 20 69 6e | 20 74 68 69 73 20 62 75 |array in| this bu|
|00005160| 66 66 65 72 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |ffer."])|.(fset '|
|00005170| 61 72 72 61 79 2d 69 6e | 69 74 2d 6d 61 78 2d 72 |array-in|it-max-r|
|00005180| 6f 77 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |ow #[(&o|ptional |
|00005190| 61 72 67 29 20 22 08 ae | 85 c1 c2 c3 21 21 89 14 |arg) "..|....!!..|
|000051a0| 87 22 20 5b 61 72 67 20 | 73 74 72 69 6e 67 2d 74 |." [arg |string-t|
|000051b0| 6f 2d 69 6e 74 20 72 65 | 61 64 2d 69 6e 70 75 74 |o-int re|ad-input|
|000051c0| 20 22 4e 75 6d 62 65 72 | 20 6f 66 20 61 72 72 61 | "Number| of arra|
|000051d0| 79 20 72 6f 77 73 3a 20 | 22 20 6d 61 78 2d 72 6f |y rows: |" max-ro|
|000051e0| 77 5d 20 33 20 22 5c 0a | 49 6e 69 74 69 61 6c 69 |w] 3 "\.|Initiali|
|000051f0| 7a 65 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |ze the v|alue of |
|00005200| 6d 61 78 2d 72 6f 77 2e | 22 5d 29 0a 28 66 73 65 |max-row.|"]).(fse|
|00005210| 74 20 27 61 72 72 61 79 | 2d 69 6e 69 74 2d 6d 61 |t 'array|-init-ma|
|00005220| 78 2d 63 6f 6c 75 6d 6e | 20 23 5b 28 26 6f 70 74 |x-column| #[(&opt|
|00005230| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 08 ae 85 c1 |ional ar|g) "....|
|00005240| c2 c3 21 21 89 14 87 22 | 20 5b 61 72 67 20 73 74 |..!!..."| [arg st|
|00005250| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 72 65 61 64 |ring-to-|int read|
|00005260| 2d 69 6e 70 75 74 20 22 | 4e 75 6d 62 65 72 20 6f |-input "|Number o|
|00005270| 66 20 61 72 72 61 79 20 | 63 6f 6c 75 6d 6e 73 3a |f array |columns:|
|00005280| 20 22 20 6d 61 78 2d 63 | 6f 6c 75 6d 6e 5d 20 33 | " max-c|olumn] 3|
|00005290| 20 22 5c 0a 49 6e 69 74 | 69 61 6c 69 7a 65 20 74 | "\.Init|ialize t|
|000052a0| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 6d 61 78 2d |he value| of max-|
|000052b0| 63 6f 6c 75 6d 6e 2e 22 | 5d 29 0a 28 66 73 65 74 |column."|]).(fset|
|000052c0| 20 27 61 72 72 61 79 2d | 69 6e 69 74 2d 63 6f 6c | 'array-|init-col|
|000052d0| 75 6d 6e 73 2d 70 65 72 | 2d 6c 69 6e 65 20 23 5b |umns-per|-line #[|
|000052e0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|000052f0| 22 08 ae 85 c1 c2 c3 21 | 21 89 14 87 22 20 5b 61 |"......!|!..." [a|
|00005300| 72 67 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 |rg strin|g-to-int|
|00005310| 20 72 65 61 64 2d 69 6e | 70 75 74 20 22 41 72 72 | read-in|put "Arr|
|00005320| 61 79 20 63 6f 6c 75 6d | 6e 73 20 70 65 72 20 6c |ay colum|ns per l|
|00005330| 69 6e 65 3a 20 22 20 63 | 6f 6c 75 6d 6e 73 2d 70 |ine: " c|olumns-p|
|00005340| 65 72 2d 6c 69 6e 65 5d | 20 33 20 22 5c 0a 49 6e |er-line]| 3 "\.In|
|00005350| 69 74 69 61 6c 69 7a 65 | 20 74 68 65 20 76 61 6c |itialize| the val|
|00005360| 75 65 20 6f 66 20 63 6f | 6c 75 6d 6e 73 2d 70 65 |ue of co|lumns-pe|
|00005370| 72 2d 6c 69 6e 65 2e 22 | 5d 29 0a 28 66 73 65 74 |r-line."|]).(fset|
|00005380| 20 27 61 72 72 61 79 2d | 69 6e 69 74 2d 66 69 65 | 'array-|init-fie|
|00005390| 6c 64 2d 77 69 64 74 68 | 20 23 5b 28 26 6f 70 74 |ld-width| #[(&opt|
|000053a0| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 08 ae 85 c1 |ional ar|g) "....|
|000053b0| c2 c3 21 21 89 14 87 22 | 20 5b 61 72 67 20 73 74 |..!!..."| [arg st|
|000053c0| 72 69 6e 67 2d 74 6f 2d | 69 6e 74 20 72 65 61 64 |ring-to-|int read|
|000053d0| 2d 69 6e 70 75 74 20 22 | 46 69 65 6c 64 20 77 69 |-input "|Field wi|
|000053e0| 64 74 68 3a 20 22 20 66 | 69 65 6c 64 2d 77 69 64 |dth: " f|ield-wid|
|000053f0| 74 68 5d 20 33 20 22 5c | 0a 49 6e 69 74 69 61 6c |th] 3 "\|.Initial|
|00005400| 69 7a 65 20 74 68 65 20 | 76 61 6c 75 65 20 6f 66 |ize the |value of|
|00005410| 20 66 69 65 6c 64 2d 77 | 69 64 74 68 2e 22 5d 29 | field-w|idth."])|
|00005420| 0a 28 66 73 65 74 20 27 | 61 72 72 61 79 2d 69 6e |.(fset '|array-in|
|00005430| 69 74 2d 72 6f 77 73 2d | 6e 75 6d 62 65 72 65 64 |it-rows-|numbered|
|00005440| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00005450| 67 29 20 22 08 ae 83 c1 | c2 21 89 13 87 22 20 5b |g) "....|.!..." [|
|00005460| 61 72 67 20 79 2d 6f 72 | 2d 6e 2d 70 20 22 52 6f |arg y-or|-n-p "Ro|
|00005470| 77 73 20 6e 75 6d 62 65 | 72 65 64 3f 20 22 20 72 |ws numbe|red? " r|
|00005480| 6f 77 73 2d 6e 75 6d 62 | 65 72 65 64 5d 20 32 20 |ows-numb|ered] 2 |
|00005490| 22 5c 0a 49 6e 69 74 69 | 61 6c 69 7a 65 20 74 68 |"\.Initi|alize th|
|000054a0| 65 20 76 61 6c 75 65 20 | 6f 66 20 72 6f 77 73 2d |e value |of rows-|
|000054b0| 6e 75 6d 62 65 72 65 64 | 2e 22 5d 29 0a 28 66 73 |numbered|."]).(fs|
|000054c0| 65 74 20 27 61 72 72 61 | 79 2d 69 6e 69 74 2d 6c |et 'arra|y-init-l|
|000054d0| 69 6e 65 2d 6c 65 6e 67 | 74 68 20 23 5b 28 26 6f |ine-leng|th #[(&o|
|000054e0| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 08 ae |ptional |arg) "..|
|000054f0| 83 09 5c 6e 5f 89 13 87 | 22 20 5b 61 72 67 20 66 |..\n_...|" [arg f|
|00005500| 69 65 6c 64 2d 77 69 64 | 74 68 20 63 6f 6c 75 6d |ield-wid|th colum|
|00005510| 6e 73 2d 70 65 72 2d 6c | 69 6e 65 20 6c 69 6e 65 |ns-per-l|ine line|
|00005520| 2d 6c 65 6e 67 74 68 5d | 20 32 20 22 5c 0a 49 6e |-length]| 2 "\.In|
|00005530| 69 74 69 61 6c 69 7a 65 | 20 74 68 65 20 76 61 6c |itialize| the val|
|00005540| 75 65 20 6f 66 20 6c 69 | 6e 65 2d 6c 65 6e 67 74 |ue of li|ne-lengt|
|00005550| 68 2e 22 5d 29 0a 28 66 | 73 65 74 20 27 61 72 72 |h."]).(f|set 'arr|
|00005560| 61 79 2d 69 6e 69 74 2d | 6c 69 6e 65 73 2d 70 65 |ay-init-|lines-pe|
|00005570| 72 2d 72 6f 77 20 23 5b | 28 26 6f 70 74 69 6f 6e |r-row #[|(&option|
|00005580| 61 6c 20 61 72 67 29 20 | 22 08 ae 8c c1 5c 6e 0b |al arg) |"....\n.|
|00005590| 5c 22 0c ab 83 c5 aa 81 | c6 5c 5c 89 16 07 87 22 |\"......|.\\...."|
|000055a0| 20 5b 61 72 67 20 61 72 | 72 61 79 2d 6d 6f 64 65 | [arg ar|ray-mode|
|000055b0| 2d 63 65 69 6c 69 6e 67 | 20 6d 61 78 2d 63 6f 6c |-ceiling| max-col|
|000055c0| 75 6d 6e 20 63 6f 6c 75 | 6d 6e 73 2d 70 65 72 2d |umn colu|mns-per-|
|000055d0| 6c 69 6e 65 20 72 6f 77 | 73 2d 6e 75 6d 62 65 72 |line row|s-number|
|000055e0| 65 64 20 31 20 30 20 6c | 69 6e 65 73 2d 70 65 72 |ed 1 0 l|ines-per|
|000055f0| 2d 72 6f 77 5d 20 33 20 | 22 5c 0a 49 6e 69 74 69 |-row] 3 |"\.Initi|
|00005600| 61 6c 69 7a 65 20 74 68 | 65 20 76 61 6c 75 65 20 |alize th|e value |
|00005610| 6f 66 20 6c 69 6e 65 73 | 2d 70 65 72 2d 72 6f 77 |of lines|-per-row|
|00005620| 2e 22 5d 29 0a | |."]). | |
+--------+-------------------------+-------------------------+--------+--------+
