home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 22.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs 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 65 6d 62 65 64 | 20 6e 69 6c 20 28 62 79 |lc-embed| nil (by|
|00000040| 74 65 2d 63 6f 64 65 20 | 22 c0 87 22 20 5b 6e 69 |te-code |".." [ni|
|00000050| 6c 5d 20 31 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |l] 1))..|(defun c|
|00000060| 61 6c 63 2d 73 68 6f 77 | 2d 70 6c 61 69 6e 20 28 |alc-show|-plain (|
|00000070| 6e 29 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |n) (inte|ractive |
|00000080| 22 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"P") (by|te-code |
|00000090| 22 c0 88 c1 c2 21 87 22 | 20 5b 6e 69 6c 20 63 61 |"....!."| [nil ca|
|000000a0| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|000000b0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c3 c4 |l (byte-|code "..|
|000000c0| 21 88 c5 c6 c7 08 c1 c2 | 24 83 12 00 c8 82 13 00 |!.......|$.......|
|000000d0| c9 21 87 22 20 5b 6e 20 | 6e 69 6c 20 74 20 63 61 |.!." [n |nil t ca|
|000000e0| 6c 63 2d 73 65 74 2d 63 | 6f 6d 6d 61 6e 64 2d 66 |lc-set-c|ommand-f|
|000000f0| 6c 61 67 20 72 65 6e 75 | 6d 2d 73 74 61 63 6b 20 |lag renu|m-stack |
|00000100| 6d 65 73 73 61 67 65 20 | 63 61 6c 63 2d 63 68 61 |message |calc-cha|
|00000110| 6e 67 65 2d 6d 6f 64 65 | 20 63 61 6c 63 2d 73 68 |nge-mode| calc-sh|
|00000120| 6f 77 2d 70 6c 61 69 6e | 20 22 49 6e 63 6c 75 64 |ow-plain| "Includ|
|00000130| 69 6e 67 20 5c 22 70 6c | 61 69 6e 5c 22 20 66 6f |ing \"pl|ain\" fo|
|00000140| 72 6d 75 6c 61 73 20 69 | 6e 20 43 61 6c 63 20 45 |rmulas i|n Calc E|
|00000150| 6d 62 65 64 64 65 64 20 | 6d 6f 64 65 2e 22 20 22 |mbedded |mode." "|
|00000160| 4f 6d 69 74 74 69 6e 67 | 20 5c 22 70 6c 61 69 6e |Omitting| \"plain|
|00000170| 5c 22 20 66 6f 72 6d 75 | 6c 61 73 20 69 6e 20 43 |\" formu|las in C|
|00000180| 61 6c 63 20 45 6d 62 65 | 64 64 65 64 20 6d 6f 64 |alc Embe|dded mod|
|00000190| 65 2e 22 5d 20 37 29 29 | 5d 20 32 29 29 0a 0a 28 |e."] 7))|] 2))..(|
|000001a0| 64 65 66 76 61 72 20 63 | 61 6c 63 2d 65 6d 62 65 |defvar c|alc-embe|
|000001b0| 64 64 65 64 2d 6d 6f 64 | 65 73 20 6e 69 6c 29 0a |dded-mod|es nil).|
|000001c0| 0a 28 64 65 66 76 61 72 | 20 63 61 6c 63 2d 65 6d |.(defvar| calc-em|
|000001d0| 62 65 64 64 65 64 2d 67 | 6c 6f 62 61 6c 73 20 6e |bedded-g|lobals n|
|000001e0| 69 6c 29 0a 0a 28 64 65 | 66 76 61 72 20 63 61 6c |il)..(de|fvar cal|
|000001f0| 63 2d 65 6d 62 65 64 64 | 65 64 2d 61 63 74 69 76 |c-embedd|ed-activ|
|00000200| 65 20 6e 69 6c 29 0a 0a | 28 6d 61 6b 65 2d 76 61 |e nil)..|(make-va|
|00000210| 72 69 61 62 6c 65 2d 62 | 75 66 66 65 72 2d 6c 6f |riable-b|uffer-lo|
|00000220| 63 61 6c 20 28 71 75 6f | 74 65 20 63 61 6c 63 2d |cal (quo|te calc-|
|00000230| 65 6d 62 65 64 64 65 64 | 2d 61 6c 6c 2d 61 63 74 |embedded|-all-act|
|00000240| 69 76 65 29 29 0a 0a 28 | 6d 61 6b 65 2d 76 61 72 |ive))..(|make-var|
|00000250| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00000260| 61 6c 20 28 71 75 6f 74 | 65 20 63 61 6c 63 2d 65 |al (quot|e calc-e|
|00000270| 6d 62 65 64 64 65 64 2d | 73 6f 6d 65 2d 61 63 74 |mbedded-|some-act|
|00000280| 69 76 65 29 29 0a 0a 28 | 64 65 66 76 61 72 20 63 |ive))..(|defvar c|
|00000290| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 6f 70 65 |alc-embe|dded-ope|
|000002a0| 6e 2d 66 6f 72 6d 75 6c | 61 20 22 5c 5c 60 5c 5c |n-formul|a "\\`\\|
|000002b0| 7c 5e 0a 5c 5c 7c 5c 5c | 24 5c 5c 24 3f 5c 5c 7c ||^.\\|\\|$\\$?\\||
|000002c0| 5c 5c 5c 5c 5c 5c 5b 5c | 5c 7c 5e 5c 5c 5c 5c 62 |\\\\\\[\|\|^\\\\b|
|000002d0| 65 67 69 6e 2e 2a 0a 5c | 5c 7c 5e 40 2e 2a 0a 5c |egin.*.\|\|^@.*.\|
|000002e0| 5c 7c 5e 5c 5c 2e 45 51 | 2e 2a 0a 5c 5c 7c 5c 5c |\|^\\.EQ|.*.\\|\\|
|000002f0| 5c 5c 28 5c 5c 7c 5e 25 | 0a 5c 5c 7c 5e 5c 5c 2e |\\(\\|^%|.\\|^\\.|
|00000300| 5c 5c 5c 5c 5c 22 0a 22 | 20 22 2a 41 20 72 65 67 |\\\\\"."| "*A reg|
|00000310| 75 6c 61 72 20 65 78 70 | 72 65 73 73 69 6f 6e 20 |ular exp|ression |
|00000320| 66 6f 72 20 74 68 65 20 | 6f 70 65 6e 69 6e 67 20 |for the |opening |
|00000330| 64 65 6c 69 6d 69 74 65 | 72 20 6f 66 20 61 20 66 |delimite|r of a f|
|00000340| 6f 72 6d 75 6c 61 20 75 | 73 65 64 20 62 79 0a 63 |ormula u|sed by.c|
|00000350| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2e 22 29 0a |alc-embe|dded.").|
|00000360| 0a 28 64 65 66 76 61 72 | 20 63 61 6c 63 2d 65 6d |.(defvar| calc-em|
|00000370| 62 65 64 64 65 64 2d 63 | 6c 6f 73 65 2d 66 6f 72 |bedded-c|lose-for|
|00000380| 6d 75 6c 61 20 22 5c 5c | 27 5c 5c 7c 0a 24 5c 5c |mula "\\|'\\|.$\\|
|00000390| 7c 5c 5c 24 5c 5c 24 3f | 5c 5c 7c 5c 5c 5c 5c 5d ||\\$\\$?|\\|\\\\]|
|000003a0| 5c 5c 7c 5e 5c 5c 5c 5c | 65 6e 64 2e 2a 0a 5c 5c |\\|^\\\\|end.*.\\|
|000003b0| 7c 5e 40 2e 2a 0a 5c 5c | 7c 5e 5c 5c 2e 45 4e 2e ||^@.*.\\||^\\.EN.|
|000003c0| 2a 0a 5c 5c 7c 5c 5c 5c | 5c 29 5c 5c 7c 0a 25 0a |*.\\|\\\|\)\\|.%.|
|000003d0| 5c 5c 7c 5e 5c 5c 2e 5c | 5c 5c 5c 5c 22 0a 22 20 |\\|^\\.\|\\\\"." |
|000003e0| 22 2a 41 20 72 65 67 75 | 6c 61 72 20 65 78 70 72 |"*A regu|lar expr|
|000003f0| 65 73 73 69 6f 6e 20 66 | 6f 72 20 74 68 65 20 63 |ession f|or the c|
|00000400| 6c 6f 73 69 6e 67 20 64 | 65 6c 69 6d 69 74 65 72 |losing d|elimiter|
|00000410| 20 6f 66 20 61 20 66 6f | 72 6d 75 6c 61 20 75 73 | of a fo|rmula us|
|00000420| 65 64 20 62 79 0a 63 61 | 6c 63 2d 65 6d 62 65 64 |ed by.ca|lc-embed|
|00000430| 64 65 64 2e 22 29 0a 0a | 28 64 65 66 76 61 72 20 |ded.")..|(defvar |
|00000440| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 6f 70 |calc-emb|edded-op|
|00000450| 65 6e 2d 77 6f 72 64 20 | 22 5e 5c 5c 7c 5b 5e 2d |en-word |"^\\|[^-|
|00000460| 2b 30 2d 39 2e 65 45 5d | 22 20 22 5c 0a 2a 41 20 |+0-9.eE]|" "\.*A |
|00000470| 72 65 67 75 6c 61 72 20 | 65 78 70 72 65 73 73 69 |regular |expressi|
|00000480| 6f 6e 20 66 6f 72 20 74 | 68 65 20 6f 70 65 6e 69 |on for t|he openi|
|00000490| 6e 67 20 64 65 6c 69 6d | 69 74 65 72 20 6f 66 20 |ng delim|iter of |
|000004a0| 61 20 66 6f 72 6d 75 6c | 61 20 75 73 65 64 20 62 |a formul|a used b|
|000004b0| 79 0a 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d |y.calc-e|mbedded-|
|000004c0| 77 6f 72 64 2e 22 29 0a | 0a 28 64 65 66 76 61 72 |word.").|.(defvar|
|000004d0| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 63 | calc-em|bedded-c|
|000004e0| 6c 6f 73 65 2d 77 6f 72 | 64 20 22 24 5c 5c 7c 5b |lose-wor|d "$\\|[|
|000004f0| 5e 2d 2b 30 2d 39 2e 65 | 45 5d 22 20 22 5c 0a 2a |^-+0-9.e|E]" "\.*|
|00000500| 41 20 72 65 67 75 6c 61 | 72 20 65 78 70 72 65 73 |A regula|r expres|
|00000510| 73 69 6f 6e 20 66 6f 72 | 20 74 68 65 20 63 6c 6f |sion for| the clo|
|00000520| 73 69 6e 67 20 64 65 6c | 69 6d 69 74 65 72 20 6f |sing del|imiter o|
|00000530| 66 20 61 20 66 6f 72 6d | 75 6c 61 20 75 73 65 64 |f a form|ula used|
|00000540| 20 62 79 0a 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 | by.calc|-embedde|
|00000550| 64 2d 77 6f 72 64 2e 22 | 29 0a 0a 28 64 65 66 76 |d-word."|)..(defv|
|00000560| 61 72 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |ar calc-|embedded|
|00000570| 2d 6f 70 65 6e 2d 70 6c | 61 69 6e 20 22 25 25 25 |-open-pl|ain "%%%|
|00000580| 20 22 20 22 5c 0a 2a 41 | 20 73 74 72 69 6e 67 20 | " "\.*A| string |
|00000590| 77 68 69 63 68 20 69 73 | 20 74 68 65 20 6f 70 65 |which is| the ope|
|000005a0| 6e 69 6e 67 20 64 65 6c | 69 6d 69 74 65 72 20 66 |ning del|imiter f|
|000005b0| 6f 72 20 61 20 5c 22 70 | 6c 61 69 6e 5c 22 20 66 |or a \"p|lain\" f|
|000005c0| 6f 72 6d 75 6c 61 2e 0a | 49 66 20 63 61 6c 63 2d |ormula..|If calc-|
|000005d0| 73 68 6f 77 2d 70 6c 61 | 69 6e 20 6d 6f 64 65 20 |show-pla|in mode |
|000005e0| 69 73 20 65 6e 61 62 6c | 65 64 2c 20 74 68 69 73 |is enabl|ed, this|
|000005f0| 20 69 73 20 69 6e 73 65 | 72 74 65 64 20 61 74 20 | is inse|rted at |
|00000600| 74 68 65 20 66 72 6f 6e | 74 20 6f 66 0a 65 61 63 |the fron|t of.eac|
|00000610| 68 20 66 6f 72 6d 75 6c | 61 2e 22 29 0a 0a 28 64 |h formul|a.")..(d|
|00000620| 65 66 76 61 72 20 63 61 | 6c 63 2d 65 6d 62 65 64 |efvar ca|lc-embed|
|00000630| 64 65 64 2d 63 6c 6f 73 | 65 2d 70 6c 61 69 6e 20 |ded-clos|e-plain |
|00000640| 22 20 25 25 25 0a 22 20 | 22 2a 41 20 73 74 72 69 |" %%%." |"*A stri|
|00000650| 6e 67 20 77 68 69 63 68 | 20 69 73 20 74 68 65 20 |ng which| is the |
|00000660| 63 6c 6f 73 69 6e 67 20 | 64 65 6c 69 6d 69 74 65 |closing |delimite|
|00000670| 72 20 66 6f 72 20 61 20 | 5c 22 70 6c 61 69 6e 5c |r for a |\"plain\|
|00000680| 22 20 66 6f 72 6d 75 6c | 61 2e 0a 53 65 65 20 63 |" formul|a..See c|
|00000690| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 6f 70 65 |alc-embe|dded-ope|
|000006a0| 6e 2d 70 6c 61 69 6e 2e | 22 29 0a 0a 28 64 65 66 |n-plain.|")..(def|
|000006b0| 76 61 72 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |var calc|-embedde|
|000006c0| 64 2d 6f 70 65 6e 2d 6e | 65 77 2d 66 6f 72 6d 75 |d-open-n|ew-formu|
|000006d0| 6c 61 20 22 0a 0a 22 20 | 22 2a 41 20 73 74 72 69 |la ".." |"*A stri|
|000006e0| 6e 67 20 77 68 69 63 68 | 20 69 73 20 69 6e 73 65 |ng which| is inse|
|000006f0| 72 74 65 64 20 61 74 20 | 66 72 6f 6e 74 20 6f 66 |rted at |front of|
|00000700| 20 66 6f 72 6d 75 6c 61 | 20 62 79 20 63 61 6c 63 | formula| by calc|
|00000710| 2d 65 6d 62 65 64 64 65 | 64 2d 6e 65 77 2d 66 6f |-embedde|d-new-fo|
|00000720| 72 6d 75 6c 61 2e 22 29 | 0a 0a 28 64 65 66 76 61 |rmula.")|..(defva|
|00000730| 72 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d |r calc-e|mbedded-|
|00000740| 63 6c 6f 73 65 2d 6e 65 | 77 2d 66 6f 72 6d 75 6c |close-ne|w-formul|
|00000750| 61 20 22 0a 0a 22 20 22 | 2a 41 20 73 74 72 69 6e |a ".." "|*A strin|
|00000760| 67 20 77 68 69 63 68 20 | 69 73 20 69 6e 73 65 72 |g which |is inser|
|00000770| 74 65 64 20 61 74 20 65 | 6e 64 20 6f 66 20 66 6f |ted at e|nd of fo|
|00000780| 72 6d 75 6c 61 20 62 79 | 20 63 61 6c 63 2d 65 6d |rmula by| calc-em|
|00000790| 62 65 64 64 65 64 2d 6e | 65 77 2d 66 6f 72 6d 75 |bedded-n|ew-formu|
|000007a0| 6c 61 2e 22 29 0a 0a 28 | 64 65 66 76 61 72 20 63 |la.")..(|defvar c|
|000007b0| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 61 6e 6e |alc-embe|dded-ann|
|000007c0| 6f 75 6e 63 65 2d 66 6f | 72 6d 75 6c 61 20 22 25 |ounce-fo|rmula "%|
|000007d0| 45 6d 62 65 64 0a 5c 5c | 28 25 20 2e 2a 0a 5c 5c |Embed.\\|(% .*.\\|
|000007e0| 29 2a 22 20 22 2a 41 20 | 72 65 67 75 6c 61 72 20 |)*" "*A |regular |
|000007f0| 65 78 70 72 65 73 73 69 | 6f 6e 20 77 68 69 63 68 |expressi|on which|
|00000800| 20 69 73 20 73 75 72 65 | 20 74 6f 20 62 65 20 66 | is sure| to be f|
|00000810| 6f 6c 6c 6f 77 65 64 20 | 62 79 20 61 20 63 61 6c |ollowed |by a cal|
|00000820| 63 2d 65 6d 62 65 64 64 | 65 64 20 66 6f 72 6d 75 |c-embedd|ed formu|
|00000830| 6c 61 2e 22 29 0a 0a 28 | 64 65 66 76 61 72 20 63 |la.")..(|defvar c|
|00000840| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 6f 70 65 |alc-embe|dded-ope|
|00000850| 6e 2d 6d 6f 64 65 20 22 | 25 20 22 20 22 5c 0a 2a |n-mode "|% " "\.*|
|00000860| 41 20 73 74 72 69 6e 67 | 20 77 68 69 63 68 20 73 |A string| which s|
|00000870| 68 6f 75 6c 64 20 70 72 | 65 63 65 64 65 20 63 61 |hould pr|ecede ca|
|00000880| 6c 63 2d 65 6d 62 65 64 | 64 65 64 20 6d 6f 64 65 |lc-embed|ded mode|
|00000890| 20 61 6e 6e 6f 74 61 74 | 69 6f 6e 73 2e 0a 54 68 | annotat|ions..Th|
|000008a0| 69 73 20 69 73 20 6e 6f | 74 20 72 65 71 75 69 72 |is is no|t requir|
|000008b0| 65 64 20 74 6f 20 62 65 | 20 70 72 65 73 65 6e 74 |ed to be| present|
|000008c0| 20 66 6f 72 20 75 73 65 | 72 2d 77 72 69 74 74 65 | for use|r-writte|
|000008d0| 6e 20 6d 6f 64 65 20 61 | 6e 6e 6f 74 61 74 69 6f |n mode a|nnotatio|
|000008e0| 6e 73 2e 22 29 0a 0a 28 | 64 65 66 76 61 72 20 63 |ns.")..(|defvar c|
|000008f0| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 63 6c 6f |alc-embe|dded-clo|
|00000900| 73 65 2d 6d 6f 64 65 20 | 22 0a 22 20 22 2a 41 20 |se-mode |"." "*A |
|00000910| 73 74 72 69 6e 67 20 77 | 68 69 63 68 20 73 68 6f |string w|hich sho|
|00000920| 75 6c 64 20 66 6f 6c 6c | 6f 77 20 63 61 6c 63 2d |uld foll|ow calc-|
|00000930| 65 6d 62 65 64 64 65 64 | 20 6d 6f 64 65 20 61 6e |embedded| mode an|
|00000940| 6e 6f 74 61 74 69 6f 6e | 73 2e 0a 54 68 69 73 20 |notation|s..This |
|00000950| 69 73 20 6e 6f 74 20 72 | 65 71 75 69 72 65 64 20 |is not r|equired |
|00000960| 74 6f 20 62 65 20 70 72 | 65 73 65 6e 74 20 66 6f |to be pr|esent fo|
|00000970| 72 20 75 73 65 72 2d 77 | 72 69 74 74 65 6e 20 6d |r user-w|ritten m|
|00000980| 6f 64 65 20 61 6e 6e 6f | 74 61 74 69 6f 6e 73 2e |ode anno|tations.|
|00000990| 22 29 0a 0a 28 64 65 66 | 63 6f 6e 73 74 20 63 61 |")..(def|const ca|
|000009a0| 6c 63 2d 65 6d 62 65 64 | 64 65 64 2d 6d 6f 64 65 |lc-embed|ded-mode|
|000009b0| 2d 76 61 72 73 20 28 71 | 75 6f 74 65 20 28 28 22 |-vars (q|uote (("|
|000009c0| 70 72 65 63 69 73 69 6f | 6e 22 20 2e 20 63 61 6c |precisio|n" . cal|
|000009d0| 63 2d 69 6e 74 65 72 6e | 61 6c 2d 70 72 65 63 29 |c-intern|al-prec)|
|000009e0| 20 28 22 77 6f 72 64 2d | 73 69 7a 65 22 20 2e 20 | ("word-|size" . |
|000009f0| 63 61 6c 63 2d 77 6f 72 | 64 2d 73 69 7a 65 29 20 |calc-wor|d-size) |
|00000a00| 28 22 61 6e 67 6c 65 73 | 22 20 2e 20 63 61 6c 63 |("angles|" . calc|
|00000a10| 2d 61 6e 67 6c 65 2d 6d | 6f 64 65 29 20 28 22 73 |-angle-m|ode) ("s|
|00000a20| 79 6d 62 6f 6c 69 63 22 | 20 2e 20 63 61 6c 63 2d |ymbolic"| . calc-|
|00000a30| 73 79 6d 62 6f 6c 69 63 | 2d 6d 6f 64 65 29 20 28 |symbolic|-mode) (|
|00000a40| 22 6d 61 74 72 69 78 22 | 20 2e 20 63 61 6c 63 2d |"matrix"| . calc-|
|00000a50| 6d 61 74 72 69 78 2d 6d | 6f 64 65 29 20 28 22 66 |matrix-m|ode) ("f|
|00000a60| 72 61 63 74 69 6f 6e 73 | 22 20 2e 20 63 61 6c 63 |ractions|" . calc|
|00000a70| 2d 70 72 65 66 65 72 2d | 66 72 61 63 29 20 28 22 |-prefer-|frac) ("|
|00000a80| 63 6f 6d 70 6c 65 78 22 | 20 2e 20 63 61 6c 63 2d |complex"| . calc-|
|00000a90| 63 6f 6d 70 6c 65 78 2d | 6d 6f 64 65 29 20 28 22 |complex-|mode) ("|
|00000aa0| 73 69 6d 70 6c 69 66 79 | 22 20 2e 20 63 61 6c 63 |simplify|" . calc|
|00000ab0| 2d 73 69 6d 70 6c 69 66 | 79 2d 6d 6f 64 65 29 20 |-simplif|y-mode) |
|00000ac0| 28 22 6c 61 6e 67 75 61 | 67 65 22 20 2e 20 74 68 |("langua|ge" . th|
|00000ad0| 65 2d 6c 61 6e 67 75 61 | 67 65 29 20 28 22 70 6c |e-langua|ge) ("pl|
|00000ae0| 61 69 6e 22 20 2e 20 63 | 61 6c 63 2d 73 68 6f 77 |ain" . c|alc-show|
|00000af0| 2d 70 6c 61 69 6e 29 20 | 28 22 62 72 65 61 6b 22 |-plain) |("break"|
|00000b00| 20 2e 20 63 61 6c 63 2d | 6c 69 6e 65 2d 62 72 65 | . calc-|line-bre|
|00000b10| 61 6b 69 6e 67 29 20 28 | 22 6a 75 73 74 69 66 79 |aking) (|"justify|
|00000b20| 22 20 2e 20 74 68 65 2d | 64 69 73 70 6c 61 79 2d |" . the-|display-|
|00000b30| 6a 75 73 74 29 20 28 22 | 6c 65 66 74 2d 6c 61 62 |just) ("|left-lab|
|00000b40| 65 6c 22 20 2e 20 63 61 | 6c 63 2d 6c 65 66 74 2d |el" . ca|lc-left-|
|00000b50| 6c 61 62 65 6c 29 20 28 | 22 72 69 67 68 74 2d 6c |label) (|"right-l|
|00000b60| 61 62 65 6c 22 20 2e 20 | 63 61 6c 63 2d 72 69 67 |abel" . |calc-rig|
|00000b70| 68 74 2d 6c 61 62 65 6c | 29 20 28 22 72 61 64 69 |ht-label|) ("radi|
|00000b80| 78 22 20 2e 20 63 61 6c | 63 2d 6e 75 6d 62 65 72 |x" . cal|c-number|
|00000b90| 2d 72 61 64 69 78 29 20 | 28 22 6c 65 61 64 69 6e |-radix) |("leadin|
|00000ba0| 67 2d 7a 65 72 6f 73 22 | 20 2e 20 63 61 6c 63 2d |g-zeros"| . calc-|
|00000bb0| 6c 65 61 64 69 6e 67 2d | 7a 65 72 6f 73 29 20 28 |leading-|zeros) (|
|00000bc0| 22 67 72 6f 75 70 69 6e | 67 22 20 2e 20 63 61 6c |"groupin|g" . cal|
|00000bd0| 63 2d 67 72 6f 75 70 2d | 64 69 67 69 74 73 29 20 |c-group-|digits) |
|00000be0| 28 22 67 72 6f 75 70 2d | 63 68 61 72 22 20 2e 20 |("group-|char" . |
|00000bf0| 63 61 6c 63 2d 67 72 6f | 75 70 2d 63 68 61 72 29 |calc-gro|up-char)|
|00000c00| 20 28 22 70 6f 69 6e 74 | 2d 63 68 61 72 22 20 2e | ("point|-char" .|
|00000c10| 20 63 61 6c 63 2d 70 6f | 69 6e 74 2d 63 68 61 72 | calc-po|int-char|
|00000c20| 29 20 28 22 66 72 61 63 | 2d 66 6f 72 6d 61 74 22 |) ("frac|-format"|
|00000c30| 20 2e 20 63 61 6c 63 2d | 66 72 61 63 2d 66 6f 72 | . calc-|frac-for|
|00000c40| 6d 61 74 29 20 28 22 66 | 6c 6f 61 74 2d 66 6f 72 |mat) ("f|loat-for|
|00000c50| 6d 61 74 22 20 2e 20 63 | 61 6c 63 2d 66 6c 6f 61 |mat" . c|alc-floa|
|00000c60| 74 2d 66 6f 72 6d 61 74 | 29 20 28 22 63 6f 6d 70 |t-format|) ("comp|
|00000c70| 6c 65 78 2d 66 6f 72 6d | 61 74 22 20 2e 20 63 61 |lex-form|at" . ca|
|00000c80| 6c 63 2d 63 6f 6d 70 6c | 65 78 2d 66 6f 72 6d 61 |lc-compl|ex-forma|
|00000c90| 74 29 20 28 22 68 6d 73 | 2d 66 6f 72 6d 61 74 22 |t) ("hms|-format"|
|00000ca0| 20 2e 20 63 61 6c 63 2d | 68 6d 73 2d 66 6f 72 6d | . calc-|hms-form|
|00000cb0| 61 74 29 20 28 22 64 61 | 74 65 2d 66 6f 72 6d 61 |at) ("da|te-forma|
|00000cc0| 74 22 20 2e 20 63 61 6c | 63 2d 64 61 74 65 2d 66 |t" . cal|c-date-f|
|00000cd0| 6f 72 6d 61 74 29 20 28 | 22 6d 61 74 72 69 78 2d |ormat) (|"matrix-|
|00000ce0| 6a 75 73 74 69 66 79 22 | 20 2e 20 63 61 6c 63 2d |justify"| . calc-|
|00000cf0| 6d 61 74 72 69 78 2d 6a | 75 73 74 29 20 28 22 66 |matrix-j|ust) ("f|
|00000d00| 75 6c 6c 2d 76 65 63 74 | 6f 72 73 22 20 2e 20 63 |ull-vect|ors" . c|
|00000d10| 61 6c 63 2d 66 75 6c 6c | 2d 76 65 63 74 6f 72 73 |alc-full|-vectors|
|00000d20| 29 20 28 22 62 72 65 61 | 6b 2d 76 65 63 74 6f 72 |) ("brea|k-vector|
|00000d30| 73 22 20 2e 20 63 61 6c | 63 2d 62 72 65 61 6b 2d |s" . cal|c-break-|
|00000d40| 76 65 63 74 6f 72 73 29 | 20 28 22 76 65 63 74 6f |vectors)| ("vecto|
|00000d50| 72 2d 63 6f 6d 6d 61 73 | 22 20 2e 20 63 61 6c 63 |r-commas|" . calc|
|00000d60| 2d 76 65 63 74 6f 72 2d | 63 6f 6d 6d 61 73 29 20 |-vector-|commas) |
|00000d70| 28 22 76 65 63 74 6f 72 | 2d 62 72 61 63 6b 65 74 |("vector|-bracket|
|00000d80| 73 22 20 2e 20 63 61 6c | 63 2d 76 65 63 74 6f 72 |s" . cal|c-vector|
|00000d90| 2d 62 72 61 63 6b 65 74 | 73 29 20 28 22 6d 61 74 |-bracket|s) ("mat|
|00000da0| 72 69 78 2d 62 72 61 63 | 6b 65 74 73 22 20 2e 20 |rix-brac|kets" . |
|00000db0| 63 61 6c 63 2d 6d 61 74 | 72 69 78 2d 62 72 61 63 |calc-mat|rix-brac|
|00000dc0| 6b 65 74 73 29 20 28 22 | 73 74 72 69 6e 67 73 22 |kets) ("|strings"|
|00000dd0| 20 2e 20 63 61 6c 63 2d | 64 69 73 70 6c 61 79 2d | . calc-|display-|
|00000de0| 73 74 72 69 6e 67 73 29 | 29 29 29 0a 0a 28 64 65 |strings)|)))..(de|
|00000df0| 66 75 6e 20 63 61 6c 63 | 2d 64 6f 2d 65 6d 62 65 |fun calc|-do-embe|
|00000e00| 64 64 65 64 20 28 61 72 | 67 20 65 6e 64 20 6f 62 |dded (ar|g end ob|
|00000e10| 65 67 20 6f 65 6e 64 29 | 20 28 62 79 74 65 2d 63 |eg oend)| (byte-c|
|00000e20| 6f 64 65 20 22 08 83 c7 | 00 70 08 dd 48 3d 83 21 |ode "...|.p..H=.!|
|00000e30| 00 70 08 de 48 1a 19 df | c3 21 88 e0 c4 21 88 e1 |.p..H...|.!...!..|
|00000e40| 09 21 2a 82 c4 00 70 08 | de 48 3d 83 9c 00 08 1d |.!*...p.|.H=.....|
|00000e50| 0e 07 1e 06 8a 0d dd 48 | 71 88 e2 20 de 56 85 45 |.......H|q.. .V.E|
|00000e60| 00 e3 e4 dd e5 5c 22 0d | e6 48 5c 22 83 6c 00 c3 |.....\".|.H\".l..|
|00000e70| 1e 08 e4 dd e7 5c 22 85 | 55 00 e8 dd 21 88 e9 0d |.....\".|U...!...|
|00000e80| ea 48 0d eb 48 0d ec 48 | 23 88 c4 18 ed ee 21 29 |.H..H..H|#.....!)|
|00000e90| 29 82 6e 00 ef 20 29 88 | c4 10 0e 06 40 16 09 f0 |).n.. ).|....@...|
|00000ea0| 0e 06 38 16 0a c4 89 16 | 0b 88 f1 dd 0e 06 38 21 |..8.....|......8!|
|00000eb0| 88 f2 f3 20 21 88 0e 0c | 86 98 00 f4 f5 0e 0d 5c |... !...|.......\|
|00000ec0| 22 2a 82 c4 00 f6 08 de | 48 21 85 b9 00 8a 08 de |"*......|H!......|
|00000ed0| 48 71 88 f7 f8 f6 20 5c | 22 86 b4 00 f9 20 88 e0 |Hq.... \|".... ..|
|00000ee0| c4 21 29 88 e0 0e 0e 0e | 0f 0e 10 0e 11 24 82 7d |.!).....|.....$.}|
|00000ef0| 01 fa 20 88 0e 09 fb 20 | 0e 0a 45 c4 c4 c4 c4 c4 |.. .... |..E.....|
|00000f00| c4 c4 1e 18 1e 17 1d 1e | 16 1e 15 1e 14 1e 13 1e |........|........|
|00000f10| 12 fc 20 88 0e 19 86 f1 | 00 fd 20 88 fe 60 c4 c3 |.. .....|.. ..`..|
|00000f20| 0e 0e 0e 0f 0e 10 0e 11 | 26 07 89 15 88 ff 0d e6 |........|&.......|
|00000f30| 48 21 81 40 00 3d 85 1f | 01 dd 0d e6 48 38 62 88 |H!.@.=..|....H8b.|
|00000f40| 81 40 00 f0 0d e6 48 38 | 21 88 0e 09 0d c3 1e 1a |.@....H8|!.......|
|00000f50| 18 1e 09 ed 81 41 00 21 | 2b 88 0d 10 0e 12 16 07 |.....A.!|+.......|
|00000f60| 0e 18 16 09 c3 16 0a c3 | 89 16 0b 88 f2 f3 20 21 |........|...... !|
|00000f70| 88 f1 0e 1b 21 88 c4 89 | 16 08 88 0e 17 85 60 01 |....!...|......`.|
|00000f80| 0e 1c 85 60 01 ed 81 42 | 00 21 88 0e 0c c3 3d 86 |...`...B|.!....=.|
|00000f90| 7b 01 f4 81 43 00 0e 0c | 83 77 01 81 44 00 82 7a |{...C...|.w..D..z|
|00000fa0| 01 81 45 00 5c 22 2e 08 | 88 81 46 00 de 21 87 22 |..E.\"..|..F..!."|
|00000fb0| 20 5b 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d | [calc-e|mbedded-|
|00000fc0| 69 6e 66 6f 20 63 61 6c | 63 62 75 66 20 62 75 66 |info cal|cbuf buf|
|00000fd0| 20 74 20 6e 69 6c 20 69 | 6e 66 6f 20 6d 6f 64 65 | t nil i|nfo mode|
|00000fe0| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 6d | calc-em|bedded-m|
|00000ff0| 6f 64 65 73 20 63 61 6c | 63 2d 6e 6f 2d 72 65 66 |odes cal|c-no-ref|
|00001000| 72 65 73 68 2d 65 76 61 | 6c 74 6f 73 20 6d 6f 64 |resh-eva|ltos mod|
|00001010| 65 2d 6c 69 6e 65 2d 62 | 75 66 66 65 72 2d 69 64 |e-line-b|uffer-id|
|00001020| 65 6e 74 69 66 69 63 61 | 74 69 6f 6e 20 74 72 75 |entifica|tion tru|
|00001030| 6e 63 61 74 65 2d 6c 69 | 6e 65 73 20 62 75 66 66 |ncate-li|nes buff|
|00001040| 65 72 2d 72 65 61 64 2d | 6f 6e 6c 79 20 63 61 6c |er-read-|only cal|
|00001050| 63 2d 65 6d 62 65 64 64 | 65 64 2d 71 75 69 65 74 |c-embedd|ed-quiet|
|00001060| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 61 72 67 20 65 | mode-na|me arg e|
|00001070| 6e 64 20 6f 62 65 67 20 | 6f 65 6e 64 20 6d 6f 64 |nd obeg |oend mod|
|00001080| 65 73 20 74 6f 70 20 62 | 6f 74 20 6f 75 74 65 72 |es top b|ot outer|
|00001090| 2d 74 6f 70 20 6f 75 74 | 65 72 2d 62 6f 74 20 63 |-top out|er-bot c|
|000010a0| 68 67 20 69 64 65 6e 74 | 20 63 61 6c 63 2d 65 6d |hg ident| calc-em|
|000010b0| 62 65 64 64 65 64 2d 67 | 6c 6f 62 61 6c 73 20 63 |bedded-g|lobals c|
|000010c0| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 6e 6f 2d |alc-embe|dded-no-|
|000010d0| 72 65 73 65 6c 65 63 74 | 20 63 61 6c 63 2d 6d 6f |reselect| calc-mo|
|000010e0| 64 65 2d 6d 61 70 20 63 | 61 6c 63 2d 61 6e 79 2d |de-map c|alc-any-|
|000010f0| 65 76 61 6c 74 6f 73 20 | 31 20 30 20 63 61 6c 63 |evaltos |1 0 calc|
|00001100| 2d 65 6d 62 65 64 64 65 | 64 2d 6f 72 69 67 69 6e |-embedde|d-origin|
|00001110| 61 6c 2d 62 75 66 66 65 | 72 20 63 61 6c 63 2d 65 |al-buffe|r calc-e|
|00001120| 6d 62 65 64 64 65 64 20 | 73 77 69 74 63 68 2d 74 |mbedded |switch-t|
|00001130| 6f 2d 62 75 66 66 65 72 | 20 63 61 6c 63 2d 73 74 |o-buffer| calc-st|
|00001140| 61 63 6b 2d 73 69 7a 65 | 20 65 71 75 61 6c 20 63 |ack-size| equal c|
|00001150| 61 6c 63 2d 74 6f 70 20 | 66 75 6c 6c 20 38 20 73 |alc-top |full 8 s|
|00001160| 65 6c 20 63 61 6c 63 2d | 75 6e 73 65 6c 65 63 74 |el calc-|unselect|
|00001170| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 73 | calc-em|bedded-s|
|00001180| 65 74 2d 6d 6f 64 65 73 | 20 31 35 20 31 32 20 31 |et-modes| 15 12 1|
|00001190| 34 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |4 calc-d|o (lambd|
|000011a0| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|000011b0| 20 22 c0 20 87 22 20 5b | 63 61 6c 63 2d 70 6f 70 | ". ." [|calc-pop|
|000011c0| 2d 73 74 61 63 6b 5d 20 | 32 29 29 20 63 61 6c 63 |-stack] |2)) calc|
|000011d0| 2d 73 65 74 2d 6d 6f 64 | 65 2d 6c 69 6e 65 20 32 |-set-mod|e-line 2|
|000011e0| 20 75 73 65 2d 6c 6f 63 | 61 6c 2d 6d 61 70 20 73 | use-loc|al-map s|
|000011f0| 65 74 2d 62 75 66 66 65 | 72 2d 6d 6f 64 69 66 69 |et-buffe|r-modifi|
|00001200| 65 64 2d 70 20 62 75 66 | 66 65 72 2d 6d 6f 64 69 |ed-p buf|fer-modi|
|00001210| 66 69 65 64 2d 70 20 6d | 65 73 73 61 67 65 20 22 |fied-p m|essage "|
|00001220| 42 61 63 6b 20 74 6f 20 | 25 73 20 6d 6f 64 65 2e |Back to |%s mode.|
|00001230| 22 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 79 2d |" buffer|-name y-|
|00001240| 6f 72 2d 6e 2d 70 20 22 | 43 61 6e 63 65 6c 20 43 |or-n-p "|Cancel C|
|00001250| 61 6c 63 20 45 6d 62 65 | 64 64 65 64 20 6d 6f 64 |alc Embe|dded mod|
|00001260| 65 20 69 6e 20 62 75 66 | 66 65 72 20 25 73 3f 20 |e in buf|fer %s? |
|00001270| 22 20 6b 65 79 62 6f 61 | 72 64 2d 71 75 69 74 20 |" keyboa|rd-quit |
|00001280| 63 61 6c 63 2d 70 6c 61 | 69 6e 2d 62 75 66 66 65 |calc-pla|in-buffe|
|00001290| 72 2d 6f 6e 6c 79 20 63 | 75 72 72 65 6e 74 2d 6c |r-only c|urrent-l|
|000012a0| 6f 63 61 6c 2d 6d 61 70 | 20 62 61 72 66 2d 69 66 |ocal-map| barf-if|
|000012b0| 2d 62 75 66 66 65 72 2d | 72 65 61 64 2d 6f 6e 6c |-buffer-|read-onl|
|000012c0| 79 20 63 61 6c 63 2d 66 | 69 6e 64 2d 67 6c 6f 62 |y calc-f|ind-glob|
|000012d0| 61 6c 73 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |als calc|-embedde|
|000012e0| 64 2d 6d 61 6b 65 2d 69 | 6e 66 6f 20 63 61 72 2d |d-make-i|nfo car-|
|000012f0| 73 61 66 65 20 65 72 72 | 6f 72 20 28 6c 61 6d 62 |safe err|or (lamb|
|00001300| 64 61 20 6e 69 6c 20 28 | 62 79 74 65 2d 63 6f 64 |da nil (|byte-cod|
|00001310| 65 20 22 c1 18 c3 1a ca | 0d cb 48 0d cc 48 0d cd |e ".....|..H..H..|
|00001320| 48 23 89 14 88 0d ce 48 | 83 5c 22 00 cf d0 0d ce |H#.....H|.\".....|
|00001330| 48 21 21 82 24 00 d1 20 | 2a 88 c1 16 06 c1 16 07 |H!!.$.. |*.......|
|00001340| 0e 09 89 16 08 87 22 20 | 5b 6f 6b 61 79 20 6e 69 |......" |[okay ni|
|00001350| 6c 20 63 61 6c 63 2d 6e | 6f 2d 72 65 66 72 65 73 |l calc-n|o-refres|
|00001360| 68 2d 65 76 61 6c 74 6f | 73 20 74 20 63 68 67 20 |h-evalto|s t chg |
|00001370| 69 6e 66 6f 20 63 61 6c | 63 2d 75 6e 64 6f 2d 6c |info cal|c-undo-l|
|00001380| 69 73 74 20 63 61 6c 63 | 2d 72 65 64 6f 2d 6c 69 |ist calc|-redo-li|
|00001390| 73 74 20 69 64 65 6e 74 | 20 6d 6f 64 65 2d 6c 69 |st ident| mode-li|
|000013a0| 6e 65 2d 62 75 66 66 65 | 72 2d 69 64 65 6e 74 69 |ne-buffe|r-identi|
|000013b0| 66 69 63 61 74 69 6f 6e | 20 63 61 6c 63 2d 65 6d |fication| calc-em|
|000013c0| 62 65 64 64 65 64 2d 73 | 65 74 2d 6d 6f 64 65 73 |bedded-s|et-modes|
|000013d0| 20 31 35 20 31 32 20 31 | 33 20 38 20 63 61 6c 63 | 15 12 1|3 8 calc|
|000013e0| 2d 70 75 73 68 20 63 61 | 6c 63 2d 6e 6f 72 6d 61 |-push ca|lc-norma|
|000013f0| 6c 69 7a 65 20 63 61 6c | 63 2d 61 6c 67 2d 65 6e |lize cal|c-alg-en|
|00001400| 74 72 79 5d 20 36 29 29 | 20 28 6c 61 6d 62 64 61 |try] 6))| (lambda|
|00001410| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00001420| 22 c0 20 87 22 20 5b 63 | 61 6c 63 2d 72 65 66 72 |". ." [c|alc-refr|
|00001430| 65 73 68 2d 65 76 61 6c | 74 6f 73 5d 20 32 29 29 |esh-eval|tos] 2))|
|00001440| 20 22 45 6d 62 65 64 64 | 65 64 20 43 61 6c 63 20 | "Embedd|ed Calc |
|00001450| 6d 6f 64 65 20 65 6e 61 | 62 6c 65 64 2e 20 20 25 |mode ena|bled. %|
|00001460| 73 20 74 6f 20 72 65 74 | 75 72 6e 20 74 6f 20 6e |s to ret|urn to n|
|00001470| 6f 72 6d 61 6c 2e 22 20 | 22 54 79 70 65 20 60 4d |ormal." |"Type `M|
|00001480| 2d 23 20 78 27 22 20 22 | 47 69 76 65 20 74 68 69 |-# x'" "|Give thi|
|00001490| 73 20 63 6f 6d 6d 61 6e | 64 20 61 67 61 69 6e 22 |s comman|d again"|
|000014a0| 20 73 63 72 6f 6c 6c 2d | 64 6f 77 6e 5d 20 33 36 | scroll-|down] 36|
|000014b0| 29 29 0a 0a 28 73 65 74 | 71 20 63 61 6c 63 2d 65 |))..(set|q calc-e|
|000014c0| 6d 62 65 64 64 65 64 2d | 71 75 69 65 74 20 6e 69 |mbedded-|quiet ni|
|000014d0| 6c 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |l)..(def|un calc-|
|000014e0| 65 6d 62 65 64 64 65 64 | 2d 73 65 6c 65 63 74 20 |embedded|-select |
|000014f0| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00001500| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00001510| 64 65 20 22 c2 88 c3 08 | 21 88 09 85 17 00 c4 09 |de "....|!.......|
|00001520| c5 48 21 c6 3d 85 17 00 | c7 c8 21 88 09 85 3f 00 |.H!.=...|..!...?.|
|00001530| c4 09 c5 48 21 c9 3d 86 | 39 00 c4 09 c5 48 21 c6 |...H!.=.|9....H!.|
|00001540| 3d 85 39 00 c4 c8 09 c5 | 48 38 21 c9 3d 85 3f 00 |=.9.....|H8!.=.?.|
|00001550| c7 ca 21 87 22 20 5b 61 | 72 67 20 63 61 6c 63 2d |..!." [a|rg calc-|
|00001560| 65 6d 62 65 64 64 65 64 | 2d 69 6e 66 6f 20 6e 69 |embedded|-info ni|
|00001570| 6c 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 20 |l calc-e|mbedded |
|00001580| 63 61 72 2d 73 61 66 65 | 20 38 20 63 61 6c 63 46 |car-safe| 8 calcF|
|00001590| 75 6e 63 2d 65 76 61 6c | 74 6f 20 63 61 6c 63 2d |unc-eval|to calc-|
|000015a0| 73 65 6c 65 63 74 2d 70 | 61 72 74 20 31 20 63 61 |select-p|art 1 ca|
|000015b0| 6c 63 46 75 6e 63 2d 61 | 73 73 69 67 6e 20 32 5d |lcFunc-a|ssign 2]|
|000015c0| 20 39 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 9))..(d|efun cal|
|000015d0| 63 2d 65 6d 62 65 64 64 | 65 64 2d 75 70 64 61 74 |c-embedd|ed-updat|
|000015e0| 65 2d 66 6f 72 6d 75 6c | 61 20 28 61 72 67 29 20 |e-formul|a (arg) |
|000015f0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 50 22 |(interac|tive "P"|
|00001600| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c7 88 |) (byte-|code "..|
|00001610| 08 83 48 00 c9 70 0a 5c | 22 19 09 41 89 11 85 44 |..H..p.\|"..A...D|
|00001620| 00 ca 09 40 cb 48 21 cc | 3d 85 40 00 08 3a 3f 86 |...@.H!.|=.@..:?.|
|00001630| 34 00 09 40 cd 48 ce 20 | 58 85 34 00 09 40 cf 48 |4..@.H. |X.4..@.H|
|00001640| d0 20 59 85 40 00 8a d1 | 09 40 d2 c3 c3 24 29 88 |. Y.@...|.@...$).|
|00001650| 82 0b 00 29 82 99 00 0c | 85 61 00 70 0c d3 48 3d |...)....|.a.p..H=|
|00001660| 85 61 00 60 0c d4 48 59 | 85 61 00 60 0c d5 48 58 |.a.`..HY|.a.`..HX|
|00001670| 83 6a 00 d6 d7 21 82 99 | 00 60 1d d8 60 c7 c3 23 |.j...!..|.`..`..#|
|00001680| 1e 06 0d 0e 06 d4 48 5a | 1e 08 ca 0e 06 cb 48 21 |......HZ|......H!|
|00001690| d9 3d 86 98 00 8a d1 0e | 06 d2 da c3 24 29 88 0e |.=......|....$)..|
|000016a0| 06 d4 48 0e 08 5c 5c 62 | 2b 87 22 20 5b 61 72 67 |..H..\\b|+." [arg|
|000016b0| 20 65 6e 74 72 79 20 63 | 61 6c 63 2d 65 6d 62 65 | entry c|alc-embe|
|000016c0| 64 64 65 64 2d 61 63 74 | 69 76 65 20 74 20 63 61 |dded-act|ive t ca|
|000016d0| 6c 63 2d 65 6d 62 65 64 | 64 65 64 2d 69 6e 66 6f |lc-embed|ded-info|
|000016e0| 20 6f 70 74 20 69 6e 66 | 6f 20 6e 69 6c 20 70 74 | opt inf|o nil pt|
|000016f0| 20 61 73 73 71 20 63 61 | 72 2d 73 61 66 65 20 38 | assq ca|r-safe 8|
|00001700| 20 63 61 6c 63 46 75 6e | 63 2d 65 76 61 6c 74 6f | calcFun|c-evalto|
|00001710| 20 32 20 72 65 67 69 6f | 6e 2d 62 65 67 69 6e 6e | 2 regio|n-beginn|
|00001720| 69 6e 67 20 33 20 72 65 | 67 69 6f 6e 2d 65 6e 64 |ing 3 re|gion-end|
|00001730| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 75 | calc-em|bedded-u|
|00001740| 70 64 61 74 65 20 31 34 | 20 30 20 34 20 35 20 63 |pdate 14| 0 4 5 c|
|00001750| 61 6c 63 2d 65 76 61 6c | 75 61 74 65 20 31 20 63 |alc-eval|uate 1 c|
|00001760| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 6d 61 6b |alc-embe|dded-mak|
|00001770| 65 2d 69 6e 66 6f 20 65 | 72 72 6f 72 20 65 76 61 |e-info e|rror eva|
|00001780| 6c 5d 20 31 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |l] 13)).|.(defun |
|00001790| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 65 64 |calc-emb|edded-ed|
|000017a0| 69 74 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |it (arg)| (intera|
|000017b0| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|000017c0| 2d 63 6f 64 65 20 22 c1 | 88 c5 60 c1 c2 0b 24 c1 |-code ".|..`...$.|
|000017d0| 1c 18 c6 08 c7 48 21 c8 | 3d 85 23 00 c9 08 c7 48 |.....H!.|=.#....H|
|000017e0| 38 62 88 c8 ca 08 c7 48 | 38 21 88 cb cc 21 2a 88 |8b.....H|8!...!*.|
|000017f0| cd 20 87 22 20 5b 69 6e | 66 6f 20 6e 69 6c 20 74 |. ." [in|fo nil t|
|00001800| 20 61 72 67 20 73 74 72 | 20 63 61 6c 63 2d 65 6d | arg str| calc-em|
|00001810| 62 65 64 64 65 64 2d 6d | 61 6b 65 2d 69 6e 66 6f |bedded-m|ake-info|
|00001820| 20 63 61 72 2d 73 61 66 | 65 20 38 20 65 72 72 6f | car-saf|e 8 erro|
|00001830| 72 20 31 20 32 20 63 61 | 6c 63 2d 64 6f 20 28 6c |r 1 2 ca|lc-do (l|
|00001840| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|00001850| 63 6f 64 65 20 22 0a 19 | c4 0b c5 48 c6 20 5c 22 |code "..|...H. \"|
|00001860| 29 89 10 88 c7 c8 0b 44 | 21 88 c9 08 ca 5c 22 87 |)......D|!....\".|
|00001870| 22 20 5b 73 74 72 20 63 | 61 6c 63 2d 66 6c 6f 61 |" [str c|alc-floa|
|00001880| 74 2d 66 6f 72 6d 61 74 | 20 63 61 6c 63 2d 66 75 |t-format| calc-fu|
|00001890| 6c 6c 2d 66 6c 6f 61 74 | 2d 66 6f 72 6d 61 74 20 |ll-float|-format |
|000018a0| 69 6e 66 6f 20 6d 61 74 | 68 2d 66 6f 72 6d 61 74 |info mat|h-format|
|000018b0| 2d 6e 69 63 65 2d 65 78 | 70 72 20 38 20 73 63 72 |-nice-ex|pr 8 scr|
|000018c0| 65 65 6e 2d 77 69 64 74 | 68 20 63 61 6c 63 2d 65 |een-widt|h calc-e|
|000018d0| 64 69 74 2d 6d 6f 64 65 | 20 63 61 6c 63 2d 65 6d |dit-mode| calc-em|
|000018e0| 62 65 64 64 65 64 2d 66 | 69 6e 69 73 68 2d 65 64 |bedded-f|inish-ed|
|000018f0| 69 74 20 69 6e 73 65 72 | 74 20 22 0a 22 5d 20 36 |it inser|t "."] 6|
|00001900| 29 29 20 63 61 6c 63 2d | 73 68 6f 77 2d 65 64 69 |)) calc-|show-edi|
|00001910| 74 2d 62 75 66 66 65 72 | 5d 20 36 29 29 0a 0a 28 |t-buffer|] 6))..(|
|00001920| 64 65 66 75 6e 20 63 61 | 6c 63 2d 65 6d 62 65 64 |defun ca|lc-embed|
|00001930| 64 65 64 2d 66 69 6e 69 | 73 68 2d 65 64 69 74 20 |ded-fini|sh-edit |
|00001940| 28 69 6e 66 6f 29 20 28 | 62 79 74 65 2d 63 6f 64 |(info) (|byte-cod|
|00001950| 65 20 22 70 cc 60 64 5c | 22 60 c8 1b 1a 19 18 cd |e "p.`d\|"`......|
|00001960| 0c 21 88 8a 0e 06 ce 48 | 71 88 c8 0e 0a 1e 09 1e |.!.....H|q.......|
|00001970| 07 cf 09 21 2a 29 1d d0 | 0d 21 d1 3d 85 3b 00 cd |...!*)..|.!.=.;..|
|00001980| 08 21 88 0a ce 0d 38 5c | 5c 62 88 d1 d2 0d 38 21 |.!....8\|\b....8!|
|00001990| 88 d3 cb 0e 06 5c 22 88 | 0e 06 d4 0d 49 88 d5 0e |.....\".|....I...|
|000019a0| 06 d6 cb cb 24 29 2c 87 | 22 20 5b 62 75 66 20 73 |....$),.|" [buf s|
|000019b0| 74 72 20 73 74 61 72 74 | 20 70 6f 73 20 63 61 6c |tr start| pos cal|
|000019c0| 63 2d 6f 72 69 67 69 6e | 61 6c 2d 62 75 66 66 65 |c-origin|al-buffe|
|000019d0| 72 20 76 61 6c 20 69 6e | 66 6f 20 63 61 6c 63 2d |r val in|fo calc-|
|000019e0| 6c 61 6e 67 75 61 67 65 | 20 6e 69 6c 20 6d 61 74 |language| nil mat|
|000019f0| 68 2d 65 78 70 72 2d 6f | 70 65 72 73 20 6d 61 74 |h-expr-o|pers mat|
|00001a00| 68 2d 73 74 61 6e 64 61 | 72 64 2d 6f 70 65 72 73 |h-standa|rd-opers|
|00001a10| 20 74 20 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 | t buffe|r-substr|
|00001a20| 69 6e 67 20 73 77 69 74 | 63 68 2d 74 6f 2d 62 75 |ing swit|ch-to-bu|
|00001a30| 66 66 65 72 20 31 20 6d | 61 74 68 2d 72 65 61 64 |ffer 1 m|ath-read|
|00001a40| 2d 65 78 70 72 20 63 61 | 72 2d 73 61 66 65 20 65 |-expr ca|r-safe e|
|00001a50| 72 72 6f 72 20 32 20 63 | 61 6c 63 2d 65 6d 62 65 |rror 2 c|alc-embe|
|00001a60| 64 64 65 64 2d 6f 72 69 | 67 69 6e 61 6c 2d 62 75 |dded-ori|ginal-bu|
|00001a70| 66 66 65 72 20 38 20 63 | 61 6c 63 2d 65 6d 62 65 |ffer 8 c|alc-embe|
|00001a80| 64 64 65 64 2d 75 70 64 | 61 74 65 20 31 34 5d 20 |dded-upd|ate 14] |
|00001a90| 31 32 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c |12))..(d|efun cal|
|00001aa0| 63 2d 64 6f 2d 65 6d 62 | 65 64 64 65 64 2d 61 63 |c-do-emb|edded-ac|
|00001ab0| 74 69 76 61 74 65 20 28 | 61 72 67 20 63 62 75 66 |tivate (|arg cbuf|
|00001ac0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 ca 20 |) (byte-|code ". |
|00001ad0| 88 08 85 09 00 cb 20 88 | cc 20 88 cd 08 21 ce 57 |...... .|. ...!.W|
|00001ae0| 83 1d 00 cf d0 d1 20 5c | 22 82 9b 00 cf d2 d1 20 |...... \|"...... |
|00001af0| 5c 22 88 8a d3 70 0a 5c | 22 19 09 1b d4 1c 0d 85 |\"...p.\|".......|
|00001b00| 38 00 d5 d6 0c 0d 23 89 | 14 88 0b 41 89 13 85 60 |8.....#.|...A...`|
|00001b10| 00 d7 d8 0b 40 d9 48 0b | 40 da 48 5c 22 0b 40 db |....@.H.|@.H\".@.|
|00001b20| 48 5c 22 86 5c 5c 00 dc | 09 dd 0b 40 09 41 5c 22 |H\".\\..|...@.A\"|
|00001b30| 5c 22 88 82 39 00 88 65 | 62 88 de 0c c6 c7 23 85 |\"..9..e|b.....#.|
|00001b40| 93 00 df 0e 08 21 85 77 | 00 e0 e1 21 62 88 e2 60 |.....!.w|...!b..`|
|00001b50| 0e 09 c6 23 89 13 88 e3 | 0b e4 48 21 e5 3d 86 8f |...#....|..H!.=..|
|00001b60| 00 0b e6 48 62 88 82 64 | 00 2b 29 88 cf e7 d1 20 |...Hb..d|.+).... |
|00001b70| 5c 22 88 e8 c7 21 87 22 | 20 5b 61 72 67 20 61 63 |\"...!."| [arg ac|
|00001b80| 74 69 76 65 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |tive cal|c-embedd|
|00001b90| 65 64 2d 61 63 74 69 76 | 65 20 69 6e 66 6f 20 70 |ed-activ|e info p|
|00001ba0| 61 74 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |at calc-|embedded|
|00001bb0| 2d 61 6e 6e 6f 75 6e 63 | 65 2d 66 6f 72 6d 75 6c |-announc|e-formul|
|00001bc0| 61 20 6e 69 6c 20 74 20 | 63 61 6c 63 2d 65 6d 62 |a nil t |calc-emb|
|00001bd0| 65 64 64 65 64 2d 6f 70 | 65 6e 2d 66 6f 72 6d 75 |edded-op|en-formu|
|00001be0| 6c 61 20 63 62 75 66 20 | 63 61 6c 63 2d 70 6c 61 |la cbuf |calc-pla|
|00001bf0| 69 6e 2d 62 75 66 66 65 | 72 2d 6f 6e 6c 79 20 63 |in-buffe|r-only c|
|00001c00| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 66 6f 72 |alc-embe|dded-for|
|00001c10| 67 65 74 20 63 61 6c 63 | 2d 66 69 6e 64 2d 67 6c |get calc|-find-gl|
|00001c20| 6f 62 61 6c 73 20 70 72 | 65 66 69 78 2d 6e 75 6d |obals pr|efix-num|
|00001c30| 65 72 69 63 2d 76 61 6c | 75 65 20 30 20 6d 65 73 |eric-val|ue 0 mes|
|00001c40| 73 61 67 65 20 22 44 65 | 61 63 74 69 76 61 74 69 |sage "De|activati|
|00001c50| 6e 67 20 25 73 20 66 6f | 72 20 43 61 6c 63 20 45 |ng %s fo|r Calc E|
|00001c60| 6d 62 65 64 64 65 64 20 | 6d 6f 64 65 2e 22 20 62 |mbedded |mode." b|
|00001c70| 75 66 66 65 72 2d 6e 61 | 6d 65 20 22 41 63 74 69 |uffer-na|me "Acti|
|00001c80| 76 61 74 69 6e 67 20 25 | 73 20 66 6f 72 20 43 61 |vating %|s for Ca|
|00001c90| 6c 63 20 45 6d 62 65 64 | 64 65 64 20 6d 6f 64 65 |lc Embed|ded mode|
|00001ca0| 2e 2e 2e 22 20 61 73 73 | 71 20 22 20 3a 3d 20 5c |..." ass|q " := \|
|00001cb0| 5c 7c 20 5c 5c 5c 5c 67 | 65 74 73 20 5c 5c 7c 20 |\| \\\\g|ets \\| |
|00001cc0| 3d 3e 20 5c 5c 7c 20 5c | 5c 5c 5c 65 76 61 6c 74 |=> \\| \|\\\evalt|
|00001cd0| 6f 20 22 20 66 6f 72 6d | 61 74 20 22 25 73 5c 5c |o " form|at "%s\\|
|00001ce0| 7c 5c 5c 28 25 73 5c 5c | 29 22 20 65 71 75 61 6c ||\\(%s\\|)" equal|
|00001cf0| 20 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e | buffer-|substrin|
|00001d00| 67 20 32 20 33 20 36 20 | 73 65 74 63 64 72 20 64 |g 2 3 6 |setcdr d|
|00001d10| 65 6c 71 20 72 65 2d 73 | 65 61 72 63 68 2d 66 6f |elq re-s|earch-fo|
|00001d20| 72 77 61 72 64 20 6c 6f | 6f 6b 69 6e 67 2d 61 74 |rward lo|oking-at|
|00001d30| 20 6d 61 74 63 68 2d 65 | 6e 64 20 31 20 63 61 6c | match-e|nd 1 cal|
|00001d40| 63 2d 65 6d 62 65 64 64 | 65 64 2d 6d 61 6b 65 2d |c-embedd|ed-make-|
|00001d50| 69 6e 66 6f 20 63 61 72 | 2d 73 61 66 65 20 38 20 |info car|-safe 8 |
|00001d60| 65 72 72 6f 72 20 35 20 | 22 41 63 74 69 76 61 74 |error 5 |"Activat|
|00001d70| 69 6e 67 20 25 73 20 66 | 6f 72 20 43 61 6c 63 20 |ing %s f|or Calc |
|00001d80| 45 6d 62 65 64 64 65 64 | 20 6d 6f 64 65 2e 2e 2e |Embedded| mode...|
|00001d90| 64 6f 6e 65 22 20 63 61 | 6c 63 2d 65 6d 62 65 64 |done" ca|lc-embed|
|00001da0| 64 65 64 2d 61 63 74 69 | 76 65 2d 73 74 61 74 65 |ded-acti|ve-state|
|00001db0| 5d 20 32 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |] 23))..|(defun c|
|00001dc0| 61 6c 63 2d 70 6c 61 69 | 6e 2d 62 75 66 66 65 72 |alc-plai|n-buffer|
|00001dd0| 2d 6f 6e 6c 79 20 6e 69 | 6c 20 28 62 79 74 65 2d |-only ni|l (byte-|
|00001de0| 63 6f 64 65 20 22 08 c1 | 3e 85 09 00 c2 c3 21 87 |code "..|>.....!.|
|00001df0| 22 20 5b 6d 61 6a 6f 72 | 2d 6d 6f 64 65 20 28 63 |" [major|-mode (c|
|00001e00| 61 6c 63 2d 6d 6f 64 65 | 20 63 61 6c 63 2d 74 72 |alc-mode| calc-tr|
|00001e10| 61 69 6c 2d 6d 6f 64 65 | 20 63 61 6c 63 2d 65 64 |ail-mode| calc-ed|
|00001e20| 69 74 2d 6d 6f 64 65 29 | 20 65 72 72 6f 72 20 22 |it-mode)| error "|
|00001e30| 54 68 69 73 20 63 6f 6d | 6d 61 6e 64 20 73 68 6f |This com|mand sho|
|00001e40| 75 6c 64 20 62 65 20 75 | 73 65 64 20 69 6e 20 61 |uld be u|sed in a|
|00001e50| 20 6e 6f 72 6d 61 6c 20 | 65 64 69 74 69 6e 67 20 | normal |editing |
|00001e60| 62 75 66 66 65 72 22 5d | 20 32 29 29 0a 0a 28 64 |buffer"]| 2))..(d|
|00001e70| 65 66 75 6e 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |efun cal|c-embedd|
|00001e80| 65 64 2d 61 63 74 69 76 | 65 2d 73 74 61 74 65 20 |ed-activ|e-state |
|00001e90| 28 73 74 61 74 65 29 20 | 28 62 79 74 65 2d 63 6f |(state) |(byte-co|
|00001ea0| 64 65 20 22 c8 c5 08 5c | 22 86 0e 00 c9 ca 08 42 |de "...\|"......B|
|00001eb0| 42 89 10 88 c8 70 0a 5c | 22 19 09 41 86 1c 00 c4 |B....p.\|"..A....|
|00001ec0| 89 13 29 88 0b cb 3d 85 | 2b 00 0d 85 2b 00 c6 89 |..)...=.|+...+...|
|00001ed0| 13 88 0b c6 3d 15 0b cc | 3e 3f 89 16 07 88 cd ce |....=...|>?......|
|00001ee0| 20 21 87 22 20 5b 6d 69 | 6e 6f 72 2d 6d 6f 64 65 | !." [mi|nor-mode|
|00001ef0| 2d 61 6c 69 73 74 20 61 | 63 74 69 76 65 20 63 61 |-alist a|ctive ca|
|00001f00| 6c 63 2d 65 6d 62 65 64 | 64 65 64 2d 61 63 74 69 |lc-embed|ded-acti|
|00001f10| 76 65 20 73 74 61 74 65 | 20 6e 69 6c 20 63 61 6c |ve state| nil cal|
|00001f20| 63 2d 65 6d 62 65 64 64 | 65 64 2d 61 6c 6c 2d 61 |c-embedd|ed-all-a|
|00001f30| 63 74 69 76 65 20 74 20 | 63 61 6c 63 2d 65 6d 62 |ctive t |calc-emb|
|00001f40| 65 64 64 65 64 2d 73 6f | 6d 65 2d 61 63 74 69 76 |edded-so|me-activ|
|00001f50| 65 20 61 73 73 71 20 28 | 63 61 6c 63 2d 65 6d 62 |e assq (|calc-emb|
|00001f60| 65 64 64 65 64 2d 61 6c | 6c 2d 61 63 74 69 76 65 |edded-al|l-active|
|00001f70| 20 22 20 41 63 74 69 76 | 65 22 29 20 28 63 61 6c | " Activ|e") (cal|
|00001f80| 63 2d 65 6d 62 65 64 64 | 65 64 2d 73 6f 6d 65 2d |c-embedd|ed-some-|
|00001f90| 61 63 74 69 76 65 20 22 | 20 7e 41 63 74 69 76 65 |active "| ~Active|
|00001fa0| 22 29 20 6d 6f 72 65 20 | 28 6e 69 6c 20 74 29 20 |") more |(nil t) |
|00001fb0| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00001fc0| 69 65 64 2d 70 20 62 75 | 66 66 65 72 2d 6d 6f 64 |ied-p bu|ffer-mod|
|00001fd0| 69 66 69 65 64 2d 70 5d | 20 35 29 29 0a 0a 28 64 |ified-p]| 5))..(d|
|00001fe0| 65 66 75 6e 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |efun cal|c-embedd|
|00001ff0| 65 64 2d 6f 72 69 67 69 | 6e 61 6c 2d 62 75 66 66 |ed-origi|nal-buff|
|00002000| 65 72 20 28 73 77 69 74 | 63 68 20 26 6f 70 74 69 |er (swit|ch &opti|
|00002010| 6f 6e 61 6c 20 69 6e 66 | 6f 29 20 28 62 79 74 65 |onal inf|o) (byte|
|00002020| 2d 63 6f 64 65 20 22 08 | 86 07 00 09 89 10 88 c3 |-code ".|........|
|00002030| 08 c4 48 21 86 13 00 c5 | c6 21 88 0a 85 1c 00 08 |..H!....|.!......|
|00002040| c4 48 71 87 22 20 5b 69 | 6e 66 6f 20 63 61 6c 63 |.Hq." [i|nfo calc|
|00002050| 2d 65 6d 62 65 64 64 65 | 64 2d 69 6e 66 6f 20 73 |-embedde|d-info s|
|00002060| 77 69 74 63 68 20 62 75 | 66 66 65 72 2d 6e 61 6d |witch bu|ffer-nam|
|00002070| 65 20 30 20 65 72 72 6f | 72 20 22 43 61 6c 63 20 |e 0 erro|r "Calc |
|00002080| 65 6d 62 65 64 64 65 64 | 20 6d 6f 64 65 3a 20 4f |embedded| mode: O|
|00002090| 72 69 67 69 6e 61 6c 20 | 62 75 66 66 65 72 20 68 |riginal |buffer h|
|000020a0| 61 73 20 62 65 65 6e 20 | 6b 69 6c 6c 65 64 22 5d |as been |killed"]|
|000020b0| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 4))..(d|efun cal|
|000020c0| 63 2d 65 6d 62 65 64 64 | 65 64 2d 77 6f 72 64 20 |c-embedd|ed-word |
|000020d0| 6e 69 6c 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |nil (int|eractive|
|000020e0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 88 |) (byte-|code "..|
|000020f0| c1 c2 21 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |..!." [n|il calc-|
|00002100| 65 6d 62 65 64 64 65 64 | 20 28 34 29 5d 20 32 29 |embedded| (4)] 2)|
|00002110| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 65 |)..(defu|n calc-e|
|00002120| 6d 62 65 64 64 65 64 2d | 6d 61 72 6b 2d 66 6f 72 |mbedded-|mark-for|
|00002130| 6d 75 6c 61 20 28 26 6f | 70 74 69 6f 6e 61 6c 20 |mula (&o|ptional |
|00002140| 62 6f 64 79 2d 6f 6e 6c | 79 29 20 22 5c 0a 50 75 |body-onl|y) "\.Pu|
|00002150| 74 20 70 6f 69 6e 74 20 | 61 74 20 74 68 65 20 62 |t point |at the b|
|00002160| 65 67 69 6e 6e 69 6e 67 | 20 6f 66 20 74 68 69 73 |eginning| of this|
|00002170| 20 43 61 6c 63 20 66 6f | 72 6d 75 6c 61 2c 20 6d | Calc fo|rmula, m|
|00002180| 61 72 6b 20 61 74 20 74 | 68 65 20 65 6e 64 2e 0a |ark at t|he end..|
|00002190| 54 68 69 73 20 6e 6f 72 | 6d 61 6c 6c 79 20 6d 61 |This nor|mally ma|
|000021a0| 72 6b 73 20 74 68 65 20 | 77 68 6f 6c 65 20 66 6f |rks the |whole fo|
|000021b0| 72 6d 75 6c 61 2c 20 69 | 6e 63 6c 75 64 69 6e 67 |rmula, i|ncluding|
|000021c0| 20 73 75 72 72 6f 75 6e | 64 69 6e 67 20 64 65 6c | surroun|ding del|
|000021d0| 69 6d 69 74 65 72 73 2e | 0a 57 69 74 68 20 61 6e |imiters.|.With an|
|000021e0| 79 20 70 72 65 66 69 78 | 20 61 72 67 75 6d 65 6e |y prefix| argumen|
|000021f0| 74 2c 20 6d 61 72 6b 73 | 20 6f 6e 6c 79 20 74 68 |t, marks| only th|
|00002200| 65 20 66 6f 72 6d 75 6c | 61 20 69 74 73 65 6c 66 |e formul|a itself|
|00002210| 2e 22 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |." (inte|ractive |
|00002220| 22 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"P") (by|te-code |
|00002230| 22 c7 88 08 c8 3d 85 0b | 00 c9 ca 21 88 c7 c7 c7 |"....=..|...!....|
|00002240| c7 1c 1b 1a 19 8a cb 0d | 21 29 88 cc 0d 83 23 00 |........|!)....#.|
|00002250| 0a 82 24 00 0c c6 5c 22 | 88 0d 83 2f 00 09 82 30 |..$...\"|.../...0|
|00002260| 00 0b 62 2c 87 22 20 5b | 6d 61 6a 6f 72 2d 6d 6f |..b,." [|major-mo|
|00002270| 64 65 20 74 6f 70 20 62 | 6f 74 20 6f 75 74 65 72 |de top b|ot outer|
|00002280| 2d 74 6f 70 20 6f 75 74 | 65 72 2d 62 6f 74 20 62 |-top out|er-bot b|
|00002290| 6f 64 79 2d 6f 6e 6c 79 | 20 74 20 6e 69 6c 20 63 |ody-only| t nil c|
|000022a0| 61 6c 63 2d 6d 6f 64 65 | 20 65 72 72 6f 72 20 22 |alc-mode| error "|
|000022b0| 54 68 69 73 20 63 6f 6d | 6d 61 6e 64 20 73 68 6f |This com|mand sho|
|000022c0| 75 6c 64 20 62 65 20 75 | 73 65 64 20 69 6e 20 61 |uld be u|sed in a|
|000022d0| 20 6e 6f 72 6d 61 6c 20 | 65 64 69 74 69 6e 67 20 | normal |editing |
|000022e0| 62 75 66 66 65 72 22 20 | 63 61 6c 63 2d 65 6d 62 |buffer" |calc-emb|
|000022f0| 65 64 64 65 64 2d 66 69 | 6e 64 2d 62 6f 75 6e 64 |edded-fi|nd-bound|
|00002300| 73 20 70 75 73 68 2d 6d | 61 72 6b 5d 20 35 29 29 |s push-m|ark] 5))|
|00002310| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 65 6d |..(defun| calc-em|
|00002320| 62 65 64 64 65 64 2d 66 | 69 6e 64 2d 62 6f 75 6e |bedded-f|ind-boun|
|00002330| 64 73 20 28 26 6f 70 74 | 69 6f 6e 61 6c 20 70 6c |ds (&opt|ional pl|
|00002340| 61 69 6e 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ain) (by|te-code |
|00002350| 22 6c 85 15 00 6e 85 15 | 00 60 cc 5a 66 cd 3d 3f |"l...n..|.`.Zf.=?|
|00002360| 85 15 00 ce cf 21 88 60 | 18 d0 09 21 85 5c 22 00 |.....!.`|...!.\".|
|00002370| d0 0a 21 3f 86 30 00 d1 | 09 c3 c4 23 86 30 00 d2 |..!?.0..|...#.0..|
|00002380| d3 21 88 68 d4 3d 85 40 | 00 67 d4 3d 85 40 00 ce |.!.h.=.@|.g.=.@..|
|00002390| cf 21 88 60 89 15 88 d5 | d6 21 62 88 67 cd 3d 85 |.!.`....|.!b.g.=.|
|000023a0| 53 00 ce d7 21 88 6e 86 | 65 00 67 d8 3d 85 65 00 |S...!.n.|e.g.=.e.|
|000023b0| ce d7 21 88 82 58 00 88 | 0e 06 c6 3d 86 7f 00 d0 |..!..X..|...=....|
|000023c0| d9 0e 07 21 21 85 7f 00 | d5 d6 21 62 88 da 0e 08 |...!!...|..!b....|
|000023d0| 21 88 60 89 16 09 88 db | 0a c3 c4 23 86 90 00 d2 |!.`.....|...#....|
|000023e0| dc 21 88 60 08 57 85 9a | 00 d2 dd 21 88 67 cd 3d |.!.`.W..|...!.g.=|
|000023f0| 85 a9 00 6e 3f 85 a9 00 | ce d7 21 88 60 89 16 0a |...n?...|..!.`...|
|00002400| 88 de d6 21 62 88 68 cd | 3d 85 bd 00 df d7 21 88 |...!b.h.|=.....!.|
|00002410| 6c 86 cf 00 68 d8 3d 85 | cf 00 df d7 21 88 82 c2 |l...h.=.|....!...|
|00002420| 00 88 60 89 16 0b 29 87 | 22 20 5b 68 6f 6d 65 20 |..`...).|" [home |
|00002430| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 6f 70 |calc-emb|edded-op|
|00002440| 65 6e 2d 66 6f 72 6d 75 | 6c 61 20 63 61 6c 63 2d |en-formu|la calc-|
|00002450| 65 6d 62 65 64 64 65 64 | 2d 63 6c 6f 73 65 2d 66 |embedded|-close-f|
|00002460| 6f 72 6d 75 6c 61 20 6e | 69 6c 20 74 20 6f 75 74 |ormula n|il t out|
|00002470| 65 72 2d 74 6f 70 20 70 | 6c 61 69 6e 20 63 61 6c |er-top p|lain cal|
|00002480| 63 2d 65 6d 62 65 64 64 | 65 64 2d 6f 70 65 6e 2d |c-embedd|ed-open-|
|00002490| 70 6c 61 69 6e 20 63 61 | 6c 63 2d 65 6d 62 65 64 |plain ca|lc-embed|
|000024a0| 64 65 64 2d 63 6c 6f 73 | 65 2d 70 6c 61 69 6e 20 |ded-clos|e-plain |
|000024b0| 74 6f 70 20 6f 75 74 65 | 72 2d 62 6f 74 20 62 6f |top oute|r-bot bo|
|000024c0| 74 20 32 20 31 30 20 66 | 6f 72 77 61 72 64 2d 63 |t 2 10 f|orward-c|
|000024d0| 68 61 72 20 2d 31 20 6c | 6f 6f 6b 69 6e 67 2d 61 |har -1 l|ooking-a|
|000024e0| 74 20 72 65 2d 73 65 61 | 72 63 68 2d 62 61 63 6b |t re-sea|rch-back|
|000024f0| 77 61 72 64 20 65 72 72 | 6f 72 20 22 43 61 6e 27 |ward err|or "Can'|
|00002500| 74 20 66 69 6e 64 20 73 | 74 61 72 74 20 6f 66 20 |t find s|tart of |
|00002510| 66 6f 72 6d 75 6c 61 22 | 20 33 36 20 6d 61 74 63 |formula"| 36 matc|
|00002520| 68 2d 65 6e 64 20 30 20 | 31 20 33 32 20 72 65 67 |h-end 0 |1 32 reg|
|00002530| 65 78 70 2d 71 75 6f 74 | 65 20 73 65 61 72 63 68 |exp-quot|e search|
|00002540| 2d 66 6f 72 77 61 72 64 | 20 72 65 2d 73 65 61 72 |-forward| re-sear|
|00002550| 63 68 2d 66 6f 72 77 61 | 72 64 20 22 43 61 6e 27 |ch-forwa|rd "Can'|
|00002560| 74 20 66 69 6e 64 20 65 | 6e 64 20 6f 66 20 66 6f |t find e|nd of fo|
|00002570| 72 6d 75 6c 61 22 20 22 | 4e 6f 74 20 69 6e 73 69 |rmula" "|Not insi|
|00002580| 64 65 20 61 20 66 6f 72 | 6d 75 6c 61 22 20 6d 61 |de a for|mula" ma|
|00002590| 74 63 68 2d 62 65 67 69 | 6e 6e 69 6e 67 20 62 61 |tch-begi|nning ba|
|000025a0| 63 6b 77 61 72 64 2d 63 | 68 61 72 5d 20 32 32 29 |ckward-c|har] 22)|
|000025b0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 65 |)..(defu|n calc-e|
|000025c0| 6d 62 65 64 64 65 64 2d | 6b 69 6c 6c 2d 66 6f 72 |mbedded-|kill-for|
|000025d0| 6d 75 6c 61 20 6e 69 6c | 20 22 5c 0a 4b 69 6c 6c |mula nil| "\.Kill|
|000025e0| 20 74 68 65 20 66 6f 72 | 6d 75 6c 61 20 73 75 72 | the for|mula sur|
|000025f0| 72 6f 75 6e 64 69 6e 67 | 20 70 6f 69 6e 74 2e 0a |rounding| point..|
|00002600| 49 66 20 43 61 6c 63 20 | 45 6d 62 65 64 64 65 64 |If Calc |Embedded|
|00002610| 20 6d 6f 64 65 20 77 61 | 73 20 61 63 74 69 76 65 | mode wa|s active|
|00002620| 2c 20 74 68 69 73 20 64 | 65 61 63 74 69 76 61 74 |, this d|eactivat|
|00002630| 65 73 20 69 74 2e 0a 54 | 68 65 20 66 6f 72 6d 75 |es it..T|he formu|
|00002640| 6c 61 20 28 69 6e 63 6c | 75 64 69 6e 67 20 69 74 |la (incl|uding it|
|00002650| 73 20 73 75 72 72 6f 75 | 6e 64 69 6e 67 20 64 65 |s surrou|nding de|
|00002660| 6c 69 6d 69 74 65 72 73 | 29 20 69 73 20 73 61 76 |limiters|) is sav|
|00002670| 65 64 20 69 6e 20 74 68 | 65 20 6b 69 6c 6c 20 72 |ed in th|e kill r|
|00002680| 69 6e 67 2e 0a 54 68 65 | 20 63 6f 6d 6d 61 6e 64 |ing..The| command|
|00002690| 20 5c 5c 5b 79 61 6e 6b | 5d 20 63 61 6e 20 72 65 | \\[yank|] can re|
|000026a0| 74 72 69 65 76 65 20 69 | 74 20 66 72 6f 6d 20 74 |trieve i|t from t|
|000026b0| 68 65 72 65 2e 22 20 28 | 69 6e 74 65 72 61 63 74 |here." (|interact|
|000026c0| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|000026d0| 22 c1 88 08 85 09 00 c2 | c1 21 88 c3 20 88 c4 60 |".......|.!.. ..`|
|000026e0| c5 20 5c 22 88 c6 20 87 | 22 20 5b 63 61 6c 63 2d |. \".. .|" [calc-|
|000026f0| 65 6d 62 65 64 64 65 64 | 2d 69 6e 66 6f 20 6e 69 |embedded|-info ni|
|00002700| 6c 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 20 |l calc-e|mbedded |
|00002710| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 6d 61 |calc-emb|edded-ma|
|00002720| 72 6b 2d 66 6f 72 6d 75 | 6c 61 20 6b 69 6c 6c 2d |rk-formu|la kill-|
|00002730| 72 65 67 69 6f 6e 20 6d | 61 72 6b 20 70 6f 70 2d |region m|ark pop-|
|00002740| 6d 61 72 6b 5d 20 36 29 | 29 0a 0a 28 64 65 66 75 |mark] 6)|)..(defu|
|00002750| 6e 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d |n calc-e|mbedded-|
|00002760| 63 6f 70 79 2d 66 6f 72 | 6d 75 6c 61 2d 61 73 2d |copy-for|mula-as-|
|00002770| 6b 69 6c 6c 20 6e 69 6c | 20 22 5c 0a 53 61 76 65 |kill nil| "\.Save|
|00002780| 20 74 68 65 20 66 6f 72 | 6d 75 6c 61 20 73 75 72 | the for|mula sur|
|00002790| 72 6f 75 6e 64 69 6e 67 | 20 70 6f 69 6e 74 20 61 |rounding| point a|
|000027a0| 73 20 69 66 20 6b 69 6c | 6c 65 64 2c 20 62 75 74 |s if kil|led, but|
|000027b0| 20 64 6f 6e 27 74 20 6b | 69 6c 6c 20 69 74 2e 22 | don't k|ill it."|
|000027c0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|000027d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 8a c1 20 |byte-cod|e ".... |
|000027e0| 88 c2 60 c3 20 5c 22 88 | c4 20 29 87 22 20 5b 6e |..`. \".|. )." [n|
|000027f0| 69 6c 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |il calc-|embedded|
|00002800| 2d 6d 61 72 6b 2d 66 6f | 72 6d 75 6c 61 20 63 6f |-mark-fo|rmula co|
|00002810| 70 79 2d 72 65 67 69 6f | 6e 2d 61 73 2d 6b 69 6c |py-regio|n-as-kil|
|00002820| 6c 20 6d 61 72 6b 20 70 | 6f 70 2d 6d 61 72 6b 5d |l mark p|op-mark]|
|00002830| 20 35 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 5))..(d|efun cal|
|00002840| 63 2d 65 6d 62 65 64 64 | 65 64 2d 64 75 70 6c 69 |c-embedd|ed-dupli|
|00002850| 63 61 74 65 20 6e 69 6c | 20 28 69 6e 74 65 72 61 |cate nil| (intera|
|00002860| 63 74 69 76 65 29 20 28 | 62 79 74 65 2d 63 6f 64 |ctive) (|byte-cod|
|00002870| 65 20 22 c7 88 09 c7 c7 | c7 c7 c7 1e 06 1d 1c 1b |e ".....|........|
|00002880| 1a 18 09 83 33 00 ca 09 | cb 48 21 12 ca 09 cc 48 |....3...|.H!....H|
|00002890| 21 13 ca 09 cd 48 21 14 | ca 09 ce 48 21 89 15 88 |!....H!.|...H!...|
|000028a0| cf c7 21 82 35 00 d0 20 | 88 0d 62 88 d1 63 88 60 |..!.5.. |..b..c.`|
|000028b0| 89 16 06 88 d2 70 0c 0d | 23 88 0e 06 0a 0c 5a 5c |.....p..|#.....Z\|
|000028c0| 5c 62 88 08 83 57 00 c9 | 82 58 00 d3 1e 08 cf 0e |\b...W..|.X......|
|000028d0| 06 0a 0c 5a 5c 5c 0e 06 | 0b 0c 5a 5c 5c 0e 06 0e |...Z\\..|..Z\\...|
|000028e0| 06 0d 0c 5a 5c 5c 24 29 | 2e 06 87 22 20 5b 61 6c |...Z\\$)|..." [al|
|000028f0| 72 65 61 64 79 20 63 61 | 6c 63 2d 65 6d 62 65 64 |ready ca|lc-embed|
|00002900| 64 65 64 2d 69 6e 66 6f | 20 74 6f 70 20 62 6f 74 |ded-info| top bot|
|00002910| 20 6f 75 74 65 72 2d 74 | 6f 70 20 6f 75 74 65 72 | outer-t|op outer|
|00002920| 2d 62 6f 74 20 6e 65 77 | 2d 74 6f 70 20 6e 69 6c |-bot new|-top nil|
|00002930| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 71 | calc-em|bedded-q|
|00002940| 75 69 65 74 20 74 20 2b | 20 32 20 33 20 34 20 35 |uiet t +| 2 3 4 5|
|00002950| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 20 63 | calc-em|bedded c|
|00002960| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 66 69 6e |alc-embe|dded-fin|
|00002970| 64 2d 62 6f 75 6e 64 73 | 20 22 0a 22 20 69 6e 73 |d-bounds| "." ins|
|00002980| 65 72 74 2d 62 75 66 66 | 65 72 2d 73 75 62 73 74 |ert-buff|er-subst|
|00002990| 72 69 6e 67 20 78 5d 20 | 31 34 29 29 0a 0a 28 64 |ring x] |14))..(d|
|000029a0| 65 66 75 6e 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |efun cal|c-embedd|
|000029b0| 65 64 2d 6e 65 78 74 20 | 28 61 72 67 29 20 28 69 |ed-next |(arg) (i|
|000029c0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|000029d0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c6 88 c7 08 |(byte-co|de "....|
|000029e0| 21 89 10 88 c8 70 0a 5c | 22 41 19 09 1b 09 47 1c |!....p.\|"A....G.|
|000029f0| 09 86 1a 00 c9 ca 21 88 | 08 cb 55 86 b4 00 08 cc |......!.|..U.....|
|00002a00| 55 83 5a 00 60 09 40 cd | 48 58 83 3a 00 0c 53 09 |U.Z.`.@.|HX.:..S.|
|00002a10| 38 ce 48 62 82 57 00 0b | 41 85 46 00 60 cf 0b 38 |8.Hb.W..|A.F.`..8|
|00002a20| cd 48 56 85 51 00 0b 41 | 89 13 88 82 3a 00 88 0b |.HV.Q..A|....:...|
|00002a30| 40 ce 48 62 82 b4 00 08 | cc 57 83 71 00 d0 cc 21 |@.Hb....|.W.q...!|
|00002a40| 88 d0 d1 d2 0c d3 5c 22 | 08 cf 23 21 82 b4 00 d4 |......\"|..#!....|
|00002a50| 08 53 0c 5c 22 54 89 10 | 88 0b 85 84 00 60 0b 40 |.S.\"T..|.....`.@|
|00002a60| ce 48 59 85 8f 00 0b 41 | 89 13 88 82 7a 00 88 08 |.HY....A|....z...|
|00002a70| 53 89 10 cb 56 85 aa 00 | 0b 83 a2 00 0b 41 82 a4 |S...V...|.....A..|
|00002a80| 00 09 41 89 13 88 82 90 | 00 88 0b 86 b0 00 09 40 |..A.....|.......@|
|00002a90| ce 48 62 2b 87 22 20 5b | 61 72 67 20 61 63 74 69 |.Hb+." [|arg acti|
|00002aa0| 76 65 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |ve calc-|embedded|
|00002ab0| 2d 61 63 74 69 76 65 20 | 70 20 6e 75 6d 20 74 20 |-active |p num t |
|00002ac0| 6e 69 6c 20 70 72 65 66 | 69 78 2d 6e 75 6d 65 72 |nil pref|ix-numer|
|00002ad0| 69 63 2d 76 61 6c 75 65 | 20 61 73 73 71 20 65 72 |ic-value| assq er|
|00002ae0| 72 6f 72 20 22 4e 6f 20 | 61 63 74 69 76 65 20 66 |ror "No |active f|
|00002af0| 6f 72 6d 75 6c 61 73 20 | 69 6e 20 62 75 66 66 65 |ormulas |in buffe|
|00002b00| 72 22 20 30 20 2d 31 20 | 33 20 32 20 31 20 63 61 |r" 0 -1 |3 2 1 ca|
|00002b10| 6c 63 2d 65 6d 62 65 64 | 64 65 64 2d 6e 65 78 74 |lc-embed|ded-next|
|00002b20| 20 2b 20 2a 20 31 30 30 | 30 20 25 5d 20 31 31 29 | + * 100|0 %] 11)|
|00002b30| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 65 |)..(defu|n calc-e|
|00002b40| 6d 62 65 64 64 65 64 2d | 70 72 65 76 69 6f 75 73 |mbedded-|previous|
|00002b50| 20 28 61 72 67 29 20 28 | 69 6e 74 65 72 61 63 74 | (arg) (|interact|
|00002b60| 69 76 65 20 22 70 22 29 | 20 28 62 79 74 65 2d 63 |ive "p")| (byte-c|
|00002b70| 6f 64 65 20 22 c1 88 c2 | c3 08 21 5b 21 87 22 20 |ode "...|..![!." |
|00002b80| 5b 61 72 67 20 6e 69 6c | 20 63 61 6c 63 2d 65 6d |[arg nil| calc-em|
|00002b90| 62 65 64 64 65 64 2d 6e | 65 78 74 20 70 72 65 66 |bedded-n|ext pref|
|00002ba0| 69 78 2d 6e 75 6d 65 72 | 69 63 2d 76 61 6c 75 65 |ix-numer|ic-value|
|00002bb0| 5d 20 33 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 3))..(|defun ca|
|00002bc0| 6c 63 2d 65 6d 62 65 64 | 64 65 64 2d 6e 65 77 2d |lc-embed|ded-new-|
|00002bd0| 66 6f 72 6d 75 6c 61 20 | 6e 69 6c 20 28 69 6e 74 |formula |nil (int|
|00002be0| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00002bf0| 63 6f 64 65 20 22 c2 88 | 08 ca 3d 85 0b 00 cb cc |code "..|..=.....|
|00002c00| 21 88 09 85 13 00 cd c2 | 21 88 c2 c2 c2 c2 1e 06 |!.......|!.......|
|00002c10| 1d 1c 1b 68 ce 3d 85 28 | 00 cf d0 0e 07 5c 22 83 |...h.=.(|.....\".|
|00002c20| 3d 00 60 53 89 15 88 d1 | d2 21 88 0e 07 d3 c2 4f |=.`S....|.!.....O|
|00002c30| 63 82 44 00 60 89 15 88 | 0e 07 63 88 60 89 13 88 |c.D.`...|..c.`...|
|00002c40| d4 63 88 60 89 14 88 0e | 08 63 88 67 ce 3d 85 5f |.c.`....|.c.g.=._|
|00002c50| 00 cf d5 0e 08 5c 22 85 | 65 00 d6 d3 21 88 60 89 |.....\".|e...!.`.|
|00002c60| 16 06 88 0b 62 88 d7 1e | 09 cd 0b 0c 0d 0e 06 24 |....b...|.......$|
|00002c70| 29 2c 87 22 20 5b 6d 61 | 6a 6f 72 2d 6d 6f 64 65 |),." [ma|jor-mode|
|00002c80| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 69 | calc-em|bedded-i|
|00002c90| 6e 66 6f 20 6e 69 6c 20 | 74 6f 70 20 62 6f 74 20 |nfo nil |top bot |
|00002ca0| 6f 75 74 65 72 2d 74 6f | 70 20 6f 75 74 65 72 2d |outer-to|p outer-|
|00002cb0| 62 6f 74 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |bot calc|-embedde|
|00002cc0| 64 2d 6f 70 65 6e 2d 6e | 65 77 2d 66 6f 72 6d 75 |d-open-n|ew-formu|
|00002cd0| 6c 61 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |la calc-|embedded|
|00002ce0| 2d 63 6c 6f 73 65 2d 6e | 65 77 2d 66 6f 72 6d 75 |-close-n|ew-formu|
|00002cf0| 6c 61 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |la calc-|embedded|
|00002d00| 2d 71 75 69 65 74 20 63 | 61 6c 63 2d 6d 6f 64 65 |-quiet c|alc-mode|
|00002d10| 20 65 72 72 6f 72 20 22 | 54 68 69 73 20 63 6f 6d | error "|This com|
|00002d20| 6d 61 6e 64 20 73 68 6f | 75 6c 64 20 62 65 20 75 |mand sho|uld be u|
|00002d30| 73 65 64 20 69 6e 20 61 | 20 6e 6f 72 6d 61 6c 20 |sed in a| normal |
|00002d40| 65 64 69 74 69 6e 67 20 | 62 75 66 66 65 72 22 20 |editing |buffer" |
|00002d50| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 20 31 30 |calc-emb|edded 10|
|00002d60| 20 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5c | string-|match "\|
|00002d70| 5c 60 0a 22 20 66 6f 72 | 77 61 72 64 2d 63 68 61 |\`." for|ward-cha|
|00002d80| 72 20 2d 31 20 31 20 22 | 20 22 20 22 0a 5c 5c 27 |r -1 1 "| " ".\\'|
|00002d90| 22 20 64 65 6c 65 74 65 | 2d 63 68 61 72 20 78 5d |" delete|-char x]|
|00002da0| 20 31 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 | 11))..(|defun ca|
|00002db0| 6c 63 2d 65 6d 62 65 64 | 64 65 64 2d 66 6f 72 67 |lc-embed|ded-forg|
|00002dc0| 65 74 20 6e 69 6c 20 28 | 69 6e 74 65 72 61 63 74 |et nil (|interact|
|00002dd0| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00002de0| 22 c1 88 c2 c3 70 08 5c | 22 08 5c 22 89 10 88 c4 |"....p.\|".\"....|
|00002df0| c1 21 87 22 20 5b 63 61 | 6c 63 2d 65 6d 62 65 64 |.!." [ca|lc-embed|
|00002e00| 64 65 64 2d 61 63 74 69 | 76 65 20 6e 69 6c 20 64 |ded-acti|ve nil d|
|00002e10| 65 6c 71 20 61 73 73 71 | 20 63 61 6c 63 2d 65 6d |elq assq| calc-em|
|00002e20| 62 65 64 64 65 64 2d 61 | 63 74 69 76 65 2d 73 74 |bedded-a|ctive-st|
|00002e30| 61 74 65 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |ate] 4))|..(defun|
|00002e40| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 73 | calc-em|bedded-s|
|00002e50| 65 74 2d 6d 6f 64 65 73 | 20 28 67 6d 6f 64 65 73 |et-modes| (gmodes|
|00002e60| 20 6d 6f 64 65 73 20 6c | 6f 63 61 6c 2d 6d 6f 64 | modes l|ocal-mod|
|00002e70| 65 73 20 26 6f 70 74 69 | 6f 6e 61 6c 20 74 65 6d |es &opti|onal tem|
|00002e80| 70 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 d0 |p) (byte|-code ".|
|00002e90| 20 d1 20 0b c5 c5 c5 1e | 07 1e 06 1c 1a 19 18 0a | . .....|........|
|00002ea0| 85 8f 00 0a 40 39 86 86 | 00 d2 0a 40 40 0e 08 5c |....@9..|...@@..\|
|00002eb0| 22 89 16 06 85 2d 00 0e | 06 41 d3 3d 3f 86 86 00 |"....-..|.A.=?...|
|00002ec0| d2 0a 40 40 0e 09 5c 22 | 89 16 06 85 43 00 0e 06 |..@@..\"|....C...|
|00002ed0| 41 d3 3d 3f 86 86 00 0a | 40 41 89 16 07 d3 3d 85 |A.=?....|@A....=.|
|00002ee0| 5c 5c 00 d2 0a 40 40 0e | 0a 5c 22 41 89 16 07 88 |\\...@@.|.\"A....|
|00002ef0| d4 0a 40 40 4a 0e 07 5c | 22 86 86 00 cb 89 14 88 |..@@J..\|".......|
|00002f00| 0e 0c 85 7f 00 0a 40 40 | 0a 40 40 4a 42 0e 0d 42 |......@@|.@@JB..B|
|00002f10| 89 16 0d 88 0a 40 40 0e | 07 4c 88 0a 41 89 12 88 |.....@@.|.L..A...|
|00002f20| 82 10 00 88 0e 08 89 12 | 88 0a 85 ec 00 d2 0a 40 |........|.......@|
|00002f30| 40 0e 09 5c 22 89 16 06 | 85 ac 00 0e 06 41 d3 3d |@..\"...|.....A.=|
|00002f40| 3f 86 e3 00 0a 40 41 89 | 16 07 d3 3d 86 e3 00 d4 |?....@A.|...=....|
|00002f50| 0a 40 40 4a 0e 07 5c 22 | 86 e3 00 cb 89 14 88 0e |.@@J..\"|........|
|00002f60| 0c 85 dc 00 0a 40 40 0a | 40 40 4a 42 0e 0d 42 89 |.....@@.|@@JB..B.|
|00002f70| 16 0d 88 0a 40 40 0e 07 | 4c 88 0a 41 89 12 88 82 |....@@..|L..A....|
|00002f80| 95 00 88 0e 09 89 12 88 | 0a 85 33 01 0a 40 41 89 |........|..3..@A.|
|00002f90| 16 07 d3 3d 86 2a 01 d4 | 0a 40 40 4a 0e 07 5c 22 |...=.*..|.@@J..\"|
|00002fa0| 86 2a 01 cb 89 14 88 0e | 0c 85 23 01 0a 40 40 0a |.*......|..#..@@.|
|00002fb0| 40 40 4a 42 0e 0d 42 89 | 16 0d 88 0a 40 40 0e 07 |@@JB..B.|....@@..|
|00002fc0| 4c 88 0a 41 89 12 88 82 | f2 00 88 0c 85 47 01 0e |L..A....|.....G..|
|00002fd0| 0c cb 3d 3f 85 47 01 d5 | 09 21 88 d6 08 21 88 0c |..=?.G..|.!...!..|
|00002fe0| 85 69 01 0e 0c 3f 85 69 | 01 0e 0f 40 d7 3d 83 5e |.i...?.i|...@.=.^|
|00002ff0| 01 d8 82 61 01 0e 0f 40 | d9 44 89 16 0e 88 da 20 |...a...@|.D..... |
|00003000| 88 0c 2e 06 87 22 20 5b | 74 68 65 2d 6c 61 6e 67 |....." [|the-lang|
|00003010| 75 61 67 65 20 74 68 65 | 2d 64 69 73 70 6c 61 79 |uage the|-display|
|00003020| 2d 6a 75 73 74 20 76 20 | 67 6d 6f 64 65 73 20 63 |-just v |gmodes c|
|00003030| 68 61 6e 67 65 64 20 6e | 69 6c 20 66 6f 75 6e 64 |hanged n|il found|
|00003040| 20 76 61 6c 75 65 20 6d | 6f 64 65 73 20 6c 6f 63 | value m|odes loc|
|00003050| 61 6c 2d 6d 6f 64 65 73 | 20 63 61 6c 63 2d 6d 6f |al-modes| calc-mo|
|00003060| 64 65 2d 76 61 72 2d 6c | 69 73 74 20 74 20 74 65 |de-var-l|ist t te|
|00003070| 6d 70 20 70 72 65 76 2d | 6d 6f 64 65 73 20 63 61 |mp prev-|modes ca|
|00003080| 6c 63 2d 66 75 6c 6c 2d | 66 6c 6f 61 74 2d 66 6f |lc-full-|float-fo|
|00003090| 72 6d 61 74 20 63 61 6c | 63 2d 66 6c 6f 61 74 2d |rmat cal|c-float-|
|000030a0| 66 6f 72 6d 61 74 20 63 | 61 6c 63 2d 65 6d 62 65 |format c|alc-embe|
|000030b0| 64 64 65 64 2d 6c 61 6e | 67 75 61 67 65 20 63 61 |dded-lan|guage ca|
|000030c0| 6c 63 2d 65 6d 62 65 64 | 64 65 64 2d 6a 75 73 74 |lc-embed|ded-just|
|000030d0| 69 66 79 20 61 73 73 71 | 20 64 65 66 61 75 6c 74 |ify assq| default|
|000030e0| 20 65 71 75 61 6c 20 63 | 61 6c 63 2d 65 6d 62 65 | equal c|alc-embe|
|000030f0| 64 64 65 64 2d 73 65 74 | 2d 6a 75 73 74 69 66 79 |dded-set|-justify|
|00003100| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 73 | calc-em|bedded-s|
|00003110| 65 74 2d 6c 61 6e 67 75 | 61 67 65 20 66 69 78 20 |et-langu|age fix |
|00003120| 66 6c 6f 61 74 20 30 20 | 63 61 6c 63 2d 72 65 66 |float 0 |calc-ref|
|00003130| 72 65 73 68 5d 20 31 33 | 29 29 0a 0a 28 64 65 66 |resh] 13|))..(def|
|00003140| 75 6e 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |un calc-|embedded|
|00003150| 2d 6c 61 6e 67 75 61 67 | 65 20 6e 69 6c 20 28 62 |-languag|e nil (b|
|00003160| 79 74 65 2d 63 6f 64 65 | 20 22 08 83 0a 00 09 08 |yte-code| "......|
|00003170| 44 82 0b 00 09 87 22 20 | 5b 63 61 6c 63 2d 6c 61 |D....." |[calc-la|
|00003180| 6e 67 75 61 67 65 2d 6f | 70 74 69 6f 6e 20 63 61 |nguage-o|ption ca|
|00003190| 6c 63 2d 6c 61 6e 67 75 | 61 67 65 5d 20 32 29 29 |lc-langu|age] 2))|
|000031a0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 65 6d |..(defun| calc-em|
|000031b0| 62 65 64 64 65 64 2d 73 | 65 74 2d 6c 61 6e 67 75 |bedded-s|et-langu|
|000031c0| 61 67 65 20 28 6c 61 6e | 67 29 20 28 62 79 74 65 |age (lan|g) (byte|
|000031d0| 2d 63 6f 64 65 20 22 c1 | 18 0a 3a 85 0f 00 c6 0a |-code ".|..:.....|
|000031e0| 38 10 0a 40 89 12 88 0a | 0b 3d 85 1a 00 c7 08 0c |8..@....|.=......|
|000031f0| 5c 22 86 5c 22 00 c8 0a | 08 c5 23 29 87 22 20 5b |\".\"...|..#)." [|
|00003200| 6f 70 74 69 6f 6e 20 6e | 69 6c 20 6c 61 6e 67 20 |option n|il lang |
|00003210| 63 61 6c 63 2d 6c 61 6e | 67 75 61 67 65 20 63 61 |calc-lan|guage ca|
|00003220| 6c 63 2d 6c 61 6e 67 75 | 61 67 65 2d 6f 70 74 69 |lc-langu|age-opti|
|00003230| 6f 6e 20 74 20 31 20 65 | 71 75 61 6c 20 63 61 6c |on t 1 e|qual cal|
|00003240| 63 2d 73 65 74 2d 6c 61 | 6e 67 75 61 67 65 5d 20 |c-set-la|nguage] |
|00003250| 35 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |5))..(de|fun calc|
|00003260| 2d 65 6d 62 65 64 64 65 | 64 2d 6a 75 73 74 69 66 |-embedde|d-justif|
|00003270| 79 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |y nil (b|yte-code|
|00003280| 20 22 08 83 0a 00 09 08 | 44 82 0b 00 09 87 22 20 | "......|D....." |
|00003290| 5b 63 61 6c 63 2d 64 69 | 73 70 6c 61 79 2d 6f 72 |[calc-di|splay-or|
|000032a0| 69 67 69 6e 20 63 61 6c | 63 2d 64 69 73 70 6c 61 |igin cal|c-displa|
|000032b0| 79 2d 6a 75 73 74 5d 20 | 32 29 29 0a 0a 28 64 65 |y-just] |2))..(de|
|000032c0| 66 75 6e 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |fun calc|-embedde|
|000032d0| 64 2d 73 65 74 2d 6a 75 | 73 74 69 66 79 20 28 6a |d-set-ju|stify (j|
|000032e0| 75 73 74 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ust) (by|te-code |
|000032f0| 22 08 3a 83 10 00 c4 08 | 38 11 08 40 89 12 82 15 |".:.....|8..@....|
|00003300| 00 08 12 c3 89 11 87 22 | 20 5b 6a 75 73 74 20 63 |......."| [just c|
|00003310| 61 6c 63 2d 64 69 73 70 | 6c 61 79 2d 6f 72 69 67 |alc-disp|lay-orig|
|00003320| 69 6e 20 63 61 6c 63 2d | 64 69 73 70 6c 61 79 2d |in calc-|display-|
|00003330| 6a 75 73 74 20 6e 69 6c | 20 31 5d 20 32 29 29 0a |just nil| 1] 2)).|
|00003340| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 66 69 6e |.(defun |calc-fin|
|00003350| 64 2d 67 6c 6f 62 61 6c | 73 20 6e 69 6c 20 28 69 |d-global|s nil (i|
|00003360| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00003370| 65 2d 63 6f 64 65 20 22 | c2 88 08 ca 3d 85 0b 00 |e-code "|....=...|
|00003380| cb cc 21 88 cd c9 21 88 | c2 c2 60 c2 c2 1e 06 1d |..!...!.|..`.....|
|00003390| 1c 1b 19 65 62 88 ce cf | c2 c7 23 85 55 00 d0 d1 |...eb...|..#.U...|
|000033a0| d2 d3 21 d4 d3 21 5c 22 | 0e 08 5c 22 89 15 85 51 |..!..!\"|..\"...Q|
|000033b0| 00 d5 0d 41 0b 5c 22 86 | 51 00 0d 41 d6 d1 d2 d7 |...A.\".|Q..A....|
|000033c0| 21 d4 d7 21 5c 22 21 40 | 42 0b 42 89 13 88 82 1e |!..!\"!@|B.B.....|
|000033d0| 00 88 c7 0b 42 89 16 09 | 88 0c 62 2d 87 22 20 5b |....B...|..b-." [|
|000033e0| 6d 61 6a 6f 72 2d 6d 6f | 64 65 20 63 61 73 65 2d |major-mo|de case-|
|000033f0| 66 6f 6c 64 2d 73 65 61 | 72 63 68 20 6e 69 6c 20 |fold-sea|rch nil |
|00003400| 6d 6f 64 65 73 20 73 61 | 76 65 2d 70 74 20 66 6f |modes sa|ve-pt fo|
|00003410| 75 6e 64 20 76 61 6c 75 | 65 20 74 20 63 61 6c 63 |und valu|e t calc|
|00003420| 2d 65 6d 62 65 64 64 65 | 64 2d 6d 6f 64 65 2d 76 |-embedde|d-mode-v|
|00003430| 61 72 73 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |ars calc|-embedde|
|00003440| 64 2d 67 6c 6f 62 61 6c | 73 20 63 61 6c 63 2d 6d |d-global|s calc-m|
|00003450| 6f 64 65 20 65 72 72 6f | 72 20 22 54 68 69 73 20 |ode erro|r "This |
|00003460| 63 6f 6d 6d 61 6e 64 20 | 73 68 6f 75 6c 64 20 62 |command |should b|
|00003470| 65 20 75 73 65 64 20 69 | 6e 20 61 20 6e 6f 72 6d |e used i|n a norm|
|00003480| 61 6c 20 65 64 69 74 69 | 6e 67 20 62 75 66 66 65 |al editi|ng buffe|
|00003490| 72 22 20 6d 61 6b 65 2d | 6c 6f 63 61 6c 2d 76 61 |r" make-|local-va|
|000034a0| 72 69 61 62 6c 65 20 72 | 65 2d 73 65 61 72 63 68 |riable r|e-search|
|000034b0| 2d 66 6f 72 77 61 72 64 | 20 22 5c 5c 5b 63 61 6c |-forward| "\\[cal|
|000034c0| 63 2d 67 6c 6f 62 61 6c | 2d 6d 6f 64 65 3a 20 2a |c-global|-mode: *|
|000034d0| 5c 5c 28 5b 2d 61 2d 7a | 5d 2b 5c 5c 29 3a 20 2a |\\([-a-z|]+\\): *|
|000034e0| 5c 5c 28 5c 22 5c 5c 28 | 5b 5e 5c 22 0a 5c 5c 5d |\\(\"\\(|[^\".\\]|
|000034f0| 5c 5c 7c 5c 5c 5c 5c 2e | 5c 5c 29 2a 5c 22 5c 5c |\\|\\\\.|\\)*\"\\|
|00003500| 7c 5b 2d 20 28 29 61 2d | 7a 41 2d 5a 30 2d 39 5d ||[- ()a-|zA-Z0-9]|
|00003510| 2b 5c 5c 29 5c 5c 5d 22 | 20 61 73 73 6f 63 20 62 |+\\)\\]"| assoc b|
|00003520| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 20 |uffer-su|bstring |
|00003530| 6d 61 74 63 68 2d 62 65 | 67 69 6e 6e 69 6e 67 20 |match-be|ginning |
|00003540| 31 20 6d 61 74 63 68 2d | 65 6e 64 20 61 73 73 71 |1 match-|end assq|
|00003550| 20 72 65 61 64 2d 66 72 | 6f 6d 2d 73 74 72 69 6e | read-fr|om-strin|
|00003560| 67 20 32 5d 20 31 36 29 | 29 0a 0a 28 64 65 66 75 |g 2] 16)|)..(defu|
|00003570| 6e 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d |n calc-e|mbedded-|
|00003580| 66 69 6e 64 2d 6d 6f 64 | 65 73 20 6e 69 6c 20 28 |find-mod|es nil (|
|00003590| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 60 c4 c1 c1 |byte-cod|e ".`...|
|000035a0| c1 c1 c1 1e 09 1e 08 1e | 07 1e 06 1d 1b 1a 18 0b |........|........|
|000035b0| 85 1d 00 cb cc c1 c4 23 | 85 e0 00 cd ce 21 88 cf |.......#|.....!..|
|000035c0| d0 21 85 58 00 d1 d2 d3 | d4 21 d5 d4 21 5c 22 0e |.!.X....|.!..!\".|
|000035d0| 0a 5c 22 89 16 08 85 58 | 00 d6 0e 08 41 0d 5c 22 |.\"....X|....A.\"|
|000035e0| 86 58 00 0e 08 41 d7 d2 | d3 d8 21 d5 d8 21 5c 22 |.X...A..|..!..!\"|
|000035f0| 21 40 42 0d 42 89 15 86 | d8 00 cf d9 21 85 92 00 |!@B.B...|....!...|
|00003600| d1 d2 d3 d4 21 d5 d4 21 | 5c 22 0e 0a 5c 22 89 16 |....!..!|\"..\"..|
|00003610| 08 85 92 00 d6 0e 08 41 | 0e 07 5c 22 86 92 00 0e |.......A|..\"....|
|00003620| 08 41 d7 d2 d3 d8 21 d5 | d8 21 5c 22 21 40 42 0e |.A....!.|.!\"!@B.|
|00003630| 07 42 89 16 07 86 d8 00 | cf da 21 85 cc 00 d1 d2 |.B......|..!.....|
|00003640| d3 d4 21 d5 d4 21 5c 22 | 0e 0a 5c 22 89 16 08 85 |..!..!\"|..\"....|
|00003650| cc 00 d6 0e 08 41 0e 06 | 5c 22 86 cc 00 0e 08 41 |.....A..|\".....A|
|00003660| d7 d2 d3 d8 21 d5 d8 21 | 5c 22 21 40 42 0e 06 42 |....!..!|\"!@B..B|
|00003670| 89 16 06 86 d8 00 cf db | 21 85 d8 00 c1 89 13 88 |........|!.......|
|00003680| dc ce 21 88 82 14 00 88 | 0a 62 88 0d 0e 06 0e 07 |..!.....|.b......|
|00003690| 45 2e 08 87 22 20 5b 63 | 61 73 65 2d 66 6f 6c 64 |E..." [c|ase-fold|
|000036a0| 2d 73 65 61 72 63 68 20 | 6e 69 6c 20 73 61 76 65 |-search |nil save|
|000036b0| 2d 70 74 20 6e 6f 2d 64 | 65 66 61 75 6c 74 73 20 |-pt no-d|efaults |
|000036c0| 74 20 6d 6f 64 65 73 20 | 65 6d 6f 64 65 73 20 70 |t modes |emodes p|
|000036d0| 6d 6f 64 65 73 20 66 6f | 75 6e 64 20 76 61 6c 75 |modes fo|und valu|
|000036e0| 65 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d |e calc-e|mbedded-|
|000036f0| 6d 6f 64 65 2d 76 61 72 | 73 20 73 65 61 72 63 68 |mode-var|s search|
|00003700| 2d 62 61 63 6b 77 61 72 | 64 20 22 5b 63 61 6c 63 |-backwar|d "[calc|
|00003710| 2d 22 20 66 6f 72 77 61 | 72 64 2d 63 68 61 72 20 |-" forwa|rd-char |
|00003720| 36 20 6c 6f 6f 6b 69 6e | 67 2d 61 74 20 22 6d 6f |6 lookin|g-at "mo|
|00003730| 64 65 3a 20 2a 5c 5c 28 | 5b 2d 61 2d 7a 5d 2b 5c |de: *\\(|[-a-z]+\|
|00003740| 5c 29 3a 20 2a 5c 5c 28 | 5c 22 5c 5c 28 5b 5e 5c |\): *\\(|\"\\([^\|
|00003750| 22 0a 5c 5c 5d 5c 5c 7c | 5c 5c 5c 5c 2e 5c 5c 29 |".\\]\\||\\\\.\\)|
|00003760| 2a 5c 22 5c 5c 7c 5b 2d | 20 28 29 61 2d 7a 41 2d |*\"\\|[-| ()a-zA-|
|00003770| 5a 30 2d 39 5d 2b 5c 5c | 29 5d 22 20 61 73 73 6f |Z0-9]+\\|)]" asso|
|00003780| 63 20 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 |c buffer|-substri|
|00003790| 6e 67 20 6d 61 74 63 68 | 2d 62 65 67 69 6e 6e 69 |ng match|-beginni|
|000037a0| 6e 67 20 31 20 6d 61 74 | 63 68 2d 65 6e 64 20 61 |ng 1 mat|ch-end a|
|000037b0| 73 73 71 20 72 65 61 64 | 2d 66 72 6f 6d 2d 73 74 |ssq read|-from-st|
|000037c0| 72 69 6e 67 20 32 20 22 | 70 65 72 6d 2d 6d 6f 64 |ring 2 "|perm-mod|
|000037d0| 65 3a 20 2a 5c 5c 28 5b | 2d 61 2d 7a 5d 2b 5c 5c |e: *\\([|-a-z]+\\|
|000037e0| 29 3a 20 2a 5c 5c 28 5c | 22 5c 5c 28 5b 5e 5c 22 |): *\\(\|"\\([^\"|
|000037f0| 0a 5c 5c 5d 5c 5c 7c 5c | 5c 5c 5c 2e 5c 5c 29 2a |.\\]\\|\|\\\.\\)*|
|00003800| 5c 22 5c 5c 7c 5b 2d 20 | 28 29 61 2d 7a 41 2d 5a |\"\\|[- |()a-zA-Z|
|00003810| 30 2d 39 5d 2b 5c 5c 29 | 5d 22 20 22 65 64 69 74 |0-9]+\\)|]" "edit|
|00003820| 2d 6d 6f 64 65 3a 20 2a | 5c 5c 28 5b 2d 61 2d 7a |-mode: *|\\([-a-z|
|00003830| 5d 2b 5c 5c 29 3a 20 2a | 5c 5c 28 5c 22 5c 5c 28 |]+\\): *|\\(\"\\(|
|00003840| 5b 5e 5c 22 0a 5c 5c 5d | 5c 5c 7c 5c 5c 5c 5c 2e |[^\".\\]|\\|\\\\.|
|00003850| 5c 5c 29 2a 5c 22 5c 5c | 7c 5b 2d 20 28 29 61 2d |\\)*\"\\||[- ()a-|
|00003860| 7a 41 2d 5a 30 2d 39 5d | 2b 5c 5c 29 5d 22 20 22 |zA-Z0-9]|+\\)]" "|
|00003870| 64 65 66 61 75 6c 74 73 | 5d 22 20 62 61 63 6b 77 |defaults|]" backw|
|00003880| 61 72 64 2d 63 68 61 72 | 5d 20 33 37 29 29 0a 0a |ard-char|] 37))..|
|00003890| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 65 6d 62 65 |(defun c|alc-embe|
|000038a0| 64 64 65 64 2d 6d 61 6b | 65 2d 69 6e 66 6f 20 28 |dded-mak|e-info (|
|000038b0| 70 6f 69 6e 74 20 63 62 | 75 66 20 66 72 65 73 68 |point cb|uf fresh|
|000038c0| 20 26 6f 70 74 69 6f 6e | 61 6c 20 74 6f 70 20 62 | &option|al top b|
|000038d0| 6f 74 20 6f 75 74 65 72 | 2d 74 6f 70 20 6f 75 74 |ot outer|-top out|
|000038e0| 65 72 2d 62 6f 74 29 20 | 28 62 79 74 65 2d 63 6f |er-bot) |(byte-co|
|000038f0| 64 65 20 22 e1 70 09 5c | 22 18 08 1a 0c 85 0c 00 |de ".p.\|".......|
|00003900| 0d 1b 0d 1e 06 c8 1e 07 | c8 1e 09 c8 1e 0a 0a 86 |........|........|
|00003910| 25 00 70 43 12 0a 09 42 | 89 11 88 0a 41 85 33 00 |%.pC...B|....A.3.|
|00003920| 0e 0b 0a 41 40 e2 48 56 | 85 3e 00 0a 41 89 12 88 |...A@.HV|.>..A...|
|00003930| 82 26 00 88 0a 41 85 4c | 00 0e 0b e3 0a 38 e4 48 |.&...A.L|.....8.H|
|00003940| 59 83 58 00 e3 0a 38 89 | 16 09 82 7a 00 e5 e6 c8 |Y.X...8.|...z....|
|00003950| 5c 22 16 09 cc 16 07 cc | 89 14 88 0e 09 e7 70 49 |\"......|......pI|
|00003960| 88 0e 09 e3 0e 0d 86 79 | 00 8a e8 20 88 70 29 49 |.......y|... .p)I|
|00003970| 88 e9 0d 21 85 84 00 0e | 0e 3f 83 e8 00 ea 0e 0f |...!....|.?......|
|00003980| 21 89 16 0f e7 55 83 a7 | 00 0e 09 e4 eb ec 20 21 |!....U..|...... !|
|00003990| 49 88 0e 09 e2 eb ed 20 | 21 49 82 cf 00 0e 09 0e |I...... |!I......|
|000039a0| 0f e7 56 83 b4 00 e4 82 | b5 00 e2 ee 20 49 88 ef |..V.....|.... I..|
|000039b0| 0e 0f 21 88 0e 09 0e 0f | e7 56 83 cb 00 e2 82 cc |..!.....|.V......|
|000039c0| 00 e4 ee 20 49 88 0e 09 | f0 eb 0e 09 e4 48 21 49 |... I...|.....H!I|
|000039d0| 88 0e 09 f1 eb 0e 09 e2 | 48 21 49 82 4c 01 0e 09 |........|H!I.L...|
|000039e0| f0 48 83 fb 00 0e 09 e4 | 48 15 0d 89 16 06 82 4c |.H......|H......L|
|000039f0| 01 0d 3a 83 0f 01 0e 11 | 0e 13 1e 12 1e 10 f2 f3 |..:.....|........|
|00003a00| 21 2a 82 16 01 0d 86 16 | 01 f2 f3 21 88 0e 09 e4 |!*......|...!....|
|00003a10| eb 0d 0e 0e 5e 21 49 88 | 0e 09 e2 eb 0d 0e 0e 5d |....^!I.|.......]|
|00003a20| 21 49 88 0e 09 f0 eb 0e | 14 86 3a 01 0e 09 e4 48 |!I......|..:....H|
|00003a30| 21 49 88 0e 09 f1 eb 0e | 15 86 4a 01 0e 09 e2 48 |!I......|..J....H|
|00003a40| 21 49 88 0e 09 e4 48 62 | 88 0e 07 85 75 01 6e 86 |!I....Hb|....u.n.|
|00003a50| 61 01 0e 09 f4 cc 49 88 | 0e 09 e2 48 62 88 6e 86 |a.....I.|...Hb.n.|
|00003a60| 75 01 6c 86 75 01 0e 09 | f4 cc 49 88 0c 85 98 01 |u.l.u...|..I.....|
|00003a70| f5 20 1e 16 0e 09 f6 0e | 16 40 49 88 0e 09 f7 e3 |. ......|.@I.....|
|00003a80| 0e 16 38 49 88 0e 09 f8 | e4 0e 16 38 49 29 88 0e |..8I....|...8I)..|
|00003a90| 09 f9 0e 17 49 88 fa 0e | 09 e4 48 0e 09 e2 48 5c |....I...|..H...H\|
|00003aa0| 22 89 16 0a 88 0b 86 bb | 01 fb 0e 0a 0e 09 fc 48 |".......|.......H|
|00003ab0| 5c 22 3f 85 27 03 0e 06 | 85 c7 01 0e 09 fc 48 83 |\"?.'...|......H.|
|00003ac0| df 01 0e 09 f0 c8 49 88 | fd 0e 0b 0e 0d c8 23 88 |......I.|......#.|
|00003ad0| c8 89 16 07 82 27 03 0e | 19 1e 18 0e 1b 1e 1a 0e |.....'..|........|
|00003ae0| 18 47 1e 1c c8 1e 1d c8 | 1e 1e c8 1e 1f c8 1e 20 |.G......|....... |
|00003af0| 8a 0e 09 e3 48 71 88 fe | 0e 09 f9 48 0e 09 f6 48 |....Hq..|...H...H|
|00003b00| 0e 09 f8 48 23 88 0e 0a | 47 0e 1c 56 85 33 02 fb |...H#...|G..V.3..|
|00003b10| 0e 0a e7 0e 1c 4f 0e 18 | 5c 22 85 33 02 ff 81 40 |.....O..|\".3...@|
|00003b20| 00 0e 1a 21 0e 0a 0e 1c | 23 89 16 1e 83 47 02 81 |...!....|#....G..|
|00003b30| 41 00 0e 0a 0e 1c 0e 1e | 4f 21 89 16 1f 82 64 02 |A.......|O!....d.|
|00003b40| ff 81 42 00 0e 0a 5c 22 | 83 60 02 e7 16 1c 81 43 |..B...\"|.`.....C|
|00003b50| 00 0e 0a 21 89 16 1f 82 | 64 02 c8 89 16 1f 29 88 |...!....|d.....).|
|00003b60| 81 44 00 0e 1f 21 81 45 | 00 3d 85 8c 02 81 45 00 |.D...!.E|.=....E.|
|00003b70| 81 46 00 0e 09 e4 48 0e | 1c e3 0e 1f 38 23 e4 0e |.F....H.|....8#..|
|00003b80| 1f 38 45 89 16 1f 88 0e | 09 fc 0e 0a 49 88 0e 09 |.8E.....|....I...|
|00003b90| 81 47 00 0e 1f 49 88 0e | 1f 89 16 20 88 81 44 00 |.G...I..|... ..D.|
|00003ba0| 0e 20 21 81 48 00 3d 83 | ba 02 e3 0e 20 38 89 16 |. !.H.=.|.... 8..|
|00003bb0| 20 82 e8 02 81 44 00 0e | 20 21 81 45 00 3d 85 e8 | ....D..| !.E.=..|
|00003bc0| 02 0e 07 83 d3 02 c8 89 | 16 07 82 e8 02 81 49 00 |........|......I.|
|00003bd0| 0a 81 4a 00 0e 09 0a 41 | 5c 22 5c 22 88 81 4b 00 |..J....A|\"\"..K.|
|00003be0| 81 4c 00 21 88 0e 09 81 | 4d 00 81 44 00 0e 20 21 |.L.!....|M..D.. !|
|00003bf0| 81 4e 00 3d 85 ff 02 e3 | 0e 20 38 49 88 81 44 00 |.N.=....|. 8I..D.|
|00003c00| 0e 1f 21 81 4f 00 3e 85 | 14 03 81 50 00 0e 1f 21 |..!.O.>.|...P...!|
|00003c10| 88 0e 09 81 51 00 0e 1d | 49 88 0e 09 81 52 00 c8 |....Q...|I....R..|
|00003c20| 49 2e 07 88 0e 07 85 3f | 03 81 49 00 0a 0e 09 0a |I......?|..I.....|
|00003c30| 41 42 5c 22 88 81 4b 00 | 81 53 00 21 88 0e 09 2e |AB\"..K.|.S.!....|
|00003c40| 07 87 22 20 5b 62 75 66 | 65 6e 74 72 79 20 63 61 |.." [buf|entry ca|
|00003c50| 6c 63 2d 65 6d 62 65 64 | 64 65 64 2d 61 63 74 69 |lc-embed|ded-acti|
|00003c60| 76 65 20 66 6f 75 6e 64 | 20 66 6f 72 63 65 20 66 |ve found| force f|
|00003c70| 72 65 73 68 20 74 6f 70 | 20 66 69 78 65 64 20 6e |resh top| fixed n|
|00003c80| 65 77 2d 69 6e 66 6f 20 | 6e 69 6c 20 69 6e 66 6f |ew-info |nil info|
|00003c90| 20 73 74 72 20 70 6f 69 | 6e 74 20 74 20 63 62 75 | str poi|nt t cbu|
|00003ca0| 66 20 62 6f 74 20 61 72 | 67 20 63 61 6c 63 2d 65 |f bot ar|g calc-e|
|00003cb0| 6d 62 65 64 64 65 64 2d | 6f 70 65 6e 2d 66 6f 72 |mbedded-|open-for|
|00003cc0| 6d 75 6c 61 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |mula cal|c-embedd|
|00003cd0| 65 64 2d 6f 70 65 6e 2d | 77 6f 72 64 20 63 61 6c |ed-open-|word cal|
|00003ce0| 63 2d 65 6d 62 65 64 64 | 65 64 2d 63 6c 6f 73 65 |c-embedd|ed-close|
|00003cf0| 2d 66 6f 72 6d 75 6c 61 | 20 63 61 6c 63 2d 65 6d |-formula| calc-em|
|00003d00| 62 65 64 64 65 64 2d 63 | 6c 6f 73 65 2d 77 6f 72 |bedded-c|lose-wor|
|00003d10| 64 20 6f 75 74 65 72 2d | 74 6f 70 20 6f 75 74 65 |d outer-|top oute|
|00003d20| 72 2d 62 6f 74 20 6d 6f | 64 65 73 20 63 61 6c 63 |r-bot mo|des calc|
|00003d30| 2d 65 6d 62 65 64 64 65 | 64 2d 67 6c 6f 62 61 6c |-embedde|d-global|
|00003d40| 73 20 6f 70 65 6e 2d 70 | 6c 61 69 6e 20 63 61 6c |s open-p|lain cal|
|00003d50| 63 2d 65 6d 62 65 64 64 | 65 64 2d 6f 70 65 6e 2d |c-embedd|ed-open-|
|00003d60| 70 6c 61 69 6e 20 63 6c | 6f 73 65 2d 70 6c 61 69 |plain cl|ose-plai|
|00003d70| 6e 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d |n calc-e|mbedded-|
|00003d80| 63 6c 6f 73 65 2d 70 6c | 61 69 6e 20 70 72 65 66 |close-pl|ain pref|
|00003d90| 2d 6c 65 6e 20 76 61 72 | 73 2d 75 73 65 64 20 73 |-len var|s-used s|
|00003da0| 75 66 66 2d 70 6f 73 20 | 76 61 6c 20 74 65 6d 70 |uff-pos |val temp|
|00003db0| 20 61 73 73 71 20 33 20 | 31 20 32 20 6d 61 6b 65 | assq 3 |1 2 make|
|00003dc0| 2d 76 65 63 74 6f 72 20 | 31 36 20 30 20 63 61 6c |-vector |16 0 cal|
|00003dd0| 63 2d 63 72 65 61 74 65 | 2d 62 75 66 66 65 72 20 |c-create|-buffer |
|00003de0| 69 6e 74 65 67 65 72 70 | 20 70 72 65 66 69 78 2d |integerp| prefix-|
|00003df0| 6e 75 6d 65 72 69 63 2d | 76 61 6c 75 65 20 63 6f |numeric-|value co|
|00003e00| 70 79 2d 6d 61 72 6b 65 | 72 20 72 65 67 69 6f 6e |py-marke|r region|
|00003e10| 2d 62 65 67 69 6e 6e 69 | 6e 67 20 72 65 67 69 6f |-beginni|ng regio|
|00003e20| 6e 2d 65 6e 64 20 70 6f | 69 6e 74 2d 6d 61 72 6b |n-end po|int-mark|
|00003e30| 65 72 20 66 6f 72 77 61 | 72 64 2d 6c 69 6e 65 20 |er forwa|rd-line |
|00003e40| 34 20 35 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |4 5 calc|-embedde|
|00003e50| 64 2d 66 69 6e 64 2d 62 | 6f 75 6e 64 73 20 70 6c |d-find-b|ounds pl|
|00003e60| 61 69 6e 20 37 20 63 61 | 6c 63 2d 65 6d 62 65 64 |ain 7 ca|lc-embed|
|00003e70| 64 65 64 2d 66 69 6e 64 | 2d 6d 6f 64 65 73 20 31 |ded-find|-modes 1|
|00003e80| 32 20 31 33 20 31 34 20 | 31 35 20 62 75 66 66 65 |2 13 14 |15 buffe|
|00003e90| 72 2d 73 75 62 73 74 72 | 69 6e 67 20 65 71 75 61 |r-substr|ing equa|
|00003ea0| 6c 20 36 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |l 6 calc|-embedde|
|00003eb0| 64 2d 6d 61 6b 65 2d 69 | 6e 66 6f 20 63 61 6c 63 |d-make-i|nfo calc|
|00003ec0| 2d 65 6d 62 65 64 64 65 | 64 2d 73 65 74 2d 6d 6f |-embedde|d-set-mo|
|00003ed0| 64 65 73 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |des stri|ng-match|
|00003ee0| 20 72 65 67 65 78 70 2d | 71 75 6f 74 65 20 6d 61 | regexp-|quote ma|
|00003ef0| 74 68 2d 72 65 61 64 2d | 70 6c 61 69 6e 2d 65 78 |th-read-|plain-ex|
|00003f00| 70 72 20 22 5b 5e 20 09 | 0a 5d 22 20 6d 61 74 68 |pr "[^ .|.]" math|
|00003f10| 2d 72 65 61 64 2d 62 69 | 67 2d 65 78 70 72 20 63 |-read-bi|g-expr c|
|00003f20| 61 72 2d 73 61 66 65 20 | 65 72 72 6f 72 20 2b 20 |ar-safe |error + |
|00003f30| 38 20 63 61 6c 63 46 75 | 6e 63 2d 65 76 61 6c 74 |8 calcFu|nc-evalt|
|00003f40| 6f 20 73 65 74 63 64 72 | 20 64 65 6c 71 20 63 61 |o setcdr| delq ca|
|00003f50| 6c 63 2d 65 6d 62 65 64 | 64 65 64 2d 61 63 74 69 |lc-embed|ded-acti|
|00003f60| 76 65 2d 73 74 61 74 65 | 20 6c 65 73 73 20 39 20 |ve-state| less 9 |
|00003f70| 63 61 6c 63 46 75 6e 63 | 2d 61 73 73 69 67 6e 20 |calcFunc|-assign |
|00003f80| 28 63 61 6c 63 46 75 6e | 63 2d 65 76 61 6c 74 6f |(calcFun|c-evalto|
|00003f90| 20 63 61 6c 63 46 75 6e | 63 2d 61 73 73 69 67 6e | calcFun|c-assign|
|00003fa0| 29 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d |) calc-e|mbedded-|
|00003fb0| 66 69 6e 64 2d 76 61 72 | 73 20 31 30 20 31 31 20 |find-var|s 10 11 |
|00003fc0| 6d 6f 72 65 5d 20 34 35 | 29 29 0a 0a 28 64 65 66 |more] 45|))..(def|
|00003fd0| 75 6e 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |un calc-|embedded|
|00003fe0| 2d 66 69 6e 64 2d 76 61 | 72 73 20 28 78 29 20 28 |-find-va|rs (x) (|
|00003ff0| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 3a 3f 86 0a |byte-cod|e ".:?..|
|00004000| 00 08 40 c3 3e 83 26 00 | c4 08 21 c5 3d 85 23 00 |..@.>.&.|..!.=.#.|
|00004010| c6 08 09 5c 22 3f 85 23 | 00 08 43 09 42 89 11 82 |...\"?.#|..C.B...|
|00004020| 84 00 08 40 c7 3d 83 35 | 00 c8 c9 08 38 21 82 84 |...@.=.5|....8!..|
|00004030| 00 08 40 ca 3d 83 44 00 | c8 cb 08 38 21 82 84 00 |..@.=.D.|...8!...|
|00004040| 08 40 cc 3d 85 74 00 c4 | c9 08 38 21 c5 3d 85 74 |.@.=.t..|..8!.=.t|
|00004050| 00 cb 08 38 3a 3f 86 63 | 00 cb 08 38 40 cd 3e 85 |...8:?.c|...8@.>.|
|00004060| 74 00 c6 08 09 5c 22 3f | 85 74 00 08 43 09 42 89 |t....\"?|.t..C.B.|
|00004070| 11 88 08 41 89 10 85 84 | 00 c8 08 40 21 88 82 75 |...A....|...@!..u|
|00004080| 00 87 22 20 5b 78 20 76 | 61 72 73 2d 75 73 65 64 |.." [x v|ars-used|
|00004090| 20 74 20 28 62 69 67 70 | 6f 73 20 62 69 67 6e 65 | t (bigp|os bigne|
|000040a0| 67 20 66 72 61 63 20 66 | 6c 6f 61 74 20 63 70 6c |g frac f|loat cpl|
|000040b0| 78 20 70 6f 6c 61 72 20 | 68 6d 73 20 64 61 74 65 |x polar |hms date|
|000040c0| 20 6d 6f 64 20 76 61 72 | 29 20 63 61 72 2d 73 61 | mod var|) car-sa|
|000040d0| 66 65 20 76 61 72 20 61 | 73 73 6f 63 20 63 61 6c |fe var a|ssoc cal|
|000040e0| 63 46 75 6e 63 2d 65 76 | 61 6c 74 6f 20 63 61 6c |cFunc-ev|alto cal|
|000040f0| 63 2d 65 6d 62 65 64 64 | 65 64 2d 66 69 6e 64 2d |c-embedd|ed-find-|
|00004100| 76 61 72 73 20 31 20 63 | 61 6c 63 46 75 6e 63 2d |vars 1 c|alcFunc-|
|00004110| 61 73 73 69 67 6e 20 32 | 20 63 61 6c 63 46 75 6e |assign 2| calcFun|
|00004120| 63 2d 73 75 62 73 63 72 | 20 28 62 69 67 70 6f 73 |c-subscr| (bigpos|
|00004130| 20 62 69 67 6e 65 67 20 | 66 72 61 63 20 66 6c 6f | bigneg |frac flo|
|00004140| 61 74 20 63 70 6c 78 20 | 70 6f 6c 61 72 20 68 6d |at cplx |polar hm|
|00004150| 73 20 64 61 74 65 20 6d | 6f 64 20 76 61 72 29 5d |s date m|od var)]|
|00004160| 20 39 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 9))..(d|efun cal|
|00004170| 63 2d 65 6d 62 65 64 64 | 65 64 2d 65 76 61 6c 75 |c-embedd|ed-evalu|
|00004180| 61 74 65 2d 65 78 70 72 | 20 28 78 29 20 28 62 79 |ate-expr| (x) (by|
|00004190| 74 65 2d 63 6f 64 65 20 | 22 09 c8 48 18 08 86 0b |te-code |"..H....|
|000041a0| 00 c9 0a 21 88 08 83 4a | 00 ca 09 cb 48 0c 5c 22 |...!...J|....H.\"|
|000041b0| c6 1d 1b 8a cc c7 21 88 | 0b 86 2d 00 cd 20 88 ca |......!.|..-.. ..|
|000041c0| 09 cb 48 0c 5c 22 89 13 | 88 08 85 41 00 ce 08 40 |..H.\"..|...A...@|
|000041d0| 40 0b 5c 22 88 08 41 89 | 10 88 82 2e 00 29 88 cf |@.\"..A.|.....)..|
|000041e0| 0a 21 2a 82 4f 00 d0 d1 | 0a 21 21 29 87 22 20 5b |.!*.O...|.!!)." [|
|000041f0| 76 61 72 73 2d 75 73 65 | 64 20 63 61 6c 63 2d 65 |vars-use|d calc-e|
|00004200| 6d 62 65 64 64 65 64 2d | 69 6e 66 6f 20 78 20 61 |mbedded-|info x a|
|00004210| 63 74 69 76 65 20 63 61 | 6c 63 2d 65 6d 62 65 64 |ctive ca|lc-embed|
|00004220| 64 65 64 2d 61 63 74 69 | 76 65 20 61 72 67 73 20 |ded-acti|ve args |
|00004230| 6e 69 6c 20 74 20 31 30 | 20 63 61 6c 63 2d 65 6d |nil t 10| calc-em|
|00004240| 62 65 64 64 65 64 2d 66 | 69 6e 64 2d 76 61 72 73 |bedded-f|ind-vars|
|00004250| 20 61 73 73 71 20 30 20 | 63 61 6c 63 2d 65 6d 62 | assq 0 |calc-emb|
|00004260| 65 64 64 65 64 2d 6f 72 | 69 67 69 6e 61 6c 2d 62 |edded-or|iginal-b|
|00004270| 75 66 66 65 72 20 63 61 | 6c 63 2d 65 6d 62 65 64 |uffer ca|lc-embed|
|00004280| 64 65 64 2d 61 63 74 69 | 76 61 74 65 20 63 61 6c |ded-acti|vate cal|
|00004290| 63 2d 65 6d 62 65 64 64 | 65 64 2d 65 76 61 6c 2d |c-embedd|ed-eval-|
|000042a0| 67 65 74 2d 76 61 72 20 | 63 61 6c 63 2d 65 6d 62 |get-var |calc-emb|
|000042b0| 65 64 64 65 64 2d 73 75 | 62 73 74 20 63 61 6c 63 |edded-su|bst calc|
|000042c0| 2d 6e 6f 72 6d 61 6c 69 | 7a 65 20 6d 61 74 68 2d |-normali|ze math-|
|000042d0| 65 76 61 6c 75 61 74 65 | 2d 65 78 70 72 2d 72 65 |evaluate|-expr-re|
|000042e0| 63 5d 20 31 30 29 29 0a | 0a 28 64 65 66 75 6e 20 |c] 10)).|.(defun |
|000042f0| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 73 75 |calc-emb|edded-su|
|00004300| 62 73 74 20 28 78 29 20 | 28 62 79 74 65 2d 63 6f |bst (x) |(byte-co|
|00004310| 64 65 20 22 c2 08 21 c3 | 3d 85 0a 00 08 41 83 2b |de "..!.|=....A.+|
|00004320| 00 c4 c5 08 38 21 19 c3 | c5 08 38 c2 09 21 c6 3d |....8!..|..8..!.=|
|00004330| 83 25 00 c7 09 38 82 26 | 00 09 45 29 82 4e 00 c2 |.%...8.&|..E).N..|
|00004340| 08 21 c6 3d 85 37 00 08 | 47 c8 55 83 47 00 c6 c5 |.!.=.7..|G.U.G...|
|00004350| 08 38 c4 c7 08 38 21 45 | 82 4e 00 c9 ca cb 08 21 |.8...8!E|.N.....!|
|00004360| 21 21 87 22 20 5b 78 20 | 72 68 73 20 63 61 72 2d |!!." [x |rhs car-|
|00004370| 73 61 66 65 20 63 61 6c | 63 46 75 6e 63 2d 65 76 |safe cal|cFunc-ev|
|00004380| 61 6c 74 6f 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |alto cal|c-embedd|
|00004390| 65 64 2d 73 75 62 73 74 | 20 31 20 63 61 6c 63 46 |ed-subst| 1 calcF|
|000043a0| 75 6e 63 2d 61 73 73 69 | 67 6e 20 32 20 33 20 63 |unc-assi|gn 2 3 c|
|000043b0| 61 6c 63 2d 6e 6f 72 6d | 61 6c 69 7a 65 20 6d 61 |alc-norm|alize ma|
|000043c0| 74 68 2d 65 76 61 6c 75 | 61 74 65 2d 65 78 70 72 |th-evalu|ate-expr|
|000043d0| 2d 72 65 63 20 6d 61 74 | 68 2d 6d 75 6c 74 69 2d |-rec mat|h-multi-|
|000043e0| 73 75 62 73 74 2d 72 65 | 63 5d 20 39 29 29 0a 0a |subst-re|c] 9))..|
|000043f0| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 65 6d 62 65 |(defun c|alc-embe|
|00004400| 64 64 65 64 2d 65 76 61 | 6c 2d 67 65 74 2d 76 61 |dded-eva|l-get-va|
|00004410| 72 20 28 76 61 72 20 62 | 61 73 65 29 20 28 62 79 |r (var b|ase) (by|
|00004420| 74 65 2d 63 6f 64 65 20 | 22 09 0b ca 48 c5 c5 1e |te-code |"...H...|
|00004430| 06 1c 1a 18 08 41 89 10 | 85 2a 00 cb 0e 07 08 40 |.....A..|.*.....@|
|00004440| cc 48 5c 22 3f 86 2a 00 | 0a 08 40 cd 48 56 85 2a |.H\"?.*.|..@.HV.*|
|00004450| 00 08 89 14 85 32 00 c5 | 88 82 0b 00 88 0c 85 3a |.....2..|.......:|
|00004460| 00 0c 89 10 88 08 85 a2 | 00 08 40 89 10 88 cb ce |........|..@.....|
|00004470| 08 ca 48 08 cd 48 5c 22 | 08 cf 48 5c 22 83 9a 00 |..H..H\"|..H\"...|
|00004480| 08 d0 48 86 62 00 8a d1 | 08 d2 c8 c5 24 29 88 08 |..H.b...|....$)..|
|00004490| d0 48 89 16 06 88 d3 0e | 06 21 d4 3d 85 7a 00 ca |.H......|.!.=.z..|
|000044a0| 0e 06 38 89 16 06 88 d3 | 0e 06 21 d5 3d 85 8b 00 |..8.....|..!.=...|
|000044b0| ca 0e 06 38 89 16 06 88 | 0e 07 0e 06 42 0e 09 42 |...8....|....B..B|
|000044c0| 89 16 09 82 a2 00 d6 20 | 88 d7 0e 07 09 5c 22 2c |....... |.....\",|
|000044d0| 87 22 20 5b 65 6e 74 72 | 79 20 62 61 73 65 20 70 |." [entr|y base p|
|000044e0| 6f 69 6e 74 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |oint cal|c-embedd|
|000044f0| 65 64 2d 69 6e 66 6f 20 | 6c 61 73 74 20 6e 69 6c |ed-info |last nil|
|00004500| 20 76 61 6c 20 76 61 72 | 20 74 20 61 72 67 73 20 | val var| t args |
|00004510| 32 20 65 71 75 61 6c 20 | 39 20 33 20 62 75 66 66 |2 equal |9 3 buff|
|00004520| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 20 36 20 31 |er-subst|ring 6 1|
|00004530| 31 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d |1 calc-e|mbedded-|
|00004540| 75 70 64 61 74 65 20 31 | 34 20 63 61 72 2d 73 61 |update 1|4 car-sa|
|00004550| 66 65 20 63 61 6c 63 46 | 75 6e 63 2d 65 76 61 6c |fe calcF|unc-eval|
|00004560| 74 6f 20 63 61 6c 63 46 | 75 6e 63 2d 61 73 73 69 |to calcF|unc-assi|
|00004570| 67 6e 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |gn calc-|embedded|
|00004580| 2d 61 63 74 69 76 61 74 | 65 20 63 61 6c 63 2d 65 |-activat|e calc-e|
|00004590| 6d 62 65 64 64 65 64 2d | 65 76 61 6c 2d 67 65 74 |mbedded-|eval-get|
|000045a0| 2d 76 61 72 5d 20 31 30 | 29 29 0a 0a 28 64 65 66 |-var] 10|))..(def|
|000045b0| 75 6e 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |un calc-|embedded|
|000045c0| 2d 75 70 64 61 74 65 20 | 28 69 6e 66 6f 20 77 68 |-update |(info wh|
|000045d0| 69 63 68 20 6e 65 65 64 | 2d 65 76 61 6c 20 6e 65 |ich need|-eval ne|
|000045e0| 65 64 2d 64 69 73 70 6c | 61 79 20 26 6f 70 74 69 |ed-displ|ay &opti|
|000045f0| 6f 6e 61 6c 20 73 74 72 | 20 65 6e 74 72 79 20 6f |onal str| entry o|
|00004600| 6c 64 2d 76 61 6c 29 20 | 28 62 79 74 65 2d 63 6f |ld-val) |(byte-co|
|00004610| 64 65 20 22 c1 18 0b 1a | 0d 1c c1 1e 06 c1 1e 07 |de "....|........|
|00004620| 0e 09 db 48 1e 08 0e 09 | dc 48 1e 0a 0e 0b 86 5c |...H....|.H.....\|
|00004630| 22 00 0e 08 89 16 0b 88 | dd 0e 08 21 de 3d 85 30 |".......|...!.=.0|
|00004640| 00 cd 89 16 0c 88 df 8e | 0e 09 e0 48 71 88 0e 0e |........|...Hq...|
|00004650| 85 57 00 e1 0e 09 e2 48 | 0e 09 e3 48 0e 09 0e 0e |.W.....H|...H....|
|00004660| 48 0e 0c 83 55 00 e4 82 | 56 00 cd 24 88 dd 0e 08 |H...U...|V..$....|
|00004670| 21 e5 3e 85 65 00 e6 0e | 08 21 88 0e 0f 85 7b 00 |!.>.e...|.!....{.|
|00004680| 0e 09 1e 10 e7 0e 08 21 | 16 08 0e 08 89 16 07 29 |.......!|.......)|
|00004690| 88 0e 0f e8 3d 86 89 00 | dd 0e 08 21 de 3d 85 92 |....=...|...!.=..|
|000046a0| 00 0e 09 db 0e 08 49 88 | 0e 09 e9 c1 49 88 0e 09 |......I.|....I...|
|000046b0| ea 0e 06 49 88 0e 09 dc | c1 49 88 0e 0c 86 b1 00 |...I....|.I......|
|000046c0| dd 0e 08 21 de 3d 85 7c | 01 0e 12 eb 3d 83 bf 00 |...!.=.||....=...|
|000046d0| e0 82 c0 00 ec 1e 11 0e | 13 86 cf 00 0e 08 e0 c1 |........|........|
|000046e0| 45 89 16 13 88 0e 14 86 | f0 00 c1 1e 15 ed 0e 13 |E.......|........|
|000046f0| 21 29 89 16 14 88 0e 12 | eb 3d 85 f0 00 0e 14 ec |!)......|.=......|
|00004700| ee 4f 89 16 14 88 0e 16 | 85 08 01 0a 0e 18 1e 17 |.O......|........|
|00004710| ef 0e 08 ec 5c 22 29 0c | 0e 14 52 89 16 14 88 8a |....\").|..R.....|
|00004720| f0 cd 0e 09 5c 22 88 f1 | 0e 14 0e 09 f2 48 5c 22 |....\"..|.....H\"|
|00004730| 86 7a 01 0e 09 f3 48 0e | 09 f4 48 5a c1 1e 1a 1e |.z....H.|..HZ....|
|00004740| 19 0e 09 f5 48 62 88 f6 | 60 0e 09 f4 48 5c 22 88 |....Hb..|`...H\".|
|00004750| e0 0e 13 38 0e 11 54 56 | 85 5b 01 0e 09 f7 48 85 |...8..TV|.[....H.|
|00004760| 5b 01 0e 09 f7 c1 49 88 | f8 20 88 f9 63 88 f8 20 |[.....I.|. ..c.. |
|00004770| 88 fa e0 21 88 0e 14 63 | 88 fb 0e 09 f4 48 60 5c |...!...c|.....H`\|
|00004780| 22 88 fb 0e 09 f3 48 60 | 0e 19 5c 5c 5c 22 88 0e |".....H`|..\\\"..|
|00004790| 09 f2 0e 14 49 2a 29 29 | 88 dd 0e 08 21 de 3d 85 |....I*))|....!.=.|
|000047a0| 93 01 f5 0e 08 38 16 07 | e0 0e 08 38 89 16 08 88 |.....8..|...8....|
|000047b0| dd 0e 08 21 fc 3d 83 d3 | 01 0e 09 e9 e0 0e 08 38 |...!.=..|.......8|
|000047c0| 49 88 0e 09 dc 0e 07 86 | b9 01 0e 09 1e 10 e7 f5 |I.......|........|
|000047d0| 0e 08 38 21 29 49 88 f1 | 0e 0a 0e 09 dc 48 5c 22 |..8!)I..|.....H\"|
|000047e0| 86 d0 01 fd e0 0e 08 38 | 0e 09 ec 48 5c 22 82 f7 |.......8|...H\"..|
|000047f0| 01 dd 0e 0b 21 de 3d 85 | e3 01 e0 0e 0b 38 89 16 |....!.=.|.....8..|
|00004800| 0b 88 dd 0e 0b 21 fc 3d | 85 f7 01 fd e0 0e 0b 38 |.....!.=|.......8|
|00004810| 0e 09 ec 48 5c 22 29 2e | 07 87 22 20 5b 70 72 65 |...H\").|.." [pre|
|00004820| 76 2d 6d 6f 64 65 73 20 | 6e 69 6c 20 6f 70 65 6e |v-modes |nil open|
|00004830| 2d 70 6c 61 69 6e 20 63 | 61 6c 63 2d 65 6d 62 65 |-plain c|alc-embe|
|00004840| 64 64 65 64 2d 6f 70 65 | 6e 2d 70 6c 61 69 6e 20 |dded-ope|n-plain |
|00004850| 63 6c 6f 73 65 2d 70 6c | 61 69 6e 20 63 61 6c 63 |close-pl|ain calc|
|00004860| 2d 65 6d 62 65 64 64 65 | 64 2d 63 6c 6f 73 65 2d |-embedde|d-close-|
|00004870| 70 6c 61 69 6e 20 76 61 | 72 73 2d 75 73 65 64 20 |plain va|rs-used |
|00004880| 65 76 61 6c 6c 65 64 20 | 76 61 6c 20 69 6e 66 6f |evalled |val info|
|00004890| 20 6f 6c 64 2d 65 76 61 | 6c 20 6f 6c 64 2d 76 61 | old-eva|l old-va|
|000048a0| 6c 20 6e 65 65 64 2d 64 | 69 73 70 6c 61 79 20 74 |l need-d|isplay t|
|000048b0| 20 77 68 69 63 68 20 6e | 65 65 64 2d 65 76 61 6c | which n|eed-eval|
|000048c0| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 69 | calc-em|bedded-i|
|000048d0| 6e 66 6f 20 65 78 74 72 | 61 20 63 61 6c 63 2d 6c |nfo extr|a calc-l|
|000048e0| 61 6e 67 75 61 67 65 20 | 65 6e 74 72 79 20 73 74 |anguage |entry st|
|000048f0| 72 20 63 61 6c 63 2d 6c | 69 6e 65 2d 6e 75 6d 62 |r calc-l|ine-numb|
|00004900| 65 72 69 6e 67 20 63 61 | 6c 63 2d 73 68 6f 77 2d |ering ca|lc-show-|
|00004910| 70 6c 61 69 6e 20 63 61 | 6c 63 2d 66 6c 6f 61 74 |plain ca|lc-float|
|00004920| 2d 66 6f 72 6d 61 74 20 | 63 61 6c 63 2d 66 75 6c |-format |calc-ful|
|00004930| 6c 2d 66 6c 6f 61 74 2d | 66 6f 72 6d 61 74 20 64 |l-float-|format d|
|00004940| 65 6c 74 61 20 62 75 66 | 66 65 72 2d 72 65 61 64 |elta buf|fer-read|
|00004950| 2d 6f 6e 6c 79 20 38 20 | 31 31 20 63 61 72 2d 73 |-only 8 |11 car-s|
|00004960| 61 66 65 20 63 61 6c 63 | 46 75 6e 63 2d 65 76 61 |afe calc|Func-eva|
|00004970| 6c 74 6f 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |lto ((by|te-code |
|00004980| 22 08 c4 48 71 88 09 85 | 41 00 09 40 40 c5 3d 83 |"..Hq...|A..@@.=.|
|00004990| 1d 00 0a 85 1a 00 c6 09 | 40 41 21 82 38 00 09 40 |........|@A!.8..@|
|000049a0| 40 c7 3d 83 31 00 0a 85 | 2e 00 c8 09 40 41 21 82 |@.=.1...|....@A!.|
|000049b0| 38 00 09 40 40 09 40 41 | 4c 88 09 41 89 11 88 82 |8..@@.@A|L..A....|
|000049c0| 05 00 87 22 20 5b 69 6e | 66 6f 20 70 72 65 76 2d |..." [in|fo prev-|
|000049d0| 6d 6f 64 65 73 20 6e 65 | 65 64 2d 64 69 73 70 6c |modes ne|ed-displ|
|000049e0| 61 79 20 74 20 31 20 74 | 68 65 2d 6c 61 6e 67 75 |ay t 1 t|he-langu|
|000049f0| 61 67 65 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |age calc|-embedde|
|00004a00| 64 2d 73 65 74 2d 6c 61 | 6e 67 75 61 67 65 20 74 |d-set-la|nguage t|
|00004a10| 68 65 2d 64 69 73 70 6c | 61 79 2d 6a 75 73 74 20 |he-displ|ay-just |
|00004a20| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 73 65 |calc-emb|edded-se|
|00004a30| 74 2d 6a 75 73 74 69 66 | 79 5d 20 35 29 29 20 31 |t-justif|y] 5)) 1|
|00004a40| 20 63 61 6c 63 2d 65 6d | 62 65 64 64 65 64 2d 73 | calc-em|bedded-s|
|00004a50| 65 74 2d 6d 6f 64 65 73 | 20 31 35 20 31 32 20 66 |et-modes| 15 12 f|
|00004a60| 75 6c 6c 20 28 63 61 6c | 63 46 75 6e 63 2d 65 76 |ull (cal|cFunc-ev|
|00004a70| 61 6c 74 6f 20 63 61 6c | 63 46 75 6e 63 2d 61 73 |alto cal|cFunc-as|
|00004a80| 73 69 67 6e 29 20 63 61 | 6c 63 2d 65 6d 62 65 64 |sign) ca|lc-embed|
|00004a90| 64 65 64 2d 66 69 6e 64 | 2d 76 61 72 73 20 6d 61 |ded-find|-vars ma|
|00004aa0| 74 68 2d 65 76 61 6c 75 | 61 74 65 2d 65 78 70 72 |th-evalu|ate-expr|
|00004ab0| 20 65 76 61 6c 20 39 20 | 31 30 20 62 69 67 20 30 | eval 9 |10 big 0|
|00004ac0| 20 6d 61 74 68 2d 66 6f | 72 6d 61 74 2d 73 74 61 | math-fo|rmat-sta|
|00004ad0| 63 6b 2d 76 61 6c 75 65 | 20 2d 31 20 6d 61 74 68 |ck-value| -1 math|
|00004ae0| 2d 66 6f 72 6d 61 74 2d | 66 6c 61 74 2d 65 78 70 |-format-|flat-exp|
|00004af0| 72 20 63 61 6c 63 2d 65 | 6d 62 65 64 64 65 64 2d |r calc-e|mbedded-|
|00004b00| 6f 72 69 67 69 6e 61 6c | 2d 62 75 66 66 65 72 20 |original|-buffer |
|00004b10| 65 71 75 61 6c 20 36 20 | 35 20 33 20 32 20 64 65 |equal 6 |5 3 2 de|
|00004b20| 6c 65 74 65 2d 72 65 67 | 69 6f 6e 20 37 20 64 65 |lete-reg|ion 7 de|
|00004b30| 6c 65 74 65 2d 68 6f 72 | 69 7a 6f 6e 74 61 6c 2d |lete-hor|izontal-|
|00004b40| 73 70 61 63 65 20 22 0a | 0a 22 20 62 61 63 6b 77 |space ".|." backw|
|00004b50| 61 72 64 2d 63 68 61 72 | 20 73 65 74 2d 6d 61 72 |ard-char| set-mar|
|00004b60| 6b 65 72 20 63 61 6c 63 | 46 75 6e 63 2d 61 73 73 |ker calc|Func-ass|
|00004b70| 69 67 6e 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |ign calc|-embedde|
|00004b80| 64 2d 76 61 72 2d 63 68 | 61 6e 67 65 5d 20 32 38 |d-var-ch|ange] 28|
|00004b90| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00004ba0| 65 6d 62 65 64 64 65 64 | 2d 73 65 6c 65 63 74 2d |embedded|-select-|
|00004bb0| 62 75 66 66 65 72 20 6e | 69 6c 20 28 62 79 74 65 |buffer n|il (byte|
|00004bc0| 2d 63 6f 64 65 20 22 70 | 08 ca 48 3d 83 9a 00 08 |-code "p|..H=....|
|00004bd0| c7 c7 1b 1a 19 60 09 cb | 48 57 86 1b 00 60 09 cc |.....`..|HW...`..|
|00004be0| 48 56 85 20 00 0c 3f 85 | 31 00 c6 1d cd ce 21 88 |HV. ..?.|1.....!.|
|00004bf0| cf c7 21 88 cf c7 21 29 | 88 69 60 09 d0 48 5a 5e |..!...!)|.i`..HZ^|
|00004c00| ca 5d 12 09 d0 48 60 58 | 83 57 00 d1 09 d0 48 60 |.]...H`X|.W....H`|
|00004c10| 5c 22 6e 83 52 00 ca 82 | 53 00 d2 5a 82 58 00 ca |\"n.R...|S..Z.X..|
|00004c20| 89 13 88 09 d2 48 71 88 | 0e 08 85 75 00 0b ca 55 |.....Hq.|...u...U|
|00004c30| 83 71 00 ca 89 12 82 75 | 00 0b 53 89 13 88 d3 d2 |.q.....u|..S.....|
|00004c40| 21 88 0e 09 85 84 00 0a | cb 5c 5c 89 12 88 0b ca |!.......|.\\.....|
|00004c50| 56 85 8e 00 d4 0b 21 88 | d5 0a 64 60 5a 5e 21 2b |V.....!.|..d`Z^!+|
|00004c60| 82 9c 00 d6 20 87 22 20 | 5b 63 61 6c 63 2d 65 6d |.... ." |[calc-em|
|00004c70| 62 65 64 64 65 64 2d 69 | 6e 66 6f 20 69 6e 66 6f |bedded-i|nfo info|
|00004c80| 20 68 6f 72 69 7a 20 76 | 65 72 74 20 63 61 6c 63 | horiz v|ert calc|
|00004c90| 2d 65 6d 62 65 64 64 65 | 64 2d 6e 6f 2d 72 65 73 |-embedde|d-no-res|
|00004ca0| 65 6c 65 63 74 20 63 61 | 6c 63 2d 65 6d 62 65 64 |elect ca|lc-embed|
|00004cb0| 64 65 64 2d 71 75 69 65 | 74 20 74 20 6e 69 6c 20 |ded-quie|t t nil |
|00004cc0| 63 61 6c 63 2d 73 68 6f | 77 2d 70 6c 61 69 6e 20 |calc-sho|w-plain |
|00004cd0| 63 61 6c 63 2d 6c 69 6e | 65 2d 6e 75 6d 62 65 72 |calc-lin|e-number|
|00004ce0| 69 6e 67 20 30 20 34 20 | 35 20 6d 65 73 73 61 67 |ing 0 4 |5 messag|
|00004cf0| 65 20 22 28 53 77 69 74 | 63 68 69 6e 67 20 43 61 |e "(Swit|ching Ca|
|00004d00| 6c 63 20 45 6d 62 65 64 | 64 65 64 20 6d 6f 64 65 |lc Embed|ded mode|
|00004d10| 20 74 6f 20 6e 65 77 20 | 66 6f 72 6d 75 6c 61 2e | to new |formula.|
|00004d20| 29 22 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |)" calc-|embedded|
|00004d30| 20 32 20 63 6f 75 6e 74 | 2d 6c 69 6e 65 73 20 31 | 2 count|-lines 1|
|00004d40| 20 63 61 6c 63 2d 63 75 | 72 73 6f 72 2d 73 74 61 | calc-cu|rsor-sta|
|00004d50| 63 6b 2d 69 6e 64 65 78 | 20 66 6f 72 77 61 72 64 |ck-index| forward|
|00004d60| 2d 6c 69 6e 65 20 66 6f | 72 77 61 72 64 2d 63 68 |-line fo|rward-ch|
|00004d70| 61 72 20 63 61 6c 63 2d | 73 65 6c 65 63 74 2d 62 |ar calc-|select-b|
|00004d80| 75 66 66 65 72 5d 20 31 | 30 29 29 0a 0a 28 73 65 |uffer] 1|0))..(se|
|00004d90| 74 71 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |tq calc-|embedded|
|00004da0| 2d 6e 6f 2d 72 65 73 65 | 6c 65 63 74 20 6e 69 6c |-no-rese|lect nil|
|00004db0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 65 |)..(defu|n calc-e|
|00004dc0| 6d 62 65 64 64 65 64 2d | 66 69 6e 69 73 68 2d 63 |mbedded-|finish-c|
|00004dd0| 6f 6d 6d 61 6e 64 20 6e | 69 6c 20 28 62 79 74 65 |ommand n|il (byte|
|00004de0| 2d 63 6f 64 65 20 22 70 | c9 c9 1a 19 18 8a 0b ca |-code "p|........|
|00004df0| 48 71 88 cb 20 cc 56 85 | 5c 5c 00 60 69 6e 1e 06 |Hq.. .V.|\\.`in..|
|00004e00| 1d 1c cd cc 21 88 0c 60 | 57 85 58 00 cd ca 21 88 |....!..`|W.X...!.|
|00004e10| 0c 60 59 85 58 00 0d 0e | 07 83 38 00 ce 82 39 00 |.`Y.X...|..8...9.|
|00004e20| cc 5a 11 cf 60 0c 5c 22 | 0e 06 83 48 00 cc 82 49 |.Z..`.\"|...H...I|
|00004e30| 00 ca 5a 89 12 88 0e 08 | 85 58 00 ca 0a 54 5d 89 |..Z.....|.X...T].|
|00004e40| 12 88 0c 62 2b 29 88 09 | 85 7e 00 0b cc 48 71 88 |...b+)..|.~...Hq.|
|00004e50| 0b d0 48 62 88 0a cc 56 | 85 75 00 d1 0a 21 88 d2 |..Hb...V|.u...!..|
|00004e60| 09 cc 5d 21 88 08 71 2b | 87 22 20 5b 62 75 66 20 |..]!..q+|." [buf |
|00004e70| 68 6f 72 69 7a 20 76 65 | 72 74 20 63 61 6c 63 2d |horiz ve|rt calc-|
|00004e80| 65 6d 62 65 64 64 65 64 | 2d 69 6e 66 6f 20 70 74 |embedded|-info pt|
|00004e90| 20 63 6f 6c 20 62 6f 6c | 20 63 61 6c 63 2d 6c 69 | col bol| calc-li|
|00004ea0| 6e 65 2d 6e 75 6d 62 65 | 72 69 6e 67 20 63 61 6c |ne-numbe|ring cal|
|00004eb0| 63 2d 73 68 6f 77 2d 70 | 6c 61 69 6e 20 6e 69 6c |c-show-p|lain nil|
|00004ec0| 20 31 20 63 61 6c 63 2d | 73 74 61 63 6b 2d 73 69 | 1 calc-|stack-si|
|00004ed0| 7a 65 20 30 20 63 61 6c | 63 2d 63 75 72 73 6f 72 |ze 0 cal|c-cursor|
|00004ee0| 2d 73 74 61 63 6b 2d 69 | 6e 64 65 78 20 34 20 63 |-stack-i|ndex 4 c|
|00004ef0| 6f 75 6e 74 2d 6c 69 6e | 65 73 20 32 20 66 6f 72 |ount-lin|es 2 for|
|00004f00| 77 61 72 64 2d 6c 69 6e | 65 20 66 6f 72 77 61 72 |ward-lin|e forwar|
|00004f10| 64 2d 63 68 61 72 5d 20 | 38 29 29 0a 0a 28 64 65 |d-char] |8))..(de|
|00004f20| 66 75 6e 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |fun calc|-embedde|
|00004f30| 64 2d 73 74 61 63 6b 2d | 63 68 61 6e 67 65 20 6e |d-stack-|change n|
|00004f40| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |il (byte|-code ".|
|00004f50| 86 c5 00 8a 09 d0 48 71 | 88 09 1a 0c d1 3d 83 16 |......Hq|.....=..|
|00004f60| 00 d0 82 17 00 d2 1b 60 | 1d d3 20 d2 55 1e 06 0e |.......`|.. .U...|
|00004f70| 06 83 2c 00 d4 d0 c8 45 | 82 30 00 d5 d0 c7 5c 22 |..,....E|.0....\"|
|00004f80| 1e 07 0a d6 48 1e 09 c8 | 1e 0a c8 1e 0b c8 1e 0c |....H...|........|
|00004f90| 0e 06 83 4c 00 d7 89 16 | 0c 82 a9 00 8a d8 d0 21 |...L....|.......!|
|00004fa0| 88 60 89 16 0a 88 d8 d2 | 21 88 60 0b 5a 89 16 0b |.`......|!.`.Z...|
|00004fb0| 88 d9 0e 0a 0e 0b d0 5a | 5c 22 89 16 0c 29 88 0e |.......Z|\"...)..|
|00004fc0| 0d 85 a9 00 d2 1e 0e 0e | 0c da c8 4f 89 16 0c 88 |........|...O....|
|00004fd0| db dc 0e 0c 0e 0e 23 89 | 16 0e 85 a8 00 0e 0c d2 |......#.|........|
|00004fe0| 0e 0e 54 4f 0e 0c 0e 0e | dd 5c 5c c8 4f 50 16 0c |..TO....|.\\.OP..|
|00004ff0| 0e 0e 54 89 16 0e 88 82 | 7f 00 29 88 de cf 21 88 |..T.....|..)...!.|
|00005000| 0a d6 0e 07 40 49 88 df | 0a e0 c8 cf 0e 0c 0e 07 |....@I..|........|
|00005010| 0e 09 26 07 2e 09 29 87 | 22 20 5b 63 61 6c 63 2d |..&...).|" [calc-|
|00005020| 65 78 65 63 75 74 69 6e | 67 2d 6d 61 63 72 6f 20 |executin|g-macro |
|00005030| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 69 6e |calc-emb|edded-in|
|00005040| 66 6f 20 69 6e 66 6f 20 | 65 78 74 72 61 2d 6c 69 |fo info |extra-li|
|00005050| 6e 65 20 63 61 6c 63 2d | 6c 61 6e 67 75 61 67 65 |ne calc-|language|
|00005060| 20 74 68 65 2d 70 6f 69 | 6e 74 20 65 6d 70 74 79 | the-poi|nt empty|
|00005070| 20 65 6e 74 72 79 20 6e | 69 6c 20 6f 6c 64 2d 76 | entry n|il old-v|
|00005080| 61 6c 20 74 6f 70 20 62 | 6f 74 20 73 74 72 20 63 |al top b|ot str c|
|00005090| 61 6c 63 2d 6c 69 6e 65 | 2d 6e 75 6d 62 65 72 69 |alc-line|-numberi|
|000050a0| 6e 67 20 70 6f 73 20 74 | 20 31 20 62 69 67 20 30 |ng pos t| 1 big 0|
|000050b0| 20 63 61 6c 63 2d 73 74 | 61 63 6b 2d 73 69 7a 65 | calc-st|ack-size|
|000050c0| 20 28 76 61 72 20 65 6d | 70 74 79 20 76 61 72 2d | (var em|pty var-|
|000050d0| 65 6d 70 74 79 29 20 63 | 61 6c 63 2d 74 6f 70 20 |empty) c|alc-top |
|000050e0| 38 20 22 65 6d 70 74 79 | 22 20 63 61 6c 63 2d 63 |8 "empty|" calc-c|
|000050f0| 75 72 73 6f 72 2d 73 74 | 61 63 6b 2d 69 6e 64 65 |ursor-st|ack-inde|
|00005100| 78 20 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 |x buffer|-substri|
|00005110| 6e 67 20 34 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |ng 4 str|ing-matc|
|00005120| 68 20 22 0a 2e 2e 2e 2e | 22 20 35 20 63 61 6c 63 |h ".....|" 5 calc|
|00005130| 2d 65 6d 62 65 64 64 65 | 64 2d 6f 72 69 67 69 6e |-embedde|d-origin|
|00005140| 61 6c 2d 62 75 66 66 65 | 72 20 63 61 6c 63 2d 65 |al-buffe|r calc-e|
|00005150| 6d 62 65 64 64 65 64 2d | 75 70 64 61 74 65 20 31 |mbedded-|update 1|
|00005160| 33 5d 20 31 35 29 29 0a | 0a 28 64 65 66 75 6e 20 |3] 15)).|.(defun |
|00005170| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 6d 6f |calc-emb|edded-mo|
|00005180| 64 65 2d 6c 69 6e 65 2d | 63 68 61 6e 67 65 20 6e |de-line-|change n|
|00005190| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 09 |il (byte|-code ".|
|000051a0| 18 8a c3 c2 21 88 08 89 | 11 88 c4 c5 20 21 29 29 |....!...|.... !))|
|000051b0| 87 22 20 5b 73 74 72 20 | 6d 6f 64 65 2d 6c 69 6e |." [str |mode-lin|
|000051c0| 65 2d 62 75 66 66 65 72 | 2d 69 64 65 6e 74 69 66 |e-buffer|-identif|
|000051d0| 69 63 61 74 69 6f 6e 20 | 74 20 63 61 6c 63 2d 65 |ication |t calc-e|
|000051e0| 6d 62 65 64 64 65 64 2d | 6f 72 69 67 69 6e 61 6c |mbedded-|original|
|000051f0| 2d 62 75 66 66 65 72 20 | 73 65 74 2d 62 75 66 66 |-buffer |set-buff|
|00005200| 65 72 2d 6d 6f 64 69 66 | 69 65 64 2d 70 20 62 75 |er-modif|ied-p bu|
|00005210| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 5d |ffer-mod|ified-p]|
|00005220| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 61 6c | 4))..(d|efun cal|
|00005230| 63 2d 65 6d 62 65 64 64 | 65 64 2d 6d 6f 64 65 73 |c-embedd|ed-modes|
|00005240| 2d 63 68 61 6e 67 65 20 | 28 76 61 72 73 29 20 28 |-change |(vars) (|
|00005250| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 40 d7 3d 85 |byte-cod|e ".@.=.|
|00005260| 0a 00 d8 89 10 88 08 40 | d9 3d 85 15 00 da 89 10 |.......@|.=......|
|00005270| 88 08 85 20 00 db 08 40 | 09 5c 22 3f 85 2b 00 08 |... ...@|.\"?.+..|
|00005280| 41 89 10 88 82 16 00 88 | 08 85 38 00 0a 85 38 00 |A.......|..8...8.|
|00005290| 0a dc 3d 3f 85 78 01 8a | 0a 1b 0b dd 3d 83 48 00 |..=?.x..|....=.H.|
|000052a0| de 82 4c 00 df e0 0b 5c | 22 1c e1 20 1d e2 20 1e |..L....\|".. .. .|
|000052b0| 06 e3 e4 08 5c 22 1e 07 | 0b dd 3d 83 64 00 e5 82 |....\"..|..=.d...|
|000052c0| 79 00 0b e6 3d 83 6e 00 | e7 82 79 00 0b e8 3d 83 |y...=.n.|..y...=.|
|000052d0| 78 00 e9 82 79 00 ca 1e | 08 ca 1e 0b ca 1e 0c ca |x...y...|........|
|000052e0| 1e 0d ca 1e 0e ea c9 21 | 88 8a 0b eb 3d 83 a0 00 |.......!|....=...|
|000052f0| 64 16 0b 65 16 0c 0e 0f | 89 16 0e 82 d4 00 0e 10 |d..e....|........|
|00005300| ec 48 62 88 ed 20 88 60 | 16 0b 60 ee 5a 65 5d 16 |.Hb.. .`|..`.Ze].|
|00005310| 0c 0e 08 85 bd 00 0e 10 | 0e 08 48 89 16 0e 88 ef |........|..H.....|
|00005320| df f0 0e 11 0e 12 23 0e | 0c c9 23 85 d4 00 60 89 |......#.|..#...`.|
|00005330| 16 0c 88 08 85 74 01 0e | 0b 62 88 db 08 40 09 5c |.....t..|.b...@.\|
|00005340| 22 40 89 16 0d 85 66 01 | ca f1 08 40 0e 0e 5c 22 |"@....f.|...@..\"|
|00005350| 1e 14 1e 13 0e 14 83 03 | 01 f2 0e 14 0e 07 40 5c |........|......@\|
|00005360| 22 82 2a 01 08 40 0e 07 | 40 42 0e 0e 42 89 16 0e |".*..@..|@B..B...|
|00005370| 88 0e 08 83 1f 01 0e 10 | 0e 08 0e 0e 49 82 2a 01 |........|....I.*.|
|00005380| 0b eb 3d 85 2a 01 0e 0e | 89 16 0f 88 ef df f3 0c |..=.*...|........|
|00005390| 0e 0d 23 0e 0c c9 23 83 | 4e 01 f4 f5 21 62 88 f6 |..#...#.|N...!b..|
|000053a0| 60 f7 f5 21 5c 22 88 f8 | 0e 07 40 21 63 82 65 01 |`..!\"..|..@!c.e.|
|000053b0| 0e 0b 62 88 f9 0e 15 fa | 0c fb 0e 0d fc f8 0e 07 |..b.....|........|
|000053c0| 40 21 fd 0e 16 26 09 2a | 88 08 41 10 0e 07 41 89 |@!...&.*|..A...A.|
|000053d0| 16 07 88 82 d5 00 29 2e | 0a 29 87 22 20 5b 76 61 |......).|.)." [va|
|000053e0| 72 73 20 63 61 6c 63 2d | 65 6d 62 65 64 64 65 64 |rs calc-|embedded|
|000053f0| 2d 6d 6f 64 65 2d 76 61 | 72 73 20 63 61 6c 63 2d |-mode-va|rs calc-|
|00005400| 6d 6f 64 65 2d 73 61 76 | 65 2d 6d 6f 64 65 20 73 |mode-sav|e-mode s|
|00005410| 61 76 65 2d 6d 6f 64 65 | 20 68 65 61 64 65 72 20 |ave-mode| header |
|00005420| 74 68 65 2d 6c 61 6e 67 | 75 61 67 65 20 74 68 65 |the-lang|uage the|
|00005430| 2d 64 69 73 70 6c 61 79 | 2d 6a 75 73 74 20 76 61 |-display|-just va|
|00005440| 6c 75 65 73 20 6e 75 6d | 20 74 20 6e 69 6c 20 62 |lues num| t nil b|
|00005450| 61 73 65 20 6c 69 6d 69 | 74 20 6d 6e 61 6d 65 20 |ase limi|t mname |
|00005460| 6d 6c 69 73 74 20 63 61 | 6c 63 2d 65 6d 62 65 64 |mlist ca|lc-embed|
|00005470| 64 65 64 2d 67 6c 6f 62 | 61 6c 73 20 63 61 6c 63 |ded-glob|als calc|
|00005480| 2d 65 6d 62 65 64 64 65 | 64 2d 69 6e 66 6f 20 63 |-embedde|d-info c|
|00005490| 61 6c 63 2d 65 6d 62 65 | 64 64 65 64 2d 6f 70 65 |alc-embe|dded-ope|
|000054a0| 6e 2d 66 6f 72 6d 75 6c | 61 20 63 61 6c 63 2d 65 |n-formul|a calc-e|
|000054b0| 6d 62 65 64 64 65 64 2d | 63 6c 6f 73 65 2d 66 6f |mbedded-|close-fo|
|000054c0| 72 6d 75 6c 61 20 62 75 | 66 66 65 72 2d 72 65 61 |rmula bu|ffer-rea|
|000054d0| 64 2d 6f 6e 6c 79 20 66 | 6f 75 6e 64 20 63 61 6c |d-only f|ound cal|
|000054e0| 63 2d 65 6d 62 65 64 64 | 65 64 2d 6f 70 65 6e 2d |c-embedd|ed-open-|
|000054f0| 6d 6f 64 65 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |mode cal|c-embedd|
|00005500| 65 64 2d 63 6c 6f 73 65 | 2d 6d 6f 64 65 20 63 61 |ed-close|-mode ca|
|00005510| 6c 63 2d 6c 61 6e 67 75 | 61 67 65 20 28 74 68 65 |lc-langu|age (the|
|00005520| 2d 6c 61 6e 67 75 61 67 | 65 29 20 63 61 6c 63 2d |-languag|e) calc-|
|00005530| 64 69 73 70 6c 61 79 2d | 6a 75 73 74 20 28 74 68 |display-|just (th|
|00005540| 65 2d 64 69 73 70 6c 61 | 79 2d 6a 75 73 74 29 20 |e-displa|y-just) |
|00005550| 72 61 73 73 71 20 73 61 | 76 65 20 6c 6f 63 61 6c |rassq sa|ve local|
|00005560| 20 22 63 61 6c 63 2d 6d | 6f 64 65 3a 22 20 66 6f | "calc-m|ode:" fo|
|00005570| 72 6d 61 74 20 22 63 61 | 6c 63 2d 25 73 2d 6d 6f |rmat "ca|lc-%s-mo|
|00005580| 64 65 3a 22 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |de:" cal|c-embedd|
|00005590| 65 64 2d 6c 61 6e 67 75 | 61 67 65 20 63 61 6c 63 |ed-langu|age calc|
|000055a0| 2d 65 6d 62 65 64 64 65 | 64 2d 6a 75 73 74 69 66 |-embedde|d-justif|
|000055b0| 79 20 6d 61 70 63 61 72 | 20 73 79 6d 62 6f 6c 2d |y mapcar| symbol-|
|000055c0| 76 61 6c 75 65 20 31 32 | 20 65 64 69 74 20 31 33 |value 12| edit 13|
|000055d0| 20 70 65 72 6d 20 31 34 | 20 63 61 6c 63 2d 65 6d | perm 14| calc-em|
|000055e0| 62 65 64 64 65 64 2d 6f | 72 69 67 69 6e 61 6c 2d |bedded-o|riginal-|
|000055f0| 62 75 66 66 65 72 20 67 | 6c 6f 62 61 6c 20 34 20 |buffer g|lobal 4 |
|00005600| 62 65 67 69 6e 6e 69 6e | 67 2d 6f 66 2d 6c 69 6e |beginnin|g-of-lin|
|00005610| 65 20 31 30 30 30 20 72 | 65 2d 73 65 61 72 63 68 |e 1000 r|e-search|
|00005620| 2d 62 61 63 6b 77 61 72 | 64 20 22 5c 5c 28 25 73 |-backwar|d "\\(%s|
|00005630| 5c 5c 29 5b 5e 01 5d 2a | 5c 5c 28 25 73 5c 5c 29 |\\)[^.]*|\\(%s\\)|
|00005640| 5c 5c 7c 5c 5c 5b 63 61 | 6c 63 2d 64 65 66 61 75 |\\|\\[ca|lc-defau|
|00005650| 6c 74 73 5d 22 20 61 73 | 73 71 20 73 65 74 63 64 |lts]" as|sq setcd|
|00005660| 72 20 22 5c 5c 5b 25 73 | 20 2a 25 73 3a 20 2a 5c |r "\\[%s| *%s: *\|
|00005670| 5c 28 5c 22 5c 5c 28 5b | 5e 5c 22 0a 5c 5c 5d 5c |\(\"\\([|^\".\\]\|
|00005680| 5c 7c 5c 5c 5c 5c 2e 5c | 5c 29 2a 5c 22 5c 5c 7c |\|\\\\.\|\)*\"\\||
|00005690| 5b 2d 20 28 29 61 2d 7a | 41 2d 5a 30 2d 39 5d 2b |[- ()a-z|A-Z0-9]+|
|000056a0| 5c 5c 29 5d 22 20 6d 61 | 74 63 68 2d 62 65 67 69 |\\)]" ma|tch-begi|
|000056b0| 6e 6e 69 6e 67 20 31 20 | 64 65 6c 65 74 65 2d 72 |nning 1 |delete-r|
|000056c0| 65 67 69 6f 6e 20 6d 61 | 74 63 68 2d 65 6e 64 20 |egion ma|tch-end |
|000056d0| 70 72 69 6e 31 2d 74 6f | 2d 73 74 72 69 6e 67 20 |prin1-to|-string |
|000056e0| 69 6e 73 65 72 74 2d 62 | 65 66 6f 72 65 2d 6d 61 |insert-b|efore-ma|
|000056f0| 72 6b 65 72 73 20 22 5b | 22 20 22 20 22 20 22 3a |rkers "[|" " " ":|
|00005700| 20 22 20 22 5d 22 5d 20 | 33 30 29 29 0a 0a 28 64 | " "]"] |30))..(d|
|00005710| 65 66 75 6e 20 63 61 6c | 63 2d 65 6d 62 65 64 64 |efun cal|c-embedd|
|00005720| 65 64 2d 76 61 72 2d 63 | 68 61 6e 67 65 20 28 76 |ed-var-c|hange (v|
|00005730| 61 72 20 26 6f 70 74 69 | 6f 6e 61 6c 20 62 75 66 |ar &opti|onal buf|
|00005740| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 39 |) (byte-|code ".9|
|00005750| 85 1f 00 c0 cd ce cf 08 | 21 5c 22 83 1a 00 d0 cf |........|!\".....|
|00005760| 08 21 d1 ca 4f 21 82 1b | 00 08 08 45 89 10 88 8a |.!..O!..|...E....|
|00005770| 0a 3f 0c c6 1d 1b 19 0e | 07 85 36 00 d2 0e 07 0b |.?......|..6.....|
|00005780| 5c 22 0b 3e 89 13 88 0b | 85 e2 00 c6 d3 0b 40 40 |\".>....|......@@|
|00005790| 21 85 47 00 0b 40 41 1e | 09 1e 08 0e 09 85 cf 00 |!.G..@A.|........|
|000057a0| d4 08 0e 09 40 d5 48 5c | 22 85 c4 00 09 83 80 00 |....@.H\|".......|
|000057b0| 0e 09 40 d6 48 85 7d 00 | 0e 09 40 d6 ca 49 88 0e |..@.H.}.|..@..I..|
|000057c0| 09 40 d7 48 85 7d 00 d8 | 0e 09 40 d7 48 21 82 c4 |.@.H.}..|..@.H!..|
|000057d0| 00 0e 09 40 d9 48 71 88 | da db 0e 09 40 dc 48 0e |...@.Hq.|....@.H.|
|000057e0| 09 40 dd 48 5c 22 0e 09 | 40 de 48 5c 22 83 b4 00 |.@.H\"..|@.H\"...|
|000057f0| ca 1e 0b 0e 0c 86 a8 00 | df e0 21 88 ca 89 15 88 |........|..!.....|
|00005800| e1 e2 21 29 82 c4 00 e3 | 0b 40 e4 0e 09 40 0b 40 |..!)....|.@...@.@|
|00005810| 41 5c 22 5c 22 88 df e5 | 21 88 0e 09 41 89 16 09 |A\"\"...|!...A...|
|00005820| 88 82 4b 00 2a 88 0e 07 | 83 da 00 ca 82 dc 00 0b |..K.*...|........|
|00005830| 41 89 13 88 82 37 00 88 | 0d 86 ef 00 0e 0c 86 ef |A....7..|........|
|00005840| 00 df e6 21 2b 29 87 22 | 20 5b 76 61 72 20 6d 61 |...!+)."| [var ma|
|00005850| 6e 75 61 6c 20 63 61 6c | 63 2d 61 75 74 6f 2d 72 |nual cal|c-auto-r|
|00005860| 65 63 6f 6d 70 75 74 65 | 20 62 70 20 63 61 6c 63 |ecompute| bp calc|
|00005870| 2d 65 6d 62 65 64 64 65 | 64 2d 61 63 74 69 76 65 |-embedde|d-active|
|00005880| 20 66 69 72 73 74 20 74 | 20 62 75 66 20 63 61 6c | first t| buf cal|
|00005890| 63 2d 65 6d 62 65 64 64 | 65 64 2d 6e 6f 2d 72 65 |c-embedd|ed-no-re|
|000058a0| 73 65 6c 65 63 74 20 70 | 20 6e 69 6c 20 63 61 6c |select p| nil cal|
|000058b0| 63 2d 65 6d 62 65 64 64 | 65 64 2d 69 6e 66 6f 20 |c-embedd|ed-info |
|000058c0| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 71 75 |calc-emb|edded-qu|
|000058d0| 69 65 74 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |iet stri|ng-match|
|000058e0| 20 22 5c 5c 60 76 61 72 | 2d 2e 2b 5c 5c 27 22 20 | "\\`var|-.+\\'" |
|000058f0| 73 79 6d 62 6f 6c 2d 6e | 61 6d 65 20 69 6e 74 65 |symbol-n|ame inte|
|00005900| 72 6e 20 34 20 61 73 73 | 71 20 62 75 66 66 65 72 |rn 4 ass|q buffer|
|00005910| 2d 6e 61 6d 65 20 61 73 | 73 6f 63 20 31 30 20 31 |-name as|soc 10 1|
|00005920| 31 20 39 20 63 61 6c 63 | 2d 65 6d 62 65 64 64 65 |1 9 calc|-embedde|
|00005930| 64 2d 76 61 72 2d 63 68 | 61 6e 67 65 20 30 20 65 |d-var-ch|ange 0 e|
|00005940| 71 75 61 6c 20 62 75 66 | 66 65 72 2d 73 75 62 73 |qual buf|fer-subs|
|00005950| 74 72 69 6e 67 20 32 20 | 33 20 36 20 6d 65 73 73 |tring 2 |3 6 mess|
|00005960| 61 67 65 20 22 52 65 63 | 6f 6d 70 75 74 69 6e 67 |age "Rec|omputing|
|00005970| 2e 2e 2e 22 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |..." cal|c-do (la|
|00005980| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00005990| 6f 64 65 20 22 08 40 c3 | 48 71 88 c4 08 40 c5 c1 |ode ".@.|Hq...@..|
|000059a0| c2 24 87 22 20 5b 70 20 | 74 20 6e 69 6c 20 30 20 |.$." [p |t nil 0 |
|000059b0| 63 61 6c 63 2d 65 6d 62 | 65 64 64 65 64 2d 75 70 |calc-emb|edded-up|
|000059c0| 64 61 74 65 20 31 34 5d | 20 35 29 29 20 73 65 74 |date 14]| 5)) set|
|000059d0| 63 64 72 20 64 65 6c 71 | 20 22 28 54 72 69 65 64 |cdr delq| "(Tried|
|000059e0| 20 74 6f 20 72 65 63 6f | 6d 70 75 74 65 20 62 75 | to reco|mpute bu|
|000059f0| 74 20 66 6f 72 6d 75 6c | 61 20 77 61 73 20 63 68 |t formul|a was ch|
|00005a00| 61 6e 67 65 64 20 6f 72 | 20 6d 69 73 73 69 6e 67 |anged or| missing|
|00005a10| 2e 29 22 20 22 22 5d 20 | 31 39 29 29 0a |.)" ""] |19)). |
+--------+-------------------------+-------------------------+--------+--------+
