COORDINATES
FILE INFORMATION
FILENAME(S): COORDINATES
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
126f008ab45172eef0381cf40b5641c72e0cc4738fdc2a11348917c6a72eabbc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | COORDINATES | PRG | Treasure Chest - Klaus Der Suhler | 24 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 4D 1C 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..M.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 2A 2A 2A 2A 2A 2A 00 99 1C |*************...| 00000050: 6E 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |n.. * | 00000060: 20 20 20 20 43 4F 4F 52 44 49 4E 41 54 45 53 20 | COORDINATES | 00000070: 20 20 20 20 20 20 20 20 20 20 20 42 59 20 20 44 | BY D| 00000080: 45 4C 57 49 4E 20 4A 4F 48 4E 53 4F 4E 20 20 20 |ELWIN JOHNSON | 00000090: 20 20 20 20 20 20 20 20 2A 00 E5 1C 78 00 8F 20 | *...x.. | 000000A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 000000B0: 20 20 20 20 20 52 45 56 49 53 45 44 20 20 3A 20 | REVISED : | 000000C0: 20 46 45 42 52 55 41 52 59 20 31 36 2C 20 31 39 | FEBRUARY 16, 19| 000000D0: 38 37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |87 | 000000E0: 20 20 20 20 2A 00 31 1D 82 00 8F 20 2A 2A 2A 2A | *.1.... ****| 000000F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000130: 2A 00 5F 1D 8C 00 99 20 22 93 12 20 20 20 20 20 |*._.... ".. | 00000140: 20 20 20 20 43 4F 4F 52 44 49 4E 41 54 45 53 20 | COORDINATES | 00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 92 22 00 | .".| 00000160: 65 1D 96 00 99 00 92 1D A0 00 99 20 22 45 51 55 |e.......... "EQU| 00000170: 41 54 4F 52 49 41 4C 20 43 4F 4F 52 44 49 4E 41 |ATORIAL COORDINA| 00000180: 54 45 53 20 41 52 45 20 43 4F 4E 56 45 52 54 45 |TES ARE CONVERTE| 00000190: 44 22 00 B2 1D AA 00 99 20 22 54 4F 20 48 4F 52 |D"...... "TO HOR| 000001A0: 49 5A 4F 4E 20 43 4F 4F 52 44 49 4E 41 54 45 53 |IZON COORDINATES| 000001B0: 2E 22 00 B8 1D B4 00 99 00 D1 1D BE 00 85 20 22 |."............ "| 000001C0: 45 4E 54 45 52 20 54 48 45 20 59 45 41 52 22 3B |ENTER THE YEAR";| 000001D0: 59 00 FB 1D C8 00 85 20 22 45 4E 54 45 52 20 4D |Y...... "ENTER M| 000001E0: 4F 4E 54 48 20 4E 55 4D 42 45 52 20 28 45 2E 47 |ONTH NUMBER (E.G| 000001F0: 2E 20 4D 41 59 3D 35 29 22 3B 4D 00 13 1E D2 00 |. MAY=5)";M.....| 00000200: 85 20 22 45 4E 54 45 52 20 54 48 45 20 44 41 59 |. "ENTER THE DAY| 00000210: 22 3B 44 00 19 1E DC 00 99 00 3F 1E E6 00 99 20 |";D.......?.... | 00000220: 22 45 4E 54 45 52 20 54 48 45 20 54 49 4D 45 20 |"ENTER THE TIME | 00000230: 28 50 53 54 2C 32 34 20 48 52 29 20 49 4E 22 00 |(PST,24 HR) IN".| 00000240: 5B 1E F0 00 85 20 22 48 4F 55 52 53 2C 4D 49 4E |[.... "HOURS,MIN| 00000250: 55 54 45 53 22 3B 54 48 2C 54 4D 00 A7 1E FA 00 |UTES";TH,TM.....| 00000260: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************| 00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002A0: 2A 2A 2A 2A 2A 2A 2A 00 F3 1E 04 01 8F 20 2A 20 |*******...... * | 000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002C0: 43 4F 4E 56 45 52 54 20 46 52 4F 4D 20 50 53 54 |CONVERT FROM PST| 000002D0: 20 54 4F 20 47 4D 54 20 20 20 20 20 20 20 20 20 | TO GMT | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002F0: 20 20 2A 00 3F 1F 0E 01 8F 20 2A 2A 2A 2A 2A 2A | *.?.... ******| 00000300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000320: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000340: 64 1F 18 01 54 48 B2 54 48 AA 38 3A 8B 20 54 48 |d...TH.TH.8:. TH| 00000350: B1 32 33 20 A7 20 54 48 B2 54 48 AB 32 34 3A 44 |.23 . TH.TH.24:D| 00000360: B2 44 AA 31 00 B0 1F 22 01 8F 20 2A 2A 2A 2A 2A |.D.1...".. *****| 00000370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000380: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003B0: 00 FC 1F 2C 01 8F 20 2A 20 20 20 20 20 20 20 20 |...,.. * | 000003C0: 20 20 20 20 20 20 20 20 43 41 4C 43 55 4C 41 54 | CALCULAT| 000003D0: 45 20 44 41 59 20 4E 55 4D 42 45 52 20 28 44 4E |E DAY NUMBER (DN| 000003E0: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |) | 000003F0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 48 20 36 | *.H 6| 00000400: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000440: 2A 2A 2A 2A 2A 2A 2A 2A 00 53 20 40 01 4C 59 B2 |********.S @.LY.| 00000450: 59 AD 34 00 63 20 4A 01 8B 20 4D B1 32 20 A7 20 |Y.4.c J.. M.2 . | 00000460: 33 39 30 00 6E 20 54 01 4D 31 B2 4D AB 31 00 89 |390.n T.M1.M.1..| 00000470: 20 5E 01 8B 20 4C 59 B3 B1 B5 28 4C 59 29 20 A7 | ^.. LY...(LY) .| 00000480: 20 4D 31 B2 4D 31 AC 36 33 00 A3 20 68 01 8B 20 | M1.M1.63.. h.. | 00000490: 4C 59 B2 B5 28 4C 59 29 20 A7 20 4D 31 B2 4D 31 |LY..(LY) . M1.M1| 000004A0: AC 36 32 00 B2 20 72 01 4D 31 B2 B5 28 4D 31 AD |.62.. r.M1..(M1.| 000004B0: 32 29 00 BC 20 7C 01 89 20 34 32 30 00 D1 20 86 |2).. |.. 420.. .| 000004C0: 01 4D 31 B2 B5 28 28 4D AA 31 29 AC 33 30 2E 36 |.M1..((M.1).30.6| 000004D0: 29 00 EC 20 90 01 8B 20 4C 59 B3 B1 B5 28 4C 59 |).. ... LY...(LY| 000004E0: 29 20 A7 20 4D 31 B2 4D 31 AB 36 33 00 06 21 9A |) . M1.M1.63..!.| 000004F0: 01 8B 20 4C 59 B2 B5 28 4C 59 29 20 A7 20 4D 31 |.. LY..(LY) . M1| 00000500: B2 4D 31 AB 36 32 00 12 21 A4 01 44 4E B2 4D 31 |.M1.62..!..DN.M1| 00000510: AA 44 00 5E 21 AE 01 8F 20 2A 2A 2A 2A 2A 2A 2A |.D.^!... *******| 00000520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000540: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AA |**************..| 00000560: 21 B8 01 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |!... * | 00000570: 20 20 20 20 20 43 41 4C 43 55 4C 41 54 45 20 4A | CALCULATE J| 00000580: 55 4C 49 41 4E 20 44 41 54 45 20 28 4A 44 29 20 |ULIAN DATE (JD) | 00000590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005A0: 20 20 20 20 20 20 20 20 20 2A 00 F6 21 C2 01 8F | *..!...| 000005B0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000005C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000005F0: 2A 2A 2A 2A 2A 2A 00 FF 21 CC 01 59 4A B2 59 00 |******..!..YJ.Y.| 00000600: 1A 22 D6 01 8B 20 4D B3 33 20 A7 20 59 4A B2 59 |."... M.3 . YJ.Y| 00000610: 4A AB 31 3A 4D B2 4D AA 31 32 00 2B 22 E0 01 41 |J.1:M.M.12.+"..A| 00000620: 4A B2 B5 28 59 4A AD 31 30 30 29 00 3F 22 EA 01 |J..(YJ.100).?"..| 00000630: 42 4A B2 32 AB 41 4A AA B5 28 41 4A AD 34 29 00 |BJ.2.AJ..(AJ.4).| 00000640: 53 22 F4 01 43 4A B2 B5 28 33 36 35 2E 32 35 AC |S"..CJ..(365.25.| 00000650: 59 4A 29 00 6B 22 FE 01 44 4A B2 B5 28 33 30 2E |YJ).k"..DJ..(30.| 00000660: 36 30 30 31 AC 28 4D AA 31 29 29 00 87 22 08 02 |6001.(M.1)).."..| 00000670: 4A 44 B2 42 4A AA 43 4A AA 44 4A AA 44 AA 31 37 |JD.BJ.CJ.DJ.D.17| 00000680: 32 30 39 39 34 2E 35 00 D3 22 12 02 8F 20 2A 2A |20994.5.."... **| 00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006D0: 2A 2A 2A 00 1F 23 1C 02 8F 20 2A 20 20 20 20 20 |***..#... * | 000006E0: 20 20 20 20 20 43 41 4C 43 55 4C 41 54 45 20 42 | CALCULATE B| 000006F0: 20 43 4F 4E 53 54 41 4E 54 20 46 4F 52 20 53 49 | CONSTANT FOR SI| 00000700: 44 45 52 45 41 4C 20 54 49 4D 45 20 20 20 20 20 |DEREAL TIME | 00000710: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000720: 6B 23 26 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |k#&.. **********| 00000730: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000740: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000750: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 87 23 30 02 |***********..#0.| 00000770: 54 B2 28 4A 44 AB 32 34 31 35 30 32 30 AB 44 4E |T.(JD.2415020.DN| 00000780: 29 AD 33 36 35 32 35 00 B8 23 3A 02 52 B2 36 2E |).36525..#:.R.6.| 00000790: 36 34 36 30 36 35 36 AA 28 32 34 30 30 2E 30 35 |6460656.(2400.05| 000007A0: 31 32 36 32 AC 54 29 AA 28 30 2E 30 30 30 30 32 |1262.T).(0.00002| 000007B0: 35 38 31 AC 54 AE 32 29 00 D1 23 44 02 42 B2 32 |581.T.2)..#D.B.2| 000007C0: 34 AB 28 52 AB 32 34 AC 28 59 AB 31 39 30 30 29 |4.(R.24.(Y.1900)| 000007D0: 29 00 1D 24 4E 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |)..$N.. ********| 000007E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 69 24 |*************.i$| 00000820: 58 02 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |X.. * | 00000830: 20 20 20 43 41 4C 43 55 4C 41 54 45 20 47 52 45 | CALCULATE GRE| 00000840: 45 4E 57 49 43 48 20 4D 45 41 4E 20 53 49 44 45 |ENWICH MEAN SIDE| 00000850: 52 45 41 4C 20 54 49 4D 45 20 28 47 53 29 20 20 |REAL TIME (GS) | 00000860: 20 20 20 20 20 20 20 20 2A 00 B5 24 62 02 8F 20 | *..$b.. | 00000870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008B0: 2A 2A 2A 2A 2A 00 CB 24 6C 02 54 30 B2 44 4E AC |*****..$l.T0.DN.| 000008C0: 30 2E 30 36 35 37 30 39 38 AB 42 00 E9 24 76 02 |0.0657098.B..$v.| 000008D0: 47 53 B2 28 54 48 AA 54 4D AD 36 30 29 AC 31 2E |GS.(TH.TM.60).1.| 000008E0: 30 30 32 37 33 38 AA 54 30 00 00 25 80 02 8B 20 |002738.T0..%... | 000008F0: 47 53 B1 32 34 20 A7 20 47 53 B2 47 53 AB 32 34 |GS.24 . GS.GS.24| 00000900: 00 16 25 8A 02 8B 20 47 53 B3 30 20 A7 20 47 53 |..%... GS.0 . GS| 00000910: B2 47 53 AA 32 34 00 62 25 94 02 8F 20 2A 2A 2A |.GS.24.b%... ***| 00000920: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000930: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000940: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000960: 2A 2A 00 AE 25 9E 02 8F 20 2A 20 20 20 20 20 20 |**..%... * | 00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 | C| 00000980: 4F 4E 56 45 52 54 20 47 53 54 20 54 4F 20 4C 53 |ONVERT GST TO LS| 00000990: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T | 000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 FA | *..| 000009B0: 25 A8 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |%... ***********| 000009C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 28 26 B2 02 99 |**********.(&...| 00000A00: 20 22 11 45 4E 54 45 52 20 54 48 45 20 4C 41 54 | ".ENTER THE LAT| 00000A10: 49 54 55 44 45 2C 50 4F 53 49 54 49 56 45 20 49 |ITUDE,POSITIVE I| 00000A20: 46 20 4E 4F 52 54 48 22 00 52 26 BC 02 99 20 22 |F NORTH".R&... "| 00000A30: 41 4E 44 20 4E 45 47 41 54 49 56 45 20 49 46 20 |AND NEGATIVE IF | 00000A40: 53 4F 55 54 48 20 4F 46 20 45 51 55 41 54 4F 52 |SOUTH OF EQUATOR| 00000A50: 2C 22 00 74 26 C6 02 85 20 22 49 4E 20 44 45 47 |,".t&... "IN DEG| 00000A60: 52 45 45 53 2C 4D 49 4E 55 54 45 53 3A 22 3B 50 |REES,MINUTES:";P| 00000A70: 44 2C 50 4D 00 84 26 D0 02 4C 41 B2 50 44 AA 50 |D,PM..&..LA.PD.P| 00000A80: 4D AD 36 30 00 B2 26 DA 02 99 20 22 11 45 4E 54 |M.60..&... ".ENT| 00000A90: 45 52 20 54 48 45 20 4C 4F 4E 47 49 54 55 44 45 |ER THE LONGITUDE| 00000AA0: 2C 50 4F 53 49 54 49 56 45 20 49 46 20 57 45 53 |,POSITIVE IF WES| 00000AB0: 54 22 00 DD 26 E4 02 99 20 22 41 4E 44 20 4E 45 |T"..&... "AND NE| 00000AC0: 47 41 54 49 56 45 20 49 46 20 45 41 53 54 20 4F |GATIVE IF EAST O| 00000AD0: 46 20 47 52 45 45 4E 57 49 43 48 2C 22 00 FF 26 |F GREENWICH,"..&| 00000AE0: EE 02 85 20 22 49 4E 20 44 45 47 52 45 45 53 2C |... "IN DEGREES,| 00000AF0: 4D 49 4E 55 54 45 53 3A 22 3B 4C 44 2C 4C 4D 00 |MINUTES:";LD,LM.| 00000B00: 0F 27 F8 02 4C 4F B2 4C 44 AA 4C 4D AD 36 30 00 |.'..LO.LD.LM.60.| 00000B10: 1F 27 02 03 4C 53 B2 47 53 AB 4C 4F AD 31 35 00 |.'..LS.GS.LO.15.| 00000B20: 36 27 0C 03 8B 20 4C 53 B1 32 34 20 A7 20 4C 53 |6'... LS.24 . LS| 00000B30: B2 4C 53 AB 32 34 00 4C 27 16 03 8B 20 4C 53 B3 |.LS.24.L'... LS.| 00000B40: 30 20 A7 20 4C 53 B2 4C 53 AA 32 34 00 98 27 20 |0 . LS.LS.24..' | 00000B50: 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000B60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000B90: 2A 2A 2A 2A 2A 2A 2A 2A 00 E4 27 2A 03 8F 20 2A |********..'*.. *| 00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4C 43 | CALC| 00000BB0: 55 4C 41 54 49 4E 47 20 48 4F 55 52 20 41 4E 47 |ULATING HOUR ANG| 00000BC0: 4C 45 20 20 28 48 41 29 20 20 20 20 20 20 20 20 |LE (HA) | 00000BD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000BE0: 20 20 20 2A 00 30 28 34 03 8F 20 2A 2A 2A 2A 2A | *.0(4.. *****| 00000BF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000C30: 00 4F 28 3E 03 99 20 22 11 45 4E 54 45 52 20 54 |.O(>.. ".ENTER T| 00000C40: 48 45 20 44 45 43 4C 49 4E 41 54 49 4F 4E 22 00 |HE DECLINATION".| 00000C50: 71 28 48 03 85 20 22 49 4E 20 44 45 47 52 45 45 |q(H.. "IN DEGREE| 00000C60: 53 2C 4D 49 4E 55 54 45 53 3A 22 3B 44 44 2C 44 |S,MINUTES:";DD,D| 00000C70: 4D 00 81 28 52 03 44 45 B2 44 44 AA 44 4D AD 36 |M..(R.DE.DD.DM.6| 00000C80: 30 00 A4 28 5C 03 99 20 22 11 45 4E 54 45 52 20 |0..(\.. ".ENTER | 00000C90: 54 48 45 20 52 49 47 48 54 20 41 53 43 45 4E 53 |THE RIGHT ASCENS| 00000CA0: 49 4F 4E 22 00 C4 28 66 03 85 20 22 49 4E 20 48 |ION"..(f.. "IN H| 00000CB0: 4F 55 52 53 2C 4D 49 4E 55 54 45 53 3A 22 3B 52 |OURS,MINUTES:";R| 00000CC0: 48 2C 52 4D 00 D4 28 70 03 52 41 B2 52 48 AA 52 |H,RM..(p.RA.RH.R| 00000CD0: 4D AD 36 30 00 E1 28 7A 03 48 41 B2 4C 53 AB 52 |M.60..(z.HA.LS.R| 00000CE0: 41 00 F7 28 84 03 8B 20 48 41 B3 30 20 A7 20 48 |A..(... HA.0 . H| 00000CF0: 41 B2 48 41 AA 32 34 00 43 29 8E 03 8F 20 2A 2A |A.HA.24.C)... **| 00000D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D30: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000D40: 2A 2A 2A 00 8F 29 98 03 8F 20 2A 20 20 20 20 20 |***..)... * | 00000D50: 20 20 20 20 20 20 20 20 20 20 48 4F 52 49 5A 4F | HORIZO| 00000D60: 4E 20 43 4F 4F 52 44 49 4E 41 54 45 53 20 43 41 |N COORDINATES CA| 00000D70: 4C 43 55 4C 41 54 49 4F 4E 20 20 20 20 20 20 20 |LCULATION | 00000D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000D90: DB 29 A2 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.)... **********| 00000DA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000DB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000DD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 EE 29 AC 03 |***********..)..| 00000DE0: 50 49 B2 2E 30 31 37 34 35 33 32 39 32 35 00 25 |PI..0174532925.%| 00000DF0: 2A B6 03 41 4C B2 BF 28 44 45 AC 50 49 29 AC BF |*..AL..(DE.PI)..| 00000E00: 28 4C 41 AC 50 49 29 AA BE 28 44 45 AC 50 49 29 |(LA.PI)..(DE.PI)| 00000E10: AC BE 28 4C 41 AC 50 49 29 AC BE 28 48 41 AC 50 |..(LA.PI)..(HA.P| 00000E20: 49 AC 31 35 29 00 3E 2A C0 03 41 4C B2 C1 28 41 |I.15).>*..AL..(A| 00000E30: 4C AD BA 28 AB 41 4C AC 41 4C AA 31 29 29 00 70 |L..(.AL.AL.1)).p| 00000E40: 2A CA 03 41 5A B2 28 BF 28 44 45 AC 50 49 29 AB |*..AZ.(.(DE.PI).| 00000E50: BF 28 4C 41 AC 50 49 29 AC BF 28 41 4C 29 29 AD |.(LA.PI)..(AL)).| 00000E60: 28 BE 28 4C 41 AC 50 49 29 AC BE 28 41 4C 29 29 |(.(LA.PI)..(AL))| 00000E70: 00 95 2A D4 03 41 5A B2 AB C1 28 41 5A AD BA 28 |..*..AZ...(AZ..(| 00000E80: AB 41 5A AC 41 5A AA 31 29 29 AA 31 2E 35 37 30 |.AZ.AZ.1)).1.570| 00000E90: 37 39 36 33 33 00 A2 2A DE 03 41 5A B2 41 5A AD |79633..*..AZ.AZ.| 00000EA0: 50 49 00 AF 2A E8 03 41 4C B2 41 4C AD 50 49 00 |PI..*..AL.AL.PI.| 00000EB0: CF 2A F2 03 8B 20 BF 28 48 41 AC 31 35 AC 50 49 |.*... .(HA.15.PI| 00000EC0: 29 B1 30 20 A7 20 41 5A B2 33 36 30 AB 41 5A 00 |).0 . AZ.360.AZ.| 00000ED0: 00 2B FC 03 99 20 22 11 4E 3D 30 20 44 45 47 20 |.+... ".N=0 DEG | 00000EE0: 20 45 3D 39 30 20 44 45 47 20 20 53 3D 31 38 30 | E=90 DEG S=180| 00000EF0: 20 44 45 47 20 20 57 3D 32 37 30 20 44 45 47 22 | DEG W=270 DEG"| 00000F00: 00 45 2B 06 04 99 20 22 11 41 5A 49 4D 55 54 48 |.E+... ".AZIMUTH| 00000F10: 20 20 3D 20 22 3B B5 28 41 5A 29 3B 22 44 45 47 | = ";.(AZ);"DEG| 00000F20: 52 45 45 53 20 20 22 3B B5 28 36 30 AC 28 41 5A |REES ";.(60.(AZ| 00000F30: AB B5 28 41 5A 29 29 AA 2E 35 29 3B 22 4D 49 4E |..(AZ))..5);"MIN| 00000F40: 55 54 45 53 22 00 89 2B 10 04 99 20 22 41 4C 54 |UTES"..+... "ALT| 00000F50: 49 54 55 44 45 20 3D 20 22 3B B5 28 41 4C 29 3B |ITUDE = ";.(AL);| 00000F60: 22 44 45 47 52 45 45 53 20 20 22 3B B5 28 36 30 |"DEGREES ";.(60| 00000F70: AC 28 41 4C AB B5 28 41 4C 29 29 AA 2E 35 29 3B |.(AL..(AL))..5);| 00000F80: 22 4D 49 4E 55 54 45 53 22 00 8F 2B 1A 04 80 00 |"MINUTES"..+....| 00000F90: 00 00 |.. |
..M.D.. ********************************
*************************************...
N.. * COORDINATES
BY DELWIN JOHNSON *...X..
* REVISED : FEBRUAR
Y 16, 1987 *.1.... ****
****************************************
*************************._.... "..
COORDINATES .".E.......
.. "EQUATORIAL COORDINATES ARE CONVERTE
D"...... "TO HORIZON COORDINATES."......
.Q.... "ENTER THE YEAR";Y...H.. "ENTER M
ONTH NUMBER (E.G. MAY=5)";M...R.. "ENTER
THE DAY";D.......?.... "ENTER THE TIME
(PST,24 HR) IN".[.... "HOURS,MINUTES";TH
,TM...... ******************************
***************************************.
..... * CONVERT FROM PST
TO GMT *.?...
. **************************************
*******************************.D...TH.T
H.8:. TH.23 . TH.TH.24:D.D.1...".. *****
****************************************
************************...,.. *
CALCULATE DAY NUMBER (DN)
*.H 6.. *************
****************************************
****************.S @.LY.Y.4.C J.. M.2 .
390.N T.M1.M.1.. ^.. LY...(LY) . M1.M1.6
3.. H.. LY..(LY) . M1.M1.62.. R.M1..(M1.
2).. |.. 420.Q ..M1..((M.1).30.6).. ...
LY...(LY) . M1.M1.63..!... LY..(LY) . M1
.M1.62..!..DN.M1.D.^!... ***************
****************************************
**************..!... * CAL
CULATE JULIAN DATE (JD)
*..!B.. ***********************
****************************************
******..!L.YJ.Y.."V.. M.3 . YJ.YJ.1:M.M.
12.+"..AJ..(YJ.100).?"..BJ.2.AJ..(AJ.4).
S"..CJ..(365.25.YJ).K"..DJ..(30.6001.(M.
1)).."..JD.BJ.CJ.DJ.D.1720994.5.S"... **
****************************************
***************************..#... *
CALCULATE B CONSTANT FOR SIDEREAL T
IME *.K#&.. **********
****************************************
*******************..#0.T.(JD.2415020.DN
).36525..#:.R.6.6460656.(2400.051262.T).
(0.00002581.T.2).Q#D.B.24.(R.24.(Y.1900)
)..$N.. ********************************
*************************************.I$
X.. * CALCULATE GREENWICH M
EAN SIDEREAL TIME (GS) *..$B..
****************************************
*****************************.K$L.T0.DN.
0.0657098.B..$V.GS.(TH.TM.60).1.002738.T
0..%... GS.24 . GS.GS.24..%... GS.0 . GS
.GS.24.B%... ***************************
****************************************
**..%... * CONVERT G
ST TO LST *..
%... ***********************************
**********************************.(&...
".ENTER THE LATITUDE,POSITIVE IF NORTH"
.R&... "AND NEGATIVE IF SOUTH OF EQUATOR
,".T&F.. "IN DEGREES,MINUTES:";PD,PM..&P
.LA.PD.PM.60..&Z.. ".ENTER THE LONGITUDE
,POSITIVE IF WEST"..&... "AND NEGATIVE I
F EAST OF GREENWICH,"..&... "IN DEGREES,
MINUTES:";LD,LM..'..LO.LD.LM.60..'..LS.G
S.LO.15.6'... LS.24 . LS.LS.24.L'... LS.
0 . LS.LS.24..' .. *********************
****************************************
********..'*.. * CALCULATING
HOUR ANGLE (HA)
*.0(4.. *****************************
****************************************
.O(>.. ".ENTER THE DECLINATION".Q(H.. "I
N DEGREES,MINUTES:";DD,DM..(R.DE.DD.DM.6
0..(\.. ".ENTER THE RIGHT ASCENSION".D(F
.. "IN HOURS,MINUTES:";RH,RM.T(P.RA.RH.R
M.60..(Z.HA.LS.RA..(... HA.0 . HA.HA.24.
C)... **********************************
***********************************..)..
. * HORIZON COORDINATES CA
LCULATION *..)... **
****************************************
***************************..)..PI..0174
532925.%*..AL..(DE.PI)..(LA.PI)..(DE.PI)
..(LA.PI)..(HA.PI.15).>*..AL.A(AL..(.AL.
AL.1)).P*J.AZ.(.(DE.PI)..(LA.PI)..(AL)).
(.(LA.PI)..(AL))..*T.AZ..A(AZ..(.AZ.AZ.1
)).1.57079633..*..AZ.AZ.PI..*..AL.AL.PI.
O*... .(HA.15.PI).0 . AZ.360.AZ..+... ".
N=0 DEG E=90 DEG S=180 DEG W=270 DEG"
.E+... ".AZIMUTH = ";.(AZ);"DEGREES ";
.(60.(AZ..(AZ))..5);"MINUTES"..+... "ALT
ITUDE = ";.(AL);"DEGREES ";.(60.(AL..(A
L))..5);"MINUTES"..+......
> CLICK IMAGE PREVIEW FOR FULL MODAL