PLANET PROGRAM
FILE INFORMATION
FILENAME(S): PLANET PROGRAM
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-10-20 14:30:09
APPEARS ON: 1 disk(s)
FILE HASH
d268072633fc82e61c975ec39dac0313dea77b05eb6d451dbadbc5ceba7f1e70
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0007ED | PLANET PROGRAM | PRG | Treasure Chest - Klaus Der Suhler | 7 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 0A 00 8F 20 2A 20 50 52 4F 47 52 41 |....... * PROGRA| 00000010: 4D 20 22 50 4C 41 4E 45 54 22 00 31 08 14 00 8F |M "PLANET".1....| 00000020: 20 2A 20 42 59 20 44 41 56 49 44 20 45 41 47 4C | * BY DAVID EAGL| 00000030: 45 00 37 08 1E 00 3A 00 6D 08 28 00 8F 20 2A 20 |E.7...:.m.(.. * | 00000040: 43 4F 4D 50 55 54 45 53 20 54 4F 50 4F 43 45 4E |COMPUTES TOPOCEN| 00000050: 54 52 49 43 20 44 49 52 45 43 54 49 4F 4E 20 4F |TRIC DIRECTION O| 00000060: 46 20 54 48 45 20 50 4C 41 4E 45 54 53 00 73 08 |F THE PLANETS.s.| 00000070: 32 00 3A 00 B2 08 3C 00 8F 20 2A 20 41 5A 49 4D |2.:...<.. * AZIM| 00000080: 55 54 48 20 41 4E 47 4C 45 3B 20 50 4F 53 49 54 |UTH ANGLE; POSIT| 00000090: 49 56 45 20 43 4C 4F 43 4B 57 49 53 45 20 46 52 |IVE CLOCKWISE FR| 000000A0: 4F 4D 20 4E 4F 52 54 48 20 28 44 45 47 52 45 45 |OM NORTH (DEGREE| 000000B0: 53 29 00 F0 08 46 00 8F 20 2A 20 45 4C 45 56 41 |S)...F.. * ELEVA| 000000C0: 54 49 4F 4E 20 41 4E 47 4C 45 3B 20 50 4F 53 49 |TION ANGLE; POSI| 000000D0: 54 49 56 45 20 41 42 4F 56 45 20 54 48 45 20 48 |TIVE ABOVE THE H| 000000E0: 4F 52 49 5A 4F 4E 20 28 44 45 47 52 45 45 53 29 |ORIZON (DEGREES)| 000000F0: 00 41 09 50 00 8F 20 2A 20 52 49 47 48 54 20 41 |.A.P.. * RIGHT A| 00000100: 53 43 45 4E 53 49 4F 4E 3B 20 50 4F 53 49 54 49 |SCENSION; POSITI| 00000110: 56 45 20 45 41 53 54 20 4F 46 20 54 48 45 20 56 |VE EAST OF THE V| 00000120: 45 52 4E 41 4C 20 45 51 55 49 4E 4F 58 20 28 48 |ERNAL EQUINOX (H| 00000130: 4F 55 52 53 20 41 4E 44 20 4D 49 4E 55 54 45 53 |OURS AND MINUTES| 00000140: 29 00 8B 09 5A 00 8F 20 2A 20 44 45 43 4C 49 4E |)...Z.. * DECLIN| 00000150: 41 54 49 4F 4E 20 41 4E 47 4C 45 3B 20 50 4F 53 |ATION ANGLE; POS| 00000160: 49 54 49 56 45 20 41 42 4F 56 45 20 54 48 45 20 |ITIVE ABOVE THE | 00000170: 43 45 4C 45 53 54 49 41 4C 20 45 51 55 41 54 4F |CELESTIAL EQUATO| 00000180: 52 20 28 44 45 47 52 45 45 53 29 00 BE 09 64 00 |R (DEGREES)...d.| 00000190: 8F 20 2A 20 48 45 4C 49 4F 43 45 4E 54 52 49 43 |. * HELIOCENTRIC| 000001A0: 20 44 49 53 54 41 4E 43 45 20 28 41 53 54 52 4F | DISTANCE (ASTRO| 000001B0: 4E 4F 4D 49 43 41 4C 20 55 4E 49 54 53 29 00 EF |NOMICAL UNITS)..| 000001C0: 09 6E 00 8F 20 2A 20 47 45 4F 43 45 4E 54 52 49 |.n.. * GEOCENTRI| 000001D0: 43 20 44 49 53 54 41 4E 43 45 20 28 41 53 54 52 |C DISTANCE (ASTR| 000001E0: 4F 4E 4F 4D 49 43 41 4C 20 55 4E 49 54 53 29 00 |ONOMICAL UNITS).| 000001F0: 1A 0A 78 00 8F 20 2A 20 50 48 41 53 45 20 4F 52 |..x.. * PHASE OR| 00000200: 20 44 49 53 4B 20 56 49 53 49 42 49 4C 49 54 59 | DISK VISIBILITY| 00000210: 20 28 50 45 52 43 45 4E 54 29 00 3D 0A 82 00 8F | (PERCENT).=....| 00000220: 20 2A 20 53 45 4D 49 44 49 41 4D 45 54 45 52 20 | * SEMIDIAMETER | 00000230: 28 41 52 43 20 53 45 43 4F 4E 44 53 29 00 6D 0A |(ARC SECONDS).m.| 00000240: 8C 00 8F 20 2A 20 4C 4F 43 41 4C 20 53 49 44 45 |... * LOCAL SIDE| 00000250: 52 45 41 4C 20 54 49 4D 45 20 28 48 4F 55 52 53 |REAL TIME (HOURS| 00000260: 20 41 4E 44 20 4D 49 4E 55 54 45 53 29 00 81 0A | AND MINUTES)...| 00000270: 96 00 8F 20 2A 20 4A 55 4C 49 41 4E 20 44 41 54 |... * JULIAN DAT| 00000280: 45 00 87 0A A0 00 3A 00 B3 0A AA 00 97 20 35 33 |E.....:...... 53| 00000290: 32 38 30 2C 32 34 36 3A 97 20 35 33 32 38 31 2C |280,246:. 53281,| 000002A0: 32 34 36 3A 97 20 36 34 36 2C 31 3A 99 20 C7 28 |246:. 646,1:. .(| 000002B0: 31 34 29 00 DD 0A B4 00 86 20 41 24 28 38 29 2C |14)...... A$(8),| 000002C0: 4C 28 33 29 2C 4E 28 37 29 2C 55 28 33 29 2C 41 |L(3),N(7),U(3),A| 000002D0: 28 33 2C 33 29 2C 4D 28 39 2C 31 32 29 00 E3 0A |(3,3),M(9,12)...| 000002E0: BE 00 3A 00 0D 0B C8 00 50 30 B2 32 AC FF 3A 51 |..:.....P0.2..:Q| 000002F0: 30 B2 2E 35 AC FF 3A 52 30 B2 FF AD 31 38 30 3A |0..5..:R0...180:| 00000300: 57 30 B2 2E 32 36 32 35 31 36 31 36 33 00 26 0B |W0..262516163.&.| 00000310: D2 00 58 30 B2 2E 32 36 31 37 39 39 33 37 38 3A |..X0..261799378:| 00000320: 8D 20 31 30 31 30 00 46 0B DC 00 96 20 A5 41 28 |. 1010.F.... .A(| 00000330: 58 29 B2 B5 28 58 AC 31 30 30 30 30 AA 2E 35 29 |X)..(X.10000..5)| 00000340: AD 31 30 30 30 30 00 4C 0B E6 00 3A 00 71 0B F0 |.10000.L...:.q..| 00000350: 00 99 20 22 93 22 3A 99 20 A3 31 32 29 3B 22 11 |.. ".":. .12);".| 00000360: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................| 00000370: 22 00 91 0B FA 00 99 20 A3 31 32 29 3B 22 12 20 |"...... .12);". | 00000380: D0 52 4F 47 52 41 4D 20 D0 CC C1 CE C5 D4 20 92 |.ROGRAM ...... .| 00000390: 22 00 C3 0B 04 01 99 20 22 11 11 CC 41 54 49 54 |"...... "...ATIT| 000003A0: 55 44 45 20 28 C4 45 47 2E CD 49 4E 29 28 2B 4E |UDE (.EG..IN)(+N| 000003B0: 4F 52 54 48 2C 20 2D 53 4F 55 54 48 29 22 3A 85 |ORTH, -SOUTH)":.| 000003C0: 20 4C 31 00 EA 0B 0E 01 99 20 22 11 D7 45 53 54 | L1...... "..EST| 000003D0: 20 CC 4F 4E 47 49 54 55 44 45 20 28 C4 45 47 2E | .ONGITUDE (.EG.| 000003E0: CD 49 4E 29 22 3A 85 20 4C 32 00 31 0C 18 01 99 |.IN)":. L2.1....| 000003F0: 20 22 11 D4 49 4D 45 20 DA 4F 4E 45 20 28 C5 41 | "..IME .ONE (.A| 00000400: 53 54 45 52 4E 3D 35 2C C3 45 4E 54 52 41 4C 3D |STERN=5,.ENTRAL=| 00000410: 36 2C CD 4F 55 4E 54 41 49 4E 3D 37 2C D0 41 43 |6,.OUNTAIN=7,.AC| 00000420: 49 46 49 43 3D 38 29 20 20 20 20 22 3A 85 20 5A |IFIC=8) ":. Z| 00000430: 31 00 5C 0C 22 01 99 20 22 11 C4 41 54 45 3B 20 |1.\.".. "..ATE; | 00000440: 4D 4F 4E 54 48 2C 20 44 41 59 2C 20 59 45 41 52 |MONTH, DAY, YEAR| 00000450: 22 3A 85 20 4D 35 2C 44 35 2C 59 35 00 88 0C 2C |":. M5,D5,Y5...,| 00000460: 01 99 20 22 11 CC 4F 43 41 4C 20 54 49 4D 45 3B |.. "..OCAL TIME;| 00000470: 20 48 4F 55 52 53 2C 20 4D 49 4E 55 54 45 53 22 | HOURS, MINUTES"| 00000480: 3A 85 20 48 31 2C 4D 31 00 BA 0C 36 01 99 20 22 |:. H1,M1...6.. "| 00000490: 11 C4 41 59 4C 49 47 48 54 20 D3 41 56 49 4E 47 |..AYLIGHT .AVING| 000004A0: 53 20 D4 49 4D 45 20 28 31 3D 59 45 53 2C 20 30 |S .IME (1=YES, 0| 000004B0: 3D 4E 4F 29 22 3A 85 20 46 31 00 C0 0C 40 01 3A |=NO)":. F1...@.:| 000004C0: 00 F9 0C 4A 01 8F 20 2A 20 43 4F 4D 50 55 54 45 |...J.. * COMPUTE| 000004D0: 20 4A 55 4C 49 41 4E 20 44 41 54 45 2C 20 4F 42 | JULIAN DATE, OB| 000004E0: 4C 49 51 55 49 54 59 20 41 4E 44 20 53 49 44 45 |LIQUITY AND SIDE| 000004F0: 52 45 41 4C 20 54 49 4D 45 00 04 0D 54 01 8D 20 |REAL TIME...T.. | 00000500: 32 30 31 30 00 0A 0D 5E 01 3A 00 39 0D 68 01 8F |2010...^.:.9.h..| 00000510: 20 2A 20 43 4F 4D 50 55 54 45 20 47 45 4F 43 45 | * COMPUTE GEOCE| 00000520: 4E 54 52 49 43 20 50 4F 53 49 54 49 4F 4E 20 4F |NTRIC POSITION O| 00000530: 46 20 54 48 45 20 53 55 4E 00 48 0D 72 01 4B B2 |F THE SUN.H.r.K.| 00000540: 39 3A 8D 20 33 30 31 30 00 5A 0D 7C 01 58 31 B2 |9:. 3010.Z.|.X1.| 00000550: AB 58 32 3A 59 31 B2 AB 59 32 00 60 0D 86 01 3A |.X2:Y1..Y2.`...:| 00000560: 00 84 0D 90 01 99 20 22 93 22 3A 99 20 A3 31 32 |...... ".":. .12| 00000570: 29 3B 22 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |);".............| 00000580: A4 A4 A4 22 00 A5 0D 9A 01 99 20 A3 31 32 29 3B |..."...... .12);| 00000590: 22 12 20 D0 4C 41 4E 45 54 41 52 59 20 CD 45 4E |". .LANETARY .EN| 000005A0: 55 20 92 11 22 00 D1 0D A4 01 81 20 49 B2 31 20 |U .."...... I.1 | 000005B0: A4 20 38 3A 99 20 A3 31 32 29 3B 22 11 3C 22 3B |. 8:. .12);".<";| 000005C0: 49 3B 22 3E 20 20 22 3B 41 24 28 49 29 3A 82 20 |I;"> ";A$(I):. | 000005D0: 49 00 E8 0D AE 01 99 20 22 11 D3 45 4C 45 43 54 |I...... "..ELECT| 000005E0: 49 4F 4E 22 3A 85 20 4B 00 EE 0D B8 01 3A 00 1C |ION":. K.....:..| 000005F0: 0E C2 01 8F 20 2A 20 43 4F 4D 50 55 54 45 20 47 |.... * COMPUTE G| 00000600: 45 4F 43 45 4E 54 52 49 43 20 50 4F 53 49 54 49 |EOCENTRIC POSITI| 00000610: 4F 4E 20 4F 46 20 50 4C 41 4E 45 54 00 27 0E CC |ON OF PLANET.'..| 00000620: 01 8D 20 33 30 31 30 00 43 0E D6 01 52 31 B2 BA |.. 3010.C...R1..| 00000630: 28 58 32 AC 58 32 AA 59 32 AC 59 32 AA 5A 32 AC |(X2.X2.Y2.Y2.Z2.| 00000640: 5A 32 29 00 59 0E E0 01 58 33 B2 58 31 AA 58 32 |Z2).Y...X3.X1.X2| 00000650: 3A 59 33 B2 59 31 AA 59 32 00 87 0E EA 01 59 34 |:Y3.Y1.Y2.....Y4| 00000660: B2 59 33 AC BE 28 45 31 29 AB 5A 32 AC BF 28 45 |.Y3..(E1).Z2..(E| 00000670: 31 29 3A 5A 33 B2 59 33 AC BF 28 45 31 29 AA 5A |1):Z3.Y3..(E1).Z| 00000680: 32 AC BE 28 45 31 29 00 8D 0E F4 01 3A 00 BC 0E |2..(E1).....:...| 00000690: FE 01 8F 20 2A 20 43 4F 4D 50 55 54 45 20 54 4F |... * COMPUTE TO| 000006A0: 50 4F 43 45 4E 54 52 49 43 20 50 4F 53 49 54 49 |POCENTRIC POSITI| 000006B0: 4F 4E 20 4F 46 20 50 4C 41 4E 45 54 00 D8 0E 08 |ON OF PLANET....| 000006C0: 02 52 32 B2 BA 28 58 33 AC 58 33 AA 59 34 AC 59 |.R2..(X3.X3.Y4.Y| 000006D0: 34 AA 5A 33 AC 5A 33 29 00 FD 0E 12 02 55 28 31 |4.Z3.Z3).....U(1| 000006E0: 29 B2 58 33 AD 52 32 3A 55 28 32 29 B2 59 34 AD |).X3.R2:U(2).Y4.| 000006F0: 52 32 3A 55 28 33 29 B2 5A 33 AD 52 32 00 08 0F |R2:U(3).Z3.R2...| 00000700: 1C 02 8D 20 34 30 31 30 00 0E 0F 26 02 3A 00 35 |... 4010...&.:.5| 00000710: 0F 30 02 8F 20 2A 20 43 4F 4D 50 55 54 45 20 50 |.0.. * COMPUTE P| 00000720: 48 41 53 45 20 41 4E 44 20 53 45 4D 49 44 49 41 |HASE AND SEMIDIA| 00000730: 4D 45 54 45 52 00 62 0F 3A 02 41 B2 58 31 AC 58 |METER.b.:.A.X1.X| 00000740: 31 AA 59 31 AC 59 31 3A 42 B2 2E 35 AC 28 52 31 |1.Y1.Y1:B..5.(R1| 00000750: AC 52 31 AA 52 32 AC 52 32 AB 41 29 AD 52 31 AD |.R1.R2.R2.A).R1.| 00000760: 52 32 00 72 0F 44 02 50 31 B2 35 30 AC 28 31 AA |R2.r.D.P1.50.(1.| 00000770: 42 29 00 84 0F 4E 02 53 32 B2 4D 28 4B 2C 31 32 |B)...N.S2.M(K,12| 00000780: 29 AD 52 32 00 8A 0F 58 02 3A 00 AD 0F 62 02 99 |).R2...X.:...b..| 00000790: 20 22 93 22 3A 99 20 A3 32 30 AB 2E 35 AC C3 28 | ".":. .20..5..(| 000007A0: 41 24 28 49 29 29 29 3B 41 24 28 4B 29 00 E5 0F |A$(I)));A$(K)...| 000007B0: 6C 02 99 20 22 11 CC 41 54 49 54 55 44 45 22 3B |l.. "..ATITUDE";| 000007C0: A3 32 32 29 3B A5 41 28 4C 31 29 3A 99 20 22 CC |.22);.A(L1):. ".| 000007D0: 4F 4E 47 49 54 55 44 45 22 3B A3 32 32 29 3B A5 |ONGITUDE";.22);.| 000007E0: 41 28 4C 32 29 00 15 10 76 02 99 20 22 11 C4 41 |A(L2)...v.. "..A| 000007F0: 54 45 22 3B A3 32 32 29 3B 4D 35 3B 44 35 3B 59 |TE";.22);M5;D5;Y| 00000800: 35 3A 99 20 22 D4 49 4D 45 22 3B A3 32 32 29 3B |5:. ".IME";.22);| 00000810: 48 31 3B 4D 31 00 41 10 80 02 99 20 22 11 CA 2E |H1;M1.A.... "...| 00000820: C4 2E 22 3B A3 32 32 29 3B 4A 32 3A 99 20 22 CC |..";.22);J2:. ".| 00000830: 2E D3 2E D4 2E 22 3B A3 32 32 29 3B 48 32 3B 4D |.....";.22);H2;M| 00000840: 32 00 78 10 8A 02 99 20 22 11 C1 5A 49 4D 55 54 |2.x.... "..ZIMUT| 00000850: 48 22 3B A3 32 32 29 3B A5 41 28 41 32 29 3A 99 |H";.22);.A(A2):.| 00000860: 20 22 C5 4C 45 56 41 54 49 4F 4E 22 3B A3 32 32 | ".LEVATION";.22| 00000870: 29 3B A5 41 28 41 31 29 00 AD 10 94 02 99 20 22 |);.A(A1)...... "| 00000880: 11 D2 2E C1 2E 22 3B A3 32 32 29 3B 48 33 3B 4D |.....";.22);H3;M| 00000890: 33 3A 99 20 22 C4 45 43 4C 49 4E 41 54 49 4F 4E |3:. ".ECLINATION| 000008A0: 22 3B A3 32 32 29 3B A5 41 28 41 33 29 00 DF 10 |";.22);.A(A3)...| 000008B0: 9E 02 99 20 22 11 C8 45 4C 49 4F 43 45 4E 54 52 |... "..ELIOCENTR| 000008C0: 49 43 20 44 49 53 54 41 4E 43 45 20 28 C1 2E D5 |IC DISTANCE (...| 000008D0: 2E 29 22 3B A3 32 38 29 3B A5 41 28 52 31 29 00 |.)";.28);.A(R1).| 000008E0: 10 11 A8 02 99 20 22 C7 45 4F 43 45 4E 54 52 49 |..... ".EOCENTRI| 000008F0: 43 20 44 49 53 54 41 4E 43 45 20 20 20 28 C1 2E |C DISTANCE (..| 00000900: D5 2E 29 22 3B A3 32 38 29 3B A5 41 28 52 32 29 |..)";.28);.A(R2)| 00000910: 00 2F 11 B2 02 99 20 22 11 D0 48 41 53 45 20 28 |./.... "..HASE (| 00000920: 25 29 22 3B A3 32 38 29 3B A5 41 28 50 31 29 00 |%)";.28);.A(P1).| 00000930: 5E 11 BC 02 99 20 22 D3 45 4D 49 44 49 41 4D 45 |^.... ".EMIDIAME| 00000940: 54 45 52 20 28 41 52 43 20 53 45 43 4F 4E 44 53 |TER (ARC SECONDS| 00000950: 29 22 3B A3 32 38 29 3B A5 41 28 53 32 29 00 64 |)";.28);.A(S2).d| 00000960: 11 C6 02 3A 00 9B 11 D0 02 99 20 22 11 C1 4E 4F |...:...... "..NO| 00000970: 54 48 45 52 20 53 45 4C 45 43 54 49 4F 4E 20 28 |THER SELECTION (| 00000980: 31 3D 59 45 53 2C 20 30 3D 4E 4F 29 22 3A 85 20 |1=YES, 0=NO)":. | 00000990: 41 3A 8B 20 41 B2 30 20 A7 20 80 00 D3 11 DA 02 |A:. A.0 . ......| 000009A0: 99 20 22 11 C1 4E 4F 54 48 45 52 20 4C 4F 43 41 |. "..NOTHER LOCA| 000009B0: 54 49 4F 4E 20 28 31 3D 59 45 53 2C 20 30 3D 4E |TION (1=YES, 0=N| 000009C0: 4F 29 22 3A 85 20 41 3A 8B 20 41 B2 31 20 89 20 |O)":. A:. A.1 . | 000009D0: 32 36 30 00 07 12 E4 02 99 20 22 11 C1 4E 4F 54 |260...... "..NOT| 000009E0: 48 45 52 20 44 41 54 45 20 28 31 3D 59 45 53 2C |HER DATE (1=YES,| 000009F0: 20 30 3D 4E 4F 29 22 3A 85 20 41 3A 8B 20 41 B2 | 0=NO)":. A:. A.| 00000A00: 31 20 89 20 32 39 30 00 41 12 EE 02 99 20 22 11 |1 . 290.A.... ".| 00000A10: C1 4E 4F 54 48 45 52 20 4C 4F 43 41 4C 20 54 49 |.NOTHER LOCAL TI| 00000A20: 4D 45 20 28 31 3D 59 45 53 2C 20 30 3D 4E 4F 29 |ME (1=YES, 0=NO)| 00000A30: 22 3A 85 20 41 3A 8B 20 41 B2 31 20 89 20 33 30 |":. A:. A.1 . 30| 00000A40: 30 00 4B 12 F8 02 89 20 34 31 30 00 51 12 02 03 |0.K.... 410.Q...| 00000A50: 3A 00 90 12 E8 03 8F 20 2A 20 52 45 41 44 20 50 |:...... * READ P| 00000A60: 4C 41 4E 45 54 20 4E 41 4D 45 53 20 41 4E 44 20 |LANET NAMES AND | 00000A70: 4F 52 42 49 54 41 4C 20 45 4C 45 4D 45 4E 54 53 |ORBITAL ELEMENTS| 00000A80: 20 44 41 54 41 20 53 55 42 52 4F 55 54 49 4E 45 | DATA SUBROUTINE| 00000A90: 00 BA 12 F2 03 81 20 49 B2 31 20 A4 20 39 3A 81 |...... I.1 . 9:.| 00000AA0: 20 4A B2 31 20 A4 20 31 32 3A 87 20 4D 28 49 2C | J.1 . 12:. M(I,| 00000AB0: 4A 29 3A 82 20 4A 3A 82 20 49 00 D6 12 FC 03 81 |J):. J:. I......| 00000AC0: 20 49 B2 31 20 A4 20 38 3A 87 20 41 24 28 49 29 | I.1 . 8:. A$(I)| 00000AD0: 3A 82 20 49 3A 8E 00 DC 12 06 04 3A 00 16 13 10 |:. I:......:....| 00000AE0: 04 83 20 2E 33 38 37 30 39 38 34 2C 2E 32 30 35 |.. .3870984,.205| 00000AF0: 36 31 34 32 31 2C 32 2E 30 34 36 45 2D 35 2C 2E |61421,2.046E-5,.| 00000B00: 31 32 32 32 32 33 33 32 33 2C 33 2E 32 34 37 37 |122223323,3.2477| 00000B10: 36 36 38 45 2D 35 00 53 13 1A 04 83 20 2E 35 30 |668E-5.S.... .50| 00000B20: 31 38 34 37 36 35 39 2C 2E 30 30 36 34 36 32 36 |1847659,.0064626| 00000B30: 31 35 2C 2E 38 32 32 38 35 31 39 35 39 2C 2E 30 |15,.822851959,.0| 00000B40: 32 30 36 38 35 37 38 38 2C 31 2E 37 38 35 31 31 |20685788,1.78511| 00000B50: 31 39 35 00 88 13 24 04 83 20 32 36 30 38 2E 37 |195...$.. 2608.7| 00000B60: 38 37 35 33 2C 33 2E 33 36 32 39 2C 2E 37 32 33 |8753,3.3629,.723| 00000B70: 33 33 31 36 2C 2E 30 30 36 38 32 30 36 39 2C 2D |3316,.00682069,-| 00000B80: 34 2E 37 37 34 45 2D 35 00 BC 13 2E 04 83 20 2E |4.774E-5...... .| 00000B90: 30 35 39 32 33 30 30 32 37 2C 31 2E 37 35 35 35 |059230027,1.7555| 00000BA0: 31 30 33 45 2D 35 2C 2E 39 34 39 31 38 33 31 30 |103E-5,.94918310| 00000BB0: 39 2C 2E 30 30 38 38 36 39 35 32 31 00 E3 13 38 |9,.008869521...8| 00000BC0: 04 83 20 31 2E 33 32 32 36 30 34 33 35 2C 2E 30 |.. 1.32260435,.0| 00000BD0: 31 35 37 30 35 33 34 35 2C 33 2E 37 31 30 36 32 |15705345,3.71062| 00000BE0: 36 31 38 00 18 14 42 04 83 20 31 30 32 31 2E 33 |618...B.. 1021.3| 00000BF0: 32 38 33 35 2C 38 2E 33 34 34 35 2C 31 2E 35 32 |2835,8.3445,1.52| 00000C00: 33 36 39 31 35 2C 2E 30 39 33 33 31 32 39 2C 39 |36915,.0933129,9| 00000C10: 2E 32 30 36 34 45 2D 35 00 4D 14 4C 04 83 20 2E |.2064E-5.M.L.. .| 00000C20: 30 33 32 32 39 34 34 30 39 2C 2D 31 2E 31 37 38 |032294409,-1.178| 00000C30: 30 39 37 32 45 2D 35 2C 34 2E 39 38 31 37 32 34 |0972E-5,4.981724| 00000C40: 30 32 2C 2E 30 31 38 36 37 30 39 35 34 00 84 14 |02,.018670954...| 00000C50: 56 04 83 20 2E 38 35 31 34 38 34 30 33 37 2C 2E |V.. .851484037,.| 00000C60: 30 31 33 34 35 36 33 34 33 2C 35 2E 35 37 36 38 |013456343,5.5768| 00000C70: 34 30 35 33 2C 33 33 34 2E 30 35 33 35 35 2C 34 |4053,334.05355,4| 00000C80: 2E 36 38 34 00 B2 14 60 04 83 20 35 2E 32 30 32 |.684...`.. 5.202| 00000C90: 35 36 31 2C 2E 30 34 38 33 33 34 37 35 2C 2E 30 |561,.04833475,.0| 00000CA0: 30 30 31 36 34 31 38 2C 2E 30 32 32 38 34 31 37 |0016418,.0228417| 00000CB0: 35 34 00 E7 14 6A 04 83 20 2D 39 2E 39 34 31 35 |54...j.. -9.9415| 00000CC0: 38 39 33 45 2D 35 2C 34 2E 37 36 39 35 39 32 38 |893E-5,4.7695928| 00000CD0: 37 2C 2E 30 31 30 34 36 32 30 35 36 2C 31 2E 37 |7,.010462056,1.7| 00000CE0: 33 35 36 31 34 35 31 00 1F 15 74 04 83 20 2E 30 |3561451...t.. .0| 00000CF0: 31 37 36 33 37 30 37 36 2C 33 2E 39 33 32 37 32 |17637076,3.93272| 00000D00: 31 32 32 2C 35 32 2E 39 36 35 33 36 37 36 2C 39 |122,52.9653676,9| 00000D10: 38 2E 34 34 33 32 2C 39 2E 35 35 34 37 34 37 00 |8.4432,9.554747.| 00000D20: 52 15 7E 04 83 20 2E 30 35 35 38 39 32 33 32 2C |R.~.. .05589232,| 00000D30: 2D 33 2E 34 35 35 45 2D 34 2C 2E 30 34 33 35 30 |-3.455E-4,.04350| 00000D40: 32 36 37 31 2C 2D 36 2E 38 33 39 37 35 31 34 45 |2671,-6.8397514E| 00000D50: 2D 35 00 86 15 88 04 83 20 35 2E 39 30 34 35 38 |-5...... 5.90458| 00000D60: 34 35 31 2C 2E 30 31 38 39 34 30 36 37 34 32 2C |451,.0189406742,| 00000D70: 31 2E 39 36 38 35 36 33 36 35 2C 2E 30 31 35 32 |1.96856365,.0152| 00000D80: 34 30 31 33 30 32 00 B3 15 92 04 83 20 33 2E 30 |401302...... 3.0| 00000D90: 36 32 34 36 33 32 31 2C 32 31 2E 33 32 30 30 39 |6246321,21.32009| 00000DA0: 35 31 2C 38 32 2E 37 32 37 37 2C 31 39 2E 32 31 |51,82.7277,19.21| 00000DB0: 38 31 34 00 E5 15 9C 04 83 20 2E 30 34 36 33 34 |814...... .04634| 00000DC0: 34 34 2C 2D 32 2E 36 35 38 45 2D 35 2C 2E 30 31 |44,-2.658E-5,.01| 00000DD0: 33 34 38 32 30 33 38 32 2C 31 2E 30 39 31 33 31 |34820382,1.09131| 00000DE0: 35 36 45 2D 35 00 16 16 A6 04 83 20 31 2E 37 31 |56E-5...... 1.71| 00000DF0: 31 36 37 31 35 2C 2E 30 31 37 32 30 34 38 34 34 |16715,.017204844| 00000E00: 2C 31 2E 32 38 32 34 31 37 32 37 2C 2E 30 30 38 |,1.28241727,.008| 00000E10: 37 30 33 33 39 35 00 4C 16 B0 04 83 20 31 2E 32 |703395.L.... 1.2| 00000E20: 36 37 39 36 31 31 2C 37 2E 34 37 36 36 32 35 39 |679611,7.4766259| 00000E30: 37 2C 33 35 2E 30 32 31 34 2C 33 30 2E 31 30 39 |7,35.0214,30.109| 00000E40: 35 37 2C 2E 30 30 38 39 39 37 30 34 00 7F 16 BA |57,.00899704....| 00000E50: 04 83 20 36 2E 33 33 45 2D 36 2C 2E 30 33 31 30 |.. 6.33E-6,.0310| 00000E60: 35 33 36 32 35 33 2C 2D 31 2E 36 36 35 36 37 34 |536253,-1.665674| 00000E70: 34 45 2D 34 2C 34 2E 38 31 37 39 31 31 30 31 00 |4E-4,4.81791101.| 00000E80: B1 16 C4 04 83 20 2E 30 30 35 36 38 33 34 38 31 |..... .005683481| 00000E90: 2C 32 2E 32 38 30 38 31 39 39 37 2C 2E 30 31 39 |,2.28081997,.019| 00000EA0: 31 38 30 30 33 34 2C 2E 36 35 38 35 32 34 34 30 |180034,.65852440| 00000EB0: 38 00 E9 16 CE 04 83 20 33 2E 38 31 32 39 30 39 |8...... 3.812909| 00000EC0: 38 31 2C 33 33 2E 35 30 34 37 2C 33 39 2E 35 31 |81,33.5047,39.51| 00000ED0: 37 37 33 38 2C 2E 32 34 38 36 34 33 38 2C 30 2C |7738,.2486438,0,| 00000EE0: 2E 32 39 39 32 36 37 32 38 00 14 17 D8 04 83 20 |.29926728...... | 00000EF0: 30 2C 31 2E 39 38 31 33 32 35 35 2C 30 2C 31 2E |0,1.9813255,0,1.| 00000F00: 39 30 31 36 31 34 36 36 2C 30 2C 34 2E 30 31 33 |90161466,0,4.013| 00000F10: 33 33 37 37 00 4C 17 E2 04 83 20 32 2E 35 32 39 |3377.L.... 2.529| 00000F20: 32 30 35 35 2C 33 2E 34 34 37 2C 31 2E 30 30 30 |2055,3.447,1.000| 00000F30: 30 30 30 31 33 2C 2E 30 31 36 37 35 31 30 34 2C |00013,.01675104,| 00000F40: 2D 34 2E 31 38 45 2D 35 2C 30 2C 30 00 84 17 EC |-4.18E-5,0,0....| 00000F50: 04 83 20 31 2E 37 36 36 36 33 36 38 31 2C 2E 30 |.. 1.76663681,.0| 00000F60: 33 30 30 30 35 32 36 34 2C 30 2C 30 2C 36 2E 32 |30005264,0,0,6.2| 00000F70: 35 36 35 38 33 37 38 2C 36 32 38 2E 33 30 31 39 |5658378,628.3019| 00000F80: 34 36 2C 30 00 8A 17 F6 04 3A 00 C3 17 00 05 83 |46,0.....:......| 00000F90: 20 22 12 20 CD 45 52 43 55 52 59 20 92 22 2C 22 | ". .ERCURY .","| 00000FA0: 12 20 D6 45 4E 55 53 20 92 22 2C 22 12 20 CD 41 |. .ENUS .",". .A| 00000FB0: 52 53 20 92 22 2C 22 12 20 CA 55 50 49 54 45 52 |RS .",". .UPITER| 00000FC0: 20 92 22 00 FD 17 0A 05 83 20 22 12 20 D3 41 54 | ."...... ". .AT| 00000FD0: 55 52 4E 20 92 22 2C 22 12 20 D5 52 41 4E 55 53 |URN .",". .RANUS| 00000FE0: 20 92 22 2C 22 12 20 CE 45 50 54 55 4E 45 20 92 | .",". .EPTUNE .| 00000FF0: 22 2C 22 12 20 D0 4C 55 54 4F 20 92 22 00 03 18 |",". .LUTO ."...| 00001000: 14 05 3A 00 3F 18 D0 07 8F 20 2A 20 4A 55 4C 49 |..:.?.... * JULI| 00001010: 41 4E 20 44 41 54 45 2C 20 4F 42 4C 49 51 55 49 |AN DATE, OBLIQUI| 00001020: 54 59 20 41 4E 44 20 53 49 44 45 52 45 41 4C 20 |TY AND SIDEREAL | 00001030: 54 49 4D 45 20 53 55 42 52 4F 55 54 49 4E 45 00 |TIME SUBROUTINE.| 00001040: 81 18 DA 07 4A 31 B2 33 36 37 AC 59 35 AB B5 28 |....J1.367.Y5..(| 00001050: 37 AC 28 28 59 35 AA B5 28 28 4D 35 AA 39 29 AD |7.((Y5..((M5.9).| 00001060: 31 32 29 29 AD 34 29 29 AA B5 28 32 37 35 AC 4D |12)).4))..(275.M| 00001070: 35 AD 39 29 AA 44 35 AA 31 37 32 31 30 31 33 2E |5.9).D5.1721013.| 00001080: 35 00 B9 18 E4 07 54 31 B2 48 31 AA 4D 31 AD 36 |5.....T1.H1.M1.6| 00001090: 30 AA 5A 31 AB 46 31 3A 54 32 B2 28 4A 31 AB 32 |0.Z1.F1:T2.(J1.2| 000010A0: 34 31 35 30 32 30 29 AD 33 36 35 32 35 3A 4A 32 |415020).36525:J2| 000010B0: B2 4A 31 AA 54 31 AD 32 34 00 FC 18 EE 07 54 33 |.J1.T1.24.....T3| 000010C0: B2 54 32 AA 54 31 AD 38 37 36 36 30 30 3A 45 31 |.T2.T1.876600:E1| 000010D0: B2 2E 34 30 39 33 31 39 37 35 35 AB 32 2E 32 37 |..409319755.2.27| 000010E0: 31 31 30 39 36 39 45 AB 34 AC 54 33 AB 32 2E 38 |110969E.4.T3.2.8| 000010F0: 36 30 34 45 AB 38 AC 54 33 AC 54 33 00 38 19 F8 |604E.8.T3.T3.8..| 00001100: 07 53 31 B2 31 2E 37 33 39 39 33 35 38 39 AA 36 |.S1.1.73993589.6| 00001110: 32 38 2E 33 33 31 39 35 AC 54 32 AA 36 2E 37 35 |28.33195.T2.6.75| 00001120: 35 38 32 45 AB 36 AC 54 32 AC 54 32 AB 4C 32 AC |582E.6.T2.T2.L2.| 00001130: 52 30 AA 57 30 AC 54 31 00 57 19 02 08 53 31 B2 |R0.W0.T1.W...S1.| 00001140: 53 31 AB B5 28 53 31 AD 50 30 29 AC 50 30 3A 54 |S1..(S1.P0).P0:T| 00001150: 34 B2 53 31 AD 57 30 00 78 19 0C 08 48 32 B2 B5 |4.S1.W0.x...H2..| 00001160: 28 54 34 29 3A 4D 32 B2 B5 28 28 54 34 AB 48 32 |(T4):M2..((T4.H2| 00001170: 29 AC 36 30 AA 2E 35 29 00 7E 19 16 08 8E 00 84 |).60..5).~......| 00001180: 19 20 08 3A 00 C3 19 B8 0B 8F 20 2A 20 48 45 4C |. .:...... * HEL| 00001190: 49 4F 43 45 4E 54 52 49 43 20 50 4F 53 49 54 49 |IOCENTRIC POSITI| 000011A0: 4F 4E 20 46 52 4F 4D 20 4F 52 42 49 54 41 4C 20 |ON FROM ORBITAL | 000011B0: 45 4C 45 4D 45 4E 54 53 20 53 55 42 52 4F 55 54 |ELEMENTS SUBROUT| 000011C0: 49 4E 45 00 E1 19 C2 0B 4E 28 31 29 B2 4D 28 4B |INE.....N(1).M(K| 000011D0: 2C 31 29 3A 4A B2 32 3A 81 20 49 B2 32 20 A4 20 |,1):J.2:. I.2 . | 000011E0: 36 00 07 1A CC 0B 4E 28 49 29 B2 4D 28 4B 2C 4A |6.....N(I).M(K,J| 000011F0: 29 AA 4D 28 4B 2C 4A AA 31 29 AC 54 33 3A 4A B2 |).M(K,J.1).T3:J.| 00001200: 4A AA 32 3A 82 20 49 00 1F 1A D6 0B 41 B2 4E 28 |J.2:. I.....A.N(| 00001210: 36 29 3A 42 B2 4E 28 32 29 3A 43 B2 41 AA 42 00 |6):B.N(2):C.A.B.| 00001220: 3F 1A E0 0B 44 B2 43 AB 28 43 AB 42 AC BF 28 43 |?...D.C.(C.B..(C| 00001230: 29 AB 41 29 AD 28 31 AB 42 AC BE 28 43 29 29 00 |).A).(1.B..(C)).| 00001240: 59 1A EA 0B 8B 20 B6 28 44 AB 43 29 B3 B2 31 45 |Y.... .(D.C)..1E| 00001250: AB 34 20 A7 20 33 30 37 30 00 68 1A F4 0B 43 B2 |.4 . 3070.h...C.| 00001260: 44 3A 89 20 33 30 34 30 00 93 1A FE 0B 41 B2 BA |D:. 3040.....A..| 00001270: 28 31 AB 42 AC 42 29 AC BF 28 44 29 3A 42 B2 BE |(1.B.B)..(D):B..| 00001280: 28 44 29 AB 42 3A 8D 20 35 30 31 30 3A 4E 28 37 |(D).B:. 5010:N(7| 00001290: 29 B2 43 00 BD 1A 08 0C 41 B2 4E 28 31 29 AC 28 |).C.....A.N(1).(| 000012A0: 31 AB 4E 28 32 29 AC 4E 28 32 29 29 AD 28 31 AA |1.N(2).N(2)).(1.| 000012B0: 4E 28 32 29 AC BE 28 4E 28 37 29 29 29 00 ED 1A |N(2)..(N(7)))...| 000012C0: 12 0C 42 B2 4E 28 35 29 3A 43 B2 BE 28 4E 28 34 |..B.N(5):C..(N(4| 000012D0: 29 AA 4E 28 37 29 29 3A 44 B2 BF 28 4E 28 34 29 |).N(7)):D..(N(4)| 000012E0: AA 4E 28 37 29 29 3A 45 B2 4E 28 33 29 00 0B 1B |.N(7)):E.N(3)...| 000012F0: 1C 0C 58 32 B2 41 AC 28 BE 28 42 29 AC 43 AB BF |..X2.A.(.(B).C..| 00001300: 28 42 29 AC BE 28 45 29 AC 44 29 00 29 1B 26 0C |(B)..(E).D).).&.| 00001310: 59 32 B2 41 AC 28 BF 28 42 29 AC 43 AA BE 28 42 |Y2.A.(.(B).C..(B| 00001320: 29 AC BE 28 45 29 AC 44 29 00 39 1B 30 0C 5A 32 |)..(E).D).9.0.Z2| 00001330: B2 41 AC 44 AC BF 28 45 29 00 3F 1B 3A 0C 8E 00 |.A.D..(E).?.:...| 00001340: 45 1B 44 0C 3A 00 81 1B A0 0F 8F 20 2A 20 45 51 |E.D.:...... * EQ| 00001350: 55 41 54 4F 52 49 41 4C 20 54 4F 20 54 4F 50 4F |UATORIAL TO TOPO| 00001360: 43 45 4E 54 52 49 43 20 54 52 41 4E 53 46 4F 52 |CENTRIC TRANSFOR| 00001370: 4D 41 54 49 4F 4E 20 53 55 42 52 4F 55 54 49 4E |MATION SUBROUTIN| 00001380: 45 00 9B 1B AA 0F 41 B2 BF 28 4C 31 AC 52 30 29 |E.....A..(L1.R0)| 00001390: 3A 42 B2 BE 28 4C 31 AC 52 30 29 00 AF 1B B4 0F |:B..(L1.R0).....| 000013A0: 43 B2 BF 28 53 31 29 3A 44 B2 BE 28 53 31 29 00 |C..(S1):D..(S1).| 000013B0: D3 1B BE 0F 41 28 31 2C 31 29 B2 41 AC 44 3A 41 |....A(1,1).A.D:A| 000013C0: 28 31 2C 32 29 B2 41 AC 43 3A 41 28 31 2C 33 29 |(1,2).A.C:A(1,3)| 000013D0: B2 AB 42 00 F3 1B C8 0F 41 28 32 2C 31 29 B2 AB |..B.....A(2,1)..| 000013E0: 43 3A 41 28 32 2C 32 29 B2 44 3A 41 28 32 2C 33 |C:A(2,2).D:A(2,3| 000013F0: 29 B2 30 00 16 1C D2 0F 41 28 33 2C 31 29 B2 42 |).0.....A(3,1).B| 00001400: AC 44 3A 41 28 33 2C 32 29 B2 42 AC 43 3A 41 28 |.D:A(3,2).B.C:A(| 00001410: 33 2C 33 29 B2 41 00 32 1C DC 0F 81 20 49 B2 31 |3,3).A.2.... I.1| 00001420: 20 A4 20 33 3A 41 B2 30 3A 81 20 4A B2 31 20 A4 | . 3:A.0:. J.1 .| 00001430: 20 33 00 46 1C E6 0F 41 B2 41 AA 41 28 49 2C 4A | 3.F...A.A.A(I,J| 00001440: 29 AC 55 28 4A 29 00 59 1C F0 0F 82 20 4A 3A 4C |).U(J).Y.... J:L| 00001450: 28 49 29 B2 41 3A 82 20 49 00 89 1C FA 0F 8B 20 |(I).A:. I...... | 00001460: B6 28 4C 28 33 29 29 B1 B2 2E 39 39 39 39 39 39 |.(L(3))...999999| 00001470: 39 39 20 A7 20 41 31 B2 B4 28 4C 28 33 29 29 AC |99 . A1..(L(3)).| 00001480: 39 30 3A 89 20 34 31 31 30 00 AA 1C 04 10 41 31 |90:. 4110.....A1| 00001490: B2 C1 28 4C 28 33 29 AD BA 28 31 AB 4C 28 33 29 |..(L(3)..(1.L(3)| 000014A0: AC 4C 28 33 29 29 29 AD 52 30 00 CC 1C 0E 10 41 |.L(3))).R0.....A| 000014B0: B2 4C 28 32 29 3A 42 B2 AB 4C 28 31 29 3A 8D 20 |.L(2):B..L(1):. | 000014C0: 35 30 31 30 3A 41 32 B2 43 AD 52 30 00 ED 1C 18 |5010:A2.C.R0....| 000014D0: 10 41 33 B2 C1 28 55 28 33 29 AD BA 28 31 AB 55 |.A3..(U(3)..(1.U| 000014E0: 28 33 29 AC 55 28 33 29 29 29 AD 52 30 00 06 1D |(3).U(3))).R0...| 000014F0: 22 10 41 B2 55 28 32 29 3A 42 B2 55 28 31 29 3A |".A.U(2):B.U(1):| 00001500: 8D 20 35 30 31 30 00 2B 1D 2C 10 48 33 B2 B5 28 |. 5010.+.,.H3..(| 00001510: 43 AD 58 30 29 3A 4D 33 B2 B5 28 28 43 AD 58 30 |C.X0):M3..((C.X0| 00001520: AB 48 33 29 AC 36 30 AA 2E 35 29 00 4B 1D 36 10 |.H3).60..5).K.6.| 00001530: 8B 20 4D 33 B1 B2 36 30 20 A7 20 4D 33 B2 4D 33 |. M3..60 . M3.M3| 00001540: AB 36 30 3A 48 33 B2 48 31 AA 31 00 51 1D 40 10 |.60:H3.H1.1.Q.@.| 00001550: 8E 00 57 1D 4A 10 3A 00 70 1D 88 13 8F 20 2A 20 |..W.J.:.p.... * | 00001560: 41 54 41 4E 33 20 53 55 42 52 4F 55 54 49 4E 45 |ATAN3 SUBROUTINE| 00001570: 00 97 1D 92 13 8B 20 B6 28 41 29 B3 31 45 AB 38 |...... .(A).1E.8| 00001580: 20 A7 20 43 B2 28 31 AB B4 28 42 29 29 AC 51 30 | . C.(1..(B)).Q0| 00001590: 3A 89 20 35 30 34 30 00 BC 1D 9C 13 43 B2 28 32 |:. 5040.....C.(2| 000015A0: AB B4 28 41 29 29 AC 51 30 3A 8B 20 B6 28 42 29 |..(A)).Q0:. .(B)| 000015B0: B3 31 45 AB 38 20 A7 20 35 30 34 30 00 DD 1D A6 |.1E.8 . 5040....| 000015C0: 13 43 B2 43 AA B4 28 41 29 AC B4 28 42 29 AC 28 |.C.C..(A)..(B).(| 000015D0: B6 28 C1 28 41 AD 42 29 29 AB 51 30 29 00 E3 1D |.(.(A.B)).Q0)...| 000015E0: B0 13 8E 00 00 00 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................| 000015F0: 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A 1A |................|
....... * PROGRAM "PLANET".1.... * BY DA VID EAGLE.7...:.M.(.. * COMPUTES TOPOCEN TRIC DIRECTION OF THE PLANETS.S.2.:...<. . * AZIMUTH ANGLE; POSITIVE CLOCKWISE FR OM NORTH (DEGREES)...F.. * ELEVATION ANG LE; POSITIVE ABOVE THE HORIZON (DEGREES) .A.P.. * RIGHT ASCENSION; POSITIVE EAST OF THE VERNAL EQUINOX (HOURS AND MINUTES )...Z.. * DECLINATION ANGLE; POSITIVE AB OVE THE CELESTIAL EQUATOR (DEGREES)...D. . * HELIOCENTRIC DISTANCE (ASTRONOMICAL UNITS)...N.. * GEOCENTRIC DISTANCE (ASTR ONOMICAL UNITS)...X.. * PHASE OR DISK VI SIBILITY (PERCENT).=.... * SEMIDIAMETER (ARC SECONDS).M.... * LOCAL SIDEREAL TIM E (HOURS AND MINUTES)...... * JULIAN DAT E... .:...... 53280,246:. 53281,246:. 64 6,1:. G(14)...... A$(8),L(3),N(7),U(3),A (3,3),M(9,12).....:...H.P0.2..:Q0..5..:R 0...180:W0..262516163.&.R.X0..261799378: . 1010.F.... .A(X)..(X.10000..5).10000.L ...:.Q.... ".":. .12);"................. "...... .12);". PROGRAM PLANET .".C.... "..LATITUDE (DEG.MIN)(+NORTH, -SOUTH)":. L1...... ".WEST LONGITUDE (DEG.MIN)":. L2.1.... ".TIME ZONE (EASTERN=5,CENTRAL= 6,MOUNTAIN=7,PACIFIC=8) ":. Z1.\.".. ".DATE; MONTH, DAY, YEAR":. M5,D5,Y5..., .. ".LOCAL TIME; HOURS, MINUTES":. H1,M1 ...6.. ".DAYLIGHT SAVINGS TIME (1=YES, 0 =NO)":. F1...@.:...J.. * COMPUTE JULIAN DATE, OBLIQUITY AND SIDEREAL TIME...T.. 2010...^.:.9.H.. * COMPUTE GEOCENTRIC PO SITION OF THE SUN.H.R.K.9:. 3010.Z.|.X1. .X2:Y1..Y2.`...:...... ".":. .12);"..... ..........."...... .12);". PLANETARY MEN U ..".Q.... I.1 . 8:. .12);".<";I;"> "; A$(I):. I...... ".SELECTION":. K.....:.. .B.. * COMPUTE GEOCENTRIC POSITION OF PL ANET.'.L.. 3010.C.V.R1..(X2.X2.Y2.Y2.Z2. Z2).Y...X3.X1.X2:Y3.Y1.Y2.....Y4.Y3..(E1 ).Z2..(E1):Z3.Y3..(E1).Z2..(E1).....:... ... * COMPUTE TOPOCENTRIC POSITION OF PL ANET.X...R2..(X3.X3.Y4.Y4.Z3.Z3).....U(1 ).X3.R2:U(2).Y4.R2:U(3).Z3.R2...... 4010 ...&.:.5.0.. * COMPUTE PHASE AND SEMIDIA METER.B.:.A.X1.X1.Y1.Y1:B..5.(R1.R1.R2.R 2.A).R1.R2.R.D.P1.50.(1.B)...N.S2.M(K,12 ).R2...X.:...B.. ".":. .20..5.C(A$(I))); A$(K)...L.. ".LATITUDE";.22);.A(L1):. "L ONGITUDE";.22);.A(L2)...V.. ".DATE";.22) ;M5;D5;Y5:. "TIME";.22);H1;M1.A.... ".J. D.";.22);J2:. "L.S.T.";.22);H2;M2.X.... ".AZIMUTH";.22);.A(A2):. "ELEVATION";.22 );.A(A1)...... ".R.A.";.22);H3;M3:. "DEC LINATION";.22);.A(A3)...... ".HELIOCENTR IC DISTANCE (A.U.)";.28);.A(R1)...... "G EOCENTRIC DISTANCE (A.U.)";.28);.A(R2) ./.... ".PHASE (%)";.28);.A(P1).^.... "S EMIDIAMETER (ARC SECONDS)";.28);.A(S2).D .F.:...P.. ".ANOTHER SELECTION (1=YES, 0 =NO)":. A:. A.0 . ..S.Z.. ".ANOTHER LOCA TION (1=YES, 0=NO)":. A:. A.1 . 260..... . ".ANOTHER DATE (1=YES, 0=NO)":. A:. A. 1 . 290.A.... ".ANOTHER LOCAL TIME (1=YE S, 0=NO)":. A:. A.1 . 300.K.... 410.Q... :...... * READ PLANET NAMES AND ORBITAL ELEMENTS DATA SUBROUTINE...... I.1 . 9:. J.1 . 12:. M(I,J):. J:. I.V.... I.1 . 8 :. A$(I):. I:......:...... .3870984,.205 61421,2.046E-5,.122223323,3.2477668E-5.S .... .501847659,.006462615,.822851959,.0 20685788,1.78511195...$.. 2608.78753,3.3 629,.7233316,.00682069,-4.774E-5...... . 059230027,1.7555103E-5,.949183109,.00886 9521...8.. 1.32260435,.015705345,3.71062 618...B.. 1021.32835,8.3445,1.5236915,.0 933129,9.2064E-5.M.L.. .032294409,-1.178 0972E-5,4.98172402,.018670954...V.. .851 484037,.013456343,5.57684053,334.05355,4 .684...`.. 5.202561,.04833475,.00016418, .022841754...J.. -9.9415893E-5,4.7695928 7,.010462056,1.73561451...T.. .017637076 ,3.93272122,52.9653676,98.4432,9.554747. R.~.. .05589232,-3.455E-4,.043502671,-6. 8397514E-5...... 5.90458451,.0189406742, 1.96856365,.0152401302...... 3.06246321, 21.3200951,82.7277,19.21814...... .04634 44,-2.658E-5,.0134820382,1.0913156E-5... ... 1.7116715,.017204844,1.28241727,.008 703395.L.... 1.2679611,7.47662597,35.021 4,30.10957,.00899704..... 6.33E-6,.0310 536253,-1.6656744E-4,4.81791101...D.. .0 05683481,2.28081997,.019180034,.65852440 8...N.. 3.81290981,33.5047,39.517738,.24 86438,0,.29926728...X.. 0,1.9813255,0,1. 90161466,0,4.0133377.L.... 2.5292055,3.4 47,1.00000013,.01675104,-4.18E-5,0,0.... .. 1.76663681,.030005264,0,0,6.25658378, 628.301946,0.....:.C.... ". MERCURY ."," . VENUS .",". MARS .",". JUPITER ."..... . ". SATURN .",". URANUS .",". NEPTUNE . ",". PLUTO .".....:.?.P.. * JULIAN DATE, OBLIQUITY AND SIDEREAL TIME SUBROUTINE. ..Z.J1.367.Y5..(7.((Y5..((M5.9).12)).4)) ..(275.M5.9).D5.1721013.5.....T1.H1.M1.6 0.Z1.F1:T2.(J1.2415020).36525:J2.J1.T1.2 4.....T3.T2.T1.876600:E1..409319755.2.27 110969E.4.T3.2.8604E.8.T3.T3.8...S1.1.73 993589.628.33195.T2.6.75582E.6.T2.T2.L2. R0.W0.T1.W...S1.S1..(S1.P0).P0:T4.S1.W0. X...H2..(T4):M2..((T4.H2).60..5).~...... . .:.C.... * HELIOCENTRIC POSITION FROM ORBITAL ELEMENTS SUBROUTINE...B.N(1).M(K ,1):J.2:. I.2 . 6...L.N(I).M(K,J).M(K,J. 1).T3:J.J.2:. I...V.A.N(6):B.N(2):C.A.B. ?...D.C.(C.B..(C).A).(1.B..(C)).Y.... .( D.C)..1E.4 . 3070.H...C.D:. 3040.....A.. (1.B.B)..(D):B..(D).B:. 5010:N(7).C..... A.N(1).(1.N(2).N(2)).(1.N(2)..(N(7)))... ..B.N(5):C..(N(4).N(7)):D..(N(4).N(7)):E .N(3).....X2.A.(.(B).C..(B)..(E).D).).&. Y2.A.(.(B).C..(B)..(E).D).9.0.Z2.A.D..(E ).?.:...E.D.:... .. * EQUATORIAL TO TOPO CENTRIC TRANSFORMATION SUBROUTINE.....A. .(L1.R0):B..(L1.R0).....C..(S1):D..(S1). S...A(1,1).A.D:A(1,2).A.C:A(1,3)..B...H. A(2,1)..C:A(2,2).D:A(2,3).0...R.A(3,1).B .D:A(3,2).B.C:A(3,3).A.2.... I.1 . 3:A.0 :. J.1 . 3.F...A.A.A(I,J).U(J).Y.... J:L (I).A:. I...... .(L(3))...99999999 . A1. .(L(3)).90:. 4110.....A1.A(L(3)..(1.L(3) .L(3))).R0.L...A.L(2):B..L(1):. 5010:A2. C.R0.....A3.A(U(3)..(1.U(3).U(3))).R0... ".A.U(2):B.U(1):. 5010.+.,.H3..(C.X0):M3 ..((C.X0.H3).60..5).K.6.. M3..60 . M3.M3 .60:H3.H1.1.Q.@...W.J.:.P.... * ATAN3 SU BROUTINE...... .(A).1E.8 . C.(1..(B)).Q0 :. 5040.....C.(2..(A)).Q0:. .(B).1E.8 . 5040.....C.C..(A)..(B).(.(A(A.B)).Q0)... ................................
> CLICK IMAGE PREVIEW FOR FULL MODAL