SOLAR
FILE INFORMATION
FILENAME(S): SOLAR
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
aa1947d18d225592afa53c6d252e524e9ca61ca2208ffc3916de93cbb76ca46c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | SOLAR | PRG | Treasure Chest - Klaus Der Suhler | 22 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 13 1C 64 00 50 49 B2 33 2E 31 34 31 35 39 |....d.PI.3.14159| 00000010: 32 36 35 00 43 1C 6E 00 99 C7 28 31 34 37 29 3A |265.C.n...(147):| 00000020: 99 22 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |." THIS PROGRAM | 00000030: 57 49 4C 4C 20 43 41 4C 43 55 4C 41 54 45 20 54 |WILL CALCULATE T| 00000040: 48 45 22 00 70 1C 78 00 99 3A 99 22 20 50 4F 53 |HE".p.x..:." POS| 00000050: 49 54 49 4F 4E 2C 20 44 49 53 54 41 4E 43 45 2C |ITION, DISTANCE,| 00000060: 20 41 50 50 41 52 45 4E 54 20 53 49 5A 45 2C 22 | APPARENT SIZE,"| 00000070: 00 9E 1C 82 00 99 3A 99 22 20 52 49 53 49 4E 47 |......:." RISING| 00000080: 20 41 4E 44 20 53 45 54 54 49 4E 47 20 54 49 4D | AND SETTING TIM| 00000090: 45 53 20 4F 46 20 54 48 45 20 53 55 4E 22 00 BA |ES OF THE SUN"..| 000000A0: 1C 8C 00 99 3A 99 22 20 46 4F 52 20 41 20 47 49 |....:." FOR A GI| 000000B0: 56 45 4E 20 44 41 54 45 2E 22 00 EE 1C A0 00 99 |VEN DATE."......| 000000C0: 3A 99 3A 99 3A 99 22 20 28 4F 43 54 4F 42 45 52 |:.:.:." (OCTOBER| 000000D0: 20 33 31 2C 31 39 38 36 20 57 4F 55 4C 44 20 42 | 31,1986 WOULD B| 000000E0: 45 20 31 30 2C 33 31 2C 31 39 38 36 29 22 00 F4 |E 10,31,1986)"..| 000000F0: 1C B4 00 99 00 15 1D BE 00 85 20 22 20 45 4E 54 |.......... " ENT| 00000100: 45 52 20 54 48 45 20 44 41 54 45 22 3B 4D 31 2C |ER THE DATE";M1,| 00000110: 44 31 2C 59 31 00 2E 1D C8 00 8B 20 4D 31 B3 31 |D1,Y1...... M1.1| 00000120: 20 B0 20 4D 31 B1 31 32 20 A7 20 32 33 30 00 47 | . M1.12 . 230.G| 00000130: 1D D2 00 8B 20 44 31 B3 31 20 B0 20 44 31 B1 33 |.... D1.1 . D1.3| 00000140: 31 20 A7 20 32 33 30 00 51 1D DC 00 89 20 32 35 |1 . 230.Q.... 25| 00000150: 30 00 80 1D E6 00 99 C7 28 31 34 37 29 3A 99 3A |0.......(147):.:| 00000160: 99 3A 99 22 20 49 4E 43 4F 52 52 45 43 54 20 49 |.:." INCORRECT I| 00000170: 4E 50 55 54 2C 54 52 59 20 41 47 41 49 4E 2E 22 |NPUT,TRY AGAIN."| 00000180: 00 98 1D F0 00 81 20 58 31 B2 31 A4 31 30 30 30 |...... X1.1.1000| 00000190: 3A 82 3A 89 20 31 31 30 00 C5 1D FA 00 99 3A 99 |:.:. 110......:.| 000001A0: 3A 99 22 20 45 4E 54 45 52 20 59 4F 55 52 20 4C |:." ENTER YOUR L| 000001B0: 41 54 54 49 54 55 44 45 20 28 4E 45 47 41 54 49 |ATTITUDE (NEGATI| 000001C0: 56 45 20 49 46 00 EA 1D 04 01 99 3A 85 20 22 20 |VE IF......:. " | 000001D0: 53 4F 55 54 48 29 20 49 4E 20 44 45 47 2C 20 4D |SOUTH) IN DEG, M| 000001E0: 49 4E 3A 22 3B 4C 33 2C 4C 34 00 14 1E 0E 01 8B |IN:";L3,L4......| 000001F0: 20 4C 33 B1 39 30 20 B0 20 4C 33 B3 AB 39 30 20 | L3.90 . L3..90 | 00000200: B0 20 4C 34 B1 35 39 20 B0 20 4C 34 B3 30 20 A7 |. L4.59 . L4.0 .| 00000210: 20 32 33 30 00 24 1E 18 01 4C 37 B2 4C 33 AA 4C | 230.$...L7.L3.L| 00000220: 34 AD 36 30 00 57 1E 22 01 99 3A 99 3A 99 22 20 |4.60.W."..:.:." | 00000230: 45 4E 54 45 52 20 59 4F 55 52 20 4C 4F 4E 47 49 |ENTER YOUR LONGI| 00000240: 54 55 44 45 20 28 4E 45 47 41 54 49 56 45 20 49 |TUDE (NEGATIVE I| 00000250: 46 20 45 41 53 54 22 00 82 1E 2C 01 99 3A 85 22 |F EAST"...,..:."| 00000260: 20 4F 46 20 47 52 45 45 4E 57 49 43 48 29 20 49 | OF GREENWICH) I| 00000270: 4E 20 44 45 47 2C 20 4D 49 4E 3A 22 3B 4F 48 2C |N DEG, MIN:";OH,| 00000280: 4F 4D 00 AB 1E 40 01 8B 20 4F 48 B1 33 35 39 20 |OM...@.. OH.359 | 00000290: B0 20 4F 48 B3 30 20 B0 20 4F 4D B1 35 39 20 B0 |. OH.0 . OM.59 .| 000002A0: 20 4F 4D B3 30 20 A7 20 32 33 30 00 BF 1E 54 01 | OM.0 . 230...T.| 000002B0: 4F B2 28 4F 48 AA 4F 4D AD 36 30 29 AD 31 35 00 |O.(OH.OM.60).15.| 000002C0: E0 1E 5E 01 41 31 B2 36 33 3A 8B 20 B5 28 59 31 |..^.A1.63:. .(Y1| 000002D0: AD 34 29 B2 59 31 AD 34 20 A7 20 41 31 B2 36 32 |.4).Y1.4 . A1.62| 000002E0: 00 F1 1E 68 01 8B 20 4D 31 B1 32 20 A7 20 33 39 |...h.. M1.2 . 39| 000002F0: 30 00 09 1F 72 01 44 4E B2 B5 28 28 28 4D 31 AB |0...r.DN..(((M1.| 00000300: 31 29 AC 41 31 29 AD 32 29 00 13 1F 7C 01 89 20 |1).A1).2)...|.. | 00000310: 34 30 30 00 2C 1F 86 01 44 4E B2 B5 28 28 4D 31 |400.,...DN..((M1| 00000320: AA 31 29 AC 33 30 2E 36 29 AB 41 31 00 39 1F 90 |.1).30.6).A1.9..| 00000330: 01 44 4E B2 44 4E AA 44 31 00 57 1F 9A 01 44 32 |.DN.DN.D1.W...D2| 00000340: B2 44 4E AA B5 28 33 36 35 2E 32 35 AC 28 59 31 |.DN..(365.25.(Y1| 00000350: AB 31 39 38 30 29 29 00 77 1F A4 01 8B 20 41 31 |.1980)).w.... A1| 00000360: B2 36 33 20 AF 20 59 31 B3 31 39 38 30 20 A7 20 |.63 . Y1.1980 . | 00000370: 44 32 B2 44 32 AA 31 00 83 1F AE 01 44 32 B2 44 |D2.D2.1.....D2.D| 00000380: 32 AA 31 00 9A 1F B8 01 4E 32 B2 33 36 30 AC 44 |2.1.....N2.360.D| 00000390: 32 AD 33 36 35 2E 32 34 32 32 00 B1 1F C2 01 8B |2.365.2422......| 000003A0: 20 4E 32 B3 30 20 A7 20 4E 32 B2 4E 32 AA 33 36 | N2.0 . N2.N2.36| 000003B0: 30 00 CA 1F CC 01 8B 20 4E 32 B1 33 36 30 20 A7 |0...... N2.360 .| 000003C0: 20 4E 32 B2 4E 32 AB 33 36 30 00 E4 1F D6 01 8B | N2.N2.360......| 000003D0: 20 4E 32 B3 30 20 B0 20 4E 32 B1 33 36 30 20 A7 | N2.0 . N2.360 .| 000003E0: 20 34 35 30 00 F9 1F E0 01 4D 32 B2 4E 32 AB 33 | 450.....M2.N2.3| 000003F0: 2E 37 36 32 38 36 32 38 33 00 10 20 EA 01 8B 20 |.76286283.. ... | 00000400: 4D 32 B3 30 20 A7 20 4D 32 B2 4D 32 AA 33 36 30 |M2.0 . M2.M2.360| 00000410: 00 21 20 F4 01 4D 32 B2 4D 32 AC 50 49 AD 31 38 |.! ..M2.M2.PI.18| 00000420: 30 00 2B 20 FE 01 45 32 B2 4D 32 00 47 20 08 02 |0.+ ..E2.M2.G ..| 00000430: 53 32 B2 45 32 AB 30 2E 30 31 36 37 31 38 AC BF |S2.E2.0.016718..| 00000440: 28 45 32 29 AB 4D 32 00 61 20 12 02 8B 20 B6 28 |(E2).M2.a ... .(| 00000450: 53 32 29 B3 2E 30 30 30 30 30 31 20 A7 20 35 36 |S2)..000001 . 56| 00000460: 30 00 7E 20 1C 02 46 32 B2 53 32 AD 28 31 AB 30 |0.~ ..F2.S2.(1.0| 00000470: 2E 30 31 36 37 31 38 AC BE 28 45 32 29 29 00 91 |.016718..(E2))..| 00000480: 20 26 02 45 32 B2 45 32 AB 46 32 3A 89 20 35 32 | &.E2.E2.F2:. 52| 00000490: 30 00 AB 20 30 02 54 32 B2 31 2E 30 31 36 38 36 |0.. 0.T2.1.01686| 000004A0: 30 31 31 AC C0 28 45 32 AD 32 29 00 BF 20 3A 02 |011..(E2.2).. :.| 000004B0: 56 32 B2 C1 28 54 32 29 AC 33 36 30 AD 50 49 00 |V2..(T2).360.PI.| 000004C0: D4 20 44 02 47 32 B2 56 32 AA 32 38 32 2E 35 39 |. D.G2.V2.282.59| 000004D0: 36 34 30 33 00 ED 20 4E 02 8B 20 47 32 B1 33 36 |6403.. N.. G2.36| 000004E0: 30 20 A7 20 47 32 B2 47 32 AB 33 36 30 00 04 21 |0 . G2.G2.360..!| 000004F0: 58 02 8B 20 47 32 B3 30 20 A7 20 47 32 B2 47 32 |X.. G2.0 . G2.G2| 00000500: AA 33 36 30 00 15 21 62 02 47 33 B2 47 32 AC 50 |.360..!b.G3.G2.P| 00000510: 49 AD 31 38 30 00 2E 21 6C 02 53 33 B2 BF 28 47 |I.180..!l.S3..(G| 00000520: 33 29 AC 30 2E 33 39 37 38 31 38 36 37 36 00 4E |3).0.397818676.N| 00000530: 21 76 02 49 33 B2 C1 28 53 33 AD BA 28 AB 53 33 |!v.I3..(S3..(.S3| 00000540: AC 53 33 AA 31 29 29 AC 31 38 30 AD 50 49 00 66 |.S3.1)).180.PI.f| 00000550: 21 80 02 59 33 B2 BF 28 47 33 29 AC 30 2E 39 31 |!..Y3..(G3).0.91| 00000560: 37 34 36 34 30 36 00 73 21 8A 02 58 33 B2 BE 28 |746406.s!..X3..(| 00000570: 47 33 29 00 83 21 94 02 41 33 B2 C1 28 59 33 AD |G3)..!..A3..(Y3.| 00000580: 58 33 29 00 94 21 9E 02 41 33 B2 41 33 AC 31 38 |X3)..!..A3.A3.18| 00000590: 30 AD 50 49 00 B4 21 A8 02 8B 20 58 33 B3 B2 30 |0.PI..!... X3..0| 000005A0: 20 AF 20 59 33 B1 B2 30 20 A7 20 41 33 B2 41 33 | . Y3..0 . A3.A3| 000005B0: AA 31 38 30 00 D4 21 B2 02 8B 20 58 33 B3 B2 30 |.180..!... X3..0| 000005C0: 20 AF 20 59 33 B3 B2 30 20 A7 20 41 33 B2 41 33 | . Y3..0 . A3.A3| 000005D0: AA 31 38 30 00 F4 21 BC 02 8B 20 58 33 B1 B2 30 |.180..!... X3..0| 000005E0: 20 AF 20 59 33 B3 B2 30 20 A7 20 41 33 B2 41 33 | . Y3..0 . A3.A3| 000005F0: AA 33 36 30 00 01 22 C6 02 41 33 B2 41 33 AD 31 |.360.."..A3.A3.1| 00000600: 35 00 16 22 D0 02 4D 34 B2 28 41 33 AB B5 28 41 |5.."..M4.(A3..(A| 00000610: 33 29 29 AC 36 30 00 33 22 E5 02 49 33 24 B2 22 |3)).60.3"..I3$."| 00000620: 2B 22 3A 8B 20 49 33 B3 30 20 A7 20 49 33 24 B2 |+":. I3.0 . I3$.| 00000630: 22 2D 22 00 40 22 E6 02 49 34 B2 B6 28 49 33 29 |"-".@"..I4..(I3)| 00000640: 00 55 22 E7 02 4D 35 B2 28 49 34 AB B5 28 49 34 |.U"..M5.(I4..(I4| 00000650: 29 29 AC 36 30 00 66 22 E8 02 4D 35 B2 B5 28 4D |)).60.f"..M5..(M| 00000660: 35 AA 30 2E 35 29 00 74 22 F8 02 99 C7 28 31 34 |5.0.5).t"....(14| 00000670: 37 29 3A 99 00 AC 22 02 03 99 22 20 52 49 47 48 |7):..."..." RIGH| 00000680: 54 20 41 53 43 45 4E 53 49 4F 4E 20 3D 22 3B B5 |T ASCENSION =";.| 00000690: 28 41 33 29 3B 22 48 52 53 20 20 22 3B B5 28 4D |(A3);"HRS ";.(M| 000006A0: 34 AA 30 2E 35 29 3B 22 4D 49 4E 22 00 E1 22 0C |4.0.5);"MIN"..".| 000006B0: 03 99 3A 99 22 20 44 45 43 4C 49 4E 41 54 49 4F |..:." DECLINATIO| 000006C0: 4E 20 3D 20 20 22 3B 49 33 24 3B B5 28 49 34 29 |N = ";I3$;.(I4)| 000006D0: 3B 22 44 45 47 20 20 22 3B 4D 35 3B 22 4D 49 4E |;"DEG ";M5;"MIN| 000006E0: 22 00 F2 22 16 03 56 36 B2 56 32 AC 50 49 AD 31 |".."..V6.V2.PI.1| 000006F0: 38 30 00 16 23 20 03 46 36 B2 31 AA 30 2E 30 31 |80..# .F6.1.0.01| 00000700: 36 37 31 38 AC BE 28 56 36 29 AD 30 2E 39 39 39 |6718..(V6).0.999| 00000710: 37 32 30 35 30 38 00 2B 23 2A 03 52 36 B2 31 2E |720508.+#*.R6.1.| 00000720: 34 39 35 39 38 35 45 38 AD 46 36 00 3E 23 34 03 |495985E8.F6.>#4.| 00000730: 54 36 B2 46 36 AC 30 2E 35 33 33 31 32 38 00 4B |T6.F6.0.533128.K| 00000740: 23 3E 03 4D 36 B2 54 36 AC 36 30 00 60 23 48 03 |#>.M6.T6.60.`#H.| 00000750: 53 36 B2 28 4D 36 AB B5 28 4D 36 29 29 AC 36 30 |S6.(M6..(M6)).60| 00000760: 00 91 23 52 03 99 3A 99 20 22 20 44 49 53 54 41 |..#R..:. " DISTA| 00000770: 4E 43 45 3D 20 22 3B B5 28 52 36 AD 31 30 30 30 |NCE= ";.(R6.1000| 00000780: 30 AA 30 2E 35 29 AC 31 30 30 30 30 3B 22 4B 4D |0.0.5).10000;"KM| 00000790: 22 00 C9 23 5C 03 99 3A 99 20 22 20 41 50 50 41 |"..#\..:. " APPA| 000007A0: 52 45 4E 54 20 53 49 5A 45 20 3D 22 3B B5 28 4D |RENT SIZE =";.(M| 000007B0: 36 29 3B 22 4D 49 4E 20 22 3B B5 28 53 36 AA 30 |6);"MIN ";.(S6.0| 000007C0: 2E 35 29 3B 22 53 45 43 22 00 00 00 |.5);"SEC"... |
....D.PI.3.14159265.C.N..G(147):." THIS PROGRAM WILL CALCULATE THE".P.X..:." POS ITION, DISTANCE, APPARENT SIZE,"......:. " RISING AND SETTING TIMES OF THE SUN".. ....:." FOR A GIVEN DATE."... ..:.:.:." (OCTOBER 31,1986 WOULD BE 10,31,1986)".. .......... " ENTER THE DATE";M1,D1,Y1... H.. M1.1 . M1.12 . 230.G.R.. D1.1 . D1.3 1 . 230.Q.... 250......G(147):.:.:." INC ORRECT INPUT,TRY AGAIN."...... X1.1.1000 :.:. 110.E....:.:." ENTER YOUR LATTITUDE (NEGATIVE IF......:. " SOUTH) IN DEG, M IN:";L3,L4...... L3.90 . L3..90 . L4.59 . L4.0 . 230.$...L7.L3.L4.60.W."..:.:." ENTER YOUR LONGITUDE (NEGATIVE IF EAST". ..,..:." OF GREENWICH) IN DEG, MIN:";OH, OM...@.. OH.359 . OH.0 . OM.59 . OM.0 . 230...T.O.(OH.OM.60).15...^.A1.63:. .(Y1 .4).Y1.4 . A1.62...H.. M1.2 . 390...R.DN ..(((M1.1).A1).2)...|.. 400.,...DN..((M1 .1).30.6).A1.9...DN.DN.D1.W...D2.DN..(36 5.25.(Y1.1980)).W.... A1.63 . Y1.1980 . D2.D2.1.....D2.D2.1.....N2.360.D2.365.24 22...B.. N2.0 . N2.N2.360.J.L.. N2.360 . N2.N2.360...V.. N2.0 . N2.360 . 450.... .M2.N2.3.76286283.. ... M2.0 . M2.M2.360 .! ..M2.M2.PI.180.+ ..E2.M2.G ..S2.E2.0. 016718..(E2).M2.A ... .(S2)..000001 . 56 0.~ ..F2.S2.(1.0.016718..(E2)).. &.E2.E2 .F2:. 520.. 0.T2.1.01686011..(E2.2).. :. V2.A(T2).360.PI.T D.G2.V2.282.596403.. N .. G2.360 . G2.G2.360..!X.. G2.0 . G2.G2 .360..!B.G3.G2.PI.180..!L.S3..(G3).0.397 818676.N!V.I3.A(S3..(.S3.S3.1)).180.PI.F !..Y3..(G3).0.91746406.S!..X3..(G3)..!.. A3.A(Y3.X3)..!..A3.A3.180.PI..!... X3..0 . Y3..0 . A3.A3.180.T!... X3..0 . Y3..0 . A3.A3.180..!... X3..0 . Y3..0 . A3.A3 .360.."F.A3.A3.15.."P.M4.(A3..(A3)).60.3 "..I3$."+":. I3.0 . I3$."-".@"..I4..(I3) .U"..M5.(I4..(I4)).60.F"..M5..(M5.0.5).T "...G(147):..."..." RIGHT ASCENSION =";. (A3);"HRS ";.(M4.0.5);"MIN".."...:." DE CLINATION = ";I3$;.(I4);"DEG ";M5;"MIN ".."..V6.V2.PI.180..# .F6.1.0.016718..(V 6).0.999720508.+#*.R6.1.495985E8.F6.>#4. T6.F6.0.533128.K#>.M6.T6.60.`#H.S6.(M6.. (M6)).60..#R..:. " DISTANCE= ";.(R6.1000 0.0.5).10000;"KM".I#\..:. " APPARENT SIZ E =";.(M6);"MIN ";.(S6.0.5);"SEC"...
> CLICK IMAGE PREVIEW FOR FULL MODAL