home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 16.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(require (quote calc-ext))
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 73 65 6c 20 6e | 69 6c 20 28 62 79 74 65 |lc-sel n|il (byte|
|00000040| 2d 63 6f 64 65 20 22 c0 | 87 22 20 5b 6e 69 6c 5d |-code ".|." [nil]|
|00000050| 20 31 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 1))..(d|efun cal|
|00000060| 63 2d 73 65 6c 65 63 74 | 2d 68 65 72 65 20 28 6e |c-select|-here (n|
|00000070| 75 6d 20 26 6f 70 74 69 | 6f 6e 61 6c 20 6f 6e 63 |um &opti|onal onc|
|00000080| 65 20 6b 65 65 70 29 20 | 28 69 6e 74 65 72 61 63 |e keep) |(interac|
|00000090| 74 69 76 65 20 22 50 22 | 29 20 28 62 79 74 65 2d |tive "P"|) (byte-|
|000000a0| 63 6f 64 65 20 22 c0 88 | c1 c2 21 87 22 20 5b 6e |code "..|..!." [n|
|000000b0| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|000000c0| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|000000d0| 65 20 22 c8 20 88 c9 20 | 0a 19 18 0b 85 0f 00 ca |e ". .. |........|
|000000e0| 09 38 86 62 00 0c 85 1d | 00 c6 89 15 88 cb cc 21 |.8.b....|.......!|
|000000f0| 88 cd 08 83 5f 00 0e 07 | 85 31 00 ce 0e 07 21 89 |...._...|.1....!.|
|00000100| 16 07 cf 56 83 57 00 0e | 07 53 89 16 07 cf 59 85 |...V.W..|.S....Y.|
|00000110| 44 00 08 09 40 3d 3f 85 | 52 00 d0 09 40 08 5c 22 |D...@=?.|R...@.\"|
|00000120| 89 10 88 82 34 00 88 08 | 82 5c 5c 00 d1 09 40 08 |....4...|.\\...@.|
|00000130| 5c 22 82 61 00 09 40 21 | 2a 87 22 20 5b 66 6f 75 |\".a..@!|*." [fou|
|00000140| 6e 64 20 65 6e 74 72 79 | 20 63 61 6c 63 2d 73 65 |nd entry| calc-se|
|00000150| 6c 65 63 74 69 6f 6e 2d | 63 61 63 68 65 2d 65 6e |lection-|cache-en|
|00000160| 74 72 79 20 6b 65 65 70 | 20 6f 6e 63 65 20 63 61 |try keep| once ca|
|00000170| 6c 63 2d 6b 65 65 70 2d | 73 65 6c 65 63 74 69 6f |lc-keep-|selectio|
|00000180| 6e 20 6e 69 6c 20 6e 75 | 6d 20 63 61 6c 63 2d 70 |n nil nu|m calc-p|
|00000190| 72 65 70 61 72 65 2d 73 | 65 6c 65 63 74 69 6f 6e |repare-s|election|
|000001a0| 20 63 61 6c 63 2d 66 69 | 6e 64 2d 73 65 6c 65 63 | calc-fi|nd-selec|
|000001b0| 74 65 64 2d 70 61 72 74 | 20 32 20 6d 65 73 73 61 |ted-part| 2 messa|
|000001c0| 67 65 20 22 28 53 65 6c | 65 63 74 69 6f 6e 20 77 |ge "(Sel|ection w|
|000001d0| 69 6c 6c 20 61 70 70 6c | 79 20 74 6f 20 6e 65 78 |ill appl|y to nex|
|000001e0| 74 20 63 6f 6d 6d 61 6e | 64 20 6f 6e 6c 79 29 22 |t comman|d only)"|
|000001f0| 20 63 61 6c 63 2d 63 68 | 61 6e 67 65 2d 63 75 72 | calc-ch|ange-cur|
|00000200| 72 65 6e 74 2d 73 65 6c | 65 63 74 69 6f 6e 20 70 |rent-sel|ection p|
|00000210| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|00000220| 6c 75 65 20 30 20 63 61 | 6c 63 2d 66 69 6e 64 2d |lue 0 ca|lc-find-|
|00000230| 61 73 73 6f 63 2d 70 61 | 72 65 6e 74 2d 66 6f 72 |assoc-pa|rent-for|
|00000240| 6d 75 6c 61 20 63 61 6c | 63 2d 67 72 6f 77 2d 61 |mula cal|c-grow-a|
|00000250| 73 73 6f 63 2d 66 6f 72 | 6d 75 6c 61 5d 20 39 29 |ssoc-for|mula] 9)|
|00000260| 29 5d 20 32 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |)] 2))..|(defun c|
|00000270| 61 6c 63 2d 73 65 6c 65 | 63 74 2d 6f 6e 63 65 20 |alc-sele|ct-once |
|00000280| 28 6e 75 6d 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(num) (i|nteracti|
|00000290| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|000002a0| 64 65 20 22 c2 88 c3 08 | c1 5c 22 87 22 20 5b 6e |de "....|.\"." [n|
|000002b0| 75 6d 20 74 20 6e 69 6c | 20 63 61 6c 63 2d 73 65 |um t nil| calc-se|
|000002c0| 6c 65 63 74 2d 68 65 72 | 65 5d 20 33 29 29 0a 0a |lect-her|e] 3))..|
|000002d0| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 73 65 6c 65 |(defun c|alc-sele|
|000002e0| 63 74 2d 68 65 72 65 2d | 6d 61 79 62 65 20 28 6e |ct-here-|maybe (n|
|000002f0| 75 6d 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |um) (int|eractive|
|00000300| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00000310| 20 22 c1 88 c3 08 c1 c2 | 23 87 22 20 5b 6e 75 6d | "......|#." [num|
|00000320| 20 6e 69 6c 20 74 20 63 | 61 6c 63 2d 73 65 6c 65 | nil t c|alc-sele|
|00000330| 63 74 2d 68 65 72 65 5d | 20 34 29 29 0a 0a 28 64 |ct-here]| 4))..(d|
|00000340| 65 66 75 6e 20 63 61 6c | 63 2d 73 65 6c 65 63 74 |efun cal|c-select|
|00000350| 2d 6f 6e 63 65 2d 6d 61 | 79 62 65 20 28 6e 75 6d |-once-ma|ybe (num|
|00000360| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00000370| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00000380| c2 88 c3 08 c1 c1 23 87 | 22 20 5b 6e 75 6d 20 74 |......#.|" [num t|
|00000390| 20 6e 69 6c 20 63 61 6c | 63 2d 73 65 6c 65 63 74 | nil cal|c-select|
|000003a0| 2d 68 65 72 65 5d 20 34 | 29 29 0a 0a 28 64 65 66 |-here] 4|))..(def|
|000003b0| 75 6e 20 63 61 6c 63 2d | 73 65 6c 65 63 74 2d 61 |un calc-|select-a|
|000003c0| 64 64 69 74 69 6f 6e 61 | 6c 20 6e 69 6c 20 28 69 |dditiona|l nil (i|
|000003d0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|000003e0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|000003f0| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00000400| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00000410| 6f 64 65 20 22 c5 18 c6 | 20 29 88 c7 20 0b 1a 19 |ode "...| ).. ...|
|00000420| c8 09 83 40 00 c9 0a 38 | 1c 0c 83 37 00 0c 0a 40 |...@...8|...7...@|
|00000430| 3d 86 23 00 ca 0c 09 5c | 22 3f 85 32 00 cb 0a 40 |=.#....\|"?.2...@|
|00000440| 0c 5c 22 89 14 88 82 18 | 00 88 0c 82 3c 00 cc 0a |.\".....|....<...|
|00000450| 40 09 5c 22 29 82 42 00 | 0a 40 21 2a 87 22 20 5b |@.\").B.|.@!*." [|
|00000460| 63 61 6c 63 2d 6b 65 65 | 70 2d 73 65 6c 65 63 74 |calc-kee|p-select|
|00000470| 69 6f 6e 20 66 6f 75 6e | 64 20 65 6e 74 72 79 20 |ion foun|d entry |
|00000480| 63 61 6c 63 2d 73 65 6c | 65 63 74 69 6f 6e 2d 63 |calc-sel|ection-c|
|00000490| 61 63 68 65 2d 65 6e 74 | 72 79 20 73 65 6c 20 6e |ache-ent|ry sel n|
|000004a0| 69 6c 20 63 61 6c 63 2d | 70 72 65 70 61 72 65 2d |il calc-|prepare-|
|000004b0| 73 65 6c 65 63 74 69 6f | 6e 20 63 61 6c 63 2d 66 |selectio|n calc-f|
|000004c0| 69 6e 64 2d 73 65 6c 65 | 63 74 65 64 2d 70 61 72 |ind-sele|cted-par|
|000004d0| 74 20 63 61 6c 63 2d 63 | 68 61 6e 67 65 2d 63 75 |t calc-c|hange-cu|
|000004e0| 72 72 65 6e 74 2d 73 65 | 6c 65 63 74 69 6f 6e 20 |rrent-se|lection |
|000004f0| 32 20 63 61 6c 63 2d 66 | 69 6e 64 2d 73 75 62 2d |2 calc-f|ind-sub-|
|00000500| 66 6f 72 6d 75 6c 61 20 | 63 61 6c 63 2d 66 69 6e |formula |calc-fin|
|00000510| 64 2d 61 73 73 6f 63 2d | 70 61 72 65 6e 74 2d 66 |d-assoc-|parent-f|
|00000520| 6f 72 6d 75 6c 61 20 63 | 61 6c 63 2d 67 72 6f 77 |ormula c|alc-grow|
|00000530| 2d 61 73 73 6f 63 2d 66 | 6f 72 6d 75 6c 61 5d 20 |-assoc-f|ormula] |
|00000540| 38 29 29 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |8))] 2))|..(defun|
|00000550| 20 63 61 6c 63 2d 73 65 | 6c 65 63 74 2d 6d 6f 72 | calc-se|lect-mor|
|00000560| 65 20 28 6e 75 6d 29 20 | 28 69 6e 74 65 72 61 63 |e (num) |(interac|
|00000570| 74 69 76 65 20 22 50 22 | 29 20 28 62 79 74 65 2d |tive "P"|) (byte-|
|00000580| 63 6f 64 65 20 22 c0 88 | c1 c2 21 87 22 20 5b 6e |code "..|..!." [n|
|00000590| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|000005a0| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|000005b0| 65 20 22 c4 20 88 09 18 | c5 08 38 83 35 00 c5 08 |e ". ...|..8.5...|
|000005c0| 38 1a 0a 08 40 3d 3f 85 | 1f 00 c6 0b 21 53 89 13 |8...@=?.|....!S..|
|000005d0| c7 59 85 2d 00 c8 08 40 | 0a 5c 22 89 12 88 82 0f |.Y.-...@|.\".....|
|000005e0| 00 88 c9 0a 21 29 82 38 | 00 ca 0b 21 29 87 22 20 |....!).8|...!)." |
|000005f0| 5b 65 6e 74 72 79 20 63 | 61 6c 63 2d 73 65 6c 65 |[entry c|alc-sele|
|00000600| 63 74 69 6f 6e 2d 63 61 | 63 68 65 2d 65 6e 74 72 |ction-ca|che-entr|
|00000610| 79 20 73 65 6c 20 6e 75 | 6d 20 63 61 6c 63 2d 70 |y sel nu|m calc-p|
|00000620| 72 65 70 61 72 65 2d 73 | 65 6c 65 63 74 69 6f 6e |repare-s|election|
|00000630| 20 32 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 | 2 prefi|x-numeri|
|00000640| 63 2d 76 61 6c 75 65 20 | 30 20 63 61 6c 63 2d 66 |c-value |0 calc-f|
|00000650| 69 6e 64 2d 61 73 73 6f | 63 2d 70 61 72 65 6e 74 |ind-asso|c-parent|
|00000660| 2d 66 6f 72 6d 75 6c 61 | 20 63 61 6c 63 2d 63 68 |-formula| calc-ch|
|00000670| 61 6e 67 65 2d 63 75 72 | 72 65 6e 74 2d 73 65 6c |ange-cur|rent-sel|
|00000680| 65 63 74 69 6f 6e 20 63 | 61 6c 63 2d 73 65 6c 65 |ection c|alc-sele|
|00000690| 63 74 2d 68 65 72 65 5d | 20 36 29 29 5d 20 32 29 |ct-here]| 6))] 2)|
|000006a0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 73 |)..(defu|n calc-s|
|000006b0| 65 6c 65 63 74 2d 6c 65 | 73 73 20 28 6e 75 6d 29 |elect-le|ss (num)|
|000006c0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 70 | (intera|ctive "p|
|000006d0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |") (byte|-code ".|
|000006e0| 88 c1 c2 21 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |...!." [|nil calc|
|000006f0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|00000700| 28 62 79 74 65 2d 63 6f | 64 65 20 22 ca 20 88 cb |(byte-co|de ". ..|
|00000710| 20 0a 19 18 cc 08 85 6c | 00 cd 09 38 ce ce ce 1e | ......l|...8....|
|00000720| 06 1d 1c 1b 0b 85 2b 00 | 0b 08 3d 3f 85 2b 00 0e |......+.|..=?.+..|
|00000730| 07 53 89 16 07 cf 59 85 | 69 00 0b 14 d0 0b 08 5c |.S....Y.|i......\|
|00000740| 22 89 15 88 0d 85 3e 00 | 0d 0c 38 89 13 85 65 00 |".....>.|..8...e.|
|00000750| 0e 08 85 65 00 d1 d2 0b | 21 0e 09 5c 22 89 16 06 |...e....|!..\"...|
|00000760| 85 65 00 0c 40 0d 0e 06 | 38 3e 85 65 00 0e 07 54 |.e..@...|8>.e...T|
|00000770| 89 16 07 88 82 18 00 88 | 0b 2c 21 2a 87 22 20 5b |........|.,!*." [|
|00000780| 66 6f 75 6e 64 20 65 6e | 74 72 79 20 63 61 6c 63 |found en|try calc|
|00000790| 2d 73 65 6c 65 63 74 69 | 6f 6e 2d 63 61 63 68 65 |-selecti|on-cache|
|000007a0| 2d 65 6e 74 72 79 20 73 | 65 6c 20 6f 6c 64 20 69 |-entry s|el old i|
|000007b0| 6e 64 65 78 20 6f 70 20 | 6e 75 6d 20 63 61 6c 63 |ndex op |num calc|
|000007c0| 2d 61 73 73 6f 63 2d 73 | 65 6c 65 63 74 69 6f 6e |-assoc-s|election|
|000007d0| 73 20 63 61 6c 63 2d 61 | 73 73 6f 63 2d 6f 70 73 |s calc-a|ssoc-ops|
|000007e0| 20 63 61 6c 63 2d 70 72 | 65 70 61 72 65 2d 73 65 | calc-pr|epare-se|
|000007f0| 6c 65 63 74 69 6f 6e 20 | 63 61 6c 63 2d 66 69 6e |lection |calc-fin|
|00000800| 64 2d 73 65 6c 65 63 74 | 65 64 2d 70 61 72 74 20 |d-select|ed-part |
|00000810| 63 61 6c 63 2d 63 68 61 | 6e 67 65 2d 63 75 72 72 |calc-cha|nge-curr|
|00000820| 65 6e 74 2d 73 65 6c 65 | 63 74 69 6f 6e 20 32 20 |ent-sele|ction 2 |
|00000830| 6e 69 6c 20 30 20 63 61 | 6c 63 2d 66 69 6e 64 2d |nil 0 ca|lc-find-|
|00000840| 73 75 62 2d 66 6f 72 6d | 75 6c 61 20 61 73 73 71 |sub-form|ula assq|
|00000850| 20 63 61 72 2d 73 61 66 | 65 5d 20 31 30 29 29 5d | car-saf|e] 10))]|
|00000860| 20 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 2))..(d|efun cal|
|00000870| 63 2d 73 65 6c 65 63 74 | 2d 70 61 72 74 20 28 6e |c-select|-part (n|
|00000880| 75 6d 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |um) (int|eractive|
|00000890| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|000008a0| 20 22 c2 88 08 86 0b 00 | 09 c3 5a 89 10 88 c4 c5 | "......|..Z.....|
|000008b0| 21 87 22 20 5b 6e 75 6d | 20 6c 61 73 74 2d 63 6f |!." [num| last-co|
|000008c0| 6d 6d 61 6e 64 2d 63 68 | 61 72 20 6e 69 6c 20 34 |mmand-ch|ar nil 4|
|000008d0| 38 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |8 calc-d|o (lambd|
|000008e0| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|000008f0| 20 22 c3 20 88 c4 c5 09 | 38 86 0c 00 09 40 0a 5c | ". ....|8....@.\|
|00000900| 22 18 08 83 19 00 c6 08 | 21 82 1d 00 c7 c8 0a 5c |".......|!......\|
|00000910| 22 29 87 22 20 5b 73 65 | 6c 20 63 61 6c 63 2d 73 |")." [se|l calc-s|
|00000920| 65 6c 65 63 74 69 6f 6e | 2d 63 61 63 68 65 2d 65 |election|-cache-e|
|00000930| 6e 74 72 79 20 6e 75 6d | 20 63 61 6c 63 2d 70 72 |ntry num| calc-pr|
|00000940| 65 70 61 72 65 2d 73 65 | 6c 65 63 74 69 6f 6e 20 |epare-se|lection |
|00000950| 63 61 6c 63 2d 66 69 6e | 64 2d 6e 74 68 2d 70 61 |calc-fin|d-nth-pa|
|00000960| 72 74 20 32 20 63 61 6c | 63 2d 63 68 61 6e 67 65 |rt 2 cal|c-change|
|00000970| 2d 63 75 72 72 65 6e 74 | 2d 73 65 6c 65 63 74 69 |-current|-selecti|
|00000980| 6f 6e 20 65 72 72 6f 72 | 20 22 25 64 20 69 73 20 |on error| "%d is |
|00000990| 6e 6f 74 20 61 20 76 61 | 6c 69 64 20 73 75 62 2d |not a va|lid sub-|
|000009a0| 66 6f 72 6d 75 6c 61 20 | 69 6e 64 65 78 22 5d 20 |formula |index"] |
|000009b0| 36 29 29 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |6))] 2))|..(defun|
|000009c0| 20 63 61 6c 63 2d 66 69 | 6e 64 2d 6e 74 68 2d 70 | calc-fi|nd-nth-p|
|000009d0| 61 72 74 20 28 65 78 70 | 72 20 6e 75 6d 29 20 28 |art (exp|r num) (|
|000009e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 85 0a 00 c5 |byte-cod|e ".....|
|000009f0| c6 09 21 0a 5c 22 83 16 | 00 c7 1b c8 09 21 29 82 |..!.\"..|.....!).|
|00000a00| 4f 00 c6 09 21 c9 3d 83 | 31 00 0c ca 59 85 2e 00 |O...!.=.|1...Y...|
|00000a10| 0c cb 58 85 2e 00 0c 54 | 09 38 82 4f 00 09 3a 3f |..X....T|.8.O..:?|
|00000a20| 86 3b 00 09 40 cc 3e 3f | 85 4f 00 0c ca 59 85 4f |.;..@.>?|.O...Y.O|
|00000a30| 00 0c 09 47 57 85 4f 00 | 0c 09 38 87 22 20 5b 63 |...GW.O.|..8." [c|
|00000a40| 61 6c 63 2d 61 73 73 6f | 63 2d 73 65 6c 65 63 74 |alc-asso|c-select|
|00000a50| 69 6f 6e 73 20 65 78 70 | 72 20 63 61 6c 63 2d 61 |ions exp|r calc-a|
|00000a60| 73 73 6f 63 2d 6f 70 73 | 20 6f 70 20 6e 75 6d 20 |ssoc-ops| op num |
|00000a70| 61 73 73 71 20 63 61 72 | 2d 73 61 66 65 20 6e 69 |assq car|-safe ni|
|00000a80| 6c 20 63 61 6c 63 2d 66 | 69 6e 64 2d 6e 74 68 2d |l calc-f|ind-nth-|
|00000a90| 70 61 72 74 2d 72 65 63 | 20 69 6e 74 76 20 31 20 |part-rec| intv 1 |
|00000aa0| 32 20 28 62 69 67 70 6f | 73 20 62 69 67 6e 65 67 |2 (bigpo|s bigneg|
|00000ab0| 20 66 72 61 63 20 66 6c | 6f 61 74 20 63 70 6c 78 | frac fl|oat cplx|
|00000ac0| 20 70 6f 6c 61 72 20 68 | 6d 73 20 64 61 74 65 20 | polar h|ms date |
|00000ad0| 6d 6f 64 20 76 61 72 29 | 5d 20 36 29 29 0a 0a 28 |mod var)|] 6))..(|
|00000ae0| 64 65 66 75 6e 20 63 61 | 6c 63 2d 66 69 6e 64 2d |defun ca|lc-find-|
|00000af0| 6e 74 68 2d 70 61 72 74 | 2d 72 65 63 20 28 65 78 |nth-part|-rec (ex|
|00000b00| 70 72 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |pr) (byt|e-code "|
|00000b10| c4 c5 c6 09 38 21 0a 5c | 22 89 10 85 13 00 09 40 |....8!.\|"......@|
|00000b20| c6 08 38 3e 83 1e 00 c7 | c6 09 38 21 82 2a 00 0b |..8>....|..8!.*..|
|00000b30| 53 89 13 c8 55 85 2a 00 | c6 09 38 86 57 00 c4 c5 |S...U.*.|..8.W...|
|00000b40| c9 09 38 21 0a 5c 22 89 | 10 85 40 00 09 40 c9 08 |..8!.\".|..@..@..|
|00000b50| 38 3e 83 4b 00 c7 c9 09 | 38 21 82 57 00 0b 53 89 |8>.K....|8!.W..S.|
|00000b60| 13 c8 55 85 57 00 c9 09 | 38 87 22 20 5b 6f 70 20 |..U.W...|8." [op |
|00000b70| 65 78 70 72 20 63 61 6c | 63 2d 61 73 73 6f 63 2d |expr cal|c-assoc-|
|00000b80| 6f 70 73 20 6e 75 6d 20 | 61 73 73 71 20 63 61 72 |ops num |assq car|
|00000b90| 2d 73 61 66 65 20 31 20 | 63 61 6c 63 2d 66 69 6e |-safe 1 |calc-fin|
|00000ba0| 64 2d 6e 74 68 2d 70 61 | 72 74 2d 72 65 63 20 30 |d-nth-pa|rt-rec 0|
|00000bb0| 20 32 5d 20 38 29 29 0a | 0a 28 64 65 66 75 6e 20 | 2] 8)).|.(defun |
|00000bc0| 63 61 6c 63 2d 73 65 6c | 65 63 74 2d 6e 65 78 74 |calc-sel|ect-next|
|00000bd0| 20 28 6e 75 6d 29 20 28 | 69 6e 74 65 72 61 63 74 | (num) (|interact|
|00000be0| 69 76 65 20 22 70 22 29 | 20 28 62 79 74 65 2d 63 |ive "p")| (byte-c|
|00000bf0| 6f 64 65 20 22 c1 88 08 | c2 57 83 0f 00 c3 08 5b |ode "...|.W.....[|
|00000c00| 21 82 12 00 c4 c5 21 87 | 22 20 5b 6e 75 6d 20 6e |!.....!.|" [num n|
|00000c10| 69 6c 20 30 20 63 61 6c | 63 2d 73 65 6c 65 63 74 |il 0 cal|c-select|
|00000c20| 2d 70 72 65 76 69 6f 75 | 73 20 63 61 6c 63 2d 64 |-previou|s calc-d|
|00000c30| 6f 20 28 6c 61 6d 62 64 | 61 20 6e 69 6c 20 28 62 |o (lambd|a nil (b|
|00000c40| 79 74 65 2d 63 6f 64 65 | 20 22 cb 20 88 09 18 cc |yte-code| ". ....|
|00000c50| 08 38 1a 0a 83 b9 00 0b | 53 89 13 cd 59 85 b2 00 |.8......|S...Y...|
|00000c60| ce 08 40 0a 5c 22 1c 0c | 1d c8 1e 06 0d c7 3d 85 |..@.\"..|......=.|
|00000c70| 2a 00 c8 89 15 88 0d 41 | 89 15 85 37 00 0d 40 0a |*......A|...7..@.|
|00000c80| 3d 3f 85 3f 00 c8 88 82 | 2b 00 88 0d 41 83 73 00 |=?.?....|+...A.s.|
|00000c90| 0e 09 85 68 00 cf d0 d1 | 0d 38 21 0e 0a 5c 22 89 |...h....|.8!..\".|
|00000ca0| 16 06 85 68 00 0c 40 cc | 0e 06 38 3e 85 68 00 d1 |...h..@.|..8>.h..|
|00000cb0| d1 0d 38 38 86 6e 00 d1 | 0d 38 89 12 82 ad 00 0e |..88.n..|.8......|
|00000cc0| 09 85 9f 00 cf d0 0c 21 | 0e 0a 5c 22 89 16 06 85 |.......!|..\"....|
|00000cd0| 9f 00 ce 08 40 0c 5c 22 | 89 15 3a 85 9f 00 d1 0d |....@.\"|..:.....|
|00000ce0| 38 0c 3d 85 9f 00 0d 40 | d1 0e 06 38 3e 83 aa 00 |8.=....@|...8>...|
|00000cf0| cc 0d 38 89 12 82 ad 00 | d2 d3 21 2b 88 82 0d 00 |..8.....|..!+....|
|00000d00| 88 d4 0a 21 82 d2 00 08 | 40 3a 3f 86 c5 00 08 40 |...!....|@:?....@|
|00000d10| 40 d5 3e 83 cf 00 d4 08 | 40 21 82 d2 00 d6 0b 21 |@.>.....|@!.....!|
|00000d20| 2a 87 22 20 5b 65 6e 74 | 72 79 20 63 61 6c 63 2d |*." [ent|ry calc-|
|00000d30| 73 65 6c 65 63 74 69 6f | 6e 2d 63 61 63 68 65 2d |selectio|n-cache-|
|00000d40| 65 6e 74 72 79 20 73 65 | 6c 20 6e 75 6d 20 70 61 |entry se|l num pa|
|00000d50| 72 65 6e 74 20 70 20 6f | 70 20 74 20 6e 69 6c 20 |rent p o|p t nil |
|00000d60| 63 61 6c 63 2d 61 73 73 | 6f 63 2d 73 65 6c 65 63 |calc-ass|oc-selec|
|00000d70| 74 69 6f 6e 73 20 63 61 | 6c 63 2d 61 73 73 6f 63 |tions ca|lc-assoc|
|00000d80| 2d 6f 70 73 20 63 61 6c | 63 2d 70 72 65 70 61 72 |-ops cal|c-prepar|
|00000d90| 65 2d 73 65 6c 65 63 74 | 69 6f 6e 20 32 20 30 20 |e-select|ion 2 0 |
|00000da0| 63 61 6c 63 2d 66 69 6e | 64 2d 70 61 72 65 6e 74 |calc-fin|d-parent|
|00000db0| 2d 66 6f 72 6d 75 6c 61 | 20 61 73 73 71 20 63 61 |-formula| assq ca|
|00000dc0| 72 2d 73 61 66 65 20 31 | 20 65 72 72 6f 72 20 22 |r-safe 1| error "|
|00000dd0| 4e 6f 20 5c 22 6e 65 78 | 74 5c 22 20 73 75 62 2d |No \"nex|t\" sub-|
|00000de0| 66 6f 72 6d 75 6c 61 22 | 20 63 61 6c 63 2d 63 68 |formula"| calc-ch|
|00000df0| 61 6e 67 65 2d 63 75 72 | 72 65 6e 74 2d 73 65 6c |ange-cur|rent-sel|
|00000e00| 65 63 74 69 6f 6e 20 28 | 62 69 67 70 6f 73 20 62 |ection (|bigpos b|
|00000e10| 69 67 6e 65 67 20 66 72 | 61 63 20 66 6c 6f 61 74 |igneg fr|ac float|
|00000e20| 20 63 70 6c 78 20 70 6f | 6c 61 72 20 68 6d 73 20 | cplx po|lar hms |
|00000e30| 64 61 74 65 20 6d 6f 64 | 20 76 61 72 29 20 63 61 |date mod| var) ca|
|00000e40| 6c 63 2d 73 65 6c 65 63 | 74 2d 70 61 72 74 5d 20 |lc-selec|t-part] |
|00000e50| 31 32 29 29 5d 20 33 29 | 29 0a 0a 28 64 65 66 75 |12))] 3)|)..(defu|
|00000e60| 6e 20 63 61 6c 63 2d 73 | 65 6c 65 63 74 2d 70 72 |n calc-s|elect-pr|
|00000e70| 65 76 69 6f 75 73 20 28 | 6e 75 6d 29 20 28 69 6e |evious (|num) (in|
|00000e80| 74 65 72 61 63 74 69 76 | 65 20 22 70 22 29 20 28 |teractiv|e "p") (|
|00000e90| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 08 c2 57 |byte-cod|e "....W|
|00000ea0| 83 0f 00 c3 08 5b 21 82 | 12 00 c4 c5 21 87 22 20 |.....[!.|....!." |
|00000eb0| 5b 6e 75 6d 20 6e 69 6c | 20 30 20 63 61 6c 63 2d |[num nil| 0 calc-|
|00000ec0| 73 65 6c 65 63 74 2d 6e | 65 78 74 20 63 61 6c 63 |select-n|ext calc|
|00000ed0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|00000ee0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 cc 20 88 09 |(byte-co|de ". ..|
|00000ef0| 18 cd 08 38 1a 0a 83 c2 | 00 0b 53 89 13 ce 59 85 |...8....|..S...Y.|
|00000f00| bb 00 cf 08 40 0a 5c 22 | 1c d0 0c 21 1d c7 1e 06 |....@.\"|...!....|
|00000f10| c7 1e 08 d1 0c 21 d2 3d | 85 32 00 0d 41 89 15 88 |.....!.=|.2..A...|
|00000f20| 0d 40 0a 3d 3f 85 43 00 | 0d 40 16 06 0d 41 89 15 |.@.=?.C.|.@...A..|
|00000f30| 85 4b 00 c7 88 82 33 00 | 88 0e 06 83 7c 00 0e 09 |.K....3.|....|...|
|00000f40| 85 72 00 d3 d1 0e 06 21 | 0e 0a 5c 22 89 16 08 85 |.r.....!|..\"....|
|00000f50| 72 00 0c 40 d4 0e 08 38 | 3e 85 72 00 cd 0e 06 38 |r..@...8|>.r....8|
|00000f60| 86 77 00 0e 06 89 12 82 | b6 00 0e 09 85 a8 00 d3 |.w......|........|
|00000f70| d1 0c 21 0e 0a 5c 22 89 | 16 08 85 a8 00 cf 08 40 |..!..\".|.......@|
|00000f80| 0c 5c 22 89 15 3a 85 a8 | 00 cd 0d 38 0c 3d 85 a8 |.\"..:..|...8.=..|
|00000f90| 00 0d 40 cd 0e 08 38 3e | 83 b3 00 d4 0d 38 89 12 |..@...8>|.....8..|
|00000fa0| 82 b6 00 d5 d6 21 2c 88 | 82 0d 00 88 d7 0a 21 82 |.....!,.|......!.|
|00000fb0| 04 01 08 40 3a 3f 86 ce | 00 08 40 40 d8 3e 83 d8 |...@:?..|..@@.>..|
|00000fc0| 00 d7 08 40 21 82 04 01 | 0e 09 85 e4 00 d3 08 40 |...@!...|.......@|
|00000fd0| 40 0e 0a 5c 22 83 f8 00 | c7 ce 1b 1e 08 d9 08 40 |@..\"...|.......@|
|00000fe0| 21 88 d4 0b 5a 2a 82 fb | 00 08 40 47 1e 0b da 0e |!...Z*..|..@G....|
|00000ff0| 0b 0b 5a 21 29 2a 87 22 | 20 5b 65 6e 74 72 79 20 |..Z!)*."| [entry |
|00001000| 63 61 6c 63 2d 73 65 6c | 65 63 74 69 6f 6e 2d 63 |calc-sel|ection-c|
|00001010| 61 63 68 65 2d 65 6e 74 | 72 79 20 73 65 6c 20 6e |ache-ent|ry sel n|
|00001020| 75 6d 20 70 61 72 65 6e | 74 20 70 20 70 72 65 76 |um paren|t p prev|
|00001030| 20 6e 69 6c 20 6f 70 20 | 63 61 6c 63 2d 61 73 73 | nil op |calc-ass|
|00001040| 6f 63 2d 73 65 6c 65 63 | 74 69 6f 6e 73 20 63 61 |oc-selec|tions ca|
|00001050| 6c 63 2d 61 73 73 6f 63 | 2d 6f 70 73 20 6c 65 6e |lc-assoc|-ops len|
|00001060| 20 63 61 6c 63 2d 70 72 | 65 70 61 72 65 2d 73 65 | calc-pr|epare-se|
|00001070| 6c 65 63 74 69 6f 6e 20 | 32 20 30 20 63 61 6c 63 |lection |2 0 calc|
|00001080| 2d 66 69 6e 64 2d 70 61 | 72 65 6e 74 2d 66 6f 72 |-find-pa|rent-for|
|00001090| 6d 75 6c 61 20 63 64 72 | 2d 73 61 66 65 20 63 61 |mula cdr|-safe ca|
|000010a0| 72 2d 73 61 66 65 20 69 | 6e 74 76 20 61 73 73 71 |r-safe i|ntv assq|
|000010b0| 20 31 20 65 72 72 6f 72 | 20 22 4e 6f 20 5c 22 70 | 1 error| "No \"p|
|000010c0| 72 65 76 69 6f 75 73 5c | 22 20 73 75 62 2d 66 6f |revious\|" sub-fo|
|000010d0| 72 6d 75 6c 61 22 20 63 | 61 6c 63 2d 63 68 61 6e |rmula" c|alc-chan|
|000010e0| 67 65 2d 63 75 72 72 65 | 6e 74 2d 73 65 6c 65 63 |ge-curre|nt-selec|
|000010f0| 74 69 6f 6e 20 28 62 69 | 67 70 6f 73 20 62 69 67 |tion (bi|gpos big|
|00001100| 6e 65 67 20 66 72 61 63 | 20 66 6c 6f 61 74 20 63 |neg frac| float c|
|00001110| 70 6c 78 20 70 6f 6c 61 | 72 20 68 6d 73 20 64 61 |plx pola|r hms da|
|00001120| 74 65 20 6d 6f 64 20 76 | 61 72 29 20 63 61 6c 63 |te mod v|ar) calc|
|00001130| 2d 66 69 6e 64 2d 6e 74 | 68 2d 70 61 72 74 2d 72 |-find-nt|h-part-r|
|00001140| 65 63 20 63 61 6c 63 2d | 73 65 6c 65 63 74 2d 70 |ec calc-|select-p|
|00001150| 61 72 74 5d 20 31 37 29 | 29 5d 20 33 29 29 0a 0a |art] 17)|)] 3))..|
|00001160| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 66 69 6e 64 |(defun c|alc-find|
|00001170| 2d 70 61 72 65 6e 74 2d | 66 6f 72 6d 75 6c 61 20 |-parent-|formula |
|00001180| 28 65 78 70 72 20 70 61 | 72 74 29 20 28 62 79 74 |(expr pa|rt) (byt|
|00001190| 65 2d 63 6f 64 65 20 22 | 08 09 3d 83 0a 00 c2 82 |e-code "|..=.....|
|000011a0| 47 00 08 3a 3f 86 14 00 | 08 40 c6 3e 83 1b 00 c3 |G..:?...|.@.>....|
|000011b0| 82 47 00 08 c3 1d 1c 0c | 41 89 14 85 2e 00 c7 0c |.G......|A.......|
|000011c0| 40 09 5c 22 89 15 3f 85 | 36 00 c3 88 82 1f 00 88 |@.\"..?.|6.......|
|000011d0| 0c 85 46 00 0d c2 3d 83 | 45 00 08 82 46 00 0d 2a |..F...=.|E...F..*|
|000011e0| 87 22 20 5b 65 78 70 72 | 20 70 61 72 74 20 74 20 |." [expr| part t |
|000011f0| 6e 69 6c 20 70 20 72 65 | 73 20 28 62 69 67 70 6f |nil p re|s (bigpo|
|00001200| 73 20 62 69 67 6e 65 67 | 20 66 72 61 63 20 66 6c |s bigneg| frac fl|
|00001210| 6f 61 74 20 63 70 6c 78 | 20 70 6f 6c 61 72 20 68 |oat cplx| polar h|
|00001220| 6d 73 20 64 61 74 65 20 | 6d 6f 64 20 76 61 72 29 |ms date |mod var)|
|00001230| 20 63 61 6c 63 2d 66 69 | 6e 64 2d 70 61 72 65 6e | calc-fi|nd-paren|
|00001240| 74 2d 66 6f 72 6d 75 6c | 61 5d 20 33 29 29 0a 0a |t-formul|a] 3))..|
|00001250| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 66 69 6e 64 |(defun c|alc-find|
|00001260| 2d 61 73 73 6f 63 2d 70 | 61 72 65 6e 74 2d 66 6f |-assoc-p|arent-fo|
|00001270| 72 6d 75 6c 61 20 28 65 | 78 70 72 20 70 61 72 74 |rmula (e|xpr part|
|00001280| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 08 |) (byte-|code "..|
|00001290| c3 08 09 5c 22 5c 22 87 | 22 20 5b 65 78 70 72 20 |...\"\".|" [expr |
|000012a0| 70 61 72 74 20 63 61 6c | 63 2d 67 72 6f 77 2d 61 |part cal|c-grow-a|
|000012b0| 73 73 6f 63 2d 66 6f 72 | 6d 75 6c 61 20 63 61 6c |ssoc-for|mula cal|
|000012c0| 63 2d 66 69 6e 64 2d 70 | 61 72 65 6e 74 2d 66 6f |c-find-p|arent-fo|
|000012d0| 72 6d 75 6c 61 5d 20 35 | 29 29 0a 0a 28 64 65 66 |rmula] 5|))..(def|
|000012e0| 75 6e 20 63 61 6c 63 2d | 67 72 6f 77 2d 61 73 73 |un calc-|grow-ass|
|000012f0| 6f 63 2d 66 6f 72 6d 75 | 6c 61 20 28 65 78 70 72 |oc-formu|la (expr|
|00001300| 20 70 61 72 74 29 20 28 | 62 79 74 65 2d 63 6f 64 | part) (|byte-cod|
|00001310| 65 20 22 08 83 35 00 c6 | c7 0a 21 0b 5c 22 19 09 |e "..5..|..!.\"..|
|00001320| 85 2f 00 c8 1c c9 0d 0a | 5c 22 89 14 3a 85 24 00 |./......|\"..:.$.|
|00001330| 0c 40 ca 0c 0a 5c 22 09 | 38 3e 85 2e 00 0c 89 12 |.@...\".|8>......|
|00001340| 88 82 11 00 29 88 0a 29 | 82 36 00 0a 87 22 20 5b |....)..)|.6..." [|
|00001350| 63 61 6c 63 2d 61 73 73 | 6f 63 2d 73 65 6c 65 63 |calc-ass|oc-selec|
|00001360| 74 69 6f 6e 73 20 6f 70 | 20 70 61 72 74 20 63 61 |tions op| part ca|
|00001370| 6c 63 2d 61 73 73 6f 63 | 2d 6f 70 73 20 6e 65 77 |lc-assoc|-ops new|
|00001380| 20 65 78 70 72 20 61 73 | 73 71 20 63 61 72 2d 73 | expr as|sq car-s|
|00001390| 61 66 65 20 6e 69 6c 20 | 63 61 6c 63 2d 66 69 6e |afe nil |calc-fin|
|000013a0| 64 2d 70 61 72 65 6e 74 | 2d 66 6f 72 6d 75 6c 61 |d-parent|-formula|
|000013b0| 20 63 61 6c 63 2d 66 69 | 6e 64 2d 73 75 62 2d 66 | calc-fi|nd-sub-f|
|000013c0| 6f 72 6d 75 6c 61 5d 20 | 37 29 29 0a 0a 28 64 65 |ormula] |7))..(de|
|000013d0| 66 75 6e 20 63 61 6c 63 | 2d 66 69 6e 64 2d 73 75 |fun calc|-find-su|
|000013e0| 62 2d 66 6f 72 6d 75 6c | 61 20 28 65 78 70 72 20 |b-formul|a (expr |
|000013f0| 70 61 72 74 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |part) (b|yte-code|
|00001400| 20 22 08 09 3d 83 0a 00 | c2 82 3c 00 08 3a 3f 86 | "..=...|..<..:?.|
|00001410| 14 00 08 40 c5 3e 83 1b | 00 c3 82 3c 00 c6 1c 08 |...@.>..|...<....|
|00001420| 41 89 10 85 2a 00 c7 08 | 40 09 5c 22 3f 85 35 00 |A...*...|@.\"?.5.|
|00001430| 0c 54 89 14 88 82 1d 00 | 88 08 85 3b 00 0c 29 87 |.T......|...;..).|
|00001440| 22 20 5b 65 78 70 72 20 | 70 61 72 74 20 74 20 6e |" [expr |part t n|
|00001450| 69 6c 20 6e 75 6d 20 28 | 62 69 67 70 6f 73 20 62 |il num (|bigpos b|
|00001460| 69 67 6e 65 67 20 66 72 | 61 63 20 66 6c 6f 61 74 |igneg fr|ac float|
|00001470| 20 63 70 6c 78 20 70 6f | 6c 61 72 20 68 6d 73 20 | cplx po|lar hms |
|00001480| 64 61 74 65 20 6d 6f 64 | 20 76 61 72 29 20 31 20 |date mod| var) 1 |
|00001490| 63 61 6c 63 2d 66 69 6e | 64 2d 73 75 62 2d 66 6f |calc-fin|d-sub-fo|
|000014a0| 72 6d 75 6c 61 5d 20 34 | 29 29 0a 0a 28 64 65 66 |rmula] 4|))..(def|
|000014b0| 75 6e 20 63 61 6c 63 2d | 75 6e 73 65 6c 65 63 74 |un calc-|unselect|
|000014c0| 20 28 6e 75 6d 29 20 28 | 69 6e 74 65 72 61 63 74 | (num) (|interact|
|000014d0| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|000014e0| 6f 64 65 20 22 c0 88 c1 | c2 21 87 22 20 5b 6e 69 |ode "...|.!." [ni|
|000014f0| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00001500| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00001510| 20 22 c2 08 21 88 c3 c1 | 21 87 22 20 5b 6e 75 6d | "..!...|!." [num|
|00001520| 20 6e 69 6c 20 63 61 6c | 63 2d 70 72 65 70 61 72 | nil cal|c-prepar|
|00001530| 65 2d 73 65 6c 65 63 74 | 69 6f 6e 20 63 61 6c 63 |e-select|ion calc|
|00001540| 2d 63 68 61 6e 67 65 2d | 63 75 72 72 65 6e 74 2d |-change-|current-|
|00001550| 73 65 6c 65 63 74 69 6f | 6e 5d 20 33 29 29 5d 20 |selectio|n] 3))] |
|00001560| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |2))..(de|fun calc|
|00001570| 2d 63 6c 65 61 72 2d 73 | 65 6c 65 63 74 69 6f 6e |-clear-s|election|
|00001580| 73 20 6e 69 6c 20 28 69 | 6e 74 65 72 61 63 74 69 |s nil (i|nteracti|
|00001590| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|000015a0| c0 88 c1 c2 21 87 22 20 | 5b 6e 69 6c 20 63 61 6c |....!." |[nil cal|
|000015b0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000015c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c3 20 c4 | (byte-c|ode ". .|
|000015d0| 19 18 09 08 58 85 5c 22 | 00 c5 09 c6 5c 22 85 19 |....X.\"|....\"..|
|000015e0| 00 c7 09 21 88 c8 c2 21 | 88 09 54 89 11 88 82 05 |...!...!|..T.....|
|000015f0| 00 2a 88 c9 ca 21 87 22 | 20 5b 6c 69 6d 69 74 20 |.*...!."| [limit |
|00001600| 6e 20 6e 69 6c 20 63 61 | 6c 63 2d 73 74 61 63 6b |n nil ca|lc-stack|
|00001610| 2d 73 69 7a 65 20 31 20 | 63 61 6c 63 2d 74 6f 70 |-size 1 |calc-top|
|00001620| 20 73 65 6c 20 63 61 6c | 63 2d 70 72 65 70 61 72 | sel cal|c-prepar|
|00001630| 65 2d 73 65 6c 65 63 74 | 69 6f 6e 20 63 61 6c 63 |e-select|ion calc|
|00001640| 2d 63 68 61 6e 67 65 2d | 63 75 72 72 65 6e 74 2d |-change-|current-|
|00001650| 73 65 6c 65 63 74 69 6f | 6e 20 63 61 6c 63 2d 63 |selectio|n calc-c|
|00001660| 6c 65 61 72 2d 63 6f 6d | 6d 61 6e 64 2d 66 6c 61 |lear-com|mand-fla|
|00001670| 67 20 70 6f 73 69 74 69 | 6f 6e 2d 70 6f 69 6e 74 |g positi|on-point|
|00001680| 5d 20 37 29 29 5d 20 32 | 29 29 0a 0a 28 64 65 66 |] 7))] 2|))..(def|
|00001690| 75 6e 20 63 61 6c 63 2d | 73 68 6f 77 2d 73 65 6c |un calc-|show-sel|
|000016a0| 65 63 74 69 6f 6e 73 20 | 28 61 72 67 29 20 28 69 |ections |(arg) (i|
|000016b0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|000016c0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|000016d0| 21 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |!." [nil| calc-do|
|000016e0| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|000016f0| 74 65 2d 63 6f 64 65 20 | 22 c8 20 88 09 83 0f 00 |te-code |". .....|
|00001700| c9 09 21 ca 56 82 11 00 | 08 3f 89 10 88 0b 1a 0a |..!.V...|.?......|
|00001710| 85 27 00 cb 0a 40 38 3f | 86 27 00 cc 0a 40 0c 5c |.'...@8?|.'...@.\|
|00001720| 22 85 32 00 0a 41 89 12 | 88 82 16 00 88 0a 85 3c |".2..A..|.......<|
|00001730| 00 0c 1d cd 20 29 86 55 | 00 0c 85 55 00 cb 0c 38 |.... ).U|...U...8|
|00001740| 1e 06 ce cf cb 0c 5c 22 | c7 5c 22 88 d0 0e 06 21 |......\"|.\"....!|
|00001750| 29 29 88 d1 08 83 60 00 | d2 82 61 00 d3 21 87 22 |))....`.|..a..!."|
|00001760| 20 5b 63 61 6c 63 2d 73 | 68 6f 77 2d 73 65 6c 65 | [calc-s|how-sele|
|00001770| 63 74 69 6f 6e 73 20 61 | 72 67 20 70 20 63 61 6c |ctions a|rg p cal|
|00001780| 63 2d 73 74 61 63 6b 20 | 63 61 6c 63 2d 73 65 6c |c-stack |calc-sel|
|00001790| 65 63 74 69 6f 6e 2d 63 | 61 63 68 65 2d 65 6e 74 |ection-c|ache-ent|
|000017a0| 72 79 20 63 61 6c 63 2d | 73 65 6c 65 63 74 69 6f |ry calc-|selectio|
|000017b0| 6e 2d 63 61 63 68 65 2d | 64 65 66 61 75 6c 74 2d |n-cache-|default-|
|000017c0| 65 6e 74 72 79 20 73 65 | 6c 20 6e 69 6c 20 63 61 |entry se|l nil ca|
|000017d0| 6c 63 2d 70 72 65 73 65 | 72 76 65 2d 70 6f 69 6e |lc-prese|rve-poin|
|000017e0| 74 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |t prefix|-numeric|
|000017f0| 2d 76 61 6c 75 65 20 30 | 20 32 20 65 71 75 61 6c |-value 0| 2 equal|
|00001800| 20 63 61 6c 63 2d 64 6f | 2d 72 65 66 72 65 73 68 | calc-do|-refresh|
|00001810| 20 73 65 74 63 61 72 20 | 6e 74 68 63 64 72 20 63 | setcar |nthcdr c|
|00001820| 61 6c 63 2d 63 68 61 6e | 67 65 2d 63 75 72 72 65 |alc-chan|ge-curre|
|00001830| 6e 74 2d 73 65 6c 65 63 | 74 69 6f 6e 20 6d 65 73 |nt-selec|tion mes|
|00001840| 73 61 67 65 20 22 44 69 | 73 70 6c 61 79 69 6e 67 |sage "Di|splaying|
|00001850| 20 6f 6e 6c 79 20 73 65 | 6c 65 63 74 65 64 20 70 | only se|lected p|
|00001860| 61 72 74 20 6f 66 20 66 | 6f 72 6d 75 6c 61 73 22 |art of f|ormulas"|
|00001870| 20 22 44 69 73 70 6c 61 | 79 69 6e 67 20 61 6c 6c | "Displa|ying all|
|00001880| 20 62 75 74 20 73 65 6c | 65 63 74 65 64 20 70 61 | but sel|ected pa|
|00001890| 72 74 20 6f 66 20 66 6f | 72 6d 75 6c 61 73 22 5d |rt of fo|rmulas"]|
|000018a0| 20 39 29 29 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 | 9))] 2)|)..(defu|
|000018b0| 6e 20 63 61 6c 63 2d 70 | 72 65 73 65 72 76 65 2d |n calc-p|reserve-|
|000018c0| 70 6f 69 6e 74 20 6e 69 | 6c 20 28 62 79 74 65 2d |point ni|l (byte-|
|000018d0| 63 6f 64 65 20 22 c2 c3 | 21 86 1c 00 c4 65 60 5c |code "..|!....e`\|
|000018e0| 22 6e 83 12 00 c5 82 13 | 00 c6 5c 5c 10 69 89 11 |"n......|..\\.i..|
|000018f0| 88 c7 c8 21 87 22 20 5b | 63 61 6c 63 2d 66 69 6e |...!." [|calc-fin|
|00001900| 61 6c 2d 70 6f 69 6e 74 | 2d 6c 69 6e 65 20 63 61 |al-point|-line ca|
|00001910| 6c 63 2d 66 69 6e 61 6c | 2d 70 6f 69 6e 74 2d 63 |lc-final|-point-c|
|00001920| 6f 6c 75 6d 6e 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |olumn lo|oking-at|
|00001930| 20 22 5c 5c 2e 0a 2b 5c | 5c 27 22 20 63 6f 75 6e | "\\..+\|\'" coun|
|00001940| 74 2d 6c 69 6e 65 73 20 | 31 20 30 20 63 61 6c 63 |t-lines |1 0 calc|
|00001950| 2d 73 65 74 2d 63 6f 6d | 6d 61 6e 64 2d 66 6c 61 |-set-com|mand-fla|
|00001960| 67 20 70 6f 73 69 74 69 | 6f 6e 2d 70 6f 69 6e 74 |g positi|on-point|
|00001970| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 4))..(|defun ca|
|00001980| 6c 63 2d 65 6e 61 62 6c | 65 2d 73 65 6c 65 63 74 |lc-enabl|e-select|
|00001990| 69 6f 6e 73 20 28 61 72 | 67 29 20 28 69 6e 74 65 |ions (ar|g) (inte|
|000019a0| 72 61 63 74 69 76 65 20 | 22 50 22 29 20 28 62 79 |ractive |"P") (by|
|000019b0| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 21 87 22 |te-code |"....!."|
|000019c0| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 64 6f 20 28 6c | [nil ca|lc-do (l|
|000019d0| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|000019e0| 63 6f 64 65 20 22 c2 20 | 88 09 83 0f 00 c3 09 21 |code ". |.......!|
|000019f0| c4 56 82 11 00 08 3f 89 | 10 88 c5 c6 21 88 c7 08 |.V....?.|....!...|
|00001a00| 83 21 00 c8 82 5c 22 00 | c9 21 87 22 20 5b 63 61 |.!...\".|.!." [ca|
|00001a10| 6c 63 2d 75 73 65 2d 73 | 65 6c 65 63 74 69 6f 6e |lc-use-s|election|
|00001a20| 73 20 61 72 67 20 63 61 | 6c 63 2d 70 72 65 73 65 |s arg ca|lc-prese|
|00001a30| 72 76 65 2d 70 6f 69 6e | 74 20 70 72 65 66 69 78 |rve-poin|t prefix|
|00001a40| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 20 30 |-numeric|-value 0|
|00001a50| 20 63 61 6c 63 2d 73 65 | 74 2d 63 6f 6d 6d 61 6e | calc-se|t-comman|
|00001a60| 64 2d 66 6c 61 67 20 72 | 65 6e 75 6d 2d 73 74 61 |d-flag r|enum-sta|
|00001a70| 63 6b 20 6d 65 73 73 61 | 67 65 20 22 43 6f 6d 6d |ck messa|ge "Comm|
|00001a80| 61 6e 64 73 20 6f 70 65 | 72 61 74 65 20 6f 6e 6c |ands ope|rate onl|
|00001a90| 79 20 6f 6e 20 73 65 6c | 65 63 74 65 64 20 73 75 |y on sel|ected su|
|00001aa0| 62 2d 66 6f 72 6d 75 6c | 61 73 22 20 22 53 65 6c |b-formul|as" "Sel|
|00001ab0| 65 63 74 69 6f 6e 73 20 | 6f 66 20 73 75 62 2d 66 |ections |of sub-f|
|00001ac0| 6f 72 6d 75 6c 61 73 20 | 68 61 76 65 20 6e 6f 20 |ormulas |have no |
|00001ad0| 65 66 66 65 63 74 22 5d | 20 35 29 29 5d 20 32 29 |effect"]| 5))] 2)|
|00001ae0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 62 |)..(defu|n calc-b|
|00001af0| 72 65 61 6b 2d 73 65 6c | 65 63 74 69 6f 6e 73 20 |reak-sel|ections |
|00001b00| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00001b10| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00001b20| 64 65 20 22 c0 88 c1 c2 | 21 87 22 20 5b 6e 69 6c |de "....|!." [nil|
|00001b30| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|00001b40| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00001b50| 22 c2 20 88 09 83 0f 00 | c3 09 21 c4 58 82 11 00 |". .....|..!.X...|
|00001b60| 08 3f 89 10 88 c5 08 83 | 1d 00 c6 82 1e 00 c7 21 |.?......|.......!|
|00001b70| 87 22 20 5b 63 61 6c 63 | 2d 61 73 73 6f 63 2d 73 |." [calc|-assoc-s|
|00001b80| 65 6c 65 63 74 69 6f 6e | 73 20 61 72 67 20 63 61 |election|s arg ca|
|00001b90| 6c 63 2d 70 72 65 73 65 | 72 76 65 2d 70 6f 69 6e |lc-prese|rve-poin|
|00001ba0| 74 20 70 72 65 66 69 78 | 2d 6e 75 6d 65 72 69 63 |t prefix|-numeric|
|00001bb0| 2d 76 61 6c 75 65 20 30 | 20 6d 65 73 73 61 67 65 |-value 0| message|
|00001bc0| 20 22 53 65 6c 65 63 74 | 69 6f 6e 20 74 72 65 61 | "Select|ion trea|
|00001bd0| 74 73 20 61 2b 62 2b 63 | 20 61 73 20 61 20 73 75 |ts a+b+c| as a su|
|00001be0| 6d 20 6f 66 20 74 68 72 | 65 65 20 74 65 72 6d 73 |m of thr|ee terms|
|00001bf0| 22 20 22 53 65 6c 65 63 | 74 69 6f 6e 20 74 72 65 |" "Selec|tion tre|
|00001c00| 61 74 73 20 61 2b 62 2b | 63 20 61 73 20 28 61 2b |ats a+b+|c as (a+|
|00001c10| 62 29 2b 63 22 5d 20 34 | 29 29 5d 20 32 29 29 0a |b)+c"] 4|))] 2)).|
|00001c20| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 70 72 65 |.(defun |calc-pre|
|00001c30| 70 61 72 65 2d 73 65 6c | 65 63 74 69 6f 6e 20 28 |pare-sel|ection (|
|00001c40| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 75 6d 29 20 28 |&optiona|l num) (|
|00001c50| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 86 09 00 ce |byte-cod|e ".....|
|00001c60| 60 21 89 10 88 08 11 c3 | 89 12 88 08 cf 56 86 19 |`!......|.....V..|
|00001c70| 00 d0 89 10 88 d1 08 c4 | 5c 22 1c d2 1d d2 1e 06 |........|\"......|
|00001c80| d3 0c 0e 07 5c 22 86 5c | 5c 00 d4 0c d5 0c 40 21 |....\".\|\.....@!|
|00001c90| 5c 22 88 0c 16 07 08 16 | 08 c3 1e 0a d6 0c 40 cf |\"......|......@.|
|00001ca0| 5c 22 29 16 09 d7 d8 0e | 09 21 40 0e 0c 47 0e 0d |\").....|.!@..G..|
|00001cb0| 83 57 00 d9 82 58 00 cf | 23 89 16 0b 2b 88 da 20 |.W...X..|#...+.. |
|00001cc0| 87 22 20 5b 6e 75 6d 20 | 63 61 6c 63 2d 73 65 6c |." [num |calc-sel|
|00001cd0| 65 63 74 69 6f 6e 2d 74 | 72 75 65 2d 6e 75 6d 20 |ection-t|rue-num |
|00001ce0| 63 61 6c 63 2d 6b 65 65 | 70 2d 73 65 6c 65 63 74 |calc-kee|p-select|
|00001cf0| 69 6f 6e 20 74 20 65 6e | 74 72 79 20 77 77 20 77 |ion t en|try ww w|
|00001d00| 20 63 61 6c 63 2d 73 65 | 6c 65 63 74 69 6f 6e 2d | calc-se|lection-|
|00001d10| 63 61 63 68 65 2d 65 6e | 74 72 79 20 63 61 6c 63 |cache-en|try calc|
|00001d20| 2d 73 65 6c 65 63 74 69 | 6f 6e 2d 63 61 63 68 65 |-selecti|on-cache|
|00001d30| 2d 6e 75 6d 20 63 61 6c | 63 2d 73 65 6c 65 63 74 |-num cal|c-select|
|00001d40| 69 6f 6e 2d 63 61 63 68 | 65 2d 63 6f 6d 70 20 6d |ion-cach|e-comp m|
|00001d50| 61 74 68 2d 63 6f 6d 70 | 2d 74 61 67 67 65 64 20 |ath-comp|-tagged |
|00001d60| 63 61 6c 63 2d 73 65 6c | 65 63 74 69 6f 6e 2d 63 |calc-sel|ection-c|
|00001d70| 61 63 68 65 2d 6f 66 66 | 73 65 74 20 63 61 6c 63 |ache-off|set calc|
|00001d80| 2d 6c 65 66 74 2d 6c 61 | 62 65 6c 20 63 61 6c 63 |-left-la|bel calc|
|00001d90| 2d 6c 69 6e 65 2d 6e 75 | 6d 62 65 72 69 6e 67 20 |-line-nu|mbering |
|00001da0| 63 61 6c 63 2d 6c 6f 63 | 61 74 65 2d 63 75 72 73 |calc-loc|ate-curs|
|00001db0| 6f 72 2d 65 6c 65 6d 65 | 6e 74 20 30 20 31 20 63 |or-eleme|nt 0 1 c|
|00001dc0| 61 6c 63 2d 74 6f 70 20 | 6e 69 6c 20 65 71 75 61 |alc-top |nil equa|
|00001dd0| 6c 20 73 65 74 63 61 72 | 20 63 61 6c 63 2d 65 6e |l setcar| calc-en|
|00001de0| 63 61 73 65 2d 61 74 6f | 6d 73 20 6d 61 74 68 2d |case-ato|ms math-|
|00001df0| 63 6f 6d 70 6f 73 65 2d | 65 78 70 72 20 2b 20 6d |compose-|expr + m|
|00001e00| 61 74 68 2d 73 74 61 63 | 6b 2d 76 61 6c 75 65 2d |ath-stac|k-value-|
|00001e10| 6f 66 66 73 65 74 20 34 | 20 63 61 6c 63 2d 70 72 |offset 4| calc-pr|
|00001e20| 65 73 65 72 76 65 2d 70 | 6f 69 6e 74 5d 20 31 31 |eserve-p|oint] 11|
|00001e30| 29 29 0a 0a 28 73 65 74 | 71 20 63 61 6c 63 2d 73 |))..(set|q calc-s|
|00001e40| 65 6c 65 63 74 69 6f 6e | 2d 63 61 63 68 65 2d 65 |election|-cache-e|
|00001e50| 6e 74 72 79 20 6e 69 6c | 29 0a 0a 28 64 65 66 75 |ntry nil|)..(defu|
|00001e60| 6e 20 63 61 6c 63 2d 65 | 6e 63 61 73 65 2d 61 74 |n calc-e|ncase-at|
|00001e70| 6f 6d 73 20 28 78 29 20 | 28 62 79 74 65 2d 63 6f |oms (x) |(byte-co|
|00001e80| 64 65 20 22 08 3a 3f 86 | 0a 00 c1 08 c2 5c 22 83 |de ".:?.|.....\".|
|00001e90| 14 00 c3 08 c4 45 82 19 | 00 c5 08 21 88 08 87 22 |.....E..|...!..."|
|00001ea0| 20 5b 78 20 65 71 75 61 | 6c 20 28 66 6c 6f 61 74 | [x equa|l (float|
|00001eb0| 20 30 20 30 29 20 63 70 | 6c 78 20 30 20 63 61 6c | 0 0) cp|lx 0 cal|
|00001ec0| 63 2d 65 6e 63 61 73 65 | 2d 61 74 6f 6d 73 2d 72 |c-encase|-atoms-r|
|00001ed0| 65 63 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |ec] 4)).|.(defun |
|00001ee0| 63 61 6c 63 2d 65 6e 63 | 61 73 65 2d 61 74 6f 6d |calc-enc|ase-atom|
|00001ef0| 73 2d 72 65 63 20 28 78 | 29 20 28 62 79 74 65 2d |s-rec (x|) (byte-|
|00001f00| 63 6f 64 65 20 22 08 3a | 3f 86 0a 00 08 40 c1 3e |code ".:|?....@.>|
|00001f10| 86 42 00 08 40 c2 3d 85 | 18 00 08 41 89 10 88 08 |.B..@.=.|...A....|
|00001f20| 41 89 10 85 42 00 08 40 | 3a 3f 86 2c 00 c3 08 40 |A...B..@|:?.,...@|
|00001f30| c4 5c 22 83 3a 00 c5 08 | c6 08 40 c7 45 5c 22 82 |.\".:...|..@.E\".|
|00001f40| 3e 00 c8 08 40 21 88 82 | 19 00 87 22 20 5b 78 20 |>...@!..|..." [x |
|00001f50| 28 62 69 67 70 6f 73 20 | 62 69 67 6e 65 67 20 66 |(bigpos |bigneg f|
|00001f60| 72 61 63 20 66 6c 6f 61 | 74 20 63 70 6c 78 20 70 |rac floa|t cplx p|
|00001f70| 6f 6c 61 72 20 68 6d 73 | 20 64 61 74 65 20 6d 6f |olar hms| date mo|
|00001f80| 64 20 76 61 72 29 20 69 | 6e 74 76 20 65 71 75 61 |d var) i|ntv equa|
|00001f90| 6c 20 28 66 6c 6f 61 74 | 20 30 20 30 29 20 73 65 |l (float| 0 0) se|
|00001fa0| 74 63 61 72 20 63 70 6c | 78 20 30 20 63 61 6c 63 |tcar cpl|x 0 calc|
|00001fb0| 2d 65 6e 63 61 73 65 2d | 61 74 6f 6d 73 2d 72 65 |-encase-|atoms-re|
|00001fc0| 63 5d 20 37 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |c] 7))..|(defun c|
|00001fd0| 61 6c 63 2d 66 69 6e 64 | 2d 73 65 6c 65 63 74 65 |alc-find|-selecte|
|00001fe0| 64 2d 70 61 72 74 20 6e | 69 6c 20 28 62 79 74 65 |d-part n|il (byte|
|00001ff0| 2d 63 6f 64 65 20 22 69 | 09 5a 18 cb 1a cd 1b cd |-code "i|.Z......|
|00002000| 1c 8a ce 20 88 60 1e 06 | cf 0e 07 21 88 60 89 12 |... .`..|...!.`..|
|00002010| 88 60 0e 06 57 85 32 00 | d0 d1 21 88 0c d2 20 5c |.`..W.2.|..!... \|
|00002020| 5c 14 0b 54 89 13 88 82 | 1a 00 88 d3 0b d4 0e 08 |\..T....|........|
|00002030| 21 d5 23 29 29 1d d3 60 | 0a 09 0c 0b 25 1e 09 cb |!.#))..`|....%...|
|00002040| 1e 0a 08 cd 59 85 5c 5c | 00 0e 0c cd 56 85 5c 5c |....Y.\\|....V.\\|
|00002050| 00 d6 0e 08 d7 5c 22 88 | d1 0e 0a 38 2e 07 87 22 |.....\".|...8..."|
|00002060| 20 5b 6d 61 74 68 2d 63 | 6f 6d 70 2d 73 65 6c 2d | [math-c|omp-sel-|
|00002070| 68 70 6f 73 20 63 61 6c | 63 2d 73 65 6c 65 63 74 |hpos cal|c-select|
|00002080| 69 6f 6e 2d 63 61 63 68 | 65 2d 6f 66 66 73 65 74 |ion-cach|e-offset|
|00002090| 20 74 6f 70 70 74 20 6c | 63 6f 75 6e 74 20 73 70 | toppt l|count sp|
|000020a0| 61 63 65 73 20 6d 61 74 | 68 2d 63 6f 6d 70 2d 73 |aces mat|h-comp-s|
|000020b0| 65 6c 2d 76 70 6f 73 20 | 6c 69 6e 65 20 63 61 6c |el-vpos |line cal|
|000020c0| 63 2d 73 65 6c 65 63 74 | 69 6f 6e 2d 63 61 63 68 |c-select|ion-cach|
|000020d0| 65 2d 6e 75 6d 20 63 61 | 6c 63 2d 73 65 6c 65 63 |e-num ca|lc-selec|
|000020e0| 74 69 6f 6e 2d 63 61 63 | 68 65 2d 63 6f 6d 70 20 |tion-cac|he-comp |
|000020f0| 6d 61 74 68 2d 63 6f 6d | 70 2d 73 65 6c 2d 63 70 |math-com|p-sel-cp|
|00002100| 6f 73 20 6d 61 74 68 2d | 63 6f 6d 70 2d 73 65 6c |os math-|comp-sel|
|00002110| 2d 74 61 67 20 6e 69 6c | 20 63 61 6c 63 2d 73 65 |-tag nil| calc-se|
|00002120| 6c 65 63 74 69 6f 6e 2d | 74 72 75 65 2d 6e 75 6d |lection-|true-num|
|00002130| 20 30 20 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d | 0 begin|ning-of-|
|00002140| 6c 69 6e 65 20 63 61 6c | 63 2d 63 75 72 73 6f 72 |line cal|c-cursor|
|00002150| 2d 73 74 61 63 6b 2d 69 | 6e 64 65 78 20 66 6f 72 |-stack-i|ndex for|
|00002160| 77 61 72 64 2d 6c 69 6e | 65 20 31 20 63 75 72 72 |ward-lin|e 1 curr|
|00002170| 65 6e 74 2d 69 6e 64 65 | 6e 74 61 74 69 6f 6e 20 |ent-inde|ntation |
|00002180| 2d 20 6d 61 74 68 2d 63 | 6f 6d 70 2d 61 73 63 65 |- math-c|omp-asce|
|00002190| 6e 74 20 2d 31 20 6d 61 | 74 68 2d 63 6f 6d 70 6f |nt -1 ma|th-compo|
|000021a0| 73 69 74 69 6f 6e 2d 74 | 6f 2d 73 74 72 69 6e 67 |sition-t|o-string|
|000021b0| 20 31 30 30 30 30 30 30 | 5d 20 31 32 29 29 0a 0a | 1000000|] 12))..|
|000021c0| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 63 68 61 6e |(defun c|alc-chan|
|000021d0| 67 65 2d 63 75 72 72 65 | 6e 74 2d 73 65 6c 65 63 |ge-curre|nt-selec|
|000021e0| 74 69 6f 6e 20 28 73 75 | 62 2d 65 78 70 72 29 20 |tion (su|b-expr) |
|000021f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 c9 09 38 |(byte-co|de "...8|
|00002200| 3d 86 3c 00 0b c5 c5 1e | 06 1c 1a ca cb 21 88 cc |=.<.....|.....!..|
|00002210| cd c9 09 5c 22 08 5c 22 | 88 ce 0e 07 21 88 60 89 |...\".\"|....!.`.|
|00002220| 16 06 88 ce 0e 07 53 21 | 88 cf 0e 06 60 5c 22 88 |......S!|....`\".|
|00002230| 09 1e 08 d0 d1 09 21 d2 | 5c 22 29 2b 87 22 20 5b |......!.|\")+." [|
|00002240| 73 75 62 2d 65 78 70 72 | 20 63 61 6c 63 2d 73 65 |sub-expr| calc-se|
|00002250| 6c 65 63 74 69 6f 6e 2d | 63 61 63 68 65 2d 65 6e |lection-|cache-en|
|00002260| 74 72 79 20 63 61 6c 63 | 2d 70 72 65 70 61 72 65 |try calc|-prepare|
|00002270| 64 2d 63 6f 6d 70 6f 73 | 69 74 69 6f 6e 20 63 61 |d-compos|ition ca|
|00002280| 6c 63 2d 73 65 6c 65 63 | 74 69 6f 6e 2d 63 61 63 |lc-selec|tion-cac|
|00002290| 68 65 2d 63 6f 6d 70 20 | 62 75 66 66 65 72 2d 72 |he-comp |buffer-r|
|000022a0| 65 61 64 2d 6f 6e 6c 79 | 20 6e 69 6c 20 74 6f 70 |ead-only| nil top|
|000022b0| 20 63 61 6c 63 2d 73 65 | 6c 65 63 74 69 6f 6e 2d | calc-se|lection-|
|000022c0| 63 61 63 68 65 2d 6e 75 | 6d 20 63 61 6c 63 2d 73 |cache-nu|m calc-s|
|000022d0| 65 6c 65 63 74 69 6f 6e | 2d 63 61 63 68 65 2d 64 |election|-cache-d|
|000022e0| 65 66 61 75 6c 74 2d 65 | 6e 74 72 79 20 32 20 63 |efault-e|ntry 2 c|
|000022f0| 61 6c 63 2d 73 65 74 2d | 63 6f 6d 6d 61 6e 64 2d |alc-set-|command-|
|00002300| 66 6c 61 67 20 72 65 6e | 75 6d 2d 73 74 61 63 6b |flag ren|um-stack|
|00002310| 20 73 65 74 63 61 72 20 | 6e 74 68 63 64 72 20 63 | setcar |nthcdr c|
|00002320| 61 6c 63 2d 63 75 72 73 | 6f 72 2d 73 74 61 63 6b |alc-curs|or-stack|
|00002330| 2d 69 6e 64 65 78 20 64 | 65 6c 65 74 65 2d 72 65 |-index d|elete-re|
|00002340| 67 69 6f 6e 20 69 6e 73 | 65 72 74 20 6d 61 74 68 |gion ins|ert math|
|00002350| 2d 66 6f 72 6d 61 74 2d | 73 74 61 63 6b 2d 76 61 |-format-|stack-va|
|00002360| 6c 75 65 20 22 0a 22 5d | 20 31 30 29 29 0a 0a 28 |lue "."]| 10))..(|
|00002370| 64 65 66 75 6e 20 63 61 | 6c 63 2d 74 6f 70 2d 73 |defun ca|lc-top-s|
|00002380| 65 6c 65 63 74 65 64 20 | 28 26 6f 70 74 69 6f 6e |elected |(&option|
|00002390| 61 6c 20 6e 20 6d 29 20 | 28 62 79 74 65 2d 63 6f |al n m) |(byte-co|
|000023a0| 64 65 20 22 08 85 5a 00 | 09 85 5a 00 0a 86 0f 00 |de "..Z.|..Z.....|
|000023b0| ca 89 12 88 0b 86 17 00 | ca 89 13 88 cb cc 0a 0b |........|........|
|000023c0| cd 23 21 88 ce cc 0b 0d | cd 23 0e 06 5c 22 c8 1e |.#!.....|.#..\"..|
|000023d0| 07 1c 0a 53 89 12 cf 59 | 85 56 00 d0 0c 40 38 85 |...S...Y|.V...@8.|
|000023e0| 4d 00 0e 07 83 46 00 c9 | 82 4a 00 d0 0c 40 38 89 |M....F..|.J...@8.|
|000023f0| 16 07 88 0c 41 89 14 88 | 82 2d 00 88 0e 07 2a 87 |....A...|.-....*.|
|00002400| 22 20 5b 63 61 6c 63 2d | 61 6e 79 2d 73 65 6c 65 |" [calc-|any-sele|
|00002410| 63 74 69 6f 6e 73 20 63 | 61 6c 63 2d 75 73 65 2d |ctions c|alc-use-|
|00002420| 73 65 6c 65 63 74 69 6f | 6e 73 20 6e 20 6d 20 74 |selectio|ns n m t|
|00002430| 6f 70 20 63 61 6c 63 2d | 73 74 61 63 6b 2d 74 6f |op calc-|stack-to|
|00002440| 70 20 63 61 6c 63 2d 73 | 74 61 63 6b 20 73 65 6c |p calc-s|tack sel|
|00002450| 20 6e 69 6c 20 74 20 31 | 20 63 61 6c 63 2d 63 68 | nil t 1| calc-ch|
|00002460| 65 63 6b 2d 73 74 61 63 | 6b 20 2b 20 2d 31 20 6e |eck-stac|k + -1 n|
|00002470| 74 68 63 64 72 20 30 20 | 32 5d 20 37 29 29 0a 0a |thcdr 0 |2] 7))..|
|00002480| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 72 65 70 6c |(defun c|alc-repl|
|00002490| 61 63 65 2d 73 75 62 2d | 66 6f 72 6d 75 6c 61 20 |ace-sub-|formula |
|000024a0| 28 65 78 70 72 20 6f 6c | 64 20 6e 65 77 29 20 28 |(expr ol|d new) (|
|000024b0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 08 21 89 10 |byte-cod|e "..!..|
|000024c0| 88 c3 09 21 87 22 20 5b | 6e 65 77 20 65 78 70 72 |...!." [|new expr|
|000024d0| 20 63 61 6c 63 2d 65 6e | 63 61 73 65 2d 61 74 6f | calc-en|case-ato|
|000024e0| 6d 73 20 63 61 6c 63 2d | 72 65 70 6c 61 63 65 2d |ms calc-|replace-|
|000024f0| 73 75 62 2d 66 6f 72 6d | 75 6c 61 2d 72 65 63 5d |sub-form|ula-rec]|
|00002500| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 3))..(d|efun cal|
|00002510| 63 2d 72 65 70 6c 61 63 | 65 2d 73 75 62 2d 66 6f |c-replac|e-sub-fo|
|00002520| 72 6d 75 6c 61 2d 72 65 | 63 20 28 65 78 70 72 29 |rmula-re|c (expr)|
|00002530| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 09 3d | (byte-c|ode "..=|
|00002540| 83 0a 00 0a 82 23 00 08 | 3a 3f 86 14 00 08 40 c4 |.....#..|:?....@.|
|00002550| 3e 83 1b 00 08 82 23 00 | 08 40 c5 c6 08 41 5c 22 |>.....#.|.@...A\"|
|00002560| 42 87 22 20 5b 65 78 70 | 72 20 6f 6c 64 20 6e 65 |B." [exp|r old ne|
|00002570| 77 20 74 20 28 62 69 67 | 70 6f 73 20 62 69 67 6e |w t (big|pos bign|
|00002580| 65 67 20 66 72 61 63 20 | 66 6c 6f 61 74 20 63 70 |eg frac |float cp|
|00002590| 6c 78 20 70 6f 6c 61 72 | 20 68 6d 73 20 64 61 74 |lx polar| hms dat|
|000025a0| 65 20 6d 6f 64 20 76 61 | 72 29 20 6d 61 70 63 61 |e mod va|r) mapca|
|000025b0| 72 20 63 61 6c 63 2d 72 | 65 70 6c 61 63 65 2d 73 |r calc-r|eplace-s|
|000025c0| 75 62 2d 66 6f 72 6d 75 | 6c 61 2d 72 65 63 5d 20 |ub-formu|la-rec] |
|000025d0| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |4))..(de|fun calc|
|000025e0| 2d 73 65 6c 2d 65 72 72 | 6f 72 20 6e 69 6c 20 28 |-sel-err|or nil (|
|000025f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 87 22 |byte-cod|e "..!."|
|00002600| 20 5b 65 72 72 6f 72 20 | 22 49 6c 6c 65 67 61 6c | [error |"Illegal|
|00002610| 20 6f 70 65 72 61 74 69 | 6f 6e 20 6f 6e 20 73 75 | operati|on on su|
|00002620| 62 2d 66 6f 72 6d 75 6c | 61 73 22 5d 20 32 29 29 |b-formul|as"] 2))|
|00002630| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 72 65 |..(defun| calc-re|
|00002640| 70 6c 61 63 65 2d 73 65 | 6c 65 63 74 69 6f 6e 73 |place-se|lections|
|00002650| 20 28 6e 20 76 61 6c 73 | 20 6d 29 20 28 62 79 74 | (n vals| m) (byt|
|00002660| 65 2d 63 6f 64 65 20 22 | cc 08 09 5c 22 83 fe 00 |e-code "|...\"...|
|00002670| 0b 47 1a cd 20 88 08 0a | 55 83 7d 00 ce 08 09 cf |.G.. ...|U.}.....|
|00002680| 23 1c c6 1d c6 1e 07 c6 | 1e 08 0c 85 63 00 d0 0c |#.......|....c...|
|00002690| 40 38 83 4b 00 d1 0b 40 | 21 16 08 d2 0c 40 40 d0 |@8.K...@|!....@@.|
|000026a0| 0c 40 38 0e 08 23 0d 42 | 15 0e 08 0e 07 42 89 16 |.@8..#.B|.....B..|
|000026b0| 07 82 57 00 0b 40 0d 42 | 15 c6 0e 07 42 89 16 07 |..W..@.B|....B...|
|000026c0| 88 0b 41 13 0c 41 89 14 | 88 82 21 00 88 d3 08 09 |..A..A..|..!.....|
|000026d0| c9 23 88 d4 d5 0d 21 09 | 0e 0a 85 78 00 d5 0e 07 |.#....!.|...x....|
|000026e0| 21 23 2c 82 fa 00 0a d6 | 55 83 f8 00 ce 08 09 cf |!#,.....|U.......|
|000026f0| 23 1c c6 1e 0b 0c 85 95 | 00 d0 0c 40 38 3f 85 a0 |#.......|...@8?..|
|00002700| 00 0c 41 89 14 88 82 8c | 00 88 0c 89 16 0b 88 0e |..A.....|........|
|00002710| 0b 41 89 16 0b 85 b5 00 | d0 0e 0b 40 38 3f 85 bd |.A......|...@8?..|
|00002720| 00 c6 88 82 a6 00 88 0e | 0b 85 c5 00 d7 20 88 d3 |........|..... ..|
|00002730| 08 09 c9 23 88 0c 83 f1 | 00 d1 0b 40 21 1e 08 d4 |...#....|...@!...|
|00002740| d2 0c 40 40 d0 0c 40 38 | 0e 08 23 43 09 0e 0a 85 |..@@..@8|..#C....|
|00002750| ec 00 0e 08 43 23 29 82 | f4 00 d4 0b 21 2a 82 fa |....C#).|....!*..|
|00002760| 00 d7 20 29 82 08 01 d3 | 08 09 c9 23 88 d4 0b 09 |.. )....|...#....|
|00002770| 5c 22 87 22 20 5b 6e 20 | 6d 20 6e 75 6d 20 76 61 |\"." [n |m num va|
|00002780| 6c 73 20 6f 6c 64 20 6e | 65 77 20 6e 69 6c 20 73 |ls old n|ew nil s|
|00002790| 65 6c 20 76 61 6c 20 74 | 20 63 61 6c 63 2d 6b 65 |el val t| calc-ke|
|000027a0| 65 70 2d 73 65 6c 65 63 | 74 69 6f 6e 20 6d 6f 72 |ep-selec|tion mor|
|000027b0| 65 20 63 61 6c 63 2d 74 | 6f 70 2d 73 65 6c 65 63 |e calc-t|op-selec|
|000027c0| 74 65 64 20 63 61 6c 63 | 2d 70 72 65 73 65 72 76 |ted calc|-preserv|
|000027d0| 65 2d 70 6f 69 6e 74 20 | 63 61 6c 63 2d 74 6f 70 |e-point |calc-top|
|000027e0| 2d 6c 69 73 74 20 65 6e | 74 72 79 20 32 20 63 61 |-list en|try 2 ca|
|000027f0| 6c 63 2d 65 6e 63 61 73 | 65 2d 61 74 6f 6d 73 20 |lc-encas|e-atoms |
|00002800| 63 61 6c 63 2d 72 65 70 | 6c 61 63 65 2d 73 75 62 |calc-rep|lace-sub|
|00002810| 2d 66 6f 72 6d 75 6c 61 | 20 63 61 6c 63 2d 70 6f |-formula| calc-po|
|00002820| 70 2d 73 74 61 63 6b 20 | 63 61 6c 63 2d 70 75 73 |p-stack |calc-pus|
|00002830| 68 2d 6c 69 73 74 20 6e | 72 65 76 65 72 73 65 20 |h-list n|reverse |
|00002840| 31 20 63 61 6c 63 2d 73 | 65 6c 2d 65 72 72 6f 72 |1 calc-s|el-error|
|00002850| 5d 20 32 31 29 29 0a 0a | 28 73 65 74 71 20 63 61 |] 21))..|(setq ca|
|00002860| 6c 63 2d 6b 65 65 70 2d | 73 65 6c 65 63 74 69 6f |lc-keep-|selectio|
|00002870| 6e 20 74 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |n t)..(d|efun cal|
|00002880| 63 2d 64 65 6c 65 74 65 | 2d 73 65 6c 65 63 74 69 |c-delete|-selecti|
|00002890| 6f 6e 20 28 6e 29 20 28 | 62 79 74 65 2d 63 6f 64 |on (n) (|byte-cod|
|000028a0| 65 20 22 c7 09 c0 5c 22 | 18 c8 08 38 83 c6 00 c8 |e "...\"|...8....|
|000028b0| 08 38 08 40 3d 83 21 00 | c9 ca 09 c2 23 88 cb cc |.8.@=.!.|....#...|
|000028c0| 09 5c 22 82 c3 00 cd 08 | 40 c8 08 38 5c 22 c5 1c |.\".....|@..8\"..|
|000028d0| 1b ce 20 88 c9 ca 09 c2 | 23 88 0b 40 cf 3e 86 49 |.. .....|#..@.>.I|
|000028e0| 00 0b 40 d0 3d 85 49 00 | c8 0b 38 c8 08 38 3d 83 |..@.=.I.|..8..8=.|
|000028f0| 52 00 ca 89 14 82 72 00 | 0b 40 d1 3e 86 72 00 d2 |R.....r.|.@.>.r..|
|00002900| 0b 40 0e 06 5c 22 85 66 | 00 0b 47 d3 55 83 6f 00 |.@..\".f|..G.U.o.|
|00002910| d4 89 14 82 72 00 d5 89 | 14 88 0c d4 3d 83 9a 00 |....r...|....=...|
|00002920| cb d6 d7 08 40 0b c8 08 | 38 ca 0b 38 3d 83 8f 00 |....@...|8..8=...|
|00002930| c8 0b 38 82 92 00 ca 0b | 38 23 21 43 09 5c 22 82 |..8.....|8#!C.\".|
|00002940| c2 00 0c 83 af 00 cb d6 | d7 08 40 c8 08 38 0c 23 |........|..@..8.#|
|00002950| 21 43 09 5c 22 82 c2 00 | cb d6 d7 08 40 0b d8 c8 |!C.\"...|....@...|
|00002960| 08 38 d9 0b 21 5c 22 23 | 21 43 09 5c 22 2a 82 cb |.8..!\"#|!C.\"*..|
|00002970| 00 c9 ca 09 c2 23 29 87 | 22 20 5b 65 6e 74 72 79 |.....#).|" [entry|
|00002980| 20 6e 20 74 20 70 61 72 | 65 6e 74 20 72 65 70 6c | n t par|ent repl|
|00002990| 20 6e 69 6c 20 63 61 6c | 63 2d 74 77 65 61 6b 2d | nil cal|c-tweak-|
|000029a0| 65 71 6e 2d 74 61 62 6c | 65 20 63 61 6c 63 2d 74 |eqn-tabl|e calc-t|
|000029b0| 6f 70 20 32 20 63 61 6c | 63 2d 70 6f 70 2d 73 74 |op 2 cal|c-pop-st|
|000029c0| 61 63 6b 20 31 20 63 61 | 6c 63 2d 70 75 73 68 2d |ack 1 ca|lc-push-|
|000029d0| 6c 69 73 74 20 28 30 29 | 20 63 61 6c 63 2d 66 69 |list (0)| calc-fi|
|000029e0| 6e 64 2d 70 61 72 65 6e | 74 2d 66 6f 72 6d 75 6c |nd-paren|t-formul|
|000029f0| 61 20 63 61 6c 63 2d 70 | 72 65 73 65 72 76 65 2d |a calc-p|reserve-|
|00002a00| 70 6f 69 6e 74 20 28 2a | 20 2f 20 25 29 20 5e 20 |point (*| / %) ^ |
|00002a10| 28 76 65 63 20 63 61 6c | 63 46 75 6e 63 2d 6d 69 |(vec cal|cFunc-mi|
|00002a20| 6e 20 63 61 6c 63 46 75 | 6e 63 2d 6d 61 78 29 20 |n calcFu|nc-max) |
|00002a30| 61 73 73 71 20 33 20 64 | 65 6c 20 30 20 63 61 6c |assq 3 d|el 0 cal|
|00002a40| 63 2d 6e 6f 72 6d 61 6c | 69 7a 65 20 63 61 6c 63 |c-normal|ize calc|
|00002a50| 2d 72 65 70 6c 61 63 65 | 2d 73 75 62 2d 66 6f 72 |-replace|-sub-for|
|00002a60| 6d 75 6c 61 20 64 65 6c | 71 20 63 6f 70 79 2d 73 |mula del|q copy-s|
|00002a70| 65 71 75 65 6e 63 65 5d | 20 32 32 29 29 0a 0a 28 |equence]| 22))..(|
|00002a80| 64 65 66 75 6e 20 63 61 | 6c 63 2d 72 6f 6c 6c 2d |defun ca|lc-roll-|
|00002a90| 64 6f 77 6e 2d 77 69 74 | 68 2d 73 65 6c 65 63 74 |down-wit|h-select|
|00002aa0| 69 6f 6e 73 20 28 6e 20 | 6d 29 20 28 62 79 74 65 |ions (n |m) (byte|
|00002ab0| 2d 63 6f 64 65 20 22 c4 | c5 09 c6 5c 22 c5 0a 09 |-code ".|...\"...|
|00002ac0| 5a 09 54 5c 22 5c 22 c4 | c5 09 c6 c7 23 c5 0a 09 |Z.T\"\".|....#...|
|00002ad0| 5a 09 54 c7 23 5c 22 1b | 18 c8 0a 08 c6 0b 24 2a |Z.T.#\".|......$*|
|00002ae0| 87 22 20 5b 76 61 6c 73 | 20 6d 20 6e 20 73 65 6c |." [vals| m n sel|
|00002af0| 73 20 61 70 70 65 6e 64 | 20 63 61 6c 63 2d 74 6f |s append| calc-to|
|00002b00| 70 2d 6c 69 73 74 20 31 | 20 73 65 6c 20 63 61 6c |p-list 1| sel cal|
|00002b10| 63 2d 70 6f 70 2d 70 75 | 73 68 2d 6c 69 73 74 5d |c-pop-pu|sh-list]|
|00002b20| 20 31 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 | 11))..(|defun ca|
|00002b30| 6c 63 2d 72 6f 6c 6c 2d | 75 70 2d 77 69 74 68 2d |lc-roll-|up-with-|
|00002b40| 73 65 6c 65 63 74 69 6f | 6e 73 20 28 6e 20 6d 29 |selectio|ns (n m)|
|00002b50| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c4 c5 09 | (byte-c|ode "...|
|00002b60| 0a 5a c6 5c 22 c5 0a c7 | 09 0a c8 23 5c 22 5c 22 |.Z.\"...|...#\"\"|
|00002b70| c4 c5 09 0a 5a c6 c9 23 | c5 0a c7 09 0a c8 23 c9 |....Z..#|......#.|
|00002b80| 23 5c 22 1b 18 ca 09 08 | c6 0b 24 2a 87 22 20 5b |#\".....|..$*." [|
|00002b90| 76 61 6c 73 20 6e 20 6d | 20 73 65 6c 73 20 61 70 |vals n m| sels ap|
|00002ba0| 70 65 6e 64 20 63 61 6c | 63 2d 74 6f 70 2d 6c 69 |pend cal|c-top-li|
|00002bb0| 73 74 20 31 20 2d 20 2d | 31 20 73 65 6c 20 63 61 |st 1 - -|1 sel ca|
|00002bc0| 6c 63 2d 70 6f 70 2d 70 | 75 73 68 2d 6c 69 73 74 |lc-pop-p|ush-list|
|00002bd0| 5d 20 31 34 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |] 14))..|(defun c|
|00002be0| 61 6c 63 2d 61 75 74 6f | 2d 73 65 6c 65 63 74 69 |alc-auto|-selecti|
|00002bf0| 6f 6e 20 28 65 6e 74 72 | 79 29 20 28 62 79 74 65 |on (entr|y) (byte|
|00002c00| 2d 63 6f 64 65 20 22 c3 | 08 38 86 19 00 c4 c1 21 |-code ".|.8.....!|
|00002c10| 85 0f 00 c2 89 11 88 c5 | 20 88 c6 08 40 c7 20 5c |........| ...@. \|
|00002c20| 22 87 22 20 5b 65 6e 74 | 72 79 20 72 65 73 65 6c |"." [ent|ry resel|
|00002c30| 65 63 74 20 6e 69 6c 20 | 32 20 62 6f 75 6e 64 70 |ect nil |2 boundp|
|00002c40| 20 63 61 6c 63 2d 70 72 | 65 70 61 72 65 2d 73 65 | calc-pr|epare-se|
|00002c50| 6c 65 63 74 69 6f 6e 20 | 63 61 6c 63 2d 67 72 6f |lection |calc-gro|
|00002c60| 77 2d 61 73 73 6f 63 2d | 66 6f 72 6d 75 6c 61 20 |w-assoc-|formula |
|00002c70| 63 61 6c 63 2d 66 69 6e | 64 2d 73 65 6c 65 63 74 |calc-fin|d-select|
|00002c80| 65 64 2d 70 61 72 74 5d | 20 36 29 29 0a 0a 28 64 |ed-part]| 6))..(d|
|00002c90| 65 66 75 6e 20 63 61 6c | 63 2d 63 6f 70 79 2d 73 |efun cal|c-copy-s|
|00002ca0| 65 6c 65 63 74 69 6f 6e | 20 6e 69 6c 20 28 69 6e |election| nil (in|
|00002cb0| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00002cc0| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00002cd0| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|00002ce0| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|00002cf0| 64 65 20 22 c2 20 88 c3 | c4 60 21 5d 18 c5 08 c1 |de ". ..|.`!]....|
|00002d00| 5c 22 19 c6 c7 09 21 86 | 17 00 09 40 21 2a 87 22 |\"....!.|...@!*."|
|00002d10| 20 5b 6e 75 6d 20 65 6e | 74 72 79 20 63 61 6c 63 | [num en|try calc|
|00002d20| 2d 70 72 65 73 65 72 76 | 65 2d 70 6f 69 6e 74 20 |-preserv|e-point |
|00002d30| 31 20 63 61 6c 63 2d 6c | 6f 63 61 74 65 2d 63 75 |1 calc-l|ocate-cu|
|00002d40| 72 73 6f 72 2d 65 6c 65 | 6d 65 6e 74 20 63 61 6c |rsor-ele|ment cal|
|00002d50| 63 2d 74 6f 70 20 63 61 | 6c 63 2d 70 75 73 68 20 |c-top ca|lc-push |
|00002d60| 63 61 6c 63 2d 61 75 74 | 6f 2d 73 65 6c 65 63 74 |calc-aut|o-select|
|00002d70| 69 6f 6e 5d 20 36 29 29 | 5d 20 32 29 29 0a 0a 28 |ion] 6))|] 2))..(|
|00002d80| 64 65 66 75 6e 20 63 61 | 6c 63 2d 64 65 6c 2d 73 |defun ca|lc-del-s|
|00002d90| 65 6c 65 63 74 69 6f 6e | 20 6e 69 6c 20 28 69 6e |election| nil (in|
|00002da0| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00002db0| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00002dc0| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|00002dd0| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|00002de0| 64 65 20 22 c3 20 88 c4 | c5 60 21 5d 18 c6 08 c1 |de ". ..|.`!]....|
|00002df0| 5c 22 19 c7 09 21 1a c8 | c9 ca 09 5c 22 0a 09 40 |\"...!..|...\"..@|
|00002e00| 3d 3f 85 20 00 0a 5c 22 | 88 cb 08 21 2b 87 22 20 |=?. ..\"|...!+." |
|00002e10| 5b 6e 75 6d 20 65 6e 74 | 72 79 20 73 65 6c 20 63 |[num ent|ry sel c|
|00002e20| 61 6c 63 2d 70 72 65 73 | 65 72 76 65 2d 70 6f 69 |alc-pres|erve-poi|
|00002e30| 6e 74 20 31 20 63 61 6c | 63 2d 6c 6f 63 61 74 65 |nt 1 cal|c-locate|
|00002e40| 2d 63 75 72 73 6f 72 2d | 65 6c 65 6d 65 6e 74 20 |-cursor-|element |
|00002e50| 63 61 6c 63 2d 74 6f 70 | 20 63 61 6c 63 2d 61 75 |calc-top| calc-au|
|00002e60| 74 6f 2d 73 65 6c 65 63 | 74 69 6f 6e 20 73 65 74 |to-selec|tion set|
|00002e70| 63 61 72 20 6e 74 68 63 | 64 72 20 32 20 63 61 6c |car nthc|dr 2 cal|
|00002e80| 63 2d 64 65 6c 65 74 65 | 2d 73 65 6c 65 63 74 69 |c-delete|-selecti|
|00002e90| 6f 6e 5d 20 39 29 29 5d | 20 32 29 29 0a 0a 28 64 |on] 9))]| 2))..(d|
|00002ea0| 65 66 75 6e 20 63 61 6c | 63 2d 65 6e 74 65 72 2d |efun cal|c-enter-|
|00002eb0| 73 65 6c 65 63 74 69 6f | 6e 20 6e 69 6c 20 28 69 |selectio|n nil (i|
|00002ec0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00002ed0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|00002ee0| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00002ef0| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00002f00| 6f 64 65 20 22 c9 20 88 | ca cb 60 21 5d 18 0a 19 |ode ". .|..`!]...|
|00002f10| cc 08 c3 5c 22 1b 0b 40 | 1c cd 0b 21 86 1a 00 0c |...\"..@|...!....|
|00002f20| 1d ce 1e 06 0d 43 cf 1e | 08 1e 07 d0 d1 d2 5c 22 |.....C..|......\"|
|00002f30| 89 16 06 88 0e 06 85 4e | 00 d3 0e 06 40 21 89 16 |.......N|....@!..|
|00002f40| 06 88 d4 ca d5 d6 0c 0d | 0e 06 23 43 08 09 85 4c |........|..#C...L|
|00002f50| 00 0e 06 43 25 2a 88 d7 | 20 2e 06 87 22 20 5b 6e |...C%*..| ..." [n|
|00002f60| 75 6d 20 72 65 73 65 6c | 65 63 74 20 63 61 6c 63 |um resel|ect calc|
|00002f70| 2d 6b 65 65 70 2d 73 65 | 6c 65 63 74 69 6f 6e 20 |-keep-se|lection |
|00002f80| 65 6e 74 72 79 20 65 78 | 70 72 20 73 65 6c 20 61 |entry ex|pr sel a|
|00002f90| 6c 67 20 63 61 6c 63 2d | 64 6f 6c 6c 61 72 2d 76 |lg calc-|dollar-v|
|00002fa0| 61 6c 75 65 73 20 63 61 | 6c 63 2d 64 6f 6c 6c 61 |alues ca|lc-dolla|
|00002fb0| 72 2d 75 73 65 64 20 63 | 61 6c 63 2d 70 72 65 73 |r-used c|alc-pres|
|00002fc0| 65 72 76 65 2d 70 6f 69 | 6e 74 20 31 20 63 61 6c |erve-poi|nt 1 cal|
|00002fd0| 63 2d 6c 6f 63 61 74 65 | 2d 63 75 72 73 6f 72 2d |c-locate|-cursor-|
|00002fe0| 65 6c 65 6d 65 6e 74 20 | 63 61 6c 63 2d 74 6f 70 |element |calc-top|
|00002ff0| 20 63 61 6c 63 2d 61 75 | 74 6f 2d 73 65 6c 65 63 | calc-au|to-selec|
|00003000| 74 69 6f 6e 20 6e 69 6c | 20 30 20 63 61 6c 63 2d |tion nil| 0 calc-|
|00003010| 64 6f 2d 61 6c 67 2d 65 | 6e 74 72 79 20 22 22 20 |do-alg-e|ntry "" |
|00003020| 22 52 65 70 6c 61 63 65 | 20 73 65 6c 65 63 74 69 |"Replace| selecti|
|00003030| 6f 6e 20 77 69 74 68 3a | 20 22 20 63 61 6c 63 2d |on with:| " calc-|
|00003040| 65 6e 63 61 73 65 2d 61 | 74 6f 6d 73 20 63 61 6c |encase-a|toms cal|
|00003050| 63 2d 70 6f 70 2d 70 75 | 73 68 2d 72 65 63 6f 72 |c-pop-pu|sh-recor|
|00003060| 64 2d 6c 69 73 74 20 22 | 72 65 70 6c 22 20 63 61 |d-list "|repl" ca|
|00003070| 6c 63 2d 72 65 70 6c 61 | 63 65 2d 73 75 62 2d 66 |lc-repla|ce-sub-f|
|00003080| 6f 72 6d 75 6c 61 20 63 | 61 6c 63 2d 68 61 6e 64 |ormula c|alc-hand|
|00003090| 6c 65 2d 77 68 79 73 5d | 20 31 33 29 29 5d 20 32 |le-whys]| 13))] 2|
|000030a0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|000030b0| 65 64 69 74 2d 73 65 6c | 65 63 74 69 6f 6e 20 6e |edit-sel|ection n|
|000030c0| 69 6c 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |il (inte|ractive)|
|000030d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c1 | (byte-c|ode "...|
|000030e0| c2 21 88 c3 20 87 22 20 | 5b 6e 69 6c 20 63 61 6c |.!.. ." |[nil cal|
|000030f0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|00003100| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 ca 20 88 | (byte-c|ode ". .|
|00003110| cb cc 60 21 5d 18 0a 19 | cd 08 c3 5c 22 1b 0b 40 |..`!]...|...\"..@|
|00003120| 1c ce 0b 21 86 1a 00 0c | 1d cf 1e 06 0e 09 1e 08 |...!....|........|
|00003130| d0 0d d1 20 5c 22 29 1e | 07 d2 d3 08 d4 0d 44 09 |... \").|......D.|
|00003140| 46 21 88 d5 0e 07 d6 5c | 22 29 2e 06 87 22 20 5b |F!.....\|")..." [|
|00003150| 6e 75 6d 20 72 65 73 65 | 6c 65 63 74 20 63 61 6c |num rese|lect cal|
|00003160| 63 2d 6b 65 65 70 2d 73 | 65 6c 65 63 74 69 6f 6e |c-keep-s|election|
|00003170| 20 65 6e 74 72 79 20 65 | 78 70 72 20 73 65 6c 20 | entry e|xpr sel |
|00003180| 61 6c 67 20 73 74 72 20 | 63 61 6c 63 2d 66 6c 6f |alg str |calc-flo|
|00003190| 61 74 2d 66 6f 72 6d 61 | 74 20 63 61 6c 63 2d 66 |at-forma|t calc-f|
|000031a0| 75 6c 6c 2d 66 6c 6f 61 | 74 2d 66 6f 72 6d 61 74 |ull-floa|t-format|
|000031b0| 20 63 61 6c 63 2d 70 72 | 65 73 65 72 76 65 2d 70 | calc-pr|eserve-p|
|000031c0| 6f 69 6e 74 20 31 20 63 | 61 6c 63 2d 6c 6f 63 61 |oint 1 c|alc-loca|
|000031d0| 74 65 2d 63 75 72 73 6f | 72 2d 65 6c 65 6d 65 6e |te-curso|r-elemen|
|000031e0| 74 20 63 61 6c 63 2d 74 | 6f 70 20 63 61 6c 63 2d |t calc-t|op calc-|
|000031f0| 61 75 74 6f 2d 73 65 6c | 65 63 74 69 6f 6e 20 6e |auto-sel|ection n|
|00003200| 69 6c 20 6d 61 74 68 2d | 66 6f 72 6d 61 74 2d 6e |il math-|format-n|
|00003210| 69 63 65 2d 65 78 70 72 | 20 73 63 72 65 65 6e 2d |ice-expr| screen-|
|00003220| 77 69 64 74 68 20 63 61 | 6c 63 2d 65 64 69 74 2d |width ca|lc-edit-|
|00003230| 6d 6f 64 65 20 63 61 6c | 63 2d 66 69 6e 69 73 68 |mode cal|c-finish|
|00003240| 2d 73 65 6c 65 63 74 69 | 6f 6e 2d 65 64 69 74 20 |-selecti|on-edit |
|00003250| 71 75 6f 74 65 20 69 6e | 73 65 72 74 20 22 0a 22 |quote in|sert "."|
|00003260| 5d 20 31 31 29 29 20 63 | 61 6c 63 2d 73 68 6f 77 |] 11)) c|alc-show|
|00003270| 2d 65 64 69 74 2d 62 75 | 66 66 65 72 5d 20 33 29 |-edit-bu|ffer] 3)|
|00003280| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 66 |)..(defu|n calc-f|
|00003290| 69 6e 69 73 68 2d 73 65 | 6c 65 63 74 69 6f 6e 2d |inish-se|lection-|
|000032a0| 65 64 69 74 20 28 6e 75 | 6d 20 73 65 6c 20 72 65 |edit (nu|m sel re|
|000032b0| 73 65 6c 65 63 74 29 20 | 28 62 79 74 65 2d 63 6f |select) |(byte-co|
|000032c0| 64 65 20 22 70 c5 60 64 | 5c 22 60 1a 19 18 c6 0b |de "p.`d|\"`.....|
|000032d0| 21 88 c7 09 21 1c c8 0c | 21 c9 3d 85 29 00 c6 08 |!...!...|!.=.)...|
|000032e0| 21 88 0a ca 0c 38 5c 5c | 62 88 c9 cb 0c 38 21 88 |!....8\\|b....8!.|
|000032f0| cc cd 21 29 2b 87 22 20 | 5b 62 75 66 20 73 74 72 |..!)+." |[buf str|
|00003300| 20 73 74 61 72 74 20 63 | 61 6c 63 2d 6f 72 69 67 | start c|alc-orig|
|00003310| 69 6e 61 6c 2d 62 75 66 | 66 65 72 20 76 61 6c 20 |inal-buf|fer val |
|00003320| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00003330| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|00003340| 72 20 6d 61 74 68 2d 72 | 65 61 64 2d 65 78 70 72 |r math-r|ead-expr|
|00003350| 20 63 61 72 2d 73 61 66 | 65 20 65 72 72 6f 72 20 | car-saf|e error |
|00003360| 31 20 32 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |1 2 calc|-do (lam|
|00003370| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|00003380| 64 65 20 22 c7 20 88 08 | 85 0b 00 c8 c9 c1 5c 22 |de ". ..|......\"|
|00003390| 88 ca cb 0a 21 21 89 12 | 88 cc 0c cd 5c 22 1b ce |....!!..|....\"..|
|000033a0| 0b 0d 5c 22 83 35 00 cf | c9 d0 d1 0b 0d 0a 23 43 |..\".5..|......#C|
|000033b0| 0c 0e 06 85 30 00 0a 43 | 25 82 3c 00 d2 0a 21 88 |....0..C|%.<...!.|
|000033c0| d3 d4 21 29 87 22 20 5b | 64 69 73 70 2d 74 72 61 |..!)." [|disp-tra|
|000033d0| 69 6c 20 74 20 76 61 6c | 20 65 78 70 72 20 6e 75 |il t val| expr nu|
|000033e0| 6d 20 73 65 6c 20 72 65 | 73 65 6c 65 63 74 20 63 |m sel re|select c|
|000033f0| 61 6c 63 2d 70 72 65 73 | 65 72 76 65 2d 70 6f 69 |alc-pres|erve-poi|
|00003400| 6e 74 20 63 61 6c 63 2d | 74 72 61 69 6c 2d 64 69 |nt calc-|trail-di|
|00003410| 73 70 6c 61 79 20 31 20 | 63 61 6c 63 2d 65 6e 63 |splay 1 |calc-enc|
|00003420| 61 73 65 2d 61 74 6f 6d | 73 20 63 61 6c 63 2d 6e |ase-atom|s calc-n|
|00003430| 6f 72 6d 61 6c 69 7a 65 | 20 63 61 6c 63 2d 74 6f |ormalize| calc-to|
|00003440| 70 20 66 75 6c 6c 20 63 | 61 6c 63 2d 66 69 6e 64 |p full c|alc-find|
|00003450| 2d 73 75 62 2d 66 6f 72 | 6d 75 6c 61 20 63 61 6c |-sub-for|mula cal|
|00003460| 63 2d 70 6f 70 2d 70 75 | 73 68 2d 72 65 63 6f 72 |c-pop-pu|sh-recor|
|00003470| 64 2d 6c 69 73 74 20 22 | 65 64 69 74 22 20 63 61 |d-list "|edit" ca|
|00003480| 6c 63 2d 72 65 70 6c 61 | 63 65 2d 73 75 62 2d 66 |lc-repla|ce-sub-f|
|00003490| 6f 72 6d 75 6c 61 20 63 | 61 6c 63 2d 70 75 73 68 |ormula c|alc-push|
|000034a0| 20 65 72 72 6f 72 20 22 | 4f 72 69 67 69 6e 61 6c | error "|Original|
|000034b0| 20 73 65 6c 65 63 74 69 | 6f 6e 20 68 61 73 20 62 | selecti|on has b|
|000034c0| 65 65 6e 20 6c 6f 73 74 | 22 5d 20 31 33 29 29 5d |een lost|"] 13))]|
|000034d0| 20 38 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 8))..(d|efun cal|
|000034e0| 63 2d 73 65 6c 2d 65 76 | 61 6c 75 61 74 65 20 28 |c-sel-ev|aluate (|
|000034f0| 61 72 67 29 20 28 69 6e | 74 65 72 61 63 74 69 76 |arg) (in|teractiv|
|00003500| 65 20 22 70 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "p") (|byte-cod|
|00003510| 65 20 22 c0 88 c1 c2 c3 | 5c 22 87 22 20 5b 6e 69 |e ".....|\"." [ni|
|00003520| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00003530| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|00003540| 20 22 ca 20 88 cb cc 60 | 21 5d 18 0a 19 cd 08 c3 | ". ...`|!]......|
|00003550| 5c 22 1b ce 0b 21 86 18 | 00 0b 40 1c 0d cf 3e 3f |\"...!..|..@...>?|
|00003560| 85 21 00 0d 1d c7 1e 06 | d0 0e 08 21 88 d1 d2 0c |.!......|...!....|
|00003570| 21 21 1e 09 d3 cb d4 d5 | 0b 40 0c 0e 09 23 43 08 |!!......|.@...#C.|
|00003580| 09 85 43 00 0e 09 43 25 | 29 29 29 88 d6 20 2c 87 |..C...C%|))).. ,.|
|00003590| 22 20 5b 6e 75 6d 20 72 | 65 73 65 6c 65 63 74 20 |" [num r|eselect |
|000035a0| 63 61 6c 63 2d 6b 65 65 | 70 2d 73 65 6c 65 63 74 |calc-kee|p-select|
|000035b0| 69 6f 6e 20 65 6e 74 72 | 79 20 73 65 6c 20 63 61 |ion entr|y sel ca|
|000035c0| 6c 63 2d 73 69 6d 70 6c | 69 66 79 2d 6d 6f 64 65 |lc-simpl|ify-mode|
|000035d0| 20 6d 61 74 68 2d 73 69 | 6d 70 6c 69 66 79 2d 6f | math-si|mplify-o|
|000035e0| 6e 6c 79 20 6e 69 6c 20 | 61 72 67 20 76 61 6c 20 |nly nil |arg val |
|000035f0| 63 61 6c 63 2d 70 72 65 | 73 65 72 76 65 2d 70 6f |calc-pre|serve-po|
|00003600| 69 6e 74 20 31 20 63 61 | 6c 63 2d 6c 6f 63 61 74 |int 1 ca|lc-locat|
|00003610| 65 2d 63 75 72 73 6f 72 | 2d 65 6c 65 6d 65 6e 74 |e-cursor|-element|
|00003620| 20 63 61 6c 63 2d 74 6f | 70 20 63 61 6c 63 2d 61 | calc-to|p calc-a|
|00003630| 75 74 6f 2d 73 65 6c 65 | 63 74 69 6f 6e 20 28 6e |uto-sele|ction (n|
|00003640| 6f 6e 65 20 6e 75 6d 29 | 20 63 61 6c 63 2d 6d 6f |one num)| calc-mo|
|00003650| 64 69 66 79 2d 73 69 6d | 70 6c 69 66 79 2d 6d 6f |dify-sim|plify-mo|
|00003660| 64 65 20 63 61 6c 63 2d | 65 6e 63 61 73 65 2d 61 |de calc-|encase-a|
|00003670| 74 6f 6d 73 20 63 61 6c | 63 2d 6e 6f 72 6d 61 6c |toms cal|c-normal|
|00003680| 69 7a 65 20 63 61 6c 63 | 2d 70 6f 70 2d 70 75 73 |ize calc|-pop-pus|
|00003690| 68 2d 72 65 63 6f 72 64 | 2d 6c 69 73 74 20 22 6a |h-record|-list "j|
|000036a0| 73 6d 70 22 20 63 61 6c | 63 2d 72 65 70 6c 61 63 |smp" cal|c-replac|
|000036b0| 65 2d 73 75 62 2d 66 6f | 72 6d 75 6c 61 20 63 61 |e-sub-fo|rmula ca|
|000036c0| 6c 63 2d 68 61 6e 64 6c | 65 2d 77 68 79 73 5d 20 |lc-handl|e-whys] |
|000036d0| 31 34 29 29 20 31 33 35 | 35 35 5d 20 33 29 29 0a |14)) 135|55] 3)).|
|000036e0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 73 65 6c |.(defun |calc-sel|
|000036f0| 2d 65 78 70 61 6e 64 2d | 66 6f 72 6d 75 6c 61 20 |-expand-|formula |
|00003700| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00003710| 76 65 20 22 70 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "p") |(byte-co|
|00003720| 64 65 20 22 c0 88 c1 c2 | c3 5c 22 87 22 20 5b 6e |de "....|.\"." [n|
|00003730| 69 6c 20 63 61 6c 63 2d | 64 6f 20 28 6c 61 6d 62 |il calc-|do (lamb|
|00003740| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|00003750| 65 20 22 cc 20 88 cd ce | 60 21 5d 18 0a 19 cf 08 |e ". ...|`!].....|
|00003760| c3 5c 22 1b d0 0b 21 86 | 18 00 0b 40 1c 0d d1 3e |.\"...!.|...@...>|
|00003770| 3f 85 21 00 0d 1d c7 1e | 06 d2 0e 08 21 88 0e 08 |?.!.....|....!...|
|00003780| d3 56 1e 09 d4 0c 21 1e | 0a c7 1e 0b 0e 08 d3 58 |.V....!.|.......X|
|00003790| 85 50 00 d5 0e 0a 21 89 | 16 0b 85 50 00 d4 0e 0b |.P....!.|...P....|
|000037a0| 21 89 16 0a 88 d6 0e 0a | 21 89 16 0a 88 d7 cd d8 |!.......|!.......|
|000037b0| d9 0b 40 0c 0e 0a 23 43 | 08 09 85 6b 00 0e 0a 43 |..@...#C|...k...C|
|000037c0| 25 2b 29 29 88 da 20 2c | 87 22 20 5b 6e 75 6d 20 |%+)).. ,|." [num |
|000037d0| 72 65 73 65 6c 65 63 74 | 20 63 61 6c 63 2d 6b 65 |reselect| calc-ke|
|000037e0| 65 70 2d 73 65 6c 65 63 | 74 69 6f 6e 20 65 6e 74 |ep-selec|tion ent|
|000037f0| 72 79 20 73 65 6c 20 63 | 61 6c 63 2d 73 69 6d 70 |ry sel c|alc-simp|
|00003800| 6c 69 66 79 2d 6d 6f 64 | 65 20 6d 61 74 68 2d 73 |lify-mod|e math-s|
|00003810| 69 6d 70 6c 69 66 79 2d | 6f 6e 6c 79 20 6e 69 6c |implify-|only nil|
|00003820| 20 61 72 67 20 6d 61 74 | 68 2d 65 78 70 61 6e 64 | arg mat|h-expand|
|00003830| 2d 66 6f 72 6d 75 6c 61 | 73 20 76 61 6c 20 74 6f |-formula|s val to|
|00003840| 70 20 63 61 6c 63 2d 70 | 72 65 73 65 72 76 65 2d |p calc-p|reserve-|
|00003850| 70 6f 69 6e 74 20 31 20 | 63 61 6c 63 2d 6c 6f 63 |point 1 |calc-loc|
|00003860| 61 74 65 2d 63 75 72 73 | 6f 72 2d 65 6c 65 6d 65 |ate-curs|or-eleme|
|00003870| 6e 74 20 63 61 6c 63 2d | 74 6f 70 20 63 61 6c 63 |nt calc-|top calc|
|00003880| 2d 61 75 74 6f 2d 73 65 | 6c 65 63 74 69 6f 6e 20 |-auto-se|lection |
|00003890| 28 6e 6f 6e 65 20 6e 75 | 6d 29 20 63 61 6c 63 2d |(none nu|m) calc-|
|000038a0| 6d 6f 64 69 66 79 2d 73 | 69 6d 70 6c 69 66 79 2d |modify-s|implify-|
|000038b0| 6d 6f 64 65 20 30 20 63 | 61 6c 63 2d 6e 6f 72 6d |mode 0 c|alc-norm|
|000038c0| 61 6c 69 7a 65 20 6d 61 | 74 68 2d 65 78 70 61 6e |alize ma|th-expan|
|000038d0| 64 2d 66 6f 72 6d 75 6c | 61 20 63 61 6c 63 2d 65 |d-formul|a calc-e|
|000038e0| 6e 63 61 73 65 2d 61 74 | 6f 6d 73 20 63 61 6c 63 |ncase-at|oms calc|
|000038f0| 2d 70 6f 70 2d 70 75 73 | 68 2d 72 65 63 6f 72 64 |-pop-pus|h-record|
|00003900| 2d 6c 69 73 74 20 22 6a | 65 78 66 22 20 63 61 6c |-list "j|exf" cal|
|00003910| 63 2d 72 65 70 6c 61 63 | 65 2d 73 75 62 2d 66 6f |c-replac|e-sub-fo|
|00003920| 72 6d 75 6c 61 20 63 61 | 6c 63 2d 68 61 6e 64 6c |rmula ca|lc-handl|
|00003930| 65 2d 77 68 79 73 5d 20 | 31 36 29 29 20 31 34 30 |e-whys] |16)) 140|
|00003940| 37 38 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |78] 3)).|.(defun |
|00003950| 63 61 6c 63 2d 73 65 6c | 2d 6d 75 6c 74 2d 62 6f |calc-sel|-mult-bo|
|00003960| 74 68 2d 73 69 64 65 73 | 20 28 6e 6f 2d 73 69 6d |th-sides| (no-sim|
|00003970| 70 20 26 6f 70 74 69 6f | 6e 61 6c 20 64 69 76 69 |p &optio|nal divi|
|00003980| 64 65 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |de) (int|eractive|
|00003990| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|000039a0| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|000039b0| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|000039c0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 ce |il (byte|-code ".|
|000039d0| 20 88 cf d0 60 21 5d 18 | 0a 19 d1 08 c3 5c 22 1b | ...`!].|.....\".|
|000039e0| 0b 40 1c d2 0b 21 86 1a | 00 0c 1d d3 0d 21 1e 06 |.@...!..|.....!..|
|000039f0| d4 1e 07 d4 1e 08 d4 1e | 09 0e 0a d5 3e 3f 85 33 |........|....>?.3|
|00003a00| 00 0e 0a 1e 0a d6 d7 0e | 0b 83 40 00 d8 82 41 00 |........|..@...A.|
|00003a10| d9 5c 22 40 29 89 16 07 | 88 0e 07 85 7c 01 0e 06 |.\"@)...|....|...|
|00003a20| da 3d 86 5a 00 db 0e 06 | 0e 0c 5c 22 85 61 00 0d |.=.Z....|..\".a..|
|00003a30| 47 dc 55 83 25 01 0e 06 | dd 3e 86 a2 00 de 0e 07 |G.U.%...|.>......|
|00003a40| 21 83 8b 00 cf db 0e 06 | 0e 0c 5c 22 38 89 16 06 |!.......|..\"8...|
|00003a50| 88 df 0e 07 21 86 88 00 | e0 e1 21 82 a2 00 e2 0e |....!...|..!.....|
|00003a60| 07 21 86 a2 00 e3 0e 07 | 21 83 9f 00 e0 e1 21 82 |.!......|!.....!.|
|00003a70| a2 00 e0 e4 21 88 0e 0b | 83 ac 00 da 82 ad 00 e5 |....!...|........|
|00003a80| cf 0d 38 0e 07 45 16 08 | 0e 0b 83 be 00 da 82 bf |..8..E..|........|
|00003a90| 00 e5 e6 0d 38 0e 07 45 | 89 16 09 88 0e 0d 86 13 |....8..E|........|
|00003aa0| 01 e7 0e 08 21 16 08 e7 | 0e 09 21 89 16 09 88 0e |....!...|..!.....|
|00003ab0| 06 da 3d 85 13 01 e8 cf | 0d 38 cf 5c 22 e9 55 86 |..=.....|.8.\".U.|
|00003ac0| 09 01 e8 cf 0d 38 ea 5c | 22 e9 55 86 09 01 d3 e6 |.....8.\|".U.....|
|00003ad0| 0d 38 21 eb 3e 85 09 01 | d3 0e 07 21 ec 3e 85 13 |.8!.>...|...!.>..|
|00003ae0| 01 ed 0e 09 21 89 16 09 | 88 ee ef 0e 06 0e 08 0e |....!...|........|
|00003af0| 09 45 21 21 89 16 07 82 | 5f 01 0e 0b 83 2e 01 e5 |.E!!....|_.......|
|00003b00| 82 2f 01 da 0d 0e 07 45 | 89 16 09 88 0e 0d 86 43 |./.....E|.......C|
|00003b10| 01 e7 0e 09 21 89 16 09 | 88 ee ef 0e 0b 83 54 01 |....!...|......T.|
|00003b20| da 0e 09 0e 07 45 82 5a | 01 e5 0e 07 0e 09 45 21 |.....E.Z|......E!|
|00003b30| 21 89 16 07 88 f0 cf 0e | 0b 83 6b 01 f1 82 6c 01 |!.......|..k...l.|
|00003b40| f2 f3 0c 0d 0e 07 23 43 | 08 09 85 7a 01 0e 07 43 |......#C|...z...C|
|00003b50| 25 88 f4 20 2e 09 87 22 | 20 5b 6e 75 6d 20 72 65 |%.. ..."| [num re|
|00003b60| 73 65 6c 65 63 74 20 63 | 61 6c 63 2d 6b 65 65 70 |select c|alc-keep|
|00003b70| 2d 73 65 6c 65 63 74 69 | 6f 6e 20 65 6e 74 72 79 |-selecti|on entry|
|00003b80| 20 65 78 70 72 20 73 65 | 6c 20 66 75 6e 63 20 61 | expr se|l func a|
|00003b90| 6c 67 20 6c 68 73 20 72 | 68 73 20 63 61 6c 63 2d |lg lhs r|hs calc-|
|00003ba0| 73 69 6d 70 6c 69 66 79 | 2d 6d 6f 64 65 20 64 69 |simplify|-mode di|
|00003bb0| 76 69 64 65 20 63 61 6c | 63 2d 74 77 65 61 6b 2d |vide cal|c-tweak-|
|00003bc0| 65 71 6e 2d 74 61 62 6c | 65 20 6e 6f 2d 73 69 6d |eqn-tabl|e no-sim|
|00003bd0| 70 20 63 61 6c 63 2d 70 | 72 65 73 65 72 76 65 2d |p calc-p|reserve-|
|00003be0| 70 6f 69 6e 74 20 31 20 | 63 61 6c 63 2d 6c 6f 63 |point 1 |calc-loc|
|00003bf0| 61 74 65 2d 63 75 72 73 | 6f 72 2d 65 6c 65 6d 65 |ate-curs|or-eleme|
|00003c00| 6e 74 20 63 61 6c 63 2d | 74 6f 70 20 63 61 6c 63 |nt calc-|top calc|
|00003c10| 2d 61 75 74 6f 2d 73 65 | 6c 65 63 74 69 6f 6e 20 |-auto-se|lection |
|00003c20| 63 61 72 2d 73 61 66 65 | 20 6e 69 6c 20 28 6e 6f |car-safe| nil (no|
|00003c30| 6e 65 20 6e 75 6d 29 20 | 63 61 6c 63 2d 64 6f 2d |ne num) |calc-do-|
|00003c40| 61 6c 67 2d 65 6e 74 72 | 79 20 22 22 20 22 44 69 |alg-entr|y "" "Di|
|00003c50| 76 69 64 65 20 62 6f 74 | 68 20 73 69 64 65 73 20 |vide bot|h sides |
|00003c60| 62 79 3a 20 22 20 22 4d | 75 6c 74 69 70 6c 79 20 |by: " "M|ultiply |
|00003c70| 62 6f 74 68 20 73 69 64 | 65 73 20 62 79 3a 20 22 |both sid|es by: "|
|00003c80| 20 2f 20 61 73 73 71 20 | 33 20 28 2f 20 63 61 6c | / assq |3 (/ cal|
|00003c90| 63 46 75 6e 63 2d 65 71 | 20 63 61 6c 63 46 75 6e |cFunc-eq| calcFun|
|00003ca0| 63 2d 6e 65 71 29 20 6d | 61 74 68 2d 6b 6e 6f 77 |c-neq) m|ath-know|
|00003cb0| 6e 2d 6e 6f 6e 70 6f 73 | 70 20 6d 61 74 68 2d 6b |n-nonpos|p math-k|
|00003cc0| 6e 6f 77 6e 2d 6e 65 67 | 70 20 6d 65 73 73 61 67 |nown-neg|p messag|
|00003cd0| 65 20 22 41 73 73 75 6d | 69 6e 67 20 74 68 69 73 |e "Assum|ing this|
|00003ce0| 20 66 61 63 74 6f 72 20 | 69 73 20 6e 6f 6e 7a 65 | factor |is nonze|
|00003cf0| 72 6f 22 20 6d 61 74 68 | 2d 6b 6e 6f 77 6e 2d 70 |ro" math|-known-p|
|00003d00| 6f 73 70 20 6d 61 74 68 | 2d 6b 6e 6f 77 6e 2d 6e |osp math|-known-n|
|00003d10| 6f 6e 6e 65 67 70 20 22 | 41 73 73 75 6d 69 6e 67 |onnegp "|Assuming|
|00003d20| 20 74 68 69 73 20 66 61 | 63 74 6f 72 20 69 73 20 | this fa|ctor is |
|00003d30| 70 6f 73 69 74 69 76 65 | 22 20 2a 20 32 20 6d 61 |positive|" * 2 ma|
|00003d40| 74 68 2d 73 69 6d 70 6c | 69 66 79 20 6d 61 74 68 |th-simpl|ify math|
|00003d50| 2d 63 6f 6d 70 61 72 65 | 20 30 20 2d 31 20 28 2b |-compare| 0 -1 (+|
|00003d60| 20 2d 29 20 28 2b 20 2d | 29 20 6d 61 74 68 2d 65 | -) (+ -|) math-e|
|00003d70| 78 70 61 6e 64 2d 74 65 | 72 6d 20 63 61 6c 63 2d |xpand-te|rm calc-|
|00003d80| 65 6e 63 61 73 65 2d 61 | 74 6f 6d 73 20 63 61 6c |encase-a|toms cal|
|00003d90| 63 2d 6e 6f 72 6d 61 6c | 69 7a 65 20 63 61 6c 63 |c-normal|ize calc|
|00003da0| 2d 70 6f 70 2d 70 75 73 | 68 2d 72 65 63 6f 72 64 |-pop-pus|h-record|
|00003db0| 2d 6c 69 73 74 20 22 64 | 69 76 22 20 22 6d 75 6c |-list "d|iv" "mul|
|00003dc0| 74 22 20 63 61 6c 63 2d | 72 65 70 6c 61 63 65 2d |t" calc-|replace-|
|00003dd0| 73 75 62 2d 66 6f 72 6d | 75 6c 61 20 63 61 6c 63 |sub-form|ula calc|
|00003de0| 2d 68 61 6e 64 6c 65 2d | 77 68 79 73 5d 20 33 34 |-handle-|whys] 34|
|00003df0| 29 29 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |))] 2)).|.(defun |
|00003e00| 63 61 6c 63 2d 73 65 6c | 2d 64 69 76 2d 62 6f 74 |calc-sel|-div-bot|
|00003e10| 68 2d 73 69 64 65 73 20 | 28 6e 6f 2d 73 69 6d 70 |h-sides |(no-simp|
|00003e20| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00003e30| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00003e40| c2 88 c3 08 c1 5c 22 87 | 22 20 5b 6e 6f 2d 73 69 |.....\".|" [no-si|
|00003e50| 6d 70 20 74 20 6e 69 6c | 20 63 61 6c 63 2d 73 65 |mp t nil| calc-se|
|00003e60| 6c 2d 6d 75 6c 74 2d 62 | 6f 74 68 2d 73 69 64 65 |l-mult-b|oth-side|
|00003e70| 73 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |s] 3))..|(defun c|
|00003e80| 61 6c 63 2d 73 65 6c 2d | 61 64 64 2d 62 6f 74 68 |alc-sel-|add-both|
|00003e90| 2d 73 69 64 65 73 20 28 | 6e 6f 2d 73 69 6d 70 20 |-sides (|no-simp |
|00003ea0| 26 6f 70 74 69 6f 6e 61 | 6c 20 73 75 62 74 72 61 |&optiona|l subtra|
|00003eb0| 63 74 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |ct) (int|eractive|
|00003ec0| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00003ed0| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00003ee0| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00003ef0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 ce |il (byte|-code ".|
|00003f00| 20 88 cf d0 60 21 5d 18 | 0a 19 d1 08 c3 5c 22 1b | ...`!].|.....\".|
|00003f10| 0b 40 1c d2 0b 21 86 1a | 00 0c 1d d3 0d 21 1e 06 |.@...!..|.....!..|
|00003f20| d4 1e 07 d4 1e 08 d4 1e | 09 0e 0a d5 3e 3f 85 33 |........|....>?.3|
|00003f30| 00 0e 0a 1e 0a d6 d7 0e | 0b 83 40 00 d8 82 41 00 |........|..@...A.|
|00003f40| d9 5c 22 40 29 89 16 07 | 88 0e 07 85 f9 00 da 0e |.\"@)...|........|
|00003f50| 06 0e 0c 5c 22 85 5a 00 | 0d 47 db 55 83 a7 00 0e |...\".Z.|.G.U....|
|00003f60| 0b 83 66 00 dc 82 67 00 | dd cf 0d 38 0e 07 45 16 |..f...g.|...8..E.|
|00003f70| 08 0e 0b 83 78 00 dc 82 | 79 00 dd de 0d 38 0e 07 |....x...|y....8..|
|00003f80| 45 89 16 09 88 0e 0d 86 | 95 00 df 0e 08 21 16 08 |E.......|.....!..|
|00003f90| df 0e 09 21 89 16 09 88 | e0 e1 0e 06 0e 08 0e 09 |...!....|........|
|00003fa0| 45 21 21 89 16 07 82 dc | 00 0e 0b 83 b0 00 dd 82 |E!!.....|........|
|00003fb0| b1 00 dc 0d 0e 07 45 89 | 16 09 88 0e 0d 86 c5 00 |......E.|........|
|00003fc0| df 0e 09 21 89 16 09 88 | e0 e1 0e 0b 83 d1 00 dc |...!....|........|
|00003fd0| 82 d2 00 dd 0e 07 0e 09 | 45 21 21 89 16 07 88 e2 |........|E!!.....|
|00003fe0| cf 0e 0b 83 e8 00 e3 82 | e9 00 e4 e5 0c 0d 0e 07 |........|........|
|00003ff0| 23 43 08 09 85 f7 00 0e | 07 43 25 88 e6 20 2e 09 |#C......|.C%.. ..|
|00004000| 87 22 20 5b 6e 75 6d 20 | 72 65 73 65 6c 65 63 74 |." [num |reselect|
|00004010| 20 63 61 6c 63 2d 6b 65 | 65 70 2d 73 65 6c 65 63 | calc-ke|ep-selec|
|00004020| 74 69 6f 6e 20 65 6e 74 | 72 79 20 65 78 70 72 20 |tion ent|ry expr |
|00004030| 73 65 6c 20 66 75 6e 63 | 20 61 6c 67 20 6c 68 73 |sel func| alg lhs|
|00004040| 20 72 68 73 20 63 61 6c | 63 2d 73 69 6d 70 6c 69 | rhs cal|c-simpli|
|00004050| 66 79 2d 6d 6f 64 65 20 | 73 75 62 74 72 61 63 74 |fy-mode |subtract|
|00004060| 20 63 61 6c 63 2d 74 77 | 65 61 6b 2d 65 71 6e 2d | calc-tw|eak-eqn-|
|00004070| 74 61 62 6c 65 20 6e 6f | 2d 73 69 6d 70 20 63 61 |table no|-simp ca|
|00004080| 6c 63 2d 70 72 65 73 65 | 72 76 65 2d 70 6f 69 6e |lc-prese|rve-poin|
|00004090| 74 20 31 20 63 61 6c 63 | 2d 6c 6f 63 61 74 65 2d |t 1 calc|-locate-|
|000040a0| 63 75 72 73 6f 72 2d 65 | 6c 65 6d 65 6e 74 20 63 |cursor-e|lement c|
|000040b0| 61 6c 63 2d 74 6f 70 20 | 63 61 6c 63 2d 61 75 74 |alc-top |calc-aut|
|000040c0| 6f 2d 73 65 6c 65 63 74 | 69 6f 6e 20 63 61 72 2d |o-select|ion car-|
|000040d0| 73 61 66 65 20 6e 69 6c | 20 28 6e 6f 6e 65 20 6e |safe nil| (none n|
|000040e0| 75 6d 29 20 63 61 6c 63 | 2d 64 6f 2d 61 6c 67 2d |um) calc|-do-alg-|
|000040f0| 65 6e 74 72 79 20 22 22 | 20 22 53 75 62 74 72 61 |entry ""| "Subtra|
|00004100| 63 74 20 66 72 6f 6d 20 | 62 6f 74 68 20 73 69 64 |ct from |both sid|
|00004110| 65 73 3a 20 22 20 22 41 | 64 64 20 74 6f 20 62 6f |es: " "A|dd to bo|
|00004120| 74 68 20 73 69 64 65 73 | 3a 20 22 20 61 73 73 71 |th sides|: " assq|
|00004130| 20 33 20 2d 20 2b 20 32 | 20 6d 61 74 68 2d 73 69 | 3 - + 2| math-si|
|00004140| 6d 70 6c 69 66 79 20 63 | 61 6c 63 2d 65 6e 63 61 |mplify c|alc-enca|
|00004150| 73 65 2d 61 74 6f 6d 73 | 20 63 61 6c 63 2d 6e 6f |se-atoms| calc-no|
|00004160| 72 6d 61 6c 69 7a 65 20 | 63 61 6c 63 2d 70 6f 70 |rmalize |calc-pop|
|00004170| 2d 70 75 73 68 2d 72 65 | 63 6f 72 64 2d 6c 69 73 |-push-re|cord-lis|
|00004180| 74 20 22 73 75 62 22 20 | 22 61 64 64 22 20 63 61 |t "sub" |"add" ca|
|00004190| 6c 63 2d 72 65 70 6c 61 | 63 65 2d 73 75 62 2d 66 |lc-repla|ce-sub-f|
|000041a0| 6f 72 6d 75 6c 61 20 63 | 61 6c 63 2d 68 61 6e 64 |ormula c|alc-hand|
|000041b0| 6c 65 2d 77 68 79 73 5d | 20 32 31 29 29 5d 20 32 |le-whys]| 21))] 2|
|000041c0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|000041d0| 73 65 6c 2d 73 75 62 2d | 62 6f 74 68 2d 73 69 64 |sel-sub-|both-sid|
|000041e0| 65 73 20 28 6e 6f 2d 73 | 69 6d 70 29 20 28 69 6e |es (no-s|imp) (in|
|000041f0| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|00004200| 62 79 74 65 2d 63 6f 64 | 65 20 22 c2 88 c3 08 c1 |byte-cod|e ".....|
|00004210| 5c 22 87 22 20 5b 6e 6f | 2d 73 69 6d 70 20 74 20 |\"." [no|-simp t |
|00004220| 6e 69 6c 20 63 61 6c 63 | 2d 73 65 6c 2d 61 64 64 |nil calc|-sel-add|
|00004230| 2d 62 6f 74 68 2d 73 69 | 64 65 73 5d 20 33 29 29 |-both-si|des] 3))|
|00004240| 0a | |. | |
+--------+-------------------------+-------------------------+--------+--------+
