SUNRISE CHART
FILE INFORMATION
FILENAME(S): SUNRISE CHART
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
7f6c548a45ddae79804eab925c9b00aa271efdb474fed99ba494fddf6655c124
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | SUNRISE CHART | PRG | Curtcool, Bo | 3 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2D 08 0A 00 8F 20 57 4F 52 4C 44 57 49 44 |..-.... WORLDWID|
00000010: 45 20 53 55 4E 52 49 53 45 20 43 48 41 52 54 20 |E SUNRISE CHART |
00000020: 50 52 4F 47 52 41 4D 20 28 43 36 34 29 00 6A 08 |PROGRAM (C64).j.|
00000030: 0C 00 8F 20 50 52 49 4E 54 53 20 41 20 43 48 41 |... PRINTS A CHA|
00000040: 52 54 20 4F 46 20 53 55 4E 52 49 53 45 2F 53 55 |RT OF SUNRISE/SU|
00000050: 4E 53 45 54 20 54 49 4D 45 53 20 46 4F 52 20 41 |NSET TIMES FOR A|
00000060: 4E 59 20 4F 4E 45 20 44 41 59 00 A3 08 0E 00 8F |NY ONE DAY......|
00000070: 20 42 59 20 4B 43 36 41 20 41 4E 44 20 4E 36 4E | BY KC6A AND N6N|
00000080: 42 3B 20 28 43 29 20 31 39 38 33 20 42 59 20 48 |B; (C) 1983 BY H|
00000090: 41 59 44 45 4E 20 42 4F 4F 4B 20 43 4F 2E 2C 49 |AYDEN BOOK CO.,I|
000000A0: 4E 43 2E 00 B0 08 14 00 9F 31 35 2C 38 2C 31 35 |NC.......15,8,15|
000000B0: 00 D0 08 16 00 9F 31 33 2C 34 3A 8F 20 56 49 43 |......13,4:. VIC|
000000C0: 20 50 52 49 4E 54 45 52 20 43 48 41 4E 4E 45 4C | PRINTER CHANNEL|
000000D0: 00 FE 08 1E 00 42 31 24 B2 20 22 53 55 4E 52 49 |.....B1$. "SUNRI|
000000E0: 53 45 2F 53 55 4E 53 45 54 20 43 41 4C 43 55 4C |SE/SUNSET CALCUL|
000000F0: 41 54 49 4F 4E 20 50 52 4F 47 52 41 4D 22 00 2E |ATION PROGRAM"..|
00000100: 09 20 00 42 32 24 B2 20 22 46 4F 52 20 44 58 43 |. .B2$. "FOR DXC|
00000110: 43 20 43 4F 55 4E 54 52 49 45 53 20 50 4C 55 53 |C COUNTRIES PLUS|
00000120: 20 4D 41 4A 4F 52 20 43 49 54 49 45 53 22 00 7B | MAJOR CITIES".{|
00000130: 09 22 00 42 33 24 B2 20 22 20 20 20 20 20 41 4C |.".B3$. " AL|
00000140: 4C 20 54 49 4D 45 53 20 41 52 45 20 49 4E 20 47 |L TIMES ARE IN G|
00000150: 4D 54 3B 20 53 4F 4D 45 20 4D 41 59 20 42 45 20 |MT; SOME MAY BE |
00000160: 4E 45 58 54 20 28 4F 52 20 50 52 45 56 49 4F 55 |NEXT (OR PREVIOU|
00000170: 53 29 20 47 4D 54 20 44 41 59 22 00 B1 09 28 00 |S) GMT DAY"...(.|
00000180: 8F 20 4C 41 54 4C 4F 4E 47 20 44 41 54 41 20 46 |. LATLONG DATA F|
00000190: 49 4C 45 20 4D 55 53 54 20 42 45 20 4F 4E 20 4C |ILE MUST BE ON L|
000001A0: 4F 47 47 45 44 20 44 49 53 4B 20 44 52 49 56 45 |OGGED DISK DRIVE|
000001B0: 2E 00 F8 09 3C 00 8F 20 54 49 4D 45 53 20 47 49 |....<.. TIMES GI|
000001C0: 56 45 4E 20 41 52 45 20 46 4F 52 20 41 43 54 55 |VEN ARE FOR ACTU|
000001D0: 41 4C 20 53 55 4E 52 49 53 45 2F 53 55 4E 53 45 |AL SUNRISE/SUNSE|
000001E0: 54 3B 20 41 50 50 41 52 45 4E 54 20 54 49 4D 45 |T; APPARENT TIME|
000001F0: 53 20 44 49 46 46 45 52 00 2A 0A 46 00 8F 20 42 |S DIFFER.*.F.. B|
00000200: 59 20 35 2D 37 20 4D 49 4E 53 2E 20 44 55 45 20 |Y 5-7 MINS. DUE |
00000210: 54 4F 20 41 54 4D 4F 53 50 48 45 52 49 43 20 52 |TO ATMOSPHERIC R|
00000220: 45 46 52 41 43 54 49 4F 4E 2E 00 48 0A 50 00 99 |EFRACTION..H.P..|
00000230: 20 C7 28 31 34 37 29 3A 99 3A 8F 20 43 4C 45 41 | .(147):.:. CLEA|
00000240: 52 20 53 43 52 45 45 4E 00 84 0A 5A 00 46 24 B2 |R SCREEN...Z.F$.|
00000250: 22 20 20 20 20 20 50 52 45 46 49 58 20 20 20 20 |" PREFIX |
00000260: 20 20 20 20 20 20 4C 4F 43 41 54 49 4F 4E 20 20 | LOCATION |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 53 55 4E 52 | SUNR|
00000280: 49 53 45 22 00 AA 0A 5C 00 46 24 B2 46 24 AA 22 |ISE"...\.F$.F$."|
00000290: 20 20 20 20 53 55 4E 53 45 54 20 20 20 48 52 53 | SUNSET HRS|
000002A0: 20 53 55 4E 4C 49 47 48 54 22 00 C5 0A 64 00 99 | SUNLIGHT"...d..|
000002B0: 20 22 20 20 20 22 3B 42 31 24 3A 99 20 22 20 20 | " ";B1$:. " |
000002C0: 22 3B 42 32 24 00 CF 0A 6E 00 99 3A 99 3A 99 00 |";B2$...n..:.:..|
000002D0: FD 0A 78 00 99 20 22 45 4E 54 45 52 20 4D 4F 4E |..x.. "ENTER MON|
000002E0: 54 48 20 41 4E 44 20 44 41 59 20 46 4F 52 20 54 |TH AND DAY FOR T|
000002F0: 48 49 53 20 50 52 49 4E 54 4F 55 54 22 00 17 0B |HIS PRINTOUT"...|
00000300: 7A 00 85 20 22 20 20 28 45 2E 47 2E 20 37 2C 34 |z.. " (E.G. 7,4|
00000310: 29 22 3B 4D 2C 44 41 00 3D 0B 82 00 99 3A 85 20 |)";M,DA.=....:. |
00000320: 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 20 48 |"DO YOU WANT A H|
00000330: 41 52 44 20 43 4F 50 59 22 3B 4C 50 24 00 45 0B |ARD COPY";LP$.E.|
00000340: 8C 00 99 3A 99 00 5A 0B 96 00 8B 20 4C 50 24 B3 |...:..Z.... LP$.|
00000350: B1 22 59 22 20 A7 20 32 30 30 00 73 0B A0 00 81 |."Y" . 200.s....|
00000360: 20 4A B2 31 20 A4 20 35 3A 98 31 33 2C 22 22 3A | J.1 . 5:.13,"":|
00000370: 82 20 4A 00 A3 0B AA 00 98 31 33 2C 22 22 3B A6 |. J......13,"";.|
00000380: 32 31 29 42 31 24 3A 98 31 33 2C 22 22 3B A6 32 |21)B1$:.13,"";.2|
00000390: 30 29 42 32 24 3A 98 31 33 2C 22 22 3A 98 31 33 |0)B2$:.13,"":.13|
000003A0: 2C 22 22 00 DE 0B B4 00 98 31 33 2C 22 20 20 20 |,""......13," |
000003B0: 20 20 54 48 49 53 20 50 52 49 4E 54 4F 55 54 20 | THIS PRINTOUT |
000003C0: 49 53 20 46 4F 52 20 54 48 45 20 46 4F 4C 4C 4F |IS FOR THE FOLLO|
000003D0: 57 49 4E 47 20 44 41 54 45 20 2D 2D 22 3B 00 FB |WING DATE --";..|
000003E0: 0B B6 00 98 31 33 2C 22 20 20 22 3B 4D 3B 22 2F |....13," ";M;"/|
000003F0: 22 3B 44 41 3A 98 31 33 2C 22 22 00 15 0C BE 00 |";DA:.13,"".....|
00000400: 98 31 33 2C 22 22 3A 98 31 33 2C 42 33 24 3A 98 |.13,"":.13,B3$:.|
00000410: 31 33 2C 22 22 00 2E 0C C0 00 98 31 33 2C 22 22 |13,""......13,""|
00000420: 3A 98 31 33 2C 46 24 3A 98 31 33 2C 22 22 00 4C |:.13,F$:.13,"".L|
00000430: 0C C8 00 52 41 44 B2 35 37 2E 32 39 35 38 3A 50 |...RAD.57.2958:P|
00000440: 31 B2 33 2E 31 34 31 35 39 AD 32 36 00 58 0C D2 |1.3.14159.26.X..|
00000450: 00 86 20 4E 28 31 32 29 00 67 0C DC 00 81 20 49 |.. N(12).g.... I|
00000460: B2 31 20 A4 20 31 32 00 72 0C E6 00 87 20 4E 28 |.1 . 12.r.... N(|
00000470: 49 29 00 7A 0C F0 00 82 20 49 00 AB 0C FA 00 83 |I).z.... I......|
00000480: 20 30 2C 33 31 2C 35 39 2C 39 30 2C 31 32 30 2C | 0,31,59,90,120,|
00000490: 31 35 31 2C 31 38 31 2C 32 31 32 2C 32 34 33 2C |151,181,212,243,|
000004A0: 32 37 33 2C 33 30 34 2C 33 33 34 00 D1 0C 04 01 |273,304,334.....|
000004B0: 8F 20 45 58 54 52 41 20 44 41 59 20 49 4E 20 4C |. EXTRA DAY IN L|
000004C0: 45 41 50 20 59 45 41 52 53 20 49 47 4E 4F 52 45 |EAP YEARS IGNORE|
000004D0: 44 00 FD 0C 0E 01 99 20 22 20 20 20 20 20 41 4C |D...... " AL|
000004E0: 4C 20 54 49 4D 45 53 20 41 52 45 20 49 4E 20 55 |L TIMES ARE IN U|
000004F0: 54 43 3B 20 53 4F 4D 45 20 41 52 45 22 00 29 0D |TC; SOME ARE".).|
00000500: 10 01 99 20 22 20 20 20 20 20 20 20 4E 45 58 54 |... " NEXT|
00000510: 20 28 4F 52 20 50 52 45 56 49 4F 55 53 29 20 55 | (OR PREVIOUS) U|
00000520: 54 43 20 44 41 59 22 3A 99 00 43 0D 2C 01 41 24 |TC DAY":..C.,.A$|
00000530: B2 20 22 4E 4F 20 53 55 4E 53 45 54 20 54 4F 44 |. "NO SUNSET TOD|
00000540: 41 59 22 00 5E 0D 36 01 42 24 B2 20 22 4E 4F 20 |AY".^.6.B$. "NO |
00000550: 53 55 4E 52 49 53 45 20 54 4F 44 41 59 22 00 96 |SUNRISE TODAY"..|
00000560: 0D 40 01 99 20 22 50 52 45 46 49 58 20 20 20 20 |.@.. "PREFIX |
00000570: 4C 4F 43 41 54 49 4F 4E 20 20 20 52 49 53 45 20 |LOCATION RISE |
00000580: 20 53 45 54 20 20 48 52 53 20 53 55 4E 22 3A 99 | SET HRS SUN":.|
00000590: 3A 4C 4E B2 31 38 00 AF 0D 4A 01 9F 33 2C 38 2C |:LN.18...J..3,8,|
000005A0: 33 2C 22 4C 41 54 4C 4F 4E 47 2C 53 2C 52 22 00 |3,"LATLONG,S,R".|
000005B0: C4 0D 54 01 58 B2 50 31 AC 28 4E 28 4D 29 AA 44 |..T.X.P1.(N(M).D|
000005C0: 41 29 AD 37 00 F2 0D 5E 01 44 B2 2E 34 35 36 AB |A).7...^.D..456.|
000005D0: 32 32 2E 39 31 35 AC BE 28 58 29 AB 2E 34 33 AC |22.915..(X)..43.|
000005E0: BE 28 32 AC 58 29 AB 2E 31 35 36 AC BE 28 33 AC |.(2.X)..156..(3.|
000005F0: 58 29 00 1B 0E 60 01 44 B2 44 AA 33 2E 38 33 AC |X)...`.D.D.3.83.|
00000600: BF 28 58 29 AA 2E 30 36 AC BF 28 32 AC 58 29 AB |.(X)..06..(2.X).|
00000610: 2E 30 38 32 AC BF 28 33 AC 58 29 00 53 0E 68 01 |.082..(3.X).S.h.|
00000620: 45 B2 2E 30 30 38 AA 2E 35 31 AC BE 28 58 29 AB |E..008..51..(X).|
00000630: 33 2E 31 39 37 AC BE 28 32 AC 58 29 AB 2E 31 30 |3.197..(2.X)..10|
00000640: 36 AC BE 28 33 AC 58 29 AB 2E 31 35 AC BE 28 34 |6..(3.X)..15..(4|
00000650: AC 58 29 00 8B 0E 6A 01 45 B2 45 AB 37 2E 33 31 |.X)...j.E.E.7.31|
00000660: 37 AC BF 28 58 29 AB 39 2E 34 37 31 AC BF 28 32 |7..(X).9.471..(2|
00000670: AC 58 29 AB 2E 33 39 31 AC BF 28 33 AC 58 29 AB |.X)..391..(3.X).|
00000680: 2E 32 34 32 AC BF 28 34 AC 58 29 00 B6 0E 72 01 |.242..(4.X)...r.|
00000690: 8F 20 44 20 49 53 20 44 45 43 4C 49 4E 41 54 49 |. D IS DECLINATI|
000006A0: 4F 4E 20 4F 46 20 53 55 4E 20 49 4E 20 44 45 47 |ON OF SUN IN DEG|
000006B0: 52 45 45 53 3B 20 00 DD 0E 74 01 8F 20 45 20 49 |REES; ...t.. E I|
000006C0: 53 20 45 51 55 41 54 49 4F 4E 20 4F 46 20 54 49 |S EQUATION OF TI|
000006D0: 4D 45 20 49 4E 20 4D 49 4E 55 54 45 53 00 EA 0E |ME IN MINUTES...|
000006E0: 7C 01 44 45 B2 44 AD 52 41 44 00 F6 0E 90 01 4C ||.DE.D.RAD.....L|
000006F0: 4E B2 4C 4E AA 31 00 14 0F 9A 01 8B 20 4C 4E B2 |N.LN.1...... LN.|
00000700: 36 30 20 AF 20 4C 50 24 B2 22 59 22 20 A7 20 8D |60 . LP$."Y" . .|
00000710: 20 37 38 30 00 28 0F A4 01 84 33 2C 50 58 24 2C | 780.(....3,PX$,|
00000720: 51 24 2C 4C 41 2C 4C 4F 00 3E 0F A9 01 8B 20 50 |Q$,LA,LO.>.... P|
00000730: 58 24 B2 22 5A 5A 5A 22 20 A7 20 37 35 30 00 4C |X$."ZZZ" . 750.L|
00000740: 0F AE 01 4C 41 B2 4C 41 AD 52 41 44 00 5E 0F B8 |...LA.LA.RAD.^..|
00000750: 01 59 B2 C0 28 44 45 29 AC C0 28 4C 41 29 00 6E |.Y..(DE)..(LA).n|
00000760: 0F C2 01 8B 20 59 B1 31 20 A7 20 36 39 30 00 7F |.... Y.1 . 690..|
00000770: 0F CC 01 8B 20 59 B3 AB 31 20 A7 20 37 32 30 00 |.... Y..1 . 720.|
00000780: 9D 0F D6 01 41 52 B2 AB C1 28 59 AD BA 28 AB 59 |....AR...(Y..(.Y|
00000790: AC 59 AA 31 29 29 AA 31 2E 35 37 30 38 00 AB 0F |.Y.1)).1.5708...|
000007A0: E0 01 41 43 B2 41 52 AC 52 41 44 00 C9 0F EA 01 |..AC.AR.RAD.....|
000007B0: 52 49 B2 4C 4F AD 31 35 AA 41 43 AD 31 35 3A 52 |RI.LO.15.AC.15:R|
000007C0: 49 B2 52 49 AB 45 AD 36 30 00 E7 0F F4 01 53 45 |I.RI.E.60.....SE|
000007D0: B2 4C 4F AD 31 35 AB 41 43 AD 31 35 3A 53 45 B2 |.LO.15.AC.15:SE.|
000007E0: 53 45 AB 45 AD 36 30 00 F4 0F FE 01 4C 54 B2 53 |SE.E.60.....LT.S|
000007F0: 45 AB 52 49 00 0A 10 08 02 8B 20 4C 54 B3 30 20 |E.RI...... LT.0 |
00000800: A7 20 4C 54 B2 32 34 AA 4C 54 00 39 10 12 02 8B |. LT.24.LT.9....|
00000810: 20 28 4C 54 AB B5 28 4C 54 29 29 B1 2E 39 39 20 | (LT..(LT))..99 |
00000820: A7 20 4C 54 B2 28 B5 28 28 4C 54 AC 31 30 30 29 |. LT.(.((LT.100)|
00000830: AA 2E 36 29 29 AD 31 30 30 00 46 10 1C 02 4C 48 |..6)).100.F...LH|
00000840: B2 B5 28 4C 54 29 00 5B 10 26 02 4C 4D B2 28 4C |..(LT).[.&.LM.(L|
00000850: 54 AB B5 28 4C 54 29 29 AC 36 30 00 72 10 30 02 |T..(LT)).60.r.0.|
00000860: 8B 20 52 49 B1 32 34 20 A7 20 52 49 B2 52 49 AB |. RI.24 . RI.RI.|
00000870: 32 34 00 88 10 3A 02 8B 20 52 49 B3 30 20 A7 20 |24...:.. RI.0 . |
00000880: 52 49 B2 52 49 AA 32 34 00 B7 10 44 02 8B 20 28 |RI.RI.24...D.. (|
00000890: 52 49 AB B5 28 52 49 29 29 B1 2E 39 39 20 A7 20 |RI..(RI))..99 . |
000008A0: 52 49 B2 28 B5 28 28 52 49 AC 31 30 30 29 AA 2E |RI.(.((RI.100)..|
000008B0: 36 29 29 AD 31 30 30 00 C4 10 4E 02 52 31 B2 B5 |6)).100...N.R1..|
000008C0: 28 52 49 29 00 D9 10 58 02 52 32 B2 28 52 49 AB |(RI)...X.R2.(RI.|
000008D0: B5 28 52 49 29 29 AC 36 30 00 F0 10 62 02 8B 20 |.(RI)).60...b.. |
000008E0: 53 45 B1 32 34 20 A7 20 53 45 B2 53 45 AB 32 34 |SE.24 . SE.SE.24|
000008F0: 00 06 11 6C 02 8B 20 53 45 B3 30 20 A7 20 53 45 |...l.. SE.0 . SE|
00000900: B2 53 45 AA 32 34 00 35 11 76 02 8B 20 28 53 45 |.SE.24.5.v.. (SE|
00000910: AB B5 28 53 45 29 29 B1 2E 39 39 20 A7 20 53 45 |..(SE))..99 . SE|
00000920: B2 28 B5 28 28 53 45 AC 31 30 30 29 AA 2E 36 29 |.(.((SE.100)..6)|
00000930: 29 AD 31 30 30 00 42 11 80 02 53 31 B2 B5 28 53 |).100.B...S1..(S|
00000940: 45 29 00 57 11 8A 02 53 32 B2 28 53 45 AB B5 28 |E).W...S2.(SE..(|
00000950: 53 45 29 29 AC 36 30 00 91 11 8B 02 52 32 B2 B5 |SE)).60.....R2..|
00000960: 28 52 32 AA 2E 35 29 3A 53 32 B2 B5 28 53 32 AA |(R2..5):S2..(S2.|
00000970: 2E 35 29 3A 4C 4D B2 B5 28 4C 4D AA 2E 35 29 3A |.5):LM..(LM..5):|
00000980: 44 B2 B5 28 44 AC 31 30 30 AA 2E 35 29 AD 31 30 |D..(D.100..5).10|
00000990: 30 00 BD 11 8C 02 52 31 24 B2 C4 28 52 31 29 3A |0.....R1$..(R1):|
000009A0: 52 32 24 B2 C4 28 52 32 29 3A 53 31 24 B2 C4 28 |R2$..(R2):S1$..(|
000009B0: 53 31 29 3A 53 32 24 B2 C4 28 53 32 29 00 D5 11 |S1):S2$..(S2)...|
000009C0: 8D 02 4C 48 24 B2 C4 28 4C 48 29 3A 4C 4D 24 B2 |..LH$..(LH):LM$.|
000009D0: C4 28 4C 4D 29 00 F4 11 8E 02 8B 20 52 31 B3 31 |.(LM)...... R1.1|
000009E0: 30 20 A7 20 52 31 24 B2 22 30 22 AA C9 28 52 31 |0 . R1$."0"..(R1|
000009F0: 24 2C 31 29 00 13 12 8F 02 8B 20 52 32 B3 31 30 |$,1)...... R2.10|
00000A00: 20 A7 20 52 32 24 B2 22 30 22 AA C9 28 52 32 24 | . R2$."0"..(R2$|
00000A10: 2C 31 29 00 32 12 90 02 8B 20 53 31 B3 31 30 20 |,1).2.... S1.10 |
00000A20: A7 20 53 31 24 B2 22 30 22 AA C9 28 53 31 24 2C |. S1$."0"..(S1$,|
00000A30: 31 29 00 51 12 91 02 8B 20 53 32 B3 31 30 20 A7 |1).Q.... S2.10 .|
00000A40: 20 53 32 24 B2 22 30 22 AA C9 28 53 32 24 2C 31 | S2$."0"..(S2$,1|
00000A50: 29 00 70 12 92 02 8B 20 4C 48 B3 31 30 20 A7 20 |).p.... LH.10 . |
00000A60: 4C 48 24 B2 22 30 22 AA C9 28 4C 48 24 2C 31 29 |LH$."0"..(LH$,1)|
00000A70: 00 8F 12 93 02 8B 20 4C 4D B3 31 30 20 A7 20 4C |...... LM.10 . L|
00000A80: 4D 24 B2 22 30 22 AA C9 28 4C 4D 24 2C 31 29 00 |M$."0"..(LM$,1).|
00000A90: C7 12 94 02 52 58 24 B2 C9 28 52 31 24 2C 32 29 |....RX$..(R1$,2)|
00000AA0: AA 22 3A 22 AA C9 28 52 32 24 2C 32 29 3A 53 58 |.":"..(R2$,2):SX|
00000AB0: 24 B2 C9 28 53 31 24 2C 32 29 AA 22 3A 22 AA C9 |$..(S1$,2).":"..|
00000AC0: 28 53 32 24 2C 32 29 00 E5 12 95 02 4C 58 24 B2 |(S2$,2).....LX$.|
00000AD0: C9 28 4C 48 24 2C 32 29 AA 22 3A 22 AA C9 28 4C |.(LH$,2).":"..(L|
00000AE0: 4D 24 2C 32 29 00 18 13 96 02 99 20 C8 28 50 58 |M$,2)...... .(PX|
00000AF0: 24 2C 35 29 3B A3 36 29 C8 28 51 24 2C 31 33 29 |$,5);.6).(Q$,13)|
00000B00: 3B A3 32 30 29 52 58 24 3B A3 32 37 29 53 58 24 |;.20)RX$;.27)SX$|
00000B10: 3B A3 33 34 29 4C 58 24 00 2D 13 9E 02 8B 20 4C |;.34)LX$.-.... L|
00000B20: 50 24 B3 B1 22 59 22 20 A7 20 36 38 30 00 5C 13 |P$.."Y" . 680.\.|
00000B30: A0 02 98 31 33 2C 22 20 20 20 20 22 3B 50 58 24 |...13," ";PX$|
00000B40: 3B A6 39 AB C3 28 50 58 24 29 29 51 24 3B A6 33 |;.9..(PX$))Q$;.3|
00000B50: 30 AB C3 28 51 24 29 29 52 58 24 3B 00 75 13 A2 |0..(Q$))RX$;.u..|
00000B60: 02 98 31 33 2C 22 22 3B A6 36 29 53 58 24 3B A6 |..13,"";.6)SX$;.|
00000B70: 38 29 4C 58 24 00 7F 13 A8 02 89 20 34 30 30 00 |8)LX$...... 400.|
00000B80: A1 13 B2 02 99 20 C8 28 50 58 24 2C 35 29 3B A3 |..... .(PX$,5);.|
00000B90: 36 29 C8 28 51 24 2C 31 33 29 3B A3 32 30 29 41 |6).(Q$,13);.20)A|
00000BA0: 24 00 D9 13 BC 02 8B 20 4C 50 24 B2 22 59 22 20 |$...... LP$."Y" |
00000BB0: A7 20 98 31 33 2C 22 22 3B A6 34 29 50 58 24 3B |. .13,"";.4)PX$;|
00000BC0: A6 39 AB C3 28 50 58 24 29 29 51 24 3B A6 33 30 |.9..(PX$))Q$;.30|
00000BD0: AB C3 28 51 24 29 29 41 24 00 E3 13 C6 02 89 20 |..(Q$))A$...... |
00000BE0: 34 30 30 00 05 14 D0 02 99 20 C8 28 50 58 24 2C |400...... .(PX$,|
00000BF0: 35 29 3B A3 36 29 C8 28 51 24 2C 31 33 29 3B A3 |5);.6).(Q$,13);.|
00000C00: 32 30 29 42 24 00 3D 14 DA 02 8B 20 4C 50 24 B2 |20)B$.=.... LP$.|
00000C10: 22 59 22 20 A7 20 98 31 33 2C 22 22 3B A6 34 29 |"Y" . .13,"";.4)|
00000C20: 50 58 24 3B A6 39 AB C3 28 50 58 24 29 29 51 24 |PX$;.9..(PX$))Q$|
00000C30: 3B A6 33 30 AB C3 28 51 24 29 29 42 24 00 47 14 |;.30..(Q$))B$.G.|
00000C40: E4 02 89 20 34 30 30 00 4E 14 EE 02 A0 33 00 69 |... 400.N....3.i|
00000C50: 14 F8 02 81 20 4A B2 4C 4E 20 A4 20 36 35 3A 98 |.... J.LN . 65:.|
00000C60: 31 33 2C 22 22 3A 82 20 4A 00 8B 14 02 03 81 20 |13,"":. J...... |
00000C70: 4A B2 31 20 A4 20 31 39 39 39 3A 99 3B 3A 82 20 |J.1 . 1999:.;:. |
00000C80: 4A 3A A0 31 33 3A A0 31 35 3A 80 00 A5 14 0C 03 |J:.13:.15:......|
00000C90: 81 20 4A B2 31 20 A4 20 31 31 3A 98 31 33 2C 22 |. J.1 . 11:.13,"|
00000CA0: 22 3A 82 20 4A 00 BC 14 16 03 98 31 33 2C 46 24 |":. J......13,F$|
00000CB0: 3A 98 31 33 2C 22 22 3A 4C 4E B2 37 00 C2 14 20 |:.13,"":LN.7... |
00000CC0: 03 8E 00 00 00 |..... |
..-.... WORLDWIDE SUNRISE CHART PROGRAM
(C64).J.... PRINTS A CHART OF SUNRISE/SU
NSET TIMES FOR ANY ONE DAY...... BY KC6A
AND N6NB; (C) 1983 BY HAYDEN BOOK CO.,I
NC.......15,8,15.P....13,4:. VIC PRINTER
CHANNEL.....B1$. "SUNRISE/SUNSET CALCUL
ATION PROGRAM"... .B2$. "FOR DXCC COUNTR
IES PLUS MAJOR CITIES".{.".B3$. " AL
L TIMES ARE IN GMT; SOME MAY BE NEXT (OR
PREVIOUS) GMT DAY"...(.. LATLONG DATA F
ILE MUST BE ON LOGGED DISK DRIVE....<..
TIMES GIVEN ARE FOR ACTUAL SUNRISE/SUNSE
T; APPARENT TIMES DIFFER.*.F.. BY 5-7 MI
NS. DUE TO ATMOSPHERIC REFRACTION..H.P..
G(147):.:. CLEAR SCREEN...Z.F$." PR
EFIX LOCATION SUNR
ISE"...\.F$.F$." SUNSET HRS SUNLIGH
T".E.D.. " ";B1$:. " ";B2$.O.N..:.:..
..X.. "ENTER MONTH AND DAY FOR THIS PRIN
TOUT"...Z.. " (E.G. 7,4)";M,DA.=....:.
"DO YOU WANT A HARD COPY";LP$.E....:..Z.
... LP$.."Y" . 200.S. .. J.1 . 5:.13,"":
. J......13,"";.21)B1$:.13,"";.20)B2$:.1
3,"":.13,""......13," THIS PRINTOUT
IS FOR THE FOLLOWING DATE --";......13,"
";M;"/";DA:.13,""......13,"":.13,B3$:.
13,""......13,"":.13,F$:.13,"".L.H.RAD.5
7.2958:P1.3.14159.26.X.R.. N(12).G.... I
.1 . 12.R.... N(I).Z.... I...... 0,31,59
,90,120,151,181,212,243,273,304,334.Q...
. EXTRA DAY IN LEAP YEARS IGNORED......
" ALL TIMES ARE IN UTC; SOME ARE".).
... " NEXT (OR PREVIOUS) UTC DAY":
..C.,.A$. "NO SUNSET TODAY".^.6.B$. "NO
SUNRISE TODAY"...@.. "PREFIX LOCATION
RISE SET HRS SUN":.:LN.18...J..3,8,
3,"LATLONG,S,R".D.T.X.P1.(N(M).DA).7...^
.D..456.22.915..(X)..43..(2.X)..156..(3.
X)...`.D.D.3.83..(X)..06..(2.X)..082..(3
.X).S.H.E..008..51..(X).3.197..(2.X)..10
6..(3.X)..15..(4.X)...J.E.E.7.317..(X).9
.471..(2.X)..391..(3.X)..242..(4.X)...R.
. D IS DECLINATION OF SUN IN DEGREES; ..
.T.. E IS EQUATION OF TIME IN MINUTES...
|.DE.D.RAD.....LN.LN.1...... LN.60 . LP$
."Y" . . 780.(....3,PX$,Q$,LA,LO.>.... P
X$."ZZZ" . 750.L...LA.LA.RAD.^...Y..(DE)
..(LA).N.B.. Y.1 . 690..L.. Y..1 . 720.
..V.AR..A(Y..(.Y.Y.1)).1.5708.....AC.AR.
RAD.I...RI.LO.15.AC.15:RI.RI.E.60.....SE
.LO.15.AC.15:SE.SE.E.60.....LT.SE.RI....
.. LT.0 . LT.24.LT.9.... (LT..(LT))..99
. LT.(.((LT.100)..6)).100.F...LH..(LT).[
.&.LM.(LT..(LT)).60.R.0.. RI.24 . RI.RI.
24...:.. RI.0 . RI.RI.24...D.. (RI..(RI)
)..99 . RI.(.((RI.100)..6)).100.D.N.R1..
(RI).Y.X.R2.(RI..(RI)).60...B.. SE.24 .
SE.SE.24...L.. SE.0 . SE.SE.24.5.V.. (SE
..(SE))..99 . SE.(.((SE.100)..6)).100.B.
..S1..(SE).W...S2.(SE..(SE)).60.....R2..
(R2..5):S2..(S2..5):LM..(LM..5):D..(D.10
0..5).100.....R1$.D(R1):R2$.D(R2):S1$.D(
S1):S2$.D(S2).U...LH$.D(LH):LM$.D(LM)...
... R1.10 . R1$."0".I(R1$,1)...... R2.10
. R2$."0".I(R2$,1).2.... S1.10 . S1$."0
".I(S1$,1).Q.... S2.10 . S2$."0".I(S2$,1
).P.... LH.10 . LH$."0".I(LH$,1)...... L
M.10 . LM$."0".I(LM$,1).G...RX$.I(R1$,2)
.":".I(R2$,2):SX$.I(S1$,2).":".I(S2$,2).
....LX$.I(LH$,2).":".I(LM$,2)...... H(PX
$,5);.6)H(Q$,13);.20)RX$;.27)SX$;.34)LX$
.-.... LP$.."Y" . 680.\. ..13," ";PX$
;.9.C(PX$))Q$;.30.C(Q$))RX$;.U....13,"";
.6)SX$;.8)LX$..... 400...... H(PX$,5);.
6)H(Q$,13);.20)A$.Y.... LP$."Y" . .13,""
;.4)PX$;.9.C(PX$))Q$;.30.C(Q$))A$...F..
400...P.. H(PX$,5);.6)H(Q$,13);.20)B$.=.
Z.. LP$."Y" . .13,"";.4)PX$;.9.C(PX$))Q$
;.30.C(Q$))B$.G.... 400.N... 3.I.... J.L
N . 65:.13,"":. J...... J.1 . 1999:.;:.
J: 13: 15:....... J.1 . 11:.13,"":. J...
...13,F$:.13,"":LN.7.B. .....
> CLICK IMAGE PREVIEW FOR FULL MODAL