home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1993-08-10 | 21.9 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 |
| 100%
| file
| Emacs/XEmacs v19 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Emacs/XEmacs byte-compiled Lisp (generic)
| default
|
|
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 72 6f 6c 61 6e 64 40 |piled by| roland@|
|00000020| 63 68 75 72 63 68 79 2e | 67 6e 75 2e 61 69 2e 6d |churchy.|gnu.ai.m|
|00000030| 69 74 2e 65 64 75 20 6f | 6e 20 54 75 65 20 41 75 |it.edu o|n Tue Au|
|00000040| 67 20 31 30 20 31 33 3a | 33 30 3a 34 39 20 31 39 |g 10 13:|30:49 19|
|00000050| 39 33 0a 3b 3b 3b 20 66 | 72 6f 6d 20 66 69 6c 65 |93.;;; f|rom file|
|00000060| 20 2f 67 64 2f 67 6e 75 | 2f 65 6d 61 63 73 2f 31 | /gd/gnu|/emacs/1|
|00000070| 39 2e 30 2f 6c 69 73 70 | 2f 61 72 72 61 79 2e 65 |9.0/lisp|/array.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 31 | 38 2e 30 2e 0a 3b 3b 3b |ion 19.1|8.0..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on).. | (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 22 29 29 29 0a 20 20 |rsion "1|9"))). |
|00000190| 20 20 28 65 72 72 6f 72 | 20 22 54 68 69 73 20 66 | (error| "This f|
|000001a0| 69 6c 65 20 77 61 73 20 | 63 6f 6d 70 69 6c 65 64 |ile was |compiled|
|000001b0| 20 66 6f 72 20 45 6d 61 | 63 73 20 31 39 22 29 29 | for Ema|cs 19"))|
|000001c0| 0a 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 72 72 |..(defal|ias 'arr|
|000001d0| 61 79 2d 63 75 72 73 6f | 72 2d 69 6e 2d 61 72 72 |ay-curso|r-in-arr|
|000001e0| 61 79 2d 72 61 6e 67 65 | 20 23 5b 6e 69 6c 20 22 |ay-range| #[nil "|
|000001f0| 08 09 a6 1a 0b 0c 59 86 | 2b 00 0d 0e 06 0e 07 5f |......Y.|+......_|
|00000200| 59 86 2b 00 0d 54 0e 06 | a6 c8 55 85 2b 00 5c 6e |Y.+..T..|..U.+.\n|
|00000210| c8 55 3f 85 2b 00 0b 5c | 6e 0e 09 5f 59 29 3f 87 |.U?.+..\|n.._Y)?.|
|00000220| 22 20 5b 6d 61 78 2d 63 | 6f 6c 75 6d 6e 20 63 6f |" [max-c|olumn co|
|00000230| 6c 75 6d 6e 73 2d 70 65 | 72 2d 6c 69 6e 65 20 63 |lumns-pe|r-line c|
|00000240| 6f 6c 75 6d 6e 73 2d 6c | 61 73 74 2d 6c 69 6e 65 |olumns-l|ast-line|
|00000250| 20 62 75 66 66 65 72 2d | 63 6f 6c 75 6d 6e 20 6c | buffer-|column l|
|00000260| 69 6e 65 2d 6c 65 6e 67 | 74 68 20 62 75 66 66 65 |ine-leng|th buffe|
|00000270| 72 2d 6c 69 6e 65 20 6c | 69 6e 65 73 2d 70 65 72 |r-line l|ines-per|
|00000280| 2d 72 6f 77 20 6d 61 78 | 2d 72 6f 77 20 30 20 66 |-row max|-row 0 f|
|00000290| 69 65 6c 64 2d 77 69 64 | 74 68 5d 20 33 20 22 5c |ield-wid|th] 3 "\|
|000002a0| 0a 52 65 74 75 72 6e 73 | 20 74 20 69 66 20 74 68 |.Returns| t if th|
|000002b0| 65 20 63 75 72 73 6f 72 | 20 69 73 20 69 6e 20 61 |e cursor| is in a|
|000002c0| 20 76 61 6c 69 64 20 61 | 72 72 61 79 20 63 65 6c | valid a|rray cel|
|000002d0| 6c 2e 0a 49 74 73 20 6f | 6b 20 74 6f 20 62 65 20 |l..Its o|k to be |
|000002e0| 6f 6e 20 61 20 72 6f 77 | 20 6e 75 6d 62 65 72 20 |on a row| number |
|000002f0| 6c 69 6e 65 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |line."])|.(defali|
|00000300| 61 73 20 27 61 72 72 61 | 79 2d 63 75 72 72 65 6e |as 'arra|y-curren|
|00000310| 74 2d 72 6f 77 20 23 5b | 6e 69 6c 20 22 c0 20 85 |t-row #[|nil ". .|
|00000320| 5c 6e 00 c1 5c 6e 0b 5c | 22 54 87 22 20 5b 61 72 |\n..\n.\|"T." [ar|
|00000330| 72 61 79 2d 63 75 72 73 | 6f 72 2d 69 6e 2d 61 72 |ray-curs|or-in-ar|
|00000340| 72 61 79 2d 72 61 6e 67 | 65 20 66 6c 6f 6f 72 20 |ray-rang|e floor |
|00000350| 62 75 66 66 65 72 2d 6c | 69 6e 65 20 6c 69 6e 65 |buffer-l|ine line|
|00000360| 73 2d 70 65 72 2d 72 6f | 77 5d 20 33 20 22 5c 0a |s-per-ro|w] 3 "\.|
|00000370| 52 65 74 75 72 6e 20 74 | 68 65 20 61 72 72 61 79 |Return t|he array|
|00000380| 20 72 6f 77 20 6f 66 20 | 74 68 65 20 66 69 65 6c | row of |the fiel|
|00000390| 64 20 69 6e 20 77 68 69 | 63 68 20 74 68 65 20 63 |d in whi|ch the c|
|000003a0| 75 72 73 6f 72 20 69 73 | 20 6c 6f 63 61 74 65 64 |ursor is| located|
|000003b0| 2e 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |."]).(de|falias '|
|000003c0| 61 72 72 61 79 2d 63 75 | 72 72 65 6e 74 2d 63 6f |array-cu|rrent-co|
|000003d0| 6c 75 6d 6e 20 23 5b 6e | 69 6c 20 22 c0 20 85 2a |lumn #[n|il ". .*|
|000003e0| 00 09 85 0e 00 5c 6e 0b | a6 c4 55 3f 85 2a 00 0d |.....\n.|..U?.*..|
|000003f0| 09 83 1e 00 5c 6e 0b a6 | 53 82 21 00 5c 6e 0b a6 |....\n..|S.!.\n..|
|00000400| 5f c6 0e 07 0e 08 5c 22 | 54 5c 5c 87 22 20 5b 61 |_.....\"|T\\." [a|
|00000410| 72 72 61 79 2d 63 75 72 | 73 6f 72 2d 69 6e 2d 61 |rray-cur|sor-in-a|
|00000420| 72 72 61 79 2d 72 61 6e | 67 65 20 72 6f 77 73 2d |rray-ran|ge rows-|
|00000430| 6e 75 6d 62 65 72 65 64 | 20 62 75 66 66 65 72 2d |numbered| buffer-|
|00000440| 6c 69 6e 65 20 6c 69 6e | 65 73 2d 70 65 72 2d 72 |line lin|es-per-r|
|00000450| 6f 77 20 30 20 63 6f 6c | 75 6d 6e 73 2d 70 65 72 |ow 0 col|umns-per|
|00000460| 2d 6c 69 6e 65 20 66 6c | 6f 6f 72 20 62 75 66 66 |-line fl|oor buff|
|00000470| 65 72 2d 63 6f 6c 75 6d | 6e 20 66 69 65 6c 64 2d |er-colum|n field-|
|00000480| 77 69 64 74 68 5d 20 34 | 20 22 5c 0a 52 65 74 75 |width] 4| "\.Retu|
|00000490| 72 6e 20 74 68 65 20 61 | 72 72 61 79 20 63 6f 6c |rn the a|rray col|
|000004a0| 75 6d 6e 20 6f 66 20 74 | 68 65 20 66 69 65 6c 64 |umn of t|he field|
|000004b0| 20 69 6e 20 77 68 69 63 | 68 20 74 68 65 20 63 75 | in whic|h the cu|
|000004c0| 72 73 6f 72 20 69 73 20 | 6c 6f 63 61 74 65 64 2e |rsor is |located.|
|000004d0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |"]).(def|alias 'a|
|000004e0| 72 72 61 79 2d 75 70 64 | 61 74 65 2d 61 72 72 61 |rray-upd|ate-arra|
|000004f0| 79 2d 70 6f 73 69 74 69 | 6f 6e 20 23 5b 28 26 6f |y-positi|on #[(&o|
|00000500| 70 74 69 6f 6e 61 6c 20 | 61 2d 72 6f 77 20 61 2d |ptional |a-row a-|
|00000510| 63 6f 6c 75 6d 6e 29 20 | 22 08 86 06 00 c1 20 12 |column) |"..... .|
|00000520| 0b 86 0d 00 c4 20 89 15 | 87 22 20 5b 61 2d 72 6f |..... ..|." [a-ro|
|00000530| 77 20 61 72 72 61 79 2d | 63 75 72 72 65 6e 74 2d |w array-|current-|
|00000540| 72 6f 77 20 61 72 72 61 | 79 2d 72 6f 77 20 61 2d |row arra|y-row a-|
|00000550| 63 6f 6c 75 6d 6e 20 61 | 72 72 61 79 2d 63 75 72 |column a|rray-cur|
|00000560| 72 65 6e 74 2d 63 6f 6c | 75 6d 6e 20 61 72 72 61 |rent-col|umn arra|
|00000570| 79 2d 63 6f 6c 75 6d 6e | 5d 20 32 20 22 5c 0a 53 |y-column|] 2 "\.S|
|00000580| 65 74 20 60 61 72 72 61 | 79 2d 72 6f 77 27 20 61 |et `arra|y-row' a|
|00000590| 6e 64 20 60 61 72 72 61 | 79 2d 63 6f 6c 75 6d 6e |nd `arra|y-column|
|000005a0| 27 20 74 6f 20 74 68 65 | 69 72 20 63 75 72 72 65 |' to the|ir curre|
|000005b0| 6e 74 20 76 61 6c 75 65 | 73 20 6f 72 0a 74 6f 20 |nt value|s or.to |
|000005c0| 74 68 65 20 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |the opti|onal arg|
|000005d0| 75 6d 65 6e 74 73 20 41 | 2d 52 4f 57 20 61 6e 64 |uments A|-ROW and|
|000005e0| 20 41 2d 43 4f 4c 55 4d | 4e 2e 22 5d 29 0a 28 64 | A-COLUM|N."]).(d|
|000005f0| 65 66 61 6c 69 61 73 20 | 27 61 72 72 61 79 2d 75 |efalias |'array-u|
|00000600| 70 64 61 74 65 2d 62 75 | 66 66 65 72 2d 70 6f 73 |pdate-bu|ffer-pos|
|00000610| 69 74 69 6f 6e 20 23 5b | 6e 69 6c 20 22 c0 20 11 |ition #[|nil ". .|
|00000620| 69 89 12 87 22 20 5b 63 | 75 72 72 65 6e 74 2d 6c |i..." [c|urrent-l|
|00000630| 69 6e 65 20 62 75 66 66 | 65 72 2d 6c 69 6e 65 20 |ine buff|er-line |
|00000640| 62 75 66 66 65 72 2d 63 | 6f 6c 75 6d 6e 5d 20 32 |buffer-c|olumn] 2|
|00000650| 20 22 5c 0a 53 65 74 20 | 62 75 66 66 65 72 2d 6c | "\.Set |buffer-l|
|00000660| 69 6e 65 20 61 6e 64 20 | 62 75 66 66 65 72 2d 63 |ine and |buffer-c|
|00000670| 6f 6c 75 6d 6e 20 74 6f | 20 74 68 65 69 72 20 63 |olumn to| their c|
|00000680| 75 72 72 65 6e 74 20 76 | 61 6c 75 65 73 2e 22 5d |urrent v|alues."]|
|00000690| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 72 72 |).(defal|ias 'arr|
|000006a0| 61 79 2d 77 68 61 74 2d | 70 6f 73 69 74 69 6f 6e |ay-what-|position|
|000006b0| 20 23 5b 6e 69 6c 20 22 | c0 20 69 19 1a c3 c4 c5 | #[nil "|. i.....|
|000006c0| c6 c7 20 21 c6 c8 20 21 | 23 21 2a 87 22 20 5b 63 |.. !.. !|#!*." [c|
|000006d0| 75 72 72 65 6e 74 2d 6c | 69 6e 65 20 62 75 66 66 |urrent-l|ine buff|
|000006e0| 65 72 2d 63 6f 6c 75 6d | 6e 20 62 75 66 66 65 72 |er-colum|n buffer|
|000006f0| 2d 6c 69 6e 65 20 6d 65 | 73 73 61 67 65 20 66 6f |-line me|ssage fo|
|00000700| 72 6d 61 74 20 22 41 72 | 72 61 79 20 72 6f 77 3a |rmat "Ar|ray row:|
|00000710| 20 25 73 20 20 41 72 72 | 61 79 20 63 6f 6c 75 6d | %s Arr|ay colum|
|00000720| 6e 3a 20 25 73 22 20 70 | 72 69 6e 31 2d 74 6f 2d |n: %s" p|rin1-to-|
|00000730| 73 74 72 69 6e 67 20 61 | 72 72 61 79 2d 63 75 72 |string a|rray-cur|
|00000740| 72 65 6e 74 2d 72 6f 77 | 20 61 72 72 61 79 2d 63 |rent-row| array-c|
|00000750| 75 72 72 65 6e 74 2d 63 | 6f 6c 75 6d 6e 5d 20 36 |urrent-c|olumn] 6|
|00000760| 20 22 5c 0a 44 69 73 70 | 6c 61 79 20 74 68 65 20 | "\.Disp|lay the |
|00000770| 72 6f 77 20 61 6e 64 20 | 63 6f 6c 75 6d 6e 20 69 |row and |column i|
|00000780| 6e 20 77 68 69 63 68 20 | 74 68 65 20 63 75 72 73 |n which |the curs|
|00000790| 6f 72 20 69 73 20 70 6f | 73 69 74 69 6f 6e 65 64 |or is po|sitioned|
|000007a0| 2e 22 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |." nil])|.(defali|
|000007b0| 61 73 20 27 61 72 72 61 | 79 2d 64 69 73 70 6c 61 |as 'arra|y-displa|
|000007c0| 79 2d 6c 6f 63 61 6c 2d | 76 61 72 69 61 62 6c 65 |y-local-|variable|
|000007d0| 73 20 23 5b 6e 69 6c 20 | 22 c0 70 21 19 c2 90 c3 |s #[nil |".p!....|
|000007e0| 0c 21 88 c5 20 88 c6 c7 | c8 09 5c 22 21 88 c6 c7 |.!.. ...|..\"!...|
|000007f0| c9 ca 0e 0b 21 5c 22 21 | 88 c6 c7 cc ca 0e 0d 21 |....!\"!|.......!|
|00000800| 5c 22 21 88 c6 c7 ce ca | 0e 0f 21 5c 22 21 88 c6 |\"!.....|..!\"!..|
|00000810| c7 d0 ca 0e 11 21 5c 22 | 21 88 c6 c7 d2 ca 0e 13 |.....!\"|!.......|
|00000820| 21 5c 22 21 88 c6 c7 d4 | ca 0e 15 21 5c 22 21 88 |!\"!....|...!\"!.|
|00000830| c6 c7 d6 ca 0e 17 21 5c | 22 21 91 29 87 22 20 5b |......!\|"!.)." [|
|00000840| 62 75 66 66 65 72 2d 6e | 61 6d 65 20 62 75 66 20 |buffer-n|ame buf |
|00000850| 22 2a 4c 6f 63 61 6c 20 | 56 61 72 69 61 62 6c 65 |"*Local |Variable|
|00000860| 73 2a 22 20 62 75 66 66 | 65 72 2d 64 69 73 61 62 |s*" buff|er-disab|
|00000870| 6c 65 2d 75 6e 64 6f 20 | 73 74 61 6e 64 61 72 64 |le-undo |standard|
|00000880| 2d 6f 75 74 70 75 74 20 | 74 65 72 70 72 69 20 70 |-output |terpri p|
|00000890| 72 69 6e 63 20 66 6f 72 | 6d 61 74 20 22 20 42 75 |rinc for|mat " Bu|
|000008a0| 66 66 65 72 3a 20 20 20 | 20 20 20 20 20 20 20 20 |ffer: | |
|000008b0| 20 20 25 73 5c 6e 5c 6e | 22 20 22 20 20 6d 61 78 | %s\n\n|" " max|
|000008c0| 2d 72 6f 77 3a 20 20 20 | 20 20 20 20 20 20 20 20 |-row: | |
|000008d0| 25 73 5c 6e 22 20 70 72 | 69 6e 31 2d 74 6f 2d 73 |%s\n" pr|in1-to-s|
|000008e0| 74 72 69 6e 67 20 6d 61 | 78 2d 72 6f 77 20 22 20 |tring ma|x-row " |
|000008f0| 20 6d 61 78 2d 63 6f 6c | 75 6d 6e 3a 20 20 20 20 | max-col|umn: |
|00000900| 20 20 20 20 25 73 5c 6e | 22 20 6d 61 78 2d 63 6f | %s\n|" max-co|
|00000910| 6c 75 6d 6e 20 22 20 20 | 63 6f 6c 75 6d 6e 73 2d |lumn " |columns-|
|00000920| 70 65 72 2d 6c 69 6e 65 | 3a 20 20 25 73 5c 6e 22 |per-line|: %s\n"|
|00000930| 20 63 6f 6c 75 6d 6e 73 | 2d 70 65 72 2d 6c 69 6e | columns|-per-lin|
|00000940| 65 20 22 20 20 66 69 65 | 6c 64 2d 77 69 64 74 68 |e " fie|ld-width|
|00000950| 3a 20 20 20 20 20 20 20 | 25 73 5c 6e 22 20 66 69 |: |%s\n" fi|
|00000960| 65 6c 64 2d 77 69 64 74 | 68 20 22 20 20 72 6f 77 |eld-widt|h " row|
|00000970| 73 2d 6e 75 6d 62 65 72 | 65 64 3a 20 20 20 20 20 |s-number|ed: |
|00000980| 25 73 5c 6e 22 20 72 6f | 77 73 2d 6e 75 6d 62 65 |%s\n" ro|ws-numbe|
|00000990| 72 65 64 20 22 20 20 6c | 69 6e 65 73 2d 70 65 72 |red " l|ines-per|
|000009a0| 2d 72 6f 77 3a 20 20 20 | 20 20 25 73 5c 6e 22 20 |-row: | %s\n" |
|000009b0| 6c 69 6e 65 73 2d 70 65 | 72 2d 72 6f 77 20 22 20 |lines-pe|r-row " |
|000009c0| 20 6c 69 6e 65 2d 6c 65 | 6e 67 74 68 3a 20 20 20 | line-le|ngth: |
|000009d0| 20 20 20 20 25 73 5c 6e | 22 20 6c 69 6e 65 2d 6c | %s\n|" line-l|
|000009e0| 65 6e 67 74 68 5d 20 36 | 20 22 5c 0a 44 69 73 70 |ength] 6| "\.Disp|
|000009f0| 6c 61 79 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |lay the |current |
|00000a00| 73 74 61 74 65 20 6f 66 | 20 74 68 65 20 6c 6f 63 |state of| the loc|
|00000a10| 61 6c 20 76 61 72 69 61 | 62 6c 65 73 20 69 6e 20 |al varia|bles in |
|00000a20| 74 68 65 20 6d 69 6e 69 | 62 75 66 66 65 72 2e 22 |the mini|buffer."|
|00000a30| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|00000a40| 20 27 61 72 72 61 79 2d | 62 65 67 69 6e 6e 69 6e | 'array-|beginnin|
|00000a50| 67 2d 6f 66 2d 66 69 65 | 6c 64 20 23 5b 28 26 6f |g-of-fie|ld #[(&o|
|00000a60| 70 74 69 6f 6e 61 6c 20 | 67 6f 2d 74 68 65 72 65 |ptional |go-there|
|00000a70| 29 20 22 08 89 09 a6 5a | 1a 0b 83 10 00 c4 5c 6e |) "....Z|......\n|
|00000a80| 21 82 11 00 5c 6e 29 87 | 22 20 5b 62 75 66 66 65 |!...\n).|" [buffe|
|00000a90| 72 2d 63 6f 6c 75 6d 6e | 20 66 69 65 6c 64 2d 77 |r-column| field-w|
|00000aa0| 69 64 74 68 20 67 6f 61 | 6c 2d 63 6f 6c 75 6d 6e |idth goa|l-column|
|00000ab0| 20 67 6f 2d 74 68 65 72 | 65 20 6d 6f 76 65 2d 74 | go-ther|e move-t|
|00000ac0| 6f 2d 63 6f 6c 75 6d 6e | 2d 75 6e 74 61 62 69 66 |o-column|-untabif|
|00000ad0| 79 5d 20 33 20 22 5c 0a | 52 65 74 75 72 6e 20 74 |y] 3 "\.|Return t|
|00000ae0| 68 65 20 63 6f 6c 75 6d | 6e 20 6f 66 20 74 68 65 |he colum|n of the|
|00000af0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|00000b00| 65 20 63 75 72 72 65 6e | 74 20 66 69 65 6c 64 2e |e curren|t field.|
|00000b10| 0a 4f 70 74 69 6f 6e 61 | 6c 20 61 72 67 75 6d 65 |.Optiona|l argume|
|00000b20| 6e 74 20 47 4f 2d 54 48 | 45 52 45 2c 20 69 66 20 |nt GO-TH|ERE, if |
|00000b30| 6e 6f 6e 2d 6e 69 6c 2c | 20 6d 65 61 6e 73 20 67 |non-nil,| means g|
|00000b40| 6f 20 74 68 65 72 65 20 | 74 6f 6f 2e 22 5d 29 0a |o there |too."]).|
|00000b50| 28 64 65 66 61 6c 69 61 | 73 20 27 61 72 72 61 79 |(defalia|s 'array|
|00000b60| 2d 65 6e 64 2d 6f 66 2d | 66 69 65 6c 64 20 23 5b |-end-of-|field #[|
|00000b70| 28 26 6f 70 74 69 6f 6e | 61 6c 20 67 6f 2d 74 68 |(&option|al go-th|
|00000b80| 65 72 65 29 20 22 08 89 | 09 a6 5a 09 5c 5c 1a 0b |ere) "..|..Z.\\..|
|00000b90| 83 12 00 c4 5c 6e 21 82 | 13 00 5c 6e 29 87 22 20 |....\n!.|..\n)." |
|00000ba0| 5b 62 75 66 66 65 72 2d | 63 6f 6c 75 6d 6e 20 66 |[buffer-|column f|
|00000bb0| 69 65 6c 64 2d 77 69 64 | 74 68 20 67 6f 61 6c 2d |ield-wid|th goal-|
|00000bc0| 63 6f 6c 75 6d 6e 20 67 | 6f 2d 74 68 65 72 65 20 |column g|o-there |
|00000bd0| 6d 6f 76 65 2d 74 6f 2d | 63 6f 6c 75 6d 6e 2d 75 |move-to-|column-u|
|00000be0| 6e 74 61 62 69 66 79 5d | 20 33 20 22 5c 0a 52 65 |ntabify]| 3 "\.Re|
|00000bf0| 74 75 72 6e 20 74 68 65 | 20 63 6f 6c 75 6d 6e 20 |turn the| column |
|00000c00| 6f 66 20 74 68 65 20 65 | 6e 64 20 6f 66 20 74 68 |of the e|nd of th|
|00000c10| 65 20 63 75 72 72 65 6e | 74 20 61 72 72 61 79 20 |e curren|t array |
|00000c20| 66 69 65 6c 64 2e 0a 49 | 66 20 6f 70 74 69 6f 6e |field..I|f option|
|00000c30| 61 6c 20 61 72 67 75 6d | 65 6e 74 20 47 4f 2d 54 |al argum|ent GO-T|
|00000c40| 48 45 52 45 20 69 73 20 | 6e 6f 6e 2d 6e 69 6c 2c |HERE is |non-nil,|
|00000c50| 20 67 6f 20 74 68 65 72 | 65 20 74 6f 6f 2e 22 5d | go ther|e too."]|
|00000c60| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 72 72 |).(defal|ias 'arr|
|00000c70| 61 79 2d 6d 6f 76 65 2d | 74 6f 2d 63 65 6c 6c 20 |ay-move-|to-cell |
|00000c80| 23 5b 28 61 2d 72 6f 77 | 20 61 2d 63 6f 6c 75 6d |#[(a-row| a-colum|
|00000c90| 6e 29 20 22 08 09 53 5f | 5c 6e 83 0c 00 c3 82 0d |n) "..S_|\n......|
|00000ca0| 00 c4 c5 0e 06 53 0e 07 | 5c 22 5c 5c 5c 5c 0e 08 |.....S..|\"\\\\..|
|00000cb0| 0e 06 53 0e 07 a6 5f 1e | 09 1e 5c 6e 65 62 88 0e |..S..._.|..\neb..|
|00000cc0| 5c 6e 79 88 cb 0e 09 21 | 2a 87 22 20 5b 6c 69 6e |\ny....!|*." [lin|
|00000cd0| 65 73 2d 70 65 72 2d 72 | 6f 77 20 61 2d 72 6f 77 |es-per-r|ow a-row|
|00000ce0| 20 72 6f 77 73 2d 6e 75 | 6d 62 65 72 65 64 20 31 | rows-nu|mbered 1|
|00000cf0| 20 30 20 66 6c 6f 6f 72 | 20 61 2d 63 6f 6c 75 6d | 0 floor| a-colum|
|00000d00| 6e 20 63 6f 6c 75 6d 6e | 73 2d 70 65 72 2d 6c 69 |n column|s-per-li|
|00000d10| 6e 65 20 66 69 65 6c 64 | 2d 77 69 64 74 68 20 67 |ne field|-width g|
|00000d20| 6f 61 6c 2d 63 6f 6c 75 | 6d 6e 20 67 6f 61 6c 2d |oal-colu|mn goal-|
|00000d30| 6c 69 6e 65 20 6d 6f 76 | 65 2d 74 6f 2d 63 6f 6c |line mov|e-to-col|
|00000d40| 75 6d 6e 2d 75 6e 74 61 | 62 69 66 79 5d 20 35 20 |umn-unta|bify] 5 |
|00000d50| 22 5c 0a 4d 6f 76 65 20 | 74 6f 20 61 72 72 61 79 |"\.Move |to array|
|00000d60| 20 72 6f 77 20 41 2d 52 | 4f 57 20 61 6e 64 20 61 | row A-R|OW and a|
|00000d70| 72 72 61 79 20 63 6f 6c | 75 6d 6e 20 41 2d 43 4f |rray col|umn A-CO|
|00000d80| 4c 55 4d 4e 2e 20 20 0a | 4c 65 61 76 65 20 70 6f |LUMN. .|Leave po|
|00000d90| 69 6e 74 20 61 74 20 74 | 68 65 20 62 65 67 69 6e |int at t|he begin|
|00000da0| 6e 69 6e 67 20 6f 66 20 | 74 68 65 20 66 69 65 6c |ning of |the fiel|
|00000db0| 64 20 61 6e 64 20 72 65 | 74 75 72 6e 20 74 68 65 |d and re|turn the|
|00000dc0| 20 6e 65 77 20 62 75 66 | 66 65 72 20 63 6f 6c 75 | new buf|fer colu|
|00000dd0| 6d 6e 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |mn."]).(|defalias|
|00000de0| 20 27 61 72 72 61 79 2d | 6d 6f 76 65 2d 74 6f 2d | 'array-|move-to-|
|00000df0| 72 6f 77 20 23 5b 28 61 | 2d 72 6f 77 29 20 22 08 |row #[(a|-row) ".|
|00000e00| 09 53 5f 5c 6e 08 a6 5c | 5c 0b 89 0c a6 5a 1d 89 |.S_\n..\|\....Z..|
|00000e10| 1e 06 5c 6e 5a 79 88 c7 | 0d 21 88 09 2a 87 22 20 |..\nZy..|.!..*." |
|00000e20| 5b 6c 69 6e 65 73 2d 70 | 65 72 2d 72 6f 77 20 61 |[lines-p|er-row a|
|00000e30| 2d 72 6f 77 20 62 75 66 | 66 65 72 2d 6c 69 6e 65 |-row buf|fer-line|
|00000e40| 20 62 75 66 66 65 72 2d | 63 6f 6c 75 6d 6e 20 66 | buffer-|column f|
|00000e50| 69 65 6c 64 2d 77 69 64 | 74 68 20 67 6f 61 6c 2d |ield-wid|th goal-|
|00000e60| 63 6f 6c 75 6d 6e 20 67 | 6f 61 6c 2d 6c 69 6e 65 |column g|oal-line|
|00000e70| 20 6d 6f 76 65 2d 74 6f | 2d 63 6f 6c 75 6d 6e 2d | move-to|-column-|
|00000e80| 75 6e 74 61 62 69 66 79 | 5d 20 35 20 22 5c 0a 4d |untabify|] 5 "\.M|
|00000e90| 6f 76 65 20 74 6f 20 61 | 72 72 61 79 20 72 6f 77 |ove to a|rray row|
|00000ea0| 20 41 2d 52 4f 57 20 70 | 72 65 73 65 72 76 69 6e | A-ROW p|reservin|
|00000eb0| 67 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 61 72 |g the cu|rrent ar|
|00000ec0| 72 61 79 20 63 6f 6c 75 | 6d 6e 2e 0a 4c 65 61 76 |ray colu|mn..Leav|
|00000ed0| 65 20 70 6f 69 6e 74 20 | 61 74 20 74 68 65 20 62 |e point |at the b|
|00000ee0| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |eginning| of the |
|00000ef0| 66 69 65 6c 64 20 61 6e | 64 20 72 65 74 75 72 6e |field an|d return|
|00000f00| 20 74 68 65 20 6e 65 77 | 20 61 72 72 61 79 20 72 | the new| array r|
|00000f10| 6f 77 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |ow."]).(|defalias|
|00000f20| 20 27 61 72 72 61 79 2d | 6d 6f 76 65 2d 74 6f 2d | 'array-|move-to-|
|00000f30| 63 6f 6c 75 6d 6e 20 23 | 5b 28 61 2d 63 6f 6c 75 |column #|[(a-colu|
|00000f40| 6d 6e 29 20 22 08 89 09 | a6 5a 5c 6e 83 0d 00 c3 |mn) "...|.Z\n....|
|00000f50| 82 0e 00 c4 c5 0e 06 53 | 0e 07 5c 22 5c 5c 5c 5c |.......S|..\"\\\\|
|00000f60| 0e 08 0e 06 53 0e 07 a6 | 5f 1e 09 89 1e 5c 6e 08 |....S...|_....\n.|
|00000f70| 5a 79 88 cb 0e 09 21 88 | 0e 06 2a 87 22 20 5b 62 |Zy....!.|..*." [b|
|00000f80| 75 66 66 65 72 2d 6c 69 | 6e 65 20 6c 69 6e 65 73 |uffer-li|ne lines|
|00000f90| 2d 70 65 72 2d 72 6f 77 | 20 72 6f 77 73 2d 6e 75 |-per-row| rows-nu|
|00000fa0| 6d 62 65 72 65 64 20 31 | 20 30 20 66 6c 6f 6f 72 |mbered 1| 0 floor|
|00000fb0| 20 61 2d 63 6f 6c 75 6d | 6e 20 63 6f 6c 75 6d 6e | a-colum|n column|
|00000fc0| 73 2d 70 65 72 2d 6c 69 | 6e 65 20 66 69 65 6c 64 |s-per-li|ne field|
|00000fd0| 2d 77 69 64 74 68 20 67 | 6f 61 6c 2d 63 6f 6c 75 |-width g|oal-colu|
|00000fe0| 6d 6e 20 67 6f 61 6c 2d | 6c 69 6e 65 20 6d 6f 76 |mn goal-|line mov|
|00000ff0| 65 2d 74 6f 2d 63 6f 6c | 75 6d 6e 2d 75 6e 74 61 |e-to-col|umn-unta|
|00001000| 62 69 66 79 5d 20 36 20 | 22 5c 0a 4d 6f 76 65 20 |bify] 6 |"\.Move |
|00001010| 74 6f 20 61 72 72 61 79 | 20 63 6f 6c 75 6d 6e 20 |to array| column |
|00001020| 41 2d 43 4f 4c 55 4d 4e | 20 70 72 65 73 65 72 76 |A-COLUMN| preserv|
|00001030| 69 6e 67 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |ing the |current |
|00001040| 61 72 72 61 79 20 72 6f | 77 2e 0a 4c 65 61 76 65 |array ro|w..Leave|
|00001050| 20 70 6f 69 6e 74 20 61 | 74 20 74 68 65 20 62 65 | point a|t the be|
|00001060| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 66 |ginning |of the f|
|00001070| 69 65 6c 64 20 61 6e 64 | 20 72 65 74 75 72 6e 20 |ield and| return |
|00001080| 74 68 65 20 6e 65 77 20 | 61 72 72 61 79 20 63 6f |the new |array co|
|00001090| 6c 75 6d 6e 2e 22 5d 29 | 0a 28 64 65 66 61 6c 69 |lumn."])|.(defali|
|000010a0| 61 73 20 27 61 72 72 61 | 79 2d 6d 6f 76 65 2d 6f |as 'arra|y-move-o|
|000010b0| 6e 65 2d 72 6f 77 20 23 | 5b 28 73 69 67 6e 29 20 |ne-row #|[(sign) |
|000010c0| 22 c0 20 c1 20 86 5c 6e | 00 c2 c3 21 1c 1d 0c 0e |". . .\n|...!....|
|000010d0| 06 55 83 20 00 0e 07 c8 | 55 83 20 00 c2 c9 21 82 |.U. ....|U. ...!.|
|000010e0| 42 00 0c c8 55 83 33 00 | 0e 07 ca 55 83 33 00 c2 |B...U.3.|...U.3..|
|000010f0| cb 21 82 42 00 0e 07 0e | 0c 5f 79 88 cd 0d 21 88 |.!.B....|._y...!.|
|00001100| 0c 0e 07 5c 5c 2a 87 22 | 20 5b 61 72 72 61 79 2d |...\\*."| [array-|
|00001110| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 66 69 65 |beginnin|g-of-fie|
|00001120| 6c 64 20 61 72 72 61 79 | 2d 63 75 72 72 65 6e 74 |ld array|-current|
|00001130| 2d 72 6f 77 20 65 72 72 | 6f 72 20 22 43 75 72 73 |-row err|or "Curs|
|00001140| 6f 72 20 69 73 20 6e 6f | 74 20 69 6e 20 61 20 76 |or is no|t in a v|
|00001150| 61 6c 69 64 20 61 72 72 | 61 79 20 63 65 6c 6c 2e |alid arr|ay cell.|
|00001160| 22 20 61 72 72 61 79 2d | 72 6f 77 20 67 6f 61 6c |" array-|row goal|
|00001170| 2d 63 6f 6c 75 6d 6e 20 | 6d 61 78 2d 72 6f 77 20 |-column |max-row |
|00001180| 73 69 67 6e 20 31 20 22 | 45 6e 64 20 6f 66 20 61 |sign 1 "|End of a|
|00001190| 72 72 61 79 2e 22 20 2d | 31 20 22 42 65 67 69 6e |rray." -|1 "Begin|
|000011a0| 6e 69 6e 67 20 6f 66 20 | 61 72 72 61 79 2e 22 20 |ning of |array." |
|000011b0| 6c 69 6e 65 73 2d 70 65 | 72 2d 72 6f 77 20 6d 6f |lines-pe|r-row mo|
|000011c0| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 2d 75 6e 74 |ve-to-co|lumn-unt|
|000011d0| 61 62 69 66 79 5d 20 33 | 20 22 5c 0a 4d 6f 76 65 |abify] 3| "\.Move|
|000011e0| 20 6f 6e 65 20 61 72 72 | 61 79 20 72 6f 77 20 69 | one arr|ay row i|
|000011f0| 6e 20 64 69 72 65 63 74 | 69 6f 6e 20 53 49 47 4e |n direct|ion SIGN|
|00001200| 20 28 31 20 6f 72 20 2d | 31 29 2e 0a 4c 65 61 76 | (1 or -|1)..Leav|
|00001210| 65 20 70 6f 69 6e 74 20 | 61 74 20 74 68 65 20 62 |e point |at the b|
|00001220| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 74 68 65 20 |eginning| of the |
|00001230| 66 69 65 6c 64 20 61 6e | 64 20 72 65 74 75 72 6e |field an|d return|
|00001240| 20 74 68 65 20 6e 65 77 | 20 61 72 72 61 79 20 72 | the new| array r|
|00001250| 6f 77 2e 0a 49 66 20 72 | 65 71 75 65 73 74 65 64 |ow..If r|equested|
|00001260| 20 74 6f 20 6d 6f 76 65 | 20 62 65 79 6f 6e 64 20 | to move| beyond |
|00001270| 74 68 65 20 61 72 72 61 | 79 20 62 6f 75 6e 64 73 |the arra|y bounds|
|00001280| 2c 20 73 69 67 6e 61 6c | 20 61 6e 20 65 72 72 6f |, signal| an erro|
|00001290| 72 2e 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |r."]).(d|efalias |
|000012a0| 27 61 72 72 61 79 2d 6d | 6f 76 65 2d 6f 6e 65 2d |'array-m|ove-one-|
|000012b0| 63 6f 6c 75 6d 6e 20 23 | 5b 28 73 69 67 6e 29 20 |column #|[(sign) |
|000012c0| 22 c0 20 86 08 00 c1 c2 | 21 89 1b 0c 55 83 1b 00 |". .....|!...U...|
|000012d0| 0d c6 55 83 1b 00 c1 c7 | 21 82 6d 00 0b c6 55 83 |..U.....|!.m...U.|
|000012e0| 2d 00 0d c8 55 83 2d 00 | c1 c9 21 82 6d 00 0d c8 |-...U.-.|..!.m...|
|000012f0| 55 83 4b 00 0b 0e 5c 6e | a6 c6 55 83 4b 00 c8 79 |U.K...\n|..U.K..y|
|00001300| 88 cb 0e 0c 0e 5c 6e 53 | 5f 21 88 82 6a 00 0d c6 |.....\nS|_!..j...|
|00001310| 55 83 60 00 0b 0e 5c 6e | a6 cd 55 83 60 00 c6 79 |U.`...\n|..U.`..y|
|00001320| 88 82 6a 00 cb ce 20 0e | 0c 0d 5f 5c 5c 21 88 0b |..j... .|.._\\!..|
|00001330| 0d 5c 5c 29 87 22 20 5b | 61 72 72 61 79 2d 63 75 |.\\)." [|array-cu|
|00001340| 72 72 65 6e 74 2d 63 6f | 6c 75 6d 6e 20 65 72 72 |rrent-co|lumn err|
|00001350| 6f 72 20 22 43 75 72 73 | 6f 72 20 69 73 20 6e 6f |or "Curs|or is no|
|00001360| 74 20 69 6e 20 61 20 76 | 61 6c 69 64 20 61 72 72 |t in a v|alid arr|
|00001370| 61 79 20 63 65 6c 6c 2e | 22 20 61 72 72 61 79 2d |ay cell.|" array-|
|00001380| 63 6f 6c 75 6d 6e 20 6d | 61 78 2d 63 6f 6c 75 6d |column m|ax-colum|
|00001390| 6e 20 73 69 67 6e 20 31 | 20 22 45 6e 64 20 6f 66 |n sign 1| "End of|
|000013a0| 20 61 72 72 61 79 2e 22 | 20 2d 31 20 22 42 65 67 | array."| -1 "Beg|
|000013b0| 69 6e 6e 69 6e 67 20 6f | 66 20 61 72 72 61 79 2e |inning o|f array.|
|000013c0| 22 20 63 6f 6c 75 6d 6e | 73 2d 70 65 72 2d 6c 69 |" column|s-per-li|
|000013d0| 6e 65 20 6d 6f 76 65 2d | 74 6f 2d 63 6f 6c 75 6d |ne move-|to-colum|
|000013e0| 6e 2d 75 6e 74 61 62 69 | 66 79 20 66 69 65 6c 64 |n-untabi|fy field|
|000013f0| 2d 77 69 64 74 68 20 30 | 20 61 72 72 61 79 2d 62 |-width 0| array-b|
|00001400| 65 67 69 6e 6e 69 6e 67 | 2d 6f 66 2d 66 69 65 6c |eginning|-of-fiel|
|00001410| 64 5d 20 35 20 22 5c 0a | 4d 6f 76 65 20 6f 6e 65 |d] 5 "\.|Move one|
|00001420| 20 61 72 72 61 79 20 63 | 6f 6c 75 6d 6e 20 69 6e | array c|olumn in|
|00001430| 20 64 69 72 65 63 74 69 | 6f 6e 20 53 49 47 4e 20 | directi|on SIGN |
|00001440| 28 31 20 6f 72 20 2d 31 | 29 2e 0a 4c 65 61 76 65 |(1 or -1|)..Leave|
|00001450| 20 70 6f 69 6e 74 20 61 | 74 20 74 68 65 20 62 65 | point a|t the be|
|00001460| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 74 68 65 20 66 |ginning |of the f|
|00001470| 69 65 6c 64 20 61 6e 64 | 20 72 65 74 75 72 6e 20 |ield and| return |
|00001480| 74 68 65 20 6e 65 77 20 | 61 72 72 61 79 20 63 6f |the new |array co|
|00001490| 6c 75 6d 6e 2e 0a 49 66 | 20 72 65 71 75 65 73 74 |lumn..If| request|
|000014a0| 65 64 20 74 6f 20 6d 6f | 76 65 20 62 65 79 6f 6e |ed to mo|ve beyon|
|000014b0| 64 20 74 68 65 20 61 72 | 72 61 79 20 62 6f 75 6e |d the ar|ray boun|
|000014c0| 64 73 2c 20 73 69 67 6e | 61 6c 20 61 6e 20 65 72 |ds, sign|al an er|
|000014d0| 72 6f 72 2e 22 5d 29 0a | 28 64 65 66 61 6c 69 61 |ror."]).|(defalia|
|000014e0| 73 20 27 61 72 72 61 79 | 2d 6e 6f 72 6d 61 6c 69 |s 'array|-normali|
|000014f0| 7a 65 2d 63 75 72 73 6f | 72 20 23 5b 6e 69 6c 20 |ze-curso|r #[nil |
|00001500| 22 69 18 c1 8a c2 c3 21 | 88 60 29 53 77 88 c4 20 |"i.....!|.`)Sw.. |
|00001510| 29 87 22 20 5b 62 75 66 | 66 65 72 2d 63 6f 6c 75 |)." [buf|fer-colu|
|00001520| 6d 6e 20 22 20 09 22 20 | 61 72 72 61 79 2d 65 6e |mn " ." |array-en|
|00001530| 64 2d 6f 66 2d 66 69 65 | 6c 64 20 74 20 61 72 72 |d-of-fie|ld t arr|
|00001540| 61 79 2d 6d 61 79 62 65 | 2d 73 63 72 6f 6c 6c 2d |ay-maybe|-scroll-|
|00001550| 68 6f 72 69 7a 6f 6e 74 | 61 6c 6c 79 5d 20 33 20 |horizont|ally] 3 |
|00001560| 22 5c 0a 4d 6f 76 65 20 | 74 68 65 20 63 75 72 73 |"\.Move |the curs|
|00001570| 6f 72 20 74 6f 20 74 68 | 65 20 66 69 72 73 74 20 |or to th|e first |
|00001580| 6e 6f 6e 2d 77 68 69 74 | 65 73 70 61 63 65 20 63 |non-whit|espace c|
|00001590| 68 61 72 61 63 74 65 72 | 20 69 6e 20 74 68 65 20 |haracter| in the |
|000015a0| 66 69 65 6c 64 20 61 6e | 64 2c 0a 69 66 20 6e 65 |field an|d,.if ne|
|000015b0| 63 65 73 73 61 72 79 2c | 20 73 63 72 6f 6c 6c 20 |cessary,| scroll |
|000015c0| 68 6f 72 69 7a 6f 6e 74 | 61 6c 6c 79 20 74 6f 20 |horizont|ally to |
|000015d0| 6b 65 65 70 20 74 68 65 | 20 63 75 72 73 6f 72 20 |keep the| cursor |
|000015e0| 69 6e 20 76 69 65 77 2e | 22 5d 29 0a 28 64 65 66 |in view.|"]).(def|
|000015f0| 61 6c 69 61 73 20 27 61 | 72 72 61 79 2d 6d 61 79 |alias 'a|rray-may|
|00001600| 62 65 2d 73 63 72 6f 6c | 6c 2d 68 6f 72 69 7a 6f |be-scrol|l-horizo|
|00001610| 6e 74 61 6c 6c 79 20 23 | 5b 6e 69 6c 20 22 c0 20 |ntally #|[nil ". |
|00001620| c1 20 1a 1b 0c 0b 59 83 | 18 00 0c 0b 5c 6e 5c 5c |. ....Y.|....\n\\|
|00001630| 58 83 18 00 c5 82 35 00 | 0c 0b 5c 6e 5c 5c 56 83 |X.....5.|..\n\\V.|
|00001640| 2c 00 c6 0c 0b 5a 5c 6e | c7 a5 5a 21 82 35 00 c8 |,....Z\n|..Z!.5..|
|00001650| 0b 0c 5a 5c 6e c7 a5 5c | 5c 21 2a 87 22 20 5b 77 |..Z\n..\|\!*." [w|
|00001660| 69 6e 64 6f 77 2d 68 73 | 63 72 6f 6c 6c 20 77 69 |indow-hs|croll wi|
|00001670| 6e 64 6f 77 2d 77 69 64 | 74 68 20 77 2d 77 69 64 |ndow-wid|th w-wid|
|00001680| 74 68 20 77 2d 68 73 63 | 72 6f 6c 6c 20 62 75 66 |th w-hsc|roll buf|
|00001690| 66 65 72 2d 63 6f 6c 75 | 6d 6e 20 6e 69 6c 20 73 |fer-colu|mn nil s|
|000016a0| 63 72 6f 6c 6c 2d 6c 65 | 66 74 20 32 20 73 63 72 |croll-le|ft 2 scr|
|000016b0| 6f 6c 6c 2d 72 69 67 68 | 74 5d 20 34 20 22 5c 0a |oll-righ|t] 4 "\.|
|000016c0| 49 66 20 6e 65 63 65 73 | 73 61 72 79 2c 20 73 63 |If neces|sary, sc|
|000016d0| 72 6f 6c 6c 20 68 6f 72 | 69 7a 6f 6e 74 61 6c 6c |roll hor|izontall|
|000016e0| 79 20 74 6f 20 6b 65 65 | 70 20 74 68 65 20 63 75 |y to kee|p the cu|
|000016f0| 72 73 6f 72 20 69 6e 20 | 76 69 65 77 2e 22 5d 29 |rsor in |view."])|
|00001700| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 61 72 72 61 |.(defali|as 'arra|
|00001710| 79 2d 6e 65 78 74 2d 72 | 6f 77 20 23 5b 28 26 6f |y-next-r|ow #[(&o|
|00001720| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 c0 20 |ptional |arg) ". |
|00001730| 69 19 1a c3 0c 21 c5 55 | 83 14 00 c6 0c 21 88 82 |i....!.U|.....!..|
|00001740| 25 00 c7 c8 c9 20 86 1e | 00 ca cb 21 0c 5c 5c 0e |%.... ..|...!.\\.|
|00001750| 0c 5c 22 21 88 2a cd 20 | 87 22 20 5b 63 75 72 72 |.\"!.*. |." [curr|
|00001760| 65 6e 74 2d 6c 69 6e 65 | 20 62 75 66 66 65 72 2d |ent-line| buffer-|
|00001770| 63 6f 6c 75 6d 6e 20 62 | 75 66 66 65 72 2d 6c 69 |column b|uffer-li|
|00001780| 6e 65 20 61 62 73 20 61 | 72 67 20 31 20 61 72 72 |ne abs a|rg 1 arr|
|00001790| 61 79 2d 6d 6f 76 65 2d | 6f 6e 65 2d 72 6f 77 20 |ay-move-|one-row |
|000017a0| 61 72 72 61 79 2d 6d 6f | 76 65 2d 74 6f 2d 72 6f |array-mo|ve-to-ro|
|000017b0| 77 20 6c 69 6d 69 74 2d | 69 6e 64 65 78 20 61 72 |w limit-|index ar|
|000017c0| 72 61 79 2d 63 75 72 72 | 65 6e 74 2d 72 6f 77 20 |ray-curr|ent-row |
|000017d0| 65 72 72 6f 72 20 22 43 | 75 72 73 6f 72 20 69 73 |error "C|ursor is|
|000017e0| 20 6e 6f 74 20 69 6e 20 | 61 6e 20 61 72 72 61 79 | not in |an array|
|000017f0| 20 63 65 6c 6c 2e 22 20 | 6d 61 78 2d 72 6f 77 20 | cell." |max-row |
|00001800| 61 72 72 61 79 2d 6e 6f | 72 6d 61 6c 69 7a 65 2d |array-no|rmalize-|
|00001810| 63 75 72 73 6f 72 5d 20 | 34 20 22 5c 0a 4d 6f 76 |cursor] |4 "\.Mov|
|00001820| 65 20 64 6f 77 6e 20 6f | 6e 65 20 61 72 72 61 79 |e down o|ne array|
|00001830| 20 72 6f 77 2c 20 73 74 | 61 79 69 6e 67 20 69 6e | row, st|aying in|
|00001840| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 61 72 72 | the cur|rent arr|
|00001850| 61 79 20 63 6f 6c 75 6d | 6e 2e 0a 49 66 20 6f 70 |ay colum|n..If op|
|00001860| 74 69 6f 6e 61 6c 20 41 | 52 47 20 69 73 20 67 69 |tional A|RG is gi|
|00001870| 76 65 6e 2c 20 6d 6f 76 | 65 20 64 6f 77 6e 20 41 |ven, mov|e down A|
|00001880| 52 47 20 61 72 72 61 79 | 20 72 6f 77 73 2e 22 20 |RG array| rows." |
|00001890| 22 70 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"p"]).(d|efalias |
|000018a0| 27 61 72 72 61 79 2d 70 | 72 65 76 69 6f 75 73 2d |'array-p|revious-|
|000018b0| 72 6f 77 20 23 5b 28 26 | 6f 70 74 69 6f 6e 61 6c |row #[(&|optional|
|000018c0| 20 61 72 67 29 20 22 c0 | 09 5b 21 87 22 20 5b 61 | arg) ".|.[!." [a|
|000018d0| 72 72 61 79 2d 6e 65 78 | 74 2d 72 6f 77 20 61 72 |rray-nex|t-row ar|
|000018e0| 67 5d 20 32 20 22 5c 0a | 4d 6f 76 65 20 75 70 20 |g] 2 "\.|Move up |
|000018f0| 6f 6e 65 20 61 72 72 61 | 79 20 72 6f 77 2c 20 73 |one arra|y row, s|
|00001900| 74 61 79 69 6e 67 20 69 | 6e 20 74 68 65 20 63 75 |taying i|n the cu|
|00001910| 72 72 65 6e 74 20 61 72 | 72 61 79 20 63 6f 6c 75 |rrent ar|ray colu|
|00001920| 6d 6e 2e 0a 49 66 20 6f | 70 74 69 6f 6e 61 6c 20 |mn..If o|ptional |
|00001930| 41 52 47 20 69 73 20 67 | 69 76 65 6e 2c 20 6d 6f |ARG is g|iven, mo|
|00001940| 76 65 20 75 70 20 41 52 | 47 20 61 72 72 61 79 20 |ve up AR|G array |
|00001950| 72 6f 77 73 2e 22 20 22 | 70 22 5d 29 0a 28 64 65 |rows." "|p"]).(de|
|00001960| 66 61 6c 69 61 73 20 27 | 61 72 72 61 79 2d 66 6f |falias '|array-fo|
|00001970| 72 77 61 72 64 2d 63 6f | 6c 75 6d 6e 20 23 5b 28 |rward-co|lumn #[(|
|00001980| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00001990| c0 20 69 19 1a c3 0c 21 | c5 55 83 14 00 c6 0c 21 |. i....!|.U.....!|
|000019a0| 88 82 25 00 c7 c8 c9 20 | 86 1e 00 ca cb 21 0c 5c |..%.... |.....!.\|
|000019b0| 5c 0e 0c 5c 22 21 88 2a | cd 20 87 22 20 5b 63 75 |\..\"!.*|. ." [cu|
|000019c0| 72 72 65 6e 74 2d 6c 69 | 6e 65 20 62 75 66 66 65 |rrent-li|ne buffe|
|000019d0| 72 2d 63 6f 6c 75 6d 6e | 20 62 75 66 66 65 72 2d |r-column| buffer-|
|000019e0| 6c 69 6e 65 20 61 62 73 | 20 61 72 67 20 31 20 61 |line abs| arg 1 a|
|000019f0| 72 72 61 79 2d 6d 6f 76 | 65 2d 6f 6e 65 2d 63 6f |rray-mov|e-one-co|
|00001a00| 6c 75 6d 6e 20 61 72 72 | 61 79 2d 6d 6f 76 65 2d |lumn arr|ay-move-|
|00001a10| 74 6f 2d 63 6f 6c 75 6d | 6e 20 6c 69 6d 69 74 2d |to-colum|n limit-|
|00001a20| 69 6e 64 65 78 20 61 72 | 72 61 79 2d 63 75 72 72 |index ar|ray-curr|
|00001a30| 65 6e 74 2d 63 6f 6c 75 | 6d 6e 20 65 72 72 6f 72 |ent-colu|mn error|
|00001a40| 20 22 43 75 72 73 6f 72 | 20 69 73 20 6e 6f 74 20 | "Cursor| is not |
|00001a50| 69 6e 20 61 6e 20 61 72 | 72 61 79 20 63 65 6c 6c |in an ar|ray cell|
|00001a60| 2e 22 20 6d 61 78 2d 63 | 6f 6c 75 6d 6e 20 61 72 |." max-c|olumn ar|
|00001a70| 72 61 79 2d 6e 6f 72 6d | 61 6c 69 7a 65 2d 63 75 |ray-norm|alize-cu|
|00001a80| 72 73 6f 72 5d 20 34 20 | 22 5c 0a 4d 6f 76 65 20 |rsor] 4 |"\.Move |
|00001a90| 66 6f 72 77 61 72 64 20 | 6f 6e 65 20 66 69 65 6c |forward |one fiel|
|00001aa0| 64 2c 20 73 74 61 79 69 | 6e 67 20 69 6e 20 74 68 |d, stayi|ng in th|
|00001ab0| 65 20 63 75 72 72 65 6e | 74 20 61 72 72 61 79 20 |e curren|t array |
|00001ac0| 72 6f 77 2e 0a 49 66 20 | 6f 70 74 69 6f 6e 61 6c |row..If |optional|
|00001ad0| 20 41 52 47 20 69 73 20 | 67 69 76 65 6e 2c 20 6d | ARG is |given, m|
|00001ae0| 6f 76 65 20 66 6f 72 77 | 61 72 64 20 41 52 47 20 |ove forw|ard ARG |
|00001af0| 61 72 72 61 79 20 63 6f | 6c 75 6d 6e 73 2e 0a 49 |array co|lumns..I|
|00001b00| 66 20 6e 65 63 65 73 73 | 61 72 79 2c 20 6b 65 65 |f necess|ary, kee|
|00001b10| 70 20 74 68 65 20 63 75 | 72 73 6f 72 20 69 6e 20 |p the cu|rsor in |
|00001b20| 74 68 65 20 77 69 6e 64 | 6f 77 20 62 79 20 73 63 |the wind|ow by sc|
|00001b30| 72 6f 6c 6c 69 6e 67 20 | 72 69 67 68 74 20 6f 72 |rolling |right or|
|00001b40| 20 6c 65 66 74 2e 22 20 | 22 70 22 5d 29 0a 28 64 | left." |"p"]).(d|
|00001b50| 65 66 61 6c 69 61 73 20 | 27 61 72 72 61 79 2d 62 |efalias |'array-b|
|00001b60| 61 63 6b 77 61 72 64 2d | 63 6f 6c 75 6d 6e 20 23 |ackward-|column #|
|00001b70| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 61 72 67 29 |[(&optio|nal arg)|
|00001b80| 20 22 c0 09 5b 21 87 22 | 20 5b 61 72 72 61 79 2d | "..[!."| [array-|
|00001b90| 66 6f 72 77 61 72 64 2d | 63 6f 6c 75 6d 6e 20 61 |forward-|column a|
|00001ba0| 72 67 5d 20 32 20 22 5c | 0a 4d 6f 76 65 20 62 61 |rg] 2 "\|.Move ba|
|00001bb0| 63 6b 77 61 72 64 20 6f | 6e 65 20 66 69 65 6c 64 |ckward o|ne field|
|00001bc0| 2c 20 73 74 61 79 69 6e | 67 20 69 6e 20 74 68 65 |, stayin|g in the|
|00001bd0| 20 63 75 72 72 65 6e 74 | 20 61 72 72 61 79 20 72 | current| array r|
|00001be0| 6f 77 2e 0a 49 66 20 6f | 70 74 69 6f 6e 61 6c 20 |ow..If o|ptional |
|00001bf0| 41 52 47 20 69 73 20 67 | 69 76 65 6e 2c 20 6d 6f |ARG is g|iven, mo|
|00001c00| 76 65 20 62 61 63 6b 77 | 61 72 64 20 41 52 47 20 |ve backw|ard ARG |
|00001c10| 61 72 72 61 79 20 63 6f | 6c 75 6d 6e 73 2e 0a 49 |array co|lumns..I|
|00001c20| 66 20 6e 65 63 65 73 73 | 61 72 79 2c 20 6b 65 65 |f necess|ary, kee|
|00001c30| 70 20 74 68 65 20 63 75 | 72 73 6f 72 20 69 6e 20 |p the cu|rsor in |
|00001c40| 74 68 65 20 77 69 6e 64 | 6f 77 20 62 79 20 73 63 |the wind|ow by sc|
|00001c50| 72 6f 6c 6c 69 6e 67 20 | 72 69 67 68 74 20 6f 72 |rolling |right or|
|00001c60| 20 6c 65 66 74 2e 22 20 | 22 70 22 5d 29 0a 28 64 | left." |"p"]).(d|
|00001c70| 65 66 61 6c 69 61 73 20 | 27 61 72 72 61 79 2d 67 |efalias |'array-g|
|00001c80| 6f 74 6f 2d 63 65 6c 6c | 20 23 5b 28 61 2d 72 6f |oto-cell| #[(a-ro|
|00001c90| 77 20 61 2d 63 6f 6c 75 | 6d 6e 29 20 22 c0 c1 5c |w a-colu|mn) "..\|
|00001ca0| 6e 0b 5c 22 c1 0c 0d 5c | 22 5c 22 88 c6 20 87 22 |n.\"...\|"\".. ."|
|00001cb0| 20 5b 61 72 72 61 79 2d | 6d 6f 76 65 2d 74 6f 2d | [array-|move-to-|
|00001cc0| 63 65 6c 6c 20 6c 69 6d | 69 74 2d 69 6e 64 65 78 |cell lim|it-index|
|00001cd0| 20 61 2d 72 6f 77 20 6d | 61 78 2d 72 6f 77 20 61 | a-row m|ax-row a|
|00001ce0| 2d 63 6f 6c 75 6d 6e 20 | 6d 61 78 2d 63 6f 6c 75 |-column |max-colu|
|00001cf0| 6d 6e 20 61 72 72 61 79 | 2d 6e 6f 72 6d 61 6c 69 |mn array|-normali|
|00001d00| 7a 65 2d 63 75 72 73 6f | 72 5d 20 35 20 22 5c 0a |ze-curso|r] 5 "\.|
|00001d10| 47 6f 20 74 6f 20 61 72 | 72 61 79 20 72 6f 77 20 |Go to ar|ray row |
|00001d20| 41 2d 52 4f 57 20 61 6e | 64 20 61 72 72 61 79 20 |A-ROW an|d array |
|00001d30| 63 6f 6c 75 6d 6e 20 41 | 2d 43 4f 4c 55 4d 4e 2e |column A|-COLUMN.|
|00001d40| 22 20 22 6e 41 72 72 61 | 79 20 72 6f 77 3a 20 5c |" "nArra|y row: \|
|00001d50| 6e 6e 41 72 72 61 79 20 | 63 6f 6c 75 6d 6e 3a 20 |nnArray |column: |
|00001d60| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |"]).(def|alias 'a|
|00001d70| 72 72 61 79 2d 66 69 65 | 6c 64 2d 73 74 72 69 6e |rray-fie|ld-strin|
|00001d80| 67 20 23 5b 6e 69 6c 20 | 22 8a c0 c1 21 88 60 29 |g #[nil |"...!.`)|
|00001d90| 8a c2 c1 21 88 60 29 7b | 87 22 20 5b 61 72 72 61 |...!.`){|." [arra|
|00001da0| 79 2d 62 65 67 69 6e 6e | 69 6e 67 2d 6f 66 2d 66 |y-beginn|ing-of-f|
|00001db0| 69 65 6c 64 20 74 20 61 | 72 72 61 79 2d 65 6e 64 |ield t a|rray-end|
|00001dc0| 2d 6f 66 2d 66 69 65 6c | 64 5d 20 33 20 22 5c 0a |-of-fiel|d] 3 "\.|
|00001dd0| 52 65 74 75 72 6e 20 74 | 68 65 20 66 69 65 6c 64 |Return t|he field|
|00001de0| 20 73 74 72 69 6e 67 20 | 61 74 20 74 68 65 20 63 | string |at the c|
|00001df0| 75 72 72 65 6e 74 20 63 | 75 72 73 6f 72 20 6c 6f |urrent c|ursor lo|
|00001e00| 63 61 74 69 6f 6e 2e 22 | 5d 29 0a 28 64 65 66 61 |cation."|]).(defa|
|00001e10| 6c 69 61 73 20 27 61 72 | 72 61 79 2d 63 6f 70 79 |lias 'ar|ray-copy|
|00001e20| 2d 6f 6e 63 65 2d 76 65 | 72 74 69 63 61 6c 6c 79 |-once-ve|rtically|
|00001e30| 20 23 5b 28 73 69 67 6e | 29 20 22 c0 09 21 1a c3 | #[(sign|) "..!..|
|00001e40| 1c 60 8a c5 c3 21 88 60 | 29 7c 88 0e 06 63 88 29 |.`...!.`|)|...c.)|
|00001e50| c7 0e 08 21 88 5c 6e 29 | 87 22 20 5b 61 72 72 61 |...!.\n)|." [arra|
|00001e60| 79 2d 6d 6f 76 65 2d 6f | 6e 65 2d 72 6f 77 20 73 |y-move-o|ne-row s|
|00001e70| 69 67 6e 20 61 2d 72 6f | 77 20 74 20 69 6e 68 69 |ign a-ro|w t inhi|
|00001e80| 62 69 74 2d 71 75 69 74 | 20 61 72 72 61 79 2d 65 |bit-quit| array-e|
|00001e90| 6e 64 2d 6f 66 2d 66 69 | 65 6c 64 20 63 6f 70 79 |nd-of-fi|eld copy|
|00001ea0| 2d 73 74 72 69 6e 67 20 | 6d 6f 76 65 2d 74 6f 2d |-string |move-to-|
|00001eb0| 63 6f 6c 75 6d 6e 20 62 | 75 66 66 65 72 2d 63 6f |column b|uffer-co|
|00001ec0| 6c 75 6d 6e 5d 20 33 20 | 22 5c 0a 43 6f 70 79 20 |lumn] 3 |"\.Copy |
|00001ed0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 66 69 65 6c |the curr|ent fiel|
|00001ee0| 64 20 69 6e 74 6f 20 6f | 6e 65 20 61 72 72 61 79 |d into o|ne array|
|00001ef0| 20 72 6f 77 20 69 6e 20 | 64 69 72 65 63 74 69 6f | row in |directio|
|00001f00| 6e 20 53 49 47 4e 20 28 | 31 20 6f 72 20 2d 31 29 |n SIGN (|1 or -1)|
|00001f10| 2e 0a 4c 65 61 76 65 20 | 70 6f 69 6e 74 20 61 74 |..Leave |point at|
|00001f20| 20 74 68 65 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f | the beg|inning o|
|00001f30| 66 20 74 68 65 20 66 69 | 65 6c 64 20 61 6e 64 20 |f the fi|eld and |
|00001f40| 72 65 74 75 72 6e 20 74 | 68 65 20 6e 65 77 20 61 |return t|he new a|
|00001f50| 72 72 61 79 20 72 6f 77 | 2e 0a 49 66 20 72 65 71 |rray row|..If req|
|00001f60| 75 65 73 74 65 64 20 74 | 6f 20 6d 6f 76 65 20 62 |uested t|o move b|
|00001f70| 65 79 6f 6e 64 20 74 68 | 65 20 61 72 72 61 79 20 |eyond th|e array |
|00001f80| 62 6f 75 6e 64 73 2c 20 | 73 69 67 6e 61 6c 20 61 |bounds, |signal a|
|00001f90| 6e 20 65 72 72 6f 72 2e | 22 5d 29 0a 28 64 65 66 |n error.|"]).(def|
|00001fa0| 61 6c 69 61 73 20 27 61 | 72 72 61 79 2d 63 6f 70 |alias 'a|rray-cop|
|00001fb0| 79 2d 6f 6e 63 65 2d 68 | 6f 72 69 7a 6f 6e 74 61 |y-once-h|orizonta|
|00001fc0| 6c 6c 79 20 23 5b 28 73 | 69 67 6e 29 20 22 c0 09 |lly #[(s|ign) "..|
|00001fd0| 21 1a c3 20 88 c4 1d 60 | 8a c6 c4 21 88 60 29 7c |!.. ...`|...!.`)||
|00001fe0| 88 0e 07 63 88 29 c8 0e | 09 21 88 5c 6e 29 87 22 |...c.)..|.!.\n)."|
|00001ff0| 20 5b 61 72 72 61 79 2d | 6d 6f 76 65 2d 6f 6e 65 | [array-|move-one|
|00002000| 2d 63 6f 6c 75 6d 6e 20 | 73 69 67 6e 20 61 2d 63 |-column |sign a-c|
|00002010| 6f 6c 75 6d 6e 20 61 72 | 72 61 79 2d 75 70 64 61 |olumn ar|ray-upda|
|00002020| 74 65 2d 62 75 66 66 65 | 72 2d 70 6f 73 69 74 69 |te-buffe|r-positi|
|00002030| 6f 6e 20 74 20 69 6e 68 | 69 62 69 74 2d 71 75 69 |on t inh|ibit-qui|
|00002040| 74 20 61 72 72 61 79 2d | 65 6e 64 2d 6f 66 2d 66 |t array-|end-of-f|
|00002050| 69 65 6c 64 20 63 6f 70 | 79 2d 73 74 72 69 6e 67 |ield cop|y-string|
|00002060| 20 6d 6f 76 65 2d 74 6f | 2d 63 6f 6c 75 6d 6e 20 | move-to|-column |
|00002070| 62 75 66 66 65 72 2d 63 | 6f 6c 75 6d 6e 5d 20 33 |buffer-c|olumn] 3|
|00002080| 20 22 5c 0a 43 6f 70 79 | 20 74 68 65 20 63 75 72 | "\.Copy| the cur|
|00002090| 72 65 6e 74 20 66 69 65 | 6c 64 20 69 6e 74 6f 20 |rent fie|ld into |
|000020a0| 6f 6e 65 20 61 72 72 61 | 79 20 63 6f 6c 75 6d 6e |one arra|y column|
|000020b0| 20 69 6e 20 64 69 72 65 | 63 74 69 6f 6e 20 53 49 | in dire|ction SI|
|000020c0| 47 4e 20 28 31 20 6f 72 | 20 2d 31 29 2e 0a 4c 65 |GN (1 or| -1)..Le|
|000020d0| 61 76 65 20 70 6f 69 6e | 74 20 61 74 20 74 68 65 |ave poin|t at the|
|000020e0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|000020f0| 65 20 66 69 65 6c 64 20 | 61 6e 64 20 72 65 74 75 |e field |and retu|
|00002100| 72 6e 20 74 68 65 20 6e | 65 77 20 61 72 72 61 79 |rn the n|ew array|
|00002110| 20 63 6f 6c 75 6d 6e 2e | 0a 49 66 20 72 65 71 75 | column.|.If requ|
|00002120| 65 73 74 65 64 20 74 6f | 20 6d 6f 76 65 20 62 65 |ested to| move be|
|00002130| 79 6f 6e 64 20 74 68 65 | 20 61 72 72 61 79 20 62 |yond the| array b|
|00002140| 6f 75 6e 64 73 2c 20 73 | 69 67 6e 61 6c 20 61 6e |ounds, s|ignal an|
|00002150| 20 65 72 72 6f 72 2e 22 | 5d 29 0a 28 64 65 66 61 | error."|]).(defa|
|00002160| 6c 69 61 73 20 27 61 72 | 72 61 79 2d 63 6f 70 79 |lias 'ar|ray-copy|
|00002170| 2d 74 6f 2d 72 6f 77 20 | 23 5b 28 61 2d 72 6f 77 |-to-row |#[(a-row|
|00002180| 29 20 22 08 09 5a 1a c3 | 5c 6e 21 89 1c c5 55 3f |) "..Z..|\n!...U?|
|00002190| 85 12 00 5c 6e 0c a5 1e | 06 0c c5 56 85 40 00 c7 |...\n...|...V.@..|
|000021a0| 0e 06 21 88 c8 20 88 c9 | 1e 5c 6e 60 8a cb c9 21 |..!.. ..|.\n`...!|
|000021b0| 88 60 29 7c 88 0e 0c 63 | 88 29 cd 0e 0e 21 88 0c |.`)|...c|.)...!..|
|000021c0| 53 89 14 82 15 00 2b 87 | 22 20 5b 61 2d 72 6f 77 |S.....+.|" [a-row|
|000021d0| 20 61 72 72 61 79 2d 72 | 6f 77 20 6e 75 6d 20 61 | array-r|ow num a|
|000021e0| 62 73 20 63 6f 75 6e 74 | 20 30 20 73 69 67 6e 20 |bs count| 0 sign |
|000021f0| 61 72 72 61 79 2d 6d 6f | 76 65 2d 6f 6e 65 2d 72 |array-mo|ve-one-r|
|00002200| 6f 77 20 61 72 72 61 79 | 2d 75 70 64 61 74 65 2d |ow array|-update-|
|00002210| 62 75 66 66 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |buffer-p|osition |
|00002220| 74 20 69 6e 68 69 62 69 | 74 2d 71 75 69 74 20 61 |t inhibi|t-quit a|
|00002230| 72 72 61 79 2d 65 6e 64 | 2d 6f 66 2d 66 69 65 6c |rray-end|-of-fiel|
|00002240| 64 20 63 6f 70 79 2d 73 | 74 72 69 6e 67 20 6d 6f |d copy-s|tring mo|
|00002250| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 20 62 75 66 |ve-to-co|lumn buf|
|00002260| 66 65 72 2d 63 6f 6c 75 | 6d 6e 5d 20 34 20 22 5c |fer-colu|mn] 4 "\|
|00002270| 0a 43 6f 70 79 20 74 68 | 65 20 63 75 72 72 65 6e |.Copy th|e curren|
|00002280| 74 20 66 69 65 6c 64 20 | 76 65 72 74 69 63 61 6c |t field |vertical|
|00002290| 6c 79 20 69 6e 74 6f 20 | 65 76 65 72 79 20 63 65 |ly into |every ce|
|000022a0| 6c 6c 20 75 70 20 74 6f | 20 61 6e 64 20 69 6e 63 |ll up to| and inc|
|000022b0| 6c 75 64 69 6e 67 20 41 | 2d 52 4f 57 2e 0a 4c 65 |luding A|-ROW..Le|
|000022c0| 61 76 65 20 70 6f 69 6e | 74 20 61 74 20 74 68 65 |ave poin|t at the|
|000022d0| 20 62 65 67 69 6e 6e 69 | 6e 67 20 6f 66 20 74 68 | beginni|ng of th|
|000022e0| 65 20 66 69 65 6c 64 2e | 22 5d 29 0a 28 64 65 66 |e field.|"]).(def|
|000022f0| 61 6c 69 61 73 20 27 61 | 72 72 61 79 2d 63 6f 70 |alias 'a|rray-cop|
|00002300| 79 2d 74 6f 2d 63 6f 6c | 75 6d 6e 20 23 5b 28 61 |y-to-col|umn #[(a|
|00002310| 2d 63 6f 6c 75 6d 6e 29 | 20 22 08 09 5a 1a c3 5c |-column)| "..Z..\|
|00002320| 6e 21 89 1c c5 55 3f 85 | 12 00 5c 6e 0c a5 1e 06 |n!...U?.|..\n....|
|00002330| 0c c5 56 85 40 00 c7 0e | 06 21 88 c8 20 88 c9 1e |..V.@...|.!.. ...|
|00002340| 5c 6e 60 8a cb c9 21 88 | 60 29 7c 88 0e 0c 63 88 |\n`...!.|`)|...c.|
|00002350| 29 cd 0e 0e 21 88 0c 53 | 89 14 82 15 00 2b 87 22 |)...!..S|.....+."|
|00002360| 20 5b 61 2d 63 6f 6c 75 | 6d 6e 20 61 72 72 61 79 | [a-colu|mn array|
|00002370| 2d 63 6f 6c 75 6d 6e 20 | 6e 75 6d 20 61 62 73 20 |-column |num abs |
|00002380| 63 6f 75 6e 74 20 30 20 | 73 69 67 6e 20 61 72 72 |count 0 |sign arr|
|00002390| 61 79 2d 6d 6f 76 65 2d | 6f 6e 65 2d 63 6f 6c 75 |ay-move-|one-colu|
|000023a0| 6d 6e 20 61 72 72 61 79 | 2d 75 70 64 61 74 65 2d |mn array|-update-|
|000023b0| 62 75 66 66 65 72 2d 70 | 6f 73 69 74 69 6f 6e 20 |buffer-p|osition |
|000023c0| 74 20 69 6e 68 69 62 69 | 74 2d 71 75 69 74 20 61 |t inhibi|t-quit a|
|000023d0| 72 72 61 79 2d 65 6e 64 | 2d 6f 66 2d 66 69 65 6c |rray-end|-of-fiel|
|000023e0| 64 20 63 6f 70 79 2d 73 | 74 72 69 6e 67 20 6d 6f |d copy-s|tring mo|
|000023f0| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 20 62 75 66 |ve-to-co|lumn buf|
|00002400| 66 65 72 2d 63 6f 6c 75 | 6d 6e 5d 20 34 20 22 5c |fer-colu|mn] 4 "\|
|00002410| 0a 43 6f 70 79 20 74 68 | 65 20 63 75 72 72 65 6e |.Copy th|e curren|
|00002420| 74 20 66 69 65 6c 64 20 | 68 6f 72 69 7a 6f 6e 74 |t field |horizont|
|00002430| 61 6c 6c 79 20 69 6e 74 | 6f 20 65 76 65 72 79 20 |ally int|o every |
|00002440| 63 65 6c 6c 20 75 70 20 | 74 6f 20 61 6e 64 20 69 |cell up |to and i|
|00002450| 6e 63 6c 75 64 69 6e 67 | 0a 41 2d 43 4f 4c 55 4d |ncluding|.A-COLUM|
|00002460| 4e 2e 20 20 4c 65 61 76 | 65 20 70 6f 69 6e 74 20 |N. Leav|e point |
|00002470| 61 74 20 74 68 65 20 62 | 65 67 69 6e 6e 69 6e 67 |at the b|eginning|
|00002480| 20 6f 66 20 74 68 65 20 | 66 69 65 6c 64 2e 22 5d | of the |field."]|
|00002490| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 72 72 |).(defal|ias 'arr|
|000024a0| 61 79 2d 63 6f 70 79 2d | 74 6f 2d 63 65 6c 6c 20 |ay-copy-|to-cell |
|000024b0| 23 5b 28 61 2d 72 6f 77 | 20 61 2d 63 6f 6c 75 6d |#[(a-row| a-colum|
|000024c0| 6e 29 20 22 c0 09 5c 6e | 5c 22 88 c3 20 88 60 8a |n) "..\n|\".. .`.|
|000024d0| c4 c5 21 88 60 29 7c 88 | 0e 06 63 88 c7 0e 08 21 |..!.`)|.|..c....!|
|000024e0| 87 22 20 5b 61 72 72 61 | 79 2d 6d 6f 76 65 2d 74 |." [arra|y-move-t|
|000024f0| 6f 2d 63 65 6c 6c 20 61 | 2d 72 6f 77 20 61 2d 63 |o-cell a|-row a-c|
|00002500| 6f 6c 75 6d 6e 20 61 72 | 72 61 79 2d 75 70 64 61 |olumn ar|ray-upda|
|00002510| 74 65 2d 62 75 66 66 65 | 72 2d 70 6f 73 69 74 69 |te-buffe|r-positi|
|00002520| 6f 6e 20 61 72 72 61 79 | 2d 65 6e 64 2d 6f 66 2d |on array|-end-of-|
|00002530| 66 69 65 6c 64 20 74 20 | 63 6f 70 79 2d 73 74 72 |field t |copy-str|
|00002540| 69 6e 67 20 6d 6f 76 65 | 2d 74 6f 2d 63 6f 6c 75 |ing move|-to-colu|
|00002550| 6d 6e 20 62 75 66 66 65 | 72 2d 63 6f 6c 75 6d 6e |mn buffe|r-column|
|00002560| 5d 20 33 20 22 5c 0a 43 | 6f 70 79 20 74 68 65 20 |] 3 "\.C|opy the |
|00002570| 63 75 72 72 65 6e 74 20 | 66 69 65 6c 64 20 69 6e |current |field in|
|00002580| 74 6f 20 74 68 65 20 63 | 65 6c 6c 20 61 74 20 41 |to the c|ell at A|
|00002590| 2d 52 4f 57 2c 20 41 2d | 43 4f 4c 55 4d 4e 2e 0a |-ROW, A-|COLUMN..|
|000025a0| 4c 65 61 76 65 20 70 6f | 69 6e 74 20 61 74 20 74 |Leave po|int at t|
|000025b0| 68 65 20 62 65 67 69 6e | 6e 69 6e 67 20 6f 66 20 |he begin|ning of |
|000025c0| 74 68 65 20 66 69 65 6c | 64 2e 22 5d 29 0a 28 64 |the fiel|d."]).(d|
|000025d0| 65 66 61 6c 69 61 73 20 | 27 61 72 72 61 79 2d 63 |efalias |'array-c|
|000025e0| 6f 70 79 2d 64 6f 77 6e | 20 23 5b 28 26 6f 70 74 |opy-down| #[(&opt|
|000025f0| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 c0 20 19 69 |ional ar|g) ". .i|
|00002600| 1a c3 20 86 0d 00 c4 c5 | 21 1e 06 c7 20 1e 08 c9 |.. .....|!... ...|
|00002610| 0e 5c 6e 21 cb 55 83 24 | 00 cc 0e 5c 6e 21 88 82 |.\n!.U.$|...\n!..|
|00002620| 30 00 cd ce 0e 06 0e 5c | 6e 5c 5c 0e 0f 5c 22 21 |0......\|n\\..\"!|
|00002630| 88 2c d0 20 87 22 20 5b | 63 75 72 72 65 6e 74 2d |.,. ." [|current-|
|00002640| 6c 69 6e 65 20 62 75 66 | 66 65 72 2d 6c 69 6e 65 |line buf|fer-line|
|00002650| 20 62 75 66 66 65 72 2d | 63 6f 6c 75 6d 6e 20 61 | buffer-|column a|
|00002660| 72 72 61 79 2d 63 75 72 | 72 65 6e 74 2d 72 6f 77 |rray-cur|rent-row|
|00002670| 20 65 72 72 6f 72 20 22 | 43 75 72 73 6f 72 20 69 | error "|Cursor i|
|00002680| 73 20 6e 6f 74 20 69 6e | 20 61 20 76 61 6c 69 64 |s not in| a valid|
|00002690| 20 61 72 72 61 79 20 63 | 65 6c 6c 2e 22 20 61 72 | array c|ell." ar|
|000026a0| 72 61 79 2d 72 6f 77 20 | 61 72 72 61 79 2d 66 69 |ray-row |array-fi|
|000026b0| 65 6c 64 2d 73 74 72 69 | 6e 67 20 63 6f 70 79 2d |eld-stri|ng copy-|
|000026c0| 73 74 72 69 6e 67 20 61 | 62 73 20 61 72 67 20 31 |string a|bs arg 1|
|000026d0| 20 61 72 72 61 79 2d 63 | 6f 70 79 2d 6f 6e 63 65 | array-c|opy-once|
|000026e0| 2d 76 65 72 74 69 63 61 | 6c 6c 79 20 61 72 72 61 |-vertica|lly arra|
|000026f0| 79 2d 63 6f 70 79 2d 74 | 6f 2d 72 6f 77 20 6c 69 |y-copy-t|o-row li|
|00002700| 6d 69 74 2d 69 6e 64 65 | 78 20 6d 61 78 2d 72 6f |mit-inde|x max-ro|
|00002710| 77 20 61 72 72 61 79 2d | 6e 6f 72 6d 61 6c 69 7a |w array-|normaliz|
|00002720| 65 2d 63 75 72 73 6f 72 | 5d 20 34 20 22 5c 0a 43 |e-cursor|] 4 "\.C|
|00002730| 6f 70 79 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |opy the |current |
|00002740| 66 69 65 6c 64 20 6f 6e | 65 20 61 72 72 61 79 20 |field on|e array |
|00002750| 72 6f 77 20 64 6f 77 6e | 2e 0a 49 66 20 6f 70 74 |row down|..If opt|
|00002760| 69 6f 6e 61 6c 20 41 52 | 47 20 69 73 20 67 69 76 |ional AR|G is giv|
|00002770| 65 6e 2c 20 63 6f 70 79 | 20 64 6f 77 6e 20 74 68 |en, copy| down th|
|00002780| 72 6f 75 67 68 20 41 52 | 47 20 61 72 72 61 79 20 |rough AR|G array |
|00002790| 72 6f 77 73 2e 22 20 22 | 70 22 5d 29 0a 28 64 65 |rows." "|p"]).(de|
|000027a0| 66 61 6c 69 61 73 20 27 | 61 72 72 61 79 2d 63 6f |falias '|array-co|
|000027b0| 70 79 2d 75 70 20 23 5b | 28 26 6f 70 74 69 6f 6e |py-up #[|(&option|
|000027c0| 61 6c 20 61 72 67 29 20 | 22 c0 09 5b 21 87 22 20 |al arg) |"..[!." |
|000027d0| 5b 61 72 72 61 79 2d 63 | 6f 70 79 2d 64 6f 77 6e |[array-c|opy-down|
|000027e0| 20 61 72 67 5d 20 32 20 | 22 5c 0a 43 6f 70 79 20 | arg] 2 |"\.Copy |
|000027f0| 74 68 65 20 63 75 72 72 | 65 6e 74 20 66 69 65 6c |the curr|ent fiel|
|00002800| 64 20 6f 6e 65 20 61 72 | 72 61 79 20 72 6f 77 20 |d one ar|ray row |
|00002810| 75 70 2e 0a 49 66 20 6f | 70 74 69 6f 6e 61 6c 20 |up..If o|ptional |
|00002820| 41 52 47 20 69 73 20 67 | 69 76 65 6e 2c 20 63 6f |ARG is g|iven, co|
|00002830| 70 79 20 75 70 20 74 68 | 72 6f 75 67 68 20 41 52 |py up th|rough AR|
|00002840| 47 20 61 72 72 61 79 20 | 72 6f 77 73 2e 22 20 22 |G array |rows." "|
|00002850| 70 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |p"]).(de|falias '|
|00002860| 61 72 72 61 79 2d 63 6f | 70 79 2d 66 6f 72 77 61 |array-co|py-forwa|
|00002870| 72 64 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |rd #[(&o|ptional |
|00002880| 61 72 67 29 20 22 c0 20 | 19 69 1a c3 20 86 0d 00 |arg) ". |.i.. ...|
|00002890| c4 c5 21 1e 06 c7 20 1e | 08 c9 0e 5c 6e 21 cb 55 |..!... .|...\n!.U|
|000028a0| 83 24 00 cc 0e 5c 6e 21 | 88 82 30 00 cd ce 0e 06 |.$...\n!|..0.....|
|000028b0| 0e 5c 6e 5c 5c 0e 0f 5c | 22 21 88 2c d0 20 87 22 |.\n\\..\|"!.,. ."|
|000028c0| 20 5b 63 75 72 72 65 6e | 74 2d 6c 69 6e 65 20 62 | [curren|t-line b|
|000028d0| 75 66 66 65 72 2d 6c 69 | 6e 65 20 62 75 66 66 65 |uffer-li|ne buffe|
|000028e0| 72 2d 63 6f 6c 75 6d 6e | 20 61 72 72 61 79 2d 63 |r-column| array-c|
|000028f0| 75 72 72 65 6e 74 2d 63 | 6f 6c 75 6d 6e 20 65 72 |urrent-c|olumn er|
|00002900| 72 6f 72 20 22 43 75 72 | 73 6f 72 20 69 73 20 6e |ror "Cur|sor is n|
|00002910| 6f 74 20 69 6e 20 61 20 | 76 61 6c 69 64 20 61 72 |ot in a |valid ar|
|00002920| 72 61 79 20 63 65 6c 6c | 2e 22 20 61 72 72 61 79 |ray cell|." array|
|00002930| 2d 63 6f 6c 75 6d 6e 20 | 61 72 72 61 79 2d 66 69 |-column |array-fi|
|00002940| 65 6c 64 2d 73 74 72 69 | 6e 67 20 63 6f 70 79 2d |eld-stri|ng copy-|
|00002950| 73 74 72 69 6e 67 20 61 | 62 73 20 61 72 67 20 31 |string a|bs arg 1|
|00002960| 20 61 72 72 61 79 2d 63 | 6f 70 79 2d 6f 6e 63 65 | array-c|opy-once|
|00002970| 2d 68 6f 72 69 7a 6f 6e | 74 61 6c 6c 79 20 61 72 |-horizon|tally ar|
|00002980| 72 61 79 2d 63 6f 70 79 | 2d 74 6f 2d 63 6f 6c 75 |ray-copy|-to-colu|
|00002990| 6d 6e 20 6c 69 6d 69 74 | 2d 69 6e 64 65 78 20 6d |mn limit|-index m|
|000029a0| 61 78 2d 63 6f 6c 75 6d | 6e 20 61 72 72 61 79 2d |ax-colum|n array-|
|000029b0| 6e 6f 72 6d 61 6c 69 7a | 65 2d 63 75 72 73 6f 72 |normaliz|e-cursor|
|000029c0| 5d 20 34 20 22 5c 0a 43 | 6f 70 79 20 74 68 65 20 |] 4 "\.C|opy the |
|000029d0| 63 75 72 72 65 6e 74 20 | 66 69 65 6c 64 20 6f 6e |current |field on|
|000029e0| 65 20 61 72 72 61 79 20 | 63 6f 6c 75 6d 6e 20 74 |e array |column t|
|000029f0| 6f 20 74 68 65 20 72 69 | 67 68 74 2e 0a 49 66 20 |o the ri|ght..If |
|00002a00| 6f 70 74 69 6f 6e 61 6c | 20 41 52 47 20 69 73 20 |optional| ARG is |
|00002a10| 67 69 76 65 6e 2c 20 63 | 6f 70 79 20 74 68 72 6f |given, c|opy thro|
|00002a20| 75 67 68 20 41 52 47 20 | 61 72 72 61 79 20 63 6f |ugh ARG |array co|
|00002a30| 6c 75 6d 6e 73 20 74 6f | 20 74 68 65 20 72 69 67 |lumns to| the rig|
|00002a40| 68 74 2e 22 20 22 70 22 | 5d 29 0a 28 64 65 66 61 |ht." "p"|]).(defa|
|00002a50| 6c 69 61 73 20 27 61 72 | 72 61 79 2d 63 6f 70 79 |lias 'ar|ray-copy|
|00002a60| 2d 62 61 63 6b 77 61 72 | 64 20 23 5b 28 26 6f 70 |-backwar|d #[(&op|
|00002a70| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 c0 09 5b |tional a|rg) "..[|
|00002a80| 21 87 22 20 5b 61 72 72 | 61 79 2d 63 6f 70 79 2d |!." [arr|ay-copy-|
|00002a90| 66 6f 72 77 61 72 64 20 | 61 72 67 5d 20 32 20 22 |forward |arg] 2 "|
|00002aa0| 5c 0a 43 6f 70 79 20 74 | 68 65 20 63 75 72 72 65 |\.Copy t|he curre|
|00002ab0| 6e 74 20 66 69 65 6c 64 | 20 6f 6e 65 20 61 72 72 |nt field| one arr|
|00002ac0| 61 79 20 63 6f 6c 75 6d | 6e 20 74 6f 20 74 68 65 |ay colum|n to the|
|00002ad0| 20 6c 65 66 74 2e 0a 49 | 66 20 6f 70 74 69 6f 6e | left..I|f option|
|00002ae0| 61 6c 20 41 52 47 20 69 | 73 20 67 69 76 65 6e 2c |al ARG i|s given,|
|00002af0| 20 63 6f 70 79 20 74 68 | 72 6f 75 67 68 20 41 52 | copy th|rough AR|
|00002b00| 47 20 61 72 72 61 79 20 | 63 6f 6c 75 6d 6e 73 20 |G array |columns |
|00002b10| 74 6f 20 74 68 65 20 6c | 65 66 74 2e 22 20 22 70 |to the l|eft." "p|
|00002b20| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 61 |"]).(def|alias 'a|
|00002b30| 72 72 61 79 2d 63 6f 70 | 79 2d 63 6f 6c 75 6d 6e |rray-cop|y-column|
|00002b40| 2d 66 6f 72 77 61 72 64 | 20 23 5b 28 26 6f 70 74 |-forward| #[(&opt|
|00002b50| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 c0 20 88 c1 |ional ar|g) ". ..|
|00002b60| 20 88 5c 6e 84 0e 00 c3 | c4 21 88 c5 c6 21 88 c7 | .\n....|.!...!..|
|00002b70| 1e 08 0e 08 0e 09 57 83 | 4f 00 0e 08 54 16 08 ca |......W.|O...T...|
|00002b80| 0e 08 5c 6e 5c 22 88 c0 | 20 88 cb 20 1e 0c cd 0e |..\n\"..| .. ....|
|00002b90| 0e 21 cf 55 83 40 00 d0 | 0e 0e 21 88 82 4b 00 d1 |.!.U.@..|..!..K..|
|00002ba0| d2 5c 6e 0e 0e 5c 5c 0e | 13 5c 22 21 88 29 82 15 |.\n..\\.|.\"!.)..|
|00002bb0| 00 29 c5 d4 21 88 d5 0e | 16 21 88 d7 20 87 22 20 |.)..!...|.!.. ." |
|00002bc0| 5b 61 72 72 61 79 2d 75 | 70 64 61 74 65 2d 62 75 |[array-u|pdate-bu|
|00002bd0| 66 66 65 72 2d 70 6f 73 | 69 74 69 6f 6e 20 61 72 |ffer-pos|ition ar|
|00002be0| 72 61 79 2d 75 70 64 61 | 74 65 2d 61 72 72 61 79 |ray-upda|te-array|
|00002bf0| 2d 70 6f 73 69 74 69 6f | 6e 20 61 72 72 61 79 2d |-positio|n array-|
|00002c00| 63 6f 6c 75 6d 6e 20 65 | 72 72 6f 72 20 22 43 75 |column e|rror "Cu|
|00002c10| 72 73 6f 72 20 69 73 20 | 6e 6f 74 20 69 6e 20 61 |rsor is |not in a|
|00002c20| 20 76 61 6c 69 64 20 61 | 72 72 61 79 20 63 65 6c | valid a|rray cel|
|00002c30| 6c 2e 22 20 6d 65 73 73 | 61 67 65 20 22 57 6f 72 |l." mess|age "Wor|
|00002c40| 6b 69 6e 67 2e 2e 2e 22 | 20 30 20 74 68 69 73 2d |king..."| 0 this-|
|00002c50| 72 6f 77 20 6d 61 78 2d | 72 6f 77 20 61 72 72 61 |row max-|row arra|
|00002c60| 79 2d 6d 6f 76 65 2d 74 | 6f 2d 63 65 6c 6c 20 61 |y-move-t|o-cell a|
|00002c70| 72 72 61 79 2d 66 69 65 | 6c 64 2d 73 74 72 69 6e |rray-fie|ld-strin|
|00002c80| 67 20 63 6f 70 79 2d 73 | 74 72 69 6e 67 20 61 62 |g copy-s|tring ab|
|00002c90| 73 20 61 72 67 20 31 20 | 61 72 72 61 79 2d 63 6f |s arg 1 |array-co|
|00002ca0| 70 79 2d 6f 6e 63 65 2d | 68 6f 72 69 7a 6f 6e 74 |py-once-|horizont|
|00002cb0| 61 6c 6c 79 20 61 72 72 | 61 79 2d 63 6f 70 79 2d |ally arr|ay-copy-|
|00002cc0| 74 6f 2d 63 6f 6c 75 6d | 6e 20 6c 69 6d 69 74 2d |to-colum|n limit-|
|00002cd0| 69 6e 64 65 78 20 6d 61 | 78 2d 63 6f 6c 75 6d 6e |index ma|x-column|
|00002ce0| 20 22 57 6f 72 6b 69 6e | 67 2e 2e 2e 64 6f 6e 65 | "Workin|g...done|
|00002cf0| 22 20 61 72 72 61 79 2d | 6d 6f 76 65 2d 74 6f 2d |" array-|move-to-|
|00002d00| 72 6f 77 20 61 72 72 61 | 79 2d 72 6f 77 20 61 72 |row arra|y-row ar|
|00002d10| 72 61 79 2d 6e 6f 72 6d | 61 6c 69 7a 65 2d 63 75 |ray-norm|alize-cu|
|00002d20| 72 73 6f 72 5d 20 34 20 | 22 5c 0a 43 6f 70 79 20 |rsor] 4 |"\.Copy |
|00002d30| 74 68 65 20 65 6e 74 69 | 72 65 20 63 75 72 72 65 |the enti|re curre|
|00002d40| 6e 74 20 63 6f 6c 75 6d | 6e 20 69 6e 20 74 6f 20 |nt colum|n in to |
|00002d50| 74 68 65 20 63 6f 6c 75 | 6d 6e 20 74 6f 20 74 68 |the colu|mn to th|
|00002d60| 65 20 72 69 67 68 74 2e | 0a 49 66 20 6f 70 74 69 |e right.|.If opti|
|00002d70| 6f 6e 61 6c 20 41 52 47 | 20 69 73 20 67 69 76 65 |onal ARG| is give|
|00002d80| 6e 2c 20 63 6f 70 79 20 | 74 68 72 6f 75 67 68 20 |n, copy |through |
|00002d90| 41 52 47 20 61 72 72 61 | 79 20 63 6f 6c 75 6d 6e |ARG arra|y column|
|00002da0| 73 20 74 6f 20 74 68 65 | 20 72 69 67 68 74 2e 22 |s to the| right."|
|00002db0| 20 22 70 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "p"]).(|defalias|
|00002dc0| 20 27 61 72 72 61 79 2d | 63 6f 70 79 2d 63 6f 6c | 'array-|copy-col|
|00002dd0| 75 6d 6e 2d 62 61 63 6b | 77 61 72 64 20 23 5b 28 |umn-back|ward #[(|
|00002de0| 26 6f 70 74 69 6f 6e 61 | 6c 20 61 72 67 29 20 22 |&optiona|l arg) "|
|00002df0| c0 09 5b 21 87 22 20 5b | 61 72 72 61 79 2d 63 6f |..[!." [|array-co|
|00002e00| 70 79 2d 63 6f 6c 75 6d | 6e 2d 66 6f 72 77 61 72 |py-colum|n-forwar|
|00002e10| 64 20 61 72 67 5d 20 32 | 20 22 5c 0a 43 6f 70 79 |d arg] 2| "\.Copy|
|00002e20| 20 74 68 65 20 65 6e 74 | 69 72 65 20 63 75 72 72 | the ent|ire curr|
|00002e30| 65 6e 74 20 63 6f 6c 75 | 6d 6e 20 6f 6e 65 20 63 |ent colu|mn one c|
|00002e40| 6f 6c 75 6d 6e 20 74 6f | 20 74 68 65 20 6c 65 66 |olumn to| the lef|
|00002e50| 74 2e 0a 49 66 20 6f 70 | 74 69 6f 6e 61 6c 20 41 |t..If op|tional A|
|00002e60| 52 47 20 69 73 20 67 69 | 76 65 6e 2c 20 63 6f 70 |RG is gi|ven, cop|
|00002e70| 79 20 74 68 72 6f 75 67 | 68 20 41 52 47 20 63 6f |y throug|h ARG co|
|00002e80| 6c 75 6d 6e 73 20 74 6f | 20 74 68 65 20 6c 65 66 |lumns to| the lef|
|00002e90| 74 2e 22 20 22 70 22 5d | 29 0a 28 64 65 66 61 6c |t." "p"]|).(defal|
|00002ea0| 69 61 73 20 27 61 72 72 | 61 79 2d 63 6f 70 79 2d |ias 'arr|ay-copy-|
|00002eb0| 72 6f 77 2d 64 6f 77 6e | 20 23 5b 28 26 6f 70 74 |row-down| #[(&opt|
|00002ec0| 69 6f 6e 61 6c 20 61 72 | 67 29 20 22 c0 20 88 c1 |ional ar|g) ". ..|
|00002ed0| 20 88 5c 6e 84 0e 00 c3 | c4 21 88 5c 6e c5 55 83 | .\n....|.!.\n.U.|
|00002ee0| 5c 22 00 0e 06 c7 55 83 | 5c 22 00 c3 c8 21 88 82 |\"....U.|\"...!..|
|00002ef0| b8 00 5c 6e 0e 09 55 83 | 37 00 0e 06 c5 55 83 37 |..\n..U.|7....U.7|
|00002f00| 00 c3 ca 21 88 82 b8 00 | 8a cb 5c 6e c5 5c 22 88 |...!....|..\n.\".|
|00002f10| 60 29 8a cb 5c 6e 0e 0c | 5c 22 88 c5 79 88 60 29 |`)..\n..|\"..y.`)|
|00002f20| 7b 1e 0d 5c 6e 1e 0e cf | 0e 0e 0e 06 5c 5c 0e 09 |{..\n...|....\\..|
|00002f30| 5c 22 89 1e 10 0e 0e 5a | 1e 11 d2 0e 11 21 89 1e |\".....Z|.....!..|
|00002f40| 13 d4 55 3f 85 74 00 0e | 11 0e 13 a5 1e 15 0e 13 |..U?.t..|........|
|00002f50| d4 56 83 ab 00 0e 0e 0e | 15 5c 5c 16 0e cb 0e 0e |.V......|.\\.....|
|00002f60| c5 5c 22 88 d6 1e 17 60 | 8a cb 0e 0e 0e 0c 5c 22 |.\"....`|......\"|
|00002f70| 88 c5 79 88 60 29 7c 88 | 0e 0d 63 88 29 0e 13 53 |..y.`)|.|..c.)..S|
|00002f80| 89 16 13 82 78 00 cb 0e | 10 0e 18 86 b4 00 c5 5c |....x...|.......\|
|00002f90| 22 88 2e 06 d9 20 87 22 | 20 5b 61 72 72 61 79 2d |".... ."| [array-|
|00002fa0| 75 70 64 61 74 65 2d 62 | 75 66 66 65 72 2d 70 6f |update-b|uffer-po|
|00002fb0| 73 69 74 69 6f 6e 20 61 | 72 72 61 79 2d 75 70 64 |sition a|rray-upd|
|00002fc0| 61 74 65 2d 61 72 72 61 | 79 2d 70 6f 73 69 74 69 |ate-arra|y-positi|
|00002fd0| 6f 6e 20 61 72 72 61 79 | 2d 72 6f 77 20 65 72 72 |on array|-row err|
|00002fe0| 6f 72 20 22 43 75 72 73 | 6f 72 20 69 73 20 6e 6f |or "Curs|or is no|
|00002ff0| 74 20 69 6e 20 61 20 76 | 61 6c 69 64 20 61 72 72 |t in a v|alid arr|
|00003000| 61 79 20 63 65 6c 6c 2e | 22 20 31 20 61 72 67 20 |ay cell.|" 1 arg |
|00003010| 2d 31 20 22 42 65 67 69 | 6e 6e 69 6e 67 20 6f 66 |-1 "Begi|nning of|
|00003020| 20 61 72 72 61 79 2e 22 | 20 6d 61 78 2d 72 6f 77 | array."| max-row|
|00003030| 20 22 45 6e 64 20 6f 66 | 20 61 72 72 61 79 2e 22 | "End of| array."|
|00003040| 20 61 72 72 61 79 2d 6d | 6f 76 65 2d 74 6f 2d 63 | array-m|ove-to-c|
|00003050| 65 6c 6c 20 6d 61 78 2d | 63 6f 6c 75 6d 6e 20 63 |ell max-|column c|
|00003060| 6f 70 79 2d 73 74 72 69 | 6e 67 20 74 68 69 73 2d |opy-stri|ng this-|
|00003070| 72 6f 77 20 6c 69 6d 69 | 74 2d 69 6e 64 65 78 20 |row limi|t-index |
|00003080| 67 6f 61 6c 2d 72 6f 77 | 20 6e 75 6d 20 61 62 73 |goal-row| num abs|
|00003090| 20 63 6f 75 6e 74 20 30 | 20 73 69 67 6e 20 74 20 | count 0| sign t |
|000030a0| 69 6e 68 69 62 69 74 2d | 71 75 69 74 20 61 72 72 |inhibit-|quit arr|
|000030b0| 61 79 2d 63 6f 6c 75 6d | 6e 20 61 72 72 61 79 2d |ay-colum|n array-|
|000030c0| 6e 6f 72 6d 61 6c 69 7a | 65 2d 63 75 72 73 6f 72 |normaliz|e-cursor|
|000030d0| 5d 20 35 20 22 5c 0a 43 | 6f 70 79 20 74 68 65 20 |] 5 "\.C|opy the |
|000030e0| 65 6e 74 69 72 65 20 63 | 75 72 72 65 6e 74 20 72 |entire c|urrent r|
|000030f0| 6f 77 20 6f 6e 65 20 72 | 6f 77 20 64 6f 77 6e 2e |ow one r|ow down.|
|00003100| 0a 49 66 20 6f 70 74 69 | 6f 6e 61 6c 20 41 52 47 |.If opti|onal ARG|
|00003110| 20 69 73 20 67 69 76 65 | 6e 2c 20 63 6f 70 79 20 | is give|n, copy |
|00003120| 74 68 72 6f 75 67 68 20 | 41 52 47 20 72 6f 77 73 |through |ARG rows|
|00003130| 20 64 6f 77 6e 2e 22 20 | 22 70 22 5d 29 0a 28 64 | down." |"p"]).(d|
|00003140| 65 66 61 6c 69 61 73 20 | 27 61 72 72 61 79 2d 63 |efalias |'array-c|
|00003150| 6f 70 79 2d 72 6f 77 2d | 75 70 20 23 5b 28 26 6f |opy-row-|up #[(&o|
|00003160| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 c0 09 |ptional |arg) "..|
|00003170| 5b 21 87 22 20 5b 61 72 | 72 61 79 2d 63 6f 70 79 |[!." [ar|ray-copy|
|00003180| 2d 72 6f 77 2d 64 6f 77 | 6e 20 61 72 67 5d 20 32 |-row-dow|n arg] 2|
|00003190| 20 22 5c 0a 43 6f 70 79 | 20 74 68 65 20 65 6e 74 | "\.Copy| the ent|
|000031a0| 69 72 65 20 63 75 72 72 | 65 6e 74 20 61 72 72 61 |ire curr|ent arra|
|000031b0| 79 20 72 6f 77 20 69 6e | 74 6f 20 74 68 65 20 72 |y row in|to the r|
|000031c0| 6f 77 20 61 62 6f 76 65 | 2e 0a 49 66 20 6f 70 74 |ow above|..If opt|
|000031d0| 69 6f 6e 61 6c 20 41 52 | 47 20 69 73 20 67 69 76 |ional AR|G is giv|
|000031e0| 65 6e 2c 20 63 6f 70 79 | 20 74 68 72 6f 75 67 68 |en, copy| through|
|000031f0| 20 41 52 47 20 72 6f 77 | 73 20 75 70 2e 22 20 22 | ARG row|s up." "|
|00003200| 70 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |p"]).(de|falias '|
|00003210| 61 72 72 61 79 2d 66 69 | 6c 6c 2d 72 65 63 74 61 |array-fi|ll-recta|
|00003220| 6e 67 6c 65 20 23 5b 6e | 69 6c 20 22 c0 20 88 c1 |ngle #[n|il ". ..|
|00003230| 20 86 0b 00 c2 c3 21 c4 | 20 86 13 00 c2 c3 21 8a | .....!.| .....!.|
|00003240| c5 20 88 c0 20 88 c1 20 | 86 5c 22 00 c2 c6 21 29 |. .. .. |.\"...!)|
|00003250| 8a c5 20 88 c0 20 88 c4 | 20 86 32 00 c2 c6 21 29 |.. .. ..| .2...!)|
|00003260| 1e 07 1e 08 1e 09 1e 5c | 6e cb cc 21 88 0e 08 0e |.......\|n..!....|
|00003270| 5c 6e 5e 0e 08 0e 5c 6e | 5d 0e 07 0e 09 5e 0e 07 |\n^...\n|]....^..|
|00003280| 0e 09 5d 1e 0d 1e 0e 1e | 0f 1e 10 8a d1 0e 08 0e |..].....|........|
|00003290| 07 5c 22 88 c0 20 88 d2 | 20 29 1e 13 d4 0e 10 0e |.\".. ..| )......|
|000032a0| 0e 5c 22 88 d5 0e 10 0e | 0e 5c 22 88 c0 20 88 d6 |.\".....|.\".. ..|
|000032b0| 0e 0d 21 88 29 d1 0e 10 | 0e 0e 5c 22 88 60 8a d1 |..!.)...|..\".`..|
|000032c0| 0e 10 0e 0d 5c 22 88 69 | 16 17 d8 d9 21 88 60 29 |....\".i|....!.`)|
|000032d0| 7b 0e 10 1e 1a 1e 13 0e | 1a 0e 0f 55 84 d5 00 0e |{.......|...U....|
|000032e0| 1a 54 16 1a d1 0e 1a 0e | 0e 5c 22 88 d9 1e 1b 60 |.T......|.\"....`|
|000032f0| 8a d1 0e 1a 0e 0d 5c 22 | 88 69 16 17 d8 d9 21 88 |......\"|.i....!.|
|00003300| 60 29 7c 88 0e 13 63 88 | 29 82 a2 00 2e 06 cb dc |`)|...c.|).......|
|00003310| 21 88 dd 0e 5c 6e 0e 09 | 5c 22 2c 87 22 20 5b 61 |!...\n..|\",." [a|
|00003320| 72 72 61 79 2d 75 70 64 | 61 74 65 2d 62 75 66 66 |rray-upd|ate-buff|
|00003330| 65 72 2d 70 6f 73 69 74 | 69 6f 6e 20 61 72 72 61 |er-posit|ion arra|
|00003340| 79 2d 63 75 72 72 65 6e | 74 2d 72 6f 77 20 65 72 |y-curren|t-row er|
|00003350| 72 6f 72 20 22 43 75 72 | 73 6f 72 20 69 73 20 6e |ror "Cur|sor is n|
|00003360| 6f 74 20 69 6e 20 61 20 | 76 61 6c 69 64 20 61 72 |ot in a |valid ar|
|00003370| 72 61 79 20 63 65 6c 6c | 2e 22 20 61 72 72 61 79 |ray cell|." array|
|00003380| 2d 63 75 72 72 65 6e 74 | 2d 63 6f 6c 75 6d 6e 20 |-current|-column |
|00003390| 65 78 63 68 61 6e 67 65 | 2d 70 6f 69 6e 74 2d 61 |exchange|-point-a|
|000033a0| 6e 64 2d 6d 61 72 6b 20 | 22 4d 61 72 6b 20 69 73 |nd-mark |"Mark is|
|000033b0| 20 6e 6f 74 20 69 6e 20 | 61 20 76 61 6c 69 64 20 | not in |a valid |
|000033c0| 61 72 72 61 79 20 63 65 | 6c 6c 2e 22 20 6d 2d 63 |array ce|ll." m-c|
|000033d0| 6f 6c 75 6d 6e 20 6d 2d | 72 6f 77 20 70 2d 63 6f |olumn m-|row p-co|
|000033e0| 6c 75 6d 6e 20 70 2d 72 | 6f 77 20 6d 65 73 73 61 |lumn p-r|ow messa|
|000033f0| 67 65 20 22 57 6f 72 6b | 69 6e 67 2e 2e 2e 22 20 |ge "Work|ing..." |
|00003400| 72 69 67 68 74 2d 63 6f | 6c 75 6d 6e 20 6c 65 66 |right-co|lumn lef|
|00003410| 74 2d 63 6f 6c 75 6d 6e | 20 62 6f 74 74 6f 6d 2d |t-column| bottom-|
|00003420| 72 6f 77 20 74 6f 70 2d | 72 6f 77 20 61 72 72 61 |row top-|row arra|
|00003430| 79 2d 6d 6f 76 65 2d 74 | 6f 2d 63 65 6c 6c 20 61 |y-move-t|o-cell a|
|00003440| 72 72 61 79 2d 66 69 65 | 6c 64 2d 73 74 72 69 6e |rray-fie|ld-strin|
|00003450| 67 20 63 6f 70 79 2d 73 | 74 72 69 6e 67 20 61 72 |g copy-s|tring ar|
|00003460| 72 61 79 2d 63 6f 70 79 | 2d 74 6f 2d 63 65 6c 6c |ray-copy|-to-cell|
|00003470| 20 61 72 72 61 79 2d 75 | 70 64 61 74 65 2d 61 72 | array-u|pdate-ar|
|00003480| 72 61 79 2d 70 6f 73 69 | 74 69 6f 6e 20 61 72 72 |ray-posi|tion arr|
|00003490| 61 79 2d 63 6f 70 79 2d | 74 6f 2d 63 6f 6c 75 6d |ay-copy-|to-colum|
|000034a0| 6e 20 62 75 66 66 65 72 | 2d 63 6f 6c 75 6d 6e 20 |n buffer|-column |
|000034b0| 61 72 72 61 79 2d 65 6e | 64 2d 6f 66 2d 66 69 65 |array-en|d-of-fie|
|000034c0| 6c 64 20 74 20 74 68 69 | 73 2d 72 6f 77 20 69 6e |ld t thi|s-row in|
|000034d0| 68 69 62 69 74 2d 71 75 | 69 74 20 22 57 6f 72 6b |hibit-qu|it "Work|
|000034e0| 69 6e 67 2e 2e 2e 64 6f | 6e 65 22 20 61 72 72 61 |ing...do|ne" arra|
|000034f0| 79 2d 67 6f 74 6f 2d 63 | 65 6c 6c 5d 20 35 20 22 |y-goto-c|ell] 5 "|
|00003500| 5c 0a 43 6f 70 79 20 74 | 68 65 20 66 69 65 6c 64 |\.Copy t|he field|
|00003510| 20 61 74 20 6d 61 72 6b | 20 69 6e 74 6f 20 65 76 | at mark| into ev|
|00003520| 65 72 79 20 63 65 6c 6c | 20 62 65 74 77 65 65 6e |ery cell| between|
|00003530| 20 6d 61 72 6b 20 61 6e | 64 20 70 6f 69 6e 74 2e | mark an|d point.|
|00003540| 22 20 6e 69 6c 5d 29 0a | 28 64 65 66 61 6c 69 61 |" nil]).|(defalia|
|00003550| 73 20 27 61 72 72 61 79 | 2d 6d 61 6b 65 2d 74 65 |s 'array|-make-te|
|00003560| 6d 70 6c 61 74 65 20 23 | 5b 6e 69 6c 20 22 c0 c1 |mplate #|[nil "..|
|00003570| 1a 1b 0b 83 2f 00 c4 c5 | 21 89 16 06 47 89 12 0e |..../...|!...G...|
|00003580| 07 55 84 29 00 c8 c9 ca | 5c 6e 5c 22 21 83 04 00 |.U.)....|\n\"!...|
|00003590| 5c 6e 16 07 c1 89 13 82 | 05 00 c1 89 13 84 08 00 |\n......|........|
|000035a0| 2a 65 62 88 cb cc 21 88 | cd 1e 0e 0e 0e 0e 0f 58 |*eb...!.|.......X|
|000035b0| 83 86 00 0e 10 83 4e 00 | c9 d1 0e 0e 5c 22 63 88 |......N.|....\"c.|
|000035c0| cd 1e 12 cd 0e 13 58 83 | 7a 00 0e 06 63 88 0e 12 |......X.|z...c...|
|000035d0| 0e 14 a6 d5 55 83 71 00 | 0e 12 0e 13 55 84 71 00 |....U.q.|....U.q.|
|000035e0| d6 20 88 0e 12 54 89 16 | 12 82 52 00 29 0e 0e 54 |. ...T..|..R.)..T|
|000035f0| 16 0e d6 20 88 82 3a 00 | 29 cb d7 21 88 d8 cd 89 |... ..:.|)..!....|
|00003600| 5c 22 87 22 20 5b 74 20 | 6e 69 6c 20 6c 65 6e 20 |\"." [t |nil len |
|00003610| 63 68 65 63 6b 20 72 65 | 61 64 2d 69 6e 70 75 74 |check re|ad-input|
|00003620| 20 22 49 6e 69 74 69 61 | 6c 20 66 69 65 6c 64 20 | "Initia|l field |
|00003630| 76 61 6c 75 65 3a 20 22 | 20 69 6e 69 74 2d 66 69 |value: "| init-fi|
|00003640| 65 6c 64 20 66 69 65 6c | 64 2d 77 69 64 74 68 20 |eld fiel|d-width |
|00003650| 79 2d 6f 72 2d 6e 2d 70 | 20 66 6f 72 6d 61 74 20 |y-or-n-p| format |
|00003660| 22 43 68 61 6e 67 65 20 | 66 69 65 6c 64 20 77 69 |"Change |field wi|
|00003670| 64 74 68 20 74 6f 20 25 | 64 3f 20 22 20 6d 65 73 |dth to %|d? " mes|
|00003680| 73 61 67 65 20 22 57 6f | 72 6b 69 6e 67 2e 2e 2e |sage "Wo|rking...|
|00003690| 22 20 31 20 74 68 69 73 | 2d 72 6f 77 20 6d 61 78 |" 1 this|-row max|
|000036a0| 2d 72 6f 77 20 72 6f 77 | 73 2d 6e 75 6d 62 65 72 |-row row|s-number|
|000036b0| 65 64 20 22 25 64 3a 5c | 6e 22 20 74 68 69 73 2d |ed "%d:\|n" this-|
|000036c0| 63 6f 6c 75 6d 6e 20 6d | 61 78 2d 63 6f 6c 75 6d |column m|ax-colum|
|000036d0| 6e 20 63 6f 6c 75 6d 6e | 73 2d 70 65 72 2d 6c 69 |n column|s-per-li|
|000036e0| 6e 65 20 30 20 6e 65 77 | 6c 69 6e 65 20 22 57 6f |ne 0 new|line "Wo|
|000036f0| 72 6b 69 6e 67 2e 2e 2e | 64 6f 6e 65 22 20 61 72 |rking...|done" ar|
|00003700| 72 61 79 2d 67 6f 74 6f | 2d 63 65 6c 6c 5d 20 35 |ray-goto|-cell] 5|
|00003710| 20 22 5c 0a 43 72 65 61 | 74 65 20 74 68 65 20 74 | "\.Crea|te the t|
|00003720| 65 6d 70 6c 61 74 65 20 | 6f 66 20 61 6e 20 61 72 |emplate |of an ar|
|00003730| 72 61 79 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ray." ni|l]).(def|
|00003740| 61 6c 69 61 73 20 27 61 | 72 72 61 79 2d 72 65 63 |alias 'a|rray-rec|
|00003750| 6f 6e 66 69 67 75 72 65 | 2d 72 6f 77 73 20 23 5b |onfigure|-rows #[|
|00003760| 28 6e 65 77 2d 63 6f 6c | 75 6d 6e 73 2d 70 65 72 |(new-col|umns-per|
|00003770| 2d 6c 69 6e 65 20 6e 65 | 77 2d 72 6f 77 73 2d 6e |-line ne|w-rows-n|
|00003780| 75 6d 62 65 72 65 64 29 | 20 22 c0 19 09 83 24 00 |umbered)| "....$.|
|00003790| 5c 6e c3 59 83 18 00 5c | 6e 0c 58 83 18 00 c5 89 |\n.Y...\|n.X.....|
|000037a0| 11 82 03 00 c6 c7 c8 c9 | 0c 5c 22 21 21 12 82 02 |........|.\"!!...|
|000037b0| 00 29 0e 5c 6e cb 3d 83 | 32 00 c0 16 5c 6e 82 44 |.).\n.=.|2...\n.D|
|000037c0| 00 0e 5c 6e cc 3d 83 3f | 00 c5 16 5c 6e 82 44 00 |..\n.=.?|...\n.D.|
|000037d0| cd ce 21 16 5c 6e cf d0 | 21 88 d1 20 88 d2 70 21 |..!.\n..|!.. ..p!|
|000037e0| 1e 13 d4 d5 21 1e 16 0e | 17 1e 18 0c 1e 19 0e 1a |....!...|........|
|000037f0| 1e 1b 0e 1c 1e 1d 0e 1e | 1e 1f 0e 20 1e 21 0e 5c |........|... .!.\|
|00003800| 22 1e 23 c3 1e 24 e5 20 | 88 e6 0e 16 65 64 23 88 |".#..$. |....ed#.|
|00003810| 0e 16 71 88 65 62 88 0e | 24 0e 18 58 83 32 01 0e |..q.eb..|$..X.2..|
|00003820| 1b 83 96 00 0e 5c 6e 84 | b9 00 0e 1b 84 a0 00 0e |.....\n.|........|
|00003830| 5c 6e 83 b9 00 0e 1b 83 | b1 00 0e 5c 6e 84 b1 00 |\n......|...\n...|
|00003840| e7 c3 21 88 82 b9 00 e8 | c8 e9 0e 24 5c 22 21 88 |..!.....|...$\"!.|
|00003850| 0e 1d 5c 6e 55 83 d2 00 | 0e 1f 0e 1b 83 cb 00 c3 |..\nU...|........|
|00003860| 82 cc 00 ea 5a 79 88 82 | 29 01 eb 0e 19 53 0e 1d |....Zy..|)....S..|
|00003870| 5c 22 ea eb 0e 19 53 5c | 6e 5c 22 ea 1e 2c 1e 2d |\"....S\|n\"..,.-|
|00003880| 1e 2e 1e 2f 0e 2e 0e 2f | 57 83 07 01 f0 0e 2e 54 |.../.../|W......T|
|00003890| 0e 23 5f 21 88 e7 c3 21 | 88 0e 2e 54 89 16 2e 82 |.#_!...!|...T....|
|000038a0| eb 00 ea 79 88 0e 2c 0e | 2d 57 83 25 01 f0 0e 21 |...y..,.|-W.%...!|
|000038b0| 5c 6e 5f 21 88 f1 20 88 | 0e 2c 54 89 16 2c 82 0c |\n_!.. .|.,T..,..|
|000038c0| 01 c3 79 88 2c 0e 24 54 | 89 16 24 82 86 00 c0 1e |..y.,.$T|..$.....|
|000038d0| 32 0e 13 71 88 f3 20 88 | f4 0e 16 21 88 5c 6e 16 |2..q.. .|...!.\n.|
|000038e0| 1c 0e 5c 6e 16 1a 0e 21 | 5c 6e 5f 16 5c 22 eb 0e |..\n...!|\n_.\"..|
|000038f0| 19 53 5c 6e 5c 22 0e 5c | 6e 83 5d 01 f5 82 5e 01 |.S\n\".\|n.]...^.|
|00003900| c3 5c 5c 16 1e f6 0e 37 | 86 68 01 c3 0e 38 86 6e |.\\....7|.h...8.n|
|00003910| 01 c3 5c 22 88 29 f9 0e | 16 21 88 2e 5c 6e cf fa |..\".)..|.!..\n..|
|00003920| 21 87 22 20 5b 74 20 63 | 68 65 63 6b 20 6e 65 77 |!." [t c|heck new|
|00003930| 2d 63 6f 6c 75 6d 6e 73 | 2d 70 65 72 2d 6c 69 6e |-columns|-per-lin|
|00003940| 65 20 31 20 6d 61 78 2d | 63 6f 6c 75 6d 6e 20 6e |e 1 max-|column n|
|00003950| 69 6c 20 73 74 72 69 6e | 67 2d 74 6f 2d 69 6e 74 |il strin|g-to-int|
|00003960| 20 72 65 61 64 2d 69 6e | 70 75 74 20 66 6f 72 6d | read-in|put form|
|00003970| 61 74 20 22 43 6f 6c 75 | 6d 6e 73 20 70 65 72 20 |at "Colu|mns per |
|00003980| 6c 69 6e 65 20 28 31 20 | 2d 20 25 64 29 3a 20 22 |line (1 |- %d): "|
|00003990| 20 6e 65 77 2d 72 6f 77 | 73 2d 6e 75 6d 62 65 72 | new-row|s-number|
|000039a0| 65 64 20 31 32 31 20 31 | 31 30 20 79 2d 6f 72 2d |ed 121 1|10 y-or-|
|000039b0| 6e 2d 70 20 22 52 6f 77 | 73 20 6e 75 6d 62 65 72 |n-p "Row|s number|
|000039c0| 65 64 3f 20 22 20 6d 65 | 73 73 61 67 65 20 22 57 |ed? " me|ssage "W|
|000039d0| 6f 72 6b 69 6e 67 2e 2e | 2e 22 20 61 72 72 61 79 |orking..|." array|
|000039e0| 2d 75 70 64 61 74 65 2d | 62 75 66 66 65 72 2d 70 |-update-|buffer-p|
|000039f0| 6f 73 69 74 69 6f 6e 20 | 62 75 66 66 65 72 2d 6e |osition |buffer-n|
|00003a00| 61 6d 65 20 6d 61 69 6e | 2d 62 75 66 66 65 72 20 |ame main|-buffer |
|00003a10| 6d 61 6b 65 2d 74 65 6d | 70 2d 6e 61 6d 65 20 22 |make-tem|p-name "|
|00003a20| 41 72 72 61 79 22 20 74 | 65 6d 70 2d 62 75 66 66 |Array" t|emp-buff|
|00003a30| 65 72 20 6d 61 78 2d 72 | 6f 77 20 74 65 6d 70 2d |er max-r|ow temp-|
|00003a40| 6d 61 78 2d 72 6f 77 20 | 74 65 6d 70 2d 6d 61 78 |max-row |temp-max|
|00003a50| 2d 63 6f 6c 75 6d 6e 20 | 72 6f 77 73 2d 6e 75 6d |-column |rows-num|
|00003a60| 62 65 72 65 64 20 6f 6c | 64 2d 72 6f 77 73 2d 6e |bered ol|d-rows-n|
|00003a70| 75 6d 62 65 72 65 64 20 | 63 6f 6c 75 6d 6e 73 2d |umbered |columns-|
|00003a80| 70 65 72 2d 6c 69 6e 65 | 20 6f 6c 64 2d 63 6f 6c |per-line| old-col|
|00003a90| 75 6d 6e 73 2d 70 65 72 | 2d 6c 69 6e 65 20 6c 69 |umns-per|-line li|
|00003aa0| 6e 65 73 2d 70 65 72 2d | 72 6f 77 20 6f 6c 64 2d |nes-per-|row old-|
|00003ab0| 6c 69 6e 65 73 2d 70 65 | 72 2d 72 6f 77 20 66 69 |lines-pe|r-row fi|
|00003ac0| 65 6c 64 2d 77 69 64 74 | 68 20 6f 6c 64 2d 66 69 |eld-widt|h old-fi|
|00003ad0| 65 6c 64 2d 77 69 64 74 | 68 20 6c 69 6e 65 2d 6c |eld-widt|h line-l|
|00003ae0| 65 6e 67 74 68 20 6f 6c | 64 2d 6c 69 6e 65 2d 6c |ength ol|d-line-l|
|00003af0| 65 6e 67 74 68 20 74 68 | 69 73 2d 72 6f 77 20 61 |ength th|is-row a|
|00003b00| 72 72 61 79 2d 75 70 64 | 61 74 65 2d 61 72 72 61 |rray-upd|ate-arra|
|00003b10| 79 2d 70 6f 73 69 74 69 | 6f 6e 20 63 6f 70 79 2d |y-positi|on copy-|
|00003b20| 74 6f 2d 62 75 66 66 65 | 72 20 6b 69 6c 6c 2d 6c |to-buffe|r kill-l|
|00003b30| 69 6e 65 20 69 6e 73 65 | 72 74 2d 73 74 72 69 6e |ine inse|rt-strin|
|00003b40| 67 20 22 25 64 3a 5c 6e | 22 20 30 20 66 6c 6f 6f |g "%d:\n|" 0 floo|
|00003b50| 72 20 6e 65 77 6c 69 6e | 65 73 2d 61 64 64 65 64 |r newlin|es-added|
|00003b60| 20 6e 65 77 6c 69 6e 65 | 73 2d 74 6f 2d 62 65 2d | newline|s-to-be-|
|00003b70| 61 64 64 65 64 20 6e 65 | 77 6c 69 6e 65 73 2d 72 |added ne|wlines-r|
|00003b80| 65 6d 6f 76 65 64 20 6e | 65 77 6c 69 6e 65 73 2d |emoved n|ewlines-|
|00003b90| 74 6f 2d 62 65 2d 72 65 | 6d 6f 76 65 64 20 6d 6f |to-be-re|moved mo|
|00003ba0| 76 65 2d 74 6f 2d 63 6f | 6c 75 6d 6e 2d 75 6e 74 |ve-to-co|lumn-unt|
|00003bb0| 61 62 69 66 79 20 6e 65 | 77 6c 69 6e 65 20 69 6e |abify ne|wline in|
|00003bc0| 68 69 62 69 74 2d 71 75 | 69 74 20 65 72 61 73 65 |hibit-qu|it erase|
|00003bd0| 2d 62 75 66 66 65 72 20 | 69 6e 73 65 72 74 2d 62 |-buffer |insert-b|
|00003be0| 75 66 66 65 72 20 32 20 | 61 72 72 61 79 2d 67 6f |uffer 2 |array-go|
|00003bf0| 74 6f 2d 63 65 6c 6c 20 | 61 72 72 61 79 2d 72 6f |to-cell |array-ro|
|00003c00| 77 20 61 72 72 61 79 2d | 63 6f 6c 75 6d 6e 20 6b |w array-|column k|
|00003c10| 69 6c 6c 2d 62 75 66 66 | 65 72 20 22 57 6f 72 6b |ill-buff|er "Work|
|00003c20| 69 6e 67 2e 2e 2e 64 6f | 6e 65 22 5d 20 36 20 22 |ing...do|ne"] 6 "|
|00003c30| 5c 0a 52 65 63 6f 6e 66 | 69 67 75 72 65 20 74 68 |\.Reconf|igure th|
|00003c40| 65 20 73 74 61 74 65 20 | 6f 66 20 60 72 6f 77 73 |e state |of `rows|
|00003c50| 2d 6e 75 6d 62 65 72 65 | 64 27 20 61 6e 64 20 60 |-numbere|d' and `|
|00003c60| 63 6f 6c 75 6d 6e 73 2d | 70 65 72 2d 6c 69 6e 65 |columns-|per-line|
|00003c70| 27 2e 0a 4e 45 57 2d 43 | 4f 4c 55 4d 4e 53 2d 50 |'..NEW-C|OLUMNS-P|
|00003c80| 45 52 2d 4c 49 4e 45 20 | 69 73 20 74 68 65 20 64 |ER-LINE |is the d|
|00003c90| 65 73 69 72 65 64 20 76 | 61 6c 75 65 20 6f 66 20 |esired v|alue of |
|00003ca0| 60 63 6f 6c 75 6d 6e 73 | 2d 70 65 72 2d 6c 69 6e |`columns|-per-lin|
|00003cb0| 65 27 20 61 6e 64 0a 4e | 45 57 2d 52 4f 57 53 2d |e' and.N|EW-ROWS-|
|00003cc0| 4e 55 4d 42 45 52 45 44 | 20 28 61 20 63 68 61 72 |NUMBERED| (a char|
|00003cd0| 61 63 74 65 72 2c 20 65 | 69 74 68 65 72 20 3f 79 |acter, e|ither ?y|
|00003ce0| 20 6f 72 20 3f 6e 29 20 | 69 73 20 74 68 65 20 64 | or ?n) |is the d|
|00003cf0| 65 73 69 72 65 64 20 76 | 61 6c 75 65 0a 6f 66 20 |esired v|alue.of |
|00003d00| 72 6f 77 73 2d 6e 75 6d | 62 65 72 65 64 2e 22 20 |rows-num|bered." |
|00003d10| 22 6e 43 6f 6c 75 6d 6e | 73 20 70 65 72 20 6c 69 |"nColumn|s per li|
|00003d20| 6e 65 3a 20 5c 6e 63 52 | 6f 77 73 20 6e 75 6d 62 |ne: \ncR|ows numb|
|00003d30| 65 72 65 64 3f 20 28 79 | 20 6f 72 20 6e 29 20 22 |ered? (y| or n) "|
|00003d40| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 72 |]).(defa|lias 'ar|
|00003d50| 72 61 79 2d 65 78 70 61 | 6e 64 2d 72 6f 77 73 20 |ray-expa|nd-rows |
|00003d60| 23 5b 6e 69 6c 20 22 c0 | 09 c2 5c 22 87 22 20 5b |#[nil ".|..\"." [|
|00003d70| 61 72 72 61 79 2d 72 65 | 63 6f 6e 66 69 67 75 72 |array-re|configur|
|00003d80| 65 2d 72 6f 77 73 20 6d | 61 78 2d 63 6f 6c 75 6d |e-rows m|ax-colum|
|00003d90| 6e 20 31 31 30 5d 20 33 | 20 22 5c 0a 45 78 70 61 |n 110] 3| "\.Expa|
|00003da0| 6e 64 20 74 68 65 20 72 | 6f 77 73 20 73 6f 20 65 |nd the r|ows so e|
|00003db0| 61 63 68 20 66 69 74 73 | 20 6f 6e 20 6f 6e 65 20 |ach fits| on one |
|00003dc0| 6c 69 6e 65 20 61 6e 64 | 20 72 65 6d 6f 76 65 20 |line and| remove |
|00003dd0| 72 6f 77 20 6e 75 6d 62 | 65 72 73 2e 22 20 6e 69 |row numb|ers." ni|
|00003de0| 6c 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 28 71 |l]).(def|alias (q|
|00003df0| 75 6f 74 65 20 6c 69 6d | 69 74 2d 69 6e 64 65 78 |uote lim|it-index|
|00003e00| 29 20 23 5b 28 69 6e 64 | 65 78 20 6c 69 6d 69 74 |) #[(ind|ex limit|
|00003e10| 29 20 22 08 c1 57 83 08 | 00 c1 87 08 5c 6e 56 83 |) "..W..|....\nV.|
|00003e20| 10 00 5c 6e 87 08 87 22 | 20 5b 69 6e 64 65 78 20 |..\n..."| [index |
|00003e30| 31 20 6c 69 6d 69 74 5d | 20 32 5d 29 0a 28 64 65 |1 limit]| 2]).(de|
|00003e40| 66 61 6c 69 61 73 20 27 | 78 6f 72 20 23 5b 28 70 |falias '|xor #[(p|
|00003e50| 72 65 64 31 20 70 72 65 | 64 32 29 20 22 08 84 08 |red1 pre|d2) "...|
|00003e60| 00 09 85 0e 00 08 85 0d | 00 09 3f 87 22 20 5b 70 |........|..?." [p|
|00003e70| 72 65 64 31 20 70 72 65 | 64 32 5d 20 31 20 22 5c |red1 pre|d2] 1 "\|
|00003e80| 0a 52 65 74 75 72 6e 73 | 20 74 68 65 20 6c 6f 67 |.Returns| the log|
|00003e90| 69 63 61 6c 20 65 78 63 | 6c 75 73 69 76 65 20 6f |ical exc|lusive o|
|00003ea0| 72 20 6f 66 20 70 72 65 | 64 69 63 61 74 65 73 20 |r of pre|dicates |
|00003eb0| 50 52 45 44 31 20 61 6e | 64 20 50 52 45 44 32 2e |PRED1 an|d PRED2.|
|00003ec0| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 63 |"]).(def|alias 'c|
|00003ed0| 75 72 72 65 6e 74 2d 6c | 69 6e 65 20 23 5b 6e 69 |urrent-l|ine #[ni|
|00003ee0| 6c 20 22 8a c0 79 88 c1 | 65 60 5c 22 29 87 22 20 |l "..y..|e`\")." |
|00003ef0| 5b 30 20 63 6f 75 6e 74 | 2d 6c 69 6e 65 73 5d 20 |[0 count|-lines] |
|00003f00| 33 20 22 5c 0a 52 65 74 | 75 72 6e 20 74 68 65 20 |3 "\.Ret|urn the |
|00003f10| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 6c |current |buffer l|
|00003f20| 69 6e 65 20 61 74 20 70 | 6f 69 6e 74 2e 20 20 54 |ine at p|oint. T|
|00003f30| 68 65 20 66 69 72 73 74 | 20 6c 69 6e 65 20 69 73 |he first| line is|
|00003f40| 20 30 2e 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | 0."]).(|defalias|
|00003f50| 20 27 6d 6f 76 65 2d 74 | 6f 2d 63 6f 6c 75 6d 6e | 'move-t|o-column|
|00003f60| 2d 75 6e 74 61 62 69 66 | 79 20 23 5b 28 63 6f 6c |-untabif|y #[(col|
|00003f70| 75 6d 6e 29 20 22 08 c1 | 08 21 55 83 0c 00 08 86 |umn) "..|.!U.....|
|00003f80| 1a 00 5c 6e 83 14 00 c3 | c4 21 87 c5 20 88 c1 08 |..\n....|.!.. ...|
|00003f90| 21 87 22 20 5b 63 6f 6c | 75 6d 6e 20 6d 6f 76 65 |!." [col|umn move|
|00003fa0| 2d 74 6f 2d 63 6f 6c 75 | 6d 6e 20 72 65 73 70 65 |-to-colu|mn respe|
|00003fb0| 63 74 2d 74 61 62 73 20 | 65 72 72 6f 72 20 22 54 |ct-tabs |error "T|
|00003fc0| 68 65 72 65 20 69 73 20 | 61 20 54 41 42 20 63 68 |here is |a TAB ch|
|00003fd0| 61 72 61 63 74 65 72 20 | 69 6e 20 74 68 65 20 77 |aracter |in the w|
|00003fe0| 61 79 2e 22 20 75 6e 74 | 61 62 69 66 79 2d 62 61 |ay." unt|abify-ba|
|00003ff0| 63 6b 77 61 72 64 5d 20 | 33 20 22 5c 0a 4d 6f 76 |ckward] |3 "\.Mov|
|00004000| 65 20 74 6f 20 43 4f 4c | 55 4d 4e 20 6f 6e 20 74 |e to COL|UMN on t|
|00004010| 68 65 20 63 75 72 72 65 | 6e 74 20 6c 69 6e 65 2c |he curre|nt line,|
|00004020| 20 75 6e 74 61 62 69 66 | 79 69 6e 67 20 69 66 20 | untabif|ying if |
|00004030| 6e 65 63 65 73 73 61 72 | 79 2e 0a 52 65 74 75 72 |necessar|y..Retur|
|00004040| 6e 20 43 4f 4c 55 4d 4e | 2e 22 5d 29 0a 28 64 65 |n COLUMN|."]).(de|
|00004050| 66 61 6c 69 61 73 20 27 | 75 6e 74 61 62 69 66 79 |falias '|untabify|
|00004060| 2d 62 61 63 6b 77 61 72 | 64 20 23 5b 6e 69 6c 20 |-backwar|d #[nil |
|00004070| 22 8a 60 18 c1 c2 21 88 | c3 60 08 5c 22 2a 87 22 |".`...!.|.`.\"*."|
|00004080| 20 5b 73 74 61 72 74 20 | 62 61 63 6b 77 61 72 64 | [start |backward|
|00004090| 2d 63 68 61 72 20 31 20 | 75 6e 74 61 62 69 66 79 |-char 1 |untabify|
|000040a0| 5d 20 33 20 22 5c 0a 55 | 6e 74 61 62 69 66 79 20 |] 3 "\.U|ntabify |
|000040b0| 74 68 65 20 70 72 65 63 | 65 64 69 6e 67 20 74 61 |the prec|eding ta|
|000040c0| 62 2e 22 5d 29 0a 28 64 | 65 66 76 61 72 20 61 72 |b."]).(d|efvar ar|
|000040d0| 72 61 79 2d 6d 6f 64 65 | 2d 6d 61 70 20 6e 69 6c |ray-mode|-map nil|
|000040e0| 20 22 5c 0a 4b 65 79 6d | 61 70 20 75 73 65 64 20 | "\.Keym|ap used |
|000040f0| 69 6e 20 61 72 72 61 79 | 20 6d 6f 64 65 2e 22 29 |in array| mode.")|
|00004100| 0a 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 84 79 |.(byte-c|ode "..y|
|00004110| 00 c1 20 10 c2 08 c3 c4 | 23 88 c2 08 c5 c6 23 88 |.. .....|#.....#.|
|00004120| c2 08 c7 c8 23 88 c2 08 | c9 ca 23 88 c2 08 cb cc |....#...|..#.....|
|00004130| 23 88 c2 08 cd ce 23 88 | c2 08 cf d0 23 88 c2 08 |#.....#.|....#...|
|00004140| d1 d2 23 88 c2 08 d3 d4 | 23 88 c2 08 d5 d6 23 88 |..#.....|#.....#.|
|00004150| c2 08 d7 d8 23 88 c2 08 | d9 da 23 88 c2 08 db dc |....#...|..#.....|
|00004160| 23 88 c2 08 dd de 23 88 | c2 08 df e0 23 88 c2 08 |#.....#.|....#...|
|00004170| e1 e2 23 88 c2 08 e3 e4 | 23 88 c2 08 e5 e6 23 88 |..#.....|#.....#.|
|00004180| c2 08 e7 e8 23 88 e9 ea | eb ec 23 87 22 20 5b 61 |....#...|..#." [a|
|00004190| 72 72 61 79 2d 6d 6f 64 | 65 2d 6d 61 70 20 6d 61 |rray-mod|e-map ma|
|000041a0| 6b 65 2d 6b 65 79 6d 61 | 70 20 64 65 66 69 6e 65 |ke-keyma|p define|
|000041b0| 2d 6b 65 79 20 22 e1 64 | 22 20 61 72 72 61 79 2d |-key ".d|" array-|
|000041c0| 64 69 73 70 6c 61 79 2d | 6c 6f 63 61 6c 2d 76 61 |display-|local-va|
|000041d0| 72 69 61 62 6c 65 73 20 | 22 e1 6d 22 20 61 72 72 |riables |".m" arr|
|000041e0| 61 79 2d 6d 61 6b 65 2d | 74 65 6d 70 6c 61 74 65 |ay-make-|template|
|000041f0| 20 22 e1 65 22 20 61 72 | 72 61 79 2d 65 78 70 61 | ".e" ar|ray-expa|
|00004200| 6e 64 2d 72 6f 77 73 20 | 22 e1 72 22 20 61 72 72 |nd-rows |".r" arr|
|00004210| 61 79 2d 72 65 63 6f 6e | 66 69 67 75 72 65 2d 72 |ay-recon|figure-r|
|00004220| 6f 77 73 20 22 e1 3d 22 | 20 61 72 72 61 79 2d 77 |ows ".="| array-w|
|00004230| 68 61 74 2d 70 6f 73 69 | 74 69 6f 6e 20 22 e1 67 |hat-posi|tion ".g|
|00004240| 22 20 61 72 72 61 79 2d | 67 6f 74 6f 2d 63 65 6c |" array-|goto-cel|
|00004250| 6c 20 22 e1 66 22 20 61 | 72 72 61 79 2d 66 69 6c |l ".f" a|rray-fil|
|00004260| 6c 2d 72 65 63 74 61 6e | 67 6c 65 20 22 0e 22 20 |l-rectan|gle "." |
|00004270| 61 72 72 61 79 2d 6e 65 | 78 74 2d 72 6f 77 20 22 |array-ne|xt-row "|
|00004280| 10 22 20 61 72 72 61 79 | 2d 70 72 65 76 69 6f 75 |." array|-previou|
|00004290| 73 2d 72 6f 77 20 22 06 | 22 20 61 72 72 61 79 2d |s-row ".|" array-|
|000042a0| 66 6f 72 77 61 72 64 2d | 63 6f 6c 75 6d 6e 20 22 |forward-|column "|
|000042b0| 02 22 20 61 72 72 61 79 | 2d 62 61 63 6b 77 61 72 |." array|-backwar|
|000042c0| 64 2d 63 6f 6c 75 6d 6e | 20 22 ee 22 20 61 72 72 |d-column| "." arr|
|000042d0| 61 79 2d 63 6f 70 79 2d | 64 6f 77 6e 20 22 f0 22 |ay-copy-|down "."|
|000042e0| 20 61 72 72 61 79 2d 63 | 6f 70 79 2d 75 70 20 22 | array-c|opy-up "|
|000042f0| e6 22 20 61 72 72 61 79 | 2d 63 6f 70 79 2d 66 6f |." array|-copy-fo|
|00004300| 72 77 61 72 64 20 22 e2 | 22 20 61 72 72 61 79 2d |rward ".|" array-|
|00004310| 63 6f 70 79 2d 62 61 63 | 6b 77 61 72 64 20 22 8e |copy-bac|kward ".|
|00004320| 22 20 61 72 72 61 79 2d | 63 6f 70 79 2d 72 6f 77 |" array-|copy-row|
|00004330| 2d 64 6f 77 6e 20 22 90 | 22 20 61 72 72 61 79 2d |-down ".|" array-|
|00004340| 63 6f 70 79 2d 72 6f 77 | 2d 75 70 20 22 86 22 20 |copy-row|-up "." |
|00004350| 61 72 72 61 79 2d 63 6f | 70 79 2d 63 6f 6c 75 6d |array-co|py-colum|
|00004360| 6e 2d 66 6f 72 77 61 72 | 64 20 22 82 22 20 61 72 |n-forwar|d "." ar|
|00004370| 72 61 79 2d 63 6f 70 79 | 2d 63 6f 6c 75 6d 6e 2d |ray-copy|-column-|
|00004380| 62 61 63 6b 77 61 72 64 | 20 70 75 74 20 61 72 72 |backward| put arr|
|00004390| 61 79 2d 6d 6f 64 65 20 | 6d 6f 64 65 2d 63 6c 61 |ay-mode |mode-cla|
|000043a0| 73 73 20 73 70 65 63 69 | 61 6c 5d 20 34 29 0a 28 |ss speci|al] 4).(|
|000043b0| 64 65 66 61 6c 69 61 73 | 20 27 61 72 72 61 79 2d |defalias| 'array-|
|000043c0| 6d 6f 64 65 20 23 5b 6e | 69 6c 20 22 c0 c1 21 88 |mode #[n|il "..!.|
|000043d0| c0 c2 21 88 c0 c3 21 88 | c0 c4 21 88 c0 c5 21 88 |..!...!.|..!...!.|
|000043e0| c0 c6 21 88 c0 c7 21 88 | c0 c8 21 88 c0 c9 21 88 |..!...!.|..!...!.|
|000043f0| c0 ca 21 88 c0 cb 21 88 | c0 cc 21 88 c0 cd 21 88 |..!...!.|..!...!.|
|00004400| ce 16 0d cf 20 88 d0 16 | 11 d2 16 13 8a d4 20 71 |.... ...|...... q|
|00004410| 88 29 d5 d6 20 21 88 d7 | d8 21 88 d9 da 21 88 db |.).. !..|.!...!..|
|00004420| 16 1a db 16 1c dd 0e 1e | 21 88 df e0 21 87 22 20 |........|!...!." |
|00004430| 5b 6d 61 6b 65 2d 6c 6f | 63 61 6c 2d 76 61 72 69 |[make-lo|cal-vari|
|00004440| 61 62 6c 65 20 6d 61 78 | 2d 72 6f 77 20 6d 61 78 |able max|-row max|
|00004450| 2d 63 6f 6c 75 6d 6e 20 | 63 6f 6c 75 6d 6e 73 2d |-column |columns-|
|00004460| 70 65 72 2d 6c 69 6e 65 | 20 66 69 65 6c 64 2d 77 |per-line| field-w|
|00004470| 69 64 74 68 20 72 6f 77 | 73 2d 6e 75 6d 62 65 72 |idth row|s-number|
|00004480| 65 64 20 6c 69 6e 65 2d | 6c 65 6e 67 74 68 20 6c |ed line-|length l|
|00004490| 69 6e 65 73 2d 70 65 72 | 2d 72 6f 77 20 62 75 66 |ines-per|-row buf|
|000044a0| 66 65 72 2d 6c 69 6e 65 | 20 62 75 66 66 65 72 2d |fer-line| buffer-|
|000044b0| 63 6f 6c 75 6d 6e 20 61 | 72 72 61 79 2d 72 6f 77 |column a|rray-row|
|000044c0| 20 61 72 72 61 79 2d 63 | 6f 6c 75 6d 6e 20 63 6f | array-c|olumn co|
|000044d0| 70 79 2d 73 74 72 69 6e | 67 20 72 65 73 70 65 63 |py-strin|g respec|
|000044e0| 74 2d 74 61 62 73 20 6e | 69 6c 20 61 72 72 61 79 |t-tabs n|il array|
|000044f0| 2d 69 6e 69 74 2d 6c 6f | 63 61 6c 2d 76 61 72 69 |-init-lo|cal-vari|
|00004500| 61 62 6c 65 73 20 61 72 | 72 61 79 2d 6d 6f 64 65 |ables ar|ray-mode|
|00004510| 20 6d 61 6a 6f 72 2d 6d | 6f 64 65 20 22 41 72 72 | major-m|ode "Arr|
|00004520| 61 79 22 20 6d 6f 64 65 | 2d 6e 61 6d 65 20 6f 74 |ay" mode|-name ot|
|00004530| 68 65 72 2d 62 75 66 66 | 65 72 20 73 65 74 2d 62 |her-buff|er set-b|
|00004540| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00004550| 20 62 75 66 66 65 72 2d | 6d 6f 64 69 66 69 65 64 | buffer-|modified|
|00004560| 2d 70 20 73 69 74 2d 66 | 6f 72 20 30 20 6d 61 6b |-p sit-f|or 0 mak|
|00004570| 65 2d 76 61 72 69 61 62 | 6c 65 2d 62 75 66 66 65 |e-variab|le-buffe|
|00004580| 72 2d 6c 6f 63 61 6c 20 | 74 72 75 6e 63 61 74 65 |r-local |truncate|
|00004590| 2d 6c 69 6e 65 73 20 74 | 20 6f 76 65 72 77 72 69 |-lines t| overwri|
|000045a0| 74 65 2d 6d 6f 64 65 20 | 75 73 65 2d 6c 6f 63 61 |te-mode |use-loca|
|000045b0| 6c 2d 6d 61 70 20 61 72 | 72 61 79 2d 6d 6f 64 65 |l-map ar|ray-mode|
|000045c0| 2d 6d 61 70 20 72 75 6e | 2d 68 6f 6f 6b 73 20 61 |-map run|-hooks a|
|000045d0| 72 72 61 79 2d 6d 6f 64 | 65 2d 68 6f 6f 6b 5d 20 |rray-mod|e-hook] |
|000045e0| 32 20 22 5c 0a 4d 61 6a | 6f 72 20 6d 6f 64 65 20 |2 "\.Maj|or mode |
|000045f0| 66 6f 72 20 65 64 69 74 | 69 6e 67 20 61 72 72 61 |for edit|ing arra|
|00004600| 79 73 2e 0a 0a 20 20 41 | 72 72 61 79 20 6d 6f 64 |ys... A|rray mod|
|00004610| 65 20 69 73 20 61 20 73 | 70 65 63 69 61 6c 69 7a |e is a s|pecializ|
|00004620| 65 64 20 6d 6f 64 65 20 | 66 6f 72 20 65 64 69 74 |ed mode |for edit|
|00004630| 69 6e 67 20 61 72 72 61 | 79 73 2e 20 20 41 6e 20 |ing arra|ys. An |
|00004640| 61 72 72 61 79 20 69 73 | 0a 63 6f 6e 73 69 64 65 |array is|.conside|
|00004650| 72 65 64 20 74 6f 20 62 | 65 20 61 20 74 77 6f 2d |red to b|e a two-|
|00004660| 64 69 6d 65 6e 73 69 6f | 6e 61 6c 20 73 65 74 20 |dimensio|nal set |
|00004670| 6f 66 20 73 74 72 69 6e | 67 73 2e 20 20 54 68 65 |of strin|gs. The|
|00004680| 20 73 74 72 69 6e 67 73 | 20 61 72 65 0a 4e 4f 54 | strings| are.NOT|
|00004690| 20 72 65 63 6f 67 6e 69 | 7a 65 64 20 61 73 20 69 | recogni|zed as i|
|000046a0| 6e 74 65 67 65 72 73 20 | 6f 72 20 72 65 61 6c 20 |ntegers |or real |
|000046b0| 6e 75 6d 62 65 72 73 2e | 0a 0a 20 20 54 68 65 20 |numbers.|.. The |
|000046c0| 61 72 72 61 79 20 4d 55 | 53 54 20 72 65 73 69 64 |array MU|ST resid|
|000046d0| 65 20 61 74 20 74 68 65 | 20 74 6f 70 20 6f 66 20 |e at the| top of |
|000046e0| 74 68 65 20 62 75 66 66 | 65 72 2e 20 20 0a 0a 20 |the buff|er. .. |
|000046f0| 20 54 41 42 73 20 61 72 | 65 20 6e 6f 74 20 72 65 | TABs ar|e not re|
|00004700| 73 70 65 63 74 65 64 2c | 20 61 6e 64 20 6d 61 79 |spected,| and may|
|00004710| 20 62 65 20 63 6f 6e 76 | 65 72 74 65 64 20 69 6e | be conv|erted in|
|00004720| 74 6f 20 73 70 61 63 65 | 73 20 61 74 20 61 6e 79 |to space|s at any|
|00004730| 20 74 69 6d 65 2e 0a 53 | 65 74 74 69 6e 67 20 74 | time..S|etting t|
|00004740| 68 65 20 76 61 72 69 61 | 62 6c 65 20 27 72 65 73 |he varia|ble 'res|
|00004750| 70 65 63 74 2d 74 61 62 | 73 20 74 6f 20 6e 6f 6e |pect-tab|s to non|
|00004760| 2d 6e 69 6c 20 77 69 6c | 6c 20 70 72 65 76 65 6e |-nil wil|l preven|
|00004770| 74 20 54 41 42 20 63 6f | 6e 76 65 72 73 69 6f 6e |t TAB co|nversion|
|00004780| 2c 0a 62 75 74 20 77 69 | 6c 6c 20 63 61 75 73 65 |,.but wi|ll cause|
|00004790| 20 6d 61 6e 79 20 66 75 | 6e 63 74 69 6f 6e 73 20 | many fu|nctions |
|000047a0| 74 6f 20 67 69 76 65 20 | 65 72 72 6f 72 73 20 69 |to give |errors i|
|000047b0| 66 20 74 68 65 79 20 65 | 6e 63 6f 75 6e 74 65 72 |f they e|ncounter|
|000047c0| 20 6f 6e 65 2e 0a 0a 20 | 20 55 70 6f 6e 20 65 6e | one... | Upon en|
|000047d0| 74 65 72 69 6e 67 20 61 | 72 72 61 79 20 6d 6f 64 |tering a|rray mod|
|000047e0| 65 2c 20 79 6f 75 20 77 | 69 6c 6c 20 62 65 20 70 |e, you w|ill be p|
|000047f0| 72 6f 6d 70 74 65 64 20 | 66 6f 72 20 74 68 65 20 |rompted |for the |
|00004800| 76 61 6c 75 65 73 20 6f | 66 0a 73 65 76 65 72 61 |values o|f.severa|
|00004810| 6c 20 76 61 72 69 61 62 | 6c 65 73 2e 20 20 4f 74 |l variab|les. Ot|
|00004820| 68 65 72 73 20 77 69 6c | 6c 20 62 65 20 63 61 6c |hers wil|l be cal|
|00004830| 63 75 6c 61 74 65 64 20 | 62 61 73 65 64 20 6f 6e |culated |based on|
|00004840| 20 74 68 65 20 76 61 6c | 75 65 73 20 79 6f 75 0a | the val|ues you.|
|00004850| 73 75 70 70 6c 79 2e 20 | 20 54 68 65 73 65 20 76 |supply. | These v|
|00004860| 61 72 69 61 62 6c 65 73 | 20 61 72 65 20 61 6c 6c |ariables| are all|
|00004870| 20 6c 6f 63 61 6c 20 74 | 68 65 20 74 68 65 20 62 | local t|he the b|
|00004880| 75 66 66 65 72 2e 20 20 | 4f 74 68 65 72 20 62 75 |uffer. |Other bu|
|00004890| 66 66 65 72 0a 69 6e 20 | 61 72 72 61 79 20 6d 6f |ffer.in |array mo|
|000048a0| 64 65 20 6d 61 79 20 68 | 61 76 65 20 64 69 66 66 |de may h|ave diff|
|000048b0| 65 72 65 6e 74 20 76 61 | 6c 75 65 73 20 61 73 73 |erent va|lues ass|
|000048c0| 69 67 6e 65 64 20 74 6f | 20 74 68 65 20 76 61 72 |igned to| the var|
|000048d0| 69 61 62 6c 65 73 2e 0a | 54 68 65 20 76 61 72 69 |iables..|The vari|
|000048e0| 61 62 6c 65 73 20 61 72 | 65 3a 0a 0a 56 61 72 69 |ables ar|e:..Vari|
|000048f0| 61 62 6c 65 73 20 79 6f | 75 20 61 73 73 69 67 6e |ables yo|u assign|
|00004900| 3a 0a 20 20 20 20 20 6d | 61 78 2d 72 6f 77 3a 20 |:. m|ax-row: |
|00004910| 20 20 20 20 20 20 20 20 | 20 54 68 65 20 6e 75 6d | | The num|
|00004920| 62 65 72 20 6f 66 20 72 | 6f 77 73 20 69 6e 20 74 |ber of r|ows in t|
|00004930| 68 65 20 61 72 72 61 79 | 2e 0a 20 20 20 20 20 6d |he array|.. m|
|00004940| 61 78 2d 63 6f 6c 75 6d | 6e 3a 20 20 20 20 20 20 |ax-colum|n: |
|00004950| 20 54 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 63 | The num|ber of c|
|00004960| 6f 6c 75 6d 6e 73 20 69 | 6e 20 74 68 65 20 61 72 |olumns i|n the ar|
|00004970| 72 61 79 2e 20 0a 20 20 | 20 20 20 63 6f 6c 75 6d |ray. . | colum|
|00004980| 6e 73 2d 70 65 72 2d 6c | 69 6e 65 3a 20 54 68 65 |ns-per-l|ine: The|
|00004990| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 6f 6c 75 6d | number |of colum|
|000049a0| 6e 73 20 69 6e 20 74 68 | 65 20 61 72 72 61 79 20 |ns in th|e array |
|000049b0| 70 65 72 20 6c 69 6e 65 | 20 6f 66 20 62 75 66 66 |per line| of buff|
|000049c0| 65 72 2e 0a 20 20 20 20 | 20 66 69 65 6c 64 2d 77 |er.. | field-w|
|000049d0| 69 64 74 68 3a 20 20 20 | 20 20 20 54 68 65 20 77 |idth: | The w|
|000049e0| 69 64 74 68 20 6f 66 20 | 65 61 63 68 20 66 69 65 |idth of |each fie|
|000049f0| 6c 64 2c 20 69 6e 20 63 | 68 61 72 61 63 74 65 72 |ld, in c|haracter|
|00004a00| 73 2e 0a 20 20 20 20 20 | 72 6f 77 73 2d 6e 75 6d |s.. |rows-num|
|00004a10| 62 65 72 65 64 3a 20 20 | 20 20 41 20 6c 6f 67 69 |bered: | A logi|
|00004a20| 63 61 6c 20 76 61 72 69 | 61 62 6c 65 20 64 65 73 |cal vari|able des|
|00004a30| 63 72 69 62 69 6e 67 20 | 77 68 65 74 68 65 72 20 |cribing |whether |
|00004a40| 74 6f 20 69 67 6e 6f 72 | 65 0a 20 20 20 20 20 20 |to ignor|e. |
|00004a50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004a60| 20 72 6f 77 20 6e 75 6d | 62 65 72 73 20 69 6e 20 | row num|bers in |
|00004a70| 74 68 65 20 62 75 66 66 | 65 72 2e 0a 0a 56 61 72 |the buff|er...Var|
|00004a80| 69 61 62 6c 65 73 20 77 | 68 69 63 68 20 61 72 65 |iables w|hich are|
|00004a90| 20 63 61 6c 63 75 6c 61 | 74 65 64 3a 0a 20 20 20 | calcula|ted:. |
|00004aa0| 20 20 6c 69 6e 65 2d 6c | 65 6e 67 74 68 3a 20 20 | line-l|ength: |
|00004ab0| 20 20 20 20 54 68 65 20 | 6e 75 6d 62 65 72 20 6f | The |number o|
|00004ac0| 66 20 63 68 61 72 61 63 | 74 65 72 73 20 69 6e 20 |f charac|ters in |
|00004ad0| 61 20 62 75 66 66 65 72 | 20 6c 69 6e 65 2e 0a 20 |a buffer| line.. |
|00004ae0| 20 20 20 20 6c 69 6e 65 | 73 2d 70 65 72 2d 72 6f | line|s-per-ro|
|00004af0| 77 3a 20 20 20 20 54 68 | 65 20 6e 75 6d 62 65 72 |w: Th|e number|
|00004b00| 20 6f 66 20 62 75 66 66 | 65 72 20 6c 69 6e 65 73 | of buff|er lines|
|00004b10| 20 75 73 65 64 20 74 6f | 20 64 69 73 70 6c 61 79 | used to| display|
|00004b20| 20 65 61 63 68 20 72 6f | 77 2e 0a 0a 20 20 54 68 | each ro|w... Th|
|00004b30| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 63 6f 6d 6d |e follow|ing comm|
|00004b40| 61 6e 64 73 20 61 72 65 | 20 61 76 61 69 6c 61 62 |ands are| availab|
|00004b50| 6c 65 20 28 61 6e 20 61 | 73 74 65 72 69 73 6b 20 |le (an a|sterisk |
|00004b60| 69 6e 64 69 63 61 74 65 | 73 20 69 74 20 6d 61 79 |indicate|s it may|
|00004b70| 0a 74 61 6b 65 20 61 20 | 6e 75 6d 65 72 69 63 20 |.take a |numeric |
|00004b80| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 29 |prefix a|rgument)|
|00004b90| 3a 0a 0a 20 20 20 20 2a | 20 20 09 5c 5c 3c 61 72 |:.. *| .\\<ar|
|00004ba0| 72 61 79 2d 6d 6f 64 65 | 2d 6d 61 70 3e 5c 5c 5b |ray-mode|-map>\\[|
|00004bb0| 61 72 72 61 79 2d 66 6f | 72 77 61 72 64 2d 63 6f |array-fo|rward-co|
|00004bc0| 6c 75 6d 6e 5d 09 20 20 | 4d 6f 76 65 20 66 6f 72 |lumn]. |Move for|
|00004bd0| 77 61 72 64 20 6f 6e 65 | 20 63 6f 6c 75 6d 6e 2e |ward one| column.|
|00004be0| 0a 20 20 20 20 2a 20 20 | 09 5c 5c 5b 61 72 72 61 |. * |.\\[arra|
|00004bf0| 79 2d 62 61 63 6b 77 61 | 72 64 2d 63 6f 6c 75 6d |y-backwa|rd-colum|
|00004c00| 6e 5d 09 20 20 4d 6f 76 | 65 20 62 61 63 6b 77 61 |n]. Mov|e backwa|
|00004c10| 72 64 20 6f 6e 65 20 63 | 6f 6c 75 6d 6e 2e 0a 20 |rd one c|olumn.. |
|00004c20| 20 20 20 2a 20 20 09 5c | 5c 5b 61 72 72 61 79 2d | * .\|\[array-|
|00004c30| 6e 65 78 74 2d 72 6f 77 | 5d 09 20 20 4d 6f 76 65 |next-row|]. Move|
|00004c40| 20 64 6f 77 6e 20 6f 6e | 65 20 72 6f 77 2e 0a 20 | down on|e row.. |
|00004c50| 20 20 20 2a 20 20 09 5c | 5c 5b 61 72 72 61 79 2d | * .\|\[array-|
|00004c60| 70 72 65 76 69 6f 75 73 | 2d 72 6f 77 5d 09 20 20 |previous|-row]. |
|00004c70| 4d 6f 76 65 20 75 70 20 | 6f 6e 65 20 72 6f 77 2e |Move up |one row.|
|00004c80| 0a 0a 20 20 20 20 2a 20 | 20 20 5c 5c 5b 61 72 72 |.. * | \\[arr|
|00004c90| 61 79 2d 63 6f 70 79 2d | 66 6f 72 77 61 72 64 5d |ay-copy-|forward]|
|00004ca0| 09 20 20 43 6f 70 79 20 | 74 68 65 20 63 75 72 72 |. Copy |the curr|
|00004cb0| 65 6e 74 20 66 69 65 6c | 64 20 69 6e 74 6f 20 74 |ent fiel|d into t|
|00004cc0| 68 65 20 63 6f 6c 75 6d | 6e 20 74 6f 20 74 68 65 |he colum|n to the|
|00004cd0| 20 72 69 67 68 74 2e 0a | 20 20 20 20 2a 20 20 20 | right..| * |
|00004ce0| 5c 5c 5b 61 72 72 61 79 | 2d 63 6f 70 79 2d 62 61 |\\[array|-copy-ba|
|00004cf0| 63 6b 77 61 72 64 5d 09 | 20 20 43 6f 70 79 20 74 |ckward].| Copy t|
|00004d00| 68 65 20 63 75 72 72 65 | 6e 74 20 66 69 65 6c 64 |he curre|nt field|
|00004d10| 20 69 6e 74 6f 20 74 68 | 65 20 63 6f 6c 75 6d 6e | into th|e column|
|00004d20| 20 74 6f 20 74 68 65 20 | 6c 65 66 74 2e 0a 20 20 | to the |left.. |
|00004d30| 20 20 2a 20 20 20 5c 5c | 5b 61 72 72 61 79 2d 63 | * \\|[array-c|
|00004d40| 6f 70 79 2d 64 6f 77 6e | 5d 09 20 20 43 6f 70 79 |opy-down|]. Copy|
|00004d50| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 66 69 65 | the cur|rent fie|
|00004d60| 6c 64 20 69 6e 74 6f 20 | 74 68 65 20 72 6f 77 20 |ld into |the row |
|00004d70| 62 65 6c 6f 77 2e 0a 20 | 20 20 20 2a 20 20 20 5c |below.. | * \|
|00004d80| 5c 5b 61 72 72 61 79 2d | 63 6f 70 79 2d 75 70 5d |\[array-|copy-up]|
|00004d90| 09 20 20 43 6f 70 79 20 | 74 68 65 20 63 75 72 72 |. Copy |the curr|
|00004da0| 65 6e 74 20 66 69 65 6c | 64 20 69 6e 74 6f 20 74 |ent fiel|d into t|
|00004db0| 68 65 20 72 6f 77 20 61 | 62 6f 76 65 2e 0a 0a 20 |he row a|bove... |
|00004dc0| 20 20 20 2a 20 20 20 5c | 5c 5b 61 72 72 61 79 2d | * \|\[array-|
|00004dd0| 63 6f 70 79 2d 63 6f 6c | 75 6d 6e 2d 66 6f 72 77 |copy-col|umn-forw|
|00004de0| 61 72 64 5d 20 20 20 43 | 6f 70 79 20 74 68 65 20 |ard] C|opy the |
|00004df0| 63 75 72 72 65 6e 74 20 | 63 6f 6c 75 6d 6e 20 69 |current |column i|
|00004e00| 6e 74 6f 20 74 68 65 20 | 63 6f 6c 75 6d 6e 20 74 |nto the |column t|
|00004e10| 6f 20 74 68 65 20 72 69 | 67 68 74 2e 0a 20 20 20 |o the ri|ght.. |
|00004e20| 20 2a 20 20 20 5c 5c 5b | 61 72 72 61 79 2d 63 6f | * \\[|array-co|
|00004e30| 70 79 2d 63 6f 6c 75 6d | 6e 2d 62 61 63 6b 77 61 |py-colum|n-backwa|
|00004e40| 72 64 5d 20 20 20 43 6f | 70 79 20 74 68 65 20 63 |rd] Co|py the c|
|00004e50| 75 72 72 65 6e 74 20 63 | 6f 6c 75 6d 6e 20 69 6e |urrent c|olumn in|
|00004e60| 74 6f 20 74 68 65 20 63 | 6f 6c 75 6d 6e 20 74 6f |to the c|olumn to|
|00004e70| 20 74 68 65 20 6c 65 66 | 74 2e 0a 20 20 20 20 2a | the lef|t.. *|
|00004e80| 20 20 20 5c 5c 5b 61 72 | 72 61 79 2d 63 6f 70 79 | \\[ar|ray-copy|
|00004e90| 2d 72 6f 77 2d 64 6f 77 | 6e 5d 20 20 20 43 6f 70 |-row-dow|n] Cop|
|00004ea0| 79 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 72 6f |y the cu|rrent ro|
|00004eb0| 77 20 69 6e 74 6f 20 74 | 68 65 20 72 6f 77 20 62 |w into t|he row b|
|00004ec0| 65 6c 6f 77 2e 0a 20 20 | 20 20 2a 20 20 20 5c 5c |elow.. | * \\|
|00004ed0| 5b 61 72 72 61 79 2d 63 | 6f 70 79 2d 72 6f 77 2d |[array-c|opy-row-|
|00004ee0| 75 70 5d 20 20 20 43 6f | 70 79 20 74 68 65 20 63 |up] Co|py the c|
|00004ef0| 75 72 72 65 6e 74 20 72 | 6f 77 20 69 6e 74 6f 20 |urrent r|ow into |
|00004f00| 74 68 65 20 72 6f 77 20 | 61 62 6f 76 65 2e 0a 0a |the row |above...|
|00004f10| 20 20 20 20 20 20 20 20 | 5c 5c 5b 61 72 72 61 79 | |\\[array|
|00004f20| 2d 66 69 6c 6c 2d 72 65 | 63 74 61 6e 67 6c 65 5d |-fill-re|ctangle]|
|00004f30| 20 20 20 43 6f 70 79 20 | 74 68 65 20 66 69 65 6c | Copy |the fiel|
|00004f40| 64 20 61 74 20 6d 61 72 | 6b 20 69 6e 74 6f 20 65 |d at mar|k into e|
|00004f50| 76 65 72 79 20 63 65 6c | 6c 20 77 69 74 68 20 72 |very cel|l with r|
|00004f60| 6f 77 20 61 6e 64 20 63 | 6f 6c 75 6d 6e 0a 20 20 |ow and c|olumn. |
|00004f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004f80| 62 65 74 77 65 65 6e 20 | 74 68 61 74 20 6f 66 20 |between |that of |
|00004f90| 70 6f 69 6e 74 20 61 6e | 64 20 6d 61 72 6b 2e 0a |point an|d mark..|
|00004fa0| 0a 09 5c 5c 5b 61 72 72 | 61 79 2d 77 68 61 74 2d |..\\[arr|ay-what-|
|00004fb0| 70 6f 73 69 74 69 6f 6e | 5d 09 20 20 44 69 73 70 |position|]. Disp|
|00004fc0| 6c 61 79 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |lay the |current |
|00004fd0| 61 72 72 61 79 20 72 6f | 77 20 61 6e 64 20 63 6f |array ro|w and co|
|00004fe0| 6c 75 6d 6e 2e 0a 09 5c | 5c 5b 61 72 72 61 79 2d |lumn...\|\[array-|
|00004ff0| 67 6f 74 6f 2d 63 65 6c | 6c 5d 09 20 20 47 6f 20 |goto-cel|l]. Go |
|00005000| 74 6f 20 61 20 70 61 72 | 74 69 63 75 6c 61 72 20 |to a par|ticular |
|00005010| 61 72 72 61 79 20 63 65 | 6c 6c 2e 0a 0a 09 5c 5c |array ce|ll....\\|
|00005020| 5b 61 72 72 61 79 2d 6d | 61 6b 65 2d 74 65 6d 70 |[array-m|ake-temp|
|00005030| 6c 61 74 65 5d 09 20 20 | 4d 61 6b 65 20 61 20 74 |late]. |Make a t|
|00005040| 65 6d 70 6c 61 74 65 20 | 66 6f 72 20 61 20 6e 65 |emplate |for a ne|
|00005050| 77 20 61 72 72 61 79 2e | 0a 09 5c 5c 5b 61 72 72 |w array.|..\\[arr|
|00005060| 61 79 2d 72 65 63 6f 6e | 66 69 67 75 72 65 2d 72 |ay-recon|figure-r|
|00005070| 6f 77 73 5d 09 20 20 52 | 65 63 6f 6e 66 69 67 75 |ows]. R|econfigu|
|00005080| 72 65 20 74 68 65 20 61 | 72 72 61 79 2e 0a 20 20 |re the a|rray.. |
|00005090| 20 20 20 20 20 20 5c 5c | 5b 61 72 72 61 79 2d 65 | \\|[array-e|
|000050a0| 78 70 61 6e 64 2d 72 6f | 77 73 5d 20 20 20 45 78 |xpand-ro|ws] Ex|
|000050b0| 70 61 6e 64 20 74 68 65 | 20 61 72 72 61 79 20 28 |pand the| array (|
|000050c0| 72 65 6d 6f 76 65 20 72 | 6f 77 20 6e 75 6d 62 65 |remove r|ow numbe|
|000050d0| 72 73 20 61 6e 64 0a 20 | 20 20 20 20 20 20 20 20 |rs and. | |
|000050e0| 20 20 20 20 20 20 20 20 | 20 6e 65 77 6c 69 6e 65 | | newline|
|000050f0| 73 20 69 6e 73 69 64 65 | 20 72 6f 77 73 29 0a 0a |s inside| rows)..|
|00005100| 20 20 20 20 20 20 20 20 | 5c 5c 5b 61 72 72 61 79 | |\\[array|
|00005110| 2d 64 69 73 70 6c 61 79 | 2d 6c 6f 63 61 6c 2d 76 |-display|-local-v|
|00005120| 61 72 69 61 62 6c 65 73 | 5d 20 20 20 44 69 73 70 |ariables|] Disp|
|00005130| 6c 61 79 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |lay the |current |
|00005140| 76 61 6c 75 65 73 20 6f | 66 20 6c 6f 63 61 6c 20 |values o|f local |
|00005150| 76 61 72 69 61 62 6c 65 | 73 2e 0a 0a 45 6e 74 65 |variable|s...Ente|
|00005160| 72 69 6e 67 20 61 72 72 | 61 79 20 6d 6f 64 65 20 |ring arr|ay mode |
|00005170| 63 61 6c 6c 73 20 74 68 | 65 20 66 75 6e 63 74 69 |calls th|e functi|
|00005180| 6f 6e 20 60 61 72 72 61 | 79 2d 6d 6f 64 65 2d 68 |on `arra|y-mode-h|
|00005190| 6f 6f 6b 27 2e 22 20 6e | 69 6c 5d 29 0a 28 64 65 |ook'." n|il]).(de|
|000051a0| 66 61 6c 69 61 73 20 27 | 61 72 72 61 79 2d 69 6e |falias '|array-in|
|000051b0| 69 74 2d 6c 6f 63 61 6c | 2d 76 61 72 69 61 62 6c |it-local|-variabl|
|000051c0| 65 73 20 23 5b 6e 69 6c | 20 22 c0 20 88 c1 20 88 |es #[nil| ". .. .|
|000051d0| c2 20 88 c3 20 88 c4 20 | 88 c5 20 88 c6 20 88 c7 |. .. .. |.. .. ..|
|000051e0| c8 21 87 22 20 5b 61 72 | 72 61 79 2d 69 6e 69 74 |.!." [ar|ray-init|
|000051f0| 2d 6d 61 78 2d 72 6f 77 | 20 61 72 72 61 79 2d 69 |-max-row| array-i|
|00005200| 6e 69 74 2d 6d 61 78 2d | 63 6f 6c 75 6d 6e 20 61 |nit-max-|column a|
|00005210| 72 72 61 79 2d 69 6e 69 | 74 2d 63 6f 6c 75 6d 6e |rray-ini|t-column|
|00005220| 73 2d 70 65 72 2d 6c 69 | 6e 65 20 61 72 72 61 79 |s-per-li|ne array|
|00005230| 2d 69 6e 69 74 2d 66 69 | 65 6c 64 2d 77 69 64 74 |-init-fi|eld-widt|
|00005240| 68 20 61 72 72 61 79 2d | 69 6e 69 74 2d 72 6f 77 |h array-|init-row|
|00005250| 73 2d 6e 75 6d 62 65 72 | 65 64 20 61 72 72 61 79 |s-number|ed array|
|00005260| 2d 69 6e 69 74 2d 6c 69 | 6e 65 2d 6c 65 6e 67 74 |-init-li|ne-lengt|
|00005270| 68 20 61 72 72 61 79 2d | 69 6e 69 74 2d 6c 69 6e |h array-|init-lin|
|00005280| 65 73 2d 70 65 72 2d 72 | 6f 77 20 6d 65 73 73 61 |es-per-r|ow messa|
|00005290| 67 65 20 22 22 5d 20 32 | 20 22 5c 0a 49 6e 69 74 |ge ""] 2| "\.Init|
|000052a0| 69 61 6c 69 7a 65 20 74 | 68 65 20 76 61 72 69 61 |ialize t|he varia|
|000052b0| 62 6c 65 73 20 61 73 73 | 6f 63 69 61 74 65 64 20 |bles ass|ociated |
|000052c0| 77 69 74 68 20 74 68 65 | 0a 61 72 72 61 79 20 69 |with the|.array i|
|000052d0| 6e 20 74 68 69 73 20 62 | 75 66 66 65 72 2e 22 5d |n this b|uffer."]|
|000052e0| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 61 72 72 |).(defal|ias 'arr|
|000052f0| 61 79 2d 69 6e 69 74 2d | 6d 61 78 2d 72 6f 77 20 |ay-init-|max-row |
|00005300| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 61 72 67 |#[(&opti|onal arg|
|00005310| 29 20 22 08 86 09 00 c1 | c2 c3 21 21 89 14 87 22 |) ".....|..!!..."|
|00005320| 20 5b 61 72 67 20 73 74 | 72 69 6e 67 2d 74 6f 2d | [arg st|ring-to-|
|00005330| 69 6e 74 20 72 65 61 64 | 2d 69 6e 70 75 74 20 22 |int read|-input "|
|00005340| 4e 75 6d 62 65 72 20 6f | 66 20 61 72 72 61 79 20 |Number o|f array |
|00005350| 72 6f 77 73 3a 20 22 20 | 6d 61 78 2d 72 6f 77 5d |rows: " |max-row]|
|00005360| 20 33 20 22 5c 0a 49 6e | 69 74 69 61 6c 69 7a 65 | 3 "\.In|itialize|
|00005370| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 6d 61 | the val|ue of ma|
|00005380| 78 2d 72 6f 77 2e 22 5d | 29 0a 28 64 65 66 61 6c |x-row."]|).(defal|
|00005390| 69 61 73 20 27 61 72 72 | 61 79 2d 69 6e 69 74 2d |ias 'arr|ay-init-|
|000053a0| 6d 61 78 2d 63 6f 6c 75 | 6d 6e 20 23 5b 28 26 6f |max-colu|mn #[(&o|
|000053b0| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 22 08 86 |ptional |arg) "..|
|000053c0| 09 00 c1 c2 c3 21 21 89 | 14 87 22 20 5b 61 72 67 |.....!!.|.." [arg|
|000053d0| 20 73 74 72 69 6e 67 2d | 74 6f 2d 69 6e 74 20 72 | string-|to-int r|
|000053e0| 65 61 64 2d 69 6e 70 75 | 74 20 22 4e 75 6d 62 65 |ead-inpu|t "Numbe|
|000053f0| 72 20 6f 66 20 61 72 72 | 61 79 20 63 6f 6c 75 6d |r of arr|ay colum|
|00005400| 6e 73 3a 20 22 20 6d 61 | 78 2d 63 6f 6c 75 6d 6e |ns: " ma|x-column|
|00005410| 5d 20 33 20 22 5c 0a 49 | 6e 69 74 69 61 6c 69 7a |] 3 "\.I|nitializ|
|00005420| 65 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 6d |e the va|lue of m|
|00005430| 61 78 2d 63 6f 6c 75 6d | 6e 2e 22 5d 29 0a 28 64 |ax-colum|n."]).(d|
|00005440| 65 66 61 6c 69 61 73 20 | 27 61 72 72 61 79 2d 69 |efalias |'array-i|
|00005450| 6e 69 74 2d 63 6f 6c 75 | 6d 6e 73 2d 70 65 72 2d |nit-colu|mns-per-|
|00005460| 6c 69 6e 65 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |line #[(|&optiona|
|00005470| 6c 20 61 72 67 29 20 22 | 08 86 09 00 c1 c2 c3 21 |l arg) "|.......!|
|00005480| 21 89 14 87 22 20 5b 61 | 72 67 20 73 74 72 69 6e |!..." [a|rg strin|
|00005490| 67 2d 74 6f 2d 69 6e 74 | 20 72 65 61 64 2d 69 6e |g-to-int| read-in|
|000054a0| 70 75 74 20 22 41 72 72 | 61 79 20 63 6f 6c 75 6d |put "Arr|ay colum|
|000054b0| 6e 73 20 70 65 72 20 6c | 69 6e 65 3a 20 22 20 63 |ns per l|ine: " c|
|000054c0| 6f 6c 75 6d 6e 73 2d 70 | 65 72 2d 6c 69 6e 65 5d |olumns-p|er-line]|
|000054d0| 20 33 20 22 5c 0a 49 6e | 69 74 69 61 6c 69 7a 65 | 3 "\.In|itialize|
|000054e0| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 63 6f | the val|ue of co|
|000054f0| 6c 75 6d 6e 73 2d 70 65 | 72 2d 6c 69 6e 65 2e 22 |lumns-pe|r-line."|
|00005500| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 61 72 |]).(defa|lias 'ar|
|00005510| 72 61 79 2d 69 6e 69 74 | 2d 66 69 65 6c 64 2d 77 |ray-init|-field-w|
|00005520| 69 64 74 68 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |idth #[(|&optiona|
|00005530| 6c 20 61 72 67 29 20 22 | 08 86 09 00 c1 c2 c3 21 |l arg) "|.......!|
|00005540| 21 89 14 87 22 20 5b 61 | 72 67 20 73 74 72 69 6e |!..." [a|rg strin|
|00005550| 67 2d 74 6f 2d 69 6e 74 | 20 72 65 61 64 2d 69 6e |g-to-int| read-in|
|00005560| 70 75 74 20 22 46 69 65 | 6c 64 20 77 69 64 74 68 |put "Fie|ld width|
|00005570| 3a 20 22 20 66 69 65 6c | 64 2d 77 69 64 74 68 5d |: " fiel|d-width]|
|00005580| 20 33 20 22 5c 0a 49 6e | 69 74 69 61 6c 69 7a 65 | 3 "\.In|itialize|
|00005590| 20 74 68 65 20 76 61 6c | 75 65 20 6f 66 20 66 69 | the val|ue of fi|
|000055a0| 65 6c 64 2d 77 69 64 74 | 68 2e 22 5d 29 0a 28 64 |eld-widt|h."]).(d|
|000055b0| 65 66 61 6c 69 61 73 20 | 27 61 72 72 61 79 2d 69 |efalias |'array-i|
|000055c0| 6e 69 74 2d 72 6f 77 73 | 2d 6e 75 6d 62 65 72 65 |nit-rows|-numbere|
|000055d0| 64 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |d #[(&op|tional a|
|000055e0| 72 67 29 20 22 08 86 07 | 00 c1 c2 21 89 13 87 22 |rg) "...|...!..."|
|000055f0| 20 5b 61 72 67 20 79 2d | 6f 72 2d 6e 2d 70 20 22 | [arg y-|or-n-p "|
|00005600| 52 6f 77 73 20 6e 75 6d | 62 65 72 65 64 3f 20 22 |Rows num|bered? "|
|00005610| 20 72 6f 77 73 2d 6e 75 | 6d 62 65 72 65 64 5d 20 | rows-nu|mbered] |
|00005620| 32 20 22 5c 0a 49 6e 69 | 74 69 61 6c 69 7a 65 20 |2 "\.Ini|tialize |
|00005630| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 72 6f 77 |the valu|e of row|
|00005640| 73 2d 6e 75 6d 62 65 72 | 65 64 2e 22 5d 29 0a 28 |s-number|ed."]).(|
|00005650| 64 65 66 61 6c 69 61 73 | 20 27 61 72 72 61 79 2d |defalias| 'array-|
|00005660| 69 6e 69 74 2d 6c 69 6e | 65 2d 6c 65 6e 67 74 68 |init-lin|e-length|
|00005670| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00005680| 67 29 20 22 08 86 07 00 | 09 5c 6e 5f 89 13 87 22 |g) "....|.\n_..."|
|00005690| 20 5b 61 72 67 20 66 69 | 65 6c 64 2d 77 69 64 74 | [arg fi|eld-widt|
|000056a0| 68 20 63 6f 6c 75 6d 6e | 73 2d 70 65 72 2d 6c 69 |h column|s-per-li|
|000056b0| 6e 65 20 6c 69 6e 65 2d | 6c 65 6e 67 74 68 5d 20 |ne line-|length] |
|000056c0| 32 20 22 5c 0a 49 6e 69 | 74 69 61 6c 69 7a 65 20 |2 "\.Ini|tialize |
|000056d0| 74 68 65 20 76 61 6c 75 | 65 20 6f 66 20 6c 69 6e |the valu|e of lin|
|000056e0| 65 2d 6c 65 6e 67 74 68 | 2e 22 5d 29 0a 28 64 65 |e-length|."]).(de|
|000056f0| 66 61 6c 69 61 73 20 27 | 61 72 72 61 79 2d 69 6e |falias '|array-in|
|00005700| 69 74 2d 6c 69 6e 65 73 | 2d 70 65 72 2d 72 6f 77 |it-lines|-per-row|
|00005710| 20 23 5b 28 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 | #[(&opt|ional ar|
|00005720| 67 29 20 22 08 86 13 00 | c1 5c 6e 53 0b 5c 22 0c |g) "....|.\nS.\".|
|00005730| 83 11 00 c5 82 12 00 c6 | 5c 5c 89 16 07 87 22 20 |........|\\...." |
|00005740| 5b 61 72 67 20 66 6c 6f | 6f 72 20 6d 61 78 2d 63 |[arg flo|or max-c|
|00005750| 6f 6c 75 6d 6e 20 63 6f | 6c 75 6d 6e 73 2d 70 65 |olumn co|lumns-pe|
|00005760| 72 2d 6c 69 6e 65 20 72 | 6f 77 73 2d 6e 75 6d 62 |r-line r|ows-numb|
|00005770| 65 72 65 64 20 32 20 31 | 20 6c 69 6e 65 73 2d 70 |ered 2 1| lines-p|
|00005780| 65 72 2d 72 6f 77 5d 20 | 33 20 22 5c 0a 49 6e 69 |er-row] |3 "\.Ini|
|00005790| 74 69 61 6c 69 7a 65 20 | 74 68 65 20 76 61 6c 75 |tialize |the valu|
|000057a0| 65 20 6f 66 20 6c 69 6e | 65 73 2d 70 65 72 2d 72 |e of lin|es-per-r|
|000057b0| 6f 77 2e 22 5d 29 0a | |ow."]). | |
+--------+-------------------------+-------------------------+--------+--------+
