EPOCH

FILE INFORMATION

FILENAME(S): EPOCH

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-10-20 14:30:51

APPEARS ON: 1 disk(s)

FILE HASH

09b3aa79260f4043bd70e4b9fd7aca439c85ef1fc3c45ef6fc6d22153afa4c72

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
0047ED	EPOCH	PRG	Treasure Chest - Klaus Der Suhler	20	3	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 09 0D 09 05 00 8F 20  45 50 4F 43 48 00 16 09  |....... EPOCH...|
00000010: 0A 00 99 22 93 22 00 1E  09 14 00 99 3A 99 00 28  |..."."......:..(|
00000020: 09 28 00 99 3A 99 3A 99  00 45 09 32 00 99 A3 31  |.(..:.:..E.2...1|
00000030: 30 29 22 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |0)"-------------|
00000040: 2D 2D 2D 2D 22 00 62 09  3C 00 99 A3 31 30 29 22  |----".b.<...10)"|
00000050: 49 20 20 20 20 20 45 50  4F 43 48 20 20 20 20 20  |I     EPOCH     |
00000060: 49 22 00 7F 09 46 00 99  A3 31 30 29 22 2D 2D 2D  |I"...F...10)"---|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 22 00  |--------------".|
00000080: 89 09 50 00 99 3A 99 3A  99 00 9A 09 A0 00 81 4A  |..P..:.:.......J|
00000090: B2 31 A4 32 30 30 30 3A  82 4A 00 A6 09 AA 00 9C  |.1.2000:.J......|
000000A0: 3A 99 3A 99 3A 99 00 B2  09 B4 00 99 3A 99 3A 99  |:.:.:.......:.:.|
000000B0: 3A 99 00 D2 09 BE 00 99  A3 39 29 22 54 48 49 53  |:........9)"THIS|
000000C0: 20 50 52 4F 47 52 41 4D  20 43 4F 4D 50 55 54 45  | PROGRAM COMPUTE|
000000D0: 53 22 00 FC 09 C8 00 99  A3 35 29 22 52 49 47 48  |S".......5)"RIGH|
000000E0: 54 20 41 53 43 45 4E 53  49 4F 4E 20 41 4E 44 20  |T ASCENSION AND |
000000F0: 44 45 43 4C 49 4E 41 54  49 4F 4E 22 00 29 0A D2  |DECLINATION".)..|
00000100: 00 99 A3 34 29 22 46 4F  52 20 41 4E 20 45 50 4F  |...4)"FOR AN EPO|
00000110: 43 48 20 57 48 45 4E 20  47 49 56 45 4E 20 52 41  |CH WHEN GIVEN RA|
00000120: 20 41 4E 44 20 44 45 43  22 00 53 0A DC 00 99 A3  | AND DEC".S.....|
00000130: 35 29 22 46 4F 52 20 41  4E 4F 54 48 45 52 20 45  |5)"FOR ANOTHER E|
00000140: 50 4F 43 48 2C 20 52 45  44 55 43 49 4E 47 20 46  |POCH, REDUCING F|
00000150: 4F 52 22 00 69 0A E6 00  99 A3 31 34 29 22 50 52  |OR".i.....14)"PR|
00000160: 45 43 45 53 53 49 4F 4E  22 00 7A 0A F0 00 81 4A  |ECESSION".z....J|
00000170: B2 31 A4 33 30 30 30 3A  82 4A 00 83 0A FA 00 99  |.1.3000:.J......|
00000180: 22 93 22 00 8D 0A 04 01  99 3A 99 3A 99 00 B2 0A  |"."......:.:....|
00000190: 0E 01 85 22 57 48 41 54  20 49 53 20 46 49 52 53  |..."WHAT IS FIRS|
000001A0: 54 20 45 50 4F 43 48 28  59 45 41 52 29 3F 22 3B  |T EPOCH(YEAR)?";|
000001B0: 59 31 00 B8 0A 18 01 99  00 DE 0A 22 01 85 22 57  |Y1.........".."W|
000001C0: 48 41 54 20 49 53 20 53  45 43 4F 4E 44 20 45 50  |HAT IS SECOND EP|
000001D0: 4F 43 48 28 59 45 41 52  29 3F 22 3B 59 32 00 FA  |OCH(YEAR)?";Y2..|
000001E0: 0A 2C 01 54 32 B2 28 28  59 32 AA 59 31 29 AD 32  |.,.T2.((Y2.Y1).2|
000001F0: AB 31 39 30 30 29 AD 31  30 30 00 14 0B 36 01 58  |.1900).100...6.X|
00000200: B2 33 2E 30 37 32 33 34  AA 28 2E 30 30 31 38 36  |.3.07234.(.00186|
00000210: AC 54 32 29 00 2D 0B 40  01 59 B2 32 30 2E 30 34  |.T2).-.@.Y.20.04|
00000220: 36 38 AB 28 2E 30 30 38  35 AC 54 32 29 00 38 0B  |68.(.0085.T2).8.|
00000230: 4A 01 5A B2 59 AD 31 35  00 42 0B 54 01 99 3A 99  |J.Z.Y.15.B.T..:.|
00000240: 3A 99 00 4E 0B 68 01 54  B2 59 32 AB 59 31 00 69  |:..N.h.T.Y2.Y1.i|
00000250: 0B 72 01 99 22 50 49 43  4B 20 4D 4F 44 45 20 4F  |.r.."PICK MODE O|
00000260: 46 20 49 4E 50 55 54 3A  22 00 71 0B 7C 01 99 3A  |F INPUT:".q.|..:|
00000270: 99 00 91 0B 86 01 99 22  52 2E 41 2E 20 49 4E 20  |......."R.A. IN |
00000280: 44 45 43 49 4D 41 4C 20  48 52 53 20 20 28 31 29  |DECIMAL HRS  (1)|
00000290: 22 00 B5 0B 90 01 85 22  20 20 20 20 20 4F 52 20  |"......"     OR |
000002A0: 49 4E 20 48 52 2C 4D 49  2C 53 45 20 20 28 32 29  |IN HR,MI,SE  (2)|
000002B0: 22 3B 52 41 24 00 C3 0B  9A 01 52 41 B2 C5 28 52  |";RA$.....RA..(R|
000002C0: 41 24 29 00 EE 0B A4 01  8B 52 41 B2 30 20 B0 52  |A$)......RA.0 .R|
000002D0: 41 B1 32 A7 99 22 49 4E  56 41 4C 49 44 20 52 45  |A.2.."INVALID RE|
000002E0: 53 50 4F 4E 53 45 22 3A  99 3A 89 33 39 30 00 F6  |SPONSE":.:.390..|
000002F0: 0B AE 01 99 3A 99 00 15  0C B8 01 99 22 44 45 43  |....:......."DEC|
00000300: 20 49 4E 20 44 45 43 49  4D 41 4C 20 44 45 47 2E  | IN DECIMAL DEG.|
00000310: 20 28 33 29 22 00 38 0C  C2 01 85 22 20 20 20 20  | (3)".8...."    |
00000320: 4F 52 20 49 4E 20 44 45  2C 4D 49 2C 53 45 20 20  |OR IN DE,MI,SE  |
00000330: 28 34 29 22 3B 44 45 24  00 46 0C CC 01 44 45 B2  |(4)";DE$.F...DE.|
00000340: C5 28 44 45 24 29 00 70  0C D6 01 8B 44 45 B3 33  |.(DE$).p....DE.3|
00000350: B0 44 45 B1 34 A7 99 22  49 4E 56 41 4C 49 44 20  |.DE.4.."INVALID |
00000360: 52 45 53 50 4F 4E 53 45  22 3A 99 3A 89 34 34 30  |RESPONSE":.:.440|
00000370: 00 7A 0C E0 01 99 3A 99  3A 99 00 88 0C EA 01 8B  |.z....:.:.......|
00000380: 52 41 B2 32 A7 35 31 30  00 BB 0C F4 01 99 22 49  |RA.2.510......"I|
00000390: 4E 50 55 54 20 52 2E 41  2E 20 41 54 20 45 50 4F  |NPUT R.A. AT EPO|
000003A0: 43 48 20 22 3B 59 31 3B  22 20 22 3B 3A 85 22 2E  |CH ";Y1;" ";:.".|
000003B0: 2E 20 22 3B 52 31 3A 89  35 33 30 00 EC 0C FE 01  |. ";R1:.530.....|
000003C0: 99 22 49 4E 50 55 54 20  52 2E 41 2E 20 41 54 20  |."INPUT R.A. AT |
000003D0: 45 50 4F 43 48 20 22 3B  59 31 3B 3A 85 22 20 2E  |EPOCH ";Y1;:." .|
000003E0: 2E 20 22 3B 52 49 2C 4D  49 2C 53 49 00 FA 0C 08  |. ";RI,MI,SI....|
000003F0: 02 8B 44 45 B2 34 A7 35  34 30 00 2C 0D 12 02 99  |..DE.4.540.,....|
00000400: 3A 99 22 49 4E 50 55 54  20 44 45 43 2E 20 41 54  |:."INPUT DEC. AT|
00000410: 20 45 50 4F 43 48 20 22  3B 59 31 3B 3A 85 22 20  | EPOCH ";Y1;:." |
00000420: 2E 2E 20 22 3B 44 31 3A  89 35 35 30 00 5D 0D 1C  |.. ";D1:.550.]..|
00000430: 02 99 22 49 4E 50 55 54  20 44 45 43 2E 20 41 54  |.."INPUT DEC. AT|
00000440: 20 45 50 4F 43 48 20 22  3B 59 31 3B 3A 85 22 20  | EPOCH ";Y1;:." |
00000450: 2E 2E 20 22 3B 44 43 2C  4D 43 2C 53 43 00 75 0D  |.. ";DC,MC,SC.u.|
00000460: 21 02 8B 44 43 B3 30 A7  4D 43 B2 AB 4D 43 3A 53  |!..DC.0.MC..MC:S|
00000470: 43 B2 AB 53 43 00 93 0D  26 02 8B 52 41 B2 32 A7  |C..SC...&..RA.2.|
00000480: 52 31 B2 52 49 AA 4D 49  AD 36 30 AA 53 49 AD 33  |R1.RI.MI.60.SI.3|
00000490: 36 30 30 00 B1 0D 30 02  8B 44 45 B2 34 A7 44 31  |600...0..DE.4.D1|
000004A0: B2 44 43 AA 4D 43 AD 36  30 AA 53 43 AD 33 36 30  |.DC.MC.60.SC.360|
000004B0: 30 00 BE 0D 3A 02 52 31  B2 52 31 AC 31 35 00 C6  |0...:.R1.R1.15..|
000004C0: 0D 44 02 99 3A 99 00 FA  0D 4E 02 57 B2 2E 30 30  |.D..:....N.W..00|
000004D0: 34 32 AC 54 AC 28 58 AA  28 5A AC BF 28 52 31 AD  |42.T.(X.(Z..(R1.|
000004E0: 35 37 2E 32 39 38 37 38  29 AC C0 28 44 31 AD 35  |57.29878)..(D1.5|
000004F0: 37 2E 32 39 38 37 38 29  29 29 00 06 0E 58 02 52  |7.29878)))...X.R|
00000500: 32 B2 52 31 AA 57 00 2A  0E 62 02 44 32 B2 44 31  |2.R1.W.*.b.D2.D1|
00000510: AA 2E 30 30 30 32 38 AC  54 AC 59 AC BE 28 52 31  |..00028.T.Y..(R1|
00000520: AD 35 37 2E 32 39 38 37  38 29 00 32 0E 6C 02 99  |.57.29878).2.l..|
00000530: 3A 99 00 48 0E 76 02 99  22 20 20 41 54 20 45 50  |:..H.v.."  AT EP|
00000540: 4F 43 48 20 22 3B 59 32  00 50 0E 80 02 99 3A 99  |OCH ";Y2.P....:.|
00000550: 00 5D 0E 8A 02 52 32 B2  52 32 AD 31 35 00 71 0E  |.]...R2.R2.15.q.|
00000560: 94 02 8B 52 32 B1 32 34  A7 52 32 B2 52 32 AB 32  |...R2.24.R2.R2.2|
00000570: 34 00 84 0E 9E 02 8B 52  32 B3 30 A7 52 32 B2 52  |4......R2.0.R2.R|
00000580: 32 AA 32 34 00 99 0E A8  02 52 43 B2 C5 28 C8 28  |2.24.....RC..(.(|
00000590: C4 28 52 32 29 2C 35 29  29 00 C4 0E B2 02 99 22  |.(R2),5))......"|
000005A0: 20 20 52 49 47 48 54 20  41 53 43 45 4E 53 49 4F  |  RIGHT ASCENSIO|
000005B0: 4E 20 49 53 20 2E 2E 2E  20 22 3B 52 43 3B 22 20  |N IS ... ";RC;" |
000005C0: 48 52 53 22 00 D5 0E BC  02 52 33 24 B2 C4 28 B5  |HRS".....R3$..(.|
000005D0: 28 52 32 29 29 00 EA 0E  C6 02 4D 32 B2 36 30 AC  |(R2)).....M2.60.|
000005E0: 28 52 32 AB B5 28 52 32  29 29 00 FB 0E D0 02 4D  |(R2..(R2)).....M|
000005F0: 32 24 B2 C4 28 B5 28 4D  32 29 29 00 10 0F DA 02  |2$..(.(M2)).....|
00000600: 53 32 B2 36 30 AC 28 4D  32 AB B5 28 4D 32 29 29  |S2.60.(M2..(M2))|
00000610: 00 1D 0F E4 02 53 32 B2  B5 28 53 32 29 00 2B 0F  |.....S2..(S2).+.|
00000620: EE 02 53 32 24 B2 C4 28  53 32 29 00 47 0F F8 02  |..S2$..(S2).G...|
00000630: 52 34 24 B2 52 33 24 AA  22 2C 22 AA 4D 32 24 AA  |R4$.R3$.",".M2$.|
00000640: 22 2C 22 AA 53 32 24 00  6C 0F 02 03 99 22 20 20  |",".S2$.l...."  |
00000650: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000660: 4F 52 20 2E 2E 2E 20 22  3B 52 34 24 00 80 0F 0C  |OR ... ";R4$....|
00000670: 03 99 A3 32 36 29 22 48  52 2C 4D 49 2C 53 45 22  |...26)"HR,MI,SE"|
00000680: 00 88 0F 16 03 99 3A 99  00 AA 0F 20 03 8B 44 32  |......:.... ..D2|
00000690: B3 AB 39 30 A7 44 32 B2  AB 39 30 AA B6 28 44 32  |..90.D2..90..(D2|
000006A0: 29 AB B5 28 B6 28 44 32  29 29 00 CA 0F 2A 03 8B  |)..(.(D2))...*..|
000006B0: 44 32 B3 30 A7 44 44 B2  C5 28 C8 28 C4 28 44 32  |D2.0.DD..(.(.(D2|
000006C0: 29 2C 36 29 29 3A 89 38  34 30 00 EB 0F 34 03 8B  |),6)):.840...4..|
000006D0: 44 32 B1 39 30 A7 44 44  B2 39 30 AB 28 44 32 AB  |D2.90.DD.90.(D2.|
000006E0: B5 28 44 32 29 29 3A 89  38 34 30 00 00 10 3E 03  |.(D2)):.840...>.|
000006F0: 44 44 B2 C5 28 C8 28 C4  28 44 32 29 2C 35 29 29  |DD..(.(.(D2),5))|
00000700: 00 2B 10 48 03 99 22 20  20 44 45 43 4C 49 4E 41  |.+.H.."  DECLINA|
00000710: 54 49 4F 4E 20 49 53 20  2E 2E 2E 2E 2E 2E 2E 20  |TION IS ....... |
00000720: 22 3B 44 44 3B 22 20 44  45 47 22 00 45 10 52 03  |";DD;" DEG".E.R.|
00000730: 8B 44 32 B3 30 A7 44 34  B2 B5 28 44 32 29 AA 31  |.D2.0.D4..(D2).1|
00000740: 3A 89 38 37 30 00 52 10  5C 03 44 34 B2 B5 28 44  |:.870.R.\.D4..(D|
00000750: 32 29 00 74 10 66 03 8B  44 32 B3 30 A7 4D 45 B2  |2).t.f..D2.0.ME.|
00000760: 31 AA 36 30 AC 28 44 32  AB B5 28 44 32 29 29 3A  |1.60.(D2..(D2)):|
00000770: 89 38 39 30 00 8E 10 70  03 4D 45 B2 36 30 AC 28  |.890...p.ME.60.(|
00000780: 44 32 AB B5 28 44 32 29  29 3A 89 39 30 30 00 9B  |D2..(D2)):.900..|
00000790: 10 7A 03 4D 45 B2 36 30  AB 4D 45 00 AC 10 84 03  |.z.ME.60.ME.....|
000007A0: 4D 45 24 B2 C4 28 B5 28  4D 45 29 29 00 C1 10 8E  |ME$..(.(ME))....|
000007B0: 03 53 45 B2 36 30 AC 28  4D 45 AB B5 28 4D 45 29  |.SE.60.(ME..(ME)|
000007C0: 29 00 CE 10 98 03 53 45  B2 B5 28 53 45 29 00 DC  |).....SE..(SE)..|
000007D0: 10 A2 03 53 45 24 B2 C4  28 53 45 29 00 FA 10 AC  |...SE$..(SE)....|
000007E0: 03 45 44 24 B2 C4 28 44  34 29 AA 22 2C 22 AA 4D  |.ED$..(D4).",".M|
000007F0: 45 24 AA 22 2C 22 AA 53  45 24 00 1F 11 B6 03 99  |E$.",".SE$......|
00000800: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4F  |"              O|
00000810: 52 20 2E 2E 2E 2E 2E 2E  2E 20 22 3B 45 44 24 00  |R ....... ";ED$.|
00000820: 33 11 C0 03 99 A3 32 36  29 22 48 52 2C 4D 49 2C  |3.....26)"HR,MI,|
00000830: 53 45 22 00 3B 11 CA 03  99 3A 99 00 5E 11 D4 03  |SE".;....:..^...|
00000840: 85 20 22 41 4E 4F 54 48  45 52 20 43 4F 4E 56 45  |. "ANOTHER CONVE|
00000850: 52 53 49 4F 4E 3F 20 59  2F 4E 22 3B 41 24 00 75  |RSION? Y/N";A$.u|
00000860: 11 DE 03 8B 41 24 B2 22  59 22 A7 9C 3A 99 3A 99  |....A$."Y"..:.:.|
00000870: 3A 89 34 38 30 00 7D 11  E8 03 99 3A 99 00 9A 11  |:.480.}....:....|
00000880: F2 03 85 22 41 4E 4F 54  48 45 52 20 45 50 4F 43  |..."ANOTHER EPOC|
00000890: 48 3F 20 59 2F 4E 22 3B  41 24 00 AC 11 FC 03 8B  |H? Y/N";A$......|
000008A0: 41 24 B2 22 59 22 A7 20  89 32 35 30 00 B2 11 06  |A$."Y". .250....|
000008B0: 04 9C 00 B8 11 10 04 80  00 00 00                 |...........     |

....... EPOCH......"."......:..(.(..:.:.
.E.2...10)"-----------------".B.<...10)"
I     EPOCH     I"..F...10)"-----------
------"...P..:.:.... ..J.1.2000:.J......
:.:.:.......:.:.:..R.....9)"THIS PROGRAM
 COMPUTES"...H...5)"RIGHT ASCENSION AND 
DECLINATION".).R...4)"FOR AN EPOCH WHEN 
GIVEN RA AND DEC".S.....5)"FOR ANOTHER E
POCH, REDUCING FOR".I.....14)"PRECESSION
".Z....J.1.3000:.J......"."......:.:....
..."WHAT IS FIRST EPOCH(YEAR)?";Y1......
...".."WHAT IS SECOND EPOCH(YEAR)?";Y2..
.,.T2.((Y2.Y1).2.1900).100...6.X.3.07234
.(.00186.T2).-.@.Y.20.0468.(.0085.T2).8.
J.Z.Y.15.B.T..:.:..N.H.T.Y2.Y1.I.R.."PIC
K MODE OF INPUT:".Q.|..:......."R.A. IN 
DECIMAL HRS  (1)"......"     OR IN HR,MI
,SE  (2)";RA$.C...RA.E(RA$)......RA.0 .R
A.2.."INVALID RESPONSE":.:.390......:...
...."DEC IN DECIMAL DEG. (3)".8.B.."    
OR IN DE,MI,SE  (4)";DE$.F.L.DE.E(DE$).P
.V..DE.3.DE.4.."INVALID RESPONSE":.:.440
.Z....:.:.......RA.2.510......"INPUT R.A
. AT EPOCH ";Y1;" ";:.".. ";R1:.530.....
."INPUT R.A. AT EPOCH ";Y1;:." .. ";RI,M
I,SI......DE.4.540.,....:."INPUT DEC. AT
 EPOCH ";Y1;:." .. ";D1:.550.]...."INPUT
 DEC. AT EPOCH ";Y1;:." .. ";DC,MC,SC.U.
!..DC.0.MC..MC:SC..SC...&..RA.2.R1.RI.MI
.60.SI.3600...0..DE.4.D1.DC.MC.60.SC.360
0...:.R1.R1.15.F.D..:....N.W..0042.T.(X.
(Z..(R1.57.29878)..(D1.57.29878)))...X.R
2.R1.W.*.B.D2.D1..00028.T.Y..(R1.57.2987
8).2.L..:..H.V.."  AT EPOCH ";Y2.P....:.
.]...R2.R2.15.Q....R2.24.R2.R2.24......R
2.0.R2.R2.24.....RC.E(H(D(R2),5)).D...."
  RIGHT ASCENSION IS ... ";RC;" HRS".U..
.R3$.D(.(R2))...F.M2.60.(R2..(R2))...P.M
2$.D(.(M2))...Z.S2.60.(M2..(M2)).....S2.
.(S2).+...S2$.D(S2).G...R4$.R3$.",".M2$.
",".S2$.L...."                  OR ... "
;R4$.......26)"HR,MI,SE"......:.... ..D2
..90.D2..90..(D2)..(.(D2)).J.*..D2.0.DD.
E(H(D(D2),6)):.840...4..D2.90.DD.90.(D2.
.(D2)):.840...>.DD.E(H(D(D2),5)).+.H.." 
 DECLINATION IS ....... ";DD;" DEG".E.R.
.D2.0.D4..(D2).1:.870.R.\.D4..(D2).T.F..
D2.0.ME.1.60.(D2..(D2)):.890...P.ME.60.(
D2..(D2)):.900...Z.ME.60.ME.....ME$.D(.(
ME)).A...SE.60.(ME..(ME)).N...SE..(SE)..
...SE$.D(SE).....ED$.D(D4).",".ME$.",".S
E$......"              OR ....... ";ED$.
3.....26)"HR,MI,SE".;.J..:..^.T.. "ANOTH
ER CONVERSION? Y/N";A$.U....A$."Y"..:.:.
:.480.}....:......."ANOTHER EPOCH? Y/N";
A$......A$."Y". .250...............

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL