C64 NCL REACT.C3
FILE INFORMATION
FILENAME(S): C64 NCL REACT.C3
FILE TYPE(S): DEL
FILE SIZE: 5.3K
FIRST SEEN: 2025-10-20 14:31:59
APPEARS ON: 1 disk(s)
FILE HASH
74d6a863c23b6ecac62fe513663b9f38498f54b638aacc0fc8c35b4b7b5e20c9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0002ED | C64 NCL REACT.C3 | DEL | Treasure Chest - Klaus Der Suhler | 4 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 34 AA 44 41 3A 89 20 34 30 30 00 35 10 90 01 8F |4.DA:. 400.5....|
00000010: 20 43 41 4C 43 55 4C 41 54 49 4F 4E 20 4F 46 20 | CALCULATION OF |
00000020: 50 4F 53 49 54 49 4F 4E 53 20 55 53 49 4E 47 20 |POSITIONS USING |
00000030: 20 20 20 20 20 20 20 20 20 53 49 4E 20 46 55 4E | SIN FUN|
00000040: 43 54 49 4F 4E 00 59 10 95 01 99 22 11 11 57 48 |CTION.Y...."..WH|
00000050: 49 43 48 20 4D 4F 4F 4E 20 54 4F 20 4C 4F 43 41 |ICH MOON TO LOCA|
00000060: 54 45 20 28 31 2D 34 29 22 00 79 10 9A 01 99 22 |TE (1-4)".y...."|
00000070: 11 20 20 20 31 2E 20 49 4F 22 2C 2C 22 33 2E 20 |. 1. IO",,"3. |
00000080: 47 41 4E 59 4D 45 44 45 22 00 9B 10 9F 01 99 22 |GANYMEDE"......"|
00000090: 20 20 20 32 2E 20 45 55 52 4F 50 41 22 2C 22 34 | 2. EUROPA","4|
000000A0: 2E 20 43 41 4C 4C 49 53 54 4F 22 00 C5 10 A4 01 |. CALLISTO".....|
000000B0: 85 22 11 4D 41 4B 45 20 53 45 4C 45 43 54 49 4F |.".MAKE SELECTIO|
000000C0: 4E 20 42 59 20 4E 55 4D 42 45 52 20 20 31 9D 9D |N BY NUMBER 1..|
000000D0: 9D 22 3B 43 48 00 EC 10 A9 01 8B 20 43 48 B3 31 |.";CH...... CH.1|
000000E0: 20 B0 20 43 48 B1 34 20 A7 99 22 11 54 52 59 20 | . CH.4 ..".TRY |
000000F0: 41 47 41 49 4E 22 3A 89 20 34 30 35 00 F2 10 AE |AGAIN":. 405....|
00000100: 01 8F 00 F8 10 B3 01 8F 00 37 11 B8 01 54 58 24 |.........7...TX$|
00000110: B2 22 11 57 48 41 54 20 49 53 20 54 48 45 20 4C |.".WHAT IS THE L|
00000120: 4F 43 41 4C 20 54 49 4D 45 20 28 55 53 45 20 4D |OCAL TIME (USE M|
00000130: 49 4C 49 54 41 52 59 20 46 4F 52 4D 41 54 29 22 |ILITARY FORMAT)"|
00000140: 3A 8D 20 31 35 30 30 00 6F 11 BD 01 85 22 20 20 |:. 1500.o...." |
00000150: 20 48 4F 55 52 20 28 30 2D 32 33 29 20 20 32 30 | HOUR (0-23) 20|
00000160: 9D 9D 9D 9D 22 3B 48 52 3A 8B 20 48 52 B3 30 20 |....";HR:. HR.0 |
00000170: B0 20 48 52 B1 32 33 20 A7 20 89 20 34 34 35 00 |. HR.23 . . 445.|
00000180: AA 11 C2 01 85 22 20 20 20 4D 49 4E 55 54 45 53 |....." MINUTES|
00000190: 20 28 30 2D 35 39 29 20 20 30 30 9D 9D 9D 9D 22 | (0-59) 00...."|
000001A0: 3B 4D 49 3A 8B 20 4D 49 B3 30 20 B0 20 4D 49 B1 |;MI:. MI.0 . MI.|
000001B0: 35 39 20 A7 20 89 20 34 35 30 00 BA 11 C7 01 54 |59 . . 450.....T|
000001C0: 4D B2 48 52 AA 4D 49 AD 36 30 00 E1 11 CC 01 91 |M.HR.MI.60......|
000001D0: 20 C5 28 54 5A 24 29 20 89 20 34 36 35 2C 34 37 | .(TZ$) . 465,47|
000001E0: 30 2C 34 37 35 2C 34 38 30 2C 34 38 35 2C 34 39 |0,475,480,485,49|
000001F0: 30 00 05 12 D1 01 55 54 B2 54 4D AB 35 3A 8B 20 |0.....UT.TM.5:. |
00000200: 55 54 B3 30 20 A7 20 55 54 B2 55 54 AA 32 34 3A |UT.0 . UT.UT.24:|
00000210: 44 B2 44 AB 31 00 0F 12 D3 01 89 20 35 30 30 00 |D.D.1...... 500.|
00000220: 33 12 D6 01 55 54 B2 54 4D AB 36 3A 8B 20 55 54 |3...UT.TM.6:. UT|
00000230: B3 30 20 A7 20 55 54 B2 55 54 AA 32 34 3A 44 B2 |.0 . UT.UT.24:D.|
00000240: 44 AB 31 00 3D 12 D8 01 89 20 35 30 30 00 61 12 |D.1.=.... 500.a.|
00000250: DB 01 55 54 B2 54 4D AB 37 3A 8B 20 55 54 B3 30 |..UT.TM.7:. UT.0|
00000260: 20 A7 20 55 54 B2 55 54 AA 32 34 3A 44 B2 44 AB | . UT.UT.24:D.D.|
00000270: 31 00 6B 12 DD 01 89 20 35 30 30 00 8F 12 E0 01 |1.k.... 500.....|
00000280: 55 54 B2 54 4D AB 38 3A 8B 20 55 54 B3 30 20 A7 |UT.TM.8:. UT.0 .|
00000290: 20 55 54 B2 55 54 AA 32 34 3A 44 B2 44 AB 31 00 | UT.UT.24:D.D.1.|
000002A0: 99 12 E2 01 89 20 35 30 30 00 BD 12 E5 01 55 54 |..... 500.....UT|
000002B0: B2 54 4D AB 39 3A 8B 20 55 54 B3 30 20 A7 20 55 |.TM.9:. UT.0 . U|
000002C0: 54 B2 55 54 AA 32 34 3A 44 B2 44 AB 31 00 C7 12 |T.UT.24:D.D.1...|
000002D0: E7 01 89 20 35 30 30 00 EC 12 EA 01 55 54 B2 54 |... 500.....UT.T|
000002E0: 4D AB 31 30 3A 8B 20 55 54 B3 30 20 A7 20 55 54 |M.10:. UT.0 . UT|
000002F0: B2 55 54 AA 32 34 3A 44 B2 44 AB 31 00 F6 12 EC |.UT.24:D.D.1....|
00000300: 01 89 20 35 30 30 00 FC 12 F4 01 8F 00 0C 13 F7 |.. 500..........|
00000310: 01 8B 20 44 B3 30 20 A7 20 44 B2 30 00 4C 13 F8 |.. D.0 . D.0.L..|
00000320: 01 41 B2 C5 28 41 24 28 43 48 2C 31 29 29 3A 42 |.A..(A$(CH,1)):B|
00000330: B2 C5 28 42 24 28 43 48 2C 32 29 29 3A 43 52 B2 |..(B$(CH,2)):CR.|
00000340: C5 28 43 52 24 28 43 48 2C 33 29 29 3A 43 44 B2 |.(CR$(CH,3)):CD.|
00000350: C5 28 43 44 24 28 43 48 2C 34 29 29 00 6A 13 F9 |.(CD$(CH,4)).j..|
00000360: 01 4C 43 B2 B5 28 41 AC 28 BF 28 32 AC FF AC 44 |.LC..(A.(.(2...D|
00000370: AD 42 AA 43 52 29 29 29 AA 31 00 80 13 FE 01 5A |.B.CR))).1.....Z|
00000380: 5A B2 5A 5A AA 31 3A 4C 43 28 5A 5A 29 B2 4C 43 |Z.ZZ.1:LC(ZZ).LC|
00000390: 00 9B 13 03 02 54 58 24 B2 22 54 48 45 20 4C 4F |.....TX$."THE LO|
000003A0: 43 41 54 49 4F 4E 20 4F 46 20 22 00 B6 13 08 02 |CATION OF ".....|
000003B0: 91 20 43 48 20 89 20 35 32 35 2C 35 33 30 2C 35 |. CH . 525,530,5|
000003C0: 33 35 2C 35 34 30 00 CE 13 0D 02 54 58 24 B2 54 |35,540.....TX$.T|
000003D0: 58 24 AA 22 49 4F 20 22 3A 89 20 35 34 34 00 EA |X$."IO ":. 544..|
000003E0: 13 12 02 54 58 24 B2 54 58 24 AA 22 45 55 52 4F |...TX$.TX$."EURO|
000003F0: 50 41 20 22 3A 89 20 35 34 34 00 08 14 17 02 54 |PA ":. 544.....T|
00000400: 58 24 B2 54 58 24 AA 22 47 41 4E 59 4D 45 44 45 |X$.TX$."GANYMEDE|
00000410: 20 22 3A 89 20 35 34 34 00 26 14 1C 02 54 58 24 | ":. 544.&...TX$|
00000420: B2 54 58 24 AA 22 43 41 4C 4C 49 53 54 4F 20 22 |.TX$."CALLISTO "|
00000430: 3A 89 20 35 34 34 00 66 14 20 02 54 58 24 B2 54 |:. 544.f. .TX$.T|
00000440: 58 24 AA 22 49 53 20 22 3A 8B 20 4C 43 B1 30 20 |X$."IS ":. LC.0 |
00000450: A7 20 4C 43 24 B2 C4 28 4C 43 29 3A 54 58 24 B2 |. LC$..(LC):TX$.|
00000460: 54 58 24 AA 22 2B 22 AA CA 28 4C 43 24 2C 32 29 |TX$."+"..(LC$,2)|
00000470: 3A 89 20 35 34 37 00 89 14 21 02 8B 20 4C 43 B3 |:. 547...!.. LC.|
00000480: 30 20 A7 20 4C 43 24 B2 C4 28 4C 43 29 3A 54 58 |0 . LC$..(LC):TX|
00000490: 24 B2 54 58 24 AA 4C 43 24 00 B1 14 22 02 8B 20 |$.TX$.LC$...".. |
000004A0: 4C 43 B2 30 20 A7 20 4C 43 24 B2 C4 28 4C 43 29 |LC.0 . LC$..(LC)|
000004B0: 3A 54 58 24 B2 54 58 24 AA CA 28 4C 43 24 2C 32 |:TX$.TX$..(LC$,2|
000004C0: 29 00 DF 14 23 02 54 58 24 B2 54 58 24 AA 22 20 |)...#.TX$.TX$." |
000004D0: 49 4E 20 52 45 4C 41 54 49 4F 4E 20 54 4F 20 4A |IN RELATION TO J|
000004E0: 55 50 49 54 45 52 2E 22 3A 8D 20 31 35 30 30 00 |UPITER.":. 1500.|
000004F0: 16 15 26 02 85 22 11 57 41 4E 54 20 54 4F 20 4C |..&..".WANT TO L|
00000500: 4F 43 41 54 45 20 41 4E 4F 54 48 45 52 20 4D 4F |OCATE ANOTHER MO|
00000510: 4F 4E 20 28 59 20 4F 52 20 4E 29 20 20 59 9D 9D |ON (Y OR N) Y..|
00000520: 9D 22 3B 41 4E 24 00 28 15 28 02 8B 20 5A 5A B2 |.";AN$.(.(.. ZZ.|
00000530: 34 20 A7 20 5A 5A B2 30 00 43 15 2B 02 8B 20 41 |4 . ZZ.0.C.+.. A|
00000540: 4E 24 B2 22 59 22 20 A7 20 99 22 93 22 3A 89 20 |N$."Y" . .".":. |
00000550: 34 30 30 00 8D 15 30 02 85 22 11 57 41 4E 54 20 |400...0..".WANT |
00000560: 54 4F 20 50 4C 4F 54 20 4D 4F 4F 4E 20 50 4F 53 |TO PLOT MOON POS|
00000570: 49 54 49 4F 4E 28 53 29 20 4F 4E 20 54 48 45 20 |ITION(S) ON THE |
00000580: 20 20 20 53 43 52 45 45 4E 20 28 59 20 4F 46 20 | SCREEN (Y OF |
00000590: 4E 29 20 20 59 9D 9D 9D 22 3B 41 4E 24 00 A9 15 |N) Y...";AN$...|
000005A0: 35 02 8B 20 41 4E 24 B2 22 4E 22 20 A7 20 99 22 |5.. AN$."N" . ."|
000005B0: 93 22 3A 89 20 31 31 30 30 00 C0 15 3A 02 8B 20 |.":. 1100...:.. |
000005C0: 41 4E 24 B2 22 59 22 20 A7 20 89 20 31 32 30 30 |AN$."Y" . . 1200|
000005D0: 00 D0 15 4E 02 99 22 93 22 3A 89 20 31 31 30 30 |...N..".":. 1100|
000005E0: 00 FC 15 58 02 8F 20 20 43 4F 4E 56 45 52 54 20 |...X.. CONVERT |
000005F0: 55 4E 49 56 45 52 53 41 4C 20 54 49 4D 45 20 54 |UNIVERSAL TIME T|
00000600: 4F 20 4C 4F 43 41 4C 20 54 49 4D 45 00 1C 16 5D |O LOCAL TIME...]|
00000610: 02 99 20 22 93 11 11 22 A3 31 33 29 22 54 49 4D |.. "...".13)"TIM|
00000620: 45 20 43 4F 4E 56 45 52 54 45 52 22 00 42 16 62 |E CONVERTER".B.b|
00000630: 02 99 22 11 57 48 41 54 20 49 53 20 59 4F 55 52 |..".WHAT IS YOUR|
00000640: 20 4C 4F 43 41 4C 20 54 49 4D 45 20 5A 4F 4E 45 | LOCAL TIME ZONE|
00000650: 3F 22 00 62 16 67 02 99 A3 35 29 22 11 31 2E 20 |?".b.g...5)".1. |
00000660: 45 41 53 54 45 52 4E 20 54 49 4D 45 20 5A 4F 4E |EASTERN TIME ZON|
00000670: 45 22 00 81 16 6C 02 99 A3 35 29 22 32 2E 20 43 |E"...l...5)"2. C|
00000680: 45 4E 54 52 41 4C 20 54 49 4D 45 20 5A 4F 4E 45 |ENTRAL TIME ZONE|
00000690: 22 00 A1 16 71 02 99 A3 35 29 22 33 2E 20 4D 4F |"...q...5)"3. MO|
000006A0: 55 4E 54 41 49 4E 20 54 49 4D 45 20 5A 4F 4E 45 |UNTAIN TIME ZONE|
000006B0: 22 00 C0 16 76 02 99 A3 35 29 22 34 2E 20 50 41 |"...v...5)"4. PA|
000006C0: 43 49 46 49 43 20 54 49 4D 45 20 5A 4F 4E 45 22 |CIFIC TIME ZONE"|
000006D0: 00 F5 16 7B 02 85 22 11 20 20 4D 41 4B 45 20 59 |...{..". MAKE Y|
000006E0: 4F 55 52 20 43 48 4F 49 43 45 20 42 59 20 4E 55 |OUR CHOICE BY NU|
000006F0: 4D 42 45 52 20 28 31 2D 34 29 20 20 34 9D 9D 9D |MBER (1-4) 4...|
00000700: 22 3B 54 5A 24 00 16 17 80 02 8B 20 C5 28 54 5A |";TZ$...... .(TZ|
00000710: 24 29 B3 31 20 B0 20 C5 28 54 5A 24 29 B1 34 20 |$).1 . .(TZ$).4 |
00000720: A7 20 89 36 33 35 00 50 17 85 02 99 22 11 57 48 |. .635.P....".WH|
00000730: 41 54 20 49 53 20 54 48 45 20 55 4E 49 56 45 52 |AT IS THE UNIVER|
00000740: 53 41 4C 20 54 49 4D 45 20 28 55 54 29 20 54 4F |SAL TIME (UT) TO|
00000750: 20 42 45 20 20 20 43 4F 4E 56 45 52 54 45 44 22 | BE CONVERTED"|
00000760: 00 96 17 8A 02 99 22 11 45 4E 54 45 52 20 48 4F |......".ENTER HO|
00000770: 55 52 20 41 4E 44 20 4D 49 4E 55 54 45 53 20 53 |UR AND MINUTES S|
00000780: 45 50 45 52 41 54 45 44 20 42 59 20 41 20 20 20 |EPERATED BY A |
00000790: 43 4F 4D 4D 41 20 20 20 20 20 22 3B 3A 85 20 48 |COMMA ";:. H|
000007A0: 52 25 2C 4D 49 25 00 C1 17 8F 02 8B 20 48 52 25 |R%,MI%...... HR%|
000007B0: B3 30 20 B0 20 48 52 25 B1 32 33 20 B0 20 4D 49 |.0 . HR%.23 . MI|
000007C0: 25 B3 30 20 B0 20 4D 49 25 B1 35 39 20 A7 36 35 |%.0 . MI%.59 .65|
000007D0: 30 00 E6 17 94 02 44 59 24 B2 22 22 3A 91 20 C5 |0.....DY$."":. .|
000007E0: 28 54 5A 24 29 20 89 36 36 35 2C 36 37 30 2C 36 |(TZ$) .665,670,6|
000007F0: 37 35 2C 36 38 30 00 F9 17 99 02 48 52 25 B2 48 |75,680.....HR%.H|
00000800: 52 25 AB 35 3A 89 36 38 35 00 0C 18 9E 02 48 52 |R%.5:.685.....HR|
00000810: 25 B2 48 52 25 AB 36 3A 89 36 38 35 00 1F 18 A3 |%.HR%.6:.685....|
00000820: 02 48 52 25 B2 48 52 25 AB 37 3A 89 36 38 35 00 |.HR%.HR%.7:.685.|
00000830: 32 18 A8 02 48 52 25 B2 48 52 25 AB 38 3A 89 36 |2...HR%.HR%.8:.6|
00000840: 38 35 00 74 18 AD 02 8B 20 48 52 25 B3 30 20 A7 |85.t.... HR%.0 .|
00000850: 20 48 52 25 B2 48 52 25 AA 32 34 3A 44 59 24 B2 | HR%.HR%.24:DY$.|
00000860: 22 54 48 45 20 20 20 20 20 20 20 50 52 45 56 49 |"THE PREVI|
00000870: 4F 55 53 20 44 41 59 22 3A 8F 20 47 4F 54 4F 20 |OUS DAY":. GOTO |
00000880: 32 38 35 35 00 9F 18 B2 02 48 52 24 B2 C4 28 48 |2855.....HR$..(H|
00000890: 52 25 29 3A 8B 20 48 52 25 B3 31 30 20 A7 20 48 |R%):. HR%.10 . H|
000008A0: 52 24 B2 22 30 22 AA C9 28 48 52 24 2C 31 29 00 |R$."0"..(HR$,1).|
000008B0: CF 18 B7 02 4D 49 24 B2 C4 28 4D 49 25 29 3A 8B |....MI$..(MI%):.|
000008C0: 20 4D 49 25 B3 31 30 20 A7 20 4D 49 24 B2 22 30 | MI%.10 . MI$."0|
000008D0: 22 AA C9 28 4D 49 24 2C 31 29 3A 89 37 30 35 00 |"..(MI$,1):.705.|
000008E0: 03 19 BC 02 4D 49 24 B2 C9 28 4D 49 24 2C 32 29 |....MI$..(MI$,2)|
000008F0: 3A 8F 20 20 49 46 20 48 52 25 3E 39 20 54 48 45 |:. IF HR%>9 THE|
00000900: 4E 20 48 52 24 3D 52 49 47 48 54 24 28 4D 52 24 |N HR$=RIGHT$(MR$|
00000910: 2C 32 29 00 31 19 C1 02 99 22 11 4C 4F 43 41 4C |,2).1....".LOCAL|
00000920: 20 54 49 4D 45 20 49 53 20 22 3B 48 52 24 3B 22 | TIME IS ";HR$;"|
00000930: 3A 22 3B 4D 49 24 3B 22 20 48 4F 55 52 53 20 22 |:";MI$;" HOURS "|
00000940: 3B 00 4F 19 C6 02 91 20 C5 28 54 5A 24 29 20 89 |;.O.... .(TZ$) .|
00000950: 37 31 35 2C 37 32 35 2C 37 33 35 2C 37 34 35 00 |715,725,735,745.|
00000960: 75 19 CB 02 8B 20 44 59 24 B3 B1 22 22 20 A7 20 |u.... DY$.."" . |
00000970: 99 20 22 45 53 54 20 22 AA 44 59 24 AA 22 2E 22 |. "EST ".DY$."."|
00000980: 3A 89 37 35 35 00 87 19 D0 02 99 20 22 45 53 54 |:.755...... "EST|
00000990: 2E 22 3A 89 37 35 35 00 AD 19 D5 02 8B 20 44 59 |.":.755...... DY|
000009A0: 24 B3 B1 22 22 20 A7 20 99 20 22 43 53 54 20 22 |$.."" . . "CST "|
000009B0: AA 44 59 24 AA 22 2E 22 3A 89 37 35 35 00 BF 19 |.DY$.".":.755...|
000009C0: DA 02 99 20 22 43 53 54 2E 22 3A 89 37 35 35 00 |... "CST.":.755.|
000009D0: E5 19 DF 02 8B 20 44 59 24 B3 B1 22 22 20 A7 20 |..... DY$.."" . |
000009E0: 99 20 22 4D 53 54 20 22 AA 44 59 24 AA 22 2E 22 |. "MST ".DY$."."|
000009F0: 3A 89 37 35 35 00 F7 19 E4 02 99 20 22 4D 53 54 |:.755...... "MST|
00000A00: 2E 22 3A 89 37 35 35 00 1D 1A E9 02 8B 20 44 59 |.":.755...... DY|
00000A10: 24 B3 B1 22 22 20 A7 20 99 20 22 50 53 54 20 22 |$.."" . . "PST "|
00000A20: AA 44 59 24 AA 22 2E 22 3A 89 37 35 35 00 2F 1A |.DY$.".":.755./.|
00000A30: EE 02 99 20 22 50 53 54 2E 22 3A 89 37 35 35 00 |... "PST.":.755.|
00000A40: 56 1A F3 02 85 20 22 11 41 4E 4F 54 48 45 52 20 |V.... ".ANOTHER |
00000A50: 43 41 4C 43 55 4C 41 54 49 4F 4E 20 20 4E 9D 9D |CALCULATION N..|
00000A60: 9D 22 3B 41 4E 24 00 72 1A F8 02 8B 20 41 4E 24 |.";AN$.r.... AN$|
00000A70: B2 22 4E 22 20 A7 20 99 22 93 22 3A 89 20 31 31 |."N" . .".":. 11|
00000A80: 30 30 00 7C 1A FD 02 89 20 36 30 30 00 82 1A E7 |00.|.... 600....|
00000A90: 03 80 00 A4 1A E8 03 8F 20 20 50 52 49 4E 54 20 |........ PRINT |
00000AA0: 54 49 54 4C 45 20 50 41 47 45 20 54 4F 20 53 43 |TITLE PAGE TO SC|
00000AB0: 52 45 45 4E 00 D8 1A ED 03 99 22 93 22 3A 97 32 |REEN......".":.2|
00000AC0: 31 34 2C 35 3A 99 3A 97 32 31 31 2C 30 3A 54 58 |14,5:.:.211,0:TX|
00000AD0: 24 B2 22 41 53 54 52 4F 4E 4F 4D 59 20 43 41 4C |$."ASTRONOMY CAL|
00000AE0: 43 55 4C 41 54 4F 52 22 00 10 1B F2 03 99 A3 A5 |CULATOR"........|
00000AF0: 43 28 58 29 29 54 58 24 22 11 11 22 3A 54 58 24 |C(X))TX$"..":TX$|
00000B00: B2 22 50 52 4F 47 52 41 4D 4D 45 44 20 42 59 3A |."PROGRAMMED BY:|
00000B10: 22 3A 99 A3 A5 43 28 58 29 29 54 58 24 22 11 22 |":...C(X))TX$"."|
00000B20: 00 31 1B F7 03 54 58 24 B2 22 43 41 4C 49 46 20 |.1...TX$."CALIF |
00000B30: 43 41 52 4C 22 3A 99 A3 A5 43 28 58 29 29 54 58 |CARL":...C(X))TX|
00000B40: 24 00 5D 1B FC 03 54 58 24 B2 22 4C 4F 53 20 41 |$.]...TX$."LOS A|
00000B50: 4E 47 45 4C 45 53 2C 20 43 41 22 3A 99 22 11 11 |NGELES, CA":."..|
00000B60: 11 11 22 A3 A5 43 28 58 29 29 54 58 24 00 83 1B |.."..C(X))TX$...|
00000B70: 01 04 54 58 24 B2 22 4A 41 4E 55 41 52 59 20 31 |..TX$."JANUARY 1|
00000B80: 39 38 38 22 3A 99 22 11 22 A3 A5 43 28 58 29 29 |988":."."..C(X))|
00000B90: 54 58 24 00 BD 1B 06 04 4E 58 24 B2 22 50 52 45 |TX$.....NX$."PRE|
00000BA0: 53 53 20 22 AA C7 28 33 34 29 AA 22 43 4F 4E 54 |SS "..(34)."CONT|
00000BB0: 52 4F 4C 22 AA C7 28 33 34 29 AA 22 20 4B 45 59 |ROL"..(34)." KEY|
00000BC0: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 E6 1B | TO CONTINUE"...|
00000BD0: 0B 04 54 58 24 B2 4E 58 24 3A 97 32 31 34 2C 32 |..TX$.NX$:.214,2|
00000BE0: 33 3A 99 3A 97 32 31 31 2C 30 3A 99 A3 A5 43 28 |3:.:.211,0:...C(|
00000BF0: 58 29 29 54 58 24 00 19 1C 10 04 97 20 31 39 38 |X))TX$...... 198|
00000C00: 2C 30 3A 92 20 36 35 34 2C 34 3A 92 20 36 35 34 |,0:. 654,4:. 654|
00000C10: 2C 34 2C 31 3A 99 22 93 22 3A 97 32 31 34 2C 37 |,4,1:.".":.214,7|
00000C20: 3A 99 3A 97 32 31 31 2C 30 00 3B 1C 15 04 8F 20 |:.:.211,0.;.... |
00000C30: 20 50 52 49 4E 54 20 49 4E 54 52 4F 20 49 4E 46 | PRINT INTRO INF|
00000C40: 4F 20 54 4F 20 53 43 52 45 45 4E 00 61 1C 1A 04 |O TO SCREEN.a...|
00000C50: 54 58 24 B2 22 49 4E 54 52 4F 44 55 43 54 49 4F |TX$."INTRODUCTIO|
00000C60: 4E 22 3A 99 A3 A5 43 28 58 29 29 54 58 24 22 11 |N":...C(X))TX$".|
00000C70: 22 00 8C 1C 1F 04 99 22 4A 55 50 49 54 45 52 27 |"......"JUPITER'|
00000C80: 53 20 4D 4F 4F 4E 53 20 4D 4F 56 45 20 49 4E 20 |S MOONS MOVE IN |
00000C90: 4F 52 42 49 54 53 20 54 48 41 54 22 00 B9 1C 24 |ORBITS THAT"...$|
00000CA0: 04 99 22 41 50 50 45 41 52 20 54 4F 20 54 41 4B |.."APPEAR TO TAK|
00000CB0: 45 20 54 48 45 4D 20 46 52 4F 4D 20 53 49 44 45 |E THEM FROM SIDE|
00000CC0: 20 54 4F 20 53 49 44 45 22 00 E7 1C 29 04 99 22 | TO SIDE"...).."|
00000CD0: 41 43 52 4F 53 53 20 4A 55 50 49 54 45 52 27 53 |ACROSS JUPITER'S|
00000CE0: 20 49 4D 41 47 45 2E 20 20 41 53 20 41 4E 20 41 | IMAGE. AS AN A|
00000CF0: 4D 41 54 55 45 52 22 00 16 1D 2E 04 99 22 41 53 |MATUER"......"AS|
00000D00: 54 52 4F 4E 4F 4D 45 52 2C 20 59 4F 55 20 43 41 |TRONOMER, YOU CA|
00000D10: 4E 20 55 53 45 20 54 48 49 53 20 50 52 4F 47 52 |N USE THIS PROGR|
00000D20: 41 4D 20 54 4F 22 00 45 1D 33 04 99 22 49 44 45 |AM TO".E.3.."IDE|
00000D30: 4E 54 49 46 59 20 45 41 43 48 20 4D 4F 4F 4E 20 |NTIFY EACH MOON |
00000D40: 52 45 4C 41 54 49 56 45 20 54 4F 20 4A 55 50 49 |RELATIVE TO JUPI|
00000D50: 54 45 52 2E 22 00 75 1D 38 04 99 22 11 59 4F 55 |TER.".u.8..".YOU|
00000D60: 20 43 41 4E 20 41 4C 53 4F 20 55 53 45 20 54 48 | CAN ALSO USE TH|
00000D70: 49 53 20 50 52 4F 47 52 41 4D 20 54 4F 20 43 41 |IS PROGRAM TO CA|
00000D80: 4C 43 55 2D 22 00 A4 1D 39 04 99 22 4C 41 54 45 |LCU-"...9.."LATE|
00000D90: 20 54 48 45 20 45 51 55 49 56 41 4C 45 4E 54 20 | THE EQUIVALENT |
00000DA0: 4C 4F 43 41 4C 20 54 49 4D 45 20 57 48 45 4E 20 |LOCAL TIME WHEN |
00000DB0: 59 4F 55 22 00 C9 1D 3A 04 99 22 4B 4E 4F 57 20 |YOU"...:.."KNOW |
00000DC0: 54 48 45 20 55 4E 49 56 45 52 53 41 4C 20 54 49 |THE UNIVERSAL TI|
00000DD0: 4D 45 20 28 55 54 29 2E 22 00 E6 1D 3D 04 54 58 |ME (UT)."...=.TX|
00000DE0: 24 B2 4E 58 24 3A 97 32 31 34 2C 32 33 3A 99 3A |$.NX$:.214,23:.:|
00000DF0: 97 32 31 31 2C 30 00 11 1E 42 04 99 A3 A5 43 28 |.211,0...B....C(|
00000E00: 58 29 29 54 58 24 3A 97 20 31 39 38 2C 30 3A 92 |X))TX$:. 198,0:.|
00000E10: 20 36 35 34 2C 34 3A 92 20 20 36 35 34 2C 34 2C | 654,4:. 654,4,|
00000E20: 31 00 1A 1E 47 04 99 22 93 22 00 4C 1E 4C 04 97 |1...G..".".L.L..|
00000E30: 32 31 34 2C 35 3A 99 3A 97 32 31 31 2C 30 3A 54 |214,5:.:.211,0:T|
00000E40: 58 24 B2 22 4D 41 49 4E 20 4D 45 4E 55 22 3A 99 |X$."MAIN MENU":.|
00000E50: 20 A3 A5 43 28 58 29 29 20 54 58 24 00 64 1E 51 | ..C(X)) TX$.d.Q|
00000E60: 04 99 22 11 44 4F 20 59 4F 55 20 57 41 4E 54 20 |..".DO YOU WANT |
00000E70: 54 4F 3A 22 00 8A 1E 56 04 99 22 11 20 20 20 20 |TO:"...V..". |
00000E80: 31 2E 20 4C 4F 43 41 54 45 20 4A 55 50 49 54 45 |1. LOCATE JUPITE|
00000E90: 52 27 53 20 4D 4F 4F 4E 53 22 00 CF 1E 5B 04 99 |R'S MOONS"...[..|
00000EA0: 22 20 20 20 20 32 2E 20 43 41 4C 43 55 4C 41 54 |" 2. CALCULAT|
00000EB0: 45 20 4C 4F 43 41 4C 20 54 49 4D 45 20 46 52 4F |E LOCAL TIME FRO|
00000EC0: 4D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |M |
00000ED0: 55 4E 49 56 45 52 53 41 4C 20 54 49 4D 45 22 00 |UNIVERSAL TIME".|
00000EE0: EF 1E 60 04 99 22 20 20 20 20 33 2E 20 45 58 49 |..`.." 3. EXI|
00000EF0: 54 20 54 48 49 53 20 50 52 4F 47 52 41 4D 22 00 |T THIS PROGRAM".|
00000F00: 24 1F 65 04 85 22 11 45 4E 54 45 52 20 59 4F 55 |$.e..".ENTER YOU|
00000F10: 52 20 43 48 4F 49 43 45 20 42 59 20 4E 55 4D 42 |R CHOICE BY NUMB|
00000F20: 45 52 20 31 20 4F 52 20 33 29 20 20 31 9D 9D 9D |ER 1 OR 3) 1...|
00000F30: 22 3B 41 4E 00 33 1F 6A 04 8B 20 41 4E B2 31 20 |";AN.3.j.. AN.1 |
00000F40: A7 20 8C 00 6A 1F 6F 04 8B 20 41 4E B3 31 20 B0 |. ..j.o.. AN.1 .|
00000F50: 20 41 4E B1 33 20 A7 20 99 A3 31 31 29 22 11 81 | AN.3 . ..11)"..|
00000F60: 54 52 59 20 41 47 41 49 4E 20 53 54 55 50 49 44 |TRY AGAIN STUPID|
00000F70: 21 90 22 3A 89 20 31 31 32 35 00 81 1F 74 04 91 |!.":. 1125...t..|
00000F80: 20 41 4E 20 89 20 31 31 30 2C 36 30 30 2C 39 39 | AN . 110,600,99|
00000F90: 39 00 BA 1F B0 04 8F 20 20 50 4C 4F 54 20 4A 55 |9...... PLOT JU|
00000FA0: 50 49 54 45 52 27 53 20 4D 4F 4F 4E 20 4C 4F 43 |PITER'S MOON LOC|
00000FB0: 41 54 49 4F 4E 53 20 20 20 20 20 20 20 20 20 20 |ATIONS |
00000FC0: 20 4F 4E 20 53 43 52 45 45 4E 00 FD 1F B1 04 8F | ON SCREEN......|
00000FD0: 20 20 4C 43 28 31 29 3D 2B 32 3A 4C 43 28 32 29 | LC(1)=+2:LC(2)|
00000FE0: 3D 2D 33 35 3A 4C 43 28 33 29 3D 2D 34 32 3A 4C |=-35:LC(3)=-42:L|
00000FF0: 43 28 34 29 3D 2D 38 39 3A 52 45 4D 20 4D 4F 4F |C(4)=-89:REM MOO|
00001000: 4E 53 20 4F 4E 20 31 2F 32 31 2F 38 38 00 37 20 |NS ON 1/21/88.7 |
00001010: B3 04 99 22 93 11 11 22 3A 54 58 24 B2 22 4C 4F |..."...":TX$."LO|
00001020: 43 41 54 49 4F 4E 20 4F 46 20 4A 55 50 49 54 45 |CATION OF JUPITE|
00001030: 52 27 53 20 4D 4F 4F 4E 53 22 3A 99 A3 A5 43 28 |R'S MOONS":...C(|
00001040: 58 29 29 20 54 58 24 00 71 20 B4 04 4D 24 B2 CA |X)) TX$.q ..M$..|
00001050: 28 4D 4F 24 2C 4D 4F 2C 33 29 3A 44 24 B2 C4 28 |(MO$,MO,3):D$..(|
00001060: 44 41 29 3A 59 24 B2 C4 28 59 52 29 3A 54 58 24 |DA):Y$..(YR):TX$|
00001070: B2 4D 24 AA 22 2E 22 AA 44 24 AA 22 2C 22 AA 59 |.M$.".".D$.",".Y|
00001080: 24 00 83 20 B5 04 99 20 A3 A5 43 28 58 29 29 20 |$.. ... ..C(X)) |
00001090: 54 58 24 00 98 20 B6 04 97 32 31 34 2C 30 38 3A |TX$.. ...214,08:|
000010A0: 99 3A 97 32 31 31 2C 30 00 B7 20 BA 04 99 20 22 |.:.211,0.. ... "|
000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010C0: 20 20 20 20 D5 C9 22 00 D6 20 BB 04 99 20 22 20 | ..".. ... " |
000010D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010E0: 20 20 20 CA CB 22 00 F8 20 BC 04 99 20 22 20 20 | ..".. ... " |
000010F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001100: 4A 55 50 49 54 45 52 22 00 0D 21 BE 04 97 32 31 |JUPITER"..!...21|
00001110: 34 2C 30 38 3A 99 3A 97 32 31 31 2C 30 00 1B 21 |4,08:.:.211,0..!|
00001120: BF 04 81 20 49 B2 31 20 A4 20 34 00 38 21 C0 04 |... I.1 . 4.8!..|
00001130: 8B 20 49 B2 31 20 A7 20 99 20 22 9C 22 3A 43 4C |. I.1 . . ".":CL|
00001140: 24 28 31 29 B2 22 9C 22 00 55 21 C1 04 8B 20 49 |$(1).".".U!... I|
00001150: B2 32 20 A7 20 99 20 22 81 22 3A 43 4C 24 28 32 |.2 . . ".":CL$(2|
00001160: 29 B2 22 81 22 00 72 21 C2 04 8B 20 49 B2 33 20 |).".".r!... I.3 |
00001170: A7 20 99 20 22 1F 22 3A 43 4C 24 28 34 29 B2 22 |. . ".":CL$(4)."|
00001180: 9E 22 00 8F 21 C3 04 8B 20 49 B2 34 20 A7 20 99 |."..!... I.4 . .|
00001190: 20 22 9E 22 3A 43 4C 24 28 33 29 B2 22 1F 22 00 | ".":CL$(3).".".|
000011A0: A4 21 C4 04 58 B2 4C 43 28 49 29 AD 35 3A 58 28 |.!..X.LC(I).5:X(|
000011B0: 49 29 B2 58 00 DA 21 C5 04 8B 20 58 B3 30 20 AF |I).X..!... X.0 .|
000011C0: 20 58 B1 AB 31 20 A7 20 97 20 32 31 34 2C 30 38 | X..1 . . 214,08|
000011D0: 3A 99 3A 97 32 31 31 2C 28 31 39 AB 28 B6 28 58 |:.:.211,(19.(.(X|
000011E0: 29 29 29 3A 89 20 31 32 33 30 00 0F 22 C6 04 8B |))):. 1230.."...|
000011F0: 20 58 B3 31 20 AF 20 58 B1 30 20 A7 20 97 20 32 | X.1 . X.0 . . 2|
00001200: 31 34 2C 30 38 3A 99 3A 97 32 31 31 2C 28 32 32 |14,08:.:.211,(22|
00001210: AB 28 B6 28 58 29 29 29 3A 89 20 31 32 33 30 00 |.(.(X))):. 1230.|
00001220: 2B 22 C9 04 58 B2 31 39 AA 58 3A 97 32 31 34 2C |+"..X.19.X:.214,|
00001230: 30 38 3A 99 3A 97 32 31 31 2C 58 00 3F 22 CE 04 |08:.:.211,X.?"..|
00001240: 4C 43 24 28 49 29 B2 C4 28 4C 43 28 49 29 29 00 |LC$(I)..(LC(I)).|
00001250: 66 22 D3 04 8B 20 4C 43 28 49 29 B1 30 20 A7 20 |f"... LC(I).0 . |
00001260: 4C 43 24 28 49 29 B2 22 2B 22 AA CA 28 4C 43 24 |LC$(I)."+"..(LC$|
00001270: 28 49 29 2C 32 29 00 70 22 D8 04 99 20 22 D7 22 |(I),2).p"... "."|
00001280: 00 76 22 E2 04 82 00 A5 22 E7 04 99 20 43 4C 24 |.v"....."... CL$|
00001290: 28 31 29 22 11 11 11 11 D7 90 20 3D 20 49 4F 27 |(1)"...... = IO'|
000012A0: 53 20 4C 4F 43 41 54 49 4F 4E 20 49 53 20 22 4C |S LOCATION IS "L|
000012B0: 43 24 28 31 29 00 D4 22 EC 04 99 20 43 4C 24 28 |C$(1).."... CL$(|
000012C0: 32 29 22 D7 90 20 3D 20 45 55 52 4F 50 41 27 53 |2)".. = EUROPA'S|
000012D0: 20 4C 4F 43 41 54 49 4F 4E 20 49 53 20 22 4C 43 | LOCATION IS "LC|
000012E0: 24 28 32 29 00 05 23 F1 04 99 20 43 4C 24 28 33 |$(2)..#... CL$(3|
000012F0: 29 22 D7 90 20 3D 20 47 41 4E 59 4D 45 44 45 27 |)".. = GANYMEDE'|
00001300: 53 20 4C 4F 43 41 54 49 4F 4E 20 49 53 20 22 4C |S LOCATION IS "L|
00001310: 43 24 28 33 29 00 36 23 F6 04 99 20 43 4C 24 28 |C$(3).6#... CL$(|
00001320: 34 29 22 D7 90 20 3D 20 43 41 4C 4C 49 53 54 4F |4)".. = CALLISTO|
00001330: 27 53 20 4C 4F 43 41 54 49 4F 4E 20 49 53 20 22 |'S LOCATION IS "|
00001340: 4C 43 24 28 34 29 00 61 23 FB 04 99 22 11 4E 45 |LC$(4).a#...".NE|
00001350: 47 41 54 49 56 45 20 56 41 4C 55 45 53 20 41 52 |GATIVE VALUES AR|
00001360: 45 20 54 4F 20 54 48 45 20 57 45 53 54 20 4F 46 |E TO THE WEST OF|
00001370: 22 00 A0 23 00 05 99 22 4A 55 50 49 54 45 52 20 |"..#..."JUPITER |
00001380: 41 4E 44 20 50 4F 53 49 54 49 56 45 20 56 41 4C |AND POSITIVE VAL|
00001390: 55 45 53 20 41 52 45 20 54 4F 20 54 48 45 20 20 |UES ARE TO THE |
000013A0: 45 41 53 54 20 4F 46 20 4A 55 50 49 54 45 52 22 |EAST OF JUPITER"|
000013B0: 00 C0 23 0A 05 54 58 24 B2 4E 58 24 3A 99 22 11 |..#..TX$.NX$:.".|
000013C0: 81 22 A3 A5 43 28 58 29 29 20 54 58 24 22 90 22 |."..C(X)) TX$"."|
000013D0: 00 EB 23 0F 05 97 20 31 39 38 2C 30 3A 92 20 36 |..#... 198,0:. 6|
000013E0: 35 34 2C 34 3A 92 20 36 35 34 2C 34 2C 31 3A 99 |54,4:. 654,4,1:.|
000013F0: 20 22 93 22 3A 89 20 31 31 30 30 00 1C 24 DC 05 | ".":. 1100..$..|
00001400: 8F 20 20 43 4F 4E 56 45 52 54 20 53 54 52 49 4E |. CONVERT STRIN|
00001410: 47 20 54 4F 20 4C 45 53 53 20 54 48 41 4E 20 34 |G TO LESS THAN 4|
00001420: 30 20 43 48 41 52 41 43 54 45 52 53 00 44 24 E1 |0 CHARACTERS.D$.|
00001430: 05 54 38 24 B2 22 22 3A 54 39 24 B2 22 22 3A 8B |.T8$."":T9$."":.|
00001440: 20 C3 28 54 58 24 29 B3 34 30 20 A7 20 99 20 54 | .(TX$).40 . . T|
00001450: 58 24 3A 8E 00 70 24 E2 05 8F 20 49 46 20 4C 45 |X$:..p$... IF LE|
00001460: 4E 28 54 58 24 29 3D 34 30 20 54 48 45 4E 20 50 |N(TX$)=40 THEN P|
00001470: 52 49 4E 54 20 54 58 24 3B 3A 52 45 54 55 52 4E |RINT TX$;:RETURN|
00001480: 00 8C 24 E6 05 4C B2 C3 28 54 58 24 29 3A 81 20 |..$..L..(TX$):. |
00001490: 49 B2 4C 20 A4 20 31 20 A9 20 AB 31 00 A6 24 EB |I.L . 1 . .1..$.|
000014A0: 05 8B 20 CA 28 54 58 24 2C 49 2C 31 29 B3 B1 22 |.. .(TX$,I,1).."|
000014B0: 20 22 20 A7 20 82 00 B9 24 F0 05 54 38 24 B2 C8 | " . ...$..T8$..|
000014C0: 28 54 58 24 2C 49 AB 31 29 00 CC 24 F5 05 54 39 |(TX$,I.1)..$..T9|
000014D0: 24 B2 CA 28 54 58 24 2C 49 AA 31 29 00 E5 24 FA |$..(TX$,I.1)..$.|
000014E0: 05 4C B2 C3 28 54 38 24 29 3A 8B 20 4C B1 B2 34 |.L..(T8$):. L..4|
000014F0: 30 20 A7 20 82 00 0C 25 FF 05 99 20 54 38 24 3A |0 . ...%... T8$:|
00001500: 99 20 54 39 24 3A 8F 20 54 58 24 3D 22 22 3A 54 |. T9$:. TX$="":T|
00001510: 38 24 3D 22 22 3A 54 39 24 3D 22 22 00 12 25 04 |8$="":T9$=""..%.|
00001520: 06 8E 00 00 00 |..... |
4.DA:. 400.5.... CALCULATION OF POSITION
S USING SIN FUNCTION.Y...."..WH
ICH MOON TO LOCATE (1-4)".Y....". 1. I
O",,"3. GANYMEDE"......" 2. EUROPA","4
. CALLISTO".E....".MAKE SELECTION BY NUM
BER 1...";CH...... CH.1 . CH.4 ..".TRY
AGAIN":. 405.............7...TX$.".WHAT
IS THE LOCAL TIME (USE MILITARY FORMAT)"
:. 1500.O...." HOUR (0-23) 20....";HR
:. HR.0 . HR.23 . . 445...B.." MINUTES
(0-59) 00....";MI:. MI.0 . MI.59 . . 4
50...G.TM.HR.MI.60...L.. E(TZ$) . 465,47
0,475,480,485,490...Q.UT.TM.5:. UT.0 . U
T.UT.24:D.D.1...S.. 500.3.V.UT.TM.6:. UT
.0 . UT.UT.24:D.D.1.=.X.. 500.A...UT.TM.
7:. UT.0 . UT.UT.24:D.D.1.K.... 500.....
UT.TM.8:. UT.0 . UT.UT.24:D.D.1...... 50
0.....UT.TM.9:. UT.0 . UT.UT.24:D.D.1.G.
... 500.....UT.TM.10:. UT.0 . UT.UT.24:D
.D.1...... 500............ D.0 . D.0.L..
.A.E(A$(CH,1)):B.E(B$(CH,2)):CR.E(CR$(CH
,3)):CD.E(CD$(CH,4)).J...LC..(A.(.(2...D
.B.CR))).1.....ZZ.ZZ.1:LC(ZZ).LC.....TX$
."THE LOCATION OF "...... CH . 525,530,5
35,540.N...TX$.TX$."IO ":. 544.....TX$.T
X$."EUROPA ":. 544.....TX$.TX$."GANYMEDE
":. 544.&...TX$.TX$."CALLISTO ":. 544.F
. .TX$.TX$."IS ":. LC.0 . LC$.D(LC):TX$.
TX$."+".J(LC$,2):. 547...!.. LC.0 . LC$.
D(LC):TX$.TX$.LC$...".. LC.0 . LC$.D(LC)
:TX$.TX$.J(LC$,2)...#.TX$.TX$." IN RELAT
ION TO JUPITER.":. 1500...&..".WANT TO L
OCATE ANOTHER MOON (Y OR N) Y...";AN$.(
.(.. ZZ.4 . ZZ.0.C.+.. AN$."Y" . .".":.
400...0..".WANT TO PLOT MOON POSITION(S)
ON THE SCREEN (Y OF N) Y...";AN$...
5.. AN$."N" . .".":. 1100...:.. AN$."Y"
. . 1200.P.N..".":. 1100...X.. CONVERT
UNIVERSAL TIME TO LOCAL TIME...].. "..."
.13)"TIME CONVERTER".B.B..".WHAT IS YOUR
LOCAL TIME ZONE?".B.G...5)".1. EASTERN
TIME ZONE"...L...5)"2. CENTRAL TIME ZONE
"...Q...5)"3. MOUNTAIN TIME ZONE"...V...
5)"4. PACIFIC TIME ZONE"...{..". MAKE Y
OUR CHOICE BY NUMBER (1-4) 4...";TZ$...
... E(TZ$).1 . E(TZ$).4 . .635.P....".WH
AT IS THE UNIVERSAL TIME (UT) TO BE CO
NVERTED"......".ENTER HOUR AND MINUTES S
EPERATED BY A COMMA ";:. HR%,MI%.A
.... HR%.0 . HR%.23 . MI%.0 . MI%.59 .65
0.....DY$."":. E(TZ$) .665,670,675,680..
...HR%.HR%.5:.685.....HR%.HR%.6:.685....
.HR%.HR%.7:.685.2...HR%.HR%.8:.685.T....
HR%.0 . HR%.HR%.24:DY$."THE PREVI
OUS DAY":. GOTO 2855.....HR$.D(HR%):. HR
%.10 . HR$."0".I(HR$,1).O...MI$.D(MI%):.
MI%.10 . MI$."0".I(MI$,1):.705.....MI$.
I(MI$,2):. IF HR%>9 THEN HR$=RIGHT$(MR$
,2).1.A..".LOCAL TIME IS ";HR$;":";MI$;"
HOURS ";.O.F.. E(TZ$) .715,725,735,745.
U.K.. DY$.."" . . "EST ".DY$.".":.755...
P.. "EST.":.755...U.. DY$.."" . . "CST "
.DY$.".":.755...Z.. "CST.":.755...... DY
$.."" . . "MST ".DY$.".":.755...... "MST
.":.755...... DY$.."" . . "PST ".DY$."."
:.755./.... "PST.":.755.V.... ".ANOTHER
CALCULATION N...";AN$.R.... AN$."N" . .
".":. 1100.|.... 600............ PRINT
TITLE PAGE TO SCREEN.X....".":.214,5:.:.
211,0:TX$."ASTRONOMY CALCULATOR"........
C(X))TX$"..":TX$."PROGRAMMED BY:":...C(X
))TX$".".1...TX$."CALIF CARL":...C(X))TX
$.]...TX$."LOS ANGELES, CA":."...."..C(X
))TX$.....TX$."JANUARY 1988":."."..C(X))
TX$.....NX$."PRESS ".G(34)."CONTROL".G(3
4)." KEY TO CONTINUE".....TX$.NX$:.214,2
3:.:.211,0:...C(X))TX$...... 198,0:. 654
,4:. 654,4,1:.".":.214,7:.:.211,0.;....
PRINT INTRO INFO TO SCREEN.A...TX$."INT
RODUCTION":...C(X))TX$"."......"JUPITER'
S MOONS MOVE IN ORBITS THAT"...$.."APPEA
R TO TAKE THEM FROM SIDE TO SIDE"...).."
ACROSS JUPITER'S IMAGE. AS AN AMATUER".
....."ASTRONOMER, YOU CAN USE THIS PROGR
AM TO".E.3.."IDENTIFY EACH MOON RELATIVE
TO JUPITER.".U.8..".YOU CAN ALSO USE TH
IS PROGRAM TO CALCU-"...9.."LATE THE EQU
IVALENT LOCAL TIME WHEN YOU".I.:.."KNOW
THE UNIVERSAL TIME (UT)."...=.TX$.NX$:.2
14,23:.:.211,0...B....C(X))TX$:. 198,0:.
654,4:. 654,4,1...G..".".L.L..214,5:.:
.211,0:TX$."MAIN MENU":. ..C(X)) TX$.D.Q
..".DO YOU WANT TO:"...V..". 1. LOCAT
E JUPITER'S MOONS".O.[.." 2. CALCULAT
E LOCAL TIME FROM UNIVERSA
L TIME"...`.." 3. EXIT THIS PROGRAM".
$.E..".ENTER YOUR CHOICE BY NUMBER 1 OR
3) 1...";AN.3.J.. AN.1 . ..J.O.. AN.1 .
AN.3 . ..11)"..TRY AGAIN STUPID!.":. 11
25...T.. AN . 110,600,999...... PLOT JU
PITER'S MOON LOCATIONS ON SCRE
EN...... LC(1)=+2:LC(2)=-35:LC(3)=-42:L
C(4)=-89:REM MOONS ON 1/21/88.7 ..."..."
:TX$."LOCATION OF JUPITER'S MOONS":...C(
X)) TX$.Q ..M$.J(MO$,MO,3):D$.D(DA):Y$.D
(YR):TX$.M$.".".D$.",".Y$.. ... ..C(X))
TX$.. ...214,08:.:.211,0.. ... "
UI".V ... "
JK".. ... " JUPITER"
..!...214,08:.:.211,0..!... I.1 . 4.8!..
. I.1 . . ".":CL$(1).".".U!A.. I.2 . . "
.":CL$(2).".".R!B.. I.3 . . ".":CL$(4)."
."..!C.. I.4 . . ".":CL$(3)."."..!D.X.LC
(I).5:X(I).X.Z!E.. X.0 . X..1 . . 214,08
:.:.211,(19.(.(X))):. 1230.."F.. X.1 . X
.0 . . 214,08:.:.211,(22.(.(X))):. 1230.
+"I.X.19.X:.214,08:.:.211,X.?"N.LC$(I).D
(LC(I)).F"S.. LC(I).0 . LC$(I)."+".J(LC$
(I),2).P"X.. "W".V"....."... CL$(1)"....
W. = IO'S LOCATION IS "LC$(1).T"... CL$(
2)"W. = EUROPA'S LOCATION IS "LC$(2)..#.
.. CL$(3)"W. = GANYMEDE'S LOCATION IS "L
C$(3).6#... CL$(4)"W. = CALLISTO'S LOCAT
ION IS "LC$(4).A#...".NEGATIVE VALUES AR
E TO THE WEST OF". #..."JUPITER AND POSI
TIVE VALUES ARE TO THE EAST OF JUPITER"
..#..TX$.NX$:.".."..C(X)) TX$"."..#... 1
98,0:. 654,4:. 654,4,1:. ".":. 1100..$..
. CONVERT STRING TO LESS THAN 40 CHARAC
TERS.D$..T8$."":T9$."":. C(TX$).40 . . T
X$:..P$... IF LEN(TX$)=40 THEN PRINT TX$
;:RETURN..$..L.C(TX$):. I.L . 1 . .1..$.
.. J(TX$,I,1).." " . ...$..T8$.H(TX$,I.1
).L$..T9$.J(TX$,I.1)..$..L.C(T8$):. L..4
0 . ...%... T8$:. T9$:. TX$="":T8$="":T9
$=""..%......
> CLICK IMAGE PREVIEW FOR FULL MODAL