/ Geek Gadgets 1 / ADE-1.bin / ade-dist / calc-2.02d-bin.lha / lib / emacs / site-lisp / calc-keypd.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|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 6b 65 79 70 64 | 20 6e 69 6c 20 28 62 79 |lc-keypd| nil (by|
|00000040| 74 65 2d 63 6f 64 65 20 | 22 c0 87 22 20 5b 6e 69 |te-code |".." [ni|
|00000050| 6c 5d 20 31 29 29 0a 0a | 28 64 65 66 76 61 72 20 |l] 1))..|(defvar |
|00000060| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 62 75 66 66 |calc-key|pad-buff|
|00000070| 65 72 20 6e 69 6c 29 0a | 0a 28 64 65 66 76 61 72 |er nil).|.(defvar|
|00000080| 20 63 61 6c 63 2d 6b 65 | 79 70 61 64 2d 6d 65 6e | calc-ke|ypad-men|
|00000090| 75 20 30 29 0a 0a 28 64 | 65 66 76 61 72 20 63 61 |u 0)..(d|efvar ca|
|000000a0| 6c 63 2d 6b 65 79 70 61 | 64 2d 66 75 6c 6c 2d 6c |lc-keypa|d-full-l|
|000000b0| 61 79 6f 75 74 20 6e 69 | 6c 29 0a 0a 28 64 65 66 |ayout ni|l)..(def|
|000000c0| 76 61 72 20 63 61 6c 63 | 2d 6b 65 79 70 61 64 2d |var calc|-keypad-|
|000000d0| 69 6e 70 75 74 20 6e 69 | 6c 29 0a 0a 28 64 65 66 |input ni|l)..(def|
|000000e0| 76 61 72 20 63 61 6c 63 | 2d 6b 65 79 70 61 64 2d |var calc|-keypad-|
|000000f0| 70 72 65 76 2d 69 6e 70 | 75 74 20 6e 69 6c 29 0a |prev-inp|ut nil).|
|00000100| 0a 28 64 65 66 76 61 72 | 20 63 61 6c 63 2d 6b 65 |.(defvar| calc-ke|
|00000110| 79 70 61 64 2d 70 72 65 | 76 2d 78 2d 6c 65 66 74 |ypad-pre|v-x-left|
|00000120| 2d 63 6c 69 63 6b 20 6e | 69 6c 29 0a 0a 28 64 65 |-click n|il)..(de|
|00000130| 66 76 61 72 20 63 61 6c | 63 2d 6b 65 79 70 61 64 |fvar cal|c-keypad|
|00000140| 2d 70 72 65 76 2d 78 2d | 6d 69 64 64 6c 65 2d 63 |-prev-x-|middle-c|
|00000150| 6c 69 63 6b 20 6e 69 6c | 29 0a 0a 28 64 65 66 76 |lick nil|)..(defv|
|00000160| 61 72 20 63 61 6c 63 2d | 6b 65 79 70 61 64 2d 70 |ar calc-|keypad-p|
|00000170| 72 65 76 2d 78 2d 72 69 | 67 68 74 2d 63 6c 69 63 |rev-x-ri|ght-clic|
|00000180| 6b 20 6e 69 6c 29 0a 0a | 28 64 65 66 76 61 72 20 |k nil)..|(defvar |
|00000190| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 73 61 69 64 |calc-key|pad-said|
|000001a0| 2d 68 65 6c 6c 6f 20 6e | 69 6c 29 0a 0a 28 64 65 |-hello n|il)..(de|
|000001b0| 66 76 61 72 20 63 61 6c | 63 2d 6b 65 79 70 61 64 |fvar cal|c-keypad|
|000001c0| 2d 6d 61 70 20 6e 69 6c | 29 0a 0a 28 69 66 20 63 |-map nil|)..(if c|
|000001d0| 61 6c 63 2d 6b 65 79 70 | 61 64 2d 6d 61 70 20 6e |alc-keyp|ad-map n|
|000001e0| 69 6c 20 28 73 65 74 71 | 20 63 61 6c 63 2d 6b 65 |il (setq| calc-ke|
|000001f0| 79 70 61 64 2d 6d 61 70 | 20 28 6d 61 6b 65 2d 73 |ypad-map| (make-s|
|00000200| 70 61 72 73 65 2d 6b 65 | 79 6d 61 70 29 29 20 28 |parse-ke|ymap)) (|
|00000210| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 61 6c 63 2d |define-k|ey calc-|
|00000220| 6b 65 79 70 61 64 2d 6d | 61 70 20 22 20 22 20 28 |keypad-m|ap " " (|
|00000230| 71 75 6f 74 65 20 63 61 | 6c 63 2d 6b 65 79 70 61 |quote ca|lc-keypa|
|00000240| 64 2d 70 72 65 73 73 29 | 29 20 28 64 65 66 69 6e |d-press)|) (defin|
|00000250| 65 2d 6b 65 79 20 63 61 | 6c 63 2d 6b 65 79 70 61 |e-key ca|lc-keypa|
|00000260| 64 2d 6d 61 70 20 22 0d | 22 20 28 71 75 6f 74 65 |d-map ".|" (quote|
|00000270| 20 63 61 6c 63 2d 6b 65 | 79 70 61 64 2d 70 72 65 | calc-ke|ypad-pre|
|00000280| 73 73 29 29 20 28 64 65 | 66 69 6e 65 2d 6b 65 79 |ss)) (de|fine-key|
|00000290| 20 63 61 6c 63 2d 6b 65 | 79 70 61 64 2d 6d 61 70 | calc-ke|ypad-map|
|000002a0| 20 22 09 22 20 28 71 75 | 6f 74 65 20 63 61 6c 63 | "." (qu|ote calc|
|000002b0| 2d 6b 65 79 70 61 64 2d | 6d 65 6e 75 29 29 20 28 |-keypad-|menu)) (|
|000002c0| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 61 6c 63 2d |define-k|ey calc-|
|000002d0| 6b 65 79 70 61 64 2d 6d | 61 70 20 22 71 22 20 28 |keypad-m|ap "q" (|
|000002e0| 71 75 6f 74 65 20 63 61 | 6c 63 2d 6b 65 79 70 61 |quote ca|lc-keypa|
|000002f0| 64 2d 6f 66 66 29 29 29 | 0a 0a 28 64 65 66 75 6e |d-off)))|..(defun|
|00000300| 20 63 61 6c 63 2d 64 6f | 2d 6b 65 79 70 61 64 20 | calc-do|-keypad |
|00000310| 28 26 6f 70 74 69 6f 6e | 61 6c 20 66 75 6c 6c 2d |(&option|al full-|
|00000320| 64 69 73 70 6c 61 79 20 | 69 6e 74 65 72 61 63 74 |display |interact|
|00000330| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00000340| 22 d7 d8 08 5c 22 85 0a | 00 d9 da 21 88 db 20 88 |"...\"..|...!.. .|
|00000350| 70 19 0a 85 17 00 dc 0a | 21 86 43 00 dd de 21 89 |p.......|!.C...!.|
|00000360| 12 88 0a 71 88 df 0b 21 | 88 e0 89 14 88 e1 89 15 |...q...!|........|
|00000370| 88 e2 e0 e3 e4 23 88 e5 | c6 21 88 09 89 16 06 88 |.....#..|.!......|
|00000380| e6 20 88 e7 20 88 e8 e9 | cf cf 1e 0a 1e 09 1e 08 |. .. ...|........|
|00000390| 1e 07 ea eb 21 89 16 09 | 85 5d 00 ec 0e 09 21 88 |....!...|.]....!.|
|000003a0| ea ed 21 89 16 09 85 77 | 00 ee 20 83 73 00 ef f0 |..!....w|.. .s...|
|000003b0| 20 21 82 77 00 ec 0e 09 | 21 88 ea 0a 21 89 16 09 | !.w....|!...!...|
|000003c0| 83 da 00 f1 eb 21 88 f1 | ed 21 88 f1 0a 21 88 ee |.....!..|.!...!..|
|000003d0| 20 83 99 00 ef f0 20 21 | 82 9d 00 ec 0e 09 21 88 | ..... !|......!.|
|000003e0| 0e 0b 85 bb 00 0e 0c f2 | 48 f3 3d 85 bb 00 0e 0c |........|H.=.....|
|000003f0| f4 48 f5 3d 85 bb 00 0e | 0c f6 48 f7 3d 85 d7 00 |.H.=....|..H.=...|
|00000400| 0e 0c f2 0e 0d 49 88 0e | 0c f4 0e 0e 49 88 0e 0c |.....I..|....I...|
|00000410| f6 0e 0b 49 88 cf 89 16 | 0b 82 36 02 d1 16 10 f8 |...I....|..6.....|
|00000420| 20 89 16 0a 88 f9 0e 0a | 21 0e 08 fa 5c 5c 57 86 | .......|!...\\W.|
|00000430| fd 00 fb 0e 0a 21 0e 07 | fc 5c 5c 57 86 fd 00 0e |.....!..|.\\W....|
|00000440| 12 85 04 01 fd 0e 0a 21 | 88 f9 0e 0a 21 0e 08 fe |.......!|....!...|
|00000450| 5c 5c 57 85 14 01 d9 ff | 21 88 0e 12 83 63 01 81 |\\W.....|!....c..|
|00000460| 40 00 0e 0a 81 41 00 f9 | 0e 0a 21 0e 08 f4 23 5c |@....A..|..!...#\|
|00000470| 22 89 16 09 88 81 42 00 | 0e 0a e7 20 5c 22 88 81 |".....B.|... \"..|
|00000480| 42 00 0e 09 0a 5c 22 88 | 81 43 00 0e 09 f4 5c 22 |B....\".|.C....\"|
|00000490| 88 81 40 00 0e 09 0e 07 | 81 44 00 5c 5c d1 23 89 |..@.....|.D.\\.#.|
|000004a0| 16 09 88 81 42 00 0e 09 | 09 5c 22 82 cd 01 d1 86 |....B...|.\".....|
|000004b0| 7a 01 8a 81 45 00 0e 0a | 21 71 88 69 29 81 46 00 |z...E...|!q.i).F.|
|000004c0| fb 20 f6 5c 22 57 83 95 | 01 81 40 00 0e 0a 81 41 |. .\"W..|..@....A|
|000004d0| 00 fb 0e 0a 21 0e 07 f6 | 23 d1 23 89 16 09 82 a3 |....!...|#.#.....|
|000004e0| 01 81 40 00 0e 0a 0e 07 | f6 5c 5c d1 23 89 16 0a |..@.....|.\\.#...|
|000004f0| 88 81 42 00 0e 09 0a 5c | 22 88 81 43 00 0e 09 f4 |..B....\|"..C....|
|00000500| 5c 22 88 81 40 00 0e 09 | 81 41 00 f9 0e 09 21 0e |\"..@...|.A....!.|
|00000510| 08 f4 23 5c 22 88 81 42 | 00 0e 09 09 5c 22 88 81 |..#\"..B|....\"..|
|00000520| 47 00 0e 0a 21 88 0e 13 | 81 48 00 3d 85 e1 01 0e |G...!...|.H.=....|
|00000530| 0b 3f 85 09 02 0e 0c f2 | 48 16 0d 0e 0c f4 48 16 |.?......|H.....H.|
|00000540| 0e 0e 0c f6 48 89 16 0b | 88 0e 0c f2 f3 49 88 0e |....H...|.....I..|
|00000550| 0c f4 f5 49 88 0e 0c f6 | f7 49 88 81 49 00 81 4a |...I....|.I..I..J|
|00000560| 00 21 88 81 4b 00 81 4c | 00 21 88 0e 14 85 31 02 |.!..K..L|.!....1.|
|00000570| 0e 15 85 31 02 81 4d 00 | f6 21 88 81 49 00 81 4e |...1..M.|.!..I..N|
|00000580| 00 21 88 d1 89 16 14 2c | 29 88 cf 89 16 16 87 22 |.!.....,|)......"|
|00000590| 20 5b 65 6d 61 63 73 2d | 76 65 72 73 69 6f 6e 20 | [emacs-|version |
|000005a0| 63 61 6c 63 62 75 66 20 | 63 61 6c 63 2d 6b 65 79 |calcbuf |calc-key|
|000005b0| 70 61 64 2d 62 75 66 66 | 65 72 20 63 61 6c 63 2d |pad-buff|er calc-|
|000005c0| 6b 65 79 70 61 64 2d 6d | 61 70 20 6d 61 6a 6f 72 |keypad-m|ap major|
|000005d0| 2d 6d 6f 64 65 20 6d 6f | 64 65 2d 6e 61 6d 65 20 |-mode mo|de-name |
|000005e0| 63 61 6c 63 2d 6d 61 69 | 6e 2d 62 75 66 66 65 72 |calc-mai|n-buffer|
|000005f0| 20 77 69 64 74 68 20 68 | 65 69 67 68 74 20 77 69 | width h|eight wi|
|00000600| 6e 20 6f 6c 64 2d 77 69 | 6e 20 63 61 6c 63 2d 6b |n old-wi|n calc-k|
|00000610| 65 79 70 61 64 2d 70 72 | 65 76 2d 78 2d 6c 65 66 |eypad-pr|ev-x-lef|
|00000620| 74 2d 63 6c 69 63 6b 20 | 6d 6f 75 73 65 2d 6d 61 |t-click |mouse-ma|
|00000630| 70 20 63 61 6c 63 2d 6b | 65 79 70 61 64 2d 70 72 |p calc-k|eypad-pr|
|00000640| 65 76 2d 78 2d 72 69 67 | 68 74 2d 63 6c 69 63 6b |ev-x-rig|ht-click|
|00000650| 20 63 61 6c 63 2d 6b 65 | 79 70 61 64 2d 70 72 65 | calc-ke|ypad-pre|
|00000660| 76 2d 78 2d 6d 69 64 64 | 6c 65 2d 63 6c 69 63 6b |v-x-midd|le-click|
|00000670| 20 6e 69 6c 20 63 61 6c | 63 2d 77 61 73 2d 6b 65 | nil cal|c-was-ke|
|00000680| 79 70 61 64 2d 6d 6f 64 | 65 20 74 20 66 75 6c 6c |ypad-mod|e t full|
|00000690| 2d 64 69 73 70 6c 61 79 | 20 77 69 6e 64 6f 77 2d |-display| window-|
|000006a0| 73 79 73 74 65 6d 20 63 | 61 6c 63 2d 6b 65 79 70 |system c|alc-keyp|
|000006b0| 61 64 2d 73 61 69 64 2d | 68 65 6c 6c 6f 20 69 6e |ad-said-|hello in|
|000006c0| 74 65 72 61 63 74 69 76 | 65 20 63 61 6c 63 2d 6b |teractiv|e calc-k|
|000006d0| 65 79 70 61 64 2d 69 6e | 70 75 74 20 73 74 72 69 |eypad-in|put stri|
|000006e0| 6e 67 2d 6d 61 74 63 68 | 20 22 5e 31 39 22 20 65 |ng-match| "^19" e|
|000006f0| 72 72 6f 72 20 22 53 6f | 72 72 79 2c 20 63 61 6c |rror "So|rry, cal|
|00000700| 63 2d 6b 65 79 70 61 64 | 20 6e 6f 74 20 79 65 74 |c-keypad| not yet|
|00000710| 20 69 6d 70 6c 65 6d 65 | 6e 74 65 64 20 66 6f 72 | impleme|nted for|
|00000720| 20 45 6d 61 63 73 20 31 | 39 22 20 63 61 6c 63 2d | Emacs 1|9" calc-|
|00000730| 63 72 65 61 74 65 2d 62 | 75 66 66 65 72 20 62 75 |create-b|uffer bu|
|00000740| 66 66 65 72 2d 6e 61 6d | 65 20 67 65 74 2d 62 75 |ffer-nam|e get-bu|
|00000750| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 43 61 |ffer-cre|ate "*Ca|
|00000760| 6c 63 20 4b 65 79 70 61 | 64 2a 22 20 75 73 65 2d |lc Keypa|d*" use-|
|00000770| 6c 6f 63 61 6c 2d 6d 61 | 70 20 63 61 6c 63 2d 6b |local-ma|p calc-k|
|00000780| 65 79 70 61 64 20 22 43 | 61 6c 63 75 6c 61 74 6f |eypad "C|alculato|
|00000790| 72 22 20 70 75 74 20 6d | 6f 64 65 2d 63 6c 61 73 |r" put m|ode-clas|
|000007a0| 73 20 73 70 65 63 69 61 | 6c 20 6d 61 6b 65 2d 6c |s specia|l make-l|
|000007b0| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 63 61 |ocal-var|iable ca|
|000007c0| 6c 63 2d 6b 65 79 70 61 | 64 2d 72 65 64 72 61 77 |lc-keypa|d-redraw|
|000007d0| 20 63 61 6c 63 2d 74 72 | 61 69 6c 2d 62 75 66 66 | calc-tr|ail-buff|
|000007e0| 65 72 20 32 39 20 31 37 | 20 67 65 74 2d 62 75 66 |er 29 17| get-buf|
|000007f0| 66 65 72 2d 77 69 6e 64 | 6f 77 20 22 2a 43 61 6c |fer-wind|ow "*Cal|
|00000800| 63 75 6c 61 74 6f 72 2a | 22 20 64 65 6c 65 74 65 |culator*|" delete|
|00000810| 2d 77 69 6e 64 6f 77 20 | 22 2a 43 61 6c 63 20 54 |-window |"*Calc T|
|00000820| 72 61 69 6c 2a 22 20 6f | 6e 65 2d 77 69 6e 64 6f |rail*" o|ne-windo|
|00000830| 77 2d 70 20 73 77 69 74 | 63 68 2d 74 6f 2d 62 75 |w-p swit|ch-to-bu|
|00000840| 66 66 65 72 20 6f 74 68 | 65 72 2d 62 75 66 66 65 |ffer oth|er-buffe|
|00000850| 72 20 62 75 72 79 2d 62 | 75 66 66 65 72 20 30 20 |r bury-b|uffer 0 |
|00000860| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 78 2d 72 69 |calc-key|pad-x-ri|
|00000870| 67 68 74 2d 63 6c 69 63 | 6b 20 31 20 63 61 6c 63 |ght-clic|k 1 calc|
|00000880| 2d 6b 65 79 70 61 64 2d | 78 2d 6d 69 64 64 6c 65 |-keypad-|x-middle|
|00000890| 2d 63 6c 69 63 6b 20 32 | 20 63 61 6c 63 2d 6b 65 |-click 2| calc-ke|
|000008a0| 79 70 61 64 2d 78 2d 6c | 65 66 74 2d 63 6c 69 63 |ypad-x-l|eft-clic|
|000008b0| 6b 20 67 65 74 2d 6c 61 | 72 67 65 73 74 2d 77 69 |k get-la|rgest-wi|
|000008c0| 6e 64 6f 77 20 77 69 6e | 64 6f 77 2d 68 65 69 67 |ndow win|dow-heig|
|000008d0| 68 74 20 36 20 77 69 6e | 64 6f 77 2d 77 69 64 74 |ht 6 win|dow-widt|
|000008e0| 68 20 31 35 20 64 65 6c | 65 74 65 2d 6f 74 68 65 |h 15 del|ete-othe|
|000008f0| 72 2d 77 69 6e 64 6f 77 | 73 20 34 20 22 53 63 72 |r-window|s 4 "Scr|
|00000900| 65 65 6e 20 69 73 20 6e | 6f 74 20 74 61 6c 6c 20 |een is n|ot tall |
|00000910| 65 6e 6f 75 67 68 20 66 | 6f 72 20 74 68 69 73 20 |enough f|or this |
|00000920| 6d 6f 64 65 22 20 73 70 | 6c 69 74 2d 77 69 6e 64 |mode" sp|lit-wind|
|00000930| 6f 77 20 2d 20 73 65 74 | 2d 77 69 6e 64 6f 77 2d |ow - set|-window-|
|00000940| 62 75 66 66 65 72 20 73 | 65 74 2d 77 69 6e 64 6f |buffer s|et-windo|
|00000950| 77 2d 73 74 61 72 74 20 | 33 20 77 69 6e 64 6f 77 |w-start |3 window|
|00000960| 2d 62 75 66 66 65 72 20 | 2f 20 73 65 6c 65 63 74 |-buffer |/ select|
|00000970| 2d 77 69 6e 64 6f 77 20 | 78 20 6d 65 73 73 61 67 |-window |x messag|
|00000980| 65 20 22 57 65 6c 63 6f | 6d 65 20 74 6f 20 47 4e |e "Welco|me to GN|
|00000990| 55 20 45 6d 61 63 73 20 | 43 61 6c 63 21 20 20 55 |U Emacs |Calc!  U|
|000009a0| 73 65 20 74 68 65 20 6c | 65 66 74 20 61 6e 64 20 |se the l|eft and |
|000009b0| 72 69 67 68 74 20 6d 6f | 75 73 65 20 62 75 74 74 |right mo|use butt|
|000009c0| 6f 6e 73 2e 22 20 72 75 | 6e 2d 68 6f 6f 6b 73 20 |ons." ru|n-hooks |
|000009d0| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 73 74 61 72 |calc-key|pad-star|
|000009e0| 74 2d 68 6f 6f 6b 20 73 | 69 74 2d 66 6f 72 20 22 |t-hook s|it-for "|
|000009f0| 22 5d 20 36 30 29 29 0a | 0a 28 64 65 66 75 6e 20 |"] 60)).|.(defun |
|00000a00| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 6f 66 66 20 |calc-key|pad-off |
|00000a10| 6e 69 6c 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |nil (int|eractive|
|00000a20| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00000a30| 08 83 0c 00 c2 c1 21 82 | 0e 00 c3 20 87 22 20 5b |......!.|... ." [|
|00000a40| 63 61 6c 63 2d 73 74 61 | 6e 64 61 6c 6f 6e 65 2d |calc-sta|ndalone-|
|00000a50| 66 6c 61 67 20 6e 69 6c | 20 73 61 76 65 2d 62 75 |flag nil| save-bu|
|00000a60| 66 66 65 72 73 2d 6b 69 | 6c 6c 2d 65 6d 61 63 73 |ffers-ki|ll-emacs|
|00000a70| 20 63 61 6c 63 2d 6b 65 | 79 70 61 64 5d 20 33 29 | calc-ke|ypad] 3)|
|00000a80| 29 0a 0a 28 64 65 66 75 | 6e 20 63 61 6c 63 2d 6b |)..(defu|n calc-k|
|00000a90| 65 79 70 61 64 2d 72 65 | 64 72 61 77 20 6e 69 6c |eypad-re|draw nil|
|00000aa0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 08 71 88 | (byte-c|ode ".q.|
|00000ab0| c2 89 11 88 d2 0c 0d 38 | 4a 0e 06 5c 22 89 13 88 |.......8|J..\"...|
|00000ac0| c7 0b d3 1e 09 1e 08 19 | d4 20 88 d5 63 88 0e 08 |........|. ..c...|
|00000ad0| 85 0b 01 0e 08 40 1e 0a | 0e 0a 85 d4 00 0e 0a 40 |.....@..|.......@|
|00000ae0| 1e 0b 0e 09 d6 59 83 3f | 00 d7 82 5b 00 0e 09 d8 |.....Y.?|...[....|
|00000af0| 55 85 4c 00 0e 0a 0e 08 | 40 3d 83 5a 00 0e 0a 41 |U.L.....|@=.Z...A|
|00000b00| 89 16 0a 88 d9 82 5b 00 | d6 1e 0c 0e 0e 85 68 00 |......[.|......h.|
|00000b10| da 0e 0b 38 db 3d 83 6f | 00 dc 82 86 00 0e 0b 40 |...8.=.o|.......@|
|00000b20| 47 0e 0c 56 83 83 00 0e | 0b 40 d3 0e 0c 4f 82 86 |G..V....|.@...O..|
|00000b30| 00 0e 0b 40 1e 0d 0e 0d | 47 1e 0f 0e 0c dd 0e 0f |...@....|G.......|
|00000b40| de 5c 22 5a 1e 10 df e0 | dd 0e 0c 0e 0f 5a de 5c |.\"Z....|.....Z.\|
|00000b50| 22 e1 5c 22 0e 0d e0 dd | e2 0e 0c 0e 0f e3 23 de |".\"....|......#.|
|00000b60| 5c 22 e1 5c 22 e4 0e 0d | e5 5c 22 83 c1 00 e6 0c |\".\"...|.\".....|
|00000b70| 54 21 82 c2 00 e7 24 2d | 88 0e 0a 41 89 16 0a 86 |T!....$-|...A....|
|00000b80| d0 00 d5 63 88 82 2a 00 | 88 df 0e 09 d6 59 83 e1 |...c..*.|.....Y..|
|00000b90| 00 e8 82 ed 00 0e 09 d8 | 55 83 ec 00 e9 82 ed 00 |........|U.......|
|00000ba0| ea 0e 09 eb 55 83 f8 00 | ec 82 f9 00 ed 5c 22 88 |....U...|.....\".|
|00000bb0| 0e 09 54 16 09 0e 08 41 | 89 16 08 29 88 82 20 00 |..T....A|...).. .|
|00000bc0| 2b 88 c2 89 16 11 88 ee | 20 88 65 62 87 22 20 5b |+.......| .eb." [|
|00000bd0| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 62 75 66 66 |calc-key|pad-buff|
|00000be0| 65 72 20 62 75 66 66 65 | 72 2d 72 65 61 64 2d 6f |er buffe|r-read-o|
|00000bf0| 6e 6c 79 20 74 20 63 61 | 6c 63 2d 6b 65 79 70 61 |nly t ca|lc-keypa|
|00000c00| 64 2d 66 75 6c 6c 2d 6c | 61 79 6f 75 74 20 63 61 |d-full-l|ayout ca|
|00000c10| 6c 63 2d 6b 65 79 70 61 | 64 2d 6d 65 6e 75 20 63 |lc-keypa|d-menu c|
|00000c20| 61 6c 63 2d 6b 65 79 70 | 61 64 2d 6d 65 6e 75 73 |alc-keyp|ad-menus|
|00000c30| 20 63 61 6c 63 2d 6b 65 | 79 70 61 64 2d 6c 61 79 | calc-ke|ypad-lay|
|00000c40| 6f 75 74 20 6e 69 6c 20 | 72 6f 77 20 79 20 63 6f |out nil |row y co|
|00000c50| 6c 20 6b 65 79 20 63 77 | 69 64 20 6e 61 6d 65 20 |l key cw|id name |
|00000c60| 63 61 6c 63 2d 73 74 61 | 6e 64 61 6c 6f 6e 65 2d |calc-sta|ndalone-|
|00000c70| 66 6c 61 67 20 77 69 64 | 20 70 61 64 20 63 61 6c |flag wid| pad cal|
|00000c80| 63 2d 6b 65 79 70 61 64 | 2d 70 72 65 76 2d 69 6e |c-keypad|-prev-in|
|00000c90| 70 75 74 20 61 70 70 65 | 6e 64 20 30 20 65 72 61 |put appe|nd 0 era|
|00000ca0| 73 65 2d 62 75 66 66 65 | 72 20 22 0a 22 20 34 20 |se-buffe|r "." 4 |
|00000cb0| 35 20 33 20 39 20 31 20 | 63 61 6c 63 2d 6b 65 79 |5 3 9 1 |calc-key|
|00000cc0| 70 61 64 2d 6f 66 66 20 | 22 45 58 49 54 22 20 2f |pad-off |"EXIT" /|
|00000cd0| 20 32 20 69 6e 73 65 72 | 74 20 6d 61 6b 65 2d 73 | 2 inser|t make-s|
|00000ce0| 74 72 69 6e 67 20 33 32 | 20 2d 20 2d 31 20 65 71 |tring 32| - -1 eq|
|00000cf0| 75 61 6c 20 22 4d 45 4e | 55 22 20 69 6e 74 2d 74 |ual "MEN|U" int-t|
|00000d00| 6f 2d 73 74 72 69 6e 67 | 20 22 7c 22 20 22 2d 2d |o-string| "|" "--|
|00000d10| 2d 2d 2d 2b 2d 2d 2d 2d | 2d 2b 2d 2d 2d 2d 2d 2b |---+----|-+-----+|
|00000d20| 2d 2d 2d 2d 2d 2b 2d 2d | 2d 2d 2d 22 20 22 2d 2d |-----+--|---" "--|
|00000d30| 2d 2d 2d 2b 2d 2d 2d 2b | 2d 2b 2d 2d 2b 2d 2d 2b |---+---+|-+--+--+|
|00000d40| 2d 2b 2d 2d 2d 2b 2b 2d | 2d 2d 2d 22 20 22 2d 2d |-+---++-|---" "--|
|00000d50| 2d 2d 2b 2d 2d 2d 2d 2b | 2d 2d 2d 2d 2b 2d 2d 2d |--+----+|----+---|
|00000d60| 2d 2b 2d 2d 2d 2d 2b 2d | 2d 2d 2d 22 20 37 20 22 |-+----+-|---" 7 "|
|00000d70| 2b 0a 22 20 22 7c 0a 22 | 20 63 61 6c 63 2d 6b 65 |+." "|."| calc-ke|
|00000d80| 79 70 61 64 2d 73 68 6f | 77 2d 69 6e 70 75 74 5d |ypad-sho|w-input]|
|00000d90| 20 31 37 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 | 17))..(|defun ca|
|00000da0| 6c 63 2d 6b 65 79 70 61 | 64 2d 73 68 6f 77 2d 69 |lc-keypa|d-show-i|
|00000db0| 6e 70 75 74 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |nput nil| (byte-c|
|00000dc0| 6f 64 65 20 22 c6 08 09 | 5c 22 86 2e 00 c3 1a 8a |ode "...|\"......|
|00000dd0| 65 62 88 c7 c8 21 88 c9 | 65 60 5c 22 88 08 83 5c |eb...!..|e`\"...\|
|00000de0| 22 00 ca cb 08 cc 23 82 | 2c 00 ca cd 0c ce cf 0d |".....#.|,.......|
|00000df0| 54 21 cc 25 29 29 88 08 | 89 11 87 22 20 5b 63 61 |T!.%))..|..." [ca|
|00000e00| 6c 63 2d 6b 65 79 70 61 | 64 2d 69 6e 70 75 74 20 |lc-keypa|d-input |
|00000e10| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 70 72 65 76 |calc-key|pad-prev|
|00000e20| 2d 69 6e 70 75 74 20 62 | 75 66 66 65 72 2d 72 65 |-input b|uffer-re|
|00000e30| 61 64 2d 6f 6e 6c 79 20 | 6e 69 6c 20 63 61 6c 63 |ad-only |nil calc|
|00000e40| 2d 76 65 72 73 69 6f 6e | 20 63 61 6c 63 2d 6b 65 |-version| calc-ke|
|00000e50| 79 70 61 64 2d 6d 65 6e | 75 20 65 71 75 61 6c 20 |ypad-men|u equal |
|00000e60| 66 6f 72 77 61 72 64 2d | 6c 69 6e 65 20 31 20 64 |forward-|line 1 d|
|00000e70| 65 6c 65 74 65 2d 72 65 | 67 69 6f 6e 20 69 6e 73 |elete-re|gion ins|
|00000e80| 65 72 74 20 22 43 61 6c | 63 3a 20 22 20 22 0a 22 |ert "Cal|c: " "."|
|00000e90| 20 22 2d 2d 2d 2d 2b 2d | 2d 2d 2d 2d 43 61 6c 63 | "----+-|----Calc|
|00000ea0| 20 22 20 22 2d 2d 2d 2d | 2d 2b 2d 2d 2d 2d 22 20 | " "----|-+----" |
|00000eb0| 69 6e 74 2d 74 6f 2d 73 | 74 72 69 6e 67 5d 20 31 |int-to-s|tring] 1|
|00000ec0| 31 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 61 6c 63 |1))..(de|fun calc|
|00000ed0| 2d 6b 65 79 70 61 64 2d | 70 72 65 73 73 20 6e 69 |-keypad-|press ni|
|00000ee0| 6c 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 |l (inter|active) |
|00000ef0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 d8 88 08 e4 |(byte-co|de "....|
|00000f00| 3d 86 0b 00 e5 e6 21 88 | 8a e7 20 88 e8 65 60 5c |=.....!.|.. ..e`\|
|00000f10| 22 29 19 e9 09 ea 5c 22 | 1a e9 69 0a eb 59 83 27 |")....\"|..i..Y.'|
|00000f20| 00 ec 82 28 00 ed 5c 22 | 1b d8 1c d8 1d d8 1e 06 |...(..\"|........|
|00000f30| 8a 0e 08 71 88 0e 09 14 | 0e 0a 15 0e 0b 89 16 06 |...q....|........|
|00000f40| 88 0e 0c 29 1e 07 ce 1e | 0d 0e 10 0e 11 38 4a 1e |...)....|.....8J.|
|00000f50| 0f 0e 13 1e 12 0e 12 85 | 74 00 ee ef 0e 12 5c 22 |........|t.....\"|
|00000f60| 86 6e 00 0c f0 58 85 6e | 00 ee f1 0e 12 5c 22 85 |.n...X.n|.....\".|
|00000f70| 74 00 f2 f3 21 1e 14 0b | 0a 0e 16 38 38 1e 15 0e |t...!...|...88...|
|00000f80| 06 83 90 00 0e 07 83 8c | 00 eb 82 8d 00 ea 82 9a |........|........|
|00000f90| 00 0e 07 83 99 00 f4 82 | 9a 00 f5 0e 15 38 86 ab |........|.....8..|
|00000fa0| 00 d8 89 16 0d 86 ab 00 | f6 0e 15 38 1e 17 0e 17 |........|...8....|
|00000fb0| 3a 85 b7 00 0e 17 40 3b | 1e 19 ce 1e 1a 0e 0d 85 |:.....@;|........|
|00000fc0| c4 00 f7 f8 21 88 f9 8e | 0e 17 3f 86 d3 00 fa 09 |....!...|..?.....|
|00000fd0| ea 5c 22 f3 55 83 db 00 | fb 20 82 8f 04 fc 20 f3 |.\".U...|. .... .|
|00000fe0| 56 83 27 01 0e 19 83 f2 | 00 0e 17 40 f3 48 89 16 |V.'.....|...@.H..|
|00000ff0| 1b 82 24 01 0e 17 fd 3d | 83 00 01 fe 89 16 1b 82 |..$....=|........|
|00001000| 24 01 0e 17 ff 3d 83 10 | 01 81 40 00 89 16 1b 82 |$....=..|..@.....|
|00001010| 24 01 0e 17 81 41 00 3d | 83 5c 22 01 81 42 00 89 |$....A.=|.\"..B..|
|00001020| 16 1b 82 24 01 fb 20 82 | 8f 04 0e 12 85 33 01 ee |...$.. .|.....3..|
|00001030| 81 43 00 0e 12 5c 22 83 | 46 02 0e 19 85 43 01 ee |.C...\".|F....C..|
|00001040| 81 44 00 0e 17 40 5c 22 | 83 0c 02 d8 89 16 13 88 |.D...@\"|........|
|00001050| 81 45 00 81 46 00 0e 17 | 40 50 21 1e 1c 81 47 00 |.E..F...|@P!...G.|
|00001060| 0e 12 81 48 00 5c 22 83 | 6d 01 81 49 00 0e 1c 21 |...H.\".|m..I...!|
|00001070| 82 08 02 81 47 00 0e 12 | 81 4a 00 5c 22 83 82 01 |....G...|.J.\"...|
|00001080| 81 4b 00 0e 1c 21 82 08 | 02 81 47 00 0e 12 81 4c |.K...!..|..G....L|
|00001090| 00 5c 22 83 97 01 81 4d | 00 0e 1c 21 82 08 02 81 |.\"....M|...!....|
|000010a0| 47 00 0e 12 81 4e 00 5c | 22 83 ac 01 81 4f 00 0e |G....N.\|"....O..|
|000010b0| 1c 21 82 08 02 81 47 00 | 0e 12 81 50 00 5c 22 83 |.!....G.|...P.\".|
|000010c0| c1 01 81 51 00 0e 1c 21 | 82 08 02 81 47 00 0e 12 |...Q...!|....G...|
|000010d0| 81 52 00 5c 22 83 d7 01 | 81 53 00 f6 0e 1c 5c 22 |.R.\"...|.S....\"|
|000010e0| 82 08 02 81 47 00 0e 12 | 81 54 00 5c 22 83 ed 01 |....G...|.T.\"...|
|000010f0| 81 55 00 f6 0e 1c 5c 22 | 82 08 02 81 47 00 0e 12 |.U....\"|....G...|
|00001100| 81 56 00 5c 22 83 02 02 | 81 57 00 0e 1c 21 82 08 |.V.\"...|.W...!..|
|00001110| 02 81 58 00 0e 1c 21 29 | 82 43 02 0e 17 81 59 00 |..X...!)|.C....Y.|
|00001120| 3e 83 1c 02 d8 89 16 13 | 82 43 02 81 47 00 0e 12 |>.......|.C..G...|
|00001130| 81 56 00 5c 22 85 33 02 | 81 5a 00 0e 17 81 5b 00 |.V.\".3.|.Z....[.|
|00001140| 5c 22 89 15 83 41 02 0e | 12 0d 41 50 89 16 13 82 |\"...A..|..AP....|
|00001150| 43 02 fb 20 82 8f 04 0e | 19 83 77 03 0e 17 40 89 |C.. ....|..w...@.|
|00001160| 16 17 88 81 47 00 0e 17 | 81 5c 5c 00 5c 22 85 6a |....G...|.\\.\".j|
|00001170| 02 0e 12 85 6a 02 ee 81 | 5d 00 0e 12 5c 22 86 c3 |....j...|]...\"..|
|00001180| 02 81 47 00 0e 17 f1 5c | 22 85 91 02 0e 12 85 91 |..G....\|".......|
|00001190| 02 0c f0 58 85 87 02 ee | f1 0e 12 5c 22 86 91 02 |...X....|...\"...|
|000011a0| ee 81 5e 00 0e 12 5c 22 | 86 c3 02 81 47 00 0e 17 |..^...\"|....G...|
|000011b0| 81 5c 5c 00 5c 22 3f 85 | c3 02 d8 1e 1d ee 0e 17 |.\\.\"?.|........|
|000011c0| 81 5f 00 ee 81 60 00 0e | 12 86 b6 02 81 61 00 5c |._...`..|.....a.\|
|000011d0| 22 83 c0 02 81 62 00 82 | c1 02 0c 23 29 83 cb 02 |"....b..|...#)...|
|000011e0| fb 20 82 74 03 81 63 00 | 0c 81 62 00 5c 22 85 f0 |. .t..c.|..b.\"..|
|000011f0| 02 0e 12 3f 86 e5 02 81 | 47 00 0e 12 81 64 00 5c |...?....|G....d.\|
|00001200| 22 85 f0 02 81 65 00 81 | 66 00 0c 5c 22 0e 12 3f |"....e..|f..\"..?|
|00001210| 86 ff 02 81 47 00 0e 12 | 81 64 00 5c 22 85 2b 03 |....G...|.d.\".+.|
|00001220| 81 47 00 0e 17 f1 5c 22 | 85 0f 03 81 67 00 86 2b |.G....\"|....g..+|
|00001230| 03 81 47 00 0e 17 81 5c | 5c 00 5c 22 85 2b 03 0d |..G....\|\.\".+..|
|00001240| 83 28 03 81 67 00 82 2b | 03 81 68 00 0e 12 81 47 |.(..g..+|..h....G|
|00001250| 00 0e 17 81 5c 5c 00 5c | 22 85 3a 03 0d 83 43 03 |....\\.\|".:...C.|
|00001260| 81 69 00 82 70 03 81 47 | 00 0e 17 f1 5c 22 85 60 |.i..p..G|....\".`|
|00001270| 03 0e 12 3f 86 5a 03 ee | 81 6a 00 0e 12 5c 22 85 |...?.Z..|.j...\".|
|00001280| 60 03 0c f0 56 83 6e 03 | 81 65 00 81 6b 00 0c 5c |`...V.n.|.e..k..\|
|00001290| 22 82 70 03 0e 17 52 89 | 16 13 82 8f 04 0e 17 81 |".p...R.|........|
|000012a0| 6c 00 3d 85 82 03 0e 12 | 83 bb 03 0e 14 86 8b 03 |l.=.....|........|
|000012b0| f3 1e 1e 0e 12 0e 1e d8 | 4f 1e 1f 0e 12 f3 0e 1e |........|O.......|
|000012c0| 4f ee 81 6d 00 0e 1f 5c | 22 83 ad 03 0e 1f f6 d8 |O..m...\|".......|
|000012d0| 4f 82 b3 03 81 64 00 0e | 1f 50 50 89 16 13 2a 82 |O....d..|.PP...*.|
|000012e0| 8f 04 0e 17 fd 3d 85 c4 | 03 0e 12 83 ef 03 81 47 |.....=..|.......G|
|000012f0| 00 0e 12 81 61 00 5c 22 | 83 d8 03 fb 20 82 ec 03 |....a.\"|.... ...|
|00001300| 0e 12 f3 ee 81 6e 00 0e | 12 5c 22 86 e8 03 81 6f |.....n..|.\"....o|
|00001310| 00 4f 89 16 13 82 8f 04 | 0e 17 81 41 00 3d 85 fa |.O......|...A.=..|
|00001320| 03 0e 12 83 04 04 d8 89 | 16 13 82 8f 04 0e 12 85 |........|........|
|00001330| 43 04 81 70 00 0e 12 21 | 1e 20 d8 89 16 13 88 0e |C..p...!|. ......|
|00001340| 20 83 23 04 f7 81 71 00 | 21 82 36 04 81 47 00 0e | .#...q.|!.6..G..|
|00001350| 12 81 61 00 5c 22 86 31 | 04 fb 20 88 d8 89 16 17 |..a.\".1|.. .....|
|00001360| 88 0e 17 ff 3d 85 42 04 | d8 89 16 17 29 88 0e 5c |....=.B.|....)..\|
|00001370| 22 89 16 21 88 0e 17 85 | 8f 04 0e 17 3a 85 5c 5c |"..!....|....:.\\|
|00001380| 04 0e 17 40 81 72 00 3d | 83 89 04 0e 17 41 89 16 |...@.r.=|.....A..|
|00001390| 17 85 86 04 81 73 00 0e | 17 40 21 83 7b 04 0e 17 |.....s..|.@!.{...|
|000013a0| 40 89 16 21 82 82 04 81 | 74 00 0e 17 40 21 88 82 |@..!....|t...@!..|
|000013b0| 5f 04 82 8f 04 81 74 00 | 0e 17 21 29 2e 0f 87 22 |_.....t.|..!)..."|
|000013c0| 20 5b 6d 61 6a 6f 72 2d | 6d 6f 64 65 20 72 6f 77 | [major-|mode row|
|000013d0| 20 79 20 78 20 72 61 64 | 69 78 20 66 72 61 63 20 | y x rad|ix frac |
|000013e0| 69 6e 76 20 68 79 70 20 | 63 61 6c 63 2d 6d 61 69 |inv hyp |calc-mai|
|000013f0| 6e 2d 62 75 66 66 65 72 | 20 63 61 6c 63 2d 6e 75 |n-buffer| calc-nu|
|00001400| 6d 62 65 72 2d 72 61 64 | 69 78 20 63 61 6c 63 2d |mber-rad|ix calc-|
|00001410| 70 72 65 66 65 72 2d 66 | 72 61 63 20 63 61 6c 63 |prefer-f|rac calc|
|00001420| 2d 69 6e 76 65 72 73 65 | 2d 66 6c 61 67 20 63 61 |-inverse|-flag ca|
|00001430| 6c 63 2d 68 79 70 65 72 | 62 6f 6c 69 63 2d 66 6c |lc-hyper|bolic-fl|
|00001440| 61 67 20 69 6e 76 68 79 | 70 20 74 20 6d 65 6e 75 |ag invhy|p t menu|
|00001450| 20 63 61 6c 63 2d 6b 65 | 79 70 61 64 2d 6d 65 6e | calc-ke|ypad-men|
|00001460| 75 20 63 61 6c 63 2d 6b | 65 79 70 61 64 2d 6d 65 |u calc-k|eypad-me|
|00001470| 6e 75 73 20 69 6e 70 75 | 74 20 63 61 6c 63 2d 6b |nus inpu|t calc-k|
|00001480| 65 79 70 61 64 2d 69 6e | 70 75 74 20 69 65 78 70 |eypad-in|put iexp|
|00001490| 6f 6e 20 6b 65 79 20 63 | 61 6c 63 2d 6b 65 79 70 |on key c|alc-keyp|
|000014a0| 61 64 2d 66 75 6c 6c 2d | 6c 61 79 6f 75 74 20 63 |ad-full-|layout c|
|000014b0| 6d 64 20 6e 69 6c 20 69 | 73 73 74 72 69 6e 67 20 |md nil i|sstring |
|000014c0| 63 61 6c 63 2d 69 73 2d | 6b 65 79 70 61 64 2d 70 |calc-is-|keypad-p|
|000014d0| 72 65 73 73 20 75 6e 72 | 65 61 64 2d 63 6f 6d 6d |ress unr|ead-comm|
|000014e0| 61 6e 64 2d 63 68 61 72 | 20 76 61 72 20 63 61 73 |and-char| var cas|
|000014f0| 65 2d 66 6f 6c 64 2d 73 | 65 61 72 63 68 20 65 70 |e-fold-s|earch ep|
|00001500| 6f 73 20 73 75 66 66 69 | 78 20 76 61 6c 20 70 72 |os suffi|x val pr|
|00001510| 65 66 69 78 2d 61 72 67 | 20 63 75 72 72 65 6e 74 |efix-arg| current|
|00001520| 2d 70 72 65 66 69 78 2d | 61 72 67 20 63 61 6c 63 |-prefix-|arg calc|
|00001530| 2d 6b 65 79 70 61 64 2d | 62 75 66 66 65 72 20 63 |-keypad-|buffer c|
|00001540| 61 6c 63 2d 6b 65 79 70 | 61 64 20 65 72 72 6f 72 |alc-keyp|ad error|
|00001550| 20 22 4d 75 73 74 20 62 | 65 20 69 6e 20 2a 43 61 | "Must b|e in *Ca|
|00001560| 6c 63 20 4b 65 79 70 61 | 64 2a 20 62 75 66 66 65 |lc Keypa|d* buffe|
|00001570| 72 20 66 6f 72 20 74 68 | 69 73 20 63 6f 6d 6d 61 |r for th|is comma|
|00001580| 6e 64 22 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |nd" begi|nning-of|
|00001590| 2d 6c 69 6e 65 20 63 6f | 75 6e 74 2d 6c 69 6e 65 |-line co|unt-line|
|000015a0| 73 20 2f 20 32 20 34 20 | 36 20 35 20 73 74 72 69 |s / 2 4 |6 5 stri|
|000015b0| 6e 67 2d 6d 61 74 63 68 | 20 22 5c 5c 2a 5b 30 2d |ng-match| "\\*[0-|
|000015c0| 39 5d 2b 5c 5c 2e 5c 5c | 5e 22 20 31 34 20 22 65 |9]+\\.\\|^" 14 "e|
|000015d0| 22 20 6d 61 74 63 68 2d | 65 6e 64 20 30 20 33 20 |" match-|end 0 3 |
|000015e0| 39 39 20 31 20 63 61 6c | 63 2d 64 6f 20 28 6c 61 |99 1 cal|c-do (la|
|000015f0| 6d 62 64 61 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |mbda nil| (byte-c|
|00001600| 6f 64 65 20 22 c0 87 22 | 20 5b 6e 69 6c 5d 20 31 |ode ".."| [nil] 1|
|00001610| 29 29 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |)) ((byt|e-code "|
|00001620| 08 71 88 c1 20 87 22 20 | 5b 63 61 6c 63 2d 6b 65 |.q.. ." |[calc-ke|
|00001630| 79 70 61 64 2d 62 75 66 | 66 65 72 20 63 61 6c 63 |ypad-buf|fer calc|
|00001640| 2d 6b 65 79 70 61 64 2d | 73 68 6f 77 2d 69 6e 70 |-keypad-|show-inp|
|00001650| 75 74 5d 20 32 29 29 20 | 25 20 62 65 65 70 20 6d |ut] 2)) |% beep m|
|00001660| 69 6e 69 62 75 66 66 65 | 72 2d 64 65 70 74 68 20 |inibuffe|r-depth |
|00001670| 63 61 6c 63 2d 70 6f 70 | 20 31 32 37 20 63 61 6c |calc-pop| 127 cal|
|00001680| 63 2d 65 6e 74 65 72 20 | 31 33 20 63 61 6c 63 2d |c-enter |13 calc-|
|00001690| 75 6e 64 6f 20 37 20 22 | 53 54 4f 5c 5c 7c 52 43 |undo 7 "|STO\\|RC|
|000016a0| 4c 22 20 22 5b 30 2d 39 | 5d 22 20 69 6e 74 65 72 |L" "[0-9|]" inter|
|000016b0| 6e 20 22 76 61 72 2d 71 | 22 20 65 71 75 61 6c 20 |n "var-q|" equal |
|000016c0| 22 53 54 4f 2b 22 20 63 | 61 6c 63 2d 73 74 6f 72 |"STO+" c|alc-stor|
|000016d0| 65 2d 70 6c 75 73 20 22 | 53 54 4f 2d 22 20 63 61 |e-plus "|STO-" ca|
|000016e0| 6c 63 2d 73 74 6f 72 65 | 2d 6d 69 6e 75 73 20 22 |lc-store|-minus "|
|000016f0| 53 54 4f 2a 22 20 63 61 | 6c 63 2d 73 74 6f 72 65 |STO*" ca|lc-store|
|00001700| 2d 74 69 6d 65 73 20 22 | 53 54 4f 2f 22 20 63 61 |-times "|STO/" ca|
|00001710| 6c 63 2d 73 74 6f 72 65 | 2d 64 69 76 20 22 53 54 |lc-store|-div "ST|
|00001720| 4f 5e 22 20 63 61 6c 63 | 2d 73 74 6f 72 65 2d 70 |O^" calc|-store-p|
|00001730| 6f 77 65 72 20 22 53 54 | 4f 6e 22 20 63 61 6c 63 |ower "ST|On" calc|
|00001740| 2d 73 74 6f 72 65 2d 6e | 65 67 20 22 53 54 4f 26 |-store-n|eg "STO&|
|00001750| 22 20 63 61 6c 63 2d 73 | 74 6f 72 65 2d 69 6e 76 |" calc-s|tore-inv|
|00001760| 20 22 53 54 4f 22 20 63 | 61 6c 63 2d 73 74 6f 72 | "STO" c|alc-stor|
|00001770| 65 2d 69 6e 74 6f 20 63 | 61 6c 63 2d 72 65 63 61 |e-into c|alc-reca|
|00001780| 6c 6c 20 28 63 61 6c 63 | 2d 70 6f 70 20 63 61 6c |ll (calc|-pop cal|
|00001790| 63 2d 75 6e 64 6f 29 20 | 61 73 73 71 20 28 28 63 |c-undo) |assq ((c|
|000017a0| 61 6c 63 2d 70 6c 75 73 | 20 2e 20 22 2b 22 29 20 |alc-plus| . "+") |
|000017b0| 28 63 61 6c 63 2d 6d 69 | 6e 75 73 20 2e 20 22 2d |(calc-mi|nus . "-|
|000017c0| 22 29 20 28 63 61 6c 63 | 2d 74 69 6d 65 73 20 2e |") (calc|-times .|
|000017d0| 20 22 2a 22 29 20 28 63 | 61 6c 63 2d 64 69 76 69 | "*") (c|alc-divi|
|000017e0| 64 65 20 2e 20 22 2f 22 | 29 20 28 63 61 6c 63 2d |de . "/"|) (calc-|
|000017f0| 70 6f 77 65 72 20 2e 20 | 22 5e 22 29 20 28 63 61 |power . |"^") (ca|
|00001800| 6c 63 2d 63 68 61 6e 67 | 65 2d 73 69 67 6e 20 2e |lc-chang|e-sign .|
|00001810| 20 22 6e 22 29 20 28 63 | 61 6c 63 2d 69 6e 76 20 | "n") (c|alc-inv |
|00001820| 2e 20 22 26 22 29 29 20 | 22 2e 22 20 22 5b 2e 3a |. "&")) |"." "[.:|
|00001830| 65 5e 5d 22 20 22 5c 5c | 5e 5c 5c 7c 5b 2d 2e 3a |e^]" "\\|^\\|[-.:|
|00001840| 5d 5c 5c 27 22 20 22 30 | 31 32 33 34 35 36 37 38 |]\\'" "0|12345678|
|00001850| 39 41 42 43 44 45 46 22 | 20 22 5b 65 5e 5d 22 20 |9ABCDEF"| "[e^]" |
|00001860| 22 22 20 31 30 20 2f 3d | 20 22 2d 22 20 66 6f 72 |"" 10 /=| "-" for|
|00001870| 6d 61 74 20 22 25 64 23 | 22 20 22 31 22 20 22 30 |mat "%d#|" "1" "0|
|00001880| 22 20 22 3a 22 20 22 23 | 22 20 22 2a 25 64 2e 5e |" ":" "#|" "*%d.^|
|00001890| 22 20 63 61 6c 63 2d 63 | 68 61 6e 67 65 2d 73 69 |" calc-c|hange-si|
|000018a0| 67 6e 20 22 5c 5c 60 2d | 22 20 22 5c 5c 2a 5b 30 |gn "\\`-|" "\\*[0|
|000018b0| 2d 39 5d 2b 5c 5c 2e 5c | 5c 5e 5c 5c 27 22 20 2d |-9]+\\.\|\^\\'" -|
|000018c0| 31 20 6d 61 74 68 2d 72 | 65 61 64 2d 6e 75 6d 62 |1 math-r|ead-numb|
|000018d0| 65 72 20 28 6c 61 6d 62 | 64 61 20 6e 69 6c 20 28 |er (lamb|da nil (|
|000018e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 c2 c3 08 21 |byte-cod|e "....!|
|000018f0| 21 43 21 87 22 20 5b 76 | 61 6c 20 63 61 6c 63 2d |!C!." [v|al calc-|
|00001900| 70 75 73 68 2d 6c 69 73 | 74 20 63 61 6c 63 2d 72 |push-lis|t calc-r|
|00001910| 65 63 6f 72 64 20 63 61 | 6c 63 2d 6e 6f 72 6d 61 |ecord ca|lc-norma|
|00001920| 6c 69 7a 65 5d 20 34 29 | 29 20 70 72 6f 67 6e 20 |lize] 4)|) progn |
|00001930| 69 6e 74 65 67 65 72 70 | 20 63 6f 6d 6d 61 6e 64 |integerp| command|
|00001940| 2d 65 78 65 63 75 74 65 | 5d 20 36 37 29 29 0a 0a |-execute|] 67))..|
|00001950| 28 64 65 66 75 6e 20 63 | 61 6c 63 2d 6b 65 79 70 |(defun c|alc-keyp|
|00001960| 61 64 2d 78 2d 6c 65 66 | 74 2d 63 6c 69 63 6b 20 |ad-x-lef|t-click |
|00001970| 28 61 72 67 29 20 22 5c | 0a 48 61 6e 64 6c 65 20 |(arg) "\|.Handle |
|00001980| 61 20 6c 65 66 74 2d 62 | 75 74 74 6f 6e 20 6d 6f |a left-b|utton mo|
|00001990| 75 73 65 20 63 6c 69 63 | 6b 20 69 6e 20 43 61 6c |use clic|k in Cal|
|000019a0| 63 20 4b 65 79 70 61 64 | 20 77 69 6e 64 6f 77 2e |c Keypad| window.|
|000019b0| 22 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c5 18 |" (byte-|code "..|
|000019c0| 09 85 1a 00 c6 09 21 85 | 1a 00 c7 09 21 85 1a 00 |......!.|....!...|
|000019d0| c8 0a c7 09 21 5c 22 89 | 10 83 2d 00 c9 20 1b ca |....!\".|..-.. ..|
|000019e0| 8e cb 0a 21 88 cc 20 29 | 29 82 31 00 cd 0c 0a 5c |...!.. )|).1....\|
|000019f0| 22 29 87 22 20 5b 63 6f | 6f 72 64 73 20 63 61 6c |")." [co|ords cal|
|00001a00| 63 2d 6b 65 79 70 61 64 | 2d 62 75 66 66 65 72 20 |c-keypad|-buffer |
|00001a10| 61 72 67 20 77 69 6e 20 | 63 61 6c 63 2d 6b 65 79 |arg win |calc-key|
|00001a20| 70 61 64 2d 70 72 65 76 | 2d 78 2d 6c 65 66 74 2d |pad-prev|-x-left-|
|00001a30| 63 6c 69 63 6b 20 6e 69 | 6c 20 62 75 66 66 65 72 |click ni|l buffer|
|00001a40| 2d 6e 61 6d 65 20 67 65 | 74 2d 62 75 66 66 65 72 |-name ge|t-buffer|
|00001a50| 2d 77 69 6e 64 6f 77 20 | 63 6f 6f 72 64 69 6e 61 |-window |coordina|
|00001a60| 74 65 73 2d 69 6e 2d 77 | 69 6e 64 6f 77 2d 70 20 |tes-in-w|indow-p |
|00001a70| 73 65 6c 65 63 74 65 64 | 2d 77 69 6e 64 6f 77 20 |selected|-window |
|00001a80| 28 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 08 21 |((byte-c|ode "..!|
|00001a90| 85 09 00 c2 08 21 87 22 | 20 5b 77 69 6e 20 77 69 |.....!."| [win wi|
|00001aa0| 6e 64 6f 77 2d 70 6f 69 | 6e 74 20 73 65 6c 65 63 |ndow-poi|nt selec|
|00001ab0| 74 2d 77 69 6e 64 6f 77 | 5d 20 33 29 29 20 78 2d |t-window|] 3)) x-|
|00001ac0| 6d 6f 75 73 65 2d 73 65 | 74 2d 70 6f 69 6e 74 20 |mouse-se|t-point |
|00001ad0| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 70 72 65 73 |calc-key|pad-pres|
|00001ae0| 73 20 66 75 6e 63 61 6c | 6c 5d 20 31 30 29 29 0a |s funcal|l] 10)).|
|00001af0| 0a 28 64 65 66 75 6e 20 | 63 61 6c 63 2d 6b 65 79 |.(defun |calc-key|
|00001b00| 70 61 64 2d 78 2d 72 69 | 67 68 74 2d 63 6c 69 63 |pad-x-ri|ght-clic|
|00001b10| 6b 20 28 61 72 67 29 20 | 22 5c 0a 48 61 6e 64 6c |k (arg) |"\.Handl|
|00001b20| 65 20 61 20 72 69 67 68 | 74 2d 62 75 74 74 6f 6e |e a righ|t-button|
|00001b30| 20 6d 6f 75 73 65 20 63 | 6c 69 63 6b 20 69 6e 20 | mouse c|lick in |
|00001b40| 43 61 6c 63 20 4b 65 79 | 70 61 64 20 77 69 6e 64 |Calc Key|pad wind|
|00001b50| 6f 77 2e 22 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ow." (by|te-code |
|00001b60| 22 08 85 16 00 c3 08 21 | 85 16 00 c4 08 21 85 16 |"......!|.....!..|
|00001b70| 00 c5 09 c4 08 21 5c 22 | 83 23 00 8a 08 71 88 c6 |.....!\"|.#...q..|
|00001b80| 20 29 82 27 00 c7 0a 09 | 5c 22 87 22 20 5b 63 61 | ).'....|\"." [ca|
|00001b90| 6c 63 2d 6b 65 79 70 61 | 64 2d 62 75 66 66 65 72 |lc-keypa|d-buffer|
|00001ba0| 20 61 72 67 20 63 61 6c | 63 2d 6b 65 79 70 61 64 | arg cal|c-keypad|
|00001bb0| 2d 70 72 65 76 2d 78 2d | 72 69 67 68 74 2d 63 6c |-prev-x-|right-cl|
|00001bc0| 69 63 6b 20 62 75 66 66 | 65 72 2d 6e 61 6d 65 20 |ick buff|er-name |
|00001bd0| 67 65 74 2d 62 75 66 66 | 65 72 2d 77 69 6e 64 6f |get-buff|er-windo|
|00001be0| 77 20 63 6f 6f 72 64 69 | 6e 61 74 65 73 2d 69 6e |w coordi|nates-in|
|00001bf0| 2d 77 69 6e 64 6f 77 2d | 70 20 63 61 6c 63 2d 6b |-window-|p calc-k|
|00001c00| 65 79 70 61 64 2d 6d 65 | 6e 75 20 66 75 6e 63 61 |eypad-me|nu funca|
|00001c10| 6c 6c 5d 20 38 29 29 0a | 0a 28 64 65 66 75 6e 20 |ll] 8)).|.(defun |
|00001c20| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 78 2d 6d 69 |calc-key|pad-x-mi|
|00001c30| 64 64 6c 65 2d 63 6c 69 | 63 6b 20 28 61 72 67 29 |ddle-cli|ck (arg)|
|00001c40| 20 22 5c 0a 48 61 6e 64 | 6c 65 20 61 20 6d 69 64 | "\.Hand|le a mid|
|00001c50| 64 6c 65 2d 62 75 74 74 | 6f 6e 20 6d 6f 75 73 65 |dle-butt|on mouse|
|00001c60| 20 63 6c 69 63 6b 20 69 | 6e 20 43 61 6c 63 20 4b | click i|n Calc K|
|00001c70| 65 79 70 61 64 20 77 69 | 6e 64 6f 77 2e 22 20 28 |eypad wi|ndow." (|
|00001c80| 62 79 74 65 2d 63 6f 64 | 65 20 22 08 85 16 00 c3 |byte-cod|e ".....|
|00001c90| 08 21 85 16 00 c4 08 21 | 85 16 00 c5 09 c4 08 21 |.!.....!|.......!|
|00001ca0| 5c 22 83 23 00 8a 08 71 | 88 c6 20 29 82 27 00 c7 |\".#...q|.. ).'..|
|00001cb0| 0a 09 5c 22 87 22 20 5b | 63 61 6c 63 2d 6b 65 79 |..\"." [|calc-key|
|00001cc0| 70 61 64 2d 62 75 66 66 | 65 72 20 61 72 67 20 63 |pad-buff|er arg c|
|00001cd0| 61 6c 63 2d 6b 65 79 70 | 61 64 2d 70 72 65 76 2d |alc-keyp|ad-prev-|
|00001ce0| 78 2d 6d 69 64 64 6c 65 | 2d 63 6c 69 63 6b 20 62 |x-middle|-click b|
|00001cf0| 75 66 66 65 72 2d 6e 61 | 6d 65 20 67 65 74 2d 62 |uffer-na|me get-b|
|00001d00| 75 66 66 65 72 2d 77 69 | 6e 64 6f 77 20 63 6f 6f |uffer-wi|ndow coo|
|00001d10| 72 64 69 6e 61 74 65 73 | 2d 69 6e 2d 77 69 6e 64 |rdinates|-in-wind|
|00001d20| 6f 77 2d 70 20 63 61 6c | 63 2d 6b 65 79 70 61 64 |ow-p cal|c-keypad|
|00001d30| 2d 6d 65 6e 75 2d 62 61 | 63 6b 20 66 75 6e 63 61 |-menu-ba|ck funca|
|00001d40| 6c 6c 5d 20 38 29 29 0a | 0a 28 64 65 66 75 6e 20 |ll] 8)).|.(defun |
|00001d50| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 6d 65 6e 75 |calc-key|pad-menu|
|00001d60| 20 6e 69 6c 20 28 69 6e | 74 65 72 61 63 74 69 76 | nil (in|teractiv|
|00001d70| 65 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c3 |e) (byte|-code ".|
|00001d80| 88 08 c4 3d 86 0b 00 c5 | c6 21 88 c7 09 54 0a 47 |...=....|.!...T.G|
|00001d90| 5c 22 89 11 88 09 0a 38 | 4a 3f 85 5c 22 00 c3 88 |\".....8|J?.\"...|
|00001da0| 82 0c 00 88 c8 20 87 22 | 20 5b 6d 61 6a 6f 72 2d |..... ."| [major-|
|00001db0| 6d 6f 64 65 20 63 61 6c | 63 2d 6b 65 79 70 61 64 |mode cal|c-keypad|
|00001dc0| 2d 6d 65 6e 75 20 63 61 | 6c 63 2d 6b 65 79 70 61 |-menu ca|lc-keypa|
|00001dd0| 64 2d 6d 65 6e 75 73 20 | 6e 69 6c 20 63 61 6c 63 |d-menus |nil calc|
|00001de0| 2d 6b 65 79 70 61 64 20 | 65 72 72 6f 72 20 22 4d |-keypad |error "M|
|00001df0| 75 73 74 20 62 65 20 69 | 6e 20 2a 43 61 6c 63 20 |ust be i|n *Calc |
|00001e00| 4b 65 79 70 61 64 2a 20 | 62 75 66 66 65 72 20 66 |Keypad* |buffer f|
|00001e10| 6f 72 20 74 68 69 73 20 | 63 6f 6d 6d 61 6e 64 22 |or this |command"|
|00001e20| 20 25 20 63 61 6c 63 2d | 6b 65 79 70 61 64 2d 72 | % calc-|keypad-r|
|00001e30| 65 64 72 61 77 5d 20 34 | 29 29 0a 0a 28 64 65 66 |edraw] 4|))..(def|
|00001e40| 75 6e 20 63 61 6c 63 2d | 6b 65 79 70 61 64 2d 6d |un calc-|keypad-m|
|00001e50| 65 6e 75 2d 62 61 63 6b | 20 6e 69 6c 20 28 69 6e |enu-back| nil (in|
|00001e60| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00001e70| 2d 63 6f 64 65 20 22 c3 | 88 08 c4 3d 86 0b 00 c5 |-code ".|...=....|
|00001e80| c6 21 88 c7 09 0a 47 5c | 5c 53 0a 47 5c 22 89 11 |.!....G\|\S.G\"..|
|00001e90| 88 09 0a 38 4a 3f 85 25 | 00 c3 88 82 0c 00 88 c8 |...8J?.%|........|
|00001ea0| 20 87 22 20 5b 6d 61 6a | 6f 72 2d 6d 6f 64 65 20 | ." [maj|or-mode |
|00001eb0| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 6d 65 6e 75 |calc-key|pad-menu|
|00001ec0| 20 63 61 6c 63 2d 6b 65 | 79 70 61 64 2d 6d 65 6e | calc-ke|ypad-men|
|00001ed0| 75 73 20 6e 69 6c 20 63 | 61 6c 63 2d 6b 65 79 70 |us nil c|alc-keyp|
|00001ee0| 61 64 20 65 72 72 6f 72 | 20 22 4d 75 73 74 20 62 |ad error| "Must b|
|00001ef0| 65 20 69 6e 20 2a 43 61 | 6c 63 20 4b 65 79 70 61 |e in *Ca|lc Keypa|
|00001f00| 64 2a 20 62 75 66 66 65 | 72 20 66 6f 72 20 74 68 |d* buffe|r for th|
|00001f10| 69 73 20 63 6f 6d 6d 61 | 6e 64 22 20 25 20 63 61 |is comma|nd" % ca|
|00001f20| 6c 63 2d 6b 65 79 70 61 | 64 2d 72 65 64 72 61 77 |lc-keypa|d-redraw|
|00001f30| 5d 20 34 29 29 0a 0a 28 | 64 65 66 75 6e 20 63 61 |] 4))..(|defun ca|
|00001f40| 6c 63 2d 6b 65 79 70 61 | 64 2d 73 74 6f 72 65 20 |lc-keypa|d-store |
|00001f50| 6e 69 6c 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |nil (int|eractive|
|00001f60| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00001f70| c2 89 10 87 22 20 5b 63 | 61 6c 63 2d 6b 65 79 70 |...." [c|alc-keyp|
|00001f80| 61 64 2d 69 6e 70 75 74 | 20 6e 69 6c 20 22 53 54 |ad-input| nil "ST|
|00001f90| 4f 22 5d 20 32 29 29 0a | 0a 28 64 65 66 75 6e 20 |O"] 2)).|.(defun |
|00001fa0| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 72 65 63 61 |calc-key|pad-reca|
|00001fb0| 6c 6c 20 6e 69 6c 20 28 | 69 6e 74 65 72 61 63 74 |ll nil (|interact|
|00001fc0| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00001fd0| 22 c1 88 c2 89 10 87 22 | 20 5b 63 61 6c 63 2d 6b |"......"| [calc-k|
|00001fe0| 65 79 70 61 64 2d 69 6e | 70 75 74 20 6e 69 6c 20 |eypad-in|put nil |
|00001ff0| 22 52 43 4c 22 5d 20 32 | 29 29 0a 0a 28 64 65 66 |"RCL"] 2|))..(def|
|00002000| 75 6e 20 63 61 6c 63 2d | 70 61 63 6b 2d 69 6e 74 |un calc-|pack-int|
|00002010| 65 72 76 61 6c 20 28 6d | 6f 64 65 29 20 28 69 6e |erval (m|ode) (in|
|00002020| 74 65 72 61 63 74 69 76 | 65 20 22 70 22 29 20 28 |teractiv|e "p") (|
|00002030| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 08 c2 57 |byte-cod|e "....W|
|00002040| 86 0b 00 08 c3 56 85 11 | 00 c4 c5 21 88 c6 c7 08 |.....V..|...!....|
|00002050| 5a 21 87 22 20 5b 6d 6f | 64 65 20 6e 69 6c 20 30 |Z!." [mo|de nil 0|
|00002060| 20 33 20 65 72 72 6f 72 | 20 22 4f 70 65 6e 2f 63 | 3 error| "Open/c|
|00002070| 6c 6f 73 65 20 63 6f 64 | 65 20 73 68 6f 75 6c 64 |lose cod|e should|
|00002080| 20 62 65 20 69 6e 20 74 | 68 65 20 72 61 6e 67 65 | be in t|he range|
|00002090| 20 66 72 6f 6d 20 30 20 | 74 6f 20 33 2e 22 20 63 | from 0 |to 3." c|
|000020a0| 61 6c 63 2d 70 61 63 6b | 20 2d 36 5d 20 34 29 29 |alc-pack| -6] 4))|
|000020b0| 0a 0a 28 64 65 66 75 6e | 20 63 61 6c 63 2d 6b 65 |..(defun| calc-ke|
|000020c0| 79 70 61 64 2d 65 78 65 | 63 75 74 65 20 6e 69 6c |ypad-exe|cute nil|
|000020d0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 20 28 | (intera|ctive) (|
|000020e0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c3 88 c8 18 c9 |byte-cod|e ".....|
|000020f0| 19 c3 1a c3 1c c3 1d 8a | ca 20 88 cb 08 21 89 14 |........|. ...!..|
|00002100| 88 cc 0c 21 89 15 88 0d | cd 3e 86 2a 00 0a 85 2a |...!....|.>.*...*|
|00002110| 00 ce cf 0c 5c 22 83 49 | 00 0c 0c 47 53 48 89 16 |....\".I|...GSH..|
|00002120| 06 88 d0 0d 21 88 d1 11 | c7 12 08 d2 0c 21 d3 51 |....!...|.....!.Q|
|00002130| 89 10 82 4c 00 0d 09 3d | 85 54 00 c3 88 82 10 00 |...L...=|.T......|
|00002140| 29 88 d4 d5 21 88 d6 0d | 21 83 66 00 d0 0d 21 82 |)...!...|!.f...!.|
|00002150| 6c 00 d7 d8 d2 0c 21 5c | 22 2d 87 22 20 5b 70 72 |l.....!\|"-." [pr|
|00002160| 6f 6d 70 74 20 66 6c 75 | 73 68 20 70 72 65 66 69 |ompt flu|sh prefi|
|00002170| 78 20 6e 69 6c 20 6b 65 | 79 73 20 63 6d 64 20 6c |x nil ke|ys cmd l|
|00002180| 61 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 63 68 61 72 |ast-comm|and-char|
|00002190| 20 74 20 22 43 61 6c 63 | 20 6b 65 79 73 74 72 6f | t "Calc| keystro|
|000021a0| 6b 65 73 3a 20 22 20 78 | 2d 66 6c 75 73 68 2d 6d |kes: " x|-flush-m|
|000021b0| 6f 75 73 65 2d 71 75 65 | 75 65 20 63 61 6c 63 2d |ouse-que|ue calc-|
|000021c0| 73 65 6c 65 63 74 2d 62 | 75 66 66 65 72 20 72 65 |select-b|uffer re|
|000021d0| 61 64 2d 6b 65 79 2d 73 | 65 71 75 65 6e 63 65 20 |ad-key-s|equence |
|000021e0| 6b 65 79 2d 62 69 6e 64 | 69 6e 67 20 28 63 61 6c |key-bind|ing (cal|
|000021f0| 63 2d 69 6e 76 65 72 73 | 65 20 63 61 6c 63 2d 68 |c-invers|e calc-h|
|00002200| 79 70 65 72 62 6f 6c 69 | 63 20 75 6e 69 76 65 72 |yperboli|c univer|
|00002210| 73 61 6c 2d 61 72 67 75 | 6d 65 6e 74 20 64 69 67 |sal-argu|ment dig|
|00002220| 69 74 2d 61 72 67 75 6d | 65 6e 74 20 6e 65 67 61 |it-argum|ent nega|
|00002230| 74 69 76 65 2d 61 72 67 | 75 6d 65 6e 74 29 20 73 |tive-arg|ument) s|
|00002240| 74 72 69 6e 67 2d 6d 61 | 74 63 68 20 22 5c 5c 60 |tring-ma|tch "\\`|
|00002250| 1b 3f 5b 2d 30 2d 39 5d | 5c 5c 27 22 20 63 6f 6d |.?[-0-9]|\\'" com|
|00002260| 6d 61 6e 64 2d 65 78 65 | 63 75 74 65 20 6e 6f 74 |mand-exe|cute not|
|00002270| 2d 61 6e 79 2d 6d 6f 72 | 65 20 6b 65 79 2d 64 65 |-any-mor|e key-de|
|00002280| 73 63 72 69 70 74 69 6f | 6e 20 22 20 22 20 6d 65 |scriptio|n " " me|
|00002290| 73 73 61 67 65 20 22 22 | 20 63 6f 6d 6d 61 6e 64 |ssage ""| command|
|000022a0| 70 20 65 72 72 6f 72 20 | 22 4e 6f 74 20 61 20 43 |p error |"Not a C|
|000022b0| 61 6c 63 20 63 6f 6d 6d | 61 6e 64 3a 20 25 73 22 |alc comm|and: %s"|
|000022c0| 5d 20 31 33 29 29 0a 0a | 28 64 65 66 76 61 72 20 |] 13))..|(defvar |
|000022d0| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 6c 61 79 6f |calc-key|pad-layo|
|000022e0| 75 74 20 28 71 75 6f 74 | 65 20 28 28 28 22 45 4e |ut (quot|e ((("EN|
|000022f0| 54 45 52 22 20 63 61 6c | 63 2d 65 6e 74 65 72 20 |TER" cal|c-enter |
|00002300| 63 61 6c 63 2d 72 6f 6c | 6c 2d 64 6f 77 6e 20 63 |calc-rol|l-down c|
|00002310| 61 6c 63 2d 72 6f 6c 6c | 2d 75 70 20 63 61 6c 63 |alc-roll|-up calc|
|00002320| 2d 6f 76 65 72 29 20 28 | 22 45 4e 54 45 52 22 20 |-over) (|"ENTER" |
|00002330| 63 61 6c 63 2d 65 6e 74 | 65 72 20 63 61 6c 63 2d |calc-ent|er calc-|
|00002340| 72 6f 6c 6c 2d 64 6f 77 | 6e 20 63 61 6c 63 2d 72 |roll-dow|n calc-r|
|00002350| 6f 6c 6c 2d 75 70 20 63 | 61 6c 63 2d 6f 76 65 72 |oll-up c|alc-over|
|00002360| 29 20 28 22 2b 2f 2d 22 | 20 63 61 6c 63 2d 63 68 |) ("+/-"| calc-ch|
|00002370| 61 6e 67 65 2d 73 69 67 | 6e 20 63 61 6c 63 2d 69 |ange-sig|n calc-i|
|00002380| 6e 76 20 28 70 72 6f 67 | 6e 20 2d 34 20 63 61 6c |nv (prog|n -4 cal|
|00002390| 63 2d 70 61 63 6b 29 29 | 20 28 22 45 45 58 22 20 |c-pack))| ("EEX" |
|000023a0| 28 22 65 22 29 20 28 70 | 72 6f 67 6e 20 63 61 6c |("e") (p|rogn cal|
|000023b0| 63 2d 6e 75 6d 2d 70 72 | 65 66 69 78 20 63 61 6c |c-num-pr|efix cal|
|000023c0| 63 2d 70 61 63 6b 2d 69 | 6e 74 65 72 76 61 6c 29 |c-pack-i|nterval)|
|000023d0| 20 28 70 72 6f 67 6e 20 | 2d 35 20 63 61 6c 63 2d | (progn |-5 calc-|
|000023e0| 70 61 63 6b 29 29 20 28 | 22 55 4e 44 4f 22 20 63 |pack)) (|"UNDO" c|
|000023f0| 61 6c 63 2d 75 6e 64 6f | 20 63 61 6c 63 2d 72 65 |alc-undo| calc-re|
|00002400| 64 6f 20 63 61 6c 63 2d | 6c 61 73 74 2d 61 72 67 |do calc-|last-arg|
|00002410| 73 29 20 28 22 3c 2d 22 | 20 63 61 6c 63 2d 70 6f |s) ("<-"| calc-po|
|00002420| 70 20 28 70 72 6f 67 6e | 20 30 20 63 61 6c 63 2d |p (progn| 0 calc-|
|00002430| 70 6f 70 29 20 28 70 72 | 6f 67 6e 20 63 61 6c 63 |pop) (pr|ogn calc|
|00002440| 2d 6e 75 6d 2d 70 72 65 | 66 69 78 20 63 61 6c 63 |-num-pre|fix calc|
|00002450| 2d 70 6f 70 29 29 29 20 | 28 28 22 49 4e 56 22 20 |-pop))) |(("INV" |
|00002460| 63 61 6c 63 2d 69 6e 76 | 65 72 73 65 29 20 28 22 |calc-inv|erse) ("|
|00002470| 37 22 20 28 22 37 22 29 | 20 63 61 6c 63 2d 72 6f |7" ("7")| calc-ro|
|00002480| 75 6e 64 29 20 28 22 38 | 22 20 28 22 38 22 29 20 |und) ("8|" ("8") |
|00002490| 28 70 72 6f 67 6e 20 32 | 20 63 61 6c 63 2d 63 6c |(progn 2| calc-cl|
|000024a0| 65 61 6e 2d 6e 75 6d 29 | 29 20 28 22 39 22 20 28 |ean-num)|) ("9" (|
|000024b0| 22 39 22 29 20 63 61 6c | 63 2d 66 6c 6f 61 74 29 |"9") cal|c-float)|
|000024c0| 20 28 22 2f 22 20 63 61 | 6c 63 2d 64 69 76 69 64 | ("/" ca|lc-divid|
|000024d0| 65 20 28 70 72 6f 67 6e | 20 63 61 6c 63 2d 69 6e |e (progn| calc-in|
|000024e0| 76 65 72 73 65 20 63 61 | 6c 63 2d 70 6f 77 65 72 |verse ca|lc-power|
|000024f0| 29 29 29 20 28 28 22 48 | 59 50 22 20 63 61 6c 63 |))) (("H|YP" calc|
|00002500| 2d 68 79 70 65 72 62 6f | 6c 69 63 29 20 28 22 34 |-hyperbo|lic) ("4|
|00002510| 22 20 28 22 34 22 29 20 | 63 61 6c 63 2d 6c 6e 20 |" ("4") |calc-ln |
|00002520| 63 61 6c 63 2d 6c 6f 67 | 31 30 29 20 28 22 35 22 |calc-log|10) ("5"|
|00002530| 20 28 22 35 22 29 20 63 | 61 6c 63 2d 65 78 70 20 | ("5") c|alc-exp |
|00002540| 63 61 6c 63 2d 65 78 70 | 31 30 29 20 28 22 36 22 |calc-exp|10) ("6"|
|00002550| 20 28 22 36 22 29 20 63 | 61 6c 63 2d 61 62 73 29 | ("6") c|alc-abs)|
|00002560| 20 28 22 2a 22 20 63 61 | 6c 63 2d 74 69 6d 65 73 | ("*" ca|lc-times|
|00002570| 20 63 61 6c 63 2d 70 6f | 77 65 72 29 29 20 28 28 | calc-po|wer)) ((|
|00002580| 22 45 58 45 43 22 20 63 | 61 6c 63 2d 6b 65 79 70 |"EXEC" c|alc-keyp|
|00002590| 61 64 2d 65 78 65 63 75 | 74 65 29 20 28 22 31 22 |ad-execu|te) ("1"|
|000025a0| 20 28 22 31 22 29 20 63 | 61 6c 63 2d 61 72 63 73 | ("1") c|alc-arcs|
|000025b0| 69 6e 20 63 61 6c 63 2d | 73 69 6e 29 20 28 22 32 |in calc-|sin) ("2|
|000025c0| 22 20 28 22 32 22 29 20 | 63 61 6c 63 2d 61 72 63 |" ("2") |calc-arc|
|000025d0| 63 6f 73 20 63 61 6c 63 | 2d 63 6f 73 29 20 28 22 |cos calc|-cos) ("|
|000025e0| 33 22 20 28 22 33 22 29 | 20 63 61 6c 63 2d 61 72 |3" ("3")| calc-ar|
|000025f0| 63 74 61 6e 20 63 61 6c | 63 2d 74 61 6e 29 20 28 |ctan cal|c-tan) (|
|00002600| 22 2d 22 20 63 61 6c 63 | 2d 6d 69 6e 75 73 20 63 |"-" calc|-minus c|
|00002610| 61 6c 63 2d 63 6f 6e 6a | 29 29 20 28 28 22 4f 46 |alc-conj|)) (("OF|
|00002620| 46 22 20 63 61 6c 63 2d | 6b 65 79 70 61 64 2d 6f |F" calc-|keypad-o|
|00002630| 66 66 29 20 28 22 30 22 | 20 28 22 30 22 29 20 63 |ff) ("0"| ("0") c|
|00002640| 61 6c 63 2d 69 6d 61 67 | 69 6e 61 72 79 29 20 28 |alc-imag|inary) (|
|00002650| 22 2e 22 20 28 22 2e 22 | 29 20 63 61 6c 63 2d 70 |"." ("."|) calc-p|
|00002660| 72 65 63 69 73 69 6f 6e | 29 20 28 22 50 49 22 20 |recision|) ("PI" |
|00002670| 63 61 6c 63 2d 70 69 29 | 20 28 22 2b 22 20 63 61 |calc-pi)| ("+" ca|
|00002680| 6c 63 2d 70 6c 75 73 20 | 63 61 6c 63 2d 73 71 72 |lc-plus |calc-sqr|
|00002690| 74 29 29 29 29 29 0a 0a | 28 64 65 66 76 61 72 20 |t)))))..|(defvar |
|000026a0| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 6d 65 6e 75 |calc-key|pad-menu|
|000026b0| 73 20 28 71 75 6f 74 65 | 20 28 63 61 6c 63 2d 6b |s (quote| (calc-k|
|000026c0| 65 79 70 61 64 2d 6d 61 | 74 68 2d 6d 65 6e 75 20 |eypad-ma|th-menu |
|000026d0| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 66 75 6e 63 |calc-key|pad-func|
|000026e0| 73 2d 6d 65 6e 75 20 63 | 61 6c 63 2d 6b 65 79 70 |s-menu c|alc-keyp|
|000026f0| 61 64 2d 62 69 6e 61 72 | 79 2d 6d 65 6e 75 20 63 |ad-binar|y-menu c|
|00002700| 61 6c 63 2d 6b 65 79 70 | 61 64 2d 76 65 63 74 6f |alc-keyp|ad-vecto|
|00002710| 72 2d 6d 65 6e 75 20 63 | 61 6c 63 2d 6b 65 79 70 |r-menu c|alc-keyp|
|00002720| 61 64 2d 6d 6f 64 65 73 | 2d 6d 65 6e 75 20 63 61 |ad-modes|-menu ca|
|00002730| 6c 63 2d 6b 65 79 70 61 | 64 2d 75 73 65 72 2d 6d |lc-keypa|d-user-m|
|00002740| 65 6e 75 29 29 29 0a 0a | 28 64 65 66 76 61 72 20 |enu)))..|(defvar |
|00002750| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 6d 61 74 68 |calc-key|pad-math|
|00002760| 2d 6d 65 6e 75 20 28 71 | 75 6f 74 65 20 28 28 28 |-menu (q|uote (((|
|00002770| 22 46 4c 52 22 20 63 61 | 6c 63 2d 66 6c 6f 6f 72 |"FLR" ca|lc-floor|
|00002780| 29 20 28 22 43 45 49 4c | 22 20 63 61 6c 63 2d 63 |) ("CEIL|" calc-c|
|00002790| 65 69 6c 69 6e 67 29 20 | 28 22 52 4e 44 22 20 63 |eiling) |("RND" c|
|000027a0| 61 6c 63 2d 72 6f 75 6e | 64 29 20 28 22 54 52 4e |alc-roun|d) ("TRN|
|000027b0| 43 22 20 63 61 6c 63 2d | 74 72 75 6e 63 29 20 28 |C" calc-|trunc) (|
|000027c0| 22 43 4c 4e 32 22 20 28 | 70 72 6f 67 6e 20 32 20 |"CLN2" (|progn 2 |
|000027d0| 63 61 6c 63 2d 63 6c 65 | 61 6e 2d 6e 75 6d 29 29 |calc-cle|an-num))|
|000027e0| 20 28 22 46 4c 54 22 20 | 63 61 6c 63 2d 66 6c 6f | ("FLT" |calc-flo|
|000027f0| 61 74 29 29 20 28 28 22 | 4c 4e 22 20 63 61 6c 63 |at)) (("|LN" calc|
|00002800| 2d 6c 6e 29 20 28 22 45 | 58 50 22 20 63 61 6c 63 |-ln) ("E|XP" calc|
|00002810| 2d 65 78 70 29 20 28 22 | 22 20 6e 69 6c 29 20 28 |-exp) ("|" nil) (|
|00002820| 22 41 42 53 22 20 63 61 | 6c 63 2d 61 62 73 29 20 |"ABS" ca|lc-abs) |
|00002830| 28 22 49 44 49 56 22 20 | 63 61 6c 63 2d 69 64 69 |("IDIV" |calc-idi|
|00002840| 76 29 20 28 22 4d 4f 44 | 22 20 63 61 6c 63 2d 6d |v) ("MOD|" calc-m|
|00002850| 6f 64 29 29 20 28 28 22 | 53 49 4e 22 20 63 61 6c |od)) (("|SIN" cal|
|00002860| 63 2d 73 69 6e 29 20 28 | 22 43 4f 53 22 20 63 61 |c-sin) (|"COS" ca|
|00002870| 6c 63 2d 63 6f 73 29 20 | 28 22 54 41 4e 22 20 63 |lc-cos) |("TAN" c|
|00002880| 61 6c 63 2d 74 61 6e 29 | 20 28 22 53 51 52 54 22 |alc-tan)| ("SQRT"|
|00002890| 20 63 61 6c 63 2d 73 71 | 72 74 29 20 28 22 79 5e | calc-sq|rt) ("y^|
|000028a0| 78 22 20 63 61 6c 63 2d | 70 6f 77 65 72 29 20 28 |x" calc-|power) (|
|000028b0| 22 31 2f 78 22 20 63 61 | 6c 63 2d 69 6e 76 29 29 |"1/x" ca|lc-inv))|
|000028c0| 29 29 29 0a 0a 28 64 65 | 66 76 61 72 20 63 61 6c |)))..(de|fvar cal|
|000028d0| 63 2d 6b 65 79 70 61 64 | 2d 66 75 6e 63 73 2d 6d |c-keypad|-funcs-m|
|000028e0| 65 6e 75 20 28 71 75 6f | 74 65 20 28 28 28 22 49 |enu (quo|te ((("I|
|000028f0| 47 41 4d 22 20 63 61 6c | 63 2d 69 6e 63 2d 67 61 |GAM" cal|c-inc-ga|
|00002900| 6d 6d 61 29 20 28 22 42 | 45 54 41 22 20 63 61 6c |mma) ("B|ETA" cal|
|00002910| 63 2d 62 65 74 61 29 20 | 28 22 49 42 45 54 22 20 |c-beta) |("IBET" |
|00002920| 63 61 6c 63 2d 69 6e 63 | 2d 62 65 74 61 29 20 28 |calc-inc|-beta) (|
|00002930| 22 45 52 46 22 20 63 61 | 6c 63 2d 65 72 66 29 20 |"ERF" ca|lc-erf) |
|00002940| 28 22 42 45 53 4a 22 20 | 63 61 6c 63 2d 62 65 73 |("BESJ" |calc-bes|
|00002950| 73 65 6c 2d 4a 29 20 28 | 22 42 45 53 59 22 20 63 |sel-J) (|"BESY" c|
|00002960| 61 6c 63 2d 62 65 73 73 | 65 6c 2d 59 29 29 20 28 |alc-bess|el-Y)) (|
|00002970| 28 22 49 4d 41 47 22 20 | 63 61 6c 63 2d 69 6d 61 |("IMAG" |calc-ima|
|00002980| 67 69 6e 61 72 79 29 20 | 28 22 43 4f 4e 4a 22 20 |ginary) |("CONJ" |
|00002990| 63 61 6c 63 2d 63 6f 6e | 6a 29 20 28 22 52 45 22 |calc-con|j) ("RE"|
|000029a0| 20 63 61 6c 63 2d 72 65 | 20 63 61 6c 63 2d 69 6d | calc-re| calc-im|
|000029b0| 29 20 28 22 41 54 4e 32 | 22 20 63 61 6c 63 2d 61 |) ("ATN2|" calc-a|
|000029c0| 72 63 74 61 6e 32 29 20 | 28 22 52 41 4e 44 22 20 |rctan2) |("RAND" |
|000029d0| 63 61 6c 63 2d 72 61 6e | 64 6f 6d 29 20 28 22 52 |calc-ran|dom) ("R|
|000029e0| 41 47 4e 22 20 63 61 6c | 63 2d 72 61 6e 64 6f 6d |AGN" cal|c-random|
|000029f0| 2d 61 67 61 69 6e 29 29 | 20 28 28 22 47 43 44 22 |-again))| (("GCD"|
|00002a00| 20 63 61 6c 63 2d 67 63 | 64 20 63 61 6c 63 2d 6c | calc-gc|d calc-l|
|00002a10| 63 6d 29 20 28 22 46 41 | 43 54 22 20 63 61 6c 63 |cm) ("FA|CT" calc|
|00002a20| 2d 66 61 63 74 6f 72 69 | 61 6c 20 63 61 6c 63 2d |-factori|al calc-|
|00002a30| 67 61 6d 6d 61 29 20 28 | 22 44 46 43 54 22 20 63 |gamma) (|"DFCT" c|
|00002a40| 61 6c 63 2d 64 6f 75 62 | 6c 65 2d 66 61 63 74 6f |alc-doub|le-facto|
|00002a50| 72 69 61 6c 29 20 28 22 | 42 4e 4f 4d 22 20 63 61 |rial) ("|BNOM" ca|
|00002a60| 6c 63 2d 63 68 6f 6f 73 | 65 29 20 28 22 50 45 52 |lc-choos|e) ("PER|
|00002a70| 4d 22 20 63 61 6c 63 2d | 70 65 72 6d 29 20 28 22 |M" calc-|perm) ("|
|00002a80| 4e 58 54 50 22 20 63 61 | 6c 63 2d 6e 65 78 74 2d |NXTP" ca|lc-next-|
|00002a90| 70 72 69 6d 65 20 63 61 | 6c 63 2d 70 72 65 76 2d |prime ca|lc-prev-|
|00002aa0| 70 72 69 6d 65 29 29 29 | 29 29 0a 0a 28 64 65 66 |prime)))|))..(def|
|00002ab0| 76 61 72 20 63 61 6c 63 | 2d 6b 65 79 70 61 64 2d |var calc|-keypad-|
|00002ac0| 62 69 6e 61 72 79 2d 6d | 65 6e 75 20 28 71 75 6f |binary-m|enu (quo|
|00002ad0| 74 65 20 28 28 28 22 41 | 4e 44 22 20 63 61 6c 63 |te ((("A|ND" calc|
|00002ae0| 2d 61 6e 64 20 63 61 6c | 63 2d 64 69 66 66 29 20 |-and cal|c-diff) |
|00002af0| 28 22 4f 52 22 20 63 61 | 6c 63 2d 6f 72 29 20 28 |("OR" ca|lc-or) (|
|00002b00| 22 58 4f 52 22 20 63 61 | 6c 63 2d 78 6f 72 29 20 |"XOR" ca|lc-xor) |
|00002b10| 28 22 4e 4f 54 22 20 63 | 61 6c 63 2d 6e 6f 74 20 |("NOT" c|alc-not |
|00002b20| 63 61 6c 63 2d 63 6c 69 | 70 29 20 28 22 4c 53 48 |calc-cli|p) ("LSH|
|00002b30| 22 20 63 61 6c 63 2d 6c | 73 68 69 66 74 2d 62 69 |" calc-l|shift-bi|
|00002b40| 6e 61 72 79 20 63 61 6c | 63 2d 72 6f 74 61 74 65 |nary cal|c-rotate|
|00002b50| 2d 62 69 6e 61 72 79 29 | 20 28 22 52 53 48 22 20 |-binary)| ("RSH" |
|00002b60| 63 61 6c 63 2d 72 73 68 | 69 66 74 2d 62 69 6e 61 |calc-rsh|ift-bina|
|00002b70| 72 79 29 29 20 28 28 22 | 44 45 43 22 20 63 61 6c |ry)) (("|DEC" cal|
|00002b80| 63 2d 64 65 63 69 6d 61 | 6c 2d 72 61 64 69 78 29 |c-decima|l-radix)|
|00002b90| 20 28 22 48 45 58 22 20 | 63 61 6c 63 2d 68 65 78 | ("HEX" |calc-hex|
|00002ba0| 2d 72 61 64 69 78 29 20 | 28 22 4f 43 54 22 20 63 |-radix) |("OCT" c|
|00002bb0| 61 6c 63 2d 6f 63 74 61 | 6c 2d 72 61 64 69 78 29 |alc-octa|l-radix)|
|00002bc0| 20 28 22 42 49 4e 22 20 | 63 61 6c 63 2d 62 69 6e | ("BIN" |calc-bin|
|00002bd0| 61 72 79 2d 72 61 64 69 | 78 29 20 28 22 57 53 49 |ary-radi|x) ("WSI|
|00002be0| 5a 22 20 63 61 6c 63 2d | 77 6f 72 64 2d 73 69 7a |Z" calc-|word-siz|
|00002bf0| 65 29 20 28 22 41 52 53 | 48 22 20 63 61 6c 63 2d |e) ("ARS|H" calc-|
|00002c00| 72 73 68 69 66 74 2d 61 | 72 69 74 68 29 29 20 28 |rshift-a|rith)) (|
|00002c10| 28 22 41 22 20 28 22 41 | 22 29 29 20 28 22 42 22 |("A" ("A|")) ("B"|
|00002c20| 20 28 22 42 22 29 29 20 | 28 22 43 22 20 28 22 43 | ("B")) |("C" ("C|
|00002c30| 22 29 29 20 28 22 44 22 | 20 28 22 44 22 29 29 20 |")) ("D"| ("D")) |
|00002c40| 28 22 45 22 20 28 22 45 | 22 29 29 20 28 22 46 22 |("E" ("E|")) ("F"|
|00002c50| 20 28 22 46 22 29 29 29 | 29 29 29 0a 0a 28 64 65 | ("F")))|)))..(de|
|00002c60| 66 76 61 72 20 63 61 6c | 63 2d 6b 65 79 70 61 64 |fvar cal|c-keypad|
|00002c70| 2d 76 65 63 74 6f 72 2d | 6d 65 6e 75 20 28 71 75 |-vector-|menu (qu|
|00002c80| 6f 74 65 20 28 28 28 22 | 53 55 4d 22 20 63 61 6c |ote ((("|SUM" cal|
|00002c90| 63 2d 76 65 63 74 6f 72 | 2d 73 75 6d 20 63 61 6c |c-vector|-sum cal|
|00002ca0| 63 2d 76 65 63 74 6f 72 | 2d 61 6c 74 2d 73 75 6d |c-vector|-alt-sum|
|00002cb0| 20 63 61 6c 63 2d 76 65 | 63 74 6f 72 2d 6d 65 61 | calc-ve|ctor-mea|
|00002cc0| 6e 29 20 28 22 50 52 4f | 44 22 20 63 61 6c 63 2d |n) ("PRO|D" calc-|
|00002cd0| 76 65 63 74 6f 72 2d 70 | 72 6f 64 75 63 74 20 6e |vector-p|roduct n|
|00002ce0| 69 6c 20 63 61 6c 63 2d | 76 65 63 74 6f 72 2d 73 |il calc-|vector-s|
|00002cf0| 64 65 76 29 20 28 22 4d | 41 58 22 20 63 61 6c 63 |dev) ("M|AX" calc|
|00002d00| 2d 76 65 63 74 6f 72 2d | 6d 61 78 20 63 61 6c 63 |-vector-|max calc|
|00002d10| 2d 76 65 63 74 6f 72 2d | 6d 69 6e 20 63 61 6c 63 |-vector-|min calc|
|00002d20| 2d 76 65 63 74 6f 72 2d | 6d 65 64 69 61 6e 29 20 |-vector-|median) |
|00002d30| 28 22 4d 41 50 2a 22 20 | 28 6c 61 6d 62 64 61 20 |("MAP*" |(lambda |
|00002d40| 6e 69 6c 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |nil (int|eractive|
|00002d50| 29 20 28 63 61 6c 63 2d | 6d 61 70 20 28 71 75 6f |) (calc-|map (quo|
|00002d60| 74 65 20 28 32 20 63 61 | 6c 63 46 75 6e 63 2d 6d |te (2 ca|lcFunc-m|
|00002d70| 75 6c 20 22 2a 22 29 29 | 29 29 29 20 28 22 4d 41 |ul "*"))|))) ("MA|
|00002d80| 50 5e 22 20 28 6c 61 6d | 62 64 61 20 6e 69 6c 20 |P^" (lam|bda nil |
|00002d90| 28 69 6e 74 65 72 61 63 | 74 69 76 65 29 20 28 63 |(interac|tive) (c|
|00002da0| 61 6c 63 2d 6d 61 70 20 | 28 71 75 6f 74 65 20 28 |alc-map |(quote (|
|00002db0| 32 20 63 61 6c 63 46 75 | 6e 63 2d 70 6f 77 20 22 |2 calcFu|nc-pow "|
|00002dc0| 5e 22 29 29 29 29 29 20 | 28 22 4d 41 50 24 22 20 |^"))))) |("MAP$" |
|00002dd0| 63 61 6c 63 2d 6d 61 70 | 2d 73 74 61 63 6b 29 29 |calc-map|-stack))|
|00002de0| 20 28 28 22 4d 49 4e 56 | 22 20 63 61 6c 63 2d 69 | (("MINV|" calc-i|
|00002df0| 6e 76 29 20 28 22 4d 44 | 45 54 22 20 63 61 6c 63 |nv) ("MD|ET" calc|
|00002e00| 2d 6d 64 65 74 29 20 28 | 22 4d 54 52 4e 22 20 63 |-mdet) (|"MTRN" c|
|00002e10| 61 6c 63 2d 74 72 61 6e | 73 70 6f 73 65 20 63 61 |alc-tran|spose ca|
|00002e20| 6c 63 2d 63 6f 6e 6a 2d | 74 72 61 6e 73 70 6f 73 |lc-conj-|transpos|
|00002e30| 65 29 20 28 22 49 44 4e | 54 22 20 28 70 72 6f 67 |e) ("IDN|T" (prog|
|00002e40| 6e 20 63 61 6c 63 2d 6e | 75 6d 2d 70 72 65 66 69 |n calc-n|um-prefi|
|00002e50| 78 20 63 61 6c 63 2d 69 | 64 65 6e 74 29 29 20 28 |x calc-i|dent)) (|
|00002e60| 22 43 52 53 53 22 20 63 | 61 6c 63 2d 63 72 6f 73 |"CRSS" c|alc-cros|
|00002e70| 73 29 20 28 22 5c 22 78 | 5c 22 22 20 22 1b 78 63 |s) ("\"x|\"" ".xc|
|00002e80| 61 6c 63 2d 61 6c 67 65 | 62 72 61 69 63 2d 65 6e |alc-alge|braic-en|
|00002e90| 74 72 79 0d 78 0d 22 20 | 22 1b 78 63 61 6c 63 2d |try.x." |".xcalc-|
|00002ea0| 61 6c 67 65 62 72 61 69 | 63 2d 65 6e 74 72 79 0d |algebrai|c-entry.|
|00002eb0| 79 0d 22 20 22 1b 78 63 | 61 6c 63 2d 61 6c 67 65 |y." ".xc|alc-alge|
|00002ec0| 62 72 61 69 63 2d 65 6e | 74 72 79 0d 7a 0d 22 20 |braic-en|try.z." |
|00002ed0| 22 1b 78 63 61 6c 63 2d | 61 6c 67 65 62 72 61 69 |".xcalc-|algebrai|
|00002ee0| 63 2d 65 6e 74 72 79 0d | 74 0d 22 29 29 20 28 28 |c-entry.|t.")) ((|
|00002ef0| 22 50 41 43 4b 22 20 63 | 61 6c 63 2d 70 61 63 6b |"PACK" c|alc-pack|
|00002f00| 29 20 28 22 55 4e 50 4b | 22 20 63 61 6c 63 2d 75 |) ("UNPK|" calc-u|
|00002f10| 6e 70 61 63 6b 29 20 28 | 22 49 4e 44 58 22 20 28 |npack) (|"INDX" (|
|00002f20| 70 72 6f 67 6e 20 63 61 | 6c 63 2d 6e 75 6d 2d 70 |progn ca|lc-num-p|
|00002f30| 72 65 66 69 78 20 63 61 | 6c 63 2d 69 6e 64 65 78 |refix ca|lc-index|
|00002f40| 29 20 22 15 1b 78 63 61 | 6c 63 2d 69 6e 64 65 78 |) "..xca|lc-index|
|00002f50| 0d 22 29 20 28 22 42 4c | 44 22 20 28 70 72 6f 67 |.") ("BL|D" (prog|
|00002f60| 6e 20 63 61 6c 63 2d 6e | 75 6d 2d 70 72 65 66 69 |n calc-n|um-prefi|
|00002f70| 78 20 63 61 6c 63 2d 62 | 75 69 6c 64 2d 76 65 63 |x calc-b|uild-vec|
|00002f80| 74 6f 72 29 29 20 28 22 | 4c 45 4e 22 20 63 61 6c |tor)) ("|LEN" cal|
|00002f90| 63 2d 76 6c 65 6e 67 74 | 68 29 20 28 22 2e 2e 2e |c-vlengt|h) ("...|
|00002fa0| 22 20 63 61 6c 63 2d 66 | 75 6c 6c 2d 76 65 63 74 |" calc-f|ull-vect|
|00002fb0| 6f 72 73 29 29 29 29 29 | 0a 0a 28 64 65 66 76 61 |ors)))))|..(defva|
|00002fc0| 72 20 63 61 6c 63 2d 6b | 65 79 70 61 64 2d 6d 6f |r calc-k|eypad-mo|
|00002fd0| 64 65 73 2d 6d 65 6e 75 | 20 28 71 75 6f 74 65 20 |des-menu| (quote |
|00002fe0| 28 28 28 22 46 4c 54 22 | 20 63 61 6c 63 2d 6e 6f |((("FLT"| calc-no|
|00002ff0| 72 6d 61 6c 2d 6e 6f 74 | 61 74 69 6f 6e 20 28 70 |rmal-not|ation (p|
|00003000| 72 6f 67 6e 20 63 61 6c | 63 2d 6e 75 6d 2d 70 72 |rogn cal|c-num-pr|
|00003010| 65 66 69 78 20 63 61 6c | 63 2d 6e 6f 72 6d 61 6c |efix cal|c-normal|
|00003020| 2d 6e 6f 74 61 74 69 6f | 6e 29 29 20 28 22 46 49 |-notatio|n)) ("FI|
|00003030| 58 22 20 28 70 72 6f 67 | 6e 20 32 20 63 61 6c 63 |X" (prog|n 2 calc|
|00003040| 2d 66 69 78 2d 6e 6f 74 | 61 74 69 6f 6e 29 20 28 |-fix-not|ation) (|
|00003050| 70 72 6f 67 6e 20 63 61 | 6c 63 2d 6e 75 6d 2d 70 |progn ca|lc-num-p|
|00003060| 72 65 66 69 78 20 63 61 | 6c 63 2d 66 69 78 2d 6e |refix ca|lc-fix-n|
|00003070| 6f 74 61 74 69 6f 6e 29 | 29 20 28 22 53 43 49 22 |otation)|) ("SCI"|
|00003080| 20 63 61 6c 63 2d 73 63 | 69 2d 6e 6f 74 61 74 69 | calc-sc|i-notati|
|00003090| 6f 6e 20 28 70 72 6f 67 | 6e 20 63 61 6c 63 2d 6e |on (prog|n calc-n|
|000030a0| 75 6d 2d 70 72 65 66 69 | 78 20 63 61 6c 63 2d 73 |um-prefi|x calc-s|
|000030b0| 63 69 2d 6e 6f 74 61 74 | 69 6f 6e 29 29 20 28 22 |ci-notat|ion)) ("|
|000030c0| 45 4e 47 22 20 63 61 6c | 63 2d 65 6e 67 2d 6e 6f |ENG" cal|c-eng-no|
|000030d0| 74 61 74 69 6f 6e 20 28 | 70 72 6f 67 6e 20 63 61 |tation (|progn ca|
|000030e0| 6c 63 2d 6e 75 6d 2d 70 | 72 65 66 69 78 20 63 61 |lc-num-p|refix ca|
|000030f0| 6c 63 2d 65 6e 67 2d 6e | 6f 74 61 74 69 6f 6e 29 |lc-eng-n|otation)|
|00003100| 29 20 28 22 47 52 50 22 | 20 63 61 6c 63 2d 67 72 |) ("GRP"| calc-gr|
|00003110| 6f 75 70 2d 64 69 67 69 | 74 73 20 22 15 2d 33 1b |oup-digi|ts ".-3.|
|00003120| 78 63 61 6c 63 2d 67 72 | 6f 75 70 2d 64 69 67 69 |xcalc-gr|oup-digi|
|00003130| 74 73 0d 22 29 20 28 22 | 22 20 6e 69 6c 29 29 20 |ts.") ("|" nil)) |
|00003140| 28 28 22 52 41 44 22 20 | 63 61 6c 63 2d 72 61 64 |(("RAD" |calc-rad|
|00003150| 69 61 6e 73 2d 6d 6f 64 | 65 29 20 28 22 44 45 47 |ians-mod|e) ("DEG|
|00003160| 22 20 63 61 6c 63 2d 64 | 65 67 72 65 65 73 2d 6d |" calc-d|egrees-m|
|00003170| 6f 64 65 29 20 28 22 46 | 52 41 43 22 20 63 61 6c |ode) ("F|RAC" cal|
|00003180| 63 2d 66 72 61 63 2d 6d | 6f 64 65 29 20 28 22 50 |c-frac-m|ode) ("P|
|00003190| 4f 4c 52 22 20 63 61 6c | 63 2d 70 6f 6c 61 72 2d |OLR" cal|c-polar-|
|000031a0| 6d 6f 64 65 29 20 28 22 | 53 59 4d 42 22 20 63 61 |mode) ("|SYMB" ca|
|000031b0| 6c 63 2d 73 79 6d 62 6f | 6c 69 63 2d 6d 6f 64 65 |lc-symbo|lic-mode|
|000031c0| 29 20 28 22 50 52 45 43 | 22 20 63 61 6c 63 2d 70 |) ("PREC|" calc-p|
|000031d0| 72 65 63 69 73 69 6f 6e | 29 29 20 28 28 22 53 57 |recision|)) (("SW|
|000031e0| 41 50 22 20 63 61 6c 63 | 2d 72 6f 6c 6c 2d 64 6f |AP" calc|-roll-do|
|000031f0| 77 6e 29 20 28 22 52 4c | 4c 33 22 20 28 70 72 6f |wn) ("RL|L3" (pro|
|00003200| 67 6e 20 33 20 63 61 6c | 63 2d 72 6f 6c 6c 2d 75 |gn 3 cal|c-roll-u|
|00003210| 70 29 20 28 70 72 6f 67 | 6e 20 33 20 63 61 6c 63 |p) (prog|n 3 calc|
|00003220| 2d 72 6f 6c 6c 2d 64 6f | 77 6e 29 29 20 28 22 52 |-roll-do|wn)) ("R|
|00003230| 4c 4c 34 22 20 28 70 72 | 6f 67 6e 20 34 20 63 61 |LL4" (pr|ogn 4 ca|
|00003240| 6c 63 2d 72 6f 6c 6c 2d | 75 70 29 20 28 70 72 6f |lc-roll-|up) (pro|
|00003250| 67 6e 20 34 20 63 61 6c | 63 2d 72 6f 6c 6c 2d 64 |gn 4 cal|c-roll-d|
|00003260| 6f 77 6e 29 29 20 28 22 | 4f 56 45 52 22 20 63 61 |own)) ("|OVER" ca|
|00003270| 6c 63 2d 6f 76 65 72 29 | 20 28 22 53 54 4f 22 20 |lc-over)| ("STO" |
|00003280| 63 61 6c 63 2d 6b 65 79 | 70 61 64 2d 73 74 6f 72 |calc-key|pad-stor|
|00003290| 65 29 20 28 22 52 43 4c | 22 20 63 61 6c 63 2d 6b |e) ("RCL|" calc-k|
|000032a0| 65 79 70 61 64 2d 72 65 | 63 61 6c 6c 29 29 29 29 |eypad-re|call))))|
|000032b0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+