/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / calendar / lunar.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 33 3a 35 33 3a 32 | 33 20 31 39 39 35 0a 3b | 13:53:2|3 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 63 61 | 6c 65 6e 64 61 72 2f 6c |/lisp/ca|lendar/l|
|00000090| 75 6e 61 72 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |unar.el.|;;; emac|
|000000a0| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 31 33 20 |s versio|n 19.13 |
|000000b0| 58 45 6d 61 63 73 20 4c | 75 63 69 64 2e 0a 3b 3b |XEmacs L|ucid..;;|
|000000c0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000d0| 6f 6e 20 32 2e 32 35 3b | 20 31 2d 53 65 70 2d 39 |on 2.25;| 1-Sep-9|
|000000e0| 34 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |4..;;; o|ptimizat|
|000000f0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000100| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000110| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000120| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000130| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000170| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000180| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|00000190| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|000001a0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|000001b0| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001c0| 20 22 54 68 69 73 20 66 | 69 6c 65 20 77 61 73 20 | "This f|ile was |
|000001d0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001e0| 63 73 20 31 39 2e 22 29 | 29 0a 0a 28 62 79 74 65 |cs 19.")|)..(byte|
|000001f0| 2d 63 6f 64 65 20 22 c0 | c1 21 ab 86 c2 c3 21 88 |-code ".|.!....!.|
|00000200| aa 84 c4 c5 21 88 c2 c6 | 21 87 22 20 5b 66 62 6f |....!...|!." [fbo|
|00000210| 75 6e 64 70 20 61 74 61 | 6e 20 72 65 71 75 69 72 |undp ata|n requir|
|00000220| 65 20 6c 69 73 70 2d 66 | 6c 6f 61 74 2d 74 79 70 |e lisp-f|loat-typ|
|00000230| 65 20 65 72 72 6f 72 20 | 22 4c 75 6e 61 72 20 63 |e error |"Lunar c|
|00000240| 61 6c 63 75 6c 61 74 69 | 6f 6e 73 20 69 6d 70 6f |alculati|ons impo|
|00000250| 73 73 69 62 6c 65 20 73 | 69 6e 63 65 20 66 6c 6f |ssible s|ince flo|
|00000260| 61 74 69 6e 67 20 70 6f | 69 6e 74 20 69 73 20 75 |ating po|int is u|
|00000270| 6e 61 76 61 69 6c 61 62 | 6c 65 2e 22 20 73 6f 6c |navailab|le." sol|
|00000280| 61 72 5d 20 32 29 0a 28 | 66 73 65 74 20 27 6c 75 |ar] 2).(|fset 'lu|
|00000290| 6e 61 72 2d 70 68 61 73 | 65 2d 6c 69 73 74 20 23 |nar-phas|e-list #|
|000002a0| 5b 28 6d 6f 6e 74 68 20 | 79 65 61 72 29 20 22 08 |[(month |year) ".|
|000002b0| 09 08 09 1a 1b 1c 1d 0c | c6 5f 0d c7 5c 5c 5c 5c |........|._..\\\\|
|000002c0| 89 1e 08 c6 a6 54 15 0e | 08 c6 a5 14 29 5c 6e c6 |.....T..|....)\n.|
|000002d0| 5f 0b c9 5c 5c 5c 5c 89 | 1e 08 c6 a6 54 13 0e 08 |_..\\\\.|....T...|
|000002e0| c6 a5 12 29 0d ca 0c 45 | 43 1e 0b 0b 89 5c 6e 19 |...)...E|C....\n.|
|000002f0| 89 18 c7 55 ab 9c 09 89 | 19 cc a6 cd 55 ad 8d 09 |...U....|....U...|
|00000300| ce a6 cd 55 3f ae 85 09 | cf a6 cd 55 29 ab 83 d0 |...U?...|...U)...|
|00000310| aa 84 d1 08 53 48 2a 5c | 6e 45 43 1e 12 d3 09 08 |....SH*\|nEC.....|
|00000320| ca 09 45 89 1e 14 89 1e | 14 40 29 18 0e 14 89 1e |..E.....|.@).....|
|00000330| 14 41 40 29 1e 15 0e 14 | 89 1e 14 41 41 40 29 19 |.A@)....|...AA@).|
|00000340| 0e 15 08 53 d6 5f 5c 5c | 1e 17 08 c7 56 ab aa 0e |...S._\\|....V...|
|00000350| 17 08 cc 5f d8 5c 5c d9 | a5 5a 16 17 09 89 19 cc |..._.\\.|.Z......|
|00000360| a6 cd 55 ad 8d 09 ce a6 | cd 55 3f ae 85 09 cf a6 |..U.....|.U?.....|
|00000370| cd 55 29 ab 85 0e 17 54 | 16 17 0e 17 2d da a5 db |.U)....T|....-...|
|00000380| 5c 5c 5c 5c dc 5f 21 cc | 5f 1e 1d de 0e 1d 21 1e |\\\\._!.|_.....!.|
|00000390| 1f e0 1e 21 e2 0e 1f 0e | 0b 5c 22 ab 9e e2 0e 12 |...!....|.\".....|
|000003a0| 0e 1f 5c 22 ab 89 e3 0e | 21 0e 1f 43 5c 22 16 21 |..\"....|!..C\".!|
|000003b0| 0e 1d 54 16 1d de 0e 1d | 21 16 1f aa 5a 0e 21 2e |..T.....|!...Z.!.|
|000003c0| 09 87 22 20 5b 6d 6f 6e | 74 68 20 79 65 61 72 20 |.." [mon|th year |
|000003d0| 73 74 61 72 74 2d 79 65 | 61 72 20 73 74 61 72 74 |start-ye|ar start|
|000003e0| 2d 6d 6f 6e 74 68 20 65 | 6e 64 2d 79 65 61 72 20 |-month e|nd-year |
|000003f0| 65 6e 64 2d 6d 6f 6e 74 | 68 20 31 32 20 32 20 6d |end-mont|h 12 2 m|
|00000400| 61 63 72 6f 2d 79 20 2d | 32 20 31 20 65 6e 64 2d |acro-y -|2 1 end-|
|00000410| 64 61 74 65 20 34 20 30 | 20 31 30 30 20 34 30 30 |date 4 0| 100 400|
|00000420| 20 32 39 20 5b 33 31 20 | 32 38 20 33 31 20 33 30 | 29 [31 |28 31 30|
|00000430| 20 33 31 20 33 30 20 33 | 31 20 33 31 20 33 30 20 | 31 30 3|1 31 30 |
|00000440| 33 31 20 33 30 20 33 31 | 5d 20 73 74 61 72 74 2d |31 30 31|] start-|
|00000450| 64 61 74 65 20 74 72 75 | 6e 63 61 74 65 20 64 61 |date tru|ncate da|
|00000460| 74 65 20 64 61 79 20 33 | 31 20 64 61 79 2d 6f 66 |te day 3|1 day-of|
|00000470| 2d 79 65 61 72 20 32 33 | 20 31 30 20 33 36 36 2e |-year 23| 10 366.|
|00000480| 30 20 2d 31 39 30 30 20 | 31 32 2e 33 36 38 35 20 |0 -1900 |12.3685 |
|00000490| 69 6e 64 65 78 20 6c 75 | 6e 61 72 2d 70 68 61 73 |index lu|nar-phas|
|000004a0| 65 20 6e 65 77 2d 6d 6f | 6f 6e 20 6e 69 6c 20 6c |e new-mo|on nil l|
|000004b0| 69 73 74 20 63 61 6c 65 | 6e 64 61 72 2d 64 61 74 |ist cale|ndar-dat|
|000004c0| 65 2d 63 6f 6d 70 61 72 | 65 20 61 70 70 65 6e 64 |e-compar|e append|
|000004d0| 5d 20 37 20 22 5c 0a 4c | 69 73 74 20 6f 66 20 6c |] 7 "\.L|ist of l|
|000004e0| 75 6e 61 72 20 70 68 61 | 73 65 73 20 66 6f 72 20 |unar pha|ses for |
|000004f0| 74 68 72 65 65 20 6d 6f | 6e 74 68 73 20 73 74 61 |three mo|nths sta|
|00000500| 72 74 69 6e 67 20 77 69 | 74 68 20 47 72 65 67 6f |rting wi|th Grego|
|00000510| 72 69 61 6e 20 4d 4f 4e | 54 48 2c 20 59 45 41 52 |rian MON|TH, YEAR|
|00000520| 2e 22 5d 29 0a 28 66 73 | 65 74 20 27 6c 75 6e 61 |."]).(fs|et 'luna|
|00000530| 72 2d 70 68 61 73 65 20 | 23 5b 28 69 6e 64 65 78 |r-phase |#[(index|
|00000540| 29 20 22 c0 09 c2 5c 22 | 1b 09 c4 a5 89 19 c5 a5 |) "...\"|........|
|00000550| 1e 06 c7 1e 08 c7 89 1e | 08 41 41 40 29 53 1e 09 |........|.AA@)S..|
|00000560| 0e 08 89 1e 08 89 1e 08 | 40 29 1e 5c 6e 0e 08 89 |........|@).\n...|
|00000570| 1e 08 41 40 29 1e 0b 0e | 08 89 1e 08 41 41 40 29 |..A@)...|....AA@)|
|00000580| 1e 0c 0e 0b 0e 5c 6e 53 | cd 5f 5c 5c 1e 0e 0e 5c |.....\nS|._\\...\|
|00000590| 6e cf 56 ab af 0e 0e 0e | 5c 6e c2 5f d0 5c 5c d1 |n.V.....|\n._.\\.|
|000005a0| a5 5a 16 0e 0e 0c 89 1e | 0c c2 a6 d2 55 ad 8f 0e |.Z......|....U...|
|000005b0| 0c d3 a6 d2 55 3f ae 86 | 0e 0c d4 a6 d2 55 29 ab |....U?..|.....U).|
|000005c0| 85 0e 0e 54 16 0e 0e 0e | 2d 0e 09 d5 5f 0e 09 c2 |...T....|-..._...|
|000005d0| a5 0e 09 d3 a5 5b 0e 09 | d4 a5 5c 5c 5c 5c 5c 5c |.....[..|..\\\\\\|
|000005e0| 5c 5c 2a 09 d6 5f 0e 06 | 89 d7 5f 5f 0e 06 89 89 |\\*.._..|..__....|
|000005f0| d8 5f 5f 5f 0e 06 d9 5f | 0e 06 89 da 5f 5f db 5c |.___..._|....__.\|
|00000600| 5c 5c 5c 1e 1c dd 0e 1c | de 5f 21 29 df 5f e0 5c |\\\.....|._!)._.\|
|00000610| 5c 5c 5c 5c 5c 5c 5c 5c | 5c 1e 08 c0 09 e1 5f 0e |\\\\\\\\|\....._.|
|00000620| 06 89 e2 5f 5f 0e 06 89 | 89 e3 5f 5f 5f e4 5c 5c |...__...|..___.\\|
|00000630| 5c 5c 5c 5c e5 5c 22 1e | 26 c0 09 e7 5f 0e 06 89 |\\\\.\".|&..._...|
|00000640| e8 5f 5f 0e 06 89 89 e9 | 5f 5f 5f ea 5c 5c 5c 5c |.__.....|___.\\\\|
|00000650| 5c 5c eb 5c 22 1e 2c c0 | 09 ed 5f 0e 06 89 ee 5f |\\.\".,.|.._...._|
|00000660| 5f 0e 06 89 89 ef 5f 5f | 5f f0 5c 5c 5c 5c 5c 5c |_.....__|_.\\\\\\|
|00000670| f1 5c 22 1e 32 0b f3 3e | 83 1e 02 f4 0e 06 f5 5f |.\".2..>|......._|
|00000680| 5a 0e 26 1e 1c dd f6 0e | 1c 5f 21 29 5f 0e 26 89 |Z.&.....|._!)_.&.|
|00000690| 5c 5c 1e 1c dd 0e 1c f7 | 5f 21 29 f8 5f 0e 2c 1e |\\......|_!)._.,.|
|000006a0| 1c dd 0e 1c f9 5f 21 29 | fa 5f 0e 2c 89 5c 5c 1e |....._!)|._.,.\\.|
|000006b0| 1c dd 0e 1c fb 5f 21 29 | fc 5f 0e 2c fd 5f 1e 1c |....._!)|._.,._..|
|000006c0| dd 0e 1c fe 5f 21 29 ff | 5f 0e 32 89 5c 5c 1e 1c |...._!).|_.2.\\..|
|000006d0| dd 0e 1c 81 40 00 5f 21 | 29 81 41 00 5f 0e 26 0e |....@._!|).A._.&.|
|000006e0| 2c 5c 5c 1e 1c dd 0e 1c | 81 42 00 5f 21 29 81 43 |,\\.....|.B._!).C|
|000006f0| 00 5f 0e 26 0e 2c 5a 1e | 1c dd 0e 1c 81 44 00 5f |._.&.,Z.|.....D._|
|00000700| 21 29 81 45 00 5f 0e 32 | 89 5c 5c 0e 26 5c 5c 1e |!).E._.2|.\\.&\\.|
|00000710| 1c dd 0e 1c 81 46 00 5f | 21 29 81 47 00 5f 0e 32 |.....F._|!).G._.2|
|00000720| 89 5c 5c 0e 26 5a 1e 1c | dd 0e 1c 81 48 00 5f 21 |.\\.&Z..|....H._!|
|00000730| 29 81 49 00 5f 0e 32 89 | 5c 5c 0e 2c 5c 5c 1e 1c |).I._.2.|\\.,\\..|
|00000740| dd 0e 1c 81 4a 00 5f 21 | 29 81 4b 00 5f 0e 32 89 |....J._!|).K._.2.|
|00000750| 5c 5c 0e 2c 5a 1e 1c dd | 0e 1c 81 4c 00 5f 21 29 |\\.,Z...|...L._!)|
|00000760| 81 4d 00 5f 0e 2c 89 5c | 5c 0e 26 5c 5c 1e 1c dd |.M._.,.\|\.&\\...|
|00000770| 0e 1c 81 4e 00 5f 21 29 | 81 4f 00 5f 5c 5c 5c 5c |...N._!)|.O._\\\\|
|00000780| 5c 5c 5c 5c 5c 5c 5c 5c | 5c 5c 5c 5c 5c 5c 5c 5c |\\\\\\\\|\\\\\\\\|
|00000790| 5c 5c 5c 5c 82 63 03 81 | 50 00 0e 06 81 51 00 5f |\\\\.c..|P....Q._|
|000007a0| 5a 0e 26 1e 1c dd 81 52 | 00 0e 1c 5f 21 29 5f 0e |Z.&....R|..._!)_.|
|000007b0| 26 89 5c 5c 1e 1c dd 0e | 1c 81 53 00 5f 21 29 81 |&.\\....|..S._!).|
|000007c0| 54 00 5f 0e 2c 1e 1c dd | 0e 1c 81 55 00 5f 21 29 |T._.,...|...U._!)|
|000007d0| 81 56 00 5f 0e 2c 89 5c | 5c 1e 1c dd 0e 1c 81 57 |.V._.,.\|\......W|
|000007e0| 00 5f 21 29 81 58 00 5f | 0e 2c fd 5f 1e 1c dd 0e |._!).X._|.,._....|
|000007f0| 1c 81 59 00 5f 21 29 81 | 5a 00 5f 0e 32 89 5c 5c |..Y._!).|Z._.2.\\|
|00000800| 1e 1c dd 0e 1c 81 5b 00 | 5f 21 29 81 5c 5c 00 5f |......[.|_!).\\._|
|00000810| 0e 26 0e 2c 5c 5c 1e 1c | dd 0e 1c 81 5d 00 5f 21 |.&.,\\..|....]._!|
|00000820| 29 81 5e 00 5f 0e 26 0e | 2c 5a 1e 1c dd 0e 1c 81 |).^._.&.|,Z......|
|00000830| 5f 00 5f 21 29 81 60 00 | 5f 0e 32 89 5c 5c 0e 26 |_._!).`.|_.2.\\.&|
|00000840| 5c 5c 1e 1c dd 0e 1c 81 | 61 00 5f 21 29 81 62 00 |\\......|a._!).b.|
|00000850| 5f 0e 32 89 5c 5c 0e 26 | 5a 1e 1c dd 0e 1c 81 63 |_.2.\\.&|Z......c|
|00000860| 00 5f 21 29 81 64 00 5f | 0e 32 89 5c 5c 0e 2c 5c |._!).d._|.2.\\.,\|
|00000870| 5c 1e 1c dd 0e 1c 81 65 | 00 5f 21 29 81 66 00 5f |\......e|._!).f._|
|00000880| 0e 32 89 5c 5c 0e 2c 5a | 1e 1c dd 0e 1c 81 67 00 |.2.\\.,Z|......g.|
|00000890| 5f 21 29 81 68 00 5f 0e | 2c 89 5c 5c 0e 26 5c 5c |_!).h._.|,.\\.&\\|
|000008a0| 1e 1c dd 0e 1c 81 69 00 | 5f 21 29 81 6a 00 5f 0e |......i.|_!).j._.|
|000008b0| 26 0e 2c 89 5c 5c 5a 1e | 1c dd 0e 1c 81 6b 00 5f |&.,.\\Z.|.....k._|
|000008c0| 21 29 81 6c 00 5f 0e 26 | 89 5c 5c 0e 2c 5c 5c 1e |!).l._.&|.\\.,\\.|
|000008d0| 1c dd 0e 1c 81 6d 00 5f | 21 29 81 6e 00 5f 5c 5c |.....m._|!).n._\\|
|000008e0| 5c 5c 5c 5c 5c 5c 5c 5c | 5c 5c 5c 5c 5c 5c 5c 5c |\\\\\\\\|\\\\\\\\|
|000008f0| 5c 5c 5c 5c 5c 5c 5c 5c | 5c 5c 1e 6f 0e 26 1e 1c |\\\\\\\\|\\.o.&..|
|00000900| 81 70 00 0e 1c 81 71 00 | 5f 21 29 81 72 00 5f 0e |.p....q.|_!).r._.|
|00000910| 2c 1e 1c 81 70 00 0e 1c | 81 73 00 5f 21 29 81 74 |,...p...|.s._!).t|
|00000920| 00 5f 81 75 00 5c 5c 5c | 5c 1e 76 0b 81 77 00 55 |._.u.\\\|\.v..w.U|
|00000930| ab 87 0e 6f 0e 76 5c 5c | aa 8e 0b cf 55 ab 87 0e |...o.v\\|....U...|
|00000940| 6f 0e 76 5a aa 82 0e 6f | 1e 6f 0e 08 0e 6f 5c 5c |o.vZ...o|.o...o\\|
|00000950| 89 1e 08 0e 78 81 79 00 | 81 7a 00 81 7b 00 0e 08 |....x.y.|.z..{...|
|00000960| 21 21 89 1e 08 41 41 40 | 29 21 5a 81 7c 00 a5 5c |!!...AA@|)!Z.|..\|
|00000970| 5c 89 1e 08 81 7b 00 0e | 08 21 5a 81 7d 00 5f 1e |\....{..|.!Z.}._.|
|00000980| 06 81 7a 00 81 7b 00 0e | 08 21 21 1e 08 81 7e 00 |..z..{..|.!!...~.|
|00000990| 0e 08 0e 06 5c 22 89 1e | 76 40 81 7f 00 81 80 00 |....\"..|v@......|
|000009a0| 0e 76 41 5c 22 0b 45 2e | 0f 87 22 20 5b 6d 6f 64 |.vA\".E.|.." [mod|
|000009b0| 20 69 6e 64 65 78 20 34 | 20 70 68 61 73 65 20 34 | index 4| phase 4|
|000009c0| 2e 30 20 31 32 33 36 2e | 38 35 20 74 69 6d 65 20 |.0 1236.|85 time |
|000009d0| 28 31 20 30 2e 35 20 31 | 39 30 30 29 20 64 61 74 |(1 0.5 1|900) dat|
|000009e0| 65 20 70 72 69 6f 72 2d | 79 65 61 72 73 20 6d 6f |e prior-|years mo|
|000009f0| 6e 74 68 20 64 61 79 20 | 79 65 61 72 20 33 31 20 |nth day |year 31 |
|00000a00| 64 61 79 2d 6f 66 2d 79 | 65 61 72 20 32 20 32 33 |day-of-y|ear 2 23|
|00000a10| 20 31 30 20 30 20 31 30 | 30 20 34 30 30 20 33 36 | 10 0 10|0 400 36|
|00000a20| 35 20 32 39 2e 35 33 30 | 35 38 38 36 38 20 30 2e |5 29.530|58868 0.|
|00000a30| 30 30 30 31 31 37 38 20 | 2d 31 2e 35 35 65 2d 30 |0001178 |-1.55e-0|
|00000a40| 37 20 31 33 32 2e 38 37 | 20 2d 30 2e 30 30 39 31 |7 132.87| -0.0091|
|00000a50| 37 33 30 30 30 30 30 30 | 30 30 30 30 30 31 20 31 |73000000|000001 1|
|00000a60| 36 36 2e 35 36 20 78 20 | 73 69 6e 20 30 2e 30 31 |66.56 x |sin 0.01|
|00000a70| 37 34 35 33 32 39 32 35 | 31 39 39 34 33 33 20 30 |74532925|199433 0|
|00000a80| 2e 30 30 30 33 33 20 30 | 2e 37 35 39 33 32 39 39 |.00033 0|.7593299|
|00000a90| 39 39 39 39 39 39 39 39 | 39 20 32 39 2e 31 30 35 |99999999|9 29.105|
|00000aa0| 33 35 36 20 2d 33 2e 33 | 33 65 2d 30 35 20 2d 33 |356 -3.3|3e-05 -3|
|00000ab0| 2e 34 37 65 2d 30 36 20 | 33 35 39 2e 32 32 34 32 |.47e-06 |359.2242|
|00000ac0| 20 33 36 30 2e 30 20 73 | 75 6e 2d 61 6e 6f 6d 61 | 360.0 s|un-anoma|
|00000ad0| 6c 79 20 33 38 35 2e 38 | 31 36 39 31 38 30 36 20 |ly 385.8|1691806 |
|00000ae0| 30 2e 30 31 30 37 33 30 | 36 20 31 2e 32 33 36 65 |0.010730|6 1.236e|
|00000af0| 2d 30 35 20 33 30 36 2e | 30 32 35 33 20 33 36 30 |-05 306.|0253 360|
|00000b00| 2e 30 20 6d 6f 6f 6e 2d | 61 6e 6f 6d 61 6c 79 20 |.0 moon-|anomaly |
|00000b10| 33 39 30 2e 36 37 30 35 | 30 36 34 36 20 2d 30 2e |390.6705|0646 -0.|
|00000b20| 30 30 31 36 35 32 38 20 | 2d 32 2e 33 39 65 2d 30 |0016528 |-2.39e-0|
|00000b30| 36 20 32 31 2e 32 39 36 | 34 20 33 36 30 2e 30 20 |6 21.296|4 360.0 |
|00000b40| 6d 6f 6f 6e 2d 6c 61 74 | 20 28 30 20 32 29 20 30 |moon-lat| (0 2) 0|
|00000b50| 2e 31 37 33 34 20 30 2e | 30 30 30 33 39 33 20 30 |.1734 0.|000393 0|
|00000b60| 2e 30 31 37 34 35 33 32 | 39 32 35 31 39 39 34 33 |.0174532|92519943|
|00000b70| 33 20 30 2e 30 31 37 34 | 35 33 32 39 32 35 31 39 |3 0.0174|53292519|
|00000b80| 39 34 33 33 20 30 2e 30 | 30 32 31 20 30 2e 30 31 |9433 0.0|021 0.01|
|00000b90| 37 34 35 33 32 39 32 35 | 31 39 39 34 33 33 20 2d |74532925|199433 -|
|00000ba0| 30 2e 34 30 36 38 20 30 | 2e 30 31 37 34 35 33 32 |0.4068 0|.0174532|
|00000bb0| 39 32 35 31 39 39 34 33 | 33 20 30 2e 30 31 36 31 |92519943|3 0.0161|
|00000bc0| 20 33 20 30 2e 30 31 37 | 34 35 33 32 39 32 35 31 | 3 0.017|45329251|
|00000bd0| 39 39 34 33 33 20 2d 30 | 2e 30 30 30 34 20 30 2e |99433 -0|.0004 0.|
|00000be0| 30 31 37 34 35 33 32 39 | 32 35 31 39 39 34 33 33 |01745329|25199433|
|00000bf0| 20 30 2e 30 31 30 34 20 | 30 2e 30 31 37 34 35 33 | 0.0104 |0.017453|
|00000c00| 32 39 32 35 31 39 39 34 | 33 33 20 2d 30 2e 30 30 |29251994|33 -0.00|
|00000c10| 35 31 20 30 2e 30 31 37 | 34 35 33 32 39 32 35 31 |51 0.017|45329251|
|00000c20| 39 39 34 33 33 20 2d 30 | 2e 30 30 37 34 20 30 2e |99433 -0|.0074 0.|
|00000c30| 30 31 37 34 35 33 32 39 | 32 35 31 39 39 34 33 33 |01745329|25199433|
|00000c40| 20 30 2e 30 30 30 34 20 | 30 2e 30 31 37 34 35 33 | 0.0004 |0.017453|
|00000c50| 32 39 32 35 31 39 39 34 | 33 33 20 2d 30 2e 30 30 |29251994|33 -0.00|
|00000c60| 30 34 20 30 2e 30 31 37 | 34 35 33 32 39 32 35 31 |04 0.017|45329251|
|00000c70| 39 39 34 33 33 20 2d 30 | 2e 30 30 30 35 39 39 39 |99433 -0|.0005999|
|00000c80| 39 39 39 39 39 39 39 39 | 39 39 39 39 20 30 2e 30 |99999999|9999 0.0|
|00000c90| 31 37 34 35 33 32 39 32 | 35 31 39 39 34 33 33 20 |17453292|5199433 |
|00000ca0| 30 2e 30 30 31 20 30 2e | 30 31 37 34 35 33 32 39 |0.001 0.|01745329|
|00000cb0| 32 35 31 39 39 34 33 33 | 20 30 2e 30 30 30 35 20 |25199433| 0.0005 |
|00000cc0| 30 2e 31 37 32 31 20 30 | 2e 30 30 30 34 20 30 2e |0.1721 0|.0004 0.|
|00000cd0| 30 31 37 34 35 33 32 39 | 32 35 31 39 39 34 33 33 |01745329|25199433|
|00000ce0| 20 30 2e 30 31 37 34 35 | 33 32 39 32 35 31 39 39 | 0.01745|32925199|
|00000cf0| 34 33 33 20 30 2e 30 30 | 32 31 20 30 2e 30 31 37 |433 0.00|21 0.017|
|00000d00| 34 35 33 32 39 32 35 31 | 39 39 34 33 33 20 2d 30 |45329251|99433 -0|
|00000d10| 2e 36 32 38 20 30 2e 30 | 31 37 34 35 33 32 39 32 |.628 0.0|17453292|
|00000d20| 35 31 39 39 34 33 33 20 | 30 2e 30 30 38 39 20 30 |5199433 |0.0089 0|
|00000d30| 2e 30 31 37 34 35 33 32 | 39 32 35 31 39 39 34 33 |.0174532|92519943|
|00000d40| 33 20 2d 30 2e 30 30 30 | 34 20 30 2e 30 31 37 34 |3 -0.000|4 0.0174|
|00000d50| 35 33 32 39 32 35 31 39 | 39 34 33 33 20 30 2e 30 |53292519|9433 0.0|
|00000d60| 30 37 39 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |07900000|00000000|
|00000d70| 31 20 30 2e 30 31 37 34 | 35 33 32 39 32 35 31 39 |1 0.0174|53292519|
|00000d80| 39 34 33 33 20 2d 30 2e | 30 31 31 39 20 30 2e 30 |9433 -0.|0119 0.0|
|00000d90| 31 37 34 35 33 32 39 32 | 35 31 39 39 34 33 33 20 |17453292|5199433 |
|00000da0| 2d 30 2e 30 30 34 37 20 | 30 2e 30 31 37 34 35 33 |-0.0047 |0.017453|
|00000db0| 32 39 32 35 31 39 39 34 | 33 33 20 30 2e 30 30 30 |29251994|33 0.000|
|00000dc0| 33 20 30 2e 30 31 37 34 | 35 33 32 39 32 35 31 39 |3 0.0174|53292519|
|00000dd0| 39 34 33 33 20 2d 30 2e | 30 30 30 34 20 30 2e 30 |9433 -0.|0004 0.0|
|00000de0| 31 37 34 35 33 32 39 32 | 35 31 39 39 34 33 33 20 |17453292|5199433 |
|00000df0| 2d 30 2e 30 30 30 35 39 | 39 39 39 39 39 39 39 39 |-0.00059|99999999|
|00000e00| 39 39 39 39 39 39 20 30 | 2e 30 31 37 34 35 33 32 |999999 0|.0174532|
|00000e10| 39 32 35 31 39 39 34 33 | 33 20 30 2e 30 30 32 31 |92519943|3 0.0021|
|00000e20| 20 30 2e 30 31 37 34 35 | 33 32 39 32 35 31 39 39 | 0.01745|32925199|
|00000e30| 34 33 33 20 30 2e 30 30 | 30 33 20 30 2e 30 31 37 |433 0.00|03 0.017|
|00000e40| 34 35 33 32 39 32 35 31 | 39 39 34 33 33 20 30 2e |45329251|99433 0.|
|00000e50| 30 30 30 34 20 30 2e 30 | 31 37 34 35 33 32 39 32 |0004 0.0|17453292|
|00000e60| 35 31 39 39 34 33 33 20 | 2d 30 2e 30 30 30 33 20 |5199433 |-0.0003 |
|00000e70| 61 64 6a 75 73 74 6d 65 | 6e 74 20 63 6f 73 20 30 |adjustme|nt cos 0|
|00000e80| 2e 30 31 37 34 35 33 32 | 39 32 35 31 39 39 34 33 |.0174532|92519943|
|00000e90| 33 20 2d 30 2e 30 30 30 | 34 20 30 2e 30 31 37 34 |3 -0.000|4 0.0174|
|00000ea0| 35 33 32 39 32 35 31 39 | 39 34 33 33 20 30 2e 30 |53292519|9433 0.0|
|00000eb0| 30 30 33 20 30 2e 30 30 | 32 38 20 61 64 6a 20 31 |003 0.00|28 adj 1|
|00000ec0| 20 63 61 6c 65 6e 64 61 | 72 2d 74 69 6d 65 2d 7a | calenda|r-time-z|
|00000ed0| 6f 6e 65 20 73 6f 6c 61 | 72 2d 65 70 68 65 6d 65 |one sola|r-epheme|
|00000ee0| 72 69 73 2d 63 6f 72 72 | 65 63 74 69 6f 6e 20 63 |ris-corr|ection c|
|00000ef0| 61 6c 65 6e 64 61 72 2d | 67 72 65 67 6f 72 69 61 |alendar-|gregoria|
|00000f00| 6e 2d 66 72 6f 6d 2d 61 | 62 73 6f 6c 75 74 65 20 |n-from-a|bsolute |
|00000f10| 74 72 75 6e 63 61 74 65 | 20 31 34 34 30 2e 30 20 |truncate| 1440.0 |
|00000f20| 32 34 20 73 6f 6c 61 72 | 2d 61 64 6a 2d 74 69 6d |24 solar|-adj-tim|
|00000f30| 65 2d 66 6f 72 2d 64 73 | 74 20 61 70 70 6c 79 20 |e-for-ds|t apply |
|00000f40| 73 6f 6c 61 72 2d 74 69 | 6d 65 2d 73 74 72 69 6e |solar-ti|me-strin|
|00000f50| 67 5d 20 31 38 20 22 5c | 0a 4c 6f 63 61 6c 20 64 |g] 18 "\|.Local d|
|00000f60| 61 74 65 20 61 6e 64 20 | 74 69 6d 65 20 6f 66 20 |ate and |time of |
|00000f70| 6c 75 6e 61 72 20 70 68 | 61 73 65 20 49 4e 44 45 |lunar ph|ase INDE|
|00000f80| 58 2e 0a 49 6e 74 65 67 | 65 72 20 62 65 6c 6f 77 |X..Integ|er below|
|00000f90| 20 49 4e 44 45 58 2f 34 | 20 67 69 76 65 73 20 74 | INDEX/4| gives t|
|00000fa0| 68 65 20 6c 75 6e 61 74 | 69 6f 6e 20 6e 75 6d 62 |he lunat|ion numb|
|00000fb0| 65 72 2c 20 63 6f 75 6e | 74 69 6e 67 20 66 72 6f |er, coun|ting fro|
|00000fc0| 6d 20 4a 61 6e 20 31 2c | 20 31 39 30 30 3b 0a 72 |m Jan 1,| 1900;.r|
|00000fd0| 65 6d 61 69 6e 64 65 72 | 20 6d 6f 64 20 34 20 67 |emainder| mod 4 g|
|00000fe0| 69 76 65 73 20 74 68 65 | 20 70 68 61 73 65 3a 20 |ives the| phase: |
|00000ff0| 30 20 6e 65 77 20 6d 6f | 6f 6e 2c 20 31 20 66 69 |0 new mo|on, 1 fi|
|00001000| 72 73 74 20 71 75 61 72 | 74 65 72 2c 20 32 20 66 |rst quar|ter, 2 f|
|00001010| 75 6c 6c 20 6d 6f 6f 6e | 2c 0a 33 20 6c 61 73 74 |ull moon|,.3 last|
|00001020| 20 71 75 61 72 74 65 72 | 2e 22 5d 29 0a 28 66 73 | quarter|."]).(fs|
|00001030| 65 74 20 27 6c 75 6e 61 | 72 2d 70 68 61 73 65 2d |et 'luna|r-phase-|
|00001040| 6e 61 6d 65 20 23 5b 28 | 70 68 61 73 65 29 20 22 |name #[(|phase) "|
|00001050| 08 c1 55 ab 82 c2 87 08 | c3 55 ab 82 c4 87 08 c5 |..U.....|.U......|
|00001060| 55 ab 82 c6 87 08 c7 55 | ad 81 c8 87 22 20 5b 70 |U......U|...." [p|
|00001070| 68 61 73 65 20 30 20 22 | 4e 65 77 20 4d 6f 6f 6e |hase 0 "|New Moon|
|00001080| 22 20 31 20 22 46 69 72 | 73 74 20 51 75 61 72 74 |" 1 "Fir|st Quart|
|00001090| 65 72 20 4d 6f 6f 6e 22 | 20 32 20 22 46 75 6c 6c |er Moon"| 2 "Full|
|000010a0| 20 4d 6f 6f 6e 22 20 33 | 20 22 4c 61 73 74 20 51 | Moon" 3| "Last Q|
|000010b0| 75 61 72 74 65 72 20 4d | 6f 6f 6e 22 5d 20 32 20 |uarter M|oon"] 2 |
|000010c0| 22 5c 0a 4e 61 6d 65 20 | 6f 66 20 6c 75 6e 61 72 |"\.Name |of lunar|
|000010d0| 20 50 48 41 53 45 2e 0a | 30 20 3d 20 6e 65 77 20 | PHASE..|0 = new |
|000010e0| 6d 6f 6f 6e 2c 20 31 20 | 3d 20 66 69 72 73 74 20 |moon, 1 |= first |
|000010f0| 71 75 61 72 74 65 72 2c | 20 32 20 3d 20 66 75 6c |quarter,| 2 = ful|
|00001100| 6c 20 6d 6f 6f 6e 2c 20 | 33 20 3d 20 6c 61 73 74 |l moon, |3 = last|
|00001110| 20 71 75 61 72 74 65 72 | 2e 22 5d 29 0a 28 66 73 | quarter|."]).(fs|
|00001120| 65 74 20 27 63 61 6c 65 | 6e 64 61 72 2d 70 68 61 |et 'cale|ndar-pha|
|00001130| 73 65 73 2d 6f 66 2d 6d | 6f 6f 6e 20 23 5b 6e 69 |ses-of-m|oon #[ni|
|00001140| 6c 20 22 c0 c1 21 88 5c | 6e 0b 5c 6e 0b 1c 1d 1e |l "..!.\|n.\n....|
|00001150| 06 1e 07 0e 06 c8 5f 0e | 07 c9 5c 5c 5c 5c 89 1e |......_.|..\\\\..|
|00001160| 5c 6e c8 a6 54 16 07 0e | 5c 6e c8 a5 16 06 29 0c |\n..T...|\n....).|
|00001170| c8 5f 0d 5c 5c 89 1e 5c | 6e c8 a6 54 15 0e 5c 6e |._.\\..\|n..T..\n|
|00001180| c8 a5 14 29 cb 0e 0c 21 | 71 88 cd 16 0e cf 0e 06 |...)...!|q.......|
|00001190| 0c 55 ab 8d d0 d1 d2 0e | 07 21 d2 0d 21 0c 24 aa |.U......|.!..!.$.|
|000011a0| 8d d0 d3 d2 0e 07 21 0e | 06 d2 0d 21 0c 25 21 88 |......!.|...!.%!.|
|000011b0| d4 20 88 d5 d6 d7 0e 07 | 0e 06 5c 22 d8 23 63 88 |. ......|..\".#c.|
|000011c0| 65 62 88 d9 cd 21 88 da | 16 0e db 0e 0c 21 88 c0 |eb...!..|.....!..|
|000011d0| dc 21 2c 87 22 20 5b 6d | 65 73 73 61 67 65 20 22 |.!,." [m|essage "|
|000011e0| 43 6f 6d 70 75 74 69 6e | 67 20 70 68 61 73 65 73 |Computin|g phases|
|000011f0| 20 6f 66 20 74 68 65 20 | 6d 6f 6f 6e 2e 2e 2e 22 | of the |moon..."|
|00001200| 20 64 69 73 70 6c 61 79 | 65 64 2d 6d 6f 6e 74 68 | display|ed-month|
|00001210| 20 64 69 73 70 6c 61 79 | 65 64 2d 79 65 61 72 20 | display|ed-year |
|00001220| 79 32 20 6d 32 20 79 31 | 20 6d 31 20 31 32 20 2d |y2 m2 y1| m1 12 -|
|00001230| 32 20 6d 61 63 72 6f 2d | 79 20 67 65 74 2d 62 75 |2 macro-|y get-bu|
|00001240| 66 66 65 72 2d 63 72 65 | 61 74 65 20 6c 75 6e 61 |ffer-cre|ate luna|
|00001250| 72 2d 70 68 61 73 65 73 | 2d 62 75 66 66 65 72 20 |r-phases|-buffer |
|00001260| 6e 69 6c 20 62 75 66 66 | 65 72 2d 72 65 61 64 2d |nil buff|er-read-|
|00001270| 6f 6e 6c 79 20 63 61 6c | 65 6e 64 61 72 2d 73 65 |only cal|endar-se|
|00001280| 74 2d 6d 6f 64 65 2d 6c | 69 6e 65 20 66 6f 72 6d |t-mode-l|ine form|
|00001290| 61 74 20 22 50 68 61 73 | 65 73 20 6f 66 20 74 68 |at "Phas|es of th|
|000012a0| 65 20 4d 6f 6f 6e 20 66 | 72 6f 6d 20 25 73 20 74 |e Moon f|rom %s t|
|000012b0| 6f 20 25 73 2c 20 25 64 | 25 25 2d 22 20 63 61 6c |o %s, %d|%%-" cal|
|000012c0| 65 6e 64 61 72 2d 6d 6f | 6e 74 68 2d 6e 61 6d 65 |endar-mo|nth-name|
|000012d0| 20 22 50 68 61 73 65 73 | 20 6f 66 20 74 68 65 20 | "Phases| of the |
|000012e0| 4d 6f 6f 6e 20 66 72 6f | 6d 20 25 73 2c 20 25 64 |Moon fro|m %s, %d|
|000012f0| 20 74 6f 20 25 73 2c 20 | 25 64 25 25 2d 22 20 65 | to %s, |%d%%-" e|
|00001300| 72 61 73 65 2d 62 75 66 | 66 65 72 20 6d 61 70 63 |rase-buf|fer mapc|
|00001310| 6f 6e 63 61 74 20 23 5b | 28 78 29 20 22 08 40 08 |oncat #[|(x) ".@.|
|00001320| 41 40 08 41 41 40 19 1a | 1b c4 0b 21 c5 c6 09 21 |A@.AA@..|...!...!|
|00001330| c7 5c 6e b0 05 2b 87 22 | 20 5b 78 20 70 68 61 73 |.\n..+."| [x phas|
|00001340| 65 20 74 69 6d 65 20 64 | 61 74 65 20 63 61 6c 65 |e time d|ate cale|
|00001350| 6e 64 61 72 2d 64 61 74 | 65 2d 73 74 72 69 6e 67 |ndar-dat|e-string|
|00001360| 20 22 3a 20 22 20 6c 75 | 6e 61 72 2d 70 68 61 73 | ": " lu|nar-phas|
|00001370| 65 2d 6e 61 6d 65 20 22 | 20 22 5d 20 35 5d 20 6c |e-name "| "] 5] l|
|00001380| 75 6e 61 72 2d 70 68 61 | 73 65 2d 6c 69 73 74 20 |unar-pha|se-list |
|00001390| 22 5c 6e 22 20 73 65 74 | 2d 62 75 66 66 65 72 2d |"\n" set|-buffer-|
|000013a0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 74 20 64 69 73 |modified|-p t dis|
|000013b0| 70 6c 61 79 2d 62 75 66 | 66 65 72 20 22 43 6f 6d |play-buf|fer "Com|
|000013c0| 70 75 74 69 6e 67 20 70 | 68 61 73 65 73 20 6f 66 |puting p|hases of|
|000013d0| 20 74 68 65 20 6d 6f 6f | 6e 2e 2e 2e 64 6f 6e 65 | the moo|n...done|
|000013e0| 22 5d 20 38 20 22 5c 0a | 43 72 65 61 74 65 20 61 |"] 8 "\.|Create a|
|000013f0| 20 62 75 66 66 65 72 20 | 77 69 74 68 20 74 68 65 | buffer |with the|
|00001400| 20 6c 75 6e 61 72 20 70 | 68 61 73 65 73 20 66 6f | lunar p|hases fo|
|00001410| 72 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 63 61 |r the cu|rrent ca|
|00001420| 6c 65 6e 64 61 72 20 77 | 69 6e 64 6f 77 2e 22 20 |lendar w|indow." |
|00001430| 6e 69 6c 5d 29 0a 28 66 | 73 65 74 20 27 70 68 61 |nil]).(f|set 'pha|
|00001440| 73 65 73 2d 6f 66 2d 6d | 6f 6f 6e 20 23 5b 28 26 |ses-of-m|oon #[(&|
|00001450| 6f 70 74 69 6f 6e 61 6c | 20 61 72 67 29 20 22 8a |optional| arg) ".|
|00001460| 08 ab 85 c1 c2 21 aa 82 | c3 20 89 1c 89 1c 40 29 |.....!..|. ....@)|
|00001470| 1d 0c 89 1c 41 41 40 29 | 1e 06 c7 20 2c 87 22 20 |....AA@)|... ,." |
|00001480| 5b 61 72 67 20 63 61 6c | 65 6e 64 61 72 2d 72 65 |[arg cal|endar-re|
|00001490| 61 64 2d 64 61 74 65 20 | 74 20 63 61 6c 65 6e 64 |ad-date |t calend|
|000014a0| 61 72 2d 63 75 72 72 65 | 6e 74 2d 64 61 74 65 20 |ar-curre|nt-date |
|000014b0| 64 61 74 65 20 64 69 73 | 70 6c 61 79 65 64 2d 6d |date dis|played-m|
|000014c0| 6f 6e 74 68 20 64 69 73 | 70 6c 61 79 65 64 2d 79 |onth dis|played-y|
|000014d0| 65 61 72 20 63 61 6c 65 | 6e 64 61 72 2d 70 68 61 |ear cale|ndar-pha|
|000014e0| 73 65 73 2d 6f 66 2d 6d | 6f 6f 6e 5d 20 33 20 22 |ses-of-m|oon] 3 "|
|000014f0| 5c 0a 44 69 73 70 6c 61 | 79 20 74 68 65 20 71 75 |\.Displa|y the qu|
|00001500| 61 72 74 65 72 73 20 6f | 66 20 74 68 65 20 6d 6f |arters o|f the mo|
|00001510| 6f 6e 20 66 6f 72 20 6c | 61 73 74 20 6d 6f 6e 74 |on for l|ast mont|
|00001520| 68 2c 20 74 68 69 73 20 | 6d 6f 6e 74 68 2c 20 61 |h, this |month, a|
|00001530| 6e 64 20 6e 65 78 74 20 | 6d 6f 6e 74 68 2e 0a 49 |nd next |month..I|
|00001540| 66 20 63 61 6c 6c 65 64 | 20 77 69 74 68 20 61 6e |f called| with an|
|00001550| 20 6f 70 74 69 6f 6e 61 | 6c 20 70 72 65 66 69 78 | optiona|l prefix|
|00001560| 20 61 72 67 75 6d 65 6e | 74 2c 20 70 72 6f 6d 70 | argumen|t, promp|
|00001570| 74 73 20 66 6f 72 20 6d | 6f 6e 74 68 20 61 6e 64 |ts for m|onth and|
|00001580| 20 79 65 61 72 2e 0a 0a | 54 68 69 73 20 66 75 6e | year...|This fun|
|00001590| 63 74 69 6f 6e 20 69 73 | 20 73 75 69 74 61 62 6c |ction is| suitabl|
|000015a0| 65 20 66 6f 72 20 65 78 | 65 63 75 74 69 6f 6e 20 |e for ex|ecution |
|000015b0| 69 6e 20 61 20 2e 65 6d | 61 63 73 20 66 69 6c 65 |in a .em|acs file|
|000015c0| 2e 22 20 22 50 22 5d 29 | 0a 28 66 73 65 74 20 27 |." "P"])|.(fset '|
|000015d0| 64 69 61 72 79 2d 70 68 | 61 73 65 73 2d 6f 66 2d |diary-ph|ases-of-|
|000015e0| 6d 6f 6f 6e 20 23 5b 6e | 69 6c 20 22 c0 09 89 19 |moon #[n|il "....|
|000015f0| 41 41 40 29 09 89 19 89 | 19 40 29 1a 09 89 19 41 |AA@)....|.@)....A|
|00001600| 40 29 1b 09 89 19 41 41 | 40 29 1c 0b 5c 6e 53 c5 |@)....AA|@)..\nS.|
|00001610| 5f 5c 5c 1e 06 5c 6e c7 | 56 ab aa 0e 06 5c 6e c8 |_\\..\n.|V....\n.|
|00001620| 5f c9 5c 5c ca a5 5a 16 | 06 0c 89 1c c8 a6 cb 55 |_.\\..Z.|.......U|
|00001630| ad 8d 0c cc a6 cb 55 3f | ae 85 0c cd a6 cb 55 29 |......U?|......U)|
|00001640| ab 85 0e 06 54 16 06 0e | 06 2d ce a5 cf 5c 5c 5c |....T...|.-...\\\|
|00001650| 5c d0 5f 21 c8 5f 1e 11 | d2 0e 11 21 1e 13 d4 0e |\._!._..|...!....|
|00001660| 13 09 43 5c 22 ab 8d 0e | 11 54 16 11 d2 0e 11 21 |..C\"...|.T.....!|
|00001670| 16 13 aa 6b d5 0e 13 40 | 09 5c 22 ad 8d d6 0e 13 |...k...@|.\".....|
|00001680| 41 41 40 21 d7 0e 13 41 | 40 51 2a 87 22 20 5b 74 |AA@!...A|@Q*." [t|
|00001690| 72 75 6e 63 61 74 65 20 | 64 61 74 65 20 6d 6f 6e |runcate |date mon|
|000016a0| 74 68 20 64 61 79 20 79 | 65 61 72 20 33 31 20 64 |th day y|ear 31 d|
|000016b0| 61 79 2d 6f 66 2d 79 65 | 61 72 20 32 20 34 20 32 |ay-of-ye|ar 2 4 2|
|000016c0| 33 20 31 30 20 30 20 31 | 30 30 20 34 30 30 20 33 |3 10 0 1|00 400 3|
|000016d0| 36 36 2e 30 20 2d 31 39 | 30 30 20 31 32 2e 33 36 |66.0 -19|00 12.36|
|000016e0| 38 35 20 69 6e 64 65 78 | 20 6c 75 6e 61 72 2d 70 |85 index| lunar-p|
|000016f0| 68 61 73 65 20 70 68 61 | 73 65 20 63 61 6c 65 6e |hase pha|se calen|
|00001700| 64 61 72 2d 64 61 74 65 | 2d 63 6f 6d 70 61 72 65 |dar-date|-compare|
|00001710| 20 63 61 6c 65 6e 64 61 | 72 2d 64 61 74 65 2d 65 | calenda|r-date-e|
|00001720| 71 75 61 6c 20 6c 75 6e | 61 72 2d 70 68 61 73 65 |qual lun|ar-phase|
|00001730| 2d 6e 61 6d 65 20 22 20 | 22 5d 20 37 20 22 5c 0a |-name " |"] 7 "\.|
|00001740| 4d 6f 6f 6e 20 70 68 61 | 73 65 73 20 64 69 61 72 |Moon pha|ses diar|
|00001750| 79 20 65 6e 74 72 79 2e | 22 5d 29 0a 28 70 72 6f |y entry.|"]).(pro|
|00001760| 76 69 64 65 20 27 6c 75 | 6e 61 72 29 0a          |vide 'lu|nar).   |
+--------+-------------------------+-------------------------+--------+--------+