MOON
FILE INFORMATION
FILENAME(S): MOON
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
9be2aff583ec1b925bedeb68f448765bf2ee1688344765dd6ff153e75fdbdd0e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | MOON | PRG | Treasure Chest - Klaus Der Suhler | 21 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 47 1C 64 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A |..G.d.. *******| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000040: 2A 2A 2A 2A 2A 2A 2A 00 8D 1C 6E 00 8F 20 20 2A |*******...n.. *| 00000050: 20 20 20 20 4D 4F 4F 4E 20 20 20 20 20 20 20 42 | MOON B| 00000060: 59 20 44 45 4C 57 49 4E 20 4A 4F 48 4E 53 4F 4E |Y DELWIN JOHNSON| 00000070: 20 20 20 20 20 20 20 20 4D 41 59 20 31 30 2C 20 | MAY 10, | 00000080: 31 39 38 37 20 20 20 20 20 20 20 20 2A 00 D3 1C |1987 *...| 00000090: 78 00 8F 20 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |x.. ***********| 000000A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 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 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000000D0: 2A 2A 2A 00 EE 1C 82 00 99 C7 28 31 34 37 29 3A |***.......(147):| 000000E0: 8F 20 43 4C 45 41 52 20 53 43 52 45 45 4E 00 0A |. CLEAR SCREEN..| 000000F0: 1D 8C 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." | 00000100: 20 20 20 20 20 4D 4F 4F 4E 22 00 3B 1D 96 00 99 | MOON".;....| 00000110: 3A 99 3A 99 22 20 54 48 49 53 20 50 52 4F 47 52 |:.:." THIS PROGR| 00000120: 41 4D 20 57 49 4C 4C 20 43 4F 4D 50 55 54 45 20 |AM WILL COMPUTE | 00000130: 54 48 45 20 4D 4F 4F 4E 27 53 22 00 67 1D A0 00 |THE MOON'S".g...| 00000140: 99 3A 99 22 20 43 4F 4F 52 44 49 4E 41 54 45 53 |.:." COORDINATES| 00000150: 2C 20 50 48 41 53 45 2C 20 44 49 53 54 41 4E 43 |, PHASE, DISTANC| 00000160: 45 2C 20 41 4E 44 22 00 98 1D AA 00 99 3A 99 22 |E, AND"......:."| 00000170: 20 41 50 50 41 52 45 4E 54 20 53 49 5A 45 20 47 | APPARENT SIZE G| 00000180: 49 56 45 4E 20 54 48 45 20 44 41 54 45 20 41 4E |IVEN THE DATE AN| 00000190: 44 20 54 49 4D 45 2E 22 00 AA 1D B4 00 50 49 B2 |D TIME.".....PI.| 000001A0: 33 2E 31 34 31 35 39 32 36 35 00 C7 1D BE 00 99 |3.14159265......| 000001B0: 3A 99 3A 99 22 20 45 4E 54 45 52 20 54 48 45 20 |:.:." ENTER THE | 000001C0: 44 41 54 45 20 3A 22 00 F5 1D C8 00 99 3A 99 22 |DATE :"......:."| 000001D0: 20 46 4F 52 20 45 58 41 4D 50 4C 45 2C 20 44 45 | FOR EXAMPLE, DE| 000001E0: 43 45 4D 42 45 52 20 33 31 2C 31 39 38 36 20 57 |CEMBER 31,1986 W| 000001F0: 4F 55 4C 44 22 00 19 1E D2 00 99 3A 99 22 20 42 |OULD"......:." B| 00000200: 45 20 45 4E 54 45 52 45 44 20 41 53 20 20 31 32 |E ENTERED AS 12| 00000210: 2C 33 31 2C 31 39 38 36 22 00 1F 1E DC 00 99 00 |,31,1986".......| 00000220: 2E 1E E6 00 85 20 4D 31 2C 44 31 2C 59 31 00 47 |..... M1,D1,Y1.G| 00000230: 1E F0 00 8B 20 44 31 B3 31 20 B0 20 44 31 B1 33 |.... D1.1 . D1.3| 00000240: 31 20 A7 20 33 37 30 00 60 1E FA 00 8B 20 4D 31 |1 . 370.`.... M1| 00000250: B3 31 20 B0 20 4D 31 B1 31 32 20 A7 20 33 37 30 |.1 . M1.12 . 370| 00000260: 00 8B 1E 04 01 99 3A 99 22 45 4E 54 45 52 20 54 |......:."ENTER T| 00000270: 48 45 20 54 49 4D 45 20 28 50 53 54 2C 32 34 20 |HE TIME (PST,24 | 00000280: 48 52 2C 48 48 4D 4D 29 20 3A 22 00 94 1E 0E 01 |HR,HHMM) :".....| 00000290: 85 20 54 4D 00 AF 1E 18 01 8B 20 54 4D B1 32 34 |. TM...... TM.24| 000002A0: 30 30 20 B0 20 54 4D B3 30 20 A7 20 33 37 30 00 |00 . TM.0 . 370.| 000002B0: BD 1E 22 01 54 4D B2 54 4D AA 38 30 30 00 D5 1E |..".TM.TM.800...| 000002C0: 2C 01 8B 20 54 4D B1 32 34 30 30 20 A7 20 44 31 |,.. TM.2400 . D1| 000002D0: B2 44 31 AA 31 00 F0 1E 36 01 8B 20 54 4D B1 32 |.D1.1...6.. TM.2| 000002E0: 34 30 30 20 A7 20 54 4D B2 54 4D AB 32 34 30 30 |400 . TM.TM.2400| 000002F0: 00 05 1F 40 01 54 58 B2 B5 28 54 4D AD 31 30 30 |...@.TX..(TM.100| 00000300: 29 AC 31 30 30 00 12 1F 4A 01 54 5A B2 54 4D AB |).100...J.TZ.TM.| 00000310: 54 58 00 26 1F 54 01 54 59 B2 54 58 AA 54 5A AC |TX.&.T.TY.TX.TZ.| 00000320: 31 30 30 AD 36 30 00 38 1F 5E 01 44 31 B2 44 31 |100.60.8.^.D1.D1| 00000330: AA 54 59 AD 32 34 30 30 00 42 1F 68 01 89 20 33 |.TY.2400.B.h.. 3| 00000340: 39 30 00 71 1F 72 01 99 C7 28 31 34 37 29 3A 99 |90.q.r...(147):.| 00000350: 3A 99 3A 99 22 20 49 4E 43 4F 52 52 45 43 54 20 |:.:." INCORRECT | 00000360: 49 4E 50 55 54 2C 54 52 59 20 41 47 41 49 4E 2E |INPUT,TRY AGAIN.| 00000370: 22 00 89 1F 7C 01 81 20 58 31 B2 31 A4 31 30 30 |"...|.. X1.1.100| 00000380: 30 3A 82 3A 89 20 31 38 30 00 95 1F 86 01 99 C7 |0:.:. 180.......| 00000390: 28 31 34 37 29 00 C4 1F 90 01 99 22 2D 31 38 30 |(147)......"-180| 000003A0: 20 20 20 20 20 2D 39 30 20 20 20 20 20 20 20 30 | -90 0| 000003B0: 20 20 20 20 20 20 20 2B 39 30 20 20 20 20 20 2B | +90 +| 000003C0: 31 38 30 22 00 F3 1F 9A 01 99 22 3D 3D 3D 3D 3D |180"......"=====| 000003D0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000003E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 000003F0: 3D 3D 22 00 22 20 A4 01 99 22 46 55 4C 4C 20 20 |=="." ..."FULL | 00000400: 4C 41 53 54 20 31 2F 34 20 20 20 20 4E 45 57 20 |LAST 1/4 NEW | 00000410: 20 20 20 31 53 54 20 31 2F 34 20 20 20 46 55 4C | 1ST 1/4 FUL| 00000420: 4C 22 00 43 20 AE 01 41 31 B2 36 33 3A 8B 20 B5 |L".C ..A1.63:. .| 00000430: 28 59 31 AD 34 29 B2 59 31 AD 34 20 A7 20 41 31 |(Y1.4).Y1.4 . A1| 00000440: B2 36 32 00 54 20 B8 01 8B 20 4D 31 B1 32 20 A7 |.62.T ... M1.2 .| 00000450: 20 34 37 30 00 6C 20 C2 01 44 4E B2 B5 28 28 28 | 470.l ..DN..(((| 00000460: 4D 31 AB 31 29 AC 41 31 29 AD 32 29 00 76 20 CC |M1.1).A1).2).v .| 00000470: 01 89 20 34 38 30 00 8F 20 D6 01 44 4E B2 B5 28 |.. 480.. ..DN..(| 00000480: 28 4D 31 AA 31 29 AC 33 30 2E 36 29 AB 41 31 00 |(M1.1).30.6).A1.| 00000490: 9C 20 E0 01 44 4E B2 44 4E AA 44 31 00 BA 20 EA |. ..DN.DN.D1.. .| 000004A0: 01 44 32 B2 44 4E AA B5 28 33 36 35 2E 32 35 AC |.D2.DN..(365.25.| 000004B0: 28 59 31 AB 31 39 38 30 29 29 00 DA 20 F4 01 8B |(Y1.1980)).. ...| 000004C0: 20 41 31 B2 36 33 20 AF 20 59 31 B3 31 39 38 30 | A1.63 . Y1.1980| 000004D0: 20 A7 20 44 32 B2 44 32 AA 31 00 E6 20 FE 01 44 | . D2.D2.1.. ..D| 000004E0: 32 B2 44 32 AA 31 00 FD 20 08 02 4E 32 B2 33 36 |2.D2.1.. ..N2.36| 000004F0: 30 AC 44 32 AD 33 36 35 2E 32 34 32 32 00 14 21 |0.D2.365.2422..!| 00000500: 12 02 8B 20 4E 32 B3 30 20 A7 20 4E 32 B2 4E 32 |... N2.0 . N2.N2| 00000510: AA 33 36 30 00 2D 21 1C 02 8B 20 4E 32 B1 33 36 |.360.-!... N2.36| 00000520: 30 20 A7 20 4E 32 B2 4E 32 AB 33 36 30 00 47 21 |0 . N2.N2.360.G!| 00000530: 26 02 8B 20 4E 32 B3 30 20 B0 20 4E 32 B1 33 36 |&.. N2.0 . N2.36| 00000540: 30 20 A7 20 35 33 30 00 5C 21 30 02 4D 32 B2 4E |0 . 530.\!0.M2.N| 00000550: 32 AB 33 2E 37 36 32 38 36 32 38 33 00 73 21 3A |2.3.76286283.s!:| 00000560: 02 8B 20 4D 32 B3 30 20 A7 20 4D 32 B2 4D 32 AA |.. M2.0 . M2.M2.| 00000570: 33 36 30 00 A5 21 44 02 47 32 B2 4E 32 AA 33 36 |360..!D.G2.N2.36| 00000580: 30 AC 30 2E 30 31 36 37 31 38 AC BF 28 4D 32 AC |0.0.016718..(M2.| 00000590: 50 49 AD 31 38 30 29 AD 50 49 AA 32 37 38 2E 38 |PI.180).PI.278.8| 000005A0: 33 33 35 34 30 00 BE 21 4E 02 8B 20 47 32 B1 33 |33540..!N.. G2.3| 000005B0: 36 30 20 A7 20 47 32 B2 47 32 AB 33 36 30 00 D5 |60 . G2.G2.360..| 000005C0: 21 58 02 8B 20 47 32 B3 30 20 A7 20 47 32 B2 47 |!X.. G2.0 . G2.G| 000005D0: 32 AA 33 36 30 00 F3 21 62 02 4C B2 31 33 2E 31 |2.360..!b.L.13.1| 000005E0: 37 36 33 39 36 36 AC 44 32 AA 36 34 2E 39 37 35 |763966.D2.64.975| 000005F0: 34 36 34 00 0D 22 6C 02 8B 20 4C B3 B2 33 36 30 |464.."l.. L..360| 00000600: 20 AF 20 4C B1 B2 30 20 A7 20 36 36 30 00 23 22 | . L..0 . 660.#"| 00000610: 76 02 8B 20 4C B1 33 36 30 20 A7 20 4C B2 4C AB |v.. L.360 . L.L.| 00000620: 33 36 30 00 37 22 80 02 8B 20 4C B3 30 20 A7 20 |360.7"... L.0 . | 00000630: 4C B2 4C AA 33 36 30 00 41 22 8A 02 89 20 36 32 |L.L.360.A"... 62| 00000640: 30 00 62 22 94 02 4D 4D B2 4C AB 30 2E 31 31 31 |0.b"..MM.L.0.111| 00000650: 34 30 34 31 AC 44 32 AB 33 34 39 2E 33 38 33 30 |4041.D2.349.3830| 00000660: 36 33 00 7E 22 9E 02 8B 20 4D 4D B3 B2 33 36 30 |63.~"... MM..360| 00000670: 20 AF 20 4D 4D B1 B2 30 20 A7 20 37 31 30 00 97 | . MM..0 . 710..| 00000680: 22 A8 02 8B 20 4D 4D B1 33 36 30 20 A7 20 4D 4D |"... MM.360 . MM| 00000690: B2 4D 4D AB 33 36 30 00 AE 22 B2 02 8B 20 4D 4D |.MM.360.."... MM| 000006A0: B3 30 20 A7 20 4D 4D B2 4D 4D AA 33 36 30 00 B8 |.0 . MM.MM.360..| 000006B0: 22 BC 02 89 20 36 37 30 00 D6 22 C6 02 4E B2 31 |"... 670.."..N.1| 000006C0: 35 31 2E 39 35 30 34 32 39 AB 30 2E 30 35 32 39 |51.950429.0.0529| 000006D0: 35 33 39 AC 44 32 00 F0 22 D0 02 8B 20 4E B3 B2 |539.D2.."... N..| 000006E0: 33 36 30 20 AF 20 4E B1 B2 30 20 A7 20 37 36 30 |360 . N..0 . 760| 000006F0: 00 06 23 DA 02 8B 20 4E B1 33 36 30 20 A7 20 4E |..#... N.360 . N| 00000700: B2 4E AB 33 36 30 00 1A 23 E4 02 8B 20 4E B3 30 |.N.360..#... N.0| 00000710: 20 A7 20 4E B2 4E AA 33 36 30 00 24 23 EE 02 89 | . N.N.360.$#...| 00000720: 20 37 32 30 00 4A 23 F8 02 45 56 B2 31 2E 32 37 | 720.J#..EV.1.27| 00000730: 33 39 AC BF 28 28 32 AC 28 4C AB 47 32 29 AB 4D |39..((2.(L.G2).M| 00000740: 4D 29 AC 50 49 AD 31 38 30 29 00 65 23 02 03 41 |M).PI.180).e#..A| 00000750: 45 B2 30 2E 31 38 35 38 AC BF 28 4D 32 AC 50 49 |E.0.1858..(M2.PI| 00000760: AD 31 38 30 29 00 7E 23 0C 03 41 33 B2 30 2E 33 |.180).~#..A3.0.3| 00000770: 37 AC BF 28 4D 32 AC 50 49 AD 31 38 30 29 00 91 |7..(M2.PI.180)..| 00000780: 23 16 03 4D 4D B2 4D 4D AA 45 56 AB 41 45 AB 41 |#..MM.MM.EV.AE.A| 00000790: 33 00 AC 23 20 03 45 43 B2 36 2E 32 38 38 36 AC |3..# .EC.6.2886.| 000007A0: BF 28 4D 4D AC 50 49 AD 31 38 30 29 00 C8 23 2A |.(MM.PI.180)..#*| 000007B0: 03 41 34 B2 30 2E 32 31 34 AC BF 28 32 AC 4D 4D |.A4.0.214..(2.MM| 000007C0: AC 50 49 AD 31 38 30 29 00 DC 23 34 03 4C B2 4C |.PI.180)..#4.L.L| 000007D0: AA 45 56 AA 45 43 AB 41 45 AA 41 34 00 FC 23 3E |.EV.EC.AE.A4..#>| 000007E0: 03 56 B2 30 2E 36 35 38 33 AC BF 28 32 AC 28 4C |.V.0.6583..(2.(L| 000007F0: AB 47 32 29 AC 50 49 AD 31 38 30 29 00 06 24 48 |.G2).PI.180)..$H| 00000800: 03 4C B2 4C AA 56 00 19 24 52 03 4E B2 4E AB 30 |.L.L.V..$R.N.N.0| 00000810: 2E 31 36 AC BF 28 4D 32 29 00 42 24 5C 03 59 B2 |.16..(M2).B$\.Y.| 00000820: BF 28 28 4C AB 4E 29 AC 50 49 AD 31 38 30 29 AC |.((L.N).PI.180).| 00000830: BE 28 35 2E 31 34 35 33 39 36 AC 50 49 AD 31 38 |.(5.145396.PI.18| 00000840: 30 29 00 58 24 66 03 58 B2 BE 28 28 4C AB 4E 29 |0).X$f.X..((L.N)| 00000850: AC 50 49 AD 31 38 30 29 00 6D 24 70 03 4C 4D B2 |.PI.180).m$p.LM.| 00000860: C1 28 59 AD 58 29 AC 31 38 30 AD 50 49 00 89 24 |.(Y.X).180.PI..$| 00000870: 7A 03 8B 20 59 B1 30 20 AF 20 58 B3 30 20 A7 20 |z.. Y.0 . X.0 . | 00000880: 4C 4D B2 4C 4D AA 31 38 30 00 A5 24 84 03 8B 20 |LM.LM.180..$... | 00000890: 59 B3 30 20 AF 20 58 B3 30 20 A7 20 4C 4D B2 4C |Y.0 . X.0 . LM.L| 000008A0: 4D AA 31 38 30 00 C1 24 8E 03 8B 20 59 B3 30 20 |M.180..$... Y.0 | 000008B0: AF 20 58 B1 30 20 A7 20 4C 4D B2 4C 4D AA 33 36 |. X.0 . LM.LM.36| 000008C0: 30 00 CD 24 98 03 4C 4D B2 4C 4D AA 4E 00 F7 24 |0..$..LM.LM.N..$| 000008D0: A2 03 42 51 B2 BF 28 28 4C AB 4E 29 AC 50 49 AD |..BQ..((L.N).PI.| 000008E0: 31 38 30 29 AC BF 28 35 2E 31 34 35 33 39 36 AC |180)..(5.145396.| 000008F0: 50 49 AD 31 38 30 29 00 10 25 AC 03 42 4D B2 C1 |PI.180)..%..BM..| 00000900: 28 42 51 AD BA 28 AB 42 51 AC 42 51 AA 31 29 29 |(BQ..(.BQ.BQ.1))| 00000910: 00 21 25 B6 03 4C 4D B2 4C 4D AC 50 49 AD 31 38 |.!%..LM.LM.PI.18| 00000920: 30 00 50 25 C0 03 44 45 B2 BF 28 42 4D 29 AC 30 |0.P%..DE..(BM).0| 00000930: 2E 39 31 37 34 36 34 30 36 AA BE 28 42 4D 29 AC |.91746406..(BM).| 00000940: 30 2E 33 39 37 38 31 38 36 38 AC BF 28 4C 4D 29 |0.39781868..(LM)| 00000950: 00 72 25 CA 03 44 45 B2 28 C1 28 44 45 AD BA 28 |.r%..DE.(.(DE..(| 00000960: AB 44 45 AC 44 45 AA 31 29 29 29 AC 31 38 30 AD |.DE.DE.1))).180.| 00000970: 50 49 00 8F 25 D4 03 44 45 24 B2 22 2B 22 3A 8B |PI..%..DE$."+":.| 00000980: 20 44 45 B3 30 20 A7 20 44 45 24 B2 22 2D 22 00 | DE.0 . DE$."-".| 00000990: 9C 25 DE 03 44 58 B2 B6 28 44 45 29 00 C4 25 E8 |.%..DX..(DE)..%.| 000009A0: 03 59 B2 BF 28 4C 4D 29 AC 30 2E 39 31 37 34 36 |.Y..(LM).0.91746| 000009B0: 34 30 36 AB C0 28 42 4D 29 AC 30 2E 33 39 37 38 |406..(BM).0.3978| 000009C0: 31 38 36 38 00 D0 25 F2 03 58 B2 BE 28 4C 4D 29 |1868..%..X..(LM)| 000009D0: 00 E5 25 FC 03 41 41 B2 C1 28 59 AD 58 29 AC 31 |..%..AA..(Y.X).1| 000009E0: 38 30 AD 50 49 00 01 26 06 04 8B 20 59 B1 30 20 |80.PI..&... Y.0 | 000009F0: AF 20 58 B3 30 20 A7 20 41 41 B2 41 41 AA 31 38 |. X.0 . AA.AA.18| 00000A00: 30 00 1D 26 10 04 8B 20 59 B3 30 20 AF 20 58 B3 |0..&... Y.0 . X.| 00000A10: 30 20 A7 20 41 41 B2 41 41 AA 31 38 30 00 39 26 |0 . AA.AA.180.9&| 00000A20: 1A 04 8B 20 59 B3 30 20 AF 20 58 B1 30 20 A7 20 |... Y.0 . X.0 . | 00000A30: 41 41 B2 41 41 AA 33 36 30 00 46 26 24 04 41 41 |AA.AA.360.F&$.AA| 00000A40: B2 41 41 AD 31 35 00 6A 26 2E 04 44 50 B2 B5 28 |.AA.15.j&..DP..(| 00000A50: 4C AB 47 32 AA 30 2E 35 29 3A 8B 20 44 50 B3 30 |L.G2.0.5):. DP.0| 00000A60: 20 A7 20 44 50 B2 44 50 AA 31 00 83 26 38 04 8B | . DP.DP.1..&8..| 00000A70: 20 44 50 B1 31 38 30 20 A7 20 44 50 B2 44 50 AB | DP.180 . DP.DP.| 00000A80: 33 36 30 00 9D 26 42 04 8B 20 44 50 B3 AB 31 38 |360..&B.. DP..18| 00000A90: 30 20 A7 20 44 50 B2 44 50 AA 33 36 30 00 CA 26 |0 . DP.DP.360..&| 00000AA0: 4C 04 99 3A 99 3A 99 22 20 50 48 41 53 45 20 49 |L..:.:." PHASE I| 00000AB0: 53 20 3A A0 22 3B 44 50 3B 22 20 20 28 53 45 45 |S :.";DP;" (SEE| 00000AC0: 20 43 48 41 52 54 29 22 3A 99 00 02 27 56 04 99 | CHART)":...'V..| 00000AD0: 3A 99 22 20 52 41 20 20 3D 20 22 3B B5 28 41 41 |:." RA = ";.(AA| 00000AE0: 29 3B 22 48 52 53 22 3B B5 28 28 41 41 AB B5 28 |);"HRS";.((AA..(| 00000AF0: 41 41 29 29 AC 36 30 AA 30 2E 35 29 3B 22 4D 49 |AA)).60.0.5);"MI| 00000B00: 4E 22 00 3E 27 60 04 99 3A 99 22 20 44 45 43 20 |N".>'`..:." DEC | 00000B10: 3D 20 22 3B 44 45 24 3B B5 28 44 58 29 3B 22 44 |= ";DE$;.(DX);"D| 00000B20: 45 47 22 3B B5 28 28 44 58 AB B5 28 44 58 29 29 |EG";.((DX..(DX))| 00000B30: AC 36 30 AA 30 2E 35 29 3B 22 4D 49 4E 22 00 78 |.60.0.5);"MIN".x| 00000B40: 27 6A 04 50 50 B2 28 33 38 34 34 30 31 AC 28 31 |'j.PP.(384401.(1| 00000B50: AB 30 2E 30 35 34 39 AE 32 29 29 AD 28 31 AA 30 |.0.0549.2)).(1.0| 00000B60: 2E 30 35 34 39 AC BE 28 28 4D 4D AA 45 43 29 AC |.0549..((MM.EC).| 00000B70: 50 49 AD 31 38 30 29 29 00 91 27 74 04 50 51 B2 |PI.180))..'t.PQ.| 00000B80: 31 30 30 AC B5 28 50 50 AD 31 30 30 AA 30 2E 35 |100..(PP.100.0.5| 00000B90: 29 00 B4 27 7E 04 99 3A 99 3A 99 22 20 44 49 53 |)..'~..:.:." DIS| 00000BA0: 54 41 4E 43 45 20 49 53 20 3A A0 22 3B 50 51 3B |TANCE IS :.";PQ;| 00000BB0: 22 4B 4D 22 00 CF 27 88 04 53 53 B2 36 30 AC 30 |"KM"..'..SS.60.0| 00000BC0: 2E 35 31 38 31 AC 33 38 34 34 30 31 AD 50 50 00 |.5181.384401.PP.| 00000BD0: EB 27 92 04 53 38 B2 B5 28 28 53 53 AB B5 28 53 |.'..S8..((SS..(S| 00000BE0: 53 29 29 AC 36 30 AA 30 2E 35 29 00 1F 28 9C 04 |S)).60.0.5)..(..| 00000BF0: 99 3A 99 22 20 41 50 50 41 52 45 4E 54 20 53 49 |.:." APPARENT SI| 00000C00: 5A 45 20 49 53 20 3A 20 22 3B B5 28 53 53 29 3B |ZE IS : ";.(SS);| 00000C10: 22 4D 49 4E 20 22 3B 53 38 3B 22 53 45 43 22 00 |"MIN ";S8;"SEC".| 00000C20: 29 28 A6 04 99 3A 99 3A 80 00 00 00 |)(...:.:.... |
..G.D.. *******************************
*******************************...N.. *
MOON BY DELWIN JOHNSON
MAY 10, 1987 *.S.X.. ***********
****************************************
***********......G(147):. CLEAR SCREEN..
...." MOON".;....:.:." TH
IS PROGRAM WILL COMPUTE THE MOON'S".G. .
.:." COORDINATES, PHASE, DISTANCE, AND".
.....:." APPARENT SIZE GIVEN THE DATE AN
D TIME.".....PI.3.14159265.G....:.:." EN
TER THE DATE :"...H..:." FOR EXAMPLE, DE
CEMBER 31,1986 WOULD"...R..:." BE ENTERE
D AS 12,31,1986"............ M1,D1,Y1.G
.... D1.1 . D1.31 . 370.`.... M1.1 . M1.
12 . 370......:."ENTER THE TIME (PST,24
HR,HHMM) :"...... TM...... TM.2400 . TM.
0 . 370...".TM.TM.800.U.,.. TM.2400 . D1
.D1.1...6.. TM.2400 . TM.TM.2400...@.TX.
.(TM.100).100...J.TZ.TM.TX.&.T.TY.TX.TZ.
100.60.8.^.D1.D1.TY.2400.B.H.. 390.Q.R..
G(147):.:.:." INCORRECT INPUT,TRY AGAIN.
"...|.. X1.1.1000:.:. 180......G(147).D.
..."-180 -90 0 +90 +
180"......"=============================
=========="." ..."FULL LAST 1/4 NEW
1ST 1/4 FULL".C ..A1.63:. .(Y1.4).Y
1.4 . A1.62.T ... M1.2 . 470.L B.DN..(((
M1.1).A1).2).V L.. 480.. V.DN..((M1.1).3
0.6).A1.. ..DN.DN.D1.. ..D2.DN..(365.25.
(Y1.1980)).Z ... A1.63 . Y1.1980 . D2.D2
.1.. ..D2.D2.1.. ..N2.360.D2.365.2422..!
... N2.0 . N2.N2.360.-!... N2.360 . N2.N
2.360.G!&.. N2.0 . N2.360 . 530.\!0.M2.N
2.3.76286283.S!:.. M2.0 . M2.M2.360..!D.
G2.N2.360.0.016718..(M2.PI.180).PI.278.8
33540..!N.. G2.360 . G2.G2.360.U!X.. G2.
0 . G2.G2.360..!B.L.13.1763966.D2.64.975
464.."L.. L..360 . L..0 . 660.#"V.. L.36
0 . L.L.360.7"... L.0 . L.L.360.A"... 62
0.B"..MM.L.0.1114041.D2.349.383063.~"...
MM..360 . MM..0 . 710.."... MM.360 . MM
.MM.360.."... MM.0 . MM.MM.360.."... 670
.V"F.N.151.950429.0.0529539.D2.."P.. N..
360 . N..0 . 760..#Z.. N.360 . N.N.360..
#... N.0 . N.N.360.$#... 720.J#..EV.1.27
39..((2.(L.G2).MM).PI.180).E#..AE.0.1858
..(M2.PI.180).~#..A3.0.37..(M2.PI.180)..
#..MM.MM.EV.AE.A3..# .EC.6.2886..(MM.PI.
180).H#*.A4.0.214..(2.MM.PI.180)..#4.L.L
.EV.EC.AE.A4..#>.V.0.6583..(2.(L.G2).PI.
180)..$H.L.L.V..$R.N.N.0.16..(M2).B$\.Y.
.((L.N).PI.180)..(5.145396.PI.180).X$F.X
..((L.N).PI.180).M$P.LM.A(Y.X).180.PI..$
Z.. Y.0 . X.0 . LM.LM.180..$... Y.0 . X.
0 . LM.LM.180.A$... Y.0 . X.0 . LM.LM.36
0.M$..LM.LM.N..$..BQ..((L.N).PI.180)..(5
.145396.PI.180)..%..BM.A(BQ..(.BQ.BQ.1))
.!%..LM.LM.PI.180.P%..DE..(BM).0.9174640
6..(BM).0.39781868..(LM).R%J.DE.(A(DE..(
.DE.DE.1))).180.PI..%T.DE$."+":. DE.0 .
DE$."-"..%..DX..(DE).D%..Y..(LM).0.91746
406..(BM).0.39781868.P%..X..(LM)..%..AA.
A(Y.X).180.PI..&... Y.0 . X.0 . AA.AA.18
0..&... Y.0 . X.0 . AA.AA.180.9&... Y.0
. X.0 . AA.AA.360.F&$.AA.AA.15.J&..DP..(
L.G2.0.5):. DP.0 . DP.DP.1..&8.. DP.180
. DP.DP.360..&B.. DP..180 . DP.DP.360.J&
L..:.:." PHASE IS : ";DP;" (SEE CHART)"
:...'V..:." RA = ";.(AA);"HRS";.((AA..(
AA)).60.0.5);"MIN".>'`..:." DEC = ";DE$;
.(DX);"DEG";.((DX..(DX)).60.0.5);"MIN".X
'J.PP.(384401.(1.0.0549.2)).(1.0.0549..(
(MM.EC).PI.180))..'T.PQ.100..(PP.100.0.5
)..'~..:.:." DISTANCE IS : ";PQ;"KM".O'.
.SS.60.0.5181.384401.PP..'..S8..((SS..(S
S)).60.0.5)..(...:." APPARENT SIZE IS :
";.(SS);"MIN ";S8;"SEC".)(...:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL