GRAYLINE
FILE INFORMATION
FILENAME(S): GRAYLINE
FILE TYPE(S): PRG
FILE SIZE: 6K
FIRST SEEN: 2025-11-30 19:36:45
APPEARS ON: 1 disk(s)
FILE HASH
0b54d112213e857f3359076132979df73c8696e025c402204ded167d168f595d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| JBR C64 RADIO MM | GRAYLINE | PRG | Curtcool, Bo | 27 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2D 08 0A 00 8F 20 47 52 41 59 20 4C 49 4E |..-.... GRAY LIN|
00000010: 45 20 44 58 20 43 41 4C 43 55 4C 41 54 4F 52 20 |E DX CALCULATOR |
00000020: 50 52 4F 47 52 41 4D 20 28 43 36 34 29 00 4D 08 |PROGRAM (C64).M.|
00000030: 0F 00 9F 31 33 2C 34 3A 8F 20 56 49 43 20 50 52 |...13,4:. VIC PR|
00000040: 49 4E 54 45 52 20 43 48 41 4E 4E 45 4C 00 86 08 |INTER CHANNEL...|
00000050: 14 00 8F 20 2D 2D 4C 49 53 54 53 20 41 4C 4C 20 |... --LISTS ALL |
00000060: 4C 4F 43 41 54 49 4F 4E 53 20 48 41 56 49 4E 47 |LOCATIONS HAVING|
00000070: 20 53 55 4E 52 49 53 45 2F 53 55 4E 53 45 54 20 | SUNRISE/SUNSET |
00000080: 54 49 4D 45 53 20 00 AD 08 1E 00 8F 20 41 54 20 |TIMES ...... AT |
00000090: 41 42 4F 55 54 20 54 48 45 20 53 41 4D 45 20 54 |ABOUT THE SAME T|
000000A0: 49 4D 45 20 41 53 20 59 4F 55 52 53 2E 00 E6 08 |IME AS YOURS....|
000000B0: 28 00 8F 20 42 59 20 4B 43 36 41 20 41 4E 44 20 |(.. BY KC6A AND |
000000C0: 4E 36 4E 42 3B 20 28 43 29 20 31 39 38 33 20 42 |N6NB; (C) 1983 B|
000000D0: 59 20 48 41 59 44 45 4E 20 42 4F 4F 4B 20 43 4F |Y HAYDEN BOOK CO|
000000E0: 2E 2C 49 4E 43 2E 00 0E 09 32 00 42 31 24 B2 22 |.,INC....2.B1$."|
000000F0: 47 52 41 59 20 4C 49 4E 45 20 43 41 4C 43 55 4C |GRAY LINE CALCUL|
00000100: 41 54 49 4F 4E 20 50 52 4F 47 52 41 4D 22 00 4E |ATION PROGRAM".N|
00000110: 09 3C 00 8F 20 42 41 53 45 44 20 4F 4E 20 41 43 |.<.. BASED ON AC|
00000120: 54 55 41 4C 20 53 55 4E 52 49 53 45 2F 53 55 4E |TUAL SUNRISE/SUN|
00000130: 53 45 54 20 54 49 4D 45 53 3B 20 41 50 50 41 52 |SET TIMES; APPAR|
00000140: 45 4E 54 20 54 49 4D 45 53 20 56 41 52 59 00 7C |ENT TIMES VARY.||
00000150: 09 46 00 8F 20 53 4C 49 47 48 54 4C 59 20 44 55 |.F.. SLIGHTLY DU|
00000160: 45 20 54 4F 20 41 54 4D 4F 53 50 48 45 52 49 43 |E TO ATMOSPHERIC|
00000170: 20 52 45 46 52 41 43 54 49 4F 4E 2E 00 99 09 50 | REFRACTION....P|
00000180: 00 99 20 C7 28 31 34 37 29 3A 20 8F 20 43 4C 45 |.. .(147): . CLE|
00000190: 41 52 20 53 43 52 45 45 4E 00 B5 09 5A 00 96 20 |AR SCREEN...Z.. |
000001A0: A5 41 28 58 29 B2 B5 28 31 30 30 AC 58 AA 2E 35 |.A(X)..(100.X..5|
000001B0: 29 AD 31 30 30 00 D9 09 64 00 86 20 52 32 28 31 |).100...d.. R2(1|
000001C0: 30 30 29 3A 86 20 52 33 24 28 31 30 30 29 3A 86 |00):. R3$(100):.|
000001D0: 20 52 34 24 28 31 30 30 29 00 FD 09 6E 00 86 20 | R4$(100)...n.. |
000001E0: 53 32 28 31 30 30 29 3A 86 20 53 33 24 28 31 30 |S2(100):. S3$(10|
000001F0: 30 29 3A 86 20 53 34 24 28 31 30 30 29 00 2A 0A |0):. S4$(100).*.|
00000200: 78 00 86 20 50 58 24 28 35 30 30 29 3A 86 20 51 |x.. PX$(500):. Q|
00000210: 24 28 35 30 30 29 3A 86 20 41 58 28 35 30 30 29 |$(500):. AX(500)|
00000220: 3A 86 20 4F 58 28 35 30 30 29 00 60 0A 82 00 8F |:. OX(500).`....|
00000230: 20 54 48 45 20 44 41 54 41 20 46 49 4C 45 20 28 | THE DATA FILE (|
00000240: 4C 41 54 4C 4F 4E 47 29 20 4D 55 53 54 20 42 45 |LATLONG) MUST BE|
00000250: 20 4F 4E 20 4C 4F 47 47 45 44 20 44 49 53 4B 2E | ON LOGGED DISK.|
00000260: 00 90 0A 8C 00 50 31 B2 33 2E 31 34 31 35 39 AD |.....P1.3.14159.|
00000270: 32 36 3A 52 41 44 B2 35 37 2E 32 39 35 38 3A 43 |26:RAD.57.2958:C|
00000280: 54 B2 31 3A 57 B2 31 3A 55 B2 31 3A 51 51 B2 30 |T.1:W.1:U.1:QQ.0|
00000290: 00 9A 0A 96 00 99 3A 99 3A 99 00 A9 0A A0 00 99 |......:.:.......|
000002A0: 20 A3 34 29 42 31 24 3A 99 00 C9 0A AA 00 99 3A | .4)B1$:.......:|
000002B0: 85 20 22 57 48 41 54 20 49 53 20 59 4F 55 52 20 |. "WHAT IS YOUR |
000002C0: 43 41 4C 4C 22 3B 4B 4C 24 00 EF 0A B4 00 99 3A |CALL";KL$......:|
000002D0: 85 20 22 44 4F 20 59 4F 55 20 57 41 4E 54 20 41 |. "DO YOU WANT A|
000002E0: 20 48 41 52 44 20 43 4F 50 59 22 3B 4C 50 24 00 | HARD COPY";LP$.|
000002F0: 0D 0B BE 00 99 3A 99 20 22 45 4E 54 45 52 20 4D |.....:. "ENTER M|
00000300: 4F 4E 54 48 20 41 4E 44 20 44 41 59 22 00 37 0B |ONTH AND DAY".7.|
00000310: C3 00 85 20 22 46 4F 52 20 54 48 49 53 20 50 52 |... "FOR THIS PR|
00000320: 49 4E 54 4F 55 54 20 28 45 2E 47 2E 20 37 2C 34 |INTOUT (E.G. 7,4|
00000330: 29 22 3B 4D 2C 44 41 00 63 0B C8 00 99 3A 99 20 |)";M,DA.c....:. |
00000340: 22 48 4F 57 20 57 49 44 45 20 41 20 47 52 41 59 |"HOW WIDE A GRAY|
00000350: 20 4C 49 4E 45 20 44 4F 20 59 4F 55 20 57 41 4E | LINE DO YOU WAN|
00000360: 54 3F 22 00 91 0B D2 00 99 20 22 54 48 41 54 20 |T?"...... "THAT |
00000370: 49 53 2C 20 48 4F 57 20 43 4C 4F 53 45 20 54 4F |IS, HOW CLOSE TO|
00000380: 20 59 4F 55 52 20 54 49 4D 45 53 20 4D 55 53 54 | YOUR TIMES MUST|
00000390: 22 00 B9 0B D7 00 99 20 22 41 20 53 55 4E 52 49 |"...... "A SUNRI|
000003A0: 53 45 20 4F 52 20 53 55 4E 53 45 54 20 54 49 4D |SE OR SUNSET TIM|
000003B0: 45 20 42 45 20 46 4F 52 22 00 F7 0B DC 00 99 20 |E BE FOR"...... |
000003C0: 22 4C 49 53 54 49 4E 47 20 42 59 20 54 48 49 53 |"LISTING BY THIS|
000003D0: 20 50 52 4F 47 52 41 4D 3F 22 3A 85 20 22 45 4E | PROGRAM?":. "EN|
000003E0: 54 45 52 20 23 20 4D 49 4E 53 20 28 34 35 20 4D |TER # MINS (45 M|
000003F0: 41 58 29 22 3B 47 4C 00 2A 0C E6 00 8B 20 47 4C |AX)";GL.*.... GL|
00000400: B1 34 35 20 A7 20 99 20 22 54 4F 4F 20 4C 4F 4E |.45 . . "TOO LON|
00000410: 47 2E 20 20 34 35 20 4D 49 4E 53 20 4D 41 58 49 |G. 45 MINS MAXI|
00000420: 4D 55 4D 22 3A 89 20 32 30 30 00 5C 0C F0 00 99 |MUM":. 200.\....|
00000430: 3A 99 20 22 45 4E 54 45 52 20 59 4F 55 52 20 43 |:. "ENTER YOUR C|
00000440: 4F 4F 52 44 49 4E 41 54 45 53 20 49 4E 20 44 45 |OORDINATES IN DE|
00000450: 47 52 45 45 53 2C 20 4D 49 4E 53 22 00 86 0C FA |GREES, MINS"....|
00000460: 00 99 20 22 55 53 45 20 27 2D 27 20 46 4F 52 20 |.. "USE '-' FOR |
00000470: 42 4F 54 48 20 44 45 47 52 45 45 53 20 41 4E 44 |BOTH DEGREES AND|
00000480: 20 4D 49 4E 53 22 00 B2 0C FC 00 99 20 22 49 46 | MINS"...... "IF|
00000490: 20 45 41 53 54 20 4C 4F 4E 47 49 54 55 44 45 2C | EAST LONGITUDE,|
000004A0: 20 53 4F 55 54 48 20 4C 41 54 49 54 55 44 45 22 | SOUTH LATITUDE"|
000004B0: 3A 99 00 D6 0C 04 01 85 20 22 4C 41 54 49 54 55 |:....... "LATITU|
000004C0: 44 45 20 28 45 2E 47 2E 20 33 33 2C 33 30 29 22 |DE (E.G. 33,30)"|
000004D0: 3B 4C 41 2C 41 4D 00 FC 0C 0E 01 85 20 22 4C 4F |;LA,AM...... "LO|
000004E0: 4E 47 49 54 55 44 45 20 28 45 2E 47 2E 20 31 31 |NGITUDE (E.G. 11|
000004F0: 36 2C 33 30 29 22 3B 4C 4F 2C 4F 4D 00 20 0D 18 |6,30)";LO,OM. ..|
00000500: 01 4C 41 B2 A5 41 28 4C 41 AA 41 4D AD 36 30 29 |.LA..A(LA.AM.60)|
00000510: 3A 4C 4F B2 A5 41 28 4C 4F AA 4F 4D AD 36 30 29 |:LO..A(LO.OM.60)|
00000520: 00 4F 0D 22 01 41 33 B2 4C 41 AD 52 41 44 3A 47 |.O.".A3.LA.RAD:G|
00000530: 4C B2 47 4C AD 36 30 3A 52 24 B2 22 28 52 49 53 |L.GL.60:R$."(RIS|
00000540: 45 29 22 3A 53 24 B2 22 28 53 45 54 29 20 22 00 |E)":S$."(SET) ".|
00000550: 7B 0D 2C 01 41 35 24 B2 22 20 53 20 4C 41 54 3B |{.,.A5$." S LAT;|
00000560: 20 22 3A 8B 20 4C 41 B2 B1 30 20 A7 20 41 35 24 | ":. LA..0 . A5$|
00000570: B2 22 20 4E 20 4C 41 54 3B 20 22 00 A5 0D 36 01 |." N LAT; "...6.|
00000580: 4F 35 24 B2 22 20 45 20 4C 4F 4E 47 22 3A 8B 20 |O5$." E LONG":. |
00000590: 4C 4F B2 B1 30 20 A7 20 4F 35 24 B2 22 20 57 20 |LO..0 . O5$." W |
000005A0: 4C 4F 4E 47 22 00 DB 0D 40 01 46 31 24 B2 22 48 |LONG"...@.F1$."H|
000005B0: 45 52 45 20 41 52 45 20 54 48 45 20 50 4C 41 43 |ERE ARE THE PLAC|
000005C0: 45 53 20 4F 4E 20 59 4F 55 52 20 47 52 41 59 20 |ES ON YOUR GRAY |
000005D0: 4C 49 4E 45 20 54 4F 44 41 59 22 00 07 0E 4A 01 |LINE TODAY"...J.|
000005E0: 46 32 24 B2 22 54 49 4D 45 20 28 47 4D 54 29 20 |F2$."TIME (GMT) |
000005F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4C 4F | LO|
00000600: 43 41 54 49 4F 4E 22 00 3C 0E 54 01 46 33 24 B2 |CATION".<.T.F3$.|
00000610: 22 41 54 20 59 4F 55 52 20 53 55 4E 52 49 53 45 |"AT YOUR SUNRISE|
00000620: 2E 2E 2E 22 3A 46 34 24 B2 22 41 54 20 59 4F 55 |...":F4$."AT YOU|
00000630: 52 20 53 55 4E 53 45 54 2E 2E 2E 22 00 66 0E 5E |R SUNSET...".f.^|
00000640: 01 99 3A 99 20 22 43 4F 4D 50 55 54 49 4E 47 20 |..:. "COMPUTING |
00000650: 4C 4F 43 41 4C 20 53 55 4E 52 49 53 45 20 44 41 |LOCAL SUNRISE DA|
00000660: 54 41 2E 2E 2E 22 00 78 0E 68 01 8D 20 31 33 30 |TA...".x.h.. 130|
00000670: 30 3A 8D 20 31 34 33 30 00 8A 0E 72 01 8B 20 5A |0:. 1430...r.. Z|
00000680: 5A B2 31 20 A7 20 31 35 38 30 00 9C 0E 7C 01 8B |Z.1 . 1580...|..|
00000690: 20 5A 5A B2 32 20 A7 20 31 35 39 30 00 AC 0E 86 | ZZ.2 . 1590....|
000006A0: 01 4C 52 B2 52 49 3A 4C 53 B2 53 30 00 C2 0E 90 |.LR.RI:LS.S0....|
000006B0: 01 8B 20 4C 52 AA 47 4C B1 32 34 20 A7 20 51 51 |.. LR.GL.24 . QQ|
000006C0: B2 31 00 D8 0E 9A 01 8B 20 4C 53 AA 47 4C B1 32 |.1...... LS.GL.2|
000006D0: 34 20 A7 20 51 51 B2 32 00 ED 0E A4 01 8B 20 4C |4 . QQ.2...... L|
000006E0: 52 AB 47 4C B3 30 20 A7 20 51 51 B2 33 00 02 0F |R.GL.0 . QQ.3...|
000006F0: AE 01 8B 20 4C 53 AB 47 4C B3 30 20 A7 20 51 51 |... LS.GL.0 . QQ|
00000700: B2 34 00 0D 0F B8 01 8D 20 31 36 31 30 00 23 0F |.4...... 1610.#.|
00000710: C2 01 8B 20 4C 50 24 B2 22 59 22 20 A7 20 8D 20 |... LP$."Y" . . |
00000720: 37 34 30 00 49 0F CC 01 99 3A 99 20 22 41 54 20 |740.I....:. "AT |
00000730: 22 3B B6 28 4C 41 29 3B 41 35 24 3B 22 20 22 3B |";.(LA);A5$;" ";|
00000740: B6 28 4C 4F 29 3B 4F 35 24 00 6B 0F D6 01 99 3A |.(LO);O5$.k....:|
00000750: 99 20 22 4F 4E 20 54 48 49 53 20 44 41 54 45 3A |. "ON THIS DATE:|
00000760: 20 22 3B 4D 3B 22 2F 22 3B 44 41 00 98 0F E0 01 | ";M;"/";DA.....|
00000770: 99 3A 99 20 22 59 4F 55 52 20 53 55 4E 52 49 53 |.:. "YOUR SUNRIS|
00000780: 45 20 4F 43 43 55 52 53 20 41 54 20 22 3B 52 49 |E OCCURS AT ";RI|
00000790: 24 3B 22 20 47 4D 54 22 00 C3 0F EA 01 99 20 22 |$;" GMT"...... "|
000007A0: 59 4F 55 52 20 53 55 4E 53 45 54 20 4F 43 43 55 |YOUR SUNSET OCCU|
000007B0: 52 53 20 41 54 20 20 22 3B 53 30 24 3B 22 20 47 |RS AT ";S0$;" G|
000007C0: 4D 54 22 00 FF 0F F4 01 8F 20 52 45 41 44 49 4E |MT"...... READIN|
000007D0: 47 20 41 4C 4C 20 44 41 54 41 20 49 4E 54 4F 20 |G ALL DATA INTO |
000007E0: 41 52 52 41 59 53 20 28 53 41 56 45 53 20 44 49 |ARRAYS (SAVES DI|
000007F0: 53 4B 20 41 43 43 45 53 53 20 54 49 4D 45 29 00 |SK ACCESS TIME).|
00000800: 20 10 FE 01 99 3A 99 20 22 4E 4F 57 20 52 45 41 | ....:. "NOW REA|
00000810: 44 49 4E 47 20 49 4E 20 44 41 54 41 2E 2E 2E 22 |DING IN DATA..."|
00000820: 00 3A 10 08 02 9F 20 38 2C 38 2C 38 2C 22 4C 41 |.:.... 8,8,8,"LA|
00000830: 54 4C 4F 4E 47 2C 53 2C 52 22 00 5E 10 26 02 84 |TLONG,S,R".^.&..|
00000840: 38 2C 50 58 24 28 43 54 29 2C 51 24 28 43 54 29 |8,PX$(CT),Q$(CT)|
00000850: 2C 41 58 28 43 54 29 2C 4F 58 28 43 54 29 00 8F |,AX(CT),OX(CT)..|
00000860: 10 30 02 8B 20 50 58 24 28 43 54 29 B2 22 5A 5A |.0.. PX$(CT)."ZZ|
00000870: 5A 22 20 A7 20 50 58 24 28 43 54 29 B2 22 22 3A |Z" . PX$(CT)."":|
00000880: 51 24 28 43 54 29 B2 22 22 3A 89 20 36 30 30 00 |Q$(CT)."":. 600.|
00000890: A7 10 3A 02 51 24 28 43 54 29 B2 C8 28 51 24 28 |..:.Q$(CT)..(Q$(|
000008A0: 43 54 29 2C 31 36 29 00 B3 10 44 02 43 54 B2 43 |CT),16)...D.CT.C|
000008B0: 54 AA 31 00 BD 10 4E 02 89 20 35 35 30 00 C4 10 |T.1...N.. 550...|
000008C0: 58 02 A0 38 00 F6 10 62 02 99 3A 99 20 22 43 4F |X..8...b..:. "CO|
000008D0: 4D 50 55 54 49 4E 47 20 53 55 4E 52 49 53 45 20 |MPUTING SUNRISE |
000008E0: 41 4E 44 20 53 55 4E 53 45 54 20 54 49 4D 45 53 |AND SUNSET TIMES|
000008F0: 20 46 4F 52 3A 22 00 05 11 6C 02 81 20 4A B2 31 | FOR:"...l.. J.1|
00000900: 20 A4 20 43 54 00 1F 11 76 02 41 33 B2 41 58 28 | . CT...v.A3.AX(|
00000910: 4A 29 AD 52 41 44 3A 4C 4F B2 4F 58 28 4A 29 00 |J).RAD:LO.OX(J).|
00000920: 2A 11 80 02 8D 20 31 34 33 30 00 3B 11 8A 02 8B |*.... 1430.;....|
00000930: 20 5A 5A B1 30 20 A7 20 37 31 30 00 50 11 94 02 | ZZ.0 . 710.P...|
00000940: 8B 20 51 51 B3 B1 30 20 A7 20 8D 20 31 36 39 30 |. QQ..0 . . 1690|
00000950: 00 72 11 9E 02 8B 20 52 49 B3 4C 52 AA 47 4C 20 |.r.... RI.LR.GL |
00000960: AF 20 52 49 B1 4C 52 AB 47 4C 20 A7 20 8D 20 38 |. RI.LR.GL . . 8|
00000970: 33 30 00 94 11 A8 02 8B 20 52 49 B3 4C 53 AA 47 |30...... RI.LS.G|
00000980: 4C 20 AF 20 52 49 B1 4C 53 AB 47 4C 20 A7 20 8D |L . RI.LS.GL . .|
00000990: 20 38 37 30 00 B6 11 B2 02 8B 20 53 30 B3 4C 52 | 870...... S0.LR|
000009A0: AA 47 4C 20 AF 20 53 30 B1 4C 52 AB 47 4C 20 A7 |.GL . S0.LR.GL .|
000009B0: 20 8D 20 38 34 30 00 D8 11 BC 02 8B 20 53 30 B3 | . 840...... S0.|
000009C0: 4C 53 AA 47 4C 20 AF 20 53 30 B1 4C 53 AB 47 4C |LS.GL . S0.LS.GL|
000009D0: 20 A7 20 8D 20 38 38 30 00 EF 11 C6 02 50 58 24 | . . 880.....PX$|
000009E0: 28 4A 29 B2 22 22 3A 51 24 28 4A 29 B2 22 22 00 |(J)."":Q$(J)."".|
000009F0: F7 11 D0 02 82 20 4A 00 01 12 DA 02 89 20 39 31 |..... J...... 91|
00000A00: 30 00 19 12 E4 02 9D 31 33 3A 99 3A 99 3A 99 20 |0......13:.:.:. |
00000A10: A3 31 32 29 42 31 24 3A 99 00 4B 12 EE 02 99 20 |.12)B1$:..K.... |
00000A20: A3 35 29 22 46 4F 52 20 22 3B 4B 4C 24 3B 22 20 |.5)"FOR ";KL$;" |
00000A30: 41 54 22 3B B6 28 4C 41 29 3B 41 35 24 3B 22 20 |AT";.(LA);A5$;" |
00000A40: 22 3B B6 28 4C 4F 29 3B 4F 35 24 00 7D 12 F8 02 |";.(LO);O5$.}...|
00000A50: 99 3A 99 3A 99 20 A3 35 29 22 59 4F 55 52 20 53 |.:.:. .5)"YOUR S|
00000A60: 55 4E 52 49 53 45 20 4F 43 43 55 52 53 20 41 54 |UNRISE OCCURS AT|
00000A70: 20 22 3B 52 49 24 3B 22 20 47 4D 54 22 00 AB 12 | ";RI$;" GMT"...|
00000A80: 02 03 99 20 A3 35 29 22 59 4F 55 52 20 53 55 4E |... .5)"YOUR SUN|
00000A90: 53 45 54 20 4F 43 43 55 52 53 20 41 54 20 20 22 |SET OCCURS AT "|
00000AA0: 3B 53 30 24 3B 22 20 47 4D 54 22 00 C3 12 0C 03 |;S0$;" GMT".....|
00000AB0: 99 20 A3 35 29 22 4F 4E 20 22 3B 4D 3B 22 2F 22 |. .5)"ON ";M;"/"|
00000AC0: 3B 44 41 00 D2 12 16 03 99 3A 99 20 A3 35 29 46 |;DA......:. .5)F|
00000AD0: 31 24 00 F9 12 20 03 99 3A 99 20 A3 35 29 46 33 |1$... ..:. .5)F3|
00000AE0: 24 3A 99 3A 99 20 A3 35 29 46 32 24 3A 98 31 33 |$:.:. .5)F2$:.13|
00000AF0: 2C 22 22 3A 4C 4E B2 31 37 00 FF 12 2A 03 8E 00 |,"":LN.17...*...|
00000B00: 33 13 34 03 8F 20 41 52 52 41 59 20 4F 46 20 50 |3.4.. ARRAY OF P|
00000B10: 4C 41 43 45 53 20 4F 4E 20 47 52 41 59 20 4C 49 |LACES ON GRAY LI|
00000B20: 4E 45 20 41 54 20 4C 4F 43 41 4C 20 53 55 4E 52 |NE AT LOCAL SUNR|
00000B30: 49 53 45 00 6A 13 3E 03 52 32 28 57 29 B2 52 49 |ISE.j.>.R2(W).RI|
00000B40: 3A 52 33 24 28 57 29 B2 52 24 AA 22 20 2D 20 22 |:R3$(W).R$." - "|
00000B50: AA 50 58 24 28 4A 29 3A 52 34 24 28 57 29 B2 51 |.PX$(J):R4$(W).Q|
00000B60: 24 28 4A 29 3A 89 20 38 35 30 00 9B 13 48 03 52 |$(J):. 850...H.R|
00000B70: 32 28 57 29 B2 53 30 3A 52 33 24 28 57 29 B2 53 |2(W).S0:R3$(W).S|
00000B80: 24 AA 22 20 2D 20 22 AA 50 58 24 28 4A 29 3A 52 |$." - ".PX$(J):R|
00000B90: 34 24 28 57 29 B2 51 24 28 4A 29 00 A7 13 52 03 |4$(W).Q$(J)...R.|
00000BA0: 57 B2 57 AA 31 3A 8E 00 DA 13 5C 03 8F 20 41 52 |W.W.1:....\.. AR|
00000BB0: 52 41 59 20 4F 46 20 50 4C 41 43 45 53 20 4F 4E |RAY OF PLACES ON|
00000BC0: 20 47 52 41 59 20 4C 49 4E 45 20 41 54 20 4C 4F | GRAY LINE AT LO|
00000BD0: 43 41 4C 20 53 55 4E 53 45 54 00 11 14 66 03 53 |CAL SUNSET...f.S|
00000BE0: 32 28 55 29 B2 52 49 3A 53 33 24 28 55 29 B2 52 |2(U).RI:S3$(U).R|
00000BF0: 24 AA 22 20 2D 20 22 AA 50 58 24 28 4A 29 3A 53 |$." - ".PX$(J):S|
00000C00: 34 24 28 55 29 B2 51 24 28 4A 29 3A 89 20 38 39 |4$(U).Q$(J):. 89|
00000C10: 30 00 42 14 70 03 53 32 28 55 29 B2 53 30 3A 53 |0.B.p.S2(U).S0:S|
00000C20: 33 24 28 55 29 B2 53 24 AA 22 20 2D 20 22 AA 50 |3$(U).S$." - ".P|
00000C30: 58 24 28 4A 29 3A 53 34 24 28 55 29 B2 51 24 28 |X$(J):S4$(U).Q$(|
00000C40: 4A 29 00 4E 14 7A 03 55 B2 55 AA 31 3A 8E 00 71 |J).N.z.U.U.1:..q|
00000C50: 14 84 03 8F 20 42 55 42 42 4C 45 20 53 4F 52 54 |.... BUBBLE SORT|
00000C60: 49 4E 47 20 45 41 43 48 20 41 52 52 41 59 2E 2E |ING EACH ARRAY..|
00000C70: 2E 00 8A 14 8E 03 99 3A 99 20 22 4E 4F 57 20 53 |.......:. "NOW S|
00000C80: 4F 52 54 49 4E 47 2E 2E 2E 22 00 9A 14 98 03 57 |ORTING...".....W|
00000C90: B2 57 AB 31 3A 55 B2 55 AB 31 00 AB 14 A2 03 81 |.W.1:U.U.1......|
00000CA0: 20 41 31 B2 31 20 A4 20 57 AB 31 00 B3 14 AC 03 | A1.1 . W.1.....|
00000CB0: 46 B2 30 00 C4 14 B6 03 81 20 48 B2 31 20 A4 20 |F.0...... H.1 . |
00000CC0: 57 AB 41 31 00 E0 14 C0 03 8B 20 52 32 28 48 AA |W.A1...... R2(H.|
00000CD0: 31 29 B2 B1 52 32 28 48 29 20 A7 20 31 30 31 30 |1)..R2(H) . 1010|
00000CE0: 00 04 15 CA 03 54 B2 52 32 28 48 29 3A 52 32 28 |.....T.R2(H):R2(|
00000CF0: 48 29 B2 52 32 28 48 AA 31 29 3A 52 32 28 48 AA |H).R2(H.1):R2(H.|
00000D00: 31 29 B2 54 00 2E 15 D4 03 54 24 B2 52 33 24 28 |1).T.....T$.R3$(|
00000D10: 48 29 3A 52 33 24 28 48 29 B2 52 33 24 28 48 AA |H):R3$(H).R3$(H.|
00000D20: 31 29 3A 52 33 24 28 48 AA 31 29 B2 54 24 00 58 |1):R3$(H.1).T$.X|
00000D30: 15 DE 03 54 24 B2 52 34 24 28 48 29 3A 52 34 24 |...T$.R4$(H):R4$|
00000D40: 28 48 29 B2 52 34 24 28 48 AA 31 29 3A 52 34 24 |(H).R4$(H.1):R4$|
00000D50: 28 48 AA 31 29 B2 54 24 00 60 15 E8 03 46 B2 31 |(H.1).T$.`...F.1|
00000D60: 00 68 15 F2 03 82 20 48 00 79 15 FC 03 8B 20 46 |.h.... H.y.... F|
00000D70: B2 30 20 A7 20 31 30 34 30 00 82 15 06 04 82 20 |.0 . 1040...... |
00000D80: 41 31 00 9E 15 10 04 99 3A 99 20 46 31 24 3A 99 |A1......:. F1$:.|
00000D90: 3A 99 20 46 33 24 3A 99 3A 99 20 46 32 24 00 B1 |:. F3$:.:. F2$..|
00000DA0: 15 1A 04 8B 20 51 51 B3 B1 30 20 A7 20 31 37 38 |.... QQ..0 . 178|
00000DB0: 30 00 BF 15 24 04 81 20 4A B2 31 20 A4 20 57 00 |0...$.. J.1 . W.|
00000DC0: CA 15 2E 04 8D 20 31 39 32 30 00 D2 15 38 04 82 |..... 1920...8..|
00000DD0: 20 4A 00 F3 15 42 04 8B 20 4C 50 24 B2 22 59 22 | J...B.. LP$."Y"|
00000DE0: 20 A7 20 9D 31 33 3A 99 3A 99 3A 99 20 A3 35 29 | . .13:.:.:. .5)|
00000DF0: 46 34 24 00 1A 16 4C 04 8B 20 4C 50 24 B2 22 59 |F4$...L.. LP$."Y|
00000E00: 22 20 A7 20 99 3A 99 20 A3 35 29 46 32 24 3A 98 |" . .:. .5)F2$:.|
00000E10: 31 33 3A 4C 4E B2 4C 4E AA 36 00 39 16 56 04 99 |13:LN.LN.6.9.V..|
00000E20: 3A 99 20 22 4E 4F 57 20 53 4F 52 54 49 4E 47 20 |:. "NOW SORTING |
00000E30: 41 47 41 49 4E 2E 2E 2E 22 00 4A 16 60 04 81 20 |AGAIN...".J.`.. |
00000E40: 41 31 B2 31 20 A4 20 55 AB 31 00 52 16 6A 04 46 |A1.1 . U.1.R.j.F|
00000E50: B2 30 00 63 16 74 04 81 20 48 B2 31 20 A4 20 55 |.0.c.t.. H.1 . U|
00000E60: AB 41 31 00 7F 16 7E 04 8B 20 53 32 28 48 AA 31 |.A1...~.. S2(H.1|
00000E70: 29 B2 B1 53 32 28 48 29 20 A7 20 31 32 30 30 00 |)..S2(H) . 1200.|
00000E80: A3 16 88 04 54 B2 53 32 28 48 29 3A 53 32 28 48 |....T.S2(H):S2(H|
00000E90: 29 B2 53 32 28 48 AA 31 29 3A 53 32 28 48 AA 31 |).S2(H.1):S2(H.1|
00000EA0: 29 B2 54 00 CD 16 92 04 54 24 B2 53 33 24 28 48 |).T.....T$.S3$(H|
00000EB0: 29 3A 53 33 24 28 48 29 B2 53 33 24 28 48 AA 31 |):S3$(H).S3$(H.1|
00000EC0: 29 3A 53 33 24 28 48 AA 31 29 B2 54 24 00 F7 16 |):S3$(H.1).T$...|
00000ED0: 9C 04 54 24 B2 53 34 24 28 48 29 3A 53 34 24 28 |..T$.S4$(H):S4$(|
00000EE0: 48 29 B2 53 34 24 28 48 AA 31 29 3A 53 34 24 28 |H).S4$(H.1):S4$(|
00000EF0: 48 AA 31 29 B2 54 24 00 FF 16 A6 04 46 B2 31 00 |H.1).T$.....F.1.|
00000F00: 07 17 B0 04 82 20 48 00 18 17 BA 04 8B 20 46 B2 |..... H...... F.|
00000F10: 30 20 A7 20 31 32 33 30 00 22 17 C4 04 82 20 41 |0 . 1230.".... A|
00000F20: 31 20 00 36 17 CE 04 99 3A 99 20 46 34 24 3A 99 |1 .6....:. F4$:.|
00000F30: 3A 99 20 46 32 24 00 49 17 D8 04 8B 20 51 51 B3 |:. F2$.I.... QQ.|
00000F40: B1 30 20 A7 20 31 38 35 30 00 57 17 E2 04 81 20 |.0 . 1850.W.... |
00000F50: 4A B2 31 20 A4 20 55 00 62 17 EC 04 8D 20 31 39 |J.1 . U.b.... 19|
00000F60: 38 30 00 6A 17 F6 04 82 20 4A 00 84 17 F8 04 8B |80.j.... J......|
00000F70: 20 4C 50 24 B2 22 59 22 20 A7 20 98 31 33 2C C7 | LP$."Y" . .13,.|
00000F80: 28 31 32 29 00 A2 17 00 05 81 20 4A B2 31 20 A4 |(12)...... J.1 .|
00000F90: 20 31 30 30 30 3A 99 3B 3A 82 20 4A 3A A0 31 33 | 1000:.;:. J:.13|
00000FA0: 3A 80 00 DF 17 0A 05 8F 20 43 4F 4D 50 55 54 41 |:....... COMPUTA|
00000FB0: 54 49 4F 4E 20 4F 46 20 44 45 43 4C 2C 20 45 51 |TION OF DECL, EQ|
00000FC0: 55 41 54 49 4F 4E 20 4F 46 20 54 49 4D 45 20 46 |UATION OF TIME F|
00000FD0: 4F 52 20 53 50 45 43 49 46 49 43 20 44 41 59 00 |OR SPECIFIC DAY.|
00000FE0: EB 17 14 05 86 20 4E 28 31 32 29 00 FA 17 1E 05 |..... N(12).....|
00000FF0: 81 20 49 B2 31 20 A4 20 31 32 00 05 18 28 05 87 |. I.1 . 12...(..|
00001000: 20 4E 28 49 29 00 0D 18 32 05 82 20 49 00 3E 18 | N(I)...2.. I.>.|
00001010: 3C 05 83 20 30 2C 33 31 2C 35 39 2C 39 30 2C 31 |<.. 0,31,59,90,1|
00001020: 32 30 2C 31 35 31 2C 31 38 31 2C 32 31 32 2C 32 |20,151,181,212,2|
00001030: 34 33 2C 32 37 33 2C 33 30 34 2C 33 33 34 00 64 |43,273,304,334.d|
00001040: 18 46 05 8F 20 45 58 54 52 41 20 44 41 59 20 49 |.F.. EXTRA DAY I|
00001050: 4E 20 4C 45 41 50 20 59 45 41 52 53 20 49 47 4E |N LEAP YEARS IGN|
00001060: 4F 52 45 44 00 79 18 50 05 58 B2 50 31 AC 28 4E |ORED.y.P.X.P1.(N|
00001070: 28 4D 29 AA 44 41 29 AD 37 00 A7 18 5A 05 44 B2 |(M).DA).7...Z.D.|
00001080: 2E 34 35 36 AB 32 32 2E 39 31 35 AC BE 28 58 29 |.456.22.915..(X)|
00001090: AB 2E 34 33 AC BE 28 32 AC 58 29 AB 2E 31 35 36 |..43..(2.X)..156|
000010A0: AC BE 28 33 AC 58 29 00 D0 18 5F 05 44 B2 44 AA |..(3.X)..._.D.D.|
000010B0: 33 2E 38 33 AC BF 28 58 29 AA 2E 30 36 AC BF 28 |3.83..(X)..06..(|
000010C0: 32 AC 58 29 AB 2E 30 38 32 AC BF 28 33 AC 58 29 |2.X)..082..(3.X)|
000010D0: 00 08 19 64 05 45 B2 2E 30 30 38 AA 2E 35 31 AC |...d.E..008..51.|
000010E0: BE 28 58 29 AB 33 2E 31 39 37 AC BE 28 32 AC 58 |.(X).3.197..(2.X|
000010F0: 29 AB 2E 31 30 36 AC BE 28 33 AC 58 29 AB 2E 31 |)..106..(3.X)..1|
00001100: 35 AC BE 28 34 AC 58 29 00 40 19 69 05 45 B2 45 |5..(4.X).@.i.E.E|
00001110: AB 37 2E 33 31 37 AC BF 28 58 29 AB 39 2E 34 37 |.7.317..(X).9.47|
00001120: 31 AC BF 28 32 AC 58 29 AB 2E 33 39 31 AC BF 28 |1..(2.X)..391..(|
00001130: 33 AC 58 29 AB 2E 32 34 32 AC BF 28 34 AC 58 29 |3.X)..242..(4.X)|
00001140: 00 8B 19 6E 05 8F 20 44 20 49 53 20 44 45 43 4C |...n.. D IS DECL|
00001150: 49 4E 41 54 49 4F 4E 20 4F 46 20 53 55 4E 20 49 |INATION OF SUN I|
00001160: 4E 20 44 45 47 52 45 45 53 3B 20 45 20 49 53 20 |N DEGREES; E IS |
00001170: 45 51 55 41 54 49 4F 4E 20 4F 46 20 54 49 4D 45 |EQUATION OF TIME|
00001180: 20 49 4E 20 4D 49 4E 55 54 45 53 00 98 19 78 05 | IN MINUTES...x.|
00001190: 44 45 B2 44 AD 52 41 44 00 9E 19 82 05 8E 00 CC |DE.D.RAD........|
000011A0: 19 8C 05 8F 20 43 4F 4D 50 55 54 41 54 49 4F 4E |.... COMPUTATION|
000011B0: 20 4F 46 20 53 55 4E 52 49 53 45 20 41 4E 44 20 | OF SUNRISE AND |
000011C0: 53 55 4E 53 45 54 20 54 49 4D 45 53 00 DE 19 96 |SUNSET TIMES....|
000011D0: 05 59 B2 C0 28 44 45 29 AC C0 28 41 33 29 00 F1 |.Y..(DE)..(A3)..|
000011E0: 19 A0 05 8B 20 59 B1 31 20 A7 20 5A 5A B2 31 3A |.... Y.1 . ZZ.1:|
000011F0: 8E 00 05 1A AA 05 8B 20 59 B3 AB 31 20 A7 20 5A |....... Y..1 . Z|
00001200: 5A B2 32 3A 8E 00 26 1A B4 05 41 52 B2 AB C1 28 |Z.2:..&...AR...(|
00001210: 59 AD BA 28 AB 59 AC 59 AA 31 29 29 AA 31 2E 35 |Y..(.Y.Y.1)).1.5|
00001220: 37 30 37 36 33 33 00 34 1A BE 05 41 43 B2 41 52 |707633.4...AC.AR|
00001230: AC 52 41 44 00 52 1A C8 05 52 49 B2 4C 4F AD 31 |.RAD.R...RI.LO.1|
00001240: 35 AA 41 43 AD 31 35 3A 52 49 B2 52 49 AB 45 AD |5.AC.15:RI.RI.E.|
00001250: 36 30 00 70 1A D2 05 53 30 B2 4C 4F AD 31 35 AB |60.p...S0.LO.15.|
00001260: 41 43 AD 31 35 3A 53 30 B2 53 30 AB 45 AD 36 30 |AC.15:S0.S0.E.60|
00001270: 00 87 1A DC 05 8B 20 52 49 B1 32 34 20 A7 20 52 |...... RI.24 . R|
00001280: 49 B2 52 49 AB 32 34 00 9D 1A E6 05 8B 20 52 49 |I.RI.24...... RI|
00001290: B3 30 20 A7 20 52 49 B2 52 49 AA 32 34 00 CC 1A |.0 . RI.RI.24...|
000012A0: F0 05 8B 20 28 52 49 AB B5 28 52 49 29 29 B1 2E |... (RI..(RI))..|
000012B0: 39 39 20 A7 20 52 49 B2 28 B5 28 28 52 49 AC 31 |99 . RI.(.((RI.1|
000012C0: 30 30 29 AA 2E 36 29 29 AD 31 30 30 00 E3 1A FA |00)..6)).100....|
000012D0: 05 8B 20 53 30 B1 32 34 20 A7 20 53 30 B2 53 30 |.. S0.24 . S0.S0|
000012E0: AB 32 34 00 F9 1A 04 06 8B 20 53 30 B3 30 20 A7 |.24...... S0.0 .|
000012F0: 20 53 30 B2 53 30 AA 32 34 00 28 1B 0E 06 8B 20 | S0.S0.24.(.... |
00001300: 28 53 30 AB B5 28 53 30 29 29 B1 2E 39 39 20 A7 |(S0..(S0))..99 .|
00001310: 20 53 30 B2 28 B5 28 28 53 30 AC 31 30 30 29 AA | S0.(.((S0.100).|
00001320: 2E 36 29 29 AD 31 30 30 00 39 1B 18 06 99 20 51 |.6)).100.9.... Q|
00001330: 24 28 4A 29 3A 5A 5A B2 30 00 3F 1B 22 06 8E 00 |$(J):ZZ.0.?."...|
00001340: 6F 1B 2C 06 99 20 22 4E 4F 20 53 55 4E 53 45 54 |o.,.. "NO SUNSET|
00001350: 20 41 54 20 59 4F 55 52 20 4C 4F 43 41 54 49 4F | AT YOUR LOCATIO|
00001360: 4E 20 54 4F 44 41 59 22 3A 89 20 31 36 30 30 00 |N TODAY":. 1600.|
00001370: 99 1B 36 06 99 20 22 4E 4F 20 53 55 4E 52 49 53 |..6.. "NO SUNRIS|
00001380: 45 20 41 54 20 59 4F 55 52 20 4C 4F 43 41 54 49 |E AT YOUR LOCATI|
00001390: 4F 4E 20 54 4F 44 41 59 22 00 A4 1B 40 06 A0 20 |ON TODAY"...@.. |
000013A0: 31 33 3A 80 00 CE 1B 4A 06 52 31 B2 B5 28 52 49 |13:....J.R1..(RI|
000013B0: 29 3A 52 32 B2 28 52 49 AB B5 28 52 49 29 29 AC |):R2.(RI..(RI)).|
000013C0: 36 30 3A 52 32 B2 B5 28 52 32 AA 2E 35 29 00 F8 |60:R2..(R2..5)..|
000013D0: 1B 54 06 53 31 B2 B5 28 53 30 29 3A 53 32 B2 28 |.T.S1..(S0):S2.(|
000013E0: 53 30 AB B5 28 53 30 29 29 AC 36 30 3A 53 32 B2 |S0..(S0)).60:S2.|
000013F0: B5 28 53 32 AA 2E 35 29 00 24 1C 5E 06 52 49 24 |.(S2..5).$.^.RI$|
00001400: B2 C4 28 52 31 29 AA 22 3A 22 AA C4 28 52 32 29 |..(R1).":"..(R2)|
00001410: 3A 53 30 24 B2 C4 28 53 31 29 AA 22 3A 22 AA C4 |:S0$..(S1).":"..|
00001420: 28 53 32 29 00 2A 1C 68 06 8E 00 54 1C 72 06 54 |(S2).*.h...T.r.T|
00001430: 31 B2 B5 28 54 4D 29 3A 54 32 B2 28 54 4D AB B5 |1..(TM):T2.(TM..|
00001440: 28 54 4D 29 29 AC 36 30 3A 54 32 B2 B5 28 54 32 |(TM)).60:T2..(T2|
00001450: AA 2E 35 29 00 66 1C 7C 06 54 4D 24 B2 C4 28 54 |..5).f.|.TM$..(T|
00001460: 31 29 AA 22 3A 22 00 83 1C 86 06 8B 20 54 32 B3 |1).":"...... T2.|
00001470: 31 30 20 A7 20 54 4D 24 B2 C4 28 54 31 29 AA 22 |10 . TM$..(T1)."|
00001480: 3A 20 22 00 89 1C 90 06 8E 00 AA 1C 9A 06 8B 20 |: "............ |
00001490: 51 51 B2 31 20 AF 20 52 49 AA 32 34 B3 4C 52 AA |QQ.1 . RI.24.LR.|
000014A0: 47 4C 20 A7 20 8D 20 38 33 30 00 CB 1C A4 06 8B |GL . . 830......|
000014B0: 20 51 51 B2 31 20 AF 20 53 30 AA 32 34 B3 4C 52 | QQ.1 . S0.24.LR|
000014C0: AA 47 4C 20 A7 20 8D 20 38 34 30 00 EC 1C AE 06 |.GL . . 840.....|
000014D0: 8B 20 51 51 B2 32 20 AF 20 52 49 AA 32 34 B3 4C |. QQ.2 . RI.24.L|
000014E0: 53 AA 47 4C 20 A7 20 8D 20 38 37 30 00 0D 1D B8 |S.GL . . 870....|
000014F0: 06 8B 20 51 51 B2 32 20 AF 20 53 30 AA 32 34 B3 |.. QQ.2 . S0.24.|
00001500: 4C 53 AA 47 4C 20 A7 20 8D 20 38 38 30 00 2E 1D |LS.GL . . 880...|
00001510: C2 06 8B 20 51 51 B2 33 20 AF 20 52 49 AB 32 34 |... QQ.3 . RI.24|
00001520: B1 4C 52 AB 47 4C 20 A7 20 8D 20 38 33 30 00 4F |.LR.GL . . 830.O|
00001530: 1D CC 06 8B 20 51 51 B2 33 20 AF 20 53 30 AB 32 |.... QQ.3 . S0.2|
00001540: 34 B1 4C 52 AB 47 4C 20 A7 20 8D 20 38 34 30 00 |4.LR.GL . . 840.|
00001550: 70 1D D6 06 8B 20 51 51 B2 34 20 AF 20 52 49 AB |p.... QQ.4 . RI.|
00001560: 32 34 B1 4C 53 AB 47 4C 20 A7 20 8D 20 38 37 30 |24.LS.GL . . 870|
00001570: 00 91 1D E0 06 8B 20 51 51 B2 34 20 AF 20 53 30 |...... QQ.4 . S0|
00001580: AB 32 34 B1 4C 53 AB 47 4C 20 A7 20 8D 20 38 38 |.24.LS.GL . . 88|
00001590: 30 00 97 1D EA 06 8E 00 A5 1D F4 06 81 20 4A B2 |0............ J.|
000015A0: 31 20 A4 20 57 00 BD 1D FE 06 8B 20 52 32 28 4A |1 . W...... R2(J|
000015B0: 29 B1 32 32 20 A7 20 8D 20 31 39 32 30 00 C5 1D |).22 . . 1920...|
000015C0: 08 07 82 20 4A 00 D3 1D 12 07 81 20 4A B2 31 20 |... J...... J.1 |
000015D0: A4 20 57 00 EB 1D 1C 07 8B 20 52 32 28 4A 29 B3 |. W...... R2(J).|
000015E0: 32 32 20 A7 20 8D 20 31 39 32 30 00 F3 1D 26 07 |22 . . 1920...&.|
000015F0: 82 20 4A 00 FE 1D 30 07 89 20 31 30 39 30 00 0C |. J...0.. 1090..|
00001600: 1E 3A 07 81 20 4A B2 31 20 A4 20 55 00 24 1E 44 |.:.. J.1 . U.$.D|
00001610: 07 8B 20 53 32 28 4A 29 B1 32 32 20 A7 20 8D 20 |.. S2(J).22 . . |
00001620: 31 39 38 30 00 2C 1E 4E 07 82 20 4A 00 3B 1E 58 |1980.,.N.. J.;.X|
00001630: 07 81 20 4A B2 31 20 A4 20 55 20 00 53 1E 62 07 |.. J.1 . U .S.b.|
00001640: 8B 20 53 32 28 4A 29 B3 32 32 20 A7 20 8D 20 31 |. S2(J).22 . . 1|
00001650: 39 38 30 00 5B 1E 6C 07 82 20 4A 00 61 1E 76 07 |980.[.l.. J.a.v.|
00001660: 80 00 75 1E 80 07 54 4D B2 52 32 28 4A 29 3A 8D |..u...TM.R2(J):.|
00001670: 20 31 36 35 30 00 9B 1E 8A 07 99 20 54 4D 24 54 | 1650...... TM$T|
00001680: 32 3B A3 37 29 52 33 24 28 4A 29 3B A6 33 29 C8 |2;.7)R3$(J);.3).|
00001690: 28 52 34 24 28 4A 29 2C 31 34 29 00 AE 1E 94 07 |(R4$(J),14).....|
000016A0: 8B 20 4C 50 24 B3 B1 22 59 22 20 A7 20 8E 00 E1 |. LP$.."Y" . ...|
000016B0: 1E 96 07 9D 31 33 3A 99 20 A3 35 29 54 4D 24 54 |....13:. .5)TM$T|
000016C0: 32 3B A6 35 29 52 33 24 28 4A 29 3B A6 32 34 AB |2;.5)R3$(J);.24.|
000016D0: C3 28 52 33 24 28 4A 29 29 29 52 34 24 28 4A 29 |.(R3$(J)))R4$(J)|
000016E0: 3B 00 ED 1E 9E 07 4C 4E B2 4C 4E AA 31 00 09 1F |;.....LN.LN.1...|
000016F0: A8 07 8B 20 4C 4E B2 B1 35 35 20 A7 20 99 20 C7 |... LN..55 . . .|
00001700: 28 31 32 29 3A 4C 4E B2 35 00 17 1F B2 07 98 31 |(12):LN.5......1|
00001710: 33 2C 22 22 3B 3A 8E 00 2B 1F BC 07 54 4D B2 53 |3,"";:..+...TM.S|
00001720: 32 28 4A 29 3A 8D 20 31 36 35 30 00 51 1F C6 07 |2(J):. 1650.Q...|
00001730: 99 20 54 4D 24 54 32 3B A3 37 29 53 33 24 28 4A |. TM$T2;.7)S3$(J|
00001740: 29 3B A6 33 29 C8 28 53 34 24 28 4A 29 2C 31 34 |);.3).(S4$(J),14|
00001750: 29 00 64 1F D0 07 8B 20 4C 50 24 B3 B1 22 59 22 |).d.... LP$.."Y"|
00001760: 20 A7 20 8E 00 97 1F D2 07 9D 31 33 3A 99 20 A3 | . .......13:. .|
00001770: 35 29 54 4D 24 54 32 3B A6 35 29 53 33 24 28 4A |5)TM$T2;.5)S3$(J|
00001780: 29 3B A6 32 34 AB C3 28 53 33 24 28 4A 29 29 29 |);.24..(S3$(J)))|
00001790: 53 34 24 28 4A 29 3B 00 A3 1F DA 07 4C 4E B2 4C |S4$(J);.....LN.L|
000017A0: 4E AA 31 00 BF 1F E4 07 8B 20 4C 4E B2 B1 35 35 |N.1...... LN..55|
000017B0: 20 A7 20 99 20 C7 28 31 32 29 3A 4C 4E B2 35 00 | . . .(12):LN.5.|
000017C0: CD 1F EE 07 98 31 33 2C 22 22 3B 3A 8E 00 00 00 |.....13,"";:....|
..-.... GRAY LINE DX CALCULATOR PROGRAM
(C64).M....13,4:. VIC PRINTER CHANNEL...
... --LISTS ALL LOCATIONS HAVING SUNRISE
/SUNSET TIMES ...... AT ABOUT THE SAME T
IME AS YOURS....(.. BY KC6A AND N6NB; (C
) 1983 BY HAYDEN BOOK CO.,INC....2.B1$."
GRAY LINE CALCULATION PROGRAM".N.<.. BAS
ED ON ACTUAL SUNRISE/SUNSET TIMES; APPAR
ENT TIMES VARY.|.F.. SLIGHTLY DUE TO ATM
OSPHERIC REFRACTION....P.. G(147): . CLE
AR SCREEN...Z.. .A(X)..(100.X..5).100.Y.
D.. R2(100):. R3$(100):. R4$(100)...N..
S2(100):. S3$(100):. S4$(100).*.X.. PX$(
500):. Q$(500):. AX(500):. OX(500).`....
THE DATA FILE (LATLONG) MUST BE ON LOGG
ED DISK......P1.3.14159.26:RAD.57.2958:C
T.1:W.1:U.1:QQ.0......:.:.... .. .4)B1$:
..I....:. "WHAT IS YOUR CALL";KL$......:
. "DO YOU WANT A HARD COPY";LP$......:.
"ENTER MONTH AND DAY".7.C.. "FOR THIS PR
INTOUT (E.G. 7,4)";M,DA.C.H..:. "HOW WID
E A GRAY LINE DO YOU WANT?"...R.. "THAT
IS, HOW CLOSE TO YOUR TIMES MUST"...W..
"A SUNRISE OR SUNSET TIME BE FOR"......
"LISTING BY THIS PROGRAM?":. "ENTER # MI
NS (45 MAX)";GL.*.... GL.45 . . "TOO LON
G. 45 MINS MAXIMUM":. 200.\....:. "ENTE
R YOUR COORDINATES IN DEGREES, MINS"....
.. "USE '-' FOR BOTH DEGREES AND MINS"..
.... "IF EAST LONGITUDE, SOUTH LATITUDE"
:..V.... "LATITUDE (E.G. 33,30)";LA,AM..
.... "LONGITUDE (E.G. 116,30)";LO,OM. ..
.LA..A(LA.AM.60):LO..A(LO.OM.60).O.".A3.
LA.RAD:GL.GL.60:R$."(RISE)":S$."(SET) ".
{.,.A5$." S LAT; ":. LA..0 . A5$." N LAT
; "...6.O5$." E LONG":. LO..0 . O5$." W
LONG"...@.F1$."HERE ARE THE PLACES ON YO
UR GRAY LINE TODAY"...J.F2$."TIME (GMT)
LOCATION".<.T.F3$."AT YOUR
SUNRISE...":F4$."AT YOUR SUNSET...".F.^
..:. "COMPUTING LOCAL SUNRISE DATA...".X
.H.. 1300:. 1430...R.. ZZ.1 . 1580...|..
ZZ.2 . 1590.....LR.RI:LS.S0.B.... LR.GL
.24 . QQ.1.X.... LS.GL.24 . QQ.2...... L
R.GL.0 . QQ.3...... LS.GL.0 . QQ.4......
1610.#.B.. LP$."Y" . . 740.I.L..:. "AT
";.(LA);A5$;" ";.(LO);O5$.K.V..:. "ON TH
IS DATE: ";M;"/";DA......:. "YOUR SUNRIS
E OCCURS AT ";RI$;" GMT".C.... "YOUR SUN
SET OCCURS AT ";S0$;" GMT"...... READIN
G ALL DATA INTO ARRAYS (SAVES DISK ACCES
S TIME). ....:. "NOW READING IN DATA..."
.:.... 8,8,8,"LATLONG,S,R".^.&..8,PX$(CT
),Q$(CT),AX(CT),OX(CT)...0.. PX$(CT)."ZZ
Z" . PX$(CT)."":Q$(CT)."":. 600...:.Q$(C
T).H(Q$(CT),16)...D.CT.CT.1...N.. 550.D.
X. 8...B..:. "COMPUTING SUNRISE AND SUNS
ET TIMES FOR:"...L.. J.1 . CT...V.A3.AX(
J).RAD:LO.OX(J).*.... 1430.;.... ZZ.0 .
710.P.... QQ..0 . . 1690.R.... RI.LR.GL
. RI.LR.GL . . 830...... RI.LS.GL . RI.L
S.GL . . 870...... S0.LR.GL . S0.LR.GL .
. 840.X.... S0.LS.GL . S0.LS.GL . . 880
...F.PX$(J)."":Q$(J).""...P.. J...Z.. 91
0......13:.:.:. .12)B1$:..K.... .5)"FOR
";KL$;" AT";.(LA);A5$;" ";.(LO);O5$.}...
.:.:. .5)"YOUR SUNRISE OCCURS AT ";RI$;"
GMT"...... .5)"YOUR SUNSET OCCURS AT "
;S0$;" GMT".C.... .5)"ON ";M;"/";DA.R...
.:. .5)F1$... ..:. .5)F3$:.:. .5)F2$:.13
,"":LN.17...*...3.4.. ARRAY OF PLACES ON
GRAY LINE AT LOCAL SUNRISE.J.>.R2(W).RI
:R3$(W).R$." - ".PX$(J):R4$(W).Q$(J):. 8
50...H.R2(W).S0:R3$(W).S$." - ".PX$(J):R
4$(W).Q$(J)...R.W.W.1:..Z.\.. ARRAY OF P
LACES ON GRAY LINE AT LOCAL SUNSET...F.S
2(U).RI:S3$(U).R$." - ".PX$(J):S4$(U).Q$
(J):. 890.B.P.S2(U).S0:S3$(U).S$." - ".P
X$(J):S4$(U).Q$(J).N.Z.U.U.1:..Q.... BUB
BLE SORTING EACH ARRAY.........:. "NOW S
ORTING...".....W.W.1:U.U.1...... A1.1 .
W.1.....F.0.D.... H.1 . W.A1...... R2(H.
1)..R2(H) . 1010...J.T.R2(H):R2(H).R2(H.
1):R2(H.1).T...T.T$.R3$(H):R3$(H).R3$(H.
1):R3$(H.1).T$.X...T$.R4$(H):R4$(H).R4$(
H.1):R4$(H.1).T$.`...F.1.H.... H.Y.... F
.0 . 1040...... A1......:. F1$:.:. F3$:.
:. F2$...... QQ..0 . 1780...$.. J.1 . W.
J.... 1920.R.8.. J...B.. LP$."Y" . .13:.
:.:. .5)F4$...L.. LP$."Y" . .:. .5)F2$:.
13:LN.LN.6.9.V..:. "NOW SORTING AGAIN...
".J.`.. A1.1 . U.1.R.J.F.0.C.T.. H.1 . U
.A1..~.. S2(H.1)..S2(H) . 1200.....T.S2
(H):S2(H).S2(H.1):S2(H.1).T.M...T$.S3$(H
):S3$(H).S3$(H.1):S3$(H.1).T$.....T$.S4$
(H):S4$(H).S4$(H.1):S4$(H.1).T$.....F.1.
..... H...... F.0 . 1230.".D.. A1 .6.N..
:. F4$:.:. F2$.I.X.. QQ..0 . 1850.W....
J.1 . U.B.... 1980.J.... J...... LP$."Y"
. .13,G(12)...... J.1 . 1000:.;:. J: 13
:....... COMPUTATION OF DECL, EQUATION O
F TIME FOR SPECIFIC DAY...... N(12).....
. I.1 . 12...(.. N(I)...2.. I.>.<.. 0,31
,59,90,120,151,181,212,243,273,304,334.D
.F.. EXTRA DAY IN LEAP YEARS IGNORED.Y.P
.X.P1.(N(M).DA).7...Z.D..456.22.915..(X)
..43..(2.X)..156..(3.X).P._.D.D.3.83..(X
)..06..(2.X)..082..(3.X)...D.E..008..51.
.(X).3.197..(2.X)..106..(3.X)..15..(4.X)
.@.I.E.E.7.317..(X).9.471..(2.X)..391..(
3.X)..242..(4.X)...N.. D IS DECLINATION
OF SUN IN DEGREES; E IS EQUATION OF TIME
IN MINUTES...X.DE.D.RAD.......L.... COM
PUTATION OF SUNRISE AND SUNSET TIMES....
.Y..(DE)..(A3)... .. Y.1 . ZZ.1:.......
Y..1 . ZZ.2:..&...AR..A(Y..(.Y.Y.1)).1.5
707633.4...AC.AR.RAD.R.H.RI.LO.15.AC.15:
RI.RI.E.60.P.R.S0.LO.15.AC.15:S0.S0.E.60
...... RI.24 . RI.RI.24...... RI.0 . RI.
RI.24.L.... (RI..(RI))..99 . RI.(.((RI.1
00)..6)).100...... S0.24 . S0.S0.24.....
. S0.0 . S0.S0.24.(.... (S0..(S0))..99 .
S0.(.((S0.100)..6)).100.9.... Q$(J):ZZ.
0.?."...O.,.. "NO SUNSET AT YOUR LOCATIO
N TODAY":. 1600...6.. "NO SUNRISE AT YOU
R LOCATION TODAY"...@. 13:..N.J.R1..(RI
):R2.(RI..(RI)).60:R2..(R2..5)...T.S1..(
S0):S2.(S0..(S0)).60:S2..(S2..5).$.^.RI$
.D(R1).":".D(R2):S0$.D(S1).":".D(S2).*.H
...T.R.T1..(TM):T2.(TM..(TM)).60:T2..(T2
..5).F.|.TM$.D(T1).":"...... T2.10 . TM$
.D(T1).": "............ QQ.1 . RI.24.LR.
GL . . 830.K.... QQ.1 . S0.24.LR.GL . .
840...... QQ.2 . RI.24.LS.GL . . 870....
.. QQ.2 . S0.24.LS.GL . . 880...B.. QQ.3
. RI.24.LR.GL . . 830.O.L.. QQ.3 . S0.2
4.LR.GL . . 840.P.V.. QQ.4 . RI.24.LS.GL
. . 870...... QQ.4 . S0.24.LS.GL . . 88
0............ J.1 . W...... R2(J).22 . .
1920.E.... J.S.... J.1 . W...... R2(J).
22 . . 1920...&.. J...0.. 1090...:.. J.1
. U.$.D.. S2(J).22 . . 1980.,.N.. J.;.X
.. J.1 . U .S.B.. S2(J).22 . . 1980.[.L.
. J.A.V...U...TM.R2(J):. 1650...... TM$T
2;.7)R3$(J);.3)H(R4$(J),14)...... LP$.."
Y" . .......13:. .5)TM$T2;.5)R3$(J);.24.
C(R3$(J)))R4$(J);.....LN.LN.1...... LN..
55 . . G(12):LN.5......13,"";:..+...TM.S
2(J):. 1650.Q.F.. TM$T2;.7)S3$(J);.3)H(S
4$(J),14).D.P.. LP$.."Y" . ....R..13:. .
5)TM$T2;.5)S3$(J);.24.C(S3$(J)))S4$(J);.
..Z.LN.LN.1...... LN..55 . . G(12):LN.5.
M....13,"";:....
> CLICK IMAGE PREVIEW FOR FULL MODAL