Macademic for Students & Teachers

home *** CD-ROM | disk | FTP | other *** search
/ Macademic for Students & Teachers / Macademic for Students and Teachers (Quantum Leap)(1992).iso / General Interest / SunRise & SunSet < prev next >
MacBinary | 1992-02-09 | 18.9 KB | [STAK/WILD]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	HyperCard Stack `(archive/hypercard)`	idMeta	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, Wed Aug 7 16:03:34 1991, modified Sun Feb 9 11:11:24 1992, creator HyperCard, type HyperCard stack, 18560 bytes "SunRise & SunSet" , at 0x4900 581 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Mac HyperCard stack (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[STAK]`
macFileCreator	`[WILD]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 53 75 6e 52 69 73 | 65 20 26 20 53 75 6e 53 |..SunRis|e & SunS|
|00000010| 65 74 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |et......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 54 41 4b 57 49 4c | 44 01 00 00 00 00 00 00 |.STAKWIL|D.......|
|00000050| 00 00 00 00 00 48 80 00 | 00 02 45 a4 c6 02 96 a5 |.....H..|..E.....|
|00000060| bb 03 2c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..,.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 1d 38 00 00 |........|.....8..|
|00000080| 00 00 28 00 53 54 41 4b | ff ff ff ff 00 00 00 00 |..(.STAK|........|
|00000090| 00 00 00 0a 00 00 48 80 | 00 00 28 00 00 00 00 00 |......H.|..(.....|
|000000a0| 00 00 00 00 00 00 00 01 | 00 00 0a f5 00 00 00 01 |........|........|
|000000b0| 00 00 0b d9 00 00 08 ec | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 0e e2 00 00 00 00 | 00 05 00 00 10 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 02 10 80 00 02 10 80 00 | 02 10 80 00 02 10 80 00 |........|........|
|000000f0| de 28 75 e0 00 00 00 00 | 00 2a 00 40 01 80 02 40 |.(u.....|.*.@...@|
|00000100| 00 00 00 00 01 e0 02 80 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000230| 00 00 0d c9 00 00 0c 1f | 01 56 02 00 00 00 00 00 |........|.V......|
|00000240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 80 00 00 00 08 00 00 00 |........|........|
|00000350| 88 00 22 00 88 00 22 00 | 88 88 22 22 88 88 22 22 |.."...".|..""..""|
|00000360| 88 aa 22 aa 88 aa 22 aa | cc aa 33 aa cc aa 33 aa |.."...".|..3...3.|
|00000370| ee aa bb aa ee aa bb aa | ee bb bb ee ee bb bb ee |........|........|
|00000380| ff bb ff ee ff bb ff ee | ff bb ff ff ff bb ff ff |........|........|
|00000390| 80 10 02 20 01 08 40 04 | ff ff ff ff ff ff ff ff |... ..@.|........|
|000003a0| 88 22 88 22 88 22 88 22 | 11 22 44 88 11 22 44 88 |."."."."|."D.."D.|
|000003b0| c4 80 0c 68 43 02 30 26 | b1 30 03 1b d8 c0 0c 8d |...hC.0&|.0......|
|000003c0| aa 00 aa 00 aa 00 aa 00 | 88 22 55 22 88 22 55 22 |........|."U"."U"|
|000003d0| 88 55 22 55 88 55 22 55 | 77 dd 77 dd 77 dd 77 dd |.U"U.U"U|w.w.w.w.|
|000003e0| 80 00 00 00 00 00 00 00 | aa 55 aa 55 aa 55 aa 55 |........|.U.U.U.U|
|000003f0| 03 84 48 30 0c 02 01 01 | 82 44 39 44 82 01 01 01 |..H0....|.D9D....|
|00000400| 88 14 22 41 88 41 22 14 | 80 80 41 3e 08 08 14 e3 |.."A.A".|..A>....|
|00000410| 22 04 8c 74 22 17 98 10 | be 80 88 08 eb 08 88 80 |"..t"...|........|
|00000420| 25 c8 32 89 64 24 4c 92 | a2 9c 41 be 2a c9 14 eb |%.2.d$L.|..A.*...|
|00000430| 40 a0 00 00 04 0a 00 00 | 80 40 20 00 02 04 08 00 |@.......|.@ .....|
|00000440| aa 00 80 00 88 00 80 00 | ff 80 80 80 80 80 80 80 |........|........|
|00000450| 08 1c 22 c1 80 01 02 04 | ff 80 80 80 ff 08 08 08 |..".....|........|
|00000460| f8 74 22 47 8f 17 22 71 | bf 00 bf bf b0 b0 b0 b0 |.t"G.."q|........|
|00000470| ff 7f be 5d a2 41 80 00 | fa f5 fa f5 a0 50 a0 50 |...].A..|.....P.P|
|00000480| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000490| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000530| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000540| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000550| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000590| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000680| 2d 2d 20 20 22 50 72 61 | 63 74 69 63 61 6c 20 41 |--  "Pra|ctical A|
|00000690| 73 74 72 6f 6e 6f 6d 79 | 20 57 69 74 68 20 59 6f |stronomy| With Yo|
|000006a0| 75 72 20 43 61 6c 63 75 | 6c 61 74 6f 72 22 20 20 |ur Calcu|lator"  |
|000006b0| 62 79 20 50 65 74 65 72 | 20 44 75 66 66 65 74 74 |by Peter| Duffett|
|000006c0| 2d 53 6d 69 74 68 0d 2d | 2d 20 28 54 68 69 72 64 |-Smith.-|- (Third|
|000006d0| 20 45 64 69 74 69 6f 6e | 29 20 20 69 73 20 74 68 | Edition|)  is th|
|000006e0| 65 20 62 6f 6f 6b 20 74 | 68 61 74 20 77 61 73 20 |e book t|hat was |
|000006f0| 75 73 65 64 20 74 6f 20 | 64 65 72 69 76 65 20 74 |used to |derive t|
|00000700| 68 65 0d 2d 2d 20 73 75 | 6e 72 69 73 65 2f 73 75 |he.-- su|nrise/su|
|00000710| 6e 73 65 74 20 63 61 6c | 63 75 6c 61 74 69 6f 6e |nset cal|culation|
|00000720| 73 2e 0d 2d 2d 20 50 61 | 67 65 20 6e 75 6d 62 65 |s..-- Pa|ge numbe|
|00000730| 72 73 20 61 6e 64 20 70 | 61 72 61 67 72 61 70 68 |rs and p|aragraph|
|00000740| 20 6e 75 6d 62 65 72 73 | 20 61 72 65 20 67 69 76 | numbers| are giv|
|00000750| 65 6e 20 66 6f 72 20 65 | 61 63 68 20 66 75 6e 63 |en for e|ach func|
|00000760| 74 69 6f 6e 2e 0d 2d 2d | 0d 2d 2d 20 73 75 6e 52 |tion..--|.-- sunR|
|00000770| 69 73 65 53 65 74 28 31 | 39 38 36 2c 20 33 2c 20 |iseSet(1|986, 3, |
|00000780| 31 30 2c 20 34 32 2e 33 | 37 2c 20 37 31 2e 30 35 |10, 42.3|7, 71.05|
|00000790| 29 20 54 68 69 73 20 77 | 61 73 20 75 73 65 64 20 |) This w|as used |
|000007a0| 74 6f 20 63 68 65 63 6b | 20 72 65 73 75 6c 74 73 |to check| results|
|000007b0| 2e 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..------|--------|
|000007c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 6f 6e 20 6f 70 65 6e |--------|.on open|
|00000800| 53 74 61 63 6b 0d 70 75 | 74 20 74 68 65 20 64 61 |Stack.pu|t the da|
|00000810| 74 65 20 69 6e 74 6f 20 | 66 69 65 6c 64 20 22 44 |te into |field "D|
|00000820| 61 74 65 22 0d 70 61 73 | 73 20 6f 70 65 6e 53 74 |ate".pas|s openSt|
|00000830| 61 63 6b 0d 65 6e 64 20 | 6f 70 65 6e 53 74 61 63 |ack.end |openStac|
|00000840| 6b 0d 0d 6f 6e 20 63 6c | 6f 73 65 53 74 61 63 6b |k..on cl|oseStack|
|00000850| 0d 70 75 74 20 65 6d 70 | 74 79 20 69 6e 74 6f 20 |.put emp|ty into |
|00000860| 66 69 65 6c 64 20 22 53 | 75 6e 52 69 73 65 22 0d |field "S|unRise".|
|00000870| 70 75 74 20 65 6d 70 74 | 79 20 69 6e 74 6f 20 66 |put empt|y into f|
|00000880| 69 65 6c 64 20 22 53 75 | 6e 53 65 74 22 0d 70 61 |ield "Su|nSet".pa|
|00000890| 73 73 20 63 6c 6f 73 65 | 53 74 61 63 6b 0d 65 6e |ss close|Stack.en|
|000008a0| 64 20 63 6c 6f 73 65 53 | 74 61 63 6b 0d 0d 2d 2d |d closeS|tack..--|
|000008b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000008f0| 2d 2d 2d 2d 0d 66 75 6e | 63 74 69 6f 6e 20 6a 75 |----.fun|ction ju|
|00000900| 6c 69 61 6e 44 61 74 65 | 20 79 65 61 72 2c 20 6d |lianDate| year, m|
|00000910| 6f 6e 74 68 2c 20 64 61 | 79 20 2d 2d 20 70 61 67 |onth, da|y -- pag|
|00000920| 65 20 37 20 28 23 34 29 | 0d 73 65 74 20 6e 75 6d |e 7 (#4)|.set num|
|00000930| 62 65 72 46 6f 72 6d 61 | 74 20 74 6f 20 22 30 30 |berForma|t to "00|
|00000940| 2e 30 30 30 30 30 30 30 | 30 30 22 0d 69 66 20 6d |.0000000|00".if m|
|00000950| 6f 6e 74 68 20 3d 20 31 | 20 6f 72 20 6d 6f 6e 74 |onth = 1| or mont|
|00000960| 68 20 3d 32 20 74 68 65 | 6e 0d 73 75 62 74 72 61 |h =2 the|n.subtra|
|00000970| 63 74 20 31 20 66 72 6f | 6d 20 79 65 61 72 0d 61 |ct 1 fro|m year.a|
|00000980| 64 64 20 31 32 20 74 6f | 20 6d 6f 6e 74 68 0d 65 |dd 12 to| month.e|
|00000990| 6e 64 20 69 66 0d 70 75 | 74 20 69 6e 74 28 79 65 |nd if.pu|t int(ye|
|000009a0| 61 72 2f 31 30 30 29 20 | 69 6e 74 6f 20 41 0d 70 |ar/100) |into A.p|
|000009b0| 75 74 20 28 32 2d 41 20 | 2b 20 69 6e 74 28 41 2f |ut (2-A |+ int(A/|
|000009c0| 34 29 29 20 69 6e 74 6f | 20 42 0d 70 75 74 20 69 |4)) into| B.put i|
|000009d0| 6e 74 28 33 36 35 2e 32 | 35 20 2a 20 79 65 61 72 |nt(365.2|5 * year|
|000009e0| 29 20 69 6e 74 6f 20 43 | 0d 70 75 74 20 69 6e 74 |) into C|.put int|
|000009f0| 28 33 30 2e 36 30 30 31 | 20 2a 20 28 6d 6f 6e 74 |(30.6001| * (mont|
|00000a00| 68 20 2b 20 31 29 29 20 | 69 6e 74 6f 20 44 0d 70 |h + 1)) |into D.p|
|00000a10| 75 74 20 28 42 2b 43 2b | 44 2b 64 61 79 2b 31 37 |ut (B+C+|D+day+17|
|00000a20| 32 30 39 39 34 2e 35 29 | 20 69 6e 74 6f 20 4a 44 |20994.5)| into JD|
|00000a30| 0d 72 65 74 75 72 6e 20 | 4a 44 0d 65 6e 64 20 6a |.return |JD.end j|
|00000a40| 75 6c 69 61 6e 44 61 74 | 65 0d 0d 66 75 6e 63 74 |ulianDat|e..funct|
|00000a50| 69 6f 6e 20 67 72 65 65 | 6e 77 69 63 68 53 69 64 |ion gree|nwichSid|
|00000a60| 65 72 65 61 6c 54 69 6d | 65 20 4c 6f 6e 67 69 2c |erealTim|e Longi,|
|00000a70| 20 4c 53 54 20 20 20 2d | 2d 20 70 2e 32 31 20 28 | LST   -|- p.21 (|
|00000a80| 23 31 35 29 0d 73 65 74 | 20 6e 75 6d 62 65 72 46 |#15).set| numberF|
|00000a90| 6f 72 6d 61 74 20 74 6f | 20 22 30 30 2e 30 30 30 |ormat to| "00.000|
|00000aa0| 30 30 30 30 30 30 22 0d | 70 75 74 20 61 62 73 28 |000000".|put abs(|
|00000ab0| 4c 6f 6e 67 69 2f 31 35 | 29 20 69 6e 74 6f 20 74 |Longi/15|) into t|
|00000ac0| 65 6d 70 31 0d 69 66 20 | 4c 6f 6e 67 69 20 3e 30 |emp1.if |Longi >0|
|00000ad0| 20 74 68 65 6e 0d 70 75 | 74 20 28 74 65 6d 70 31 | then.pu|t (temp1|
|00000ae0| 20 2b 20 4c 53 54 29 20 | 69 6e 74 6f 20 74 65 6d | + LST) |into tem|
|00000af0| 70 31 20 20 2d 2d 20 61 | 20 6c 6f 6e 67 69 74 75 |p1  -- a| longitu|
|00000b00| 64 65 20 6f 66 20 57 65 | 73 74 20 69 73 20 61 73 |de of We|st is as|
|00000b10| 73 75 6d 65 64 2e 20 55 | 73 65 20 2d 20 66 6f 72 |sumed. U|se - for|
|00000b20| 20 45 61 73 74 0d 65 6c | 73 65 20 70 75 74 20 28 | East.el|se put (|
|00000b30| 4c 53 54 20 2d 20 74 65 | 6d 70 31 29 20 69 6e 74 |LST - te|mp1) int|
|00000b40| 6f 20 74 65 6d 70 31 0d | 69 66 20 28 74 65 6d 70 |o temp1.|if (temp|
|00000b50| 31 20 3e 20 32 34 29 20 | 74 68 65 6e 20 70 75 74 |1 > 24) |then put|
|00000b60| 20 28 74 65 6d 70 31 20 | 2d 32 34 29 20 69 6e 74 | (temp1 |-24) int|
|00000b70| 6f 20 74 65 6d 70 31 0d | 69 66 20 28 74 65 6d 70 |o temp1.|if (temp|
|00000b80| 31 20 3c 20 30 29 20 74 | 68 65 6e 20 70 75 74 20 |1 < 0) t|hen put |
|00000b90| 28 74 65 6d 70 31 20 2b | 20 32 34 29 20 69 6e 74 |(temp1 +| 24) int|
|00000ba0| 6f 20 74 65 6d 70 31 0d | 72 65 74 75 72 6e 20 74 |o temp1.|return t|
|00000bb0| 65 6d 70 31 0d 65 6e 64 | 20 67 72 65 65 6e 77 69 |emp1.end| greenwi|
|00000bc0| 63 68 53 69 64 65 72 65 | 61 6c 54 69 6d 65 0d 0d |chSidere|alTime..|
|00000bd0| 66 75 6e 63 74 69 6f 6e | 20 73 75 6e 41 73 63 44 |function| sunAscD|
|00000be0| 65 63 20 79 65 61 72 2c | 20 6d 6f 6e 74 68 2c 20 |ec year,| month, |
|00000bf0| 64 61 79 2c 20 4c 20 20 | 2d 2d 20 70 61 67 65 2e |day, L  |-- page.|
|00000c00| 34 30 20 28 23 32 37 29 | 0d 73 65 74 20 6e 75 6d |40 (#27)|.set num|
|00000c10| 62 65 72 46 6f 72 6d 61 | 74 20 74 6f 20 22 30 30 |berForma|t to "00|
|00000c20| 2e 30 30 30 30 30 30 30 | 30 30 22 0d 70 75 74 20 |.0000000|00".put |
|00000c30| 7a 65 72 6f 20 69 6e 74 | 6f 20 42 0d 70 75 74 20 |zero int|o B.put |
|00000c40| 64 65 67 72 65 65 73 54 | 6f 52 61 64 69 61 6e 73 |degreesT|oRadians|
|00000c50| 28 32 33 2e 34 34 31 38 | 38 34 29 20 69 6e 74 6f |(23.4418|84) into|
|00000c60| 20 45 52 0d 70 75 74 20 | 64 65 67 72 65 65 73 54 | ER.put |degreesT|
|00000c70| 6f 52 61 64 69 61 6e 73 | 28 4c 29 20 69 6e 74 6f |oRadians|(L) into|
|00000c80| 20 4c 52 0d 70 75 74 20 | 64 65 67 72 65 65 73 54 | LR.put |degreesT|
|00000c90| 6f 52 61 64 69 61 6e 73 | 28 42 29 20 69 6e 74 6f |oRadians|(B) into|
|00000ca0| 20 42 52 0d 70 75 74 20 | 28 73 69 6e 28 45 52 29 | BR.put |(sin(ER)|
|00000cb0| 2a 73 69 6e 28 4c 52 29 | 2a 43 6f 73 28 42 52 29 |*sin(LR)|*Cos(BR)|
|00000cc0| 20 2b 20 73 69 6e 28 42 | 52 29 2a 63 6f 73 28 45 | + sin(B|R)*cos(E|
|00000cd0| 52 29 29 20 69 6e 74 6f | 20 44 0d 70 75 74 20 61 |R)) into| D.put a|
|00000ce0| 73 69 6e 28 44 29 20 69 | 6e 74 6f 20 44 0d 70 75 |sin(D) i|nto D.pu|
|00000cf0| 74 20 72 61 64 69 61 6e | 73 54 6f 44 65 67 72 65 |t radian|sToDegre|
|00000d00| 65 73 28 44 29 20 69 6e | 74 6f 20 44 0d 70 75 74 |es(D) in|to D.put|
|00000d10| 20 28 73 69 6e 28 4c 52 | 29 2a 63 6f 73 28 45 52 | (sin(LR|)*cos(ER|
|00000d20| 29 20 2d 20 74 61 6e 28 | 42 52 29 2a 73 69 6e 28 |) - tan(|BR)*sin(|
|00000d30| 45 52 29 29 20 69 6e 74 | 6f 20 79 0d 70 75 74 20 |ER)) int|o y.put |
|00000d40| 63 6f 73 28 4c 52 29 20 | 69 6e 74 6f 20 78 0d 70 |cos(LR) |into x.p|
|00000d50| 75 74 20 61 74 61 6e 32 | 28 79 2c 78 29 20 69 6e |ut atan2|(y,x) in|
|00000d60| 74 6f 20 61 0d 70 75 74 | 20 72 61 64 69 61 6e 73 |to a.put| radians|
|00000d70| 54 6f 44 65 67 72 65 65 | 73 28 61 29 2f 31 35 20 |ToDegree|s(a)/15 |
|00000d80| 69 6e 74 6f 20 61 0d 69 | 66 20 61 20 63 6f 6e 74 |into a.i|f a cont|
|00000d90| 61 69 6e 73 20 22 2d 22 | 20 74 68 65 6e 20 61 64 |ains "-"| then ad|
|00000da0| 64 20 32 34 20 74 6f 20 | 61 0d 72 65 74 75 72 6e |d 24 to |a.return|
|00000db0| 20 61 20 26 73 70 61 63 | 65 20 26 22 2c 22 20 20 | a &spac|e &","  |
|00000dc0| 26 73 70 61 63 65 20 26 | 44 0d 65 6e 64 20 73 75 |&space &|D.end su|
|00000dd0| 6e 41 73 63 44 65 63 0d | 0d 66 75 6e 63 74 69 6f |nAscDec.|.functio|
|00000de0| 6e 20 73 69 64 65 72 65 | 61 6c 54 69 6d 65 20 4c |n sidere|alTime L|
|00000df0| 61 74 2c 20 61 6c 2c 20 | 64 65 20 20 20 2d 2d 20 |at, al, |de   -- |
|00000e00| 70 2e 35 33 20 28 23 33 | 33 29 0d 2d 2d 20 4c 61 |p.53 (#3|3).-- La|
|00000e10| 74 20 3d 20 4c 61 74 69 | 74 75 64 65 2c 20 70 68 |t = Lati|tude, ph|
|00000e20| 69 0d 2d 2d 20 61 6c 20 | 3d 20 52 69 67 68 74 20 |i.-- al |= Right |
|00000e30| 41 73 63 65 6e 73 69 6f | 6e 2c 20 61 6c 70 68 61 |Ascensio|n, alpha|
|00000e40| 0d 2d 2d 20 64 65 20 3d | 20 44 65 63 6c 69 6e 61 |.-- de =| Declina|
|00000e50| 74 69 6f 6e 2c 20 64 65 | 6c 74 61 0d 73 65 74 20 |tion, de|lta.set |
|00000e60| 6e 75 6d 62 65 72 46 6f | 72 6d 61 74 20 74 6f 20 |numberFo|rmat to |
|00000e70| 22 30 30 2e 30 30 30 30 | 30 30 30 30 30 22 0d 70 |"00.0000|00000".p|
|00000e80| 75 74 20 64 65 67 72 65 | 65 73 54 6f 52 61 64 69 |ut degre|esToRadi|
|00000e90| 61 6e 73 28 4c 61 74 29 | 20 69 6e 74 6f 20 4c 61 |ans(Lat)| into La|
|00000ea0| 74 54 65 6d 70 0d 70 75 | 74 20 64 65 67 72 65 65 |tTemp.pu|t degree|
|00000eb0| 73 54 6f 52 61 64 69 61 | 6e 73 28 64 65 29 20 69 |sToRadia|ns(de) i|
|00000ec0| 6e 74 6f 20 64 65 54 65 | 6d 70 0d 70 75 74 20 28 |nto deTe|mp.put (|
|00000ed0| 2d 20 74 61 6e 28 4c 61 | 74 54 65 6d 70 29 2a 74 |- tan(La|tTemp)*t|
|00000ee0| 61 6e 28 64 65 54 65 6d | 70 29 29 20 69 6e 74 6f |an(deTem|p)) into|
|00000ef0| 20 74 65 6d 70 0d 70 75 | 74 20 28 30 2e 30 36 36 | temp.pu|t (0.066|
|00000f00| 36 36 37 29 2a 28 61 63 | 6f 73 28 74 65 6d 70 29 |667)*(ac|os(temp)|
|00000f10| 29 20 69 6e 74 6f 20 48 | 0d 70 75 74 20 52 61 64 |) into H|.put Rad|
|00000f20| 69 61 6e 73 54 6f 44 65 | 67 72 65 65 73 28 48 29 |iansToDe|grees(H)|
|00000f30| 20 69 6e 74 6f 20 48 0d | 70 75 74 20 28 32 34 2b | into H.|put (24+|
|00000f40| 61 6c 2d 48 29 20 69 6e | 74 6f 20 4c 53 54 72 0d |al-H) in|to LSTr.|
|00000f50| 69 66 20 28 4c 53 54 72 | 20 3e 20 32 34 29 20 74 |if (LSTr| > 24) t|
|00000f60| 68 65 6e 20 70 75 74 20 | 28 4c 53 54 72 20 2d 20 |hen put |(LSTr - |
|00000f70| 32 34 29 20 69 6e 74 6f | 20 4c 53 54 72 0d 70 75 |24) into| LSTr.pu|
|00000f80| 74 20 28 61 6c 2b 48 29 | 20 69 6e 74 6f 20 4c 53 |t (al+H)| into LS|
|00000f90| 54 73 0d 69 66 20 28 4c | 53 54 73 20 3e 20 32 34 |Ts.if (L|STs > 24|
|00000fa0| 29 20 74 68 65 6e 20 70 | 75 74 20 28 4c 53 54 73 |) then p|ut (LSTs|
|00000fb0| 20 2d 20 32 34 29 20 69 | 6e 74 6f 20 4c 53 54 73 | - 24) i|nto LSTs|
|00000fc0| 0d 72 65 74 75 72 6e 20 | 28 4c 53 54 72 20 26 73 |.return |(LSTr &s|
|00000fd0| 70 61 63 65 20 26 22 2c | 22 20 26 73 70 61 63 65 |pace &",|" &space|
|00000fe0| 20 26 4c 53 54 73 29 0d | 65 6e 64 20 73 69 64 65 | &LSTs).|end side|
|00000ff0| 72 65 61 6c 54 69 6d 65 | 0d 0d 66 75 6e 63 74 69 |realTime|..functi|
|00001000| 6f 6e 20 64 65 6c 74 61 | 54 69 6d 65 20 4c 61 74 |on delta|Time Lat|
|00001010| 2c 20 64 65 20 20 20 2d | 2d 20 70 2e 35 35 20 28 |, de   -|- p.55 (|
|00001020| 23 33 33 29 0d 70 75 74 | 20 64 65 67 72 65 65 73 |#33).put| degrees|
|00001030| 54 6f 52 61 64 69 61 6e | 73 28 4c 61 74 29 20 69 |ToRadian|s(Lat) i|
|00001040| 6e 74 6f 20 4c 61 74 54 | 65 6d 70 0d 70 75 74 20 |nto LatT|emp.put |
|00001050| 64 65 67 72 65 65 73 54 | 6f 52 61 64 69 61 6e 73 |degreesT|oRadians|
|00001060| 28 64 65 29 20 69 6e 74 | 6f 20 64 65 54 65 6d 70 |(de) int|o deTemp|
|00001070| 0d 70 75 74 20 28 28 73 | 69 6e 28 4c 61 74 54 65 |.put ((s|in(LatTe|
|00001080| 6d 70 29 29 2f 28 63 6f | 73 28 64 65 54 65 6d 70 |mp))/(co|s(deTemp|
|00001090| 29 29 29 20 69 6e 74 6f | 20 74 65 6d 70 0d 70 75 |))) into| temp.pu|
|000010a0| 74 20 28 61 63 6f 73 28 | 74 65 6d 70 29 29 20 69 |t (acos(|temp)) i|
|000010b0| 6e 74 6f 20 70 73 69 0d | 70 75 74 20 64 65 67 72 |nto psi.|put degr|
|000010c0| 65 65 73 54 6f 52 61 64 | 69 61 6e 73 28 30 2e 38 |eesToRad|ians(0.8|
|000010d0| 33 30 37 32 35 29 20 69 | 6e 74 6f 20 78 20 20 2d |30725) i|nto x  -|
|000010e0| 2d 20 78 20 69 73 20 61 | 20 63 6f 6e 73 74 61 6e |- x is a| constan|
|000010f0| 74 0d 70 75 74 20 73 69 | 6e 28 78 29 2f 73 69 6e |t.put si|n(x)/sin|
|00001100| 28 70 73 69 29 20 69 6e | 74 6f 20 74 65 6d 70 32 |(psi) in|to temp2|
|00001110| 0d 70 75 74 20 61 73 69 | 6e 28 74 65 6d 70 32 29 |.put asi|n(temp2)|
|00001120| 20 69 6e 74 6f 20 79 0d | 70 75 74 20 72 61 64 69 | into y.|put radi|
|00001130| 61 6e 73 54 6f 44 65 67 | 72 65 65 73 28 79 29 20 |ansToDeg|rees(y) |
|00001140| 69 6e 74 6f 20 79 0d 70 | 75 74 20 28 32 34 30 2a |into y.p|ut (240*|
|00001150| 79 29 2f 63 6f 73 28 64 | 65 54 65 6d 70 29 20 69 |y)/cos(d|eTemp) i|
|00001160| 6e 74 6f 20 64 74 0d 70 | 75 74 20 64 74 2f 33 36 |nto dt.p|ut dt/36|
|00001170| 30 30 20 69 6e 74 6f 20 | 64 74 20 20 20 2d 2d 20 |00 into |dt   -- |
|00001180| 63 6f 6e 76 65 72 74 65 | 64 20 74 6f 20 68 6f 75 |converte|d to hou|
|00001190| 72 73 0d 72 65 74 75 72 | 6e 20 28 64 74 29 0d 65 |rs.retur|n (dt).e|
|000011a0| 6e 64 20 64 65 6c 74 61 | 54 69 6d 65 0d 0d 0d 66 |nd delta|Time...f|
|000011b0| 75 6e 63 74 69 6f 6e 20 | 73 75 6e 45 63 6c 69 70 |unction |sunEclip|
|000011c0| 74 69 63 4c 6f 6e 67 20 | 79 65 61 72 2c 20 6d 6f |ticLong |year, mo|
|000011d0| 6e 74 68 2c 20 64 61 79 | 20 20 2d 2d 20 70 61 67 |nth, day|  -- pag|
|000011e0| 65 20 38 38 20 28 23 34 | 36 29 0d 73 65 74 20 6e |e 88 (#4|6).set n|
|000011f0| 75 6d 62 65 72 46 6f 72 | 6d 61 74 20 74 6f 20 22 |umberFor|mat to "|
|00001200| 30 30 2e 30 30 30 30 30 | 30 30 30 30 22 0d 70 75 |00.00000|0000".pu|
|00001210| 74 20 28 6a 75 6c 69 61 | 6e 44 61 74 65 20 28 79 |t (julia|nDate (y|
|00001220| 65 61 72 2c 20 6d 6f 6e | 74 68 2c 20 64 61 79 29 |ear, mon|th, day)|
|00001230| 20 2d 20 32 34 34 37 38 | 39 31 2e 35 29 20 69 6e | - 24478|91.5) in|
|00001240| 74 6f 20 44 20 20 2d 2d | 20 32 34 34 37 38 39 31 |to D  --| 2447891|
|00001250| 2e 35 20 69 73 20 74 68 | 65 20 4a 75 6c 69 61 6e |.5 is th|e Julian|
|00001260| 20 64 61 74 65 20 66 6f | 72 20 4a 61 6e 30 2e 30 | date fo|r Jan0.0|
|00001270| 2c 20 31 39 39 30 20 28 | 66 72 6f 6d 20 70 61 67 |, 1990 (|from pag|
|00001280| 65 20 38 36 29 0d 70 75 | 74 20 28 33 36 30 2a 44 |e 86).pu|t (360*D|
|00001290| 2f 33 36 35 2e 32 34 32 | 31 39 31 29 20 69 6e 74 |/365.242|191) int|
|000012a0| 6f 20 4e 0d 72 65 70 65 | 61 74 20 75 6e 74 69 6c |o N.repe|at until|
|000012b0| 20 4e b2 20 33 36 30 0d | 70 75 74 20 28 4e 20 2d | N. 360.|put (N -|
|000012c0| 20 33 36 30 29 20 69 6e | 74 6f 20 4e 0d 65 6e 64 | 360) in|to N.end|
|000012d0| 20 72 65 70 65 61 74 0d | 72 65 70 65 61 74 20 75 | repeat.|repeat u|
|000012e0| 6e 74 69 6c 20 4e b3 30 | 0d 70 75 74 20 28 4e 20 |ntil N.0|.put (N |
|000012f0| 2b 20 33 36 30 29 20 69 | 6e 74 6f 20 4e 0d 65 6e |+ 360) i|nto N.en|
|00001300| 64 20 72 65 70 65 61 74 | 0d 70 75 74 20 54 31 28 |d repeat|.put T1(|
|00001310| 79 65 61 72 2c 20 6d 6f | 6e 74 68 2c 20 64 61 79 |year, mo|nth, day|
|00001320| 29 20 69 6e 74 6f 20 54 | 0d 70 75 74 20 28 4e 20 |) into T|.put (N |
|00001330| 2b 20 32 37 39 2e 34 30 | 33 33 30 33 20 2d 20 32 |+ 279.40|3303 - 2|
|00001340| 38 32 2e 37 36 38 34 34 | 32 29 20 69 6e 74 6f 20 |82.76844|2) into |
|00001350| 4d 20 20 2d 2d 20 63 6f | 6e 73 74 61 6e 74 73 20 |M  -- co|nstants |
|00001360| 61 72 65 20 66 72 6f 6d | 20 70 2e 38 37 0d 69 66 |are from| p.87.if|
|00001370| 20 4d 20 63 6f 6e 74 61 | 69 6e 73 20 22 2d 22 20 | M conta|ins "-" |
|00001380| 74 68 65 6e 20 61 64 64 | 20 33 36 30 20 74 6f 20 |then add| 360 to |
|00001390| 4d 0d 70 75 74 20 64 65 | 67 72 65 65 73 54 6f 52 |M.put de|greesToR|
|000013a0| 61 64 69 61 6e 73 28 4d | 29 20 69 6e 74 6f 20 4d |adians(M|) into M|
|000013b0| 0d 2d 2d 20 52 6f 75 74 | 69 6e 65 20 52 32 2c 20 |.-- Rout|ine R2, |
|000013c0| 70 2e 39 30 0d 2d 2d 20 | 73 6f 6c 76 65 20 4b 65 |p.90.-- |solve Ke|
|000013d0| 70 6c 65 72 27 73 20 65 | 71 75 61 74 69 6f 6e 20 |pler's e|quation |
|000013e0| 62 79 20 4e 65 77 74 6f | 6e 27 73 20 6d 65 74 68 |by Newto|n's meth|
|000013f0| 6f 64 0d 70 75 74 20 28 | 31 30 5e 2d 36 29 20 69 |od.put (|10^-6) i|
|00001400| 6e 74 6f 20 65 70 73 69 | 6c 6f 6e 0d 70 75 74 20 |nto epsi|lon.put |
|00001410| 28 65 70 73 69 6c 6f 6e | 20 2b 31 29 20 69 6e 74 |(epsilon| +1) int|
|00001420| 6f 20 64 65 6c 74 61 0d | 70 75 74 20 4d 20 69 6e |o delta.|put M in|
|00001430| 74 6f 20 45 0d 72 65 70 | 65 61 74 20 75 6e 74 69 |to E.rep|eat unti|
|00001440| 6c 20 61 62 73 28 64 65 | 6c 74 61 29 20 3c 20 28 |l abs(de|lta) < (|
|00001450| 65 70 73 69 6c 6f 6e 29 | 0d 70 75 74 20 28 45 20 |epsilon)|.put (E |
|00001460| 2d 20 30 2e 30 31 36 37 | 31 33 2a 73 69 6e 28 45 |- 0.0167|13*sin(E|
|00001470| 29 20 2d 20 4d 29 20 69 | 6e 74 6f 20 64 65 6c 74 |) - M) i|nto delt|
|00001480| 61 0d 70 75 74 20 28 64 | 65 6c 74 61 2f 28 31 20 |a.put (d|elta/(1 |
|00001490| 2d 20 30 2e 30 31 36 37 | 31 33 2a 63 6f 73 28 45 |- 0.0167|13*cos(E|
|000014a0| 29 29 29 20 69 6e 74 6f | 20 64 65 6c 74 61 45 0d |))) into| deltaE.|
|000014b0| 70 75 74 20 28 45 20 2d | 20 64 65 6c 74 61 45 29 |put (E -| deltaE)|
|000014c0| 20 69 6e 74 6f 20 45 0d | 65 6e 64 20 72 65 70 65 | into E.|end repe|
|000014d0| 61 74 0d 70 75 74 20 73 | 71 72 74 28 28 31 20 2b |at.put s|qrt((1 +|
|000014e0| 20 30 2e 30 31 36 37 31 | 33 29 2f 28 31 20 2d 20 | 0.01671|3)/(1 - |
|000014f0| 30 2e 30 31 36 37 31 33 | 29 29 20 69 6e 74 6f 20 |0.016713|)) into |
|00001500| 74 65 6d 70 31 0d 70 75 | 74 20 28 32 2a 61 74 61 |temp1.pu|t (2*ata|
|00001510| 6e 32 28 74 65 6d 70 31 | 20 2a 20 74 61 6e 28 45 |n2(temp1| * tan(E|
|00001520| 2f 32 29 2c 20 31 29 29 | 20 69 6e 74 6f 20 6b 6e |/2), 1))| into kn|
|00001530| 75 20 20 2d 2d 20 70 2e | 38 39 2d 39 31 0d 70 75 |u  -- p.|89-91.pu|
|00001540| 74 20 28 52 61 64 69 61 | 6e 73 54 6f 44 65 67 72 |t (Radia|nsToDegr|
|00001550| 65 65 73 28 6b 6e 75 29 | 20 2b 20 32 38 32 2e 37 |ees(knu)| + 282.7|
|00001560| 36 38 34 32 32 29 20 69 | 6e 74 6f 20 4c 0d 69 66 |68422) i|nto L.if|
|00001570| 20 4c 20 3e 20 33 36 30 | 20 74 68 65 6e 20 73 75 | L > 360| then su|
|00001580| 62 74 72 61 63 74 20 33 | 36 30 20 66 72 6f 6d 20 |btract 3|60 from |
|00001590| 4c 0d 69 66 20 4c 20 3c | 20 30 20 74 68 65 6e 20 |L.if L <| 0 then |
|000015a0| 61 64 64 20 33 36 30 20 | 74 6f 20 4c 0d 72 65 74 |add 360 |to L.ret|
|000015b0| 75 72 6e 20 4c 0d 65 6e | 64 20 73 75 6e 45 63 6c |urn L.en|d sunEcl|
|000015c0| 69 70 74 69 63 4c 6f 6e | 67 0d 0d 66 75 6e 63 74 |ipticLon|g..funct|
|000015d0| 69 6f 6e 20 54 31 20 79 | 65 61 72 2c 20 6d 6f 6e |ion T1 y|ear, mon|
|000015e0| 74 68 2c 20 64 61 79 0d | 73 65 74 20 6e 75 6d 62 |th, day.|set numb|
|000015f0| 65 72 46 6f 72 6d 61 74 | 20 74 6f 20 22 30 30 2e |erFormat| to "00.|
|00001600| 30 30 30 30 30 30 30 30 | 30 22 0d 70 75 74 20 28 |00000000|0".put (|
|00001610| 28 6a 75 6c 69 61 6e 44 | 61 74 65 20 28 79 65 61 |(julianD|ate (yea|
|00001620| 72 2c 20 6d 6f 6e 74 68 | 2c 20 64 61 79 29 20 2d |r, month|, day) -|
|00001630| 20 32 34 31 35 30 32 30 | 2e 30 29 2f 33 36 35 32 | 2415020|.0)/3652|
|00001640| 35 2e 30 29 20 69 6e 74 | 6f 20 74 65 6d 70 0d 72 |5.0) int|o temp.r|
|00001650| 65 74 75 72 6e 20 74 65 | 6d 70 0d 65 6e 64 20 54 |eturn te|mp.end T|
|00001660| 31 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 73 75 6e 52 |1..funct|ion sunR|
|00001670| 69 73 65 53 65 74 20 79 | 65 61 72 2c 20 6d 6f 6e |iseSet y|ear, mon|
|00001680| 74 68 2c 20 64 61 79 2c | 20 4c 61 74 2c 20 4c 6f |th, day,| Lat, Lo|
|00001690| 6e 67 69 20 20 20 2d 2d | 20 70 2e 39 35 20 28 23 |ngi   --| p.95 (#|
|000016a0| 34 39 29 0d 73 65 74 20 | 6e 75 6d 62 65 72 46 6f |49).set |numberFo|
|000016b0| 72 6d 61 74 20 74 6f 20 | 22 30 30 2e 30 30 30 30 |rmat to |"00.0000|
|000016c0| 30 30 30 30 30 22 0d 70 | 75 74 20 73 75 6e 45 63 |00000".p|ut sunEc|
|000016d0| 6c 69 70 74 69 63 4c 6f | 6e 67 28 79 65 61 72 2c |lipticLo|ng(year,|
|000016e0| 20 6d 6f 6e 74 68 2c 20 | 64 61 79 29 20 69 6e 74 | month, |day) int|
|000016f0| 6f 20 4c 31 0d 70 75 74 | 20 28 30 2e 39 38 35 36 |o L1.put| (0.9856|
|00001700| 34 37 20 2b 20 4c 31 29 | 20 69 6e 74 6f 20 4c 32 |47 + L1)| into L2|
|00001710| 0d 70 75 74 20 73 75 6e | 41 73 63 44 65 63 28 79 |.put sun|AscDec(y|
|00001720| 65 61 72 2c 20 6d 6f 6e | 74 68 2c 20 64 61 79 2c |ear, mon|th, day,|
|00001730| 20 4c 31 29 20 69 6e 74 | 6f 20 74 65 6d 70 31 0d | L1) int|o temp1.|
|00001740| 70 75 74 20 73 75 6e 41 | 73 63 44 65 63 28 79 65 |put sunA|scDec(ye|
|00001750| 61 72 2c 20 6d 6f 6e 74 | 68 2c 20 64 61 79 2c 20 |ar, mont|h, day, |
|00001760| 4c 32 29 20 69 6e 74 6f | 20 74 65 6d 70 32 0d 70 |L2) into| temp2.p|
|00001770| 75 74 20 28 69 74 65 6d | 20 31 20 6f 66 20 74 65 |ut (item| 1 of te|
|00001780| 6d 70 31 29 20 69 6e 74 | 6f 20 61 31 0d 70 75 74 |mp1) int|o a1.put|
|00001790| 20 28 69 74 65 6d 20 32 | 20 6f 66 20 74 65 6d 70 | (item 2| of temp|
|000017a0| 31 29 20 69 6e 74 6f 20 | 64 31 0d 70 75 74 20 28 |1) into |d1.put (|
|000017b0| 69 74 65 6d 20 31 20 6f | 66 20 74 65 6d 70 32 29 |item 1 o|f temp2)|
|000017c0| 20 69 6e 74 6f 20 61 32 | 0d 70 75 74 20 28 69 74 | into a2|.put (it|
|000017d0| 65 6d 20 32 20 6f 66 20 | 74 65 6d 70 32 29 20 69 |em 2 of |temp2) i|
|000017e0| 6e 74 6f 20 64 32 0d 70 | 75 74 20 53 69 64 65 72 |nto d2.p|ut Sider|
|000017f0| 65 61 6c 54 69 6d 65 28 | 4c 61 74 2c 20 61 31 2c |ealTime(|Lat, a1,|
|00001800| 20 64 31 29 20 69 6e 74 | 6f 20 74 65 6d 70 33 0d | d1) int|o temp3.|
|00001810| 70 75 74 20 53 69 64 65 | 72 65 61 6c 54 69 6d 65 |put Side|realTime|
|00001820| 28 4c 61 74 2c 20 61 32 | 2c 20 64 32 29 20 69 6e |(Lat, a2|, d2) in|
|00001830| 74 6f 20 74 65 6d 70 34 | 0d 70 75 74 20 28 69 74 |to temp4|.put (it|
|00001840| 65 6d 20 31 20 6f 66 20 | 74 65 6d 70 33 29 20 69 |em 1 of |temp3) i|
|00001850| 6e 74 6f 20 4c 53 54 31 | 72 0d 70 75 74 20 28 69 |nto LST1|r.put (i|
|00001860| 74 65 6d 20 32 20 6f 66 | 20 74 65 6d 70 33 29 20 |tem 2 of| temp3) |
|00001870| 69 6e 74 6f 20 4c 53 54 | 31 73 0d 70 75 74 20 28 |into LST|1s.put (|
|00001880| 69 74 65 6d 20 31 20 6f | 66 20 74 65 6d 70 34 29 |item 1 o|f temp4)|
|00001890| 20 69 6e 74 6f 20 20 4c | 53 54 32 72 0d 70 75 74 | into  L|ST2r.put|
|000018a0| 20 28 69 74 65 6d 20 32 | 20 6f 66 20 74 65 6d 70 | (item 2| of temp|
|000018b0| 34 29 20 69 6e 74 6f 20 | 4c 53 54 32 73 0d 70 75 |4) into |LST2s.pu|
|000018c0| 74 20 47 72 65 65 6e 77 | 69 63 68 53 69 64 65 72 |t Greenw|ichSider|
|000018d0| 65 61 6c 54 69 6d 65 28 | 4c 6f 6e 67 69 2c 20 4c |ealTime(|Longi, L|
|000018e0| 53 54 31 72 29 20 69 6e | 74 6f 20 47 53 54 31 72 |ST1r) in|to GST1r|
|000018f0| 0d 70 75 74 20 47 72 65 | 65 6e 77 69 63 68 53 69 |.put Gre|enwichSi|
|00001900| 64 65 72 65 61 6c 54 69 | 6d 65 28 4c 6f 6e 67 69 |derealTi|me(Longi|
|00001910| 2c 20 4c 53 54 31 73 29 | 20 69 6e 74 6f 20 47 53 |, LST1s)| into GS|
|00001920| 54 31 73 0d 70 75 74 20 | 47 72 65 65 6e 77 69 63 |T1s.put |Greenwic|
|00001930| 68 53 69 64 65 72 65 61 | 6c 54 69 6d 65 28 4c 6f |hSiderea|lTime(Lo|
|00001940| 6e 67 69 2c 20 4c 53 54 | 32 72 29 20 69 6e 74 6f |ngi, LST|2r) into|
|00001950| 20 47 53 54 32 72 0d 70 | 75 74 20 47 72 65 65 6e | GST2r.p|ut Green|
|00001960| 77 69 63 68 53 69 64 65 | 72 65 61 6c 54 69 6d 65 |wichSide|realTime|
|00001970| 28 4c 6f 6e 67 69 2c 20 | 4c 53 54 32 73 29 20 69 |(Longi, |LST2s) i|
|00001980| 6e 74 6f 20 47 53 54 32 | 73 0d 70 75 74 20 55 74 |nto GST2|s.put Ut|
|00001990| 54 6f 47 73 74 28 79 65 | 61 72 2c 20 6d 6f 6e 74 |ToGst(ye|ar, mont|
|000019a0| 68 2c 20 64 61 79 29 20 | 69 6e 74 6f 20 54 30 30 |h, day) |into T00|
|000019b0| 0d 70 75 74 20 28 54 30 | 30 20 2d 20 28 2d 20 4c |.put (T0|0 - (- L|
|000019c0| 6f 6e 67 69 2f 31 35 29 | 2a 31 2e 30 30 32 37 33 |ongi/15)|*1.00273|
|000019d0| 38 29 20 69 6e 74 6f 20 | 54 30 30 70 20 20 2d 2d |8) into |T00p  --|
|000019e0| 20 54 30 30 70 20 69 73 | 20 63 6f 6d 69 6e 67 20 | T00p is| coming |
|000019f0| 6f 75 74 20 6c 6f 77 0d | 69 66 20 54 30 30 70 3c |out low.|if T00p<|
|00001a00| 30 20 74 68 65 6e 20 70 | 75 74 20 28 54 30 30 70 |0 then p|ut (T00p|
|00001a10| 20 2b 20 32 34 29 20 69 | 6e 74 6f 20 54 30 30 70 | + 24) i|nto T00p|
|00001a20| 0d 69 66 20 47 53 54 31 | 72 3c 54 30 30 70 20 74 |.if GST1|r<T00p t|
|00001a30| 68 65 6e 0d 70 75 74 20 | 28 47 53 54 31 72 20 2b |hen.put |(GST1r +|
|00001a40| 20 32 34 29 20 69 6e 74 | 6f 20 47 53 54 31 72 0d | 24) int|o GST1r.|
|00001a50| 70 75 74 20 28 47 53 54 | 32 72 20 2b 20 32 34 29 |put (GST|2r + 24)|
|00001a60| 20 69 6e 74 6f 20 47 53 | 54 32 72 0d 65 6e 64 20 | into GS|T2r.end |
|00001a70| 69 66 0d 69 66 20 47 53 | 54 31 73 3c 54 30 30 70 |if.if GS|T1s<T00p|
|00001a80| 20 74 68 65 6e 0d 70 75 | 74 20 28 47 53 54 31 73 | then.pu|t (GST1s|
|00001a90| 20 2b 20 32 34 29 20 69 | 6e 74 6f 20 47 53 54 31 | + 24) i|nto GST1|
|00001aa0| 73 0d 70 75 74 20 28 47 | 53 54 32 73 20 2b 20 32 |s.put (G|ST2s + 2|
|00001ab0| 34 29 20 69 6e 74 6f 20 | 47 53 54 32 73 0d 65 6e |4) into |GST2s.en|
|00001ac0| 64 20 69 66 0d 70 75 74 | 20 28 69 6e 74 65 72 70 |d if.put| (interp|
|00001ad0| 6f 6c 61 74 69 6f 6e 28 | 47 53 54 31 72 2c 20 47 |olation(|GST1r, G|
|00001ae0| 53 54 32 72 2c 20 54 30 | 30 29 29 20 69 6e 74 6f |ST2r, T0|0)) into|
|00001af0| 20 47 53 54 72 0d 70 75 | 74 20 28 69 6e 74 65 72 | GSTr.pu|t (inter|
|00001b00| 70 6f 6c 61 74 69 6f 6e | 28 47 53 54 31 73 2c 20 |polation|(GST1s, |
|00001b10| 47 53 54 32 73 2c 20 54 | 30 30 29 29 20 69 6e 74 |GST2s, T|00)) int|
|00001b20| 6f 20 47 53 54 73 0d 70 | 75 74 20 28 64 31 20 2b |o GSTs.p|ut (d1 +|
|00001b30| 64 32 29 2f 32 20 69 6e | 74 6f 20 64 70 72 69 6d |d2)/2 in|to dprim|
|00001b40| 65 0d 70 75 74 20 64 65 | 6c 74 61 54 69 6d 65 28 |e.put de|ltaTime(|
|00001b50| 4c 61 74 2c 20 64 70 72 | 69 6d 65 29 20 69 6e 74 |Lat, dpr|ime) int|
|00001b60| 6f 20 64 74 0d 70 75 74 | 20 28 47 53 54 73 20 2b |o dt.put| (GSTs +|
|00001b70| 20 64 74 29 20 69 6e 74 | 6f 20 47 53 54 73 0d 70 | dt) int|o GSTs.p|
|00001b80| 75 74 20 28 47 53 54 72 | 20 2d 20 64 74 29 20 69 |ut (GSTr| - dt) i|
|00001b90| 6e 74 6f 20 47 53 54 72 | 0d 70 75 74 20 28 67 73 |nto GSTr|.put (gs|
|00001ba0| 74 54 6f 55 74 28 79 65 | 61 72 2c 20 6d 6f 6e 74 |tToUt(ye|ar, mont|
|00001bb0| 68 2c 20 64 61 79 2c 20 | 47 53 54 72 29 29 20 69 |h, day, |GSTr)) i|
|00001bc0| 6e 74 6f 20 55 54 72 0d | 70 75 74 20 28 67 73 74 |nto UTr.|put (gst|
|00001bd0| 54 6f 55 74 28 79 65 61 | 72 2c 20 6d 6f 6e 74 68 |ToUt(yea|r, month|
|00001be0| 2c 20 64 61 79 2c 20 47 | 53 54 73 29 29 20 69 6e |, day, G|STs)) in|
|00001bf0| 74 6f 20 55 54 73 0d 70 | 75 74 20 28 75 74 54 6f |to UTs.p|ut (utTo|
|00001c00| 4c 6f 63 61 6c 54 69 6d | 65 28 55 54 72 29 29 20 |LocalTim|e(UTr)) |
|00001c10| 69 6e 74 6f 20 50 53 54 | 72 0d 70 75 74 20 28 75 |into PST|r.put (u|
|00001c20| 74 54 6f 4c 6f 63 61 6c | 54 69 6d 65 28 55 54 73 |tToLocal|Time(UTs|
|00001c30| 29 29 20 69 6e 74 6f 20 | 50 53 54 73 0d 64 65 6c |)) into |PSTs.del|
|00001c40| 65 74 65 20 63 68 61 72 | 20 33 20 74 6f 20 31 32 |ete char| 3 to 12|
|00001c50| 20 6f 66 20 50 53 54 72 | 0d 64 65 6c 65 74 65 20 | of PSTr|.delete |
|00001c60| 63 68 61 72 20 36 20 74 | 6f 20 31 35 20 6f 66 20 |char 6 t|o 15 of |
|00001c70| 50 53 54 72 0d 64 65 6c | 65 74 65 20 63 68 61 72 |PSTr.del|ete char|
|00001c80| 20 33 20 74 6f 20 31 32 | 20 6f 66 20 50 53 54 73 | 3 to 12| of PSTs|
|00001c90| 0d 64 65 6c 65 74 65 20 | 63 68 61 72 20 36 20 74 |.delete |char 6 t|
|00001ca0| 6f 20 31 35 20 6f 66 20 | 50 53 54 73 0d 72 65 74 |o 15 of |PSTs.ret|
|00001cb0| 75 72 6e 20 28 50 53 54 | 72 29 20 26 22 2c 22 20 |urn (PST|r) &"," |
|00001cc0| 26 28 50 53 54 73 29 0d | 65 6e 64 20 73 75 6e 52 |&(PSTs).|end sunR|
|00001cd0| 69 73 65 53 65 74 0d 0d | 66 75 6e 63 74 69 6f 6e |iseSet..|function|
|00001ce0| 20 55 74 54 6f 47 73 74 | 20 79 65 61 72 2c 20 6d | UtToGst| year, m|
|00001cf0| 6f 6e 74 68 2c 20 64 61 | 79 20 20 2d 2d 20 70 2e |onth, da|y  -- p.|
|00001d00| 31 37 20 28 23 31 32 29 | 20 77 69 74 68 20 55 74 |17 (#12)| with Ut|
|00001d10| 3d 30 20 28 73 74 65 70 | 20 35 2e 20 70 2e 39 35 |=0 (step| 5. p.95|
|00001d20| 29 0d 73 65 74 20 6e 75 | 6d 62 65 72 46 6f 72 6d |).set nu|mberForm|
|00001d30| 61 74 20 74 6f 20 22 30 | 30 2e 30 30 30 30 30 30 |at to "0|0.000000|
|00001d40| 30 30 30 22 0d 70 75 74 | 20 28 6a 75 6c 69 61 6e |000".put| (julian|
|00001d50| 44 61 74 65 28 79 65 61 | 72 2c 20 6d 6f 6e 74 68 |Date(yea|r, month|
|00001d60| 2c 20 64 61 79 29 20 2d | 20 32 34 35 31 35 34 35 |, day) -| 2451545|
|00001d70| 2e 30 29 20 69 6e 74 6f | 20 53 0d 70 75 74 20 53 |.0) into| S.put S|
|00001d80| 2f 33 36 35 32 35 2e 30 | 20 69 6e 74 6f 20 54 0d |/36525.0| into T.|
|00001d90| 70 75 74 20 54 30 28 54 | 29 20 69 6e 74 6f 20 74 |put T0(T|) into t|
|00001da0| 65 6d 70 0d 69 66 20 74 | 65 6d 70 20 3c 20 30 20 |emp.if t|emp < 0 |
|00001db0| 74 68 65 6e 0d 72 65 70 | 65 61 74 20 75 6e 74 69 |then.rep|eat unti|
|00001dc0| 6c 20 74 65 6d 70 b3 30 | 0d 70 75 74 20 28 74 65 |l temp.0|.put (te|
|00001dd0| 6d 70 20 2b 20 32 34 29 | 20 69 6e 74 6f 20 74 65 |mp + 24)| into te|
|00001de0| 6d 70 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6c |mp.end r|epeat.el|
|00001df0| 73 65 20 69 66 20 74 65 | 6d 70 20 3e 20 32 34 20 |se if te|mp > 24 |
|00001e00| 74 68 65 6e 0d 72 65 70 | 65 61 74 20 75 6e 74 69 |then.rep|eat unti|
|00001e10| 6c 20 74 65 6d 70 b2 32 | 34 0d 70 75 74 20 28 74 |l temp.2|4.put (t|
|00001e20| 65 6d 70 20 2d 20 32 34 | 29 20 69 6e 74 6f 20 74 |emp - 24|) into t|
|00001e30| 65 6d 70 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 65 |emp.end |repeat.e|
|00001e40| 6e 64 20 69 66 0d 70 75 | 74 20 74 65 6d 70 20 69 |nd if.pu|t temp i|
|00001e50| 6e 74 6f 20 47 53 54 0d | 72 65 74 75 72 6e 20 47 |nto GST.|return G|
|00001e60| 53 54 0d 65 6e 64 20 55 | 74 54 6f 47 73 74 0d 0d |ST.end U|tToGst..|
|00001e70| 66 75 6e 63 74 69 6f 6e | 20 54 30 20 54 20 20 20 |function| T0 T   |
|00001e80| 2d 2d 20 70 2e 31 37 20 | 28 23 31 32 29 0d 73 65 |-- p.17 |(#12).se|
|00001e90| 74 20 6e 75 6d 62 65 72 | 46 6f 72 6d 61 74 20 74 |t number|Format t|
|00001ea0| 6f 20 22 30 30 2e 30 30 | 30 30 30 30 30 30 30 22 |o "00.00|0000000"|
|00001eb0| 0d 70 75 74 20 28 36 2e | 36 39 37 33 37 34 35 35 |.put (6.|69737455|
|00001ec0| 38 20 2b 20 32 34 30 30 | 2e 30 35 31 33 33 36 2a |8 + 2400|.051336*|
|00001ed0| 54 20 2b 20 30 2e 30 30 | 30 30 32 35 38 36 32 2a |T + 0.00|0025862*|
|00001ee0| 54 2a 54 29 20 69 6e 74 | 6f 20 74 65 6d 70 0d 72 |T*T) int|o temp.r|
|00001ef0| 65 74 75 72 6e 20 74 65 | 6d 70 0d 65 6e 64 20 54 |eturn te|mp.end T|
|00001f00| 30 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 69 6e 74 65 |0..funct|ion inte|
|00001f10| 72 70 6f 6c 61 74 69 6f | 6e 20 54 69 6d 65 31 2c |rpolatio|n Time1,|
|00001f20| 20 54 69 6d 65 32 2c 20 | 54 30 30 20 20 20 2d 2d | Time2, |T00   --|
|00001f30| 73 74 65 70 20 38 2c 20 | 70 2e 39 35 0d 73 65 74 |step 8, |p.95.set|
|00001f40| 20 6e 75 6d 62 65 72 46 | 6f 72 6d 61 74 20 74 6f | numberF|ormat to|
|00001f50| 20 22 30 30 2e 30 30 30 | 30 30 30 30 30 30 22 0d | "00.000|000000".|
|00001f60| 70 75 74 20 28 28 32 34 | 2e 30 37 2a 54 69 6d 65 |put ((24|.07*Time|
|00001f70| 31 20 2d 20 54 30 30 2a | 28 54 69 6d 65 32 20 2d |1 - T00*|(Time2 -|
|00001f80| 20 54 69 6d 65 31 29 29 | 2f 28 32 34 2e 30 37 20 | Time1))|/(24.07 |
|00001f90| 2b 20 54 69 6d 65 31 20 | 2d 20 54 69 6d 65 32 29 |+ Time1 |- Time2)|
|00001fa0| 29 20 69 6e 74 6f 20 74 | 65 6d 70 0d 72 65 74 75 |) into t|emp.retu|
|00001fb0| 72 6e 20 74 65 6d 70 0d | 65 6e 64 20 69 6e 74 65 |rn temp.|end inte|
|00001fc0| 72 70 6f 6c 61 74 69 6f | 6e 0d 0d 66 75 6e 63 74 |rpolatio|n..funct|
|00001fd0| 69 6f 6e 20 67 73 74 54 | 6f 55 74 20 79 65 61 72 |ion gstT|oUt year|
|00001fe0| 2c 20 6d 6f 6e 74 68 2c | 20 64 61 79 2c 20 47 53 |, month,| day, GS|
|00001ff0| 54 20 20 20 2d 2d 20 70 | 2e 31 38 20 28 23 31 33 |T   -- p|.18 (#13|
|00002000| 29 0d 73 65 74 20 6e 75 | 6d 62 65 72 46 6f 72 6d |).set nu|mberForm|
|00002010| 61 74 20 74 6f 20 22 30 | 30 2e 30 30 30 30 30 30 |at to "0|0.000000|
|00002020| 30 30 30 22 0d 70 75 74 | 20 28 6a 75 6c 69 61 6e |000".put| (julian|
|00002030| 44 61 74 65 28 79 65 61 | 72 2c 20 6d 6f 6e 74 68 |Date(yea|r, month|
|00002040| 2c 20 64 61 79 29 20 2d | 20 32 34 35 31 35 34 35 |, day) -| 2451545|
|00002050| 2e 30 29 20 69 6e 74 6f | 20 53 0d 70 75 74 20 53 |.0) into| S.put S|
|00002060| 2f 33 36 35 32 35 2e 30 | 20 69 6e 74 6f 20 54 0d |/36525.0| into T.|
|00002070| 70 75 74 20 54 30 28 54 | 29 20 69 6e 74 6f 20 74 |put T0(T|) into t|
|00002080| 65 6d 70 0d 69 66 20 74 | 65 6d 70 20 3c 20 30 20 |emp.if t|emp < 0 |
|00002090| 74 68 65 6e 0d 72 65 70 | 65 61 74 20 75 6e 74 69 |then.rep|eat unti|
|000020a0| 6c 20 74 65 6d 70 b3 30 | 0d 70 75 74 20 28 74 65 |l temp.0|.put (te|
|000020b0| 6d 70 20 2b 20 32 34 29 | 20 69 6e 74 6f 20 74 65 |mp + 24)| into te|
|000020c0| 6d 70 0d 65 6e 64 20 72 | 65 70 65 61 74 0d 65 6c |mp.end r|epeat.el|
|000020d0| 73 65 20 69 66 20 74 65 | 6d 70 20 3e 20 32 34 20 |se if te|mp > 24 |
|000020e0| 74 68 65 6e 0d 72 65 70 | 65 61 74 20 75 6e 74 69 |then.rep|eat unti|
|000020f0| 6c 20 74 65 6d 70 b2 32 | 34 0d 70 75 74 20 28 74 |l temp.2|4.put (t|
|00002100| 65 6d 70 20 2d 20 32 34 | 29 20 69 6e 74 6f 20 74 |emp - 24|) into t|
|00002110| 65 6d 70 0d 65 6e 64 20 | 72 65 70 65 61 74 0d 65 |emp.end |repeat.e|
|00002120| 6e 64 20 69 66 0d 70 75 | 74 20 28 47 53 54 20 2d |nd if.pu|t (GST -|
|00002130| 20 74 65 6d 70 29 20 69 | 6e 74 6f 20 74 65 6d 70 | temp) i|nto temp|
|00002140| 32 0d 69 66 20 74 65 6d | 70 32 20 3c 20 30 20 74 |2.if tem|p2 < 0 t|
|00002150| 68 65 6e 0d 72 65 70 65 | 61 74 20 75 6e 74 69 6c |hen.repe|at until|
|00002160| 20 74 65 6d 70 32 b3 30 | 0d 70 75 74 20 28 74 65 | temp2.0|.put (te|
|00002170| 6d 70 32 20 2b 20 32 34 | 29 20 69 6e 74 6f 20 74 |mp2 + 24|) into t|
|00002180| 65 6d 70 32 0d 65 6e 64 | 20 72 65 70 65 61 74 0d |emp2.end| repeat.|
|00002190| 65 6c 73 65 20 69 66 20 | 74 65 6d 70 32 20 3e 20 |else if |temp2 > |
|000021a0| 32 34 20 74 68 65 6e 0d | 72 65 70 65 61 74 20 75 |24 then.|repeat u|
|000021b0| 6e 74 69 6c 20 74 65 6d | 70 32 b2 32 34 0d 70 75 |ntil tem|p2.24.pu|
|000021c0| 74 20 28 74 65 6d 70 32 | 20 2d 20 32 34 29 20 69 |t (temp2| - 24) i|
|000021d0| 6e 74 6f 20 74 65 6d 70 | 32 0d 65 6e 64 20 72 65 |nto temp|2.end re|
|000021e0| 70 65 61 74 0d 65 6e 64 | 20 69 66 0d 70 75 74 20 |peat.end| if.put |
|000021f0| 28 74 65 6d 70 32 2a 30 | 2e 39 39 37 32 36 39 35 |(temp2*0|.9972695|
|00002200| 36 36 33 29 20 69 6e 74 | 6f 20 75 74 0d 72 65 74 |663) int|o ut.ret|
|00002210| 75 72 6e 20 75 74 0d 65 | 6e 64 20 67 73 74 54 6f |urn ut.e|nd gstTo|
|00002220| 55 74 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 75 74 54 |Ut..func|tion utT|
|00002230| 6f 4c 6f 63 61 6c 54 69 | 6d 65 20 55 54 20 20 20 |oLocalTi|me UT   |
|00002240| 2d 2d 20 70 2e 31 35 20 | 28 23 31 30 29 0d 67 6c |-- p.15 |(#10).gl|
|00002250| 6f 62 61 6c 20 54 5a 6f | 6e 65 0d 70 75 74 20 28 |obal TZo|ne.put (|
|00002260| 55 54 20 2b 20 54 5a 6f | 6e 65 29 20 69 6e 74 6f |UT + TZo|ne) into|
|00002270| 20 74 65 6d 70 20 20 2d | 2d 20 a5 a5 a5 a5 a5 50 | temp  -|- .....P|
|00002280| 75 74 20 70 72 6f 70 65 | 72 20 54 69 6d 65 20 5a |ut prope|r Time Z|
|00002290| 6f 6e 65 0d 69 66 20 74 | 65 6d 70 20 3e 20 32 34 |one.if t|emp > 24|
|000022a0| 20 74 68 65 6e 20 70 75 | 74 20 28 74 65 6d 70 20 | then pu|t (temp |
|000022b0| 2d 20 32 34 29 20 69 6e | 74 6f 20 74 65 6d 70 0d |- 24) in|to temp.|
|000022c0| 69 66 20 74 65 6d 70 20 | 3c 20 30 20 74 68 65 6e |if temp |< 0 then|
|000022d0| 20 70 75 74 20 28 74 65 | 6d 70 20 2b 20 32 34 29 | put (te|mp + 24)|
|000022e0| 20 69 6e 74 6f 20 74 65 | 6d 70 0d 70 75 74 20 28 | into te|mp.put (|
|000022f0| 74 65 6d 70 20 64 69 76 | 20 31 29 20 69 6e 74 6f |temp div| 1) into|
|00002300| 20 68 6f 75 72 20 20 20 | 2d 2d 20 70 2e 31 31 20 | hour   |-- p.11 |
|00002310| 28 23 38 29 0d 70 75 74 | 20 28 74 65 6d 70 20 6d |(#8).put| (temp m|
|00002320| 6f 64 20 31 29 20 69 6e | 74 6f 20 66 72 61 63 74 |od 1) in|to fract|
|00002330| 69 6f 6e 0d 70 75 74 20 | 28 66 72 61 63 74 69 6f |ion.put |(fractio|
|00002340| 6e 2a 36 30 29 20 69 6e | 74 6f 20 74 65 6d 70 32 |n*60) in|to temp2|
|00002350| 0d 70 75 74 20 28 74 65 | 6d 70 32 20 64 69 76 20 |.put (te|mp2 div |
|00002360| 31 29 20 69 6e 74 6f 20 | 6d 69 6e 75 74 65 73 0d |1) into |minutes.|
|00002370| 72 65 74 75 72 6e 20 68 | 6f 75 72 20 26 22 3a 22 |return h|our &":"|
|00002380| 20 26 6d 69 6e 75 74 65 | 73 0d 65 6e 64 20 75 74 | &minute|s.end ut|
|00002390| 54 6f 4c 6f 63 61 6c 54 | 69 6d 65 0d 0d 0d 2d 2d |ToLocalT|ime...--|
|000023a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023e0| 2d 2d 2d 2d 2d 0d 66 75 | 6e 63 74 69 6f 6e 20 61 |-----.fu|nction a|
|000023f0| 73 69 6e 20 78 0d 73 65 | 74 20 6e 75 6d 62 65 72 |sin x.se|t number|
|00002400| 46 6f 72 6d 61 74 20 74 | 6f 20 22 30 30 2e 30 30 |Format t|o "00.00|
|00002410| 30 30 30 30 30 30 30 22 | 0d 70 75 74 20 73 71 72 |0000000"|.put sqr|
|00002420| 74 28 31 2e 30 20 2d 20 | 78 2a 78 29 20 69 6e 74 |t(1.0 - |x*x) int|
|00002430| 6f 20 74 65 6d 70 0d 69 | 66 20 74 65 6d 70 20 3c |o temp.i|f temp <|
|00002440| 20 28 31 2a 31 30 5e 2d | 31 30 29 20 74 68 65 6e | (1*10^-|10) then|
|00002450| 20 70 75 74 20 28 31 2a | 31 30 5e 2d 31 30 29 20 | put (1*|10^-10) |
|00002460| 69 6e 74 6f 20 74 65 6d | 70 0d 70 75 74 20 61 74 |into tem|p.put at|
|00002470| 61 6e 28 78 2f 74 65 6d | 70 29 20 69 6e 74 6f 20 |an(x/tem|p) into |
|00002480| 74 65 6d 70 32 0d 72 65 | 74 75 72 6e 20 74 65 6d |temp2.re|turn tem|
|00002490| 70 32 0d 65 6e 64 20 61 | 73 69 6e 0d 0d 66 75 6e |p2.end a|sin..fun|
|000024a0| 63 74 69 6f 6e 20 61 63 | 6f 73 20 78 0d 73 65 74 |ction ac|os x.set|
|000024b0| 20 6e 75 6d 62 65 72 46 | 6f 72 6d 61 74 20 74 6f | numberF|ormat to|
|000024c0| 20 22 30 30 2e 30 30 30 | 30 30 30 30 30 30 22 0d | "00.000|000000".|
|000024d0| 70 75 74 20 28 31 2e 35 | 37 30 37 39 36 33 32 20 |put (1.5|7079632 |
|000024e0| 2d 20 61 73 69 6e 28 78 | 29 29 20 69 6e 74 6f 20 |- asin(x|)) into |
|000024f0| 74 65 6d 70 0d 72 65 74 | 75 72 6e 20 74 65 6d 70 |temp.ret|urn temp|
|00002500| 0d 65 6e 64 20 61 63 6f | 73 0d 0d 66 75 6e 63 74 |.end aco|s..funct|
|00002510| 69 6f 6e 20 61 74 61 6e | 32 20 79 2c 20 78 20 20 |ion atan|2 y, x  |
|00002520| 20 20 2d 2d 20 70 75 74 | 73 20 69 74 20 69 6e 20 |  -- put|s it in |
|00002530| 74 68 65 20 63 6f 72 72 | 65 63 74 20 71 75 61 64 |the corr|ect quad|
|00002540| 72 61 6e 74 20 70 2e 34 | 30 2c 20 34 31 0d 73 65 |rant p.4|0, 41.se|
|00002550| 74 20 6e 75 6d 62 65 72 | 46 6f 72 6d 61 74 20 74 |t number|Format t|
|00002560| 6f 20 22 30 30 2e 30 30 | 30 30 30 30 30 30 30 22 |o "00.00|0000000"|
|00002570| 0d 70 75 74 20 61 74 61 | 6e 28 79 2f 78 29 20 69 |.put ata|n(y/x) i|
|00002580| 6e 74 6f 20 74 65 6d 70 | 0d 69 66 20 78 20 3c 20 |nto temp|.if x < |
|00002590| 30 20 74 68 65 6e 20 70 | 75 74 20 28 74 65 6d 70 |0 then p|ut (temp|
|000025a0| 20 2b 20 70 69 29 20 69 | 6e 74 6f 20 74 65 6d 70 | + pi) i|nto temp|
|000025b0| 0d 72 65 74 75 72 6e 20 | 74 65 6d 70 0d 65 6e 64 |.return |temp.end|
|000025c0| 20 61 74 61 6e 32 0d 0d | 66 75 6e 63 74 69 6f 6e | atan2..|function|
|000025d0| 20 64 65 67 72 65 65 73 | 54 6f 52 61 64 69 61 6e | degrees|ToRadian|
|000025e0| 73 20 78 0d 73 65 74 20 | 6e 75 6d 62 65 72 46 6f |s x.set |numberFo|
|000025f0| 72 6d 61 74 20 74 6f 20 | 22 30 30 2e 30 30 30 30 |rmat to |"00.0000|
|00002600| 30 30 30 30 30 22 0d 70 | 75 74 20 28 78 2a 30 2e |00000".p|ut (x*0.|
|00002610| 30 31 37 34 35 33 32 39 | 32 35 32 29 20 69 6e 74 |01745329|252) int|
|00002620| 6f 20 74 65 6d 70 0d 72 | 65 74 75 72 6e 20 74 65 |o temp.r|eturn te|
|00002630| 6d 70 0d 65 6e 64 20 64 | 65 67 72 65 65 73 54 6f |mp.end d|egreesTo|
|00002640| 52 61 64 69 61 6e 73 0d | 0d 66 75 6e 63 74 69 6f |Radians.|.functio|
|00002650| 6e 20 52 61 64 69 61 6e | 73 54 6f 44 65 67 72 65 |n Radian|sToDegre|
|00002660| 65 73 20 78 0d 73 65 74 | 20 6e 75 6d 62 65 72 46 |es x.set| numberF|
|00002670| 6f 72 6d 61 74 20 74 6f | 20 22 30 30 2e 30 30 30 |ormat to| "00.000|
|00002680| 30 30 30 30 30 30 22 0d | 70 75 74 20 28 78 2a 35 |000000".|put (x*5|
|00002690| 37 2e 32 39 35 37 37 39 | 35 31 29 20 69 6e 74 6f |7.295779|51) into|
|000026a0| 20 74 65 6d 70 0d 72 65 | 74 75 72 6e 20 74 65 6d | temp.re|turn tem|
|000026b0| 70 0d 65 6e 64 20 52 61 | 64 69 61 6e 73 54 6f 44 |p.end Ra|diansToD|
|000026c0| 65 67 72 65 65 73 0d 0d | 66 75 6e 63 74 69 6f 6e |egrees..|function|
|000026d0| 20 69 6e 74 20 76 61 6c | 75 65 20 20 2d 2d 20 67 | int val|ue  -- g|
|000026e0| 69 76 65 73 20 69 6e 74 | 65 67 65 72 2c 20 74 68 |ives int|eger, th|
|000026f0| 65 20 6e 75 6d 62 65 72 | 20 62 65 66 6f 72 65 20 |e number| before |
|00002700| 74 68 65 20 64 65 63 69 | 6d 61 6c 20 70 6f 69 6e |the deci|mal poin|
|00002710| 74 0d 72 65 74 75 72 6e | 20 28 76 61 6c 75 65 20 |t.return| (value |
|00002720| 64 69 76 20 31 29 0d 65 | 6e 64 20 69 6e 74 0d 00 |div 1).e|nd int..|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002780| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002800| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002880| 00 00 02 00 4d 41 53 54 | ff ff ff ff 00 00 00 00 |....MAST|........|
|00002890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028a0| 00 01 50 ec 00 01 54 de | 00 01 94 f5 00 01 cc d9 |..P...T.|........|
|000028b0| 00 02 33 1f 00 02 37 c9 | 00 02 39 e2 00 01 be b2 |..3...7.|..9.....|
|000028c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002910| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002920| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000029f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002a80| 00 00 00 80 4c 49 53 54 | 00 00 08 ec 00 00 00 00 |....LIST|........|
|00002a90| 00 00 00 01 00 00 08 00 | 00 00 00 01 00 84 00 02 |........|........|
|00002aa0| 00 20 00 03 c0 00 01 3c | 00 00 00 01 00 00 00 00 |. .....<|........|
|00002ab0| 00 00 09 de 00 01 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ac0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ad0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002af0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002b00| 00 00 08 00 50 41 47 45 | 00 00 09 de 00 00 00 00 |....PAGE|........|
|00002b10| 00 00 08 ec 20 00 01 7b | 00 00 0b d9 60 25 9f 7f |.... ..{|....`%..|
|00002b20| 9e 5e 7f eb ae a8 df df | ef c5 45 6e ee be 5d f7 |.^......|..En..].|
|00002b30| fb 3d dd bf fe f4 6d 59 | ea f9 eb f7 ff ff e5 f9 |.=....mY|........|
|00002b40| fd eb ef 6d ef 27 5d df | ee c8 df 5f de eb e7 e3 |...m.'].|..._....|
|00002b50| 73 2b f4 7c 6e 3d 6c 5e | dd 9b 4b 7a d7 ee f9 d2 |s+.|n=l^|..Kz....|
|00002b60| f3 b2 7c a7 e8 79 fb ff | 7d df 7e 5e db fd df 9a |..|..y..|}.~^....|
|00002b70| ce bd ad ff bb 3f ff fd | df ff a8 bb a4 74 37 cf |.....?..|.....t7.|
|00002b80| 71 fc e2 ee f5 79 fd 59 | 37 f7 5e 7b ee f7 64 11 |q....y.Y|7.^{..d.|
|00002b90| 50 75 f7 b9 ef aa 71 6f | f4 c2 67 18 00 00 00 00 |Pu....qo|..g.....|
|00002ba0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002bf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002c90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ca0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002da0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002db0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002dd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002de0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002eb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ec0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f20| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fa0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000030f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000031f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003200| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003220| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003240| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003260| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003280| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000032f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003300| 00 00 05 40 42 4b 47 44 | 00 00 0a f5 00 00 00 00 |...@BKGD|........|
|00003310| 00 00 0f b2 00 00 00 00 | 00 00 00 01 00 00 0a f5 |........|........|
|00003320| 00 00 0a f5 00 09 00 09 | 00 00 04 f6 00 00 00 00 |........|........|
|00003330| 00 00 00 26 00 01 02 04 | 00 2f 00 11 00 43 00 6b |...&....|./...C.k|
|00003340| 00 02 00 00 00 00 00 01 | 00 03 00 0c 00 00 00 10 |........|........|
|00003350| 44 61 74 65 00 00 00 00 | 00 2a 00 02 02 04 00 2f |Date....|.*...../|
|00003360| 00 bf 00 43 01 24 00 02 | 00 00 00 00 00 01 00 03 |...C.$..|........|
|00003370| 00 0c 00 00 00 10 4c 61 | 74 69 74 75 64 65 00 00 |......La|titude..|
|00003380| 00 00 00 2a 00 03 02 04 | 00 2f 01 69 00 43 01 cd |...*....|./.i.C..|
|00003390| 00 02 00 00 00 00 00 01 | 00 03 00 0c 00 00 00 10 |........|........|
|000033a0| 4c 6f 6e 67 69 74 75 64 | 65 00 00 00 00 28 00 04 |Longitud|e....(..|
|000033b0| 02 05 00 b4 00 85 00 c8 | 00 cc 00 02 00 00 00 00 |........|........|
|000033c0| 00 01 00 03 00 0c 00 00 | 00 10 53 75 6e 52 69 73 |........|..SunRis|
|000033d0| 65 00 00 00 00 28 00 05 | 02 05 00 b4 01 5d 00 c8 |e....(..|.....]..|
|000033e0| 01 a3 00 02 00 00 00 00 | 00 01 00 03 00 0c 00 00 |........|........|
|000033f0| 00 10 53 75 6e 53 65 74 | 00 00 00 00 03 38 00 06 |..SunSet|.....8..|
|00003400| 01 00 01 38 00 89 01 4e | 01 6d b0 02 00 00 00 00 |...8...N|.m......|
|00003410| 00 01 00 00 00 0c 00 00 | 00 10 47 69 76 65 20 4d |........|..Give M|
|00003420| 65 20 53 75 6e 20 52 69 | 73 65 20 26 20 53 75 6e |e Sun Ri|se & Sun|
|00003430| 20 53 65 74 20 54 69 6d | 65 73 00 00 6f 6e 20 6d | Set Tim|es..on m|
|00003440| 6f 75 73 65 55 70 0d 0d | 67 6c 6f 62 61 6c 20 54 |ouseUp..|global T|
|00003450| 5a 6f 6e 65 0d 70 75 74 | 20 66 69 65 6c 64 20 22 |Zone.put| field "|
|00003460| 54 69 6d 65 5a 6f 6e 65 | 22 20 69 6e 74 6f 20 54 |TimeZone|" into T|
|00003470| 5a 6f 6e 65 0d 73 65 74 | 20 63 75 72 73 6f 72 20 |Zone.set| cursor |
|00003480| 74 6f 20 77 61 74 63 68 | 0d 70 75 74 20 66 69 65 |to watch|.put fie|
|00003490| 6c 64 20 22 44 61 74 65 | 22 20 69 6e 74 6f 20 69 |ld "Date|" into i|
|000034a0| 74 0d 63 6f 6e 76 65 72 | 74 20 69 74 20 74 6f 20 |t.conver|t it to |
|000034b0| 64 61 74 65 49 74 65 6d | 73 0d 70 75 74 20 69 74 |dateItem|s.put it|
|000034c0| 65 6d 20 31 20 20 6f 66 | 20 69 74 20 69 6e 74 6f |em 1  of| it into|
|000034d0| 20 79 65 61 72 0d 70 75 | 74 20 69 74 65 6d 20 32 | year.pu|t item 2|
|000034e0| 20 6f 66 20 69 74 20 69 | 6e 74 6f 20 6d 6f 6e 74 | of it i|nto mont|
|000034f0| 68 0d 70 75 74 20 69 74 | 65 6d 20 33 20 6f 66 20 |h.put it|em 3 of |
|00003500| 69 74 20 69 6e 74 6f 20 | 64 61 79 0d 70 75 74 20 |it into |day.put |
|00003510| 66 69 65 6c 64 20 22 4c | 61 74 69 74 75 64 65 22 |field "L|atitude"|
|00003520| 20 69 6e 74 6f 20 4c 61 | 74 0d 67 65 74 20 6c 61 | into La|t.get la|
|00003530| 73 74 20 63 68 61 72 20 | 6f 66 20 4c 61 74 0d 69 |st char |of Lat.i|
|00003540| 66 20 69 74 20 69 73 20 | 22 53 22 20 74 68 65 6e |f it is |"S" then|
|00003550| 20 70 75 74 20 22 2d 22 | 20 62 65 66 6f 72 65 20 | put "-"| before |
|00003560| 4c 61 74 0d 64 65 6c 65 | 74 65 20 6c 61 73 74 20 |Lat.dele|te last |
|00003570| 63 68 61 72 20 6f 66 20 | 4c 61 74 0d 70 75 74 20 |char of |Lat.put |
|00003580| 66 69 65 6c 64 20 22 4c | 6f 6e 67 69 74 75 64 65 |field "L|ongitude|
|00003590| 22 20 69 6e 74 6f 20 4c | 6f 6e 67 69 0d 0d 67 65 |" into L|ongi..ge|
|000035a0| 74 20 6c 61 73 74 20 63 | 68 61 72 20 6f 66 20 4c |t last c|har of L|
|000035b0| 6f 6e 67 69 0d 69 66 20 | 69 74 20 69 73 20 22 45 |ongi.if |it is "E|
|000035c0| 22 20 74 68 65 6e 20 70 | 75 74 20 22 2d 22 20 62 |" then p|ut "-" b|
|000035d0| 65 66 6f 72 65 20 4c 6f | 6e 67 69 0d 64 65 6c 65 |efore Lo|ngi.dele|
|000035e0| 74 65 20 6c 61 73 74 20 | 63 68 61 72 20 6f 66 20 |te last |char of |
|000035f0| 4c 6f 6e 67 69 0d 70 75 | 74 20 73 75 6e 52 69 73 |Longi.pu|t sunRis|
|00003600| 65 53 65 74 20 28 79 65 | 61 72 2c 20 6d 6f 6e 74 |eSet (ye|ar, mont|
|00003610| 68 2c 20 64 61 79 2c 20 | 4c 61 74 2c 20 4c 6f 6e |h, day, |Lat, Lon|
|00003620| 67 69 29 20 69 6e 74 6f | 20 72 73 54 69 6d 65 0d |gi) into| rsTime.|
|00003630| 70 75 74 20 69 74 65 6d | 20 31 20 6f 66 20 72 73 |put item| 1 of rs|
|00003640| 54 69 6d 65 20 26 26 22 | 61 6d 22 20 69 6e 74 6f |Time &&"|am" into|
|00003650| 20 66 69 65 6c 64 20 22 | 53 75 6e 52 69 73 65 22 | field "|SunRise"|
|00003660| 0d 70 75 74 20 69 74 65 | 6d 20 32 20 6f 66 20 72 |.put ite|m 2 of r|
|00003670| 73 54 69 6d 65 20 69 6e | 74 6f 20 73 65 74 54 69 |sTime in|to setTi|
|00003680| 6d 65 0d 70 75 74 20 63 | 68 61 72 20 31 20 74 6f |me.put c|har 1 to|
|00003690| 20 32 20 6f 66 20 73 65 | 74 54 69 6d 65 20 69 6e | 2 of se|tTime in|
|000036a0| 74 6f 20 74 65 6d 70 0d | 73 65 74 20 6e 75 6d 62 |to temp.|set numb|
|000036b0| 65 72 46 6f 72 6d 61 74 | 20 74 6f 20 22 23 23 22 |erFormat| to "##"|
|000036c0| 0d 70 75 74 20 28 74 65 | 6d 70 20 2d 20 31 32 29 |.put (te|mp - 12)|
|000036d0| 20 69 6e 74 6f 20 73 65 | 74 48 6f 75 72 0d 70 75 | into se|tHour.pu|
|000036e0| 74 20 28 73 65 74 48 6f | 75 72 29 20 26 28 63 68 |t (setHo|ur) &(ch|
|000036f0| 61 72 20 33 20 74 6f 20 | 35 20 6f 66 20 73 65 74 |ar 3 to |5 of set|
|00003700| 54 69 6d 65 29 20 26 26 | 22 70 6d 22 20 69 6e 74 |Time) &&|"pm" int|
|00003710| 6f 20 66 69 65 6c 64 20 | 22 53 75 6e 53 65 74 22 |o field |"SunSet"|
|00003720| 0d 62 65 65 70 0d 0d 65 | 6e 64 20 6d 6f 75 73 65 |.beep..e|nd mouse|
|00003730| 55 70 00 00 00 2a 00 07 | 02 05 00 69 01 19 00 7d |Up...*..|...i...}|
|00003740| 01 5f 00 02 00 00 00 00 | 00 01 00 03 00 0c 00 00 |._......|........|
|00003750| 00 10 54 69 6d 65 5a 6f | 6e 65 00 00 00 00 00 5e |..TimeZo|ne.....^|
|00003760| 00 08 01 00 00 68 00 45 | 00 7e 00 ef 80 04 00 00 |.....h.E|.~......|
|00003770| 00 00 00 01 00 00 00 0c | 00 00 00 10 57 68 61 74 |........|....What|
|00003780| 20 69 73 20 6d 79 20 54 | 69 6d 65 20 5a 6f 6e 65 | is my T|ime Zone|
|00003790| 3f 00 00 6f 6e 20 6d 6f | 75 73 65 55 70 0d 73 68 |?..on mo|useUp.sh|
|000037a0| 6f 77 20 66 69 65 6c 64 | 20 22 5a 6f 6e 65 22 0d |ow field| "Zone".|
|000037b0| 65 6e 64 20 6d 6f 75 73 | 65 55 70 00 00 6c 00 09 |end mous|eUp..l..|
|000037c0| 02 85 00 81 00 47 01 49 | 01 a4 00 07 00 00 00 00 |.....G.I|........|
|000037d0| 00 00 00 03 00 0a 00 00 | 00 0d 5a 6f 6e 65 00 00 |........|..Zone..|
|000037e0| 6f 6e 20 6d 6f 75 73 65 | 55 70 0d 70 75 74 20 74 |on mouse|Up.put t|
|000037f0| 68 65 20 63 6c 69 63 6b | 54 65 78 74 20 69 6e 74 |he click|Text int|
|00003800| 6f 20 66 69 65 6c 64 20 | 22 54 69 6d 65 5a 6f 6e |o field |"TimeZon|
|00003810| 65 22 0d 68 69 64 65 20 | 6d 65 0d 65 6e 64 20 6d |e".hide |me.end m|
|00003820| 6f 75 73 65 55 70 00 00 | 00 00 00 00 00 00 00 00 |ouseUp..|........|
|00003830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003840| 00 00 01 c0 42 4d 41 50 | 00 00 0f b2 00 00 00 00 |....BMAP|........|
|00003850| 00 00 00 00 00 01 00 00 | 00 00 00 00 01 56 02 00 |........|.....V..|
|00003860| 00 00 00 00 01 56 02 00 | 00 1f 00 0d 00 c2 01 ba |.....V..|........|
|00003870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 80 |........|........|
|00003880| e1 7a 30 00 18 30 c0 00 | 30 2d 01 80 13 c3 22 c0 |.z0..0..|0-....".|
|00003890| 00 8a e1 1d 30 e1 15 c0 | 04 31 07 f8 00 c1 18 00 |....0...|.1......|
|000038a0| 01 80 00 f8 00 30 7f 1e | 24 71 23 31 c1 e0 0e c1 |.....0..|$q#1....|
|000038b0| f1 f0 f9 c4 8c c7 07 80 | 21 07 38 16 34 e1 71 2d |........|!.8.4.q-|
|000038c0| 24 41 20 02 c2 d0 1d 01 | c1 68 29 61 04 80 0b 0b |$A .....|.h)a....|
|000038d0| 40 23 f0 e0 c1 f1 99 8f | 00 0a 3c 48 78 1e 2c e1 |@#......|..<Hx.,.|
|000038e0| 15 40 06 32 01 69 61 c1 | 68 00 16 80 00 5a 48 b4 |.@.2.ia.|h....ZH.|
|000038f0| 1e 2c 15 c0 e1 24 03 00 | 74 01 60 00 01 80 00 58 |.,...$..|t.`....X|
|00003900| e1 16 f0 e1 24 03 c0 8b | 27 16 80 13 30 e1 32 40 |....$...|'...0.2@|
|00003910| 00 c0 e1 42 01 00 03 00 | 8a 27 0e 80 13 3c 0d c1 |...B....|.'...<..|
|00003920| 0f 2c 16 00 b2 82 c2 d0 | 1d 79 c1 68 01 60 02 ca |.,......|.y.h.`..|
|00003930| 0b 0b 40 89 32 c1 99 99 | c1 99 98 19 80 cc 66 30 |..@.2...|......f0|
|00003940| cc e2 15 18 05 32 c0 f0 | f8 c1 f8 f8 0f 00 f8 3e |.....2..|.......>|
|00003950| 1c 78 e2 24 01 98 05 16 | 18 e2 1b f0 05 25 01 98 |.x.$....|.....%..|
|00003960| e3 01 16 f0 e3 01 bf 81 | bf 81 bf 81 bf 81 b0 81 |........|........|
|00003970| 28 0f 80 22 7e 30 e1 16 | 1f 33 7c 00 60 0d 28 18 |(.."~0..|.3|.`.(.|
|00003980| c0 12 63 e1 27 31 80 32 | c6 00 60 0d 08 c1 18 06 |..c.'1.2|..`.....|
|00003990| 67 c0 63 33 c3 80 e1 74 | 30 0c cf 80 c0 1c 78 0d |g.c3...t|0.....x.|
|000039a0| 8b 08 c1 16 c6 67 60 00 | 36 66 c0 e1 64 2d 8c ce |.....g`.|6f..d-..|
|000039b0| c0 b6 36 0e 8a 38 0d 80 | 01 23 6a a0 e1 64 1b 00 |..6..8..|.#j..d..|
|000039c0| 02 00 6c 55 0e 28 03 40 | 42 1d 05 c3 80 e1 24 06 |..lU.(.@|B.....$.|
|000039d0| 80 22 1a 1c 0e 4c 1d 03 | a3 e0 e1 19 1f 0e 38 18 |."...L..|......8.|
|000039e0| 00 80 32 06 0a c0 e1 24 | 30 01 22 c0 56 0e 28 17 |..2....$|0.".V.(.|
|000039f0| 45 33 05 a5 40 e1 24 2e | 8a 32 ba 2a 58 0d 00 00 |E3..@.$.|.2.*X...|
|00003a00| 00 00 0c e0 43 41 52 44 | 00 00 0b d9 00 00 00 00 |....CARD|........|
|00003a10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003a20| 00 00 09 de 00 00 0a f5 | 00 04 00 0e 00 00 02 0a |........|........|
|00003a30| 00 07 00 00 0a 8c 00 ca | 00 08 01 00 01 1e 00 00 |........|........|
|00003a40| 01 56 00 2d a0 02 00 00 | 03 fc 00 01 00 00 00 0c |.V.-....|........|
|00003a50| 00 00 00 10 48 65 6c 70 | 00 00 6f 6e 20 6d 6f 75 |....Help|..on mou|
|00003a60| 73 65 55 70 0d 2d 2d 73 | 68 6f 77 20 63 61 72 64 |seUp.--s|how card|
|00003a70| 20 66 69 65 6c 64 20 22 | 48 65 6c 70 22 0d 73 65 | field "|Help".se|
|00003a80| 74 20 74 68 65 20 76 69 | 73 69 62 6c 65 20 6f 66 |t the vi|sible of|
|00003a90| 20 63 61 72 64 20 66 69 | 65 6c 64 20 22 48 65 6c | card fi|eld "Hel|
|00003aa0| 70 22 20 74 6f 20 6e 6f | 74 20 74 68 65 20 76 69 |p" to no|t the vi|
|00003ab0| 73 69 62 6c 65 20 6f 66 | 20 63 61 72 64 20 66 69 |sible of| card fi|
|00003ac0| 65 6c 64 20 22 48 65 6c | 70 22 0d 73 65 74 20 74 |eld "Hel|p".set t|
|00003ad0| 68 65 20 73 63 72 6f 6c | 6c 20 6f 66 20 63 61 72 |he scrol|l of car|
|00003ae0| 64 20 66 69 65 6c 64 20 | 22 48 65 6c 70 22 20 74 |d field |"Help" t|
|00003af0| 6f 20 30 0d 65 6e 64 20 | 6d 6f 75 73 65 55 70 00 |o 0.end |mouseUp.|
|00003b00| 00 44 00 09 02 85 00 cf | 00 46 01 35 01 a9 00 07 |.D......|.F.5....|
|00003b10| 00 00 00 00 00 00 00 03 | 00 0c 00 00 00 10 48 65 |........|......He|
|00003b20| 6c 70 00 00 6f 6e 20 6d | 6f 75 73 65 55 70 0d 68 |lp..on m|ouseUp.h|
|00003b30| 69 64 65 20 6d 65 0d 65 | 6e 64 20 6d 6f 75 73 65 |ide me.e|nd mouse|
|00003b40| 55 70 00 00 00 b8 00 0d | 01 00 01 18 01 d3 01 56 |Up......|.......V|
|00003b50| 02 00 80 02 00 00 47 2f | 00 01 00 00 00 0c 00 00 |......G/|........|
|00003b60| 00 10 43 72 65 64 69 74 | 73 00 00 6f 6e 20 6d 6f |..Credit|s..on mo|
|00003b70| 75 73 65 55 70 0d 73 65 | 74 20 74 68 65 20 76 69 |useUp.se|t the vi|
|00003b80| 73 69 62 6c 65 20 6f 66 | 20 63 61 72 64 20 66 69 |sible of| card fi|
|00003b90| 65 6c 64 20 22 69 6e 74 | 72 6f 22 20 74 6f 20 6e |eld "int|ro" to n|
|00003ba0| 6f 74 20 74 68 65 20 76 | 69 73 69 62 6c 65 20 6f |ot the v|isible o|
|00003bb0| 66 20 63 61 72 64 20 66 | 69 65 6c 64 20 22 49 6e |f card f|ield "In|
|00003bc0| 74 72 6f 22 0d 73 65 74 | 20 74 68 65 20 73 63 72 |tro".set| the scr|
|00003bd0| 6f 6c 6c 20 6f 66 20 63 | 61 72 64 20 66 69 65 6c |oll of c|ard fiel|
|00003be0| 64 20 22 49 6e 74 72 6f | 22 20 74 6f 20 30 0d 65 |d "Intro|" to 0.e|
|00003bf0| 6e 64 20 6d 6f 75 73 65 | 55 70 00 00 00 44 00 0e |nd mouse|Up...D..|
|00003c00| 02 85 00 ca 00 2e 01 1f | 01 d1 20 07 00 00 00 00 |........|.. .....|
|00003c10| 00 00 00 03 00 0c 00 00 | 00 10 49 6e 74 72 6f 00 |........|..Intro.|
|00003c20| 00 6f 6e 20 6d 6f 75 73 | 65 55 70 0d 68 69 64 65 |.on mous|eUp.hide|
|00003c30| 20 6d 65 0d 65 6e 64 20 | 6d 6f 75 73 65 55 70 00 | me.end |mouseUp.|
|00003c40| 00 03 00 08 00 31 32 32 | 2e 30 35 57 00 02 00 07 |.....122|.05W....|
|00003c50| 00 33 37 2e 30 35 4e 00 | 00 01 00 07 00 32 2f 39 |.37.05N.|.....2/9|
|00003c60| 2f 39 32 00 00 09 04 9d | 80 d6 00 00 00 03 00 34 |/92.....|.......4|
|00003c70| 00 01 00 37 00 02 00 38 | 00 01 00 62 00 02 00 64 |...7...8|...b...d|
|00003c80| 00 01 00 7e 00 02 00 80 | 00 01 00 97 00 02 00 99 |...~....|........|
|00003c90| 00 01 00 c7 00 02 00 c9 | 00 01 00 fb 00 02 00 fd |........|........|
|00003ca0| 00 01 01 3a 00 02 01 3c | 00 01 01 67 00 02 01 69 |...:...<|...g...i|
|00003cb0| 00 01 01 8c 00 02 01 8e | 00 01 01 b8 00 02 01 ba |........|........|
|00003cc0| 00 01 01 d8 00 02 01 db | 00 01 01 f0 00 02 01 f3 |........|........|
|00003cd0| 00 01 02 00 00 02 02 03 | 00 01 02 2e 00 02 02 30 |........|.......0|
|00003ce0| 00 01 02 53 00 02 02 55 | 00 01 02 7e 00 02 02 7f |...S...U|...~....|
|00003cf0| 00 03 02 80 00 01 02 8f | 00 02 02 90 00 01 02 b8 |........|........|
|00003d00| 00 02 02 b9 00 01 02 da | 00 02 02 db 00 01 02 ee |........|........|
|00003d10| 00 02 02 f1 00 01 03 19 | 00 02 03 1a 00 01 03 31 |........|.......1|
|00003d20| 00 02 03 32 00 01 03 46 | 00 02 03 47 00 01 03 63 |...2...F|...G...c|
|00003d30| 00 02 03 64 00 01 03 93 | 00 02 03 94 00 01 46 69 |...d....|......Fi|
|00003d40| 6e 64 20 61 20 63 69 74 | 79 20 63 6c 6f 73 65 20 |nd a cit|y close |
|00003d50| 74 6f 20 79 6f 75 72 73 | 20 61 6e 64 20 63 6c 69 |to yours| and cli|
|00003d60| 63 6b 20 6f 6e 20 74 68 | 65 20 6e 75 6d 62 65 72 |ck on th|e number|
|00003d70| 2e 20 0d 0d 20 30 20 20 | 20 3d 20 4c 6f 6e 64 6f |. .. 0  | = Londo|
|00003d80| 6e 2c 20 64 75 62 6c 69 | 6e 2c 20 4c 69 73 62 6f |n, dubli|n, Lisbo|
|00003d90| 6e 2c 20 52 61 62 61 74 | 2c 20 41 63 63 72 61 0d |n, Rabat|, Accra.|
|00003da0| 2d 31 20 20 3d 20 41 7a | 6f 72 65 73 2c 20 43 61 |-1  = Az|ores, Ca|
|00003db0| 70 65 20 56 65 72 64 65 | 20 49 73 0d 2d 32 20 20 |pe Verde| Is.-2  |
|00003dc0| 3d 20 4d 69 64 2d 41 74 | 6c 61 6e 74 69 63 20 4f |= Mid-At|lantic O|
|00003dd0| 63 65 61 6e 0d 2d 33 20 | 20 3d 20 42 75 65 6e 6f |cean.-3 | = Bueno|
|00003de0| 73 20 41 69 72 65 73 2c | 20 4d 6f 6e 74 65 76 69 |s Aires,| Montevi|
|00003df0| 64 65 6f 2c 20 52 69 6f | 20 64 65 20 4a 61 6e 65 |deo, Rio| de Jane|
|00003e00| 69 72 6f 20 0d 2d 34 20 | 20 3d 20 48 61 6c 69 66 |iro .-4 | = Halif|
|00003e10| 61 78 2c 20 53 61 6e 20 | 4a 75 61 6e 2c 20 43 61 |ax, San |Juan, Ca|
|00003e20| 72 61 63 61 73 2c 20 4c | 61 20 50 61 7a 2c 20 53 |racas, L|a Paz, S|
|00003e30| 61 6e 74 69 61 67 6f 20 | 0d 2d 35 20 20 3d 20 4f |antiago |.-5  = O|
|00003e40| 74 74 61 77 61 2c 20 4e | 65 77 20 59 6f 72 6b 2c |ttawa, N|ew York,|
|00003e50| 20 57 61 73 68 69 6e 67 | 74 6f 6e 20 44 2e 43 2e | Washing|ton D.C.|
|00003e60| 2c 20 4d 69 61 6d 69 2c | 20 48 61 76 61 6e 61 2c |, Miami,| Havana,|
|00003e70| 20 42 6f 67 6f 74 61 0d | 2d 36 20 20 3d 20 57 69 | Bogota.|-6  = Wi|
|00003e80| 6e 6e 69 70 65 67 2c 20 | 43 68 69 63 61 67 6f 2c |nnipeg, |Chicago,|
|00003e90| 20 44 61 6c 6c 61 73 2c | 20 4d 65 78 69 63 6f 20 | Dallas,| Mexico |
|00003ea0| 43 69 74 79 0d 2d 37 20 | 20 3d 20 43 61 6c 67 61 |City.-7 | = Calga|
|00003eb0| 72 79 2c 20 44 65 6e 76 | 65 72 2c 20 50 68 6f 65 |ry, Denv|er, Phoe|
|00003ec0| 6e 69 78 2c 20 42 61 6a | 61 0d 2d 38 20 20 3d 20 |nix, Baj|a.-8  = |
|00003ed0| 56 61 6e 63 6f 75 76 65 | 72 2c 20 53 61 6e 20 46 |Vancouve|r, San F|
|00003ee0| 72 61 6e 63 69 73 63 6f | 2c 20 4c 6f 73 20 41 6e |rancisco|, Los An|
|00003ef0| 67 65 6c 65 73 0d 2d 39 | 20 20 3d 20 41 6e 63 68 |geles.-9|  = Anch|
|00003f00| 6f 72 61 67 65 2c 20 4a | 75 6e 65 61 75 2c 20 44 |orage, J|uneau, D|
|00003f10| 61 77 73 6f 6e 0d 2d 31 | 30 20 3d 20 48 6f 6e 6f |awson.-1|0 = Hono|
|00003f20| 6c 75 6c 75 2c 20 50 61 | 70 65 65 74 65 0d 2d 31 |lulu, Pa|peete.-1|
|00003f30| 31 20 3d 20 50 61 67 6f | 20 50 61 67 65 0d 31 32 |1 = Pago| Page.12|
|00003f40| 20 3d 20 57 65 6c 6c 69 | 6e 67 74 6f 6e 2c 20 41 | = Welli|ngton, A|
|00003f50| 75 63 6b 6c 61 6e 64 2c | 20 43 68 72 69 73 74 63 |uckland,| Christc|
|00003f60| 68 75 72 63 68 2c 20 53 | 75 76 61 0d 31 31 20 3d |hurch, S|uva.11 =|
|00003f70| 20 4e 65 77 20 43 61 6c | 65 64 6f 6e 69 61 2c 20 | New Cal|edonia, |
|00003f80| 4d 61 72 73 68 61 6c 6c | 20 49 73 6c 61 6e 64 73 |Marshall| Islands|
|00003f90| 0d 31 30 20 3d 20 47 75 | 61 6d 2c 20 50 6f 72 74 |.10 = Gu|am, Port|
|00003fa0| 20 4d 6f 73 65 62 79 20 | 2c 20 53 79 64 6e 65 79 | Moseby |, Sydney|
|00003fb0| 2c 20 4d 65 6c 62 6f 75 | 72 6e 65 0d 39 20 3d 20 |, Melbou|rne.9 = |
|00003fc0| 54 6f 6b 79 6f 2c 20 53 | 65 6f 75 6c 0d 38 20 3d |Tokyo, S|eoul.8 =|
|00003fd0| 20 42 65 69 6a 69 6e 67 | 2c 20 54 61 69 70 65 69 | Beijing|, Taipei|
|00003fe0| 2c 20 48 6f 6e 67 4b 6f | 6e 67 2c 20 53 69 6e 67 |, HongKo|ng, Sing|
|00003ff0| 61 70 6f 72 65 0d 37 20 | 3d 20 4e 6f 76 6f 73 69 |apore.7 |= Novosi|
|00004000| 62 69 72 73 6b 2c 20 43 | 68 65 6e 67 74 75 2c 20 |birsk, C|hengtu, |
|00004010| 42 61 6e 67 6b 6f 6b 0d | 36 20 3d 20 54 61 73 68 |Bangkok.|6 = Tash|
|00004020| 6b 65 6e 74 2c 20 4c 68 | 61 73 61 0d 35 2e 35 20 |kent, Lh|asa.5.5 |
|00004030| 3d 20 4e 65 77 20 44 65 | 6c 68 69 2c 20 42 6f 6d |= New De|lhi, Bom|
|00004040| 62 61 79 2c 20 43 61 6c | 63 75 74 74 61 2c 20 43 |bay, Cal|cutta, C|
|00004050| 6f 6c 75 6d 62 6f 0d 35 | 20 3d 20 53 76 65 72 64 |olumbo.5| = Sverd|
|00004060| 6c 6f 76 73 6b 2c 20 4b | 61 72 61 63 68 69 0d 34 |lovsk, K|arachi.4|
|00004070| 20 3d 20 47 6f 72 6b 79 | 2c 20 41 62 75 20 44 68 | = Gorky|, Abu Dh|
|00004080| 61 62 69 0d 33 20 3d 20 | 4d 6f 73 63 6f 77 2c 20 |abi.3 = |Moscow, |
|00004090| 42 61 67 68 64 61 64 2c | 20 4e 61 69 72 6f 62 69 |Baghdad,| Nairobi|
|000040a0| 0d 32 20 3d 20 48 65 6c | 73 69 6e 6b 69 2c 20 41 |.2 = Hel|sinki, A|
|000040b0| 74 68 65 6e 73 2c 20 49 | 73 74 61 6e 62 75 6c 2c |thens, I|stanbul,|
|000040c0| 20 43 61 69 72 6f 2c 20 | 43 61 70 65 74 6f 77 6e | Cairo, |Capetown|
|000040d0| 0d 31 20 3d 20 53 74 6f | 63 6b 68 6f 6c 6d 2c 20 |.1 = Sto|ckholm, |
|000040e0| 42 65 72 6c 69 6e 2c 20 | 50 61 72 69 73 2c 20 52 |Berlin, |Paris, R|
|000040f0| 6f 6d 65 2c 20 4d 61 64 | 72 69 64 2c 20 4c 61 67 |ome, Mad|rid, Lag|
|00004100| 6f 73 20 0d 0d 00 ff f7 | 01 58 00 20 20 20 20 20 |os .....|.X.     |
|00004110| 54 68 65 20 76 65 72 79 | 20 66 69 72 73 74 20 74 |The very| first t|
|00004120| 69 6d 65 20 79 6f 75 20 | 6f 70 65 6e 20 74 68 69 |ime you |open thi|
|00004130| 73 20 73 74 61 63 6b 20 | 79 6f 75 20 68 61 76 65 |s stack |you have|
|00004140| 20 74 6f 20 70 75 74 20 | 69 6e 20 79 6f 75 72 20 | to put |in your |
|00004150| 4c 61 74 69 74 75 64 65 | 20 77 69 74 68 20 4e 20 |Latitude| with N |
|00004160| 6f 72 20 53 20 28 65 78 | 61 6d 70 6c 65 3a 20 33 |or S (ex|ample: 3|
|00004170| 37 2e 30 35 4e 29 20 61 | 6e 64 20 4c 6f 6e 67 69 |7.05N) a|nd Longi|
|00004180| 74 75 64 65 20 77 69 74 | 68 20 45 20 6f 72 20 57 |tude wit|h E or W|
|00004190| 20 28 65 78 61 6d 70 6c | 65 3a 20 31 32 32 2e 30 | (exampl|e: 122.0|
|000041a0| 35 57 29 2e 20 0d 0d 20 | 20 20 20 20 54 68 65 6e |5W). .. |    Then|
|000041b0| 20 63 6c 69 63 6b 20 6f | 6e 20 74 68 65 20 62 75 | click o|n the bu|
|000041c0| 74 74 6f 6e 20 22 57 68 | 61 74 20 69 73 20 6d 79 |tton "Wh|at is my|
|000041d0| 20 54 69 6d 65 20 5a 6f | 6e 65 3f 22 20 43 6c 69 | Time Zo|ne?" Cli|
|000041e0| 63 6b 20 6f 6e 20 74 68 | 65 20 6e 75 6d 62 65 72 |ck on th|e number|
|000041f0| 20 63 6c 6f 73 65 73 74 | 20 74 6f 20 79 6f 75 72 | closest| to your|
|00004200| 20 63 69 74 79 2e 20 46 | 72 6f 6d 20 6e 6f 77 20 | city. F|rom now |
|00004210| 6f 6e 20 79 6f 75 20 6f | 6e 6c 79 20 68 61 76 65 |on you o|nly have|
|00004220| 20 74 6f 3a 0d 0d 20 20 | 20 20 20 43 6c 69 63 6b | to:..  |   Click|
|00004230| 20 6f 6e 20 74 68 65 20 | 62 75 74 74 6f 6e 20 22 | on the |button "|
|00004240| 47 69 76 65 20 4d 65 20 | 53 75 6e 20 52 69 73 65 |Give Me |Sun Rise|
|00004250| 2e 2e 2e 2e 2e 2e 2e 2e | 2e 2e 2e 2e 22 20 20 20 |........|...."   |
|00004260| 20 0d 00 07 00 03 00 2d | 38 00 ff f2 04 5d 00 20 | ......-|8....]. |
|00004270| 20 20 20 20 49 20 77 61 | 6e 74 65 64 20 74 6f 20 |    I wa|nted to |
|00004280| 65 6e 6a 6f 79 20 74 68 | 65 20 53 75 6e 72 69 73 |enjoy th|e Sunris|
|00004290| 65 20 73 6f 20 49 20 74 | 68 6f 75 67 68 74 20 61 |e so I t|hought a|
|000042a0| 20 73 74 61 63 6b 20 77 | 6f 75 6c 64 20 62 65 20 | stack w|ould be |
|000042b0| 61 20 6e 65 61 74 20 77 | 61 79 20 74 6f 20 63 61 |a neat w|ay to ca|
|000042c0| 6c 63 75 6c 61 74 65 20 | 73 75 6e 72 69 73 65 2f |lculate |sunrise/|
|000042d0| 73 75 6e 73 65 74 20 74 | 69 6d 65 73 2e 20 49 20 |sunset t|imes. I |
|000042e0| 73 74 61 72 74 65 64 20 | 6c 6f 6f 6b 69 6e 67 20 |started |looking |
|000042f0| 66 6f 72 20 74 68 65 20 | 53 75 6e 72 69 73 65 20 |for the |Sunrise |
|00004300| 66 6f 72 6d 75 6c 61 2c | 20 62 75 74 20 63 6f 75 |formula,| but cou|
|00004310| 6c 64 20 6e 6f 74 20 66 | 69 6e 64 20 69 74 2e 20 |ld not f|ind it. |
|00004320| 53 6f 20 49 20 61 73 6b | 65 64 20 66 6f 72 20 68 |So I ask|ed for h|
|00004330| 65 6c 70 20 69 6e 20 74 | 68 65 20 41 73 74 72 6f |elp in t|he Astro|
|00004340| 6e 6f 6d 79 20 46 6f 72 | 75 6d 20 6f 66 20 43 6f |nomy For|um of Co|
|00004350| 6d 70 75 53 65 72 76 65 | 2e 20 53 6f 6d 65 6f 6e |mpuServe|. Someon|
|00004360| 65 20 77 61 73 20 6b 69 | 6e 64 20 65 6e 6f 75 67 |e was ki|nd enoug|
|00004370| 68 20 74 6f 20 73 75 67 | 67 65 73 74 20 61 20 62 |h to sug|gest a b|
|00004380| 6f 6f 6b 2e 20 49 20 66 | 6f 75 6e 64 20 74 68 65 |ook. I f|ound the|
|00004390| 20 73 75 6e 72 69 73 65 | 20 66 6f 72 6d 75 6c 61 | sunrise| formula|
|000043a0| 20 6f 6e 20 70 61 67 65 | 20 39 35 2c 20 62 75 74 | on page| 95, but|
|000043b0| 20 74 6f 20 75 73 65 20 | 69 74 20 49 20 68 61 64 | to use |it I had|
|000043c0| 20 74 6f 20 72 65 66 65 | 72 20 74 6f 20 74 68 65 | to refe|r to the|
|000043d0| 20 66 6f 72 6d 75 6c 61 | 20 6f 6e 20 74 68 65 20 | formula| on the |
|000043e0| 70 72 65 76 69 6f 75 73 | 20 70 61 67 65 2c 20 61 |previous| page, a|
|000043f0| 6e 64 20 74 6f 20 75 73 | 65 20 74 68 61 74 20 49 |nd to us|e that I|
|00004400| 20 6e 65 65 64 65 64 20 | 74 68 65 20 70 72 65 76 | needed |the prev|
|00004410| 69 6f 75 73 20 66 6f 72 | 6d 75 6c 61 2c 20 61 6e |ious for|mula, an|
|00004420| 64 20 73 6f 20 69 74 20 | 77 65 6e 74 20 75 6e 74 |d so it |went unt|
|00004430| 69 6c 20 49 20 6c 61 6e | 64 65 64 20 6f 6e 20 70 |il I lan|ded on p|
|00004440| 61 67 65 20 37 21 0d 0d | 20 20 20 20 20 49 20 77 |age 7!..|     I w|
|00004450| 61 6e 74 20 74 6f 20 74 | 68 61 6e 6b 20 44 72 2e |ant to t|hank Dr.|
|00004460| 20 44 61 76 65 20 4d 6f | 74 74 65 2c 20 61 20 4d | Dave Mo|tte, a M|
|00004470| 61 74 68 20 70 72 6f 66 | 65 73 73 6f 72 2c 20 77 |ath prof|essor, w|
|00004480| 69 74 68 6f 75 74 20 77 | 68 6f 73 65 20 68 65 6c |ithout w|hose hel|
|00004490| 70 20 49 20 77 6f 75 6c | 64 20 68 61 76 65 20 70 |p I woul|d have p|
|000044a0| 65 72 70 65 74 75 61 6c | 6c 79 20 6d 69 73 73 65 |erpetual|ly misse|
|000044b0| 64 20 74 68 65 20 73 75 | 6e 72 69 73 65 2e 20 54 |d the su|nrise. T|
|000044c0| 68 69 6e 67 73 20 6c 69 | 6b 65 20 73 6f 6c 76 69 |hings li|ke solvi|
|000044d0| 6e 67 20 4b 65 70 6c 65 | 72 27 73 20 65 71 75 61 |ng Keple|r's equa|
|000044e0| 74 69 6f 6e 20 62 79 20 | 4e 65 77 74 6f 6e 27 73 |tion by |Newton's|
|000044f0| 20 6d 65 74 68 6f 64 20 | 69 73 20 6c 69 67 68 74 | method |is light|
|00004500| 79 65 61 72 73 20 62 65 | 79 6f 6e 64 20 6d 79 20 |years be|yond my |
|00004510| 6d 61 74 68 65 6d 61 74 | 69 63 61 6c 20 61 62 69 |mathemat|ical abi|
|00004520| 6c 69 74 69 65 73 2e 0d | 0d 20 20 20 20 20 54 68 |lities..|.     Th|
|00004530| 61 6e 6b 73 20 6d 75 73 | 74 20 61 6c 73 6f 20 67 |anks mus|t also g|
|00004540| 6f 20 74 6f 20 44 61 6e | 6e 79 20 47 6f 6f 64 6d |o to Dan|ny Goodm|
|00004550| 61 6e 2e 20 49 20 62 6f | 72 72 6f 77 65 64 20 74 |an. I bo|rrowed t|
|00004560| 68 65 20 74 69 6d 65 20 | 7a 6f 6e 65 20 6e 75 6d |he time |zone num|
|00004570| 62 65 72 73 20 66 72 6f | 6d 20 68 69 73 20 62 6f |bers fro|m his bo|
|00004580| 6f 6b 3a 20 48 79 70 65 | 72 43 61 72 64 20 44 65 |ok: Hype|rCard De|
|00004590| 76 65 6c 6f 70 65 72 73 | 20 47 75 69 64 65 2e 0d |velopers| Guide..|
|000045a0| 0d 20 20 20 20 20 22 50 | 72 61 63 74 69 63 61 6c |.     "P|ractical|
|000045b0| 20 41 73 74 72 6f 6e 6f | 6d 79 20 57 69 74 68 20 | Astrono|my With |
|000045c0| 59 6f 75 72 20 43 61 6c | 63 75 6c 61 74 6f 72 22 |Your Cal|culator"|
|000045d0| 20 20 62 79 20 50 65 74 | 65 72 20 44 75 66 66 65 |  by Pet|er Duffe|
|000045e0| 74 74 2d 53 6d 69 74 68 | 20 28 54 68 69 72 64 20 |tt-Smith| (Third |
|000045f0| 45 64 69 74 69 6f 6e 29 | 20 20 69 73 20 74 68 65 |Edition)|  is the|
|00004600| 20 62 6f 6f 6b 20 74 68 | 61 74 20 77 61 73 20 75 | book th|at was u|
|00004610| 73 65 64 20 74 6f 20 64 | 65 72 69 76 65 20 74 68 |sed to d|erive th|
|00004620| 65 20 73 75 6e 72 69 73 | 65 2f 73 75 6e 73 65 74 |e sunris|e/sunset|
|00004630| 20 63 61 6c 63 75 6c 61 | 74 69 6f 6e 73 2e 20 20 | calcula|tions.  |
|00004640| 50 61 67 65 20 6e 75 6d | 62 65 72 73 20 61 6e 64 |Page num|bers and|
|00004650| 20 70 61 72 61 67 72 61 | 70 68 20 6e 75 6d 62 65 | paragra|ph numbe|
|00004660| 72 73 20 61 72 65 20 67 | 69 76 65 6e 20 66 6f 72 |rs are g|iven for|
|00004670| 20 65 61 63 68 20 66 75 | 6e 63 74 69 6f 6e 2e 0d | each fu|nction..|
|00004680| 0d 53 77 61 6d 69 20 47 | 75 72 75 70 72 65 6d 61 |.Swami G|uruprema|
|00004690| 6e 61 6e 64 61 0d 43 6f | 6d 70 75 53 65 72 76 65 |nanda.Co|mpuServe|
|000046a0| 3a 20 37 32 36 35 37 2c | 33 33 32 33 0d 41 6d 65 |: 72657,|3323.Ame|
|000046b0| 72 69 63 61 20 4f 6e 20 | 4c 69 6e 65 3a 20 53 77 |rica On |Line: Sw|
|000046c0| 61 6d 69 47 0d 20 20 20 | 20 20 20 00 00 00 00 00 |amiG.   |   .....|
|000046d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000046e0| 00 00 00 80 53 54 42 4c | 00 00 0c 1f 00 00 00 00 |....STBL|........|
|000046f0| 00 00 00 03 00 00 00 04 | 00 00 00 01 00 00 00 01 |........|........|
|00004700| 00 00 00 00 ff ff ff ff | ff ff 00 00 00 00 00 00 |........|........|
|00004710| 00 00 00 02 00 00 00 01 | 00 00 00 00 ff ff 80 00 |........|........|
|00004720| ff ff 00 00 00 00 00 00 | 00 00 00 03 00 00 00 01 |........|........|
|00004730| 00 00 00 00 ff ff 01 00 | ff ff 00 00 00 00 00 00 |........|........|
|00004740| 68 65 20 63 6c 69 63 6b | 00 00 00 00 00 00 00 00 |he click|........|
|00004750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004760| 00 00 00 40 46 54 42 4c | 00 00 0d c9 00 00 00 00 |...@FTBL|........|
|00004770| 00 00 00 02 00 00 00 00 | 00 03 47 65 6e 65 76 61 |........|..Geneva|
|00004780| 00 5f 00 00 43 68 69 63 | 61 67 6f 00 20 6e 00 08 |._..Chic|ago. n..|
|00004790| 2f 28 00 08 20 6e ff f4 | 2f 10 4e ba 04 86 2d 5f |/(.. n..|/.N...-_|
|000047a0| 00 00 01 40 50 52 4e 54 | 00 00 0e e2 00 00 00 00 |...@PRNT|........|
|000047b0| 00 0b 02 0a 00 20 00 30 | 00 20 00 20 00 08 00 08 |..... .0|. . ....|
|000047c0| 00 00 00 00 01 56 02 00 | 00 48 01 01 00 ba 00 00 |.....V..|.H......|
|000047d0| 00 00 00 02 60 48 4a ae | ff f8 67 12 42 67 2f 2e |....`HJ.|..g.Bg/.|
|000047e0| ff f8 2f 3c 50 52 46 54 | 4e ad 0e aa 1e 1f 2f 2d |../<PRFT|N...../-|
|000047f0| d1 9a 2f 2e ff fc 42 a7 | 70 24 2f 00 42 a7 4e ad |../...B.|p$/.B.N.|
|00004800| 21 12 20 6d d1 9a 28 50 | 53 6c 01 22 42 67 3f 2c |!. m..(P|Sl."Bg?,|
|00004810| 01 20 3f 2c 01 22 4e ad | 20 92 39 5f 01 20 48 6d |. ?,."N.| .9_. Hm|
|00004820| d1 ae 4e ad 20 ba 4c df | 10 80 4e 5e 4e 75 4e 56 |..N. .L.|..N^NuNV|
|00004830| ff ee 2f 0c 48 6e ff ee | 4e ad 07 fa 42 a7 2f 3c |../.Hn..|N...B./<|
|00004840| 00 00 01 24 4e ad 20 d2 | 2b 5f d1 9a 66 02 60 4a |...$N. .|+_..f.`J|
|00004850| 48 6e ff ee 20 6d d1 9a | 20 50 2f 08 70 0e 2f 00 |Hn.. m..| P/.p./.|
|00004860| 4e ad 26 1a 20 6d d1 9a | 28 50 41 ec 00 0e 43 ed |N.&. m..|(PA...C.|
|00004870| c6 1a 20 d9 20 d9 39 7c | 00 48 00 16 39 7c 01 01 |.. . .9||.H..9|..|
|00004880| 00 18 42 2c 00 1a 70 00 | 29 40 00 1c 42 2c 00 20 |..B,..p.|)@..B,. |
|00004890| 42 ac 01 20 1b 7c 00 01 | d1 7a 28 5f 4e 5e 4e 75 |B.. .|..|.z(_N^Nu|
|000048a0| 4e 56 ff f6 48 e7 03 18 | 42 2d d1 7a 4a ad aa 16 |NV..H...|B-.zJ...|
|000048b0| 66 08 4e ba ff 7a 60 00 | 00 92 42 a7 2f 2d aa 16 |f.N..z`.|..B./-..|
|000048c0| 2f 3c 50 52 4e 54 4e ad | 0f 12 26 5f 20 0b 66 12 |/<PRNTN.|..&_ .f.|
|000048d0| 70 00 00 00 00 00 68 61 | 72 20 31 20 6f 66 20 66 |p.....ha|r 1 of f|
|000048e0| 00 00 00 20 54 41 49 4c | ff ff ff ff 00 00 00 00 |... TAIL|........|
|000048f0| 0f 4e 75 20 8a 72 20 64 | 65 74 20 73 6c 75 74 c9 |.Nu .r d|et slut.|
|00004900| 00 00 01 00 00 00 01 ee | 00 00 00 ee 00 00 00 57 |........|.......W|
|00004910| 74 20 66 69 65 6c 64 20 | 22 44 61 74 65 22 20 69 |t field |"Date" i|
|00004920| 6e 74 6f 20 69 74 0d 63 | 6f 6e 76 65 72 74 20 69 |nto it.c|onvert i|
|00004930| 10 53 75 6e 52 69 73 65 | 20 26 20 53 75 6e 53 65 |.SunRise| & SunSe|
|00004940| 74 6e 02 00 00 00 53 54 | 41 4b 57 49 4c 44 00 00 |tn....ST|AKWILD..|
|00004950| 00 00 53 54 41 4b 57 49 | 4c 44 00 00 00 00 00 00 |..STAKWI|LD......|
|00004960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004970| 00 00 a7 ab c2 e7 00 00 | 48 80 00 00 02 45 6d 20 |........|H....Em |
|00004980| 33 20 6f 66 20 69 74 20 | 69 6e 74 6f 20 64 61 79 |3 of it |into day|
|00004990| 0d 70 75 74 20 66 69 65 | 6c 64 20 22 4c 61 74 69 |.put fie|ld "Lati|
|000049a0| 74 75 64 65 22 20 69 6e | 74 6f 20 4c 61 74 0d 70 |tude" in|to Lat.p|
|000049b0| 75 74 20 66 69 65 6c 64 | 20 22 4c 6f 6e 67 69 74 |ut field| "Longit|
|000049c0| 75 64 65 22 20 69 6e 74 | 6f 20 4c 6f 6e 67 69 0d |ude" int|o Longi.|
|000049d0| 70 75 74 20 73 75 6e 52 | 69 73 65 53 65 74 20 28 |put sunR|iseSet (|
|000049e0| 79 65 61 72 2c 20 6d 6f | 6e 74 68 2c 20 64 61 79 |year, mo|nth, day|
|000049f0| 2c 20 4c 61 74 2c 20 4c | 6f 6e 67 69 29 20 69 6e |, Lat, L|ongi) in|
|00004a00| 00 00 00 24 00 00 00 00 | 00 00 00 1c 41 20 53 68 |...$....|....A Sh|
|00004a10| 72 65 65 20 47 75 72 75 | 64 65 76 20 41 73 68 72 |ree Guru|dev Ashr|
|00004a20| 61 6d 20 53 74 61 63 6b | 00 00 00 3e 00 00 00 00 |am Stack|...>....|
|00004a30| 00 00 03 31 2e 30 33 76 | 65 72 73 69 6f 6e 20 31 |...1.03v|ersion 1|
|00004a40| 2e 30 2c 20 4e 6f 76 65 | 6d 62 65 72 20 31 39 39 |.0, Nove|mber 199|
|00004a50| 31 2c 0d 62 79 20 53 77 | 61 6d 69 20 47 75 72 75 |1,.by Sw|ami Guru|
|00004a60| 70 72 65 6d 61 6e 61 6e | 64 61 00 00 00 80 00 00 |premanan|da......|
|00004a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004a90| 80 00 00 00 00 00 00 00 | 00 00 00 40 82 00 00 00 |........|...@....|
|00004aa0| 00 00 00 13 c8 00 00 0c | 30 80 01 08 10 00 00 50 |........|0......P|
|00004ab0| 0a 00 00 10 08 00 00 10 | 08 00 00 50 0a 00 01 08 |........|...P....|
|00004ac0| 10 80 00 0c 30 00 00 04 | 20 00 00 22 64 00 00 03 |....0...| .."d...|
|00004ad0| 40 00 00 02 40 00 00 03 | c0 00 00 01 80 00 00 00 |@...@...|........|
|00004ae0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004af0| 01 00 00 00 01 ee 00 00 | 00 ee 00 00 00 57 00 43 |........|.....W.C|
|00004b00| 88 d0 05 e2 00 00 00 1c | 00 52 00 01 76 65 72 73 |........|.R..vers|
|00004b10| 00 01 00 12 49 43 4f 4e | 00 00 00 2a 00 01 ff ff |....ICON|...*....|
|00004b20| 00 00 00 28 00 00 00 00 | 00 02 ff ff 00 00 00 00 |...(....|........|
|00004b30| 00 00 00 00 47 2f 00 00 | 20 00 00 6a 00 43 8d 08 |....G/..| ..j.C..|
|00004b40| 04 49 6e 66 6f 00 00 00 | 00 00 00 00 00 00 00 00 |.Info...|........|
|00004b50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004b70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+