ZONSOP-ONDERGANG
FILE INFORMATION
FILENAME(S): ZONSOP-ONDERGANG
FILE TYPE(S): PRG
FILE SIZE: 3.4K
FIRST SEEN: 2025-11-30 21:11:59
APPEARS ON: 1 disk(s)
FILE HASH
21d4ad6970435c9d5df9757924d3a8be37e3a3c181016e52095df6cb9a4dd9a1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RUUD HANEGRAAF | ZONSOP-ONDERGANG | PRG | DuncanTwain | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 05 00 99 22 93 05 22 3A 97 35 33 32 |......."..":.532|
00000010: 38 30 2C 35 3A 97 35 33 32 38 31 2C 36 00 33 08 |80,5:.53281,6.3.|
00000020: 0A 00 52 4C B2 34 30 3A 53 48 B2 32 35 3A 89 31 |..RL.40:SH.25:.1|
00000030: 30 30 30 00 3D 08 14 00 89 31 30 31 30 00 49 08 |000.=....1010.I.|
00000040: 64 00 99 22 93 22 3B 3A 8E 00 76 08 6E 00 8B 4B |d..".";:..v.n..K|
00000050: 4C B1 30 AF 4B 4C B3 31 37 A7 99 CA 28 22 90 05 |L.0.KL.17...("..|
00000060: 1C 9F 9C 1E 1F 9E 81 95 96 97 98 99 9A 9B 22 2C |..............",|
00000070: 4B 4C 2C 31 29 3B 00 A6 08 6F 00 99 C8 28 22 13 |KL,1);...o...(".|
00000080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000090: 11 11 11 11 11 11 11 11 22 2C B6 28 B5 28 56 45 |........",.(.(VE|
000000A0: AA 31 29 29 29 3B 00 B6 08 70 00 99 A6 B6 28 48 |.1)));...p....(H|
000000B0: 4F 29 29 3B 3A 8E 00 DB 08 78 00 48 4F B2 C2 28 |O));:....x.HO..(|
000000C0: 32 30 39 29 AA 32 35 36 AC C2 28 32 31 30 29 AB |209).256..(210).|
000000D0: 31 30 32 34 AA C2 28 32 31 31 29 00 F9 08 79 00 |1024..(211)...y.|
000000E0: 56 45 B2 B5 28 48 4F AD 34 30 29 3A 48 4F B2 48 |VE..(HO.40):HO.H|
000000F0: 4F AB 34 30 AC 56 45 3A 8E 00 04 09 C8 00 A1 49 |O.40.VE:.......I|
00000100: 4E 24 3A 8E 00 19 09 D2 00 A1 49 4E 24 3A 8B 49 |N$:.......IN$:.I|
00000110: 4E 24 B2 22 22 89 32 31 30 00 1F 09 DC 00 8E 00 |N$."".210.......|
00000120: 4C 09 FA 00 97 35 34 32 39 36 2C 31 35 3A 97 35 |L....54296,15:.5|
00000130: 34 32 37 38 2C 32 35 35 3A 97 35 34 32 37 33 2C |4278,255:.54273,|
00000140: 39 35 3A 97 35 34 32 37 36 2C 31 37 00 5E 09 FB |95:.54276,17.^..|
00000150: 00 81 4F 4F B2 31 A4 32 30 30 3A 82 4F 4F 00 7F |..OO.1.200:.OO..|
00000160: 09 FC 00 97 35 34 32 37 36 2C 30 3A 97 35 34 32 |....54276,0:.542|
00000170: 37 37 2C 30 3A 97 35 34 32 37 38 2C 30 3A 8E 00 |77,0:.54278,0:..|
00000180: 8D 09 04 01 52 56 B2 BB 28 31 29 3A 8E 00 9B 09 |....RV..(1):....|
00000190: 0E 01 46 52 B2 B8 28 30 29 3A 8E 00 C4 09 2C 01 |..FR..(0):....,.|
000001A0: 53 52 24 B2 C4 28 53 52 29 3A 8B C8 28 53 52 24 |SR$..(SR):..(SR$|
000001B0: 2C 31 29 B2 22 20 22 A7 53 52 24 B2 CA 28 53 52 |,1)." ".SR$..(SR|
000001C0: 24 2C 32 29 00 CA 09 2D 01 8E 00 EF 09 36 01 53 |$,2)...-.....6.S|
000001D0: 52 24 B2 22 22 3A 8B 53 52 B1 B2 31 30 AE 28 43 |R$."":.SR..10.(C|
000001E0: 54 AB 43 4E AB B4 28 43 4E 29 29 A7 33 31 38 00 |T.CN..(CN)).318.|
000001F0: 0A 0A 37 01 8B 53 52 B3 AB 2E 35 AC 31 30 AE AB |..7..SR...5.10..|
00000200: 43 4E A7 53 52 24 B2 22 2D 22 00 31 0A 38 01 53 |CN.SR$."-".1.8.S|
00000210: 52 24 B2 53 52 24 AA CA 28 C4 28 B5 28 B6 28 53 |R$.SR$..(.(.(.(S|
00000220: 52 29 AA 2E 35 AC 31 30 AE AB 43 4E 29 29 2C 32 |R)..5.10..CN)),2|
00000230: 29 00 5C 0A 39 01 8B C3 28 53 52 24 29 B3 43 54 |).\.9...(SR$).CT|
00000240: AB 43 4E AA 28 43 4E B3 B1 30 29 A7 53 52 24 B2 |.CN.(CN..0).SR$.|
00000250: 22 20 22 AA 53 52 24 3A 89 33 31 33 00 76 0A 3A |" ".SR$:.313.v.:|
00000260: 01 8B 43 4E B2 30 B0 B6 28 53 52 29 B1 B2 31 45 |..CN.0..(SR)..1E|
00000270: 31 30 89 33 31 36 00 AA 0A 3B 01 53 52 24 B2 53 |10.316...;.SR$.S|
00000280: 52 24 AA CA 28 C4 28 31 AA B6 28 53 52 29 AB B5 |R$..(.(1..(SR)..|
00000290: 28 B6 28 53 52 29 29 AA 2E 35 AC 31 30 AE AB 43 |(.(SR))..5.10..C|
000002A0: 4E 29 2C 33 2C 43 4E AA 31 29 00 CA 0A 3C 01 8B |N),3,CN.1)...<..|
000002B0: C3 28 53 52 24 29 B3 43 54 A7 53 52 24 B2 53 52 |.(SR$).CT.SR$.SR|
000002C0: 24 AA 22 20 22 3A 89 33 31 36 00 E0 0A 3D 01 8B |$." ":.316...=..|
000002D0: C3 28 53 52 24 29 B1 43 54 A7 53 52 24 B2 22 22 |.(SR$).CT.SR$.""|
000002E0: 00 00 0B 3E 01 8B C3 28 53 52 24 29 B3 43 54 A7 |...>...(SR$).CT.|
000002F0: 53 52 24 B2 53 52 24 AA 22 2A 22 3A 89 33 31 38 |SR$.SR$."*":.318|
00000300: 00 06 0B 3F 01 8E 00 1C 0B 5E 01 9F 34 2C 34 3A |...?.....^..4,4:|
00000310: 98 34 2C 53 52 24 3B 3A A0 34 3A 8E 00 2D 0B 68 |.4,SR$;:.4:..-.h|
00000320: 01 9F 34 2C 34 3A 98 34 3A A0 34 3A 8E 00 51 0B |..4,4:.4:.4:..Q.|
00000330: E8 03 41 B2 35 30 30 3A 89 32 30 3A 8F 20 53 55 |..A.500:.20:. SU|
00000340: 4E 44 4F 57 4E 20 41 4E 44 20 53 55 4E 52 49 53 |NDOWN AND SUNRIS|
00000350: 45 00 71 0B F2 03 8D 31 30 30 3A 99 22 D3 D5 CE |E.q....100:."...|
00000360: D2 C9 D3 C5 20 C1 CE C4 20 D3 D5 CE C4 CF D7 CE |.... ... .......|
00000370: 22 00 8C 0B FC 03 99 22 3D 3D 3D 3D 3D 3D 3D 3D |"......"========|
00000380: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 22 00 B6 0B 06 |==========="....|
00000390: 04 99 3A 99 3A 99 22 C1 20 D0 D2 CF C7 D2 C1 CD |..:.:.". .......|
000003A0: 20 C2 D9 20 D4 C8 CF CD C1 D3 20 C8 CF C6 CD C5 | .. ...... .....|
000003B0: C9 D3 D4 C5 D2 22 00 D7 0B 10 04 99 3A 99 22 20 |....."......:." |
000003C0: 20 20 20 20 20 20 20 20 20 20 20 20 C9 CE 20 C2 | .. .|
000003D0: CF C3 C8 D5 CD 2E 22 00 03 0C 1A 04 99 3A 99 3A |......"......:.:|
000003E0: 99 22 C4 CF 20 D9 CF D5 20 D7 C1 CE D4 20 C5 D8 |.".. ... .... ..|
000003F0: D0 CC C1 CE C1 D4 C9 CF CE D3 20 28 D9 2F CE 29 |.......... (./.)|
00000400: 3F 22 3B 00 0C 0C 24 04 8D 32 30 30 00 33 0C 2E |?";...$..200.3..|
00000410: 04 8B 28 49 4E 24 B2 22 D9 22 29 20 B0 28 49 4E |..(IN$.".") .(IN|
00000420: 24 B2 22 59 22 29 20 A7 8D 32 30 30 30 3A 89 31 |$."Y") ..2000:.1|
00000430: 31 30 30 00 53 0C 38 04 8B 28 49 4E 24 B2 22 CE |100.S.8..(IN$.".|
00000440: 22 29 20 B0 28 49 4E 24 B2 22 4E 22 29 20 A7 31 |") .(IN$."N") .1|
00000450: 31 30 30 00 5D 0C 42 04 89 31 30 36 30 00 6E 0C |100.].B..1060.n.|
00000460: 4C 04 50 58 B2 33 2E 31 34 31 35 39 32 36 00 78 |L.PX.3.1415926.x|
00000470: 0C 56 04 89 31 32 37 30 00 8F 0C 60 04 8F 20 53 |.V..1270...`.. S|
00000480: 55 42 52 4F 55 54 49 4E 45 20 53 49 4E 55 53 00 |UBROUTINE SINUS.|
00000490: A1 0C 6A 04 59 B2 BF 28 58 AC 50 58 AD 31 38 30 |..j.Y..(X.PX.180|
000004A0: 29 00 A7 0C 74 04 8E 00 C0 0C 7E 04 8F 20 53 55 |)...t.....~.. SU|
000004B0: 42 52 4F 55 54 49 4E 45 20 43 4F 53 49 4E 55 53 |BROUTINE COSINUS|
000004C0: 00 D2 0C 88 04 59 B2 BE 28 58 AC 50 58 AD 31 38 |.....Y..(X.PX.18|
000004D0: 30 29 00 D8 0C 92 04 8E 00 F1 0C 9C 04 8F 20 53 |0)............ S|
000004E0: 55 42 52 4F 55 54 49 4E 45 20 54 41 4E 47 45 4E |UBROUTINE TANGEN|
000004F0: 53 00 03 0D A6 04 59 B2 C0 28 58 AC 50 58 AD 31 |S.....Y..(X.PX.1|
00000500: 38 30 29 00 09 0D B0 04 8E 00 27 0D BA 04 8F 20 |80).......'.... |
00000510: 53 55 42 52 4F 55 54 49 4E 45 20 41 52 43 55 53 |SUBROUTINE ARCUS|
00000520: 43 4F 53 49 4E 55 53 00 3B 0D C4 04 8B B6 28 58 |COSINUS.;.....(X|
00000530: 29 B1 31 20 A7 58 B2 B4 28 58 29 00 4B 0D CE 04 |).1 .X..(X).K...|
00000540: 8B 58 B2 31 20 A7 59 B2 30 3A 8E 00 5E 0D D8 04 |.X.1 .Y.0:..^...|
00000550: 8B 58 B2 AB 31 20 A7 59 B2 31 38 30 3A 8E 00 83 |.X..1 .Y.180:...|
00000560: 0D E2 04 59 B2 AB C1 28 58 AD BA 28 31 AB 58 AE |...Y...(X..(1.X.|
00000570: 32 29 29 AA 50 58 AD 32 3A 59 B2 59 AC 31 38 30 |2)).PX.2:Y.Y.180|
00000580: AD 50 58 00 89 0D EC 04 8E 00 92 0D F6 04 8D 31 |.PX............1|
00000590: 30 30 00 B5 0D 00 05 99 22 C1 D2 C5 20 D4 C8 C5 |00......"... ...|
000005A0: 20 C3 CF CF D2 C4 C9 CE C1 D4 C5 D3 20 CF C6 20 | ........... .. |
000005B0: D9 CF D5 D2 22 00 BB 0D 0A 05 99 00 E0 0D 14 05 |...."...........|
000005C0: 99 22 C3 C8 CF D3 C5 CE 20 D0 CC C1 C3 C5 20 C9 |."...... ..... .|
000005D0: CE 20 C4 C1 D4 C1 2D CC C9 CE C5 D3 20 CF D2 22 |. ....-..... .."|
000005E0: 00 E6 0D 1E 05 99 00 07 0E 28 05 99 22 C4 CF 20 |.........(..".. |
000005F0: D9 CF D5 20 D7 C1 CE D4 20 D4 CF 20 C5 CE D4 C5 |... .... .. ....|
00000600: D2 20 D4 C8 C5 CD 22 00 0D 0E 32 05 99 00 26 0E |. ...."...2...&.|
00000610: 3C 05 99 22 C2 D9 20 C8 C1 CE C4 3A 27 C4 27 3D |<..".. ....:'.'=|
00000620: C4 C1 D4 C1 2C 22 00 2C 0E 46 05 99 00 47 0E 50 |....,".,.F...G.P|
00000630: 05 99 22 20 20 20 20 20 20 20 20 27 C8 27 3D C2 |.." '.'=.|
00000640: D9 20 C8 C1 CE C4 22 00 4D 0E 5A 05 99 00 6B 0E |. ....".M.Z...k.|
00000650: 64 05 99 22 20 20 20 20 20 20 20 20 27 C5 27 3D |d.." '.'=|
00000660: C5 CE C4 20 CF C6 20 D0 C7 CD 22 00 71 0E 6E 05 |... .. ...".q.n.|
00000670: 99 00 81 0E 78 05 8D 32 31 30 3A 41 24 B2 49 4E |....x..210:A$.IN|
00000680: 24 00 9F 0E 82 05 8B 28 41 24 B2 22 C4 22 29 20 |$......(A$.".") |
00000690: B0 28 41 24 B2 22 44 22 29 20 A7 31 34 35 30 00 |.(A$."D") .1450.|
000006A0: BD 0E 8C 05 8B 28 41 24 B2 22 C8 22 29 20 B0 28 |.....(A$.".") .(|
000006B0: 41 24 B2 22 48 22 29 20 A7 31 34 39 30 00 D8 0E |A$."H") .1490...|
000006C0: 96 05 8B 28 41 24 B2 22 C5 22 29 20 B0 28 41 24 |...(A$.".") .(A$|
000006D0: B2 22 45 22 29 20 A7 80 00 FA 0E A0 05 8D 31 30 |."E") ........10|
000006E0: 30 3A 99 22 D7 D2 CF CE C7 20 C5 CE D4 D2 D9 22 |0:."..... ....."|
000006F0: 3A 99 3A 99 3A 89 31 32 38 30 00 09 0F AA 05 8F |:.:.:.1280......|
00000700: 20 49 4E 20 44 41 54 41 53 00 12 0F B4 05 8D 31 | IN DATAS......1|
00000710: 30 30 00 3B 0F BE 05 8C 3A 87 42 52 2C 4C 41 3A |00.;....:.BR,LA:|
00000720: 8F 20 42 52 3D 4C 41 54 49 54 55 44 45 2C 20 4C |. BR=LATITUDE, L|
00000730: 41 3D 4C 4F 4E 47 49 54 55 44 45 00 45 0F C8 05 |A=LONGITUDE.E...|
00000740: 89 31 35 35 30 00 4E 0F D2 05 8D 31 30 30 00 7B |.1550.N....100.{|
00000750: 0F DC 05 99 22 CC C1 D4 C9 D4 D5 C4 C5 20 3A 20 |...."........ : |
00000760: D0 CC C5 C1 D3 C5 20 C4 C5 C3 C9 CD C1 CC 20 28 |...... ....... (|
00000770: CE 3D 2B 2C D3 3D 2D 29 22 3A 99 00 83 0F E6 05 |.=+,.=-)":......|
00000780: 85 42 52 00 89 0F F0 05 99 00 B6 0F FA 05 99 22 |.BR............"|
00000790: CC CF CE C7 C9 D4 D5 C4 C5 3A 20 D0 CC C5 C1 D3 |.........: .....|
000007A0: C5 20 C4 C5 C3 C9 CD C1 CC 20 28 D7 3D 2B 2C C5 |. ....... (.=+,.|
000007B0: 3D 2D 29 22 3A 99 00 BE 0F 04 06 85 4C 41 00 C4 |=-)":.......LA..|
000007C0: 0F 0E 06 99 00 E6 0F 18 06 99 22 C6 CF D2 20 D7 |.........."... .|
000007D0: C8 C9 C3 C8 20 C4 C1 D9 20 28 31 2E 2E 33 31 29 |.... ... (1..31)|
000007E0: 22 3A 99 3A 85 44 00 FD 0F 22 06 99 3A 8B 44 B1 |":.:.D..."..:.D.|
000007F0: 33 31 20 B0 44 B3 31 20 A7 31 35 36 30 00 26 10 |31 .D.1 .1560.&.|
00000800: 2C 06 99 22 D0 CC C5 C1 D3 C5 20 C5 CE D4 C5 D2 |,.."...... .....|
00000810: 20 CD CF CE D4 C8 20 C1 D3 20 CE D5 CD C2 C5 D2 | ..... .. ......|
00000820: 22 3A 99 3A 85 4D 00 3D 10 36 06 99 3A 8B 4D B1 |":.:.M.=.6..:.M.|
00000830: 31 32 20 B0 4D B3 31 20 A7 31 35 38 30 00 58 10 |12 .M.1 .1580.X.|
00000840: 40 06 54 B2 30 2E 39 38 38 AC 28 44 AA 33 30 2E |@.T.0.988.(D.30.|
00000850: 33 AC 28 4D AB 31 29 29 00 69 10 4A 06 58 B2 54 |3.(M.1)).i.J.X.T|
00000860: AA 31 30 3A 8D 31 31 35 30 00 77 10 54 06 44 31 |.10:.1150.w.T.D1|
00000870: B2 59 AC 32 33 2E 35 00 8C 10 5E 06 58 B2 28 54 |.Y.23.5...^.X.(T|
00000880: AA 31 30 29 AC 32 3A 8D 31 31 32 30 00 95 10 68 |.10).2:.1120...h|
00000890: 06 53 31 B2 59 00 A6 10 72 06 58 B2 54 AA 38 37 |.S1.Y...r.X.T.87|
000008A0: 3A 8D 31 31 35 30 00 BA 10 7C 06 45 54 B2 30 2E |:.1150...|.ET.0.|
000008B0: 31 32 33 AC 59 AB 53 31 AD 36 00 C9 10 86 06 58 |123.Y.S1.6.....X|
000008C0: B2 42 52 3A 8D 31 31 38 30 00 D2 10 90 06 53 32 |.BR:.1180.....S2|
000008D0: B2 59 00 E1 10 9A 06 58 B2 44 31 3A 8D 31 31 38 |.Y.....X.D1:.118|
000008E0: 30 00 EC 10 A4 06 58 B2 59 AC 53 32 00 F6 10 AE |0.....X.Y.S2....|
000008F0: 06 8D 31 32 31 30 00 0D 11 B8 06 47 41 B2 28 4C |..1210.....GA.(L|
00000900: 41 AB 59 29 AD 31 35 AB 45 54 AA 31 32 00 24 11 |A.Y).15.ET.12.$.|
00000910: C2 06 47 55 B2 28 4C 41 AA 59 29 AD 31 35 AB 45 |..GU.(LA.Y).15.E|
00000920: 54 AA 31 32 00 31 11 CC 06 48 31 B2 B5 28 47 41 |T.12.1...H1..(GA|
00000930: 29 00 46 11 D6 06 4D 31 B2 B5 28 28 47 41 AB 48 |).F...M1..((GA.H|
00000940: 31 29 AC 36 30 29 00 53 11 E0 06 48 32 B2 B5 28 |1).60).S...H2..(|
00000950: 47 55 29 00 68 11 EA 06 4D 32 B2 B5 28 28 47 55 |GU).h...M2..((GU|
00000960: AB 48 32 29 AC 36 30 29 00 71 11 F4 06 8D 31 30 |.H2).60).q....10|
00000970: 30 00 94 11 FE 06 53 55 24 B2 22 22 3A 53 52 B2 |0.....SU$."":SR.|
00000980: 4D 31 3A 8D 33 30 30 3A 4D 31 24 B2 CA 28 53 52 |M1:.300:M1$..(SR|
00000990: 24 2C 32 29 00 AB 11 08 07 8B C3 28 4D 31 24 29 |$,2).......(M1$)|
000009A0: B3 32 20 A7 53 55 24 B2 22 30 22 00 C4 11 12 07 |.2 .SU$."0".....|
000009B0: 53 52 B2 48 31 3A 43 54 B2 32 3A 43 4E B2 30 3A |SR.H1:CT.2:CN.0:|
000009C0: 8D 33 31 30 00 EA 11 1C 07 99 22 D3 D5 CE D2 C9 |.310......".....|
000009D0: D3 C5 3A 22 3B 53 52 24 3B 22 3A 22 3B 53 55 24 |..:";SR$;":";SU$|
000009E0: 3B 4D 31 24 22 20 C7 CD D4 22 00 F0 11 26 07 99 |;M1$" ..."...&..|
000009F0: 00 13 12 30 07 53 55 24 B2 22 22 3A 53 52 B2 4D |...0.SU$."":SR.M|
00000A00: 32 3A 8D 33 30 30 3A 4D 32 24 B2 CA 28 53 52 24 |2:.300:M2$..(SR$|
00000A10: 2C 32 29 00 2A 12 3A 07 8B C3 28 4D 32 24 29 B3 |,2).*.:...(M2$).|
00000A20: 32 20 A7 53 55 24 B2 22 30 22 00 43 12 44 07 53 |2 .SU$."0".C.D.S|
00000A30: 52 B2 48 32 3A 43 54 B2 32 3A 43 4E B2 30 3A 8D |R.H2:CT.2:CN.0:.|
00000A40: 33 31 30 00 69 12 4E 07 99 22 D3 D5 CE C4 CF D7 |310.i.N.."......|
00000A50: CE 3A 22 3B 53 52 24 3B 22 3A 22 3B 53 55 24 3B |.:";SR$;":";SU$;|
00000A60: 4D 32 24 22 20 C7 CD D4 22 00 6F 12 58 07 99 00 |M2$" ...".o.X...|
00000A70: 79 12 62 07 89 31 32 38 30 00 8C 12 D0 07 8F 20 |y.b..1280...... |
00000A80: 45 58 50 4C 41 4E 41 54 49 4F 4E 53 00 95 12 DA |EXPLANATIONS....|
00000A90: 07 8D 31 30 30 00 B7 12 E4 07 99 22 D4 C8 C9 D3 |..100......"....|
00000AA0: 20 D0 D2 CF C7 D2 C1 CD 20 C5 D6 C1 CC D5 C1 D4 | ....... .......|
00000AB0: C5 D3 20 C6 CF D2 22 00 DF 12 EE 07 99 3A 99 22 |.. ..."......:."|
00000AC0: C1 20 D0 CC C1 C3 C5 20 D7 C8 C9 C3 C8 20 C9 D3 |. ..... ..... ..|
00000AD0: 20 C3 C8 CF D3 C5 CE 20 C2 D9 20 D9 CF D5 22 00 | ...... .. ...".|
00000AE0: 01 13 F8 07 99 3A 99 22 D4 C8 C5 20 D4 C9 CD C5 |.....:."... ....|
00000AF0: D3 20 CF C6 20 D3 D5 CE C4 CF D7 CE 20 C1 CE C4 |. .. ....... ...|
00000B00: 22 00 13 13 02 08 99 3A 99 22 D3 D5 CE D2 C9 D3 |"......:."......|
00000B10: C5 2E 22 00 34 13 0C 08 99 3A 99 22 D4 C8 C5 D2 |..".4....:."....|
00000B20: C5 C6 CF D2 C5 2C 20 D9 CF D5 20 C8 C1 D6 C5 20 |....., ... .... |
00000B30: D4 CF 20 22 00 5F 13 16 08 99 3A 99 22 CB CE CF |.. "._....:."...|
00000B40: D7 20 D4 C8 C5 20 C7 C5 CF C7 D2 C1 D0 C8 C9 C3 |. ... ..........|
00000B50: 20 CC CF CE C7 C9 D4 D5 C4 C5 20 C1 CE C4 22 00 | ......... ...".|
00000B60: 7F 13 20 08 99 3A 99 22 CC C1 D4 C9 D4 D5 C4 C5 |.. ..:."........|
00000B70: 20 CF C6 20 D4 C8 C5 20 D0 CC C1 C3 C5 2E 22 00 | .. ... ......".|
00000B80: 89 13 2A 08 8D 32 31 38 30 00 B3 13 34 08 99 3A |..*..2180...4..:|
00000B90: 99 22 C6 CF D2 20 D2 C5 D0 C5 C1 D4 C5 C4 20 C5 |."... ........ .|
00000BA0: D6 C1 CC D5 C1 D4 C9 CF CE 20 C6 CF D2 20 CF CE |......... ... ..|
00000BB0: C5 20 22 00 DE 13 3E 08 99 3A 99 22 D0 C1 D2 D4 |. "...>..:."....|
00000BC0: C9 C3 D5 CC C1 D2 20 D0 CC C1 C3 C5 20 D9 CF D5 |...... ..... ...|
00000BD0: 20 C3 C1 CE 20 D0 D5 D4 20 D4 C8 C1 D4 22 00 03 | ... ... ...."..|
00000BE0: 14 48 08 99 3A 99 22 C9 CE C6 CF D2 CD C1 D4 C9 |.H..:.".........|
00000BF0: CF CE 20 C9 CE D4 CF 20 C4 C1 D4 C1 2D CC C9 CE |.. .... ....-...|
00000C00: C5 D3 22 00 1C 14 52 08 99 3A 99 22 28 C9 CE 20 |.."...R..:."(.. |
00000C10: CC C9 CE C5 20 32 35 34 30 30 29 22 00 26 14 5C |.... 25400)".&.\|
00000C20: 08 8D 32 31 38 30 00 2C 14 66 08 8E 00 32 14 70 |..2180.,.f...2.p|
00000C30: 08 8F 00 38 14 7A 08 8F 00 4C 14 84 08 56 45 B2 |...8.z...L...VE.|
00000C40: 32 30 3A 48 4F B2 31 3A 8D 31 31 30 00 6C 14 8E |20:HO.1:.110.l..|
00000C50: 08 99 22 D0 D2 C5 D3 D3 20 C1 20 CB C5 D9 20 D4 |.."..... . ... .|
00000C60: CF 20 C3 CF CE D4 C9 CE D5 C5 22 3B 00 7C 14 98 |. ........";.|..|
00000C70: 08 8D 32 31 30 3A 8D 31 30 30 3A 8E 00 95 14 A8 |..210:.100:.....|
00000C80: 61 8F 20 45 58 41 4D 50 4C 45 20 46 4F 52 20 42 |a. EXAMPLE FOR B|
00000C90: 4F 43 48 55 4D 00 B5 14 B2 61 8F 20 31 2E 20 4C |OCHUM....a. 1. L|
00000CA0: 41 54 49 54 55 44 45 2C 20 32 2E 20 4C 4F 4E 47 |ATITUDE, 2. LONG|
00000CB0: 49 54 55 44 45 00 BB 14 BC 61 8F 00 CA 14 C6 61 |ITUDE....a.....a|
00000CC0: 83 35 31 2E 35 2C 2D 37 2E 32 00 D0 14 D0 61 8F |.51.5,-7.2....a.|
00000CD0: 00 F2 14 30 75 8F 20 42 41 53 49 43 4F 44 45 2D |...0u. BASICODE-|
00000CE0: 50 52 4F 47 52 41 4D 20 57 52 49 54 54 45 4E 20 |PROGRAM WRITTEN |
00000CF0: 4F 4E 00 08 15 3A 75 8F 20 43 4F 4D 4D 4F 44 4F |ON...:u. COMMODO|
00000D00: 52 45 20 36 34 20 42 59 00 0E 15 44 75 8F 00 26 |RE 64 BY...Du..&|
00000D10: 15 4E 75 8F 20 54 48 4F 4D 41 53 20 48 4F 46 4D |.Nu. THOMAS HOFM|
00000D20: 45 49 53 54 45 52 00 3E 15 58 75 8F 20 57 49 54 |EISTER.>.Xu. WIT|
00000D30: 54 45 4E 42 45 52 47 53 54 52 2E 20 32 35 00 52 |TENBERGSTR. 25.R|
00000D40: 15 62 75 8F 20 34 36 33 30 20 42 4F 43 48 55 4D |.bu. 4630 BOCHUM|
00000D50: 20 37 00 65 15 6C 75 8F 20 57 45 53 54 2D 47 45 | 7.e.lu. WEST-GE|
00000D60: 52 4D 41 4E 59 00 6B 15 76 75 8F 00 7F 15 80 75 |RMANY.k.vu.....u|
00000D70: 8F 20 49 4E 20 41 55 47 55 53 54 20 27 38 33 00 |. IN AUGUST '83.|
00000D80: 85 15 8A 75 8F 00 A4 15 18 79 8F 20 43 4F 50 59 |...u.....y. COPY|
00000D90: 52 49 47 48 54 20 4E 4F 53 20 20 48 49 4C 56 45 |RIGHT NOS HILVE|
00000DA0: 52 53 55 4D 00 00 00 C9 FF 48 00 37 DC 53 |RSUM.....H.7.S |
......."..":.53280,5:.53281,6.3...RL.40:
SH.25:.1000.=....1010.I.D..".";:..V.N..K
L.0.KL.17..J("................",KL,1);..
.O..H(".........................",.(.(VE
.1)));...P....(HO));:....X.HO.B(209).256
.B(210).1024.B(211)...Y.VE..(HO.40):HO.H
O.40.VE:....H..IN$:....R..IN$:.IN$."".21
0.......L....54296,15:.54278,255:.54273,
95:.54276,17.^....OO.1.200:.OO.....5427
6,0:.54277,0:.54278,0:......RV..(1):....
..FR..(0):..D.,.SR$.D(SR):.H(SR$,1)." ".
SR$.J(SR$,2).J.-.....6.SR$."":.SR..10.(C
T.CN..(CN)).318...7..SR...5.10..CN.SR$."
-".1.8.SR$.SR$.J(D(.(.(SR)..5.10..CN)),2
).\.9..C(SR$).CT.CN.(CN..0).SR$." ".SR$:
.313.V.:..CN.0..(SR)..1E10.316...;.SR$.S
R$.J(D(1..(SR)..(.(SR))..5.10..CN),3,CN.
1).J.<..C(SR$).CT.SR$.SR$." ":.316...=..
C(SR$).CT.SR$.""...>..C(SR$).CT.SR$.SR$.
"*":.318...?.....^..4,4:.4,SR$;: 4:..-.H
..4,4:.4: 4:..Q...A.500:.20:. SUNDOWN AN
D SUNRISE.Q....100:."SUNRISE AND SUNDOWN
"......"==================="......:.:."A
PROGRAM BY THOMAS HOFMEISTER".W....:."
IN BOCHUM."......:.:."DO YOU
WANT EXPLANATIONS (Y/N)?";...$..200.3..
..(IN$."Y") .(IN$."Y") ..2000:.1100.S.8.
.(IN$."N") .(IN$."N") .1100.].B..1060.N.
L.PX.3.1415926.X.V..1270...`.. SUBROUTIN
E SINUS...J.Y..(X.PX.180)...T.....~.. SU
BROUTINE COSINUS.R...Y..(X.PX.180).X....
...... SUBROUTINE TANGENS.....Y..(X.PX.1
80).......'.... SUBROUTINE ARCUSCOSINUS.
;.D...(X).1 .X..(X).K.N..X.1 .Y.0:..^.X.
.X..1 .Y.180:......Y..A(X..(1.X.2)).PX.2
:Y.Y.180.PX............100......"ARE THE
COORDINATES OF YOUR"............"CHOSEN
PLACE IN DATA-LINES OR".........(.."DO
YOU WANT TO ENTER THEM"...2...&.<.."BY H
AND:'D'=DATA,".,.F...G.P.." 'H'=B
Y HAND".M.Z...K.D.." 'E'=END OF P
GM".Q.N.....X..210:A$.IN$......(A$."D")
.(A$."D") .1450......(A$."H") .(A$."H")
.1490.X....(A$."E") .(A$."E") ..... ..10
0:."WRONG ENTRY":.:.:.1280...... IN DATA
S......100.;....:.BR,LA:. BR=LATITUDE, L
A=LONGITUDE.E.H..1550.N.R..100.{...."LAT
ITUDE : PLEASE DECIMAL (N=+,S=-)":......
.BR............"LONGITUDE: PLEASE DECIMA
L (W=+,E=-)":.......LA.D.........."FOR W
HICH DAY (1..31)":.:.D..."..:.D.31 .D.1
.1560.&.,.."PLEASE ENTER MONTH AS NUMBER
":.:.M.=.6..:.M.12 .M.1 .1580.X.@.T.0.98
8.(D.30.3.(M.1)).I.J.X.T.10:.1150.W.T.D1
.Y.23.5...^.X.(T.10).2:.1120...H.S1.Y...
R.X.T.87:.1150...|.ET.0.123.Y.S1.6.I...X
.BR:.1180.R...S2.Y.....X.D1:.1180.....X.
Y.S2......1210.....GA.(LA.Y).15.ET.12.$.
B.GU.(LA.Y).15.ET.12.1.L.H1..(GA).F.V.M1
..((GA.H1).60).S...H2..(GU).H...M2..((GU
.H2).60).Q....100.....SU$."":SR.M1:.300:
M1$.J(SR$,2)......C(M1$).2 .SU$."0".D...
SR.H1:CT.2:CN.0:.310......"SUNRISE:";SR$
;":";SU$;M1$" GMT"...&.....0.SU$."":SR.M
2:.300:M2$.J(SR$,2).*.:..C(M2$).2 .SU$."
0".C.D.SR.H2:CT.2:CN.0:.310.I.N.."SUNDOW
N:";SR$;":";SU$;M2$" GMT".O.X...Y.B..128
0...P.. EXPLANATIONS...Z..100......"THIS
PROGRAM EVALUATES FOR"......:."A PLACE
WHICH IS CHOSEN BY YOU"......:."THE TIME
S OF SUNDOWN AND"......:."SUNRISE.".4...
.:."THEREFORE, YOU HAVE TO "._....:."KNO
W THE GEOGRAPHIC LONGITUDE AND".. ..:."
LATITUDE OF THE PLACE."...*..2180...4..:
."FOR REPEATED EVALUATION FOR ONE "...>.
.:."PARTICULAR PLACE YOU CAN PUT THAT"..
.H..:."INFORMATION INTO DATA-LINES"...R.
.:."(IN LINE 25400)".&.\..2180.,.F...2.P
...8.Z...L...VE.20:HO.1:.110.L...."PRESS
A KEY TO CONTINUE";.|....210:.100:.....
A. EXAMPLE FOR BOCHUM....A. 1. LATITUDE,
2. LONGITUDE....A..J.FA.51.5,-7.2.P.PA.
...0U. BASICODE-PROGRAM WRITTEN ON...:U.
COMMODORE 64 BY...DU..&.NU. THOMAS HOFM
EISTER.>.XU. WITTENBERGSTR. 25.R.BU. 463
0 BOCHUM 7.E.LU. WEST-GERMANY.K.VU....U
. IN AUGUST '83....U.....Y. COPYRIGHT NO
S HILVERSUM...I.H.7.S
> CLICK IMAGE PREVIEW FOR FULL MODAL