home *** CD-ROM | disk | FTP | other *** search
| Emacs Compiled Lisp | 1996-10-12 | 41.6 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Emacs Compiled Lisp
(other/emacsCompiledLisp).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Emacs Compiled Lisp (other/emacsCompiledLisp)
| magic
| Unsupported |
| 1%
| dexvert
| Combustion 2 Particle Library (other/combustion2ParticleLibrary)
| ext
| Unsupported |
| 100%
| file
| Emacs v18 byte-compiled Lisp data
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(require (quote calc-ext))
| default (weak)
| |
| 100%
| xdgMime
| text/x-emacs-lisp
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 72 65 71 75 69 72 | 65 20 28 71 75 6f 74 65 |.(requir|e (quote|
|00000010| 20 63 61 6c 63 2d 65 78 | 74 29 29 0a 0a 28 64 65 | calc-ex|t))..(de|
|00000020| 66 75 6e 20 63 61 6c 63 | 2d 4e 65 65 64 2d 63 61 |fun calc|-Need-ca|
|00000030| 6c 63 2d 70 72 6f 67 20 | 6e 69 6c 20 28 62 79 74 |lc-prog |nil (byt|
|00000040| 65 2d 63 6f 64 65 20 22 | c0 87 22 20 5b 6e 69 6c |e-code "|.." [nil|
|00000050| 5d 20 31 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 1))..(|defun ca|
|00000060| 6c 63 2d 65 71 75 61 6c | 2d 74 6f 20 28 61 72 67 |lc-equal|-to (arg|
|00000070| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00000080| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|00000090| c0 88 c1 c2 21 87 22 20 | 5b 6e 69 6c 20 63 61 6c |....!." |[nil cal|
|000000a0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000000b0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 | (byte-c|ode "..!|
|000000c0| 85 09 00 08 c2 56 83 18 | 00 c3 08 c4 c5 c6 08 21 |.....V..|.......!|
|000000d0| 42 23 82 1d 00 c7 c4 c5 | 08 23 87 22 20 5b 61 72 |B#......|.#." [ar|
|000000e0| 67 20 69 6e 74 65 67 65 | 72 70 20 32 20 63 61 6c |g intege|rp 2 cal|
|000000f0| 63 2d 65 6e 74 65 72 2d | 72 65 73 75 6c 74 20 22 |c-enter-|result "|
|00000100| 65 71 22 20 63 61 6c 63 | 46 75 6e 63 2d 65 71 20 |eq" calc|Func-eq |
|00000110| 63 61 6c 63 2d 74 6f 70 | 2d 6c 69 73 74 2d 6e 20 |calc-top|-list-n |
|00000120| 63 61 6c 63 2d 62 69 6e | 61 72 79 2d 6f 70 5d 20 |calc-bin|ary-op] |
|00000130| 37 29 29 5d 20 32 29 29 | 0a 0a 28 64 65 66 75 6e |7))] 2))|..(defun|
|00000140| 20 63 61 6c 63 2d 72 65 | 6d 6f 76 65 2d 65 71 75 | calc-re|move-equ|
|00000150| 61 6c 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |al (arg)| (intera|
|00000160| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|00000170| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00000180| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|00000190| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|000001a0| 64 65 20 22 c1 c2 c3 08 | 23 87 22 20 5b 61 72 67 |de "....|#." [arg|
|000001b0| 20 63 61 6c 63 2d 75 6e | 61 72 79 2d 6f 70 20 22 | calc-un|ary-op "|
|000001c0| 72 6d 65 71 22 20 63 61 | 6c 63 46 75 6e 63 2d 72 |rmeq" ca|lcFunc-r|
|000001d0| 6d 65 71 5d 20 34 29 29 | 5d 20 32 29 29 0a 0a 28 |meq] 4))|] 2))..(|
|000001e0| 64 65 66 75 6e 20 63 61 | 6c 63 2d 6e 6f 74 2d 65 |defun ca|lc-not-e|
|000001f0| 71 75 61 6c 2d 74 6f 20 | 28 61 72 67 29 20 28 69 |qual-to |(arg) (i|
|00000200| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00000210| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 88 c1 c2 |(byte-co|de "....|
|00000220| 21 87 22 20 5b 6e 69 6c | 20 63 61 6c 63 2d 64 6f |!." [nil| calc-do|
|00000230| 20 28 6c 61 6d 62 64 61 | 20 6e 69 6c 20 28 62 79 | (lambda| nil (by|
|00000240| 74 65 2d 63 6f 64 65 20 | 22 c1 08 21 85 09 00 08 |te-code |"..!....|
|00000250| c2 56 83 18 00 c3 08 c4 | c5 c6 08 21 42 23 82 1d |.V......|...!B#..|
|00000260| 00 c7 c4 c5 08 23 87 22 | 20 5b 61 72 67 20 69 6e |.....#."| [arg in|
|00000270| 74 65 67 65 72 70 20 32 | 20 63 61 6c 63 2d 65 6e |tegerp 2| calc-en|
|00000280| 74 65 72 2d 72 65 73 75 | 6c 74 20 22 6e 65 71 22 |ter-resu|lt "neq"|
|00000290| 20 63 61 6c 63 46 75 6e | 63 2d 6e 65 71 20 63 61 | calcFun|c-neq ca|
|000002a0| 6c 63 2d 74 6f 70 2d 6c | 69 73 74 2d 6e 20 63 61 |lc-top-l|ist-n ca|
|000002b0| 6c 63 2d 62 69 6e 61 72 | 79 2d 6f 70 5d 20 37 29 |lc-binar|y-op] 7)|
|000002c0| 29 5d 20 32 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |)] 2))..|(defun c|
|000002d0| 61 6c 63 2d 6c 65 73 73 | 2d 74 68 61 6e 20 28 61 |alc-less|-than (a|
|000002e0| 72 67 29 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |rg) (int|eractive|
|000002f0| 20 22 50 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | "P") (b|yte-code|
|00000300| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00000310| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00000320| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|00000330| c2 c3 08 23 87 22 20 5b | 61 72 67 20 63 61 6c 63 |...#." [|arg calc|
|00000340| 2d 62 69 6e 61 72 79 2d | 6f 70 20 22 6c 74 22 20 |-binary-|op "lt" |
|00000350| 63 61 6c 63 46 75 6e 63 | 2d 6c 74 5d 20 34 29 29 |calcFunc|-lt] 4))|
|00000360| 5d 20 32 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 2))..(|defun ca|
|00000370| 6c 63 2d 67 72 65 61 74 | 65 72 2d 74 68 61 6e 20 |lc-great|er-than |
|00000380| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00000390| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|000003a0| 64 65 20 22 c0 88 c1 c2 | 21 87 22 20 5b 6e 69 6c |de "....|!." [nil|
|000003b0| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|000003c0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|000003d0| 22 c1 c2 c3 08 23 87 22 | 20 5b 61 72 67 20 63 61 |"....#."| [arg ca|
|000003e0| 6c 63 2d 62 69 6e 61 72 | 79 2d 6f 70 20 22 67 74 |lc-binar|y-op "gt|
|000003f0| 22 20 63 61 6c 63 46 75 | 6e 63 2d 67 74 5d 20 34 |" calcFu|nc-gt] 4|
|00000400| 29 29 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |))] 2)).|.(defun |
|00000410| 63 61 6c 63 2d 6c 65 73 | 73 2d 65 71 75 61 6c 20 |calc-les|s-equal |
|00000420| 28 61 72 67 29 20 28 69 | 6e 74 65 72 61 63 74 69 |(arg) (i|nteracti|
|00000430| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|00000440| 64 65 20 22 c0 88 c1 c2 | 21 87 22 20 5b 6e 69 6c |de "....|!." [nil|
|00000450| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|00000460| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00000470| 22 c1 c2 c3 08 23 87 22 | 20 5b 61 72 67 20 63 61 |"....#."| [arg ca|
|00000480| 6c 63 2d 62 69 6e 61 72 | 79 2d 6f 70 20 22 6c 65 |lc-binar|y-op "le|
|00000490| 71 22 20 63 61 6c 63 46 | 75 6e 63 2d 6c 65 71 5d |q" calcF|unc-leq]|
|000004a0| 20 34 29 29 5d 20 32 29 | 29 0a 0a 28 64 65 66 75 | 4))] 2)|)..(defu|
|000004b0| 6e 20 63 61 6c 63 2d 67 | 72 65 61 74 65 72 2d 65 |n calc-g|reater-e|
|000004c0| 71 75 61 6c 20 28 61 72 | 67 29 20 28 69 6e 74 65 |qual (ar|g) (inte|
|000004d0| 72 61 63 74 69 76 65 20 | 22 50 22 29 20 28 62 79 |ractive |"P") (by|
|000004e0| 74 65 2d 63 6f 64 65 20 | 22 c0 88 c1 c2 21 87 22 |te-code |"....!."|
|000004f0| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 64 6f 20 28 6c | [nil ca|lc-do (l|
|00000500| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|00000510| 63 6f 64 65 20 22 c1 c2 | c3 08 23 87 22 20 5b 61 |code "..|..#." [a|
|00000520| 72 67 20 63 61 6c 63 2d | 62 69 6e 61 72 79 2d 6f |rg calc-|binary-o|
|00000530| 70 20 22 67 65 71 22 20 | 63 61 6c 63 46 75 6e 63 |p "geq" |calcFunc|
|00000540| 2d 67 65 71 5d 20 34 29 | 29 5d 20 32 29 29 0a 0a |-geq] 4)|)] 2))..|
|00000550| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 69 6e 2d 73 |(defun c|alc-in-s|
|00000560| 65 74 20 28 61 72 67 29 | 20 28 69 6e 74 65 72 61 |et (arg)| (intera|
|00000570| 63 74 69 76 65 20 22 50 | 22 29 20 28 62 79 74 65 |ctive "P|") (byte|
|00000580| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00000590| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|000005a0| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|000005b0| 64 65 20 22 c1 c2 c3 08 | 23 87 22 20 5b 61 72 67 |de "....|#." [arg|
|000005c0| 20 63 61 6c 63 2d 62 69 | 6e 61 72 79 2d 6f 70 20 | calc-bi|nary-op |
|000005d0| 22 69 6e 22 20 63 61 6c | 63 46 75 6e 63 2d 69 6e |"in" cal|cFunc-in|
|000005e0| 5d 20 34 29 29 5d 20 32 | 29 29 0a 0a 28 64 65 66 |] 4))] 2|))..(def|
|000005f0| 75 6e 20 63 61 6c 63 2d | 6c 6f 67 69 63 61 6c 2d |un calc-|logical-|
|00000600| 61 6e 64 20 28 61 72 67 | 29 20 28 69 6e 74 65 72 |and (arg|) (inter|
|00000610| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|00000620| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|00000630| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00000640| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00000650| 6f 64 65 20 22 c1 c2 c3 | 08 c4 24 87 22 20 5b 61 |ode "...|..$." [a|
|00000660| 72 67 20 63 61 6c 63 2d | 62 69 6e 61 72 79 2d 6f |rg calc-|binary-o|
|00000670| 70 20 22 6c 61 6e 64 22 | 20 63 61 6c 63 46 75 6e |p "land"| calcFun|
|00000680| 63 2d 6c 61 6e 64 20 31 | 5d 20 35 29 29 5d 20 32 |c-land 1|] 5))] 2|
|00000690| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|000006a0| 6c 6f 67 69 63 61 6c 2d | 6f 72 20 28 61 72 67 29 |logical-|or (arg)|
|000006b0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 50 | (intera|ctive "P|
|000006c0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |") (byte|-code ".|
|000006d0| 88 c1 c2 21 87 22 20 5b | 6e 69 6c 20 63 61 6c 63 |...!." [|nil calc|
|000006e0| 2d 64 6f 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |-do (lam|bda nil |
|000006f0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 c2 c3 08 |(byte-co|de "....|
|00000700| c4 24 87 22 20 5b 61 72 | 67 20 63 61 6c 63 2d 62 |.$." [ar|g calc-b|
|00000710| 69 6e 61 72 79 2d 6f 70 | 20 22 6c 6f 72 22 20 63 |inary-op| "lor" c|
|00000720| 61 6c 63 46 75 6e 63 2d | 6c 6f 72 20 30 5d 20 35 |alcFunc-|lor 0] 5|
|00000730| 29 29 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |))] 2)).|.(defun |
|00000740| 63 61 6c 63 2d 6c 6f 67 | 69 63 61 6c 2d 6e 6f 74 |calc-log|ical-not|
|00000750| 20 28 61 72 67 29 20 28 | 69 6e 74 65 72 61 63 74 | (arg) (|interact|
|00000760| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|00000770| 6f 64 65 20 22 c0 88 c1 | c2 21 87 22 20 5b 6e 69 |ode "...|.!." [ni|
|00000780| 6c 20 63 61 6c 63 2d 64 | 6f 20 28 6c 61 6d 62 64 |l calc-d|o (lambd|
|00000790| 61 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |a nil (b|yte-code|
|000007a0| 20 22 c1 c2 c3 08 23 87 | 22 20 5b 61 72 67 20 63 | "....#.|" [arg c|
|000007b0| 61 6c 63 2d 75 6e 61 72 | 79 2d 6f 70 20 22 6c 6e |alc-unar|y-op "ln|
|000007c0| 6f 74 22 20 63 61 6c 63 | 46 75 6e 63 2d 6c 6e 6f |ot" calc|Func-lno|
|000007d0| 74 5d 20 34 29 29 5d 20 | 32 29 29 0a 0a 28 64 65 |t] 4))] |2))..(de|
|000007e0| 66 75 6e 20 63 61 6c 63 | 2d 6c 6f 67 69 63 61 6c |fun calc|-logical|
|000007f0| 2d 69 66 20 6e 69 6c 20 | 28 69 6e 74 65 72 61 63 |-if nil |(interac|
|00000800| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00000810| 20 22 c0 88 c1 c2 21 87 | 22 20 5b 6e 69 6c 20 63 | "....!.|" [nil c|
|00000820| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00000830| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |il (byte|-code ".|
|00000840| c1 c2 c3 c4 c1 21 42 23 | 87 22 20 5b 63 61 6c 63 |.....!B#|." [calc|
|00000850| 2d 65 6e 74 65 72 2d 72 | 65 73 75 6c 74 20 33 20 |-enter-r|esult 3 |
|00000860| 22 69 66 22 20 63 61 6c | 63 46 75 6e 63 2d 69 66 |"if" cal|cFunc-if|
|00000870| 20 63 61 6c 63 2d 74 6f | 70 2d 6c 69 73 74 2d 6e | calc-to|p-list-n|
|00000880| 5d 20 36 29 29 5d 20 32 | 29 29 0a 0a 28 64 65 66 |] 6))] 2|))..(def|
|00000890| 75 6e 20 63 61 6c 63 2d | 74 69 6d 69 6e 67 20 28 |un calc-|timing (|
|000008a0| 6e 29 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |n) (inte|ractive |
|000008b0| 22 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"P") (by|te-code |
|000008c0| 22 c0 88 c1 c2 21 87 22 | 20 5b 6e 69 6c 20 63 61 |"....!."| [nil ca|
|000008d0| 6c 63 2d 64 6f 20 28 6c | 61 6d 62 64 61 20 6e 69 |lc-do (l|ambda ni|
|000008e0| 6c 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c4 c3 |l (byte-|code "..|
|000008f0| 08 c1 c2 24 88 c5 0b 83 | 10 00 c6 82 11 00 c7 21 |...$....|.......!|
|00000900| 87 22 20 5b 6e 20 6e 69 | 6c 20 74 20 63 61 6c 63 |." [n ni|l t calc|
|00000910| 2d 74 69 6d 69 6e 67 20 | 63 61 6c 63 2d 63 68 61 |-timing |calc-cha|
|00000920| 6e 67 65 2d 6d 6f 64 65 | 20 6d 65 73 73 61 67 65 |nge-mode| message|
|00000930| 20 22 52 65 70 6f 72 74 | 69 6e 67 20 74 69 6d 69 | "Report|ing timi|
|00000940| 6e 67 20 6f 66 20 73 6c | 6f 77 20 63 6f 6d 6d 61 |ng of sl|ow comma|
|00000950| 6e 64 73 20 69 6e 20 54 | 72 61 69 6c 2e 22 20 22 |nds in T|rail." "|
|00000960| 4e 6f 74 20 72 65 70 6f | 72 74 69 6e 67 20 74 69 |Not repo|rting ti|
|00000970| 6d 69 6e 67 20 6f 66 20 | 63 6f 6d 6d 61 6e 64 73 |ming of |commands|
|00000980| 2e 22 5d 20 35 29 29 5d | 20 32 29 29 0a 0a 28 64 |."] 5))]| 2))..(d|
|00000990| 65 66 75 6e 20 63 61 6c | 63 2d 70 61 73 73 2d 65 |efun cal|c-pass-e|
|000009a0| 72 72 6f 72 73 20 6e 69 | 6c 20 28 69 6e 74 65 72 |rrors ni|l (inter|
|000009b0| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|000009c0| 64 65 20 22 c0 88 c1 c2 | c3 8f 87 22 20 5b 6e 69 |de "....|..." [ni|
|000009d0| 6c 20 65 72 72 20 28 62 | 79 74 65 2d 63 6f 64 65 |l err (b|yte-code|
|000009e0| 20 22 c1 c1 c2 4b 38 38 | c3 48 18 c4 c4 08 21 21 | "...K88|.H....!!|
|000009f0| c5 3e 86 1d 00 c1 c1 c2 | 4b 38 38 c6 48 89 10 88 |.>......|K88.H...|
|00000a00| 08 40 40 c7 3e 86 29 00 | c8 c9 21 88 ca 08 40 cb |.@@.>.).|..!...@.|
|00000a10| 5c 22 29 87 22 20 5b 70 | 6c 61 63 65 20 32 20 63 |\")." [p|lace 2 c|
|00000a20| 61 6c 63 2d 64 6f 20 31 | 35 20 63 61 72 2d 73 61 |alc-do 1|5 car-sa|
|00000a30| 66 65 20 28 65 72 72 6f | 72 20 78 78 78 65 72 72 |fe (erro|r xxxerr|
|00000a40| 6f 72 29 20 32 37 20 28 | 65 72 72 6f 72 20 78 78 |or) 27 (|error xx|
|00000a50| 78 65 72 72 6f 72 29 20 | 65 72 72 6f 72 20 22 66 |xerror) |error "f|
|00000a60| 6f 6f 22 20 73 65 74 63 | 61 72 20 78 78 78 65 72 |oo" setc|ar xxxer|
|00000a70| 72 6f 72 5d 20 36 29 20 | 28 28 65 72 72 6f 72 20 |ror] 6) |((error |
|00000a80| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 21 87 |(byte-co|de "..!.|
|00000a90| 22 20 5b 65 72 72 6f 72 | 20 22 54 68 65 20 63 61 |" [error| "The ca|
|00000aa0| 6c 63 2d 64 6f 20 66 75 | 6e 63 74 69 6f 6e 20 68 |lc-do fu|nction h|
|00000ab0| 61 73 20 62 65 65 6e 20 | 6d 6f 64 69 66 69 65 64 |as been |modified|
|00000ac0| 3b 20 75 6e 61 62 6c 65 | 20 74 6f 20 70 61 74 63 |; unable| to patc|
|00000ad0| 68 2e 22 5d 20 32 29 29 | 29 5d 20 33 29 29 0a 0a |h."] 2))|)] 3))..|
|00000ae0| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 75 73 65 72 |(defun c|alc-user|
|00000af0| 2d 64 65 66 69 6e 65 20 | 6e 69 6c 20 28 69 6e 74 |-define |nil (int|
|00000b00| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00000b10| 63 6f 64 65 20 22 c6 88 | c7 c8 21 88 72 18 c9 08 |code "..|..!.r...|
|00000b20| 21 ca 55 85 13 00 cb cc | 21 88 cd ce cf d0 08 21 |!.U.....|!......!|
|00000b30| d1 51 0a d2 c3 d3 25 21 | 19 d4 20 1c d5 08 0c 5c |.Q....%!|.. ....\|
|00000b40| 22 1d 0d 83 36 00 d6 0d | 09 5c 22 82 3f 00 d6 0c |"...6...|.\".?...|
|00000b50| 08 09 42 0c 41 42 5c 22 | 2a 29 29 87 22 20 5b 6b |..B.AB\"|*))." [k|
|00000b60| 65 79 20 66 75 6e 63 20 | 6f 62 61 72 72 61 79 20 |ey func |obarray |
|00000b70| 74 20 6b 6d 61 70 20 6f | 6c 64 20 6e 69 6c 20 6d |t kmap o|ld nil m|
|00000b80| 65 73 73 61 67 65 20 22 | 44 65 66 69 6e 65 20 75 |essage "|Define u|
|00000b90| 73 65 72 20 6b 65 79 3a | 20 7a 2d 22 20 63 61 6c |ser key:| z-" cal|
|00000ba0| 63 2d 75 73 65 72 2d 66 | 75 6e 63 74 69 6f 6e 2d |c-user-f|unction-|
|00000bb0| 63 6c 61 73 73 69 66 79 | 20 30 20 65 72 72 6f 72 |classify| 0 error|
|00000bc0| 20 22 43 61 6e 27 74 20 | 72 65 64 65 66 69 6e 65 | "Can't |redefine|
|00000bd0| 20 5c 22 3f 5c 22 20 6b | 65 79 22 20 69 6e 74 65 | \"?\" k|ey" inte|
|00000be0| 72 6e 20 63 6f 6d 70 6c | 65 74 69 6e 67 2d 72 65 |rn compl|eting-re|
|00000bf0| 61 64 20 22 53 65 74 20 | 6b 65 79 20 7a 20 22 20 |ad "Set |key z " |
|00000c00| 63 68 61 72 2d 74 6f 2d | 73 74 72 69 6e 67 20 22 |char-to-|string "|
|00000c10| 20 74 6f 20 63 6f 6d 6d | 61 6e 64 3a 20 22 20 63 | to comm|and: " c|
|00000c20| 6f 6d 6d 61 6e 64 70 20 | 22 63 61 6c 63 2d 22 20 |ommandp |"calc-" |
|00000c30| 63 61 6c 63 2d 75 73 65 | 72 2d 6b 65 79 2d 6d 61 |calc-use|r-key-ma|
|00000c40| 70 20 61 73 73 71 20 73 | 65 74 63 64 72 5d 20 31 |p assq s|etcdr] 1|
|00000c50| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |3))..(de|fun calc|
|00000c60| 2d 75 73 65 72 2d 75 6e | 64 65 66 69 6e 65 20 6e |-user-un|define n|
|00000c70| 69 6c 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |il (inte|ractive)|
|00000c80| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 88 c3 | (byte-c|ode "...|
|00000c90| c4 21 88 72 18 c5 08 21 | c6 55 85 13 00 c7 c8 21 |.!.r...!|.U.....!|
|00000ca0| 88 c9 20 19 ca cb 08 09 | 5c 22 86 34 00 cb cc 08 |.. .....|\".4....|
|00000cb0| 21 09 5c 22 86 34 00 cb | cd 08 21 09 5c 22 86 34 |!.\".4..|..!.\".4|
|00000cc0| 00 c7 ce 21 09 5c 22 29 | 29 87 22 20 5b 6b 65 79 |...!.\")|)." [key|
|00000cd0| 20 6b 6d 61 70 20 6e 69 | 6c 20 6d 65 73 73 61 67 | kmap ni|l messag|
|00000ce0| 65 20 22 55 6e 64 65 66 | 69 6e 65 20 75 73 65 72 |e "Undef|ine user|
|00000cf0| 20 6b 65 79 3a 20 7a 2d | 22 20 63 61 6c 63 2d 75 | key: z-|" calc-u|
|00000d00| 73 65 72 2d 66 75 6e 63 | 74 69 6f 6e 2d 63 6c 61 |ser-func|tion-cla|
|00000d10| 73 73 69 66 79 20 30 20 | 65 72 72 6f 72 20 22 43 |ssify 0 |error "C|
|00000d20| 61 6e 27 74 20 75 6e 64 | 65 66 69 6e 65 20 5c 22 |an't und|efine \"|
|00000d30| 3f 5c 22 20 6b 65 79 22 | 20 63 61 6c 63 2d 75 73 |?\" key"| calc-us|
|00000d40| 65 72 2d 6b 65 79 2d 6d | 61 70 20 64 65 6c 71 20 |er-key-m|ap delq |
|00000d50| 61 73 73 71 20 75 70 63 | 61 73 65 20 64 6f 77 6e |assq upc|ase down|
|00000d60| 63 61 73 65 20 22 4e 6f | 20 73 75 63 68 20 75 73 |case "No| such us|
|00000d70| 65 72 20 6b 65 79 20 69 | 73 20 64 65 66 69 6e 65 |er key i|s define|
|00000d80| 64 22 5d 20 31 33 29 29 | 0a 0a 28 64 65 66 75 6e |d"] 13))|..(defun|
|00000d90| 20 63 61 6c 63 2d 75 73 | 65 72 2d 64 65 66 69 6e | calc-us|er-defin|
|00000da0| 65 2d 66 6f 72 6d 75 6c | 61 20 6e 69 6c 20 28 69 |e-formul|a nil (i|
|00000db0| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00000dc0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|00000dd0| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00000de0| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00000df0| 6f 64 65 20 22 d4 d5 21 | 18 c2 19 d6 08 21 d7 3d |ode "..!|.....!.=|
|00000e00| 85 12 00 08 47 d8 59 1b | c2 1c c2 1d c2 1e 06 c2 |....G.Y.|........|
|00000e10| 1e 07 c2 1e 08 c2 1e 09 | c2 1e 0a c2 1e 0b 0b 83 |........|........|
|00000e20| 42 00 d9 da db dc 08 41 | 21 41 21 5c 22 11 08 47 |B......A|!A!\"..G|
|00000e30| 53 08 38 89 10 82 4c 00 | dd 08 21 88 de 09 df 5c |S.8...L.|..!....\|
|00000e40| 22 89 11 88 e0 e1 21 88 | 72 89 15 88 e2 0d 21 e3 |".....!.|r.....!.|
|00000e50| 55 85 60 00 e4 e5 21 88 | 0d e6 3e 3f 85 69 00 0d |U.`...!.|..>?.i..|
|00000e60| 15 0d 85 9c 00 e7 0d 58 | 85 77 00 0d e8 58 86 8f |.......X|.w...X..|
|00000e70| 00 e9 0d 58 85 83 00 0d | ea 58 86 8f 00 eb 0d 58 |...X....|.X.....X|
|00000e80| 85 8f 00 0d ec 58 83 98 | 00 ed 0d 21 82 9c 00 ee |.....X..|...!....|
|00000e90| ef 0d 5c 22 16 06 f0 0d | f1 20 5c 22 89 14 88 f2 |..\"....|. \"....|
|00000ea0| f3 0e 0c f4 c2 0c 85 b3 | 00 0c 41 39 83 bd 00 f5 |........|..A9....|
|00000eb0| 0c 41 21 82 be 00 f6 25 | 16 07 f7 f8 0e 07 5c 22 |.A!....%|......\"|
|00000ec0| 85 ce 00 f9 0e 07 d5 5c | 22 16 08 fa 0e 07 fb 5c |.......\|"......\|
|00000ed0| 22 86 dd 00 fa 0e 07 f6 | 5c 22 3f 85 e5 00 fc 0e |".......|\"?.....|
|00000ee0| 07 21 89 16 07 88 0e 07 | 85 14 01 fd 0e 07 21 85 |.!......|......!.|
|00000ef0| 14 01 0c 85 14 01 fe 0e | 07 ff 4e 83 0f 01 81 40 |........|..N....@|
|00000f00| 00 f5 0e 07 21 81 41 00 | 51 82 12 01 81 42 00 21 |....!.A.|Q....B.!|
|00000f10| 3f 85 1c 01 c2 88 82 a6 | 00 88 0d 85 24 01 0e 07 |?.......|....$...|
|00000f20| 3f 85 32 01 fc 81 43 00 | 0e 06 50 21 89 16 07 88 |?.2...C.|..P!....|
|00000f30| f2 81 44 00 0e 0c fd c2 | 81 45 00 0e 08 83 60 01 |..D.....|.E....`.|
|00000f40| f7 81 46 00 0e 08 5c 22 | 83 5b 01 81 47 00 0e 08 |..F...\"|.[..G...|
|00000f50| 81 48 00 c2 4f 50 82 5d | 01 0e 08 82 61 01 fb 50 |.H..OP.]|....a..P|
|00000f60| 25 16 09 fa 0e 09 fb 5c | 22 86 74 01 fa 0e 09 81 |%......\|".t.....|
|00000f70| 45 00 5c 22 3f 85 7c 01 | fc 0e 09 21 89 16 09 88 |E.\"?.|.|...!....|
|00000f80| 0e 09 85 b3 01 fd 0e 09 | 21 85 b3 01 fd 0e 07 21 |........|!......!|
|00000f90| 3f 85 b3 01 0c 85 b3 01 | fe 0e 09 ff 4e 83 ae 01 |?.......|....N...|
|00000fa0| 81 40 00 f5 0e 09 21 81 | 41 00 51 82 b1 01 81 42 |.@....!.|A.Q....B|
|00000fb0| 00 21 3f 85 bb 01 c2 88 | 82 33 01 88 0e 09 3f 85 |.!?.....|.3....?.|
|00000fc0| ec 01 fc 81 49 00 0e 06 | 86 e7 01 0e 07 85 d4 01 |....I...|........|
|00000fd0| f5 0e 07 21 86 e7 01 ee | 81 4a 00 81 4b 00 81 4c |...!....|.J..K..L|
|00000fe0| 00 20 81 4d 00 5c 22 5c | 22 50 21 89 16 09 88 0b |. .M.\"\|"P!.....|
|00000ff0| 83 f8 01 09 89 16 0a 82 | 2e 02 81 4e 00 81 4f 00 |........|...N..O.|
|00001000| 09 83 0a 02 81 50 00 09 | 21 82 0d 02 81 51 00 0e |.....P..|!....Q..|
|00001010| 0d ce 24 89 16 0a 88 81 | 52 00 0e 0a 09 5c 22 3f |..$.....|R....\"?|
|00001020| 85 26 02 fe 81 53 00 21 | 3f 85 2e 02 c2 88 82 f8 |.&...S.!|?.......|
|00001030| 01 88 0e 0a 85 3e 02 0e | 09 85 3e 02 fe 81 54 00 |.....>..|..>...T.|
|00001040| 21 89 16 0b 88 d9 81 55 | 00 0e 0a 5c 22 89 16 0a |!......U|...\"...|
|00001050| 88 0e 07 85 a2 02 81 56 | 00 20 88 0e 07 81 57 00 |.......V|. ....W.|
|00001060| c2 81 58 00 81 59 00 81 | 5a 00 0e 0a 47 f5 0e 09 |..X..Y..|Z...G...|
|00001070| 86 71 02 0e 07 21 1e 0f | f7 81 5b 00 0e 0f 5c 22 |.q...!..|..[...\"|
|00001080| 85 83 02 f9 0e 0f d5 5c | 22 29 81 5c 5c 00 81 5d |.......\|").\\..]|
|00001090| 00 0e 09 44 81 5e 00 0e | 0a 47 44 45 46 44 46 4d |...D.^..|.GDEFDFM|
|000010a0| 88 81 5f 00 0e 07 ff ce | 23 88 81 60 00 81 61 00 |.._.....|#..`..a.|
|000010b0| 08 21 44 1e 10 0e 09 81 | 62 00 81 57 00 0e 0a 44 |.!D.....|b..W...D|
|000010c0| 0e 0b 85 c5 02 d9 81 63 | 00 0e 0a 5c 22 0e 10 43 |.......c|...\"..C|
|000010d0| 23 4d 29 88 81 5f 00 0e | 09 ff 08 23 88 c2 89 16 |#M).._..|...#....|
|000010e0| 11 88 0d 85 08 03 f1 20 | 1e 12 f0 0d 0e 12 5c 22 |....... |......\"|
|000010f0| 1e 13 0e 13 83 f9 02 81 | 64 00 0e 13 0e 07 5c 22 |........|d.....\"|
|00001100| 82 07 03 81 64 00 0e 12 | 0d 0e 07 42 0e 12 41 42 |....d...|...B..AB|
|00001110| 5c 22 2a 2e 0b 88 e0 fb | 21 87 22 20 5b 66 6f 72 |\"*.....|!." [for|
|00001120| 6d 20 61 72 67 6c 69 73 | 74 20 6e 69 6c 20 69 73 |m arglis|t nil is|
|00001130| 2d 6c 61 6d 62 64 61 20 | 6f 64 65 66 20 6b 65 79 |-lambda |odef key|
|00001140| 20 6b 65 79 6e 61 6d 65 | 20 63 6d 64 20 63 6d 64 | keyname| cmd cmd|
|00001150| 2d 62 61 73 65 20 66 75 | 6e 63 20 61 6c 69 73 74 |-base fu|nc alist|
|00001160| 20 69 73 2d 73 79 6d 62 | 20 6f 62 61 72 72 61 79 | is-symb| obarray|
|00001170| 20 6d 69 6e 69 62 75 66 | 66 65 72 2d 6c 6f 63 61 | minibuf|fer-loca|
|00001180| 6c 2d 6d 61 70 20 74 20 | 6e 61 6d 65 20 62 6f 64 |l-map t |name bod|
|00001190| 79 20 6d 61 74 68 2d 69 | 6e 74 65 67 72 61 6c 2d |y math-i|ntegral-|
|000011a0| 63 61 63 68 65 2d 73 74 | 61 74 65 20 6b 6d 61 70 |cache-st|ate kmap|
|000011b0| 20 6f 6c 64 20 63 61 6c | 63 2d 74 6f 70 20 31 20 | old cal|c-top 1 |
|000011c0| 63 61 72 2d 73 61 66 65 | 20 63 61 6c 63 46 75 6e |car-safe| calcFun|
|000011d0| 63 2d 6c 61 6d 62 64 61 | 20 32 20 6d 61 70 63 61 |c-lambda| 2 mapca|
|000011e0| 72 20 28 6c 61 6d 62 64 | 61 20 28 78 29 20 28 62 |r (lambd|a (x) (b|
|000011f0| 79 74 65 2d 63 6f 64 65 | 20 22 c1 08 38 87 22 20 |yte-code| "..8." |
|00001200| 5b 78 20 31 5d 20 32 29 | 29 20 6e 72 65 76 65 72 |[x 1] 2)|) nrever|
|00001210| 73 65 20 72 65 76 65 72 | 73 65 20 63 61 6c 63 2d |se rever|se calc-|
|00001220| 64 65 66 61 75 6c 74 2d | 66 6f 72 6d 75 6c 61 2d |default-|formula-|
|00001230| 61 72 67 6c 69 73 74 20 | 73 6f 72 74 20 73 74 72 |arglist |sort str|
|00001240| 69 6e 67 2d 6c 65 73 73 | 70 20 6d 65 73 73 61 67 |ing-less|p messag|
|00001250| 65 20 22 44 65 66 69 6e | 65 20 75 73 65 72 20 6b |e "Defin|e user k|
|00001260| 65 79 3a 20 7a 2d 22 20 | 63 61 6c 63 2d 75 73 65 |ey: z-" |calc-use|
|00001270| 72 2d 66 75 6e 63 74 69 | 6f 6e 2d 63 6c 61 73 73 |r-functi|on-class|
|00001280| 69 66 79 20 30 20 65 72 | 72 6f 72 20 22 43 61 6e |ify 0 er|ror "Can|
|00001290| 27 74 20 72 65 64 65 66 | 69 6e 65 20 5c 22 3f 5c |'t redef|ine \"?\|
|000012a0| 22 20 6b 65 79 22 20 28 | 31 33 20 33 32 29 20 34 |" key" (|13 32) 4|
|000012b0| 38 20 35 37 20 39 37 20 | 31 32 32 20 36 35 20 39 |8 57 97 |122 65 9|
|000012c0| 30 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |0 char-t|o-string|
|000012d0| 20 66 6f 72 6d 61 74 20 | 22 25 30 33 64 22 20 61 | format |"%03d" a|
|000012e0| 73 73 71 20 63 61 6c 63 | 2d 75 73 65 72 2d 6b 65 |ssq calc|-user-ke|
|000012f0| 79 2d 6d 61 70 20 63 6f | 6d 70 6c 65 74 69 6e 67 |y-map co|mpleting|
|00001300| 2d 72 65 61 64 20 22 44 | 65 66 69 6e 65 20 4d 2d |-read "D|efine M-|
|00001310| 78 20 63 6f 6d 6d 61 6e | 64 20 6e 61 6d 65 3a 20 |x comman|d name: |
|00001320| 22 20 63 6f 6d 6d 61 6e | 64 70 20 73 79 6d 62 6f |" comman|dp symbo|
|00001330| 6c 2d 6e 61 6d 65 20 22 | 63 61 6c 63 2d 22 20 73 |l-name "|calc-" s|
|00001340| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5c 5c 60 |tring-ma|tch "\\`|
|00001350| 63 61 6c 63 2d 5c 5c 28 | 2e 2b 5c 5c 29 5c 5c 27 |calc-\\(|.+\\)\\'|
|00001360| 22 20 6d 61 74 68 2d 6d | 61 74 63 68 2d 73 75 62 |" math-m|atch-sub|
|00001370| 73 74 72 69 6e 67 20 73 | 74 72 69 6e 67 2d 65 71 |string s|tring-eq|
|00001380| 75 61 6c 20 22 22 20 69 | 6e 74 65 72 6e 20 66 62 |ual "" i|ntern fb|
|00001390| 6f 75 6e 64 70 20 79 2d | 6f 72 2d 6e 2d 70 20 63 |oundp y-|or-n-p c|
|000013a0| 61 6c 63 2d 75 73 65 72 | 2d 64 65 66 6e 20 22 52 |alc-user|-defn "R|
|000013b0| 65 70 6c 61 63 65 20 70 | 72 65 76 69 6f 75 73 20 |eplace p|revious |
|000013c0| 64 65 66 69 6e 69 74 69 | 6f 6e 20 66 6f 72 20 22 |definiti|on for "|
|000013d0| 20 22 3f 20 22 20 22 54 | 68 61 74 20 6e 61 6d 65 | "? " "T|hat name|
|000013e0| 20 63 6f 6e 66 6c 69 63 | 74 73 20 77 69 74 68 20 | conflic|ts with |
|000013f0| 61 20 62 75 69 6c 74 2d | 69 6e 20 45 6d 61 63 73 |a built-|in Emacs|
|00001400| 20 66 75 6e 63 74 69 6f | 6e 2e 20 20 52 65 70 6c | functio|n. Repl|
|00001410| 61 63 65 20 74 68 69 73 | 20 66 75 6e 63 74 69 6f |ace this| functio|
|00001420| 6e 3f 20 22 20 22 63 61 | 6c 63 2d 55 73 65 72 2d |n? " "ca|lc-User-|
|00001430| 22 20 22 44 65 66 69 6e | 65 20 61 6c 67 65 62 72 |" "Defin|e algebr|
|00001440| 61 69 63 20 66 75 6e 63 | 74 69 6f 6e 20 6e 61 6d |aic func|tion nam|
|00001450| 65 3a 20 22 20 22 63 61 | 6c 63 46 75 6e 63 2d 22 |e: " "ca|lcFunc-"|
|00001460| 20 22 5c 5c 60 55 73 65 | 72 2d 2e 2b 22 20 22 55 | "\\`Use|r-.+" "U|
|00001470| 73 65 72 22 20 35 20 22 | 63 61 6c 63 46 75 6e 63 |ser" 5 "|calcFunc|
|00001480| 2d 55 73 65 72 22 20 22 | 25 30 35 64 22 20 25 20 |-User" "|%05d" % |
|00001490| 72 61 6e 64 6f 6d 20 31 | 30 30 30 30 20 72 65 61 |random 1|0000 rea|
|000014a0| 64 2d 66 72 6f 6d 2d 6d | 69 6e 69 62 75 66 66 65 |d-from-m|inibuffe|
|000014b0| 72 20 22 46 75 6e 63 74 | 69 6f 6e 20 61 72 67 75 |r "Funct|ion argu|
|000014c0| 6d 65 6e 74 20 6c 69 73 | 74 3a 20 22 20 70 72 69 |ment lis|t: " pri|
|000014d0| 6e 31 2d 74 6f 2d 73 74 | 72 69 6e 67 20 22 28 29 |n1-to-st|ring "()|
|000014e0| 22 20 63 61 6c 63 2d 73 | 75 62 73 65 74 70 20 22 |" calc-s|ubsetp "|
|000014f0| 4f 6b 61 79 20 66 6f 72 | 20 61 72 67 75 6d 65 6e |Okay for| argumen|
|00001500| 74 73 20 74 68 61 74 20 | 64 6f 6e 27 74 20 61 70 |ts that |don't ap|
|00001510| 70 65 61 72 20 69 6e 20 | 66 6f 72 6d 75 6c 61 20 |pear in |formula |
|00001520| 74 6f 20 62 65 20 69 67 | 6e 6f 72 65 64 3f 20 22 |to be ig|nored? "|
|00001530| 20 22 4c 65 61 76 65 20 | 69 74 20 73 79 6d 62 6f | "Leave |it symbo|
|00001540| 6c 69 63 20 66 6f 72 20 | 6e 6f 6e 2d 63 6f 6e 73 |lic for |non-cons|
|00001550| 74 61 6e 74 20 61 72 67 | 75 6d 65 6e 74 73 3f 20 |tant arg|uments? |
|00001560| 22 20 28 6c 61 6d 62 64 | 61 20 28 78 29 20 28 62 |" (lambd|a (x) (b|
|00001570| 79 74 65 2d 63 6f 64 65 | 20 22 c1 08 c2 5c 22 41 |yte-code| "...\"A|
|00001580| 86 09 00 08 87 22 20 5b | 78 20 61 73 73 71 20 28 |....." [|x assq (|
|00001590| 28 6e 69 6c 20 2e 20 61 | 72 67 2d 6e 69 6c 29 20 |(nil . a|rg-nil) |
|000015a0| 28 74 20 2e 20 61 72 67 | 2d 74 29 29 5d 20 33 29 |(t . arg|-t))] 3)|
|000015b0| 29 20 63 61 6c 63 2d 6e | 65 65 64 2d 6d 61 63 72 |) calc-n|eed-macr|
|000015c0| 6f 73 20 6c 61 6d 62 64 | 61 20 28 69 6e 74 65 72 |os lambd|a (inter|
|000015d0| 61 63 74 69 76 65 29 20 | 63 61 6c 63 2d 77 72 61 |active) |calc-wra|
|000015e0| 70 70 65 72 20 63 61 6c | 63 2d 65 6e 74 65 72 2d |pper cal|c-enter-|
|000015f0| 72 65 73 75 6c 74 20 22 | 5c 5c 28 5b 5e 2d 5d 5b |result "|\\([^-][|
|00001600| 5e 2d 5d 3f 5b 5e 2d 5d | 3f 5b 5e 2d 5d 3f 5c 5c |^-]?[^-]|?[^-]?\\|
|00001610| 29 5b 5e 2d 5d 2a 5c 5c | 27 22 20 63 6f 6e 73 20 |)[^-]*\\|'" cons |
|00001620| 71 75 6f 74 65 20 63 61 | 6c 63 2d 74 6f 70 2d 6c |quote ca|lc-top-l|
|00001630| 69 73 74 2d 6e 20 70 75 | 74 20 6d 61 74 68 2d 6e |ist-n pu|t math-n|
|00001640| 6f 72 6d 61 6c 69 7a 65 | 20 63 61 6c 63 2d 66 69 |ormalize| calc-fi|
|00001650| 78 2d 75 73 65 72 2d 66 | 6f 72 6d 75 6c 61 20 61 |x-user-f|ormula a|
|00001660| 70 70 65 6e 64 20 28 6c | 61 6d 62 64 61 20 28 76 |ppend (l|ambda (v|
|00001670| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c2 08 |) (byte-|code "..|
|00001680| c1 45 87 22 20 5b 76 20 | 74 20 6d 61 74 68 2d 63 |.E." [v |t math-c|
|00001690| 68 65 63 6b 2d 63 6f 6e | 73 74 5d 20 33 29 29 20 |heck-con|st] 3)) |
|000016a0| 73 65 74 63 64 72 5d 20 | 36 31 29 29 5d 20 32 29 |setcdr] |61))] 2)|
|000016b0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 64 |)..(defu|n calc-d|
|000016c0| 65 66 61 75 6c 74 2d 66 | 6f 72 6d 75 6c 61 2d 61 |efault-f|ormula-a|
|000016d0| 72 67 6c 69 73 74 20 28 | 66 6f 72 6d 29 20 28 62 |rglist (|form) (b|
|000016e0| 79 74 65 2d 63 6f 64 65 | 20 22 08 3a 85 2c 00 08 |yte-code| ".:.,..|
|000016f0| 40 c3 3d 83 28 00 c4 08 | 38 09 3e 86 17 00 c5 08 |@.=.(...|8.>.....|
|00001700| 21 83 1e 00 c2 82 25 00 | c4 08 38 09 42 89 11 82 |!.....%.|..8.B...|
|00001710| 2c 00 c6 08 41 21 87 22 | 20 5b 66 6f 72 6d 20 61 |,...A!."| [form a|
|00001720| 72 67 6c 69 73 74 20 6e | 69 6c 20 76 61 72 20 31 |rglist n|il var 1|
|00001730| 20 6d 61 74 68 2d 63 6f | 6e 73 74 2d 76 61 72 20 | math-co|nst-var |
|00001740| 63 61 6c 63 2d 64 65 66 | 61 75 6c 74 2d 66 6f 72 |calc-def|ault-for|
|00001750| 6d 75 6c 61 2d 61 72 67 | 6c 69 73 74 2d 73 74 65 |mula-arg|list-ste|
|00001760| 70 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |p] 3))..|(defun c|
|00001770| 61 6c 63 2d 64 65 66 61 | 75 6c 74 2d 66 6f 72 6d |alc-defa|ult-form|
|00001780| 75 6c 61 2d 61 72 67 6c | 69 73 74 2d 73 74 65 70 |ula-argl|ist-step|
|00001790| 20 28 6c 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (l) (by|te-code |
|000017a0| 22 08 85 0d 00 c1 08 40 | 21 88 c2 08 41 21 87 22 |"......@|!...A!."|
|000017b0| 20 5b 6c 20 63 61 6c 63 | 2d 64 65 66 61 75 6c 74 | [l calc|-default|
|000017c0| 2d 66 6f 72 6d 75 6c 61 | 2d 61 72 67 6c 69 73 74 |-formula|-arglist|
|000017d0| 20 63 61 6c 63 2d 64 65 | 66 61 75 6c 74 2d 66 6f | calc-de|fault-fo|
|000017e0| 72 6d 75 6c 61 2d 61 72 | 67 6c 69 73 74 2d 73 74 |rmula-ar|glist-st|
|000017f0| 65 70 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |ep] 3)).|.(defun |
|00001800| 63 61 6c 63 2d 73 75 62 | 73 65 74 70 20 28 61 20 |calc-sub|setp (a |
|00001810| 62 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |b) (byte|-code ".|
|00001820| 3f 86 11 00 08 40 09 3e | 85 11 00 c2 08 41 09 5c |?....@.>|.....A.\|
|00001830| 22 87 22 20 5b 61 20 62 | 20 63 61 6c 63 2d 73 75 |"." [a b| calc-su|
|00001840| 62 73 65 74 70 5d 20 33 | 29 29 0a 0a 28 64 65 66 |bsetp] 3|))..(def|
|00001850| 75 6e 20 63 61 6c 63 2d | 66 69 78 2d 75 73 65 72 |un calc-|fix-user|
|00001860| 2d 66 6f 72 6d 75 6c 61 | 20 28 66 29 20 28 62 79 |-formula| (f) (by|
|00001870| 74 65 2d 63 6f 64 65 20 | 22 08 3a 83 94 00 c4 19 |te-code |".:.....|
|00001880| 08 40 c5 3d 85 1f 00 c6 | c7 08 38 c8 5c 22 41 86 |.@.=....|..8.\"A.|
|00001890| 1b 00 c7 08 38 89 11 0a | 3e 83 26 00 09 82 90 00 |....8...|>.&.....|
|000018a0| c9 08 21 86 30 00 08 40 | c5 3d 83 39 00 ca 08 44 |..!.0..@|.=.9...D|
|000018b0| 82 90 00 08 40 cb 3d 85 | 44 00 08 47 cc 55 83 54 |....@.=.|D..G.U.T|
|000018c0| 00 cd ce cf d0 c7 08 38 | 21 44 45 82 90 00 08 40 |.......8|!DE....@|
|000018d0| d1 3d 85 5f 00 08 47 cc | 55 83 6c 00 d2 d0 c7 08 |.=._..G.|U.l.....|
|000018e0| 38 21 44 82 90 00 08 40 | d3 3d 85 77 00 08 47 cc |8!D....@|.=.w..G.|
|000018f0| 55 83 84 00 d4 d0 c7 08 | 38 21 44 82 90 00 d5 ca |U.......|8!D.....|
|00001900| 08 40 44 d6 d0 08 41 5c | 22 42 42 29 82 95 00 08 |.@D...A\|"BB)....|
|00001910| 87 22 20 5b 66 20 74 65 | 6d 70 20 61 6c 69 73 74 |." [f te|mp alist|
|00001920| 20 74 20 6e 69 6c 20 76 | 61 72 20 61 73 73 71 20 | t nil v|ar assq |
|00001930| 31 20 28 28 6e 69 6c 20 | 2e 20 61 72 67 2d 6e 69 |1 ((nil |. arg-ni|
|00001940| 6c 29 20 28 74 20 2e 20 | 61 72 67 2d 74 29 29 20 |l) (t . |arg-t)) |
|00001950| 6d 61 74 68 2d 63 6f 6e | 73 74 70 20 71 75 6f 74 |math-con|stp quot|
|00001960| 65 20 63 61 6c 63 46 75 | 6e 63 2d 65 76 61 6c 20 |e calcFu|nc-eval |
|00001970| 32 20 6c 65 74 20 28 28 | 63 61 6c 63 2d 73 69 6d |2 let ((|calc-sim|
|00001980| 70 6c 69 66 79 2d 6d 6f | 64 65 20 6e 69 6c 29 29 |plify-mo|de nil))|
|00001990| 20 6d 61 74 68 2d 6e 6f | 72 6d 61 6c 69 7a 65 20 | math-no|rmalize |
|000019a0| 63 61 6c 63 2d 66 69 78 | 2d 75 73 65 72 2d 66 6f |calc-fix|-user-fo|
|000019b0| 72 6d 75 6c 61 20 63 61 | 6c 63 46 75 6e 63 2d 65 |rmula ca|lcFunc-e|
|000019c0| 76 61 6c 73 69 6d 70 20 | 6d 61 74 68 2d 73 69 6d |valsimp |math-sim|
|000019d0| 70 6c 69 66 79 20 63 61 | 6c 63 46 75 6e 63 2d 65 |plify ca|lcFunc-e|
|000019e0| 76 61 6c 65 78 74 73 69 | 6d 70 20 6d 61 74 68 2d |valextsi|mp math-|
|000019f0| 73 69 6d 70 6c 69 66 79 | 2d 65 78 74 65 6e 64 65 |simplify|-extende|
|00001a00| 64 20 6c 69 73 74 20 6d | 61 70 63 61 72 5d 20 31 |d list m|apcar] 1|
|00001a10| 30 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |0))..(de|fun calc|
|00001a20| 2d 75 73 65 72 2d 64 65 | 66 69 6e 65 2d 63 6f 6d |-user-de|fine-com|
|00001a30| 70 6f 73 69 74 69 6f 6e | 20 6e 69 6c 20 28 69 6e |position| nil (in|
|00001a40| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00001a50| 2d 63 6f 64 65 20 22 c0 | 88 c1 c2 21 87 22 20 5b |-code ".|...!." [|
|00001a60| 6e 69 6c 20 63 61 6c 63 | 2d 64 6f 20 28 6c 61 6d |nil calc|-do (lam|
|00001a70| 62 64 61 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |bda nil |(byte-co|
|00001a80| 64 65 20 22 08 cc 3d 85 | 09 00 cd ce 21 88 cf d0 |de "..=.|....!...|
|00001a90| 21 19 d1 d2 d3 0b d4 c4 | d5 25 21 1a 0a d6 4e 1d |!.......|.%!...N.|
|00001aa0| c4 1e 06 c4 1e 07 c4 1e | 08 c4 1e 09 d7 09 21 83 |........|......!.|
|00001ab0| 44 00 d8 08 0d 5c 22 89 | 16 06 85 41 00 d9 0a d6 |D....\".|...A....|
|00001ac0| da 0e 06 0d 5c 22 23 82 | bd 00 db 09 21 88 dc 0e |....\"#.|....!...|
|00001ad0| 08 dd 5c 22 89 16 08 88 | de df 0e 08 83 5f 00 e0 |..\"....|....._..|
|00001ae0| 0e 08 21 82 60 00 e1 0e | 0a cb 24 89 16 09 88 e2 |..!.`...|..$.....|
|00001af0| 0e 09 0e 08 5c 22 3f 85 | 75 00 e3 e4 21 85 7d 00 |....\"?.|u...!.}.|
|00001b00| c4 88 82 51 00 88 d8 08 | 0d 5c 22 89 16 06 86 93 |...Q....|.\".....|
|00001b10| 00 d9 0a d6 08 43 89 16 | 06 0d 42 23 88 d8 0e 09 |.....C..|..B#....|
|00001b20| 47 0e 06 41 5c 22 89 16 | 07 86 b1 00 e5 0e 06 0e |G..A\"..|........|
|00001b30| 09 47 43 89 16 07 0e 06 | 41 42 5c 22 88 e5 0e 07 |.GC.....|AB\"....|
|00001b40| e6 0e 09 e7 09 21 45 5c | 22 88 e8 d0 21 88 e9 20 |.....!E\|"...!.. |
|00001b50| 2e 07 87 22 20 5b 63 61 | 6c 63 2d 6c 61 6e 67 75 |..." [ca|lc-langu|
|00001b60| 61 67 65 20 63 6f 6d 70 | 20 66 75 6e 63 20 6f 62 |age comp| func ob|
|00001b70| 61 72 72 61 79 20 6e 69 | 6c 20 63 6f 6d 70 73 20 |array ni|l comps |
|00001b80| 65 6e 74 72 79 20 65 6e | 74 72 79 32 20 61 72 67 |entry en|try2 arg|
|00001b90| 6c 69 73 74 20 61 6c 69 | 73 74 20 6d 69 6e 69 62 |list ali|st minib|
|00001ba0| 75 66 66 65 72 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |uffer-lo|cal-map |
|00001bb0| 74 20 75 6e 66 6f 72 6d | 20 65 72 72 6f 72 20 22 |t unform| error "|
|00001bc0| 43 61 6e 27 74 20 64 65 | 66 69 6e 65 20 66 6f 72 |Can't de|fine for|
|00001bd0| 6d 61 74 73 20 66 6f 72 | 20 75 6e 66 6f 72 6d 61 |mats for| unforma|
|00001be0| 74 74 65 64 20 6d 6f 64 | 65 22 20 63 61 6c 63 2d |tted mod|e" calc-|
|00001bf0| 74 6f 70 20 31 20 69 6e | 74 65 72 6e 20 63 6f 6d |top 1 in|tern com|
|00001c00| 70 6c 65 74 69 6e 67 2d | 72 65 61 64 20 22 44 65 |pleting-|read "De|
|00001c10| 66 69 6e 65 20 66 6f 72 | 6d 61 74 20 66 6f 72 20 |fine for|mat for |
|00001c20| 77 68 69 63 68 20 66 75 | 6e 63 74 69 6f 6e 3a 20 |which fu|nction: |
|00001c30| 22 20 66 62 6f 75 6e 64 | 70 20 22 63 61 6c 63 46 |" fbound|p "calcF|
|00001c40| 75 6e 63 2d 22 20 6d 61 | 74 68 2d 63 6f 6d 70 6f |unc-" ma|th-compo|
|00001c50| 73 65 2d 66 6f 72 6d 73 | 20 6d 61 74 68 2d 7a 65 |se-forms| math-ze|
|00001c60| 72 6f 70 20 61 73 73 71 | 20 70 75 74 20 64 65 6c |rop assq| put del|
|00001c70| 71 20 63 61 6c 63 2d 64 | 65 66 61 75 6c 74 2d 66 |q calc-d|efault-f|
|00001c80| 6f 72 6d 75 6c 61 2d 61 | 72 67 6c 69 73 74 20 73 |ormula-a|rglist s|
|00001c90| 6f 72 74 20 73 74 72 69 | 6e 67 2d 6c 65 73 73 70 |ort stri|ng-lessp|
|00001ca0| 20 72 65 61 64 2d 66 72 | 6f 6d 2d 6d 69 6e 69 62 | read-fr|om-minib|
|00001cb0| 75 66 66 65 72 20 22 43 | 6f 6d 70 6f 73 69 74 69 |uffer "C|ompositi|
|00001cc0| 6f 6e 20 61 72 67 75 6d | 65 6e 74 20 6c 69 73 74 |on argum|ent list|
|00001cd0| 3a 20 22 20 70 72 69 6e | 31 2d 74 6f 2d 73 74 72 |: " prin|1-to-str|
|00001ce0| 69 6e 67 20 22 28 29 22 | 20 63 61 6c 63 2d 73 75 |ing "()"| calc-su|
|00001cf0| 62 73 65 74 70 20 79 2d | 6f 72 2d 6e 2d 70 20 22 |bsetp y-|or-n-p "|
|00001d00| 4f 6b 61 79 20 66 6f 72 | 20 61 72 67 75 6d 65 6e |Okay for| argumen|
|00001d10| 74 73 20 74 68 61 74 20 | 64 6f 6e 27 74 20 61 70 |ts that |don't ap|
|00001d20| 70 65 61 72 20 69 6e 20 | 66 6f 72 6d 75 6c 61 20 |pear in |formula |
|00001d30| 74 6f 20 62 65 20 69 6e | 76 69 73 69 62 6c 65 3f |to be in|visible?|
|00001d40| 20 22 20 73 65 74 63 64 | 72 20 6c 61 6d 62 64 61 | " setcd|r lambda|
|00001d50| 20 63 61 6c 63 2d 66 69 | 78 2d 75 73 65 72 2d 66 | calc-fi|x-user-f|
|00001d60| 6f 72 6d 75 6c 61 20 63 | 61 6c 63 2d 70 6f 70 2d |ormula c|alc-pop-|
|00001d70| 73 74 61 63 6b 20 63 61 | 6c 63 2d 64 6f 2d 72 65 |stack ca|lc-do-re|
|00001d80| 66 72 65 73 68 5d 20 32 | 34 29 29 5d 20 32 29 29 |fresh] 2|4))] 2))|
|00001d90| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 75 73 |..(defun| calc-us|
|00001da0| 65 72 2d 64 65 66 69 6e | 65 2d 6b 62 64 2d 6d 61 |er-defin|e-kbd-ma|
|00001db0| 63 72 6f 20 28 61 72 67 | 29 20 28 69 6e 74 65 72 |cro (arg|) (inter|
|00001dc0| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|00001dd0| 65 2d 63 6f 64 65 20 22 | c4 88 08 86 09 00 ca cb |e-code "|........|
|00001de0| 21 88 cc cd 21 88 72 19 | ce 09 21 cf 55 85 1b 00 |!...!.r.|..!.U...|
|00001df0| ca d0 21 88 d1 d2 d3 0b | d4 c4 d5 09 d6 59 85 2c |..!.....|.....Y.,|
|00001e00| 00 09 d7 58 86 44 00 09 | d8 59 85 38 00 09 d9 58 |...X.D..|.Y.8...X|
|00001e10| 86 44 00 09 da 59 85 44 | 00 09 db 58 83 4d 00 dc |.D...Y.D|...X.M..|
|00001e20| 09 21 82 51 00 dd de 09 | 5c 22 50 25 21 1a df 0a |.!.Q....|\"P%!...|
|00001e30| 21 85 78 00 0a 4b 1d 0d | 3b 86 6f 00 0d 3a 85 6f |!.x..K..|;.o..:.o|
|00001e40| 00 e0 e1 0d 38 21 e2 3d | 29 3f 85 78 00 ca e3 0a |....8!.=|)?.x....|
|00001e50| 5c 22 88 e4 0a e5 c6 23 | 88 0a e6 0e 07 21 cf 57 |\".....#|.....!.W|
|00001e60| 83 8d 00 08 82 9e 00 e7 | e8 e9 e2 ea eb 08 21 08 |........|......!.|
|00001e70| 5c 22 c7 dd ec 09 5c 22 | 46 46 4d 88 ed 20 1e 08 |\"....\"|FFM.. ..|
|00001e80| ee 09 0e 08 5c 22 1e 09 | 0e 09 83 b8 00 ef 0e 09 |....\"..|........|
|00001e90| 0a 5c 22 82 c3 00 ef 0e | 08 09 0a 42 0e 08 41 42 |.\".....|...B..AB|
|00001ea0| 5c 22 2a 29 29 87 22 20 | 5b 6c 61 73 74 2d 6b 62 |\"*))." |[last-kb|
|00001eb0| 64 2d 6d 61 63 72 6f 20 | 6b 65 79 20 63 6d 64 20 |d-macro |key cmd |
|00001ec0| 6f 62 61 72 72 61 79 20 | 6e 69 6c 20 66 20 74 20 |obarray |nil f t |
|00001ed0| 61 72 67 20 6b 6d 61 70 | 20 6f 6c 64 20 65 72 72 |arg kmap| old err|
|00001ee0| 6f 72 20 22 4e 6f 20 6b | 65 79 62 6f 61 72 64 20 |or "No k|eyboard |
|00001ef0| 6d 61 63 72 6f 20 64 65 | 66 69 6e 65 64 22 20 6d |macro de|fined" m|
|00001f00| 65 73 73 61 67 65 20 22 | 44 65 66 69 6e 65 20 6c |essage "|Define l|
|00001f10| 61 73 74 20 6b 62 64 20 | 6d 61 63 72 6f 20 6f 6e |ast kbd |macro on|
|00001f20| 20 75 73 65 72 20 6b 65 | 79 3a 20 7a 2d 22 20 63 | user ke|y: z-" c|
|00001f30| 61 6c 63 2d 75 73 65 72 | 2d 66 75 6e 63 74 69 6f |alc-user|-functio|
|00001f40| 6e 2d 63 6c 61 73 73 69 | 66 79 20 30 20 22 43 61 |n-classi|fy 0 "Ca|
|00001f50| 6e 27 74 20 72 65 64 65 | 66 69 6e 65 20 5c 22 3f |n't rede|fine \"?|
|00001f60| 5c 22 20 6b 65 79 22 20 | 69 6e 74 65 72 6e 20 63 |\" key" |intern c|
|00001f70| 6f 6d 70 6c 65 74 69 6e | 67 2d 72 65 61 64 20 22 |ompletin|g-read "|
|00001f80| 46 75 6c 6c 20 6e 61 6d | 65 20 66 6f 72 20 6e 65 |Full nam|e for ne|
|00001f90| 77 20 63 6f 6d 6d 61 6e | 64 3a 20 22 20 63 6f 6d |w comman|d: " com|
|00001fa0| 6d 61 6e 64 70 20 22 63 | 61 6c 63 2d 55 73 65 72 |mandp "c|alc-User|
|00001fb0| 2d 22 20 39 37 20 31 32 | 32 20 36 35 20 39 30 20 |-" 97 12|2 65 90 |
|00001fc0| 34 38 20 35 37 20 63 68 | 61 72 2d 74 6f 2d 73 74 |48 57 ch|ar-to-st|
|00001fd0| 72 69 6e 67 20 66 6f 72 | 6d 61 74 20 22 25 30 33 |ring for|mat "%03|
|00001fe0| 64 22 20 66 62 6f 75 6e | 64 70 20 63 61 72 2d 73 |d" fboun|dp car-s|
|00001ff0| 61 66 65 20 33 20 63 61 | 6c 63 2d 65 78 65 63 75 |afe 3 ca|lc-execu|
|00002000| 74 65 2d 6b 62 64 2d 6d | 61 63 72 6f 20 22 46 75 |te-kbd-m|acro "Fu|
|00002010| 6e 63 74 69 6f 6e 20 25 | 73 20 69 73 20 61 6c 72 |nction %|s is alr|
|00002020| 65 61 64 79 20 64 65 66 | 69 6e 65 64 20 61 6e 64 |eady def|ined and|
|00002030| 20 6e 6f 74 20 61 20 6b | 65 79 62 6f 61 72 64 20 | not a k|eyboard |
|00002040| 6d 61 63 72 6f 22 20 70 | 75 74 20 63 61 6c 63 2d |macro" p|ut calc-|
|00002050| 75 73 65 72 2d 64 65 66 | 6e 20 70 72 65 66 69 78 |user-def|n prefix|
|00002060| 2d 6e 75 6d 65 72 69 63 | 2d 76 61 6c 75 65 20 6c |-numeric|-value l|
|00002070| 61 6d 62 64 61 20 28 61 | 72 67 29 20 28 69 6e 74 |ambda (a|rg) (int|
|00002080| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 76 65 |eractive| "P") ve|
|00002090| 63 74 6f 72 20 6b 65 79 | 2d 64 65 73 63 72 69 70 |ctor key|-descrip|
|000020a0| 74 69 6f 6e 20 22 7a 25 | 63 22 20 63 61 6c 63 2d |tion "z%|c" calc-|
|000020b0| 75 73 65 72 2d 6b 65 79 | 2d 6d 61 70 20 61 73 73 |user-key|-map ass|
|000020c0| 71 20 73 65 74 63 64 72 | 5d 20 32 35 29 29 0a 0a |q setcdr|] 25))..|
|000020d0| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 65 64 69 74 |(defun c|alc-edit|
|000020e0| 2d 75 73 65 72 2d 73 79 | 6e 74 61 78 20 6e 69 6c |-user-sy|ntax nil|
|000020f0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|00002100| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 88 c1 c2 21 |byte-cod|e "....!|
|00002110| 88 c3 20 87 22 20 5b 6e | 69 6c 20 63 61 6c 63 2d |.. ." [n|il calc-|
|00002120| 64 6f 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |do (lamb|da nil (|
|00002130| 62 79 74 65 2d 63 6f 64 | 65 20 22 09 18 c4 c5 c6 |byte-cod|e ".....|
|00002140| 08 44 44 c2 c7 c8 08 3f | 83 14 00 c9 82 23 00 08 |.DD....?|.....#..|
|00002150| ca 3d 83 1e 00 cb 82 23 | 00 cc cd 08 21 21 5c 22 |.=.....#|....!!\"|
|00002160| 23 88 ce cf 08 0b 5c 22 | 41 08 5c 22 29 87 22 20 |#.....\"|A.\")." |
|00002170| 5b 6c 61 6e 67 20 63 61 | 6c 63 2d 6c 61 6e 67 75 |[lang ca|lc-langu|
|00002180| 61 67 65 20 74 20 63 61 | 6c 63 2d 75 73 65 72 2d |age t ca|lc-user-|
|00002190| 70 61 72 73 65 2d 74 61 | 62 6c 65 73 20 63 61 6c |parse-ta|bles cal|
|000021a0| 63 2d 65 64 69 74 2d 6d | 6f 64 65 20 63 61 6c 63 |c-edit-m|ode calc|
|000021b0| 2d 66 69 6e 69 73 68 2d | 75 73 65 72 2d 73 79 6e |-finish-|user-syn|
|000021c0| 74 61 78 2d 65 64 69 74 | 20 71 75 6f 74 65 20 66 |tax-edit| quote f|
|000021d0| 6f 72 6d 61 74 20 22 45 | 64 69 74 69 6e 67 20 25 |ormat "E|diting %|
|000021e0| 73 2d 4d 6f 64 65 20 53 | 79 6e 74 61 78 20 54 61 |s-Mode S|yntax Ta|
|000021f0| 62 6c 65 22 20 22 4e 6f | 72 6d 61 6c 22 20 74 65 |ble" "No|rmal" te|
|00002200| 78 20 22 54 65 58 22 20 | 63 61 70 69 74 61 6c 69 |x "TeX" |capitali|
|00002210| 7a 65 20 73 79 6d 62 6f | 6c 2d 6e 61 6d 65 20 63 |ze symbo|l-name c|
|00002220| 61 6c 63 2d 77 72 69 74 | 65 2d 70 61 72 73 65 2d |alc-writ|e-parse-|
|00002230| 74 61 62 6c 65 20 61 73 | 73 71 5d 20 38 29 29 20 |table as|sq] 8)) |
|00002240| 63 61 6c 63 2d 73 68 6f | 77 2d 65 64 69 74 2d 62 |calc-sho|w-edit-b|
|00002250| 75 66 66 65 72 5d 20 33 | 29 29 0a 0a 28 64 65 66 |uffer] 3|))..(def|
|00002260| 75 6e 20 63 61 6c 63 2d | 66 69 6e 69 73 68 2d 75 |un calc-|finish-u|
|00002270| 73 65 72 2d 73 79 6e 74 | 61 78 2d 65 64 69 74 20 |ser-synt|ax-edit |
|00002280| 28 6c 61 6e 67 29 20 28 | 62 79 74 65 2d 63 6f 64 |(lang) (|byte-cod|
|00002290| 65 20 22 c5 09 0a 5c 22 | c6 0a 0c 5c 22 1b 18 08 |e "...\"|...\"...|
|000022a0| 83 1f 00 c7 0b 86 1a 00 | 0a 43 0c 42 89 14 40 08 |........|.C.B..@.|
|000022b0| 5c 22 82 29 00 0b 85 29 | 00 c8 0b 0c 5c 22 89 14 |\".)...)|....\"..|
|000022c0| 2a 88 c9 09 21 87 22 20 | 5b 74 61 62 20 63 61 6c |*...!." |[tab cal|
|000022d0| 63 2d 6f 72 69 67 69 6e | 61 6c 2d 62 75 66 66 65 |c-origin|al-buffe|
|000022e0| 72 20 6c 61 6e 67 20 65 | 6e 74 72 79 20 63 61 6c |r lang e|ntry cal|
|000022f0| 63 2d 75 73 65 72 2d 70 | 61 72 73 65 2d 74 61 62 |c-user-p|arse-tab|
|00002300| 6c 65 73 20 63 61 6c 63 | 2d 72 65 61 64 2d 70 61 |les calc|-read-pa|
|00002310| 72 73 65 2d 74 61 62 6c | 65 20 61 73 73 71 20 73 |rse-tabl|e assq s|
|00002320| 65 74 63 64 72 20 64 65 | 6c 71 20 73 77 69 74 63 |etcdr de|lq switc|
|00002330| 68 2d 74 6f 2d 62 75 66 | 66 65 72 5d 20 36 29 29 |h-to-buf|fer] 6))|
|00002340| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 77 72 |..(defun| calc-wr|
|00002350| 69 74 65 2d 70 61 72 73 | 65 2d 74 61 62 6c 65 20 |ite-pars|e-table |
|00002360| 28 74 61 62 20 63 61 6c | 63 2d 6c 61 6e 67 29 20 |(tab cal|c-lang) |
|00002370| 28 62 79 74 65 2d 63 6f | 64 65 20 22 09 18 08 85 |(byte-co|de "....|
|00002380| 5c 22 00 c4 08 40 40 21 | 88 c5 c6 c3 1a c7 08 40 |\"...@@!|.......@|
|00002390| 41 c8 5c 22 29 c9 23 88 | 08 41 89 10 88 82 02 00 |A.\").#.|.A......|
|000023a0| 29 87 22 20 5b 70 20 74 | 61 62 20 6d 61 74 68 2d |)." [p t|ab math-|
|000023b0| 66 6f 72 6d 61 74 2d 68 | 61 73 68 2d 61 72 67 73 |format-h|ash-args|
|000023c0| 20 74 20 63 61 6c 63 2d | 77 72 69 74 65 2d 70 61 | t calc-|write-pa|
|000023d0| 72 73 65 2d 74 61 62 6c | 65 2d 70 61 72 74 20 69 |rse-tabl|e-part i|
|000023e0| 6e 73 65 72 74 20 22 3a | 3d 20 22 20 6d 61 74 68 |nsert ":|= " math|
|000023f0| 2d 66 6f 72 6d 61 74 2d | 66 6c 61 74 2d 65 78 70 |-format-|flat-exp|
|00002400| 72 20 30 20 22 0a 22 5d | 20 37 29 29 0a 0a 28 64 |r 0 "."]| 7))..(d|
|00002410| 65 66 75 6e 20 63 61 6c | 63 2d 77 72 69 74 65 2d |efun cal|c-write-|
|00002420| 70 61 72 73 65 2d 74 61 | 62 6c 65 2d 70 61 72 74 |parse-ta|ble-part|
|00002430| 20 28 70 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | (p) (by|te-code |
|00002440| 22 08 85 bc 00 08 40 3b | 83 50 00 08 40 19 c4 c5 |".....@;|.P..@...|
|00002450| 09 5c 22 85 18 00 0a c6 | 3d 3f 85 23 00 c7 09 c8 |.\".....|=?.#....|
|00002460| c9 4f 50 89 11 88 c4 ca | 09 5c 22 85 2f 00 c4 cb |.OP.....|.\"./...|
|00002470| 09 5c 22 86 3c 00 cc 09 | cd 5c 22 85 3c 00 08 41 |.\".<...|.\".<..A|
|00002480| 3f 83 48 00 ce cf 09 21 | d0 5c 22 82 4c 00 ce 09 |?.H....!|.\".L...|
|00002490| d0 5c 22 29 82 b3 00 d1 | 08 40 21 83 6e 00 d2 63 |.\")....|.@!.n..c|
|000024a0| 88 08 40 d3 55 86 68 00 | ce d4 d5 08 40 21 5c 22 |..@.U.h.|....@!\"|
|000024b0| 88 d0 63 82 b3 00 08 40 | 40 d6 3d 85 7e 00 d7 d8 |..c....@|@.=.~...|
|000024c0| 08 40 38 40 d9 5c 22 83 | 8c 00 ce da 08 40 38 40 |.@8@.\".|.....@8@|
|000024d0| d0 5c 22 82 b3 00 db 63 | 88 dc da 08 40 38 21 88 |.\"....c|....@8!.|
|000024e0| ce dd de 08 40 40 21 5c | 22 88 d8 08 40 38 83 b1 |....@@!\|"...@8..|
|000024f0| 00 dc d8 08 40 38 40 43 | 21 82 b3 00 d0 63 88 08 |....@8@C|!....c..|
|00002500| 41 89 10 88 82 00 00 87 | 22 20 5b 70 20 73 20 63 |A.......|" [p s c|
|00002510| 61 6c 63 2d 6c 61 6e 67 | 20 74 20 73 74 72 69 6e |alc-lang| t strin|
|00002520| 67 2d 6d 61 74 63 68 20 | 22 5c 5c 60 5c 5c 5c 5c |g-match |"\\`\\\\|
|00002530| 64 6f 74 73 5c 5c 3e 22 | 20 74 65 78 20 22 2e 2e |dots\\>"| tex "..|
|00002540| 22 20 35 20 6e 69 6c 20 | 22 5b 61 2d 7a 41 2d 5a |" 5 nil |"[a-zA-Z|
|00002550| 30 2d 39 5c 22 7b 7d 5d | 5c 5c 7c 5c 5c 60 3a 3d |0-9\"{}]|\\|\\`:=|
|00002560| 5c 5c 27 5c 5c 7c 5c 5c | 60 23 5c 5c 7c 5c 5c 60 |\\'\\|\\|`#\\|\\`|
|00002570| 25 25 22 20 22 5b 5e 61 | 2d 7a 41 2d 5a 30 2d 39 |%%" "[^a|-zA-Z0-9|
|00002580| 5c 5c 5d 22 20 61 73 73 | 6f 63 20 28 28 22 29 22 |\\]" ass|oc ((")"|
|00002590| 29 20 28 22 5d 22 29 20 | 28 22 3e 22 29 29 20 69 |) ("]") |(">")) i|
|000025a0| 6e 73 65 72 74 20 70 72 | 69 6e 31 2d 74 6f 2d 73 |nsert pr|in1-to-s|
|000025b0| 74 72 69 6e 67 20 22 20 | 22 20 69 6e 74 65 67 65 |tring " |" intege|
|000025c0| 72 70 20 22 23 22 20 30 | 20 22 2f 22 20 69 6e 74 |rp "#" 0| "/" int|
|000025d0| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 5c 3f 20 65 71 |-to-stri|ng \? eq|
|000025e0| 75 61 6c 20 32 20 22 24 | 24 22 20 31 20 22 7b 20 |ual 2 "$|$" 1 "{ |
|000025f0| 22 20 63 61 6c 63 2d 77 | 72 69 74 65 2d 70 61 72 |" calc-w|rite-par|
|00002600| 73 65 2d 74 61 62 6c 65 | 2d 70 61 72 74 20 22 7d |se-table|-part "}|
|00002610| 22 20 73 79 6d 62 6f 6c | 2d 6e 61 6d 65 5d 20 31 |" symbol|-name] 1|
|00002620| 39 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |9))..(de|fun calc|
|00002630| 2d 72 65 61 64 2d 70 61 | 72 73 65 2d 74 61 62 6c |-read-pa|rse-tabl|
|00002640| 65 20 28 63 61 6c 63 2d | 62 75 66 20 63 61 6c 63 |e (calc-|buf calc|
|00002650| 2d 6c 61 6e 67 29 20 28 | 62 79 74 65 2d 63 6f 64 |-lang) (|byte-cod|
|00002660| 65 20 22 c1 18 cd ce 21 | 88 6d 3f 85 94 00 cf d0 |e "....!|.m?.....|
|00002670| 21 83 16 00 d1 20 82 90 | 00 60 d2 d3 d4 5c 22 1b |!.... ..|.`...\".|
|00002680| 1a 0b 40 3b 86 37 00 d5 | 0b 40 21 85 2e 00 d6 0b |..@;.7..|.@!.....|
|00002690| 38 3b 86 37 00 0a 62 88 | d7 d8 21 88 60 1c d1 20 |8;.7..b.|..!.`.. |
|000026a0| 88 d9 0c 60 5c 22 1d 8a | 0e 07 71 88 c1 c1 0e 0b |...`\"..|..q.....|
|000026b0| da 1e 0c 1e 0a 1e 09 1e | 08 db dc dd 0d 5c 22 83 |........|.....\".|
|000026c0| 65 00 0d da de da 21 4f | 82 66 00 0d 21 2c 29 1e |e.....!O|.f..!,).|
|000026d0| 06 df 0e 06 21 d7 3d 85 | 82 00 0c d6 0e 06 38 5c |....!.=.|......8\|
|000026e0| 5c 62 88 d7 e0 0e 06 38 | 21 88 e1 08 0b 0e 06 42 |\b.....8|!......B|
|000026f0| 43 5c 22 89 10 2a 29 2a | 88 82 02 00 88 08 29 87 |C\"..*)*|......).|
|00002700| 22 20 5b 74 61 62 20 6e | 69 6c 20 70 74 20 70 20 |" [tab n|il pt p |
|00002710| 70 6f 73 20 73 74 72 20 | 65 78 70 20 63 61 6c 63 |pos str |exp calc|
|00002720| 2d 62 75 66 20 63 61 6c | 63 2d 75 73 65 72 2d 70 |-buf cal|c-user-p|
|00002730| 61 72 73 65 2d 74 61 62 | 6c 65 73 20 63 61 6c 63 |arse-tab|les calc|
|00002740| 2d 6c 61 6e 67 75 61 67 | 65 20 6d 61 74 68 2d 65 |-languag|e math-e|
|00002750| 78 70 72 2d 6f 70 65 72 | 73 20 6d 61 74 68 2d 73 |xpr-oper|s math-s|
|00002760| 74 61 6e 64 61 72 64 2d | 6f 70 65 72 73 20 63 61 |tandard-|opers ca|
|00002770| 6c 63 2d 68 61 73 68 65 | 73 2d 75 73 65 64 20 73 |lc-hashe|s-used s|
|00002780| 6b 69 70 2d 63 68 61 72 | 73 2d 66 6f 72 77 61 72 |kip-char|s-forwar|
|00002790| 64 20 22 0a 09 20 22 20 | 6c 6f 6f 6b 69 6e 67 2d |d ".. " |looking-|
|000027a0| 61 74 20 22 25 25 22 20 | 65 6e 64 2d 6f 66 2d 6c |at "%%" |end-of-l|
|000027b0| 69 6e 65 20 63 61 6c 63 | 2d 72 65 61 64 2d 70 61 |ine calc|-read-pa|
|000027c0| 72 73 65 2d 74 61 62 6c | 65 2d 70 61 72 74 20 22 |rse-tabl|e-part "|
|000027d0| 3a 3d 5b 0a 09 20 5d 2b | 22 20 22 3a 3d 22 20 69 |:=[.. ]+|" ":=" i|
|000027e0| 6e 74 65 67 65 72 70 20 | 31 20 65 72 72 6f 72 20 |ntegerp |1 error |
|000027f0| 22 4d 61 6c 66 6f 72 6d | 65 64 20 73 79 6e 74 61 |"Malform|ed synta|
|00002800| 78 20 72 75 6c 65 22 20 | 62 75 66 66 65 72 2d 73 |x rule" |buffer-s|
|00002810| 75 62 73 74 72 69 6e 67 | 20 30 20 6d 61 74 68 2d |ubstring| 0 math-|
|00002820| 72 65 61 64 2d 65 78 70 | 72 20 73 74 72 69 6e 67 |read-exp|r string|
|00002830| 2d 6d 61 74 63 68 20 22 | 2c 5b 20 09 5d 2a 5c 5c |-match "|,[ .]*\\|
|00002840| 27 22 20 6d 61 74 63 68 | 2d 62 65 67 69 6e 6e 69 |'" match|-beginni|
|00002850| 6e 67 20 63 61 72 2d 73 | 61 66 65 20 32 20 6e 63 |ng car-s|afe 2 nc|
|00002860| 6f 6e 63 5d 20 31 38 29 | 29 0a 0a 28 64 65 66 75 |onc] 18)|)..(defu|
|00002870| 6e 20 63 61 6c 63 2d 66 | 69 78 2d 74 6f 6b 65 6e |n calc-f|ix-token|
|00002880| 2d 6e 61 6d 65 20 28 6e | 61 6d 65 20 26 6f 70 74 |-name (n|ame &opt|
|00002890| 69 6f 6e 61 6c 20 75 6e | 71 75 6f 74 65 64 29 20 |ional un|quoted) |
|000028a0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c5 c6 08 5c |(byte-co|de "...\|
|000028b0| 22 83 10 00 c7 08 c8 c3 | 4f 50 82 7a 00 c9 08 ca |".......|OP.z....|
|000028c0| 5c 22 85 1a 00 09 cb 3e | 83 21 00 cc 82 7a 00 c9 |\".....>|.!...z..|
|000028d0| 08 cd 5c 22 85 2b 00 09 | ce 3e 83 32 00 cf 82 7a |..\".+..|.>.2...z|
|000028e0| 00 c9 08 d0 5c 22 85 3c | 00 09 d1 3d 83 43 00 d2 |....\".<|...=.C..|
|000028f0| 82 7a 00 c9 08 d3 5c 22 | 83 54 00 d4 d3 21 88 d5 |.z....\"|.T...!..|
|00002900| d6 21 82 7a 00 0a 85 5c | 5c 00 c5 d3 08 5c 22 83 |.!.z...\|\....\".|
|00002910| 65 00 d5 d7 21 82 7a 00 | c5 d8 08 5c 22 3f 83 79 |e...!.z.|...\"?.y|
|00002920| 00 d4 d9 c3 c4 23 88 d5 | da 21 82 7a 00 08 87 22 |.....#..|.!.z..."|
|00002930| 20 5b 6e 61 6d 65 20 63 | 61 6c 63 2d 6c 61 6e 67 | [name c|alc-lang|
|00002940| 20 75 6e 71 75 6f 74 65 | 64 20 6e 69 6c 20 74 20 | unquote|d nil t |
|00002950| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5c 5c |string-m|atch "\\|
|00002960| 60 5c 5c 2e 5c 5c 2e 22 | 20 22 5c 5c 64 6f 74 73 |`\\.\\."| "\\dots|
|00002970| 22 20 32 20 65 71 75 61 | 6c 20 22 7b 22 20 28 74 |" 2 equa|l "{" (t|
|00002980| 65 78 20 65 71 6e 29 20 | 22 28 22 20 22 7d 22 20 |ex eqn) |"(" "}" |
|00002990| 28 74 65 78 20 65 71 6e | 29 20 22 29 22 20 22 26 |(tex eqn|) ")" "&|
|000029a0| 22 20 74 65 78 20 22 2c | 22 20 22 23 22 20 73 65 |" tex ",|" "#" se|
|000029b0| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 65 72 |arch-bac|kward er|
|000029c0| 72 6f 72 20 22 54 6f 6b | 65 6e 20 27 23 27 20 69 |ror "Tok|en '#' i|
|000029d0| 73 20 72 65 73 65 72 76 | 65 64 22 20 22 54 6f 6b |s reserv|ed" "Tok|
|000029e0| 65 6e 73 20 63 6f 6e 74 | 61 69 6e 69 6e 67 20 27 |ens cont|aining '|
|000029f0| 23 27 20 6d 75 73 74 20 | 62 65 20 71 75 6f 74 65 |#' must |be quote|
|00002a00| 64 22 20 22 5b 5e 20 5d | 22 20 22 5c 22 22 20 22 |d" "[^ ]|" "\"" "|
|00002a10| 42 6c 61 6e 6b 20 74 6f | 6b 65 6e 73 20 61 72 65 |Blank to|kens are|
|00002a20| 20 6e 6f 74 20 61 6c 6c | 6f 77 65 64 22 5d 20 31 | not all|owed"] 1|
|00002a30| 34 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |4))..(de|fun calc|
|00002a40| 2d 72 65 61 64 2d 70 61 | 72 73 65 2d 74 61 62 6c |-read-pa|rse-tabl|
|00002a50| 65 2d 70 61 72 74 20 28 | 74 65 72 6d 20 65 74 65 |e-part (|term ete|
|00002a60| 72 6d 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |rm) (byt|e-code "|
|00002a70| c1 c1 1a 18 cc cd 21 88 | 6d 85 10 00 ce cf 0b 5c |......!.|m......\|
|00002a80| 22 88 d0 0c 21 3f 85 2e | 01 d0 d1 21 83 23 00 d2 |"...!?..|...!.#..|
|00002a90| 20 82 2a 01 d0 d3 21 83 | b3 00 d4 d5 21 88 d6 d7 | .*...!.|....!...|
|00002aa0| d7 5c 22 1d d0 d8 21 86 | 3b 00 ce d9 21 88 da db |.\"...!.|;...!...|
|00002ab0| 60 60 54 5c 22 21 1e 06 | d4 dc 21 88 d0 dd 21 88 |``T\"!..|..!...!.|
|00002ac0| db 60 de df 21 5c 22 1e | 07 de df 21 62 88 0e 06 |.`..!\".|...!b...|
|00002ad0| e0 3d 85 7e 00 0e 07 47 | df 56 85 7e 00 e1 0e 07 |.=.~...G|.V.~....|
|00002ae0| e2 5c 22 3f 85 7e 00 e1 | 0e 07 e3 5c 22 3f 85 7e |.\"?.~..|...\"?.~|
|00002af0| 00 ce e4 21 88 e5 e6 0e | 07 5c 22 85 8e 00 e7 0e |...!....|.\".....|
|00002b00| 07 21 89 16 07 88 e8 0e | 07 21 89 16 07 88 e9 08 |.!......|.!......|
|00002b10| 0e 06 0d 0e 07 47 df 56 | 85 a8 00 0e 07 0d 42 45 |.....G.V|......BE|
|00002b20| 43 5c 22 89 10 29 29 29 | 82 2a 01 d0 d7 21 83 bf |C\"..)))|.*...!..|
|00002b30| 00 ce ea 21 82 2a 01 d0 | eb 21 83 d5 00 e8 ec 70 |...!.*..|.!.....p|
|00002b40| 21 21 12 e9 08 0a 43 5c | 22 89 10 82 2a 01 d0 ed |!!....C\|"...*...|
|00002b50| 21 83 02 01 e9 08 ee dc | 21 de dc 21 55 83 eb 00 |!.......|!..!U...|
|00002b60| df 82 f6 00 ef db ee dc | 21 54 de dc 21 5c 22 21 |........|!T..!\"!|
|00002b70| 43 5c 22 89 10 88 de df | 21 62 82 2a 01 d0 f0 21 |C\".....|!b.*...!|
|00002b80| 83 0e 01 ce f1 21 82 2a | 01 d0 dd 21 88 de df 21 |.....!.*|...!...!|
|00002b90| 1e 09 e9 08 e8 db 60 0e | 09 5c 22 c8 5c 22 43 5c |......`.|.\".\"C\|
|00002ba0| 22 89 10 88 0e 09 62 29 | 88 82 04 00 88 de df 21 |".....b)|.......!|
|00002bb0| 62 88 08 47 1e 0a 0e 0a | dc 56 85 68 01 f2 0e 0a |b..G....|.V.h....|
|00002bc0| 53 89 16 0a 08 5c 22 1e | 0b f3 0e 0b 40 f4 5c 22 |S....\".|....@.\"|
|00002bd0| 85 67 01 0e 0b 40 0a 3d | 3f 85 67 01 f5 0e 0b e0 |.g...@.=|?.g.....|
|00002be0| 0e 0b 40 43 f6 45 5c 22 | 29 85 70 01 c1 88 82 38 |..@C.E\"|).p....8|
|00002bf0| 01 29 88 08 2a 87 22 20 | 5b 70 61 72 74 20 6e 69 |.)..*." |[part ni|
|00002c00| 6c 20 71 75 6f 74 65 64 | 20 65 74 65 72 6d 20 74 |l quoted| eterm t|
|00002c10| 65 72 6d 20 70 20 73 79 | 6d 20 73 65 70 20 74 20 |erm p sy|m sep t |
|00002c20| 65 6e 64 20 6c 65 6e 20 | 6c 61 73 74 20 73 6b 69 |end len |last ski|
|00002c30| 70 2d 63 68 61 72 73 2d | 66 6f 72 77 61 72 64 20 |p-chars-|forward |
|00002c40| 22 0a 09 20 22 20 65 72 | 72 6f 72 20 22 45 78 70 |".. " er|ror "Exp|
|00002c50| 65 63 74 65 64 20 27 25 | 73 27 22 20 6c 6f 6f 6b |ected '%|s'" look|
|00002c60| 69 6e 67 2d 61 74 20 22 | 25 25 22 20 65 6e 64 2d |ing-at "|%%" end-|
|00002c70| 6f 66 2d 6c 69 6e 65 20 | 22 7b 5b 0a 09 20 5d 22 |of-line |"{[.. ]"|
|00002c80| 20 66 6f 72 77 61 72 64 | 2d 63 68 61 72 20 32 20 | forward|-char 2 |
|00002c90| 63 61 6c 63 2d 72 65 61 | 64 2d 70 61 72 73 65 2d |calc-rea|d-parse-|
|00002ca0| 74 61 62 6c 65 2d 70 61 | 72 74 20 22 7d 22 20 22 |table-pa|rt "}" "|
|00002cb0| 5b 2b 2a 3f 5d 22 20 22 | 45 78 70 65 63 74 65 64 |[+*?]" "|Expected|
|00002cc0| 20 27 2b 27 2c 20 27 2a | 27 2c 20 6f 72 20 27 3f | '+', '*|', or '?|
|00002cd0| 27 22 20 69 6e 74 65 72 | 6e 20 62 75 66 66 65 72 |'" inter|n buffer|
|00002ce0| 2d 73 75 62 73 74 72 69 | 6e 67 20 31 20 22 5b 5e |-substri|ng 1 "[^|
|00002cf0| 0a 09 20 5d 2a 22 20 6d | 61 74 63 68 2d 65 6e 64 |.. ]*" m|atch-end|
|00002d00| 20 30 20 5c 3f 20 65 71 | 75 61 6c 20 22 24 22 20 | 0 \? eq|ual "$" |
|00002d10| 22 2e 22 20 22 53 65 70 | 61 72 61 74 6f 72 20 6e |"." "Sep|arator n|
|00002d20| 6f 74 20 61 6c 6c 6f 77 | 65 64 20 77 69 74 68 20 |ot allow|ed with |
|00002d30| 7b 20 2e 2e 2e 20 7d 3f | 22 20 73 74 72 69 6e 67 |{ ... }?|" string|
|00002d40| 2d 6d 61 74 63 68 20 22 | 5c 5c 60 5c 22 22 20 72 |-match "|\\`\"" r|
|00002d50| 65 61 64 2d 66 72 6f 6d | 2d 73 74 72 69 6e 67 20 |ead-from|-string |
|00002d60| 63 61 6c 63 2d 66 69 78 | 2d 74 6f 6b 65 6e 2d 6e |calc-fix|-token-n|
|00002d70| 61 6d 65 20 6e 63 6f 6e | 63 20 22 54 6f 6f 20 6d |ame ncon|c "Too m|
|00002d80| 61 6e 79 20 7d 27 73 22 | 20 22 5c 22 22 20 72 65 |any }'s"| "\"" re|
|00002d90| 61 64 20 22 23 5c 5c 28 | 5c 5c 28 2f 5b 30 2d 39 |ad "#\\(|\\(/[0-9|
|00002da0| 5d 2b 5c 5c 29 3f 5c 5c | 29 5b 0a 09 20 5d 22 20 |]+\\)?\\|)[.. ]" |
|00002db0| 6d 61 74 63 68 2d 62 65 | 67 69 6e 6e 69 6e 67 20 |match-be|ginning |
|00002dc0| 73 74 72 69 6e 67 2d 74 | 6f 2d 69 6e 74 20 22 3a |string-t|o-int ":|
|00002dd0| 3d 5b 0a 09 20 5d 22 20 | 22 4d 69 73 70 6c 61 63 |=[.. ]" |"Misplac|
|00002de0| 65 64 20 27 3a 3d 27 22 | 20 6e 74 68 63 64 72 20 |ed ':='"| nthcdr |
|00002df0| 61 73 73 6f 63 20 28 28 | 22 29 22 29 20 28 22 5d |assoc ((|")") ("]|
|00002e00| 22 29 20 28 22 3e 22 29 | 29 20 73 65 74 63 61 72 |") (">")|) setcar|
|00002e10| 20 28 22 24 24 22 29 5d | 20 35 34 29 29 0a 0a 28 | ("$$")]| 54))..(|
|00002e20| 64 65 66 75 6e 20 63 61 | 6c 63 2d 75 73 65 72 2d |defun ca|lc-user-|
|00002e30| 64 65 66 69 6e 65 2d 69 | 6e 76 6f 63 61 74 69 6f |define-i|nvocatio|
|00002e40| 6e 20 6e 69 6c 20 28 69 | 6e 74 65 72 61 63 74 69 |n nil (i|nteracti|
|00002e50| 76 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ve) (byt|e-code "|
|00002e60| c2 88 08 86 09 00 c3 c4 | 21 88 08 89 11 88 c5 c6 |........|!.......|
|00002e70| 21 87 22 20 5b 6c 61 73 | 74 2d 6b 62 64 2d 6d 61 |!." [las|t-kbd-ma|
|00002e80| 63 72 6f 20 63 61 6c 63 | 2d 69 6e 76 6f 63 61 74 |cro calc|-invocat|
|00002e90| 69 6f 6e 2d 6d 61 63 72 | 6f 20 6e 69 6c 20 65 72 |ion-macr|o nil er|
|00002ea0| 72 6f 72 20 22 4e 6f 20 | 6b 65 79 62 6f 61 72 64 |ror "No |keyboard|
|00002eb0| 20 6d 61 63 72 6f 20 64 | 65 66 69 6e 65 64 22 20 | macro d|efined" |
|00002ec0| 6d 65 73 73 61 67 65 20 | 22 55 73 65 20 60 4d 2d |message |"Use `M-|
|00002ed0| 23 20 5a 27 20 74 6f 20 | 69 6e 76 6f 6b 65 20 74 |# Z' to |invoke t|
|00002ee0| 68 69 73 20 6d 61 63 72 | 6f 22 5d 20 33 29 29 0a |his macr|o"] 3)).|
|00002ef0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 75 73 65 |.(defun |calc-use|
|00002f00| 72 2d 64 65 66 69 6e 65 | 2d 65 64 69 74 20 28 70 |r-define|-edit (p|
|00002f10| 72 65 66 69 78 29 20 28 | 69 6e 74 65 72 61 63 74 |refix) (|interact|
|00002f20| 69 76 65 20 22 50 22 29 | 20 28 62 79 74 65 2d 63 |ive "P")| (byte-c|
|00002f30| 6f 64 65 20 22 c7 88 cc | cd 21 88 72 18 ce 08 cf |ode "...|.!.r....|
|00002f40| 20 5c 22 86 27 00 ce d0 | 08 21 cf 20 5c 22 86 27 | \".'...|.!. \".'|
|00002f50| 00 ce d1 08 21 cf 20 5c | 22 86 27 00 d2 d3 21 19 |....!. \|".'...!.|
|00002f60| 09 41 1a 0a 39 85 34 00 | 0a 4b 89 12 88 0a 3b 86 |.A..9.4.|.K....;.|
|00002f70| 46 00 0a 3a 85 46 00 d4 | d5 0a 38 21 d6 3d 83 b3 |F..:.F..|..8!.=..|
|00002f80| 00 d7 0b 21 d8 59 85 60 | 00 d9 da 21 85 60 00 09 |...!.Y.`|...!.`..|
|00002f90| 41 39 85 60 00 0c db 3d | 83 8d 00 dc 20 dd 20 57 |A9.`...=|.... . W|
|00002fa0| 85 6c 00 0d 85 7f 00 de | df 20 21 1e 06 0e 06 85 |.l......|. !.....|
|00002fb0| 7e 00 e0 0e 06 21 29 88 | da 09 41 0b c7 e1 e2 e3 |~....!).|..A.....|
|00002fc0| 26 06 82 b0 00 d9 da 21 | 85 96 00 da c7 21 88 d9 |&......!|.....!..|
|00002fd0| e4 21 1e 08 e5 e6 21 88 | e7 20 88 e8 0e 08 83 ad |.!....!.|. ......|
|00002fe0| 00 e9 82 ae 00 ea 21 29 | 82 e2 00 eb 0a 21 1e 0a |......!)|.....!..|
|00002ff0| 0e 0a 85 c7 00 0e 0a 39 | 85 c7 00 0e 0a ec 4e 1e |.......9|......N.|
|00003000| 0b 0e 0b 85 d2 00 ed 0e | 0a 21 83 de 00 e5 ee 21 |........|.!.....!|
|00003010| 88 e7 20 82 e1 00 d2 ef | 21 2a 2b 87 22 20 5b 6b |.. .....|!*+." [k|
|00003020| 65 79 20 64 65 66 20 63 | 6d 64 20 70 72 65 66 69 |ey def c|md prefi|
|00003030| 78 20 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 63 61 6c |x major-|mode cal|
|00003040| 63 2d 64 69 73 70 6c 61 | 79 2d 74 72 61 69 6c 20 |c-displa|y-trail |
|00003050| 77 69 6e 20 6e 69 6c 20 | 6b 65 79 73 20 74 20 66 |win nil |keys t f|
|00003060| 75 6e 63 20 64 65 66 6e | 20 6d 65 73 73 61 67 65 |unc defn| message|
|00003070| 20 22 45 64 69 74 20 64 | 65 66 69 6e 69 74 69 6f | "Edit d|efinitio|
|00003080| 6e 20 6f 66 20 63 6f 6d | 6d 61 6e 64 3a 20 7a 2d |n of com|mand: z-|
|00003090| 22 20 61 73 73 71 20 63 | 61 6c 63 2d 75 73 65 72 |" assq c|alc-user|
|000030a0| 2d 6b 65 79 2d 6d 61 70 | 20 75 70 63 61 73 65 20 |-key-map| upcase |
|000030b0| 64 6f 77 6e 63 61 73 65 | 20 65 72 72 6f 72 20 22 |downcase| error "|
|000030c0| 4e 6f 20 63 6f 6d 6d 61 | 6e 64 20 64 65 66 69 6e |No comma|nd defin|
|000030d0| 65 64 20 66 6f 72 20 74 | 68 61 74 20 6b 65 79 22 |ed for t|hat key"|
|000030e0| 20 63 61 72 2d 73 61 66 | 65 20 33 20 63 61 6c 63 | car-saf|e 3 calc|
|000030f0| 2d 65 78 65 63 75 74 65 | 2d 6b 62 64 2d 6d 61 63 |-execute|-kbd-mac|
|00003100| 72 6f 20 70 72 65 66 69 | 78 2d 6e 75 6d 65 72 69 |ro prefi|x-numeri|
|00003110| 63 2d 76 61 6c 75 65 20 | 30 20 66 62 6f 75 6e 64 |c-value |0 fbound|
|00003120| 70 20 65 64 69 74 2d 6b | 62 64 2d 6d 61 63 72 6f |p edit-k|bd-macro|
|00003130| 20 63 61 6c 63 2d 6d 6f | 64 65 20 77 69 6e 64 6f | calc-mo|de windo|
|00003140| 77 2d 77 69 64 74 68 20 | 73 63 72 65 65 6e 2d 77 |w-width |screen-w|
|00003150| 69 64 74 68 20 67 65 74 | 2d 62 75 66 66 65 72 2d |idth get|-buffer-|
|00003160| 77 69 6e 64 6f 77 20 63 | 61 6c 63 2d 74 72 61 69 |window c|alc-trai|
|00003170| 6c 2d 62 75 66 66 65 72 | 20 64 65 6c 65 74 65 2d |l-buffer| delete-|
|00003180| 77 69 6e 64 6f 77 20 28 | 6c 61 6d 62 64 61 20 28 |window (|lambda (|
|00003190| 78 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |x) (byte|-code ".|
|000031a0| 85 07 00 c1 c2 21 87 22 | 20 5b 63 61 6c 63 2d 64 |.....!."| [calc-d|
|000031b0| 69 73 70 6c 61 79 2d 74 | 72 61 69 6c 20 63 61 6c |isplay-t|rail cal|
|000031c0| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000031d0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 c0 | (byte-c|ode "...|
|000031e0| 5c 22 87 22 20 5b 74 20 | 63 61 6c 63 2d 74 72 61 |\"." [t |calc-tra|
|000031f0| 69 6c 2d 64 69 73 70 6c | 61 79 20 31 5d 20 33 29 |il-displ|ay 1] 3)|
|00003200| 29 5d 20 32 29 29 20 28 | 6c 61 6d 62 64 61 20 28 |)] 2)) (|lambda (|
|00003210| 63 6d 64 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |cmd) (by|te-code |
|00003220| 22 08 4b 3b 83 0b 00 08 | 4b 82 20 00 c2 c3 08 4b |".K;....|K. ....K|
|00003230| 38 38 19 c4 09 21 83 1e | 00 09 c2 48 82 1f 00 09 |88...!..|...H....|
|00003240| 29 87 22 20 5b 63 6d 64 | 20 6d 61 63 20 31 20 33 |)." [cmd| mac 1 3|
|00003250| 20 76 65 63 74 6f 72 70 | 5d 20 33 29 29 20 28 6c | vectorp|] 3)) (l|
|00003260| 61 6d 62 64 61 20 28 6e | 65 77 20 63 6d 64 29 20 |ambda (n|ew cmd) |
|00003270| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 4b 3b 83 |(byte-co|de ".K;.|
|00003280| 0c 00 08 09 4d 82 2e 00 | c3 08 4b 38 41 1a c4 0a |....M...|..K8A...|
|00003290| 40 21 83 29 00 0a 40 c5 | c6 09 21 49 88 0a 40 c7 |@!.)..@.|..!I..@.|
|000032a0| 09 49 82 2d 00 c8 0a 09 | 5c 22 29 87 22 20 5b 63 |.I.-....|\")." [c|
|000032b0| 6d 64 20 6e 65 77 20 6d | 61 63 20 33 20 76 65 63 |md new m|ac 3 vec|
|000032c0| 74 6f 72 70 20 30 20 6b | 65 79 2d 64 65 73 63 72 |torp 0 k|ey-descr|
|000032d0| 69 70 74 69 6f 6e 20 31 | 20 73 65 74 63 61 72 5d |iption 1| setcar]|
|000032e0| 20 35 29 29 20 4d 61 63 | 45 64 69 74 2d 70 61 72 | 5)) Mac|Edit-par|
|000032f0| 73 65 2d 6b 65 79 73 20 | 63 61 6c 63 2d 64 6f 20 |se-keys |calc-do |
|00003300| 28 6c 61 6d 62 64 61 20 | 6e 69 6c 20 28 62 79 74 |(lambda |nil (byt|
|00003310| 65 2d 63 6f 64 65 20 22 | c8 c9 ca 08 44 09 45 c2 |e-code "|....D.E.|
|00003320| 5c 22 88 09 83 63 00 c6 | cb c6 1d 1c 1b cc cd ce |\"...c..|........|
|00003330| 5c 22 88 60 89 13 88 cc | 0e 07 3b 83 2b 00 cf 0e |\".`....|..;.+...|
|00003340| 07 21 82 49 00 d0 d1 d2 | 0e 07 38 38 21 83 41 00 |.!.I....|..88!.A.|
|00003350| d1 d2 0e 07 38 38 d3 48 | 82 49 00 cf d1 d2 0e 07 |....88.H|.I......|
|00003360| 38 38 21 d4 5c 22 88 d5 | d6 21 88 69 d5 d1 21 88 |88!.\"..|.!.i..!.|
|00003370| d7 20 59 85 5f 00 d8 0b | 60 5c 22 2b 82 8e 00 cc |. Y._...|`\"+....|
|00003380| d9 da 0e 07 3b 83 71 00 | 0e 07 82 8d 00 d0 d1 d2 |....;.q.|........|
|00003390| 0e 07 38 38 21 83 87 00 | d1 d2 0e 07 38 38 d1 48 |..88!...|....88.H|
|000033a0| 82 8d 00 d1 d2 0e 07 38 | 38 23 87 22 20 5b 64 65 |.......8|8#." [de|
|000033b0| 66 20 6b 65 79 73 20 74 | 20 74 6f 70 20 66 69 6c |f keys t| top fil|
|000033c0| 6c 2d 63 6f 6c 75 6d 6e | 20 66 69 6c 6c 2d 70 72 |l-column| fill-pr|
|000033d0| 65 66 69 78 20 6e 69 6c | 20 63 6d 64 20 63 61 6c |efix nil| cmd cal|
|000033e0| 63 2d 65 64 69 74 2d 6d | 6f 64 65 20 63 61 6c 63 |c-edit-m|ode calc|
|000033f0| 2d 66 69 6e 69 73 68 2d | 6d 61 63 72 6f 2d 65 64 |-finish-|macro-ed|
|00003400| 69 74 20 71 75 6f 74 65 | 20 37 30 20 69 6e 73 65 |it quote| 70 inse|
|00003410| 72 74 20 22 4e 6f 74 61 | 74 69 6f 6e 73 3a 20 52 |rt "Nota|tions: R|
|00003420| 45 54 2c 20 53 50 43 2c | 20 54 41 42 2c 20 44 45 |ET, SPC,| TAB, DE|
|00003430| 4c 2c 20 4c 46 44 2c 20 | 4e 55 4c 22 20 22 2c 20 |L, LFD, |NUL" ", |
|00003440| 43 2d 78 78 78 2c 20 4d | 2d 78 78 78 2e 0a 0a 22 |C-xxx, M|-xxx..."|
|00003450| 20 6b 65 79 2d 64 65 73 | 63 72 69 70 74 69 6f 6e | key-des|cription|
|00003460| 20 76 65 63 74 6f 72 70 | 20 31 20 33 20 30 20 22 | vectorp| 1 3 0 "|
|00003470| 0a 22 20 66 6f 72 77 61 | 72 64 2d 63 68 61 72 20 |." forwa|rd-char |
|00003480| 2d 31 20 73 63 72 65 65 | 6e 2d 77 69 64 74 68 20 |-1 scree|n-width |
|00003490| 66 69 6c 6c 2d 72 65 67 | 69 6f 6e 20 22 50 72 65 |fill-reg|ion "Pre|
|000034a0| 73 73 20 43 2d 71 20 74 | 6f 20 71 75 6f 74 65 20 |ss C-q t|o quote |
|000034b0| 63 6f 6e 74 72 6f 6c 20 | 63 68 61 72 61 63 74 65 |control |characte|
|000034c0| 72 73 20 6c 69 6b 65 20 | 52 45 54 22 20 22 20 61 |rs like |RET" " a|
|000034d0| 6e 64 20 54 41 42 2e 0a | 22 5d 20 31 37 29 29 20 |nd TAB..|"] 17)) |
|000034e0| 63 61 6c 63 2d 73 68 6f | 77 2d 65 64 69 74 2d 62 |calc-sho|w-edit-b|
|000034f0| 75 66 66 65 72 20 66 6f | 72 77 61 72 64 2d 6c 69 |uffer fo|rward-li|
|00003500| 6e 65 20 32 20 31 20 63 | 61 6c 63 2d 73 74 61 63 |ne 2 1 c|alc-stac|
|00003510| 6b 2d 63 6f 6d 6d 61 6e | 64 2d 70 20 63 61 6c 63 |k-comman|d-p calc|
|00003520| 2d 75 73 65 72 2d 64 65 | 66 6e 20 63 61 6c 63 2d |-user-de|fn calc-|
|00003530| 76 61 6c 69 64 2d 66 6f | 72 6d 75 6c 61 2d 66 75 |valid-fo|rmula-fu|
|00003540| 6e 63 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |nc (lamb|da nil (|
|00003550| 62 79 74 65 2d 63 6f 64 | 65 20 22 c4 c5 c6 08 44 |byte-cod|e "....D|
|00003560| 44 21 88 c7 0a 19 c8 0b | c9 20 5c 22 29 ca 5c 22 |D!......|. \").\"|
|00003570| 87 22 20 5b 66 75 6e 63 | 20 63 61 6c 63 2d 66 6c |." [func| calc-fl|
|00003580| 6f 61 74 2d 66 6f 72 6d | 61 74 20 63 61 6c 63 2d |oat-form|at calc-|
|00003590| 66 75 6c 6c 2d 66 6c 6f | 61 74 2d 66 6f 72 6d 61 |full-flo|at-forma|
|000035a0| 74 20 64 65 66 6e 20 63 | 61 6c 63 2d 65 64 69 74 |t defn c|alc-edit|
|000035b0| 2d 6d 6f 64 65 20 63 61 | 6c 63 2d 66 69 6e 69 73 |-mode ca|lc-finis|
|000035c0| 68 2d 66 6f 72 6d 75 6c | 61 2d 65 64 69 74 20 71 |h-formul|a-edit q|
|000035d0| 75 6f 74 65 20 69 6e 73 | 65 72 74 20 6d 61 74 68 |uote ins|ert math|
|000035e0| 2d 66 6f 72 6d 61 74 2d | 6e 69 63 65 2d 65 78 70 |-format-|nice-exp|
|000035f0| 72 20 73 63 72 65 65 6e | 2d 77 69 64 74 68 20 22 |r screen|-width "|
|00003600| 0a 22 5d 20 36 29 29 20 | 22 54 68 61 74 20 63 6f |."] 6)) |"That co|
|00003610| 6d 6d 61 6e 64 27 73 20 | 64 65 66 69 6e 69 74 69 |mmand's |definiti|
|00003620| 6f 6e 20 63 61 6e 6e 6f | 74 20 62 65 20 65 64 69 |on canno|t be edi|
|00003630| 74 65 64 22 5d 20 33 31 | 29 29 0a 0a 28 64 65 66 |ted"] 31|))..(def|
|00003640| 75 6e 20 63 61 6c 63 2d | 66 69 6e 69 73 68 2d 6d |un calc-|finish-m|
|00003650| 61 63 72 6f 2d 65 64 69 | 74 20 28 64 65 66 20 6b |acro-edi|t (def k|
|00003660| 65 79 73 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |eys) (by|te-code |
|00003670| 22 c5 c6 21 88 08 85 0b | 00 c7 c8 21 85 11 00 c5 |"..!....|...!....|
|00003680| c6 21 88 c9 60 64 5c 22 | 19 09 1a 08 85 5c 22 00 |.!..`d\"|.....\".|
|00003690| ca 0a 21 89 12 88 0b 41 | 39 83 65 00 0b 41 4b 3b |..!....A|9.e..AK;|
|000036a0| 83 37 00 0b 41 0a 4d 82 | 62 00 cb 0b 41 4b 38 41 |.7..A.M.|b...AK8A|
|000036b0| 1c cc 0c 40 21 83 5d 00 | 0c 40 cd 08 83 50 00 09 |...@!.].|.@...P..|
|000036c0| 82 53 00 ce 0a 21 49 88 | 0c 40 c6 0a 49 82 61 00 |.S...!I.|.@..I.a.|
|000036d0| cf 0c 0a 5c 22 29 82 69 | 00 d0 0b 0a 5c 22 2a 87 |...\").i|....\"*.|
|000036e0| 22 20 5b 6b 65 79 73 20 | 74 72 75 65 2d 73 74 72 |" [keys |true-str|
|000036f0| 20 73 74 72 20 64 65 66 | 20 6d 61 63 20 66 6f 72 | str def| mac for|
|00003700| 77 61 72 64 2d 6c 69 6e | 65 20 31 20 6c 6f 6f 6b |ward-lin|e 1 look|
|00003710| 69 6e 67 2d 61 74 20 22 | 0a 22 20 62 75 66 66 65 |ing-at "|." buffe|
|00003720| 72 2d 73 75 62 73 74 72 | 69 6e 67 20 4d 61 63 45 |r-substr|ing MacE|
|00003730| 64 69 74 2d 70 61 72 73 | 65 2d 6b 65 79 73 20 33 |dit-pars|e-keys 3|
|00003740| 20 76 65 63 74 6f 72 70 | 20 30 20 6b 65 79 2d 64 | vectorp| 0 key-d|
|00003750| 65 73 63 72 69 70 74 69 | 6f 6e 20 73 65 74 63 61 |escripti|on setca|
|00003760| 72 20 73 65 74 63 64 72 | 5d 20 31 31 29 29 0a 0a |r setcdr|] 11))..|
|00003770| 28 70 75 74 20 28 71 75 | 6f 74 65 20 63 61 6c 63 |(put (qu|ote calc|
|00003780| 2d 65 78 65 63 75 74 65 | 2d 65 78 74 65 6e 64 65 |-execute|-extende|
|00003790| 64 2d 63 6f 6d 6d 61 6e | 64 29 20 28 71 75 6f 74 |d-comman|d) (quot|
|000037a0| 65 20 4d 61 63 45 64 69 | 74 2d 70 72 69 6e 74 29 |e MacEdi|t-print)|
|000037b0| 20 28 66 75 6e 63 74 69 | 6f 6e 20 28 6c 61 6d 62 | (functi|on (lamb|
|000037c0| 64 61 20 6e 69 6c 20 28 | 73 65 74 71 20 6d 61 63 |da nil (|setq mac|
|000037d0| 72 6f 2d 73 74 72 20 28 | 63 6f 6e 63 61 74 20 22 |ro-str (|concat "|
|000037e0| 1b 78 63 61 6c 63 2d 22 | 20 6d 61 63 72 6f 2d 73 |.xcalc-"| macro-s|
|000037f0| 74 72 29 29 29 29 29 0a | 0a 28 70 75 74 20 28 71 |tr))))).|.(put (q|
|00003800| 75 6f 74 65 20 63 61 6c | 63 44 69 67 69 74 2d 73 |uote cal|cDigit-s|
|00003810| 74 61 72 74 29 20 28 71 | 75 6f 74 65 20 4d 61 63 |tart) (q|uote Mac|
|00003820| 45 64 69 74 2d 70 72 69 | 6e 74 29 20 28 66 75 6e |Edit-pri|nt) (fun|
|00003830| 63 74 69 6f 6e 20 28 6c | 61 6d 62 64 61 20 6e 69 |ction (l|ambda ni|
|00003840| 6c 20 28 69 66 20 63 61 | 6c 63 2d 61 6c 67 65 62 |l (if ca|lc-algeb|
|00003850| 72 61 69 63 2d 6d 6f 64 | 65 20 28 63 61 6c 63 2d |raic-mod|e (calc-|
|00003860| 6d 61 63 72 6f 2d 65 64 | 69 74 2d 61 6c 67 65 62 |macro-ed|it-algeb|
|00003870| 72 61 69 63 29 20 28 4d | 61 63 45 64 69 74 2d 75 |raic) (M|acEdit-u|
|00003880| 6e 72 65 61 64 2d 63 68 | 61 72 73 20 6b 65 79 2d |nread-ch|ars key-|
|00003890| 6c 61 73 74 29 20 28 6c | 65 74 20 28 28 73 74 72 |last) (l|et ((str|
|000038a0| 20 22 22 29 20 28 6d 69 | 6e 2d 62 73 70 20 30 29 | "") (mi|n-bsp 0)|
|000038b0| 20 63 68 20 6c 61 73 74 | 29 20 28 77 68 69 6c 65 | ch last|) (while|
|000038c0| 20 28 61 6e 64 20 28 73 | 65 74 71 20 63 68 20 28 | (and (s|etq ch (|
|000038d0| 4d 61 63 45 64 69 74 2d | 72 65 61 64 2d 63 68 61 |MacEdit-|read-cha|
|000038e0| 72 29 29 20 28 6f 72 20 | 28 61 6e 64 20 28 3e 3d |r)) (or |(and (>=|
|000038f0| 20 63 68 20 34 38 29 20 | 28 3c 3d 20 63 68 20 35 | ch 48) |(<= ch 5|
|00003900| 37 29 29 20 28 6d 65 6d | 71 20 63 68 20 28 71 75 |7)) (mem|q ch (qu|
|00003910| 6f 74 65 20 28 34 36 20 | 31 30 31 20 39 35 20 31 |ote (46 |101 95 1|
|00003920| 31 30 20 35 38 20 33 35 | 20 37 37 20 31 31 31 20 |10 58 35| 77 111 |
|00003930| 31 30 34 20 36 34 20 33 | 34 29 29 29 20 28 61 6e |104 64 3|4))) (an|
|00003940| 64 20 28 6d 65 6d 71 20 | 63 68 20 28 71 75 6f 74 |d (memq |ch (quot|
|00003950| 65 20 28 33 39 20 31 30 | 39 20 31 31 35 29 29 29 |e (39 10|9 115)))|
|00003960| 20 28 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 | (string|-match "|
|00003970| 5b 40 6f 68 5d 22 20 73 | 74 72 29 29 20 28 61 6e |[@oh]" s|tr)) (an|
|00003980| 64 20 28 6f 72 20 28 61 | 6e 64 20 28 3e 3d 20 63 |d (or (a|nd (>= c|
|00003990| 68 20 39 37 29 20 28 3c | 3d 20 63 68 20 31 32 32 |h 97) (<|= ch 122|
|000039a0| 29 29 20 28 61 6e 64 20 | 28 3e 3d 20 63 68 20 36 |)) (and |(>= ch 6|
|000039b0| 35 29 20 28 3c 3d 20 63 | 68 20 39 30 29 29 29 20 |5) (<= c|h 90))) |
|000039c0| 28 73 74 72 69 6e 67 2d | 6d 61 74 63 68 20 22 5e |(string-|match "^|
|000039d0| 5b 2d 2b 5d 3f 5c 5c 28 | 31 5b 31 2d 39 5d 5c 5c |[-+]?\\(|1[1-9]\\|
|000039e0| 7c 5b 32 2d 39 5d 5b 30 | 2d 39 5d 5c 5c 29 23 22 ||[2-9][0|-9]\\)#"|
|000039f0| 20 73 74 72 29 29 20 28 | 61 6e 64 20 28 6d 65 6d | str)) (|and (mem|
|00003a00| 71 20 63 68 20 28 71 75 | 6f 74 65 20 28 31 32 37 |q ch (qu|ote (127|
|00003a10| 20 38 29 29 29 20 28 3e | 20 28 6c 65 6e 67 74 68 | 8))) (>| (length|
|00003a20| 20 73 74 72 29 20 30 29 | 29 20 28 61 6e 64 20 28 | str) 0)|) (and (|
|00003a30| 6d 65 6d 71 20 63 68 20 | 28 71 75 6f 74 65 20 28 |memq ch |(quote (|
|00003a40| 34 33 20 34 35 29 29 29 | 20 28 3e 20 28 6c 65 6e |43 45)))| (> (len|
|00003a50| 67 74 68 20 73 74 72 29 | 20 30 29 20 28 65 71 20 |gth str)| 0) (eq |
|00003a60| 28 61 72 65 66 20 73 74 | 72 20 28 31 2d 20 28 6c |(aref st|r (1- (l|
|00003a70| 65 6e 67 74 68 20 73 74 | 72 29 29 29 20 31 30 31 |ength st|r))) 101|
|00003a80| 29 29 29 29 20 28 69 66 | 20 28 6f 72 20 28 61 6e |)))) (if| (or (an|
|00003a90| 64 20 28 3e 3d 20 63 68 | 20 34 38 29 20 28 3c 3d |d (>= ch| 48) (<=|
|00003aa0| 20 63 68 20 35 37 29 29 | 20 28 61 6e 64 20 28 6f | ch 57))| (and (o|
|00003ab0| 72 20 28 6e 6f 74 20 28 | 6d 65 6d 71 20 63 68 20 |r (not (|memq ch |
|00003ac0| 28 71 75 6f 74 65 20 28 | 31 32 37 20 38 29 29 29 |(quote (|127 8)))|
|00003ad0| 29 20 28 3c 3d 20 28 6c | 65 6e 67 74 68 20 73 74 |) (<= (l|ength st|
|00003ae0| 72 29 20 6d 69 6e 2d 62 | 73 70 29 29 20 28 73 65 |r) min-b|sp)) (se|
|00003af0| 74 71 20 6d 69 6e 2d 62 | 73 70 20 28 31 2b 20 28 |tq min-b|sp (1+ (|
|00003b00| 6c 65 6e 67 74 68 20 73 | 74 72 29 29 29 29 29 20 |length s|tr))))) |
|00003b10| 28 73 65 74 71 20 73 74 | 72 20 28 63 6f 6e 63 61 |(setq st|r (conca|
|00003b20| 74 20 73 74 72 20 28 63 | 68 61 72 2d 74 6f 2d 73 |t str (c|har-to-s|
|00003b30| 74 72 69 6e 67 20 63 68 | 29 29 29 20 28 73 65 74 |tring ch|))) (set|
|00003b40| 71 20 73 74 72 20 28 73 | 75 62 73 74 72 69 6e 67 |q str (s|ubstring|
|00003b50| 20 73 74 72 20 30 20 2d | 31 29 29 29 29 20 28 69 | str 0 -|1)))) (i|
|00003b60| 66 20 28 6d 65 6d 71 20 | 63 68 20 28 71 75 6f 74 |f (memq |ch (quot|
|00003b70| 65 20 28 33 32 20 31 30 | 20 31 33 29 29 29 20 28 |e (32 10| 13))) (|
|00003b80| 73 65 74 71 20 73 74 72 | 20 28 63 6f 6e 63 61 74 |setq str| (concat|
|00003b90| 20 73 74 72 20 28 63 68 | 61 72 2d 74 6f 2d 73 74 | str (ch|ar-to-st|
|00003ba0| 72 69 6e 67 20 63 68 29 | 29 29 20 28 4d 61 63 45 |ring ch)|)) (MacE|
|00003bb0| 64 69 74 2d 75 6e 72 65 | 61 64 2d 63 68 61 72 73 |dit-unre|ad-chars|
|00003bc0| 20 63 68 29 29 20 28 69 | 6e 73 65 72 74 20 22 74 | ch)) (i|nsert "t|
|00003bd0| 79 70 65 20 5c 22 22 29 | 20 28 4d 61 63 45 64 69 |ype \"")| (MacEdi|
|00003be0| 74 2d 69 6e 73 65 72 74 | 2d 73 74 72 69 6e 67 20 |t-insert|-string |
|00003bf0| 73 74 72 29 20 28 69 6e | 73 65 72 74 20 22 5c 22 |str) (in|sert "\"|
|00003c00| 0a 22 29 29 29 29 29 29 | 0a 0a 28 64 65 66 75 6e |."))))))|..(defun|
|00003c10| 20 63 61 6c 63 2d 6d 61 | 63 72 6f 2d 65 64 69 74 | calc-ma|cro-edit|
|00003c20| 2d 61 6c 67 65 62 72 61 | 69 63 20 6e 69 6c 20 28 |-algebra|ic nil (|
|00003c30| 62 79 74 65 2d 63 6f 64 | 65 20 22 c7 08 21 88 c8 |byte-cod|e "..!..|
|00003c40| c9 1a 19 ca 0b 21 88 0c | cb 3e 85 16 00 09 47 cc |.....!..|.>....G.|
|00003c50| 57 86 5c 22 00 0c cd 3e | 86 5c 22 00 08 ce 3d 85 |W.\"...>|.\"...=.|
|00003c60| 60 00 0d 0e 06 47 cf 4f | 89 15 88 0c d0 3d 86 4a |`....G.O|.....=.J|
|00003c70| 00 0c d1 3e 3f 86 3f 00 | 09 47 0a 58 85 4a 00 09 |...>?.?.|.G.X.J..|
|00003c80| 47 0e 06 47 5c 5c 89 12 | 83 56 00 09 0e 06 50 89 |G..G\\..|.V....P.|
|00003c90| 11 82 5c 5c 00 09 c9 d2 | 4f 89 11 88 82 08 00 88 |..\\....|O.......|
|00003ca0| 08 d3 3e 85 74 00 09 0e | 06 50 11 0d 0e 06 47 cf |..>.t...|.P....G.|
|00003cb0| 4f 89 15 88 09 47 c9 56 | 85 85 00 d4 63 88 d5 09 |O....G.V|....c...|
|00003cc0| 21 88 d6 63 2a 87 22 20 | 5b 6b 65 79 2d 6c 61 73 |!..c*." |[key-las|
|00003cd0| 74 20 73 74 72 20 6d 69 | 6e 2d 62 73 70 20 63 61 |t str mi|n-bsp ca|
|00003ce0| 6c 63 2d 61 6c 67 2d 65 | 6e 74 2d 6d 61 70 20 6b |lc-alg-e|nt-map k|
|00003cf0| 65 79 2d 73 79 6d 62 6f | 6c 20 6d 61 63 72 6f 2d |ey-symbo|l macro-|
|00003d00| 73 74 72 20 6b 65 79 2d | 73 74 72 20 4d 61 63 45 |str key-|str MacE|
|00003d10| 64 69 74 2d 75 6e 72 65 | 61 64 2d 63 68 61 72 73 |dit-unre|ad-chars|
|00003d20| 20 22 22 20 30 20 4d 61 | 63 45 64 69 74 2d 6c 6f | "" 0 Ma|cEdit-lo|
|00003d30| 6f 6b 75 70 2d 6b 65 79 | 20 28 73 65 6c 66 2d 69 |okup-key| (self-i|
|00003d40| 6e 73 65 72 74 2d 63 6f | 6d 6d 61 6e 64 20 63 61 |nsert-co|mmand ca|
|00003d50| 6c 63 41 6c 67 2d 70 72 | 65 76 69 6f 75 73 29 20 |lcAlg-pr|evious) |
|00003d60| 36 30 20 28 62 61 63 6b | 77 61 72 64 2d 64 65 6c |60 (back|ward-del|
|00003d70| 65 74 65 2d 63 68 61 72 | 20 64 65 6c 65 74 65 2d |ete-char| delete-|
|00003d80| 62 61 63 6b 77 61 72 64 | 2d 63 68 61 72 20 62 61 |backward|-char ba|
|00003d90| 63 6b 77 61 72 64 2d 64 | 65 6c 65 74 65 2d 63 68 |ckward-d|elete-ch|
|00003da0| 61 72 2d 75 6e 74 61 62 | 69 66 79 29 20 39 20 6e |ar-untab|ify) 9 n|
|00003db0| 69 6c 20 73 65 6c 66 2d | 69 6e 73 65 72 74 2d 63 |il self-|insert-c|
|00003dc0| 6f 6d 6d 61 6e 64 20 28 | 62 61 63 6b 77 61 72 64 |ommand (|backward|
|00003dd0| 2d 64 65 6c 65 74 65 2d | 63 68 61 72 20 64 65 6c |-delete-|char del|
|00003de0| 65 74 65 2d 62 61 63 6b | 77 61 72 64 2d 63 68 61 |ete-back|ward-cha|
|00003df0| 72 20 62 61 63 6b 77 61 | 72 64 2d 64 65 6c 65 74 |r backwa|rd-delet|
|00003e00| 65 2d 63 68 61 72 2d 75 | 6e 74 61 62 69 66 79 29 |e-char-u|ntabify)|
|00003e10| 20 2d 31 20 28 31 30 20 | 31 33 29 20 22 74 79 70 | -1 (10 |13) "typ|
|00003e20| 65 20 5c 22 22 20 4d 61 | 63 45 64 69 74 2d 69 6e |e \"" Ma|cEdit-in|
|00003e30| 73 65 72 74 2d 73 74 72 | 69 6e 67 20 22 5c 22 0a |sert-str|ing "\".|
|00003e40| 22 5d 20 36 29 29 0a 0a | 28 70 75 74 20 28 71 75 |"] 6))..|(put (qu|
|00003e50| 6f 74 65 20 63 61 6c 63 | 2d 61 6c 67 65 62 72 61 |ote calc|-algebra|
|00003e60| 69 63 2d 65 6e 74 72 79 | 29 20 28 71 75 6f 74 65 |ic-entry|) (quote|
|00003e70| 20 4d 61 63 45 64 69 74 | 2d 70 72 69 6e 74 29 20 | MacEdit|-print) |
|00003e80| 28 71 75 6f 74 65 20 63 | 61 6c 63 2d 6d 61 63 72 |(quote c|alc-macr|
|00003e90| 6f 2d 65 64 69 74 2d 61 | 6c 67 65 62 72 61 69 63 |o-edit-a|lgebraic|
|00003ea0| 29 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |))..(put| (quote |
|00003eb0| 63 61 6c 63 2d 61 75 74 | 6f 2d 61 6c 67 65 62 72 |calc-aut|o-algebr|
|00003ec0| 61 69 63 2d 65 6e 74 72 | 79 29 20 28 71 75 6f 74 |aic-entr|y) (quot|
|00003ed0| 65 20 4d 61 63 45 64 69 | 74 2d 70 72 69 6e 74 29 |e MacEdi|t-print)|
|00003ee0| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 2d 6d 61 63 | (quote |calc-mac|
|00003ef0| 72 6f 2d 65 64 69 74 2d | 61 6c 67 65 62 72 61 69 |ro-edit-|algebrai|
|00003f00| 63 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |c))..(de|fun calc|
|00003f10| 2d 6d 61 63 72 6f 2d 65 | 64 69 74 2d 76 61 72 69 |-macro-e|dit-vari|
|00003f20| 61 62 6c 65 20 28 26 6f | 70 74 69 6f 6e 61 6c 20 |able (&o|ptional |
|00003f30| 6e 6f 2d 63 6d 64 29 20 | 28 62 79 74 65 2d 63 6f |no-cmd) |(byte-co|
|00003f40| 64 65 20 22 c4 c5 19 18 | 0a 86 0e 00 c6 c7 0b 21 |de "....|.......!|
|00003f50| c8 5c 22 88 c9 20 ca 3e | 85 1c 00 cb cc 20 21 89 |.\".. .>|..... !.|
|00003f60| 10 88 c9 20 89 11 85 2d | 00 09 cd 59 85 2d 00 09 |... ...-|...Y.-..|
|00003f70| ce 58 83 3c 00 c6 cf 08 | cb cc 20 21 d0 24 82 4b |.X.<....|.. !.$.K|
|00003f80| 00 08 47 d1 56 85 48 00 | c6 cf 08 d0 23 88 d2 20 |..G.V.H.|....#.. |
|00003f90| 2a 87 22 20 5b 73 74 72 | 20 63 68 20 6e 6f 2d 63 |*." [str| ch no-c|
|00003fa0| 6d 64 20 6b 65 79 2d 73 | 79 6d 62 6f 6c 20 22 22 |md key-s|ymbol ""|
|00003fb0| 20 6e 69 6c 20 69 6e 73 | 65 72 74 20 73 79 6d 62 | nil ins|ert symb|
|00003fc0| 6f 6c 2d 6e 61 6d 65 20 | 22 0a 22 20 4d 61 63 45 |ol-name |"." MacE|
|00003fd0| 64 69 74 2d 70 65 65 6b | 2d 63 68 61 72 20 28 34 |dit-peek|-char (4|
|00003fe0| 33 20 34 35 20 34 32 20 | 34 37 20 30 20 31 32 34 |3 45 42 |47 0 124|
|00003ff0| 29 20 63 68 61 72 2d 74 | 6f 2d 73 74 72 69 6e 67 |) char-t|o-string|
|00004000| 20 4d 61 63 45 64 69 74 | 2d 72 65 61 64 2d 63 68 | MacEdit|-read-ch|
|00004010| 61 72 20 34 38 20 35 37 | 20 22 74 79 70 65 20 5c |ar 48 57| "type \|
|00004020| 22 22 20 22 5c 22 0a 22 | 20 30 20 4d 61 63 45 64 |"" "\"."| 0 MacEd|
|00004030| 69 74 2d 72 65 61 64 2d | 61 72 67 75 6d 65 6e 74 |it-read-|argument|
|00004040| 5d 20 31 33 29 29 0a 0a | 28 70 75 74 20 28 71 75 |] 13))..|(put (qu|
|00004050| 6f 74 65 20 63 61 6c 63 | 2d 73 74 6f 72 65 29 20 |ote calc|-store) |
|00004060| 28 71 75 6f 74 65 20 4d | 61 63 45 64 69 74 2d 70 |(quote M|acEdit-p|
|00004070| 72 69 6e 74 29 20 28 71 | 75 6f 74 65 20 63 61 6c |rint) (q|uote cal|
|00004080| 63 2d 6d 61 63 72 6f 2d | 65 64 69 74 2d 76 61 72 |c-macro-|edit-var|
|00004090| 69 61 62 6c 65 29 29 0a | 0a 28 70 75 74 20 28 71 |iable)).|.(put (q|
|000040a0| 75 6f 74 65 20 63 61 6c | 63 2d 73 74 6f 72 65 2d |uote cal|c-store-|
|000040b0| 69 6e 74 6f 29 20 28 71 | 75 6f 74 65 20 4d 61 63 |into) (q|uote Mac|
|000040c0| 45 64 69 74 2d 70 72 69 | 6e 74 29 20 28 71 75 6f |Edit-pri|nt) (quo|
|000040d0| 74 65 20 63 61 6c 63 2d | 6d 61 63 72 6f 2d 65 64 |te calc-|macro-ed|
|000040e0| 69 74 2d 76 61 72 69 61 | 62 6c 65 29 29 0a 0a 28 |it-varia|ble))..(|
|000040f0| 70 75 74 20 28 71 75 6f | 74 65 20 63 61 6c 63 2d |put (quo|te calc-|
|00004100| 73 74 6f 72 65 2d 6e 65 | 67 29 20 28 71 75 6f 74 |store-ne|g) (quot|
|00004110| 65 20 4d 61 63 45 64 69 | 74 2d 70 72 69 6e 74 29 |e MacEdi|t-print)|
|00004120| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 2d 6d 61 63 | (quote |calc-mac|
|00004130| 72 6f 2d 65 64 69 74 2d | 76 61 72 69 61 62 6c 65 |ro-edit-|variable|
|00004140| 29 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |))..(put| (quote |
|00004150| 63 61 6c 63 2d 73 74 6f | 72 65 2d 70 6c 75 73 29 |calc-sto|re-plus)|
|00004160| 20 28 71 75 6f 74 65 20 | 4d 61 63 45 64 69 74 2d | (quote |MacEdit-|
|00004170| 70 72 69 6e 74 29 20 28 | 71 75 6f 74 65 20 63 61 |print) (|quote ca|
|00004180| 6c 63 2d 6d 61 63 72 6f | 2d 65 64 69 74 2d 76 61 |lc-macro|-edit-va|
|00004190| 72 69 61 62 6c 65 29 29 | 0a 0a 28 70 75 74 20 28 |riable))|..(put (|
|000041a0| 71 75 6f 74 65 20 63 61 | 6c 63 2d 73 74 6f 72 65 |quote ca|lc-store|
|000041b0| 2d 6d 69 6e 75 73 29 20 | 28 71 75 6f 74 65 20 4d |-minus) |(quote M|
|000041c0| 61 63 45 64 69 74 2d 70 | 72 69 6e 74 29 20 28 71 |acEdit-p|rint) (q|
|000041d0| 75 6f 74 65 20 63 61 6c | 63 2d 6d 61 63 72 6f 2d |uote cal|c-macro-|
|000041e0| 65 64 69 74 2d 76 61 72 | 69 61 62 6c 65 29 29 0a |edit-var|iable)).|
|000041f0| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 63 61 6c |.(put (q|uote cal|
|00004200| 63 2d 73 74 6f 72 65 2d | 74 69 6d 65 73 29 20 28 |c-store-|times) (|
|00004210| 71 75 6f 74 65 20 4d 61 | 63 45 64 69 74 2d 70 72 |quote Ma|cEdit-pr|
|00004220| 69 6e 74 29 20 28 71 75 | 6f 74 65 20 63 61 6c 63 |int) (qu|ote calc|
|00004230| 2d 6d 61 63 72 6f 2d 65 | 64 69 74 2d 76 61 72 69 |-macro-e|dit-vari|
|00004240| 61 62 6c 65 29 29 0a 0a | 28 70 75 74 20 28 71 75 |able))..|(put (qu|
|00004250| 6f 74 65 20 63 61 6c 63 | 2d 73 74 6f 72 65 2d 64 |ote calc|-store-d|
|00004260| 69 76 29 20 28 71 75 6f | 74 65 20 4d 61 63 45 64 |iv) (quo|te MacEd|
|00004270| 69 74 2d 70 72 69 6e 74 | 29 20 28 71 75 6f 74 65 |it-print|) (quote|
|00004280| 20 63 61 6c 63 2d 6d 61 | 63 72 6f 2d 65 64 69 74 | calc-ma|cro-edit|
|00004290| 2d 76 61 72 69 61 62 6c | 65 29 29 0a 0a 28 70 75 |-variabl|e))..(pu|
|000042a0| 74 20 28 71 75 6f 74 65 | 20 63 61 6c 63 2d 73 74 |t (quote| calc-st|
|000042b0| 6f 72 65 2d 70 6f 77 65 | 72 29 20 28 71 75 6f 74 |ore-powe|r) (quot|
|000042c0| 65 20 4d 61 63 45 64 69 | 74 2d 70 72 69 6e 74 29 |e MacEdi|t-print)|
|000042d0| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 2d 6d 61 63 | (quote |calc-mac|
|000042e0| 72 6f 2d 65 64 69 74 2d | 76 61 72 69 61 62 6c 65 |ro-edit-|variable|
|000042f0| 29 29 0a 0a 28 70 75 74 | 20 28 71 75 6f 74 65 20 |))..(put| (quote |
|00004300| 63 61 6c 63 2d 73 74 6f | 72 65 2d 63 6f 6e 63 61 |calc-sto|re-conca|
|00004310| 74 29 20 28 71 75 6f 74 | 65 20 4d 61 63 45 64 69 |t) (quot|e MacEdi|
|00004320| 74 2d 70 72 69 6e 74 29 | 20 28 71 75 6f 74 65 20 |t-print)| (quote |
|00004330| 63 61 6c 63 2d 6d 61 63 | 72 6f 2d 65 64 69 74 2d |calc-mac|ro-edit-|
|00004340| 76 61 72 69 61 62 6c 65 | 29 29 0a 0a 28 70 75 74 |variable|))..(put|
|00004350| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 2d 73 74 6f | (quote |calc-sto|
|00004360| 72 65 2d 69 6e 76 29 20 | 28 71 75 6f 74 65 20 4d |re-inv) |(quote M|
|00004370| 61 63 45 64 69 74 2d 70 | 72 69 6e 74 29 20 28 71 |acEdit-p|rint) (q|
|00004380| 75 6f 74 65 20 63 61 6c | 63 2d 6d 61 63 72 6f 2d |uote cal|c-macro-|
|00004390| 65 64 69 74 2d 76 61 72 | 69 61 62 6c 65 29 29 0a |edit-var|iable)).|
|000043a0| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 63 61 6c |.(put (q|uote cal|
|000043b0| 63 2d 73 74 6f 72 65 2d | 64 65 63 72 29 20 28 71 |c-store-|decr) (q|
|000043c0| 75 6f 74 65 20 4d 61 63 | 45 64 69 74 2d 70 72 69 |uote Mac|Edit-pri|
|000043d0| 6e 74 29 20 28 71 75 6f | 74 65 20 63 61 6c 63 2d |nt) (quo|te calc-|
|000043e0| 6d 61 63 72 6f 2d 65 64 | 69 74 2d 76 61 72 69 61 |macro-ed|it-varia|
|000043f0| 62 6c 65 29 29 0a 0a 28 | 70 75 74 20 28 71 75 6f |ble))..(|put (quo|
|00004400| 74 65 20 63 61 6c 63 2d | 73 74 6f 72 65 2d 69 6e |te calc-|store-in|
|00004410| 63 72 29 20 28 71 75 6f | 74 65 20 4d 61 63 45 64 |cr) (quo|te MacEd|
|00004420| 69 74 2d 70 72 69 6e 74 | 29 20 28 71 75 6f 74 65 |it-print|) (quote|
|00004430| 20 63 61 6c 63 2d 6d 61 | 63 72 6f 2d 65 64 69 74 | calc-ma|cro-edit|
|00004440| 2d 76 61 72 69 61 62 6c | 65 29 29 0a 0a 28 70 75 |-variabl|e))..(pu|
|00004450| 74 20 28 71 75 6f 74 65 | 20 63 61 6c 63 2d 73 74 |t (quote| calc-st|
|00004460| 6f 72 65 2d 65 78 63 68 | 61 6e 67 65 29 20 28 71 |ore-exch|ange) (q|
|00004470| 75 6f 74 65 20 4d 61 63 | 45 64 69 74 2d 70 72 69 |uote Mac|Edit-pri|
|00004480| 6e 74 29 20 28 71 75 6f | 74 65 20 63 61 6c 63 2d |nt) (quo|te calc-|
|00004490| 6d 61 63 72 6f 2d 65 64 | 69 74 2d 76 61 72 69 61 |macro-ed|it-varia|
|000044a0| 62 6c 65 29 29 0a 0a 28 | 70 75 74 20 28 71 75 6f |ble))..(|put (quo|
|000044b0| 74 65 20 63 61 6c 63 2d | 75 6e 73 74 6f 72 65 29 |te calc-|unstore)|
|000044c0| 20 28 71 75 6f 74 65 20 | 4d 61 63 45 64 69 74 2d | (quote |MacEdit-|
|000044d0| 70 72 69 6e 74 29 20 28 | 71 75 6f 74 65 20 63 61 |print) (|quote ca|
|000044e0| 6c 63 2d 6d 61 63 72 6f | 2d 65 64 69 74 2d 76 61 |lc-macro|-edit-va|
|000044f0| 72 69 61 62 6c 65 29 29 | 0a 0a 28 70 75 74 20 28 |riable))|..(put (|
|00004500| 71 75 6f 74 65 20 63 61 | 6c 63 2d 72 65 63 61 6c |quote ca|lc-recal|
|00004510| 6c 29 20 28 71 75 6f 74 | 65 20 4d 61 63 45 64 69 |l) (quot|e MacEdi|
|00004520| 74 2d 70 72 69 6e 74 29 | 20 28 71 75 6f 74 65 20 |t-print)| (quote |
|00004530| 63 61 6c 63 2d 6d 61 63 | 72 6f 2d 65 64 69 74 2d |calc-mac|ro-edit-|
|00004540| 76 61 72 69 61 62 6c 65 | 29 29 0a 0a 28 70 75 74 |variable|))..(put|
|00004550| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 2d 6c 65 74 | (quote |calc-let|
|00004560| 29 20 28 71 75 6f 74 65 | 20 4d 61 63 45 64 69 74 |) (quote| MacEdit|
|00004570| 2d 70 72 69 6e 74 29 20 | 28 71 75 6f 74 65 20 63 |-print) |(quote c|
|00004580| 61 6c 63 2d 6d 61 63 72 | 6f 2d 65 64 69 74 2d 76 |alc-macr|o-edit-v|
|00004590| 61 72 69 61 62 6c 65 29 | 29 0a 0a 28 70 75 74 20 |ariable)|)..(put |
|000045a0| 28 71 75 6f 74 65 20 63 | 61 6c 63 2d 70 65 72 6d |(quote c|alc-perm|
|000045b0| 61 6e 65 6e 74 2d 76 61 | 72 69 61 62 6c 65 29 20 |anent-va|riable) |
|000045c0| 28 71 75 6f 74 65 20 4d | 61 63 45 64 69 74 2d 70 |(quote M|acEdit-p|
|000045d0| 72 69 6e 74 29 20 28 71 | 75 6f 74 65 20 63 61 6c |rint) (q|uote cal|
|000045e0| 63 2d 6d 61 63 72 6f 2d | 65 64 69 74 2d 76 61 72 |c-macro-|edit-var|
|000045f0| 69 61 62 6c 65 29 29 0a | 0a 28 64 65 66 75 6e 20 |iable)).|.(defun |
|00004600| 63 61 6c 63 2d 6d 61 63 | 72 6f 2d 65 64 69 74 2d |calc-mac|ro-edit-|
|00004610| 76 61 72 69 61 62 6c 65 | 2d 32 20 6e 69 6c 20 28 |variable|-2 nil (|
|00004620| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 20 88 c1 c0 |byte-cod|e ". ...|
|00004630| 21 87 22 20 5b 74 20 63 | 61 6c 63 2d 6d 61 63 72 |!." [t c|alc-macr|
|00004640| 6f 2d 65 64 69 74 2d 76 | 61 72 69 61 62 6c 65 5d |o-edit-v|ariable]|
|00004650| 20 33 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 | 3))..(p|ut (quot|
|00004660| 65 20 63 61 6c 63 2d 63 | 6f 70 79 2d 76 61 72 69 |e calc-c|opy-vari|
|00004670| 61 62 6c 65 29 20 28 71 | 75 6f 74 65 20 4d 61 63 |able) (q|uote Mac|
|00004680| 45 64 69 74 2d 70 72 69 | 6e 74 29 20 28 71 75 6f |Edit-pri|nt) (quo|
|00004690| 74 65 20 63 61 6c 63 2d | 6d 61 63 72 6f 2d 65 64 |te calc-|macro-ed|
|000046a0| 69 74 2d 76 61 72 69 61 | 62 6c 65 2d 32 29 29 0a |it-varia|ble-2)).|
|000046b0| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 63 61 6c |.(put (q|uote cal|
|000046c0| 63 2d 64 65 63 6c 61 72 | 65 2d 76 61 72 69 61 62 |c-declar|e-variab|
|000046d0| 6c 65 29 20 28 71 75 6f | 74 65 20 4d 61 63 45 64 |le) (quo|te MacEd|
|000046e0| 69 74 2d 70 72 69 6e 74 | 29 20 28 71 75 6f 74 65 |it-print|) (quote|
|000046f0| 20 63 61 6c 63 2d 6d 61 | 63 72 6f 2d 65 64 69 74 | calc-ma|cro-edit|
|00004700| 2d 76 61 72 69 61 62 6c | 65 2d 32 29 29 0a 0a 28 |-variabl|e-2))..(|
|00004710| 64 65 66 75 6e 20 63 61 | 6c 63 2d 6d 61 63 72 6f |defun ca|lc-macro|
|00004720| 2d 65 64 69 74 2d 71 75 | 69 63 6b 2d 64 69 67 69 |-edit-qu|ick-digi|
|00004730| 74 20 6e 69 6c 20 28 62 | 79 74 65 2d 63 6f 64 65 |t nil (b|yte-code|
|00004740| 20 22 c2 c3 08 c4 c5 09 | 21 c6 25 87 22 20 5b 6b | "......|!.%." [k|
|00004750| 65 79 2d 73 74 72 20 6b | 65 79 2d 73 79 6d 62 6f |ey-str k|ey-symbo|
|00004760| 6c 20 69 6e 73 65 72 74 | 20 22 74 79 70 65 20 5c |l insert| "type \|
|00004770| 22 22 20 22 5c 22 20 20 | 23 20 22 20 73 79 6d 62 |"" "\" |# " symb|
|00004780| 6f 6c 2d 6e 61 6d 65 20 | 22 0a 22 5d 20 37 29 29 |ol-name |"."] 7))|
|00004790| 0a 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 63 61 |..(put (|quote ca|
|000047a0| 6c 63 2d 73 74 6f 72 65 | 2d 71 75 69 63 6b 29 20 |lc-store|-quick) |
|000047b0| 28 71 75 6f 74 65 20 4d | 61 63 45 64 69 74 2d 70 |(quote M|acEdit-p|
|000047c0| 72 69 6e 74 29 20 28 71 | 75 6f 74 65 20 63 61 6c |rint) (q|uote cal|
|000047d0| 63 2d 6d 61 63 72 6f 2d | 65 64 69 74 2d 71 75 69 |c-macro-|edit-qui|
|000047e0| 63 6b 2d 64 69 67 69 74 | 29 29 0a 0a 28 70 75 74 |ck-digit|))..(put|
|000047f0| 20 28 71 75 6f 74 65 20 | 63 61 6c 63 2d 73 74 6f | (quote |calc-sto|
|00004800| 72 65 2d 69 6e 74 6f 2d | 71 75 69 63 6b 29 20 28 |re-into-|quick) (|
|00004810| 71 75 6f 74 65 20 4d 61 | 63 45 64 69 74 2d 70 72 |quote Ma|cEdit-pr|
|00004820| 69 6e 74 29 20 28 71 75 | 6f 74 65 20 63 61 6c 63 |int) (qu|ote calc|
|00004830| 2d 6d 61 63 72 6f 2d 65 | 64 69 74 2d 71 75 69 63 |-macro-e|dit-quic|
|00004840| 6b 2d 64 69 67 69 74 29 | 29 0a 0a 28 70 75 74 20 |k-digit)|)..(put |
|00004850| 28 71 75 6f 74 65 20 63 | 61 6c 63 2d 72 65 63 61 |(quote c|alc-reca|
|00004860| 6c 6c 2d 71 75 69 63 6b | 29 20 28 71 75 6f 74 65 |ll-quick|) (quote|
|00004870| 20 4d 61 63 45 64 69 74 | 2d 70 72 69 6e 74 29 20 | MacEdit|-print) |
|00004880| 28 71 75 6f 74 65 20 63 | 61 6c 63 2d 6d 61 63 72 |(quote c|alc-macr|
|00004890| 6f 2d 65 64 69 74 2d 71 | 75 69 63 6b 2d 64 69 67 |o-edit-q|uick-dig|
|000048a0| 69 74 29 29 0a 0a 28 70 | 75 74 20 28 71 75 6f 74 |it))..(p|ut (quot|
|000048b0| 65 20 63 61 6c 63 2d 73 | 65 6c 65 63 74 2d 70 61 |e calc-s|elect-pa|
|000048c0| 72 74 29 20 28 71 75 6f | 74 65 20 4d 61 63 45 64 |rt) (quo|te MacEd|
|000048d0| 69 74 2d 70 72 69 6e 74 | 29 20 28 71 75 6f 74 65 |it-print|) (quote|
|000048e0| 20 63 61 6c 63 2d 6d 61 | 63 72 6f 2d 65 64 69 74 | calc-ma|cro-edit|
|000048f0| 2d 71 75 69 63 6b 2d 64 | 69 67 69 74 29 29 0a 0a |-quick-d|igit))..|
|00004900| 28 70 75 74 20 28 71 75 | 6f 74 65 20 63 61 6c 63 |(put (qu|ote calc|
|00004910| 2d 63 6c 65 61 6e 2d 6e | 75 6d 29 20 28 71 75 6f |-clean-n|um) (quo|
|00004920| 74 65 20 4d 61 63 45 64 | 69 74 2d 70 72 69 6e 74 |te MacEd|it-print|
|00004930| 29 20 28 71 75 6f 74 65 | 20 63 61 6c 63 2d 6d 61 |) (quote| calc-ma|
|00004940| 63 72 6f 2d 65 64 69 74 | 2d 71 75 69 63 6b 2d 64 |cro-edit|-quick-d|
|00004950| 69 67 69 74 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |igit))..|(defun c|
|00004960| 61 6c 63 2d 66 69 6e 69 | 73 68 2d 66 6f 72 6d 75 |alc-fini|sh-formu|
|00004970| 6c 61 2d 65 64 69 74 20 | 28 66 75 6e 63 29 20 28 |la-edit |(func) (|
|00004980| 62 79 74 65 2d 63 6f 64 | 65 20 22 70 c8 60 64 5c |byte-cod|e "p.`d\|
|00004990| 22 60 c9 0c 21 1b 1a 19 | 18 0d 71 88 ca 09 21 1e |"`..!...|..q...!.|
|000049a0| 06 cb 0e 06 21 cc 3d 85 | 2f 00 08 71 88 0a cd 0e |....!.=.|/..q....|
|000049b0| 06 38 5c 5c 62 88 cc ce | 0e 06 38 21 88 cf 0b 41 |.8\\b...|..8!...A|
|000049c0| cd 0c 4b 38 1e 07 d0 0e | 06 21 29 5c 22 88 d1 0c |..K8....|.!)\"...|
|000049d0| d2 0e 06 23 29 2c 87 22 | 20 5b 62 75 66 20 73 74 |...#),."| [buf st|
|000049e0| 72 20 73 74 61 72 74 20 | 62 6f 64 79 20 66 75 6e |r start |body fun|
|000049f0| 63 20 63 61 6c 63 2d 6f | 72 69 67 69 6e 61 6c 2d |c calc-o|riginal-|
|00004a00| 62 75 66 66 65 72 20 76 | 61 6c 20 61 6c 69 73 74 |buffer v|al alist|
|00004a10| 20 62 75 66 66 65 72 2d | 73 75 62 73 74 72 69 6e | buffer-|substrin|
|00004a20| 67 20 63 61 6c 63 2d 76 | 61 6c 69 64 2d 66 6f 72 |g calc-v|alid-for|
|00004a30| 6d 75 6c 61 2d 66 75 6e | 63 20 6d 61 74 68 2d 72 |mula-fun|c math-r|
|00004a40| 65 61 64 2d 65 78 70 72 | 20 63 61 72 2d 73 61 66 |ead-expr| car-saf|
|00004a50| 65 20 65 72 72 6f 72 20 | 31 20 32 20 73 65 74 63 |e error |1 2 setc|
|00004a60| 61 72 20 63 61 6c 63 2d | 66 69 78 2d 75 73 65 72 |ar calc-|fix-user|
|00004a70| 2d 66 6f 72 6d 75 6c 61 | 20 70 75 74 20 63 61 6c |-formula| put cal|
|00004a80| 63 2d 75 73 65 72 2d 64 | 65 66 6e 5d 20 31 31 29 |c-user-d|efn] 11)|
|00004a90| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 76 |)..(defu|n calc-v|
|00004aa0| 61 6c 69 64 2d 66 6f 72 | 6d 75 6c 61 2d 66 75 6e |alid-for|mula-fun|
|00004ab0| 63 20 28 66 75 6e 63 29 | 20 28 62 79 74 65 2d 63 |c (func)| (byte-c|
|00004ac0| 6f 64 65 20 22 09 4b 18 | 08 3a 85 2d 00 08 40 c2 |ode ".K.|.:.-..@.|
|00004ad0| 3d 85 2d 00 08 41 41 89 | 10 88 08 85 1f 00 08 40 |=.-..AA.|.......@|
|00004ae0| 40 c3 3d 3f 85 2a 00 08 | 41 89 10 88 82 15 00 88 |@.=?.*..|A.......|
|00004af0| 08 40 29 87 22 20 5b 64 | 65 66 20 66 75 6e 63 20 |.@)." [d|ef func |
|00004b00| 6c 61 6d 62 64 61 20 6d | 61 74 68 2d 6e 6f 72 6d |lambda m|ath-norm|
|00004b10| 61 6c 69 7a 65 5d 20 33 | 29 29 0a 0a 28 64 65 66 |alize] 3|))..(def|
|00004b20| 75 6e 20 63 61 6c 63 2d | 67 65 74 2d 75 73 65 72 |un calc-|get-user|
|00004b30| 2d 64 65 66 6e 20 6e 69 | 6c 20 28 69 6e 74 65 72 |-defn ni|l (inter|
|00004b40| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|00004b50| 64 65 20 22 c0 88 c1 c2 | 21 87 22 20 5b 6e 69 6c |de "....|!." [nil|
|00004b60| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|00004b70| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00004b80| 22 c6 c7 21 88 72 18 c8 | 08 c9 20 5c 22 86 25 00 |"..!.r..|.. \".%.|
|00004b90| c8 ca 08 21 c9 20 5c 22 | 86 25 00 c8 cb 08 21 c9 |...!. \"|.%....!.|
|00004ba0| 20 5c 22 86 25 00 cc cd | 21 19 09 41 1a 0a 39 85 | \".%...|!..A..9.|
|00004bb0| 32 00 0a 4b 89 12 88 0a | 3b 83 3f 00 c6 ce 0a 5c |2..K....|;.?....\|
|00004bc0| 22 82 75 00 cf 0a 21 1c | 0c 85 4f 00 0c 39 85 4f |".u...!.|..O..9.O|
|00004bd0| 00 0c d0 4e 1d 0d 83 71 | 00 d1 0c 21 85 68 00 d2 |...N...q|...!.h..|
|00004be0| d3 d4 d5 d6 0c 4b 38 5c | 22 0d 43 23 89 15 88 d7 |.....K8\|".C#....|
|00004bf0| d8 d9 0d 23 82 74 00 cc | da 21 2a 2b 87 22 20 5b |...#.t..|.!*+." [|
|00004c00| 6b 65 79 20 64 65 66 20 | 63 6d 64 20 74 20 66 75 |key def |cmd t fu|
|00004c10| 6e 63 20 64 65 66 6e 20 | 6d 65 73 73 61 67 65 20 |nc defn |message |
|00004c20| 22 47 65 74 20 64 65 66 | 69 6e 69 74 69 6f 6e 20 |"Get def|inition |
|00004c30| 6f 66 20 63 6f 6d 6d 61 | 6e 64 3a 20 7a 2d 22 20 |of comma|nd: z-" |
|00004c40| 61 73 73 71 20 63 61 6c | 63 2d 75 73 65 72 2d 6b |assq cal|c-user-k|
|00004c50| 65 79 2d 6d 61 70 20 75 | 70 63 61 73 65 20 64 6f |ey-map u|pcase do|
|00004c60| 77 6e 63 61 73 65 20 65 | 72 72 6f 72 20 22 4e 6f |wncase e|rror "No|
|00004c70| 20 63 6f 6d 6d 61 6e 64 | 20 64 65 66 69 6e 65 64 | command| defined|
|00004c80| 20 66 6f 72 20 74 68 61 | 74 20 6b 65 79 22 20 22 | for tha|t key" "|
|00004c90| 4b 65 79 62 6f 61 72 64 | 20 6d 61 63 72 6f 3a 20 |Keyboard| macro: |
|00004ca0| 25 73 22 20 63 61 6c 63 | 2d 73 74 61 63 6b 2d 63 |%s" calc|-stack-c|
|00004cb0| 6f 6d 6d 61 6e 64 2d 70 | 20 63 61 6c 63 2d 75 73 |ommand-p| calc-us|
|00004cc0| 65 72 2d 64 65 66 6e 20 | 63 61 6c 63 2d 76 61 6c |er-defn |calc-val|
|00004cd0| 69 64 2d 66 6f 72 6d 75 | 6c 61 2d 66 75 6e 63 20 |id-formu|la-func |
|00004ce0| 61 70 70 65 6e 64 20 28 | 63 61 6c 63 46 75 6e 63 |append (|calcFunc|
|00004cf0| 2d 6c 61 6d 62 64 61 29 | 20 6d 61 70 63 61 72 20 |-lambda)| mapcar |
|00004d00| 6d 61 74 68 2d 62 75 69 | 6c 64 2d 76 61 72 2d 6e |math-bui|ld-var-n|
|00004d10| 61 6d 65 20 31 20 63 61 | 6c 63 2d 65 6e 74 65 72 |ame 1 ca|lc-enter|
|00004d20| 2d 72 65 73 75 6c 74 20 | 30 20 22 67 64 65 66 22 |-result |0 "gdef"|
|00004d30| 20 22 54 68 61 74 20 63 | 6f 6d 6d 61 6e 64 20 69 | "That c|ommand i|
|00004d40| 73 20 6e 6f 74 20 64 65 | 66 69 6e 65 64 20 62 79 |s not de|fined by|
|00004d50| 20 61 20 66 6f 72 6d 75 | 6c 61 22 5d 20 31 39 29 | a formu|la"] 19)|
|00004d60| 29 5d 20 32 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |)] 2))..|(defun c|
|00004d70| 61 6c 63 2d 75 73 65 72 | 2d 64 65 66 69 6e 65 2d |alc-user|-define-|
|00004d80| 70 65 72 6d 61 6e 65 6e | 74 20 6e 69 6c 20 28 69 |permanen|t nil (i|
|00004d90| 6e 74 65 72 61 63 74 69 | 76 65 29 20 28 62 79 74 |nteracti|ve) (byt|
|00004da0| 65 2d 63 6f 64 65 20 22 | c0 88 c1 c2 21 87 22 20 |e-code "|....!." |
|00004db0| 5b 6e 69 6c 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |[nil cal|c-do (la|
|00004dc0| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00004dd0| 6f 64 65 20 22 cf d0 08 | 5c 22 88 72 19 d1 09 d2 |ode "...|\".r....|
|00004de0| 20 5c 22 86 3d 00 d1 d3 | 09 21 d2 20 5c 22 86 3d | \".=...|.!. \".=|
|00004df0| 00 d1 d4 09 21 d2 20 5c | 22 86 3d 00 09 d5 3d 85 |....!. \|".=...=.|
|00004e00| 37 00 c3 d6 d7 d8 d9 08 | 5c 22 0c da c3 db 25 21 |7.......|\"....%!|
|00004e10| 42 86 3d 00 dc dd 21 1a | de df 08 21 21 71 88 64 |B.=...!.|...!!q.d|
|00004e20| 62 88 0a 41 1d 0d 85 56 | 00 0d 39 85 56 00 0d 4b |b..A...V|..9.V..K|
|00004e30| 1e 06 c3 1e 07 60 1e 08 | e0 1e 09 c3 1e 0a c3 1e |.....`..|........|
|00004e40| 0b c3 1e 0c e1 e2 e3 20 | e4 0d 39 83 7a 00 e5 0d |....... |..9.z...|
|00004e50| 21 82 7e 00 d8 e6 09 5c | 22 e7 25 88 0e 06 85 92 |!.~....\|".%.....|
|00004e60| 00 e8 0e 06 21 e9 3d 85 | 92 00 0d ea 4e 83 a1 01 |....!.=.|....N...|
|00004e70| 60 1e 08 e8 eb 0e 06 38 | 21 ec 3d 85 ce 00 ed ee |`......8|!.=.....|
|00004e80| eb 0e 06 38 38 21 85 ce | 00 da ef 21 85 b7 00 ef |...88!..|...!....|
|00004e90| c3 21 88 da f0 21 85 ce | 00 cd 89 16 0c 85 ce 00 |.!...!..|........|
|00004ea0| ee eb 0e 06 38 38 ee c3 | 49 88 e1 f1 f2 0d 0e 06 |....88..|I.......|
|00004eb0| 41 42 42 21 89 16 0b f3 | 5c 22 88 f4 f5 0e 0b 5c |ABB!....|\".....\|
|00004ec0| 22 85 ea 00 0e 0c 3f 86 | f2 00 f6 0e 08 60 5c 22 |".....?.|.....`\"|
|00004ed0| 88 f7 0e 08 60 f8 23 88 | f9 0e 08 0e 08 54 5c 22 |....`.#.|.....T\"|
|00004ee0| 88 e1 fa e5 0d 21 fb f1 | 0d ea 4e 21 fc 25 88 fd |.....!..|..N!.%..|
|00004ef0| 0d 21 89 16 07 88 0e 07 | 85 25 01 0e 07 39 85 25 |.!......|.%...9.%|
|00004f00| 01 0e 07 4b 60 1e 08 1e | 0e 0e 0e 85 9c 01 e8 0e |...K`...|........|
|00004f10| 0e 21 e9 3d 85 9c 01 0e | 07 ea 4e 85 9c 01 e1 f1 |.!.=....|..N.....|
|00004f20| f2 0e 07 0e 0e 41 42 42 | 21 89 16 0b f3 5c 22 88 |.....ABB|!....\".|
|00004f30| f4 f5 0e 0b 5c 22 85 5b | 01 0e 0c 3f 86 63 01 f6 |....\".[|...?.c..|
|00004f40| 0e 08 60 5c 22 88 f7 0e | 08 60 f8 23 88 f9 0e 08 |..`\"...|.`.#....|
|00004f50| 0e 08 54 5c 22 88 60 89 | 16 08 88 e1 fe e5 0e 07 |..T\".`.|........|
|00004f60| 21 fb f1 0e 07 ea 4e 21 | fc 25 88 f6 0e 08 60 5c |!.....N!|.%....`\|
|00004f70| 22 88 f7 0e 08 60 f8 23 | 88 f9 0e 08 0e 08 54 5c |"....`.#|......T\|
|00004f80| 22 2a 29 82 b5 01 0e 06 | 3b 85 b5 01 e1 ff f1 0d |"*).....|;.......|
|00004f90| 21 81 40 00 f1 0e 06 21 | fc 25 88 0e 07 86 ce 01 |!.@....!|.%......|
|00004fa0| 0d 85 cb 01 0d 39 85 cb | 01 da 0d 21 85 cb 01 0d |.....9..|...!....|
|00004fb0| 89 16 07 88 0e 07 81 41 | 00 4e 85 03 02 60 1e 08 |.......A|.N...`..|
|00004fc0| e1 fe e5 0d 21 81 42 00 | f1 0e 07 81 41 00 4e 21 |....!.B.|....A.N!|
|00004fd0| fc 25 88 f6 0e 08 60 5c | 22 88 f7 0e 08 60 f8 23 |.%....`\|"....`.#|
|00004fe0| 88 f9 0e 08 0e 08 54 5c | 22 29 88 0a 40 85 20 02 |......T\|")..@. .|
|00004ff0| e1 81 43 00 f1 81 44 00 | 81 45 00 09 21 50 21 81 |..C...D.|.E..!P!.|
|00005000| 46 00 f1 0d 21 fc 25 2e | 08 88 81 47 00 63 88 81 |F...!.%.|...G.c..|
|00005010| 48 00 20 2a 87 22 20 5b | 63 61 6c 63 2d 73 65 74 |H. *." [|calc-set|
|00005020| 74 69 6e 67 73 2d 66 69 | 6c 65 20 6b 65 79 20 64 |tings-fi|le key d|
|00005030| 65 66 20 6e 69 6c 20 6f | 62 61 72 72 61 79 20 63 |ef nil o|barray c|
|00005040| 6d 64 20 66 63 6d 64 20 | 66 75 6e 63 20 70 74 20 |md fcmd |func pt |
|00005050| 66 69 6c 6c 2d 63 6f 6c | 75 6d 6e 20 66 69 6c 6c |fill-col|umn fill|
|00005060| 2d 70 72 65 66 69 78 20 | 73 74 72 20 71 2d 6f 6b |-prefix |str q-ok|
|00005070| 20 74 20 66 66 75 6e 63 | 20 6d 65 73 73 61 67 65 | t ffunc| message|
|00005080| 20 22 52 65 63 6f 72 64 | 20 69 6e 20 25 73 20 74 | "Record| in %s t|
|00005090| 68 65 20 63 6f 6d 6d 61 | 6e 64 3a 20 7a 2d 22 20 |he comma|nd: z-" |
|000050a0| 61 73 73 71 20 63 61 6c | 63 2d 75 73 65 72 2d 6b |assq cal|c-user-k|
|000050b0| 65 79 2d 6d 61 70 20 75 | 70 63 61 73 65 20 64 6f |ey-map u|pcase do|
|000050c0| 77 6e 63 61 73 65 20 33 | 39 20 69 6e 74 65 72 6e |wncase 3|9 intern|
|000050d0| 20 63 6f 6d 70 6c 65 74 | 69 6e 67 2d 72 65 61 64 | complet|ing-read|
|000050e0| 20 66 6f 72 6d 61 74 20 | 22 52 65 63 6f 72 64 20 | format |"Record |
|000050f0| 69 6e 20 25 73 20 74 68 | 65 20 66 75 6e 63 74 69 |in %s th|e functi|
|00005100| 6f 6e 3a 20 22 20 66 62 | 6f 75 6e 64 70 20 22 63 |on: " fb|oundp "c|
|00005110| 61 6c 63 46 75 6e 63 2d | 22 20 65 72 72 6f 72 20 |alcFunc-|" error |
|00005120| 22 4e 6f 20 63 6f 6d 6d | 61 6e 64 20 64 65 66 69 |"No comm|and defi|
|00005130| 6e 65 64 20 66 6f 72 20 | 74 68 61 74 20 6b 65 79 |ned for |that key|
|00005140| 22 20 66 69 6e 64 2d 66 | 69 6c 65 2d 6e 6f 73 65 |" find-f|ile-nose|
|00005150| 6c 65 63 74 20 73 75 62 | 73 74 69 74 75 74 65 2d |lect sub|stitute-|
|00005160| 69 6e 2d 66 69 6c 65 2d | 6e 61 6d 65 20 37 30 20 |in-file-|name 70 |
|00005170| 69 6e 73 65 72 74 20 22 | 0a 3b 3b 3b 20 44 65 66 |insert "|.;;; Def|
|00005180| 69 6e 69 74 69 6f 6e 20 | 73 74 6f 72 65 64 20 62 |inition |stored b|
|00005190| 79 20 43 61 6c 63 20 6f | 6e 20 22 20 63 75 72 72 |y Calc o|n " curr|
|000051a0| 65 6e 74 2d 74 69 6d 65 | 2d 73 74 72 69 6e 67 20 |ent-time|-string |
|000051b0| 22 0a 28 70 75 74 20 27 | 63 61 6c 63 2d 64 65 66 |".(put '|calc-def|
|000051c0| 69 6e 65 20 27 22 20 73 | 79 6d 62 6f 6c 2d 6e 61 |ine '" s|ymbol-na|
|000051d0| 6d 65 20 22 6b 65 79 25 | 64 22 20 22 20 27 28 70 |me "key%|d" " '(p|
|000051e0| 72 6f 67 6e 0a 22 20 63 | 61 72 2d 73 61 66 65 20 |rogn." c|ar-safe |
|000051f0| 6c 61 6d 62 64 61 20 63 | 61 6c 63 2d 75 73 65 72 |lambda c|alc-user|
|00005200| 2d 64 65 66 6e 20 33 20 | 63 61 6c 63 2d 65 78 65 |-defn 3 |calc-exe|
|00005210| 63 75 74 65 2d 6b 62 64 | 2d 6d 61 63 72 6f 20 76 |cute-kbd|-macro v|
|00005220| 65 63 74 6f 72 70 20 31 | 20 65 64 69 74 2d 6b 62 |ectorp 1| edit-kb|
|00005230| 64 2d 6d 61 63 72 6f 20 | 4d 61 63 45 64 69 74 2d |d-macro |MacEdit-|
|00005240| 70 61 72 73 65 2d 6b 65 | 79 73 20 70 72 69 6e 31 |parse-ke|ys prin1|
|00005250| 2d 74 6f 2d 73 74 72 69 | 6e 67 20 64 65 66 75 6e |-to-stri|ng defun|
|00005260| 20 22 0a 22 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 | "." str|ing-matc|
|00005270| 68 20 22 5c 22 22 20 66 | 69 6c 6c 2d 72 65 67 69 |h "\"" f|ill-regi|
|00005280| 6f 6e 20 69 6e 64 65 6e | 74 2d 72 69 67 69 64 6c |on inden|t-rigidl|
|00005290| 79 20 32 20 64 65 6c 65 | 74 65 2d 72 65 67 69 6f |y 2 dele|te-regio|
|000052a0| 6e 20 22 20 28 70 75 74 | 20 27 22 20 22 20 27 63 |n " (put| '" " 'c|
|000052b0| 61 6c 63 2d 75 73 65 72 | 2d 64 65 66 6e 20 27 22 |alc-user|-defn '"|
|000052c0| 20 22 29 0a 22 20 63 61 | 6c 63 2d 73 74 61 63 6b | ")." ca|lc-stack|
|000052d0| 2d 63 6f 6d 6d 61 6e 64 | 2d 70 20 22 28 70 75 74 |-command|-p "(put|
|000052e0| 20 27 22 20 22 20 28 66 | 73 65 74 20 27 22 20 22 | '" " (f|set '" "|
|000052f0| 20 22 20 6d 61 74 68 2d | 63 6f 6d 70 6f 73 65 2d | " math-|compose-|
|00005300| 66 6f 72 6d 73 20 22 20 | 27 6d 61 74 68 2d 63 6f |forms " |'math-co|
|00005310| 6d 70 6f 73 65 2d 66 6f | 72 6d 73 20 27 22 20 22 |mpose-fo|rms '" "|
|00005320| 20 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 63 61 6c | (define|-key cal|
|00005330| 63 2d 6d 6f 64 65 2d 6d | 61 70 20 22 20 22 7a 22 |c-mode-m|ap " "z"|
|00005340| 20 63 68 61 72 2d 74 6f | 2d 73 74 72 69 6e 67 20 | char-to|-string |
|00005350| 22 20 27 22 20 22 29 29 | 0a 22 20 73 61 76 65 2d |" '" "))|." save-|
|00005360| 62 75 66 66 65 72 5d 20 | 36 37 29 29 5d 20 32 29 |buffer] |67))] 2)|
|00005370| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 73 |)..(defu|n calc-s|
|00005380| 74 61 63 6b 2d 63 6f 6d | 6d 61 6e 64 2d 70 20 28 |tack-com|mand-p (|
|00005390| 63 6d 64 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |cmd) (by|te-code |
|000053a0| 22 08 85 06 00 08 39 83 | 16 00 c1 08 21 85 13 00 |".....9.|....!...|
|000053b0| c2 08 4b 21 82 56 00 08 | 3a 85 56 00 08 40 c3 3d |..K!.V..|:.V..@.=|
|000053c0| 85 56 00 c4 c5 08 5c 22 | 86 2d 00 c4 c6 08 5c 22 |.V....\"|.-....\"|
|000053d0| 89 10 85 56 00 c4 c7 08 | 5c 22 89 10 85 56 00 c8 |...V....|\"...V..|
|000053e0| 08 38 40 c9 3e 85 56 00 | ca c8 08 38 38 40 cb 3d |.8@.>.V.|...88@.=|
|000053f0| 85 56 00 ca ca c8 08 38 | 38 38 87 22 20 5b 63 6d |.V.....8|88." [cm|
|00005400| 64 20 66 62 6f 75 6e 64 | 70 20 63 61 6c 63 2d 73 |d fbound|p calc-s|
|00005410| 74 61 63 6b 2d 63 6f 6d | 6d 61 6e 64 2d 70 20 6c |tack-com|mand-p l|
|00005420| 61 6d 62 64 61 20 61 73 | 73 71 20 63 61 6c 63 2d |ambda as|sq calc-|
|00005430| 77 72 61 70 70 65 72 20 | 63 61 6c 63 2d 73 6c 6f |wrapper |calc-slo|
|00005440| 77 2d 77 72 61 70 70 65 | 72 20 63 61 6c 63 2d 65 |w-wrappe|r calc-e|
|00005450| 6e 74 65 72 2d 72 65 73 | 75 6c 74 20 33 20 28 63 |nter-res|ult 3 (c|
|00005460| 6f 6e 73 20 6c 69 73 74 | 29 20 31 20 71 75 6f 74 |ons list|) 1 quot|
|00005470| 65 5d 20 39 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |e] 9))..|(defun c|
|00005480| 61 6c 63 2d 63 61 6c 6c | 2d 6c 61 73 74 2d 6b 62 |alc-call|-last-kb|
|00005490| 64 2d 6d 61 63 72 6f 20 | 28 61 72 67 29 20 28 69 |d-macro |(arg) (i|
|000054a0| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|000054b0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c3 88 08 85 |(byte-co|de "....|
|000054c0| 09 00 c4 c5 21 88 09 86 | 11 00 c4 c6 21 88 c7 09 |....!...|....!...|
|000054d0| 0a 5c 22 87 22 20 5b 64 | 65 66 69 6e 69 6e 67 2d |.\"." [d|efining-|
|000054e0| 6b 62 64 2d 6d 61 63 72 | 6f 20 6c 61 73 74 2d 6b |kbd-macr|o last-k|
|000054f0| 62 64 2d 6d 61 63 72 6f | 20 61 72 67 20 6e 69 6c |bd-macro| arg nil|
|00005500| 20 65 72 72 6f 72 20 22 | 43 61 6e 27 74 20 65 78 | error "|Can't ex|
|00005510| 65 63 75 74 65 20 61 6e | 6f 6e 79 6d 6f 75 73 20 |ecute an|onymous |
|00005520| 6d 61 63 72 6f 20 77 68 | 69 6c 65 20 64 65 66 69 |macro wh|ile defi|
|00005530| 6e 69 6e 67 20 6f 6e 65 | 22 20 22 4e 6f 20 6b 62 |ning one|" "No kb|
|00005540| 64 20 6d 61 63 72 6f 20 | 68 61 73 20 62 65 65 6e |d macro |has been|
|00005550| 20 64 65 66 69 6e 65 64 | 22 20 63 61 6c 63 2d 65 | defined|" calc-e|
|00005560| 78 65 63 75 74 65 2d 6b | 62 64 2d 6d 61 63 72 6f |xecute-k|bd-macro|
|00005570| 5d 20 35 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 5))..(|defun ca|
|00005580| 6c 63 2d 65 78 65 63 75 | 74 65 2d 6b 62 64 2d 6d |lc-execu|te-kbd-m|
|00005590| 61 63 72 6f 20 28 6d 61 | 63 20 61 72 67 20 26 72 |acro (ma|c arg &r|
|000055a0| 65 73 74 20 70 72 65 66 | 69 78 29 20 28 62 79 74 |est pref|ix) (byt|
|000055b0| 65 2d 63 6f 64 65 20 22 | c4 08 21 85 11 00 08 47 |e-code "|..!....G|
|000055c0| c5 56 85 11 00 08 c5 48 | 3b 85 2e 00 08 c6 48 86 |.V.....H|;.....H.|
|000055d0| 2c 00 08 c6 c7 c8 21 85 | 25 00 c8 c1 21 88 c9 08 |,.....!.|%...!...|
|000055e0| c5 48 21 49 89 10 88 ca | 0a 21 c5 57 83 41 00 cb |.H!I....|.!.W.A..|
|000055f0| 08 ca 0a 21 5b 5c 22 82 | 50 00 0b 83 4c 00 cb 08 |...![\".|P...L...|
|00005600| 0a 5c 22 82 50 00 cc cd | ce 5c 22 87 22 20 5b 6d |.\".P...|.\"." [m|
|00005610| 61 63 20 6e 69 6c 20 61 | 72 67 20 63 61 6c 63 2d |ac nil a|rg calc-|
|00005620| 65 78 65 63 75 74 69 6e | 67 2d 6d 61 63 72 6f 20 |executin|g-macro |
|00005630| 76 65 63 74 6f 72 70 20 | 30 20 31 20 66 62 6f 75 |vectorp |0 1 fbou|
|00005640| 6e 64 70 20 65 64 69 74 | 2d 6b 62 64 2d 6d 61 63 |ndp edit|-kbd-mac|
|00005650| 72 6f 20 4d 61 63 45 64 | 69 74 2d 70 61 72 73 65 |ro MacEd|it-parse|
|00005660| 2d 6b 65 79 73 20 70 72 | 65 66 69 78 2d 6e 75 6d |-keys pr|efix-num|
|00005670| 65 72 69 63 2d 76 61 6c | 75 65 20 65 78 65 63 75 |eric-val|ue execu|
|00005680| 74 65 2d 6b 62 64 2d 6d | 61 63 72 6f 20 63 61 6c |te-kbd-m|acro cal|
|00005690| 63 2d 64 6f 20 28 6c 61 | 6d 62 64 61 20 6e 69 6c |c-do (la|mbda nil|
|000056a0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 cf 09 21 | (byte-c|ode "..!|
|000056b0| 0b d0 20 0e 06 1d 1c 1a | 18 d1 8e 0e 08 1e 07 d2 |.. .....|........|
|000056c0| 0e 08 0e 09 5c 22 29 29 | 2c 87 22 20 5b 6f 6c 64 |....\"))|,." [old|
|000056d0| 2d 73 74 61 63 6b 2d 77 | 68 6f 6c 65 20 63 61 6c |-stack-w|hole cal|
|000056e0| 63 2d 73 74 61 63 6b 20 | 6f 6c 64 2d 73 74 61 63 |c-stack |old-stac|
|000056f0| 6b 2d 74 6f 70 20 63 61 | 6c 63 2d 73 74 61 63 6b |k-top ca|lc-stack|
|00005700| 2d 74 6f 70 20 6f 6c 64 | 2d 62 75 66 66 65 72 2d |-top old|-buffer-|
|00005710| 73 69 7a 65 20 6f 6c 64 | 2d 72 65 66 72 65 73 68 |size old|-refresh|
|00005720| 2d 63 6f 75 6e 74 20 63 | 61 6c 63 2d 72 65 66 72 |-count c|alc-refr|
|00005730| 65 73 68 2d 63 6f 75 6e | 74 20 63 61 6c 63 2d 65 |esh-coun|t calc-e|
|00005740| 78 65 63 75 74 69 6e 67 | 2d 6d 61 63 72 6f 20 6d |xecuting|-macro m|
|00005750| 61 63 20 61 72 67 20 6e | 65 77 2d 73 74 61 63 6b |ac arg n|ew-stack|
|00005760| 20 6f 6c 64 2d 73 74 61 | 63 6b 20 70 72 65 66 69 | old-sta|ck prefi|
|00005770| 78 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |x buffer|-read-on|
|00005780| 6c 79 20 6e 69 6c 20 63 | 6f 70 79 2d 73 65 71 75 |ly nil c|opy-sequ|
|00005790| 65 6e 63 65 20 62 75 66 | 66 65 72 2d 73 69 7a 65 |ence buf|fer-size|
|000057a0| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 cc 20 | ((byte-|code ". |
|000057b0| 88 cd 09 21 cd 0b 21 1a | 18 08 85 19 00 0a 85 19 |...!..!.|........|
|000057c0| 00 ce 08 40 0a 40 5c 22 | 85 27 00 08 41 10 0a 41 |...@.@\"|.'..A..A|
|000057d0| 89 12 88 82 0b 00 88 ce | 0c cf 5c 22 86 46 00 d0 |........|..\".F..|
|000057e0| 08 47 d1 56 83 3e 00 d2 | d3 08 5c 22 82 3f 00 d4 |.G.V.>..|..\".?..|
|000057f0| 0c 40 86 45 00 d5 5c 22 | 88 d6 d7 d8 0d 45 21 88 |.@.E..\"|.....E!.|
|00005800| 0a 85 5b 00 d6 d9 d1 d2 | d3 0a 5c 22 45 21 88 0b |..[.....|..\"E!..|
|00005810| da 1e 06 19 db 0a 47 21 | 2a 88 0e 07 dc 20 55 85 |......G!|*.... U.|
|00005820| 74 00 0e 08 0e 09 55 83 | a0 00 cb 1e 0a dd 60 64 |t.....U.|......`d|
|00005830| 5c 22 88 08 85 99 00 d6 | de d1 44 21 88 df e0 08 |\"......|..D!....|
|00005840| 40 21 e1 5c 22 88 08 41 | 89 10 88 82 7f 00 88 e2 |@!.\"..A|........|
|00005850| 20 29 82 b5 00 08 85 b2 | 00 d6 de d1 44 21 88 08 | )......|....D!..|
|00005860| 41 89 10 88 82 a0 00 88 | e3 20 88 d6 d7 d8 da 45 |A.......|. .....E|
|00005870| 21 2a 87 22 20 5b 6e 65 | 77 2d 73 74 61 63 6b 20 |!*." [ne|w-stack |
|00005880| 63 61 6c 63 2d 73 74 61 | 63 6b 20 6f 6c 64 2d 73 |calc-sta|ck old-s|
|00005890| 74 61 63 6b 20 6f 6c 64 | 2d 73 74 61 63 6b 2d 77 |tack old|-stack-w|
|000058a0| 68 6f 6c 65 20 70 72 65 | 66 69 78 20 6f 6c 64 2d |hole pre|fix old-|
|000058b0| 73 74 61 63 6b 2d 74 6f | 70 20 63 61 6c 63 2d 73 |stack-to|p calc-s|
|000058c0| 74 61 63 6b 2d 74 6f 70 | 20 6f 6c 64 2d 62 75 66 |tack-top| old-buf|
|000058d0| 66 65 72 2d 73 69 7a 65 | 20 6f 6c 64 2d 72 65 66 |fer-size| old-ref|
|000058e0| 72 65 73 68 2d 63 6f 75 | 6e 74 20 63 61 6c 63 2d |resh-cou|nt calc-|
|000058f0| 72 65 66 72 65 73 68 2d | 63 6f 75 6e 74 20 62 75 |refresh-|count bu|
|00005900| 66 66 65 72 2d 72 65 61 | 64 2d 6f 6e 6c 79 20 6e |ffer-rea|d-only n|
|00005910| 69 6c 20 63 61 6c 63 2d | 73 65 6c 65 63 74 2d 62 |il calc-|select-b|
|00005920| 75 66 66 65 72 20 72 65 | 76 65 72 73 65 20 65 71 |uffer re|verse eq|
|00005930| 75 61 6c 20 28 6e 69 6c | 29 20 63 61 6c 63 2d 72 |ual (nil|) calc-r|
|00005940| 65 63 6f 72 64 2d 6c 69 | 73 74 20 31 20 6d 61 70 |ecord-li|st 1 map|
|00005950| 63 61 72 20 63 61 72 20 | 28 22 22 29 20 22 6b 6d |car car |("") "km|
|00005960| 61 63 22 20 63 61 6c 63 | 2d 72 65 63 6f 72 64 2d |ac" calc|-record-|
|00005970| 75 6e 64 6f 20 73 65 74 | 20 73 61 76 65 64 2d 73 |undo set| saved-s|
|00005980| 74 61 63 6b 2d 74 6f 70 | 20 70 6f 70 20 30 20 63 |tack-top| pop 0 c|
|00005990| 61 6c 63 2d 63 75 72 73 | 6f 72 2d 73 74 61 63 6b |alc-curs|or-stack|
|000059a0| 2d 69 6e 64 65 78 20 62 | 75 66 66 65 72 2d 73 69 |-index b|uffer-si|
|000059b0| 7a 65 20 64 65 6c 65 74 | 65 2d 72 65 67 69 6f 6e |ze delet|e-region|
|000059c0| 20 70 75 73 68 20 69 6e | 73 65 72 74 20 6d 61 74 | push in|sert mat|
|000059d0| 68 2d 66 6f 72 6d 61 74 | 2d 73 74 61 63 6b 2d 76 |h-format|-stack-v|
|000059e0| 61 6c 75 65 20 22 0a 22 | 20 63 61 6c 63 2d 72 65 |alue "."| calc-re|
|000059f0| 6e 75 6d 62 65 72 2d 73 | 74 61 63 6b 20 63 61 6c |number-s|tack cal|
|00005a00| 63 2d 72 65 66 72 65 73 | 68 5d 20 32 33 29 29 20 |c-refres|h] 23)) |
|00005a10| 65 78 65 63 75 74 65 2d | 6b 62 64 2d 6d 61 63 72 |execute-|kbd-macr|
|00005a20| 6f 5d 20 36 29 29 20 32 | 31 39 30 38 5d 20 31 31 |o] 6)) 2|1908] 11|
|00005a30| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00005a40| 70 75 73 68 2d 6c 69 73 | 74 2d 69 6e 2d 6d 61 63 |push-lis|t-in-mac|
|00005a50| 72 6f 20 28 76 61 6c 73 | 20 6d 20 73 65 6c 73 29 |ro (vals| m sels)|
|00005a60| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 09 40 c7 | (byte-c|ode ".@.|
|00005a70| 0a 40 45 0c 86 0b 00 c7 | 0d 5c 5c 1b 18 0b c7 56 |.@E.....|.\\....V|
|00005a80| 83 29 00 c8 c9 0b ca 5a | 0e 06 5c 22 08 c9 0b 53 |.).....Z|..\"...S|
|00005a90| 0e 06 5c 22 42 5c 22 82 | 30 00 08 0e 06 42 89 16 |..\"B\".|0....B..|
|00005aa0| 06 2a 87 22 20 5b 65 6e | 74 72 79 20 76 61 6c 73 |.*." [en|try vals|
|00005ab0| 20 73 65 6c 73 20 6d 6d | 20 6d 20 63 61 6c 63 2d | sels mm| m calc-|
|00005ac0| 73 74 61 63 6b 2d 74 6f | 70 20 63 61 6c 63 2d 73 |stack-to|p calc-s|
|00005ad0| 74 61 63 6b 20 31 20 73 | 65 74 63 64 72 20 6e 74 |tack 1 s|etcdr nt|
|00005ae0| 68 63 64 72 20 32 5d 20 | 37 29 29 0a 0a 28 64 65 |hcdr 2] |7))..(de|
|00005af0| 66 75 6e 20 63 61 6c 63 | 2d 70 6f 70 2d 73 74 61 |fun calc|-pop-sta|
|00005b00| 63 6b 2d 69 6e 2d 6d 61 | 63 72 6f 20 28 6e 20 6d |ck-in-ma|cro (n m|
|00005b10| 6d 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |m) (byte|-code ".|
|00005b20| c3 56 83 19 00 c4 c5 08 | c6 5a 09 5c 22 c5 c7 0a |.V......|.Z.\"...|
|00005b30| 08 c8 23 09 5c 22 5c 22 | 82 1f 00 c5 0a 09 5c 22 |..#.\"\"|......\"|
|00005b40| 89 11 87 22 20 5b 6d 6d | 20 63 61 6c 63 2d 73 74 |..." [mm| calc-st|
|00005b50| 61 63 6b 20 6e 20 31 20 | 73 65 74 63 64 72 20 6e |ack n 1 |setcdr n|
|00005b60| 74 68 63 64 72 20 32 20 | 2b 20 2d 31 5d 20 38 29 |thcdr 2 |+ -1] 8)|
|00005b70| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 6b |)..(defu|n calc-k|
|00005b80| 62 64 2d 69 66 20 6e 69 | 6c 20 28 69 6e 74 65 72 |bd-if ni|l (inter|
|00005b90| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|00005ba0| 64 65 20 22 c0 88 c1 c2 | 21 87 22 20 5b 6e 69 6c |de "....|!." [nil|
|00005bb0| 20 63 61 6c 63 2d 64 6f | 20 28 6c 61 6d 62 64 61 | calc-do| (lambda|
|00005bc0| 20 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 | nil (by|te-code |
|00005bd0| 22 c3 c4 21 18 c5 c4 21 | 88 c6 08 21 83 18 00 09 |"..!...!|...!....|
|00005be0| 85 15 00 c7 c8 21 82 23 | 00 09 85 1f 00 c7 c9 21 |.....!.#|.......!|
|00005bf0| 88 ca c2 21 29 87 22 20 | 5b 63 6f 6e 64 20 64 65 |...!)." |[cond de|
|00005c00| 66 69 6e 69 6e 67 2d 6b | 62 64 2d 6d 61 63 72 6f |fining-k|bd-macro|
|00005c10| 20 74 20 63 61 6c 63 2d | 74 6f 70 2d 6e 20 31 20 | t calc-|top-n 1 |
|00005c20| 63 61 6c 63 2d 70 6f 70 | 2d 73 74 61 63 6b 20 6d |calc-pop|-stack m|
|00005c30| 61 74 68 2d 69 73 2d 74 | 72 75 65 20 6d 65 73 73 |ath-is-t|rue mess|
|00005c40| 61 67 65 20 22 49 66 20 | 74 72 75 65 2e 2e 2e 22 |age "If |true..."|
|00005c50| 20 22 43 6f 6e 64 69 74 | 69 6f 6e 20 69 73 20 66 | "Condit|ion is f|
|00005c60| 61 6c 73 65 3b 20 73 6b | 69 70 70 69 6e 67 20 74 |alse; sk|ipping t|
|00005c70| 6f 20 5a 3a 20 6f 72 20 | 5a 5d 20 2e 2e 2e 22 20 |o Z: or |Z] ..." |
|00005c80| 63 61 6c 63 2d 6b 62 64 | 2d 73 6b 69 70 2d 74 6f |calc-kbd|-skip-to|
|00005c90| 2d 65 6c 73 65 2d 69 66 | 5d 20 37 29 29 5d 20 32 |-else-if|] 7))] 2|
|00005ca0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 63 61 6c 63 2d |))..(def|un calc-|
|00005cb0| 6b 62 64 2d 65 6c 73 65 | 2d 69 66 20 6e 69 6c 20 |kbd-else|-if nil |
|00005cc0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 62 |(interac|tive) (b|
|00005cd0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 20 87 22 |yte-code| "... ."|
|00005ce0| 20 5b 6e 69 6c 20 63 61 | 6c 63 2d 6b 62 64 2d 69 | [nil ca|lc-kbd-i|
|00005cf0| 66 5d 20 32 29 29 0a 0a | 28 64 65 66 75 6e 20 63 |f] 2))..|(defun c|
|00005d00| 61 6c 63 2d 6b 62 64 2d | 73 6b 69 70 2d 74 6f 2d |alc-kbd-|skip-to-|
|00005d10| 65 6c 73 65 2d 69 66 20 | 28 65 6c 73 65 2d 6f 6b |else-if |(else-ok|
|00005d20| 61 79 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ay) (byt|e-code "|
|00005d30| c4 c5 19 18 08 c4 59 85 | 5e 00 72 89 11 88 09 c6 |......Y.|^.r.....|
|00005d40| 55 85 17 00 c7 c8 21 88 | 09 c9 55 85 5a 00 72 89 |U.....!.|..U.Z.r.|
|00005d50| 11 88 09 ca 55 83 2f 00 | 08 54 89 10 82 5a 00 09 |....U./.|.T...Z..|
|00005d60| cb 55 83 3c 00 08 53 89 | 10 82 5a 00 09 cc 55 83 |.U.<..S.|..Z...U.|
|00005d70| 52 00 08 c4 55 85 4f 00 | 0a 85 4f 00 c6 89 10 82 |R...U.O.|..O.....|
|00005d80| 5a 00 09 cd 3d 85 5a 00 | ce 20 88 82 04 00 88 0b |Z...=.Z.|. ......|
|00005d90| 85 72 00 09 cc 55 83 6f | 00 cf d0 21 82 72 00 cf |.r...U.o|...!.r..|
|00005da0| d1 21 2a 87 22 20 5b 63 | 6f 75 6e 74 20 63 68 20 |.!*." [c|ount ch |
|00005db0| 65 6c 73 65 2d 6f 6b 61 | 79 20 64 65 66 69 6e 69 |else-oka|y defini|
|00005dc0| 6e 67 2d 6b 62 64 2d 6d | 61 63 72 6f 20 30 20 6e |ng-kbd-m|acro 0 n|
|00005dd0| 69 6c 20 2d 31 20 65 72 | 72 6f 72 20 22 55 6e 74 |il -1 er|ror "Unt|
|00005de0| 65 72 6d 69 6e 61 74 65 | 64 20 5a 5b 20 69 6e 20 |erminate|d Z[ in |
|00005df0| 6b 65 79 62 6f 61 72 64 | 20 6d 61 63 72 6f 22 20 |keyboard| macro" |
|00005e00| 39 30 20 39 31 20 39 33 | 20 35 38 20 37 20 6b 65 |90 91 93| 58 7 ke|
|00005e10| 79 62 6f 61 72 64 2d 71 | 75 69 74 20 6d 65 73 73 |yboard-q|uit mess|
|00005e20| 61 67 65 20 22 45 6c 73 | 65 2e 2e 2e 22 20 22 45 |age "Els|e..." "E|
|00005e30| 6e 64 2d 69 66 2e 2e 2e | 22 5d 20 35 29 29 0a 0a |nd-if...|"] 5))..|
|00005e40| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 6b 62 64 2d |(defun c|alc-kbd-|
|00005e50| 65 6e 64 2d 69 66 20 6e | 69 6c 20 28 69 6e 74 65 |end-if n|il (inte|
|00005e60| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|00005e70| 6f 64 65 20 22 c1 88 08 | 85 09 00 c2 c3 21 87 22 |ode "...|.....!."|
|00005e80| 20 5b 64 65 66 69 6e 69 | 6e 67 2d 6b 62 64 2d 6d | [defini|ng-kbd-m|
|00005e90| 61 63 72 6f 20 6e 69 6c | 20 6d 65 73 73 61 67 65 |acro nil| message|
|00005ea0| 20 22 45 6e 64 2d 69 66 | 2e 2e 2e 22 5d 20 32 29 | "End-if|..."] 2)|
|00005eb0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 6b |)..(defu|n calc-k|
|00005ec0| 62 64 2d 65 6c 73 65 20 | 6e 69 6c 20 28 69 6e 74 |bd-else |nil (int|
|00005ed0| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00005ee0| 63 6f 64 65 20 22 c1 88 | 08 85 09 00 c2 c3 21 88 |code "..|......!.|
|00005ef0| c4 c1 21 87 22 20 5b 64 | 65 66 69 6e 69 6e 67 2d |..!." [d|efining-|
|00005f00| 6b 62 64 2d 6d 61 63 72 | 6f 20 6e 69 6c 20 6d 65 |kbd-macr|o nil me|
|00005f10| 73 73 61 67 65 20 22 45 | 6c 73 65 3b 20 73 6b 69 |ssage "E|lse; ski|
|00005f20| 70 70 69 6e 67 20 74 6f | 20 5a 5d 20 2e 2e 2e 22 |pping to| Z] ..."|
|00005f30| 20 63 61 6c 63 2d 6b 62 | 64 2d 73 6b 69 70 2d 74 | calc-kb|d-skip-t|
|00005f40| 6f 2d 65 6c 73 65 2d 69 | 66 5d 20 33 29 29 0a 0a |o-else-i|f] 3))..|
|00005f50| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 6b 62 64 2d |(defun c|alc-kbd-|
|00005f60| 72 65 70 65 61 74 20 6e | 69 6c 20 28 69 6e 74 65 |repeat n|il (inte|
|00005f70| 72 61 63 74 69 76 65 29 | 20 28 62 79 74 65 2d 63 |ractive)| (byte-c|
|00005f80| 6f 64 65 20 22 c1 88 c1 | 18 c2 c3 21 88 c4 08 21 |ode "...|...!...!|
|00005f90| 29 87 22 20 5b 63 6f 75 | 6e 74 20 6e 69 6c 20 63 |)." [cou|nt nil c|
|00005fa0| 61 6c 63 2d 64 6f 20 28 | 6c 61 6d 62 64 61 20 6e |alc-do (|lambda n|
|00005fb0| 69 6c 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c1 |il (byte|-code ".|
|00005fc0| c2 c3 21 21 89 10 88 08 | 3a 3f 86 12 00 08 40 c4 |..!!....|:?....@.|
|00005fd0| 3e 86 18 00 c5 c6 21 88 | 08 3a 83 25 00 08 40 c7 |>.....!.|.:.%..@.|
|00005fe0| 3d 82 28 00 08 c8 57 85 | 2e 00 c8 89 10 88 c9 08 |=.(...W.|........|
|00005ff0| 21 86 38 00 ca 89 10 88 | cb c3 21 87 22 20 5b 63 |!.8.....|..!." [c|
|00006000| 6f 75 6e 74 20 6d 61 74 | 68 2d 74 72 75 6e 63 20 |ount mat|h-trunc |
|00006010| 63 61 6c 63 2d 74 6f 70 | 2d 6e 20 31 20 28 62 69 |calc-top|-n 1 (bi|
|00006020| 67 70 6f 73 20 62 69 67 | 6e 65 67 29 20 65 72 72 |gpos big|neg) err|
|00006030| 6f 72 20 22 43 6f 75 6e | 74 20 6d 75 73 74 20 62 |or "Coun|t must b|
|00006040| 65 20 61 6e 20 69 6e 74 | 65 67 65 72 22 20 62 69 |e an int|eger" bi|
|00006050| 67 6e 65 67 20 30 20 69 | 6e 74 65 67 65 72 70 20 |gneg 0 i|ntegerp |
|00006060| 31 30 30 30 30 30 30 20 | 63 61 6c 63 2d 70 6f 70 |1000000 |calc-pop|
|00006070| 2d 73 74 61 63 6b 5d 20 | 36 29 29 20 63 61 6c 63 |-stack] |6)) calc|
|00006080| 2d 6b 62 64 2d 6c 6f 6f | 70 5d 20 33 29 29 0a 0a |-kbd-loo|p] 3))..|
|00006090| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 6b 62 64 2d |(defun c|alc-kbd-|
|000060a0| 66 6f 72 20 28 64 69 72 | 29 20 28 69 6e 74 65 72 |for (dir|) (inter|
|000060b0| 61 63 74 69 76 65 20 22 | 50 22 29 20 28 62 79 74 |active "|P") (byt|
|000060c0| 65 2d 63 6f 64 65 20 22 | c2 88 c2 c2 19 18 c4 c5 |e-code "|........|
|000060d0| 21 88 c6 c2 08 09 0b 85 | 15 00 c7 0b 21 24 2a 87 |!.......|....!$*.|
|000060e0| 22 20 5b 69 6e 69 74 20 | 66 69 6e 61 6c 20 6e 69 |" [init |final ni|
|000060f0| 6c 20 64 69 72 20 63 61 | 6c 63 2d 64 6f 20 28 6c |l dir ca|lc-do (l|
|00006100| 61 6d 62 64 61 20 6e 69 | 6c 20 28 62 79 74 65 2d |ambda ni|l (byte-|
|00006110| 63 6f 64 65 20 22 c2 c3 | 21 10 c2 c4 21 89 11 88 |code "..|!...!...|
|00006120| c5 08 21 85 13 00 c5 09 | 21 86 19 00 c6 c7 21 88 |..!.....|!.....!.|
|00006130| c8 c3 21 87 22 20 5b 69 | 6e 69 74 20 66 69 6e 61 |..!." [i|nit fina|
|00006140| 6c 20 63 61 6c 63 2d 74 | 6f 70 2d 6e 20 32 20 31 |l calc-t|op-n 2 1|
|00006150| 20 6d 61 74 68 2d 61 6e | 67 6c 65 70 20 65 72 72 | math-an|glep err|
|00006160| 6f 72 20 22 49 6e 69 74 | 69 61 6c 20 61 6e 64 20 |or "Init|ial and |
|00006170| 66 69 6e 61 6c 20 76 61 | 6c 75 65 73 20 6d 75 73 |final va|lues mus|
|00006180| 74 20 62 65 20 72 65 61 | 6c 20 6e 75 6d 62 65 72 |t be rea|l number|
|00006190| 73 22 20 63 61 6c 63 2d | 70 6f 70 2d 73 74 61 63 |s" calc-|pop-stac|
|000061a0| 6b 5d 20 37 29 29 20 63 | 61 6c 63 2d 6b 62 64 2d |k] 7)) c|alc-kbd-|
|000061b0| 6c 6f 6f 70 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |loop pre|fix-nume|
|000061c0| 72 69 63 2d 76 61 6c 75 | 65 5d 20 37 29 29 0a 0a |ric-valu|e] 7))..|
|000061d0| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 6b 62 64 2d |(defun c|alc-kbd-|
|000061e0| 6c 6f 6f 70 20 28 72 70 | 74 2d 63 6f 75 6e 74 20 |loop (rp|t-count |
|000061f0| 26 6f 70 74 69 6f 6e 61 | 6c 20 69 6e 69 74 69 61 |&optiona|l initia|
|00006200| 6c 20 66 69 6e 61 6c 20 | 64 69 72 29 20 28 69 6e |l final |dir) (in|
|00006210| 74 65 72 61 63 74 69 76 | 65 20 22 50 22 29 20 28 |teractiv|e "P") (|
|00006220| 62 79 74 65 2d 63 6f 64 | 65 20 22 c3 88 08 83 0c |byte-cod|e ".....|
|00006230| 00 cd 08 21 82 0d 00 ce | 89 10 88 cf 19 c3 1a d0 |...!....|........|
|00006240| 1c 0e 06 1d 0e 08 1e 07 | c3 1e 09 0e 0a 86 28 00 |........|......(.|
|00006250| d1 d2 21 88 09 cf 59 85 | a6 00 72 89 16 09 88 0e |..!...Y.|..r.....|
|00006260| 09 d3 55 85 3f 00 d4 d5 | 0d 5c 22 88 0e 09 d6 55 |..U.?...|.\"....U|
|00006270| 83 9a 00 72 16 09 0c d7 | d8 0e 09 21 51 89 14 88 |...r....|...!Q...|
|00006280| 0e 09 d9 3e 83 62 00 09 | 54 89 11 82 97 00 0e 09 |...>.b..|T.......|
|00006290| da 3e 83 70 00 09 53 89 | 11 82 97 00 0e 09 db 55 |.>.p..S.|.......U|
|000062a0| 85 7a 00 09 cf 55 83 8e | 00 dc 0a 0c cf dd 4f de |.z...U..|......O.|
|000062b0| 50 43 5c 22 12 d0 89 14 | 82 97 00 0e 09 df 3d 85 |PC\"....|......=.|
|000062c0| 97 00 e0 20 82 a2 00 0c | d8 0e 09 21 50 89 14 88 |... ....|...!P...|
|000062d0| 82 29 00 88 e1 0e 09 e2 | 0d e3 5c 22 41 5c 22 85 |.)......|..\"A\".|
|000062e0| b9 00 d4 e4 0d 0e 09 23 | 88 0e 0a 86 c2 00 d1 e5 |.......#|........|
|000062f0| 21 88 0c cf dd 4f de 50 | 89 14 88 0e 0a 3f 85 ea |!....O.P|.....?..|
|00006300| 00 08 ce 55 85 ea 00 0a | 3f 85 ea 00 0e 07 3f 85 |...U....|?.....?.|
|00006310| ea 00 d1 e6 21 88 cf 89 | 10 88 0e 08 3f 86 ff 00 |....!...|....?...|
|00006320| 0e 0b 86 ff 00 e7 0e 0c | 0e 08 5c 22 89 16 0b 88 |........|..\"....|
|00006330| e8 e9 21 88 0e 0a 86 0c | 01 d1 ea 21 2e 06 87 22 |..!.....|...!..."|
|00006340| 20 5b 72 70 74 2d 63 6f | 75 6e 74 20 63 6f 75 6e | [rpt-co|unt coun|
|00006350| 74 20 70 61 72 74 73 20 | 6e 69 6c 20 62 6f 64 79 |t parts |nil body|
|00006360| 20 6f 70 65 6e 20 6c 61 | 73 74 2d 63 6f 6d 6d 61 | open la|st-comma|
|00006370| 6e 64 2d 63 68 61 72 20 | 63 6f 75 6e 74 65 72 20 |nd-char |counter |
|00006380| 69 6e 69 74 69 61 6c 20 | 63 68 20 65 78 65 63 75 |initial |ch execu|
|00006390| 74 69 6e 67 2d 6d 61 63 | 72 6f 20 64 69 72 20 66 |ting-mac|ro dir f|
|000063a0| 69 6e 61 6c 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |inal pre|fix-nume|
|000063b0| 72 69 63 2d 76 61 6c 75 | 65 20 31 30 30 30 30 30 |ric-valu|e 100000|
|000063c0| 30 20 30 20 22 22 20 6d | 65 73 73 61 67 65 20 22 |0 0 "" m|essage "|
|000063d0| 52 65 61 64 69 6e 67 20 | 6c 6f 6f 70 20 62 6f 64 |Reading |loop bod|
|000063e0| 79 2e 2e 2e 22 20 2d 31 | 20 65 72 72 6f 72 20 22 |y..." -1| error "|
|000063f0| 55 6e 74 65 72 6d 69 6e | 61 74 65 64 20 5a 25 63 |Untermin|ated Z%c|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
