SIDEREAL TIME
FILE INFORMATION
FILENAME(S): SIDEREAL TIME
FILE TYPE(S): PRG
FILE SIZE: 2.8K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
963feb9de10779d0b530c0e57be50c48569246f863647b9d31a64eb3b63e52bc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | SIDEREAL TIME | PRG | Treasure Chest - Klaus Der Suhler | 21 | 11 | 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 53 49 44 45 52 45 41 4C 20 54 49 4D | SIDEREAL TIM| 00000070: 45 20 20 20 20 20 20 20 20 20 20 42 59 20 20 44 |E 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 61 1D 8C 00 99 20 22 93 20 20 20 12 20 20 |*.a.... ". . | 00000140: 20 20 20 20 20 20 53 49 44 45 52 45 41 4C 20 54 | SIDEREAL T| 00000150: 49 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 92 |IME .| 00000160: 22 00 67 1D 96 00 99 00 97 1D A0 00 99 20 22 20 |".g.......... " | 00000170: 4C 4F 43 41 4C 20 53 49 44 45 52 45 41 4C 20 54 |LOCAL SIDEREAL T| 00000180: 49 4D 45 20 49 53 20 43 41 4C 43 55 4C 54 45 44 |IME IS CALCULTED| 00000190: 20 47 49 56 45 4E 22 00 C4 1D AA 00 99 20 22 20 | GIVEN"...... " | 000001A0: 50 41 43 49 46 49 43 20 53 54 41 4E 44 41 52 44 |PACIFIC STANDARD| 000001B0: 20 44 41 54 45 20 41 4E 44 20 54 49 4D 45 2C 20 | DATE AND TIME, | 000001C0: 41 4E 44 22 00 DC 1D B4 00 99 20 22 20 54 48 45 |AND"...... " THE| 000001D0: 20 4C 4F 4E 47 49 54 55 44 45 2E 22 00 E2 1D BE | LONGITUDE."....| 000001E0: 00 99 00 FC 1D C8 00 85 20 22 20 45 4E 54 45 52 |........ " ENTER| 000001F0: 20 54 48 45 20 59 45 41 52 22 3B 59 00 27 1E D2 | THE YEAR";Y.'..| 00000200: 00 85 20 22 20 45 4E 54 45 52 20 4D 4F 4E 54 48 |.. " ENTER MONTH| 00000210: 20 4E 55 4D 42 45 52 20 28 45 2E 47 2E 20 4D 41 | NUMBER (E.G. MA| 00000220: 59 3D 35 29 22 3B 4D 00 40 1E DC 00 85 20 22 20 |Y=5)";M.@.... " | 00000230: 45 4E 54 45 52 20 54 48 45 20 44 41 59 22 3B 44 |ENTER THE DAY";D| 00000240: 00 46 1E E6 00 99 00 6D 1E F0 00 99 20 22 20 45 |.F.....m.... " E| 00000250: 4E 54 45 52 20 54 48 45 20 54 49 4D 45 20 28 50 |NTER THE TIME (P| 00000260: 53 54 2C 32 34 20 48 52 29 20 49 4E 22 00 8B 1E |ST,24 HR) IN"...| 00000270: FA 00 85 20 22 20 48 4F 55 52 53 2C 20 4D 49 4E |... " HOURS, MIN| 00000280: 55 54 45 53 22 3B 54 48 2C 54 4D 00 D7 1E 04 01 |UTES";TH,TM.....| 00000290: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************| 000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000002D0: 2A 2A 2A 2A 2A 2A 2A 00 23 1F 0E 01 8F 20 2A 20 |*******.#.... * | 000002E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000002F0: 43 4F 4E 56 45 52 54 20 46 52 4F 4D 20 50 53 54 |CONVERT FROM PST| 00000300: 20 54 4F 20 47 4D 54 20 20 20 20 20 20 20 20 20 | TO GMT | 00000310: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000320: 20 20 2A 00 6F 1F 18 01 8F 20 2A 2A 2A 2A 2A 2A | *.o.... ******| 00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.| 00000370: 94 1F 22 01 54 48 B2 54 48 AA 38 3A 8B 20 54 48 |..".TH.TH.8:. TH| 00000380: B1 32 33 20 A7 20 54 48 B2 54 48 AB 32 34 3A 44 |.23 . TH.TH.24:D| 00000390: B2 44 AA 31 00 E0 1F 2C 01 8F 20 2A 2A 2A 2A 2A |.D.1...,.. *****| 000003A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000003E0: 00 2C 20 36 01 8F 20 2A 20 20 20 20 20 20 20 20 |., 6.. * | 000003F0: 20 20 20 20 20 20 20 20 43 41 4C 43 55 4C 41 54 | CALCULAT| 00000400: 45 20 44 41 59 20 4E 55 4D 42 45 52 20 28 44 4E |E DAY NUMBER (DN| 00000410: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |) | 00000420: 20 20 20 20 20 20 20 20 20 20 20 2A 00 78 20 40 | *.x @| 00000430: 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 00000440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000450: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000470: 2A 2A 2A 2A 2A 2A 2A 2A 00 83 20 4A 01 4C 59 B2 |********.. J.LY.| 00000480: 59 AD 34 00 93 20 54 01 8B 20 4D B1 32 20 A7 20 |Y.4.. T.. M.2 . | 00000490: 34 30 30 00 9E 20 5E 01 4D 31 B2 4D AB 31 00 B9 |400.. ^.M1.M.1..| 000004A0: 20 68 01 8B 20 4C 59 B3 B1 B5 28 4C 59 29 20 A7 | h.. LY...(LY) .| 000004B0: 20 4D 31 B2 4D 31 AC 36 33 00 D3 20 72 01 8B 20 | M1.M1.63.. r.. | 000004C0: 4C 59 B2 B5 28 4C 59 29 20 A7 20 4D 31 B2 4D 31 |LY..(LY) . M1.M1| 000004D0: AC 36 32 00 E2 20 7C 01 4D 31 B2 B5 28 4D 31 AD |.62.. |.M1..(M1.| 000004E0: 32 29 00 EC 20 86 01 89 20 34 33 30 00 01 21 90 |2).. ... 430..!.| 000004F0: 01 4D 31 B2 B5 28 28 4D AA 31 29 AC 33 30 2E 36 |.M1..((M.1).30.6| 00000500: 29 00 1C 21 9A 01 8B 20 4C 59 B3 B1 B5 28 4C 59 |)..!... LY...(LY| 00000510: 29 20 A7 20 4D 31 B2 4D 31 AB 36 33 00 36 21 A4 |) . M1.M1.63.6!.| 00000520: 01 8B 20 4C 59 B2 B5 28 4C 59 29 20 A7 20 4D 31 |.. LY..(LY) . M1| 00000530: B2 4D 31 AB 36 32 00 42 21 AE 01 44 4E B2 4D 31 |.M1.62.B!..DN.M1| 00000540: AA 44 00 8E 21 B8 01 8F 20 2A 2A 2A 2A 2A 2A 2A |.D..!... *******| 00000550: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000560: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000570: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DA |**************..| 00000590: 21 C2 01 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |!... * | 000005A0: 20 20 20 20 20 43 41 4C 43 55 4C 41 54 45 20 4A | CALCULATE J| 000005B0: 55 4C 49 41 4E 20 44 41 54 45 20 28 4A 44 29 20 |ULIAN DATE (JD) | 000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000005D0: 20 20 20 20 20 20 20 20 20 2A 00 26 22 CC 01 8F | *.&"...| 000005E0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************| 000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000600: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000610: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000620: 2A 2A 2A 2A 2A 2A 00 2F 22 D6 01 59 4A B2 59 00 |******./"..YJ.Y.| 00000630: 4A 22 E0 01 8B 20 4D B3 33 20 A7 20 59 4A B2 59 |J"... M.3 . YJ.Y| 00000640: 4A AB 31 3A 4D B2 4D AA 31 32 00 5B 22 EA 01 41 |J.1:M.M.12.["..A| 00000650: 4A B2 B5 28 59 4A AD 31 30 30 29 00 6F 22 F4 01 |J..(YJ.100).o"..| 00000660: 42 4A B2 32 AB 41 4A AA B5 28 41 4A AD 34 29 00 |BJ.2.AJ..(AJ.4).| 00000670: 83 22 FE 01 43 4A B2 B5 28 33 36 35 2E 32 35 AC |."..CJ..(365.25.| 00000680: 59 4A 29 00 9B 22 08 02 44 4A B2 B5 28 33 30 2E |YJ).."..DJ..(30.| 00000690: 36 30 30 31 AC 28 4D AA 31 29 29 00 B7 22 12 02 |6001.(M.1)).."..| 000006A0: 4A 44 B2 42 4A AA 43 4A AA 44 4A AA 44 AA 31 37 |JD.BJ.CJ.DJ.D.17| 000006B0: 32 30 39 39 34 2E 35 00 03 23 1C 02 8F 20 2A 2A |20994.5..#... **| 000006C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000700: 2A 2A 2A 00 4F 23 26 02 8F 20 2A 20 20 20 20 20 |***.O#&.. * | 00000710: 20 20 20 20 20 43 41 4C 43 55 4C 41 54 45 20 42 | CALCULATE B| 00000720: 20 43 4F 4E 53 54 41 4E 54 20 46 4F 52 20 53 49 | CONSTANT FOR SI| 00000730: 44 45 52 45 41 4C 20 54 49 4D 45 20 20 20 20 20 |DEREAL TIME | 00000740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 00000750: 9B 23 30 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.#0.. **********| 00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000770: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000780: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B7 23 3A 02 |***********..#:.| 000007A0: 54 B2 28 4A 44 AB 32 34 31 35 30 32 30 AB 44 4E |T.(JD.2415020.DN| 000007B0: 29 AD 33 36 35 32 35 00 E8 23 44 02 52 B2 36 2E |).36525..#D.R.6.| 000007C0: 36 34 36 30 36 35 36 AA 28 32 34 30 30 2E 30 35 |6460656.(2400.05| 000007D0: 31 32 36 32 AC 54 29 AA 28 30 2E 30 30 30 30 32 |1262.T).(0.00002| 000007E0: 35 38 31 AC 54 AE 32 29 00 01 24 4E 02 42 B2 32 |581.T.2)..$N.B.2| 000007F0: 34 AB 28 52 AB 32 34 AC 28 59 AB 31 39 30 30 29 |4.(R.24.(Y.1900)| 00000800: 29 00 4D 24 58 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |).M$X.. ********| 00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000840: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 99 24 |*************..$| 00000850: 62 02 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |b.. * | 00000860: 20 20 20 43 41 4C 43 55 4C 41 54 45 20 47 52 45 | CALCULATE GRE| 00000870: 45 4E 57 49 43 48 20 4D 45 41 4E 20 53 49 44 45 |ENWICH MEAN SIDE| 00000880: 52 45 41 4C 20 54 49 4D 45 20 28 47 53 29 20 20 |REAL TIME (GS) | 00000890: 20 20 20 20 20 20 20 20 2A 00 E5 24 6C 02 8F 20 | *..$l.. | 000008A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000008E0: 2A 2A 2A 2A 2A 00 FB 24 76 02 54 30 B2 44 4E AC |*****..$v.T0.DN.| 000008F0: 30 2E 30 36 35 37 30 39 38 AB 42 00 19 25 80 02 |0.0657098.B..%..| 00000900: 47 53 B2 28 54 48 AA 54 4D AD 36 30 29 AC 31 2E |GS.(TH.TM.60).1.| 00000910: 30 30 32 37 33 38 AA 54 30 00 30 25 8A 02 8B 20 |002738.T0.0%... | 00000920: 47 53 B1 32 34 20 A7 20 47 53 B2 47 53 AB 32 34 |GS.24 . GS.GS.24| 00000930: 00 46 25 94 02 8B 20 47 53 B3 30 20 A7 20 47 53 |.F%... GS.0 . GS| 00000940: B2 47 53 AA 32 34 00 92 25 9E 02 8F 20 2A 2A 2A |.GS.24..%... ***| 00000950: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000960: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000970: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000980: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000990: 2A 2A 00 DE 25 A8 02 8F 20 2A 20 20 20 20 20 20 |**..%... * | 000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 | C| 000009B0: 4F 4E 56 45 52 54 20 47 53 54 20 54 4F 20 4C 53 |ONVERT GST TO LS| 000009C0: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T | 000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 2A | *.*| 000009E0: 26 B2 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |&... ***********| 000009F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5B 26 BC 02 99 |**********.[&...| 00000A30: 3A 99 20 22 20 45 4E 54 45 52 20 54 48 45 20 4C |:. " ENTER THE L| 00000A40: 4F 4E 47 49 54 55 44 45 2C 20 50 4F 53 49 54 49 |ONGITUDE, POSITI| 00000A50: 56 45 20 49 46 20 57 45 53 54 22 00 87 26 C6 02 |VE IF WEST"..&..| 00000A60: 99 20 22 20 41 4E 44 20 4E 45 47 41 54 49 56 45 |. " AND NEGATIVE| 00000A70: 20 49 46 20 45 41 53 54 20 4F 46 20 47 52 45 45 | IF EAST OF GREE| 00000A80: 4E 57 49 43 48 2C 22 00 AB 26 D0 02 85 20 22 20 |NWICH,"..&... " | 00000A90: 49 4E 20 44 45 47 52 45 45 53 2C 20 4D 49 4E 55 |IN DEGREES, MINU| 00000AA0: 54 45 53 3A 22 3B 4C 44 2C 4C 4D 00 BA 26 DA 02 |TES:";LD,LM..&..| 00000AB0: 4C B2 4C 44 AA 4C 4D AD 36 30 00 C9 26 E4 02 4C |L.LD.LM.60..&..L| 00000AC0: 53 B2 47 53 AB 4C AD 31 35 00 E0 26 EE 02 8B 20 |S.GS.L.15..&... | 00000AD0: 4C 53 B1 32 34 20 A7 20 4C 53 B2 4C 53 AB 32 34 |LS.24 . LS.LS.24| 00000AE0: 00 F6 26 F8 02 8B 20 4C 53 B3 30 20 A7 20 4C 53 |..&... LS.0 . LS| 00000AF0: B2 4C 53 AA 32 34 00 0B 27 02 03 53 4D B2 36 30 |.LS.24..'..SM.60| 00000B00: AC 28 4C 53 AB B5 28 4C 53 29 29 00 13 27 0C 03 |.(LS..(LS))..'..| 00000B10: 99 3A 99 00 48 27 16 03 99 20 22 20 53 49 44 45 |.:..H'... " SIDE| 00000B20: 52 45 41 4C 20 54 49 4D 45 20 49 53 3A 20 22 3B |REAL TIME IS: ";| 00000B30: B5 28 4C 53 29 3B 22 48 52 53 20 22 3B B5 28 53 |.(LS);"HRS ";.(S| 00000B40: 4D 29 3B 22 4D 49 4E 22 00 52 27 20 03 99 3A 99 |M);"MIN".R' ..:.| 00000B50: 3A 80 00 00 00 |:.... |
..M.D.. ********************************
*************************************...
N.. * SIDEREAL TIME
BY DELWIN JOHNSON *...X..
* REVISED : FEBRUAR
Y 16, 1987 *.1.... ****
****************************************
*************************.A.... ". .
SIDEREAL TIME .".G.....
.. .. " LOCAL SIDEREAL TIME IS CALCULTED
GIVEN".D.... " PACIFIC STANDARD DATE AN
D TIME, AND"...... " THE LONGITUDE."....
.....H.. " ENTER THE YEAR";Y.'.R.. " ENT
ER MONTH NUMBER (E.G. MAY=5)";M.@.... "
ENTER THE DAY";D.F.....M.... " ENTER THE
TIME (PST,24 HR) IN"...... " HOURS, MIN
UTES";TH,TM.W.... **********************
****************************************
*******.#.... * CONVERT
FROM PST TO GMT
*.O.... ******************************
***************************************.
..".TH.TH.8:. TH.23 . TH.TH.24:D.D.1...,
.. *************************************
********************************., 6.. *
CALCULATE DAY NUMBER (DN
) *.X @.. *****
****************************************
************************.. J.LY.Y.4.. T.
. M.2 . 400.. ^.M1.M.1.. H.. LY...(LY) .
M1.M1.63.S R.. LY..(LY) . M1.M1.62.. |.
M1..(M1.2).. ... 430..!..M1..((M.1).30.6
)..!... LY...(LY) . M1.M1.63.6!... LY..(
LY) . M1.M1.62.B!..DN.M1.D..!... *******
****************************************
**********************.Z!B.. *
CALCULATE JULIAN DATE (JD)
*.&"L.. ***************
****************************************
**************./"V.YJ.Y.J"... M.3 . YJ.Y
J.1:M.M.12.["..AJ..(YJ.100).O"..BJ.2.AJ.
.(AJ.4).."..CJ..(365.25.YJ).."..DJ..(30.
6001.(M.1)).."..JD.BJ.CJ.DJ.D.1720994.5.
.#... **********************************
***********************************.O#&.
. * CALCULATE B CONSTANT FOR SI
DEREAL TIME *..#0.. **
****************************************
***************************..#:.T.(JD.24
15020.DN).36525..#D.R.6.6460656.(2400.05
1262.T).(0.00002581.T.2)..$N.B.24.(R.24.
(Y.1900)).M$X.. ************************
****************************************
*****..$B.. * CALCULATE GRE
ENWICH MEAN SIDEREAL TIME (GS)
*..$L.. ********************************
*************************************..$
V.T0.DN.0.0657098.B..%..GS.(TH.TM.60).1.
002738.T0.0%... GS.24 . GS.GS.24.F%... G
S.0 . GS.GS.24..%... *******************
****************************************
**********..%... * C
ONVERT GST TO LST
*.*&... ***************************
****************************************
**.[&...:. " ENTER THE LONGITUDE, POSITI
VE IF WEST"..&F.. " AND NEGATIVE IF EAST
OF GREENWICH,"..&P.. " IN DEGREES, MINU
TES:";LD,LM..&Z.L.LD.LM.60.I&..LS.GS.L.1
5..&... LS.24 . LS.LS.24..&... LS.0 . LS
.LS.24..'..SM.60.(LS..(LS))..'...:..H'..
. " SIDEREAL TIME IS: ";.(LS);"HRS ";.(S
M);"MIN".R' ..:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL