SUNRISES
FILE INFORMATION
FILENAME(S): SUNRISES
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
ef9624cb975d7dbe239e71e9603ffe2e592413a2be41db317aa16f4da28be7e6
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | SUNRISES | PRG | Curtcool, Bo | 33 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 4B 08 05 00 8F 20 53 55 4E 52 49 53 45 2F |..K.... SUNRISE/| 00000010: 53 55 4E 53 45 54 20 50 52 4F 47 52 41 4D 20 46 |SUNSET PROGRAM F| 00000020: 4F 52 20 41 4E 59 20 4E 55 4D 42 45 52 20 4F 46 |OR ANY NUMBER OF| 00000030: 20 44 41 59 53 20 41 54 20 4F 4E 45 20 4C 4F 43 | DAYS AT ONE LOC| 00000040: 41 54 49 4F 4E 20 28 43 36 34 29 00 84 08 07 00 |ATION (C64).....| 00000050: 8F 20 42 59 20 4B 43 36 41 20 41 4E 44 20 4E 36 |. BY KC6A AND N6| 00000060: 4E 42 3B 20 28 43 29 20 31 39 38 33 20 42 59 20 |NB; (C) 1983 BY | 00000070: 48 41 59 44 45 4E 20 42 4F 4F 4B 20 43 4F 2E 2C |HAYDEN BOOK CO.,| 00000080: 49 4E 43 2E 00 91 08 08 00 9F 31 35 2C 38 2C 31 |INC.......15,8,1| 00000090: 35 00 B2 08 09 00 9F 20 31 33 2C 34 3A 8F 20 56 |5...... 13,4:. V| 000000A0: 49 43 20 50 52 49 4E 54 45 52 20 43 48 41 4E 4E |IC PRINTER CHANN| 000000B0: 45 4C 00 BF 08 0A 00 99 20 C7 28 31 34 37 29 00 |EL...... .(147).| 000000C0: ED 08 12 00 42 31 24 B2 20 22 53 55 4E 52 49 53 |....B1$. "SUNRIS| 000000D0: 45 2F 53 55 4E 53 45 54 20 43 41 4C 43 55 4C 41 |E/SUNSET CALCULA| 000000E0: 54 49 4F 4E 20 50 52 4F 47 52 41 4D 22 00 13 09 |TION PROGRAM"...| 000000F0: 14 00 42 32 24 B2 20 22 46 4F 52 20 41 4E 59 20 |..B2$. "FOR ANY | 00000100: 50 4F 49 4E 54 20 4F 4E 20 54 48 45 20 47 4C 4F |POINT ON THE GLO| 00000110: 42 45 22 00 37 09 16 00 99 20 22 20 20 20 22 3B |BE".7.... " ";| 00000120: 42 31 24 3A 99 20 22 20 20 20 20 20 20 20 22 3B |B1$:. " ";| 00000130: 42 32 24 3A 99 3A 99 00 57 09 32 00 8F 20 4E 4F |B2$:.:..W.2.. NO| 00000140: 20 44 41 54 41 20 46 49 4C 45 20 49 53 20 52 45 | DATA FILE IS RE| 00000150: 51 55 49 52 45 44 2E 00 A3 09 3C 00 8F 20 54 49 |QUIRED....<.. TI| 00000160: 4D 45 53 20 47 49 56 45 4E 20 41 52 45 20 41 43 |MES GIVEN ARE AC| 00000170: 54 55 41 4C 20 53 55 4E 52 49 53 45 2F 53 55 4E |TUAL SUNRISE/SUN| 00000180: 53 45 54 2E 20 20 41 50 50 41 52 45 4E 54 20 53 |SET. APPARENT S| 00000190: 55 4E 52 49 53 45 20 49 53 20 35 2D 37 20 4D 49 |UNRISE IS 5-7 MI| 000001A0: 4E 53 2E 00 EF 09 46 00 8F 20 45 41 52 4C 49 45 |NS....F.. EARLIE| 000001B0: 52 20 41 4E 44 20 53 55 4E 53 45 54 20 41 20 4C |R AND SUNSET A L| 000001C0: 49 4B 45 20 41 4D 4F 55 4E 54 20 4C 41 54 45 52 |IKE AMOUNT LATER| 000001D0: 20 44 55 45 20 54 4F 20 41 54 4D 4F 53 50 48 45 | DUE TO ATMOSPHE| 000001E0: 52 49 43 20 52 45 46 52 41 43 54 49 4F 4E 2E 00 |RIC REFRACTION..| 000001F0: 2D 0A 64 00 99 20 22 45 4E 54 45 52 20 53 54 41 |-.d.. "ENTER STA| 00000200: 52 54 49 4E 47 20 4D 4F 4E 54 48 20 41 4E 44 20 |RTING MONTH AND | 00000210: 44 41 59 22 3A 85 20 22 28 45 58 41 4D 50 4C 45 |DAY":. "(EXAMPLE| 00000220: 3A 20 20 37 2C 34 29 22 3B 4D 2C 44 41 00 33 0A |: 7,4)";M,DA.3.| 00000230: 6E 00 99 00 5B 0A 78 00 99 20 22 4E 4F 54 45 3A |n...[.x.. "NOTE:| 00000240: 20 20 49 4E 20 45 4E 54 45 52 49 4E 47 20 43 4F | IN ENTERING CO| 00000250: 4F 52 44 49 4E 41 54 45 53 2C 22 00 84 0A 79 00 |ORDINATES,"...y.| 00000260: 99 20 22 55 53 45 20 27 2D 27 20 46 4F 52 20 44 |. "USE '-' FOR D| 00000270: 45 47 52 45 45 53 20 41 4E 44 20 4D 49 4E 53 20 |EGREES AND MINS | 00000280: 49 46 20 22 00 B1 0A 7A 00 99 20 22 45 41 53 54 |IF "...z.. "EAST| 00000290: 20 4C 4F 4E 47 49 54 55 44 45 20 41 4E 44 2F 4F | LONGITUDE AND/O| 000002A0: 52 20 53 4F 55 54 48 20 4C 41 54 49 54 55 44 45 |R SOUTH LATITUDE| 000002B0: 22 00 E0 0A 82 00 99 3A 99 20 22 45 4E 54 45 52 |"......:. "ENTER| 000002C0: 20 54 48 45 20 4C 41 54 49 54 55 44 45 20 49 4E | THE LATITUDE IN| 000002D0: 20 44 45 47 52 45 45 53 2C 20 4D 49 4E 53 3A 22 | DEGREES, MINS:"| 000002E0: 00 EE 0A 8C 00 85 20 41 31 2C 41 32 3A 99 00 0E |...... A1,A2:...| 000002F0: 0B 96 00 99 20 22 4E 4F 57 20 45 4E 54 45 52 20 |.... "NOW ENTER | 00000300: 54 48 45 20 4C 4F 4E 47 49 54 55 44 45 22 00 30 |THE LONGITUDE".0| 00000310: 0B 98 00 99 20 22 49 4E 20 44 45 47 52 45 45 53 |.... "IN DEGREES| 00000320: 2C 20 4D 49 4E 53 3A 22 3A 85 20 4F 31 2C 4F 32 |, MINS:":. O1,O2| 00000330: 00 5B 0B A0 00 99 3A 99 20 22 4E 4F 57 20 45 4E |.[....:. "NOW EN| 00000340: 54 45 52 20 54 48 45 20 4E 41 4D 45 20 4F 46 20 |TER THE NAME OF | 00000350: 54 48 49 53 20 50 4C 41 43 45 22 00 79 0B AA 00 |THIS PLACE".y...| 00000360: 85 20 22 28 57 49 54 48 4F 55 54 20 43 4F 4D 4D |. "(WITHOUT COMM| 00000370: 41 53 29 22 3B 47 24 3A 99 00 B2 0B B4 00 99 20 |AS)";G$:....... | 00000380: 22 46 4F 52 20 48 4F 57 20 4D 41 4E 59 20 44 41 |"FOR HOW MANY DA| 00000390: 59 53 20 44 4F 20 59 4F 55 20 57 41 4E 54 22 3A |YS DO YOU WANT":| 000003A0: 85 20 22 41 20 50 52 49 4E 54 4F 55 54 3F 22 3B |. "A PRINTOUT?";| 000003B0: 4E 52 00 D9 0B BE 00 99 3A 85 20 22 44 4F 20 59 |NR......:. "DO Y| 000003C0: 4F 55 20 57 41 4E 54 20 41 20 48 41 52 44 20 43 |OU WANT A HARD C| 000003D0: 4F 50 59 3F 22 3B 4C 50 24 00 E3 0B C8 00 99 3A |OPY?";LP$......:| 000003E0: 99 3A 99 00 F8 0B D2 00 8B 20 4C 50 24 B3 B1 22 |.:....... LP$.."| 000003F0: 59 22 20 A7 20 32 34 30 00 11 0C DC 00 81 20 4A |Y" . 240...... J| 00000400: B2 31 20 A4 20 35 3A 98 31 33 2C 22 22 3A 82 20 |.1 . 5:.13,"":. | 00000410: 4A 00 41 0C E6 00 98 31 33 2C 22 22 3B A6 31 37 |J.A....13,"";.17| 00000420: 29 42 31 24 3A 98 31 33 2C 22 22 3B A6 32 31 29 |)B1$:.13,"";.21)| 00000430: 42 32 24 3A 98 31 33 2C 22 22 3A 98 31 33 2C 22 |B2$:.13,"":.13,"| 00000440: 22 00 5D 0C F0 00 41 33 B2 41 31 AA 41 32 AD 36 |".]...A3.A1.A2.6| 00000450: 30 3A 4F 33 B2 4F 31 AA 4F 32 AD 36 30 00 8B 0C |0:O3.O1.O2.60...| 00000460: FA 00 41 35 24 B2 22 20 53 20 4C 41 54 3B 20 20 |..A5$." S LAT; | 00000470: 22 3A 8B 20 41 33 B2 B1 30 20 A7 20 41 35 24 B2 |":. A3..0 . A5$.| 00000480: 22 20 4E 20 4C 41 54 3B 20 20 22 00 B5 0C 04 01 |" N LAT; ".....| 00000490: 4F 35 24 B2 22 20 45 20 4C 4F 4E 47 22 3A 8B 20 |O5$." E LONG":. | 000004A0: 4F 33 B2 B1 30 20 A7 20 4F 35 24 B2 22 20 57 20 |O3..0 . O5$." W | 000004B0: 4C 4F 4E 47 22 00 CD 0C 0E 01 41 34 B2 B5 28 41 |LONG".....A4..(A| 000004C0: 33 AC 31 30 30 AA 2E 35 29 AD 31 30 30 00 E5 0C |3.100..5).100...| 000004D0: 18 01 4F 34 B2 B5 28 4F 33 AC 31 30 30 AA 2E 35 |..O4..(O3.100..5| 000004E0: 29 AD 31 30 30 00 03 0D 22 01 52 41 44 B2 35 37 |).100...".RAD.57| 000004F0: 2E 32 39 35 38 3A 50 31 B2 33 2E 31 34 31 35 39 |.2958:P1.3.14159| 00000500: AD 32 36 00 11 0D 2C 01 41 33 B2 41 33 AD 52 41 |.26...,.A3.A3.RA| 00000510: 44 00 1D 0D 36 01 86 20 4E 28 31 32 29 00 2C 0D |D...6.. N(12).,.| 00000520: 40 01 81 20 49 B2 31 20 A4 20 31 32 00 37 0D 4A |@.. I.1 . 12.7.J| 00000530: 01 87 20 4E 28 49 29 00 3F 0D 54 01 82 20 49 00 |.. N(I).?.T.. I.| 00000540: 70 0D 5E 01 83 20 30 2C 33 31 2C 35 39 2C 39 30 |p.^.. 0,31,59,90| 00000550: 2C 31 32 30 2C 31 35 31 2C 31 38 31 2C 32 31 32 |,120,151,181,212| 00000560: 2C 32 34 33 2C 32 37 33 2C 33 30 34 2C 33 33 34 |,243,273,304,334| 00000570: 00 96 0D 68 01 8F 20 45 58 54 52 41 20 44 41 59 |...h.. EXTRA DAY| 00000580: 20 49 4E 20 4C 45 41 50 20 59 45 41 52 53 20 49 | IN LEAP YEARS I| 00000590: 47 4E 4F 52 45 44 00 AB 0D 72 01 8B 20 4C 50 24 |GNORED...r.. LP$| 000005A0: B3 B1 22 59 22 20 A7 20 34 31 30 00 E7 0D 7C 01 |.."Y" . 410...|.| 000005B0: 98 31 33 2C 22 20 20 20 20 54 48 49 53 20 43 4F |.13," THIS CO| 000005C0: 4D 50 55 54 41 54 49 4F 4E 20 49 53 20 46 4F 52 |MPUTATION IS FOR| 000005D0: 3A 20 22 3B B6 28 41 34 29 3B 41 35 24 3B B6 28 |: ";.(A4);A5$;.(| 000005E0: 4F 34 29 3B 4F 35 24 00 15 0E 86 01 98 31 33 2C |O4);O5$......13,| 000005F0: 22 22 3A 98 31 33 2C 22 20 20 20 20 47 45 4F 47 |"":.13," GEOG| 00000600: 52 41 50 48 49 43 20 4C 4F 43 41 54 49 4F 4E 3A |RAPHIC LOCATION:| 00000610: 20 22 3B 47 24 00 20 0E 90 01 98 31 33 2C 22 22 | ";G$. ....13,""| 00000620: 00 6B 0E 9A 01 4B 24 B2 20 22 20 20 20 20 41 4C |.k...K$. " AL| 00000630: 4C 20 54 49 4D 45 53 20 41 52 45 20 49 4E 20 47 |L TIMES ARE IN G| 00000640: 4D 54 3B 20 53 4F 4D 45 20 4D 41 59 20 42 45 20 |MT; SOME MAY BE | 00000650: 4E 45 58 54 20 28 4F 52 20 50 52 45 56 49 4F 55 |NEXT (OR PREVIOU| 00000660: 53 29 20 47 4D 54 20 44 41 59 22 00 8E 0E A4 01 |S) GMT DAY".....| 00000670: 99 20 22 41 4C 4C 20 54 49 4D 45 53 20 49 4E 20 |. "ALL TIMES IN | 00000680: 47 4D 54 3B 20 53 4F 4D 45 20 4D 41 59 22 00 B4 |GMT; SOME MAY"..| 00000690: 0E AE 01 99 20 22 42 45 20 4E 45 58 54 20 4F 52 |.... "BE NEXT OR| 000006A0: 20 50 52 45 56 49 4F 55 53 20 47 4D 54 20 44 41 | PREVIOUS GMT DA| 000006B0: 59 22 3A 99 00 DC 0E B8 01 42 24 B2 22 4E 4F 20 |Y":......B$."NO | 000006C0: 53 55 4E 53 45 54 20 41 54 20 54 48 49 53 20 4C |SUNSET AT THIS L| 000006D0: 41 54 49 54 55 44 45 20 4F 4E 20 22 00 05 0F C2 |ATITUDE ON "....| 000006E0: 01 43 24 B2 22 4E 4F 20 53 55 4E 52 49 53 45 20 |.C$."NO SUNRISE | 000006F0: 41 54 20 54 48 49 53 20 4C 41 54 49 54 55 44 45 |AT THIS LATITUDE| 00000700: 20 4F 4E 20 22 00 51 0F CC 01 46 24 B2 20 22 20 | ON ".Q...F$. " | 00000710: 20 20 20 20 44 41 54 45 20 20 20 20 20 20 53 55 | DATE SU| 00000720: 4E 52 49 53 45 20 20 20 20 20 20 53 55 4E 53 45 |NRISE SUNSE| 00000730: 54 20 20 20 53 55 4E 27 53 20 44 45 43 4C 20 20 |T SUN'S DECL | 00000740: 20 48 52 53 20 4F 46 20 53 55 4E 4C 49 47 48 54 | HRS OF SUNLIGHT| 00000750: 22 00 9A 0F D6 01 4A 24 B2 20 22 20 20 20 20 4D |".....J$. " M| 00000760: 4F 20 44 41 59 20 20 20 20 48 52 53 20 20 4D 49 |O DAY HRS MI| 00000770: 4E 53 20 20 20 20 48 52 53 20 4D 49 4E 53 20 20 |NS HRS MINS | 00000780: 20 44 45 47 52 45 45 53 20 20 20 20 20 20 20 20 | DEGREES | 00000790: 48 52 53 20 20 4D 49 4E 53 22 00 CB 0F E0 01 99 |HRS MINS"......| 000007A0: 20 22 44 41 54 45 20 20 20 53 55 4E 52 49 53 45 | "DATE SUNRISE| 000007B0: 20 20 53 55 4E 53 45 54 20 20 44 45 43 4C 20 20 | SUNSET DECL | 000007C0: 20 48 52 53 20 53 55 4E 22 3A 99 00 E2 0F EA 01 | HRS SUN":......| 000007D0: 8B 20 4C 50 24 B3 B1 22 59 22 20 A7 20 89 20 35 |. LP$.."Y" . . 5| 000007E0: 32 30 00 FB 0F F4 01 98 31 33 2C 4B 24 3A 98 31 |20......13,K$:.1| 000007F0: 33 2C 22 22 3A 98 31 33 2C 22 22 00 14 10 FE 01 |3,"":.13,"".....| 00000800: 98 31 33 2C 46 24 3A 98 31 33 2C 4A 24 3A 98 31 |.13,F$:.13,J$:.1| 00000810: 33 2C 22 22 00 22 10 08 02 4B B2 4E 28 4D 29 AA |3,""."...K.N(M).| 00000820: 44 41 00 2C 10 12 02 4C 4E B2 31 39 00 3B 10 1C |DA.,...LN.19.;..| 00000830: 02 81 20 51 B2 31 20 A4 20 4E 52 00 47 10 26 02 |.. Q.1 . NR.G.&.| 00000840: 4C 4E B2 4C 4E AA 31 00 67 10 30 02 8B 20 4C 4E |LN.LN.1.g.0.. LN| 00000850: B1 B2 36 30 20 AF 20 4C 50 24 B2 22 59 22 20 A7 |..60 . LP$."Y" .| 00000860: 20 8D 20 31 30 35 30 00 77 10 3A 02 44 54 20 B2 | . 1050.w.:.DT .| 00000870: 20 4B AB 4E 28 4D 29 00 8C 10 44 02 8B 20 44 54 | K.N(M)...D.. DT| 00000880: B2 33 32 20 A7 20 44 54 20 B2 20 31 00 9E 10 4E |.32 . DT . 1...N| 00000890: 02 8B 20 4B B3 33 36 36 20 A7 20 36 31 30 00 AF |.. K.366 . 610..| 000008A0: 10 58 02 4D B2 31 3A 44 41 B2 31 3A 4B B2 31 00 |.X.M.1:DA.1:K.1.| 000008B0: C0 10 62 02 8B 20 4D B2 31 32 20 A7 20 36 34 30 |..b.. M.12 . 640| 000008C0: 00 DF 10 6C 02 8B 20 4B B1 4E 28 4D AA 31 29 20 |...l.. K.N(M.1) | 000008D0: A7 20 44 54 B2 4B AB 28 4E 28 4D AA 31 29 29 00 |. DT.K.(N(M.1)).| 000008E0: F6 10 76 02 8B 20 4B B1 4E 28 4D AA 31 29 20 A7 |..v.. K.N(M.1) .| 000008F0: 20 4D B2 4D AA 31 00 03 11 80 02 58 B2 50 31 AC | M.M.1.....X.P1.| 00000900: 4B AD 37 00 0D 11 8A 02 4B B2 4B AA 31 00 3B 11 |K.7.....K.K.1.;.| 00000910: 94 02 44 B2 2E 34 35 36 AB 32 32 2E 39 31 35 AC |..D..456.22.915.| 00000920: BE 28 58 29 AB 2E 34 33 AC BE 28 32 AC 58 29 AB |.(X)..43..(2.X).| 00000930: 2E 31 35 36 AC BE 28 33 AC 58 29 00 64 11 96 02 |.156..(3.X).d...| 00000940: 44 B2 44 AA 33 2E 38 33 AC BF 28 58 29 AA 2E 30 |D.D.3.83..(X)..0| 00000950: 36 AC BF 28 32 AC 58 29 AB 2E 30 38 32 AC BF 28 |6..(2.X)..082..(| 00000960: 33 AC 58 29 00 9C 11 9E 02 45 B2 2E 30 30 38 AA |3.X).....E..008.| 00000970: 2E 35 31 AC BE 28 58 29 AB 33 2E 31 39 37 AC BE |.51..(X).3.197..| 00000980: 28 32 AC 58 29 AB 2E 31 30 36 AC BE 28 33 AC 58 |(2.X)..106..(3.X| 00000990: 29 AB 2E 31 35 AC BE 28 34 AC 58 29 00 D4 11 A0 |)..15..(4.X)....| 000009A0: 02 45 B2 45 AB 37 2E 33 31 37 AC BF 28 58 29 AB |.E.E.7.317..(X).| 000009B0: 39 2E 34 37 31 AC BF 28 32 AC 58 29 AB 2E 33 39 |9.471..(2.X)..39| 000009C0: 31 AC BF 28 33 AC 58 29 AB 2E 32 34 32 AC BF 28 |1..(3.X)..242..(| 000009D0: 34 AC 58 29 00 EA 11 A1 02 4D 24 B2 C4 28 4D 29 |4.X).....M$..(M)| 000009E0: 3A 44 54 24 B2 C4 28 44 54 29 00 06 12 A2 02 8B |:DT$..(DT)......| 000009F0: 20 4D B3 31 30 20 A7 20 4D 24 B2 22 30 22 AA C9 | M.10 . M$."0"..| 00000A00: 28 4D 24 2C 31 29 00 25 12 A3 02 8B 20 44 54 B3 |(M$,1).%.... DT.| 00000A10: 31 30 20 A7 20 44 54 24 B2 22 30 22 AA C9 28 44 |10 . DT$."0"..(D| 00000A20: 54 24 2C 31 29 00 42 12 A4 02 44 54 24 B2 C9 28 |T$,1).B...DT$..(| 00000A30: 4D 24 2C 32 29 AA 22 2F 22 AA C9 28 44 54 24 2C |M$,2)."/"..(DT$,| 00000A40: 32 29 00 8D 12 A8 02 8F 20 44 20 49 53 20 44 45 |2)...... D IS DE| 00000A50: 43 4C 49 4E 41 54 49 4F 4E 20 4F 46 20 53 55 4E |CLINATION OF SUN| 00000A60: 20 49 4E 20 44 45 47 52 45 45 53 3B 20 45 20 49 | IN DEGREES; E I| 00000A70: 53 20 45 51 55 41 54 49 4F 4E 20 4F 46 20 54 49 |S EQUATION OF TI| 00000A80: 4D 45 20 49 4E 20 4D 49 4E 55 54 45 53 00 9A 12 |ME IN MINUTES...| 00000A90: B2 02 44 45 B2 44 AD 52 41 44 00 AC 12 BC 02 59 |..DE.D.RAD.....Y| 00000AA0: B2 C0 28 44 45 29 AC C0 28 41 33 29 00 BD 12 D0 |..(DE)..(A3)....| 00000AB0: 02 8B 20 59 B2 B1 31 20 A7 20 39 36 30 00 CF 12 |.. Y..1 . 960...| 00000AC0: DA 02 8B 20 59 B3 B2 AB 31 20 A7 20 39 39 30 00 |... Y...1 . 990.| 00000AD0: F0 12 E4 02 41 52 B2 AB C1 28 59 AD BA 28 AB 59 |....AR...(Y..(.Y| 00000AE0: AC 59 AA 31 29 29 AA 31 2E 35 37 30 37 36 33 33 |.Y.1)).1.5707633| 00000AF0: 00 FE 12 EE 02 41 43 B2 41 52 AC 52 41 44 00 1C |.....AC.AR.RAD..| 00000B00: 13 F8 02 52 49 B2 4F 33 AD 31 35 AA 41 43 AD 31 |...RI.O3.15.AC.1| 00000B10: 35 3A 52 49 B2 52 49 AB 45 AD 36 30 00 3A 13 02 |5:RI.RI.E.60.:..| 00000B20: 03 53 4A B2 4F 33 AD 31 35 AB 41 43 AD 31 35 3A |.SJ.O3.15.AC.15:| 00000B30: 53 4A B2 53 4A AB 45 AD 36 30 00 47 13 0C 03 4C |SJ.SJ.E.60.G...L| 00000B40: 54 B2 53 4A AB 52 49 00 5D 13 16 03 8B 20 4C 54 |T.SJ.RI.].... LT| 00000B50: B3 30 20 A7 20 4C 54 B2 32 34 AA 4C 54 00 8C 13 |.0 . LT.24.LT...| 00000B60: 20 03 8B 20 28 4C 54 AB B5 28 4C 54 29 29 B1 2E | .. (LT..(LT))..| 00000B70: 39 39 20 A7 20 4C 54 B2 28 B5 28 28 4C 54 AC 31 |99 . LT.(.((LT.1| 00000B80: 30 30 29 AA 2E 36 29 29 AD 31 30 30 00 99 13 2A |00)..6)).100...*| 00000B90: 03 4C 48 B2 B5 28 4C 54 29 00 AE 13 34 03 4C 4D |.LH..(LT)...4.LM| 00000BA0: B2 28 4C 54 AB B5 28 4C 54 29 29 AC 36 30 00 C5 |.(LT..(LT)).60..| 00000BB0: 13 3E 03 8B 20 52 49 B1 32 34 20 A7 20 52 49 B2 |.>.. RI.24 . RI.| 00000BC0: 52 49 AB 32 34 00 DB 13 48 03 8B 20 52 49 B3 30 |RI.24...H.. RI.0| 00000BD0: 20 A7 20 52 49 B2 52 49 AA 32 34 00 0A 14 52 03 | . RI.RI.24...R.| 00000BE0: 8B 20 28 52 49 AB B5 28 52 49 29 29 B1 2E 39 39 |. (RI..(RI))..99| 00000BF0: 20 A7 20 52 49 B2 28 B5 28 28 52 49 AC 31 30 30 | . RI.(.((RI.100| 00000C00: 29 AA 2E 36 29 29 AD 31 30 30 00 17 14 5C 03 52 |)..6)).100...\.R| 00000C10: 31 B2 B5 28 52 49 29 00 2C 14 66 03 52 32 B2 28 |1..(RI).,.f.R2.(| 00000C20: 52 49 AB B5 28 52 49 29 29 AC 36 30 00 43 14 70 |RI..(RI)).60.C.p| 00000C30: 03 8B 20 53 4A B1 32 34 20 A7 20 53 4A B2 53 4A |.. SJ.24 . SJ.SJ| 00000C40: AB 32 34 00 59 14 7A 03 8B 20 53 4A B3 30 20 A7 |.24.Y.z.. SJ.0 .| 00000C50: 20 53 4A B2 53 4A AA 32 34 00 88 14 84 03 8B 20 | SJ.SJ.24...... | 00000C60: 28 53 4A AB B5 28 53 4A 29 29 B1 2E 39 39 20 A7 |(SJ..(SJ))..99 .| 00000C70: 20 53 4A B2 28 B5 28 28 53 4A AC 31 30 30 29 AA | SJ.(.((SJ.100).| 00000C80: 2E 36 29 29 AD 31 30 30 00 AF 14 86 03 53 31 B2 |.6)).100.....S1.| 00000C90: B5 28 53 4A 29 3A 44 B2 B5 28 44 AC 31 30 30 AA |.(SJ):D..(D.100.| 00000CA0: 2E 35 29 AD 31 30 30 3A 44 24 B2 C4 28 44 29 00 |.5).100:D$..(D).| 00000CB0: C4 14 87 03 53 32 B2 28 53 4A AB B5 28 53 4A 29 |....S2.(SJ..(SJ)| 00000CC0: 29 AC 36 30 00 EC 14 88 03 53 32 B2 B5 28 53 32 |).60.....S2..(S2| 00000CD0: AA 2E 35 29 3A 52 32 B2 B5 28 52 32 AA 2E 35 29 |..5):R2..(R2..5)| 00000CE0: 3A 4C 4D B2 B5 28 4C 4D AA 2E 35 29 00 18 15 89 |:LM..(LM..5)....| 00000CF0: 03 52 31 24 B2 C4 28 52 31 29 3A 52 32 24 B2 C4 |.R1$..(R1):R2$..| 00000D00: 28 52 32 29 3A 53 31 24 B2 C4 28 53 31 29 3A 53 |(R2):S1$..(S1):S| 00000D10: 32 24 B2 C4 28 53 32 29 00 30 15 8A 03 4C 48 24 |2$..(S2).0...LH$| 00000D20: B2 C4 28 4C 48 29 3A 4C 4D 24 B2 C4 28 4C 4D 29 |..(LH):LM$..(LM)| 00000D30: 00 4F 15 8B 03 8B 20 52 31 B3 31 30 20 A7 20 52 |.O.... R1.10 . R| 00000D40: 31 24 B2 22 30 22 AA C9 28 52 31 24 2C 31 29 00 |1$."0"..(R1$,1).| 00000D50: 6E 15 8C 03 8B 20 52 32 B3 31 30 20 A7 20 52 32 |n.... R2.10 . R2| 00000D60: 24 B2 22 30 22 AA C9 28 52 32 24 2C 31 29 00 8D |$."0"..(R2$,1)..| 00000D70: 15 8D 03 8B 20 53 31 B3 31 30 20 A7 20 53 31 24 |.... S1.10 . S1$| 00000D80: B2 22 30 22 AA C9 28 53 31 24 2C 31 29 00 AC 15 |."0"..(S1$,1)...| 00000D90: 8E 03 8B 20 53 32 B3 31 30 20 A7 20 53 32 24 B2 |... S2.10 . S2$.| 00000DA0: 22 30 22 AA C9 28 53 32 24 2C 31 29 00 CB 15 8F |"0"..(S2$,1)....| 00000DB0: 03 8B 20 4C 48 B3 31 30 20 A7 20 4C 48 24 B2 22 |.. LH.10 . LH$."| 00000DC0: 30 22 AA C9 28 4C 48 24 2C 31 29 00 EA 15 90 03 |0"..(LH$,1).....| 00000DD0: 8B 20 4C 4D B3 31 30 20 A7 20 4C 4D 24 B2 22 30 |. LM.10 . LM$."0| 00000DE0: 22 AA C9 28 4C 4D 24 2C 31 29 00 22 16 91 03 52 |"..(LM$,1)."...R| 00000DF0: 58 24 B2 C9 28 52 31 24 2C 32 29 AA 22 3A 22 AA |X$..(R1$,2).":".| 00000E00: C9 28 52 32 24 2C 32 29 3A 53 58 24 B2 C9 28 53 |.(R2$,2):SX$..(S| 00000E10: 31 24 2C 32 29 AA 22 3A 22 AA C9 28 53 32 24 2C |1$,2).":"..(S2$,| 00000E20: 32 29 00 40 16 92 03 4C 58 24 B2 C9 28 4C 48 24 |2).@...LX$..(LH$| 00000E30: 2C 32 29 AA 22 3A 22 AA C9 28 4C 4D 24 2C 32 29 |,2).":"..(LM$,2)| 00000E40: 00 6A 16 A2 03 99 20 44 54 24 3B A3 39 29 3B 52 |.j.... DT$;.9);R| 00000E50: 58 24 3B A3 31 36 29 3B 53 58 24 3B A3 32 33 29 |X$;.16);SX$;.23)| 00000E60: 44 24 3B A3 33 31 29 4C 58 24 00 7F 16 AC 03 8B |D$;.31)LX$......| 00000E70: 20 4C 50 24 B3 B1 22 59 22 20 A7 20 39 35 30 00 | LP$.."Y" . 950.| 00000E80: A6 16 AE 03 98 31 33 2C 22 22 3B A6 35 29 44 54 |.....13,"";.5)DT| 00000E90: 24 3B A6 35 29 52 58 24 3B A6 38 29 53 58 24 3B |$;.5)RX$;.8)SX$;| 00000EA0: A6 36 29 44 24 3B 00 BF 16 B0 03 98 31 33 2C 22 |.6)D$;......13,"| 00000EB0: 22 3B A6 31 36 AB C3 28 44 24 29 29 4C 58 24 00 |";.16..(D$))LX$.| 00000EC0: CA 16 B6 03 89 20 31 30 31 30 00 D7 16 C0 03 99 |..... 1010......| 00000ED0: 20 42 24 3B 44 54 24 00 F8 16 CA 03 8B 20 4C 50 | B$;DT$...... LP| 00000EE0: 24 B2 22 59 22 20 A7 20 98 31 33 2C 22 22 3B A6 |$."Y" . .13,"";.| 00000EF0: 35 29 42 24 3B 44 54 24 00 03 17 D4 03 89 20 31 |5)B$;DT$...... 1| 00000F00: 30 31 30 00 10 17 DE 03 99 20 43 24 3B 44 54 24 |010...... C$;DT$| 00000F10: 00 31 17 E8 03 8B 20 4C 50 24 B2 22 59 22 20 A7 |.1.... LP$."Y" .| 00000F20: 20 98 31 33 2C 22 22 3B A6 35 29 43 24 3B 44 54 | .13,"";.5)C$;DT| 00000F30: 24 00 39 17 F2 03 82 20 51 00 4F 17 FC 03 8B 20 |$.9.... Q.O.... | 00000F40: 4C 50 24 B3 B1 22 59 22 20 A7 20 31 30 34 30 00 |LP$.."Y" . 1040.| 00000F50: 61 17 06 04 98 31 33 2C 22 22 3B C7 28 31 32 29 |a....13,"";.(12)| 00000F60: 3B 00 84 17 10 04 81 20 4A B2 31 20 A4 20 31 30 |;...... J.1 . 10| 00000F70: 30 30 3A 99 3B 3A 82 20 4A 3A A0 31 33 30 3A A0 |00:.;:. J:.130:.| 00000F80: 31 35 3A 80 00 9E 17 1A 04 81 20 4A B2 31 20 A4 |15:....... J.1 .| 00000F90: 20 31 31 3A 98 31 33 2C 22 22 3A 82 20 4A 00 BC | 11:.13,"":. J..| 00000FA0: 17 24 04 98 31 33 2C 46 24 3A 98 31 33 2C 4A 24 |.$..13,F$:.13,J$| 00000FB0: 3A 98 31 33 2C 22 22 3A 4C 4E B2 38 00 C2 17 2E |:.13,"":LN.8....| 00000FC0: 04 8E 00 00 00 |..... |
..K.... SUNRISE/SUNSET PROGRAM FOR ANY N UMBER OF DAYS AT ONE LOCATION (C64)..... . BY KC6A AND N6NB; (C) 1983 BY HAYDEN B OOK CO.,INC.......15,8,15...... 13,4:. V IC PRINTER CHANNEL...... G(147).....B1$. "SUNRISE/SUNSET CALCULATION PROGRAM"... ..B2$. "FOR ANY POINT ON THE GLOBE".7... . " ";B1$:. " ";B2$:.:..W.2.. NO DATA FILE IS REQUIRED....<.. TIMES GIVE N ARE ACTUAL SUNRISE/SUNSET. APPARENT S UNRISE IS 5-7 MINS....F.. EARLIER AND SU NSET A LIKE AMOUNT LATER DUE TO ATMOSPHE RIC REFRACTION..-.D.. "ENTER STARTING MO NTH AND DAY":. "(EXAMPLE: 7,4)";M,DA.3. N...[.X.. "NOTE: IN ENTERING COORDINATE S,"...Y.. "USE '-' FOR DEGREES AND MINS IF "...Z.. "EAST LONGITUDE AND/OR SOUTH LATITUDE"......:. "ENTER THE LATITUDE IN DEGREES, MINS:"...... A1,A2:....... "NO W ENTER THE LONGITUDE".0.... "IN DEGREES , MINS:":. O1,O2.[. ..:. "NOW ENTER THE NAME OF THIS PLACE".Y.... "(WITHOUT COMM AS)";G$:....... "FOR HOW MANY DAYS DO YO U WANT":. "A PRINTOUT?";NR.Y....:. "DO Y OU WANT A HARD COPY?";LP$...H..:.:....R. . LP$.."Y" . 240...... J.1 . 5:.13,"":. J.A....13,"";.17)B1$:.13,"";.21)B2$:.13, "":.13,"".]...A3.A1.A2.60:O3.O1.O2.60... ..A5$." S LAT; ":. A3..0 . A5$." N LAT; ".....O5$." E LONG":. O3..0 . O5$." W LONG".M...A4..(A3.100..5).100.....O4..(O 3.100..5).100...".RAD.57.2958:P1.3.14159 .26...,.A3.A3.RAD...6.. N(12).,.@.. I.1 . 12.7.J.. N(I).?.T.. I.P.^.. 0,31,59,90 ,120,151,181,212,243,273,304,334...H.. E XTRA DAY IN LEAP YEARS IGNORED...R.. LP$ .."Y" . 410...|..13," THIS COMPUTATIO N IS FOR: ";.(A4);A5$;.(O4);O5$......13, "":.13," GEOGRAPHIC LOCATION: ";G$. . ...13,"".K...K$. " ALL TIMES ARE IN G MT; SOME MAY BE NEXT (OR PREVIOUS) GMT D AY"...... "ALL TIMES IN GMT; SOME MAY".. .... "BE NEXT OR PREVIOUS GMT DAY":..... .B$."NO SUNSET AT THIS LATITUDE ON "...B .C$."NO SUNRISE AT THIS LATITUDE ON ".Q. L.F$. " DATE SUNRISE SUNSE T SUN'S DECL HRS OF SUNLIGHT"...V.J$ . " MO DAY HRS MINS HRS MINS DEGREES HRS MINS".K.... "DATE SUNRISE SUNSET DECL HRS SUN":...... . LP$.."Y" . . 520......13,K$:.13,"":.13 ,""......13,F$:.13,J$:.13,""."...K.N(M). DA.,...LN.19.;.... Q.1 . NR.G.&.LN.LN.1. G.0.. LN..60 . LP$."Y" . . 1050.W.:.DT . K.N(M)...D.. DT.32 . DT . 1...N.. K.366 . 610...X.M.1:DA.1:K.1...B.. M.12 . 640 ...L.. K.N(M.1) . DT.K.(N(M.1))...V.. K. N(M.1) . M.M.1.....X.P1.K.7.....K.K.1.;. ..D..456.22.915..(X)..43..(2.X)..156..(3 .X).D...D.D.3.83..(X)..06..(2.X)..082..( 3.X).....E..008..51..(X).3.197..(2.X)..1 06..(3.X)..15..(4.X).T. .E.E.7.317..(X). 9.471..(2.X)..391..(3.X)..242..(4.X).... .M$.D(M):DT$.D(DT)...... M.10 . M$."0".I (M$,1).%.... DT.10 . DT$."0".I(DT$,1).B. ..DT$.I(M$,2)."/".I(DT$,2)...... D IS DE CLINATION OF SUN IN DEGREES; E IS EQUATI ON OF TIME IN MINUTES.....DE.D.RAD.....Y ..(DE)..(A3)...P.. Y..1 . 960.O.Z.. Y... 1 . 990.....AR..A(Y..(.Y.Y.1)).1.5707633 .....AC.AR.RAD.....RI.O3.15.AC.15:RI.RI. E.60.:...SJ.O3.15.AC.15:SJ.SJ.E.60.G...L T.SJ.RI.].... LT.0 . LT.24.LT... .. (LT. .(LT))..99 . LT.(.((LT.100)..6)).100...* .LH..(LT)...4.LM.(LT..(LT)).60.E.>.. RI. 24 . RI.RI.24...H.. RI.0 . RI.RI.24...R. . (RI..(RI))..99 . RI.(.((RI.100)..6)).1 00...\.R1..(RI).,.F.R2.(RI..(RI)).60.C.P .. SJ.24 . SJ.SJ.24.Y.Z.. SJ.0 . SJ.SJ.2 4...... (SJ..(SJ))..99 . SJ.(.((SJ.100). .6)).100.....S1..(SJ):D..(D.100..5).100: D$.D(D).D...S2.(SJ..(SJ)).60.....S2..(S2 ..5):R2..(R2..5):LM..(LM..5).....R1$.D(R 1):R2$.D(R2):S1$.D(S1):S2$.D(S2).0...LH$ .D(LH):LM$.D(LM).O.... R1.10 . R1$."0".I (R1$,1).N.... R2.10 . R2$."0".I(R2$,1).. .... S1.10 . S1$."0".I(S1$,1)...... S2.1 0 . S2$."0".I(S2$,1).K.... LH.10 . LH$." 0".I(LH$,1)...... LM.10 . LM$."0".I(LM$, 1)."...RX$.I(R1$,2).":".I(R2$,2):SX$.I(S 1$,2).":".I(S2$,2).@...LX$.I(LH$,2).":". I(LM$,2).J.... DT$;.9);RX$;.16);SX$;.23) D$;.31)LX$..... LP$.."Y" . 950......13, "";.5)DT$;.5)RX$;.8)SX$;.6)D$;......13," ";.16.C(D$))LX$.J.... 1010.W.... B$;DT$. ..J.. LP$."Y" . .13,"";.5)B$;DT$...T.. 1 010...... C$;DT$.1.... LP$."Y" . .13,""; .5)C$;DT$.9.... Q.O.... LP$.."Y" . 1040. A....13,"";G(12);...... J.1 . 1000:.;:. J: 130: 15:....... J.1 . 11:.13,"":. J.. .$..13,F$:.13,J$:.13,"":LN.8.B.......
> CLICK IMAGE PREVIEW FOR FULL MODAL