SUNRISE
FILE INFORMATION
FILENAME(S): SUNRISE
FILE TYPE(S): PRG
FILE SIZE: 3.3K
FIRST SEEN: 2025-11-30 21:23:48
APPEARS ON: 1 disk(s)
FILE HASH
1618f59540fcee166379420a6c4dbb4d85b48a15a21259873011db24ff126307
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 85 2 | SUNRISE | PRG | DuncanTwain | 31 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 89 31 30 30 30 00 15 08 14 00 |.......1000.....|
00000010: 89 31 30 31 30 00 21 08 64 00 99 22 93 22 3B 3A |.1010.!.d..".";:|
00000020: 8E 00 51 08 6E 00 99 C8 28 22 13 11 11 11 11 11 |..Q.n...("......|
00000030: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000040: 11 11 11 22 2C B6 28 B5 28 56 45 AA 31 29 29 29 |...",.(.(VE.1)))|
00000050: 3B 00 61 08 70 00 99 A6 B6 28 48 4F 29 29 3B 3A |;.a.p....(HO));:|
00000060: 8E 00 86 08 78 00 48 4F B2 C2 28 32 30 39 29 AA |....x.HO..(209).|
00000070: 32 35 36 AC C2 28 32 31 30 29 AB 31 30 32 34 AA |256..(210).1024.|
00000080: C2 28 32 31 31 29 00 A4 08 79 00 56 45 B2 B5 28 |.(211)...y.VE..(|
00000090: 48 4F AD 34 30 29 3A 48 4F B2 48 4F AB 34 30 AC |HO.40):HO.HO.40.|
000000A0: 56 45 3A 8E 00 AF 08 C8 00 A1 49 4E 24 3A 8E 00 |VE:.......IN$:..|
000000B0: C4 08 D2 00 A1 49 4E 24 3A 8B 49 4E 24 B2 22 22 |.....IN$:.IN$.""|
000000C0: 89 32 31 30 00 CA 08 DC 00 8E 00 F7 08 FA 00 97 |.210............|
000000D0: 35 34 32 39 36 2C 31 35 3A 97 35 34 32 37 38 2C |54296,15:.54278,|
000000E0: 32 35 35 3A 97 35 34 32 37 33 2C 39 35 3A 97 35 |255:.54273,95:.5|
000000F0: 34 32 37 36 2C 31 37 00 09 09 FB 00 81 4F 4F B2 |4276,17......OO.|
00000100: 31 A4 32 30 30 3A 82 4F 4F 00 2A 09 FC 00 97 35 |1.200:.OO.*....5|
00000110: 34 32 37 36 2C 30 3A 97 35 34 32 37 37 2C 30 3A |4276,0:.54277,0:|
00000120: 97 35 34 32 37 38 2C 30 3A 8E 00 38 09 04 01 52 |.54278,0:..8...R|
00000130: 56 B2 BB 28 31 29 3A 8E 00 46 09 0E 01 46 52 B2 |V..(1):..F...FR.|
00000140: B8 28 30 29 3A 8E 00 6F 09 2C 01 53 52 24 B2 C4 |.(0):..o.,.SR$..|
00000150: 28 53 52 29 3A 8B C8 28 53 52 24 2C 31 29 B2 22 |(SR):..(SR$,1)."|
00000160: 20 22 A7 53 52 24 B2 CA 28 53 52 24 2C 32 29 00 | ".SR$..(SR$,2).|
00000170: 75 09 2D 01 8E 00 9A 09 36 01 53 52 24 B2 22 22 |u.-.....6.SR$.""|
00000180: 3A 8B 53 52 B1 B2 31 30 AE 28 43 54 AB 43 4E AB |:.SR..10.(CT.CN.|
00000190: B4 28 43 4E 29 29 A7 33 31 38 00 B5 09 37 01 8B |.(CN)).318...7..|
000001A0: 53 52 B3 AB 2E 35 AC 31 30 AE AB 43 4E A7 53 52 |SR...5.10..CN.SR|
000001B0: 24 B2 22 2D 22 00 DC 09 38 01 53 52 24 B2 53 52 |$."-"...8.SR$.SR|
000001C0: 24 AA CA 28 C4 28 B5 28 B6 28 53 52 29 AA 2E 35 |$..(.(.(.(SR)..5|
000001D0: AC 31 30 AE AB 43 4E 29 29 2C 32 29 00 07 0A 39 |.10..CN)),2)...9|
000001E0: 01 8B C3 28 53 52 24 29 B3 43 54 AB 43 4E AA 28 |...(SR$).CT.CN.(|
000001F0: 43 4E B3 B1 30 29 A7 53 52 24 B2 22 20 22 AA 53 |CN..0).SR$." ".S|
00000200: 52 24 3A 89 33 31 33 00 21 0A 3A 01 8B 43 4E B2 |R$:.313.!.:..CN.|
00000210: 30 B0 B6 28 53 52 29 B1 B2 31 45 31 30 89 33 31 |0..(SR)..1E10.31|
00000220: 36 00 55 0A 3B 01 53 52 24 B2 53 52 24 AA CA 28 |6.U.;.SR$.SR$..(|
00000230: C4 28 31 AA B6 28 53 52 29 AB B5 28 B6 28 53 52 |.(1..(SR)..(.(SR|
00000240: 29 29 AA 2E 35 AC 31 30 AE AB 43 4E 29 2C 33 2C |))..5.10..CN),3,|
00000250: 43 4E AA 31 29 00 75 0A 3C 01 8B C3 28 53 52 24 |CN.1).u.<...(SR$|
00000260: 29 B3 43 54 A7 53 52 24 B2 53 52 24 AA 22 20 22 |).CT.SR$.SR$." "|
00000270: 3A 89 33 31 36 00 8B 0A 3D 01 8B C3 28 53 52 24 |:.316...=...(SR$|
00000280: 29 B1 43 54 A7 53 52 24 B2 22 22 00 AB 0A 3E 01 |).CT.SR$.""...>.|
00000290: 8B C3 28 53 52 24 29 B3 43 54 A7 53 52 24 B2 53 |..(SR$).CT.SR$.S|
000002A0: 52 24 AA 22 2A 22 3A 89 33 31 38 00 B1 0A 3F 01 |R$."*":.318...?.|
000002B0: 8E 00 C7 0A 5E 01 9F 34 2C 34 3A 98 34 2C 53 52 |....^..4,4:.4,SR|
000002C0: 24 3B 3A A0 34 3A 8E 00 D8 0A 68 01 9F 34 2C 34 |$;:.4:....h..4,4|
000002D0: 3A 98 34 3A A0 34 3A 8E 00 FC 0A E8 03 41 B2 35 |:.4:.4:......A.5|
000002E0: 30 30 3A 89 32 30 3A 8F 20 53 55 4E 44 4F 57 4E |00:.20:. SUNDOWN|
000002F0: 20 41 4E 44 20 53 55 4E 52 49 53 45 00 1C 0B F2 | AND SUNRISE....|
00000300: 03 8D 31 30 30 3A 99 22 D3 D5 CE D2 C9 D3 C5 20 |..100:."....... |
00000310: C1 CE C4 20 D3 D5 CE C4 CF D7 CE 22 00 37 0B FC |... .......".7..|
00000320: 03 99 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.."=============|
00000330: 3D 3D 3D 3D 3D 3D 22 00 61 0B 06 04 99 3A 99 3A |======".a....:.:|
00000340: 99 22 C1 20 D0 D2 CF C7 D2 C1 CD 20 C2 D9 20 D4 |.". ....... .. .|
00000350: C8 CF CD C1 D3 20 C8 CF C6 CD C5 C9 D3 D4 C5 D2 |..... ..........|
00000360: 22 00 82 0B 10 04 99 3A 99 22 20 20 20 20 20 20 |"......:." |
00000370: 20 20 20 20 20 20 20 C9 CE 20 C2 CF C3 C8 D5 CD | .. ......|
00000380: 2E 22 00 AE 0B 1A 04 99 3A 99 3A 99 22 C4 CF 20 |."......:.:.".. |
00000390: D9 CF D5 20 D7 C1 CE D4 20 C5 D8 D0 CC C1 CE C1 |... .... .......|
000003A0: D4 C9 CF CE D3 20 28 D9 2F CE 29 3F 22 3B 00 B7 |..... (./.)?";..|
000003B0: 0B 24 04 8D 32 30 30 00 DE 0B 2E 04 8B 28 49 4E |.$..200......(IN|
000003C0: 24 B2 22 D9 22 29 20 B0 28 49 4E 24 B2 22 59 22 |$.".") .(IN$."Y"|
000003D0: 29 20 A7 8D 32 30 30 30 3A 89 31 31 30 30 00 FE |) ..2000:.1100..|
000003E0: 0B 38 04 8B 28 49 4E 24 B2 22 CE 22 29 20 B0 28 |.8..(IN$.".") .(|
000003F0: 49 4E 24 B2 22 4E 22 29 20 A7 31 31 30 30 00 08 |IN$."N") .1100..|
00000400: 0C 42 04 89 31 30 36 30 00 19 0C 4C 04 50 58 B2 |.B..1060...L.PX.|
00000410: 33 2E 31 34 31 35 39 32 36 00 23 0C 56 04 89 31 |3.1415926.#.V..1|
00000420: 32 37 30 00 3A 0C 60 04 8F 20 53 55 42 52 4F 55 |270.:.`.. SUBROU|
00000430: 54 49 4E 45 20 53 49 4E 55 53 00 4C 0C 6A 04 59 |TINE SINUS.L.j.Y|
00000440: B2 BF 28 58 AC 50 58 AD 31 38 30 29 00 52 0C 74 |..(X.PX.180).R.t|
00000450: 04 8E 00 6B 0C 7E 04 8F 20 53 55 42 52 4F 55 54 |...k.~.. SUBROUT|
00000460: 49 4E 45 20 43 4F 53 49 4E 55 53 00 7D 0C 88 04 |INE COSINUS.}...|
00000470: 59 B2 BE 28 58 AC 50 58 AD 31 38 30 29 00 83 0C |Y..(X.PX.180)...|
00000480: 92 04 8E 00 9C 0C 9C 04 8F 20 53 55 42 52 4F 55 |......... SUBROU|
00000490: 54 49 4E 45 20 54 41 4E 47 45 4E 53 00 AE 0C A6 |TINE TANGENS....|
000004A0: 04 59 B2 C0 28 58 AC 50 58 AD 31 38 30 29 00 B4 |.Y..(X.PX.180)..|
000004B0: 0C B0 04 8E 00 D2 0C BA 04 8F 20 53 55 42 52 4F |.......... SUBRO|
000004C0: 55 54 49 4E 45 20 41 52 43 55 53 43 4F 53 49 4E |UTINE ARCUSCOSIN|
000004D0: 55 53 00 E6 0C C4 04 8B B6 28 58 29 B1 31 20 A7 |US.......(X).1 .|
000004E0: 58 B2 B4 28 58 29 00 F6 0C CE 04 8B 58 B2 31 20 |X..(X)......X.1 |
000004F0: A7 59 B2 30 3A 8E 00 09 0D D8 04 8B 58 B2 AB 31 |.Y.0:.......X..1|
00000500: 20 A7 59 B2 31 38 30 3A 8E 00 2E 0D E2 04 59 B2 | .Y.180:......Y.|
00000510: AB C1 28 58 AD BA 28 31 AB 58 AE 32 29 29 AA 50 |..(X..(1.X.2)).P|
00000520: 58 AD 32 3A 59 B2 59 AC 31 38 30 AD 50 58 00 34 |X.2:Y.Y.180.PX.4|
00000530: 0D EC 04 8E 00 3D 0D F6 04 8D 31 30 30 00 60 0D |.....=....100.`.|
00000540: 00 05 99 22 C1 D2 C5 20 D4 C8 C5 20 C3 CF CF D2 |..."... ... ....|
00000550: C4 C9 CE C1 D4 C5 D3 20 CF C6 20 D9 CF D5 D2 22 |....... .. ...."|
00000560: 00 66 0D 0A 05 99 00 8B 0D 14 05 99 22 C3 C8 CF |.f.........."...|
00000570: D3 C5 CE 20 D0 CC C1 C3 C5 20 C9 CE 20 C4 C1 D4 |... ..... .. ...|
00000580: C1 2D CC C9 CE C5 D3 20 CF D2 22 00 91 0D 1E 05 |.-..... ..".....|
00000590: 99 00 B2 0D 28 05 99 22 C4 CF 20 D9 CF D5 20 D7 |....(..".. ... .|
000005A0: C1 CE D4 20 D4 CF 20 C5 CE D4 C5 D2 20 D4 C8 C5 |... .. ..... ...|
000005B0: CD 22 00 B8 0D 32 05 99 00 D1 0D 3C 05 99 22 C2 |."...2.....<..".|
000005C0: D9 20 C8 C1 CE C4 3A 27 C4 27 3D C4 C1 D4 C1 2C |. ....:'.'=....,|
000005D0: 22 00 D7 0D 46 05 99 00 F2 0D 50 05 99 22 20 20 |"...F.....P.." |
000005E0: 20 20 20 20 20 20 27 C8 27 3D C2 D9 20 C8 C1 CE | '.'=.. ...|
000005F0: C4 22 00 F8 0D 5A 05 99 00 16 0E 64 05 99 22 20 |."...Z.....d.." |
00000600: 20 20 20 20 20 20 20 27 C5 27 3D C5 CE C4 20 CF | '.'=... .|
00000610: C6 20 D0 C7 CD 22 00 1C 0E 6E 05 99 00 2C 0E 78 |. ..."...n...,.x|
00000620: 05 8D 32 31 30 3A 41 24 B2 49 4E 24 00 4A 0E 82 |..210:A$.IN$.J..|
00000630: 05 8B 28 41 24 B2 22 C4 22 29 20 B0 28 41 24 B2 |..(A$.".") .(A$.|
00000640: 22 44 22 29 20 A7 31 34 35 30 00 68 0E 8C 05 8B |"D") .1450.h....|
00000650: 28 41 24 B2 22 C8 22 29 20 B0 28 41 24 B2 22 48 |(A$.".") .(A$."H|
00000660: 22 29 20 A7 31 34 39 30 00 83 0E 96 05 8B 28 41 |") .1490......(A|
00000670: 24 B2 22 C5 22 29 20 B0 28 41 24 B2 22 45 22 29 |$.".") .(A$."E")|
00000680: 20 A7 80 00 A5 0E A0 05 8D 31 30 30 3A 99 22 D7 | ........100:.".|
00000690: D2 CF CE C7 20 C5 CE D4 D2 D9 22 3A 99 3A 99 3A |.... .....":.:.:|
000006A0: 89 31 32 38 30 00 B4 0E AA 05 8F 20 49 4E 20 44 |.1280...... IN D|
000006B0: 41 54 41 53 00 BD 0E B4 05 8D 31 30 30 00 E6 0E |ATAS......100...|
000006C0: BE 05 8C 3A 87 42 52 2C 4C 41 3A 8F 20 42 52 3D |...:.BR,LA:. BR=|
000006D0: 4C 41 54 49 54 55 44 45 2C 20 4C 41 3D 4C 4F 4E |LATITUDE, LA=LON|
000006E0: 47 49 54 55 44 45 00 F0 0E C8 05 89 31 35 35 30 |GITUDE......1550|
000006F0: 00 F9 0E D2 05 8D 31 30 30 00 26 0F DC 05 99 22 |......100.&...."|
00000700: CC C1 D4 C9 D4 D5 C4 C5 20 3A 20 D0 CC C5 C1 D3 |........ : .....|
00000710: C5 20 C4 C5 C3 C9 CD C1 CC 20 28 CE 3D 2B 2C D3 |. ....... (.=+,.|
00000720: 3D 2D 29 22 3A 99 00 2E 0F E6 05 85 42 52 00 34 |=-)":.......BR.4|
00000730: 0F F0 05 99 00 61 0F FA 05 99 22 CC CF CE C7 C9 |.....a....".....|
00000740: D4 D5 C4 C5 3A 20 D0 CC C5 C1 D3 C5 20 C4 C5 C3 |....: ...... ...|
00000750: C9 CD C1 CC 20 28 D7 3D 2B 2C C5 3D 2D 29 22 3A |.... (.=+,.=-)":|
00000760: 99 00 69 0F 04 06 85 4C 41 00 6F 0F 0E 06 99 00 |..i....LA.o.....|
00000770: 91 0F 18 06 99 22 C6 CF D2 20 D7 C8 C9 C3 C8 20 |....."... ..... |
00000780: C4 C1 D9 20 28 31 2E 2E 33 31 29 22 3A 99 3A 85 |... (1..31)":.:.|
00000790: 44 00 A8 0F 22 06 99 3A 8B 44 B1 33 31 20 B0 44 |D..."..:.D.31 .D|
000007A0: B3 31 20 A7 31 35 36 30 00 D1 0F 2C 06 99 22 D0 |.1 .1560...,..".|
000007B0: CC C5 C1 D3 C5 20 C5 CE D4 C5 D2 20 CD CF CE D4 |..... ..... ....|
000007C0: C8 20 C1 D3 20 CE D5 CD C2 C5 D2 22 3A 99 3A 85 |. .. ......":.:.|
000007D0: 4D 00 E8 0F 36 06 99 3A 8B 4D B1 31 32 20 B0 4D |M...6..:.M.12 .M|
000007E0: B3 31 20 A7 31 35 38 30 00 03 10 40 06 54 B2 30 |.1 .1580...@.T.0|
000007F0: 2E 39 38 38 AC 28 44 AA 33 30 2E 33 AC 28 4D AB |.988.(D.30.3.(M.|
00000800: 31 29 29 00 14 10 4A 06 58 B2 54 AA 31 30 3A 8D |1))...J.X.T.10:.|
00000810: 31 31 35 30 00 22 10 54 06 44 31 B2 59 AC 32 33 |1150.".T.D1.Y.23|
00000820: 2E 35 00 37 10 5E 06 58 B2 28 54 AA 31 30 29 AC |.5.7.^.X.(T.10).|
00000830: 32 3A 8D 31 31 32 30 00 40 10 68 06 53 31 B2 59 |2:.1120.@.h.S1.Y|
00000840: 00 51 10 72 06 58 B2 54 AA 38 37 3A 8D 31 31 35 |.Q.r.X.T.87:.115|
00000850: 30 00 65 10 7C 06 45 54 B2 30 2E 31 32 33 AC 59 |0.e.|.ET.0.123.Y|
00000860: AB 53 31 AD 36 00 74 10 86 06 58 B2 42 52 3A 8D |.S1.6.t...X.BR:.|
00000870: 31 31 38 30 00 7D 10 90 06 53 32 B2 59 00 8C 10 |1180.}...S2.Y...|
00000880: 9A 06 58 B2 44 31 3A 8D 31 31 38 30 00 97 10 A4 |..X.D1:.1180....|
00000890: 06 58 B2 59 AC 53 32 00 A1 10 AE 06 8D 31 32 31 |.X.Y.S2......121|
000008A0: 30 00 B8 10 B8 06 47 41 B2 28 4C 41 AB 59 29 AD |0.....GA.(LA.Y).|
000008B0: 31 35 AB 45 54 AA 31 32 00 CF 10 C2 06 47 55 B2 |15.ET.12.....GU.|
000008C0: 28 4C 41 AA 59 29 AD 31 35 AB 45 54 AA 31 32 00 |(LA.Y).15.ET.12.|
000008D0: DC 10 CC 06 48 31 B2 B5 28 47 41 29 00 F1 10 D6 |....H1..(GA)....|
000008E0: 06 4D 31 B2 B5 28 28 47 41 AB 48 31 29 AC 36 30 |.M1..((GA.H1).60|
000008F0: 29 00 FE 10 E0 06 48 32 B2 B5 28 47 55 29 00 13 |).....H2..(GU)..|
00000900: 11 EA 06 4D 32 B2 B5 28 28 47 55 AB 48 32 29 AC |...M2..((GU.H2).|
00000910: 36 30 29 00 1C 11 F4 06 8D 31 30 30 00 3F 11 FE |60)......100.?..|
00000920: 06 53 55 24 B2 22 22 3A 53 52 B2 4D 31 3A 8D 33 |.SU$."":SR.M1:.3|
00000930: 30 30 3A 4D 31 24 B2 CA 28 53 52 24 2C 32 29 00 |00:M1$..(SR$,2).|
00000940: 56 11 08 07 8B C3 28 4D 31 24 29 B3 32 20 A7 53 |V.....(M1$).2 .S|
00000950: 55 24 B2 22 30 22 00 6F 11 12 07 53 52 B2 48 31 |U$."0".o...SR.H1|
00000960: 3A 43 54 B2 32 3A 43 4E B2 30 3A 8D 33 31 30 00 |:CT.2:CN.0:.310.|
00000970: 95 11 1C 07 99 22 D3 D5 CE D2 C9 D3 C5 3A 22 3B |.....".......:";|
00000980: 53 52 24 3B 22 3A 22 3B 53 55 24 3B 4D 31 24 22 |SR$;":";SU$;M1$"|
00000990: 20 C7 CD D4 22 00 9B 11 26 07 99 00 BE 11 30 07 | ..."...&.....0.|
000009A0: 53 55 24 B2 22 22 3A 53 52 B2 4D 32 3A 8D 33 30 |SU$."":SR.M2:.30|
000009B0: 30 3A 4D 32 24 B2 CA 28 53 52 24 2C 32 29 00 D5 |0:M2$..(SR$,2)..|
000009C0: 11 3A 07 8B C3 28 4D 32 24 29 B3 32 20 A7 53 55 |.:...(M2$).2 .SU|
000009D0: 24 B2 22 30 22 00 EE 11 44 07 53 52 B2 48 32 3A |$."0"...D.SR.H2:|
000009E0: 43 54 B2 32 3A 43 4E B2 30 3A 8D 33 31 30 00 14 |CT.2:CN.0:.310..|
000009F0: 12 4E 07 99 22 D3 D5 CE C4 CF D7 CE 3A 22 3B 53 |.N..".......:";S|
00000A00: 52 24 3B 22 3A 22 3B 53 55 24 3B 4D 32 24 22 20 |R$;":";SU$;M2$" |
00000A10: C7 CD D4 22 00 1A 12 58 07 99 00 24 12 62 07 89 |..."...X...$.b..|
00000A20: 31 32 38 30 00 37 12 D0 07 8F 20 45 58 50 4C 41 |1280.7.... EXPLA|
00000A30: 4E 41 54 49 4F 4E 53 00 40 12 DA 07 8D 31 30 30 |NATIONS.@....100|
00000A40: 00 62 12 E4 07 99 22 D4 C8 C9 D3 20 D0 D2 CF C7 |.b....".... ....|
00000A50: D2 C1 CD 20 C5 D6 C1 CC D5 C1 D4 C5 D3 20 C6 CF |... ......... ..|
00000A60: D2 22 00 8A 12 EE 07 99 3A 99 22 C1 20 D0 CC C1 |."......:.". ...|
00000A70: C3 C5 20 D7 C8 C9 C3 C8 20 C9 D3 20 C3 C8 CF D3 |.. ..... .. ....|
00000A80: C5 CE 20 C2 D9 20 D9 CF D5 22 00 AC 12 F8 07 99 |.. .. ..."......|
00000A90: 3A 99 22 D4 C8 C5 20 D4 C9 CD C5 D3 20 CF C6 20 |:."... ..... .. |
00000AA0: D3 D5 CE C4 CF D7 CE 20 C1 CE C4 22 00 BE 12 02 |....... ..."....|
00000AB0: 08 99 3A 99 22 D3 D5 CE D2 C9 D3 C5 2E 22 00 DF |..:."........"..|
00000AC0: 12 0C 08 99 3A 99 22 D4 C8 C5 D2 C5 C6 CF D2 C5 |....:.".........|
00000AD0: 2C 20 D9 CF D5 20 C8 C1 D6 C5 20 D4 CF 20 22 00 |, ... .... .. ".|
00000AE0: 0A 13 16 08 99 3A 99 22 CB CE CF D7 20 D4 C8 C5 |.....:.".... ...|
00000AF0: 20 C7 C5 CF C7 D2 C1 D0 C8 C9 C3 20 CC CF CE C7 | .......... ....|
00000B00: C9 D4 D5 C4 C5 20 C1 CE C4 22 00 2A 13 20 08 99 |..... ...".*. ..|
00000B10: 3A 99 22 CC C1 D4 C9 D4 D5 C4 C5 20 CF C6 20 D4 |:."........ .. .|
00000B20: C8 C5 20 D0 CC C1 C3 C5 2E 22 00 34 13 2A 08 8D |.. ......".4.*..|
00000B30: 32 31 38 30 00 5E 13 34 08 99 3A 99 22 C6 CF D2 |2180.^.4..:."...|
00000B40: 20 D2 C5 D0 C5 C1 D4 C5 C4 20 C5 D6 C1 CC D5 C1 | ........ ......|
00000B50: D4 C9 CF CE 20 C6 CF D2 20 CF CE C5 20 22 00 89 |.... ... ... "..|
00000B60: 13 3E 08 99 3A 99 22 D0 C1 D2 D4 C9 C3 D5 CC C1 |.>..:.".........|
00000B70: D2 20 D0 CC C1 C3 C5 20 D9 CF D5 20 C3 C1 CE 20 |. ..... ... ... |
00000B80: D0 D5 D4 20 D4 C8 C1 D4 22 00 AE 13 48 08 99 3A |... ...."...H..:|
00000B90: 99 22 C9 CE C6 CF D2 CD C1 D4 C9 CF CE 20 C9 CE |."........... ..|
00000BA0: D4 CF 20 C4 C1 D4 C1 2D CC C9 CE C5 D3 22 00 C7 |.. ....-....."..|
00000BB0: 13 52 08 99 3A 99 22 28 C9 CE 20 CC C9 CE C5 20 |.R..:."(.. .... |
00000BC0: 32 35 34 30 30 29 22 00 D1 13 5C 08 8D 32 31 38 |25400)"...\..218|
00000BD0: 30 00 D7 13 66 08 8E 00 DD 13 70 08 8F 00 E3 13 |0...f.....p.....|
00000BE0: 7A 08 8F 00 F7 13 84 08 56 45 B2 32 30 3A 48 4F |z.......VE.20:HO|
00000BF0: B2 31 3A 8D 31 31 30 00 17 14 8E 08 99 22 D0 D2 |.1:.110......"..|
00000C00: C5 D3 D3 20 C1 20 CB C5 D9 20 D4 CF 20 C3 CF CE |... . ... .. ...|
00000C10: D4 C9 CE D5 C5 22 3B 00 27 14 98 08 8D 32 31 30 |.....";.'....210|
00000C20: 3A 8D 31 30 30 3A 8E 00 40 14 A8 61 8F 20 45 58 |:.100:..@..a. EX|
00000C30: 41 4D 50 4C 45 20 46 4F 52 20 42 4F 43 48 55 4D |AMPLE FOR BOCHUM|
00000C40: 00 60 14 B2 61 8F 20 31 2E 20 4C 41 54 49 54 55 |.`..a. 1. LATITU|
00000C50: 44 45 2C 20 32 2E 20 4C 4F 4E 47 49 54 55 44 45 |DE, 2. LONGITUDE|
00000C60: 00 66 14 BC 61 8F 00 75 14 C6 61 83 35 31 2E 35 |.f..a..u..a.51.5|
00000C70: 2C 2D 37 2E 32 00 7B 14 D0 61 8F 00 9D 14 30 75 |,-7.2.{..a....0u|
00000C80: 8F 20 42 41 53 49 43 4F 44 45 2D 50 52 4F 47 52 |. BASICODE-PROGR|
00000C90: 41 4D 20 57 52 49 54 54 45 4E 20 4F 4E 00 B3 14 |AM WRITTEN ON...|
00000CA0: 3A 75 8F 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 |:u. COMMODORE 64|
00000CB0: 20 42 59 00 B9 14 44 75 8F 00 D1 14 4E 75 8F 20 | BY...Du....Nu. |
00000CC0: 54 48 4F 4D 41 53 20 48 4F 46 4D 45 49 53 54 45 |THOMAS HOFMEISTE|
00000CD0: 52 00 E9 14 58 75 8F 20 57 49 54 54 45 4E 42 45 |R...Xu. WITTENBE|
00000CE0: 52 47 53 54 52 2E 20 32 35 00 FD 14 62 75 8F 20 |RGSTR. 25...bu. |
00000CF0: 34 36 33 30 20 42 4F 43 48 55 4D 20 37 00 10 15 |4630 BOCHUM 7...|
00000D00: 6C 75 8F 20 57 45 53 54 2D 47 45 52 4D 41 4E 59 |lu. WEST-GERMANY|
00000D10: 00 16 15 76 75 8F 00 2A 15 80 75 8F 20 49 4E 20 |...vu..*..u. IN |
00000D20: 41 55 47 55 53 54 20 27 38 33 00 30 15 8A 75 8F |AUGUST '83.0..u.|
00000D30: 00 4F 15 18 79 8F 20 43 4F 50 59 52 49 47 48 54 |.O..y. COPYRIGHT|
00000D40: 20 4E 4F 53 20 20 48 49 4C 56 45 52 53 55 4D 00 | NOS HILVERSUM.|
00000D50: 00 00 |.. |
.......1000......1010.!.D..".";:..Q.N..H
(".........................",.(.(VE.1)))
;.A.P....(HO));:....X.HO.B(209).256.B(21
0).1024.B(211)...Y.VE..(HO.40):HO.HO.40.
VE:....H..IN$:..D.R..IN$:.IN$."".210.J..
........54296,15:.54278,255:.54273,95:.5
4276,17......OO.1.200:.OO.*....54276,0:.
54277,0:.54278,0:..8...RV..(1):..F...FR.
.(0):..O.,.SR$.D(SR):.H(SR$,1)." ".SR$.J
(SR$,2).U.-.....6.SR$."":.SR..10.(CT.CN.
.(CN)).318...7..SR...5.10..CN.SR$."-"...
8.SR$.SR$.J(D(.(.(SR)..5.10..CN)),2)...9
..C(SR$).CT.CN.(CN..0).SR$." ".SR$:.313.
!.:..CN.0..(SR)..1E10.316.U.;.SR$.SR$.J(
D(1..(SR)..(.(SR))..5.10..CN),3,CN.1).U.
<..C(SR$).CT.SR$.SR$." ":.316...=..C(SR$
).CT.SR$.""...>..C(SR$).CT.SR$.SR$."*":.
318...?...G.^..4,4:.4,SR$;: 4:..X.H..4,4
:.4: 4:......A.500:.20:. SUNDOWN AND SUN
RISE......100:."SUNRISE AND SUNDOWN".7..
.."===================".A....:.:."A PROG
RAM BY THOMAS HOFMEISTER"......:."
IN BOCHUM."......:.:."DO YOU WANT
EXPLANATIONS (Y/N)?";...$..200......(IN
$."Y") .(IN$."Y") ..2000:.1100...8..(IN$
."N") .(IN$."N") .1100...B..1060...L.PX.
3.1415926.#.V..1270.:.`.. SUBROUTINE SIN
US.L.J.Y..(X.PX.180).R.T...K.~.. SUBROUT
INE COSINUS.}...Y..(X.PX.180)...........
. SUBROUTINE TANGENS.....Y..(X.PX.180)..
.....R.... SUBROUTINE ARCUSCOSINUS...D..
.(X).1 .X..(X)...N..X.1 .Y.0:....X..X..1
.Y.180:......Y..A(X..(1.X.2)).PX.2:Y.Y.
180.PX.4.....=....100.`...."ARE THE COOR
DINATES OF YOUR".F.........."CHOSEN PLAC
E IN DATA-LINES OR".........(.."DO YOU W
ANT TO ENTER THEM"...2...Q.<.."BY HAND:'
D'=DATA,".W.F.....P.." 'H'=BY HAN
D"...Z.....D.." 'E'=END OF PGM"..
.N...,.X..210:A$.IN$.J....(A$."D") .(A$.
"D") .1450.H....(A$."H") .(A$."H") .1490
......(A$."E") .(A$."E") ..... ..100:."W
RONG ENTRY":.:.:.1280...... IN DATAS....
..100......:.BR,LA:. BR=LATITUDE, LA=LON
GITUDE...H..1550...R..100.&...."LATITUDE
: PLEASE DECIMAL (N=+,S=-)":.......BR.4
.....A...."LONGITUDE: PLEASE DECIMAL (W=
+,E=-)":..I....LA.O.........."FOR WHICH
DAY (1..31)":.:.D..."..:.D.31 .D.1 .1560
.Q.,.."PLEASE ENTER MONTH AS NUMBER":.:.
M...6..:.M.12 .M.1 .1580...@.T.0.988.(D.
30.3.(M.1))...J.X.T.10:.1150.".T.D1.Y.23
.5.7.^.X.(T.10).2:.1120.@.H.S1.Y.Q.R.X.T
.87:.1150.E.|.ET.0.123.Y.S1.6.T...X.BR:.
1180.}...S2.Y.....X.D1:.1180.....X.Y.S2.
.....1210.....GA.(LA.Y).15.ET.12.O.B.GU.
(LA.Y).15.ET.12...L.H1..(GA)...V.M1..((G
A.H1).60).....H2..(GU).....M2..((GU.H2).
60)......100.?...SU$."":SR.M1:.300:M1$.J
(SR$,2).V....C(M1$).2 .SU$."0".O...SR.H1
:CT.2:CN.0:.310......"SUNRISE:";SR$;":";
SU$;M1$" GMT"...&.....0.SU$."":SR.M2:.30
0:M2$.J(SR$,2).U.:..C(M2$).2 .SU$."0"...
D.SR.H2:CT.2:CN.0:.310...N.."SUNDOWN:";S
R$;":";SU$;M2$" GMT"...X...$.B..1280.7.P
.. EXPLANATIONS.@.Z..100.B...."THIS PROG
RAM EVALUATES FOR"......:."A PLACE WHICH
IS CHOSEN BY YOU"......:."THE TIMES OF
SUNDOWN AND"......:."SUNRISE."......:."T
HEREFORE, YOU HAVE TO "......:."KNOW THE
GEOGRAPHIC LONGITUDE AND".*. ..:."LATIT
UDE OF THE PLACE.".4.*..2180.^.4..:."FOR
REPEATED EVALUATION FOR ONE "...>..:."P
ARTICULAR PLACE YOU CAN PUT THAT"...H..:
."INFORMATION INTO DATA-LINES".G.R..:."(
IN LINE 25400)".Q.\..2180.W.F.....P.....
Z.......VE.20:HO.1:.110......"PRESS A KE
Y TO CONTINUE";.'....210:.100:..@..A. EX
AMPLE FOR BOCHUM.`..A. 1. LATITUDE, 2. L
ONGITUDE.F..A..U.FA.51.5,-7.2.{.PA....0U
. BASICODE-PROGRAM WRITTEN ON...:U. COMM
ODORE 64 BY...DU..Q.NU. THOMAS HOFMEISTE
R...XU. WITTENBERGSTR. 25...BU. 4630 BOC
HUM 7...LU. WEST-GERMANY...VU..*..U. IN
AUGUST '83.0..U..O..Y. COPYRIGHT NOS HI
LVERSUM...
> CLICK IMAGE PREVIEW FOR FULL MODAL