STERRETIJD
FILE INFORMATION
FILENAME(S): STERRETIJD
FILE TYPE(S): PRG
FILE SIZE: 5.2K
FIRST SEEN: 2025-11-30 21:28:19
APPEARS ON: 1 disk(s)
FILE HASH
72f02fdcebe900a6e84db8637887444e38bf4f37278d06002b8d0cdd14ca8200
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D 64004 | STERRETIJD | PRG | DuncanTwain | 26 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 05 00 99 22 93 22 00 21 08 0A 00 97 |.......".".!....|
00000010: 20 35 33 32 38 31 2C 39 3A 97 35 33 32 38 30 2C | 53281,9:.53280,|
00000020: 32 00 2B 08 14 00 99 20 22 9E 22 00 52 08 1E 00 |2.+.... ".".R...|
00000030: 99 20 22 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |. ".............|
00000040: 1D 1D 54 49 4D 45 20 43 4F 4E 56 45 52 53 49 4F |..TIME CONVERSIO|
00000050: 4E 22 00 7B 08 28 00 99 20 22 11 11 11 1D 1D 1D |N".{.(.. "......|
00000060: 1D 1D 1D 1D 1D 1D 1D 1D 41 20 43 4F 4D 50 55 54 |........A COMPUT|
00000070: 45 52 20 50 52 4F 47 52 41 4D 22 00 A2 08 32 00 |ER PROGRAM"...2.|
00000080: 99 20 22 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |. ".............|
00000090: 1D 1D 46 4F 52 20 41 53 54 52 4F 4E 4F 4D 45 52 |..FOR ASTRONOMER|
000000A0: 53 22 00 CD 08 37 00 99 20 22 11 11 11 11 11 11 |S"...7.. "......|
000000B0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 |..............PR|
000000C0: 45 53 53 20 41 4E 59 20 4B 45 59 92 22 00 E3 08 |ESS ANY KEY."...|
000000D0: 3C 00 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |<.. A$:. A$."" .|
000000E0: 20 36 30 00 ED 08 3D 00 99 20 22 93 22 00 FC 08 | 60...=.. "."...|
000000F0: 46 00 4C 24 B2 22 44 45 4C 46 54 22 00 07 09 50 |F.L$."DELFT"...P|
00000100: 00 5A 24 B2 22 31 22 00 14 09 5A 00 5A 4E B2 C5 |.Z$."1"...Z.ZN..|
00000110: 28 5A 24 29 00 1F 09 64 00 4F 24 B2 22 35 22 00 |(Z$)...d.O$."5".|
00000120: 2E 09 6E 00 4C 4F 20 B2 C5 20 28 4F 24 29 00 38 |..n.LO .. (O$).8|
00000130: 09 78 00 99 20 22 93 22 00 41 09 82 00 5A B2 5A |.x.. ".".A...Z.Z|
00000140: 4E 00 55 09 8C 00 8B 20 46 4C 47 B2 31 20 A7 20 |N.U.... FLG.1 . |
00000150: 89 20 35 32 30 00 6B 09 96 00 41 24 B2 22 22 3A |. 520.k...A$."":|
00000160: 43 24 B2 22 22 3A 45 24 B2 22 22 00 98 09 A0 00 |C$."":E$."".....|
00000170: 99 20 22 11 11 1D 1D 1D 1D 1D 1D 50 52 4F 47 52 |. "........PROGR|
00000180: 41 4D 20 43 4F 4D 50 55 54 45 53 20 4C 4F 43 41 |AM COMPUTES LOCA|
00000190: 4C 20 4D 45 41 4E 2D 22 00 C3 09 AA 00 99 20 22 |L MEAN-"...... "|
000001A0: 11 1D 1D 1D 1D 1D 1D 54 49 4D 45 20 28 4C 4D 54 |.......TIME (LMT|
000001B0: 29 20 57 48 45 4E 20 47 49 56 45 4E 20 4C 4F 43 |) WHEN GIVEN LOC|
000001C0: 41 4C 22 00 F0 09 B4 00 99 20 22 11 1D 1D 1D 1D |AL"...... ".....|
000001D0: 1D 1D 53 49 44 45 52 49 41 4C 20 54 49 4D 45 20 |..SIDERIAL TIME |
000001E0: 28 4C 53 54 29 2C 20 4F 52 20 4C 4F 43 41 4C 22 |(LST), OR LOCAL"|
000001F0: 00 18 0A BE 00 99 20 22 11 1D 1D 1D 1D 1D 1D 53 |...... ".......S|
00000200: 49 44 45 52 49 41 4C 20 54 49 4D 45 20 57 48 45 |IDERIAL TIME WHE|
00000210: 4E 20 47 49 56 45 4E 22 00 38 0A C8 00 99 20 22 |N GIVEN".8.... "|
00000220: 11 1D 1D 1D 1D 1D 1D 4C 4F 43 41 4C 20 4D 45 41 |.......LOCAL MEA|
00000230: 4E 20 54 49 4D 45 2E 22 00 65 0A D2 00 99 20 22 |N TIME.".e.... "|
00000240: 11 11 1D 1D 1D 1D 1D 1D 59 4F 55 20 43 41 4E 20 |........YOU CAN |
00000250: 52 45 51 55 45 53 54 20 43 41 4C 43 55 4C 41 54 |REQUEST CALCULAT|
00000260: 49 4F 4E 53 22 00 94 0A DC 00 99 20 22 11 1D 1D |IONS"...... "...|
00000270: 1D 1D 1D 1D 46 4F 52 20 41 20 4E 55 4D 42 45 52 |....FOR A NUMBER|
00000280: 20 4F 46 20 54 49 4D 45 2D 49 4E 54 45 52 56 41 | OF TIME-INTERVA|
00000290: 4C 53 2E 22 00 B3 0A DE 00 99 20 22 11 1D 1D 1D |LS."...... "....|
000002A0: 1D 1D 1D 12 50 52 45 53 53 20 41 4E 59 20 4B 45 |....PRESS ANY KE|
000002B0: 59 92 22 00 CA 0A E1 00 A1 20 41 24 3A 8B 20 41 |Y."...... A$:. A|
000002C0: 24 B2 22 22 20 A7 20 32 32 35 00 D3 0A E2 00 99 |$."" . 225......|
000002D0: 22 93 22 00 FB 0A E6 00 99 20 22 11 11 1D 1D 1D |"."...... ".....|
000002E0: 1D 1D 1D 54 49 4D 45 20 4D 41 59 20 42 45 20 45 |...TIME MAY BE E|
000002F0: 4E 54 45 52 45 44 20 41 4E 44 22 00 25 0B F0 00 |NTERED AND".%...|
00000300: 99 20 22 11 1D 1D 1D 1D 1D 1D 44 49 53 50 4C 41 |. ".......DISPLA|
00000310: 59 45 44 20 49 4E 20 44 45 43 49 4D 41 4C 20 48 |YED IN DECIMAL H|
00000320: 4F 55 52 53 22 00 49 0B FA 00 99 20 22 11 1D 1D |OURS".I.... "...|
00000330: 1D 1D 1D 1D 4F 52 20 48 52 53 2E 4D 49 4E 2E 53 |....OR HRS.MIN.S|
00000340: 45 43 2E 55 53 49 4E 47 22 00 66 0B 04 01 99 20 |EC.USING".f.... |
00000350: 22 11 1D 1D 1D 1D 1D 1D 32 34 2D 48 4F 55 52 20 |".......24-HOUR |
00000360: 43 4C 4F 43 4B 22 00 8F 0B 0E 01 99 20 22 11 1D |CLOCK"...... "..|
00000370: 1D 1D 1D 1D 1D 54 49 4D 45 20 49 4E 54 45 52 56 |.....TIME INTERV|
00000380: 41 4C 53 20 4D 55 53 54 20 42 45 20 49 4E 22 00 |ALS MUST BE IN".|
00000390: AD 0B 18 01 99 20 22 11 1D 1D 1D 1D 1D 1D 44 45 |..... ".......DE|
000003A0: 43 49 4D 41 4C 20 48 4F 55 52 53 2E 22 00 CC 0B |CIMAL HOURS."...|
000003B0: 22 01 99 20 22 11 1D 1D 1D 1D 1D 1D 12 50 52 45 |".. "........PRE|
000003C0: 53 53 20 41 4E 59 20 4B 45 59 92 22 00 FD 0B 2C |SS ANY KEY."...,|
000003D0: 01 99 20 22 11 1D 1D 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. "...*********|
000003E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 22 00 13 0C |************"...|
00000400: 36 01 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |6.. A$:. A$."" .|
00000410: 33 31 30 00 1D 0C 40 01 99 20 22 93 22 00 4C 0C |310...@.. ".".L.|
00000420: 4A 01 99 20 22 11 11 1D 1D 1D 1D 1D 1D 44 4F 20 |J.. "........DO |
00000430: 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 41 4C 43 |YOU WANT TO CALC|
00000440: 55 4C 41 54 45 20 12 4C 4D 54 92 22 00 69 0C 54 |ULATE .LMT.".i.T|
00000450: 01 99 20 22 11 1D 1D 1D 1D 1D 1D 4F 52 12 4C 53 |.. ".......OR.LS|
00000460: 54 92 22 3B 3A 85 20 54 24 00 89 0C 5E 01 99 20 |T.";:. T$...^.. |
00000470: 22 11 11 11 1D 1D 1D 1D 1D 1D 45 4E 54 45 52 20 |".........ENTER |
00000480: 54 48 45 20 44 41 54 45 22 00 A9 0C 68 01 99 20 |THE DATE"...h.. |
00000490: 22 11 11 11 11 1D 1D 1D 1D 1D 1D 54 48 45 20 59 |"..........THE Y|
000004A0: 45 41 52 22 3B 3A 85 20 59 00 C8 0C 72 01 99 20 |EAR";:. Y...r.. |
000004B0: 22 11 11 1D 1D 1D 1D 1D 1D 54 48 45 20 4D 4F 4E |"........THE MON|
000004C0: 54 48 22 3B 3A 85 20 4D 00 DF 0C 7C 01 8B 20 4D |TH";:. M...|.. M|
000004D0: B3 31 20 B0 20 4D B1 31 32 20 A7 20 33 37 30 00 |.1 . M.12 . 370.|
000004E0: FC 0C 86 01 99 20 22 11 11 1D 1D 1D 1D 1D 1D 54 |..... "........T|
000004F0: 48 45 20 44 41 59 22 3B 3A 85 20 44 00 13 0D 90 |HE DAY";:. D....|
00000500: 01 8B 20 44 B3 31 20 B0 20 44 B1 33 31 20 A7 20 |.. D.1 . D.31 . |
00000510: 33 39 30 00 2A 0D 9A 01 8B 20 4D B2 32 20 AF 20 |390.*.... M.2 . |
00000520: 44 B1 32 39 20 A7 20 33 39 30 00 41 0D A4 01 8B |D.29 . 390.A....|
00000530: 20 44 B1 33 30 20 AF 20 4D B2 34 20 A7 20 33 39 | D.30 . M.4 . 39|
00000540: 30 00 58 0D A5 01 8B 20 44 B1 33 30 20 AF 20 4D |0.X.... D.30 . M|
00000550: B2 36 20 A7 20 33 39 30 00 6F 0D A6 01 8B 20 44 |.6 . 390.o.... D|
00000560: B1 33 30 20 AF 20 4D B2 39 20 A7 20 33 39 30 00 |.30 . M.9 . 390.|
00000570: 78 0D AE 01 99 22 93 22 00 9D 0D B8 01 99 20 22 |x...."."...... "|
00000580: 11 11 1D 1D 1D 1D 1D 1D 57 41 4E 54 20 54 4F 20 |........WANT TO |
00000590: 53 45 45 20 4C 4F 43 41 54 49 4F 4E 22 00 C3 0D |SEE LOCATION"...|
000005A0: C2 01 99 20 22 11 11 1D 1D 1D 1D 1D 1D 43 4F 4E |... "........CON|
000005B0: 44 49 54 49 4F 4E 53 3F 20 59 2F 4E 22 3B 3A 85 |DITIONS? Y/N";:.|
000005C0: 20 42 24 00 D7 0D CC 01 8B 20 42 24 20 B2 22 4E | B$...... B$ ."N|
000005D0: 22 20 A7 20 35 33 30 00 06 0E D6 01 99 20 22 11 |" . 530...... ".|
000005E0: 11 1D 1D 1D 1D 1D 1D 4C 4F 43 41 54 49 4F 4E 20 |.......LOCATION |
000005F0: 43 4F 4E 44 49 54 49 4F 4E 53 20 41 52 45 2E 2E |CONDITIONS ARE..|
00000600: 2E 2E 2E 2E 2E 22 00 28 0E E0 01 99 20 22 11 1D |.....".(.... "..|
00000610: 1D 1D 1D 1D 1D 4C 4F 43 41 54 49 4F 4E 20 4E 41 |.....LOCATION NA|
00000620: 4D 45 2E 2E 22 3B 4C 24 00 4A 0E EA 01 99 20 22 |ME..";L$.J.... "|
00000630: 11 1D 1D 1D 1D 1D 1D 54 49 4D 45 20 5A 4F 4E 45 |.......TIME ZONE|
00000640: 2E 2E 2E 2E 2E 2E 22 3B 5A 24 00 6C 0E F4 01 99 |......";Z$.l....|
00000650: 20 22 11 1D 1D 1D 1D 1D 1D 4C 4F 4E 47 49 54 55 | ".......LONGITU|
00000660: 44 45 2E 2E 2E 2E 2E 2E 22 3B 4F 24 00 82 0E FE |DE......";O$....|
00000670: 01 81 20 41 B2 30 20 A4 20 32 30 30 30 20 3A 82 |.. A.0 . 2000 :.|
00000680: 20 41 00 8D 0E 12 02 8D 20 31 37 31 30 00 A2 0E | A...... 1710...|
00000690: 1C 02 8B 20 54 24 B2 22 4C 4D 54 22 20 A7 20 35 |... T$."LMT" . 5|
000006A0: 37 30 00 BC 0E 26 02 8B 20 54 24 B2 22 4C 53 54 |70...&.. T$."LST|
000006B0: 22 20 A7 20 55 24 B2 22 4C 4D 54 22 00 C6 0E 30 |" . U$."LMT"...0|
000006C0: 02 89 20 35 38 30 00 D3 0E 3A 02 55 24 B2 22 4C |.. 580...:.U$."L|
000006D0: 53 54 22 00 DE 0E 44 02 8D 20 31 39 30 30 00 13 |ST"...D.. 1900..|
000006E0: 0F 4E 02 99 20 22 11 11 1D 1D 1D 1D 1D 1D 53 50 |.N.. "........SP|
000006F0: 45 43 49 46 59 20 4E 55 4D 42 45 52 20 4F 46 20 |ECIFY NUMBER OF |
00000700: 43 41 4C 43 55 4C 41 54 49 4F 4E 53 22 3B 3A 85 |CALCULATIONS";:.|
00000710: 20 4E 4F 00 3C 0F 58 02 99 20 22 11 11 1D 1D 1D | NO.<.X.. ".....|
00000720: 1D 1D 1D 41 4E 44 20 54 49 4D 45 20 49 4E 54 45 |...AND TIME INTE|
00000730: 52 56 41 4C 53 22 3B 3A 85 20 49 4E 00 46 0F 62 |RVALS";:. IN.F.b|
00000740: 02 99 20 22 93 22 00 54 0F 6C 02 45 50 B2 37 32 |.. ".".T.l.EP.72|
00000750: 32 38 39 35 00 5F 0F 76 02 8D 20 31 39 36 30 00 |2895._.v.. 1960.|
00000760: 72 0F 80 02 44 45 B2 44 47 3A 4E 44 B2 44 45 AB |r...DE.DG:ND.DE.|
00000770: 45 50 00 84 0F 8A 02 99 20 A3 34 29 20 54 24 3B |EP...... .4) T$;|
00000780: 22 20 20 22 00 A3 0F 94 02 99 20 22 11 1D 1D 1D |" "...... "....|
00000790: 1D 54 49 4D 45 28 53 29 20 52 45 51 55 45 53 54 |.TIME(S) REQUEST|
000007A0: 45 44 22 00 B2 0F 9E 02 54 43 B2 2E 30 36 35 37 |ED".....TC..0657|
000007B0: 35 33 00 D5 0F A8 02 99 20 22 11 1D 1D 1D 1D 44 |53...... ".....D|
000007C0: 41 54 45 20 22 3B 59 3B 22 20 20 22 3B 4D 3B 22 |ATE ";Y;" ";M;"|
000007D0: 20 20 22 3B 44 00 FA 0F B2 02 99 20 22 11 1D 1D | ";D...... "...|
000007E0: 1D 1D 4C 4F 43 41 54 49 4F 4E 1D 22 3B 4C 24 3B |..LOCATION.";L$;|
000007F0: 22 20 5A 4F 4E 45 22 3B 5A 4E 00 19 10 BC 02 99 |" ZONE";ZN......|
00000800: 20 22 11 1D 1D 1D 1D 46 4F 52 20 4C 4F 4E 47 49 | ".....FOR LONGI|
00000810: 54 55 44 45 20 22 3B 4C 4F 00 48 10 C6 02 99 20 |TUDE ";LO.H.... |
00000820: 22 11 1D 1D 1D 1D 49 4E 54 45 52 56 41 4C 20 46 |".....INTERVAL F|
00000830: 4F 52 20 54 49 4D 45 20 43 41 4C 43 53 22 3B 49 |OR TIME CALCS";I|
00000840: 4E 3B 22 20 48 52 53 22 00 78 10 D0 02 99 20 22 |N;" HRS".x.... "|
00000850: 11 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A |.:-:-:-:-:-:-:-:|
00000860: 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A |-:-:-:-:-:-:-:-:|
00000870: 2D 3A 2D 3A 2D 3A 2D 22 00 A3 10 DA 02 99 20 22 |-:-:-:-"...... "|
00000880: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 55 24 |............";U$|
00000890: 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |;"..............|
000008A0: 22 54 24 00 D2 10 E4 02 99 20 22 11 1D 1D 1D 44 |"T$...... "....D|
000008B0: 45 43 2E 48 52 1D 48 52 3A 4D 49 4E 3A 53 45 1D |EC.HR.HR:MIN:SE.|
000008C0: 1D 44 45 43 2E 48 52 1D 1D 48 52 3A 4D 49 3A 53 |.DEC.HR..HR:MI:S|
000008D0: 45 22 00 01 11 EE 02 99 20 22 11 3A 2D 3A 2D 3A |E"...... ".:-:-:|
000008E0: 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A |-:-:-:-:-:-:-:-:|
000008F0: 2D 3A 2D 3A 2D 3A 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D |-:-:-::-:-:-:-:-|
00000900: 22 00 10 11 F8 02 81 20 4B B2 31 20 A4 20 4E 4F |"...... K.1 . NO|
00000910: 00 1F 11 02 03 48 31 B2 20 B5 20 28 54 31 29 00 |.....H1. . (T1).|
00000920: 37 11 0C 03 4D 31 B2 20 B5 20 28 28 54 31 AB 48 |7...M1. . ((T1.H|
00000930: 31 29 AC 31 30 30 29 00 5A 11 16 03 53 31 B2 20 |1).100).Z...S1. |
00000940: B5 20 28 28 28 28 54 31 AB 48 31 29 AC 31 30 30 |. ((((T1.H1).100|
00000950: 29 AB 4D 31 29 AC 31 30 30 29 00 65 11 20 03 8D |).M1).100).e. ..|
00000960: 20 31 30 38 30 00 7C 11 2A 03 8B 20 54 32 B1 32 | 1080.|.*.. T2.2|
00000970: 34 20 A7 20 54 32 B2 54 32 AB 32 34 00 8A 11 34 |4 . T2.T2.24...4|
00000980: 03 48 32 B2 B5 20 28 54 32 29 00 A1 11 3E 03 4D |.H2.. (T2)...>.M|
00000990: 32 B2 B5 20 28 28 54 32 AB 48 32 29 AC 31 30 30 |2.. ((T2.H2).100|
000009A0: 29 00 C3 11 48 03 53 32 B2 B5 20 28 28 28 28 54 |)...H.S2.. ((((T|
000009B0: 32 AB 48 32 29 AC 31 30 30 29 AB 4D 32 29 AC 31 |2.H2).100).M2).1|
000009C0: 30 30 29 00 F5 11 52 03 48 33 B2 20 B5 20 28 54 |00)...R.H3. . (T|
000009D0: 32 29 3A 57 31 24 B2 C4 28 48 33 29 3A 8B 20 C3 |2):W1$..(H3):. .|
000009E0: 28 57 31 24 29 B2 32 20 A7 20 57 31 24 B2 22 30 |(W1$).2 . W1$."0|
000009F0: 22 AA 57 31 24 00 0A 12 5C 03 4D 33 B2 28 54 32 |".W1$...\.M3.(T2|
00000A00: AB B5 28 54 32 29 29 AC 36 30 00 21 12 66 03 53 |..(T2)).60.!.f.S|
00000A10: 33 B2 28 4D 33 AB 20 B5 20 28 4D 33 29 29 AC 36 |3.(M3. . (M3)).6|
00000A20: 30 00 53 12 70 03 53 33 B2 20 B5 20 28 53 33 29 |0.S.p.S3. . (S3)|
00000A30: 3A 57 33 24 B2 C4 28 53 33 29 3A 8B 20 C3 28 57 |:W3$..(S3):. .(W|
00000A40: 33 24 29 B2 32 20 A7 20 57 33 24 B2 22 30 22 AA |3$).2 . W3$."0".|
00000A50: 57 33 24 00 85 12 7A 03 4D 33 B2 20 B5 20 28 4D |W3$...z.M3. . (M|
00000A60: 33 29 3A 57 32 24 B2 C4 28 4D 33 29 3A 8B 20 C3 |3):W2$..(M3):. .|
00000A70: 28 57 32 24 29 B2 32 20 A7 20 57 32 24 B2 22 30 |(W2$).2 . W2$."0|
00000A80: 22 AA 57 32 24 00 91 12 7F 03 57 34 24 B2 22 3A |".W2$.....W4$.":|
00000A90: 22 00 AD 12 80 03 57 35 24 B2 57 31 24 AA 57 34 |".....W5$.W1$.W4|
00000AA0: 24 AA 57 32 24 AA 57 34 24 AA 57 33 24 00 BF 12 |$.W2$.W4$.W3$...|
00000AB0: 82 03 41 24 B2 57 35 24 3A 8D 20 34 30 30 30 00 |..A$.W5$:. 4000.|
00000AC0: CA 12 83 03 57 35 24 B2 4B 24 00 D5 12 84 03 8D |....W5$.K$......|
00000AD0: 20 32 30 36 30 00 E3 12 8E 03 48 24 B2 C4 20 28 | 2060.....H$.. (|
00000AE0: 48 31 29 00 F1 12 98 03 4D 24 B2 C4 20 28 4D 31 |H1).....M$.. (M1|
00000AF0: 29 00 FF 12 A2 03 53 24 B2 C4 20 28 53 31 29 00 |).....S$.. (S1).|
00000B00: 0A 13 AC 03 50 24 B2 22 2E 22 00 25 13 B6 03 54 |....P$.".".%...T|
00000B10: 31 B2 28 B5 28 54 31 AC 31 30 30 30 30 29 AD 31 |1.(.(T1.10000).1|
00000B20: 30 30 30 30 29 00 33 13 C0 03 4A 24 B2 C4 20 28 |0000).3...J$.. (|
00000B30: 48 32 29 00 41 13 CA 03 51 24 B2 C4 20 28 4D 32 |H2).A...Q$.. (M2|
00000B40: 29 00 4F 13 D4 03 56 24 B2 C4 20 28 53 32 29 00 |).O...V$.. (S2).|
00000B50: 6A 13 DE 03 54 32 B2 28 B5 28 54 32 AC 31 30 30 |j...T2.(.(T2.100|
00000B60: 30 30 29 AD 31 30 30 30 30 29 00 7F 13 E8 03 99 |00).10000)......|
00000B70: 20 A3 32 29 54 31 3B A3 31 30 29 55 35 24 3B 00 | .2)T1;.10)U5$;.|
00000B80: 94 13 F2 03 99 20 A3 32 30 29 54 32 3B A3 32 39 |..... .20)T2;.29|
00000B90: 29 57 35 24 00 AC 13 F7 03 A1 20 41 24 3A 8B 20 |)W5$...... A$:. |
00000BA0: 41 24 B2 22 22 20 A7 20 31 30 31 35 00 B9 13 FC |A$."" . 1015....|
00000BB0: 03 54 31 B2 54 31 AA 49 4E 00 CC 13 06 04 8B 20 |.T1.T1.IN...... |
00000BC0: 54 31 B3 32 34 20 A7 20 31 30 36 30 00 D9 13 10 |T1.24 . 1060....|
00000BD0: 04 54 31 B2 54 31 AB 32 34 00 E5 13 1A 04 4E 44 |.T1.T1.24.....ND|
00000BE0: B2 4E 44 AA 31 00 ED 13 24 04 82 20 4B 00 F8 13 |.ND.1...$.. K...|
00000BF0: 2E 04 89 20 31 34 30 30 00 17 14 38 04 8F 20 50 |... 1400...8.. P|
00000C00: 41 52 41 4D 45 54 45 52 20 46 4F 54 20 54 49 4D |ARAMETER FOT TIM|
00000C10: 45 20 43 41 4C 43 53 00 39 14 42 04 8F 20 47 4D |E CALCS.9.B.. GM|
00000C20: 53 54 20 41 54 20 45 50 4F 43 48 20 31 39 37 39 |ST AT EPOCH 1979|
00000C30: 20 4D 41 52 43 48 20 32 32 00 4A 14 56 04 47 43 | MARCH 22.J.V.GC|
00000C40: B2 31 31 2E 39 32 37 34 38 35 00 6D 14 60 04 8F |.11.927485.m.`..|
00000C50: 20 44 41 4C 49 59 20 52 41 54 45 20 4F 46 20 43 | DALIY RATE OF C|
00000C60: 48 41 4E 47 45 20 4F 46 20 47 4D 53 54 00 7C 14 |HANGE OF GMST.|.|
00000C70: 6A 04 54 43 B2 2E 30 36 35 37 31 31 00 92 14 74 |j.TC..065711...t|
00000C80: 04 8B 20 54 24 B2 22 4C 4D 54 22 20 A7 20 31 32 |.. T$."LMT" . 12|
00000C90: 38 30 00 AA 14 7E 04 8F 20 43 4F 4E 56 45 52 53 |80...~.. CONVERS|
00000CA0: 49 4F 4E 20 54 4F 20 4C 53 54 00 D8 14 88 04 54 |ION TO LST.....T|
00000CB0: 32 B2 54 43 AC 4E 44 AA 47 43 AA 28 28 54 31 AB |2.TC.ND.GC.((T1.|
00000CC0: 5A 4E 29 AD 32 34 AC 54 43 29 AA 54 31 AB 5A 4E |ZN).24.TC).T1.ZN|
00000CD0: AA 28 4C 4F AD 31 35 29 00 FF 14 92 04 8F 20 43 |.(LO.15)...... C|
00000CE0: 4F 4E 56 45 52 53 49 4F 4E 20 46 4F 52 20 4E 4F |ONVERSION FOR NO|
00000CF0: 4E 20 4D 49 44 20 54 49 4D 45 20 5A 4F 4E 45 00 |N MID TIME ZONE.|
00000D00: 12 15 A6 04 8B 20 54 32 B3 32 34 20 A7 20 31 32 |..... T2.24 . 12|
00000D10: 31 30 00 1F 15 AB 04 54 32 B2 54 32 AB 32 34 00 |10.....T2.T2.24.|
00000D20: 2A 15 B0 04 89 20 31 31 39 30 00 3D 15 BA 04 8B |*.... 1190.=....|
00000D30: 20 54 32 B3 32 34 20 A7 20 31 32 34 30 00 4A 15 | T2.24 . 1240.J.|
00000D40: C4 04 54 32 B2 54 32 AB 32 34 00 55 15 CE 04 89 |..T2.T2.24.U....|
00000D50: 20 31 32 31 30 00 67 15 D8 04 8B 20 54 32 B1 30 | 1210.g.... T2.0|
00000D60: 20 A7 20 31 32 37 30 00 74 15 E2 04 54 32 B2 54 | . 1270.t...T2.T|
00000D70: 32 AA 32 34 00 7F 15 EC 04 89 20 31 32 34 30 00 |2.24...... 1240.|
00000D80: 85 15 F6 04 8E 00 97 15 00 05 8F 20 43 4F 4E 56 |........... CONV|
00000D90: 20 54 4F 20 4C 4D 54 00 AF 15 0A 05 54 32 B2 54 | TO LMT.....T2.T|
00000DA0: 43 AC 4E 44 AA 47 43 AA 28 4C 4F AD 31 35 29 00 |C.ND.GC.(LO.15).|
00000DB0: C2 15 14 05 8B 20 54 32 B3 32 34 20 A7 20 31 33 |..... T2.24 . 13|
00000DC0: 32 30 00 D6 15 23 05 54 32 B2 54 32 AB 32 34 3A |20...#.T2.T2.24:|
00000DD0: 89 20 31 33 30 30 00 E3 15 28 05 54 32 B2 54 31 |. 1300...(.T2.T1|
00000DE0: AB 54 32 00 FA 15 32 05 54 32 B2 28 54 32 AC 32 |.T2...2.T2.(T2.2|
00000DF0: 34 29 AD 28 54 43 AA 32 34 29 00 06 16 3C 05 54 |4).(TC.24)...<.T|
00000E00: 32 B2 54 32 AA 31 00 0C 16 6E 05 8E 00 3C 16 78 |2.T2.1...n...<.x|
00000E10: 05 99 20 22 11 11 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D |.. "..:-:-:-:-:-|
00000E20: 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D |:-:-:-:-:-:-:-:-|
00000E30: 3A 2D 3A 2D 3A 2D 3A 2D 3A 2D 3A 22 00 5B 16 D2 |:-:-:-:-:-:".[..|
00000E40: 05 99 20 22 11 1D 1D 1D 1D 1D 44 4F 20 59 4F 55 |.. "......DO YOU|
00000E50: 20 57 41 4E 54 20 4D 4F 52 45 22 00 81 16 DC 05 | WANT MORE".....|
00000E60: 99 20 22 11 1D 1D 1D 1D 1D 43 41 43 55 4C 41 54 |. "......CACULAT|
00000E70: 49 4F 4E 53 3F 20 59 2F 4E 20 22 3B 3A 85 20 41 |IONS? Y/N ";:. A|
00000E80: 24 00 8A 16 E6 05 99 22 93 22 00 9E 16 F0 05 8B |$......"."......|
00000E90: 20 41 24 B2 22 4E 22 20 A7 20 31 36 39 30 00 C1 | A$."N" . 1690..|
00000EA0: 16 FA 05 48 24 B2 22 22 3A 4E 24 B2 22 22 3A 53 |...H$."":N$."":S|
00000EB0: 24 B2 22 22 3A 49 24 B2 22 22 3A 4A 24 B2 22 22 |$."":I$."":J$.""|
00000EC0: 3A 00 D7 16 04 06 51 24 B2 22 22 3A 56 24 B2 22 |:.....Q$."":V$."|
00000ED0: 22 3A 42 24 B2 22 22 00 E5 16 0E 06 54 31 B2 30 |":B$."".....T1.0|
00000EE0: 3A 54 32 B2 30 00 EF 16 18 06 99 20 22 93 22 00 |:T2.0...... ".".|
00000EF0: 14 17 22 06 99 20 22 11 11 1D 1D 1D 1D 1D 1D 44 |..".. "........D|
00000F00: 4F 20 59 4F 55 20 53 54 49 4C 4C 20 57 41 4E 54 |O YOU STILL WANT|
00000F10: 20 54 4F 22 00 38 17 2C 06 99 20 22 11 11 1D 1D | TO".8.,.. "....|
00000F20: 1D 1D 1D 1D 43 41 4C 43 55 4C 41 54 45 20 22 3B |....CALCULATE ";|
00000F30: 54 24 3B 3A 85 20 41 24 00 4B 17 40 06 8B 20 41 |T$;:. A$.K.@.. A|
00000F40: 24 B2 22 4E 22 20 A7 20 33 33 30 00 54 17 5E 06 |$."N" . 330.T.^.|
00000F50: 99 22 93 22 00 84 17 68 06 99 22 11 11 1D 1D 1D |."."...h..".....|
00000F60: 1D 1D 1D 44 4F 20 59 4F 55 20 57 41 4E 54 20 54 |...DO YOU WANT T|
00000F70: 4F 20 43 48 41 4E 47 45 20 44 41 54 45 22 3B 3A |O CHANGE DATE";:|
00000F80: 85 20 41 24 00 98 17 72 06 8B 20 41 24 B2 22 4E |. A$...r.. A$."N|
00000F90: 22 20 A7 20 5A 4E B2 5A 00 A2 17 7C 06 89 20 34 |" . ZN.Z...|.. 4|
00000FA0: 34 30 00 AB 17 86 06 5A 4E B2 5A 00 B5 17 90 06 |40.....ZN.Z.....|
00000FB0: 89 20 33 35 30 00 BE 17 9A 06 99 22 93 22 00 C4 |. 350......"."..|
00000FC0: 17 A4 06 90 00 CD 17 AE 06 99 22 93 22 00 FE 17 |.........."."...|
00000FD0: B8 06 99 20 22 11 1D 1D 1D 1D 1D 1D 44 4F 20 59 |... ".......DO Y|
00000FE0: 4F 55 20 57 41 4E 54 20 49 4E 50 55 54 20 49 4E |OU WANT INPUT IN|
00000FF0: 20 44 45 43 2E 20 48 52 53 20 28 31 29 22 00 29 | DEC. HRS (1)".)|
00001000: 18 C2 06 99 20 22 11 1D 1D 1D 1D 1D 1D 4F 52 20 |.... ".......OR |
00001010: 49 4E 20 48 52 53 20 4D 49 4E 20 53 45 43 20 28 |IN HRS MIN SEC (|
00001020: 32 29 22 3B 3A 85 20 52 24 00 38 18 D6 06 50 54 |2)";:. R$.8...PT|
00001030: 20 B2 C5 20 28 52 24 29 00 4A 18 E0 06 8B 20 50 | .. (R$).J.... P|
00001040: 54 B2 31 20 A7 20 31 37 39 30 00 5C 18 EA 06 8B |T.1 . 1790.\....|
00001050: 20 50 54 B2 32 20 A7 20 31 38 32 30 00 76 18 F4 | PT.2 . 1820.v..|
00001060: 06 8B 20 54 24 B2 22 4C 4D 54 22 20 A7 20 54 24 |.. T$."LMT" . T$|
00001070: B2 22 4C 53 54 22 00 9C 18 FE 06 99 20 22 11 1D |."LST"...... "..|
00001080: 1D 1D 1D 1D 1D 57 48 41 54 20 49 53 20 54 48 45 |.....WHAT IS THE|
00001090: 20 49 4E 50 55 54 20 54 49 4D 45 22 00 C6 18 08 | INPUT TIME"....|
000010A0: 07 99 20 22 11 1D 1D 1D 1D 1D 1D 48 52 2E 58 58 |.. ".......HR.XX|
000010B0: 58 58 20 28 32 34 2D 48 52 20 43 4C 4F 43 4B 22 |XX (24-HR CLOCK"|
000010C0: 3B 3A 85 20 54 31 00 D0 18 12 07 89 31 38 39 30 |;:. T1......1890|
000010D0: 00 F7 18 1C 07 99 20 22 11 11 1D 1D 1D 1D 1D 1D |...... "........|
000010E0: 57 48 41 54 20 49 53 20 54 48 45 20 49 4E 50 55 |WHAT IS THE INPU|
000010F0: 54 20 54 49 4D 45 22 00 1E 19 26 07 99 20 22 1D |T TIME"...&.. ".|
00001100: 1D 1D 1D 1D 1D 48 52 2C 4D 49 4E 2C 53 45 43 20 |.....HR,MIN,SEC |
00001110: 28 32 34 2D 48 52 20 43 4C 4F 43 4B 29 22 00 47 |(24-HR CLOCK)".G|
00001120: 19 30 07 99 20 22 11 11 1D 1D 1D 1D 1D 1D 54 59 |.0.. "........TY|
00001130: 50 45 20 48 52 20 54 48 45 4E 20 4D 49 20 54 48 |PE HR THEN MI TH|
00001140: 45 4E 20 53 45 43 22 00 60 19 31 07 99 20 22 1D |EN SEC".`.1.. ".|
00001150: 1D 1D 1D 1D 1D 57 48 45 4E 20 41 53 4B 45 44 22 |.....WHEN ASKED"|
00001160: 00 77 19 3A 07 99 20 22 1D 1D 1D 1D 1D 1D 48 52 |.w.:.. "......HR|
00001170: 22 3B 3A 85 20 48 52 00 90 19 44 07 99 20 22 1D |";:. HR...D.. ".|
00001180: 1D 1D 1D 1D 1D 4D 49 4E 2F 22 3B 3A 85 20 4D 49 |.....MIN/";:. MI|
00001190: 00 A9 19 4E 07 99 20 22 1D 1D 1D 1D 1D 1D 53 45 |...N.. "......SE|
000011A0: 43 2F 22 3B 3A 85 20 53 45 00 C1 19 58 07 54 31 |C/";:. SE...X.T1|
000011B0: B2 48 52 AA 4D 49 AD 36 30 AA 53 45 AD 33 36 30 |.HR.MI.60.SE.360|
000011C0: 30 00 C7 19 62 07 8E 00 DA 19 6C 07 4C 47 43 B2 |0...b.....l.LGC.|
000011D0: 28 5A 4E AC 31 35 29 AB 4C 4F 00 ED 19 76 07 8B |(ZN.15).LO...v..|
000011E0: 20 4C 47 43 B3 30 20 A7 20 31 39 34 30 00 F8 19 | LGC.0 . 1940...|
000011F0: 8A 07 89 20 31 39 35 30 00 FE 19 9E 07 8E 00 2A |... 1950.......*|
00001200: 1A A8 07 8F 20 43 41 4C 43 20 47 52 45 47 4F 52 |.... CALC GREGOR|
00001210: 49 41 4E 20 44 41 59 53 20 54 4F 20 44 41 54 45 |IAN DAYS TO DATE|
00001220: 20 52 45 51 55 45 53 54 45 44 00 3D 1A B2 07 8B | REQUESTED.=....|
00001230: 20 4D B1 B2 20 33 20 A7 20 32 30 33 30 00 61 1A | M.. 3 . 2030.a.|
00001240: B8 07 55 34 24 B2 22 3A 22 3A 55 35 24 B2 55 31 |..U4$.":":U5$.U1|
00001250: 24 AA 55 34 24 AA 55 32 24 AA 55 34 24 AA 55 33 |$.U4$.U2$.U4$.U3|
00001260: 24 00 72 1A B9 07 41 24 B2 55 35 24 3A 8D 34 30 |$.r...A$.U5$:.40|
00001270: 30 30 00 7D 1A BA 07 55 35 24 B2 4B 24 00 98 1A |00.}...U5$.K$...|
00001280: BC 07 8F 20 43 41 4C 43 20 46 4F 52 20 4A 41 4E |... CALC FOR JAN|
00001290: 20 41 4E 44 20 46 45 42 00 A7 1A C6 07 44 47 B2 | AND FEB.....DG.|
000012A0: 33 36 35 AC 59 AA 44 00 E4 1A D0 07 44 47 B2 44 |365.Y.D.....DG.D|
000012B0: 47 AA 28 28 4D AB 31 29 AC 33 31 29 AA 20 B5 20 |G.((M.1).31). . |
000012C0: 28 28 59 AB 31 29 AD 34 29 AB 20 B5 20 28 28 2E |((Y.1).4). . ((.|
000012D0: 37 35 29 AC 20 B5 28 28 59 AB 31 29 AD 31 30 30 |75). .((Y.1).100|
000012E0: AA 31 29 29 00 EA 1A DA 07 8E 00 07 1B E4 07 8F |.1))............|
000012F0: 20 43 41 4C 43 53 20 46 4F 52 20 4D 41 52 20 54 | CALCS FOR MAR T|
00001300: 48 52 55 20 44 45 43 00 2F 1B EE 07 44 47 B2 33 |HRU DEC./...DG.3|
00001310: 36 35 AC 59 AA 44 AA 28 28 4D AB 31 29 AC 33 31 |65.Y.D.((M.1).31|
00001320: 29 AB 20 B5 20 28 4D AC 2E 34 AA 32 2E 33 29 00 |). . (M..4.2.3).|
00001330: 5C 1B F8 07 44 47 B2 44 47 AA 20 B5 20 28 59 AD |\...DG.DG. . (Y.|
00001340: 34 29 AB 20 B5 20 28 28 2E 37 35 29 AC 20 B5 20 |4). . ((.75). . |
00001350: 28 28 59 AD 31 30 30 29 AA 31 29 29 00 62 1B 02 |((Y.100).1)).b..|
00001360: 08 8E 00 83 1B 0C 08 8F 20 53 55 42 20 46 4F 52 |........ SUB FOR|
00001370: 20 50 52 49 4E 54 49 4E 47 20 48 52 20 4D 49 20 | PRINTING HR MI |
00001380: 53 45 43 00 B5 1B 16 08 52 52 B2 20 B5 20 28 54 |SEC.....RR. . (T|
00001390: 31 29 3A 55 31 24 B2 C4 28 52 52 29 3A 8B 20 C3 |1):U1$..(RR):. .|
000013A0: 28 55 31 24 29 B2 32 20 A7 20 55 31 24 B2 22 30 |(U1$).2 . U1$."0|
000013B0: 22 AA 55 31 24 00 CC 1B 20 08 49 4D B2 28 54 31 |".U1$... .IM.(T1|
000013C0: AB 20 B5 20 28 54 31 29 29 AC 36 30 00 E3 1B 2A |. . (T1)).60...*|
000013D0: 08 45 53 B2 28 49 4D AB 20 B5 20 28 49 4D 29 29 |.ES.(IM. . (IM))|
000013E0: AC 36 30 00 16 1C 34 08 45 53 B2 20 B5 20 28 45 |.60...4.ES. . (E|
000013F0: 53 29 3A 55 33 24 B2 C4 28 45 53 29 20 3A 8B 20 |S):U3$..(ES) :. |
00001400: C3 28 55 33 24 29 B2 32 20 A7 20 55 33 24 B2 22 |.(U3$).2 . U3$."|
00001410: 30 22 AA 55 33 24 00 49 1C 3E 08 49 4D B2 20 B5 |0".U3$.I.>.IM. .|
00001420: 20 28 49 4D 29 3A 55 32 24 B2 C4 28 49 4D 29 20 | (IM):U2$..(IM) |
00001430: 3A 8B 20 C3 28 55 32 24 29 B2 32 20 A7 20 55 32 |:. .(U2$).2 . U2|
00001440: 24 B2 22 30 22 AA 55 32 24 00 55 1C 48 08 55 34 |$."0".U2$.U.H.U4|
00001450: 24 B2 22 3A 22 00 71 1C 52 08 55 35 24 B2 55 31 |$.":".q.R.U5$.U1|
00001460: 24 AA 55 34 24 AA 55 32 24 AA 55 34 24 AA 55 33 |$.U4$.U2$.U4$.U3|
00001470: 24 00 82 1C 5C 08 41 24 B2 55 35 24 3A 8D 34 30 |$...\.A$.U5$:.40|
00001480: 30 30 00 8D 1C 61 08 55 35 24 B2 41 24 00 93 1C |00...a.U5$.A$...|
00001490: 66 08 8E 00 9D 1C A0 0F 4B 24 B2 22 22 00 B0 1C |f.......K$.""...|
000014A0: AA 0F 81 20 49 B2 31 20 A4 20 C3 20 28 41 24 29 |... I.1 . . (A$)|
000014B0: 00 CD 1C B4 0F 8B 20 CA 28 41 24 2C 49 2C 31 29 |...... .(A$,I,1)|
000014C0: B2 C7 28 33 32 29 20 A7 20 34 30 34 30 00 E2 1C |..(32) . 4040...|
000014D0: BE 0F 4B 24 B2 4B 24 AA CA 20 28 41 24 2C 49 2C |..K$.K$.. (A$,I,|
000014E0: 31 29 00 EA 1C C8 0F 82 20 49 00 F4 1C D2 0F 41 |1)...... I.....A|
000014F0: 24 B2 4B 24 00 FA 1C DC 0F 8E 00 00 00 |$.K$......... |
.......".".!.... 53281,9:.53280,2.+....
".".R.... "...............TIME CONVERSIO
N".{.(.. "..............A COMPUTER PROGR
AM"...2.. "...............FOR ASTRONOMER
S".M.7.. "....................PRESS ANY
KEY."...<.. A$:. A$."" . 60...=.. "."...
F.L$."DELFT"...P.Z$."1"...Z.ZN.E(Z$)...D
.O$."5"...N.LO .E (O$).8.X.. ".".A...Z.Z
N.U.... FLG.1 . . 520.K...A$."":C$."":E$
.""... .. "........PROGRAM COMPUTES LOCA
L MEAN-".C.... ".......TIME (LMT) WHEN G
IVEN LOCAL"...... ".......SIDERIAL TIME
(LST), OR LOCAL"...... ".......SIDERIAL
TIME WHEN GIVEN".8.H.. ".......LOCAL MEA
N TIME.".E.R.. "........YOU CAN REQUEST
CALCULATIONS"...... ".......FOR A NUMBER
OF TIME-INTERVALS."...... "........PRES
S ANY KEY.".J.... A$:. A$."" . 225.S....
"."...... "........TIME MAY BE ENTERED A
ND".%.... ".......DISPLAYED IN DECIMAL H
OURS".I.... ".......OR HRS.MIN.SEC.USING
".F.... ".......24-HOUR CLOCK"...... "..
.....TIME INTERVALS MUST BE IN"...... ".
......DECIMAL HOURS.".L.".. "........PRE
SS ANY KEY."...,.. "...*****************
********************"...6.. A$:. A$."" .
310...@.. ".".L.J.. "........DO YOU WANT
TO CALCULATE .LMT.".I.T.. ".......OR.LS
T.";:. T$...^.. ".........ENTER THE DATE
"...H.. "..........THE YEAR";:. Y.H.R..
"........THE MONTH";:. M...|.. M.1 . M.1
2 . 370...... "........THE DAY";:. D....
.. D.1 . D.31 . 390.*.... M.2 . D.29 . 3
90.A.... D.30 . M.4 . 390.X.... D.30 . M
.6 . 390.O.... D.30 . M.9 . 390.X...."."
...... "........WANT TO SEE LOCATION".C.
B.. "........CONDITIONS? Y/N";:. B$.W.L.
. B$ ."N" . 530...V.. "........LOCATION
CONDITIONS ARE.......".(.... ".......LOC
ATION NAME..";L$.J.... ".......TIME ZONE
......";Z$.L.... ".......LONGITUDE......
";O$...... A.0 . 2000 :. A...... 1710...
... T$."LMT" . 570...&.. T$."LST" . U$."
LMT".F.0.. 580.S.:.U$."LST"...D.. 1900..
.N.. "........SPECIFY NUMBER OF CALCULAT
IONS";:. NO.<.X.. "........AND TIME INTE
RVALS";:. IN.F.B.. ".".T.L.EP.722895._.V
.. 1960.R...DE.DG:ND.DE.EP...... .4) T$;
" "...... ".....TIME(S) REQUESTED".....
TC..065753.U.... ".....DATE ";Y;" ";M;"
";D...... ".....LOCATION.";L$;" ZONE";
ZN...... ".....FOR LONGITUDE ";LO.H.F..
".....INTERVAL FOR TIME CALCS";IN;" HRS"
.X.P.. ".:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:
-:-:-:-"...Z.. "............";U$;"......
........"T$.R.... "....DEC.HR.HR:MIN:SE.
.DEC.HR..HR:MI:SE"...... ".:-:-:-:-:-:-:
-:-:-:-:-:-:-::-:-:-:-:-"...... K.1 . NO
.....H1. . (T1).7...M1. . ((T1.H1).100).
Z...S1. . ((((T1.H1).100).M1).100).E. ..
1080.|.*.. T2.24 . T2.T2.24...4.H2.. (T
2)...>.M2.. ((T2.H2).100).C.H.S2.. ((((T
2.H2).100).M2).100)...R.H3. . (T2):W1$.D
(H3):. C(W1$).2 . W1$."0".W1$...\.M3.(T2
..(T2)).60.!.F.S3.(M3. . (M3)).60.S.P.S3
. . (S3):W3$.D(S3):. C(W3$).2 . W3$."0".
W3$...Z.M3. . (M3):W2$.D(M3):. C(W2$).2
. W2$."0".W2$....W4$.":".....W5$.W1$.W4
$.W2$.W4$.W3$.....A$.W5$:. 4000.J...W5$.
K$.U.... 2060.....H$.D (H1).....M$.D (M1
).....S$.D (S1).....P$.".".%...T1.(.(T1.
10000).10000).3...J$.D (H2).A.J.Q$.D (M2
).O.T.V$.D (S2).J...T2.(.(T2.10000).1000
0)..... .2)T1;.10)U5$;...... .20)T2;.29
)W5$...... A$:. A$."" . 1015.....T1.T1.I
N.L.... T1.24 . 1060.Y...T1.T1.24.....ND
.ND.1...$.. K...... 1400...8.. PARAMETER
FOT TIME CALCS.9.B.. GMST AT EPOCH 1979
MARCH 22.J.V.GC.11.927485.M.`.. DALIY R
ATE OF CHANGE OF GMST.|.J.TC..065711...T
.. T$."LMT" . 1280...~.. CONVERSION TO L
ST.X...T2.TC.ND.GC.((T1.ZN).24.TC).T1.ZN
.(LO.15)...... CONVERSION FOR NON MID TI
ME ZONE...... T2.24 . 1210.....T2.T2.24.
*.... 1190.=.... T2.24 . 1240.J.D.T2.T2.
24.U.N.. 1210.G.X.. T2.0 . 1270.T...T2.T
2.24..... 1240............ CONV TO LMT.
....T2.TC.ND.GC.(LO.15).B.... T2.24 . 13
20.V.#.T2.T2.24:. 1300...(.T2.T1.T2...2.
T2.(T2.24).(TC.24)...<.T2.T2.1...N...<.X
.. "..:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-:-
:-:".[.R.. "......DO YOU WANT MORE".....
. "......CACULATIONS? Y/N ";:. A$......"
."...... A$."N" . 1690.A...H$."":N$."":S
$."":I$."":J$."":.W...Q$."":V$."":B$."".
....T1.0:T2.0...... "."...".. "........D
O YOU STILL WANT TO".8.,.. "........CALC
ULATE ";T$;:. A$.K.@.. A$."N" . 330.T.^.
."."...H.."........DO YOU WANT TO CHANGE
DATE";:. A$...R.. A$."N" . ZN.Z...|.. 4
40.....ZN.Z...... 350......".".D.....M..
.."."...... ".......DO YOU WANT INPUT IN
DEC. HRS (1)".).B.. ".......OR IN HRS M
IN SEC (2)";:. R$.8.V.PT .E (R$).J.... P
T.1 . 1790.\.... PT.2 . 1820.V.... T$."L
MT" . T$."LST"...... ".......WHAT IS THE
INPUT TIME".F.... ".......HR.XXXX (24-H
R CLOCK";:. T1.P....1890...... "........
WHAT IS THE INPUT TIME"...&.. "......HR,
MIN,SEC (24-HR CLOCK)".G.0.. "........TY
PE HR THEN MI THEN SEC".`.1.. "......WHE
N ASKED".W.:.. "......HR";:. HR...D.. ".
.....MIN/";:. MI...N.. "......SEC/";:. S
E.A.X.T1.HR.MI.60.SE.3600.G.B...Z.L.LGC.
(ZN.15).LO...V.. LGC.0 . 1940...... 1950
.......*.... CALC GREGORIAN DAYS TO DATE
REQUESTED.=.... M.. 3 . 2030.A...U4$.":
":U5$.U1$.U4$.U2$.U4$.U3$.R...A$.U5$:.40
00.}...U5$.K$...... CALC FOR JAN AND FEB
...F.DG.365.Y.D...P.DG.DG.((M.1).31). .
((Y.1).4). . ((.75). .((Y.1).100.1))...Z
........ CALCS FOR MAR THRU DEC./...DG.3
65.Y.D.((M.1).31). . (M..4.2.3).\...DG.D
G. . (Y.4). . ((.75). . ((Y.100).1)).B..
........ SUB FOR PRINTING HR MI SEC.....
RR. . (T1):U1$.D(RR):. C(U1$).2 . U1$."0
".U1$.L. .IM.(T1. . (T1)).60...*.ES.(IM.
. (IM)).60...4.ES. . (ES):U3$.D(ES) :.
C(U3$).2 . U3$."0".U3$.I.>.IM. . (IM):U2
$.D(IM) :. C(U2$).2 . U2$."0".U2$.U.H.U4
$.":".Q.R.U5$.U1$.U4$.U2$.U4$.U3$...\.A$
.U5$:.4000...A.U5$.A$...F..... .K$.""...
... I.1 . C (A$).M.... J(A$,I,1).G(32) .
4040.....K$.K$.J (A$,I,1)...H.. I...R.A
$.K$.........
> CLICK IMAGE PREVIEW FOR FULL MODAL