home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: ArcFS Archive
(archive/arcFS).
You can browse this item here: moon
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| ArcFS Archive (archive/arcFS)
| magic
| Supported |
| 100%
| file
| RISC OS archive (ArcFS format)
| default
| |
| 99%
| file
| data
| default
| |
| 100%
| TrID
| Acorn ArcFS Archive
| default
| |
| 100%
| gt2
| Kopftext: 'Archive'
| default (weak)
| |
| 100%
| detectItEasy
| Archive: ArcFS
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 72 63 68 69 76 65 00 | fc 00 00 00 5c 01 00 00 |Archive.|....\...|
|00000010| 28 00 00 00 64 00 00 00 | 00 00 00 00 00 00 00 00 |(...d...|........|
|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 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 82 21 4d 6f 6f 6e 00 00 | 00 00 00 00 ff ff ff ff |.!Moon..|........|
|00000070| 42 fd ff ff a8 c9 e5 34 | 00 00 00 00 ff ff ff ff |B......4|........|
|00000080| d8 00 00 80 82 21 52 75 | 6e 00 04 00 45 fb f3 ff |.....!Ru|n...E...|
|00000090| 18 00 00 00 41 eb ff ff | 7e 23 45 c5 03 00 8c 82 |....A...|~#E.....|
|000000a0| 18 00 00 00 24 00 00 00 | 82 21 53 70 72 69 74 65 |....$...|.!Sprite|
|000000b0| 73 00 f3 ff 78 03 00 00 | 41 f9 ff ff 6d 56 f0 cf |s...x...|A...mV..|
|000000c0| 03 00 c0 59 78 03 00 00 | 60 00 00 00 82 4d 6f 6f |...Yx...|`....Moo|
|000000d0| 6e 4c 6f 63 00 fb f3 ff | 6d 25 00 00 41 fb ff ff |nLoc....|m%..A...|
|000000e0| 14 bb a0 c5 03 00 2c 04 | 6d 25 00 00 fc 03 00 00 |......,.|m%......|
|000000f0| 82 52 65 61 64 4d 65 00 | 45 fb f3 ff 6c 04 00 00 |.ReadMe.|E...l...|
|00000100| 41 ff ff ff a8 b9 ad d5 | 03 00 2d eb 6c 04 00 00 |A.......|..-.l...|
|00000110| 8d 29 00 00 00 46 2b 00 | c3 00 04 00 45 fb f3 ff |.)...F+.|....E...|
|00000120| 29 b0 7c 8d 70 03 00 00 | 03 00 00 00 ff ff ff ff |).|.p...|........|
|00000130| 03 00 a7 00 a1 49 d8 fd | 00 00 00 00 00 00 00 00 |.....I..|........|
|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 | f8 01 00 00 46 69 6c 65 |........|....File|
|00000160| 44 61 74 61 82 21 52 75 | 6e 00 04 00 45 fb f3 ff |Data.!Ru|n...E...|
|00000170| 18 00 00 00 41 eb ff ff | 7e 23 45 c5 03 00 8c 82 |....A...|~#E.....|
|00000180| 2a 52 75 6e 20 3c 4f 62 | 65 79 24 44 69 72 3e 2e |*Run <Ob|ey$Dir>.|
|00000190| 4d 6f 6f 6e 4c 6f 63 0a | 46 69 6c 65 44 61 74 61 |MoonLoc.|FileData|
|000001a0| 82 21 53 70 72 69 74 65 | 73 00 f3 ff 78 03 00 00 |.!Sprite|s...x...|
|000001b0| 41 f9 ff ff 6d 56 f0 cf | 03 00 c0 59 02 00 00 00 |A...mV..|...Y....|
|000001c0| 10 00 00 00 7c 03 00 00 | d4 02 00 00 21 6d 6f 6f |....|...|....!moo|
|000001d0| 6e 00 00 00 00 00 00 00 | 04 00 00 00 10 00 00 00 |n.......|........|
|000001e0| 00 00 00 00 07 00 00 00 | 2c 00 00 00 80 01 00 00 |........|,.......|
|000001f0| 0c 00 00 00 77 77 77 77 | 77 77 77 77 77 77 77 77 |....wwww|wwwwwwww|
|00000200| 77 77 77 77 77 00 00 00 | 77 00 77 77 77 77 99 99 |wwwww...|w.wwww..|
|00000210| 77 77 77 77 77 07 77 77 | 77 00 00 00 77 77 77 77 |wwwww.ww|w...wwww|
|00000220| 99 99 99 79 77 77 77 77 | 77 77 77 77 77 00 00 00 |...ywwww|wwwww...|
|00000230| 77 77 77 99 99 99 99 77 | 77 77 77 77 77 77 77 77 |www....w|wwwwwwww|
|00000240| 77 00 00 00 77 77 97 99 | 99 99 99 77 77 77 77 77 |w...ww..|...wwwww|
|00000250| 77 77 77 77 77 00 00 00 | 77 77 99 99 99 99 99 77 |wwwww...|ww.....w|
|00000260| 77 77 77 00 77 77 77 77 | 77 00 00 00 77 97 99 99 |www.wwww|w...w...|
|00000270| 99 99 99 77 77 77 77 77 | 77 77 77 77 77 00 00 00 |...wwwww|wwwww...|
|00000280| 77 97 99 99 99 99 99 77 | 77 77 77 77 77 77 77 77 |w......w|wwwwwwww|
|00000290| 77 00 00 00 77 99 99 99 | 99 99 99 79 77 77 77 77 |w...w...|...ywwww|
|000002a0| 77 77 77 77 77 00 00 00 | 77 97 99 99 99 99 99 99 |wwwww...|w.......|
|000002b0| 77 77 77 77 77 77 77 77 | 77 00 00 00 77 97 99 99 |wwwwwwww|w...w...|
|000002c0| 99 99 99 99 79 77 77 77 | 77 77 07 70 77 00 00 00 |....ywww|ww.pw...|
|000002d0| 77 77 99 99 99 99 99 99 | 99 77 77 77 77 77 77 77 |ww......|.wwwwwww|
|000002e0| 77 00 00 00 77 77 97 99 | 99 99 99 99 99 99 79 77 |w...ww..|......yw|
|000002f0| 77 77 77 77 77 00 00 00 | 07 77 77 99 99 99 99 99 |wwwww...|.ww.....|
|00000300| 99 99 99 99 77 77 77 77 | 77 00 00 00 77 77 77 77 |....wwww|w...wwww|
|00000310| 99 99 99 99 99 99 99 99 | 99 79 77 77 77 00 00 00 |........|.ywww...|
|00000320| 77 77 77 77 77 77 99 99 | 99 99 99 79 77 77 77 07 |wwwwww..|...ywww.|
|00000330| 77 00 00 00 77 77 07 70 | 77 77 77 77 77 77 77 77 |w...ww.p|wwwwwwww|
|00000340| 77 77 77 77 77 00 00 00 | ff ff ff ff ff ff ff ff |wwwww...|........|
|00000350| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000360| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000370| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000380| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000390| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000003a0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000003b0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000003c0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000003d0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000003e0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|000003f0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000400| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000410| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000420| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000430| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000440| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000450| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000460| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000470| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000480| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000490| ff ff ff ff ff ff ff ff | ff ff ff ff 98 00 00 00 |........|........|
|000004a0| 73 6d 21 6d 6f 6f 6e 00 | 00 00 00 00 02 00 00 00 |sm!moon.|........|
|000004b0| 08 00 00 00 00 00 00 00 | 03 00 00 00 2c 00 00 00 |........|....,...|
|000004c0| 2c 00 00 00 0c 00 00 00 | 60 96 99 77 77 77 77 77 |,.......|`..wwwww|
|000004d0| 07 00 00 00 66 99 99 77 | 77 77 70 77 07 00 00 00 |....f..w|wwpw....|
|000004e0| 96 99 99 77 77 77 77 77 | 07 00 00 00 96 99 99 79 |...wwwww|.......y|
|000004f0| 77 77 77 77 07 00 00 00 | 96 99 99 99 77 77 77 77 |wwww....|....wwww|
|00000500| 07 00 00 00 66 99 99 99 | 99 77 77 00 07 00 00 00 |....f...|.ww.....|
|00000510| 66 96 99 99 99 99 79 77 | 07 00 00 00 66 66 96 99 |f.....yw|....ff..|
|00000520| 99 99 99 99 09 00 00 00 | 06 66 66 66 96 99 99 66 |........|.fff...f|
|00000530| 06 00 00 00 46 69 6c 65 | 44 61 74 61 82 4d 6f 6f |....File|Data.Moo|
|00000540| 6e 4c 6f 63 00 fb f3 ff | 6d 25 00 00 41 fb ff ff |nLoc....|m%..A...|
|00000550| 14 bb a0 c5 03 00 2c 04 | 0d 00 00 0d f4 3e 4d 6f |......,.|.....>Mo|
|00000560| 6f 6e 4c 6f 63 0d 00 0a | 05 3a 0d 00 14 24 f4 22 |onLoc...|.:...$."|
|00000570| 81 20 20 20 20 20 55 70 | 64 61 74 65 2d 36 20 30 |. Up|date-6 0|
|00000580| 38 2e 30 37 2e 38 39 20 | 20 20 20 20 87 22 0d 00 |8.07.89 | ."..|
|00000590| 1e 24 f4 22 83 20 20 20 | 4d 4f 4f 4e 20 4c 4f 43 |.$.". |MOON LOC|
|000005a0| 41 54 49 4f 4e 20 50 52 | 4f 47 52 41 4d 20 20 20 |ATION PR|OGRAM |
|000005b0| 87 22 0d 00 28 24 f4 22 | 82 20 20 62 79 20 52 69 |."..($."|. by Ri|
|000005c0| 63 68 61 72 64 20 53 74 | 65 72 72 79 20 20 47 34 |chard St|erry G4|
|000005d0| 42 4c 54 20 87 22 0d 00 | 2d 24 f4 22 85 20 20 20 |BLT ."..|-$.". |
|000005e0| 20 20 20 20 20 20 20 31 | 30 2e 30 38 2e 38 34 20 | 1|0.08.84 |
|000005f0| 20 20 20 20 20 20 20 20 | 87 22 0d 00 32 24 f4 22 | |."..2$."|
|00000600| 81 20 20 20 20 20 28 54 | 75 62 65 20 43 6f 6d 70 |. (T|ube Comp|
|00000610| 61 74 69 62 6c 65 29 20 | 20 20 20 20 87 22 0d 00 |atible) | ."..|
|00000620| 37 24 f4 22 86 20 42 61 | 73 65 64 20 6f 6e 20 61 |7$.". Ba|sed on a|
|00000630| 20 70 72 6f 67 72 61 6d | 20 77 72 69 74 74 65 6e | program| written|
|00000640| 87 22 0d 00 3c 24 f4 22 | 86 20 66 6f 72 20 74 68 |."..<$."|. for th|
|00000650| 65 20 41 70 70 6c 65 2d | 49 49 20 4d 69 63 72 6f |e Apple-|II Micro|
|00000660| 20 62 79 20 87 22 0d 00 | 41 24 f4 22 86 20 20 43 | by ."..|A$.". C|
|00000670| 68 61 72 6c 65 73 20 53 | 75 63 6b 6c 69 6e 67 20 |harles S|uckling |
|00000680| 20 47 33 57 44 47 20 20 | 87 22 0d 00 46 24 f4 22 | G3WDG |."..F$."|
|00000690| 83 20 20 20 28 43 29 20 | 42 4c 54 20 53 6f 66 74 |. (C) |BLT Soft|
|000006a0| 77 61 72 65 20 31 39 38 | 34 20 20 20 87 22 0d 00 |ware 198|4 ."..|
|000006b0| 4b 05 3a 0d 00 50 05 3a | 0d 00 5a 05 3a 0d 00 64 |K.:..P.:|..Z.:..d|
|000006c0| 20 f4 22 83 4d 41 49 4e | 20 53 45 43 54 49 4f 4e | .".MAIN| SECTION|
|000006d0| 20 4f 46 20 50 52 4f 47 | 52 41 4d 87 22 0d 00 69 | OF PROG|RAM."..i|
|000006e0| 37 62 65 65 62 25 3d a6 | 28 2d 32 35 36 29 3a e7 |7beeb%=.|(-256):.|
|000006f0| 62 65 65 62 25 3c 31 36 | 30 84 62 65 65 62 25 3d |beeb%<16|0.beeb%=|
|00000700| 32 35 31 8c 62 65 65 62 | 25 3d b9 20 8b 62 65 65 |251.beeb|%=. .bee|
|00000710| 62 25 3d a3 0d 00 6e 12 | eb 37 3a f2 69 6e 69 74 |b%=...n.|.7:.init|
|00000720| 69 61 6c 69 73 65 0d 00 | 78 0b ee 85 e5 8d 54 6e |ialise..|x.....Tn|
|00000730| 67 0d 00 82 11 f2 69 6e | 73 74 72 75 63 74 69 6f |g.....in|structio|
|00000740| 6e 73 0d 00 8c 0f f5 3a | f5 fd a6 28 30 29 3d 2d |ns.....:|...(0)=-|
|00000750| 31 0d 00 96 0d 6d 6f 6f | 6e 75 70 25 3d a3 0d 00 |1....moo|nup%=...|
|00000760| a0 0b ee 85 e5 8d 54 5a | 67 0d 00 aa 0d eb 37 3a |......TZ|g.....7:|
|00000770| f2 65 6e 74 72 79 0d 00 | b4 17 f2 73 65 74 75 70 |.entry..|...setup|
|00000780| 3a f2 6a 75 6c 69 61 6e | 5f 64 61 74 65 0d 00 be |:.julian|_date...|
|00000790| 15 f2 6d 6f 6f 6e 61 67 | 65 3a f2 68 65 61 64 69 |..moonag|e:.headi|
|000007a0| 6e 67 0d 00 c8 05 f5 0d | 00 d2 11 f2 6c 75 6e 61 |ng......|....luna|
|000007b0| 72 6c 6f 6e 67 6c 61 74 | 0d 00 dc 10 f2 64 65 63 |rlonglat|.....dec|
|000007c0| 5f 72 61 3a f2 67 68 61 | 0d 00 e6 0e f2 65 6c 65 |_ra:.gha|.....ele|
|000007d0| 76 61 74 69 6f 6e 0d 00 | f0 4a f2 70 72 69 6e 74 |vation..|.J.print|
|000007e0| 74 69 6d 65 3a e7 65 6c | 65 76 3e 3d 30 80 65 6c |time:.el|ev>=0.el|
|000007f0| 65 76 3c 3d b2 28 31 30 | 30 29 8c 6d 6f 6f 6e 75 |ev<=.(10|0).moonu|
|00000800| 70 25 3d b9 3a f2 61 7a | 69 6d 75 74 68 3a f2 64 |p%=.:.az|imuth:.d|
|00000810| 6f 70 70 6c 65 72 3a f2 | 70 72 69 6e 74 6f 75 74 |oppler:.|printout|
|00000820| 0d 00 fa 1a 74 69 6d 65 | 6e 6f 77 25 3d 74 69 6d |....time|now%=tim|
|00000830| 65 6e 6f 77 25 2b 69 6e | 63 25 0d 01 04 16 fd 74 |enow%+in|c%.....t|
|00000840| 69 6d 65 6e 6f 77 25 3e | 74 69 6d 65 66 69 6e 25 |imenow%>|timefin%|
|00000850| 0d 01 0e 1b ef 31 33 3a | e7 6d 6f 6f 6e 75 70 25 |.....13:|.moonup%|
|00000860| 3d a3 20 8c f2 6e 6f 6d | 6f 6f 6e 0d 01 18 11 f2 |=. ..nom|oon.....|
|00000870| 6c 69 6e 65 3a f2 61 6e | 79 6b 65 79 0d 01 22 0d |line:.an|ykey..".|
|00000880| f5 fd a6 28 30 29 3d 2d | 31 0d 01 2c 06 fd a3 0d |...(0)=-|1..,....|
|00000890| 01 36 05 3a 0d 01 40 05 | 3a 0d 01 4a 05 3a 0d 01 |.6.:..@.|:..J.:..|
|000008a0| 54 05 3a 0d 03 e8 17 dd | a4 66 6f 72 6d 61 74 28 |T.:.....|.format(|
|000008b0| 6e 75 6d 25 2c 6c 65 6e | 25 29 0d 03 f2 22 f4 22 |num%,len|%)..."."|
|000008c0| 83 46 4f 52 4d 41 54 20 | 57 49 54 48 20 4c 45 41 |.FORMAT |WITH LEA|
|000008d0| 44 49 4e 47 20 5a 45 52 | 4f 53 87 22 0d 03 fc 09 |DING ZER|OS."....|
|000008e0| ea 6e 75 6d 24 0d 04 06 | 10 6e 75 6d 24 3d c3 28 |.num$...|.num$=.(|
|000008f0| 6e 75 6d 25 29 0d 04 10 | 1c 3d c4 6c 65 6e 25 2d |num%)...|.=.len%-|
|00000900| a9 28 6e 75 6d 24 29 2c | 22 30 22 29 2b 6e 75 6d |.(num$),|"0")+num|
|00000910| 24 0d 04 1a 05 3a 0d 04 | 24 05 3a 0d 04 2e 0d dd |$....:..|$.:.....|
|00000920| f2 61 7a 69 6d 75 74 68 | 0d 04 38 1f f4 22 83 43 |.azimuth|..8..".C|
|00000930| 41 4c 43 55 4c 41 54 49 | 4f 4e 20 4f 46 20 41 5a |ALCULATI|ON OF AZ|
|00000940| 49 4d 55 54 48 87 22 0d | 04 42 0a ea 61 31 2c 61 |IMUTH.".|.B..a1,a|
|00000950| 32 0d 04 4c 1c 61 32 3d | b5 28 64 65 63 6c 29 2f |2..L.a2=|.(decl)/|
|00000960| 28 9b 28 6c 61 74 29 2a | 9b 28 66 29 29 0d 04 56 |(.(lat)*|.(f))..V|
|00000970| 25 61 32 3d 61 32 2d 28 | b5 28 6c 61 74 29 2f 9b |%a2=a2-(|.(lat)/.|
|00000980| 28 6c 61 74 29 29 2a 28 | b5 28 66 29 2f 9b 28 66 |(lat))*(|.(f)/.(f|
|00000990| 29 29 0d 04 60 2b 61 31 | 3d b5 28 6c 61 74 29 2a |))..`+a1|=.(lat)*|
|000009a0| b5 28 64 65 63 6c 29 2b | 9b 28 6c 61 74 29 2a 9b |.(decl)+|.(lat)*.|
|000009b0| 28 64 65 63 6c 29 2a 9b | 28 6c 68 61 29 0d 04 6a |(decl)*.|(lha)..j|
|000009c0| 22 61 31 3d 28 b5 28 6c | 68 61 29 2a 9b 28 64 65 |"a1=(.(l|ha)*.(de|
|000009d0| 63 6c 29 29 2f b6 28 31 | 2d 61 31 2a 61 31 29 0d |cl))/.(1|-a1*a1).|
|000009e0| 04 74 27 61 7a 69 6d 3d | 99 28 61 31 2f 61 32 29 |.t'azim=|.(a1/a2)|
|000009f0| 3a 61 7a 69 6d 3d a4 66 | 69 64 64 6c 65 28 61 7a |:azim=.f|iddle(az|
|00000a00| 69 6d 2c 61 32 29 0d 04 | 7e 05 e1 0d 04 88 05 3a |im,a2)..|~......:|
|00000a10| 0d 04 92 05 3a 0d 04 9c | 0b dd f2 63 6c 6f 63 6b |....:...|...clock|
|00000a20| 0d 04 a6 21 f4 22 83 43 | 4f 4e 56 45 52 54 20 54 |...!.".C|ONVERT T|
|00000a30| 4f 20 32 34 20 48 4f 55 | 52 20 43 4c 4f 43 4b 87 |O 24 HOU|R CLOCK.|
|00000a40| 22 0d 04 b0 0e ea 68 72 | 73 25 2c 6d 69 6e 25 0d |".....hr|s%,min%.|
|00000a50| 04 ba 39 68 72 73 25 3d | 74 69 6d 65 6e 6f 77 25 |..9hrs%=|timenow%|
|00000a60| 81 36 30 3a 6d 69 6e 25 | 3d 74 69 6d 65 6e 6f 77 |.60:min%|=timenow|
|00000a70| 25 83 36 30 3a 74 69 6d | 65 25 3d 31 30 30 2a 68 |%.60:tim|e%=100*h|
|00000a80| 72 73 25 2b 6d 69 6e 25 | 0d 04 c4 05 e1 0d 04 ce |rs%+min%|........|
|00000a90| 05 3a 0d 04 d8 05 3a 0d | 04 e2 0e dd f2 70 72 69 |.:....:.|.....pri|
|00000aa0| 6e 74 6f 75 74 0d 04 ec | 1c f4 22 83 50 52 49 4e |ntout...|..".PRIN|
|00000ab0| 54 4f 55 54 20 4f 46 20 | 52 45 53 55 4c 54 53 87 |TOUT OF |RESULTS.|
|00000ac0| 22 0d 04 f6 48 40 25 3d | 26 32 30 31 30 35 3a f1 |"...H@%=|&20105:.|
|00000ad0| 22 86 22 9d 28 61 7a 69 | 6d 29 22 20 22 9d 28 65 |".".(azi|m)" ".(e|
|00000ae0| 6c 65 76 29 22 82 22 9d | 28 67 68 61 29 22 20 22 |lev)".".|(gha)" "|
|00000af0| 9d 28 64 65 63 6c 29 3b | 3a 40 25 3d 26 39 30 34 |.(decl);|:@%=&904|
|00000b00| 3a f1 22 81 22 64 6f 70 | 25 0d 05 00 05 e1 0d 05 |:."."dop|%.......|
|00000b10| 0a 05 3a 0d 05 14 05 3a | 0d 05 1e 0f dd f2 65 6c |..:....:|......el|
|00000b20| 65 76 61 74 69 6f 6e 0d | 05 28 24 f4 22 83 43 41 |evation.|.($.".CA|
|00000b30| 4c 43 55 4c 41 54 49 4f | 4e 20 4f 46 20 4c 48 41 |LCULATIO|N OF LHA|
|00000b40| 20 46 52 4f 4d 20 47 48 | 41 87 22 0d 05 32 0a ea | FROM GH|A."..2..|
|00000b50| 65 32 2c 65 33 0d 05 3c | 10 6c 68 61 3d 6c 6f 6e |e2,e3..<|.lha=lon|
|00000b60| 67 2d 67 68 61 0d 05 46 | 20 f4 22 83 43 41 4c 43 |g-gha..F| .".CALC|
|00000b70| 55 4c 41 54 49 4f 4e 20 | 4f 46 20 45 4c 45 56 41 |ULATION |OF ELEVA|
|00000b80| 54 49 4f 4e 22 0d 05 50 | 2b 65 33 3d 9b 28 6c 61 |TION"..P|+e3=.(la|
|00000b90| 74 29 2a 9b 28 6c 68 61 | 29 2a 9b 28 64 65 63 6c |t)*.(lha|)*.(decl|
|00000ba0| 29 2b b5 28 64 65 63 6c | 29 2a b5 28 6c 61 74 29 |)+.(decl|)*.(lat)|
|00000bb0| 0d 05 5a 13 65 32 3d b6 | 28 31 2d 28 65 33 2a 65 |..Z.e2=.|(1-(e3*e|
|00000bc0| 33 29 29 0d 05 64 31 f4 | 22 83 50 41 52 41 4c 4c |3))..d1.|".PARALL|
|00000bd0| 41 58 20 43 4f 52 52 45 | 43 54 49 4f 4e 20 46 4f |AX CORRE|CTION FO|
|00000be0| 52 20 20 20 20 20 20 20 | 83 45 4c 45 56 41 54 49 |R |.ELEVATI|
|00000bf0| 4f 4e 87 22 0d 05 6e 22 | 65 6c 65 76 3d 99 28 28 |ON."..n"|elev=.((|
|00000c00| 65 33 2f 65 32 29 2d 28 | 31 2f 28 36 31 2e 33 33 |e3/e2)-(|1/(61.33|
|00000c10| 2a 65 32 29 29 29 0d 05 | 78 0e 66 3d 99 28 65 33 |*e2)))..|x.f=.(e3|
|00000c20| 2f 65 32 29 0d 05 82 05 | e1 0d 05 8c 05 3a 0d 05 |/e2)....|.....:..|
|00000c30| 96 05 3a 0d 05 a0 11 dd | f2 6a 75 6c 69 61 6e 5f |..:.....|.julian_|
|00000c40| 64 61 74 65 0d 05 aa 23 | f4 22 83 43 41 4c 43 55 |date...#|.".CALCU|
|00000c50| 4c 41 54 49 4f 4e 20 4f | 46 20 4a 55 4c 49 41 4e |LATION O|F JULIAN|
|00000c60| 20 44 41 54 45 87 22 0d | 05 b4 12 ea 6a 64 61 74 | DATE.".|....jdat|
|00000c70| 65 31 2c 6a 64 61 74 65 | 32 0d 05 be 13 e7 6d 6f |e1,jdate|2.....mo|
|00000c80| 6e 74 68 25 3e 3d 33 8c | 8d 64 70 45 0d 05 c8 2d |nth%>=3.|.dpE...-|
|00000c90| e7 28 79 65 61 72 25 2d | 31 38 35 33 29 81 34 3c |.(year%-|1853).4<|
|00000ca0| 31 31 8c 63 6f 72 72 65 | 63 74 31 3d 30 8b 63 6f |11.corre|ct1=0.co|
|00000cb0| 72 72 65 63 74 31 3d 2d | 31 0d 05 d2 3c 6a 64 61 |rrect1=-|1...<jda|
|00000cc0| 74 65 31 3d 33 36 35 2a | 28 79 65 61 72 25 2d 31 |te1=365*|(year%-1|
|00000cd0| 38 35 33 29 2b 64 61 79 | 25 2b 33 30 2a 28 6d 6f |853)+day|%+30*(mo|
|00000ce0| 6e 74 68 25 2b 39 29 2b | 28 6d 6f 6e 74 68 25 2b |nth%+9)+|(month%+|
|00000cf0| 31 30 29 81 32 0d 05 dc | 24 6a 64 61 74 65 32 3d |10).2...|$jdate2=|
|00000d00| 28 79 65 61 72 25 2d 31 | 38 35 33 29 81 34 2b 31 |(year%-1|853).4+1|
|00000d10| 2b 63 6f 72 72 65 63 74 | 31 0d 05 e6 09 e5 8d 54 |+correct|1......T|
|00000d20| 58 46 0d 05 f0 2d e7 28 | 79 65 61 72 25 2d 31 38 |XF...-.(|year%-18|
|00000d30| 35 32 29 81 34 3c 31 31 | 8c 63 6f 72 72 65 63 74 |52).4<11|.correct|
|00000d40| 31 3d 30 8b 63 6f 72 72 | 65 63 74 31 3d 2d 31 0d |1=0.corr|ect1=-1.|
|00000d50| 05 fa 2d e7 6d 6f 6e 74 | 68 25 3d 39 84 6d 6f 6e |..-.mont|h%=9.mon|
|00000d60| 74 68 25 3d 31 31 8c 63 | 6f 72 72 65 63 74 32 3d |th%=11.c|orrect2=|
|00000d70| 31 8b 63 6f 72 72 65 63 | 74 32 3d 30 0d 06 04 3b |1.correc|t2=0...;|
|00000d80| 6a 64 61 74 65 31 3d 33 | 36 35 2a 28 79 65 61 72 |jdate1=3|65*(year|
|00000d90| 25 2d 31 38 35 32 29 2b | 64 61 79 25 2b 33 30 2a |%-1852)+|day%+30*|
|00000da0| 28 6d 6f 6e 74 68 25 2d | 33 29 2b 28 6d 6f 6e 74 |(month%-|3)+(mont|
|00000db0| 68 25 2d 32 29 81 32 0d | 06 0e 2b 6a 64 61 74 65 |h%-2).2.|..+jdate|
|00000dc0| 32 3d 28 79 65 61 72 25 | 2d 31 38 35 32 29 81 34 |2=(year%|-1852).4|
|00000dd0| 2b 63 6f 72 72 65 63 74 | 31 2b 63 6f 72 72 65 63 |+correct|1+correc|
|00000de0| 74 32 0d 06 18 17 6a 64 | 61 74 65 3d 6a 64 61 74 |t2....jd|ate=jdat|
|00000df0| 65 31 2b 6a 64 61 74 65 | 32 0d 06 22 05 e1 0d 06 |e1+jdate|2.."....|
|00000e00| 2c 05 3a 0d 06 36 05 3a | 0d 06 40 0c dd f2 64 65 |,.:..6.:|..@...de|
|00000e10| 63 5f 72 61 0d 06 4a 22 | f4 22 83 43 41 4c 43 55 |c_ra..J"|.".CALCU|
|00000e20| 4c 41 54 49 4f 4e 20 4f | 46 20 44 45 43 20 41 4e |LATION O|F DEC AN|
|00000e30| 44 20 52 41 87 22 0d 06 | 54 0d ea 61 31 2c 61 32 |D RA."..|T..a1,a2|
|00000e40| 2c 6b 39 0d 06 5e 2a 64 | 65 63 6c 3d 9b 28 6b 37 |,k9..^*d|ecl=.(k7|
|00000e50| 29 2a b5 28 6b 38 29 2a | 2e 33 39 37 38 32 31 2b |)*.(k8)*|.397821+|
|00000e60| b5 28 6b 37 29 2a 2e 39 | 31 37 34 33 36 0d 06 68 |.(k7)*.9|17436..h|
|00000e70| 21 64 65 63 6c 3d 99 28 | 64 65 63 6c 2f 28 b6 28 |!decl=.(|decl/(.(|
|00000e80| 31 2d 64 65 63 6c 2a 64 | 65 63 6c 29 29 29 0d 06 |1-decl*d|ecl)))..|
|00000e90| 72 1c 61 32 3d 28 9b 28 | 6b 37 29 2a 9b 28 6b 38 |r.a2=(.(|k7)*.(k8|
|00000ea0| 29 29 2f 9b 28 64 65 63 | 6c 29 0d 06 7c 32 61 31 |))/.(dec|l)..|2a1|
|00000eb0| 3d 28 9b 28 6b 37 29 2a | b5 28 6b 38 29 2a 2e 39 |=(.(k7)*|.(k8)*.9|
|00000ec0| 31 37 34 33 36 2d b5 28 | 6b 37 29 2a 2e 33 39 37 |17436-.(|k7)*.397|
|00000ed0| 38 32 31 29 2f 9b 28 64 | 65 63 6c 29 0d 06 86 21 |821)/.(d|ecl)...!|
|00000ee0| 72 61 3d 99 28 61 31 2f | 61 32 29 3a 72 61 3d a4 |ra=.(a1/|a2):ra=.|
|00000ef0| 66 69 64 64 6c 65 28 72 | 61 2c 61 32 29 0d 06 90 |fiddle(r|a,a2)...|
|00000f00| 14 6b 39 3d 2e 30 36 35 | 37 30 39 38 32 32 2a 74 |.k9=.065|709822*t|
|00000f10| 31 0d 06 9a 3c 73 69 64 | 74 69 6d 65 3d 28 74 69 |1...<sid|time=(ti|
|00000f20| 6d 65 6e 6f 77 25 2f 36 | 30 29 2a 31 2e 30 30 32 |menow%/6|0)*1.002|
|00000f30| 37 33 38 2b 36 2e 36 34 | 36 30 35 35 2b 28 6b 39 |738+6.64|6055+(k9|
|00000f40| 2d a8 28 6b 39 2f 32 34 | 29 2a 32 34 29 0d 06 a4 |-.(k9/24|)*24)...|
|00000f50| 26 73 69 64 74 69 6d 65 | 3d 28 73 69 64 74 69 6d |&sidtime|=(sidtim|
|00000f60| 65 2d a8 28 73 69 64 74 | 69 6d 65 2f 32 34 29 2a |e-.(sidt|ime/24)*|
|00000f70| 32 34 29 0d 06 ae 05 e1 | 0d 06 b8 05 3a 0d 06 c2 |24).....|....:...|
|00000f80| 05 3a 0d 06 cc 09 dd f2 | 67 68 61 0d 06 d6 35 f4 |.:......|gha...5.|
|00000f90| 22 83 43 41 4c 43 55 4c | 41 54 49 4f 4e 20 4f 46 |".CALCUL|ATION OF|
|00000fa0| 20 47 48 41 20 46 52 4f | 4d 20 4c 4f 43 41 4c 20 | GHA FRO|M LOCAL |
|00000fb0| 83 53 49 44 45 52 49 41 | 4c 20 54 49 4d 45 87 22 |.SIDERIA|L TIME."|
|00000fc0| 0d 06 e0 1b 67 68 61 3d | 28 73 69 64 74 69 6d 65 |....gha=|(sidtime|
|00000fd0| 2f 32 34 29 2a af 2a 32 | 2d 72 61 0d 06 ea 12 e7 |/24)*.*2|-ra.....|
|00000fe0| 67 68 61 3c af 2a 32 8c | e5 8d 54 48 47 0d 06 f4 |gha<.*2.|..THG...|
|00000ff0| 0f 67 68 61 3d 67 68 61 | 2d af 2a 32 0d 06 fe 09 |.gha=gha|-.*2....|
|00001000| e5 8d 54 66 47 0d 07 08 | 11 e7 67 68 61 3c 30 8c |..TfG...|..gha<0.|
|00001010| 20 e5 8d 54 5c 47 0d 07 | 12 09 e5 8d 54 66 47 0d | ..T\G..|....TfG.|
|00001020| 07 1c 0f 67 68 61 3d 67 | 68 61 2b af 2a 32 0d 07 |...gha=g|ha+.*2..|
|00001030| 26 05 e1 0d 07 30 05 3a | 0d 07 3a 05 3a 0d 07 44 |&....0.:|..:.:..D|
|00001040| 0b dd f2 73 65 74 75 70 | 0d 07 4e 1f f4 22 83 53 |...setup|..N..".S|
|00001050| 45 54 20 49 4e 49 54 49 | 41 4c 20 43 4f 4e 44 49 |ET INITI|AL CONDI|
|00001060| 54 49 4f 4e 53 87 22 0d | 07 58 3a 6c 61 74 3d b2 |TIONS.".|.X:lat=.|
|00001070| 28 64 65 67 6c 61 74 25 | 2b 6d 69 6e 6c 61 74 25 |(deglat%|+minlat%|
|00001080| 2f 36 30 29 3a 6c 6f 6e | 67 3d b2 28 64 65 67 6c |/60):lon|g=.(degl|
|00001090| 6f 6e 67 25 2b 6d 69 6e | 6c 6f 6e 67 25 2f 36 30 |ong%+min|long%/60|
|000010a0| 29 0d 07 62 23 74 69 6d | 65 66 69 6e 25 3d 28 66 |)..b#tim|efin%=(f|
|000010b0| 69 6e 25 81 31 30 30 29 | 2a 36 30 2b 66 69 6e 25 |in%.100)|*60+fin%|
|000010c0| 83 31 30 30 0d 07 6c 15 | e7 6e 73 24 3d 22 53 22 |.100..l.|.ns$="S"|
|000010d0| 8c 6c 61 74 3d 2d 6c 61 | 74 0d 07 76 17 e7 65 77 |.lat=-la|t..v..ew|
|000010e0| 24 3d 22 45 22 8c 6c 6f | 6e 67 3d 2d 6c 6f 6e 67 |$="E".lo|ng=-long|
|000010f0| 0d 07 80 29 74 69 6d 65 | 6e 6f 77 25 3d 28 73 74 |...)time|now%=(st|
|00001100| 61 72 74 25 81 31 30 30 | 29 2a 36 30 2b 28 73 74 |art%.100|)*60+(st|
|00001110| 61 72 74 25 83 31 30 30 | 29 0d 07 8a 05 e1 0d 07 |art%.100|).......|
|00001120| 94 05 3a 0d 07 9e 05 3a | 0d 07 a8 0d dd f2 68 65 |..:....:|......he|
|00001130| 61 64 69 6e 67 0d 07 b2 | 1d f4 22 83 48 45 41 44 |ading...|..".HEAD|
|00001140| 49 4e 47 20 46 4f 52 20 | 50 52 49 4e 54 4f 55 54 |ING FOR |PRINTOUT|
|00001150| 87 22 0d 07 bc 0b 40 25 | 3d 26 39 30 34 0d 07 c6 |."....@%|=&904...|
|00001160| 59 db 3a f1 27 22 82 20 | 20 50 6c 6f 74 20 6f 66 |Y.:.'". | Plot of|
|00001170| 20 74 68 65 83 4d 4f 4f | 4e 82 66 6f 72 20 22 a4 | the.MOO|N.for ".|
|00001180| 66 6f 72 6d 61 74 28 64 | 61 79 25 2c 32 29 22 2e |format(d|ay%,2)".|
|00001190| 22 a4 66 6f 72 6d 61 74 | 28 6d 6f 6e 74 68 25 2c |".format|(month%,|
|000011a0| 32 29 22 2e 22 3b 79 65 | 61 72 25 83 31 30 30 3b |2)".";ye|ar%.100;|
|000011b0| 22 20 61 74 3a 22 0d 07 | d0 67 f1 8a 35 29 22 81 |" at:"..|.g..5)".|
|000011c0| 4c 6f 6e 67 69 74 75 64 | 65 22 64 65 67 6c 6f 6e |Longitud|e"deglon|
|000011d0| 67 25 22 20 44 65 67 22 | 6d 69 6e 6c 6f 6e 67 25 |g%" Deg"|minlong%|
|000011e0| 22 20 4d 69 6e 20 22 65 | 77 24 27 8a 35 29 22 81 |" Min "e|w$'.5)".|
|000011f0| 4c 61 74 69 74 75 64 65 | 20 22 64 65 67 6c 61 74 |Latitude| "deglat|
|00001200| 25 22 20 44 65 67 22 6d | 69 6e 6c 61 74 25 22 20 |%" Deg"m|inlat%" |
|00001210| 4d 69 6e 20 22 6e 73 24 | 27 22 20 22 3b 0d 07 da |Min "ns$|'" ";...|
|00001220| 59 40 25 3d 26 32 30 31 | 30 34 3a f1 8a 36 29 22 |Y@%=&201|04:..6)"|
|00001230| 86 22 70 65 72 69 67 22 | 20 64 61 79 73 20 73 69 |."perig"| days si|
|00001240| 6e 63 65 20 50 65 72 69 | 67 72 65 65 22 27 8a 36 |nce Peri|gree"'.6|
|00001250| 29 22 86 22 6e 65 77 6d | 6f 6f 6e 22 20 64 61 79 |)"."newm|oon" day|
|00001260| 73 20 73 69 6e 63 65 20 | 4e 65 77 20 4d 6f 6f 6e |s since |New Moon|
|00001270| 22 27 22 20 22 3b 0d 07 | e4 3d f2 6c 69 6e 65 3a |"'" ";..|.=.line:|
|00001280| f1 8a 32 29 22 85 47 4d | 54 20 20 20 41 7a 69 6d |..2)".GM|T Azim|
|00001290| 20 20 45 6c 65 76 20 20 | 47 48 41 20 20 20 44 65 | Elev |GHA De|
|000012a0| 63 6c 20 20 44 6f 70 22 | 27 22 20 22 3b 3a f2 6c |cl Dop"|'" ";:.l|
|000012b0| 69 6e 65 0d 07 ee 11 ef | 32 38 2c 31 2c 32 34 2c |ine.....|28,1,24,|
|000012c0| 33 39 2c 39 0d 07 f8 05 | e1 0d 08 02 05 3a 0d 08 |39,9....|.....:..|
|000012d0| 0c 05 3a 0d 08 16 0b dd | f2 65 6e 74 72 79 0d 08 |..:.....|.entry..|
|000012e0| 20 22 f4 22 83 45 4e 54 | 45 52 20 53 54 41 52 54 | ".".ENT|ER START|
|000012f0| 49 4e 47 20 43 4f 4e 44 | 49 54 49 4f 4e 53 87 22 |ING COND|ITIONS."|
|00001300| 0d 08 2a 0f ea 67 65 74 | 24 2c 69 6e 70 24 20 0d |..*..get|$,inp$ .|
|00001310| 08 34 1a 40 25 3d 26 39 | 30 31 3a f2 74 69 74 6c |.4.@%=&9|01:.titl|
|00001320| 65 3a 2a 46 58 32 31 2c | 30 0d 08 3e 46 f1 27 8a |e:*FX21,|0..>F.'.|
|00001330| 36 29 22 82 45 4e 54 45 | 52 20 4c 4f 4e 47 49 54 |6)".ENTE|R LONGIT|
|00001340| 55 44 45 20 26 20 4c 41 | 54 49 54 55 44 45 22 8a |UDE & LA|TITUDE".|
|00001350| 37 29 22 81 45 61 73 74 | 20 6f 72 20 57 65 73 74 |7)".East| or West|
|00001360| 20 20 20 28 22 65 77 24 | 22 29 20 3a 87 22 3b 0d | ("ew$|") :.";.|
|00001370| 08 48 3c f5 3a 67 65 74 | 24 3d bd 28 a5 80 26 44 |.H<.:get|$=.(..&D|
|00001380| 46 29 3a fd a7 22 45 57 | 22 2b bd 28 31 33 29 2c |F):.."EW|"+.(13),|
|00001390| 67 65 74 24 29 3a e7 67 | 65 74 24 3c 3e bd 28 31 |get$):.g|et$<>.(1|
|000013a0| 33 29 8c 65 77 24 3d 67 | 65 74 24 0d 08 52 11 f1 |3).ew$=g|et$..R..|
|000013b0| 65 77 24 27 3a ee 85 e5 | 8d 54 64 67 0d 08 5c 6a |ew$':...|.Tdg..\j|
|000013c0| f5 3a f2 77 69 70 65 3a | f1 8a 37 29 22 81 44 65 |.:.wipe:|..7)".De|
|000013d0| 67 72 65 65 73 20 20 20 | 20 20 20 28 22 a4 66 6f |grees | (".fo|
|000013e0| 72 6d 61 74 28 64 65 67 | 6c 6f 6e 67 25 2c 33 29 |rmat(deg|long%,3)|
|000013f0| 22 29 20 3a 87 22 3b 3a | e8 22 22 69 6e 70 24 3a |") :.";:|.""inp$:|
|00001400| fd 69 6e 70 24 3d 22 22 | 84 28 bb 28 69 6e 70 24 |.inp$=""|.(.(inp$|
|00001410| 29 3e 3d 2d 31 37 39 20 | 80 bb 28 69 6e 70 24 29 |)>=-179 |..(inp$)|
|00001420| 3c 3d 31 37 39 29 0d 08 | 66 1e e7 69 6e 70 24 3c |<=179)..|f..inp$<|
|00001430| 3e 22 22 8c 64 65 67 6c | 6f 6e 67 25 3d bb 28 69 |>"".degl|ong%=.(i|
|00001440| 6e 70 24 29 0d 08 70 27 | f1 8a 32 39 2c bc 2d 31 |np$)..p'|..29,.-1|
|00001450| 29 a4 66 6f 72 6d 61 74 | 28 64 65 67 6c 6f 6e 67 |).format|(deglong|
|00001460| 25 2c 33 29 22 20 20 20 | 20 20 22 0d 08 7a 69 f1 |%,3)" | "..zi.|
|00001470| 3a f5 3a f2 77 69 70 65 | 3a f1 8a 37 29 22 81 4d |:.:.wipe|:..7)".M|
|00001480| 69 6e 75 74 65 73 20 20 | 20 20 20 20 20 28 22 a4 |inutes | (".|
|00001490| 66 6f 72 6d 61 74 28 6d | 69 6e 6c 6f 6e 67 25 2c |format(m|inlong%,|
|000014a0| 32 29 22 29 20 3a 87 22 | 3b 3a e8 22 22 69 6e 70 |2)") :."|;:.""inp|
|000014b0| 24 3a fd 69 6e 70 24 3d | 22 22 84 28 bb 28 69 6e |$:.inp$=|"".(.(in|
|000014c0| 70 24 29 3e 3d 30 20 80 | bb 28 69 6e 70 24 29 3c |p$)>=0 .|.(inp$)<|
|000014d0| 3d 35 39 29 0d 08 84 1e | e7 69 6e 70 24 3c 3e 22 |=59)....|.inp$<>"|
|000014e0| 22 8c 6d 69 6e 6c 6f 6e | 67 25 3d bb 28 69 6e 70 |".minlon|g%=.(inp|
|000014f0| 24 29 0d 08 8e 27 f1 8a | 32 39 2c bc 2d 31 29 a4 |$)...'..|29,.-1).|
|00001500| 66 6f 72 6d 61 74 28 6d | 69 6e 6c 6f 6e 67 25 2c |format(m|inlong%,|
|00001510| 32 29 22 20 20 20 20 20 | 22 0d 08 98 26 f1 27 8a |2)" |"...&.'.|
|00001520| 37 29 22 81 4e 6f 72 74 | 68 20 6f 72 20 53 6f 75 |7)".Nort|h or Sou|
|00001530| 74 68 20 28 22 6e 73 24 | 22 29 20 3a 87 22 3b 0d |th ("ns$|") :.";.|
|00001540| 08 a2 3c f5 3a 67 65 74 | 24 3d bd 28 a5 80 26 44 |..<.:get|$=.(..&D|
|00001550| 46 29 3a fd a7 22 4e 53 | 22 2b bd 28 31 33 29 2c |F):.."NS|"+.(13),|
|00001560| 67 65 74 24 29 3a e7 67 | 65 74 24 3c 3e bd 28 31 |get$):.g|et$<>.(1|
|00001570| 33 29 8c 6e 73 24 3d 67 | 65 74 24 0d 08 ac 09 f1 |3).ns$=g|et$.....|
|00001580| 6e 73 24 27 0d 08 b6 66 | f5 3a f2 77 69 70 65 3a |ns$'...f|.:.wipe:|
|00001590| f1 8a 37 29 22 81 44 65 | 67 72 65 65 73 20 20 20 |..7)".De|grees |
|000015a0| 20 20 20 20 28 22 a4 66 | 6f 72 6d 61 74 28 64 65 | (".f|ormat(de|
|000015b0| 67 6c 61 74 25 2c 32 29 | 22 29 20 3a 87 22 3b 3a |glat%,2)|") :.";:|
|000015c0| e8 22 22 69 6e 70 24 3a | fd 69 6e 70 24 3d 22 22 |.""inp$:|.inp$=""|
|000015d0| 84 28 bb 28 69 6e 70 24 | 29 3e 3d 30 20 80 bb 28 |.(.(inp$|)>=0 ..(|
|000015e0| 69 6e 70 24 29 3c 3d 38 | 39 29 0d 08 c0 1d e7 69 |inp$)<=8|9).....i|
|000015f0| 6e 70 24 3c 3e 22 22 8c | 64 65 67 6c 61 74 25 3d |np$<>"".|deglat%=|
|00001600| bb 28 69 6e 70 24 29 0d | 08 ca 26 f1 8a 32 39 2c |.(inp$).|..&..29,|
|00001610| bc 2d 31 29 a4 66 6f 72 | 6d 61 74 28 64 65 67 6c |.-1).for|mat(degl|
|00001620| 61 74 25 2c 32 29 22 20 | 20 20 20 20 22 0d 08 d4 |at%,2)" | "...|
|00001630| 68 f1 3a f5 3a f2 77 69 | 70 65 3a f1 8a 37 29 22 |h.:.:.wi|pe:..7)"|
|00001640| 81 4d 69 6e 75 74 65 73 | 20 20 20 20 20 20 20 28 |.Minutes| (|
|00001650| 22 a4 66 6f 72 6d 61 74 | 28 6d 69 6e 6c 61 74 25 |".format|(minlat%|
|00001660| 2c 32 29 22 29 20 3a 87 | 22 3b 3a e8 22 22 69 6e |,2)") :.|";:.""in|
|00001670| 70 24 3a fd 69 6e 70 24 | 3d 22 22 84 28 bb 28 69 |p$:.inp$|="".(.(i|
|00001680| 6e 70 24 29 3e 3d 30 20 | 80 bb 28 69 6e 70 24 29 |np$)>=0 |..(inp$)|
|00001690| 3c 3d 35 39 29 0d 08 de | 1d e7 69 6e 70 24 3c 3e |<=59)...|..inp$<>|
|000016a0| 22 22 8c 6d 69 6e 6c 61 | 74 25 3d bb 28 69 6e 70 |"".minla|t%=.(inp|
|000016b0| 24 29 0d 08 e8 26 f1 8a | 32 39 2c bc 2d 31 29 a4 |$)...&..|29,.-1).|
|000016c0| 66 6f 72 6d 61 74 28 6d | 69 6e 6c 61 74 25 2c 32 |format(m|inlat%,2|
|000016d0| 29 22 20 20 20 20 20 22 | 0d 08 f2 78 f1 27 8a 31 |)" "|...x.'.1|
|000016e0| 34 29 22 82 45 4e 54 45 | 52 20 44 41 54 45 22 27 |4)".ENTE|R DATE"'|
|000016f0| 3a f5 3a f2 77 69 70 65 | 3a f1 8a 37 29 22 81 44 |:.:.wipe|:..7)".D|
|00001700| 61 79 20 20 20 20 20 20 | 20 20 20 20 20 28 22 a4 |ay | (".|
|00001710| 66 6f 72 6d 61 74 28 64 | 61 79 25 2c 32 29 22 29 |format(d|ay%,2)")|
|00001720| 20 3a 87 22 3b 3a e8 22 | 22 69 6e 70 24 3a fd 69 | :.";:."|"inp$:.i|
|00001730| 6e 70 24 3d 22 22 84 28 | bb 28 69 6e 70 24 29 3e |np$="".(|.(inp$)>|
|00001740| 3d 31 20 80 bb 28 69 6e | 70 24 29 3c 3d 33 31 29 |=1 ..(in|p$)<=31)|
|00001750| 0d 08 fc 1a e7 69 6e 70 | 24 3c 3e 22 22 8c 64 61 |.....inp|$<>"".da|
|00001760| 79 25 3d bb 28 69 6e 70 | 24 29 0d 09 06 23 f1 8a |y%=.(inp|$)...#..|
|00001770| 32 39 2c bc 2d 31 29 a4 | 66 6f 72 6d 61 74 28 64 |29,.-1).|format(d|
|00001780| 61 79 25 2c 32 29 22 20 | 20 20 20 20 22 0d 09 10 |ay%,2)" | "...|
|00001790| 67 f1 3a f5 3a f2 77 69 | 70 65 3a f1 8a 37 29 22 |g.:.:.wi|pe:..7)"|
|000017a0| 81 4d 6f 6e 74 68 20 20 | 20 20 20 20 20 20 20 28 |.Month | (|
|000017b0| 22 a4 66 6f 72 6d 61 74 | 28 6d 6f 6e 74 68 25 2c |".format|(month%,|
|000017c0| 32 29 22 29 20 3a 87 22 | 3b 3a e8 22 22 69 6e 70 |2)") :."|;:.""inp|
|000017d0| 24 3a fd 69 6e 70 24 3d | 22 22 84 28 bb 28 69 6e |$:.inp$=|"".(.(in|
|000017e0| 70 24 29 3e 3d 31 20 80 | bb 28 69 6e 70 24 29 3c |p$)>=1 .|.(inp$)<|
|000017f0| 3d 31 32 29 0d 09 1a 1c | e7 69 6e 70 24 3c 3e 22 |=12)....|.inp$<>"|
|00001800| 22 8c 6d 6f 6e 74 68 25 | 3d bb 28 69 6e 70 24 29 |".month%|=.(inp$)|
|00001810| 0d 09 24 25 f1 8a 32 39 | 2c bc 2d 31 29 a4 66 6f |..$%..29|,.-1).fo|
|00001820| 72 6d 61 74 28 6d 6f 6e | 74 68 25 2c 32 29 22 20 |rmat(mon|th%,2)" |
|00001830| 20 20 20 20 22 0d 09 2e | 60 f1 3a f5 3a f2 77 69 | "...|`.:.:.wi|
|00001840| 70 65 3a f1 8a 37 29 22 | 81 59 65 61 72 20 20 20 |pe:..7)"|.Year |
|00001850| 20 20 20 20 20 20 20 28 | 22 3b 79 65 61 72 25 83 | (|";year%.|
|00001860| 31 30 30 22 29 20 3a 87 | 22 3b 3a e8 22 22 69 6e |100") :.|";:.""in|
|00001870| 70 24 3a fd 69 6e 70 24 | 3d 22 22 84 28 bb 28 69 |p$:.inp$|="".(.(i|
|00001880| 6e 70 24 29 3e 3d 37 36 | 80 bb 28 69 6e 70 24 29 |np$)>=76|..(inp$)|
|00001890| 3c 3d 39 39 29 0d 09 38 | 20 e7 69 6e 70 24 3c 3e |<=99)..8| .inp$<>|
|000018a0| 22 22 8c 79 65 61 72 25 | 3d bb 28 69 6e 70 24 29 |"".year%|=.(inp$)|
|000018b0| 2b 31 39 30 30 0d 09 42 | 1e f1 8a 32 39 2c bc 2d |+1900..B|...29,.-|
|000018c0| 31 29 3b 79 65 61 72 25 | 83 31 30 30 22 20 20 20 |1);year%|.100" |
|000018d0| 20 20 22 0d 09 4c 9f f1 | 27 22 82 20 45 4e 54 45 | "..L..|'". ENTE|
|000018e0| 52 20 53 54 41 52 54 2f | 46 49 4e 49 53 48 20 54 |R START/|FINISH T|
|000018f0| 49 4d 45 53 20 26 20 49 | 4e 43 52 45 4d 45 4e 54 |IMES & I|NCREMENT|
|00001900| 22 27 3a f5 3a f2 77 69 | 70 65 3a f1 8a 37 29 22 |"':.:.wi|pe:..7)"|
|00001910| 81 47 6d 74 20 53 74 61 | 72 74 20 20 20 28 22 a4 |.Gmt Sta|rt (".|
|00001920| 66 6f 72 6d 61 74 28 73 | 74 61 72 74 25 2c 34 29 |format(s|tart%,4)|
|00001930| 22 29 20 3a 87 22 3b 3a | e8 22 22 69 6e 70 24 3a |") :.";:|.""inp$:|
|00001940| fd 69 6e 70 24 3d 22 22 | 84 28 bb 28 69 6e 70 24 |.inp$=""|.(.(inp$|
|00001950| 29 3e 3d 30 80 bb 28 69 | 6e 70 24 29 3c 3d 32 33 |)>=0..(i|np$)<=23|
|00001960| 30 30 80 bb 28 69 6e 70 | 24 29 83 31 30 30 3c 36 |00..(inp|$).100<6|
|00001970| 30 29 0d 09 56 1c e7 69 | 6e 70 24 3c 3e 22 22 8c |0)..V..i|np$<>"".|
|00001980| 73 74 61 72 74 25 3d bb | 28 69 6e 70 24 29 0d 09 |start%=.|(inp$)..|
|00001990| 60 25 f1 8a 32 39 2c bc | 2d 31 29 a4 66 6f 72 6d |`%..29,.|-1).form|
|000019a0| 61 74 28 73 74 61 72 74 | 25 2c 34 29 22 20 20 20 |at(start|%,4)" |
|000019b0| 20 20 22 0d 09 6a 78 f1 | 3a f5 3a f2 77 69 70 65 | "..jx.|:.:.wipe|
|000019c0| 3a f1 8a 37 29 22 81 47 | 6d 74 20 46 69 6e 69 73 |:..7)".G|mt Finis|
|000019d0| 68 20 20 28 22 a4 66 6f | 72 6d 61 74 28 66 69 6e |h (".fo|rmat(fin|
|000019e0| 25 2c 34 29 22 29 20 3a | 87 22 3b 3a e8 22 22 69 |%,4)") :|.";:.""i|
|000019f0| 6e 70 24 3a fd 69 6e 70 | 24 3d 22 22 84 28 bb 28 |np$:.inp|$="".(.(|
|00001a00| 69 6e 70 24 29 3e 3d 73 | 74 61 72 74 25 80 bb 28 |inp$)>=s|tart%..(|
|00001a10| 69 6e 70 24 29 3c 3d 32 | 34 30 30 80 bb 28 69 6e |inp$)<=2|400..(in|
|00001a20| 70 24 29 83 31 30 30 3c | 36 30 29 0d 09 74 1a e7 |p$).100<|60)..t..|
|00001a30| 69 6e 70 24 3c 3e 22 22 | 8c 66 69 6e 25 3d bb 28 |inp$<>""|.fin%=.(|
|00001a40| 69 6e 70 24 29 0d 09 7e | 23 f1 8a 32 39 2c bc 2d |inp$)..~|#..29,.-|
|00001a50| 31 29 a4 66 6f 72 6d 61 | 74 28 66 69 6e 25 2c 34 |1).forma|t(fin%,4|
|00001a60| 29 22 20 20 20 20 20 22 | 0d 09 88 65 f1 3a f5 3a |)" "|...e.:.:|
|00001a70| f2 77 69 70 65 3a f1 8a | 37 29 22 81 4d 69 6e 75 |.wipe:..|7)".Minu|
|00001a80| 74 65 73 20 20 20 20 20 | 20 20 28 22 a4 66 6f 72 |tes | (".for|
|00001a90| 6d 61 74 28 69 6e 63 25 | 2c 32 29 22 29 20 3a 87 |mat(inc%|,2)") :.|
|00001aa0| 22 3b 3a e8 22 22 69 6e | 70 24 3a fd 69 6e 70 24 |";:.""in|p$:.inp$|
|00001ab0| 3d 22 22 84 28 bb 28 69 | 6e 70 24 29 3e 3d 31 20 |="".(.(i|np$)>=1 |
|00001ac0| 80 bb 28 69 6e 70 24 29 | 3c 3d 39 30 29 0d 09 92 |..(inp$)|<=90)...|
|00001ad0| 1a e7 69 6e 70 24 3c 3e | 22 22 8c 69 6e 63 25 3d |..inp$<>|"".inc%=|
|00001ae0| bb 28 69 6e 70 24 29 0d | 09 9c 28 f1 8a 32 39 2c |.(inp$).|..(..29,|
|00001af0| bc 2d 31 29 a4 66 6f 72 | 6d 61 74 28 69 6e 63 25 |.-1).for|mat(inc%|
|00001b00| 2c 32 29 22 20 20 20 20 | 20 22 27 22 20 22 3b 0d |,2)" | "'" ";.|
|00001b10| 09 a6 1c f2 6f 66 66 3a | f2 6c 69 6e 65 3a f1 22 |....off:|.line:."|
|00001b20| 20 22 3b 3a f2 61 6e 79 | 6b 65 79 0d 09 b0 05 e1 | ";:.any|key.....|
|00001b30| 0d 09 ba 05 3a 0d 09 c4 | 05 3a 0d 09 ce 0a dd f2 |....:...|.:......|
|00001b40| 77 69 70 65 0d 09 d8 1b | f4 22 83 57 49 50 45 20 |wipe....|.".WIPE |
|00001b50| 50 52 45 56 49 4f 55 53 | 20 4c 49 4e 45 87 22 0d |PREVIOUS| LINE.".|
|00001b60| 09 e2 0f f5 3a ef 31 32 | 37 3a fd b1 3d 30 0d 09 |....:.12|7:..=0..|
|00001b70| ec 05 e1 0d 09 f6 05 3a | 0d 0a 00 05 3a 0d 0a 0a |.......:|....:...|
|00001b80| 10 dd f2 69 6e 69 74 69 | 61 6c 69 73 65 0d 0a 14 |...initi|alise...|
|00001b90| 1f f4 22 83 49 4e 49 54 | 49 41 4c 20 44 45 46 41 |..".INIT|IAL DEFA|
|00001ba0| 55 4c 54 20 56 41 4c 55 | 45 53 87 22 0d 0a 1e 86 |ULT VALU|ES."....|
|00001bb0| e7 62 65 65 62 25 3d a3 | 20 8c 74 69 6d 65 24 3d |.beeb%=.| .time$=|
|00001bc0| 91 24 3a 64 61 79 25 3d | bb 28 c1 74 69 6d 65 24 |.$:day%=|.(.time$|
|00001bd0| 2c 35 2c 32 29 29 3a 6d | 6f 6e 74 68 25 3d 28 28 |,5,2)):m|onth%=((|
|00001be0| a7 22 4a 61 6e 46 65 62 | 4d 61 72 41 70 72 4d 61 |."JanFeb|MarAprMa|
|00001bf0| 79 4a 75 6e 4a 75 6c 41 | 75 67 53 65 70 4f 63 74 |yJunJulA|ugSepOct|
|00001c00| 4e 6f 76 44 65 63 22 2c | c1 74 69 6d 65 24 2c 38 |NovDec",|.time$,8|
|00001c10| 2c 33 29 29 2d 31 29 81 | 33 29 2b 31 3a 79 65 61 |,3))-1).|3)+1:yea|
|00001c20| 72 25 3d bb 28 c1 74 69 | 6d 65 24 2c 31 32 2c 34 |r%=.(.ti|me$,12,4|
|00001c30| 29 29 0d 0a 20 28 e7 62 | 65 65 62 25 3d b9 20 8c |)).. (.b|eeb%=. .|
|00001c40| 64 61 79 25 3d 31 3a 6d | 6f 6e 74 68 25 3d 38 3a |day%=1:m|onth%=8:|
|00001c50| 79 65 61 72 25 3d 31 39 | 38 39 0d 0a 23 68 64 65 |year%=19|89..#hde|
|00001c60| 67 6c 61 74 25 3d 35 33 | 3a 6d 69 6e 6c 61 74 25 |glat%=53|:minlat%|
|00001c70| 3d 33 39 3a 64 65 67 6c | 6f 6e 67 25 3d 31 3a 6d |=39:degl|ong%=1:m|
|00001c80| 69 6e 6c 6f 6e 67 25 3d | 32 38 3a 6e 73 24 3d 22 |inlong%=|28:ns$="|
|00001c90| 4e 22 3a 65 77 24 3d 22 | 57 22 3a 73 74 61 72 74 |N":ew$="|W":start|
|00001ca0| 25 3d 30 30 30 30 3a 66 | 69 6e 25 3d 32 34 30 30 |%=0000:f|in%=2400|
|00001cb0| 3a 69 6e 63 25 3d 36 30 | 3a 66 72 65 71 25 3d 34 |:inc%=60|:freq%=4|
|00001cc0| 33 32 0d 0a 28 0a 2a 46 | 58 34 2c 31 0d 0a 32 05 |32..(.*F|X4,1..2.|
|00001cd0| e1 0d 0a 3c 05 3a 0d 0a | 46 05 3a 0d 0a 50 0a dd |...<.:..|F.:..P..|
|00001ce0| f2 6c 69 6e 65 0d 0a 5a | 17 f4 22 83 44 52 41 57 |.line..Z|..".DRAW|
|00001cf0| 20 42 4c 55 45 20 4c 49 | 4e 45 87 22 0d 0a 64 16 | BLUE LI|NE."..d.|
|00001d00| f1 bd 28 31 34 38 29 22 | 20 22 c4 33 33 2c 22 2c |..(148)"| ".33,",|
|00001d10| 22 29 0d 0a 6e 05 e1 0d | 0a 78 05 3a 0d 0a 82 05 |")..n...|.x.:....|
|00001d20| 3a 0d 0a 8c 09 dd f2 6f | 66 66 0d 0a 96 18 f4 22 |:......o|ff....."|
|00001d30| 83 54 55 52 4e 20 43 55 | 52 53 4f 52 20 4f 46 46 |.TURN CU|RSOR OFF|
|00001d40| 87 22 0d 0a a0 12 ef 32 | 33 2c 31 2c 30 3b 30 3b |.".....2|3,1,0;0;|
|00001d50| 30 3b 30 3b 0d 0a aa 05 | e1 0d 0a b4 05 3a 0d 0a |0;0;....|.....:..|
|00001d60| be 05 3a 0d 0a c8 0b dd | f2 74 69 74 6c 65 0d 0a |..:.....|.title..|
|00001d70| d2 16 f4 22 83 50 52 4f | 47 52 41 4d 20 54 49 54 |...".PRO|GRAM TIT|
|00001d80| 4c 45 87 22 0d 0a dc 5c | db 3a f1 8a 37 2c 31 29 |LE."...\|.:..7,1)|
|00001d90| bd 28 31 34 31 29 22 83 | 4d 4f 4f 4e 20 4c 4f 43 |.(141)".|MOON LOC|
|00001da0| 41 54 49 4f 4e 20 50 52 | 4f 47 52 41 4d 22 8a 37 |ATION PR|OGRAM".7|
|00001db0| 29 bd 28 31 34 31 29 22 | 83 4d 4f 4f 4e 20 4c 4f |).(141)"|.MOON LO|
|00001dc0| 43 41 54 49 4f 4e 20 50 | 52 4f 47 52 41 4d 22 8a |CATION P|ROGRAM".|
|00001dd0| 38 29 bd 28 31 34 37 29 | c4 32 31 2c 22 60 22 29 |8).(147)|.21,"`")|
|00001de0| 0d 0a e6 05 e1 0d 0a f0 | 05 3a 0d 0a fa 05 3a 0d |........|.:....:.|
|00001df0| 0b 04 12 dd f2 69 6e 73 | 74 72 75 63 74 69 6f 6e |.....ins|truction|
|00001e00| 73 0d 0b 0e 15 f4 22 83 | 49 4e 53 54 52 55 43 54 |s.....".|INSTRUCT|
|00001e10| 49 4f 4e 53 87 22 0d 0b | 18 0f f2 74 69 74 6c 65 |IONS."..|...title|
|00001e20| 3a f2 6f 66 66 0d 0b 22 | cc f1 22 86 20 54 68 69 |:.off.."|..". Thi|
|00001e30| 73 20 70 72 6f 67 72 61 | 6d 20 65 6e 61 62 6c 65 |s progra|m enable|
|00001e40| 73 20 79 6f 75 20 74 6f | 20 70 6c 6f 74 20 74 68 |s you to| plot th|
|00001e50| 65 22 27 22 86 20 20 20 | 70 6f 73 69 74 69 6f 6e |e"'". |position|
|00001e60| 20 6f 66 20 74 68 65 83 | 4d 4f 4f 4e 86 69 6e 20 | of the.|MOON.in |
|00001e70| 74 68 65 20 73 6b 79 2e | 22 27 22 86 20 59 6f 75 |the sky.|"'". You|
|00001e80| 86 6d 75 73 74 20 73 70 | 65 63 69 66 79 20 79 6f |.must sp|ecify yo|
|00001e90| 75 72 20 4c 6f 6e 67 69 | 74 75 64 65 20 61 6e 64 |ur Longi|tude and|
|00001ea0| 22 27 22 86 20 4c 61 74 | 69 74 75 64 65 2c 20 74 |"'". Lat|itude, t|
|00001eb0| 68 65 20 64 61 74 65 2c | 20 74 68 65 20 73 74 61 |he date,| the sta|
|00001ec0| 72 74 20 74 69 6d 65 2c | 22 27 22 86 20 61 6e 64 |rt time,|"'". and|
|00001ed0| 86 74 68 65 20 74 69 6d | 65 20 69 6e 63 72 65 6d |.the tim|e increm|
|00001ee0| 65 6e 74 20 6f 66 20 74 | 68 65 20 70 6c 6f 74 2e |ent of t|he plot.|
|00001ef0| 22 0d 0b 2c a6 f1 27 22 | 82 20 54 68 65 20 68 65 |"..,..'"|. The he|
|00001f00| 61 64 69 6e 67 20 74 68 | 65 6e 20 74 65 6c 6c 73 |ading th|en tells|
|00001f10| 20 79 6f 75 20 74 68 65 | 20 64 61 79 73 22 27 22 | you the| days"'"|
|00001f20| 82 73 69 6e 63 65 20 74 | 68 65 20 6c 61 73 74 20 |.since t|he last |
|00001f30| 50 65 72 69 67 72 65 65 | 2c 20 77 68 65 6e 20 74 |Perigree|, when t|
|00001f40| 68 65 20 4d 6f 6f 6e 22 | 27 22 82 69 73 20 63 6c |he Moon"|'".is cl|
|00001f50| 6f 73 65 73 74 20 74 6f | 20 74 68 65 20 45 61 72 |osest to| the Ear|
|00001f60| 74 68 2c 20 61 6e 64 20 | 74 68 65 20 64 61 79 73 |th, and |the days|
|00001f70| 22 27 22 82 20 73 69 6e | 63 65 20 74 68 65 20 6c |"'". sin|ce the l|
|00001f80| 61 73 74 20 4e 65 77 20 | 4d 6f 6f 6e 2e 20 50 65 |ast New |Moon. Pe|
|00001f90| 72 69 67 72 65 65 22 0d | 0b 36 a3 f1 22 82 20 6f |rigree".|.6..". o|
|00001fa0| 63 63 75 72 73 20 61 62 | 6f 75 74 20 65 76 65 72 |ccurs ab|out ever|
|00001fb0| 79 20 32 37 20 64 61 79 | 73 2c 20 73 6f 20 41 70 |y 27 day|s, so Ap|
|00001fc0| 6f 67 65 65 22 27 22 82 | 20 69 73 20 61 62 6f 75 |ogee"'".| is abou|
|00001fd0| 74 20 31 33 2d 31 34 20 | 64 61 79 73 20 6c 61 74 |t 13-14 |days lat|
|00001fe0| 65 72 2e 20 4e 65 77 20 | 4d 6f 6f 6e 22 27 22 82 |er. New |Moon"'".|
|00001ff0| 20 6f 63 63 75 72 73 20 | 61 62 6f 75 74 20 65 76 | occurs |about ev|
|00002000| 65 72 79 20 33 30 20 64 | 61 79 73 2c 20 73 6f 20 |ery 30 d|ays, so |
|00002010| 46 75 6c 6c 22 27 22 82 | 20 20 20 20 20 4d 6f 6f |Full"'".| Moo|
|00002020| 6e 20 69 73 20 61 62 6f | 75 74 20 31 35 20 64 61 |n is abo|ut 15 da|
|00002030| 79 73 20 6c 61 74 65 72 | 2e 22 0d 0b 40 a6 f1 27 |ys later|."..@..'|
|00002040| 22 82 54 68 65 20 70 72 | 69 6e 74 6f 75 74 20 67 |".The pr|intout g|
|00002050| 69 76 65 73 20 74 68 65 | 20 47 72 65 65 6e 77 69 |ives the| Greenwi|
|00002060| 63 68 20 4d 65 61 6e 22 | 27 22 82 20 20 54 69 6d |ch Mean"|'". Tim|
|00002070| 65 2c 20 28 6f 6e 65 20 | 68 6f 75 72 20 62 65 68 |e, (one |hour beh|
|00002080| 69 6e 64 20 42 53 54 29 | 2c 20 74 68 65 22 27 22 |ind BST)|, the"'"|
|00002090| 82 41 7a 69 6d 75 74 68 | 2c 20 28 69 65 20 74 68 |.Azimuth|, (ie th|
|000020a0| 65 20 62 65 61 72 69 6e | 67 20 66 72 6f 6d 20 4e |e bearin|g from N|
|000020b0| 6f 72 74 68 29 2c 22 27 | 22 82 20 61 6e 64 20 74 |orth),"'|". and t|
|000020c0| 68 65 20 45 6c 65 76 61 | 74 69 6f 6e 20 61 6e 67 |he Eleva|tion ang|
|000020d0| 6c 65 20 6f 66 20 74 68 | 65 20 4d 6f 6f 6e 2e 22 |le of th|e Moon."|
|000020e0| 0d 0b 4a 1d f1 22 20 22 | 3b 3a f2 6c 69 6e 65 3a |..J.." "|;:.line:|
|000020f0| f1 22 20 22 3b 3a f2 61 | 6e 79 6b 65 79 0d 0b 54 |." ";:.a|nykey..T|
|00002100| 0a f2 74 69 74 6c 65 0d | 0b 5e 9e f1 22 82 20 20 |..title.|.^..". |
|00002110| 49 6e 20 63 61 73 65 20 | 79 6f 75 20 77 61 6e 74 |In case |you want|
|00002120| 20 74 6f 20 63 68 65 63 | 6b 20 61 67 61 69 6e 73 | to chec|k agains|
|00002130| 74 22 27 22 82 20 41 6c | 6d 61 6e 61 63 20 64 61 |t"'". Al|manac da|
|00002140| 74 61 2c 20 74 68 65 20 | 41 73 74 72 6f 6e 6f 6d |ta, the |Astronom|
|00002150| 69 63 61 6c 20 63 6f 2d | 22 27 22 82 6f 72 64 69 |ical co-|"'".ordi|
|00002160| 6e 61 74 65 73 20 61 72 | 65 20 61 6c 73 6f 20 67 |nates ar|e also g|
|00002170| 69 76 65 6e 2c 20 28 47 | 72 65 65 6e 77 69 63 68 |iven, (G|reenwich|
|00002180| 22 27 22 82 20 20 20 20 | 48 6f 75 72 20 41 6e 67 |"'". |Hour Ang|
|00002190| 6c 65 20 61 6e 64 20 44 | 65 63 6c 69 6e 61 74 69 |le and D|eclinati|
|000021a0| 6f 6e 29 2e 22 0d 0b 68 | cd f1 27 22 82 20 20 54 |on)."..h|..'". T|
|000021b0| 68 65 20 66 69 6e 61 6c | 20 63 6f 6c 75 6d 6e 20 |he final| column |
|000021c0| 67 69 76 65 73 20 74 68 | 65 20 44 6f 70 70 6c 65 |gives th|e Dopple|
|000021d0| 72 22 27 22 82 20 20 73 | 68 69 66 74 2c 20 69 6e |r"'". s|hift, in|
|000021e0| 20 48 7a 2c 20 6f 66 20 | 79 6f 75 72 20 6f 77 6e | Hz, of |your own|
|000021f0| 20 72 65 74 75 72 6e 22 | 27 22 82 20 65 63 68 6f | return"|'". echo|
|00002200| 65 73 20 6f 6e 20 34 33 | 32 20 4d 48 7a 2e 20 54 |es on 43|2 MHz. T|
|00002210| 6f 20 63 61 6c 63 75 6c | 61 74 65 20 74 68 65 22 |o calcul|ate the"|
|00002220| 27 22 82 73 68 69 66 74 | 20 66 6f 72 20 61 6e 20 |'".shift| for an |
|00002230| 61 63 74 75 61 6c 20 51 | 53 4f 2c 20 74 61 6b 65 |actual Q|SO, take|
|00002240| 20 74 68 65 20 6d 65 61 | 6e 22 27 22 82 20 6f 66 | the mea|n"'". of|
|00002250| 20 74 68 65 20 73 68 69 | 66 74 20 6f 6e 20 79 6f | the shi|ft on yo|
|00002260| 75 72 20 72 65 74 75 72 | 6e 20 65 63 68 6f 65 73 |ur retur|n echoes|
|00002270| 2c 22 0d 0b 72 a1 f1 22 | 82 20 61 6e 64 20 74 68 |,"..r.."|. and th|
|00002280| 65 20 73 68 69 66 74 20 | 6f 6e 20 74 68 65 20 6f |e shift |on the o|
|00002290| 74 68 65 72 20 73 74 61 | 74 69 6f 6e 27 73 22 27 |ther sta|tion's"'|
|000022a0| 22 82 20 72 65 74 75 72 | 6e 20 65 63 68 6f 65 73 |". retur|n echoes|
|000022b0| 2e 20 4e 6f 74 65 20 74 | 68 61 74 20 74 68 65 72 |. Note t|hat ther|
|000022c0| 65 20 69 73 20 61 22 27 | 22 82 20 20 32 20 64 42 |e is a"'|". 2 dB|
|000022d0| 20 67 72 65 61 74 65 72 | 20 70 61 74 68 20 6c 6f | greater| path lo|
|000022e0| 73 73 20 61 74 20 41 70 | 6f 67 65 65 2c 22 27 22 |ss at Ap|ogee,"'"|
|000022f0| 82 20 20 20 20 72 65 6c | 61 74 69 76 65 20 74 6f |. rel|ative to|
|00002300| 20 74 68 61 74 20 61 74 | 20 50 65 72 69 67 72 65 | that at| Perigre|
|00002310| 65 2e 22 0d 0b 7c 80 f1 | 27 22 81 54 6f 20 61 63 |e."..|..|'".To ac|
|00002320| 63 65 70 74 20 74 68 65 | 20 64 65 66 61 75 6c 74 |cept the| default|
|00002330| 20 76 61 6c 75 65 73 20 | 67 69 76 65 6e 20 69 6e | values |given in|
|00002340| 22 27 22 81 62 72 61 63 | 6b 65 74 73 2c 20 6a 75 |"'".brac|kets, ju|
|00002350| 73 74 20 70 72 65 73 73 | 20 3c 52 65 74 75 72 6e |st press| <Return|
|00002360| 3e 2c 20 6f 74 68 65 72 | 2d 22 27 22 81 20 20 20 |>, other|-"'". |
|00002370| 20 20 77 69 73 65 20 74 | 79 70 65 20 69 6e 20 74 | wise t|ype in t|
|00002380| 68 65 20 6e 65 77 20 76 | 61 6c 75 65 2e 22 27 22 |he new v|alue."'"|
|00002390| 20 22 3b 0d 0b 86 17 f2 | 6c 69 6e 65 3a f1 22 20 | ";.....|line:." |
|000023a0| 22 3b 3a f2 61 6e 79 6b | 65 79 0d 0b 90 05 e1 0d |";:.anyk|ey......|
|000023b0| 0b 9a 05 3a 0d 0b a4 05 | 3a 0d 0b ae 0c dd f2 61 |...:....|:......a|
|000023c0| 6e 79 6b 65 79 0d 0b b8 | 21 f4 22 83 57 41 49 54 |nykey...|!.".WAIT|
|000023d0| 20 46 4f 52 20 41 4e 59 | 20 4b 45 59 20 50 52 45 | FOR ANY| KEY PRE|
|000023e0| 53 53 45 44 87 22 0d 0b | c2 06 ef 37 0d 0b cc 3a |SSED."..|...7...:|
|000023f0| f1 89 28 35 29 22 85 50 | 72 65 73 73 20 61 6e 79 |..(5)".P|ress any|
|00002400| 20 6b 65 79 20 74 6f 20 | 43 6f 6e 74 69 6e 75 65 | key to |Continue|
|00002410| 22 3b 3a f5 fd a6 28 30 | 29 3d 2d 31 3a f5 fd a6 |";:...(0|)=-1:...|
|00002420| 28 30 29 3e 2d 31 0d 0b | d6 05 e1 0d 0b e0 05 3a |(0)>-1..|.......:|
|00002430| 0d 0b ea 05 3a 0d 0b f4 | 11 dd a4 66 69 64 64 6c |....:...|...fiddl|
|00002440| 65 28 61 2c 62 29 0d 0b | fe 44 f4 22 20 83 52 4f |e(a,b)..|.D." .RO|
|00002450| 55 54 49 4e 45 20 54 4f | 20 52 45 4d 4f 56 45 20 |UTINE TO| REMOVE |
|00002460| 41 4d 42 49 47 55 49 54 | 49 45 53 83 41 53 53 4f |AMBIGUIT|IES.ASSO|
|00002470| 43 49 41 54 45 44 20 57 | 49 54 48 20 41 54 4e 20 |CIATED W|ITH ATN |
|00002480| 46 55 4e 43 54 49 4f 4e | 87 22 0d 0c 08 0d e7 61 |FUNCTION|.".....a|
|00002490| 3d 30 8c 8d 54 66 4c 0d | 0c 12 23 e7 61 3e 30 80 |=0..TfL.|..#.a>0.|
|000024a0| 62 3c 30 8c 61 3d 61 2b | af 3a e5 8d 54 66 4c 20 |b<0.a=a+|.:..TfL |
|000024b0| 8b e7 61 3e 30 8c 8d 54 | 66 4c 0d 0c 1c 1e e7 62 |..a>0..T|fL.....b|
|000024c0| 3e 3d 30 8c 61 3d 61 2b | af 2a 32 20 8b 61 3d 28 |>=0.a=a+|.*2 .a=(|
|000024d0| 61 2d af 29 2b af 2a 32 | 0d 0c 26 06 3d 61 0d 0c |a-.)+.*2|..&.=a..|
|000024e0| 30 05 3a 0d 0c 3a 05 3a | 0d 0c 44 0d dd f2 6d 6f |0.:..:.:|..D...mo|
|000024f0| 6f 6e 61 67 65 0d 0c 4e | 40 f4 22 83 43 41 4c 43 |onage..N|@.".CALC|
|00002500| 55 4c 41 54 49 4f 4e 20 | 4f 46 20 44 41 59 53 20 |ULATION |OF DAYS |
|00002510| 53 49 4e 43 45 20 4c 41 | 53 54 83 20 50 45 52 49 |SINCE LA|ST. PERI|
|00002520| 47 45 45 20 41 4e 44 20 | 41 47 45 20 4f 46 20 4d |GEE AND |AGE OF M|
|00002530| 4f 4f 4e 20 22 0d 0c 58 | 0c ea 74 37 2c 74 39 2c |OON "..X|..t7,t9,|
|00002540| 71 0d 0c 62 14 74 31 3d | 6a 64 61 74 65 2d 31 37 |q..b.t1=|jdate-17|
|00002550| 34 37 32 2e 35 0d 0c 6c | 20 74 39 3d 6a 64 61 74 |472.5..l| t9=jdat|
|00002560| 65 2b 32 33 39 37 35 34 | 37 2e 35 2d 32 34 34 34 |e+239754|7.5-2444|
|00002570| 35 30 37 2e 36 0d 0c 76 | 0e 74 37 3d 74 39 2d 31 |507.6..v|.t7=t9-1|
|00002580| 34 2e 36 0d 0c 80 34 6e | 65 77 6d 6f 6f 6e 3d a8 |4.6...4n|ewmoon=.|
|00002590| 28 74 37 2f 32 39 2e 35 | 33 30 36 29 3a 6e 65 77 |(t7/29.5|306):new|
|000025a0| 6d 6f 6f 6e 3d 74 37 2d | 6e 65 77 6d 6f 6f 6e 2a |moon=t7-|newmoon*|
|000025b0| 32 39 2e 35 33 30 36 0d | 0c 8a 28 71 3d a8 28 74 |29.5306.|..(q=.(t|
|000025c0| 39 2f 32 37 2e 35 35 34 | 35 29 3a 70 65 72 69 67 |9/27.554|5):perig|
|000025d0| 3d 74 39 2d 28 32 37 2e | 35 35 34 35 2a 71 29 0d |=t9-(27.|5545*q).|
|000025e0| 0c 94 05 e1 0d 0c 9e 05 | 3a 0d 0c a8 05 3a 0d 0c |........|:....:..|
|000025f0| b2 12 dd f2 6c 75 6e 61 | 72 6c 6f 6e 67 6c 61 74 |....luna|rlonglat|
|00002600| 0d 0c bc 35 f4 22 83 43 | 41 4c 43 55 4c 41 54 49 |...5.".C|ALCULATI|
|00002610| 4f 4e 20 4f 46 20 4c 55 | 4e 41 52 20 4c 41 54 49 |ON OF LU|NAR LATI|
|00002620| 54 55 44 45 20 83 41 4e | 44 20 4c 4f 4e 47 49 54 |TUDE .AN|D LONGIT|
|00002630| 55 44 45 20 22 0d 0c c6 | 19 ea 74 35 2c 6b 31 2c |UDE "...|..t5,k1,|
|00002640| 6b 32 2c 6b 33 2c 6b 34 | 2c 6b 35 2c 6b 36 0d 0c |k2,k3,k4|,k5,k6..|
|00002650| d0 17 74 35 3d 74 31 2b | 74 69 6d 65 6e 6f 77 25 |..t5=t1+|timenow%|
|00002660| 2f 31 34 34 30 0d 0c da | 20 6b 31 3d a4 62 28 2e |/1440...| k1=.b(.|
|00002670| 37 35 31 32 31 33 2b 2e | 30 33 36 36 30 31 31 30 |751213+.|03660110|
|00002680| 32 2a 74 35 29 0d 0c e4 | 22 6b 32 3d a4 62 28 2e |2*t5)...|"k2=.b(.|
|00002690| 38 32 32 35 31 33 2b 2e | 30 33 36 32 39 31 31 36 |822513+.|03629116|
|000026a0| 34 35 37 2a 74 35 29 0d | 0c ee 22 6b 33 3d a4 62 |457*t5).|.."k3=.b|
|000026b0| 28 2e 39 39 35 37 36 36 | 2b 2e 30 30 32 37 33 37 |(.995766|+.002737|
|000026c0| 37 37 38 32 35 2a 74 35 | 29 0d 0c f8 21 6b 34 3d |77825*t5|)...!k4=|
|000026d0| a4 62 28 2e 39 37 34 32 | 37 31 2b 2e 30 33 33 38 |.b(.9742|71+.0338|
|000026e0| 36 33 31 39 32 32 2a 74 | 35 29 0d 0d 02 22 6b 35 |631922*t|5)..."k5|
|000026f0| 3d a4 62 28 2e 30 33 31 | 32 35 32 35 2b 2e 30 33 |=.b(.031|2525+.03|
|00002700| 36 37 34 38 31 39 35 37 | 2a 74 35 29 0d 0d 0c 29 |67481957|*t5)...)|
|00002710| 6b 38 3d 6b 31 2b b2 28 | 30 2e 36 35 38 29 2a b5 |k8=k1+.(|0.658)*.|
|00002720| 28 32 2a 6b 34 29 2b b2 | 28 36 2e 32 38 39 29 2a |(2*k4)+.|(6.289)*|
|00002730| b5 28 6b 32 29 0d 0d 16 | 2c 6b 38 3d 6b 38 2d b2 |.(k2)...|,k8=k8-.|
|00002740| 28 31 2e 32 37 34 29 2a | b5 28 6b 32 2d 32 2a 6b |(1.274)*|.(k2-2*k|
|00002750| 34 29 2d b2 28 30 2e 31 | 38 36 29 2a b5 28 6b 33 |4)-.(0.1|86)*.(k3|
|00002760| 29 0d 0d 20 2b 6b 38 3d | 6b 38 2b b2 28 30 2e 32 |).. +k8=|k8+.(0.2|
|00002770| 31 34 29 2a b5 28 32 2a | 6b 32 29 2d b2 28 30 2e |14)*.(2*|k2)-.(0.|
|00002780| 31 31 34 29 2a b5 28 32 | 2a 6b 35 29 0d 0d 2a 36 |114)*.(2|*k5)..*6|
|00002790| 6b 38 3d 6b 38 2d b2 28 | 30 2e 30 35 39 29 2a b5 |k8=k8-.(|0.059)*.|
|000027a0| 28 32 2a 6b 32 2d 32 2a | 6b 34 29 2d b2 28 30 2e |(2*k2-2*|k4)-.(0.|
|000027b0| 30 35 37 29 2a b5 28 6b | 32 2b 6b 33 2d 32 2a 6b |057)*.(k|2+k3-2*k|
|000027c0| 34 29 0d 0d 34 3f 6b 36 | 3d 6b 35 2b b2 28 30 2e |4)..4?k6|=k5+.(0.|
|000027d0| 36 35 39 33 29 2a b5 28 | 32 2a 6b 34 29 2b b2 28 |6593)*.(|2*k4)+.(|
|000027e0| 36 2e 32 33 30 33 29 2a | b5 28 6b 32 29 2d b2 28 |6.2303)*|.(k2)-.(|
|000027f0| 31 2e 32 37 32 29 2a b5 | 28 6b 32 2d 32 2a 6b 34 |1.272)*.|(k2-2*k4|
|00002800| 29 0d 0d 3e 29 6b 37 3d | b2 28 35 2e 31 34 34 29 |)..>)k7=|.(5.144)|
|00002810| 2a b5 28 6b 36 29 2d b2 | 28 30 2e 31 34 36 29 2a |*.(k6)-.|(0.146)*|
|00002820| b5 28 6b 35 2d 32 2a 6b | 34 29 0d 0d 48 05 e1 0d |.(k5-2*k|4)..H...|
|00002830| 0d 52 05 3a 0d 0d 5c 05 | 3a 0d 0d 66 0d dd f2 64 |.R.:..\.|:..f...d|
|00002840| 6f 70 70 6c 65 72 0d 0d | 70 84 f4 22 83 43 41 4c |oppler..|p..".CAL|
|00002850| 43 55 4c 41 54 49 4f 4e | 20 4f 46 20 44 4f 50 50 |CULATION| OF DOPP|
|00002860| 4c 45 52 20 53 48 49 46 | 54 20 86 83 46 4f 52 20 |LER SHIF|T ..FOR |
|00002870| 45 43 48 4f 45 53 20 4f | 4e 20 34 33 32 20 4d 48 |ECHOES O|N 432 MH|
|00002880| 7a 2e 20 41 4c 54 45 52 | 20 56 41 4c 55 45 20 4f |z. ALTER| VALUE O|
|00002890| 46 20 86 83 66 72 65 71 | 25 20 49 4e 20 50 52 4f |F ..freq|% IN PRO|
|000028a0| 43 69 6e 69 74 69 61 6c | 69 73 65 20 46 4f 52 20 |Cinitial|ise FOR |
|000028b0| 4f 54 48 45 52 20 20 20 | 20 20 20 83 46 52 45 51 |OTHER | .FREQ|
|000028c0| 55 45 4e 43 49 45 53 2e | 87 22 0d 0d 7a 07 ea 64 |UENCIES.|."..z..d|
|000028d0| 37 0d 0d 84 23 64 37 3d | 2d 2e 33 38 2a 28 b5 28 |7...#d7=|-.38*(.(|
|000028e0| 2e 35 32 36 2a 32 34 2a | 70 65 72 69 67 2f 35 37 |.526*24*|perig/57|
|000028f0| 2e 33 29 29 0d 0d 8e 37 | 64 6f 70 25 3d a8 28 66 |.3))...7|dop%=.(f|
|00002900| 72 65 71 25 2a 28 64 37 | 2d 28 33 2e 31 2a 9b 28 |req%*(d7|-(3.1*.(|
|00002910| 64 65 63 6c 29 2a 9b 28 | 6c 61 74 29 2a b5 28 2d |decl)*.(|lat)*.(-|
|00002920| 6c 68 61 29 29 29 2b 30 | 2e 35 29 0d 0d 98 05 e1 |lha)))+0|.5).....|
|00002930| 0d 0d a2 05 3a 0d 0d ac | 05 3a 0d 0d b6 0f dd f2 |....:...|.:......|
|00002940| 70 72 69 6e 74 74 69 6d | 65 0d 0d c0 19 f4 22 83 |printtim|e.....".|
|00002950| 50 52 49 4e 54 4f 55 54 | 20 4f 46 20 54 49 4d 45 |PRINTOUT| OF TIME|
|00002960| 87 22 0d 0d ca 33 f2 63 | 6c 6f 63 6b 3a 40 25 3d |."...3.c|lock:@%=|
|00002970| 26 39 30 32 3a ef 31 30 | 2c 31 31 2c 31 33 3a f1 |&902:.10|,11,13:.|
|00002980| 22 83 20 22 a4 66 6f 72 | 6d 61 74 28 74 69 6d 65 |". ".for|mat(time|
|00002990| 25 2c 34 29 3b 0d 0d d4 | 05 e1 0d 0d de 05 3a 0d |%,4);...|......:.|
|000029a0| 0d e8 05 3a 0d 0d f2 0a | dd a4 62 28 78 29 0d 0d |...:....|..b(x)..|
|000029b0| fc 24 f4 22 83 48 41 56 | 45 4e 27 54 20 41 20 43 |.$.".HAV|EN'T A C|
|000029c0| 4c 55 45 20 57 48 41 54 | 20 54 48 49 53 20 49 53 |LUE WHAT| THIS IS|
|000029d0| 87 22 0d 0e 06 11 3d 28 | 78 2d a8 28 78 29 29 2a |."....=(|x-.(x))*|
|000029e0| af 2a 32 0d 0e 10 05 3a | 0d 0e 1a 05 3a 0d 0e 24 |.*2....:|....:..$|
|000029f0| 0c dd f2 6e 6f 6d 6f 6f | 6e 0d 0e 2e 24 f4 22 83 |...nomoo|n...$.".|
|00002a00| 57 41 52 4e 20 49 46 20 | 4d 4f 4f 4e 20 44 49 44 |WARN IF |MOON DID|
|00002a10| 20 4e 4f 54 20 41 50 50 | 45 41 52 87 22 0d 0e 38 | NOT APP|EAR."..8|
|00002a20| 2a f1 22 83 20 42 65 6c | 6f 77 20 68 6f 72 69 7a |*.". Bel|ow horiz|
|00002a30| 6f 6e 20 64 75 72 69 6e | 67 20 74 68 69 73 20 70 |on durin|g this p|
|00002a40| 65 72 69 6f 64 21 22 0d | 0e 42 05 e1 0d 0e 4c 05 |eriod!".|.B....L.|
|00002a50| 3a 0d 0e 56 05 3a 0d 27 | 10 17 f4 22 83 45 52 52 |:..V.:.'|...".ERR|
|00002a60| 4f 52 20 54 52 41 50 50 | 49 4e 47 87 22 0d 27 1a |OR TRAPP|ING.".'.|
|00002a70| 0e e7 9f 3d 31 37 8c 8d | 44 78 40 0d 27 24 0e e7 |...=17..|Dx@.'$..|
|00002a80| 9f 3d 31 37 8c 8d 74 4c | 40 0d 27 2e 2b eb 37 3a |.=17..tL|@.'.+.7:|
|00002a90| 40 25 3d 26 39 30 41 3a | f1 27 3a f6 3a f1 22 20 |@%=&90A:|.':.:." |
|00002aa0| 61 74 20 6c 69 6e 65 20 | 22 3b 9e 27 27 3a 2a 46 |at line |";.'':*F|
|00002ab0| 58 34 2c 30 0d 27 38 05 | e0 0d 27 42 05 3a 0d 27 |X4,0.'8.|..'B.:.'|
|00002ac0| 4c 05 3a 0d ff 46 69 6c | 65 44 61 74 61 82 52 65 |L.:..Fil|eData.Re|
|00002ad0| 61 64 4d 65 00 45 fb f3 | ff 6c 04 00 00 41 ff ff |adMe.E..|.l...A..|
|00002ae0| ff a8 b9 ad d5 03 00 2d | eb 20 0a 20 20 20 20 20 |.......-|. . |
|00002af0| 20 20 20 20 20 20 20 20 | 49 4e 53 54 52 55 43 54 | |INSTRUCT|
|00002b00| 49 4f 4e 53 20 46 4f 52 | 20 53 55 4e 20 26 20 4d |IONS FOR| SUN & M|
|00002b10| 4f 4f 4e 20 50 52 4f 47 | 52 41 4d 53 0a 20 0a 0a |OON PROG|RAMS. ..|
|00002b20| 52 55 4e 4e 49 4e 47 20 | 54 48 45 20 50 52 4f 47 |RUNNING |THE PROG|
|00002b30| 52 41 4d 53 0a 0a 54 68 | 65 20 20 20 69 6e 73 74 |RAMS..Th|e inst|
|00002b40| 72 75 63 74 69 6f 6e 73 | 20 20 20 61 72 65 20 20 |ructions| are |
|00002b50| 63 6f 6e 74 61 69 6e 65 | 64 20 20 77 69 74 68 69 |containe|d withi|
|00002b60| 6e 20 20 74 68 65 20 20 | 70 72 6f 67 72 61 6d 73 |n the |programs|
|00002b70| 2c 20 20 61 6e 64 20 20 | 73 68 6f 75 6c 64 20 20 |, and |should |
|00002b80| 62 65 0a 73 65 6c 66 2d | 65 78 70 6c 61 6e 61 74 |be.self-|explanat|
|00002b90| 6f 72 79 2e 20 54 68 65 | 20 64 65 66 61 75 6c 74 |ory. The| default|
|00002ba0| 20 20 66 69 67 75 72 65 | 73 20 20 66 6f 72 20 20 | figure|s for |
|00002bb0| 4c 6f 6e 67 69 74 75 64 | 65 2c 20 20 4c 61 74 69 |Longitud|e, Lati|
|00002bc0| 74 75 64 65 20 20 65 74 | 63 2e 20 20 61 72 65 0a |tude et|c. are.|
|00002bd0| 73 75 69 74 61 62 6c 65 | 20 20 66 6f 72 20 20 74 |suitable| for t|
|00002be0| 68 65 20 20 61 75 74 68 | 6f 72 27 73 20 20 6c 6f |he auth|or's lo|
|00002bf0| 63 61 74 69 6f 6e 2e 20 | 20 49 66 20 79 6f 75 20 |cation. | If you |
|00002c00| 77 69 73 68 2c 20 79 6f | 75 20 63 61 6e 20 65 6e |wish, yo|u can en|
|00002c10| 74 65 72 20 79 6f 75 72 | 20 6f 77 6e 0a 64 65 74 |ter your| own.det|
|00002c20| 61 69 6c 73 20 69 6e 74 | 6f 20 74 68 65 20 70 72 |ails int|o the pr|
|00002c30| 6f 63 65 64 75 72 65 20 | 22 44 45 46 50 52 4f 43 |ocedure |"DEFPROC|
|00002c40| 69 6e 69 74 69 61 6c 69 | 73 65 22 2e 20 54 68 65 |initiali|se". The|
|00002c50| 20 61 70 70 72 6f 70 72 | 69 61 74 65 20 6c 69 6e | appropr|iate lin|
|00002c60| 65 20 6e 75 6d 62 65 72 | 73 0a 61 72 65 20 20 32 |e number|s.are 2|
|00002c70| 36 34 30 20 20 69 6e 20 | 20 74 68 65 20 20 53 75 |640 in | the Su|
|00002c80| 6e 20 20 70 72 6f 67 72 | 61 6d 2c 20 20 61 6e 64 |n progr|am, and|
|00002c90| 20 32 35 39 30 20 69 6e | 20 74 68 65 20 4d 6f 6f | 2590 in| the Moo|
|00002ca0| 6e 20 70 72 6f 67 72 61 | 6d 2e 20 49 6e 20 74 68 |n progra|m. In th|
|00002cb0| 65 20 4d 6f 6f 6e 0a 70 | 72 6f 67 72 61 6d 2c 20 |e Moon.p|rogram, |
|00002cc0| 79 6f 75 20 63 61 6e 20 | 61 6c 73 6f 20 20 61 6c |you can |also al|
|00002cd0| 74 65 72 20 20 74 68 65 | 20 20 66 72 65 71 75 65 |ter the| freque|
|00002ce0| 6e 63 79 20 20 75 73 65 | 64 20 20 66 6f 72 20 20 |ncy use|d for |
|00002cf0| 74 68 65 20 20 44 6f 70 | 70 6c 65 72 20 20 73 68 |the Dop|pler sh|
|00002d00| 69 66 74 0a 63 61 6c 63 | 75 6c 61 74 69 6f 6e 2c |ift.calc|ulation,|
|00002d10| 20 28 34 33 32 4d 48 7a | 20 6e 6f 72 6d 61 6c 6c | (432MHz| normall|
|00002d20| 79 29 2e 0a 0a 49 20 63 | 61 6e 6e 6f 74 20 67 75 |y)...I c|annot gu|
|00002d30| 61 72 61 6e 74 65 65 20 | 74 68 65 20 61 63 63 75 |arantee |the accu|
|00002d40| 72 61 63 79 20 6f 66 20 | 74 68 65 20 53 75 6e 20 |racy of |the Sun |
|00002d50| 70 72 6f 67 72 61 6d 20 | 2d 20 49 20 73 75 73 70 |program |- I susp|
|00002d60| 65 63 74 20 74 68 65 72 | 65 20 6d 61 79 0a 68 61 |ect ther|e may.ha|
|00002d70| 76 65 20 62 65 65 6e 20 | 61 6e 20 65 72 72 6f 72 |ve been |an error|
|00002d80| 20 69 6e 20 74 68 65 20 | 6f 72 69 67 69 6e 61 6c | in the |original|
|00002d90| 20 41 70 70 6c 65 20 70 | 72 6f 67 72 61 6d 20 66 | Apple p|rogram f|
|00002da0| 72 6f 6d 20 77 68 69 63 | 68 20 69 74 20 77 61 73 |rom whic|h it was|
|00002db0| 0a 63 6f 6e 76 65 72 74 | 65 64 21 20 0a 0a 0a 43 |.convert|ed! ...C|
|00002dc0| 4f 50 59 52 49 47 48 54 | 20 4e 4f 54 49 43 45 0a |OPYRIGHT| NOTICE.|
|00002dd0| 0a 54 68 69 73 20 70 72 | 6f 67 72 61 6d 20 69 73 |.This pr|ogram is|
|00002de0| 20 6e 6f 77 20 69 6e 20 | 74 68 65 20 50 75 62 6c | now in |the Publ|
|00002df0| 69 63 20 44 6f 6d 61 69 | 6e 2e 20 50 6c 65 61 73 |ic Domai|n. Pleas|
|00002e00| 65 20 20 66 65 65 6c 20 | 20 66 72 65 65 20 20 74 |e feel | free t|
|00002e10| 6f 20 20 64 69 73 74 72 | 69 62 75 74 65 0a 55 4e |o distr|ibute.UN|
|00002e20| 4d 4f 44 49 46 49 45 44 | 20 20 63 6f 70 69 65 73 |MODIFIED| copies|
|00002e30| 20 74 6f 20 6f 74 68 65 | 72 20 70 61 72 74 69 65 | to othe|r partie|
|00002e40| 73 2c 20 70 72 6f 76 69 | 64 65 64 20 74 68 61 74 |s, provi|ded that|
|00002e50| 20 74 68 69 73 20 69 73 | 20 6e 6f 74 20 69 6e 20 | this is| not in |
|00002e60| 72 65 74 75 72 6e 20 66 | 6f 72 0a 70 61 79 6d 65 |return f|or.payme|
|00002e70| 6e 74 2c 20 61 6e 64 20 | 4f 4e 4c 59 20 69 66 20 |nt, and |ONLY if |
|00002e80| 61 63 63 6f 6d 70 61 6e | 69 65 64 20 62 79 20 74 |accompan|ied by t|
|00002e90| 68 69 73 20 64 6f 63 75 | 6d 65 6e 74 61 74 69 6f |his docu|mentatio|
|00002ea0| 6e 20 66 69 6c 65 2e 0a | 0a 27 52 69 63 6b 27 20 |n file..|.'Rick' |
|00002eb0| 53 74 65 72 72 79 20 47 | 34 42 4c 54 20 40 20 47 |Sterry G|4BLT @ G|
|00002ec0| 42 37 59 41 58 20 20 20 | 20 20 20 20 20 20 20 20 |B7YAX | |
|00002ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002ee0| 28 43 29 20 42 4c 54 20 | 53 6f 66 74 77 61 72 65 |(C) BLT |Software|
|00002ef0| 20 31 39 38 34 0a 31 20 | 57 61 76 65 6c 6c 20 47 | 1984.1 |Wavell G|
|00002f00| 61 72 74 68 0a 53 61 6e | 64 61 6c 20 4d 61 67 6e |arth.San|dal Magn|
|00002f10| 61 0a 57 41 4b 45 46 49 | 45 4c 44 0a 57 65 73 74 |a.WAKEFI|ELD.West|
|00002f20| 20 59 6f 72 6b 73 68 69 | 72 65 0a 57 46 32 20 36 | Yorkshi|re.WF2 6|
|00002f30| 4a 50 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |JP | |
|00002f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002f50| 20 20 20 20 0a | | . | |
+--------+-------------------------+-------------------------+--------+--------+
