Multiple names: ORE, ORRERY

00000000: 01 08 11 08 E8 03 8F 20  4F 52 52 45 52 59 20 38  |....... ORRERY 8|
00000010: 38 00 32 08 F2 03 8F 20  38 2F 31 2F 38 38 20 50  |8.2.... 8/1/88 P|
00000020: 52 4F 47 52 41 4D 2D 20  44 41 56 49 44 20 43 4F  |ROGRAM- DAVID CO|
00000030: 4F 4B 00 45 08 FC 03 8F  20 2D 45 50 4F 43 48 20  |OK.E.... -EPOCH |
00000040: 31 39 38 38 2D 00 69 08  06 04 8F 20 4D 4F 53 54  |1988-.i.... MOST|
00000050: 20 46 4F 52 4D 55 4C 41  45 20 42 41 53 45 44 20  | FORMULAE BASED |
00000060: 4F 4E 2D 20 50 52 41 43  54 00 8E 08 10 04 8F 20  |ON- PRACT...... |
00000070: 41 53 54 52 4F 4E 4F 4D  59 20 57 49 54 48 20 59  |ASTRONOMY WITH Y|
00000080: 4F 55 52 20 43 41 4C 43  55 4C 41 54 4F 52 00 A2  |OUR CALCULATOR..|
00000090: 08 1A 04 8F 20 42 59 20  20 50 20 44 2D 53 4D 49  |.... BY  P D-SMI|
000000A0: 54 48 00 C7 08 24 04 8F  2A 2A 2A 2A 2A 2A 2A 2A  |TH...$..********|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
000000C0: 2A 2A 2A 2A 2A 2A 2A 00  D9 08 2E 04 8D 33 35 31  |*******......351|
000000D0: 30 3A 8F 20 53 45 54 55  50 00 F2 08 38 04 8D 34  |0:. SETUP...8..4|
000000E0: 39 38 30 3A 8F 20 43 4F  2D 4F 52 44 49 4E 41 54  |980:. CO-ORDINAT|
000000F0: 45 53 00 03 09 42 04 8D  31 34 31 30 3A 8F 20 44  |ES...B..1410:. D|
00000100: 41 54 45 00 14 09 4C 04  8D 31 35 34 30 3A 8F 20  |ATE...L..1540:. |
00000110: 54 49 4D 45 00 2B 09 56  04 8D 31 36 35 30 3A 8F  |TIME.+.V..1650:.|
00000120: 20 4A 55 4C 49 41 4E 20  44 41 59 00 45 09 60 04  | JULIAN DAY.E.`.|
00000130: 8D 31 37 37 30 3A 8F 20  53 49 44 45 52 45 41 4C  |.1770:. SIDEREAL|
00000140: 20 54 49 4D 45 00 5B 09  6A 04 8D 31 38 38 30 3A  | TIME.[.j..1880:|
00000150: 8F 20 4F 42 4C 49 51 55  49 54 59 00 6F 09 74 04  |. OBLIQUITY.o.t.|
00000160: 8D 31 39 34 30 3A 8F 20  41 4E 4F 4D 41 4C 59 00  |.1940:. ANOMALY.|
00000170: 8F 09 7E 04 8D 32 31 34  30 3A 8F 20 4A 55 50 2F  |..~..2140:. JUP/|
00000180: 53 41 54 20 50 45 54 55  52 42 41 54 49 4F 4E 00  |SAT PETURBATION.|
00000190: A9 09 88 04 8D 31 39 31  30 3A 8F 20 52 41 44 49  |.....1910:. RADI|
000001A0: 55 53 20 56 45 43 54 4F  52 00 C8 09 92 04 8D 32  |US VECTOR......2|
000001B0: 32 31 30 3A 8F 20 48 45  4C 49 4F 43 45 4E 54 20  |210:. HELIOCENT |
000001C0: 45 43 4C 49 50 54 49 43  00 E8 09 9C 04 8D 32 33  |ECLIPTIC......23|
000001D0: 33 30 3A 8F 20 47 45 4F  43 45 4E 54 52 49 43 20  |30:. GEOCENTRIC |
000001E0: 45 43 4C 49 50 54 49 43  00 08 0A A6 04 8D 32 35  |ECLIPTIC......25|
000001F0: 35 30 3A 8F 20 45 43 4C  49 50 54 43 20 54 4F 20  |50:. ECLIPTC TO |
00000200: 45 51 55 41 54 4F 52 4C  00 25 0A B0 04 8D 32 34  |EQUATORL.%....24|
00000210: 39 30 3A 8F 20 53 4F 4C  41 52 20 45 4C 4F 4E 47  |90:. SOLAR ELONG|
00000220: 41 54 49 4F 4E 00 46 0A  BA 04 8D 32 36 37 30 3A  |ATION.F....2670:|
00000230: 8F 20 48 4F 52 49 5A 4F  4E 20 43 4F 2D 4F 52 44  |. HORIZON CO-ORD|
00000240: 49 4E 41 54 45 53 00 5F  0A C4 04 8D 32 39 37 30  |INATES._....2970|
00000250: 3A 8F 20 52 49 53 45 20  41 4E 44 20 53 45 54 00  |:. RISE AND SET.|
00000260: 7C 0A CE 04 8D 34 30 38  30 3A 8F 20 50 52 49 4E  ||....4080:. PRIN|
00000270: 54 4F 55 54 20 53 54 52  49 4E 47 53 00 91 0A D8  |TOUT STRINGS....|
00000280: 04 8D 34 33 38 30 3A 8F  20 50 52 49 4E 54 4F 55  |..4380:. PRINTOU|
00000290: 54 00 A2 0A E2 04 8D 33  31 37 30 3A 8F 20 4D 45  |T......3170:. ME|
000002A0: 4E 55 00 C0 0A EC 04 8B  5A 5A 24 B2 22 44 22 A7  |NU......ZZ$."D".|
000002B0: 89 31 30 39 30 3A 8F 20  4E 45 57 20 44 41 54 45  |.1090:. NEW DATE|
000002C0: 00 E3 0A F6 04 8B 5A 5A  24 B2 22 54 22 A7 99 22  |......ZZ$."T".."|
000002D0: 93 22 3A 89 31 31 30 30  3A 8F 20 4E 45 57 20 54  |.":.1100:. NEW T|
000002E0: 49 4D 45 00 12 0B 00 05  8B 5A 5A 24 B2 22 53 22  |IME......ZZ$."S"|
000002F0: A7 8D 33 34 35 30 3A 8D  33 33 31 30 3A 89 31 31  |..3450:.3310:.11|
00000300: 31 30 3A 8F 20 53 54 45  50 20 44 41 59 2F 54 49  |10:. STEP DAY/TI|
00000310: 4D 45 00 3A 0B 0A 05 8B  5A 5A 24 B2 22 31 22 A7  |ME.:....ZZ$."1".|
00000320: 46 4C B2 31 3A 8D 34 33  38 30 3A 8F 20 47 4F 20  |FL.1:.4380:. GO |
00000330: 54 4F 20 31 53 54 20 50  2F 4F 00 62 0B 14 05 8B  |TO 1ST P/O.b....|
00000340: 5A 5A 24 B2 22 32 22 A7  46 4C B2 32 3A 8D 34 33  |ZZ$."2".FL.2:.43|
00000350: 38 30 3A 8F 20 47 4F 20  54 4F 20 32 4E 44 20 50  |80:. GO TO 2ND P|
00000360: 2F 4F 00 8A 0B 1E 05 8B  5A 5A 24 B2 22 33 22 A7  |/O......ZZ$."3".|
00000370: 46 4C B2 33 3A 8D 34 33  38 30 3A 8F 20 47 4F 20  |FL.3:.4380:. GO |
00000380: 54 4F 20 33 52 44 20 50  2F 4F 00 B2 0B 28 05 8B  |TO 3RD P/O...(..|
00000390: 5A 5A 24 B2 22 49 22 A7  46 4C B2 34 3A 8D 34 33  |ZZ$."I".FL.4:.43|
000003A0: 38 30 3A 8F 20 47 4F 20  54 4F 20 34 54 48 20 50  |80:. GO TO 4TH P|
000003B0: 2F 4F 00 D1 0B 32 05 8B  5A 5A 24 B2 22 50 22 A7  |/O...2..ZZ$."P".|
000003C0: 8D 33 31 34 30 3A 8D 34  33 38 30 3A 8D 33 31 35  |.3140:.4380:.315|
000003D0: 30 00 F8 0B 3C 05 8B 5A  5A 24 B2 22 4B 22 A7 8D  |0...<..ZZ$."K"..|
000003E0: 34 37 32 30 3A 89 31 32  34 30 3A 8F 20 44 49 53  |4720:.1240:. DIS|
000003F0: 50 4C 41 59 20 4B 45 59  00 1F 0C 46 05 8B 5A 5A  |PLAY KEY...F..ZZ|
00000400: 24 B2 22 4D 22 A7 8D 34  38 30 30 3A 89 31 32 34  |$."M"..4800:.124|
00000410: 30 3A 8F 20 44 49 53 50  4C 41 59 20 4D 41 50 00  |0:. DISPLAY MAP.|
00000420: 54 0C 50 05 8B 5A 5A 24  B2 22 43 22 A7 8D 34 39  |T.P..ZZ$."C"..49|
00000430: 39 30 3A 8D 31 37 37 30  3A 89 31 31 39 30 3A 8F  |90:.1770:.1190:.|
00000440: 20 43 48 41 4E 47 45 20  43 4F 2D 4F 52 44 49 4E  | CHANGE CO-ORDIN|
00000450: 41 54 45 53 00 63 0C 5A  05 8B 5A 5A 24 B2 22 42  |ATES.c.Z..ZZ$."B|
00000460: 22 A7 90 00 6D 0C 64 05  89 31 32 35 30 00 73 0C  |"...m.d..1250.s.|
00000470: 6E 05 80 00 98 0C 78 05  8F 2A 2A 2A 2A 2A 2A 2A  |n.....x..*******|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A  2A 2A 2A 2A 2A 2A 2A 2A  |****************|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A  00 A9 0C 82 05 8F 20 45  |********...... E|
000004A0: 4E 54 45 52 20 44 41 54  45 00 B7 0C 8C 05 99 22  |NTER DATE......"|
000004B0: 93 11 11 11 11 11 22 00  EB 0C 96 05 99 22 59 45  |......"......"YE|
000004C0: 41 52 20 20 22 3B C9 28  53 24 AA 59 41 24 2C 35  |AR  ";.(S$.YA$,5|
000004D0: 29 3B 3A 5A 24 B2 22 22  3A 85 5A 24 3A 8B 5A 24  |);:Z$."":.Z$:.Z$|
000004E0: B3 B1 22 22 A7 59 41 24  B2 5A 24 00 1F 0D A0 05  |.."".YA$.Z$.....|
000004F0: 99 22 4D 4F 4E 54 48 20  22 3B C9 28 53 24 AA 4D  |."MONTH ";.(S$.M|
00000500: 41 24 2C 35 29 3B 3A 5A  24 B2 22 22 3A 85 5A 24  |A$,5);:Z$."":.Z$|
00000510: 3A 8B 5A 24 B3 B1 22 22  A7 4D 41 24 B2 5A 24 00  |:.Z$.."".MA$.Z$.|
00000520: 53 0D AA 05 99 22 44 41  59 20 20 20 22 3B C9 28  |S...."DAY   ";.(|
00000530: 53 24 AA 44 41 24 2C 35  29 3B 3A 5A 24 B2 22 22  |S$.DA$,5);:Z$.""|
00000540: 3A 85 5A 24 3A 8B 5A 24  B3 B1 22 22 A7 44 41 24  |:.Z$:.Z$.."".DA$|
00000550: B2 5A 24 00 75 0D B4 05  59 41 B2 C5 28 59 41 24  |.Z$.u...YA..(YA$|
00000560: 29 3A 4D 41 B2 C5 28 4D  41 24 29 3A 44 41 B2 C5  |):MA..(MA$):DA..|
00000570: 28 44 41 24 29 00 A0 0D  BE 05 58 31 B2 B5 28 44  |(DA$).....X1..(D|
00000580: 41 29 3A 58 32 B2 44 41  AB 58 31 3A 47 4D B2 B5  |A):X2.DA.X1:GM..|
00000590: 28 58 32 AC 32 34 30 30  AA 2E 35 29 AD 31 30 30  |(X2.2400..5).100|
000005A0: 00 D3 0D C8 05 44 45 24  B2 C4 28 58 31 29 3A 44  |.....DE$..(X1):D|
000005B0: 42 24 B2 C9 28 53 24 AA  44 45 24 2C C3 28 44 45  |B$..(S$.DE$,.(DE|
000005C0: 24 29 AB 31 29 3A 44 43  24 B2 C4 28 A5 47 28 58  |$).1):DC$..(.G(X|
000005D0: 32 29 29 00 07 0E D2 05  8B 47 4D B1 30 A7 54 24  |2))......GM.0.T$|
000005E0: B2 C4 28 47 4D 29 3A 47  4D 24 B2 C4 28 A5 47 28  |..(GM):GM$..(.G(|
000005F0: 47 4D 29 29 3A 58 30 B2  47 4D 3A 8D 32 37 38 30  |GM)):X0.GM:.2780|
00000600: 3A 54 31 24 B2 48 24 00  44 0E DC 05 8B 47 4D B1  |:T1$.H$.D....GM.|
00000610: 30 A7 99 22 91 44 41 59  20 20 20 20 20 20 20 20  |0..".DAY        |
00000620: 20 20 22 3B 44 42 24 3B  22 20 20 22 3B 22 28 22  |  ";DB$;"  ";"("|
00000630: 3B 44 43 24 3B 22 29 22  3B 22 20 20 20 20 20 20  |;DC$;")";"      |
00000640: 20 20 20 22 00 60 0E E6  05 44 54 24 B2 44 42 24  |   ".`...DT$.DB$|
00000650: AA 22 2F 22 AA 4D 41 24  AA 22 2F 22 AA 59 41 24  |."/".MA$."/".YA$|
00000660: 00 66 0E F0 05 8E 00 6C  0E FA 05 3A 00 7D 0E 04  |.f.....l...:.}..|
00000670: 06 8F 20 45 4E 54 45 52  20 54 49 4D 45 00 9E 0E  |.. ENTER TIME...|
00000680: 0E 06 99 3A 99 22 44 45  43 20 48 52 53 20 20 20  |...:."DEC HRS   |
00000690: 20 20 20 22 3B 47 4D 24  3A 99 22 4F 52 22 00 B7  |   ";GM$:."OR"..|
000006A0: 0E 18 06 99 22 48 48 2A  4D 4D 2A 53 53 20 20 20  |...."HH*MM*SS   |
000006B0: 20 20 22 3B 54 31 24 00  D0 0E 22 06 99 22 28 45  |  ";T1$...".."(E|
000006C0: 2E 47 22 3A 99 22 30 32  2A 30 38 2A 30 30 29 22  |.G":."02*08*00)"|
000006D0: 00 EC 0E 2C 06 99 3A 99  22 54 49 4D 45 20 20 20  |...,..:."TIME   |
000006E0: 20 20 20 20 20 20 22 3B  47 4D 24 3B 00 08 0F 36  |      ";GM$;...6|
000006F0: 06 5A 24 B2 22 22 3A 85  5A 24 3A 8B 5A 24 B3 B1  |.Z$."":.Z$:.Z$..|
00000700: 22 22 A7 54 24 B2 5A 24  00 1A 0F 40 06 8B 54 24  |"".T$.Z$...@..T$|
00000710: B2 22 22 A7 54 24 B2 22  30 22 00 3D 0F 4A 06 47  |."".T$."0".=.J.G|
00000720: 4D B2 C5 28 54 24 29 3A  8B CA 28 54 24 2C 33 2C  |M..(T$):..(T$,3,|
00000730: 31 29 B3 B1 22 2A 22 A7  89 31 36 33 30 00 6D 0F  |1).."*"..1630.m.|
00000740: 54 06 47 4D B2 47 4D AA  C5 28 CA 28 54 24 2C 34  |T.GM.GM..(.(T$,4|
00000750: 2C 32 29 29 AD 36 30 AA  C5 28 C9 28 54 24 2C C3  |,2)).60..(.(T$,.|
00000760: 28 54 24 29 AB 36 29 29  AD 33 36 30 30 00 94 0F  |(T$).6)).3600...|
00000770: 5E 06 58 30 B2 47 4D 3A  8D 32 37 38 30 3A 54 31  |^.X0.GM:.2780:T1|
00000780: 24 B2 48 24 3A 47 4D 24  B2 C4 28 A5 47 28 47 4D  |$.H$:GM$..(.G(GM|
00000790: 29 29 3A 8E 00 9A 0F 68  06 3A 00 AF 0F 72 06 8F  |)):....h.:...r..|
000007A0: 20 4A 55 4C 49 41 4E 20  44 41 59 20 53 55 42 00  | JULIAN DAY SUB.|
000007B0: C7 0F 7C 06 99 53 33 24  3B 53 31 24 3B 22 4A 55  |..|..S3$;S1$;"JU|
000007C0: 4C 20 44 41 59 22 3B 00  EE 0F 86 06 59 44 B2 59  |L DAY";.....YD.Y|
000007D0: 41 3A 4D 43 B2 4D 41 3A  8B 4D 43 B3 33 A7 59 44  |A:MC.MA:.MC.3.YD|
000007E0: B2 59 44 AB 31 3A 4D 43  B2 4D 43 AA 31 32 00 17  |.YD.1:MC.MC.12..|
000007F0: 10 90 06 58 31 B2 B5 28  33 36 35 2E 32 35 AC 59  |...X1..(365.25.Y|
00000800: 44 29 3A 58 32 B2 B5 28  33 30 2E 36 30 30 31 AC  |D):X2..(30.6001.|
00000810: 28 4D 43 AA 31 29 29 00  36 10 9A 06 4A 4E B2 58  |(MC.1)).6...JN.X|
00000820: 31 AA 58 32 AA 44 41 AA  31 37 32 30 39 39 34 2E  |1.X2.DA.1720994.|
00000830: 35 3A 4A 50 B2 30 00 6C  10 A4 06 8B 4A 4E B1 32  |5:JP.0.l....JN.2|
00000840: 32 39 39 31 37 31 A7 58  34 B2 B5 28 59 44 AD 31  |299171.X4..(YD.1|
00000850: 30 30 29 3A 4A 50 B2 32  AB 58 34 AA B5 28 58 34  |00):JP.2.X4..(X4|
00000860: AD 34 29 3A 4A 4E B2 4A  4E AA 4A 50 00 91 10 AE  |.4):JN.JN.JP....|
00000870: 06 4A 59 B2 4A 50 AA B5  28 33 36 35 2E 32 35 AC  |.JY.JP..(365.25.|
00000880: 28 59 41 AB 31 29 29 AA  31 37 32 31 34 32 32 2E  |(YA.1)).1721422.|
00000890: 35 00 D2 10 B8 06 4A 44  B2 4A 4E AA 47 4D AD 32  |5.....JD.JN.GM.2|
000008A0: 34 3A 44 4E B2 4A 44 AB  4A 59 3A 4A 45 B2 4A 44  |4:DN.JD.JY:JE.JD|
000008B0: AB 45 50 4F 43 48 3A 4A  43 B2 28 4A 44 AB 4B 31  |.EPOCH:JC.(JD.K1|
000008C0: 29 AD 4B 32 3A 59 43 B2  28 4A 59 AB 4B 31 29 AD  |).K2:YC.(JY.K1).|
000008D0: 4B 32 00 FA 10 C2 06 58  35 B2 28 4A 4E AA 31 2E  |K2.....X5.(JN.1.|
000008E0: 35 29 AD 37 3A 58 36 B2  B5 28 28 58 35 AB B5 28  |5).7:X6..((X5..(|
000008F0: 58 35 29 29 AC 37 AA 2E  35 29 00 09 11 CC 06 44  |X5)).7..5).....D|
00000900: 31 24 B2 44 24 28 58 36  29 00 0F 11 D6 06 8E 00  |1$.D$(X6).......|
00000910: 15 11 E0 06 3A 00 29 11  EA 06 8F 20 53 49 44 45  |....:.).... SIDE|
00000920: 52 45 41 4C 20 54 49 4D  45 00 68 11 F4 06 58 31  |REAL TIME.h...X1|
00000930: B2 4F 33 AA 4F 34 AC 59  43 AA 4F 35 AC 59 43 AE  |.O3.O4.YC.O5.YC.|
00000940: 32 3A 42 31 B2 32 34 AB  28 58 31 AB 32 34 AC 28  |2:B1.24.(X1.24.(|
00000950: 59 44 AB 31 39 30 30 29  29 3A 58 32 B2 4F 30 AC  |YD.1900)):X2.O0.|
00000960: B5 28 44 4E 29 AB 42 31  00 88 11 FE 06 47 53 B2  |.(DN).B1.....GS.|
00000970: 47 4D AC 4F 31 AA 58 32  3A 8B 47 53 B1 32 34 A7  |GM.O1.X2:.GS.24.|
00000980: 47 53 B2 47 53 AB 32 34  00 9B 11 08 07 8B 47 53  |GS.GS.24......GS|
00000990: B3 30 A7 47 53 B2 47 53  AA 32 34 00 B2 11 12 07  |.0.GS.GS.24.....|
000009A0: 58 30 B2 47 53 3A 8D 32  37 38 30 3A 47 53 24 B2  |X0.GS:.2780:GS$.|
000009B0: 48 24 00 D2 11 1C 07 4C  53 B2 47 53 AA 4C 4F AD  |H$.....LS.GS.LO.|
000009C0: 31 35 3A 8B 4C 53 B1 32  34 A7 4C 53 B2 4C 53 AB  |15:.LS.24.LS.LS.|
000009D0: 32 34 00 E5 11 26 07 8B  4C 53 B3 30 A7 4C 53 B2  |24...&..LS.0.LS.|
000009E0: 4C 53 AA 32 34 00 05 12  30 07 4C 4D B2 47 4D AA  |LS.24...0.LM.GM.|
000009F0: 4C 4F AD 31 35 3A 8B 4C  4D B1 32 34 A7 4C 4D B2  |LO.15:.LM.24.LM.|
00000A00: 4C 4D AB 32 34 00 18 12  3A 07 8B 4C 4D B3 30 A7  |LM.24...:..LM.0.|
00000A10: 4C 4D B2 4C 4D AA 32 34  00 1E 12 44 07 8E 00 24  |LM.LM.24...D...$|
00000A20: 12 4E 07 3A 00 38 12 58  07 8F 20 4F 42 4C 49 51  |.N.:.8.X.. OBLIQ|
00000A30: 55 49 54 59 20 53 55 42  00 6A 12 62 07 58 31 B2  |UITY SUB.j.b.X1.|
00000A40: 4C 37 AB 28 4C 34 AC 4A  43 AA 4C 35 AC 4A 43 AE  |L7.(L4.JC.L5.JC.|
00000A50: 32 AB 4C 36 AC 4A 43 AE  33 29 AD 33 36 30 30 3A  |2.L6.JC.3).3600:|
00000A60: 4F 42 B2 58 31 AC 52 44  3A 8E 00 70 12 6C 07 3A  |OB.X1.RD:..p.l.:|
00000A70: 00 84 12 76 07 8F 20 52  41 44 49 55 53 20 56 45  |...v.. RADIUS VE|
00000A80: 43 54 4F 52 00 BF 12 80  07 81 41 B2 30 A4 39 3A  |CTOR......A.0.9:|
00000A90: 52 56 28 41 29 B2 52 41  28 41 29 AC 28 31 AB 45  |RV(A).RA(A).(1.E|
00000AA0: 43 28 41 29 AE 32 29 AD  28 31 AA 45 43 28 41 29  |C(A).2).(1.EC(A)|
00000AB0: AC BE 28 41 4E 28 41 29  29 29 3A 82 41 3A 8E 00  |..(AN(A))):.A:..|
00000AC0: C5 12 8A 07 3A 00 D7 12  94 07 8F 20 41 4E 4F 4D  |....:...... ANOM|
00000AD0: 41 4C 59 20 53 55 42 00  F0 12 9E 07 99 53 33 24  |ALY SUB......S3$|
00000AE0: 3B 53 31 24 3B 22 41 4E  4F 4D 41 4C 4C 59 22 3B  |;S1$;"ANOMALLY";|
00000AF0: 00 FF 12 A8 07 81 41 B2  30 A4 39 3A 99 41 3B 00  |......A.0.9:.A;.|
00000B00: 1E 13 B2 07 4C 45 B2 4C  45 28 41 29 3A 4C 50 B2  |....LE.LE(A):LP.|
00000B10: 4C 50 28 41 29 3A 45 43  B2 45 43 28 41 29 00 5A  |LP(A):EC.EC(A).Z|
00000B20: 13 BC 07 58 31 B2 57 34  AC 4A 45 AD 33 36 35 2E  |...X1.W4.JE.365.|
00000B30: 32 34 32 32 AD 54 50 28  41 29 3A 58 32 B2 B6 28  |2422.TP(A):X2..(|
00000B40: 58 31 29 3A 58 33 B2 28  58 32 AD 57 34 AB B5 28  |X1):X3.(X2.W4..(|
00000B50: 58 32 AD 57 34 29 29 AC  57 34 00 6D 13 C6 07 8B  |X2.W4)).W4.m....|
00000B60: 58 31 B3 30 A7 58 33 B2  57 34 AB 58 33 00 8C 13  |X1.0.X3.W4.X3...|
00000B70: D0 07 41 4D B2 58 33 AA  4C 45 AB 4C 50 3A 8B 41  |..AM.X3.LE.LP:.A|
00000B80: 4D B3 30 A7 41 4D B2 41  4D AA 57 34 00 B3 13 DA  |M.0.AM.AM.W4....|
00000B90: 07 8B 41 4D B1 57 34 A7  41 4D B2 41 4D AB 57 34  |..AM.W4.AM.AM.W4|
00000BA0: 3A 8F 20 4F 52 42 49 54  41 4C 20 50 4F 53 49 54  |:. ORBITAL POSIT|
00000BB0: 49 4F 4E 00 B9 13 E4 07  3A 00 CC 13 EE 07 8F 20  |ION.....:...... |
00000BC0: 53 4F 4C 56 45 20 4B 45  50 4C 45 52 00 D6 13 F8  |SOLVE KEPLER....|
00000BD0: 07 58 35 B2 41 4D 00 EC  13 02 08 58 36 B2 58 35  |.X5.AM.....X6.X5|
00000BE0: AB 45 43 AC BF 28 58 35  29 AB 41 4D 00 1E 14 0C  |.EC..(X5).AM....|
00000BF0: 08 8B B6 28 58 36 29 B1  31 45 AB 36 A7 58 39 B2  |...(X6).1E.6.X9.|
00000C00: 58 36 AD 28 31 AB 45 43  AC BE 28 58 35 29 29 3A  |X6.(1.EC..(X5)):|
00000C10: 58 35 B2 58 35 AB 58 39  3A 89 32 30 35 30 00 40  |X5.X5.X9:.2050.@|
00000C20: 14 16 08 58 37 B2 28 28  31 AA 45 43 29 AD 28 31  |...X7.((1.EC).(1|
00000C30: AB 45 43 29 29 AE 2E 35  AC C0 28 58 35 AD 32 29  |.EC))..5..(X5.2)|
00000C40: 00 59 14 20 08 41 4E B2  C1 28 58 37 29 AC 32 3A  |.Y. .AN..(X7).2:|
00000C50: 8F 20 41 4E 4F 4D 41 4C  59 00 76 14 2A 08 50 41  |. ANOMALY.v.*.PA|
00000C60: B2 41 4E AA 4C 50 3A 8B  50 41 B1 57 34 A7 50 41  |.AN.LP:.PA.W4.PA|
00000C70: B2 50 41 AB 57 34 00 89  14 34 08 8B 50 41 B3 30  |.PA.W4...4..PA.0|
00000C80: A7 50 41 B2 50 41 AA 57  34 00 BD 14 3E 08 41 4E  |.PA.PA.W4...>.AN|
00000C90: 28 41 29 B2 41 4E 3A 50  41 28 41 29 B2 50 41 3A  |(A).AN:PA(A).PA:|
00000CA0: 8F 20 41 4E 4F 4D 41 4C  59 20 26 20 4F 52 42 49  |. ANOMALY & ORBI|
00000CB0: 54 41 4C 20 4C 4F 4E 47  49 54 55 44 45 00 C6 14  |TAL LONGITUDE...|
00000CC0: 48 08 82 41 3A 8E 00 CC  14 52 08 3A 00 E6 14 5C  |H..A:....R.:...\|
00000CD0: 08 8F 20 4A 55 50 2F 53  41 54 20 50 45 54 55 52  |.. JUP/SAT PETUR|
00000CE0: 42 41 54 49 4F 4E 00 2D  15 66 08 58 32 B2 4A 43  |BATION.-.f.X2.JC|
00000CF0: AD 35 AA 2E 31 3A 58 33  B2 28 4B 33 AA 4B 34 AC  |.5..1:X3.(K3.K4.|
00000D00: 4A 43 29 AC 52 44 3A 58  34 B2 28 4B 35 AA 4B 36  |JC).RD:X4.(K5.K6|
00000D10: AC 4A 43 29 AC 52 44 3A  58 35 B2 35 AC 58 34 AB  |.JC).RD:X5.5.X4.|
00000D20: 32 AC 58 33 3A 58 36 B2  58 34 AB 58 33 00 63 15  |2.X3:X6.X4.X3.c.|
00000D30: 70 08 50 4A B2 28 4D 30  AB 4D 38 AC 58 32 29 AC  |p.PJ.(M0.M8.X2).|
00000D40: BF 28 58 35 29 AB 4D 32  AC 58 32 AC BE 28 58 35  |.(X5).M2.X2..(X5|
00000D50: 29 3A 50 41 28 35 29 B2  50 41 28 35 29 AA 50 4A  |):PA(5).PA(5).PJ|
00000D60: AC 52 44 00 94 15 7A 08  58 38 B2 AB 4C 30 AC BF  |.RD...z.X8..L0..|
00000D70: 28 32 AC 58 36 29 AA 4C  31 AC BF 28 58 36 29 AC  |(2.X6).L1..(X6).|
00000D80: BE 28 58 34 29 AA 4C 32  AC BE 28 58 36 29 AC BF  |.(X4).L2..(X6)..|
00000D90: 28 58 34 29 00 C6 15 84  08 58 37 B2 28 4D 39 AC  |(X4).....X7.(M9.|
00000DA0: 58 32 AB 4D 34 29 AC BE  28 58 35 29 AA 28 4D 35  |X2.M4)..(X5).(M5|
00000DB0: AC 58 32 AB 4D 36 29 AC  BF 28 58 35 29 AB 4D 37  |.X2.M6)..(X5).M7|
00000DC0: AC BE 28 58 36 29 00 E7  15 8E 08 50 53 B2 58 37  |..(X6).....PS.X7|
00000DD0: AA 58 38 3A 50 41 28 36  29 B2 50 41 28 36 29 AA  |.X8:PA(6).PA(6).|
00000DE0: 50 53 AC 52 44 3A 8E 00  ED 15 98 08 3A 00 04 16  |PS.RD:......:...|
00000DF0: A2 08 8F 20 48 2F 43 20  45 43 4C 49 50 54 49 43  |... H/C ECLIPTIC|
00000E00: 20 53 55 42 00 21 16 AC  08 99 53 33 24 3B 53 31  | SUB.!....S3$;S1|
00000E10: 24 3B 22 48 45 4C 49 4F  43 45 4E 54 52 49 43 22  |$;"HELIOCENTRIC"|
00000E20: 3B 00 38 16 B6 08 81 41  B2 31 A4 39 3A 99 41 3B  |;.8....A.1.9:.A;|
00000E30: 3A 8B 41 B2 33 A7 82 41  00 69 16 C0 08 52 56 B2  |:.A.3..A.i...RV.|
00000E40: 52 56 28 41 29 3A 49 4E  B2 49 4E 28 41 29 3A 4C  |RV(A):IN.IN(A):L|
00000E50: 4E B2 4C 4E 28 41 29 3A  50 41 B2 50 41 28 41 29  |N.LN(A):PA.PA(A)|
00000E60: 3A 41 4E B2 41 4E 28 41  29 00 98 16 CA 08 58 31  |:AN.AN(A).....X1|
00000E70: B2 BF 28 50 41 AB 4C 4E  29 AC BF 28 49 4E 29 3A  |..(PA.LN)..(IN):|
00000E80: 51 42 B2 A5 53 28 58 31  29 3A 8F 20 45 43 4C 49  |QB..S(X1):. ECLI|
00000E90: 50 54 49 43 20 4C 41 54  00 CC 16 D4 08 58 32 B2  |PTIC LAT.....X2.|
00000EA0: BF 28 50 41 AB 4C 4E 29  AC BE 28 49 4E 29 3A 58  |.(PA.LN)..(IN):X|
00000EB0: 33 B2 BE 28 50 41 AB 4C  4E 29 3A 58 34 B2 C1 28  |3..(PA.LN):X4..(|
00000EC0: 58 32 AD 58 33 29 3A 8D  32 38 36 30 00 00 17 DE  |X2.X3):.2860....|
00000ED0: 08 50 42 B2 58 36 AA 4C  4E 28 41 29 3A 8B 50 42  |.PB.X6.LN(A):.PB|
00000EE0: B1 57 34 A7 50 42 B2 50  42 AB 57 34 3A 8F 20 48  |.W4.PB.PB.W4:. H|
00000EF0: 2F 43 20 45 43 4C 49 50  54 49 43 20 4C 4F 4E 47  |/C ECLIPTIC LONG|
00000F00: 00 21 17 E8 08 52 50 28  41 29 B2 52 56 AC BE 28  |.!...RP(A).RV..(|
00000F10: 51 42 29 3A 8F 20 50 52  4F 4A 20 52 41 44 49 55  |QB):. PROJ RADIU|
00000F20: 53 00 66 17 F2 08 44 53  28 41 29 B2 28 52 56 28  |S.f...DS(A).(RV(|
00000F30: 33 29 AE 32 AA 52 56 AE  32 AB 32 AC 52 56 28 33  |3).2.RV.2.2.RV(3|
00000F40: 29 AC 52 56 AC BE 28 50  41 AB 50 41 28 33 29 29  |).RV..(PA.PA(3))|
00000F50: 29 AE 2E 35 3A 8F 20 50  4C 41 4E 45 54 20 44 49  |)..5:. PLANET DI|
00000F60: 53 54 41 4E 43 45 00 7C  17 FC 08 50 42 28 41 29  |STANCE.|...PB(A)|
00000F70: B2 50 42 3A 51 42 28 41  29 B2 51 42 00 91 17 06  |.PB:QB(A).QB....|
00000F80: 09 82 41 3A 44 53 28 30  29 B2 52 56 28 30 29 3A  |..A:DS(0).RV(0):|
00000F90: 8E 00 97 17 10 09 3A 00  B0 17 1A 09 8F 20 47 45  |......:...... GE|
00000FA0: 4F 2F 43 20 45 43 4C 49  50 54 49 43 20 53 55 42  |O/C ECLIPTIC SUB|
00000FB0: 00 CB 17 24 09 99 53 33  24 3B 53 31 24 3B 22 47  |...$..S3$;S1$;"G|
00000FC0: 45 4F 43 45 4E 54 52 49  43 22 3B 00 E2 17 2E 09  |EOCENTRIC";.....|
00000FD0: 81 41 B2 31 A4 39 3A 99  41 3B 3A 8B 41 B2 33 A7  |.A.1.9:.A;:.A.3.|
00000FE0: 82 41 00 00 18 38 09 58  31 B2 50 42 28 41 29 AB  |.A...8.X1.PB(A).|
00000FF0: 50 41 28 33 29 3A 8B 41  B1 33 A7 89 32 34 31 30  |PA(3):.A.3..2410|
00001000: 00 3C 18 42 09 58 32 B2  52 50 28 41 29 AC BF 28  |.<.B.X2.RP(A)..(|
00001010: AB 58 31 29 3A 58 33 B2  52 56 28 33 29 AB 52 50  |.X1):X3.RV(3).RP|
00001020: 28 41 29 AC BE 28 AB 58  31 29 3A 58 34 B2 C1 28  |(A)..(.X1):X4..(|
00001030: 58 32 AD 58 33 29 3A 8D  32 38 36 30 00 80 18 4C  |X2.X3):.2860...L|
00001040: 09 50 43 B2 57 32 AA 50  41 28 33 29 AA 58 36 3A  |.PC.W2.PA(3).X6:|
00001050: 8B 50 43 B1 57 34 A7 50  43 B2 50 43 AB 57 34 3A  |.PC.W4.PC.PC.W4:|
00001060: 8F 20 49 4E 4E 45 52 20  50 4C 41 4E 45 54 20 47  |. INNER PLANET G|
00001070: 2F 43 20 45 43 4C 49 50  54 49 43 20 4C 4F 4E 47  |/C ECLIPTIC LONG|
00001080: 00 93 18 56 09 8B 50 43  B3 30 A7 50 43 B2 50 43  |...V..PC.0.PC.PC|
00001090: AA 57 34 00 9D 18 60 09  89 32 34 34 30 00 D7 18  |.W4...`..2440...|
000010A0: 6A 09 58 32 B2 52 56 28  33 29 AC BF 28 58 31 29  |j.X2.RV(3)..(X1)|
000010B0: 3A 58 33 B2 52 50 28 41  29 AB 52 56 28 33 29 AC  |:X3.RP(A).RV(3).|
000010C0: BE 28 58 31 29 3A 58 34  B2 C1 28 58 32 AD 58 33  |.(X1):X4..(X2.X3|
000010D0: 29 3A 8D 32 38 36 30 00  06 19 74 09 50 43 B2 50  |):.2860...t.PC.P|
000010E0: 42 28 41 29 AA 58 36 3A  8B 50 43 B1 57 34 A7 50  |B(A).X6:.PC.W4.P|
000010F0: 43 B2 50 43 AB 57 34 3A  8F 20 4F 55 54 45 52 20  |C.PC.W4:. OUTER |
00001100: 50 4C 41 4E 45 54 00 19  19 7E 09 8B 50 43 B3 30  |PLANET...~..PC.0|
00001110: A7 50 43 B2 50 43 AA 57  34 00 4A 19 88 09 58 35  |.PC.PC.W4.J...X5|
00001120: B2 52 50 28 41 29 AC C0  28 51 42 28 41 29 29 AC  |.RP(A)..(QB(A)).|
00001130: BF 28 50 43 AB 50 42 28  41 29 29 3A 58 37 B2 52  |.(PC.PB(A)):X7.R|
00001140: 56 28 33 29 AC BF 28 58  31 29 00 66 19 92 09 51  |V(3)..(X1).f...Q|
00001150: 43 28 41 29 B2 C1 28 58  35 AD 58 37 29 3A 50 43  |C(A)..(X5.X7):PC|
00001160: 28 41 29 B2 50 43 00 AA  19 9C 09 44 53 28 41 29  |(A).PC.....DS(A)|
00001170: B2 44 53 28 41 29 AD BE  28 51 43 28 41 29 29 3A  |.DS(A)..(QC(A)):|
00001180: 44 4B 28 41 29 B2 44 53  28 41 29 AC 41 55 3A 8F  |DK(A).DS(A).AU:.|
00001190: 20 42 45 54 54 45 52 20  56 41 4C 55 45 20 46 4F  | BETTER VALUE FO|
000011A0: 52 20 44 49 53 54 41 4E  43 45 00 CE 19 A6 09 82  |R DISTANCE......|
000011B0: 41 3A 50 43 28 30 29 B2  50 41 28 30 29 3A 44 4B  |A:PC(0).PA(0):DK|
000011C0: 28 30 29 B2 44 53 28 30  29 AC 41 55 3A 8E 00 D4  |(0).DS(0).AU:...|
000011D0: 19 B0 09 3A 00 EB 19 BA  09 8F 20 53 4F 4C 41 52  |...:...... SOLAR|
000011E0: 20 45 4C 4F 4E 47 41 54  49 4F 4E 00 06 1A C4 09  | ELONGATION.....|
000011F0: 99 53 33 24 3B 53 31 24  3B 22 45 4C 4F 4E 47 41  |.S3$;S1$;"ELONGA|
00001200: 54 49 4F 4E 22 3B 00 1D  1A CE 09 81 41 B2 31 A4  |TION";......A.1.|
00001210: 39 3A 99 41 3B 3A 8B 41  B2 33 A7 82 41 00 5E 1A  |9:.A;:.A.3..A.^.|
00001220: D8 09 53 45 28 41 29 B2  A5 43 28 BF 28 51 44 28  |..SE(A)..C(.(QD(|
00001230: 41 29 29 AC BF 28 51 44  28 30 29 29 AA BE 28 50  |A))..(QD(0))..(P|
00001240: 44 28 41 29 AB 50 41 28  30 29 29 AC BE 28 51 44  |D(A).PA(0))..(QD|
00001250: 28 30 29 29 AC BE 28 51  44 28 41 29 29 29 00 67  |(0))..(QD(A))).g|
00001260: 1A E2 09 82 41 3A 8E 00  6D 1A EC 09 3A 00 91 1A  |....A:..m...:...|
00001270: F6 09 8F 20 20 20 20 45  43 4C 49 50 54 49 43 20  |...    ECLIPTIC |
00001280: 54 4F 20 45 51 55 41 54  4F 52 49 41 4C 20 53 55  |TO EQUATORIAL SU|
00001290: 42 00 AC 1A 00 0A 99 53  33 24 3B 53 31 24 3B 22  |B......S3$;S1$;"|
000012A0: 45 51 55 41 54 4F 52 49  41 4C 22 3B 00 C3 1A 0A  |EQUATORIAL";....|
000012B0: 0A 81 41 B2 30 A4 39 3A  99 41 3B 3A 8B 41 B2 33  |..A.0.9:.A;:.A.3|
000012C0: A7 82 41 00 00 1B 14 0A  58 32 B2 BF 28 50 43 28  |..A.....X2..(PC(|
000012D0: 41 29 29 AC BE 28 4F 42  29 AB C0 28 51 43 28 41  |A))..(OB)..(QC(A|
000012E0: 29 29 AC BF 28 4F 42 29  3A 58 33 B2 BE 28 50 43  |))..(OB):X3..(PC|
000012F0: 28 41 29 29 3A 58 34 B2  C1 28 58 32 AD 58 33 29  |(A)):X4..(X2.X3)|
00001300: 00 1F 1B 1E 0A 8D 32 38  36 30 3A 50 44 B2 58 36  |......2860:PD.X6|
00001310: 3A 8F 20 52 54 20 41 53  43 45 4E 53 49 4F 4E 00  |:. RT ASCENSION.|
00001320: 62 1B 28 0A 58 37 B2 BF  28 51 43 28 41 29 29 AC  |b.(.X7..(QC(A)).|
00001330: BE 28 4F 42 29 AA BE 28  51 43 28 41 29 29 AC BF  |.(OB)..(QC(A))..|
00001340: 28 4F 42 29 AC BF 28 50  43 28 41 29 29 3A 51 44  |(OB)..(PC(A)):QD|
00001350: B2 A5 53 28 58 37 29 3A  8F 20 44 45 43 49 4E 41  |..S(X7):. DECINA|
00001360: 54 4E 00 79 1B 32 0A 8D  32 39 32 30 3A 8F 20 50  |TN.y.2..2920:. P|
00001370: 52 45 43 45 53 53 49 4F  4E 00 A7 1B 3C 0A 58 30  |RECESSION...<.X0|
00001380: B2 50 44 AD 52 44 AD 31  35 3A 8D 32 37 38 30 3A  |.PD.RD.15:.2780:|
00001390: 41 41 24 28 41 29 B2 48  24 3A 8F 20 54 4F 20 48  |AA$(A).H$:. TO H|
000013A0: 48 2F 4D 4D 2F 53 53 00  D3 1B 46 0A 58 30 B2 51  |H/MM/SS...F.X0.Q|
000013B0: 44 AD 52 44 3A 8D 32 37  38 30 3A 44 44 24 28 41  |D.RD:.2780:DD$(A|
000013C0: 29 B2 48 24 3A 8F 20 54  4F 20 44 45 47 2F 4D 4D  |).H$:. TO DEG/MM|
000013D0: 2F 53 53 00 E9 1B 50 0A  50 44 28 41 29 B2 50 44  |/SS...P.PD(A).PD|
000013E0: 3A 51 44 28 41 29 B2 51  44 00 F2 1B 5A 0A 82 41  |:QD(A).QD...Z..A|
000013F0: 3A 8E 00 F8 1B 64 0A 3A  00 12 1C 6E 0A 8F 20 48  |:....d.:...n.. H|
00001400: 4F 52 49 5A 4F 4E 20 43  4F 4F 52 44 49 4E 41 54  |ORIZON COORDINAT|
00001410: 45 53 00 2A 1C 78 0A 99  53 33 24 3B 53 31 24 3B  |ES.*.x..S3$;S1$;|
00001420: 22 48 4F 52 49 5A 4F 4E  22 3B 00 37 1C 82 0A 4C  |"HORIZON";.7...L|
00001430: 5A B2 4C 41 AC 52 44 00  4E 1C 8C 0A 81 41 B2 30  |Z.LA.RD.N....A.0|
00001440: A4 39 3A 99 41 3B 3A 8B  41 B2 33 A7 82 41 00 7C  |.9:.A;:.A.3..A.||
00001450: 1C 96 0A 51 44 B2 51 44  28 41 29 3A 48 41 B2 4C  |...QD.QD(A):HA.L|
00001460: 53 AB 50 44 28 41 29 AD  52 44 AD 31 35 3A 8B 48  |S.PD(A).RD.15:.H|
00001470: 41 B3 30 A7 48 41 B2 48  41 AA 32 34 00 89 1C A0  |A.0.HA.HA.24....|
00001480: 0A 48 41 28 41 29 B2 48  41 00 C7 1C AA 0A 48 41  |.HA(A).HA.....HA|
00001490: B2 48 41 AC 31 35 AC 52  44 3A 58 35 B2 BF 28 51  |.HA.15.RD:X5..(Q|
000014A0: 44 29 AC BF 28 4C 5A 29  AA BE 28 51 44 29 AC BE  |D)..(LZ)..(QD)..|
000014B0: 28 4C 5A 29 AC BE 28 48  41 29 3A 51 46 28 41 29  |(LZ)..(HA):QF(A)|
000014C0: B2 A5 53 28 58 35 29 00  FD 1C B4 0A 58 36 B2 28  |..S(X5).....X6.(|
000014D0: BF 28 51 44 29 AB BF 28  4C 5A 29 AC 58 35 29 AD  |.(QD)..(LZ).X5).|
000014E0: 28 BE 28 4C 5A 29 AC BE  28 51 46 28 41 29 29 29  |(.(LZ)..(QF(A)))|
000014F0: 3A 50 46 28 41 29 B2 A5  43 28 58 36 29 00 19 1D  |:PF(A)..C(X6)...|
00001500: BE 0A 8B BF 28 48 41 29  B1 30 A7 50 46 28 41 29  |....(HA).0.PF(A)|
00001510: B2 57 34 AB 50 46 28 41  29 00 22 1D C8 0A 82 41  |.W4.PF(A)."....A|
00001520: 3A 8E 00 28 1D D2 0A 3A  00 42 1D DC 0A 8F 20 52  |:..(...:.B.... R|
00001530: 54 20 41 53 43 20 54 4F  20 48 4F 55 52 53 2F 4D  |T ASC TO HOURS/M|
00001540: 49 4E 00 64 1D E6 0A 58  53 24 B2 22 22 3A 8B 58  |IN.d...XS$."":.X|
00001550: 30 B3 30 A7 58 53 24 B2  22 2D 22 3A 58 30 B2 B6  |0.0.XS$."-":X0..|
00001560: 28 58 30 29 00 89 1D F0  0A 58 31 B2 B5 28 58 30  |(X0).....X1..(X0|
00001570: 29 3A 58 31 24 B2 C9 28  C4 28 58 31 29 2C C3 28  |):X1$..(.(X1),.(|
00001580: C4 28 58 31 29 29 AB 31  29 00 BC 1D FA 0A 58 32  |.(X1)).1).....X2|
00001590: B2 28 58 30 AB 58 31 29  AC 36 30 3A 58 33 B2 B5  |.(X0.X1).60:X3..|
000015A0: 28 58 32 29 3A 58 33 24  B2 C9 28 C4 28 58 33 29  |(X2):X3$..(.(X3)|
000015B0: 2C C3 28 C4 28 58 33 29  29 AB 31 29 00 E9 1D 04  |,.(.(X3)).1)....|
000015C0: 0B 58 34 B2 B5 28 28 58  32 AB 58 33 29 AC 36 30  |.X4..((X2.X3).60|
000015D0: 29 3A 58 34 24 B2 C9 28  C4 28 58 34 29 2C C3 28  |):X4$..(.(X4),.(|
000015E0: C4 28 58 34 29 29 AB 31  29 00 08 1E 0E 0B 48 24  |.(X4)).1).....H$|
000015F0: B2 58 53 24 AA 58 31 24  AA 22 2A 22 AA 58 33 24  |.XS$.X1$."*".X3$|
00001600: AA 22 2A 22 AA 58 34 24  00 0E 1E 18 0B 8E 00 14  |."*".X4$........|
00001610: 1E 22 0B 3A 00 30 1E 2C  0B 8F 20 52 45 4D 4F 56  |.".:.0.,.. REMOV|
00001620: 45 20 41 54 41 4E 20 41  4D 42 49 47 55 49 54 59  |E ATAN AMBIGUITY|
00001630: 00 47 1E 36 0B 8B 58 32  B1 30 AF 58 33 B1 30 A7  |.G.6..X2.0.X3.0.|
00001640: 58 36 B2 58 34 3A 8E 00  60 1E 40 0B 8B 58 32 B1  |X6.X4:..`.@..X2.|
00001650: 30 AF 58 33 B3 30 A7 58  36 B2 58 34 AA FF 3A 8E  |0.X3.0.X6.X4..:.|
00001660: 00 79 1E 4A 0B 8B 58 32  B3 30 AF 58 33 B3 30 A7  |.y.J..X2.0.X3.0.|
00001670: 58 36 B2 58 34 AA FF 3A  8E 00 93 1E 54 0B 8B 58  |X6.X4..:....T..X|
00001680: 32 B3 30 AF 58 33 B1 30  A7 58 36 B2 58 34 AA 57  |2.0.X3.0.X6.X4.W|
00001690: 34 3A 8E 00 99 1E 5E 0B  3A 00 AE 1E 68 0B 8F 20  |4:....^.:...h.. |
000016A0: 50 52 45 43 45 53 53 49  4F 4E 20 53 55 42 00 CD  |PRECESSION SUB..|
000016B0: 1E 72 0B 58 33 B2 BF 28  50 44 29 3A 58 34 B2 BE  |.r.X3..(PD):X4..|
000016C0: 28 50 44 29 3A 58 35 B2  C0 28 51 44 29 00 16 1F  |(PD):X5..(QD)...|
000016D0: 7C 0B 41 43 B2 28 4B 37  AA 4B 38 AC 58 33 AC 58  ||.AC.(K7.K8.X3.X|
000016E0: 35 29 AC 4A 45 AD 33 36  35 2E 32 34 32 32 AD 33  |5).JE.365.2422.3|
000016F0: 36 30 30 AC 31 35 AC 52  44 3A 44 43 B2 4B 39 AC  |600.15.RD:DC.K9.|
00001700: 58 34 AC 4A 45 AD 33 36  35 2E 32 34 32 32 AD 33  |X4.JE.365.2422.3|
00001710: 36 30 30 AC 52 44 00 2E  1F 86 0B 50 44 B2 50 44  |600.RD.....PD.PD|
00001720: AA 41 43 3A 51 44 B2 51  44 AA 44 43 3A 8E 00 34  |.AC:QD.QD.DC:..4|
00001730: 1F 90 0B 3A 00 47 1F 9A  0B 8F 20 52 49 53 45 2F  |...:.G.... RISE/|
00001740: 53 45 54 20 53 55 42 00  60 1F A4 0B 99 53 33 24  |SET SUB.`....S3$|
00001750: 3B 53 31 24 3B 22 52 49  53 45 2F 53 45 54 22 3B  |;S1$;"RISE/SET";|
00001760: 00 77 1F AE 0B 81 41 B2  30 A4 39 3A 99 41 3B 3A  |.w....A.0.9:.A;:|
00001770: 8B 41 B2 33 A7 82 41 00  B9 1F B8 0B 58 31 B2 BF  |.A.3..A.....X1..|
00001780: 28 51 44 28 41 29 29 AD  BE 28 4C 5A 29 3A 41 52  |(QD(A))..(LZ):AR|
00001790: 28 41 29 B2 A5 43 28 58  31 29 3A 41 53 28 41 29  |(A)..C(X1):AS(A)|
000017A0: B2 57 34 AB 41 52 28 41  29 3A 8F 20 52 49 53 45  |.W4.AR(A):. RISE|
000017B0: 2F 53 45 54 20 41 5A 49  4D 00 D0 1F C2 0B 58 32  |/SET AZIM.....X2|
000017C0: B2 AB C0 28 4C 5A 29 AC  C0 28 51 44 28 41 29 29  |...(LZ)..(QD(A))|
000017D0: 00 0F 20 CC 0B 58 37 B2  50 44 28 41 29 AD 31 35  |.. ..X7.PD(A).15|
000017E0: AD 52 44 3A 58 33 B2 A5  43 28 58 32 29 AD 31 35  |.RD:X3..C(X2).15|
000017F0: AD 52 44 3A 58 34 B2 32  34 AA 58 37 AB 58 33 3A  |.RD:X4.24.X7.X3:|
00001800: 8B 58 34 B1 32 34 A7 58  34 B2 58 34 AB 32 34 00  |.X4.24.X4.X4.24.|
00001810: 2C 20 D6 0B 58 35 B2 58  37 AA 58 33 3A 8B 58 35  |, ..X5.X7.X3:.X5|
00001820: B1 32 34 A7 58 35 B2 58  35 AB 32 34 00 61 20 E0  |.24.X5.X5.24.a .|
00001830: 0B 47 33 28 41 29 B2 58  34 3A 47 34 28 41 29 B2  |.G3(A).X4:G4(A).|
00001840: 58 35 3A 82 41 3A 8F 20  4E 4F 57 20 43 4F 4E 56  |X5:.A:. NOW CONV|
00001850: 54 20 54 4F 20 47 4D 54  20 46 52 4F 4D 20 47 53  |T TO GMT FROM GS|
00001860: 54 00 67 20 EA 0B 3A 00  7D 20 F4 0B 8F 20 53 49  |T.g ..:.} ... SI|
00001870: 44 45 52 45 41 4C 20 54  4F 20 47 4D 54 00 9F 20  |DEREAL TO GMT.. |
00001880: FE 0B 58 32 B2 4F 30 AC  B5 28 44 4E 29 AB 42 31  |..X2.O0..(DN).B1|
00001890: 3A 8B 58 32 B3 30 A7 58  32 B2 58 32 AA 32 34 00  |:.X2.0.X2.X2.24.|
000018A0: B2 20 08 0C 81 41 B2 30  A4 39 3A 8B 41 B2 33 A7  |. ...A.0.9:.A.3.|
000018B0: 82 41 00 D1 20 12 0C 58  33 B2 47 33 28 41 29 AB  |.A.. ..X3.G3(A).|
000018C0: 58 32 3A 8B 58 33 B3 30  A7 58 33 B2 58 33 AA 32  |X2:.X3.0.X3.X3.2|
000018D0: 34 00 F0 20 1C 0C 58 34  B2 47 34 28 41 29 AB 58  |4.. ..X4.G4(A).X|
000018E0: 32 3A 8B 58 34 B3 30 A7  58 34 B2 58 34 AA 32 34  |2:.X4.0.X4.X4.24|
000018F0: 00 0C 21 26 0C 47 55 28  41 29 B2 58 33 AC 4F 32  |..!&.GU(A).X3.O2|
00001900: 3A 47 44 28 41 29 B2 58  34 AC 4F 32 00 15 21 30  |:GD(A).X4.O2..!0|
00001910: 0C 82 41 3A 8E 00 1B 21  3A 0C 3A 00 29 21 44 0C  |..A:...!:.:.)!D.|
00001920: 9F 33 2C 34 3A 9D 33 3A  8E 00 35 21 4E 0C 98 33  |.3,4:.3:..5!N..3|
00001930: 3A A0 33 3A 8E 00 3B 21  58 0C 3A 00 4A 21 62 0C  |:.3:..;!X.:.J!b.|
00001940: 8F 20 4D 45 4E 55 20 53  55 42 00 78 21 6C 0C 99  |. MENU SUB.x!l..|
00001950: 53 34 24 3B 22 43 48 41  4E 47 45 20 44 41 54 45  |S4$;"CHANGE DATE|
00001960: 20 20 3C 44 3E 22 2C 22  4B 45 59 20 20 20 20 20  |  <D>","KEY     |
00001970: 20 20 20 20 20 3C 4B 3E  00 A2 21 76 0C 99 22 43  |     <K>..!v.."C|
00001980: 48 41 4E 47 45 20 54 49  4D 45 20 20 3C 54 3E 22  |HANGE TIME  <T>"|
00001990: 2C 22 42 52 45 41 4B 20  20 20 20 20 20 20 20 3C  |,"BREAK        <|
000019A0: 42 3E 00 CC 21 80 0C 99  22 53 54 45 50 20 44 41  |B>..!..."STEP DA|
000019B0: 59 2F 54 49 4D 45 3C 53  3E 22 2C 22 50 52 49 4E  |Y/TIME<S>","PRIN|
000019C0: 54 45 52 20 20 20 20 20  20 3C 50 3E 00 F7 21 8A  |TER      <P>..!.|
000019D0: 0C 8B 46 4C B2 34 A7 99  22 4F 54 48 45 52 20 50  |..FL.4.."OTHER P|
000019E0: 2F 4F 27 53 20 20 3C 31  2C 32 20 4F 52 20 33 3E  |/O'S  <1,2 OR 3>|
000019F0: 22 3A 89 33 32 36 30 00  29 22 94 0C 8B 46 4C B2  |":.3260.)"...FL.|
00001A00: 31 A7 99 22 32 4E 44 20  20 50 2F 4F 20 20 20 20  |1.."2ND  P/O    |
00001A10: 20 3C 32 3E 22 3A 99 22  33 52 44 20 20 50 2F 4F  | <2>":."3RD  P/O|
00001A20: 20 20 20 20 20 3C 33 3E  22 00 5B 22 9E 0C 8B 46  |     <3>".["...F|
00001A30: 4C B2 32 A7 99 22 31 53  54 20 20 50 2F 4F 20 20  |L.2.."1ST  P/O  |
00001A40: 20 20 20 3C 31 3E 22 3A  99 22 33 52 44 20 20 50  |   <1>":."3RD  P|
00001A50: 2F 4F 20 20 20 20 20 3C  33 3E 22 00 8C 22 A8 0C  |/O     <3>".."..|
00001A60: 8B 46 4C B2 33 A7 99 22  31 53 54 20 20 50 2F 4F  |.FL.3.."1ST  P/O|
00001A70: 20 20 20 20 20 3C 31 3E  22 3A 99 22 32 4E 44 20  |     <1>":."2ND |
00001A80: 20 50 2F 4F 20 20 20 20  20 3C 32 3E 00 A3 22 B2  | P/O     <2>..".|
00001A90: 0C 99 22 49 4E 54 45 52  4D 45 44 49 41 54 45 20  |.."INTERMEDIATE |
00001AA0: 3C 49 3E 00 CD 22 BC 0C  99 22 4D 41 50 28 31 30  |<I>.."..."MAP(10|
00001AB0: 30 2D 32 36 30 29 20 3C  4D 3E 22 2C 22 43 4E 47  |0-260) <M>","CNG|
00001AC0: 45 20 4C 41 54 2F 4C 4F  4E 20 3C 43 3E 00 D3 22  |E LAT/LON <C>.."|
00001AD0: C6 0C 3A 00 EA 22 D0 0C  A1 5A 5A 24 3A 8B 5A 5A  |..:.."...ZZ$:.ZZ|
00001AE0: 24 B2 22 22 A7 89 33 32  38 30 00 F0 22 DA 0C 8E  |$.""..3280.."...|
00001AF0: 00 F6 22 E4 0C 3A 00 08  23 EE 0C 8F 20 44 41 59  |.."..:..#... DAY|
00001B00: 20 54 4F 20 44 41 54 45  00 24 23 F8 0C 58 31 B2  | TO DATE.$#..X1.|
00001B10: B5 28 4A 44 AA 2E 35 29  3A 58 32 B2 4A 44 AA 2E  |.(JD..5):X2.JD..|
00001B20: 35 AB 58 31 00 66 23 02  0D 8B 58 31 B1 32 32 39  |5.X1.f#...X1.229|
00001B30: 39 31 36 30 A7 58 33 B2  B5 28 28 58 31 AB 31 38  |9160.X3..((X1.18|
00001B40: 36 37 32 31 36 2E 32 35  29 AD 33 36 35 32 34 2E  |67216.25).36524.|
00001B50: 32 35 29 3A 58 31 B2 58  31 AA 31 AA 58 33 AB B5  |25):X1.X1.1.X3..|
00001B60: 28 58 33 AD 34 29 00 8D  23 0C 0D 58 35 B2 58 31  |(X3.4)..#..X5.X1|
00001B70: AA 31 35 32 34 3A 58 36  B2 B5 28 28 58 35 AB 31  |.1524:X6..((X5.1|
00001B80: 32 32 2E 31 29 AD 33 36  35 2E 32 35 29 00 D1 23  |22.1).365.25)..#|
00001B90: 16 0D 58 37 B2 B5 28 58  36 AC 33 36 35 2E 32 35  |..X7..(X6.365.25|
00001BA0: 29 3A 58 38 B2 B5 28 28  58 35 AB 58 37 29 AD 33  |):X8..((X5.X7).3|
00001BB0: 30 2E 36 30 30 31 29 3A  58 39 B2 58 35 AB 58 37  |0.6001):X9.X5.X7|
00001BC0: AA 58 32 AB B5 28 58 38  AC 33 30 2E 36 30 30 31  |.X2..(X8.30.6001|
00001BD0: 29 00 0A 24 20 0D 44 41  B2 B5 28 58 39 29 3A 47  |)..$ .DA..(X9):G|
00001BE0: 4D B2 32 34 AC 28 58 39  AB 44 41 29 3A 44 41 24  |M.24.(X9.DA):DA$|
00001BF0: B2 C4 28 44 41 29 3A 44  41 24 B2 C9 28 44 41 24  |..(DA):DA$..(DA$|
00001C00: 2C C3 28 44 41 24 29 AB  31 29 00 2E 24 2A 0D 58  |,.(DA$).1)..$*.X|
00001C10: 30 B2 47 4D 3A 8D 32 37  38 30 3A 54 24 B2 48 24  |0.GM:.2780:T$.H$|
00001C20: 3A 47 4D 24 B2 C4 28 A5  47 28 47 4D 29 29 00 4A  |:GM$..(.G(GM)).J|
00001C30: 24 34 0D 4D 41 B2 58 38  AB 31 33 3A 8B 58 38 B3  |$4.MA.X8.13:.X8.|
00001C40: 31 34 A7 4D 41 B2 58 38  AB 31 00 6C 24 3E 0D 4D  |14.MA.X8.1.l$>.M|
00001C50: 41 24 B2 C4 28 4D 41 29  3A 4D 41 24 B2 C9 28 4D  |A$..(MA):MA$..(M|
00001C60: 41 24 2C C3 28 4D 41 24  29 AB 31 29 00 89 24 48  |A$,.(MA$).1)..$H|
00001C70: 0D 59 41 B2 58 36 AB 34  37 31 35 3A 8B 4D 41 B1  |.YA.X6.4715:.MA.|
00001C80: 32 A7 59 41 B2 59 41 AB  31 00 AB 24 52 0D 59 41  |2.YA.YA.1..$R.YA|
00001C90: 24 B2 C4 28 59 41 29 3A  59 41 24 B2 C9 28 59 41  |$..(YA):YA$..(YA|
00001CA0: 24 2C C3 28 59 41 24 29  AB 31 29 00 C7 24 5C 0D  |$,.(YA$).1)..$\.|
00001CB0: 44 54 24 B2 44 41 24 AA  22 2F 22 AA 4D 41 24 AA  |DT$.DA$."/".MA$.|
00001CC0: 22 2F 22 AA 59 41 24 00  CD 24 66 0D 8E 00 D3 24  |"/".YA$..$f....$|
00001CD0: 70 0D 3A 00 E7 24 7A 0D  8F 20 53 54 45 50 20 44  |p.:..$z.. STEP D|
00001CE0: 41 59 2F 54 49 4D 45 00  08 25 84 0D 99 22 44 41  |AY/TIME..%..."DA|
00001CF0: 59 20 20 20 3C 44 3E 22  3A 99 22 54 49 4D 45 20  |Y   <D>":."TIME |
00001D00: 20 3C 54 3E 20 20 22 3B  00 2A 25 8E 0D A1 5A 59  | <T>  ";.*%...ZY|
00001D10: 24 3A 8B 5A 59 24 B3 B1  22 44 22 AF 5A 59 24 B3  |$:.ZY$.."D".ZY$.|
00001D20: B1 22 54 22 A7 89 33 34  37 30 00 52 25 98 0D 8B  |."T"..3470.R%...|
00001D30: 5A 59 24 B2 22 44 22 A7  85 22 44 41 59 20 53 54  |ZY$."D".."DAY ST|
00001D40: 45 50 20 22 3B 44 32 3A  4A 44 B2 4A 44 AA 44 32  |EP ";D2:JD.JD.D2|
00001D50: 3A 8E 00 88 25 A2 0D 8B  5A 59 24 B2 22 54 22 A7  |:...%...ZY$."T".|
00001D60: 85 22 54 49 4D 45 20 53  54 45 50 20 28 44 45 43  |."TIME STEP (DEC|
00001D70: 20 48 52 53 29 20 22 3B  54 32 3A 4A 44 B2 4A 44  | HRS) ";T2:JD.JD|
00001D80: AA 54 32 AD 32 34 3A 8E  00 8E 25 AC 0D 3A 00 9A  |.T2.24:...%..:..|
00001D90: 25 B6 0D 8F 20 53 45 54  55 50 00 B0 25 C0 0D 99  |%... SETUP..%...|
00001DA0: 22 93 11 11 11 11 11 11  52 55 4E 4E 49 4E 47 22  |".......RUNNING"|
00001DB0: 00 BD 25 CA 0D 86 4B 59  24 28 31 38 29 00 EE 25  |..%...KY$(18)..%|
00001DC0: D4 0D 58 31 B2 30 3A 58  32 B2 30 3A 58 33 B2 30  |..X1.0:X2.0:X3.0|
00001DD0: 3A 58 34 B2 30 3A 58 35  B2 30 3A 58 36 B2 30 3A  |:X4.0:X5.0:X6.0:|
00001DE0: 58 37 B2 30 3A 58 38 B2  30 3A 58 39 B2 30 00 05  |X7.0:X8.0:X9.0..|
00001DF0: 26 DE 0D 52 44 B2 FF AD  31 38 30 3A 8F 20 44 45  |&..RD...180:. DE|
00001E00: 47 2F 52 41 44 00 26 26  E8 0D 45 50 4F 43 48 B2  |G/RAD.&&..EPOCH.|
00001E10: 32 34 34 37 31 36 30 2E  35 3A 41 55 B2 31 34 39  |2447160.5:AU.149|
00001E20: 36 30 30 30 30 30 00 3F  26 F2 0D 46 4C B2 31 3A  |600000.?&..FL.1:|
00001E30: 8F 20 50 52 49 4E 54 4F  55 54 20 46 4C 41 47 00  |. PRINTOUT FLAG.|
00001E40: 7B 26 FC 0D 53 33 24 B2  22 13 20 20 20 20 20 20  |{&..S3$.".      |
00001E50: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001E60: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001E70: 20 20 22 3A 53 31 24 B2  22 13 22 00 BB 26 06 0E  |  ":S1$."."..&..|
00001E80: 53 34 24 B2 22 13 11 11  11 11 11 11 11 11 11 11  |S4$."...........|
00001E90: 11 11 11 11 11 11 11 22  3A 53 24 B2 22 20 20 20  |.......":S$."   |
00001EA0: 20 20 20 20 20 20 20 20  20 20 20 20 22 3A 42 4C  |            ":BL|
00001EB0: 24 B2 22 20 20 2D 2D 2D  2D 20 22 00 E9 26 10 0E  |$."  ---- "..&..|
00001EC0: 4C 41 B2 35 33 2E 38 35  3A 4C 4F B2 31 2E 35 33  |LA.53.85:LO.1.53|
00001ED0: 3A 8F 20 4C 41 54 3A 4C  4F 4E 47 20 4C 45 45 44  |:. LAT:LONG LEED|
00001EE0: 53 20 45 4E 47 4C 41 4E  44 00 22 27 1A 0E 83 22  |S ENGLAND."'..."|
00001EF0: 53 55 4E 30 22 2C 31 2E  30 30 30 30 34 2C 32 37  |SUN0",1.00004,27|
00001F00: 38 2E 38 39 32 34 2C 32  38 32 2E 37 38 31 2C 2E  |8.8924,282.781,.|
00001F10: 30 31 36 37 30 36 2C 2E  39 39 39 39 39 31 2C 30  |016706,.999991,0|
00001F20: 2C 30 00 54 27 24 0E 83  22 4D 45 52 31 22 2C 2E  |,0.T'$.."MER1",.|
00001F30: 32 34 30 38 35 2C 33 30  39 2E 32 32 35 36 2C 37  |24085,309.2256,7|
00001F40: 37 2E 32 36 36 2C 2E 32  30 35 36 33 2C 2E 33 38  |7.266,.20563,.38|
00001F50: 37 30 39 38 00 67 27 2E  0E 83 37 2E 30 30 34 38  |7098.g'...7.0048|
00001F60: 2C 34 38 2E 31 38 38 00  9A 27 38 0E 83 22 56 45  |,48.188..'8.."VE|
00001F70: 4E 32 22 2C 2E 36 31 35  32 31 2C 33 35 37 2E 32  |N2",.61521,357.2|
00001F80: 37 31 31 2C 31 33 31 2E  33 31 2C 2E 30 30 36 37  |711,131.31,.0067|
00001F90: 35 34 2C 2E 37 32 33 33  32 38 00 AD 27 42 0E 83  |54,.723328..'B..|
00001FA0: 33 2E 33 39 34 36 2C 37  36 2E 35 37 31 00 E5 27  |3.3946,76.571..'|
00001FB0: 4C 0E 83 22 45 41 52 33  22 2C 31 2E 30 30 30 30  |L.."EAR3",1.0000|
00001FC0: 34 2C 39 38 2E 38 39 32  34 2C 31 30 32 2E 37 38  |4,98.8924,102.78|
00001FD0: 31 2C 2E 30 31 36 37 30  36 2C 2E 39 39 39 39 39  |1,.016706,.99999|
00001FE0: 31 2C 30 2C 30 00 1B 28  56 0E 83 22 4D 41 52 34  |1,0,0..(V.."MAR4|
00001FF0: 22 2C 31 2E 38 38 30 38  39 2C 32 31 37 2E 36 35  |",1.88089,217.65|
00002000: 36 38 2C 33 33 35 2E 37  39 39 2C 2E 30 39 33 33  |68,335.799,.0933|
00002010: 33 32 2C 31 2E 35 32 33  37 34 37 00 2E 28 60 0E  |32,1.523747..(`.|
00002020: 83 31 2E 38 34 39 39 2C  34 39 2E 34 36 38 00 62  |.1.8499,49.468.b|
00002030: 28 6A 0E 83 22 4A 55 50  35 22 2C 31 31 2E 38 36  |(j.."JUP5",11.86|
00002040: 32 32 34 2C 32 39 2E 39  32 31 34 2C 31 35 2E 34  |224,29.9214,15.4|
00002050: 39 36 2C 2E 30 34 38 31  36 34 2C 35 2E 32 30 33  |96,.048164,5.203|
00002060: 30 33 00 76 28 74 0E 83  31 2E 33 30 35 31 2C 31  |03.v(t..1.3051,1|
00002070: 30 30 2E 33 36 37 00 AB  28 7E 0E 83 22 53 41 54  |00.367..(~.."SAT|
00002080: 36 22 2C 32 39 2E 34 35  37 37 31 2C 32 36 33 2E  |6",29.45771,263.|
00002090: 31 39 37 35 2C 39 31 2E  34 35 39 2C 2E 30 35 34  |1975,91.459,.054|
000020A0: 30 33 31 2C 39 2E 35 32  39 33 33 00 BF 28 88 0E  |031,9.52933..(..|
000020B0: 83 32 2E 34 38 36 35 2C  31 31 33 2E 35 35 35 00  |.2.4865,113.555.|
000020C0: F5 28 92 0E 83 22 55 52  41 37 22 2C 38 34 2E 30  |.(..."URA7",84.0|
000020D0: 31 32 34 37 2C 32 36 31  2E 38 30 35 32 2C 31 37  |1247,261.8052,17|
000020E0: 30 2E 33 37 30 2C 2E 30  34 35 38 36 39 2C 31 39  |0.370,.045869,19|
000020F0: 2E 31 38 36 37 00 07 29  9C 0E 83 2E 37 37 33 31  |.1867..)....7731|
00002100: 2C 37 33 2E 39 38 39 00  3C 29 A6 0E 83 22 4E 45  |,73.989.<)..."NE|
00002110: 50 38 22 2C 31 36 34 2E  37 39 35 35 38 2C 32 37  |P8",164.79558,27|
00002120: 38 2E 37 31 36 39 2C 33  36 2E 32 36 2C 2E 30 30  |8.7169,36.26,.00|
00002130: 39 39 37 34 2C 33 30 2E  30 38 38 32 00 50 29 B0  |9974,30.0882.P).|
00002140: 0E 83 31 2E 37 36 39 38  2C 31 33 31 2E 36 38 32  |..1.7698,131.682|
00002150: 00 91 29 BA 0E 83 22 50  4C 55 39 22 2C 32 35 30  |..)..."PLU9",250|
00002160: 2E 39 2C 32 32 31 2E 34  31 32 37 2C 32 32 34 2E  |.9,221.4127,224.|
00002170: 31 33 33 2C 2E 32 34 36  32 34 31 2C 33 39 2E 33  |133,.246241,39.3|
00002180: 34 31 2C 31 37 2E 31 34  32 2C 31 31 30 2E 31 34  |41,17.142,110.14|
00002190: 34 00 DD 29 C4 0E 83 22  53 55 4E 44 41 59 22 2C  |4..)..."SUNDAY",|
000021A0: 22 4D 4F 4E 44 41 59 22  2C 22 54 55 45 53 44 41  |"MONDAY","TUESDA|
000021B0: 59 22 2C 22 57 45 44 4E  45 53 44 41 59 22 2C 22  |Y","WEDNESDAY","|
000021C0: 54 48 55 52 53 44 41 59  22 2C 22 46 52 49 44 41  |THURSDAY","FRIDA|
000021D0: 59 22 2C 22 53 41 54 55  52 44 41 59 22 00 1D 2A  |Y","SATURDAY"..*|
000021E0: CE 0E 83 22 20 20 20 41  5A 4D 3D 41 5A 49 4D 55  |..."   AZM=AZIMU|
000021F0: 54 48 22 2C 22 20 20 20  41 4C 54 3D 41 4C 54 49  |TH","   ALT=ALTI|
00002200: 54 55 44 45 22 2C 22 20  20 20 52 41 5A 3D 52 49  |TUDE","   RAZ=RI|
00002210: 53 49 4E 47 20 41 5A 49  4D 55 54 48 22 00 69 2A  |SING AZIMUTH".i*|
00002220: D8 0E 83 22 20 20 20 53  41 5A 3D 53 45 54 49 4E  |..."   SAZ=SETIN|
00002230: 47 20 41 5A 49 4D 55 54  48 22 2C 22 20 20 20 52  |G AZIMUTH","   R|
00002240: 53 45 3D 52 49 53 45 20  54 49 4D 45 20 28 44 45  |SE=RISE TIME (DE|
00002250: 43 49 4D 41 4C 29 22 2C  22 20 20 20 53 45 54 3D  |CIMAL)","   SET=|
00002260: 53 45 54 20 54 49 4D 45  22 00 93 2A E2 0E 83 22  |SET TIME"..*..."|
00002270: 20 20 44 49 53 54 3D 44  49 53 54 41 4E 43 45 20  |  DIST=DISTANCE |
00002280: 46 52 4F 4D 20 45 41 52  54 48 20 49 4E 20 41 55  |FROM EARTH IN AU|
00002290: 27 53 22 00 BB 2A EC 0E  83 22 44 49 53 2D 4B 4D  |'S"..*..."DIS-KM|
000022A0: 3D 44 49 53 54 41 4E 43  45 20 46 52 4F 4D 20 45  |=DISTANCE FROM E|
000022B0: 41 52 54 48 20 49 4E 20  4B 4D 53 00 EE 2A F6 0E  |ARTH IN KMS..*..|
000022C0: 83 22 20 52 54 41 53 43  3D 52 49 47 48 54 20 41  |." RTASC=RIGHT A|
000022D0: 53 43 45 4E 53 49 4F 4E  22 2C 22 44 45 43 4C 49  |SCENSION","DECLI|
000022E0: 4E 3D 44 45 43 4C 49 4E  41 54 49 4F 4E 22 00 38  |N=DECLINATION".8|
000022F0: 2B 00 0F 83 22 20 20 20  48 52 41 3D 48 4F 55 52  |+..."   HRA=HOUR|
00002300: 20 41 4E 47 4C 45 22 2C  22 20 20 20 53 45 4C 3D  | ANGLE","   SEL=|
00002310: 53 4F 4C 41 52 20 45 4C  4F 4E 47 41 54 49 4F 4E  |SOLAR ELONGATION|
00002320: 22 2C 22 20 20 20 52 56  43 3D 52 41 44 49 55 53  |","   RVC=RADIUS|
00002330: 20 56 45 43 54 4F 52 22  00 78 2B 0A 0F 83 22 4F  | VECTOR".x+..."O|
00002340: 52 42 2D 4C 4F 3D 4F 52  42 49 54 41 4C 20 4C 4F  |RB-LO=ORBITAL LO|
00002350: 4E 47 49 54 55 44 45 22  2C 22 48 45 4C 2D 4C 4F  |NGITUDE","HEL-LO|
00002360: 3D 48 45 4C 49 4F 43 45  4E 54 52 49 43 20 4C 4F  |=HELIOCENTRIC LO|
00002370: 4E 47 49 54 55 44 45 22  00 9C 2B 14 0F 83 22 48  |NGITUDE"..+..."H|
00002380: 45 4C 2D 4C 41 3D 48 45  4C 49 4F 43 45 4E 54 52  |EL-LA=HELIOCENTR|
00002390: 49 43 20 4C 41 54 49 54  55 44 45 22 00 DC 2B 1E  |IC LATITUDE"..+.|
000023A0: 0F 83 22 47 45 4F 2D 4C  4F 3D 47 45 4F 43 45 4E  |.."GEO-LO=GEOCEN|
000023B0: 54 52 49 43 20 4C 4F 4E  47 49 54 55 44 45 22 2C  |TRIC LONGITUDE",|
000023C0: 22 47 45 4F 2D 4C 41 3D  47 45 4F 43 45 4E 54 52  |"GEO-LA=GEOCENTR|
000023D0: 49 43 20 4C 41 54 49 54  55 44 45 22 00 25 2C 28  |IC LATITUDE".%,(|
000023E0: 0F 8F 20 43 4F 4E 53 54  41 4E 54 53 20 46 4F 52  |.. CONSTANTS FOR|
000023F0: 20 4A 55 50 2F 53 41 54  20 50 45 54 55 52 42 41  | JUP/SAT PETURBA|
00002400: 54 49 4F 4E 2C 50 52 45  53 53 49 4F 4E 2C 4F 42  |TION,PRESSION,OB|
00002410: 4C 49 51 55 49 54 59 2C  53 49 44 45 52 45 41 4C  |LIQUITY,SIDEREAL|
00002420: 20 54 49 4D 45 00 70 2C  32 0F 4B 31 B2 32 34 31  | TIME.p,2.K1.241|
00002430: 35 30 32 30 3A 4B 32 B2  33 36 35 32 35 3A 4B 33  |5020:K2.36525:K3|
00002440: B2 32 33 37 2E 34 37 35  35 35 3A 4B 34 B2 33 30  |.237.47555:K4.30|
00002450: 33 34 2E 39 30 36 31 3A  4B 35 B2 32 36 35 2E 39  |34.9061:K5.265.9|
00002460: 31 36 35 3A 4B 36 B2 31  32 32 32 2E 31 31 33 39  |165:K6.1222.1139|
00002470: 00 91 2C 3C 0F 4B 37 B2  33 2E 30 37 33 38 33 3A  |..,<.K7.3.07383:|
00002480: 4B 38 B2 31 2E 33 33 36  3A 4B 39 B2 32 30 2E 30  |K8.1.336:K9.20.0|
00002490: 34 00 DE 2C 46 0F 4D 30  B2 2E 33 33 31 34 3A 4D  |4..,F.M0..3314:M|
000024A0: 32 B2 2E 30 36 34 34 34  3A 4D 34 B2 2E 30 31 30  |2..06444:M4..010|
000024B0: 35 3A 4D 35 B2 2E 30 31  38 32 3A 4D 36 B2 2E 38  |5:M5..0182:M6..8|
000024C0: 31 34 32 3A 4D 37 B2 2E  31 34 38 38 3A 4D 38 B2  |142:M7..1488:M8.|
000024D0: 2E 30 31 30 33 3A 4D 39  B2 2E 31 36 30 39 00 27  |.0103:M9..1609.'|
000024E0: 2D 50 0F 4C 30 B2 2E 30  34 30 38 3A 4C 31 B2 2E  |-P.L0..0408:L1..|
000024F0: 30 38 35 36 3A 4C 32 B2  2E 30 38 31 33 3A 4C 34  |0856:L2..0813:L4|
00002500: B2 34 36 2E 38 34 35 3A  4C 35 B2 2E 30 30 35 39  |.46.845:L5..0059|
00002510: 3A 4C 36 B2 2E 30 30 31  38 31 3A 4C 37 B2 32 33  |:L6..00181:L7.23|
00002520: 2E 34 35 32 32 39 34 00  76 2D 5A 0F 4F 30 B2 2E  |.452294.v-Z.O0..|
00002530: 30 36 35 37 30 39 38 3A  4F 31 B2 31 2E 30 30 32  |0657098:O1.1.002|
00002540: 37 33 38 3A 4F 32 B2 2E  39 39 37 32 37 3A 4F 33  |738:O2..99727:O3|
00002550: B2 36 2E 36 34 36 30 36  35 36 3A 4F 34 B2 32 34  |.6.6460656:O4.24|
00002560: 30 30 2E 30 35 31 32 36  32 3A 4F 35 B2 2E 30 30  |00.051262:O5..00|
00002570: 30 30 32 35 38 31 00 8D  2D 64 0F 57 31 B2 FF AD  |002581..-d.W1...|
00002580: 32 3A 57 32 B2 FF 3A 57  34 B2 32 AC FF 00 AF 2D  |2:W2..:W4.2....-|
00002590: 6E 0F 96 A5 53 28 58 29  B2 C1 28 58 AD BA 28 AB  |n...S(X)..(X..(.|
000025A0: 58 AC 58 AA 31 29 29 3A  8F 20 53 49 4E 2D 31 00  |X.X.1)):. SIN-1.|
000025B0: D6 2D 78 0F 96 A5 43 28  58 29 B2 AB C1 28 58 AD  |.-x...C(X)...(X.|
000025C0: BA 28 AB 58 AC 58 AA 31  29 29 AA FF AD 32 3A 8F  |.(.X.X.1))...2:.|
000025D0: 20 43 4F 53 2D 31 00 F5  2D 82 0F 96 A5 44 28 58  | COS-1..-....D(X|
000025E0: 29 B2 B5 28 58 AC 31 30  AE 44 45 AA 2E 35 29 AD  |)..(X.10.DE..5).|
000025F0: 31 30 AE 44 45 00 08 2E  8C 0F 96 A5 45 28 58 29  |10.DE.......E(X)|
00002600: B2 B5 28 58 AA 2E 35 29  00 23 2E 96 0F 96 A5 46  |..(X..5).#.....F|
00002610: 28 58 29 B2 B5 28 58 AC  31 30 30 AA 2E 35 29 AD  |(X)..(X.100..5).|
00002620: 31 30 30 00 40 2E A0 0F  96 A5 47 28 58 29 B2 B5  |100.@.....G(X)..|
00002630: 28 58 AC 31 30 30 30 AA  2E 35 29 AD 31 30 30 30  |(X.1000..5).1000|
00002640: 00 70 2E AA 0F 81 41 B2  30 A4 39 3A 87 50 24 28  |.p....A.0.9:.P$(|
00002650: 41 29 2C 54 50 28 41 29  2C 4C 45 2C 4C 50 2C 45  |A),TP(A),LE,LP,E|
00002660: 43 28 41 29 2C 52 41 28  41 29 2C 49 4E 2C 4C 4E  |C(A),RA(A),IN,LN|
00002670: 00 A4 2E B4 0F 4C 45 28  41 29 B2 4C 45 AC 52 44  |.....LE(A).LE.RD|
00002680: 3A 4C 50 28 41 29 B2 4C  50 AC 52 44 3A 49 4E 28  |:LP(A).LP.RD:IN(|
00002690: 41 29 B2 49 4E AC 52 44  3A 4C 4E 28 41 29 B2 4C  |A).IN.RD:LN(A).L|
000026A0: 4E AC 52 44 00 AB 2E BE  0F 82 41 00 C0 2E C8 0F  |N.RD......A.....|
000026B0: 81 4A B2 30 A4 36 3A 87  44 24 28 4A 29 3A 82 4A  |.J.0.6:.D$(J):.J|
000026C0: 00 DF 2E D2 0F 81 4A B2  31 A4 31 38 3A 87 4B 59  |......J.1.18:.KY|
000026D0: 24 28 4A 29 3A 82 4A 3A  8F 20 49 4E 44 45 58 00  |$(J):.J:. INDEX.|
000026E0: E5 2E DC 0F 8E 00 EB 2E  E6 0F 3A 00 02 2F F0 0F  |..........:../..|
000026F0: 8F 20 50 52 49 4E 54 4F  55 54 20 53 54 52 49 4E  |. PRINTOUT STRIN|
00002700: 47 53 00 1E 2F FA 0F 99  53 33 24 3B 53 31 24 3B  |GS../...S3$;S1$;|
00002710: 22 50 2F 4F 20 53 54 52  49 4E 47 53 22 3B 00 35  |"P/O STRINGS";.5|
00002720: 2F 04 10 81 41 B2 30 A4  39 3A 99 41 3B 3A 8B 41  |/...A.0.9:.A;:.A|
00002730: B2 33 A7 82 41 00 3E 2F  0E 10 44 45 B2 30 00 6E  |.3..A.>/..DE.0.n|
00002740: 2F 18 10 41 5A 24 28 41  29 B2 C9 28 53 24 AA C4  |/..AZ$(A)..(S$..|
00002750: 28 A5 44 28 50 46 28 41  29 AD 52 44 29 29 2C 34  |(.D(PF(A).RD)),4|
00002760: AA 44 45 29 3A 8F 20 41  5A 49 4D 55 54 48 00 9F  |.DE):. AZIMUTH..|
00002770: 2F 22 10 41 4C 24 28 41  29 B2 C9 28 53 24 AA C4  |/".AL$(A)..(S$..|
00002780: 28 A5 44 28 51 46 28 41  29 AD 52 44 29 29 2C 34  |(.D(QF(A).RD)),4|
00002790: AA 44 45 29 3A 8F 20 41  4C 54 49 54 55 44 45 00  |.DE):. ALTITUDE.|
000027A0: D7 2F 2C 10 5A 52 24 28  41 29 B2 C9 28 53 24 AA  |./,.ZR$(A)..(S$.|
000027B0: C4 28 A5 44 28 41 52 28  41 29 AD 52 44 29 29 2C  |.(.D(AR(A).RD)),|
000027C0: 34 AA 44 45 29 3A 8F 20  41 5A 49 4D 55 54 48 20  |4.DE):. AZIMUTH |
000027D0: 41 54 20 52 49 53 45 00  0E 30 36 10 5A 53 24 28  |AT RISE..06.ZS$(|
000027E0: 41 29 B2 C9 28 53 24 AA  C4 28 A5 44 28 41 53 28  |A)..(S$..(.D(AS(|
000027F0: 41 29 AD 52 44 29 29 2C  34 AA 44 45 29 3A 8F 20  |A).RD)),4.DE):. |
00002800: 41 5A 49 4D 55 54 48 20  41 54 20 53 45 54 00 17  |AZIMUTH AT SET..|
00002810: 30 40 10 44 45 B2 31 00  56 30 4A 10 52 54 24 28  |0@.DE.1.V0J.RT$(|
00002820: 41 29 B2 C9 28 53 24 AA  C4 28 A5 44 28 47 55 28  |A)..(S$..(.D(GU(|
00002830: 41 29 29 29 2C 34 AA 44  45 29 3A 8F 20 52 49 53  |A))),4.DE):. RIS|
00002840: 45 20 54 49 4D 45 20 28  44 45 43 49 4D 41 4C 20  |E TIME (DECIMAL |
00002850: 48 4F 55 52 53 29 00 94  30 54 10 53 54 24 28 41  |HOURS)..0T.ST$(A|
00002860: 29 B2 C9 28 53 24 AA C4  28 A5 44 28 47 44 28 41  |)..(S$..(.D(GD(A|
00002870: 29 29 29 2C 34 AA 44 45  29 3A 8F 20 53 45 54 20  |))),4.DE):. SET |
00002880: 54 49 4D 45 20 28 44 45  43 49 4D 41 4C 20 48 4F  |TIME (DECIMAL HO|
00002890: 55 52 53 29 00 CF 30 5E  10 53 45 24 28 41 29 B2  |URS)..0^.SE$(A).|
000028A0: C9 28 53 24 AA C4 28 A5  44 28 53 45 28 41 29 AD  |.(S$..(.D(SE(A).|
000028B0: 52 44 29 29 2C 34 AA 44  45 AA 31 29 3A 8F 20 53  |RD)),4.DE.1):. S|
000028C0: 4F 4C 41 52 20 45 4C 4F  4E 47 41 54 49 4F 4E 00  |OLAR ELONGATION.|
000028D0: FF 30 68 10 48 41 24 28  41 29 B2 C9 28 53 24 AA  |.0h.HA$(A)..(S$.|
000028E0: C4 28 A5 44 28 48 41 28  41 29 29 29 2C 34 AA 44  |.(.D(HA(A))),4.D|
000028F0: 45 29 3A 8F 20 48 4F 55  52 20 41 4E 47 4C 45 00  |E):. HOUR ANGLE.|
00002900: 33 31 72 10 50 41 24 28  41 29 B2 C9 28 53 24 AA  |31r.PA$(A)..(S$.|
00002910: C4 28 A5 44 28 50 41 28  41 29 AD 52 44 29 29 2C  |.(.D(PA(A).RD)),|
00002920: 34 AA 44 45 AA 32 29 3A  8F 20 4F 52 42 20 50 4F  |4.DE.2):. ORB PO|
00002930: 53 49 54 00 6F 31 7C 10  50 42 24 28 41 29 B2 C9  |SIT.o1|.PB$(A)..|
00002940: 28 53 24 AA C4 28 A5 44  28 50 42 28 41 29 AD 52  |(S$..(.D(PB(A).R|
00002950: 44 29 29 2C 34 AA 44 45  AA 32 29 3A 8F 20 48 45  |D)),4.DE.2):. HE|
00002960: 4C 49 4F 43 45 4E 54 52  49 43 20 4C 4F 4E 47 00  |LIOCENTRIC LONG.|
00002970: A9 31 86 10 50 43 24 28  41 29 B2 C9 28 53 24 AA  |.1..PC$(A)..(S$.|
00002980: C4 28 A5 44 28 50 43 28  41 29 AD 52 44 29 29 2C  |.(.D(PC(A).RD)),|
00002990: 34 AA 44 45 AA 32 29 3A  8F 20 47 45 4F 43 45 4E  |4.DE.2):. GEOCEN|
000029A0: 54 52 49 43 20 4C 4F 4E  47 00 B2 31 90 10 44 45  |TRIC LONG..1..DE|
000029B0: B2 32 00 EB 31 9A 10 44  53 24 28 41 29 B2 C9 28  |.2..1..DS$(A)..(|
000029C0: 53 24 AA C4 28 A5 44 28  44 53 28 41 29 29 29 2C  |S$..(.D(DS(A))),|
000029D0: 34 AA 44 45 29 3A 8F 20  44 49 53 54 41 4E 43 45  |4.DE):. DISTANCE|
000029E0: 20 46 52 4F 4D 20 45 41  52 54 48 00 26 32 A4 10  | FROM EARTH.&2..|
000029F0: 51 42 24 28 41 29 B2 C9  28 53 24 AA C4 28 A5 44  |QB$(A)..(S$..(.D|
00002A00: 28 51 42 28 41 29 AD 52  44 29 29 2C 34 AA 44 45  |(QB(A).RD)),4.DE|
00002A10: AA 31 29 3A 8F 20 48 45  4C 49 4F 43 45 4E 54 52  |.1):. HELIOCENTR|
00002A20: 49 43 20 4C 41 54 00 5F  32 AE 10 51 43 24 28 41  |IC LAT._2..QC$(A|
00002A30: 29 B2 C9 28 53 24 AA C4  28 A5 44 28 51 43 28 41  |)..(S$..(.D(QC(A|
00002A40: 29 AD 52 44 29 29 2C 34  AA 44 45 AA 31 29 3A 8F  |).RD)),4.DE.1):.|
00002A50: 20 47 45 4F 43 45 4E 54  52 49 43 20 4C 41 54 00  | GEOCENTRIC LAT.|
00002A60: 92 32 B8 10 52 56 24 28  41 29 B2 C9 28 53 24 AA  |.2..RV$(A)..(S$.|
00002A70: C4 28 A5 44 28 52 56 28  41 29 29 29 2C 34 AA 44  |.(.D(RV(A))),4.D|
00002A80: 45 29 3A 8F 20 52 41 44  49 55 53 20 56 45 43 54  |E):. RADIUS VECT|
00002A90: 4F 52 00 D4 32 C2 10 41  53 24 28 41 29 B2 C9 28  |OR..2..AS$(A)..(|
00002AA0: 53 24 AA C4 28 A5 44 28  50 44 28 41 29 AD 52 44  |S$..(.D(PD(A).RD|
00002AB0: 29 29 2C 34 AA 44 45 29  3A 8F 20 52 49 47 48 54  |)),4.DE):. RIGHT|
00002AC0: 20 41 53 43 45 4E 53 49  4F 4E 20 28 44 45 47 52  | ASCENSION (DEGR|
00002AD0: 45 45 53 29 00 17 33 CC  10 44 45 24 28 41 29 B2  |EES)..3..DE$(A).|
00002AE0: C9 28 53 24 AA C4 28 A5  44 28 51 44 28 41 29 AD  |.(S$..(.D(QD(A).|
00002AF0: 52 44 29 29 2C 34 AA 44  45 29 3A 8F 20 44 45 43  |RD)),4.DE):. DEC|
00002B00: 4C 49 4E 41 54 49 4F 4E  20 28 44 45 43 49 4D 41  |LINATION (DECIMA|
00002B10: 4C 20 44 45 47 53 29 00  4C 33 D6 10 41 41 24 28  |L DEGS).L3..AA$(|
00002B20: 41 29 B2 C9 28 53 24 AA  41 41 24 28 41 29 AA 22  |A)..(S$.AA$(A)."|
00002B30: 20 22 2C 31 31 29 3A 8F  20 52 54 20 41 53 43 20  | ",11):. RT ASC |
00002B40: 49 4E 20 48 4F 55 52 53  2F 4D 49 4E 00 7D 33 E0  |IN HOURS/MIN.}3.|
00002B50: 10 44 44 24 28 41 29 B2  C9 28 53 24 AA 44 44 24  |.DD$(A)..(S$.DD$|
00002B60: 28 41 29 AA 22 20 22 2C  31 31 29 3A 8F 20 44 45  |(A)." ",11):. DE|
00002B70: 43 4C 20 49 4E 20 44 45  47 2F 4D 49 4E 00 84 33  |CL IN DEG/MIN..3|
00002B80: EA 10 82 41 00 BB 33 F4  10 50 41 24 28 30 29 B2  |...A..3..PA$(0).|
00002B90: C9 28 53 24 AA C4 28 A5  44 28 50 41 28 30 29 AD  |.(S$..(.D(PA(0).|
00002BA0: 52 44 29 29 2C 34 AA 33  29 3A 8F 20 45 41 52 54  |RD)),4.3):. EART|
00002BB0: 48 20 4F 52 42 20 50 4F  53 49 54 00 F2 33 FE 10  |H ORB POSIT..3..|
00002BC0: 50 41 24 28 33 29 B2 C9  28 53 24 AA C4 28 A5 44  |PA$(3)..(S$..(.D|
00002BD0: 28 50 41 28 33 29 AD 52  44 29 29 2C 34 AA 33 29  |(PA(3).RD)),4.3)|
00002BE0: 3A 8F 20 45 41 52 54 48  20 4F 52 42 20 50 4F 53  |:. EARTH ORB POS|
00002BF0: 49 54 00 F8 33 08 11 8E  00 FE 33 12 11 3A 00 0F  |IT..3.....3..:..|
00002C00: 34 1C 11 8F 20 50 52 49  4E 54 4F 55 54 20 31 00  |4... PRINTOUT 1.|
00002C10: 36 34 26 11 99 22 93 11  22 3B 44 54 24 3B 22 20  |64&.."..";DT$;" |
00002C20: 20 22 3B 54 24 3B 22 47  4D 54 20 20 22 3B 47 53  | ";T$;"GMT  ";GS|
00002C30: 24 3B 22 47 53 54 00 52  34 30 11 99 44 31 24 3B  |$;"GST.R40..D1$;|
00002C40: 22 20 20 20 20 20 20 44  41 59 20 4E 4F 2E 22 3B  |"      DAY NO.";|
00002C50: 4A 44 00 7B 34 3A 11 99  22 54 48 45 20 50 4F 53  |JD.{4:.."THE POS|
00002C60: 49 54 49 4F 4E 20 4F 46  20 54 48 45 20 50 4C 41  |ITION OF THE PLA|
00002C70: 4E 45 54 53 20 46 52 4F  4D 20 22 00 8C 34 44 11  |NETS FROM "..4D.|
00002C80: 8B 46 47 B3 B1 30 A7 89  34 34 34 30 00 9A 34 4E  |.FG..0..4440..4N|
00002C90: 11 99 22 4C 45 45 44 53  20 22 00 BD 34 58 11 99  |.."LEEDS "..4X..|
00002CA0: 22 4C 41 54 3D 22 3B 4C  41 3B 22 4C 4F 4E 3D 22  |"LAT=";LA;"LON="|
00002CB0: 3B 4C 4F 3B 22 44 45 43  2D 44 45 47 22 00 CD 34  |;LO;"DEC-DEG"..4|
00002CC0: 62 11 8B 46 4C B2 32 A7  89 34 35 33 30 00 DD 34  |b..FL.2..4530..4|
00002CD0: 6C 11 8B 46 4C B2 33 A7  89 34 35 39 30 00 ED 34  |l..FL.3..4590..4|
00002CE0: 76 11 8B 46 4C B2 34 A7  89 34 36 35 30 00 2E 35  |v..FL.4..4650..5|
00002CF0: 80 11 99 22 20 20 20 20  22 3B 22 20 41 5A 4D 22  |..."    ";" AZM"|
00002D00: 3B 22 20 41 4C 54 22 3B  22 20 52 41 5A 22 3B 22  |;" ALT";" RAZ";"|
00002D10: 20 53 41 5A 22 3B 22 20  20 52 53 45 22 3B 22 20  | SAZ";"  RSE";" |
00002D20: 20 53 45 54 22 3B 22 20  20 44 49 53 54 22 00 41  | SET";"  DIST".A|
00002D30: 35 8A 11 81 41 B2 30 A4  39 3A 8B 41 B2 33 A7 82  |5...A.0.9:.A.3..|
00002D40: 41 00 7D 35 94 11 99 50  24 28 41 29 3B 41 5A 24  |A.}5...P$(A);AZ$|
00002D50: 28 41 29 3B 41 4C 24 28  41 29 3B 5A 52 24 28 41  |(A);AL$(A);ZR$(A|
00002D60: 29 3B 5A 53 24 28 41 29  3B 52 54 24 28 41 29 3B  |);ZS$(A);RT$(A);|
00002D70: 53 54 24 28 41 29 3B 44  53 24 28 41 29 00 84 35  |ST$(A);DS$(A)..5|
00002D80: 9E 11 82 41 00 8A 35 A8  11 8E 00 9B 35 B2 11 8F  |...A..5.....5...|
00002D90: 20 4D 4F 52 45 20 50 2F  4F 20 32 00 C3 35 BC 11  | MORE P/O 2..5..|
00002DA0: 99 22 20 20 20 20 22 3B  22 20 52 54 41 53 43 22  |."    ";" RTASC"|
00002DB0: 3B 22 20 20 20 20 20 20  22 2C 22 20 44 45 43 4C  |;"      "," DECL|
00002DC0: 49 4E 22 00 D6 35 C6 11  81 41 B2 30 A4 39 3A 8B  |IN"..5...A.0.9:.|
00002DD0: 41 B2 33 A7 82 41 00 FD  35 D0 11 99 50 24 28 41  |A.3..A..5...P$(A|
00002DE0: 29 3B 41 53 24 28 41 29  3B 41 41 24 28 41 29 3B  |);AS$(A);AA$(A);|
00002DF0: 44 45 24 28 41 29 3B 44  44 24 28 41 29 00 04 36  |DE$(A);DD$(A)..6|
00002E00: DA 11 82 41 00 0A 36 E4  11 8E 00 1B 36 EE 11 8F  |...A..6.....6...|
00002E10: 20 4D 4F 52 45 20 50 2F  4F 20 33 00 4B 36 F8 11  | MORE P/O 3.K6..|
00002E20: 99 22 20 20 20 20 22 3B  22 20 20 48 52 41 22 3B  |."    ";"  HRA";|
00002E30: 22 20 20 20 53 45 4C 22  3B 22 20 20 20 52 56 43  |"   SEL";"   RVC|
00002E40: 22 3B 22 20 44 49 53 2D  4B 4D 22 00 5E 36 02 12  |";" DIS-KM".^6..|
00002E50: 81 41 B2 30 A4 39 3A 8B  41 B2 33 A7 82 41 00 84  |.A.0.9:.A.3..A..|
00002E60: 36 0C 12 99 50 24 28 41  29 3B 48 41 24 28 41 29  |6...P$(A);HA$(A)|
00002E70: 3B 53 45 24 28 41 29 3B  52 56 24 28 41 29 3B 44  |;SE$(A);RV$(A);D|
00002E80: 4B 28 41 29 00 8B 36 16  12 82 41 00 91 36 20 12  |K(A)..6...A..6 .|
00002E90: 8E 00 A2 36 2A 12 8F 20  4D 4F 52 45 20 50 2F 4F  |...6*.. MORE P/O|
00002EA0: 20 34 00 E0 36 34 12 99  22 20 20 20 20 22 3B 22  | 4..64.."    ";"|
00002EB0: 20 4F 52 42 2D 4C 4F 22  3B 22 20 48 45 4C 2D 4C  | ORB-LO";" HEL-L|
00002EC0: 4F 22 3B 22 20 48 45 4C  2D 4C 41 22 3B 22 20 47  |O";" HEL-LA";" G|
00002ED0: 45 4F 2D 4C 4F 22 3B 22  20 47 45 4F 2D 4C 41 22  |EO-LO";" GEO-LA"|
00002EE0: 00 20 37 3E 12 81 41 B2  30 A4 39 3A 8B 41 B2 33  |. 7>..A.0.9:.A.3|
00002EF0: B0 41 B2 30 A7 50 42 24  28 41 29 B2 42 4C 24 3A  |.A.0.PB$(A).BL$:|
00002F00: 51 42 24 28 41 29 B2 42  4C 24 3A 50 43 24 28 41  |QB$(A).BL$:PC$(A|
00002F10: 29 B2 42 4C 24 3A 51 43  24 28 41 29 B2 42 4C 24  |).BL$:QC$(A).BL$|
00002F20: 00 4E 37 48 12 99 50 24  28 41 29 3B 50 41 24 28  |.N7H..P$(A);PA$(|
00002F30: 41 29 3B 50 42 24 28 41  29 3B 51 42 24 28 41 29  |A);PB$(A);QB$(A)|
00002F40: 3B 50 43 24 28 41 29 3B  51 43 24 28 41 29 00 55  |;PC$(A);QC$(A).U|
00002F50: 37 52 12 82 41 00 5B 37  5C 12 8E 00 61 37 66 12  |7R..A.[7\...a7f.|
00002F60: 3A 00 6B 37 70 12 8F 20  4B 45 59 00 76 37 7A 12  |:.k7p.. KEY.v7z.|
00002F70: 99 22 93 4B 45 59 00 8D  37 84 12 81 4A B2 31 A4  |.".KEY..7...J.1.|
00002F80: 31 38 3A 99 4B 59 24 28  4A 29 3A 82 4A 00 AD 37  |18:.KY$(J):.J..7|
00002F90: 8E 12 8B 52 54 24 B2 22  59 22 A7 52 54 24 B2 22  |...RT$."Y".RT$."|
00002FA0: 22 3A 8D 33 31 35 30 3A  89 34 37 37 30 00 C8 37  |":.3150:.4770..7|
00002FB0: 98 12 99 3A 99 22 48 41  52 44 43 4F 50 59 20 3C  |...:."HARDCOPY <|
00002FC0: 59 2F 4E 3E 2B 20 22 3B  00 F1 37 A2 12 85 22 3C  |Y/N>+ ";..7..."<|
00002FD0: 52 45 54 55 52 4E 3E 22  3B 52 54 24 3A 8B 52 54  |RETURN>";RT$:.RT|
00002FE0: 24 B2 22 59 22 A7 8D 33  31 34 30 3A 89 34 37 34  |$."Y"..3140:.474|
00002FF0: 30 00 F7 37 AC 12 8E 00  FD 37 B6 12 3A 00 13 38  |0..7.....7..:..8|
00003000: C0 12 8F 20 4C 4F 57 20  52 45 53 20 47 52 41 50  |... LOW RES GRAP|
00003010: 48 49 43 00 1B 38 CA 12  99 22 93 00 3B 38 D4 12  |HIC..8..."..;8..|
00003020: 43 4D B2 35 35 32 39 36  3A 8F 20 53 54 41 52 54  |CM.55296:. START|
00003030: 20 4F 46 20 43 4F 4C 20  4D 41 50 00 5A 38 DE 12  | OF COL MAP.Z8..|
00003040: 53 4D B2 31 30 32 34 3A  8F 20 53 54 41 52 54 20  |SM.1024:. START |
00003050: 4F 46 20 53 43 4E 20 4D  41 50 00 92 38 E8 12 8B  |OF SCN MAP..8...|
00003060: 47 4D B1 47 55 28 30 29  AF 47 4D B3 47 44 28 30  |GM.GU(0).GM.GD(0|
00003070: 29 A7 97 35 33 32 38 31  2C 31 3A 8F 20 53 55 4E  |)..53281,1:. SUN|
00003080: 53 48 49 4E 45 2D 57 48  49 54 45 20 53 43 52 45  |SHINE-WHITE SCRE|
00003090: 45 4E 00 C8 38 F2 12 81  4A B2 32 A4 32 34 3A 58  |EN..8...J.2.24:X|
000030A0: B2 4A AC 34 30 AA 32 30  3A 97 53 4D AA 58 2C 31  |.J.40.20:.SM.X,1|
000030B0: 36 30 3A 82 3A 97 53 4D  AA 32 30 2C 31 39 3A 97  |60:.:.SM.20,19:.|
000030C0: 53 4D AA 36 30 2C 33 30  00 F3 38 FC 12 97 53 4D  |SM.60,30..8...SM|
000030D0: AA 35 38 2C 35 3A 97 53  4D AA 35 39 2C 36 30 3A  |.58,5:.SM.59,60:|
000030E0: 97 53 4D AA 36 31 2C 36  32 3A 97 53 4D AA 36 32  |.SM.61,62:.SM.62|
000030F0: 2C 32 33 00 11 39 06 13  81 41 B2 30 A4 39 3A 8B  |,23..9...A.0.9:.|
00003100: 51 46 28 41 29 B3 30 B0  41 B2 33 A7 89 34 39 34  |QF(A).0.A.3..494|
00003110: 30 00 3F 39 10 13 41 5A  B2 A5 45 28 28 50 46 28  |0.?9..AZ..E((PF(|
00003120: 41 29 AD 52 44 AB 31 30  30 29 AD 34 29 3A 41 4C  |A).RD.100).4):AL|
00003130: B2 A5 45 28 51 46 28 41  29 AD 52 44 AD 34 29 00  |..E(QF(A).RD.4).|
00003140: 55 39 1A 13 8B 41 5A B1  33 39 B0 41 5A B3 30 A7  |U9...AZ.39.AZ.0.|
00003150: 89 34 39 34 30 00 71 39  24 13 43 4F B2 30 3A 8F  |.4940.q9$.CO.0:.|
00003160: 20 42 4C 41 43 4B 20 43  48 41 52 41 43 54 45 52  | BLACK CHARACTER|
00003170: 53 00 90 39 2E 13 50 4F  B2 28 32 35 AB 41 4C 29  |S..9..PO.(25.AL)|
00003180: AC 34 30 AA 41 5A 3A 8B  41 B2 30 A7 43 4F B2 37  |.40.AZ:.A.0.CO.7|
00003190: 00 C4 39 38 13 5A B2 C2  28 53 4D AA 50 4F 29 3A  |..98.Z..(SM.PO):|
000031A0: 8B 5A B1 34 37 AF 5A B3  35 38 A7 43 4F B2 32 3A  |.Z.47.Z.58.CO.2:|
000031B0: 8F 20 32 20 49 4E 20 53  41 4D 45 20 50 4F 53 49  |. 2 IN SAME POSI|
000031C0: 54 49 4F 4E 00 DE 39 42  13 97 53 4D AA 50 4F 2C  |TION..9B..SM.PO,|
000031D0: 41 AA 34 38 3A 97 43 4D  AA 50 4F 2C 43 4F 00 E5  |A.48:.CM.PO,CO..|
000031E0: 39 4C 13 82 41 00 20 3A  56 13 99 22 13 38 30 20  |9L..A. :V..".80 |
000031F0: 44 45 47 53 20 45 26 57  20 4F 46 20 53 1D 1D 1D  |DEGS E&W OF S...|
00003200: 1D 1D 1D 1D 1D 1D 1D 1D  1D 3C 52 45 54 55 52 4E  |.........<RETURN|
00003210: 3E 22 3B 3A 85 51 24 3A  97 35 33 32 38 31 2C 36  |>";:.Q$:.53281,6|
00003220: 00 26 3A 60 13 8E 00 2C  3A 6A 13 3A 00 3F 3A 74  |.&:`...,:j.:.?:t|
00003230: 13 8F 20 43 4F 2D 4F 52  44 49 4E 41 54 45 53 00  |.. CO-ORDINATES.|
00003240: 62 3A 7E 13 99 22 93 43  4F 2D 4F 52 44 49 4E 41  |b:~..".CO-ORDINA|
00003250: 54 45 53 20 53 45 54 20  46 4F 52 20 4C 45 45 44  |TES SET FOR LEED|
00003260: 53 22 00 7B 3A 88 13 99  22 28 44 45 43 49 4D 41  |S".{:..."(DECIMA|
00003270: 4C 20 44 45 47 52 45 45  53 29 22 00 95 3A 92 13  |L DEGREES)"..:..|
00003280: 99 22 4C 41 54 3D 22 3B  4C 41 2C 22 4C 4F 4E 47  |."LAT=";LA,"LONG|
00003290: 3D 22 3B 4C 4F 00 AD 3A  9C 13 99 22 43 48 41 4E  |=";LO..:..."CHAN|
000032A0: 47 45 20 28 59 2F 4E 29  20 12 4E 92 22 00 C2 3A  |GE (Y/N) .N."..:|
000032B0: A6 13 A1 51 24 3A 8B 51  24 B2 22 22 A7 89 35 30  |...Q$:.Q$.""..50|
000032C0: 33 30 00 F7 3A B0 13 8B  51 24 B2 22 59 22 A7 85  |30..:...Q$."Y"..|
000032D0: 22 44 45 43 49 4D 41 4C  20 4C 41 54 22 3B 4C 41  |"DECIMAL LAT";LA|
000032E0: 3A 85 22 44 45 43 49 4D  41 4C 20 4C 4F 4E 22 3B  |:."DECIMAL LON";|
000032F0: 4C 4F 3A 46 47 B2 31 00  02 3B BA 13 99 22 93 22  |LO:FG.1..;..."."|
00003300: 3A 8E 00 00 00                                    |:....           |

....... ORRERY 88.2.... 8/1/88 PROGRAM- 
DAVID COOK.E.... -EPOCH 1988-.I.... MOST
 FORMULAE BASED ON- PRACT...... ASTRONOM
Y WITH YOUR CALCULATOR...... BY  P D-SMI
TH.G.$..*******************************.
Y....3510:. SETUP...8..4980:. CO-ORDINAT
ES...B..1410:. DATE...L..1540:. TIME.+.V
..1650:. JULIAN DAY.E.`..1770:. SIDEREAL
 TIME.[.J..1880:. OBLIQUITY.O.T..1940:. 
ANOMALY...~..2140:. JUP/SAT PETURBATION.
.....1910:. RADIUS VECTOR.H....2210:. HE
LIOCENT ECLIPTIC......2330:. GEOCENTRIC 
ECLIPTIC......2550:. ECLIPTC TO EQUATORL
.%....2490:. SOLAR ELONGATION.F....2670:
. HORIZON CO-ORDINATES._.D..2970:. RISE 
AND SET.|.N..4080:. PRINTOUT STRINGS...X
..4380:. PRINTOUT......3170:. MENU......
ZZ$."D"..1090:. NEW DATE......ZZ$."T".."
.":.1100:. NEW TIME......ZZ$."S"..3450:.
3310:.1110:. STEP DAY/TIME.:....ZZ$."1".
FL.1:.4380:. GO TO 1ST P/O.B....ZZ$."2".
FL.2:.4380:. GO TO 2ND P/O......ZZ$."3".
FL.3:.4380:. GO TO 3RD P/O...(..ZZ$."I".
FL.4:.4380:. GO TO 4TH P/O.Q.2..ZZ$."P".
.3140:.4380:.3150...<..ZZ$."K"..4720:.12
40:. DISPLAY KEY...F..ZZ$."M"..4800:.124
0:. DISPLAY MAP.T.P..ZZ$."C"..4990:.1770
:.1190:. CHANGE CO-ORDINATES.C.Z..ZZ$."B
"...M.D..1250.S.N.....X..***************
****************...... ENTER DATE......"
......"......"YEAR  ";I(S$.YA$,5);:Z$.""
:.Z$:.Z$.."".YA$.Z$... .."MONTH ";I(S$.M
A$,5);:Z$."":.Z$:.Z$.."".MA$.Z$.S...."DA
Y   ";I(S$.DA$,5);:Z$."":.Z$:.Z$.."".DA$
.Z$.U...YA.E(YA$):MA.E(MA$):DA.E(DA$). .
..X1..(DA):X2.DA.X1:GM..(X2.2400..5).100
.S.H.DE$.D(X1):DB$.I(S$.DE$,C(DE$).1):DC
$.D(.G(X2))...R..GM.0.T$.D(GM):GM$.D(.G(
GM)):X0.GM:.2780:T1$.H$.D....GM.0..".DAY
          ";DB$;"  ";"(";DC$;")";"      
   ".`...DT$.DB$."/".MA$."/".YA$.F.....L
...:.}.... ENTER TIME......:."DEC HRS   
   ";GM$:."OR"......"HH*MM*SS     ";T1$.
P.".."(E.G":."02*08*00)"...,..:."TIME   
      ";GM$;...6.Z$."":.Z$:.Z$.."".T$.Z$
...@..T$."".T$."0".=.J.GM.E(T$):.J(T$,3,
1).."*"..1630.M.T.GM.GM.E(J(T$,4,2)).60.
E(I(T$,C(T$).6)).3600...^.X0.GM:.2780:T1
$.H$:GM$.D(.G(GM)):....H.:...R.. JULIAN 
DAY SUB.G.|..S3$;S1$;"JUL DAY";.....YD.Y
A:MC.MA:.MC.3.YD.YD.1:MC.MC.12.....X1..(
365.25.YD):X2..(30.6001.(MC.1)).6...JN.X
1.X2.DA.1720994.5:JP.0.L....JN.2299171.X
4..(YD.100):JP.2.X4..(X4.4):JN.JN.JP....
.JY.JP..(365.25.(YA.1)).1721422.5.R...JD
.JN.GM.24:DN.JD.JY:JE.JD.EPOCH:JC.(JD.K1
).K2:YC.(JY.K1).K2...B.X5.(JN.1.5).7:X6.
.((X5..(X5)).7..5)...L.D1$.D$(X6)...V...
....:.).... SIDEREAL TIME.H...X1.O3.O4.Y
C.O5.YC.2:B1.24.(X1.24.(YD.1900)):X2.O0.
.(DN).B1.....GS.GM.O1.X2:.GS.24.GS.GS.24
......GS.0.GS.GS.24.....X0.GS:.2780:GS$.
H$.R...LS.GS.LO.15:.LS.24.LS.LS.24...&..
LS.0.LS.LS.24...0.LM.GM.LO.15:.LM.24.LM.
LM.24...:..LM.0.LM.LM.24...D...$.N.:.8.X
.. OBLIQUITY SUB.J.B.X1.L7.(L4.JC.L5.JC.
2.L6.JC.3).3600:OB.X1.RD:..P.L.:...V.. R
ADIUS VECTOR......A.0.9:RV(A).RA(A).(1.E
C(A).2).(1.EC(A)..(AN(A))):.A:..E...:.W.
... ANOMALY SUB......S3$;S1$;"ANOMALLY";
......A.0.9:.A;.....LE.LE(A):LP.LP(A):EC
.EC(A).Z...X1.W4.JE.365.2422.TP(A):X2..(
X1):X3.(X2.W4..(X2.W4)).W4.M.F..X1.0.X3.
W4.X3...P.AM.X3.LE.LP:.AM.0.AM.AM.W4...Z
..AM.W4.AM.AM.W4:. ORBITAL POSITION.....
:.L.... SOLVE KEPLER.V...X5.AM.....X6.X5
.EC..(X5).AM.......(X6).1E.6.X9.X6.(1.EC
..(X5)):X5.X5.X9:.2050.@...X7.((1.EC).(1
.EC))..5..(X5.2).Y. .AN.A(X7).2:. ANOMAL
Y.V.*.PA.AN.LP:.PA.W4.PA.PA.W4...4..PA.0
.PA.PA.W4...>.AN(A).AN:PA(A).PA:. ANOMAL
Y & ORBITAL LONGITUDE.F.H..A:..L.R.:...\
.. JUP/SAT PETURBATION.-.F.X2.JC.5..1:X3
.(K3.K4.JC).RD:X4.(K5.K6.JC).RD:X5.5.X4.
2.X3:X6.X4.X3.C.P.PJ.(M0.M8.X2)..(X5).M2
.X2..(X5):PA(5).PA(5).PJ.RD...Z.X8..L0..
(2.X6).L1..(X6)..(X4).L2..(X6)..(X4).F..
.X7.(M9.X2.M4)..(X5).(M5.X2.M6)..(X5).M7
..(X6).....PS.X7.X8:PA(6).PA(6).PS.RD:..
....:...... H/C ECLIPTIC SUB.!....S3$;S1
$;"HELIOCENTRIC";.8....A.1.9:.A;:.A.3..A
.I...RV.RV(A):IN.IN(A):LN.LN(A):PA.PA(A)
:AN.AN(A)...J.X1..(PA.LN)..(IN):QB..S(X1
):. ECLIPTIC LAT.L.T.X2..(PA.LN)..(IN):X
3..(PA.LN):X4.A(X2.X3):.2860.....PB.X6.L
N(A):.PB.W4.PB.PB.W4:. H/C ECLIPTIC LONG
.!...RP(A).RV..(QB):. PROJ RADIUS.F...DS
(A).(RV(3).2.RV.2.2.RV(3).RV..(PA.PA(3))
)..5:. PLANET DISTANCE.|...PB(A).PB:QB(A
).QB......A:DS(0).RV(0):......:...... GE
O/C ECLIPTIC SUB.K.$..S3$;S1$;"GEOCENTRI
C";......A.1.9:.A;:.A.3..A...8.X1.PB(A).
PA(3):.A.3..2410.<.B.X2.RP(A)..(.X1):X3.
RV(3).RP(A)..(.X1):X4.A(X2.X3):.2860...L
.PC.W2.PA(3).X6:.PC.W4.PC.PC.W4:. INNER 
PLANET G/C ECLIPTIC LONG...V..PC.0.PC.PC
.W4...`..2440.W.J.X2.RV(3)..(X1):X3.RP(A
).RV(3)..(X1):X4.A(X2.X3):.2860...T.PC.P
B(A).X6:.PC.W4.PC.PC.W4:. OUTER PLANET..
.~..PC.0.PC.PC.W4.J...X5.RP(A)..(QB(A)).
.(PC.PB(A)):X7.RV(3)..(X1).F...QC(A).A(X
5.X7):PC(A).PC.....DS(A).DS(A)..(QC(A)):
DK(A).DS(A).AU:. BETTER VALUE FOR DISTAN
CE.N....A:PC(0).PA(0):DK(0).DS(0).AU:..T
...:...... SOLAR ELONGATION...D..S3$;S1$
;"ELONGATION";...N..A.1.9:.A;:.A.3..A.^.
X.SE(A)..C(.(QD(A))..(QD(0))..(PD(A).PA(
0))..(QD(0))..(QD(A))).G....A:..M...:...
...    ECLIPTIC TO EQUATORIAL SUB......S
3$;S1$;"EQUATORIAL";.C....A.0.9:.A;:.A.3
..A.....X2..(PC(A))..(OB)..(QC(A))..(OB)
:X3..(PC(A)):X4.A(X2.X3)......2860:PD.X6
:. RT ASCENSION.B.(.X7..(QC(A))..(OB)..(
QC(A))..(OB)..(PC(A)):QD..S(X7):. DECINA
TN.Y.2..2920:. PRECESSION...<.X0.PD.RD.1
5:.2780:AA$(A).H$:. TO HH/MM/SS.S.F.X0.Q
D.RD:.2780:DD$(A).H$:. TO DEG/MM/SS...P.
PD(A).PD:QD(A).QD...Z..A:....D.:...N.. H
ORIZON COORDINATES.*.X..S3$;S1$;"HORIZON
";.7...LZ.LA.RD.N....A.0.9:.A;:.A.3..A.|
...QD.QD(A):HA.LS.PD(A).RD.15:.HA.0.HA.H
A.24... .HA(A).HA.G...HA.HA.15.RD:X5..(Q
D)..(LZ)..(QD)..(LZ)..(HA):QF(A)..S(X5).
....X6.(.(QD)..(LZ).X5).(.(LZ)..(QF(A)))
:PF(A)..C(X6).......(HA).0.PF(A).W4.PF(A
).".H..A:..(.R.:.B.... RT ASC TO HOURS/M
IN.D...XS$."":.X0.0.XS$."-":X0..(X0)....
.X1..(X0):X1$.I(D(X1),C(D(X1)).1).....X2
.(X0.X1).60:X3..(X2):X3$.I(D(X3),C(D(X3)
).1).....X4..((X2.X3).60):X4$.I(D(X4),C(
D(X4)).1).....H$.XS$.X1$."*".X3$."*".X4$
.........".:.0.,.. REMOVE ATAN AMBIGUITY
.G.6..X2.0.X3.0.X6.X4:..`.@..X2.0.X3.0.X
6.X4..:..Y.J..X2.0.X3.0.X6.X4..:....T..X
2.0.X3.0.X6.X4.W4:....^.:...H.. PRECESSI
ON SUB.M.R.X3..(PD):X4..(PD):X5..(QD)...
|.AC.(K7.K8.X3.X5).JE.365.2422.3600.15.R
D:DC.K9.X4.JE.365.2422.3600.RD.....PD.PD
.AC:QD.QD.DC:..4...:.G.... RISE/SET SUB.
`....S3$;S1$;"RISE/SET";.W....A.0.9:.A;:
.A.3..A.....X1..(QD(A))..(LZ):AR(A)..C(X
1):AS(A).W4.AR(A):. RISE/SET AZIM.P.B.X2
...(LZ)..(QD(A)).. L.X7.PD(A).15.RD:X3..
C(X2).15.RD:X4.24.X7.X3:.X4.24.X4.X4.24.
, V.X5.X7.X3:.X5.24.X5.X5.24.A ..G3(A).X
4:G4(A).X5:.A:. NOW CONVT TO GMT FROM GS
T.G ..:.} ... SIDEREAL TO GMT.. ..X2.O0.
.(DN).B1:.X2.0.X2.X2.24.. ...A.0.9:.A.3.
.A.Q ..X3.G3(A).X2:.X3.0.X3.X3.24.. ..X4
.G4(A).X2:.X4.0.X4.X4.24..!&.GU(A).X3.O2
:GD(A).X4.O2..!0..A:...!:.:.)!D..3,4:.3:
..5!N..3: 3:..;!X.:.J!B.. MENU SUB.X!L..
S4$;"CHANGE DATE  <D>","KEY          <K>
..!V.."CHANGE TIME  <T>","BREAK        <
B>.L!..."STEP DAY/TIME<S>","PRINTER     
 <P>..!...FL.4.."OTHER P/O'S  <1,2 OR 3>
":.3260.)"...FL.1.."2ND  P/O     <2>":."
3RD  P/O     <3>".["...FL.2.."1ST  P/O  
   <1>":."3RD  P/O     <3>".."...FL.3.."
1ST  P/O     <1>":."2ND  P/O     <2>..".
.."INTERMEDIATE <I>.M"..."MAP(100-260) <
M>","CNGE LAT/LON <C>.S"F.:.."P..ZZ$:.ZZ
$.""..3280.."Z...."..:..#... DAY TO DATE
.$#..X1..(JD..5):X2.JD..5.X1.F#...X1.229
9160.X3..((X1.1867216.25).36524.25):X1.X
1.1.X3..(X3.4)..#..X5.X1.1524:X6..((X5.1
22.1).365.25).Q#..X7..(X6.365.25):X8..((
X5.X7).30.6001):X9.X5.X7.X2..(X8.30.6001
)..$ .DA..(X9):GM.24.(X9.DA):DA$.D(DA):D
A$.I(DA$,C(DA$).1)..$*.X0.GM:.2780:T$.H$
:GM$.D(.G(GM)).J$4.MA.X8.13:.X8.14.MA.X8
.1.L$>.MA$.D(MA):MA$.I(MA$,C(MA$).1)..$H
.YA.X6.4715:.MA.2.YA.YA.1..$R.YA$.D(YA):
YA$.I(YA$,C(YA$).1).G$\.DT$.DA$."/".MA$.
"/".YA$.M$F...S$P.:..$Z.. STEP DAY/TIME.
.%..."DAY   <D>":."TIME  <T>  ";.*%...ZY
$:.ZY$.."D".ZY$.."T"..3470.R%...ZY$."D".
."DAY STEP ";D2:JD.JD.D2:...%...ZY$."T".
."TIME STEP (DEC HRS) ";T2:JD.JD.T2.24:.
..%..:..%... SETUP..%...".......RUNNING"
..%J..KY$(18)..%T.X1.0:X2.0:X3.0:X4.0:X5
.0:X6.0:X7.0:X8.0:X9.0..&..RD...180:. DE
G/RAD.&&..EPOCH.2447160.5:AU.149600000.?
&..FL.1:. PRINTOUT FLAG.{&..S3$.".      
                                  ":S1$.
"."..&..S4$."..................":S$."   
            ":BL$."  ---- "..&..LA.53.85
:LO.1.53:. LAT:LONG LEEDS ENGLAND."'..."
SUN0",1.00004,278.8924,282.781,.016706,.
999991,0,0.T'$.."MER1",.24085,309.2256,7
7.266,.20563,.387098.G'...7.0048,48.188.
.'8.."VEN2",.61521,357.2711,131.31,.0067
54,.723328..'B..3.3946,76.571..'L.."EAR3
",1.00004,98.8924,102.781,.016706,.99999
1,0,0..(V.."MAR4",1.88089,217.6568,335.7
99,.093332,1.523747..(`..1.8499,49.468.B
(J.."JUP5",11.86224,29.9214,15.496,.0481
64,5.20303.V(T..1.3051,100.367..(~.."SAT
6",29.45771,263.1975,91.459,.054031,9.52
933..(...2.4865,113.555..(..."URA7",84.0
1247,261.8052,170.370,.045869,19.1867..)
....7731,73.989.<)..."NEP8",164.79558,27
8.7169,36.26,.009974,30.0882.P)...1.7698
,131.682..)..."PLU9",250.9,221.4127,224.
133,.246241,39.341,17.142,110.144..)D.."
SUNDAY","MONDAY","TUESDAY","WEDNESDAY","
THURSDAY","FRIDAY","SATURDAY"..*N.."   A
ZM=AZIMUTH","   ALT=ALTITUDE","   RAZ=RI
SING AZIMUTH".I*X.."   SAZ=SETING AZIMUT
H","   RSE=RISE TIME (DECIMAL)","   SET=
SET TIME"..*..."  DIST=DISTANCE FROM EAR
TH IN AU'S"..*..."DIS-KM=DISTANCE FROM E
ARTH IN KMS..*..." RTASC=RIGHT ASCENSION
","DECLIN=DECLINATION".8+..."   HRA=HOUR
 ANGLE","   SEL=SOLAR ELONGATION","   RV
C=RADIUS VECTOR".X+..."ORB-LO=ORBITAL LO
NGITUDE","HEL-LO=HELIOCENTRIC LONGITUDE"
..+..."HEL-LA=HELIOCENTRIC LATITUDE"..+.
.."GEO-LO=GEOCENTRIC LONGITUDE","GEO-LA=
GEOCENTRIC LATITUDE".%,(.. CONSTANTS FOR
 JUP/SAT PETURBATION,PRESSION,OBLIQUITY,
SIDEREAL TIME.P,2.K1.2415020:K2.36525:K3
.237.47555:K4.3034.9061:K5.265.9165:K6.1
222.1139..,<.K7.3.07383:K8.1.336:K9.20.0
4..,F.M0..3314:M2..06444:M4..0105:M5..01
82:M6..8142:M7..1488:M8..0103:M9..1609.'
-P.L0..0408:L1..0856:L2..0813:L4.46.845:
L5..0059:L6..00181:L7.23.452294.V-Z.O0..
0657098:O1.1.002738:O2..99727:O3.6.64606
56:O4.2400.051262:O5..00002581..-D.W1...
2:W2..:W4.2....-N...S(X).A(X..(.X.X.1)):
. SIN-1.V-X...C(X)..A(X..(.X.X.1))...2:.
 COS-1..-....D(X)..(X.10.DE..5).10.DE...
....E(X)..(X..5).#.....F(X)..(X.100..5).
100.@. ...G(X)..(X.1000..5).1000.P....A.
0.9:.P$(A),TP(A),LE,LP,EC(A),RA(A),IN,LN
.....LE(A).LE.RD:LP(A).LP.RD:IN(A).IN.RD
:LN(A).LN.RD......A...H..J.0.6:.D$(J):.J
...R..J.1.18:.KY$(J):.J:. INDEX.........
..:../... PRINTOUT STRINGS../...S3$;S1$;
"P/O STRINGS";.5/...A.0.9:.A;:.A.3..A.>/
..DE.0.N/..AZ$(A).I(S$.D(.D(PF(A).RD)),4
.DE):. AZIMUTH../".AL$(A).I(S$.D(.D(QF(A
).RD)),4.DE):. ALTITUDE.W/,.ZR$(A).I(S$.
D(.D(AR(A).RD)),4.DE):. AZIMUTH AT RISE.
.06.ZS$(A).I(S$.D(.D(AS(A).RD)),4.DE):. 
AZIMUTH AT SET..0@.DE.1.V0J.RT$(A).I(S$.
D(.D(GU(A))),4.DE):. RISE TIME (DECIMAL 
HOURS)..0T.ST$(A).I(S$.D(.D(GD(A))),4.DE
):. SET TIME (DECIMAL HOURS).O0^.SE$(A).
I(S$.D(.D(SE(A).RD)),4.DE.1):. SOLAR ELO
NGATION..0H.HA$(A).I(S$.D(.D(HA(A))),4.D
E):. HOUR ANGLE.31R.PA$(A).I(S$.D(.D(PA(
A).RD)),4.DE.2):. ORB POSIT.O1|.PB$(A).I
(S$.D(.D(PB(A).RD)),4.DE.2):. HELIOCENTR
IC LONG..1..PC$(A).I(S$.D(.D(PC(A).RD)),
4.DE.2):. GEOCENTRIC LONG..1..DE.2..1..D
S$(A).I(S$.D(.D(DS(A))),4.DE):. DISTANCE
 FROM EARTH.&2..QB$(A).I(S$.D(.D(QB(A).R
D)),4.DE.1):. HELIOCENTRIC LAT._2..QC$(A
).I(S$.D(.D(QC(A).RD)),4.DE.1):. GEOCENT
RIC LAT..2..RV$(A).I(S$.D(.D(RV(A))),4.D
E):. RADIUS VECTOR.T2B.AS$(A).I(S$.D(.D(
PD(A).RD)),4.DE):. RIGHT ASCENSION (DEGR
EES)..3L.DE$(A).I(S$.D(.D(QD(A).RD)),4.D
E):. DECLINATION (DECIMAL DEGS).L3V.AA$(
A).I(S$.AA$(A)." ",11):. RT ASC IN HOURS
/MIN.}3..DD$(A).I(S$.DD$(A)." ",11):. DE
CL IN DEG/MIN..3...A..3..PA$(0).I(S$.D(.
D(PA(0).RD)),4.3):. EARTH ORB POSIT..3..
PA$(3).I(S$.D(.D(PA(3).RD)),4.3):. EARTH
 ORB POSIT..3.....3..:..4... PRINTOUT 1.
64&.."..";DT$;"  ";T$;"GMT  ";GS$;"GST.R
40..D1$;"      DAY NO.";JD.{4:.."THE POS
ITION OF THE PLANETS FROM "..4D..FG..0..
4440..4N.."LEEDS "..4X.."LAT=";LA;"LON="
;LO;"DEC-DEG".M4B..FL.2..4530..4L..FL.3.
.4590..4V..FL.4..4650..5..."    ";" AZM"
;" ALT";" RAZ";" SAZ";"  RSE";"  SET";" 
 DIST".A5...A.0.9:.A.3..A.}5...P$(A);AZ$
(A);AL$(A);ZR$(A);ZS$(A);RT$(A);ST$(A);D
S$(A)..5...A..5.....5... MORE P/O 2.C5..
."    ";" RTASC";"      "," DECLIN".V5F.
.A.0.9:.A.3..A..5P..P$(A);AS$(A);AA$(A);
DE$(A);DD$(A)..6Z..A..6.....6... MORE P/
O 3.K6..."    ";"  HRA";"   SEL";"   RVC
";" DIS-KM".^6...A.0.9:.A.3..A..6...P$(A
);HA$(A);SE$(A);RV$(A);DK(A)..6...A..6 .
...6*.. MORE P/O 4..64.."    ";" ORB-LO"
;" HEL-LO";" HEL-LA";" GEO-LO";" GEO-LA"
. 7>..A.0.9:.A.3.A.0.PB$(A).BL$:QB$(A).B
L$:PC$(A).BL$:QC$(A).BL$.N7H..P$(A);PA$(
A);PB$(A);QB$(A);PC$(A);QC$(A).U7R..A.[7
\...A7F.:.K7P.. KEY.V7Z..".KEY..7...J.1.
18:.KY$(J):.J..7...RT$."Y".RT$."":.3150:
.4770.H7...:."HARDCOPY <Y/N>+ ";..7..."<
RETURN>";RT$:.RT$."Y"..3140:.4740..7....
.7..:..8... LOW RES GRAPHIC..8J.."..;8T.
CM.55296:. START OF COL MAP.Z8..SM.1024:
. START OF SCN MAP..8...GM.GU(0).GM.GD(0
)..53281,1:. SUNSHINE-WHITE SCREEN.H8...
J.2.24:X.J.40.20:.SM.X,160:.:.SM.20,19:.
SM.60,30..8...SM.58,5:.SM.59,60:.SM.61,6
2:.SM.62,23..9...A.0.9:.QF(A).0.A.3..494
0.?9..AZ..E((PF(A).RD.100).4):AL..E(QF(A
).RD.4).U9...AZ.39.AZ.0..4940.Q9$.CO.0:.
 BLACK CHARACTERS..9..PO.(25.AL).40.AZ:.
A.0.CO.7.D98.Z.B(SM.PO):.Z.47.Z.58.CO.2:
. 2 IN SAME POSITION..9B..SM.PO,A.48:.CM
.PO,CO..9L..A. :V..".80 DEGS E&W OF S...
.........<RETURN>";:.Q$:.53281,6.&:`...,
:J.:.?:T.. CO-ORDINATES.B:~..".CO-ORDINA
TES SET FOR LEEDS".{:..."(DECIMAL DEGREE
S)"..:..."LAT=";LA,"LONG=";LO..:..."CHAN
GE (Y/N) .N.".B:...Q$:.Q$.""..5030..:...
Q$."Y".."DECIMAL LAT";LA:."DECIMAL LON";
LO:FG.1..;...".":....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL