/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / general / progs / daylight / !Daylight / WimpProc

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 1b 58 1c f4 20 3e 3a | 30 2e 21 44 61 79 6c 69 |..X.. >:|0.!Dayli|
|00000010| 67 68 74 2e 57 69 6d 70 | 50 72 6f 63 0d 1b 62 1b |ght.Wimp|Proc..b.|
|00000020| f4 20 4c 69 62 72 61 72 | 79 20 72 6f 75 74 69 6e |. Librar|y routin|
|00000030| 65 73 20 66 72 6f 6d 0d | 1b 6c 1e f4 20 41 53 54 |es from.|.l.. AST|
|00000040| 52 4f 4e 4f 4d 59 20 57 | 49 54 48 20 59 4f 55 52 |RONOMY W|ITH YOUR|
|00000050| 20 50 2e 43 2e 0d 1b 76 | 1c f4 20 62 79 20 50 65 | P.C...v|.. by Pe|
|00000060| 74 65 72 20 44 75 66 66 | 65 74 74 2d 53 6d 69 74 |ter Duff|ett-Smit|
|00000070| 68 0d 1b 80 1d f4 20 63 | 6f 6e 76 65 72 74 65 64 |h..... c|onverted|
|00000080| 20 74 6f 20 41 72 63 68 | 69 6d 65 64 65 73 0d 1b | to Arch|imedes..|
|00000090| 8a 16 f4 20 62 79 20 44 | 2e 20 46 61 6e 67 61 6e |... by D|. Fangan|
|000000a0| 64 69 6e 69 0d 1b 94 15 | f4 20 61 6e 64 20 49 76 |dini....|. and Iv|
|000000b0| 6f 72 20 43 6c 61 72 6b | 65 0d 1b 9e 05 3a 0d 1b |or Clark|e....:..|
|000000c0| a8 26 f4 20 4d 6f 6f 6e | 72 69 73 65 74 20 61 6e |.&. Moon|riset an|
|000000d0| 64 20 53 75 6e 72 69 73 | 65 74 20 72 65 77 72 69 |d Sunris|et rewri|
|000000e0| 74 74 65 6e 0d 1b b2 1d | f4 20 61 6e 64 20 74 77 |tten....|. and tw|
|000000f0| 69 6c 69 67 68 74 20 77 | 72 69 74 74 65 6e 20 62 |ilight w|ritten b|
|00000100| 79 0d 1b bc 1e f4 20 44 | 61 76 69 64 20 54 61 79 |y..... D|avid Tay|
|00000110| 6c 6f 72 20 31 35 20 44 | 65 63 2e 31 39 39 31 0d |lor 15 D|ec.1991.|
|00000120| 1b c6 06 20 3a 0d 1b d0 | 10 20 dd f2 4d 6f 6f 6e |... :...|. ..Moon|
|00000130| 72 69 73 65 74 0d 1b da | 16 20 41 4c 3d 4c 4f 4e |riset...|. AL=LON|
|00000140| 47 2f 31 35 3a 45 52 52 | 34 3d 30 0d 1b e4 23 20 |G/15:ERR|4=0...# |
|00000150| 7a 64 3d 41 4c 2b 7a 6f | 6e 65 3a f4 20 4c 4d 54 |zd=AL+zo|ne:. LMT|
|00000160| 2d 7a 64 20 3d 7a 6f 6e | 65 20 74 69 6d 65 0d 1b |-zd =zon|e time..|
|00000170| ee 23 20 f4 20 73 65 74 | 20 6c 6f 77 65 72 20 6c |.# . set| lower l|
|00000180| 69 6d 69 74 20 6f 6e 20 | 7a 6f 6e 65 20 64 61 74 |imit on |zone dat|
|00000190| 65 0d 1b f8 1b 20 44 4a | 44 3d 44 4a 44 30 2d 2e |e.... DJ|D=DJD0-.|
|000001a0| 35 3a f4 20 30 30 68 30 | 30 20 55 54 0d 1c 02 2d |5:. 00h0|0 UT...-|
|000001b0| 20 e7 20 7a 6f 6e 65 20 | 44 4a 44 3d 44 4a 44 2b | . zone |DJD=DJD+|
|000001c0| 7a 6f 6e 65 2f 32 34 8b | 20 44 4a 44 3d 44 4a 44 |zone/24.| DJD=DJD|
|000001d0| 2d 4c 4f 4e 47 2f 33 36 | 30 0d 1c 0c 28 20 44 4a |-LONG/36|0...( DJ|
|000001e0| 44 31 3d 44 4a 44 3a f4 | 20 30 30 68 30 30 20 7a |D1=DJD:.| 00h00 z|
|000001f0| 6f 6e 65 20 74 69 6d 65 | 20 65 6c 73 65 20 4c 4d |one time| else LM|
|00000200| 54 0d 1c 16 15 20 52 64 | 69 66 31 3d a4 74 69 6d |T.... Rd|if1=.tim|
|00000210| 65 5f 64 69 66 66 0d 1c | 20 1b 20 f2 4d 6f 6f 6e |e_diff..| . .Moon|
|00000220| 6e 75 74 61 74 3a e7 20 | 45 52 52 31 3c 3e 30 20 |nutat:. |ERR1<>0 |
|00000230| e1 0d 1c 2a 13 20 5a 54 | 52 30 3d 58 2d 48 2d 52 |...*. ZT|R0=X-H-R|
|00000240| 64 69 66 31 0d 1c 34 13 | 20 5a 54 53 30 3d 58 2b |dif1..4.| ZTS0=X+|
|00000250| 48 2d 52 64 69 66 31 0d | 1c 52 1d 20 e7 20 7a 6f |H-Rdif1.|.R. . zo|
|00000260| 6e 65 20 5a 54 52 30 2d | 3d 7a 64 3a 5a 54 53 30 |ne ZTR0-|=zd:ZTS0|
|00000270| 2d 3d 7a 64 0d 1c 5c 06 | 20 3a 0d 1c 66 23 20 f4 |-=zd..\.| :..f# .|
|00000280| 20 73 65 74 20 75 70 70 | 65 72 20 6c 69 6d 69 74 | set upp|er limit|
|00000290| 20 6f 6e 20 7a 6f 6e 65 | 20 64 61 74 65 0d 1c 70 | on zone| date..p|
|000002a0| 21 20 44 4a 44 3d 44 4a | 44 31 2b 31 3a f4 20 32 |! DJD=DJ|D1+1:. 2|
|000002b0| 34 68 30 30 20 7a 6f 6e | 65 20 74 69 6d 65 0d 1c |4h00 zon|e time..|
|000002c0| 7a 15 20 52 64 69 66 32 | 3d a4 74 69 6d 65 5f 64 |z. Rdif2|=.time_d|
|000002d0| 69 66 66 0d 1c 84 1b 20 | f2 4d 6f 6f 6e 6e 75 74 |iff.... |.Moonnut|
|000002e0| 61 74 3a e7 20 45 52 52 | 31 3c 3e 30 20 e1 0d 1c |at:. ERR|1<>0 ...|
|000002f0| 8e 12 20 5a 54 52 3d 58 | 2d 48 2d 52 64 69 66 32 |.. ZTR=X|-H-Rdif2|
|00000300| 0d 1c 98 12 20 5a 54 53 | 3d 58 2b 48 2d 52 64 69 |.... ZTS|=X+H-Rdi|
|00000310| 66 32 0d 1c b6 1b 20 e7 | 20 7a 6f 6e 65 20 5a 54 |f2.... .| zone ZT|
|00000320| 52 2d 3d 7a 64 3a 5a 54 | 53 2d 3d 7a 64 0d 1c c0 |R-=zd:ZT|S-=zd...|
|00000330| 15 20 64 52 3d 28 5a 54 | 52 2d 5a 54 52 30 29 2f |. dR=(ZT|R-ZTR0)/|
|00000340| 32 34 0d 1c ca 15 20 64 | 53 3d 28 5a 54 53 2d 5a |24.... d|S=(ZTS-Z|
|00000350| 54 53 30 29 2f 32 34 0d | 1c d4 06 20 3a 0d 1c de |TS0)/24.|... :...|
|00000360| 0f 20 e7 20 5a 54 52 30 | 3e 30 20 8c 0d 1c e8 1c |. . ZTR0|>0 .....|
|00000370| 20 44 4a 44 3d 44 4a 44 | 31 2b 5a 54 52 30 2f 32 | DJD=DJD|1+ZTR0/2|
|00000380| 34 2a 28 31 2b 64 52 29 | 0d 1c f2 1f 20 cc 20 44 |4*(1+dR)|.... . D|
|00000390| 4a 44 3d 44 4a 44 31 2b | 31 2b 5a 54 52 2f 32 34 |JD=DJD1+|1+ZTR/24|
|000003a0| 2a 28 31 2b 64 52 29 0d | 1c fc 17 20 cd 3a 52 64 |*(1+dR).|... .:Rd|
|000003b0| 69 66 31 3d a4 74 69 6d | 65 5f 64 69 66 66 0d 1d |if1=.tim|e_diff..|
|000003c0| 06 17 20 e7 20 5a 54 52 | 30 3e 30 20 84 20 5a 54 |.. . ZTR|0>0 . ZT|
|000003d0| 52 3c 30 20 8c 0d 1d 10 | 1c 20 f2 4d 6f 6f 6e 6e |R<0 ....|. .Moonn|
|000003e0| 75 74 61 74 3a e7 20 45 | 52 52 31 20 3c 3e 30 20 |utat:. E|RR1 <>0 |
|000003f0| e1 0d 1d 1a 1d 20 41 5a | 52 30 3d 41 5a 52 3a 54 |..... AZ|R0=AZR:T|
|00000400| 52 3d 58 2d 48 2d 52 64 | 69 66 31 2d 7a 64 0d 1d |R=X-H-Rd|if1-zd..|
|00000410| 2e 0d 20 e7 20 7a 6f 6e | 65 20 8c 0d 1d 38 1e 20 |.. . zon|e ...8. |
|00000420| 20 e7 20 5a 54 52 30 3e | 30 20 80 20 54 52 3c 30 | . ZTR0>|0 . TR<0|
|00000430| 20 8c 20 45 52 52 34 3d | 31 0d 1d 42 1e 20 20 e7 | . ERR4=|1..B.  .|
|00000440| 20 5a 54 52 3c 30 20 80 | 20 54 52 3e 32 34 20 8c | ZTR<0 .| TR>24 .|
|00000450| 20 45 52 52 34 3d 31 0d | 1d 4c 06 20 cd 0d 1d 56 | ERR4=1.|.L. ...V|
|00000460| 0d 20 cc 3a 45 52 52 34 | 3d 31 0d 1d 60 06 20 cd |. .:ERR4|=1..`. .|
|00000470| 0d 1d 6a 0a 20 4d 52 3d | 54 52 0d 1d 74 06 20 3a |..j. MR=|TR..t. :|
|00000480| 0d 1d 7e 0f 20 e7 20 5a | 54 53 30 3e 30 20 8c 0d |..~. . Z|TS0>0 ..|
|00000490| 1d 88 1c 20 44 4a 44 3d | 44 4a 44 31 2b 5a 54 53 |... DJD=|DJD1+ZTS|
|000004a0| 30 2f 32 34 2a 28 31 2b | 64 53 29 0d 1d 92 1f 20 |0/24*(1+|dS).... |
|000004b0| cc 20 44 4a 44 3d 44 4a | 44 31 2b 31 2b 5a 54 53 |. DJD=DJ|D1+1+ZTS|
|000004c0| 2f 32 34 2a 28 31 2b 64 | 53 29 0d 1d 9c 17 20 cd |/24*(1+d|S).... .|
|000004d0| 3a 52 64 69 66 32 3d a4 | 74 69 6d 65 5f 64 69 66 |:Rdif2=.|time_dif|
|000004e0| 66 0d 1d a6 17 20 e7 20 | 5a 54 53 30 3e 30 20 84 |f.... . |ZTS0>0 .|
|000004f0| 20 5a 54 53 3c 30 20 8c | 0d 1d b0 1c 20 f2 4d 6f | ZTS<0 .|.... .Mo|
|00000500| 6f 6e 6e 75 74 61 74 3a | e7 20 45 52 52 31 20 3c |onnutat:|. ERR1 <|
|00000510| 3e 30 20 e1 0d 1d ba 1d | 20 41 5a 53 30 3d 41 5a |>0 .....| AZS0=AZ|
|00000520| 53 3a 54 53 3d 58 2b 48 | 2d 52 64 69 66 32 2d 7a |S:TS=X+H|-Rdif2-z|
|00000530| 64 0d 1d ce 0d 20 e7 20 | 7a 6f 6e 65 20 8c 0d 1d |d.... . |zone ...|
|00000540| d8 1e 20 20 e7 20 5a 54 | 53 30 3e 30 20 80 20 54 |..  . ZT|S0>0 . T|
|00000550| 53 3c 30 20 8c 20 45 52 | 52 31 3d 35 0d 1d e2 1e |S<0 . ER|R1=5....|
|00000560| 20 20 e7 20 5a 54 53 3c | 30 20 80 20 54 53 3e 32 |  . ZTS<|0 . TS>2|
|00000570| 34 20 8c 20 45 52 52 31 | 3d 35 0d 1d ec 06 20 cd |4 . ERR1|=5.... .|
|00000580| 0d 1d f6 0d 20 cc 20 45 | 52 52 31 3d 35 0d 1e 00 |.... . E|RR1=5...|
|00000590| 06 20 cd 0d 1e 0a 14 20 | e7 20 45 52 52 34 3d 31 |. ..... |. ERR4=1|
|000005a0| 20 45 52 52 31 3d 34 0d | 1e 14 13 20 54 52 3d 4d | ERR1=4.|... TR=M|
|000005b0| 52 3a f2 43 6f 72 72 65 | 63 74 0d 1e 1e 10 20 f4 |R:.Corre|ct.... .|
|000005c0| 20 7a 6f 6e 65 20 74 69 | 6d 65 0d 1e 28 06 20 e1 | zone ti|me..(. .|
|000005d0| 0d 1e 32 06 20 3a 0d 1e | 3c 0f 20 dd f2 53 75 6e |..2. :..|<. ..Sun|
|000005e0| 72 69 73 65 74 0d 1e 46 | 16 20 45 52 52 31 3d 30 |riset..F|. ERR1=0|
|000005f0| 3a 41 4c 3d 4c 4f 4e 47 | 2f 31 35 0d 1e 50 22 20 |:AL=LONG|/15..P" |
|00000600| 7a 64 3d 41 4c 2b 7a 6f | 6e 65 3a f4 20 4c 4d 54 |zd=AL+zo|ne:. LMT|
|00000610| 2d 7a 64 3d 7a 6f 6e 65 | 20 74 69 6d 65 0d 1e 5a |-zd=zone| time..Z|
|00000620| 2b 20 44 59 30 3d 44 59 | 3a 44 59 3d 44 59 30 2b |+ DY0=DY|:DY=DY0+|
|00000630| 30 2e 35 3a f4 20 61 74 | 20 31 32 68 30 30 20 47 |0.5:. at| 12h00 G|
|00000640| 72 65 65 6e 77 69 63 68 | 0d 1e 64 15 20 f2 4a 75 |reenwich|..d. .Ju|
|00000650| 6c 64 61 79 3a 44 4a 44 | 30 3d 44 4a 44 0d 1e 6e |lday:DJD|0=DJD..n|
|00000660| 32 20 e7 20 7a 6f 6e 65 | 20 44 4a 44 4c 3d 44 4a |2 . zone| DJDL=DJ|
|00000670| 44 30 2b 7a 6f 6e 65 2f | 32 34 20 8b 20 44 4a 44 |D0+zone/|24 . DJD|
|00000680| 4c 3d 44 4a 44 30 2d 4c | 4f 4e 47 2f 33 36 30 0d |L=DJD0-L|ONG/360.|
|00000690| 1e 78 31 20 44 4a 44 3d | 44 4a 44 4c 3a 44 49 53 |.x1 DJD=|DJDL:DIS|
|000006a0| 3d 31 2e 34 35 39 33 45 | 2d 32 3a f2 53 75 6e 72 |=1.4593E|-2:.Sunr|
|000006b0| 73 75 6e 3a f4 20 31 73 | 74 2e 41 70 70 72 6f 78 |sun:. 1s|t.Approx|
|000006c0| 0d 1e 82 16 20 41 5a 52 | 30 3d 41 5a 52 3a 41 5a |.... AZR|0=AZR:AZ|
|000006d0| 53 30 3d 41 5a 53 0d 1e | 8c 15 20 52 64 69 66 30 |S0=AZS..|.. Rdif0|
|000006e0| 3d a4 74 69 6d 65 5f 64 | 69 66 66 0d 1e 96 0e 20 |=.time_d|iff.... |
|000006f0| f2 74 77 69 6c 69 67 68 | 74 0d 1e a0 12 20 e7 20 |.twiligh|t.... . |
|00000700| 45 52 52 31 3c 3e 30 20 | 8c 20 e1 0d 1e aa 0e 20 |ERR1<>0 |. ..... |
|00000710| e7 20 6c 6f 63 61 6c 20 | 8c 0d 1e b4 14 20 45 64 |. local |..... Ed|
|00000720| 69 66 3d 52 64 69 66 30 | 2d 58 2b 31 32 0d 1e be |if=Rdif0|-X+12...|
|00000730| 23 20 f4 20 6c 6f 63 61 | 6c 20 61 70 70 61 72 65 |# . loca|l appare|
|00000740| 6e 74 20 74 69 6d 65 3d | 4c 4d 54 2b 45 64 69 66 |nt time=|LMT+Edif|
|00000750| 0d 1e c8 14 20 54 52 3d | 31 32 2d 48 3a 54 53 3d |.... TR=|12-H:TS=|
|00000760| 31 32 2b 48 0d 1e d2 06 | 20 cc 0d 1e dc 1c 20 68 |12+H....| ..... h|
|00000770| 61 6c 66 3d 48 2f 32 34 | 3a 44 4a 44 3d 44 4a 44 |alf=H/24|:DJD=DJD|
|00000780| 4c 2d 68 61 6c 66 0d 1e | e6 15 20 52 64 69 66 31 |L-half..|.. Rdif1|
|00000790| 3d a4 74 69 6d 65 5f 64 | 69 66 66 0d 1e f0 1c 20 |=.time_d|iff.... |
|000007a0| f2 53 75 6e 72 73 75 6e | 3a e7 20 45 52 52 31 20 |.Sunrsun|:. ERR1 |
|000007b0| 3c 3e 30 20 8c 20 e1 0d | 1e fa 1d 20 41 5a 52 30 |<>0 . ..|... AZR0|
|000007c0| 3d 41 5a 52 3a 54 52 3d | 58 2d 48 2d 52 64 69 66 |=AZR:TR=|X-H-Rdif|
|000007d0| 31 2d 7a 64 0d 1f 04 12 | 20 44 4a 44 3d 44 4a 44 |1-zd....| DJD=DJD|
|000007e0| 4c 2b 68 61 6c 66 0d 1f | 0e 15 20 52 64 69 66 32 |L+half..|.. Rdif2|
|000007f0| 3d a4 74 69 6d 65 5f 64 | 69 66 66 0d 1f 18 1c 20 |=.time_d|iff.... |
|00000800| f2 53 75 6e 72 73 75 6e | 3a e7 20 45 52 52 31 20 |.Sunrsun|:. ERR1 |
|00000810| 3c 3e 30 20 8c 20 e1 0d | 1f 22 1d 20 41 5a 53 30 |<>0 . ..|.". AZS0|
|00000820| 3d 41 5a 53 3a 54 53 3d | 58 2b 48 2d 52 64 69 66 |=AZS:TS=|X+H-Rdif|
|00000830| 32 2d 7a 64 0d 1f 2c 0d | 20 cd 3a 44 59 3d 44 59 |2-zd..,.| .:DY=DY|
|00000840| 30 0d 1f 36 0d 20 f2 43 | 6f 72 72 65 63 74 0d 1f |0..6. .C|orrect..|
|00000850| 40 06 20 e1 0d 1f 4a 06 | 20 3a 0d 1f 54 0f 20 dd |@. ...J.| :..T. .|
|00000860| f2 74 77 69 6c 69 67 68 | 74 0d 1f 5e 0b 20 43 54 |.twiligh|t..^. CT|
|00000870| 24 3d 22 22 0d 1f 68 21 | 20 43 48 3d 28 9b b2 39 |$=""..h!| CH=(..9|
|00000880| 36 2d 53 50 48 49 2a b5 | 59 31 29 2f 43 50 48 49 |6-SPHI*.|Y1)/CPHI|
|00000890| 2f 9b 20 59 31 0d 1f 72 | 0b 20 c8 8e 20 b9 20 ca |/. Y1..r|. .. . .|
|000008a0| 0d 1f 7c 2e 20 c9 20 43 | 48 3c 2d 31 20 80 20 ac |..|. . C|H<-1 . .|
|000008b0| 20 45 52 52 31 3a 43 54 | 24 3d 22 54 77 69 6c 69 | ERR1:CT|$="Twili|
|000008c0| 67 68 74 20 61 6c 6c 20 | 6e 69 67 68 74 22 0d 1f |ght all |night"..|
|000008d0| 86 24 20 c9 20 43 48 3e | 31 3a 43 54 24 3d 22 4e |.$ . CH>|1:CT$="N|
|000008e0| 6f 20 74 77 69 6c 69 67 | 68 74 20 61 74 20 61 6c |o twilig|ht at al|
|000008f0| 6c 22 0d 1f 90 17 20 c9 | 20 45 52 52 31 3d 2d 31 |l".... .| ERR1=-1|
|00000900| 3a 43 54 24 20 3d 22 20 | 22 0d 1f 9a 06 20 7f 0d |:CT$ =" |".... ..|
|00000910| 1f a4 21 20 52 61 3d 58 | 3a 48 61 3d 28 95 43 48 |..! Ra=X|:Ha=(.CH|
|00000920| 2b 44 48 29 2a 33 2e 38 | 31 39 37 31 38 36 33 34 |+DH)*3.8|19718634|
|00000930| 0d 1f ae 06 20 cb 0d 1f | b8 06 20 e1 0d 1f c2 06 |.... ...|.. .....|
|00000940| 20 3a 0d 1f cc 10 20 dd | a4 74 69 6d 65 5f 64 69 | :.... .|.time_di|
|00000950| 66 66 0d 1f d6 12 20 58 | 4d 4e 3d 4d 4e 3a 58 44 |ff.... X|MN=MN:XD|
|00000960| 59 3d 44 59 0d 1f e0 21 | 20 58 44 4a 44 3d 44 4a |Y=DY...!| XDJD=DJ|
|00000970| 44 3a 4d 4e 3d 31 3a 44 | 59 3d 30 3a 46 4c 41 47 |D:MN=1:D|Y=0:FLAG|
|00000980| 28 31 29 3d 30 0d 1f ea | 18 20 f2 4a 75 6c 64 61 |(1)=0...|. .Julda|
|00000990| 79 3a 54 3d 44 4a 44 2f | 33 36 35 32 35 0d 1f f4 |y:T=DJD/|36525...|
|000009a0| 2b 20 52 3d 36 2e 36 34 | 36 30 36 35 36 2b 28 35 |+ R=6.64|60656+(5|
|000009b0| 2e 31 32 36 32 45 2d 32 | 2b 28 54 2a 32 2e 35 38 |.1262E-2|+(T*2.58|
|000009c0| 31 45 2d 35 29 29 2a 54 | 0d 1f fe 20 20 52 31 3d |1E-5))*T|...  R1=|
|000009d0| 32 34 30 30 2a 28 54 2d | 28 28 59 52 2d 31 39 30 |2400*(T-|((YR-190|
|000009e0| 30 29 2f 31 30 30 29 29 | 0d 20 08 0e 20 42 3d 32 |0)/100))|. .. B=2|
|000009f0| 34 2d 52 2d 52 31 0d 20 | 12 21 20 54 30 3d 28 28 |4-R-R1. |.! T0=((|
|00000a00| 58 44 4a 44 2d 44 4a 44 | 29 2a 36 2e 35 37 30 39 |XDJD-DJD|)*6.5709|
|00000a10| 38 45 2d 32 29 2d 42 0d | 20 1c 1b 20 4d 4e 3d 58 |8E-2)-B.| .. MN=X|
|00000a20| 4d 4e 3a 44 59 3d 58 44 | 59 3a 44 4a 44 3d 58 44 |MN:DY=XD|Y:DJD=XD|
|00000a30| 4a 44 0d 20 26 08 20 3d | 54 30 0d 20 30 06 20 3a |JD. &. =|T0. 0. :|
|00000a40| 0d 20 3a 0e 20 dd f2 43 | 6f 72 72 65 63 74 0d 20 |. :. ..C|orrect. |
|00000a50| 44 16 20 e7 20 54 52 3c | 30 20 8c 20 54 52 3d 54 |D. . TR<|0 . TR=T|
|00000a60| 52 2b 32 34 0d 20 4e 16 | 20 e7 20 54 53 3c 30 20 |R+24. N.| . TS<0 |
|00000a70| 8c 20 54 53 3d 54 53 2b | 32 34 0d 20 58 17 20 e7 |. TS=TS+|24. X. .|
|00000a80| 20 54 52 3e 32 34 20 8c | 20 54 52 3d 54 52 2d 32 | TR>24 .| TR=TR-2|
|00000a90| 34 0d 20 62 17 20 e7 20 | 54 53 3e 32 34 20 8c 20 |4. b. . |TS>24 . |
|00000aa0| 54 53 3d 54 53 2d 32 34 | 0d 20 6c 06 20 e1 0d 20 |TS=TS-24|. l. .. |
|00000ab0| 76 06 20 3a 0d 20 80 0e | 20 dd f2 53 75 6e 72 73 |v. :. ..| ..Sunrs|
|00000ac0| 75 6e 0d 20 8a 10 20 f2 | 53 75 6e 3a f2 4e 75 74 |un. .. .|Sun:.Nut|
|00000ad0| 61 74 0d 20 94 28 20 58 | 3d 4c 53 4e 2b 31 2e 37 |at. .( X|=LSN+1.7|
|00000ae0| 34 35 33 32 39 32 35 32 | 45 2d 32 2a 28 44 50 53 |45329252|E-2*(DPS|
|00000af0| 49 2d 35 2e 36 39 45 2d | 33 29 0d 20 9e 16 20 59 |I-5.69E-|3). .. Y|
|00000b00| 3d 30 3a 53 57 33 3d 2d | 31 3a f2 45 71 65 63 6c |=0:SW3=-|1:.Eqecl|
|00000b10| 0d 20 a8 1f 20 58 3d 33 | 2e 38 31 39 37 31 38 36 |. .. X=3|.8197186|
|00000b20| 33 34 2a 50 3a 59 3d 51 | 3a f2 52 69 73 65 74 0d |34*P:Y=Q|:.Riset.|
|00000b30| 20 b2 06 20 e1 0d 20 bc | 26 20 4c 53 4e 3d 67 65 | .. .. .|& LSN=ge|
|00000b40| 6f 63 65 6e 74 72 69 63 | 2c 65 63 6c 69 70 74 69 |ocentric|,eclipti|
|00000b50| 63 20 6c 6f 6e 67 69 74 | 75 64 65 0d 20 c6 1e 20 |c longit|ude. .. |
|00000b60| 50 3d 72 69 67 68 74 20 | 61 73 63 65 6e 73 69 6f |P=right |ascensio|
|00000b70| 6e 28 72 61 64 69 61 6e | 29 0d 20 d0 1d 20 58 3d |n(radian|). .. X=|
|00000b80| 72 69 67 68 74 20 61 73 | 63 65 6e 73 69 6f 6e 28 |right as|cension(|
|00000b90| 68 6f 75 72 73 29 0d 20 | da 06 20 3a 0d 20 e4 0c |hours). |.. :. ..|
|00000ba0| 20 dd f2 45 71 65 63 6c | 0d 20 ee 13 20 e7 20 46 | ..Eqecl|. .. . F|
|00000bb0| 4c 41 47 28 37 29 3c 3e | 31 20 8c 0d 20 f8 16 20 |LAG(7)<>|1 .. .. |
|00000bc0| 54 50 49 3d 32 2a af 3a | 46 4c 41 47 28 37 29 3d |TPI=2*.:|FLAG(7)=|
|00000bd0| 31 0d 21 02 19 20 e7 20 | 46 4c 41 47 28 36 29 3d |1.!.. . |FLAG(6)=|
|00000be0| 30 20 8c 20 44 45 50 53 | 3d 30 0d 21 0c 1c 20 f2 |0 . DEPS|=0.!.. .|
|00000bf0| 4f 62 6c 69 71 3a 45 50 | 53 31 3d b2 28 45 50 53 |Obliq:EP|S1=.(EPS|
|00000c00| 2b 44 45 50 53 29 0d 21 | 16 1e 20 53 45 50 53 3d |+DEPS).!|.. SEPS=|
|00000c10| b5 28 45 50 53 31 29 3a | 43 45 50 53 3d 9b 28 45 |.(EPS1):|CEPS=.(E|
|00000c20| 50 53 31 29 0d 21 20 17 | 20 cd 3a 20 43 59 3d 9b |PS1).! .| .: CY=.|
|00000c30| 28 59 29 3a 53 59 3d b5 | 28 59 29 0d 21 2a 1d 20 |(Y):SY=.|(Y).!*. |
|00000c40| e7 20 94 28 43 59 29 3c | 31 45 2d 32 30 20 8c 20 |. .(CY)<|1E-20 . |
|00000c50| 43 59 3d 31 45 2d 32 30 | 0d 21 34 1d 20 54 59 3d |CY=1E-20|.!4. TY=|
|00000c60| 53 59 2f 43 59 3a 43 58 | 3d 9b 28 58 29 3a 53 58 |SY/CY:CX|=.(X):SX|
|00000c70| 3d b5 28 58 29 0d 21 3e | 22 20 53 51 3d 28 53 59 |=.(X).!>|" SQ=(SY|
|00000c80| 2a 43 45 50 53 29 2d 28 | 43 59 2a 53 45 50 53 2a |*CEPS)-(|CY*SEPS*|
|00000c90| 53 58 2a 53 57 33 29 0d | 21 48 26 20 51 3d 98 28 |SX*SW3).|!H& Q=.(|
|00000ca0| 53 51 29 3a 41 3d 28 53 | 58 2a 43 45 50 53 29 2b |SQ):A=(S|X*CEPS)+|
|00000cb0| 28 54 59 2a 53 45 50 53 | 2a 53 57 33 29 0d 21 52 |(TY*SEPS|*SW3).!R|
|00000cc0| 0e 20 50 3d 99 28 41 2f | 43 58 29 0d 21 5c 13 20 |. P=.(A/|CX).!\. |
|00000cd0| e7 20 43 58 3c 30 20 8c | 20 50 3d 50 2b af 0d 21 |. CX<0 .| P=P+..!|
|00000ce0| 66 16 20 e7 20 50 3e 54 | 50 49 20 8c 20 50 3d 50 |f. . P>T|PI . P=P|
|00000cf0| 2d 54 50 49 0d 21 70 14 | 20 e7 20 50 3c 30 20 8c |-TPI.!p.| . P<0 .|
|00000d00| 20 50 3d 50 2b 54 50 49 | 0d 21 7a 06 20 e1 0d 21 | P=P+TPI|.!z. ..!|
|00000d10| 84 06 20 3a 0d 21 8e 0c | 20 dd f2 52 69 73 65 74 |.. :.!..| ..Riset|
|00000d20| 0d 21 98 13 20 e7 20 46 | 4c 41 47 28 39 29 3c 3e |.!.. . F|LAG(9)<>|
|00000d30| 31 20 8c 0d 21 a2 1c 20 | 43 50 48 49 3d 9b 28 50 |1 ..!.. |CPHI=.(P|
|00000d40| 48 49 29 3a 53 50 48 49 | 3d b5 28 50 48 49 29 0d |HI):SPHI|=.(PHI).|
|00000d50| 21 ac 16 20 54 50 49 3d | 32 2a af 3a 46 4c 41 47 |!.. TPI=|2*.:FLAG|
|00000d60| 28 39 29 3d 31 0d 21 b6 | 18 20 cd 3a 43 59 3d 9b |(9)=1.!.|. .:CY=.|
|00000d70| 28 59 29 3a 41 3d 43 59 | 2a 43 50 48 49 0d 21 c0 |(Y):A=CY|*CPHI.!.|
|00000d80| 1d 20 e7 20 94 28 41 29 | 3c 31 45 2d 31 30 20 8c |. . .(A)|<1E-10 .|
|00000d90| 20 45 52 52 31 3d 2d 32 | 3a e1 0d 21 ca 11 20 43 | ERR1=-2|:..!.. C|
|00000da0| 50 53 49 3d 53 50 48 49 | 2f 43 59 0d 21 d4 16 20 |PSI=SPHI|/CY.!.. |
|00000db0| e7 20 43 50 53 49 3e 31 | 20 8c 20 43 50 53 49 3d |. CPSI>1| . CPSI=|
|00000dc0| 31 0d 21 de 18 20 e7 20 | 43 50 53 49 3c 2d 31 20 |1.!.. . |CPSI<-1 |
|00000dd0| 8c 20 43 50 53 49 3d 2d | 31 0d 21 e8 1c 20 50 53 |. CPSI=-|1.!.. PS|
|00000de0| 49 3d 95 28 43 50 53 49 | 29 3a 53 50 53 49 3d b5 |I=.(CPSI|):SPSI=.|
|00000df0| 28 50 53 49 29 0d 21 f2 | 20 20 44 48 3d 44 49 53 |(PSI).!.|  DH=DIS|
|00000e00| 2a 53 50 53 49 3a 59 31 | 3d 59 2b 28 44 49 53 2a |*SPSI:Y1|=Y+(DIS*|
|00000e10| 43 50 53 49 29 0d 21 fc | 16 20 53 59 3d b5 28 59 |CPSI).!.|. SY=.(Y|
|00000e20| 31 29 3a 54 59 3d b7 28 | 59 31 29 0d 22 06 11 20 |1):TY=.(|Y1).".. |
|00000e30| 43 48 3d 2d b7 50 48 49 | 2a b7 59 31 0d 22 10 18 |CH=-.PHI|*.Y1."..|
|00000e40| 20 e7 20 43 48 3c 2d 31 | 20 8c 20 45 52 52 31 3d | . CH<-1| . ERR1=|
|00000e50| 2d 31 3a e1 0d 22 1a 16 | 20 e7 20 43 48 3e 31 20 |-1:.."..| . CH>1 |
|00000e60| 8c 20 45 52 52 31 3d 31 | 3a e1 0d 22 24 13 20 45 |. ERR1=1|:.."$. E|
|00000e70| 52 52 31 3d 30 3a 48 3d | 95 28 43 48 29 0d 22 2e |RR1=0:H=|.(CH).".|
|00000e80| 19 20 48 3d 28 48 2b 44 | 48 29 2a 33 2e 38 31 39 |. H=(H+D|H)*3.819|
|00000e90| 37 31 38 36 33 34 0d 22 | 38 1d 20 43 41 5a 52 3d |718634."|8. CAZR=|
|00000ea0| 53 59 2f 43 50 48 49 3a | 41 5a 52 3d 95 28 43 41 |SY/CPHI:|AZR=.(CA|
|00000eb0| 5a 52 29 0d 22 42 16 20 | 41 5a 53 3d 54 50 49 2d |ZR)."B. |AZS=TPI-|
|00000ec0| 41 5a 52 3a 43 3d 54 50 | 49 0d 22 4c 18 20 42 3d |AZR:C=TP|I."L. B=|
|00000ed0| 41 5a 52 3a f2 41 64 6a | 75 73 74 3a 41 5a 52 3d |AZR:.Adj|ust:AZR=|
|00000ee0| 42 0d 22 56 18 20 42 3d | 41 5a 53 3a f2 41 64 6a |B."V. B=|AZS:.Adj|
|00000ef0| 75 73 74 3a 41 5a 53 3d | 42 0d 22 60 06 20 e1 0d |ust:AZS=|B."`. ..|
|00000f00| 22 6a 06 20 3a 0d 22 74 | 0d 20 dd f2 41 64 6a 75 |"j. :."t|. ..Adju|
|00000f10| 73 74 0d 22 7e 12 20 e7 | 20 42 3c 30 20 8c 20 42 |st."~. .| B<0 . B|
|00000f20| 3d 42 2b 43 0d 22 88 12 | 20 e7 20 42 3e 43 20 8c |=B+C."..| . B>C .|
|00000f30| 20 42 3d 42 2d 43 0d 22 | 92 06 20 e1 0d 22 9c 06 | B=B-C."|.. .."..|
|00000f40| 20 3a 0d 22 a6 0c 20 dd | f2 4e 75 74 61 74 0d 22 | :.".. .|.Nutat."|
|00000f50| b0 14 20 e7 20 46 4c 41 | 47 28 36 29 3d 31 20 8c |.. . FLA|G(6)=1 .|
|00000f60| 20 e1 0d 22 ba 18 20 46 | 4c 41 47 28 36 29 3d 31 | ..".. F|LAG(6)=1|
|00000f70| 3a 46 4c 41 47 28 37 29 | 3d 30 0d 22 c4 1f 20 f2 |:FLAG(7)|=0.".. .|
|00000f80| 4a 75 6c 64 61 79 3a 54 | 3d 44 4a 44 2f 33 36 35 |Julday:T|=DJD/365|
|00000f90| 32 35 3a 54 32 3d 54 2a | 54 0d 22 ce 25 20 41 3d |25:T2=T*|T.".% A=|
|00000fa0| 31 2e 30 30 30 30 32 31 | 33 35 38 45 32 2a 54 3a |1.000021|358E2*T:|
|00000fb0| 42 3d 33 36 30 2a 28 41 | 2d a8 28 41 29 29 0d 22 |B=360*(A|-.(A))."|
|00000fc0| d8 1f 20 4c 53 3d 32 2e | 37 39 36 39 36 37 45 32 |.. LS=2.|796967E2|
|00000fd0| 2b 33 2e 30 33 45 2d 34 | 2a 54 32 2b 42 0d 22 e2 |+3.03E-4|*T2+B.".|
|00000fe0| 25 20 41 3d 31 2e 33 33 | 36 38 35 35 32 33 31 45 |% A=1.33|6855231E|
|00000ff0| 33 2a 54 3a 42 3d 33 36 | 30 2a 28 41 2d a8 28 41 |3*T:B=36|0*(A-.(A|
|00001000| 29 29 0d 22 ec 20 20 4c | 44 3d 32 2e 37 30 34 33 |)).".  L|D=2.7043|
|00001010| 34 32 45 32 2d 31 2e 31 | 33 33 45 2d 33 2a 54 32 |42E2-1.1|33E-3*T2|
|00001020| 2b 42 0d 22 f6 25 20 41 | 3d 39 2e 39 39 39 37 33 |+B.".% A|=9.99973|
|00001030| 36 30 35 36 45 31 2a 54 | 3a 42 3d 33 36 30 2a 28 |6056E1*T|:B=360*(|
|00001040| 41 2d a8 28 41 29 29 0d | 23 00 1e 20 4d 53 3d 33 |A-.(A)).|#.. MS=3|
|00001050| 2e 35 38 34 37 35 38 45 | 32 2d 31 2e 35 45 2d 34 |.584758E|2-1.5E-4|
|00001060| 2a 54 32 2b 42 0d 23 0a | 25 20 41 3d 31 2e 33 32 |*T2+B.#.|% A=1.32|
|00001070| 35 35 35 32 33 35 39 45 | 33 2a 54 3a 42 3d 33 36 |5552359E|3*T:B=36|
|00001080| 30 2a 28 41 2d a8 28 41 | 29 29 0d 23 14 20 20 4d |0*(A-.(A|)).#.  M|
|00001090| 44 3d 32 2e 39 36 31 30 | 34 36 45 32 2b 39 2e 31 |D=2.9610|46E2+9.1|
|000010a0| 39 32 45 2d 33 2a 54 32 | 2b 42 0d 23 1e 23 20 41 |92E-3*T2|+B.#.# A|
|000010b0| 3d 35 2e 33 37 32 36 31 | 36 36 36 37 2a 54 3a 42 |=5.37261|6667*T:B|
|000010c0| 3d 33 36 30 2a 28 41 2d | a8 28 41 29 29 0d 23 28 |=360*(A-|.(A)).#(|
|000010d0| 20 20 4e 4d 3d 32 2e 35 | 39 31 38 33 33 45 32 2b |  NM=2.5|91833E2+|
|000010e0| 32 2e 30 37 38 45 2d 33 | 2a 54 32 2d 42 0d 23 32 |2.078E-3|*T2-B.#2|
|000010f0| 19 20 54 4c 53 3d 32 2a | b2 28 4c 53 29 3a 4e 4d |. TLS=2*|.(LS):NM|
|00001100| 3d b2 28 4e 4d 29 0d 23 | 3c 19 20 54 4e 4d 3d 32 |=.(NM).#|<. TNM=2|
|00001110| 2a b2 28 4e 4d 29 3a 4d | 53 3d b2 28 4d 53 29 0d |*.(NM):M|S=.(MS).|
|00001120| 23 46 19 20 54 4c 44 3d | 32 2a b2 28 4c 44 29 3a |#F. TLD=|2*.(LD):|
|00001130| 4d 44 3d b2 28 4d 44 29 | 0d 23 50 da 20 44 50 53 |MD=.(MD)|.#P. DPS|
|00001140| 49 3d 28 2d 31 37 2e 32 | 33 32 37 2d 31 2e 37 33 |I=(-17.2|327-1.73|
|00001150| 37 45 2d 32 2a 54 29 2a | b5 28 4e 4d 29 2b 28 2d |7E-2*T)*|.(NM)+(-|
|00001160| 31 2e 32 37 32 39 2d 31 | 2e 33 45 2d 34 2a 54 29 |1.2729-1|.3E-4*T)|
|00001170| 2a b5 28 54 4c 53 29 2b | 32 2e 30 38 38 45 2d 31 |*.(TLS)+|2.088E-1|
|00001180| 2a b5 28 54 4e 4d 29 2d | 32 2e 30 33 37 45 2d 31 |*.(TNM)-|2.037E-1|
|00001190| 2a b5 28 54 4c 44 29 2b | 28 31 2e 32 36 31 45 2d |*.(TLD)+|(1.261E-|
|000011a0| 31 2d 33 2e 31 45 2d 34 | 2a 54 29 2a b5 28 4d 53 |1-3.1E-4|*T)*.(MS|
|000011b0| 29 2b 36 2e 37 35 45 2d | 32 2a b5 28 4d 44 29 2d |)+6.75E-|2*.(MD)-|
|000011c0| 28 34 2e 39 37 45 2d 32 | 2d 31 2e 32 45 2d 34 2a |(4.97E-2|-1.2E-4*|
|000011d0| 54 29 2a b5 28 54 4c 53 | 2b 4d 53 29 2d 33 2e 34 |T)*.(TLS|+MS)-3.4|
|000011e0| 32 45 2d 32 2a b5 28 54 | 4c 44 2d 4e 4d 29 2d 32 |2E-2*.(T|LD-NM)-2|
|000011f0| 2e 36 31 45 2d 32 2a b5 | 28 54 4c 44 2b 4d 44 29 |.61E-2*.|(TLD+MD)|
|00001200| 2b 32 2e 31 34 45 2d 32 | 2a b5 28 54 4c 53 2d 4d |+2.14E-2|*.(TLS-M|
|00001210| 53 29 0d 23 5a 48 20 44 | 50 53 49 3d 44 50 53 49 |S).#ZH D|PSI=DPSI|
|00001220| 2d 31 2e 34 39 45 2d 32 | 2a b5 28 54 4c 53 2d 54 |-1.49E-2|*.(TLS-T|
|00001230| 4c 44 2b 4d 44 29 2b 31 | 2e 32 34 45 2d 32 2a b5 |LD+MD)+1|.24E-2*.|
|00001240| 28 54 4c 53 2d 4e 4d 29 | 2b 31 2e 31 34 45 2d 32 |(TLS-NM)|+1.14E-2|
|00001250| 2a b5 28 54 4c 44 2d 4d | 44 29 0d 23 64 b0 20 44 |*.(TLD-M|D).#d. D|
|00001260| 45 50 53 3d 28 39 2e 32 | 31 2b 39 2e 31 45 2d 34 |EPS=(9.2|1+9.1E-4|
|00001270| 2a 54 29 2a 9b 28 4e 4d | 29 2b 28 35 2e 35 32 32 |*T)*.(NM|)+(5.522|
|00001280| 45 2d 31 2d 32 2e 39 45 | 2d 34 2a 54 29 2a 9b 28 |E-1-2.9E|-4*T)*.(|
|00001290| 54 4c 53 29 2d 39 2e 30 | 34 45 2d 32 2a 9b 28 54 |TLS)-9.0|4E-2*.(T|
|000012a0| 4e 4d 29 2b 38 2e 38 34 | 45 2d 32 2a 9b 28 54 4c |NM)+8.84|E-2*.(TL|
|000012b0| 44 29 2b 32 2e 31 36 45 | 2d 32 2a 9b 28 54 4c 53 |D)+2.16E|-2*.(TLS|
|000012c0| 2b 4d 53 29 2b 31 2e 38 | 33 45 2d 32 2a 9b 28 54 |+MS)+1.8|3E-2*.(T|
|000012d0| 4c 44 2d 4e 4d 29 2b 31 | 2e 31 33 45 2d 32 2a 9b |LD-NM)+1|.13E-2*.|
|000012e0| 28 54 4c 44 2b 4d 44 29 | 2d 39 2e 33 45 2d 33 2a |(TLD+MD)|-9.3E-3*|
|000012f0| 9b 28 54 4c 53 2d 4d 53 | 29 2d 36 2e 36 45 2d 33 |.(TLS-MS|)-6.6E-3|
|00001300| 2a 9b 28 54 4c 53 2d 4e | 4d 29 0d 23 6e 22 20 44 |*.(TLS-N|M).#n" D|
|00001310| 50 53 49 3d 44 50 53 49 | 2f 33 36 30 30 3a 44 45 |PSI=DPSI|/3600:DE|
|00001320| 50 53 3d 44 45 50 53 2f | 33 36 30 30 0d 23 78 06 |PS=DEPS/|3600.#x.|
|00001330| 20 e1 0d 23 82 06 20 3a | 0d 23 8c 0a 20 dd f2 53 | ..#.. :|.#.. ..S|
|00001340| 75 6e 0d 23 96 1f 20 f2 | 4a 75 6c 64 61 79 3a 54 |un.#.. .|Julday:T|
|00001350| 3d 44 4a 44 2f 33 36 35 | 32 35 3a 54 32 3d 54 2a |=DJD/365|25:T2=T*|
|00001360| 54 0d 23 a0 25 20 41 3d | 31 2e 30 30 30 30 32 31 |T.#.% A=|1.000021|
|00001370| 33 35 39 45 32 2a 54 3a | 42 3d 33 36 30 2a 28 41 |359E2*T:|B=360*(A|
|00001380| 2d a8 28 41 29 29 0d 23 | aa 21 20 4c 53 3d 32 2e |-.(A)).#|.! LS=2.|
|00001390| 37 39 36 39 36 36 38 45 | 32 2b 33 2e 30 32 35 45 |7969668E|2+3.025E|
|000013a0| 2d 34 2a 54 32 2b 42 0d | 23 b4 25 20 41 3d 39 2e |-4*T2+B.|#.% A=9.|
|000013b0| 39 39 39 37 33 36 30 34 | 32 45 31 2a 54 3a 42 3d |99973604|2E1*T:B=|
|000013c0| 33 36 30 2a 28 41 2d a8 | 28 41 29 29 0d 23 be 2a |360*(A-.|(A)).#.*|
|000013d0| 20 4d 53 3d 33 2e 35 38 | 34 37 35 38 33 45 32 2d | MS=3.58|47583E2-|
|000013e0| 28 31 2e 35 45 2d 34 2b | 33 2e 33 45 2d 36 2a 54 |(1.5E-4+|3.3E-6*T|
|000013f0| 29 2a 54 32 2b 42 0d 23 | c8 27 20 53 3d 31 2e 36 |)*T2+B.#|.' S=1.6|
|00001400| 37 35 31 30 34 45 2d 32 | 2d 34 2e 31 38 45 2d 35 |75104E-2|-4.18E-5|
|00001410| 2a 54 2d 31 2e 32 36 45 | 2d 37 2a 54 32 0d 23 d2 |*T-1.26E|-7*T2.#.|
|00001420| 16 20 4d 41 3d b2 28 4d | 53 29 3a f2 41 6e 6f 6d |. MA=.(M|S):.Anom|
|00001430| 61 6c 79 0d 23 dc 25 20 | 41 3d 36 2e 32 35 35 32 |aly.#.% |A=6.2552|
|00001440| 30 39 34 37 32 45 31 2a | 54 3a 42 3d 33 36 30 2a |09472E1*|T:B=360*|
|00001450| 28 41 2d a8 28 41 29 29 | 0d 23 e6 13 20 41 31 3d |(A-.(A))|.#.. A1=|
|00001460| b2 28 31 35 33 2e 32 33 | 2b 42 29 0d 23 f0 25 20 |.(153.23|+B).#.% |
|00001470| 41 3d 31 2e 32 35 31 30 | 34 31 38 39 34 45 32 2a |A=1.2510|41894E2*|
|00001480| 54 3a 42 3d 33 36 30 2a | 28 41 2d a8 28 41 29 29 |T:B=360*|(A-.(A))|
|00001490| 0d 23 fa 13 20 42 31 3d | b2 28 32 31 36 2e 35 37 |.#.. B1=|.(216.57|
|000014a0| 2b 42 29 0d 24 04 25 20 | 41 3d 39 2e 31 35 36 37 |+B).$.% |A=9.1567|
|000014b0| 36 36 30 32 38 45 31 2a | 54 3a 42 3d 33 36 30 2a |66028E1*|T:B=360*|
|000014c0| 28 41 2d a8 28 41 29 29 | 0d 24 0e 13 20 43 31 3d |(A-.(A))|.$.. C1=|
|000014d0| b2 28 33 31 32 2e 36 39 | 2b 42 29 0d 24 18 25 20 |.(312.69|+B).$.% |
|000014e0| 41 3d 31 2e 32 33 36 38 | 35 33 30 39 35 45 33 2a |A=1.2368|53095E3*|
|000014f0| 54 3a 42 3d 33 36 30 2a | 28 41 2d a8 28 41 29 29 |T:B=360*|(A-.(A))|
|00001500| 0d 24 22 1e 20 44 31 3d | b2 28 33 35 30 2e 37 34 |.$". D1=|.(350.74|
|00001510| 2d 31 2e 34 34 45 2d 33 | 2a 54 32 2b 42 29 0d 24 |-1.44E-3|*T2+B).$|
|00001520| 2c 18 20 45 31 3d b2 28 | 32 33 31 2e 31 39 2b 32 |,. E1=.(|231.19+2|
|00001530| 30 2e 32 2a 54 29 0d 24 | 36 25 20 41 3d 31 2e 38 |0.2*T).$|6% A=1.8|
|00001540| 33 31 33 35 33 32 30 38 | 45 32 2a 54 3a 42 3d 33 |31353208|E2*T:B=3|
|00001550| 36 30 2a 28 41 2d a8 28 | 41 29 29 0d 24 40 12 20 |60*(A-.(|A)).$@. |
|00001560| 48 31 3d b2 28 33 35 33 | 2e 34 2b 42 29 0d 24 4a |H1=.(353|.4+B).$J|
|00001570| 4a 20 44 4c 3d 31 2e 33 | 34 45 2d 33 2a 9b 28 41 |J DL=1.3|4E-3*.(A|
|00001580| 31 29 2b 31 2e 35 34 45 | 2d 33 2a 9b 28 42 31 29 |1)+1.54E|-3*.(B1)|
|00001590| 2b 32 45 2d 33 2a 9b 28 | 43 31 29 2b 31 2e 37 39 |+2E-3*.(|C1)+1.79|
|000015a0| 45 2d 33 2a b5 28 44 31 | 29 2b 31 2e 37 38 45 2d |E-3*.(D1|)+1.78E-|
|000015b0| 33 2a b5 28 45 31 29 0d | 24 54 50 20 44 52 3d 35 |3*.(E1).|$TP DR=5|
|000015c0| 2e 34 33 45 2d 36 2a b5 | 28 41 31 29 2b 31 2e 35 |.43E-6*.|(A1)+1.5|
|000015d0| 37 35 45 2d 35 2a b5 28 | 42 31 29 2b 31 2e 36 32 |75E-5*.(|B1)+1.62|
|000015e0| 37 45 2d 35 2a b5 28 43 | 31 29 2b 33 2e 30 37 36 |7E-5*.(C|1)+3.076|
|000015f0| 45 2d 35 2a 9b 28 44 31 | 29 2b 39 2e 32 37 45 2d |E-5*.(D1|)+9.27E-|
|00001600| 36 2a b5 28 48 31 29 0d | 24 5e 1f 20 4c 53 4e 3d |6*.(H1).|$^. LSN=|
|00001610| 4e 55 2b b2 28 4c 53 2d | 4d 53 2b 44 4c 29 3a 54 |NU+.(LS-|MS+DL):T|
|00001620| 50 49 3d 32 2a af 0d 24 | 68 21 20 52 53 4e 3d 31 |PI=2*..$|h! RSN=1|
|00001630| 2e 30 30 30 30 30 30 32 | 2a 28 31 2d 53 2a 9b 28 |.0000002|*(1-S*.(|
|00001640| 45 41 29 29 2b 44 52 0d | 24 72 1e 20 c8 95 20 4c |EA))+DR.|$r. .. L|
|00001650| 53 4e 3c 30 20 3a 20 4c | 53 4e 3d 4c 53 4e 2b 54 |SN<0 : L|SN=LSN+T|
|00001660| 50 49 3a 20 ce 0d 24 7c | 1f 20 c8 95 20 4c 53 4e |PI: ..$||. .. LSN|
|00001670| 3e 54 50 49 3a 20 4c 53 | 4e 3d 4c 53 4e 2d 54 50 |>TPI: LS|N=LSN-TP|
|00001680| 49 3a 20 ce 0d 24 86 06 | 20 e1 0d 24 90 06 20 3a |I: ..$..| ..$.. :|
|00001690| 0d 24 9a 15 20 dd f2 4d | 69 6e 73 65 63 5f 44 65 |.$.. ..M|insec_De|
|000016a0| 63 69 6d 61 6c 0d 24 a4 | 0a 20 53 4e 3d 2b 31 0d |cimal.$.|. SN=+1.|
|000016b0| 24 ae 21 20 e7 20 58 44 | 3c 30 20 84 20 58 4d 3c |$.! . XD|<0 . XM<|
|000016c0| 30 20 84 20 58 53 3c 30 | 20 8c 20 53 4e 3d 2d 31 |0 . XS<0| . SN=-1|
|000016d0| 0d 24 b8 22 20 58 44 31 | 3d 94 28 58 44 29 3a 58 |.$." XD1|=.(XD):X|
|000016e0| 4d 31 3d 94 28 58 4d 29 | 3a 58 53 31 3d 94 28 58 |M1=.(XM)|:XS1=.(X|
|000016f0| 53 29 0d 24 c2 23 20 58 | 3d 28 28 28 28 58 53 31 |S).$.# X|=((((XS1|
|00001700| 2f 36 30 29 2b 58 4d 31 | 29 2f 36 30 29 2b 58 44 |/60)+XM1|)/60)+XD|
|00001710| 31 29 2a 53 4e 0d 24 cc | 06 20 e1 0d 24 d6 06 20 |1)*SN.$.|. ..$.. |
|00001720| 3a 0d 24 e0 0d 20 dd f2 | 4a 75 6c 64 61 79 0d 24 |:.$.. ..|Julday.$|
|00001730| ea 14 20 e7 20 46 4c 41 | 47 28 31 29 3d 31 20 8c |.. . FLA|G(1)=1 .|
|00001740| 20 e1 0d 24 f4 20 20 4d | 4e 31 3d 4d 4e 3a 59 52 | ..$.  M|N1=MN:YR|
|00001750| 31 3d 59 52 3a 42 3d 30 | 3a 46 4c 41 47 28 31 29 |1=YR:B=0|:FLAG(1)|
|00001760| 3d 31 0d 24 fe 15 20 e7 | 20 59 52 31 3c 30 20 8c |=1.$.. .| YR1<0 .|
|00001770| 20 59 52 31 2b 3d 31 0d | 25 08 1c 20 e7 20 4d 4e | YR1+=1.|%.. . MN|
|00001780| 3c 33 20 8c 20 4d 4e 31 | 2b 3d 31 32 3a 59 52 31 |<3 . MN1|+=12:YR1|
|00001790| 2d 3d 31 0d 25 12 3c 20 | e7 20 59 52 3e 31 35 38 |-=1.%.< |. YR>158|
|000017a0| 32 20 84 28 59 52 3d 31 | 35 38 32 20 80 20 4d 4e |2 .(YR=1|582 . MN|
|000017b0| 3e 31 30 29 84 28 59 52 | 3d 31 35 38 32 20 80 20 |>10).(YR|=1582 . |
|000017c0| 4d 4e 3d 31 30 20 80 20 | 44 59 3e 31 34 29 8c 0d |MN=10 . |DY>14)..|
|000017d0| 25 1c 32 20 41 3d a8 28 | 59 52 31 2f 31 30 30 29 |%.2 A=.(|YR1/100)|
|000017e0| 3a 42 3d 32 2d 41 2b a8 | 28 41 2f 34 29 3a f4 20 |:B=2-A+.|(A/4):. |
|000017f0| 61 66 74 65 72 20 31 34 | 2c 4f 63 74 20 31 35 38 |after 14|,Oct 158|
|00001800| 32 0d 25 26 06 20 cd 0d | 25 30 0e 20 e7 20 59 52 |2.%&. ..|%0. . YR|
|00001810| 31 3e 30 20 8c 0d 25 3a | 1b 20 43 3d a8 28 33 36 |1>0 ..%:|. C=.(36|
|00001820| 35 2e 32 35 2a 59 52 31 | 29 2d 36 39 34 30 32 35 |5.25*YR1|)-694025|
|00001830| 0d 25 44 06 20 cc 0d 25 | 4e 25 20 43 3d a4 49 54 |.%D. ..%|N% C=.IT|
|00001840| 47 28 28 33 36 35 2e 32 | 35 2a 59 52 31 29 2d 30 |G((365.2|5*YR1)-0|
|00001850| 2e 37 35 29 2d 36 39 34 | 30 32 35 0d 25 58 06 20 |.75)-694|025.%X. |
|00001860| cd 0d 25 62 19 20 44 3d | a8 28 33 30 2e 36 30 30 |..%b. D=|.(30.600|
|00001870| 31 2a 28 4d 4e 31 2b 31 | 29 29 0d 25 6c 15 20 44 |1*(MN1+1|)).%l. D|
|00001880| 4a 44 3d 42 2b 43 2b 44 | 2b 44 59 2d 30 2e 35 0d |JD=B+C+D|+DY-0.5.|
|00001890| 25 76 06 20 e1 0d 25 80 | 06 20 3a 0d 25 8a 0e 20 |%v. ..%.|. :.%.. |
|000018a0| dd f2 41 6e 6f 6d 61 6c | 79 0d 25 94 0c 20 54 50 |..Anomal|y.%.. TP|
|000018b0| 49 3d 32 2a af 0d 25 9e | 1c 20 4d 3d 4d 41 2d 54 |I=2*..%.|. M=MA-T|
|000018c0| 50 49 2a a8 28 4d 41 2f | 54 50 49 29 3a 45 41 3d |PI*.(MA/|TPI):EA=|
|000018d0| 4d 0d 25 a8 17 20 44 4c | 41 3d 45 41 2d 28 53 2a |M.%.. DL|A=EA-(S*|
|000018e0| b5 28 45 41 29 29 2d 4d | 0d 25 b2 13 20 c8 95 20 |.(EA))-M|.%.. .. |
|000018f0| 94 28 44 4c 41 29 3e 31 | 45 2d 36 0d 25 bc 1a 20 |.(DLA)>1|E-6.%.. |
|00001900| 44 4c 41 3d 44 4c 41 2f | 28 31 2d 28 53 2a 9b 28 |DLA=DLA/|(1-(S*.(|
|00001910| 45 41 29 29 29 0d 25 c6 | 0e 20 45 41 3d 45 41 2d |EA))).%.|. EA=EA-|
|00001920| 44 4c 41 0d 25 d0 17 20 | 44 4c 41 3d 45 41 2d 28 |DLA.%.. |DLA=EA-(|
|00001930| 53 2a b5 28 45 41 29 29 | 2d 4d 0d 25 da 06 20 ce |S*.(EA))|-M.%.. .|
|00001940| 0d 25 e4 20 20 54 4e 55 | 32 3d b6 28 28 31 2b 53 |.%.  TNU|2=.((1+S|
|00001950| 29 2f 28 31 2d 53 29 29 | 2a b7 28 45 41 2f 32 29 |)/(1-S))|*.(EA/2)|
|00001960| 0d 25 ee 11 20 4e 55 3d | 32 2a 99 28 54 4e 55 32 |.%.. NU=|2*.(TNU2|
|00001970| 29 0d 25 f8 06 20 e1 0d | 26 02 06 20 3a 0d 26 0c |).%.. ..|&.. :.&.|
|00001980| 0c 20 dd f2 4f 62 6c 69 | 71 0d 26 16 14 20 e7 20 |. ..Obli|q.&.. . |
|00001990| 46 4c 41 47 28 35 29 3d | 31 20 8c 20 e1 0d 26 20 |FLAG(5)=|1 . ..& |
|000019a0| 0e 20 46 4c 41 47 28 35 | 29 3d 31 0d 26 2a 18 20 |. FLAG(5|)=1.&*. |
|000019b0| f2 4a 75 6c 64 61 79 3a | 54 3d 44 4a 44 2f 33 36 |.Julday:|T=DJD/36|
|000019c0| 35 32 35 0d 26 34 2b 20 | 43 3d 28 28 28 2d 31 2e |525.&4+ |C=(((-1.|
|000019d0| 38 31 45 2d 33 2a 54 29 | 2b 35 2e 39 45 2d 33 29 |81E-3*T)|+5.9E-3)|
|000019e0| 2a 54 2b 34 2e 36 38 34 | 35 45 31 29 2a 54 0d 26 |*T+4.684|5E1)*T.&|
|000019f0| 3e 1f 20 45 50 53 3d 32 | 2e 33 34 35 32 32 39 34 |>. EPS=2|.3452294|
|00001a00| 34 34 45 31 2d 28 43 2f | 33 36 30 30 29 0d 26 48 |44E1-(C/|3600).&H|
|00001a10| 1c 20 45 50 53 52 3d 45 | 50 53 2a 31 2e 37 35 34 |. EPSR=E|PS*1.754|
|00001a20| 33 32 39 32 35 32 45 2d | 32 0d 26 52 06 20 e1 0d |329252E-|2.&R. ..|
|00001a30| 26 5c 06 20 3a 0d 26 66 | 1b 20 dd 20 a4 49 54 47 |&\. :.&f|. . .ITG|
|00001a40| 28 57 29 3d b4 28 57 29 | 2a a8 28 94 28 57 29 29 |(W)=.(W)|*.(.(W))|
|00001a50| 0d 26 70 06 20 3a 0d 26 | 7a 10 20 dd f2 4d 6f 6f |.&p. :.&|z. ..Moo|
|00001a60| 6e 6e 75 74 61 74 0d 26 | 84 11 20 f2 4d 6f 6f 6e |nnutat.&|.. .Moon|
|00001a70| 3a f2 4e 75 74 61 74 0d | 26 8e 17 20 54 48 3d 32 |:.Nutat.|&.. TH=2|
|00001a80| 2e 37 32 34 39 45 2d 31 | 2a b5 28 48 50 29 0d 26 |.7249E-1|*.(HP).&|
|00001a90| 98 19 20 44 49 53 3d 54 | 48 2b 39 2e 38 38 39 30 |.. DIS=T|H+9.8890|
|00001aa0| 32 45 2d 33 2d 48 50 0d | 26 a2 18 20 58 3d b2 28 |2E-3-HP.|&.. X=.(|
|00001ab0| 44 50 53 49 29 2b 4c 41 | 4d 3a 59 3d 42 45 54 0d |DPSI)+LA|M:Y=BET.|
|00001ac0| 26 ac 12 20 53 57 33 3d | 2d 31 3a f2 45 71 65 63 |&.. SW3=|-1:.Eqec|
|00001ad0| 6c 0d 26 b6 19 20 58 3d | 9d 28 50 2f 31 35 29 3a |l.&.. X=|.(P/15):|
|00001ae0| 59 3d 51 3a f2 52 69 73 | 65 74 0d 26 c0 06 20 e1 |Y=Q:.Ris|et.&.. .|
|00001af0| 0d 26 ca 06 20 3a 0d 26 | d4 11 20 dd f2 54 69 6d |.&.. :.&|.. ..Tim|
|00001b00| 65 41 64 6a 75 73 74 0d | 26 de 16 20 e7 20 54 52 |eAdjust.|&.. . TR|
|00001b10| 3c 30 20 8c 20 54 52 3d | 54 52 2b 32 34 0d 26 e8 |<0 . TR=|TR+24.&.|
|00001b20| 17 20 e7 20 54 52 3e 32 | 34 20 8c 20 54 52 3d 54 |. . TR>2|4 . TR=T|
|00001b30| 52 2d 32 34 0d 26 f2 16 | 20 e7 20 54 53 3c 30 20 |R-24.&..| . TS<0 |
|00001b40| 8c 20 54 53 3d 54 53 2b | 32 34 0d 26 fc 17 20 e7 |. TS=TS+|24.&.. .|
|00001b50| 20 54 53 3e 32 34 20 8c | 20 54 53 3d 54 53 2d 32 | TS>24 .| TS=TS-2|
|00001b60| 34 0d 27 06 06 20 e1 0d | 27 10 06 20 3a 0d 27 1a |4.'.. ..|'.. :.'.|
|00001b70| 0b 20 dd f2 4d 6f 6f 6e | 0d 27 24 1f 20 f2 4a 75 |. ..Moon|.'$. .Ju|
|00001b80| 6c 64 61 79 3a 54 3d 44 | 4a 44 2f 33 36 35 32 35 |lday:T=D|JD/36525|
|00001b90| 3a 54 32 3d 54 2a 54 0d | 27 2e 26 20 4d 31 3d 32 |:T2=T*T.|'.& M1=2|
|00001ba0| 2e 37 33 32 31 35 38 32 | 31 33 45 31 3a 4d 32 3d |.7321582|13E1:M2=|
|00001bb0| 33 2e 36 35 32 35 39 36 | 34 30 37 45 32 0d 27 38 |3.652596|407E2.'8|
|00001bc0| 26 20 4d 33 3d 32 2e 37 | 35 35 34 35 35 30 39 34 |& M3=2.7|55455094|
|00001bd0| 45 31 3a 4d 34 3d 32 2e | 39 35 33 30 35 38 38 36 |E1:M4=2.|95305886|
|00001be0| 38 45 31 0d 27 42 26 20 | 4d 35 3d 32 2e 37 32 31 |8E1.'B& |M5=2.721|
|00001bf0| 32 32 32 30 33 39 45 31 | 3a 4d 36 3d 36 2e 37 39 |222039E1|:M6=6.79|
|00001c00| 38 33 36 33 33 30 37 45 | 33 0d 27 4c 22 20 4d 31 |8363307E|3.'L" M1|
|00001c10| 3d 44 4a 44 2f 4d 31 3a | 4d 32 3d 44 4a 44 2f 4d |=DJD/M1:|M2=DJD/M|
|00001c20| 32 3a 4d 33 3d 44 4a 44 | 2f 4d 33 0d 27 56 22 20 |2:M3=DJD|/M3.'V" |
|00001c30| 4d 34 3d 44 4a 44 2f 4d | 34 3a 4d 35 3d 44 4a 44 |M4=DJD/M|4:M5=DJD|
|00001c40| 2f 4d 35 3a 4d 36 3d 44 | 4a 44 2f 4d 36 0d 27 60 |/M5:M6=D|JD/M6.'`|
|00001c50| 28 20 4d 31 3d 33 36 30 | 2a 28 4d 31 2d a8 28 4d |( M1=360|*(M1-.(M|
|00001c60| 31 29 29 3a 4d 32 3d 33 | 36 30 2a 28 4d 32 2d a8 |1)):M2=3|60*(M2-.|
|00001c70| 28 4d 32 29 29 0d 27 6a | 28 20 4d 33 3d 33 36 30 |(M2)).'j|( M3=360|
|00001c80| 2a 28 4d 33 2d a8 28 4d | 33 29 29 3a 4d 34 3d 33 |*(M3-.(M|3)):M4=3|
|00001c90| 36 30 2a 28 4d 34 2d a8 | 28 4d 34 29 29 0d 27 74 |60*(M4-.|(M4)).'t|
|00001ca0| 28 20 4d 35 3d 33 36 30 | 2a 28 4d 35 2d a8 28 4d |( M5=360|*(M5-.(M|
|00001cb0| 35 29 29 3a 4d 36 3d 33 | 36 30 2a 28 4d 36 2d a8 |5)):M6=3|60*(M6-.|
|00001cc0| 28 4d 36 29 29 0d 27 7e | 2e 20 4c 44 3d 32 2e 37 |(M6)).'~|. LD=2.7|
|00001cd0| 30 34 33 34 31 36 34 45 | 32 2b 4d 31 2d 28 31 2e |0434164E|2+M1-(1.|
|00001ce0| 31 33 33 45 2d 33 2d 31 | 2e 39 45 2d 36 2a 54 29 |133E-3-1|.9E-6*T)|
|00001cf0| 2a 54 32 0d 27 88 2c 20 | 4d 53 3d 33 2e 35 38 34 |*T2.'., |MS=3.584|
|00001d00| 37 35 38 33 33 45 32 2b | 4d 32 2d 28 31 2e 35 45 |75833E2+|M2-(1.5E|
|00001d10| 2d 34 2b 33 2e 33 45 2d | 36 2a 54 29 2a 54 32 0d |-4+3.3E-|6*T)*T2.|
|00001d20| 27 92 2f 20 4d 44 3d 32 | 2e 39 36 31 30 34 36 30 |'./ MD=2|.9610460|
|00001d30| 38 45 32 2b 4d 33 2b 28 | 39 2e 31 39 32 45 2d 33 |8E2+M3+(|9.192E-3|
|00001d40| 2b 31 2e 34 34 45 2d 35 | 2a 54 29 2a 54 32 0d 27 |+1.44E-5|*T)*T2.'|
|00001d50| 9c 2e 20 44 45 3d 33 2e | 35 30 37 33 37 34 38 36 |.. DE=3.|50737486|
|00001d60| 45 32 2b 4d 34 2d 28 31 | 2e 34 33 36 45 2d 33 2d |E2+M4-(1|.436E-3-|
|00001d70| 31 2e 39 45 2d 36 2a 54 | 29 2a 54 32 0d 27 a6 28 |1.9E-6*T|)*T2.'.(|
|00001d80| 20 46 3d 31 31 2e 32 35 | 30 38 38 39 2b 4d 35 2d | F=11.25|0889+M5-|
|00001d90| 28 33 2e 32 31 31 45 2d | 33 2b 33 45 2d 37 2a 54 |(3.211E-|3+3E-7*T|
|00001da0| 29 2a 54 32 0d 27 b0 2d | 20 4e 3d 32 2e 35 39 31 |)*T2.'.-| N=2.591|
|00001db0| 38 33 32 37 35 45 32 2d | 4d 36 2b 28 32 2e 30 37 |83275E2-|M6+(2.07|
|00001dc0| 38 45 2d 33 2b 32 2e 32 | 45 2d 35 2a 54 29 2a 54 |8E-3+2.2|E-5*T)*T|
|00001dd0| 32 0d 27 ba 1d 20 41 3d | b2 28 35 31 2e 32 2b 32 |2.'.. A=|.(51.2+2|
|00001de0| 30 2e 32 2a 54 29 3a 53 | 41 3d b5 28 41 29 0d 27 |0.2*T):S|A=.(A).'|
|00001df0| c4 0f 20 53 4e 3d b5 28 | b2 28 4e 29 29 0d 27 ce |.. SN=.(|.(N)).'.|
|00001e00| 24 20 42 3d 33 34 36 2e | 35 36 2b 28 31 33 32 2e |$ B=346.|56+(132.|
|00001e10| 38 37 2d 39 2e 31 37 31 | 33 45 2d 33 2a 54 29 2a |87-9.171|3E-3*T)*|
|00001e20| 54 0d 27 d8 18 20 53 42 | 3d 33 2e 39 36 34 45 2d |T.'.. SB|=3.964E-|
|00001e30| 33 2a b5 28 b2 28 42 29 | 29 0d 27 e2 20 20 43 3d |3*.(.(B)|).'.  C=|
|00001e40| b2 28 4e 2b 32 37 35 2e | 30 35 2d 32 2e 33 2a 54 |.(N+275.|05-2.3*T|
|00001e50| 29 3a 53 43 3d b5 28 43 | 29 0d 27 ec 24 20 4c 44 |):SC=.(C|).'.$ LD|
|00001e60| 3d 4c 44 2b 32 2e 33 33 | 45 2d 34 2a 53 41 2b 53 |=LD+2.33|E-4*SA+S|
|00001e70| 42 2b 31 2e 39 36 34 45 | 2d 33 2a 53 4e 0d 27 f6 |B+1.964E|-3*SN.'.|
|00001e80| 15 20 4d 53 3d 4d 53 2d | 31 2e 37 37 45 2d 33 2a |. MS=MS-|1.77E-3*|
|00001e90| 53 41 0d 28 00 24 20 4d | 44 3d 4d 44 2b 38 2e 31 |SA.(.$ M|D=MD+8.1|
|00001ea0| 37 45 2d 34 2a 53 41 2b | 53 42 2b 32 2e 35 34 31 |7E-4*SA+|SB+2.541|
|00001eb0| 45 2d 33 2a 53 4e 0d 28 | 0a 24 20 46 3d 46 2b 53 |E-3*SN.(|.$ F=F+S|
|00001ec0| 42 2d 32 2e 34 36 39 31 | 45 2d 32 2a 53 4e 2d 34 |B-2.4691|E-2*SN-4|
|00001ed0| 2e 33 32 38 45 2d 33 2a | 53 43 0d 28 14 25 20 44 |.328E-3*|SC.(.% D|
|00001ee0| 45 3d 44 45 2b 32 2e 30 | 31 31 45 2d 33 2a 53 41 |E=DE+2.0|11E-3*SA|
|00001ef0| 2b 53 42 2b 31 2e 39 36 | 34 45 2d 33 2a 53 4e 0d |+SB+1.96|4E-3*SN.|
|00001f00| 28 1e 26 20 45 3d 31 2d | 28 32 2e 34 39 35 45 2d |(.& E=1-|(2.495E-|
|00001f10| 33 2b 37 2e 35 32 45 2d | 36 2a 54 29 2a 54 3a 45 |3+7.52E-|6*T)*T:E|
|00001f20| 32 3d 45 2a 45 0d 28 28 | 1d 20 4c 44 3d b2 28 4c |2=E*E.((|. LD=.(L|
|00001f30| 44 29 3a 4d 53 3d b2 28 | 4d 53 29 3a 4e 3d b2 28 |D):MS=.(|MS):N=.(|
|00001f40| 4e 29 0d 28 32 1d 20 44 | 45 3d b2 28 44 45 29 3a |N).(2. D|E=.(DE):|
|00001f50| 46 3d b2 28 46 29 3a 4d | 44 3d b2 28 4d 44 29 0d |F=.(F):M|D=.(MD).|
|00001f60| 28 3c cf 20 4c 3d 36 2e | 32 38 38 37 35 2a b5 28 |(<. L=6.|28875*.(|
|00001f70| 4d 44 29 2b 31 2e 32 37 | 34 30 31 38 2a b5 28 32 |MD)+1.27|4018*.(2|
|00001f80| 2a 44 45 2d 4d 44 29 2b | 36 2e 35 38 33 30 39 45 |*DE-MD)+|6.58309E|
|00001f90| 2d 31 2a b5 28 32 2a 44 | 45 29 2b 32 2e 31 33 36 |-1*.(2*D|E)+2.136|
|00001fa0| 31 36 45 2d 31 2a b5 28 | 32 2a 4d 44 29 2d 45 2a |16E-1*.(|2*MD)-E*|
|00001fb0| 31 2e 38 35 35 39 36 45 | 2d 31 2a b5 28 4d 53 29 |1.85596E|-1*.(MS)|
|00001fc0| 2d 31 2e 31 34 33 33 36 | 45 2d 31 2a b5 28 32 2a |-1.14336|E-1*.(2*|
|00001fd0| 46 29 2b 35 2e 38 37 39 | 33 45 2d 32 2a b5 28 32 |F)+5.879|3E-2*.(2|
|00001fe0| 2a 28 44 45 2d 4d 44 29 | 29 2b 35 2e 37 32 31 32 |*(DE-MD)|)+5.7212|
|00001ff0| 45 2d 32 2a 45 2a b5 28 | 32 2a 44 45 2d 4d 53 2d |E-2*E*.(|2*DE-MS-|
|00002000| 4d 44 29 2b 35 2e 33 33 | 32 45 2d 32 2a b5 28 32 |MD)+5.33|2E-2*.(2|
|00002010| 2a 44 45 2b 4d 44 29 2b | 34 2e 35 38 37 34 45 2d |*DE+MD)+|4.5874E-|
|00002020| 32 2a 45 2a b5 28 32 2a | 44 45 2d 4d 53 29 0d 28 |2*E*.(2*|DE-MS).(|
|00002030| 46 d4 20 4c 3d 4c 2b 34 | 2e 31 30 32 34 45 2d 32 |F. L=L+4|.1024E-2|
|00002040| 2a 45 2a b5 28 4d 44 2d | 4d 53 29 2d 33 2e 34 37 |*E*.(MD-|MS)-3.47|
|00002050| 31 38 45 2d 32 2a b5 28 | 44 45 29 2d 45 2a 33 2e |18E-2*.(|DE)-E*3.|
|00002060| 30 34 36 35 45 2d 32 2a | b5 28 4d 53 2b 4d 44 29 |0465E-2*|.(MS+MD)|
|00002070| 2b 31 2e 35 33 32 36 45 | 2d 32 2a b5 28 32 2a 28 |+1.5326E|-2*.(2*(|
|00002080| 44 45 2d 46 29 29 2d 31 | 2e 32 35 32 38 45 2d 32 |DE-F))-1|.2528E-2|
|00002090| 2a b5 28 32 2a 46 2b 4d | 44 29 2d 31 2e 30 39 38 |*.(2*F+M|D)-1.098|
|000020a0| 45 2d 32 2a b5 28 32 2a | 46 2d 4d 44 29 2b 31 2e |E-2*.(2*|F-MD)+1.|
|000020b0| 30 36 37 34 45 2d 32 2a | b5 28 34 2a 44 45 2d 4d |0674E-2*|.(4*DE-M|
|000020c0| 44 29 2b 31 2e 30 30 33 | 34 45 2d 32 2a b5 28 33 |D)+1.003|4E-2*.(3|
|000020d0| 2a 4d 44 29 2b 38 2e 35 | 34 38 45 2d 33 2a b5 28 |*MD)+8.5|48E-3*.(|
|000020e0| 34 2a 44 45 2d 32 2a 4d | 44 29 2d 45 2a 37 2e 39 |4*DE-2*M|D)-E*7.9|
|000020f0| 31 45 2d 33 2a b5 28 4d | 53 2d 4d 44 2b 32 2a 44 |1E-3*.(M|S-MD+2*D|
|00002100| 45 29 0d 28 50 c4 20 4c | 3d 4c 2d 45 2a 36 2e 37 |E).(P. L|=L-E*6.7|
|00002110| 38 33 45 2d 33 2a b5 28 | 32 2a 44 45 2b 4d 53 29 |83E-3*.(|2*DE+MS)|
|00002120| 2b 35 2e 31 36 32 45 2d | 33 2a b5 28 4d 44 2d 44 |+5.162E-|3*.(MD-D|
|00002130| 45 29 2b 45 2a 35 45 2d | 33 2a b5 28 4d 53 2b 44 |E)+E*5E-|3*.(MS+D|
|00002140| 45 29 2b 33 2e 38 36 32 | 45 2d 33 2a b5 28 34 2a |E)+3.862|E-3*.(4*|
|00002150| 44 45 29 2b 45 2a 34 2e | 30 34 39 45 2d 33 2a b5 |DE)+E*4.|049E-3*.|
|00002160| 28 4d 44 2d 4d 53 2b 32 | 2a 44 45 29 2b 33 2e 39 |(MD-MS+2|*DE)+3.9|
|00002170| 39 36 45 2d 33 2a b5 28 | 32 2a 28 4d 44 2b 44 45 |96E-3*.(|2*(MD+DE|
|00002180| 29 29 2b 33 2e 36 36 35 | 45 2d 33 2a b5 28 32 2a |))+3.665|E-3*.(2*|
|00002190| 44 45 2d 33 2a 4d 44 29 | 2b 45 2a 32 2e 36 39 35 |DE-3*MD)|+E*2.695|
|000021a0| 45 2d 33 2a b5 28 32 2a | 4d 44 2d 4d 53 29 2b 32 |E-3*.(2*|MD-MS)+2|
|000021b0| 2e 36 30 32 45 2d 33 2a | b5 28 4d 44 2d 32 2a 28 |.602E-3*|.(MD-2*(|
|000021c0| 46 2b 44 45 29 29 0d 28 | 5a d9 20 4c 3d 4c 2b 45 |F+DE)).(|Z. L=L+E|
|000021d0| 2a 32 2e 33 39 36 45 2d | 33 2a b5 28 32 2a 28 44 |*2.396E-|3*.(2*(D|
|000021e0| 45 2d 4d 44 29 2d 4d 53 | 29 2d 32 2e 33 34 39 45 |E-MD)-MS|)-2.349E|
|000021f0| 2d 33 2a b5 28 4d 44 2b | 44 45 29 2b 45 32 2a 32 |-3*.(MD+|DE)+E2*2|
|00002200| 2e 32 34 39 45 2d 33 2a | b5 28 32 2a 28 44 45 2d |.249E-3*|.(2*(DE-|
|00002210| 4d 53 29 29 2d 45 2a 32 | 2e 31 32 35 45 2d 33 2a |MS))-E*2|.125E-3*|
|00002220| b5 28 32 2a 4d 44 2b 4d | 53 29 2d 45 32 2a 32 2e |.(2*MD+M|S)-E2*2.|
|00002230| 30 37 39 45 2d 33 2a b5 | 28 32 2a 4d 53 29 2b 45 |079E-3*.|(2*MS)+E|
|00002240| 32 2a 32 2e 30 35 39 45 | 2d 33 2a b5 28 32 2a 28 |2*2.059E|-3*.(2*(|
|00002250| 44 45 2d 4d 53 29 2d 4d | 44 29 2d 31 2e 37 37 33 |DE-MS)-M|D)-1.773|
|00002260| 45 2d 33 2a b5 28 4d 44 | 2b 32 2a 28 44 45 2d 46 |E-3*.(MD|+2*(DE-F|
|00002270| 29 29 2d 31 2e 35 39 35 | 45 2d 33 2a b5 28 32 2a |))-1.595|E-3*.(2*|
|00002280| 28 46 2b 44 45 29 29 2b | 45 2a 31 2e 32 32 45 2d |(F+DE))+|E*1.22E-|
|00002290| 33 2a b5 28 34 2a 44 45 | 2d 4d 53 2d 4d 44 29 0d |3*.(4*DE|-MS-MD).|
|000022a0| 28 64 d1 20 4c 3d 4c 2d | 31 2e 31 31 45 2d 33 2a |(d. L=L-|1.11E-3*|
|000022b0| b5 28 32 2a 28 4d 44 2b | 46 29 29 2b 38 2e 39 32 |.(2*(MD+|F))+8.92|
|000022c0| 45 2d 34 2a b5 28 4d 44 | 2d 33 2a 44 45 29 2d 45 |E-4*.(MD|-3*DE)-E|
|000022d0| 2a 38 2e 31 31 45 2d 34 | 2a b5 28 4d 53 2b 4d 44 |*8.11E-4|*.(MS+MD|
|000022e0| 2b 32 2a 44 45 29 2b 45 | 2a 37 2e 36 31 45 2d 34 |+2*DE)+E|*7.61E-4|
|000022f0| 2a b5 28 34 2a 44 45 2d | 4d 53 2d 32 2a 4d 44 29 |*.(4*DE-|MS-2*MD)|
|00002300| 2b 45 32 2a 37 2e 30 34 | 45 2d 34 2a b5 28 4d 44 |+E2*7.04|E-4*.(MD|
|00002310| 2d 32 2a 28 4d 53 2b 44 | 45 29 29 2b 45 2a 36 2e |-2*(MS+D|E))+E*6.|
|00002320| 39 33 45 2d 34 2a b5 28 | 4d 53 2d 32 2a 28 4d 44 |93E-4*.(|MS-2*(MD|
|00002330| 2d 44 45 29 29 2b 45 2a | 35 2e 39 38 45 2d 34 2a |-DE))+E*|5.98E-4*|
|00002340| b5 28 32 2a 28 44 45 2d | 46 29 2d 4d 53 29 2b 35 |.(2*(DE-|F)-MS)+5|
|00002350| 2e 35 45 2d 34 2a b5 28 | 4d 44 2b 34 2a 44 45 29 |.5E-4*.(|MD+4*DE)|
|00002360| 2b 35 2e 33 38 45 2d 34 | 2a b5 28 34 2a 4d 44 29 |+5.38E-4|*.(4*MD)|
|00002370| 0d 28 6e 46 20 4c 3d 4c | 2b 45 2a 35 2e 32 31 45 |.(nF L=L|+E*5.21E|
|00002380| 2d 34 2a b5 28 34 2a 44 | 45 2d 4d 53 29 2b 34 2e |-4*.(4*D|E-MS)+4.|
|00002390| 38 36 45 2d 34 2a b5 28 | 32 2a 4d 44 2d 44 45 29 |86E-4*.(|2*MD-DE)|
|000023a0| 2b 45 32 2a 37 2e 31 37 | 45 2d 34 2a b5 28 4d 44 |+E2*7.17|E-4*.(MD|
|000023b0| 2d 32 2a 4d 53 29 0d 28 | 78 18 20 4c 41 4d 3d 4c |-2*MS).(|x. LAM=L|
|000023c0| 44 2b b2 28 4c 29 3a 54 | 50 49 3d 32 2a af 0d 28 |D+.(L):T|PI=2*..(|
|000023d0| 82 1d 20 c8 95 20 4c 41 | 4d 3c 30 20 3a 20 4c 41 |.. .. LA|M<0 : LA|
|000023e0| 4d 3d 4c 41 4d 2b 54 50 | 49 3a ce 0d 28 8c 1f 20 |M=LAM+TP|I:..(.. |
|000023f0| c8 95 20 4c 41 4d 3e 54 | 50 49 20 3a 20 4c 41 4d |.. LAM>T|PI : LAM|
|00002400| 3d 4c 41 4d 2d 54 50 49 | 3a ce 0d 28 96 ce 20 47 |=LAM-TPI|:..(.. G|
|00002410| 3d 35 2e 31 32 38 31 38 | 39 2a b5 28 46 29 2b 32 |=5.12818|9*.(F)+2|
|00002420| 2e 38 30 36 30 36 45 2d | 31 2a b5 28 4d 44 2b 46 |.80606E-|1*.(MD+F|
|00002430| 29 2b 32 2e 37 37 36 39 | 33 45 2d 31 2a b5 28 4d |)+2.7769|3E-1*.(M|
|00002440| 44 2d 46 29 2b 31 2e 37 | 33 32 33 38 45 2d 31 2a |D-F)+1.7|3238E-1*|
|00002450| b5 28 32 2a 44 45 2d 46 | 29 2b 35 2e 35 34 31 33 |.(2*DE-F|)+5.5413|
|00002460| 45 2d 32 2a b5 28 32 2a | 44 45 2b 46 2d 4d 44 29 |E-2*.(2*|DE+F-MD)|
|00002470| 2b 34 2e 36 32 37 32 45 | 2d 32 2a b5 28 32 2a 44 |+4.6272E|-2*.(2*D|
|00002480| 45 2d 46 2d 4d 44 29 2b | 33 2e 32 35 37 33 45 2d |E-F-MD)+|3.2573E-|
|00002490| 32 2a b5 28 32 2a 44 45 | 2b 46 29 2b 31 2e 37 31 |2*.(2*DE|+F)+1.71|
|000024a0| 39 38 45 2d 32 2a b5 28 | 32 2a 4d 44 2b 46 29 2b |98E-2*.(|2*MD+F)+|
|000024b0| 39 2e 32 36 37 45 2d 33 | 2a b5 28 32 2a 44 45 2b |9.267E-3|*.(2*DE+|
|000024c0| 4d 44 2d 46 29 2b 38 2e | 38 32 33 45 2d 33 2a b5 |MD-F)+8.|823E-3*.|
|000024d0| 28 32 2a 4d 44 2d 46 29 | 0d 28 a0 c8 20 47 3d 47 |(2*MD-F)|.(.. G=G|
|000024e0| 2b 45 2a 38 2e 32 34 37 | 45 2d 33 2a b5 28 32 2a |+E*8.247|E-3*.(2*|
|000024f0| 44 45 2d 4d 53 2d 46 29 | 2b 34 2e 33 32 33 45 2d |DE-MS-F)|+4.323E-|
|00002500| 33 2a b5 28 32 2a 28 44 | 45 2d 4d 44 29 2d 46 29 |3*.(2*(D|E-MD)-F)|
|00002510| 2b 34 2e 32 45 2d 33 2a | b5 28 32 2a 44 45 2b 46 |+4.2E-3*|.(2*DE+F|
|00002520| 2b 4d 44 29 2b 45 2a 33 | 2e 33 37 32 45 2d 33 2a |+MD)+E*3|.372E-3*|
|00002530| b5 28 46 2d 4d 53 2d 32 | 2a 44 45 29 2b 45 2a 32 |.(F-MS-2|*DE)+E*2|
|00002540| 2e 34 37 32 45 2d 33 2a | b5 28 32 2a 44 45 2b 46 |.472E-3*|.(2*DE+F|
|00002550| 2d 4d 53 2d 4d 44 29 2b | 45 2a 32 2e 32 32 32 45 |-MS-MD)+|E*2.222E|
|00002560| 2d 33 2a b5 28 32 2a 44 | 45 2b 46 2d 4d 53 29 2b |-3*.(2*D|E+F-MS)+|
|00002570| 45 2a 32 2e 30 37 32 45 | 2d 33 2a b5 28 32 2a 44 |E*2.072E|-3*.(2*D|
|00002580| 45 2d 46 2d 4d 53 2d 4d | 44 29 2b 45 2a 31 2e 38 |E-F-MS-M|D)+E*1.8|
|00002590| 37 37 45 2d 33 2a b5 28 | 46 2d 4d 53 2b 4d 44 29 |77E-3*.(|F-MS+MD)|
|000025a0| 0d 28 aa c7 20 47 3d 47 | 2b 31 2e 38 32 38 45 2d |.(.. G=G|+1.828E-|
|000025b0| 33 2a b5 28 34 2a 44 45 | 2d 46 2d 4d 44 29 2d 45 |3*.(4*DE|-F-MD)-E|
|000025c0| 2a 31 2e 38 30 33 45 2d | 33 2a b5 28 46 2b 4d 53 |*1.803E-|3*.(F+MS|
|000025d0| 29 2d 31 2e 37 35 45 2d | 33 2a b5 28 33 2a 46 29 |)-1.75E-|3*.(3*F)|
|000025e0| 2b 45 2a 31 2e 35 37 45 | 2d 33 2a b5 28 4d 44 2d |+E*1.57E|-3*.(MD-|
|000025f0| 4d 53 2d 46 29 2d 31 2e | 34 38 37 45 2d 33 2a b5 |MS-F)-1.|487E-3*.|
|00002600| 28 46 2b 44 45 29 2d 45 | 2a 31 2e 34 38 31 45 2d |(F+DE)-E|*1.481E-|
|00002610| 33 2a b5 28 46 2b 4d 53 | 2b 4d 44 29 2b 45 2a 31 |3*.(F+MS|+MD)+E*1|
|00002620| 2e 34 31 37 45 2d 33 2a | b5 28 46 2d 4d 53 2d 4d |.417E-3*|.(F-MS-M|
|00002630| 44 29 2b 45 2a 31 2e 33 | 35 45 2d 33 2a b5 28 46 |D)+E*1.3|5E-3*.(F|
|00002640| 2d 4d 53 29 2b 31 2e 33 | 33 45 2d 33 2a b5 28 46 |-MS)+1.3|3E-3*.(F|
|00002650| 2d 44 45 29 2b 31 2e 31 | 30 36 45 2d 33 2a b5 28 |-DE)+1.1|06E-3*.(|
|00002660| 46 2b 33 2a 4d 44 29 0d | 28 b4 c4 20 47 3d 47 2b |F+3*MD).|(.. G=G+|
|00002670| 31 2e 30 32 45 2d 33 2a | b5 28 34 2a 44 45 2d 46 |1.02E-3*|.(4*DE-F|
|00002680| 29 2b 38 2e 33 33 45 2d | 34 2a b5 28 46 2b 34 2a |)+8.33E-|4*.(F+4*|
|00002690| 44 45 2d 4d 44 29 2b 37 | 2e 38 31 45 2d 34 2a b5 |DE-MD)+7|.81E-4*.|
|000026a0| 28 4d 44 2d 33 2a 46 29 | 2b 36 2e 37 45 2d 34 2a |(MD-3*F)|+6.7E-4*|
|000026b0| b5 28 46 2b 34 2a 44 45 | 2d 32 2a 4d 44 29 2b 36 |.(F+4*DE|-2*MD)+6|
|000026c0| 2e 30 36 45 2d 34 2a b5 | 28 32 2a 44 45 2d 33 2a |.06E-4*.|(2*DE-3*|
|000026d0| 46 29 2b 35 2e 39 37 45 | 2d 34 2a b5 28 32 2a 28 |F)+5.97E|-4*.(2*(|
|000026e0| 44 45 2b 4d 44 29 2d 46 | 29 2b 45 2a 34 2e 39 32 |DE+MD)-F|)+E*4.92|
|000026f0| 45 2d 34 2a b5 28 32 2a | 44 45 2b 4d 44 2d 4d 53 |E-4*.(2*|DE+MD-MS|
|00002700| 2d 46 29 2b 34 2e 35 45 | 2d 34 2a b5 28 32 2a 28 |-F)+4.5E|-4*.(2*(|
|00002710| 4d 44 2d 44 45 29 2d 46 | 29 2b 34 2e 33 39 45 2d |MD-DE)-F|)+4.39E-|
|00002720| 34 2a b5 28 33 2a 4d 44 | 2d 46 29 0d 28 be bf 20 |4*.(3*MD|-F).(.. |
|00002730| 47 3d 47 2b 34 2e 32 33 | 45 2d 34 2a b5 28 46 2b |G=G+4.23|E-4*.(F+|
|00002740| 32 2a 28 44 45 2b 4d 44 | 29 29 2b 34 2e 32 32 45 |2*(DE+MD|))+4.22E|
|00002750| 2d 34 2a b5 28 32 2a 44 | 45 2d 46 2d 33 2a 4d 44 |-4*.(2*D|E-F-3*MD|
|00002760| 29 2d 45 2a 33 2e 36 37 | 45 2d 34 2a b5 28 4d 53 |)-E*3.67|E-4*.(MS|
|00002770| 2b 46 2b 32 2a 44 45 2d | 4d 44 29 2d 45 2a 33 2e |+F+2*DE-|MD)-E*3.|
|00002780| 35 33 45 2d 34 2a b5 28 | 4d 53 2b 46 2b 32 2a 44 |53E-4*.(|MS+F+2*D|
|00002790| 45 29 2b 33 2e 33 31 45 | 2d 34 2a b5 28 46 2b 34 |E)+3.31E|-4*.(F+4|
|000027a0| 2a 44 45 29 2b 45 2a 33 | 2e 31 37 45 2d 34 2a b5 |*DE)+E*3|.17E-4*.|
|000027b0| 28 32 2a 44 45 2b 46 2d | 4d 53 2b 4d 44 29 2b 45 |(2*DE+F-|MS+MD)+E|
|000027c0| 32 2a 33 2e 30 36 45 2d | 34 2a b5 28 32 2a 28 44 |2*3.06E-|4*.(2*(D|
|000027d0| 45 2d 4d 53 29 2d 46 29 | 2d 32 2e 38 33 45 2d 34 |E-MS)-F)|-2.83E-4|
|000027e0| 2a b5 28 4d 44 2b 33 2a | 46 29 0d 28 c8 25 20 57 |*.(MD+3*|F).(.% W|
|000027f0| 31 3d 34 2e 36 36 34 45 | 2d 34 2a 9b 28 4e 29 3a |1=4.664E|-4*.(N):|
|00002800| 57 32 3d 37 2e 35 34 45 | 2d 35 2a 9b 28 43 29 0d |W2=7.54E|-5*.(C).|
|00002810| 28 d2 17 20 42 45 54 3d | b2 28 47 29 2a 28 31 2d |(.. BET=|.(G)*(1-|
|00002820| 57 31 2d 57 32 29 0d 28 | dc ca 20 48 50 3d 39 2e |W1-W2).(|.. HP=9.|
|00002830| 35 30 37 32 34 45 2d 31 | 2b 35 2e 31 38 31 45 2d |50724E-1|+5.181E-|
|00002840| 32 2a 9b 28 4d 44 29 2b | 39 2e 35 33 31 45 2d 33 |2*.(MD)+|9.531E-3|
|00002850| 2a 9b 28 32 2a 44 45 2d | 4d 44 29 2b 37 2e 38 34 |*.(2*DE-|MD)+7.84|
|00002860| 33 45 2d 33 2a 9b 28 32 | 2a 44 45 29 2b 32 2e 38 |3E-3*.(2|*DE)+2.8|
|00002870| 32 34 45 2d 33 2a 9b 28 | 32 2a 4d 44 29 2b 38 2e |24E-3*.(|2*MD)+8.|
|00002880| 35 37 45 2d 34 2a 9b 28 | 32 2a 44 45 2b 4d 44 29 |57E-4*.(|2*DE+MD)|
|00002890| 2b 45 2a 35 2e 33 33 45 | 2d 34 2a 9b 28 32 2a 44 |+E*5.33E|-4*.(2*D|
|000028a0| 45 2d 4d 53 29 2b 45 2a | 34 2e 30 31 45 2d 34 2a |E-MS)+E*|4.01E-4*|
|000028b0| 9b 28 32 2a 44 45 2d 4d | 44 2d 4d 53 29 2b 45 2a |.(2*DE-M|D-MS)+E*|
|000028c0| 33 2e 32 45 2d 34 2a 9b | 28 4d 44 2d 4d 53 29 2d |3.2E-4*.|(MD-MS)-|
|000028d0| 32 2e 37 31 45 2d 34 2a | 9b 28 44 45 29 2d 45 2a |2.71E-4*|.(DE)-E*|
|000028e0| 32 2e 36 34 45 2d 34 2a | 9b 28 4d 53 2b 4d 44 29 |2.64E-4*|.(MS+MD)|
|000028f0| 0d 28 e6 c6 20 48 50 3d | 48 50 2d 31 2e 39 38 45 |.(.. HP=|HP-1.98E|
|00002900| 2d 34 2a 9b 28 32 2a 46 | 2d 4d 44 29 2b 31 2e 37 |-4*.(2*F|-MD)+1.7|
|00002910| 33 45 2d 34 2a 9b 28 33 | 2a 4d 44 29 2b 31 2e 36 |3E-4*.(3|*MD)+1.6|
|00002920| 37 45 2d 34 2a 9b 28 34 | 2a 44 45 2d 4d 44 29 2d |7E-4*.(4|*DE-MD)-|
|00002930| 45 2a 31 2e 31 31 45 2d | 34 2a 9b 28 4d 53 29 2b |E*1.11E-|4*.(MS)+|
|00002940| 31 2e 30 33 45 2d 34 2a | 9b 28 34 2a 44 45 2d 32 |1.03E-4*|.(4*DE-2|
|00002950| 2a 4d 44 29 2d 38 2e 34 | 45 2d 35 2a 9b 28 32 2a |*MD)-8.4|E-5*.(2*|
|00002960| 4d 44 2d 32 2a 44 45 29 | 2d 45 2a 38 2e 33 45 2d |MD-2*DE)|-E*8.3E-|
|00002970| 35 2a 9b 28 32 2a 44 45 | 2b 4d 53 29 2b 37 2e 39 |5*.(2*DE|+MS)+7.9|
|00002980| 45 2d 35 2a 9b 28 32 2a | 44 45 2b 32 2a 4d 44 29 |E-5*.(2*|DE+2*MD)|
|00002990| 2b 37 2e 32 45 2d 35 2a | 9b 28 34 2a 44 45 29 2b |+7.2E-5*|.(4*DE)+|
|000029a0| 45 2a 36 2e 34 45 2d 35 | 2a 9b 28 32 2a 44 45 2d |E*6.4E-5|*.(2*DE-|
|000029b0| 4d 53 2b 4d 44 29 0d 28 | f0 d4 20 48 50 3d 48 50 |MS+MD).(|.. HP=HP|
|000029c0| 2d 45 2a 36 2e 33 45 2d | 35 2a 9b 28 32 2a 44 45 |-E*6.3E-|5*.(2*DE|
|000029d0| 2b 4d 53 2d 4d 44 29 2b | 45 2a 34 2e 31 45 2d 35 |+MS-MD)+|E*4.1E-5|
|000029e0| 2a 9b 28 4d 53 2b 44 45 | 29 2b 45 2a 33 2e 35 45 |*.(MS+DE|)+E*3.5E|
|000029f0| 2d 35 2a 9b 28 32 2a 4d | 44 2d 4d 53 29 2d 33 2e |-5*.(2*M|D-MS)-3.|
|00002a00| 33 45 2d 35 2a 9b 28 33 | 2a 4d 44 2d 32 2a 44 45 |3E-5*.(3|*MD-2*DE|
|00002a10| 29 2d 33 45 2d 35 2a 9b | 28 4d 44 2b 44 45 29 2d |)-3E-5*.|(MD+DE)-|
|00002a20| 32 2e 39 45 2d 35 2a 9b | 28 32 2a 28 46 2d 44 45 |2.9E-5*.|(2*(F-DE|
|00002a30| 29 29 2d 45 2a 32 2e 39 | 45 2d 35 2a 9b 28 32 2a |))-E*2.9|E-5*.(2*|
|00002a40| 4d 44 2b 4d 53 29 2b 45 | 32 2a 32 2e 36 45 2d 35 |MD+MS)+E|2*2.6E-5|
|00002a50| 2a 9b 28 32 2a 28 44 45 | 2d 4d 53 29 29 2d 32 2e |*.(2*(DE|-MS))-2.|
|00002a60| 33 45 2d 35 2a 9b 28 32 | 2a 28 46 2d 44 45 29 2b |3E-5*.(2|*(F-DE)+|
|00002a70| 4d 44 29 2b 45 2a 31 2e | 39 45 2d 35 2a 9b 28 34 |MD)+E*1.|9E-5*.(4|
|00002a80| 2a 44 45 2d 4d 53 2d 4d | 44 29 0d 28 fa 0d 20 48 |*DE-MS-M|D).(.. H|
|00002a90| 50 3d b2 28 48 50 29 0d | 29 04 06 20 e1 0d 29 0e |P=.(HP).|).. ..).|
|00002aa0| 06 20 3a 0d ff          |                         |. :..   |        |
+--------+-------------------------+-------------------------+--------+--------+