RISE AND SET
FILE INFORMATION
FILENAME(S): RISE AND SET
FILE TYPE(S): PRG
FILE SIZE: 2.6K
FIRST SEEN: 2025-10-20 14:30:51
APPEARS ON: 1 disk(s)
FILE HASH
49f832aff41d11c262fd922a54b69b0ae324a5a819386a42e5b3726ab4ebcda5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 0047ED | RISE AND SET | PRG | Treasure Chest - Klaus Der Suhler | 12 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 14 1C 64 00 50 49 B2 33 2E 31 34 31 35 39 |....d.PI.3.14159| 00000010: 32 36 35 34 00 2F 1C 6E 00 99 C7 28 31 34 37 29 |2654./.n...(147)| 00000020: 3A 8F 20 43 4C 45 41 52 20 53 43 52 45 45 4E 00 |:. CLEAR SCREEN.| 00000030: 72 1C 78 00 99 3A 99 22 20 20 20 20 20 20 20 20 |r.x..:." | 00000040: 20 20 20 20 20 22 3B C7 28 31 38 29 3B 22 20 52 | ";.(18);" R| 00000050: 49 53 45 20 41 4E 44 20 53 45 54 20 22 3A 8F 20 |ISE AND SET ":. | 00000060: 52 45 56 45 52 53 45 20 43 48 41 52 41 43 54 45 |REVERSE CHARACTE| 00000070: 52 53 00 80 1C 82 00 99 3A 99 3A 99 3A 99 3A 99 |RS......:.:.:.:.| 00000080: 00 AD 1C 8C 00 99 22 20 20 20 20 20 20 20 47 49 |......" GI| 00000090: 56 45 4E 20 54 48 45 20 43 4F 52 52 45 43 54 20 |VEN THE CORRECT | 000000A0: 49 4E 50 55 54 53 2C 20 54 48 49 53 22 00 DC 1C |INPUTS, THIS"...| 000000B0: 96 00 99 3A 99 22 20 20 20 50 52 4F 47 52 41 4D |...:." PROGRAM| 000000C0: 20 57 49 4C 4C 20 43 4F 4D 50 55 54 45 20 54 48 | WILL COMPUTE TH| 000000D0: 45 20 54 49 4D 45 53 20 41 4E 44 22 00 0B 1D A0 |E TIMES AND"....| 000000E0: 00 99 3A 99 22 20 20 20 41 5A 49 4D 55 54 48 53 |..:." AZIMUTHS| 000000F0: 20 4F 46 20 54 48 45 20 52 49 53 49 4E 47 20 41 | OF THE RISING A| 00000100: 4E 44 20 53 45 54 54 49 4E 47 22 00 37 1D AA 00 |ND SETTING".7...| 00000110: 99 3A 99 22 20 20 20 4F 46 20 41 20 46 49 58 45 |.:." OF A FIXE| 00000120: 44 20 41 53 54 52 4F 4E 4F 4D 49 43 41 4C 20 4F |D ASTRONOMICAL O| 00000130: 42 4A 45 43 54 2E 22 00 4A 1D B4 00 81 20 49 B2 |BJECT.".J.... I.| 00000140: 31 20 A4 20 32 30 30 30 3A 82 00 55 1D BE 00 8D |1 . 2000:..U....| 00000150: 20 31 31 36 30 00 77 1D C8 00 99 C7 28 31 34 37 | 1160.w.....(147| 00000160: 29 3A 85 20 22 20 45 4E 54 45 52 20 54 48 45 20 |):. " ENTER THE | 00000170: 59 45 41 52 22 3B 44 00 81 1D D2 00 59 B2 44 AD |YEAR";D.....Y.D.| 00000180: 34 00 AE 1D DC 00 99 3A 85 20 22 20 45 4E 54 45 |4......:. " ENTE| 00000190: 52 20 4D 4F 4E 54 48 20 4E 55 4D 42 45 52 20 28 |R MONTH NUMBER (| 000001A0: 45 2E 47 2E 20 4D 41 59 3D 35 29 22 3B 41 00 BE |E.G. MAY=5)";A..| 000001B0: 1D E6 00 8B 20 41 B1 32 20 A7 20 33 32 30 00 C8 |.... A.2 . 320..| 000001C0: 1D F0 00 41 B2 41 AB 31 00 DC 1D FA 00 8B 20 59 |...A.A.1...... Y| 000001D0: B3 B1 B5 28 59 29 20 A7 20 32 38 30 00 E7 1D 04 |...(Y) . 280....| 000001E0: 01 41 B2 41 AC 36 32 00 F1 1D 0E 01 89 20 32 39 |.A.A.62...... 29| 000001F0: 30 00 FC 1D 18 01 41 B2 41 AC 36 33 00 06 1E 22 |0.....A.A.63..."| 00000200: 01 41 B2 41 AD 32 00 11 1E 2C 01 41 B2 B5 28 41 |.A.A.2...,.A..(A| 00000210: 29 00 1B 1E 36 01 89 20 33 39 30 00 25 1E 40 01 |)...6.. 390.%.@.| 00000220: 41 B2 41 AA 31 00 32 1E 4A 01 41 B2 41 AC 33 30 |A.A.1.2.J.A.A.30| 00000230: 2E 36 00 3D 1E 54 01 41 B2 B5 28 41 29 00 51 1E |.6.=.T.A..(A).Q.| 00000240: 5E 01 8B 20 59 B3 B1 B5 28 59 29 20 A7 20 33 38 |^.. Y...(Y) . 38| 00000250: 30 00 5C 1E 68 01 41 B2 41 AB 36 32 00 66 1E 72 |0.\.h.A.A.62.f.r| 00000260: 01 89 20 33 39 30 00 71 1E 7C 01 41 B2 41 AB 36 |.. 390.q.|.A.A.6| 00000270: 33 00 8C 1E 86 01 99 3A 85 20 22 20 45 4E 54 45 |3......:. " ENTE| 00000280: 52 20 54 48 45 20 44 41 59 22 3B 42 00 96 1E 90 |R THE DAY";B....| 00000290: 01 43 B2 41 AA 42 00 A7 1E 9A 01 59 31 B2 44 AB |.C.A.B.....Y1.D.| 000002A0: 31 3A 4D 31 B2 31 33 00 BA 1E A4 01 8B 20 44 B1 |1:M1.13...... D.| 000002B0: 31 35 38 32 20 A7 20 34 34 30 00 C9 1E AE 01 42 |1582 . 440.....B| 000002C0: 31 B2 30 3A 89 20 34 36 30 00 DA 1E B8 01 41 31 |1.0:. 460.....A1| 000002D0: B2 B5 28 59 31 AD 31 30 30 29 00 EE 1E C2 01 42 |..(Y1.100).....B| 000002E0: 31 B2 32 AB 41 31 AA B5 28 41 31 AD 34 29 00 02 |1.2.A1..(A1.4)..| 000002F0: 1F CC 01 43 31 B2 B5 28 33 36 35 2E 32 35 AC 59 |...C1..(365.25.Y| 00000300: 31 29 00 1B 1F D6 01 44 31 B2 B5 28 33 30 2E 36 |1).....D1..(30.6| 00000310: 30 30 31 AC 28 4D 31 AA 31 29 29 00 35 1F E0 01 |001.(M1.1)).5...| 00000320: 4A 44 B2 42 31 AA 43 31 AA 44 31 AA 31 37 32 30 |JD.B1.C1.D1.1720| 00000330: 39 39 34 2E 35 00 47 1F EA 01 53 31 B2 4A 44 AB |994.5.G...S1.JD.| 00000340: 32 34 31 35 30 32 30 00 57 1F F4 01 54 31 B2 53 |2415020.W...T1.S| 00000350: 31 AD 33 36 35 32 35 00 8B 1F FE 01 52 31 B2 36 |1.36525.....R1.6| 00000360: 2E 36 34 36 30 36 35 36 AA 28 32 34 30 30 2E 30 |.6460656.(2400.0| 00000370: 35 31 32 36 32 AC 54 31 29 AA 28 30 2E 30 30 30 |51262.T1).(0.000| 00000380: 30 32 35 38 31 AC 54 31 AE 32 29 00 A3 1F 08 02 |02581.T1.2).....| 00000390: 55 31 B2 52 31 AB 28 32 34 AC 28 44 AB 31 39 30 |U1.R1.(24.(D.190| 000003A0: 30 29 29 00 AF 1F 12 02 46 B2 32 34 AB 55 31 00 |0)).....F.24.U1.| 000003B0: DE 1F 1C 02 99 3A 99 3A 99 3A 99 22 20 45 4E 54 |.....:.:.:." ENT| 000003C0: 45 52 20 59 4F 55 52 20 4C 41 54 54 49 54 55 44 |ER YOUR LATTITUD| 000003D0: 45 20 49 4E 20 44 45 47 52 45 45 53 2C 22 00 F4 |E IN DEGREES,"..| 000003E0: 1F 26 02 85 22 20 4D 49 4E 55 54 45 53 22 3B 4C |.&.." MINUTES";L| 000003F0: 44 2C 4C 4D 00 08 20 30 02 8B 20 4C 44 B3 30 20 |D,LM.. 0.. LD.0 | 00000400: A7 20 4C 4D B2 AB 4C 4D 00 20 20 3A 02 4C B2 28 |. LM..LM. :.L.(| 00000410: 4C 44 AA 4C 4D AD 36 30 29 AC 50 49 AD 31 38 30 |LD.LM.60).PI.180| 00000420: 00 51 20 44 02 99 3A 99 22 20 45 4E 54 45 52 20 |.Q D..:." ENTER | 00000430: 59 4F 55 52 20 4C 4F 4E 47 49 54 55 44 45 20 28 |YOUR LONGITUDE (| 00000440: 4E 45 47 41 54 49 56 45 20 49 46 20 45 41 53 54 |NEGATIVE IF EAST| 00000450: 22 00 79 20 4E 02 85 22 20 4F 46 20 47 52 45 45 |".y N.." OF GREE| 00000460: 4E 57 49 43 48 29 20 49 4E 20 44 45 47 2C 20 4D |NWICH) IN DEG, M| 00000470: 49 4E 22 3B 4F 48 2C 4F 4D 00 8D 20 58 02 8B 20 |IN";OH,OM.. X.. | 00000480: 4F 48 B3 30 20 A7 20 4F 4D B2 AB 4F 4D 00 A1 20 |OH.0 . OM..OM.. | 00000490: 62 02 4F B2 28 4F 48 AA 4F 53 AD 36 30 29 AD 31 |b.O.(OH.OS.60).1| 000004A0: 35 00 D1 20 6C 02 99 3A 99 3A 99 3A 99 22 20 45 |5.. l..:.:.:." E| 000004B0: 4E 54 45 52 20 54 48 45 20 44 45 43 4C 49 4E 41 |NTER THE DECLINA| 000004C0: 54 49 4F 4E 20 49 4E 20 44 45 47 52 45 45 53 2C |TION IN DEGREES,| 000004D0: 22 00 E7 20 76 02 85 22 20 4D 49 4E 55 54 45 53 |".. v.." MINUTES| 000004E0: 22 3B 44 44 2C 44 4D 00 FB 20 80 02 8B 20 44 44 |";DD,DM.. ... DD| 000004F0: B3 30 20 A7 20 44 4D B2 AB 44 4D 00 13 21 8A 02 |.0 . DM..DM..!..| 00000500: 49 B2 28 44 44 AA 44 4D AD 36 30 29 AC 50 49 AD |I.(DD.DM.60).PI.| 00000510: 31 38 30 00 23 21 94 02 4A B2 BF 28 49 29 AD BE |180.#!..J..(I)..| 00000520: 28 4C 29 00 36 21 9E 02 8B 20 4A B1 31 20 A7 20 |(L).6!... J.1 . | 00000530: 89 20 31 31 31 30 00 4A 21 A8 02 8B 20 4A B3 AB |. 1110.J!... J..| 00000540: 31 20 A7 20 89 20 31 31 33 30 00 6C 21 B2 02 8F |1 . . 1130.l!...| 00000550: 20 43 48 45 43 4B 20 46 4F 52 20 4E 4F 4E 41 4C | CHECK FOR NONAL| 00000560: 4C 4F 57 45 44 20 56 41 4C 55 45 53 00 90 21 BC |LOWED VALUES..!.| 00000570: 02 4B B2 28 AB C1 28 4A AD BA 28 AB 4A AC 4A AA |.K.(..(J..(.J.J.| 00000580: 31 29 29 AA 50 49 AD 32 29 AC 31 38 30 AD 50 49 |1)).PI.2).180.PI| 00000590: 00 9C 21 C6 02 5A B2 33 36 30 AB 4B 00 B1 21 D0 |..!..Z.360.K..!.| 000005A0: 02 4D B2 C0 28 4C 29 AC C0 28 49 29 AC 28 AB 31 |.M..(L)..(I).(.1| 000005B0: 29 00 D1 21 DA 02 48 B2 28 AB C1 28 4D AD BA 28 |)..!..H.(..(M..(| 000005C0: AB 4D AC 4D AA 31 29 29 AA 50 49 AD 32 29 AD 31 |.M.M.1)).PI.2).1| 000005D0: 35 00 E0 21 E4 02 48 B2 48 AC 31 38 30 AD 50 49 |5..!..H.H.180.PI| 000005E0: 00 0E 22 EE 02 99 3A 99 22 20 45 4E 54 45 52 20 |.."...:." ENTER | 000005F0: 54 48 45 20 52 49 47 48 54 20 41 53 43 45 4E 53 |THE RIGHT ASCENS| 00000600: 49 4F 4E 20 49 4E 20 48 4F 55 52 53 2C 22 00 24 |ION IN HOURS,".$| 00000610: 22 F8 02 85 22 20 4D 49 4E 55 54 45 53 22 3B 52 |"..." MINUTES";R| 00000620: 48 2C 52 4D 00 33 22 02 03 52 B2 52 48 AA 52 4D |H,RM.3"..R.RH.RM| 00000630: AD 36 30 00 40 22 0C 03 54 B2 32 34 AA 52 AB 48 |.60.@"..T.24.R.H| 00000640: 00 54 22 16 03 8B 20 54 B1 32 34 20 A7 20 54 B2 |.T"... T.24 . T.| 00000650: 54 AB 32 34 00 5E 22 20 03 53 B2 52 AA 48 00 72 |T.24.^" .S.R.H.r| 00000660: 22 2A 03 8B 20 53 B1 32 34 20 A7 20 53 B2 53 AB |"*.. S.24 . S.S.| 00000670: 32 34 00 7C 22 34 03 54 B2 54 AA 4F 00 90 22 3E |24.|"4.T.T.O..">| 00000680: 03 8B 20 54 B1 32 34 20 A7 20 54 B2 54 AB 32 34 |.. T.24 . T.T.24| 00000690: 00 A3 22 48 03 8B 20 54 B3 30 20 A7 20 54 B2 54 |.."H.. T.0 . T.T| 000006A0: AA 32 34 00 AD 22 52 03 53 B2 53 AA 4F 00 C1 22 |.24.."R.S.S.O.."| 000006B0: 5C 03 8B 20 53 B1 32 34 20 A7 20 53 B2 53 AB 32 |\.. S.24 . S.S.2| 000006C0: 34 00 D4 22 66 03 8B 20 53 B3 30 20 A7 20 53 B2 |4.."f.. S.0 . S.| 000006D0: 53 AA 32 34 00 E8 22 70 03 55 B2 43 AC 30 2E 30 |S.24.."p.U.C.0.0| 000006E0: 36 35 37 30 39 38 AB 46 00 FB 22 7A 03 8B 20 55 |657098.F.."z.. U| 000006F0: B3 30 20 A7 20 55 B2 55 AA 32 34 00 05 23 84 03 |.0 . U.U.24..#..| 00000700: 54 B2 54 AB 55 00 18 23 8E 03 8B 20 54 B3 30 20 |T.T.U..#... T.0 | 00000710: A7 20 54 B2 54 AA 32 34 00 22 23 98 03 53 B2 53 |. T.T.24."#..S.S| 00000720: AB 55 00 35 23 A2 03 8B 20 53 B3 30 20 A7 20 53 |.U.5#... S.0 . S| 00000730: B2 53 AA 32 34 00 46 23 AC 03 54 B2 54 AC 30 2E |.S.24.F#..T.T.0.| 00000740: 39 39 37 32 37 30 00 50 23 B6 03 54 B2 54 AB 38 |997270.P#..T.T.8| 00000750: 00 63 23 C0 03 8B 20 54 B3 30 20 A7 20 54 B2 54 |.c#... T.0 . T.T| 00000760: AA 32 34 00 74 23 CA 03 53 B2 53 AC 30 2E 39 39 |.24.t#..S.S.0.99| 00000770: 37 32 37 30 00 7E 23 D4 03 53 B2 53 AB 38 00 91 |7270.~#..S.S.8..| 00000780: 23 DE 03 8B 20 53 B3 30 20 A7 20 53 B2 53 AA 32 |#... S.0 . S.S.2| 00000790: 34 00 AC 23 E8 03 99 C7 28 31 34 37 29 3A 8F 20 |4..#....(147):. | 000007A0: 43 4C 45 41 52 20 53 43 52 45 45 4E 00 DD 23 F2 |CLEAR SCREEN..#.| 000007B0: 03 99 3A 99 3A 99 22 54 48 45 20 52 49 53 49 4E |..:.:."THE RISIN| 000007C0: 47 20 54 49 4D 45 20 28 50 53 54 29 20 49 53 22 |G TIME (PST) IS"| 000007D0: 3B B5 28 54 29 3B 22 48 52 53 20 22 3B 00 FC 23 |;.(T);"HRS ";..#| 000007E0: FC 03 99 20 B5 28 28 54 AB B5 28 54 29 29 AC 36 |... .((T..(T)).6| 000007F0: 30 AA 30 2E 35 29 3B 22 4D 49 4E 22 00 28 24 06 |0.0.5);"MIN".($.| 00000800: 04 99 3A 99 22 54 48 45 20 52 49 53 49 4E 47 20 |..:."THE RISING | 00000810: 41 5A 49 4D 55 54 48 20 49 53 22 3B B5 28 4B 29 |AZIMUTH IS";.(K)| 00000820: 3B 22 44 45 47 20 22 3B 00 47 24 10 04 99 20 B5 |;"DEG ";.G$... .| 00000830: 28 28 4B AB B5 28 4B 29 29 AC 36 30 AA 30 2E 35 |((K..(K)).60.0.5| 00000840: 29 3B 22 4D 49 4E 22 00 7C 24 1A 04 99 3A 99 3A |);"MIN".|$...:.:| 00000850: 99 3A 99 20 22 54 48 45 20 53 45 54 54 49 4E 47 |.:. "THE SETTING| 00000860: 20 54 49 4D 45 20 28 50 53 54 29 20 49 53 22 3B | TIME (PST) IS";| 00000870: B5 28 53 29 3B 22 48 52 53 20 22 3B 00 9B 24 24 |.(S);"HRS ";..$$| 00000880: 04 99 20 B5 28 28 53 AB B5 28 53 29 29 AC 36 30 |.. .((S..(S)).60| 00000890: AA 30 2E 35 29 3B 22 4D 49 4E 22 00 C9 24 2E 04 |.0.5);"MIN"..$..| 000008A0: 99 3A 99 20 22 54 48 45 20 53 45 54 54 49 4E 47 |.:. "THE SETTING| 000008B0: 20 41 5A 49 4D 55 54 48 20 49 53 22 3B B5 28 5A | AZIMUTH IS";.(Z| 000008C0: 29 3B 22 44 45 47 20 22 3B 00 E8 24 38 04 99 20 |);"DEG ";..$8.. | 000008D0: B5 28 28 5A AB B5 28 5A 29 29 AC 36 30 AA 30 2E |.((Z..(Z)).60.0.| 000008E0: 35 29 3B 22 4D 49 4E 22 00 F0 24 42 04 99 3A 99 |5);"MIN"..$B..:.| 000008F0: 00 F6 24 4C 04 80 00 21 25 56 04 99 3A 99 3A 99 |..$L...!%V..:.:.| 00000900: 20 22 20 20 20 20 20 54 48 49 53 20 4F 42 4A 45 | " THIS OBJE| 00000910: 43 54 20 44 4F 45 53 20 4E 4F 54 20 53 45 54 2E |CT DOES NOT SET.| 00000920: 22 00 2C 25 60 04 89 20 31 31 35 30 00 58 25 6A |".,%`.. 1150.X%j| 00000930: 04 99 3A 99 3A 99 20 22 20 20 20 20 20 54 48 49 |..:.:. " THI| 00000940: 53 20 4F 42 4A 45 43 54 20 44 4F 45 53 20 4E 4F |S OBJECT DOES NO| 00000950: 54 20 52 49 53 45 2E 22 00 63 25 74 04 89 20 31 |T RISE.".c%t.. 1| 00000960: 31 35 30 00 69 25 7E 04 80 00 8B 25 88 04 41 24 |150.i%~....%..A$| 00000970: B2 C7 28 31 38 29 3A 8F 20 52 45 56 45 52 53 45 |..(18):. REVERSE| 00000980: 20 43 48 41 52 41 43 54 45 52 53 00 9D 25 92 04 | CHARACTERS..%..| 00000990: 81 20 4C B2 20 31 20 A4 20 31 30 30 30 00 B6 25 |. L. 1 . 1000..%| 000009A0: 9C 04 99 C7 28 31 39 29 3A 8F 20 48 4F 4D 45 20 |....(19):. HOME | 000009B0: 43 55 52 53 4F 52 00 C9 25 A6 04 81 4A 4A B2 31 |CURSOR..%...JJ.1| 000009C0: 20 A4 20 32 32 3A 99 3A 82 00 EE 25 B0 04 99 A3 | . 22:.:...%....| 000009D0: 38 29 41 24 3B 22 48 49 54 20 41 4E 59 20 4B 45 |8)A$;"HIT ANY KE| 000009E0: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 03 |Y TO CONTINUE"..| 000009F0: 26 BA 04 A1 52 24 3A 8B 20 52 24 B3 B1 22 22 20 |&...R$:. R$.."" | 00000A00: A7 20 8E 00 15 26 C4 04 81 20 49 B2 31 20 A4 20 |. ...&... I.1 . | 00000A10: 33 33 33 3A 82 00 4C 26 CE 04 8B 41 24 B2 C7 28 |333:..L&...A$..(| 00000A20: 31 38 29 20 A7 20 41 24 B2 C7 28 31 34 36 29 3A |18) . A$..(146):| 00000A30: 89 31 32 35 30 3A 8F 20 55 4E 52 45 56 45 52 53 |.1250:. UNREVERS| 00000A40: 45 20 43 48 41 52 41 43 54 45 52 53 00 65 26 D8 |E CHARACTERS.e&.| 00000A50: 04 8B 41 24 B2 C7 28 31 34 36 29 A7 20 41 24 B2 |..A$..(146). A$.| 00000A60: C7 28 31 38 29 00 6D 26 E2 04 82 20 4C 00 00 00 |.(18).m&... L...|
....D.PI.3.141592654./.N..G(147):. CLEAR
SCREEN.R.X..:." ";G(18);" R
ISE AND SET ":. REVERSE CHARACTERS......
:.:.:.:......." GIVEN THE CORRECT
INPUTS, THIS"......:." PROGRAM WILL CO
MPUTE THE TIMES AND"... ..:." AZIMUTHS
OF THE RISING AND SETTING".7....:." O
F A FIXED ASTRONOMICAL OBJECT.".J.... I.
1 . 2000:..U.... 1160.W.H..G(147):. " EN
TER THE YEAR";D...R.Y.D.4......:. " ENTE
R MONTH NUMBER (E.G. MAY=5)";A...... A.2
. 320.H...A.A.1...... Y...(Y) . 280....
.A.A.62...... 290.....A.A.63...".A.A.2..
.,.A..(A)...6.. 390.%.@.A.A.1.2.J.A.A.30
.6.=.T.A..(A).Q.^.. Y...(Y) . 380.\.H.A.
A.62.F.R.. 390.Q.|.A.A.63......:. " ENTE
R THE DAY";B.....C.A.B.....Y1.D.1:M1.13.
..... D.1582 . 440.I...B1.0:. 460.Z...A1
..(Y1.100)...B.B1.2.A1..(A1.4)...L.C1..(
365.25.Y1)...V.D1..(30.6001.(M1.1)).5...
JD.B1.C1.D1.1720994.5.G...S1.JD.2415020.
W...T1.S1.36525.....R1.6.6460656.(2400.0
51262.T1).(0.00002581.T1.2).....U1.R1.(2
4.(D.1900)).....F.24.U1......:.:.:." ENT
ER YOUR LATTITUDE IN DEGREES,"...&.." MI
NUTES";LD,LM.. 0.. LD.0 . LM..LM. :.L.(
LD.LM.60).PI.180.Q D..:." ENTER YOUR LON
GITUDE (NEGATIVE IF EAST".Y N.." OF GREE
NWICH) IN DEG, MIN";OH,OM.. X.. OH.0 . O
M..OM.. B.O.(OH.OS.60).15.Q L..:.:.:." E
NTER THE DECLINATION IN DEGREES,".. V.."
MINUTES";DD,DM.. ... DD.0 . DM..DM..!..
I.(DD.DM.60).PI.180.#!..J..(I)..(L).6!..
. J.1 . . 1110.J!... J..1 . . 1130.L!...
CHECK FOR NONALLOWED VALUES..!..K.(.A(J
..(.J.J.1)).PI.2).180.PI..!F.Z.360.K..!P
.M..(L)..(I).(.1).Q!Z.H.(.A(M..(.M.M.1))
.PI.2).15..!..H.H.180.PI.."...:." ENTER
THE RIGHT ASCENSION IN HOURS,".$"..." MI
NUTES";RH,RM.3"..R.RH.RM.60.@"..T.24.R.H
.T"... T.24 . T.T.24.^" .S.R.H.R"*.. S.2
4 . S.S.24.|"4.T.T.O..">.. T.24 . T.T.24
.."H.. T.0 . T.T.24.."R.S.S.O.A"\.. S.24
. S.S.24.T"F.. S.0 . S.S.24.."P.U.C.0.0
657098.F.."Z.. U.0 . U.U.24..#..T.T.U..#
... T.0 . T.T.24."#..S.S.U.5#... S.0 . S
.S.24.F#..T.T.0.997270.P#..T.T.8.C#... T
.0 . T.T.24.T#J.S.S.0.997270.~#T.S.S.8..
#... S.0 . S.S.24..#...G(147):. CLEAR SC
REEN..#...:.:."THE RISING TIME (PST) IS"
;.(T);"HRS ";..#... .((T..(T)).60.0.5);"
MIN".($...:."THE RISING AZIMUTH IS";.(K)
;"DEG ";.G$... .((K..(K)).60.0.5);"MIN".
|$...:.:.:. "THE SETTING TIME (PST) IS";
.(S);"HRS ";..$$.. .((S..(S)).60.0.5);"M
IN".I$...:. "THE SETTING AZIMUTH IS";.(Z
);"DEG ";..$8.. .((Z..(Z)).60.0.5);"MIN"
..$B..:...$L...!%V..:.:. " THIS OBJE
CT DOES NOT SET.".,%`.. 1150.X%J..:.:. "
THIS OBJECT DOES NOT RISE.".C%T.. 1
150.I%~....%..A$.G(18):. REVERSE CHARACT
ERS..%... L. 1 . 1000..%...G(19):. HOME
CURSOR.I%...JJ.1 . 22:.:...%....8)A$;"HI
T ANY KEY TO CONTINUE"..&...R$:. R$..""
. ...&D.. I.1 . 333:..L&N..A$.G(18) . A$
.G(146):.1250:. UNREVERSE CHARACTERS.E&X
..A$.G(146). A$.G(18).M&... L...
> CLICK IMAGE PREVIEW FOR FULL MODAL