ASTRO-CALC
FILE INFORMATION
FILENAME(S): ASTRO-CALC
FILE TYPE(S): PRG
FILE SIZE: 16K
FIRST SEEN: 2025-11-30 18:12:23
APPEARS ON: 1 disk(s)
FILE HASH
2998dead93c66b6e854bbf431a8b9afaa447040814f92177cd3151cfd321ef43
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| LOADSTAR 50 S 3 | ASTRO-CALC | PRG | Sailor, Ganheden | 22 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1A 08 05 00 8B 41 5A B2 30 A7 41 5A B2 31 |.......AZ.0.AZ.1|
00000010: 3A 93 22 44 52 22 2C 38 2C 31 00 22 08 0A 00 89 |:."DR",8,1."....|
00000020: 36 30 00 42 08 0F 00 99 22 93 13 08 0E 1F 22 3B |60.B....".....";|
00000030: 3A 97 35 33 32 38 31 2C 33 3A 97 35 33 32 38 30 |:.53281,3:.53280|
00000040: 2C 33 00 6F 08 14 00 4C B2 C3 28 46 24 29 3A 42 |,3.o...L..(F$):B|
00000050: B2 39 35 31 3A 97 42 2C 4C AA 32 3A 97 42 AA 4C |.951:.B,L.2:.B.L|
00000060: AA 31 2C 34 34 3A 97 42 AA 4C AA 32 2C 38 30 00 |.1,44:.B.L.2,80.|
00000070: 9B 08 19 00 81 49 B2 30 A4 4C AB 31 3A 97 42 AA |.....I.0.L.1:.B.|
00000080: 49 AA 31 2C C6 28 CA 28 46 24 2C 49 AA 31 2C 31 |I.1,.(.(F$,I.1,1|
00000090: 29 29 3A 82 3A 97 39 30 39 2C 31 00 B0 08 1E 00 |)):.:.909,1.....|
000000A0: 9E 38 32 38 3A 97 31 39 38 2C 30 3A 46 5A B2 30 |.828:.198,0:FZ.0|
000000B0: 00 F1 08 23 00 97 32 31 34 2C 32 33 3A 99 3A 8B |...#..214,23:.:.|
000000C0: 46 51 B2 30 A7 99 22 90 20 20 20 20 D0 52 45 53 |FQ.0..". .RES|
000000D0: 53 20 12 D3 D0 C1 C3 C5 92 20 54 4F 20 52 45 54 |S ....... TO RET|
000000E0: 55 52 4E 20 54 4F 20 4D 45 4E 55 91 22 3A 89 34 |URN TO MENU.":.4|
000000F0: 35 00 23 09 28 00 99 22 90 20 20 12 D3 D0 C1 C3 |5.#.(..". .....|
00000100: C5 92 20 46 4F 52 20 4D 4F 52 45 20 20 20 20 20 |.. FOR MORE |
00000110: 12 D2 C5 D4 D5 D2 CE 92 20 46 4F 52 20 4D 45 4E |........ FOR MEN|
00000120: 55 91 22 00 41 09 2D 00 A1 41 24 3A 8B 41 24 B3 |U.".A.-..A$:.A$.|
00000130: B1 22 20 22 AF 41 24 B3 B1 C7 28 31 33 29 A7 34 |." ".A$...(13).4|
00000140: 35 00 54 09 32 00 8B 41 24 B2 C7 28 31 33 29 A7 |5.T.2..A$..(13).|
00000150: 46 5A B2 31 00 5A 09 37 00 8E 00 99 09 3C 00 96 |FZ.1.Z.7.....<..|
00000160: 20 A5 41 28 58 29 B2 B4 28 58 29 AC 28 B5 28 B6 | .A(X)..(X).(.(.|
00000170: 28 58 29 29 AA 28 B6 28 58 29 AB B5 28 B6 28 58 |(X)).(.(X)..(.(X|
00000180: 29 29 29 AC 31 30 30 AD 36 30 29 3A 50 49 B2 33 |))).100.60):PI.3|
00000190: 2E 31 34 31 35 39 32 36 35 00 C9 09 41 00 86 4A |.14159265...A..J|
000001A0: 44 24 28 32 32 29 2C 4D 31 24 28 31 33 29 2C 4D |D$(22),M1$(13),M|
000001B0: 32 24 28 31 33 29 3A 96 A5 53 28 58 29 B2 BF 28 |2$(13):..S(X)..(|
000001C0: 50 49 AD 31 38 30 AC 58 29 00 05 0A 46 00 96 A5 |PI.180.X)...F...|
000001D0: 4D 28 58 29 B2 58 AB 28 B5 28 58 AD 33 36 30 29 |M(X).X.(.(X.360)|
000001E0: AC 33 36 30 29 3A 96 A5 45 28 58 29 B2 50 49 AD |.360):..E(X).PI.|
000001F0: 31 38 30 AC 58 3A 96 A5 43 28 58 29 B2 31 38 30 |180.X:..C(X).180|
00000200: AD 50 49 AC 58 00 50 0A 4B 00 83 22 31 2E 30 30 |.PI.X.P.K.."1.00|
00000210: 22 2C 22 31 30 30 2E 30 30 22 2C 22 32 30 30 2E |","100.00","200.|
00000220: 30 30 22 2C 22 33 30 30 2E 30 31 22 2C 22 34 30 |00","300.01","40|
00000230: 30 2E 30 31 22 2C 22 35 30 30 2E 30 32 22 2C 22 |0.01","500.02","|
00000240: 36 30 30 2E 30 33 22 2C 22 37 30 30 2E 30 34 22 |600.03","700.04"|
00000250: 00 97 0A 50 00 83 22 38 30 30 2E 30 34 22 2C 22 |...P.."800.04","|
00000260: 39 30 30 2E 30 35 22 2C 22 31 30 30 30 2E 30 36 |900.05","1000.06|
00000270: 22 2C 31 31 30 30 2E 30 37 22 2C 31 32 30 30 2E |",1100.07",1200.|
00000280: 30 37 22 2C 22 31 33 30 30 2E 30 38 22 2C 22 31 |07","1300.08","1|
00000290: 34 30 30 2E 30 39 22 00 E2 0A 55 00 83 22 31 35 |400.09"...U.."15|
000002A0: 30 30 2E 31 30 22 2C 22 31 36 30 30 2E 31 30 22 |00.10","1600.10"|
000002B0: 2C 22 31 37 30 30 2E 31 31 22 2C 22 31 38 30 30 |,"1700.11","1800|
000002C0: 2E 31 32 22 2C 22 31 39 30 30 2E 31 33 22 2C 22 |.12","1900.13","|
000002D0: 32 30 30 30 2E 31 33 22 2C 22 32 31 30 30 2E 31 |2000.13","2100.1|
000002E0: 34 22 00 F8 0A 5A 00 81 49 B2 31 A4 32 32 3A 87 |4"...Z..I.1.22:.|
000002F0: 4A 44 24 28 49 29 3A 82 00 45 0B 5F 00 83 22 4A |JD$(I):..E._.."J|
00000300: 41 4E 30 30 30 30 33 31 22 2C 22 46 45 42 30 33 |AN000031","FEB03|
00000310: 31 30 35 39 22 2C 22 4D 41 52 30 35 39 30 39 30 |1059","MAR059090|
00000320: 22 2C 22 41 50 52 30 39 30 31 32 30 22 2C 22 4D |","APR090120","M|
00000330: 41 59 31 32 30 31 35 31 22 2C 22 4A 55 4E 31 35 |AY120151","JUN15|
00000340: 31 31 38 31 22 00 92 0B 64 00 83 22 4A 55 4C 31 |1181"...d.."JUL1|
00000350: 38 31 32 31 32 22 2C 22 41 55 47 32 31 32 32 34 |81212","AUG21224|
00000360: 33 22 2C 22 53 45 50 32 34 33 32 37 33 22 2C 22 |3","SEP243273","|
00000370: 4F 43 54 32 37 33 33 30 34 22 2C 22 4E 4F 56 33 |OCT273304","NOV3|
00000380: 30 34 33 33 34 22 2C 22 44 45 43 33 33 34 33 36 |04334","DEC33436|
00000390: 35 22 00 A8 0B 69 00 81 49 B2 31 A4 31 32 3A 87 |5"...i..I.1.12:.|
000003A0: 4D 31 24 28 49 29 3A 82 00 F5 0B 6E 00 83 22 4A |M1$(I):....n.."J|
000003B0: 41 4E 30 30 30 30 33 31 22 2C 22 46 45 42 30 33 |AN000031","FEB03|
000003C0: 31 30 36 30 22 2C 22 4D 41 52 30 36 30 30 39 31 |1060","MAR060091|
000003D0: 22 2C 22 41 50 52 30 39 31 31 32 31 22 2C 4D 41 |","APR091121",MA|
000003E0: 59 22 31 32 31 31 35 32 22 2C 22 4A 55 4E 31 35 |Y"121152","JUN15|
000003F0: 32 31 38 32 22 00 42 0C 73 00 83 22 4A 55 4C 31 |2182".B.s.."JUL1|
00000400: 38 32 32 31 33 22 2C 22 41 55 47 32 31 33 32 34 |82213","AUG21324|
00000410: 34 22 2C 22 53 45 50 32 34 34 32 37 34 22 2C 22 |4","SEP244274","|
00000420: 4F 43 54 32 37 34 33 30 35 22 2C 22 4E 4F 56 33 |OCT274305","NOV3|
00000430: 30 35 33 33 35 22 2C 22 44 45 43 33 33 35 33 36 |05335","DEC33536|
00000440: 36 22 00 58 0C 78 00 81 49 B2 31 A4 31 32 3A 87 |6".X.x..I.1.12:.|
00000450: 4D 32 24 28 49 29 3A 82 00 9D 0C 7D 00 83 22 41 |M2$(I):....}.."A|
00000460: 53 54 30 34 22 2C 22 45 53 54 30 35 22 2C 22 43 |ST04","EST05","C|
00000470: 53 54 30 36 22 2C 22 4D 53 54 30 37 22 2C 22 50 |ST06","MST07","P|
00000480: 53 54 30 38 22 2C 22 59 53 54 30 39 22 2C 22 41 |ST08","YST09","A|
00000490: 48 54 31 30 22 2C 22 42 53 54 31 31 22 00 B2 0C |HT10","BST11"...|
000004A0: 82 00 81 49 B2 31 A4 38 3A 87 54 5A 24 28 49 29 |...I.1.8:.TZ$(I)|
000004B0: 3A 82 00 E8 0C 87 00 48 47 24 B2 C7 28 31 34 32 |:......HG$..(142|
000004C0: 29 AA 22 93 13 11 11 95 08 20 20 20 20 20 20 20 |)."...... |
000004D0: 20 20 20 20 41 20 53 20 54 20 52 20 4F 20 2D 20 | A S T R O - |
000004E0: 43 20 41 20 4C 20 43 22 00 1B 0D 8C 00 48 48 24 |C A L C".....HH$|
000004F0: B2 22 11 11 1C 20 20 20 CF B7 B7 B7 B7 B7 B7 B7 |."... ........|
00000500: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000510: B7 B7 B7 B7 B7 B7 B7 B7 B7 D0 22 00 4C 0D 91 00 |..........".L...|
00000520: 48 49 24 B2 22 1C 20 20 20 B4 20 20 20 20 20 20 |HI$.". . |
00000530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000540: 20 20 20 20 20 20 20 20 20 20 AA 22 00 7D 0D 96 | .".}..|
00000550: 00 48 4A 24 B2 22 1C 20 20 20 CC AF AF AF AF AF |.HJ$.". ......|
00000560: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00000570: AF AF AF AF AF AF AF AF AF AF AF BA 22 00 B0 0D |............"...|
00000580: 9B 00 43 52 24 B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |..CR$.".........|
00000590: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000005A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 |..............."|
000005B0: 00 E2 0D A0 00 53 50 24 B2 22 20 20 20 20 20 20 |.....SP$." |
000005C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005E0: 20 22 00 04 0E A5 00 43 44 24 B2 22 11 11 11 11 | ".....CD$."....|
000005F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000600: 11 11 11 22 00 30 0E AA 00 48 50 24 B2 20 22 11 |...".0...HP$. ".|
00000610: 11 1F 20 20 20 20 20 20 20 20 20 20 20 20 20 53 |.. S|
00000620: 45 4C 45 43 54 20 41 20 4E 55 4D 42 45 52 91 22 |ELECT A NUMBER."|
00000630: 00 43 0E AF 00 99 22 93 08 0E 22 3A 99 C7 28 31 |.C...."...":..(1|
00000640: 34 32 29 00 66 0E B4 00 97 35 33 32 38 30 2C 31 |42).f....53280,1|
00000650: 35 3A 97 35 33 32 38 31 2C 31 35 3A 99 22 8E 22 |5:.53281,15:."."|
00000660: C7 28 31 34 34 29 00 6F 0E B9 00 99 48 47 24 00 |.(144).o....HG$.|
00000670: 94 0E BE 00 99 22 11 20 20 20 20 20 20 20 20 20 |.....". |
00000680: 20 20 20 20 20 20 12 90 20 4D 41 49 4E 20 4D 45 | .. MAIN ME|
00000690: 4E 55 20 22 00 9D 0E C3 00 99 48 48 24 00 CE 0E |NU "......HH$...|
000006A0: C8 00 99 22 20 20 20 B4 20 20 20 20 20 20 20 12 |..." . .|
000006B0: 90 31 92 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |.1. INSTRUCTIONS|
000006C0: 20 20 20 20 20 20 20 20 20 20 20 1C AA 22 00 D7 | .."..|
000006D0: 0E CD 00 99 48 49 24 00 08 0F D2 00 99 22 20 20 |....HI$......" |
000006E0: 20 B4 20 20 20 20 20 20 20 12 90 32 92 20 4D 41 | . ..2. MA|
000006F0: 54 48 20 46 4F 52 20 44 45 47 52 45 45 53 20 20 |TH FOR DEGREES |
00000700: 20 20 20 20 20 1C AA 22 00 11 0F D7 00 99 48 49 | .."......HI|
00000710: 24 00 42 0F DC 00 99 22 20 20 20 B4 20 20 20 20 |$.B...." . |
00000720: 20 20 20 12 90 33 92 20 54 49 4D 45 20 43 4F 4E | ..3. TIME CON|
00000730: 56 45 52 53 49 4F 4E 53 20 20 20 20 20 20 20 1C |VERSIONS .|
00000740: AA 22 00 4B 0F E1 00 99 48 49 24 00 7C 0F E6 00 |.".K....HI$.|...|
00000750: 99 22 20 20 20 B4 20 20 20 20 20 20 20 12 90 34 |." . ..4|
00000760: 92 20 55 53 45 46 55 4C 20 46 4F 52 4D 55 4C 41 |. USEFUL FORMULA|
00000770: 53 20 20 20 20 20 20 20 20 1C AA 22 00 85 0F EB |S .."....|
00000780: 00 99 48 49 24 00 B6 0F F0 00 99 22 20 20 20 B4 |..HI$......" .|
00000790: 20 20 20 20 20 20 20 12 90 35 92 20 51 55 49 54 | ..5. QUIT|
000007A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000007B0: 20 20 20 1C AA 22 00 C4 0F F5 00 99 48 4A 24 3A | .."......HJ$:|
000007C0: 99 48 50 24 00 D7 0F FA 00 A1 47 24 3A 8B 47 24 |.HP$......G$:.G$|
000007D0: B2 22 22 A7 32 35 30 00 F0 0F FF 00 8B C5 28 47 |."".250.......(G|
000007E0: 24 29 B3 31 B0 C5 28 47 24 29 B1 35 A7 32 35 30 |$).1..(G$).5.250|
000007F0: 00 10 10 04 01 91 C5 28 47 24 29 89 32 36 35 2C |.......(G$).265,|
00000800: 32 37 30 2C 33 36 35 2C 35 30 30 2C 32 33 39 30 |270,365,500,2390|
00000810: 00 2C 10 09 01 46 24 B2 22 4D 4D 20 31 22 3A 46 |.,...F$."MM 1":F|
00000820: 51 B2 30 3A 8D 31 35 3A 89 31 38 30 00 49 10 0E |Q.0:.15:.180.I..|
00000830: 01 97 35 33 32 38 30 2C 31 35 3A 97 35 33 32 38 |..53280,15:.5328|
00000840: 31 2C 31 35 3A 99 48 47 24 00 71 10 13 01 99 22 |1,15:.HG$.q...."|
00000850: 11 20 20 20 20 20 20 20 20 20 20 20 12 90 20 4D |. .. M|
00000860: 41 54 48 20 46 4F 52 20 44 45 47 52 45 45 53 20 |ATH FOR DEGREES |
00000870: 22 00 7A 10 18 01 99 48 48 24 00 AB 10 1D 01 99 |".z....HH$......|
00000880: 22 20 20 20 B4 20 12 90 31 92 20 49 4E 53 54 52 |" . ..1. INSTR|
00000890: 55 43 54 49 4F 4E 53 20 20 20 20 20 20 20 20 20 |UCTIONS |
000008A0: 20 20 20 20 20 20 20 20 1C AA 22 00 B4 10 22 01 | .."...".|
000008B0: 99 48 49 24 00 E5 10 27 01 99 22 20 20 20 B4 20 |.HI$...'.." . |
000008C0: 12 90 32 92 20 44 45 47 52 45 45 53 20 44 45 43 |..2. DEGREES DEC|
000008D0: 20 3E 20 44 45 47 52 45 45 53 2C 4D 49 4E 2C 53 | > DEGREES,MIN,S|
000008E0: 45 43 1C AA 22 00 EE 10 2C 01 99 48 49 24 00 1F |EC.."...,..HI$..|
000008F0: 11 31 01 99 22 20 20 20 B4 20 12 90 33 92 20 44 |.1.." . ..3. D|
00000900: 45 47 52 45 45 53 2C 4D 49 4E 2C 53 45 43 20 3E |EGREES,MIN,SEC >|
00000910: 20 44 45 47 52 45 45 53 20 44 45 43 1C AA 22 00 | DEGREES DEC..".|
00000920: 28 11 36 01 99 48 49 24 00 59 11 3B 01 99 22 20 |(.6..HI$.Y.;.." |
00000930: 20 20 B4 20 12 90 34 92 20 44 45 47 52 45 45 20 | . ..4. DEGREE |
00000940: 43 41 4C 43 55 4C 41 54 4F 52 20 20 20 20 20 20 |CALCULATOR |
00000950: 20 20 20 20 20 20 1C AA 22 00 62 11 40 01 99 48 | ..".b.@..H|
00000960: 49 24 00 93 11 45 01 99 22 20 20 20 B4 20 12 90 |I$...E.." . ..|
00000970: 35 92 20 4D 41 49 4E 20 4D 45 4E 55 20 20 20 20 |5. MAIN MENU |
00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000990: 1C AA 22 00 9C 11 4A 01 99 48 4A 24 00 A5 11 4F |.."...J..HJ$...O|
000009A0: 01 99 48 50 24 00 B8 11 54 01 A1 47 24 3A 8B 47 |..HP$...T..G$:.G|
000009B0: 24 B2 22 22 A7 33 34 30 00 D1 11 59 01 8B C5 28 |$."".340...Y...(|
000009C0: 47 24 29 B3 31 B0 C5 28 47 24 29 B1 35 A7 33 34 |G$).1..(G$).5.34|
000009D0: 30 00 FC 11 5E 01 99 22 93 22 3A 99 C7 28 33 31 |0...^..".":..(31|
000009E0: 29 3A 91 C5 28 47 24 29 89 33 35 35 2C 36 31 30 |):..(G$).355,610|
000009F0: 2C 36 35 30 2C 36 38 30 2C 31 38 35 00 13 12 63 |,650,680,185...c|
00000A00: 01 46 24 B2 22 4D 44 20 31 22 3A 46 51 B2 30 3A |.F$."MD 1":FQ.0:|
00000A10: 8D 31 35 00 1C 12 68 01 89 32 37 30 00 39 12 6D |.15...h..270.9.m|
00000A20: 01 97 35 33 32 38 30 2C 31 35 3A 97 35 33 32 38 |..53280,15:.5328|
00000A30: 31 2C 31 35 3A 99 48 47 24 00 63 12 72 01 99 22 |1,15:.HG$.c.r.."|
00000A40: 11 20 20 20 20 20 20 20 20 20 20 20 12 90 20 54 |. .. T|
00000A50: 49 4D 45 20 43 4F 4E 56 45 52 53 49 4F 4E 53 20 |IME CONVERSIONS |
00000A60: 92 91 22 00 6C 12 77 01 99 48 48 24 00 75 12 7C |..".l.w..HH$.u.||
00000A70: 01 99 48 49 24 00 A6 12 81 01 99 22 20 20 20 B4 |..HI$......" .|
00000A80: 20 12 90 31 92 20 49 4E 53 54 52 55 43 54 49 4F | ..1. INSTRUCTIO|
00000A90: 4E 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |NS |
00000AA0: 20 20 20 1C AA 22 00 AF 12 86 01 99 48 49 24 00 | .."......HI$.|
00000AB0: E0 12 8B 01 99 22 20 20 20 B4 20 12 90 32 92 20 |....." . ..2. |
00000AC0: 4C 4F 43 41 4C 20 4D 45 41 4E 20 54 49 4D 45 20 |LOCAL MEAN TIME |
00000AD0: 3E 20 47 2E 4D 2E 54 2E 20 20 20 20 20 1C AA 22 |> G.M.T. .."|
00000AE0: 00 E9 12 90 01 99 48 49 24 00 1A 13 95 01 99 22 |......HI$......"|
00000AF0: 20 20 20 B4 20 12 90 33 92 20 53 49 44 45 52 45 | . ..3. SIDERE|
00000B00: 41 4C 20 54 49 4D 45 20 4F 46 20 44 41 54 45 20 |AL TIME OF DATE |
00000B10: 20 20 20 20 20 20 20 1C AA 22 00 23 13 9A 01 99 | ..".#....|
00000B20: 48 49 24 00 54 13 9F 01 99 22 20 20 20 B4 20 12 |HI$.T...." . .|
00000B30: 90 34 92 20 4A 55 4C 49 41 4E 20 44 41 59 20 23 |.4. JULIAN DAY #|
00000B40: 20 3E 20 44 41 54 45 20 20 20 20 20 20 20 20 20 | > DATE |
00000B50: 20 1C AA 22 00 5D 13 A4 01 99 48 49 24 00 8E 13 | ..".]....HI$...|
00000B60: A9 01 99 22 20 20 20 B4 20 12 90 35 92 20 44 41 |..." . ..5. DA|
00000B70: 54 45 20 3E 20 4A 55 4C 49 41 4E 20 44 41 59 20 |TE > JULIAN DAY |
00000B80: 23 20 20 20 20 20 20 20 20 20 20 1C AA 22 00 97 |# .."..|
00000B90: 13 AE 01 99 48 49 24 00 C8 13 B3 01 99 22 20 20 |....HI$......" |
00000BA0: 20 B4 20 12 90 36 92 20 4A 55 4C 49 41 4E 20 3E | . ..6. JULIAN >|
00000BB0: 20 47 52 45 47 4F 52 49 41 4E 20 43 41 4C 45 4E | GREGORIAN CALEN|
00000BC0: 44 41 52 20 20 1C AA 22 00 D1 13 B8 01 99 48 49 |DAR .."......HI|
00000BD0: 24 00 02 14 BD 01 99 22 20 20 20 B4 20 12 90 37 |$......" . ..7|
00000BE0: 92 20 4D 41 49 4E 20 4D 45 4E 55 20 20 20 20 20 |. MAIN MENU |
00000BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1C | .|
00000C00: AA 22 00 0B 14 C2 01 99 48 4A 24 00 14 14 C7 01 |."......HJ$.....|
00000C10: 99 48 50 24 00 27 14 CC 01 A1 47 24 3A 8B 47 24 |.HP$.'....G$:.G$|
00000C20: B2 22 22 A7 34 36 30 00 40 14 D1 01 8B C5 28 47 |."".460.@.....(G|
00000C30: 24 29 B3 31 B0 C5 28 47 24 29 B1 37 A7 34 36 30 |$).1..(G$).7.460|
00000C40: 00 67 14 D6 01 91 C5 28 47 24 29 89 34 37 35 2C |.g.....(G$).475,|
00000C50: 37 33 35 2C 38 32 30 2C 38 37 30 2C 39 32 35 2C |735,820,870,925,|
00000C60: 39 38 35 2C 31 38 30 00 86 14 DB 01 46 24 B2 22 |985,180.....F$."|
00000C70: 54 43 20 31 22 3A 46 51 B2 31 3A 8D 31 35 3A 8B |TC 1":FQ.1:.15:.|
00000C80: 46 5A A7 33 36 35 00 A0 14 E0 01 46 24 B2 22 54 |FZ.365.....F$."T|
00000C90: 43 20 32 22 3A 8D 31 35 3A 8B 46 5A A7 33 36 35 |C 2":.15:.FZ.365|
00000CA0: 00 BA 14 E5 01 46 24 B2 22 54 43 20 33 22 3A 8D |.....F$."TC 3":.|
00000CB0: 31 35 3A 8B 46 5A A7 33 36 35 00 D1 14 EA 01 46 |15:.FZ.365.....F|
00000CC0: 24 B2 22 54 43 20 34 22 3A 46 51 B2 30 3A 8D 31 |$."TC 4":FQ.0:.1|
00000CD0: 35 00 DA 14 EF 01 89 33 36 35 00 F7 14 F4 01 97 |5......365......|
00000CE0: 35 33 32 38 30 2C 31 35 3A 97 35 33 32 38 31 2C |53280,15:.53281,|
00000CF0: 31 35 3A 99 48 47 24 00 1F 15 F9 01 99 22 11 20 |15:.HG$......". |
00000D00: 20 20 20 20 20 20 20 20 20 20 20 12 90 20 55 53 | .. US|
00000D10: 45 46 55 4C 20 46 4F 52 4D 55 4C 41 53 20 22 00 |EFUL FORMULAS ".|
00000D20: 28 15 FE 01 99 48 48 24 00 59 15 03 02 99 22 20 |(....HH$.Y...." |
00000D30: 20 20 B4 20 20 20 20 20 20 12 90 31 92 20 49 4E | . ..1. IN|
00000D40: 53 54 52 55 43 54 49 4F 4E 53 20 20 20 20 20 20 |STRUCTIONS |
00000D50: 20 20 20 20 20 20 1C AA 22 00 62 15 08 02 99 48 | ..".b....H|
00000D60: 49 24 00 93 15 0D 02 99 22 20 20 20 B4 20 20 20 |I$......" . |
00000D70: 20 20 20 12 90 32 92 20 53 59 4E 45 54 49 43 20 | ..2. SYNETIC |
00000D80: 56 45 52 4E 41 4C 20 50 4F 49 4E 54 20 20 20 20 |VERNAL POINT |
00000D90: 1C AA 22 00 9C 15 12 02 99 48 49 24 00 CD 15 17 |.."......HI$....|
00000DA0: 02 99 22 20 20 20 B4 20 20 20 20 20 20 12 90 33 |.." . ..3|
00000DB0: 92 20 47 45 4F 47 20 3E 20 47 45 4F 43 20 4C 41 |. GEOG > GEOC LA|
00000DC0: 54 49 54 55 44 45 20 20 20 20 1C AA 22 00 D6 15 |TITUDE .."...|
00000DD0: 1C 02 99 48 49 24 00 07 16 21 02 99 22 20 20 20 |...HI$...!.." |
00000DE0: B4 20 20 20 20 20 20 12 90 34 92 20 49 4E 54 45 |. ..4. INTE|
00000DF0: 52 50 4F 4C 41 54 49 4F 4E 20 20 20 20 20 20 20 |RPOLATION |
00000E00: 20 20 20 20 1C AA 22 00 10 16 26 02 99 48 49 24 | .."...&..HI$|
00000E10: 00 41 16 2B 02 99 22 20 20 20 B4 20 20 20 20 20 |.A.+.." . |
00000E20: 20 12 90 35 92 20 4D 41 49 4E 20 4D 45 4E 55 20 | ..5. MAIN MENU |
00000E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1C AA | ..|
00000E40: 22 00 4A 16 30 02 99 48 4A 24 00 53 16 35 02 99 |".J.0..HJ$.S.5..|
00000E50: 48 50 24 00 66 16 3A 02 A1 47 24 3A 8B 47 24 B2 |HP$.f.:..G$:.G$.|
00000E60: 22 22 A7 35 37 30 00 7F 16 3F 02 8B C5 28 47 24 |"".570...?...(G$|
00000E70: 29 B3 31 B0 C5 28 47 24 29 B1 35 A7 35 37 30 00 |).1..(G$).5.570.|
00000E80: A1 16 44 02 91 C5 28 47 24 29 89 35 38 35 2C 31 |..D...(G$).585,1|
00000E90: 30 35 30 2C 31 31 32 35 2C 31 31 36 35 2C 31 38 |050,1125,1165,18|
00000EA0: 30 00 C0 16 49 02 46 24 B2 22 55 46 20 31 22 3A |0...I.F$."UF 1":|
00000EB0: 46 51 B2 31 3A 8D 31 35 3A 8B 46 5A A7 35 30 30 |FQ.1:.15:.FZ.500|
00000EC0: 00 DA 16 4E 02 46 24 B2 22 55 46 20 32 22 3A 8D |...N.F$."UF 2":.|
00000ED0: 31 35 3A 8B 46 5A A7 35 30 30 00 F1 16 53 02 46 |15:.FZ.500...S.F|
00000EE0: 24 B2 22 55 46 20 33 22 3A 46 51 B2 30 3A 8D 31 |$."UF 3":FQ.0:.1|
00000EF0: 35 00 FA 16 58 02 89 35 30 30 00 19 17 5D 02 8F |5...X..500...]..|
00000F00: 20 43 4F 4E 56 45 52 54 20 44 45 47 20 44 45 43 | CONVERT DEG DEC|
00000F10: 20 54 4F 20 44 2C 4D 2C 53 00 4E 17 62 02 99 22 | TO D,M,S.N.b.."|
00000F20: 93 13 11 11 11 90 20 20 54 48 49 53 20 52 4F 55 |...... THIS ROU|
00000F30: 54 49 4E 45 20 43 4F 4E 56 45 52 54 53 20 44 45 |TINE CONVERTS DE|
00000F40: 47 52 45 45 53 20 44 45 43 49 4D 41 4C 22 00 76 |GREES DECIMAL".v|
00000F50: 17 67 02 99 22 54 4F 20 44 45 47 52 45 45 53 2C |.g.."TO DEGREES,|
00000F60: 20 4D 49 4E 55 54 45 53 20 41 4E 44 20 53 45 43 | MINUTES AND SEC|
00000F70: 4F 4E 44 53 2E 22 00 AD 17 6C 02 99 22 11 11 1F |ONDS."...l.."...|
00000F80: 20 20 20 20 45 4E 54 45 52 20 44 45 47 52 45 45 | ENTER DEGREE|
00000F90: 53 20 44 45 43 49 4D 41 4C 20 22 3B 3A 4C 4E B2 |S DECIMAL ";:LN.|
00000FA0: 31 32 3A 4E 55 B2 32 3A 8D 31 39 33 30 00 C5 17 |12:NU.2:.1930...|
00000FB0: 71 02 41 B2 C5 28 47 24 29 3A 8D 31 33 33 30 3A |q.A..(G$):.1330:|
00000FC0: 8D 31 33 35 35 00 F9 17 76 02 99 22 11 11 20 20 |.1355...v..".. |
00000FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 48 | ";H|
00000FE0: 24 AA 22 44 22 3B 4D 24 AA 22 4D 22 3B 53 24 AA |$."D";M$."M";S$.|
00000FF0: 22 53 22 3A 8D 31 33 37 35 00 09 18 7B 02 8B 47 |"S":.1375...{..G|
00001000: 24 B2 22 4D 22 A7 32 37 30 00 19 18 80 02 8B 47 |$."M".270......G|
00001010: 24 B2 22 41 22 A7 36 31 30 00 38 18 85 02 8F 20 |$."A".610.8.... |
00001020: 43 4F 4E 56 45 52 54 20 44 2C 4D 2C 53 20 54 4F |CONVERT D,M,S TO|
00001030: 20 44 45 47 20 44 45 43 00 6B 18 8A 02 99 22 93 | DEG DEC.k....".|
00001040: 13 11 90 20 54 48 49 53 20 52 4F 55 54 49 4E 45 |... THIS ROUTINE|
00001050: 20 43 4F 4E 56 45 52 54 53 20 44 45 47 52 45 45 | CONVERTS DEGREE|
00001060: 53 2C 20 4D 49 4E 55 54 45 53 22 00 92 18 8F 02 |S, MINUTES".....|
00001070: 99 22 20 41 4E 44 20 53 45 43 4F 4E 44 53 20 54 |." AND SECONDS T|
00001080: 4F 20 44 45 47 52 45 45 53 20 44 45 43 49 4D 41 |O DEGREES DECIMA|
00001090: 4C 22 00 A9 18 94 02 99 22 11 20 22 3B 3A 8D 31 |L"......". ";:.1|
000010A0: 39 39 35 3A 8D 32 30 34 30 00 D1 18 99 02 99 22 |995:.2040......"|
000010B0: 11 11 11 1F 20 20 20 20 20 20 20 20 20 22 3B 48 |.... ";H|
000010C0: 3B 22 20 44 45 47 52 45 45 53 22 3A 8D 31 33 37 |;" DEGREES":.137|
000010D0: 35 00 E1 18 9E 02 8B 47 24 B2 22 41 22 A7 36 35 |5......G$."A".65|
000010E0: 30 00 F1 18 A3 02 8B 47 24 B2 22 4D 22 A7 32 37 |0......G$."M".27|
000010F0: 30 00 1C 19 A8 02 99 22 93 11 20 20 20 20 20 20 |0......".. |
00001100: 20 20 20 20 20 1F 12 20 44 45 47 52 45 45 20 43 | .. DEGREE C|
00001110: 41 4C 43 55 4C 41 54 4F 52 20 92 22 00 44 19 AD |ALCULATOR .".D..|
00001120: 02 99 22 11 1C 20 20 20 20 20 20 20 20 20 20 20 |..".. |
00001130: CF B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00001140: B7 B7 D0 22 00 6A 19 B2 02 99 22 20 20 20 20 20 |...".j...." |
00001150: 20 20 20 20 20 20 B4 20 20 20 20 20 20 20 20 20 | . |
00001160: 20 20 20 20 20 20 20 20 AA 22 00 97 19 B7 02 99 | ."......|
00001170: 22 20 20 20 20 20 20 20 20 20 20 20 CC AF AF AF |" ....|
00001180: AF AF AF AF AF AF AF AF AF AF AF AF AF AF BA 22 |..............."|
00001190: 3A 53 48 24 B2 22 22 00 A9 19 BC 02 99 22 90 11 |:SH$.""......"..|
000011A0: 11 22 3B 3A 8D 31 39 39 35 00 C0 19 C1 02 99 22 |.";:.1995......"|
000011B0: 1F 22 3A 8D 32 30 34 30 3A 41 B2 48 3A 54 B2 41 |.":.2040:A.H:T.A|
000011C0: 00 D5 19 C6 02 8B B4 28 48 29 B2 AB 31 A7 53 48 |.......(H)..1.SH|
000011D0: 24 B2 22 C0 22 00 F1 19 CB 02 8D 31 33 33 30 3A |$."."......1330:|
000011E0: 8D 31 36 37 30 3A 8D 31 36 39 35 3A 8D 31 36 38 |.1670:.1695:.168|
000011F0: 35 00 05 1A D0 02 8B 53 48 24 B2 22 C0 22 A7 41 |5......SH$.".".A|
00001200: B2 41 AC AB 31 00 0F 1A D5 02 89 31 37 30 30 00 |.A..1......1700.|
00001210: 2B 1A DA 02 4D 45 B2 43 3A 8D 31 36 38 35 3A 53 |+...ME.C:.1685:S|
00001220: 48 24 B2 22 22 3A 89 31 37 30 30 00 3C 1A DF 02 |H$."":.1700.<...|
00001230: 8F 20 4C 4D 54 20 54 4F 20 47 4D 54 00 4B 1A E4 |. LMT TO GMT.K..|
00001240: 02 99 22 93 22 3A 8D 32 31 38 30 00 8A 1A E9 02 |..".":.2180.....|
00001250: 99 22 11 11 1F 20 20 20 20 20 20 20 20 20 45 4E |."... EN|
00001260: 54 45 52 20 4C 4F 43 41 4C 20 4D 45 41 4E 20 54 |TER LOCAL MEAN T|
00001270: 49 4D 45 22 3A 99 22 11 20 20 20 20 20 20 20 20 |IME":.". |
00001280: 20 20 22 3B 3A 8D 32 30 36 30 00 BB 1A EE 02 99 | ";:.2060......|
00001290: A3 31 35 29 22 11 12 31 92 20 41 4D 22 3A 99 A3 |.15)"..1. AM":..|
000012A0: 31 35 29 22 12 32 92 20 50 4D 22 3A 99 A3 31 35 |15)".2. PM":..15|
000012B0: 29 22 12 33 92 20 4E 4F 4F 4E 22 00 D3 1A F3 02 |)".3. NOON".....|
000012C0: 99 A3 31 35 29 22 12 34 92 20 4D 49 44 4E 49 47 |..15)".4. MIDNIG|
000012D0: 48 54 22 00 F5 1A F8 02 8D 32 30 39 35 3A 97 32 |HT"......2095:.2|
000012E0: 31 34 2C 31 30 3A 99 3A 81 49 B2 30 A4 34 3A 99 |14,10:.:.I.0.4:.|
000012F0: 53 50 24 3A 82 00 2F 1B FD 02 52 25 B2 34 3A 44 |SP$:../...R%.4:D|
00001300: 25 B2 31 33 3A 8D 31 36 35 35 3A 99 22 1F 45 4E |%.13:.1655:.".EN|
00001310: 54 45 52 20 54 48 45 20 4C 4F 4E 47 49 54 55 44 |TER THE LONGITUD|
00001320: 45 20 4F 46 20 54 48 45 20 50 4C 41 43 45 22 00 |E OF THE PLACE".|
00001330: 50 1B 02 03 99 A3 39 29 22 11 22 3B 3A 8D 32 31 |P.....9)".";:.21|
00001340: 32 35 3A 42 B2 48 3A 8B 48 B3 30 A7 42 25 B2 31 |25:B.H:.H.0.B%.1|
00001350: 00 93 1B 07 03 43 B2 42 AC 34 AD 36 30 3A 8B 42 |.....C.B.4.60:.B|
00001360: B3 30 AF 41 B3 B6 28 43 29 A7 41 B2 41 AA 32 34 |.0.A..(C).A.A.24|
00001370: 3A 43 24 B2 22 20 28 4F 4E 45 20 44 41 59 20 45 |:C$." (ONE DAY E|
00001380: 41 52 4C 49 45 52 29 22 3A 41 B2 41 AA 43 3A 89 |ARLIER)":A.A.C:.|
00001390: 37 38 35 00 D6 1B 0C 03 41 B2 41 AA 43 3A 43 24 |785.....A.A.C:C$|
000013A0: B2 22 20 28 54 48 45 20 53 41 4D 45 20 44 41 59 |." (THE SAME DAY|
000013B0: 29 22 3A 8B 41 B1 B2 32 34 A7 41 B2 41 AB 32 34 |)":.A..24.A.A.24|
000013C0: 3A 43 24 B2 22 20 28 4F 4E 45 20 44 41 59 20 4C |:C$." (ONE DAY L|
000013D0: 41 54 45 52 29 22 00 F6 1B 11 03 41 50 24 B2 22 |ATER)".....AP$."|
000013E0: 20 41 4D 22 3A 8B 41 B2 31 32 A7 41 50 24 B2 22 | AM":.A.12.AP$."|
000013F0: 20 4E 4F 4F 4E 22 00 11 1C 16 03 8B 41 B1 31 32 | NOON"......A.12|
00001400: A7 41 B2 41 AB 31 32 3A 41 50 24 B2 22 20 50 4D |.A.A.12:AP$." PM|
00001410: 22 00 2A 1C 1B 03 8B 41 B2 30 A7 41 B2 31 32 3A |".*....A.0.A.12:|
00001420: 41 50 24 B2 22 20 4D 49 44 22 00 3A 1C 20 03 8D |AP$." MID".:. ..|
00001430: 31 33 33 30 3A 8D 31 33 35 35 00 6B 1C 25 03 99 |1330:.1355.k.%..|
00001440: 22 11 11 1F 20 20 20 20 22 3B 22 20 47 4D 54 20 |"... ";" GMT |
00001450: 3D 20 97 22 3B 48 24 AA 22 3A 22 3B 4D 24 3B 41 |= .";H$.":";M$;A|
00001460: 50 24 3B 43 24 3A 8D 31 33 37 35 00 7B 1C 2A 03 |P$;C$:.1375.{.*.|
00001470: 8B 47 24 B2 22 41 22 A7 37 33 35 00 8B 1C 2F 03 |.G$."A".735.../.|
00001480: 8B 47 24 B2 22 4D 22 A7 33 36 35 00 AA 1C 34 03 |.G$."M".365...4.|
00001490: 8F 20 53 49 44 45 52 45 41 4C 20 54 49 4D 45 20 |. SIDEREAL TIME |
000014A0: 46 4F 52 20 41 20 44 41 54 45 00 BF 1C 39 03 99 |FOR A DATE...9..|
000014B0: 22 93 22 3A 8D 32 31 34 35 3A 8D 32 31 36 35 00 |".":.2145:.2165.|
000014C0: D6 1C 3E 03 8B 59 B3 31 35 38 33 A7 8D 31 38 35 |..>..Y.1583..185|
000014D0: 35 3A 89 38 32 30 00 E9 1C 43 03 8D 31 34 32 30 |5:.820...C..1420|
000014E0: 3A 4A 44 B2 4A 44 AA 2E 35 00 26 1D 48 03 58 B2 |:JD.JD..5.&.H.X.|
000014F0: 4A 44 AD 33 36 35 2E 32 34 32 31 39 38 38 3A 59 |JD.365.2421988:Y|
00001500: B2 58 AB B5 28 58 29 3A 5A B2 59 AA 2E 36 37 31 |.X..(X):Z.Y..671|
00001510: 32 38 3A 41 B2 5A AC 32 34 3A 41 B2 41 AB 31 32 |28:A.Z.24:A.A.12|
00001520: 2E 30 33 32 38 35 00 38 1D 4D 03 8B 41 B1 B2 32 |.03285.8.M..A..2|
00001530: 34 A7 41 B2 41 AB 32 34 00 76 1D 52 03 8D 31 33 |4.A.A.24.v.R..13|
00001540: 33 30 3A 8D 31 33 35 35 3A 99 A3 37 29 22 11 11 |30:.1355:..7)"..|
00001550: 53 49 44 45 52 49 41 4C 20 54 49 4D 45 20 3D 20 |SIDERIAL TIME = |
00001560: 22 AA 48 24 AA 22 48 22 3B 4D 24 AA 22 4D 22 3B |".H$."H";M$."M";|
00001570: 53 24 AA 22 53 22 00 80 1D 57 03 8D 31 33 37 35 |S$."S"...W..1375|
00001580: 00 90 1D 5C 03 8B 47 24 B2 22 4D 22 A7 33 36 35 |...\..G$."M".365|
00001590: 00 A0 1D 61 03 8B 47 24 B2 22 41 22 A7 38 32 30 |...a..G$."A".820|
000015A0: 00 BD 1D 66 03 8F 20 4A 55 4C 49 41 4E 20 44 41 |...f.. JULIAN DA|
000015B0: 59 20 23 20 54 4F 20 41 20 44 41 54 45 00 CD 1D |Y # TO A DATE...|
000015C0: 6B 03 99 22 93 11 22 3A 8D 32 31 39 35 00 12 1E |k.."..":.2195...|
000015D0: 70 03 99 22 11 11 11 11 11 11 20 20 20 20 45 4E |p.."...... EN|
000015E0: 54 45 52 20 4A 55 4C 49 41 4E 20 44 41 59 20 4E |TER JULIAN DAY N|
000015F0: 55 4D 42 45 52 20 20 22 3B 3A 4E 55 B2 32 3A 4C |UMBER ";:NU.2:L|
00001600: 4E B2 37 3A 8D 31 39 33 30 3A 4A 44 B2 C5 28 47 |N.7:.1930:JD..(G|
00001610: 24 29 00 2C 1E 75 03 99 22 20 20 20 20 11 11 44 |$).,.u.." ..D|
00001620: 41 54 45 20 3D 22 3B 3A 5A 25 B2 30 00 5C 1E 7A |ATE =";:Z%.0.\.z|
00001630: 03 8B 5A 25 B2 30 A7 8D 31 35 35 35 3A 45 B2 B6 |..Z%.0..1555:E..|
00001640: 28 59 29 3A 8D 31 34 37 35 3A 4A 44 B2 4A 44 AA |(Y):.1475:JD.JD.|
00001650: 55 3A 5A 25 B2 31 3A 8D 31 35 35 35 00 78 1E 7F |U:Z%.1:.1555.x..|
00001660: 03 8B 4A 44 B1 32 34 38 38 30 38 32 A7 57 50 25 |..JD.2488082.WP%|
00001670: B2 32 3A 89 31 36 31 35 00 B2 1E 84 03 43 4F 24 |.2:.1615.....CO$|
00001680: B2 22 2C 22 3A 59 24 B2 C4 28 B6 28 59 29 29 3A |.",":Y$..(.(Y)):|
00001690: 44 41 24 B2 C4 28 44 41 29 3A 53 24 B2 22 9D 22 |DA$..(DA):S$."."|
000016A0: 3A 44 41 24 B2 44 41 24 AA 43 4F 24 AA 20 20 20 |:DA$.DA$.CO$. |
000016B0: 59 24 00 D7 1E 89 03 99 22 20 22 3B 4D 4F 24 3B |Y$......" ";MO$;|
000016C0: 44 41 24 3B 42 43 24 3B 22 20 20 28 4E 45 57 20 |DA$;BC$;" (NEW |
000016D0: 53 54 59 4C 45 29 22 00 E1 1E 8E 03 8D 31 33 37 |STYLE)"......137|
000016E0: 35 00 F1 1E 93 03 8B 47 24 B2 22 4D 22 A7 33 36 |5......G$."M".36|
000016F0: 35 00 01 1F 98 03 8B 47 24 B2 22 41 22 A7 38 37 |5......G$."A".87|
00001700: 30 00 1C 1F 9D 03 8F 20 44 41 54 45 20 54 4F 20 |0...... DATE TO |
00001710: 4A 55 4C 49 41 4E 20 44 41 59 20 23 00 51 1F A2 |JULIAN DAY #.Q..|
00001720: 03 99 22 93 22 3A 8D 32 32 31 30 3A 99 A3 31 33 |..".":.2210:..13|
00001730: 29 22 11 11 45 4E 54 45 52 20 54 48 45 20 44 41 |)"..ENTER THE DA|
00001740: 54 45 22 3A 99 22 91 91 22 3B 3A 8D 32 31 36 35 |TE":."..";:.2165|
00001750: 3A 00 5B 1F A7 03 57 50 25 B2 30 00 8A 1F AC 03 |:.[...WP%.0.....|
00001760: 43 41 24 B2 22 4E 22 3A 8D 32 32 32 35 3A 8B 59 |CA$."N":.2225:.Y|
00001770: B1 32 30 39 39 AF 42 43 24 B3 B1 22 42 22 A7 57 |.2099.BC$.."B".W|
00001780: 50 25 B2 31 3A 89 31 36 31 35 00 AA 1F B1 03 8B |P%.1:.1615......|
00001790: 59 B1 34 37 31 33 AF 42 43 24 B2 22 42 22 A7 57 |Y.4713.BC$."B".W|
000017A0: 50 25 B2 31 3A 89 32 32 35 30 00 D6 1F B6 03 8D |P%.1:.2250......|
000017B0: 31 35 30 35 3A 99 22 11 1D 1D 1D 1D 1D 11 1D 4A |1505:."........J|
000017C0: 55 4C 49 41 4E 20 44 41 59 20 4E 55 4D 42 45 52 |ULIAN DAY NUMBER|
000017D0: 20 3D 22 3B 4A 44 00 EE 1F BB 03 8B 59 B1 32 34 | =";JD......Y.24|
000017E0: 30 30 A7 57 50 25 B2 31 3A 89 31 36 31 35 00 19 |00.WP%.1:.1615..|
000017F0: 20 C0 03 99 22 11 11 1D 1D 1D 1D 1D 1D 28 46 4F | ..."........(FO|
00001800: 52 20 44 41 59 20 42 45 47 49 4E 4E 49 4E 47 20 |R DAY BEGINNING |
00001810: 41 54 20 4E 4F 4F 4E 29 22 00 41 20 C5 03 99 22 |AT NOON)".A ..."|
00001820: 20 20 20 20 20 20 20 20 46 4F 52 20 4D 49 44 4E | FOR MIDN|
00001830: 49 47 48 54 20 53 55 42 54 52 41 43 54 20 2E 35 |IGHT SUBTRACT .5|
00001840: 22 00 4B 20 CA 03 8D 31 33 37 35 00 5B 20 CF 03 |".K ...1375.[ ..|
00001850: 8B 47 24 B2 22 4D 22 A7 33 36 35 00 6B 20 D4 03 |.G$."M".365.k ..|
00001860: 8B 47 24 B2 22 41 22 A7 39 32 35 00 8E 20 D9 03 |.G$."A".925.. ..|
00001870: 8F 20 4A 55 4C 49 41 4E 20 54 4F 20 47 52 45 47 |. JULIAN TO GREG|
00001880: 4F 52 49 41 4E 20 43 41 4C 45 4E 44 41 52 00 9D |ORIAN CALENDAR..|
00001890: 20 DE 03 99 22 93 22 3A 8D 32 32 37 30 00 E0 20 | ...".":.2270.. |
000018A0: E3 03 99 A3 35 29 22 11 11 11 45 4E 54 45 52 20 |....5)"...ENTER |
000018B0: 54 48 45 20 4A 55 4C 49 41 4E 20 43 41 4C 45 4E |THE JULIAN CALEN|
000018C0: 44 41 52 20 44 41 54 45 22 3A 8D 32 31 36 35 3A |DAR DATE":.2165:|
000018D0: 49 B2 30 3A 59 25 B2 59 3A 42 43 24 B2 22 41 22 |I.0:Y%.Y:BC$."A"|
000018E0: 00 FB 20 E8 03 8B 4D B2 31 B0 4D B2 32 AF 59 B1 |.. ...M.1.M.2.Y.|
000018F0: B2 31 30 30 30 A7 59 B2 59 AA 31 00 18 21 ED 03 |.1000.Y.Y.1..!..|
00001900: 8B 4D B2 33 AF 44 B3 B2 32 34 A7 AF 59 B1 B2 31 |.M.3.D..24..Y..1|
00001910: 30 30 30 59 B2 59 AA 31 00 30 21 F2 03 8B 59 B1 |000Y.Y.1.0!...Y.|
00001920: 32 34 30 30 A7 57 50 25 B2 33 3A 89 31 36 31 35 |2400.WP%.3:.1615|
00001930: 00 6C 21 F7 03 99 22 20 20 20 20 20 20 11 11 11 |.l!..." ...|
00001940: 20 44 41 54 45 20 28 4E 53 29 20 3D 22 3B 3A 4C | DATE (NS) =";:L|
00001950: 50 B2 30 3A 43 41 24 B2 22 4F 22 3A 8D 31 35 30 |P.0:CA$."O":.150|
00001960: 35 3A 59 44 B2 33 36 35 2E 32 35 3A 00 92 21 FC |5:YD.365.25:..!.|
00001970: 03 58 B2 30 3A 5A 25 B2 31 3A 45 B2 59 25 3A 8D |.X.0:Z%.1:E.Y%:.|
00001980: 31 34 37 35 3A 4A 44 B2 4A 44 AA 55 3A 8D 31 35 |1475:JD.JD.U:.15|
00001990: 35 35 00 CC 21 01 04 43 4F 24 B2 22 2C 22 3A 59 |55..!..CO$.",":Y|
000019A0: 24 B2 C4 28 B6 28 59 29 29 3A 44 41 24 B2 C4 28 |$..(.(Y)):DA$..(|
000019B0: 44 41 29 3A 53 24 B2 22 9D 22 3A 44 41 24 B2 44 |DA):S$.".":DA$.D|
000019C0: 41 24 AA 43 4F 24 AA 20 20 20 59 24 00 E1 21 06 |A$.CO$. Y$..!.|
000019D0: 04 99 22 20 22 3B 4D 4F 24 3B 44 41 24 3B 42 43 |.." ";MO$;DA$;BC|
000019E0: 24 00 EB 21 0B 04 8D 31 33 37 35 00 FB 21 10 04 |$..!...1375..!..|
000019F0: 8B 47 24 B2 22 4D 22 A7 33 36 35 00 0B 22 15 04 |.G$."M".365.."..|
00001A00: 8B 47 24 B2 22 41 22 A7 39 38 35 00 2D 22 1A 04 |.G$."A".985.-"..|
00001A10: 8F 20 41 20 44 41 54 45 20 54 4F 20 53 2E 56 2E |. A DATE TO S.V.|
00001A20: 50 2E 20 26 20 41 59 41 4E 41 4D 53 41 00 63 22 |P. & AYANAMSA.c"|
00001A30: 1F 04 99 22 93 22 3A 8D 32 32 38 35 3A 99 A3 31 |...".":.2285:..1|
00001A40: 34 29 22 11 11 11 11 45 4E 54 45 52 20 41 20 44 |4)"....ENTER A D|
00001A50: 41 54 45 20 22 3A 8D 32 31 36 35 3A 42 43 24 B2 |ATE ":.2165:BC$.|
00001A60: 22 41 22 00 7A 22 24 04 8B 59 B3 32 32 31 B0 59 |"A".z"$..Y.221.Y|
00001A70: B1 32 33 37 36 A7 32 33 30 30 00 92 22 29 04 43 |.2376.2300..").C|
00001A80: 41 24 B2 22 4E 22 3A 8D 31 35 30 35 3A 8D 31 36 |A$."N":.1505:.16|
00001A90: 33 35 00 DB 22 2E 04 4C 4E B2 A5 4D 28 28 39 33 |35.."..LN..M((93|
00001AA0: 33 30 36 30 AB 36 39 36 32 39 31 31 AC 54 AA 37 |3060.6962911.T.7|
00001AB0: 2E 35 AC 54 AC 54 29 AD 33 36 30 30 29 3A 53 59 |.5.T.T).3600):SY|
00001AC0: B2 28 32 35 39 32 30 35 35 33 36 AC 54 AA 32 30 |.(259205536.T.20|
00001AD0: 31 33 38 31 36 29 AD 33 36 30 30 00 14 23 33 04 |13816).3600..#3.|
00001AE0: 53 59 B2 31 37 2E 32 33 AC BF 28 A5 45 28 4C 4E |SY.17.23..(.E(LN|
00001AF0: 29 29 AA 31 2E 32 37 AC BF 28 A5 45 28 53 59 29 |)).1.27..(.E(SY)|
00001B00: 29 AB 28 35 30 32 35 2E 36 34 AA 31 2E 31 31 AC |).(5025.64.1.11.|
00001B10: 54 29 AC 54 00 45 23 38 04 53 59 B2 B6 28 28 53 |T).T.E#8.SY..((S|
00001B20: 59 AB 38 34 30 33 38 2E 32 37 29 AD 33 36 30 30 |Y.84038.27).3600|
00001B30: 29 3A 53 56 B2 33 30 AB 53 59 3A 41 B2 53 59 3A |):SV.30.SY:A.SY:|
00001B40: 8D 31 33 33 30 00 6D 23 3D 04 8B 53 59 B1 33 30 |.1330.m#=..SY.30|
00001B50: A7 53 59 B2 53 59 B2 33 30 3A 53 56 B2 33 30 AB |.SY.SY.30:SV.30.|
00001B60: 53 59 3A 41 B2 53 59 3A 8D 31 33 33 30 00 9C 23 |SY:A.SY:.1330..#|
00001B70: 42 04 46 42 24 B2 22 20 28 46 41 47 41 4E 2D 42 |B.FB$." (FAGAN-B|
00001B80: 52 41 44 4C 45 59 29 22 3A 99 22 11 11 1D 1D 41 |RADLEY)":."....A|
00001B90: 59 41 4E 41 4D 53 41 20 3D 20 22 3B 00 C1 23 47 |YANAMSA = ";..#G|
00001BA0: 04 8D 31 33 35 35 3A 99 48 24 AA 22 44 22 3B 4D |..1355:.H$."D";M|
00001BB0: 24 AA 22 4D 22 3B 53 24 AA 22 53 22 3B AA 46 42 |$."M";S$."S";.FB|
00001BC0: 24 00 E7 23 4C 04 99 22 11 11 1D 1D 20 20 53 59 |$..#L..".... SY|
00001BD0: 4E 45 54 49 43 20 56 45 52 4E 41 4C 20 50 4F 49 |NETIC VERNAL POI|
00001BE0: 4E 54 20 3D 20 22 3B 00 12 24 51 04 41 B2 53 56 |NT = ";..$Q.A.SV|
00001BF0: 3A 8D 31 33 33 30 3A 8D 31 33 35 35 3A 99 48 24 |:.1330:.1355:.H$|
00001C00: AA 22 44 22 3B 4D 24 AA 22 4D 22 3B 53 24 AA 22 |."D";M$."M";S$."|
00001C10: 53 22 00 1C 24 56 04 8D 31 33 37 35 00 2C 24 5B |S"..$V..1375.,$[|
00001C20: 04 8B 47 24 B2 22 4D 22 A7 35 30 30 00 3D 24 60 |..G$."M".500.=$`|
00001C30: 04 8B 47 24 B2 22 41 22 A7 31 30 35 30 00 62 24 |..G$."A".1050.b$|
00001C40: 65 04 8F 20 43 4F 4E 56 45 52 54 20 47 45 4F 47 |e.. CONVERT GEOG|
00001C50: 20 4C 41 54 20 54 4F 20 47 45 4F 43 45 4E 54 52 | LAT TO GEOCENTR|
00001C60: 49 43 00 9E 24 6A 04 8D 32 33 31 35 3A 99 A3 34 |IC..$j..2315:..4|
00001C70: 29 22 11 11 11 11 45 4E 54 45 52 20 54 48 45 20 |)"....ENTER THE |
00001C80: 47 45 4F 47 52 41 50 48 49 43 41 4C 20 4C 41 54 |GEOGRAPHICAL LAT|
00001C90: 49 54 55 44 45 11 11 22 3A 8D 32 33 32 35 00 B2 |ITUDE..":.2325..|
00001CA0: 24 6F 04 8B 48 B3 30 B0 48 B1 39 30 A7 8D 31 36 |$o..H.0.H.90..16|
00001CB0: 34 30 00 FA 24 74 04 47 45 B2 28 36 39 35 2E 36 |40..$t.GE.(695.6|
00001CC0: 35 AC A5 53 28 32 AC 4C 41 29 29 AB 28 31 2E 31 |5..S(2.LA)).(1.1|
00001CD0: 37 AC A5 53 28 34 AC 4C 41 29 29 3A 47 45 B2 47 |7..S(4.LA)):GE.G|
00001CE0: 45 AD 33 36 30 30 3A 4C 41 B2 4C 41 AB 47 45 3A |E.3600:LA.LA.GE:|
00001CF0: 41 B2 4C 41 3A 8D 31 33 33 30 00 33 25 79 04 8D |A.LA:.1330.3%y..|
00001D00: 31 33 35 35 3A 99 22 11 11 1D 1D 20 20 20 47 45 |1355:.".... GE|
00001D10: 4F 43 45 4E 54 52 49 43 20 4C 41 54 49 54 55 44 |OCENTRIC LATITUD|
00001D20: 45 20 3D 20 22 3B 48 24 AA 22 44 22 3B 4D 24 AA |E = ";H$."D";M$.|
00001D30: 22 4D 22 00 3D 25 7E 04 8D 31 33 37 35 00 4D 25 |"M".=%~..1375.M%|
00001D40: 83 04 8B 47 24 B2 22 4D 22 A7 35 30 30 00 5E 25 |...G$."M".500.^%|
00001D50: 88 04 8B 47 24 B2 22 41 22 A7 31 31 32 35 00 9D |...G$."A".1125..|
00001D60: 25 8D 04 99 C7 28 32 38 29 3B 22 93 11 20 12 20 |%....(28);".. . |
00001D70: 49 4E 54 45 52 50 4F 4C 41 54 49 4F 4E 20 46 4F |INTERPOLATION FO|
00001D80: 52 20 54 52 41 4E 53 49 54 49 4E 47 20 50 4C 41 |R TRANSITING PLA|
00001D90: 4E 45 54 53 20 22 3B C7 28 31 34 34 29 00 DE 25 |NETS ";.(144)..%|
00001DA0: 92 04 99 22 1F 11 20 45 4E 54 45 52 20 54 48 45 |...".. ENTER THE|
00001DB0: 20 44 41 54 45 20 54 48 45 20 54 52 41 4E 53 49 | DATE THE TRANSI|
00001DC0: 54 20 57 49 4C 4C 20 4F 43 43 55 52 90 22 3A 52 |T WILL OCCUR.":R|
00001DD0: 25 B2 30 3A 44 25 B2 30 3A 8D 31 36 35 35 00 E8 |%.0:D%.0:.1655..|
00001DE0: 25 97 04 8D 32 31 36 35 00 00 26 9C 04 8B 59 B3 |%...2165..&...Y.|
00001DF0: 31 35 38 33 A7 8D 31 38 35 35 3A 89 31 31 36 35 |1583..1855:.1165|
00001E00: 00 18 26 A1 04 8D 31 34 32 30 3A 99 22 11 11 11 |..&...1420:."...|
00001E10: 22 3B 3A 8D 32 33 34 30 00 58 26 A6 04 52 25 B2 |";:.2340.X&..R%.|
00001E20: 30 3A 44 25 B2 34 3A 8D 31 36 35 35 3A 99 22 1C |0:D%.4:.1655:.".|
00001E30: 1D 1D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..--------------|
00001E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001E50: 2D 2D 2D 2D 2D 2D 90 22 00 8A 26 AB 04 81 49 B2 |------."..&...I.|
00001E60: 31 A4 38 3A 8B C5 28 C9 28 54 5A 24 28 49 29 2C |1.8:..(.(TZ$(I),|
00001E70: 32 29 29 B2 54 5A A7 54 5A 24 B2 C8 28 54 5A 24 |2)).TZ.TZ$..(TZ$|
00001E80: 28 49 29 2C 33 29 3A 49 B2 38 00 90 26 B0 04 82 |(I),3):I.8..&...|
00001E90: 00 D4 26 B5 04 99 22 1F 20 45 4E 54 45 52 20 54 |..&...". ENTER T|
00001EA0: 48 45 20 4C 4F 4E 47 49 54 55 44 45 20 4F 46 20 |HE LONGITUDE OF |
00001EB0: 54 48 45 20 54 52 41 4E 53 49 54 49 4E 47 22 3A |THE TRANSITING":|
00001EC0: 99 22 20 50 4C 41 4E 45 54 20 46 4F 52 20 54 48 |." PLANET FOR TH|
00001ED0: 45 20 22 3B 00 00 27 BA 04 99 22 44 41 54 45 20 |E ";..'..."DATE |
00001EE0: 49 54 20 57 49 4C 4C 20 4F 43 43 55 52 90 22 3A |IT WILL OCCUR.":|
00001EF0: 99 A3 38 29 3B 3A 8D 32 33 32 35 3A 54 31 B2 48 |..8);:.2325:T1.H|
00001F00: 00 18 27 BF 04 8B 54 31 B1 B2 33 30 A7 8D 31 38 |..'...T1..30..18|
00001F10: 38 30 3A 89 31 31 36 35 00 49 27 C4 04 99 22 1C |80:.1165.I'...".|
00001F20: 1D 1D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..--------------|
00001F30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001F40: 2D 2D 2D 2D 2D 2D 90 22 3A 00 8D 27 C9 04 99 22 |------.":..'..."|
00001F50: 1F 20 45 4E 54 45 52 20 54 48 45 20 44 45 47 52 |. ENTER THE DEGR|
00001F60: 45 45 20 54 48 45 20 54 52 41 4E 53 49 54 49 4E |EE THE TRANSITIN|
00001F70: 47 20 50 4C 41 4E 45 54 22 3A 99 22 20 4D 55 53 |G PLANET":." MUS|
00001F80: 54 20 42 45 20 49 4E 20 54 4F 20 22 3B 00 B5 27 |T BE IN TO ";..'|
00001F90: CE 04 99 22 46 4F 52 4D 20 41 4E 20 41 53 50 45 |..."FORM AN ASPE|
00001FA0: 43 54 90 22 3A 99 A3 38 29 3B 3A 8D 32 33 32 35 |CT.":..8);:.2325|
00001FB0: 3A 41 53 B2 48 00 CD 27 D3 04 8B 41 53 B1 B2 33 |:AS.H..'...AS..3|
00001FC0: 30 A7 8D 31 38 38 30 3A 89 31 31 36 35 00 FF 27 |0..1880:.1165..'|
00001FD0: D8 04 99 22 1C 1D 1D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..."...---------|
00001FE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001FF0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 90 22 3A 99 00 |-----------.":..|
00002000: 44 28 DD 04 99 22 1F 91 20 45 4E 54 45 52 20 54 |D(...".. ENTER T|
00002010: 48 45 20 4C 4F 4E 47 49 54 55 44 45 20 4F 46 20 |HE LONGITUDE OF |
00002020: 54 48 45 20 54 52 41 4E 53 49 54 49 4E 47 22 3A |THE TRANSITING":|
00002030: 99 22 20 50 4C 41 4E 45 54 20 46 4F 52 20 54 48 |." PLANET FOR TH|
00002040: 45 20 22 3B 00 66 28 E2 04 99 22 4E 45 58 54 20 |E ";.f(..."NEXT |
00002050: 44 41 59 90 22 3A 99 A3 38 29 3B 3A 8D 32 33 32 |DAY.":..8);:.232|
00002060: 35 3A 54 32 B2 48 00 97 28 E7 04 99 22 1C 1D 1D |5:T2.H..(..."...|
00002070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002090: 2D 2D 2D 2D 90 22 3A 00 AF 28 EC 04 8B 54 32 B1 |----.":..(...T2.|
000020A0: B2 33 30 A7 8D 31 38 38 30 3A 89 31 31 36 35 00 |.30..1880:.1165.|
000020B0: DA 28 F1 04 99 22 1D 1D 1D 1D 1D 1D 11 54 48 49 |.(...".......THI|
000020C0: 53 20 54 52 41 4E 53 49 54 20 57 49 4C 4C 20 4F |S TRANSIT WILL O|
000020D0: 43 43 55 52 20 4F 4E 22 3A 99 00 F1 28 F6 04 8B |CCUR ON":...(...|
000020E0: 54 31 B2 54 32 A7 8D 31 39 30 35 3A 89 31 31 36 |T1.T2..1905:.116|
000020F0: 35 00 05 29 FB 04 8B 54 32 B3 54 31 A7 54 32 B2 |5..)...T2.T1.T2.|
00002100: 54 32 AA 33 30 00 19 29 00 05 8B 41 53 B3 54 31 |T2.30..)...AS.T1|
00002110: A7 41 53 B2 41 53 AA 33 30 00 2D 29 05 05 8B 54 |.AS.AS.30.-)...T|
00002120: 32 B3 41 53 A7 54 32 B2 54 32 AA 33 30 00 63 29 |2.AS.T2.T2.30.c)|
00002130: 0A 05 43 B2 54 32 AB 54 31 3A 42 B2 41 53 AB 54 |..C.T2.T1:B.AS.T|
00002140: 31 3A 54 33 B2 42 AC 32 34 AD 43 3A 8B 54 33 B3 |1:T3.B.24.C:.T3.|
00002150: 54 5A A7 54 33 B2 54 33 AA 32 34 3A 4A 44 B2 4A |TZ.T3.T3.24:JD.J|
00002160: 44 AB 31 00 76 29 0F 05 54 33 B2 54 33 AB 54 5A |D.1.v)..T3.T3.TZ|
00002170: 3A 8D 31 34 33 35 00 AD 29 14 05 41 4D 24 B2 22 |:.1435..)..AM$."|
00002180: 20 41 4D 22 3A 8B 54 33 B1 31 32 A7 41 4D 24 B2 | AM":.T3.12.AM$.|
00002190: 22 20 50 4D 22 3A 54 33 B2 54 33 AB 31 32 3A 8B |" PM":T3.T3.12:.|
000021A0: 54 33 B3 31 A7 54 33 B2 54 33 AA 31 32 00 DF 29 |T3.1.T3.T3.12..)|
000021B0: 19 05 41 B2 54 33 3A 8D 31 33 33 30 3A 8D 31 33 |..A.T3:.1330:.13|
000021C0: 35 35 3A 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |55:."...........|
000021D0: 1D 1D 1D 1D 1D 1D 1D 22 3B 22 41 54 20 22 3B 00 |.......";"AT ";.|
000021E0: FA 29 1E 05 99 48 24 3B 22 3A 22 3B 4D 24 3B 41 |.)...H$;":";M$;A|
000021F0: 4D 24 3B 22 20 22 3B 54 5A 24 00 04 2A 23 05 8D |M$;" ";TZ$..*#..|
00002200: 31 33 37 35 00 15 2A 28 05 8B 47 24 B2 22 41 22 |1375..*(..G$."A"|
00002210: A7 31 31 36 35 00 25 2A 2D 05 8B 47 24 B2 22 4D |.1165.%*-..G$."M|
00002220: 22 A7 35 30 30 00 39 2A 32 05 53 47 25 B2 B4 28 |".500.9*2.SG%..(|
00002230: 41 29 3A 41 B2 B6 28 41 29 00 78 2A 37 05 48 B2 |A):A..(A).x*7.H.|
00002240: B5 28 41 29 3A 4D B2 B5 28 28 41 AB B5 28 41 29 |.(A):M..((A..(A)|
00002250: 29 AC 36 30 29 3A 4D 31 B2 28 41 AB B5 28 41 29 |).60):M1.(A..(A)|
00002260: 29 AC 36 30 3A 53 B2 B5 28 28 28 4D 31 AB 4D 29 |).60:S..(((M1.M)|
00002270: AC 36 30 29 AA 2E 35 29 00 90 2A 3C 05 8B 53 B1 |.60)..5)..*<..S.|
00002280: B2 36 30 A7 53 B2 53 AB 36 30 3A 4D B2 4D AA 31 |.60.S.S.60:M.M.1|
00002290: 00 9C 2A 41 05 48 B2 48 AC 53 47 25 00 A2 2A 46 |..*A.H.H.SG%..*F|
000022A0: 05 8E 00 DF 2A 4B 05 48 24 B2 C4 28 48 29 3A 4D |....*K.H$..(H):M|
000022B0: 24 B2 C4 28 4D 29 3A 53 24 B2 C4 28 53 29 3A 48 |$..(M):S$..(S):H|
000022C0: 24 B2 CA 28 48 24 2C 32 29 3A 4D 24 B2 CA 28 4D |$..(H$,2):M$..(M|
000022D0: 24 2C 32 29 3A 53 24 B2 CA 28 53 24 2C 32 29 00 |$,2):S$..(S$,2).|
000022E0: F7 2A 50 05 8B C5 28 4D 24 29 B3 31 30 A7 4D 24 |.*P...(M$).10.M$|
000022F0: B2 22 30 22 AA 4D 24 00 0F 2B 55 05 8B C5 28 53 |."0".M$..+U...(S|
00002300: 24 29 B3 31 30 A7 53 24 B2 22 30 22 AA 53 24 00 |$).10.S$."0".S$.|
00002310: 15 2B 5A 05 8E 00 4C 2B 5F 05 97 32 31 34 2C 32 |.+Z...L+_..214,2|
00002320: 33 3A 99 3A 99 22 1F 20 20 20 20 20 20 20 20 20 |3:.:.". |
00002330: 12 41 92 4E 4F 54 48 45 52 20 20 20 12 4D 92 45 |.A.NOTHER .M.E|
00002340: 4E 55 20 20 20 12 45 92 4E 44 91 22 00 60 2B 64 |NU .E.ND.".`+d|
00002350: 05 A1 47 24 3A 8B 47 24 B2 22 22 A7 31 33 38 30 |..G$:.G$."".1380|
00002360: 00 71 2B 69 05 8B 47 24 B2 22 45 22 A7 32 33 39 |.q+i..G$."E".239|
00002370: 30 00 86 2B 6E 05 8B 47 24 B2 22 41 22 B0 47 24 |0..+n..G$."A".G$|
00002380: B2 22 4D 22 A7 8E 00 90 2B 73 05 89 31 33 38 30 |."M"....+s..1380|
00002390: 00 B9 2B 78 05 53 47 25 B2 B4 28 C5 28 41 24 29 |..+x.SG%..(.(A$)|
000023A0: 29 3A 48 B2 C5 28 C9 28 41 24 2C 31 33 29 29 3A |):H..(.(A$,13)):|
000023B0: 48 B2 B5 28 B6 28 48 29 29 00 E8 2B 7D 05 4D B2 |H..(.(H))..+}.M.|
000023C0: B5 28 C5 28 C9 28 41 24 2C 35 29 29 29 3A 53 B2 |.(.(.(A$,5))):S.|
000023D0: B5 28 C5 28 C9 28 41 24 2C 32 29 29 29 3A 4D B2 |.(.(.(A$,2))):M.|
000023E0: 4D AA 28 53 AD 36 30 29 00 02 2C 82 05 48 B2 B6 |M.(S.60)..,..H..|
000023F0: 28 48 29 AA 28 4D AD 36 30 29 3A 48 B2 48 AC 53 |(H).(M.60):H.H.S|
00002400: 47 25 00 08 2C 87 05 8E 00 3E 2C 8C 05 58 B2 31 |G%..,....>,..X.1|
00002410: 32 AC 28 59 AA 34 38 30 30 29 AA 4D AB 33 3A 5A |2.(Y.4800).M.3:Z|
00002420: B2 28 32 AC 28 58 AB B5 28 58 AD 31 32 29 AC 31 |.(2.(X..(X.12).1|
00002430: 32 29 AA 37 AA 33 36 35 AC 58 29 AD 31 32 00 6B |2).7.365.X).12.k|
00002440: 2C 91 05 57 B2 B5 28 5A 29 AA 44 AA B5 28 58 AD |,..W..(Z).D..(X.|
00002450: 34 38 29 AB 33 32 30 38 33 3A 8B 5A B3 B2 32 32 |48).32083:.Z..22|
00002460: 39 39 31 37 31 A7 36 35 35 33 35 00 96 2C 96 05 |99171.65535..,..|
00002470: 4A 44 B2 57 AA B5 28 58 AD 34 38 30 30 29 AB B5 |JD.W..(X.4800)..|
00002480: 28 58 AD 31 32 30 30 29 AA 33 38 3A 4A 44 B2 4A |(X.1200).38:JD.J|
00002490: 44 AB 2E 35 3A 8E 00 D1 2C 9B 05 58 B2 B5 28 4A |D..5:...,..X..(J|
000024A0: 44 AA 2E 35 29 AA 36 38 35 36 39 3A 4E B2 B5 28 |D..5).68569:N..(|
000024B0: 34 AC 58 AD 31 34 36 30 39 37 29 3A 58 B2 58 AB |4.X.146097):X.X.|
000024C0: B5 28 28 31 34 36 30 39 37 AC 4E AA 33 29 AD 34 |.((146097.N.3).4|
000024D0: 29 00 0F 2D A0 05 5A B2 B5 28 34 30 30 30 AC 28 |)..-..Z..(4000.(|
000024E0: 58 AA 31 29 AD 31 34 36 31 30 30 31 29 3A 58 B2 |X.1).1461001):X.|
000024F0: 58 AB B5 28 31 34 36 31 AC 5A AD 34 29 AA 33 31 |X..(1461.Z.4).31|
00002500: 3A 57 B2 B5 28 38 30 AC 58 AD 32 34 34 37 29 00 |:W..(80.X.2447).|
00002510: 4A 2D A5 05 56 B2 58 AB B5 28 32 34 34 37 AC 57 |J-..V.X..(2447.W|
00002520: AD 38 30 29 3A 58 B2 B5 28 57 AD 31 31 29 3A 57 |.80):X..(W.11):W|
00002530: B2 57 AA 32 AB 31 32 AC 58 3A 55 B2 31 30 30 AC |.W.2.12.X:U.100.|
00002540: 28 4E AB 34 39 29 AA 5A AA 58 00 6F 2D AA 05 58 |(N.49).Z.X.o-..X|
00002550: 24 B2 C4 28 56 29 3A 8B C5 28 58 24 29 B3 31 30 |$..(V):..(X$).10|
00002560: A7 58 24 B2 22 30 22 AA C9 28 58 24 2C 31 29 00 |.X$."0"..(X$,1).|
00002570: 90 2D AF 05 44 24 B2 22 2F 22 AA C9 28 58 24 2C |.-..D$."/"..(X$,|
00002580: 32 29 AA 22 2F 22 AA C9 28 C4 28 55 29 2C 34 29 |2)."/"..(.(U),4)|
00002590: 00 AB 2D B4 05 99 22 20 20 20 20 20 20 22 C9 28 |..-..." ".(|
000025A0: C4 28 57 29 2C 32 29 44 24 3A 8E 00 DD 2D B9 05 |.(W),2)D$:...-..|
000025B0: 4D B2 B5 28 C5 28 C9 28 41 24 2C 31 30 29 29 29 |M..(.(.(A$,10)))|
000025C0: 3A 44 B2 B5 28 C5 28 C9 28 41 24 2C 37 29 29 29 |:D..(.(.(A$,7)))|
000025D0: 3A 59 B2 C5 28 C9 28 41 24 2C 34 29 29 00 E3 2D |:Y..(.(A$,4))..-|
000025E0: BE 05 8E 00 12 2E C3 05 81 49 B2 31 A4 32 32 3A |.........I.1.22:|
000025F0: 8B C5 28 4A 44 24 28 49 29 29 B2 B1 45 AA 31 A7 |..(JD$(I))..E.1.|
00002600: 58 B2 C5 28 4A 44 24 28 49 AB 31 29 29 3A 49 B2 |X..(JD$(I.1)):I.|
00002610: 32 32 00 18 2E C8 05 82 00 3D 2E CD 05 5A B2 B5 |22.......=...Z..|
00002620: 28 58 29 AC 31 30 30 3A 58 B2 58 AC 31 30 30 3A |(X).100:X.X.100:|
00002630: 55 B2 B5 28 28 58 AB 5A 29 AA 2E 35 29 00 5B 2E |U..((X.Z)..5).[.|
00002640: D2 05 8B 59 25 B3 B1 30 A7 8B 59 25 B2 B1 30 AF |...Y%..0..Y%..0.|
00002650: 59 25 B3 B2 39 39 A7 55 B2 AB 32 00 7C 2E D7 05 |Y%..99.U..2.|...|
00002660: 8B 59 25 B3 B1 30 A7 8B 59 25 B2 B1 31 30 30 AF |.Y%..0..Y%..100.|
00002670: 59 25 B3 B2 31 39 39 A7 55 B2 AB 31 00 82 2E DC |Y%..199.U..1....|
00002680: 05 8E 00 94 2E E1 05 45 B2 59 3A 44 31 B2 44 3A |.......E.Y:D1.D:|
00002690: 4D 31 B2 4D 00 BD 2E E6 05 8B 42 43 24 B2 22 41 |M1.M......BC$."A|
000026A0: 22 A7 4A 44 B2 34 37 31 32 AA 59 3A 4A 44 B2 4A |".JD.4712.Y:JD.J|
000026B0: 44 AC 33 36 35 2E 32 35 3A 48 B2 4A 44 00 E6 2E |D.365.25:H.JD...|
000026C0: EB 05 8B 42 43 24 B2 22 42 22 A7 4A 44 B2 34 37 |...BC$."B".JD.47|
000026D0: 31 33 AB 59 3A 4A 44 B2 4A 44 AC 33 36 35 2E 32 |13.Y:JD.JD.365.2|
000026E0: 35 3A 48 B2 4A 44 00 08 2F F0 05 8B 4A 44 AB B5 |5:H.JD../...JD..|
000026F0: 28 4A 44 29 B2 30 A7 48 B2 4A 44 AB 31 3A 4C 50 |(JD).0.H.JD.1:LP|
00002700: B2 31 3A 89 31 35 33 35 00 45 2F F5 05 48 B2 B5 |.1:.1535.E/..H..|
00002710: 28 48 29 3A 4D B2 31 3A 44 B2 30 3A 59 B2 31 39 |(H):M.1:D.0:Y.19|
00002720: 35 31 3A 8D 31 34 32 30 3A 4A 43 B2 4A 44 3A 4D |51:.1420:JC.JD:M|
00002730: B2 4D 31 3A 44 B2 44 31 3A 59 B2 31 39 35 31 3A |.M1:D.D1:Y.1951:|
00002740: 8D 31 34 32 30 00 5A 2F FA 05 8B 4D B3 B1 31 AF |.1420.Z/...M..1.|
00002750: 4D B3 B1 32 A7 48 B2 48 AB 31 00 97 2F FF 05 48 |M..2.H.H.1../..H|
00002760: B2 B5 28 48 29 3A 4D B2 31 3A 44 B2 30 3A 59 B2 |..(H):M.1:D.0:Y.|
00002770: 31 39 35 32 3A 8D 31 34 32 30 3A 4A 43 B2 4A 44 |1952:.1420:JC.JD|
00002780: 3A 4D B2 4D 31 3A 44 B2 44 31 3A 59 B2 31 39 35 |:M.M1:D.D1:Y.195|
00002790: 32 3A 8D 31 34 32 30 00 AC 2F 04 06 44 46 B2 4A |2:.1420../..DF.J|
000027A0: 44 AB 4A 43 3A 4A 44 B2 48 AA 44 46 00 C7 2F 09 |D.JC:JD.H.DF../.|
000027B0: 06 8B 43 41 24 B2 22 4E 22 A7 8D 31 34 37 35 3A |..CA$."N"..1475:|
000027C0: 4A 44 B2 4A 44 AB 55 00 CD 2F 0E 06 8E 00 FF 2F |JD.JD.U../...../|
000027D0: 13 06 59 44 B2 33 36 35 2E 32 35 3A 58 25 B2 30 |..YD.365.25:X%.0|
000027E0: 3A 58 B2 30 3A 59 25 B2 30 3A 42 43 24 B2 22 22 |:X.0:Y%.0:BC$.""|
000027F0: 3A 4C 50 B2 30 3A 41 25 B2 30 3A 42 25 B2 30 00 |:LP.0:A%.0:B%.0.|
00002800: 32 30 18 06 4A 43 B2 B5 28 4A 44 AD 59 44 29 3A |20..JC..(JD.YD):|
00002810: 59 B2 4A 43 AB 34 37 31 32 3A 8B 28 4A 43 AC 59 |Y.JC.4712:.(JC.Y|
00002820: 44 29 AB B5 28 4A 43 AC 59 44 29 B2 30 A7 4C 50 |D)..(JC.YD).0.LP|
00002830: B2 31 00 3E 30 1D 06 8B 5A 25 B2 30 A7 8E 00 62 |.1.>0...Z%.0...b|
00002840: 30 22 06 8B 4A 44 B3 31 37 32 31 34 32 34 A7 42 |0"..JD.1721424.B|
00002850: 43 24 B2 22 20 42 43 22 3A 59 B2 34 37 31 33 AB |C$." BC":Y.4713.|
00002860: 4A 43 00 8D 30 27 06 8B 4C 50 B2 31 A7 58 B2 28 |JC..0'..LP.1.X.(|
00002870: 4A 44 AD 59 44 29 AB 4A 43 3A 44 4E B2 B5 28 58 |JD.YD).JC:DN..(X|
00002880: AC 33 36 36 29 AA 31 3A 89 31 36 30 30 00 AC 30 |.366).1:.1600..0|
00002890: 2C 06 58 B2 28 4A 44 AD 59 44 29 AB 4A 43 3A 44 |,.X.(JD.YD).JC:D|
000028A0: 4E B2 B5 28 58 AC 33 36 35 29 AA 31 00 DE 30 31 |N..(X.365).1..01|
000028B0: 06 81 49 B2 31 A4 31 32 3A 41 B2 C5 28 CA 28 4D |..I.1.12:A..(.(M|
000028C0: 31 24 28 49 29 2C 34 2C 33 29 29 3A 42 B2 C5 28 |1$(I),4,3)):B..(|
000028D0: CA 28 4D 31 24 28 49 29 2C 37 2C 33 29 29 00 0D |.(M1$(I),7,3))..|
000028E0: 31 36 06 8B 44 4E B1 41 AF 44 4E B3 B2 42 A7 4D |16..DN.A.DN..B.M|
000028F0: 4F 24 B2 CA 28 4D 31 24 28 49 29 2C 31 2C 33 29 |O$..(M1$(I),1,3)|
00002900: 3A 44 41 B2 44 4E AB 41 3A 49 B2 31 32 00 15 31 |:DA.DN.A:I.12..1|
00002910: 3B 06 82 3A 8E 00 47 31 40 06 81 49 B2 31 A4 31 |;..:..G1@..I.1.1|
00002920: 32 3A 41 B2 C5 28 CA 28 4D 32 24 28 49 29 2C 34 |2:A..(.(M2$(I),4|
00002930: 2C 33 29 29 3A 42 B2 C5 28 CA 28 4D 32 24 28 49 |,3)):B..(.(M2$(I|
00002940: 29 2C 37 2C 33 29 29 00 76 31 45 06 8B 44 4E B1 |),7,3)).v1E..DN.|
00002950: 41 AF 44 4E B3 B2 42 A7 4D 4F 24 B2 CA 28 4D 32 |A.DN..B.MO$..(M2|
00002960: 24 28 49 29 2C 31 2C 33 29 3A 44 41 B2 44 4E AB |$(I),1,3):DA.DN.|
00002970: 41 3A 49 B2 31 32 00 7E 31 4A 06 82 3A 8E 00 B2 |A:I.12.~1J..:...|
00002980: 31 4F 06 99 22 93 11 11 11 11 1D 1D 1D 11 11 11 |1O.."...........|
00002990: 11 1D 1D 59 4F 55 20 57 45 4E 54 20 50 41 53 54 |...YOU WENT PAST|
000029A0: 20 54 48 45 20 32 31 53 54 20 43 45 4E 54 55 52 | THE 21ST CENTUR|
000029B0: 59 22 00 BC 31 54 06 8D 31 33 37 35 00 CC 31 59 |Y"..1T..1375..1Y|
000029C0: 06 8B 47 24 B2 22 4D 22 A7 33 36 35 00 EA 31 5E |..G$."M".365..1^|
000029D0: 06 8B 47 24 B2 22 41 22 A7 91 20 57 50 25 89 39 |..G$."A".. WP%.9|
000029E0: 32 35 2C 38 37 30 2C 39 38 35 00 0F 32 63 06 54 |25,870,985..2c.T|
000029F0: B2 28 28 4A 44 AB 32 34 31 35 30 32 30 29 AA 46 |.((JD.2415020).F|
00002A00: AD 32 34 AB 2E 35 29 AD 33 36 35 32 35 3A 8E 00 |.24..5).36525:..|
00002A10: 3F 32 68 06 99 22 11 20 20 20 59 4F 55 20 45 4E |?2h..". YOU EN|
00002A20: 54 45 52 45 44 20 41 4E 20 55 4E 52 45 41 4C 49 |TERED AN UNREALI|
00002A30: 53 54 49 43 20 4C 41 54 55 54 55 44 45 2E 22 00 |STIC LATUTUDE.".|
00002A40: 83 32 6D 06 99 22 20 20 20 41 20 4C 41 54 49 54 |.2m.." A LATIT|
00002A50: 55 44 45 20 43 41 4E 20 4F 4E 4C 59 20 42 45 20 |UDE CAN ONLY BE |
00002A60: 42 45 54 57 45 45 4E 20 5A 45 52 4F 22 3A 99 22 |BETWEEN ZERO":."|
00002A70: 20 20 20 41 4E 44 20 39 30 20 44 45 47 52 45 45 | AND 90 DEGREE|
00002A80: 53 2E 22 00 93 32 72 06 8D 32 34 32 30 3A 89 31 |S."..2r..2420:.1|
00002A90: 31 32 35 00 9C 32 77 06 99 22 13 22 00 B6 32 7C |125..2w.."."..2||
00002AA0: 06 99 C8 28 43 52 24 2C 52 25 29 3B C8 28 43 44 |...(CR$,R%);.(CD|
00002AB0: 24 2C 44 25 29 3B 00 BC 32 81 06 8E 00 F9 32 86 |$,D%);..2.....2.|
00002AC0: 06 8D 31 33 35 35 3A 4D 45 24 B2 53 48 24 AA 48 |..1355:ME$.SH$.H|
00002AD0: 24 AA 22 44 22 AA 4D 24 AA 22 4D 22 AA 53 24 AA |$."D".M$."M".S$.|
00002AE0: 22 53 22 3A 97 32 31 34 2C 33 3A 99 3A 99 A3 31 |"S":.214,3:.:..1|
00002AF0: 34 29 22 90 22 3B 4D 45 24 00 08 33 8B 06 99 20 |4)".";ME$..3... |
00002B00: 20 20 20 22 1F 22 3A 8E 00 31 33 90 06 52 25 B2 | ".":..13..R%.|
00002B10: 31 34 3A 44 25 B2 33 3A 8D 31 36 35 35 3A 99 22 |14:D%.3:.1655:."|
00002B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00002B30: 8E 00 61 33 95 06 99 22 13 11 11 11 11 11 11 11 |..a3..."........|
00002B40: 1F 20 20 20 28 50 29 4C 55 53 20 20 20 20 28 4D |. (P)LUS (M|
00002B50: 29 49 4E 55 53 20 20 20 20 28 54 29 49 4D 45 53 |)INUS (T)IMES|
00002B60: 22 00 90 33 9A 06 99 22 11 20 28 44 29 49 56 49 |"..3...". (D)IVI|
00002B70: 44 45 44 20 42 59 20 20 28 43 29 4C 45 41 52 20 |DED BY (C)LEAR |
00002B80: 20 28 42 29 41 43 4B 20 54 4F 20 4D 45 4E 55 22 | (B)ACK TO MENU"|
00002B90: 00 AE 33 9F 06 97 32 31 34 2C 31 30 3A 99 3A 81 |..3...214,10:.:.|
00002BA0: 49 B2 30 A4 39 3A 99 53 50 24 3A 82 3A 8E 00 C2 |I.0.9:.SP$:.:...|
00002BB0: 33 A4 06 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 37 |3...X$:.X$."".17|
00002BC0: 30 30 00 EF 33 A9 06 8B 58 24 B2 22 50 22 A7 8D |00..3...X$."P"..|
00002BD0: 31 36 39 35 3A 53 47 24 B2 22 DB 22 3A 8D 31 38 |1695:SG$.".":.18|
00002BE0: 33 30 3A 8D 31 38 30 35 3A 53 48 24 B2 22 22 00 |30:.1805:SH$."".|
00002BF0: 09 34 AE 06 8B 58 24 B2 22 50 22 AF 54 AA 42 B3 |.4...X$."P".T.B.|
00002C00: 30 A7 53 48 24 B2 22 C0 22 00 1F 34 B3 06 8B 58 |0.SH$."."..4...X|
00002C10: 24 B2 22 50 22 A7 54 B2 54 AA 42 3A 41 B2 54 00 |$."P".T.T.B:A.T.|
00002C20: 48 34 B8 06 8B 58 24 B2 22 50 22 A7 8D 31 36 39 |H4...X$."P"..169|
00002C30: 35 3A 8D 31 36 38 30 3A 8D 31 33 33 30 3A 8D 31 |5:.1680:.1330:.1|
00002C40: 36 37 30 3A 89 37 33 30 00 75 34 BD 06 8B 58 24 |670:.730.u4...X$|
00002C50: B2 22 4D 22 A7 8D 31 36 39 35 3A 53 47 24 B2 22 |."M"..1695:SG$."|
00002C60: C3 22 3A 8D 31 38 33 30 3A 8D 31 38 30 35 3A 53 |.":.1830:.1805:S|
00002C70: 48 24 B2 22 22 00 8F 34 C2 06 8B 58 24 B2 22 4D |H$.""..4...X$."M|
00002C80: 22 AF 54 AB 42 B3 30 A7 53 48 24 B2 22 C0 22 00 |".T.B.0.SH$.".".|
00002C90: A5 34 C7 06 8B 58 24 B2 22 4D 22 A7 54 B2 54 AB |.4...X$."M".T.T.|
00002CA0: 42 3A 41 B2 54 00 CE 34 CC 06 8B 58 24 B2 22 4D |B:A.T..4...X$."M|
00002CB0: 22 A7 8D 31 36 39 35 3A 8D 31 36 38 30 3A 8D 31 |"..1695:.1680:.1|
00002CC0: 33 33 30 3A 8D 31 36 37 30 3A 89 37 33 30 00 FE |330:.1670:.730..|
00002CD0: 34 D1 06 8B 58 24 B2 22 54 22 A7 8D 31 36 39 35 |4...X$."T"..1695|
00002CE0: 3A 53 47 24 B2 22 D6 22 3A 8D 31 38 33 30 3A 8D |:SG$.".":.1830:.|
00002CF0: 31 38 34 35 3A 54 B2 54 AC 42 3A 41 B2 54 00 1E |1845:T.T.B:A.T..|
00002D00: 35 D6 06 8B 58 24 B2 22 54 22 A7 53 48 24 B2 22 |5...X$."T".SH$."|
00002D10: 22 3A 8B 54 B3 30 A7 53 48 24 B2 22 C0 22 00 41 |":.T.0.SH$.".".A|
00002D20: 35 DB 06 8B 58 24 B2 22 54 22 A7 8D 31 36 38 30 |5...X$."T"..1680|
00002D30: 3A 8D 31 33 33 30 3A 8D 31 36 37 30 3A 89 37 33 |:.1330:.1670:.73|
00002D40: 30 00 71 35 E0 06 8B 58 24 B2 22 44 22 A7 8D 31 |0.q5...X$."D"..1|
00002D50: 36 39 35 3A 53 47 24 B2 22 CE 22 3A 8D 31 38 33 |695:SG$.".":.183|
00002D60: 30 3A 8D 31 38 34 35 3A 54 B2 54 AD 42 3A 41 B2 |0:.1845:T.T.B:A.|
00002D70: 54 00 91 35 E5 06 8B 58 24 B2 22 44 22 A7 53 48 |T..5...X$."D".SH|
00002D80: 24 B2 22 22 3A 8B 54 B3 30 A7 53 48 24 B2 22 C0 |$."":.T.0.SH$.".|
00002D90: 22 00 B4 35 EA 06 8B 58 24 B2 22 44 22 A7 8D 31 |"..5...X$."D"..1|
00002DA0: 36 38 30 3A 8D 31 33 33 30 3A 8D 31 36 37 30 3A |680:.1330:.1670:|
00002DB0: 89 37 33 30 00 C4 35 EF 06 8B 58 24 B2 22 43 22 |.730..5...X$."C"|
00002DC0: A7 36 38 30 00 D4 35 F4 06 8B 58 24 B2 22 42 22 |.680..5...X$."B"|
00002DD0: A7 32 37 30 00 DE 35 F9 06 89 31 37 30 30 00 F7 |.270..5...1700..|
00002DE0: 35 FE 06 52 25 B2 31 3A 44 25 B2 37 3A 8D 31 36 |5..R%.1:D%.7:.16|
00002DF0: 35 35 3A 99 53 50 24 00 13 36 03 07 52 25 B2 31 |55:.SP$..6..R%.1|
00002E00: 3A 44 25 B2 38 3A 8D 31 36 35 35 3A 99 22 11 22 |:D%.8:.1655:."."|
00002E10: 53 50 24 00 31 36 08 07 52 25 B2 31 34 3A 44 25 |SP$.16..R%.14:D%|
00002E20: B2 32 32 3A 8D 31 36 35 35 3A 99 53 50 24 3B 3A |.22:.1655:.SP$;:|
00002E30: 8E 00 4C 36 0D 07 44 25 B2 31 30 3A 52 25 B2 30 |..L6..D%.10:R%.0|
00002E40: 3A 8D 31 36 35 35 3A 8D 31 39 39 35 00 5A 36 12 |:.1655:.1995.Z6.|
00002E50: 07 8D 32 30 34 30 3A 42 B2 48 00 74 36 17 07 44 |..2040:B.H.t6..D|
00002E60: 25 B2 31 31 3A 52 25 B2 38 3A 8D 31 36 35 35 3A |%.11:R%.8:.1655:|
00002E70: 99 53 50 24 00 8E 36 1C 07 44 25 B2 31 33 3A 52 |.SP$..6..D%.13:R|
00002E80: 25 B2 38 3A 8D 31 36 35 35 3A 99 53 50 24 00 AA |%.8:.1655:.SP$..|
00002E90: 36 21 07 44 25 B2 31 35 3A 52 25 B2 38 3A 8D 31 |6!.D%.15:R%.8:.1|
00002EA0: 36 35 35 3A 99 53 50 24 3A 8E 00 CA 36 26 07 44 |655:.SP$:...6&.D|
00002EB0: 25 B2 33 3A 52 25 B2 32 37 3A 8D 31 36 35 35 3A |%.3:R%.27:.1655:|
00002EC0: 99 22 90 22 3B 53 47 24 3A 8E 00 E0 36 2B 07 8B |.".";SG$:...6+..|
00002ED0: 47 24 B2 22 50 22 A7 8D 31 36 39 35 3A 41 B2 43 |G$."P"..1695:A.C|
00002EE0: 00 FD 36 30 07 44 25 B2 36 3A 52 25 B2 31 39 3A |..60.D%.6:R%.19:|
00002EF0: 8D 31 36 35 35 3A 99 22 20 20 22 3A 8E 00 39 37 |.1655:." ":..97|
00002F00: 35 07 97 32 31 34 2C 31 30 3A 99 3A 3A 99 22 45 |5..214,10:.::."E|
00002F10: 4E 54 45 52 20 41 20 4E 55 4D 42 45 52 20 20 22 |NTER A NUMBER "|
00002F20: 3B 3A 4C 4E B2 36 3A 4E 55 B2 32 3A 8D 31 39 33 |;:LN.6:NU.2:.193|
00002F30: 30 3A 42 B2 C5 28 47 24 29 00 47 37 3A 07 99 22 |0:B..(G$).G7:.."|
00002F40: 91 22 53 50 24 3A 8E 00 73 37 3F 07 99 22 11 20 |."SP$:..s7?..". |
00002F50: 20 20 20 59 4F 55 52 20 44 41 54 45 20 49 53 20 | YOUR DATE IS |
00002F60: 45 49 54 48 45 52 20 49 4E 43 4F 52 52 45 43 54 |EITHER INCORRECT|
00002F70: 4C 59 22 00 9E 37 44 07 99 22 20 20 20 20 45 4E |LY"..7D.." EN|
00002F80: 54 45 52 45 44 20 4F 52 20 59 4F 55 20 41 52 45 |TERED OR YOU ARE|
00002F90: 20 55 53 49 4E 47 20 41 20 44 41 54 45 22 00 C7 | USING A DATE"..|
00002FA0: 37 49 07 99 22 20 20 20 20 45 41 52 4C 49 45 52 |7I.." EARLIER|
00002FB0: 20 54 48 41 4E 20 31 35 38 33 2E 20 55 53 45 20 | THAN 1583. USE |
00002FC0: 41 20 44 41 54 45 22 00 E8 37 4E 07 99 22 20 20 |A DATE"..7N.." |
00002FD0: 20 20 42 45 54 57 45 45 4E 20 31 35 38 33 20 41 | BETWEEN 1583 A|
00002FE0: 4E 44 20 32 34 30 30 2E 00 F4 37 53 07 8D 32 34 |ND 2400...7S..24|
00002FF0: 32 30 3A 8E 00 22 38 58 07 99 22 11 20 20 20 20 |20:.."8X..". |
00003000: 59 4F 55 52 20 44 45 47 52 45 45 20 49 53 20 45 |YOUR DEGREE IS E|
00003010: 49 54 48 45 52 20 49 4E 43 4F 52 52 45 43 54 4C |ITHER INCORRECTL|
00003020: 59 22 00 49 38 5D 07 99 22 20 20 20 20 45 4E 54 |Y".I8].." ENT|
00003030: 45 52 45 44 20 4F 52 20 59 4F 55 20 41 52 45 20 |ERED OR YOU ARE |
00003040: 55 53 49 4E 47 20 41 4E 22 00 77 38 62 07 99 22 |USING AN".w8b.."|
00003050: 20 20 20 20 55 4E 52 45 41 4C 49 53 54 49 43 20 | UNREALISTIC |
00003060: 44 45 47 52 45 45 2E 20 55 53 45 20 46 52 4F 4D |DEGREE. USE FROM|
00003070: 20 31 20 4D 49 4E 22 00 9C 38 67 07 99 22 20 20 | 1 MIN"..8g.." |
00003080: 20 20 54 4F 20 32 39 20 44 45 47 52 45 45 53 20 | TO 29 DEGREES |
00003090: 35 39 20 4D 49 4E 55 54 45 53 2E 22 00 A8 38 6C |59 MINUTES."..8l|
000030A0: 07 8D 32 34 32 30 3A 8E 00 D6 38 71 07 99 22 93 |..2420:...8q..".|
000030B0: 11 11 11 1D 1D 1D 1D 53 49 4E 43 45 20 54 48 45 |.......SINCE THE|
000030C0: 20 50 4C 41 4E 45 54 20 48 41 53 20 4E 4F 54 20 | PLANET HAS NOT |
000030D0: 4D 4F 56 45 44 22 00 FD 38 76 07 99 22 1D 1D 1D |MOVED"..8v.."...|
000030E0: 1D 4E 4F 20 49 4E 54 45 52 50 4F 4C 41 54 49 4F |.NO INTERPOLATIO|
000030F0: 4E 20 49 53 20 4E 45 45 44 45 44 2E 22 00 25 39 |N IS NEEDED.".%9|
00003100: 7B 07 99 22 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |{.."............|
00003110: 1D 1D 1D 1D 1D 1D 1D 50 52 45 53 53 20 41 4E 59 |.......PRESS ANY|
00003120: 20 4B 45 59 22 00 39 39 80 07 A1 47 24 3A 8B 47 | KEY".99...G$:.G|
00003130: 24 B2 22 22 A7 31 39 32 30 00 47 39 85 07 8B 47 |$."".1920.G9...G|
00003140: 24 B3 B1 22 22 A7 8E 00 58 39 8A 07 97 31 39 38 |$..""...X9...198|
00003150: 2C 30 3A 4B 24 B2 22 22 00 66 39 8F 07 99 22 97 |,0:K$."".f9...".|
00003160: 12 20 9D 92 22 3B 00 85 39 94 07 81 49 B2 31 A4 |. ..";..9...I.1.|
00003170: 33 30 3A 82 3A 99 22 20 9D 22 3B 3A 81 4A B2 31 |30:.:." .";:.J.1|
00003180: A4 31 30 3A 82 00 99 39 99 07 A1 47 24 3A 8B 47 |.10:...9...G$:.G|
00003190: 24 B2 22 22 A7 31 39 33 35 00 A6 39 9E 07 4C 53 |$."".1935..9..LS|
000031A0: B2 C3 28 4B 24 29 00 BE 39 A3 07 8B 47 24 B2 C7 |..(K$)..9...G$..|
000031B0: 28 31 33 29 A7 47 24 B2 4B 24 3A 99 3A 8E 00 EB |(13).G$.K$:.:...|
000031C0: 39 A8 07 8B 47 24 B2 C7 28 32 30 29 AF 4C 53 A7 |9...G$..(20).LS.|
000031D0: 99 22 20 9D 9D 22 3B 3A 4B 24 B2 C8 28 4B 24 2C |." ..";:K$..(K$,|
000031E0: 4C 53 AB 31 29 3A 89 31 39 33 35 00 1B 3A AD 07 |LS.1):.1935..:..|
000031F0: 8B 4E 55 B2 30 A7 8B 28 47 24 B3 22 20 22 B0 47 |.NU.0..(G$." ".G|
00003200: 24 B1 22 5F 22 29 AF 28 47 24 B3 22 C1 22 B0 47 |$."_").(G$.".".G|
00003210: 24 B1 22 DA 22 29 A7 31 39 33 35 00 4B 3A B2 07 |$.".").1935.K:..|
00003220: 8B 4E 55 B2 31 A7 8B 28 47 24 B3 22 41 22 B0 47 |.NU.1..(G$."A".G|
00003230: 24 B1 22 5A 22 29 AF 28 47 24 B3 22 C1 22 B0 47 |$."Z").(G$.".".G|
00003240: 24 B1 22 DA 22 29 A7 31 39 33 35 00 75 3A B7 07 |$.".").1935.u:..|
00003250: 8B 4E 55 B2 32 A7 8B 28 47 24 B3 22 30 22 B0 47 |.NU.2..(G$."0".G|
00003260: 24 B1 22 39 22 29 AF 28 47 24 B3 B1 22 2E 22 29 |$."9").(G$..".")|
00003270: A7 31 39 33 35 00 86 3A BC 07 8B 4C 53 B1 B2 4C |.1935..:...LS..L|
00003280: 4E A7 31 39 33 35 00 98 3A C1 07 99 47 24 3B 3A |N.1935..:...G$;:|
00003290: 4B 24 B2 4B 24 AA 47 24 00 A2 3A C6 07 89 31 39 |K$.K$.G$..:...19|
000032A0: 33 35 00 BF 3A CB 07 81 49 B2 32 31 37 A4 32 34 |35..:...I.217.24|
000032B0: 32 3A 97 49 2C C2 28 49 29 B0 31 32 38 3A 82 00 |2:.I,.(I).128:..|
000032C0: DB 3A D0 07 99 A3 31 30 29 22 11 45 4E 54 45 52 |.:....10)".ENTER|
000032D0: 20 44 45 47 52 45 45 53 20 3D 22 00 F7 3A D5 07 | DEGREES ="..:..|
000032E0: 99 A3 31 30 29 22 11 45 4E 54 45 52 20 4D 49 4E |..10)".ENTER MIN|
000032F0: 55 54 45 53 20 3D 22 00 13 3B DA 07 99 A3 31 30 |UTES ="..;....10|
00003300: 29 22 11 45 4E 54 45 52 20 53 45 43 4F 4E 44 53 |)".ENTER SECONDS|
00003310: 20 3D 22 00 3D 3B DF 07 99 A3 32 36 29 22 91 91 | =".=;....26)"..|
00003320: 91 91 91 22 3B 3A 4E 55 B2 32 3A 4C 4E B2 33 3A |...";:NU.2:LN.3:|
00003330: 8D 31 39 33 30 3A 48 B2 C5 28 47 24 29 00 5E 3B |.1930:H..(G$).^;|
00003340: E4 07 99 A3 32 36 29 22 11 22 3B 3A 4C 4E B2 32 |....26)".";:LN.2|
00003350: 3A 8D 31 39 33 30 3A 4D B2 C5 28 47 24 29 00 8E |:.1930:M..(G$)..|
00003360: 3B E9 07 99 A3 32 36 29 22 11 22 3B 3A 8D 31 39 |;....26)".";:.19|
00003370: 33 30 3A 53 B2 C5 28 47 24 29 3A 8B 53 B2 B1 36 |30:S..(G$):.S..6|
00003380: 30 A7 53 B2 53 AB 36 30 3A 4D B2 4D AA 31 00 A6 |0.S.S.60:M.M.1..|
00003390: 3B EE 07 8B 4D B2 B1 36 30 A7 4D B2 4D AB 36 30 |;...M..60.M.M.60|
000033A0: 3A 48 B2 48 AA 31 00 AC 3B F3 07 8E 00 C8 3B F8 |:H.H.1..;.....;.|
000033B0: 07 4D B2 4D AA 28 53 AD 36 30 29 3A 48 B2 48 AA |.M.M.(S.60):H.H.|
000033C0: 28 4D AD 36 30 29 3A 8E 00 00 3C FD 07 99 22 45 |(M.60):...<..."E|
000033D0: 4E 54 45 52 20 4D 4F 4E 54 48 20 28 31 2D 31 32 |NTER MONTH (1-12|
000033E0: 29 20 20 20 22 3B 3A 4C 4E B2 32 3A 4E 55 B2 32 |) ";:LN.2:NU.2|
000033F0: 3A 8D 31 39 33 30 3A 4D B2 C5 28 47 24 29 3A 8E |:.1930:M..(G$):.|
00003400: 00 38 3C 02 08 99 22 45 4E 54 45 52 20 44 41 59 |.8<..."ENTER DAY|
00003410: 20 20 20 28 31 2D 33 31 29 20 20 20 22 3B 3A 4C | (1-31) ";:L|
00003420: 4E B2 32 3A 4E 55 B2 32 3A 8D 31 39 33 30 3A 44 |N.2:NU.2:.1930:D|
00003430: B2 C5 28 47 24 29 3A 8E 00 70 3C 07 08 99 22 45 |..(G$):..p<..."E|
00003440: 4E 54 45 52 20 59 45 41 52 20 20 28 30 2D 32 34 |NTER YEAR (0-24|
00003450: 30 30 29 20 22 3B 3A 4C 4E B2 34 3A 4E 55 B2 32 |00) ";:LN.4:NU.2|
00003460: 3A 8D 31 39 33 30 3A 59 B2 C5 28 47 24 29 3A 8E |:.1930:Y..(G$):.|
00003470: 00 7E 3C 0C 08 4C 4E B2 32 3A 4E 55 B2 32 00 96 |.~<..LN.2:NU.2..|
00003480: 3C 11 08 99 22 48 4F 55 52 53 20 20 20 20 4D 49 |<..."HOURS MI|
00003490: 4E 55 54 45 53 22 00 CA 3C 16 08 99 A3 31 36 29 |NUTES"..<....16)|
000034A0: 22 91 22 3B 3A 8D 31 39 33 30 3A 48 B2 C5 28 47 |".";:.1930:H..(G|
000034B0: 24 29 3A 99 A3 32 37 29 22 91 22 3B 3A 8D 31 39 |$):..27)".";:.19|
000034C0: 33 30 3A 4D B2 C5 28 47 24 29 00 DB 3C 1B 08 3A |30:M..(G$)..<..:|
000034D0: 8D 32 30 34 30 3A 41 B2 48 3A 8E 00 24 3D 20 08 |.2040:A.H:..$= .|
000034E0: 8F 20 20 20 20 52 25 3D 31 34 3A 44 25 3D 31 32 |. R%=14:D%=12|
000034F0: 3A 47 4F 53 55 42 33 30 38 30 3A 50 52 49 4E 54 |:GOSUB3080:PRINT|
00003500: 22 20 20 20 20 20 20 20 20 20 22 3A 50 52 49 4E |" ":PRIN|
00003510: 54 54 41 42 28 31 34 29 22 20 20 20 20 20 20 20 |TTAB(14)" |
00003520: 20 20 20 22 00 65 3D 25 08 8F 20 50 52 49 4E 54 | ".e=%.. PRINT|
00003530: 54 41 42 28 31 34 29 22 20 20 20 20 20 20 20 20 |TAB(14)" |
00003540: 20 20 20 22 3A 50 52 49 4E 54 54 41 42 28 31 30 | ":PRINTTAB(10|
00003550: 29 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |)" |
00003560: 20 20 20 20 22 00 94 3D 2A 08 8F 20 50 52 49 4E | "..=*.. PRIN|
00003570: 54 54 41 42 28 31 30 29 22 11 20 20 20 20 20 20 |TTAB(10)". |
00003580: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 52 45 | ":RE|
00003590: 54 55 52 4E 00 A8 3D 2F 08 A1 47 24 3A 8B 47 24 |TURN..=/..G$:.G$|
000035A0: B2 22 22 A7 32 30 39 35 00 C0 3D 34 08 8B 47 24 |."".2095..=4..G$|
000035B0: B3 22 31 22 B0 47 24 B1 22 34 22 A7 32 30 39 35 |."1".G$."4".2095|
000035C0: 00 D3 3D 39 08 8B 47 24 B2 22 33 22 A7 41 B2 31 |..=9..G$."3".A.1|
000035D0: 32 3A 8E 00 E6 3D 3E 08 8B 47 24 B2 22 34 22 A7 |2:...=>..G$."4".|
000035E0: 41 B2 32 34 3A 8E 00 08 3E 43 08 8B 47 24 B2 22 |A.24:...>C..G$."|
000035F0: 32 22 A7 41 B2 41 AA 31 32 3A 8B 41 B1 32 34 A7 |2".A.A.12:.A.24.|
00003600: 41 B2 41 AB 31 32 3A 8E 00 0E 3E 48 08 8E 00 1C |A.A.12:...>H....|
00003610: 3E 4D 08 4C 4E B2 33 3A 4E 55 B2 32 00 37 3E 52 |>M.LN.3:NU.2.7>R|
00003620: 08 99 22 44 45 47 52 45 45 53 20 20 20 20 20 4D |.."DEGREES M|
00003630: 49 4E 55 54 45 53 22 00 62 3E 57 08 99 A3 31 37 |INUTES".b>W...17|
00003640: 29 22 91 22 3B 3A 8D 31 39 33 30 3A 48 B2 C5 28 |)".";:.1930:H..(|
00003650: 47 24 29 3A 99 A3 32 39 29 22 91 22 3B 3A 4C 4E |G$):..29)".";:LN|
00003660: B2 32 00 7C 3E 5C 08 8D 31 39 33 30 3A 4D B2 C5 |.2.|>\..1930:M..|
00003670: 28 47 24 29 3A 8D 32 30 34 30 3A 8E 00 C3 3E 61 |(G$):.2040:...>a|
00003680: 08 99 22 93 13 90 11 20 54 48 49 53 20 52 4F 55 |..".... THIS ROU|
00003690: 54 49 4E 45 20 57 49 4C 4C 20 52 45 54 55 52 4E |TINE WILL RETURN|
000036A0: 20 54 48 45 20 53 49 44 45 52 45 41 4C 22 3A 99 | THE SIDEREAL":.|
000036B0: 22 20 54 49 4D 45 20 46 4F 52 20 41 20 44 41 54 |" TIME FOR A DAT|
000036C0: 45 22 3B 00 07 3F 66 08 99 22 20 42 45 54 57 45 |E";..?f.." BETWE|
000036D0: 45 4E 20 54 48 45 20 59 45 41 52 53 22 3A 99 22 |EN THE YEARS":."|
000036E0: 20 31 35 38 33 20 41 4E 44 20 32 34 30 30 2E 20 | 1583 AND 2400. |
000036F0: 54 48 45 20 53 49 44 45 52 45 41 4C 20 54 49 4D |THE SIDEREAL TIM|
00003700: 45 20 57 49 4C 4C 22 00 36 3F 6B 08 99 22 20 42 |E WILL".6?k.." B|
00003710: 45 20 46 4F 52 20 5A 45 52 4F 20 48 4F 55 52 53 |E FOR ZERO HOURS|
00003720: 20 47 52 45 45 4E 57 49 43 48 20 4D 45 41 4E 20 | GREENWICH MEAN |
00003730: 54 49 4D 45 2E 22 00 60 3F 70 08 99 22 11 11 11 |TIME.".`?p.."...|
00003740: 11 11 1F 20 20 20 20 20 20 20 20 20 20 20 20 45 |... E|
00003750: 4E 54 45 52 20 54 48 45 20 44 41 54 45 22 3A 8E |NTER THE DATE":.|
00003760: 00 9B 3F 75 08 99 22 11 11 11 1F 20 20 20 20 20 |..?u..".... |
00003770: 20 20 4D 4F 4E 54 48 20 20 20 20 44 41 59 20 20 | MONTH DAY |
00003780: 20 20 59 45 41 52 22 3A 99 A3 31 33 29 22 91 22 | YEAR":..13)"."|
00003790: 3B 3A 4E 55 B2 32 3A 4C 4E B2 32 00 C5 3F 7A 08 |;:NU.2:LN.2..?z.|
000037A0: 8D 31 39 33 30 3A 4D B2 C5 28 47 24 29 3A 99 A3 |.1930:M..(G$):..|
000037B0: 32 30 29 22 91 22 3B 3A 8D 31 39 33 30 3A 44 B2 |20)".";:.1930:D.|
000037C0: C5 28 47 24 29 00 E8 3F 7F 08 99 A3 32 38 29 22 |.(G$)..?....28)"|
000037D0: 91 22 3B 3A 4C 4E B2 34 3A 8D 31 39 33 30 3A 59 |.";:LN.4:.1930:Y|
000037E0: B2 C5 28 47 24 29 3A 8E 00 2D 40 84 08 99 22 93 |..(G$):..-@...".|
000037F0: 13 90 11 20 20 20 20 54 48 49 53 20 52 4F 55 54 |... THIS ROUT|
00003800: 49 4E 45 20 57 49 4C 4C 20 43 4F 4E 56 45 52 54 |INE WILL CONVERT|
00003810: 20 4C 4F 43 41 4C 20 22 3A 99 22 20 20 20 4D 45 | LOCAL ":." ME|
00003820: 41 4E 20 54 49 4D 45 20 54 4F 20 22 3B 00 71 40 |AN TIME TO ";.q@|
00003830: 89 08 99 22 20 47 52 45 45 4E 57 49 43 48 20 4D |..." GREENWICH M|
00003840: 45 41 4E 20 54 49 4D 45 2E 22 3A 99 22 20 20 20 |EAN TIME.":." |
00003850: 54 48 45 20 57 45 53 54 45 52 4E 20 47 45 4F 47 |THE WESTERN GEOG|
00003860: 52 41 50 48 49 43 20 4C 4F 4E 47 49 54 55 44 45 |RAPHIC LONGITUDE|
00003870: 22 00 AF 40 8E 08 99 22 20 20 20 4D 55 53 54 20 |"..@..." MUST |
00003880: 42 45 20 4B 4E 4F 57 4E 20 41 4E 44 20 45 4E 54 |BE KNOWN AND ENT|
00003890: 45 52 45 44 20 28 31 2D 31 38 30 22 3A 99 22 20 |ERED (1-180":." |
000038A0: 20 20 44 45 47 52 45 45 53 29 2E 90 22 3A 8E 00 | DEGREES)..":..|
000038B0: F6 40 93 08 99 22 93 13 90 11 20 20 20 57 48 45 |.@...".... WHE|
000038C0: 4E 20 59 4F 55 20 45 4E 54 45 52 20 41 20 4A 55 |N YOU ENTER A JU|
000038D0: 4C 49 41 4E 20 44 41 59 20 4E 55 4D 42 45 52 2C |LIAN DAY NUMBER,|
000038E0: 22 3A 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 |":." THIS PROG|
000038F0: 52 41 4D 20 22 3B 00 3D 41 98 08 99 22 52 45 54 |RAM ";.=A..."RET|
00003900: 55 52 4E 53 20 54 48 45 20 45 51 55 49 56 41 4C |URNS THE EQUIVAL|
00003910: 45 4E 54 22 3A 99 22 20 20 20 44 41 54 45 20 46 |ENT":." DATE F|
00003920: 4F 52 20 54 48 41 54 20 4E 55 4D 42 45 52 2E 20 |OR THAT NUMBER. |
00003930: 28 30 2D 32 34 38 38 30 36 39 29 90 22 00 43 41 |(0-2488069).".CA|
00003940: 9D 08 8E 00 85 41 A2 08 99 22 90 20 20 20 20 57 |.....A...". W|
00003950: 48 45 4E 20 59 4F 55 20 45 4E 54 45 52 20 41 20 |HEN YOU ENTER A |
00003960: 44 41 54 45 2C 20 54 48 49 53 20 50 52 4F 47 52 |DATE, THIS PROGR|
00003970: 41 4D 22 3A 99 22 20 52 45 54 55 52 4E 53 20 54 |AM":." RETURNS T|
00003980: 48 45 20 22 3B 00 CA 41 A7 08 99 22 4A 55 4C 49 |HE ";..A..."JULI|
00003990: 41 4E 20 44 41 59 20 4E 55 4D 42 45 52 20 46 4F |AN DAY NUMBER FO|
000039A0: 52 20 59 4F 55 52 22 3A 99 22 20 44 41 54 45 2E |R YOUR":." DATE.|
000039B0: 28 4A 41 4E 20 31 2C 34 37 31 33 20 42 43 20 54 |(JAN 1,4713 BC T|
000039C0: 4F 20 44 45 43 20 33 31 22 3B 00 DE 41 AC 08 99 |O DEC 31";..A...|
000039D0: 22 2C 32 30 39 39 20 41 44 29 90 22 3A 8E 00 0D |",2099 AD).":...|
000039E0: 42 B1 08 99 A3 31 31 29 22 1F 11 11 45 4E 54 45 |B....11)"...ENTE|
000039F0: 52 20 12 41 92 44 20 4F 52 20 12 42 92 43 20 3F |R .A.D OR .B.C ?|
00003A00: 20 22 3B 3A 4E 55 B2 31 3A 4C 4E B2 31 00 1E 42 | ";:NU.1:LN.1..B|
00003A10: B6 08 8D 31 39 33 30 3A 42 43 24 B2 47 24 00 4F |...1930:BC$.G$.O|
00003A20: 42 BB 08 8B 47 24 B3 B1 22 41 22 AF 47 24 B3 B1 |B...G$.."A".G$..|
00003A30: 22 42 22 A7 99 A3 31 31 29 22 91 20 20 20 20 20 |"B"...11)". |
00003A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00003A50: 72 42 C0 08 8B 47 24 B3 B1 22 41 22 AF 47 24 B3 |rB...G$.."A".G$.|
00003A60: B1 22 42 22 A7 99 22 91 91 91 22 3B 3A 89 32 32 |."B".."...";:.22|
00003A70: 32 35 00 78 42 C5 08 8E 00 AB 42 CA 08 99 22 93 |25.xB.....B...".|
00003A80: 11 11 11 11 11 11 11 20 20 20 20 20 20 59 4F 55 |....... YOU|
00003A90: 20 57 45 4E 54 20 45 41 52 4C 49 45 52 20 54 48 | WENT EARLIER TH|
00003AA0: 41 4E 20 34 37 31 33 20 42 43 22 00 B5 42 CF 08 |AN 4713 BC"..B..|
00003AB0: 8D 31 33 37 35 00 C5 42 D4 08 8B 47 24 B2 22 4D |.1375..B...G$."M|
00003AC0: 22 A7 33 36 35 00 D6 42 D9 08 8B 47 24 B2 22 41 |".365..B...G$."A|
00003AD0: 22 A7 89 39 32 35 00 1E 43 DE 08 99 22 90 20 20 |"..925..C...". |
00003AE0: 20 20 54 48 49 53 20 52 4F 55 54 49 4E 45 20 57 | THIS ROUTINE W|
00003AF0: 49 4C 4C 20 43 4F 4E 56 45 52 54 20 41 20 4A 55 |ILL CONVERT A JU|
00003B00: 4C 49 41 4E 22 3A 99 22 20 28 4F 4C 44 20 53 54 |LIAN":." (OLD ST|
00003B10: 59 4C 45 29 20 44 41 54 45 20 54 4F 22 3B 00 5E |YLE) DATE TO";.^|
00003B20: 43 E3 08 99 22 20 49 54 53 20 45 51 55 49 56 41 |C..." ITS EQUIVA|
00003B30: 4C 45 4E 54 22 3A 99 22 20 47 52 45 47 4F 52 49 |LENT":." GREGORI|
00003B40: 41 4E 20 28 4E 45 57 20 53 54 59 4C 45 29 20 43 |AN (NEW STYLE) C|
00003B50: 41 4C 45 4E 44 41 52 20 44 41 54 45 2E 22 00 8F |ALENDAR DATE."..|
00003B60: 43 E8 08 99 22 20 55 53 45 20 44 41 54 45 53 20 |C..." USE DATES |
00003B70: 46 52 4F 4D 20 54 48 45 20 59 45 41 52 53 20 31 |FROM THE YEARS 1|
00003B80: 20 54 4F 20 32 30 39 39 20 41 44 2E 22 3A 8E 00 | TO 2099 AD.":..|
00003B90: D7 43 ED 08 99 22 90 20 20 20 20 20 57 48 45 4E |.C...". WHEN|
00003BA0: 20 59 4F 55 20 45 4E 54 45 52 20 41 20 44 41 54 | YOU ENTER A DAT|
00003BB0: 45 20 42 45 54 57 45 45 4E 20 54 48 45 22 3A 99 |E BETWEEN THE":.|
00003BC0: 22 20 59 45 41 52 53 20 32 32 31 20 41 4E 44 20 |" YEARS 221 AND |
00003BD0: 32 33 37 36 2C 22 3B 00 19 44 F2 08 99 22 20 54 |2376,";..D..." T|
00003BE0: 48 49 53 20 52 4F 55 54 49 4E 45 20 57 49 4C 4C |HIS ROUTINE WILL|
00003BF0: 22 3A 99 22 20 52 45 54 55 52 4E 20 54 48 45 20 |":." RETURN THE |
00003C00: 53 59 4E 45 54 49 43 20 56 45 52 4E 41 4C 20 50 |SYNETIC VERNAL P|
00003C10: 4F 49 4E 54 20 41 4E 44 22 00 4A 44 F7 08 99 22 |OINT AND".JD..."|
00003C20: 20 54 48 45 20 41 59 41 4E 41 4D 53 41 20 46 4F | THE AYANAMSA FO|
00003C30: 52 20 54 48 45 20 44 41 54 45 20 59 4F 55 20 45 |R THE DATE YOU E|
00003C40: 4E 54 45 52 45 44 2E 22 3A 8E 00 7A 44 FC 08 99 |NTERED.":..zD...|
00003C50: 22 11 11 20 20 20 59 4F 55 52 20 45 4E 54 52 59 |".. YOUR ENTRY|
00003C60: 20 44 41 54 45 20 4D 55 53 54 20 4E 4F 54 20 42 | DATE MUST NOT B|
00003C70: 45 20 45 41 52 4C 49 45 52 22 00 A8 44 01 09 99 |E EARLIER"..D...|
00003C80: 22 20 20 20 54 48 41 4E 20 32 32 31 20 41 44 2C |" THAN 221 AD,|
00003C90: 20 4F 52 20 4C 41 54 45 52 20 54 48 41 4E 20 32 | OR LATER THAN 2|
00003CA0: 33 37 36 20 41 44 2E 22 00 B8 44 06 09 8D 32 34 |376 AD."..D...24|
00003CB0: 32 30 3A 89 31 30 35 30 00 FE 44 0B 09 99 22 93 |20:.1050..D...".|
00003CC0: 90 11 20 20 20 20 20 20 57 48 45 4E 20 59 4F 55 |.. WHEN YOU|
00003CD0: 20 45 4E 54 45 52 20 41 20 47 45 4F 47 52 41 50 | ENTER A GEOGRAP|
00003CE0: 48 49 43 41 4C 22 3A 99 22 20 20 20 4C 41 54 49 |HICAL":." LATI|
00003CF0: 54 55 44 45 2C 20 54 48 49 53 20 22 3B 3A 00 3C |TUDE, THIS ";:.<|
00003D00: 45 10 09 99 22 52 4F 55 54 49 4E 45 20 57 49 4C |E..."ROUTINE WIL|
00003D10: 4C 20 52 45 54 55 52 4E 22 3A 99 22 20 20 20 54 |L RETURN":." T|
00003D20: 48 45 20 47 45 4F 43 45 4E 54 52 49 43 20 45 51 |HE GEOCENTRIC EQ|
00003D30: 55 49 56 41 4C 45 4E 54 2E 22 3A 8E 00 59 45 15 |UIVALENT.":..YE.|
00003D40: 09 99 A3 39 29 22 44 45 47 52 45 45 53 20 20 20 |...9)"DEGREES |
00003D50: 20 4D 49 4E 55 54 45 53 22 00 8F 45 1A 09 99 A3 | MINUTES"..E....|
00003D60: 31 37 29 22 91 22 3B 3A 4C 4E B2 32 3A 4E 55 B2 |17)".";:LN.2:NU.|
00003D70: 32 3A 8D 31 39 33 30 3A 48 B2 C5 28 47 24 29 3A |2:.1930:H..(G$):|
00003D80: 99 A3 32 38 29 22 91 22 3B 3A 8D 31 39 33 30 00 |..28)".";:.1930.|
00003D90: A8 45 1F 09 4D B2 C5 28 47 24 29 3A 8D 32 30 34 |.E..M..(G$):.204|
00003DA0: 30 3A 4C 41 B2 48 3A 8E 00 E7 45 24 09 99 22 11 |0:LA.H:...E$..".|
00003DB0: 1F 20 53 45 4C 45 43 54 20 54 48 45 20 54 49 4D |. SELECT THE TIM|
00003DC0: 45 20 5A 4F 4E 45 20 4F 46 20 59 4F 55 52 20 52 |E ZONE OF YOUR R|
00003DD0: 45 53 49 44 45 4E 43 45 22 3A 99 A3 31 31 29 22 |ESIDENCE":..11)"|
00003DE0: 11 28 31 29 20 22 3B 00 21 46 29 09 99 22 41 54 |.(1) ";.!F).."AT|
00003DF0: 4C 41 4E 54 49 43 20 54 49 4D 45 22 3A 99 A3 31 |LANTIC TIME":..1|
00003E00: 31 29 22 28 32 29 20 45 41 53 54 45 52 4E 20 54 |1)"(2) EASTERN T|
00003E10: 49 4D 45 22 3A 99 A3 31 31 29 22 28 33 29 20 22 |IME":..11)"(3) "|
00003E20: 3B 00 5B 46 2E 09 99 22 43 45 4E 54 52 41 4C 20 |;.[F..."CENTRAL |
00003E30: 54 49 4D 45 22 3A 99 A3 31 31 29 22 28 34 29 20 |TIME":..11)"(4) |
00003E40: 4D 4F 55 4E 54 41 49 4E 20 54 49 4D 45 22 3A 99 |MOUNTAIN TIME":.|
00003E50: A3 31 31 29 22 28 35 29 20 22 3B 00 99 46 33 09 |.11)"(5) ";..F3.|
00003E60: 99 22 50 41 43 49 46 49 43 20 54 49 4D 45 22 3A |."PACIFIC TIME":|
00003E70: 99 A3 31 31 29 22 28 36 29 20 59 55 4B 4F 4E 20 |..11)"(6) YUKON |
00003E80: 54 49 4D 45 22 3A 99 A3 31 31 29 22 28 37 29 20 |TIME":..11)"(7) |
00003E90: 41 4C 41 53 4B 41 2D 22 3B 00 C1 46 38 09 99 22 |ALASKA-";..F8.."|
00003EA0: 48 41 57 41 49 49 22 3A 99 A3 31 31 29 22 28 38 |HAWAII":..11)"(8|
00003EB0: 29 20 4E 4F 4D 45 20 4F 52 20 42 45 52 49 4E 47 |) NOME OR BERING|
00003EC0: 22 00 D5 46 3D 09 A1 47 24 3A 8B 47 24 B2 22 22 |"..F=..G$:.G$.""|
00003ED0: A7 32 33 36 35 00 ED 46 42 09 8B 47 24 B3 22 31 |.2365..FB..G$."1|
00003EE0: 22 B0 47 24 B1 22 38 22 A7 32 33 36 35 00 FC 46 |".G$."8".2365..F|
00003EF0: 47 09 54 5A B2 C5 28 47 24 29 AA 33 00 18 47 4C |G.TZ..(G$).3..GL|
00003F00: 09 97 32 31 34 2C 36 3A 99 3A 81 49 B2 31 A4 31 |..214,6:.:.I.1.1|
00003F10: 33 3A 99 53 50 24 3A 82 00 1E 47 51 09 8E 00 50 |3:.SP$:...GQ...P|
00003F20: 47 56 09 97 32 31 34 2C 32 33 3A 99 3A 99 22 20 |GV..214,23:.:." |
00003F30: 20 20 20 20 20 20 52 45 54 55 52 4E 20 54 4F 20 | RETURN TO |
00003F40: 4C 4F 41 44 53 54 41 52 3F 20 28 59 2F 4E 29 22 |LOADSTAR? (Y/N)"|
00003F50: 00 6E 47 5B 09 A1 41 24 3A 8B 41 24 B3 B1 22 59 |.nG[..A$:.A$.."Y|
00003F60: 22 AF 41 24 B3 B1 22 4E 22 A7 32 33 39 35 00 7E |".A$.."N".2395.~|
00003F70: 47 60 09 8B 41 24 B2 22 4E 22 A7 31 38 30 00 B7 |G`..A$."N".180..|
00003F80: 47 65 09 9F 31 35 2C 38 2C 31 35 2C 22 52 30 3A |Ge..15,8,15,"R0:|
00003F90: 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 3D 48 45 |HELLO CONNECT=HE|
00003FA0: 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 3A 84 31 35 |LLO CONNECT":.15|
00003FB0: 2C 45 52 3A A0 31 35 00 CA 47 6A 09 8B 45 52 B3 |,ER:.15..Gj..ER.|
00003FC0: B1 36 33 A7 99 22 93 22 3A 80 00 E1 47 6F 09 93 |.63..".":...Go..|
00003FD0: 22 48 45 4C 4C 4F 20 43 4F 4E 4E 45 43 54 22 2C |"HELLO CONNECT",|
00003FE0: 38 00 15 48 74 09 97 32 31 34 2C 32 33 3A 99 3A |8..Ht..214,23:.:|
00003FF0: 99 22 20 20 20 20 20 20 20 20 50 52 45 53 53 20 |." PRESS |
00004000: 12 53 50 41 43 45 92 20 54 4F 20 43 4F 4E 54 49 |.SPACE. TO CONTI|
00004010: 4E 55 45 91 22 00 29 48 79 09 A1 47 24 3A 8B 47 |NUE.".)Hy..G$:.G|
00004020: 24 B2 22 22 A7 32 34 32 35 00 2F 48 7E 09 8E 00 |$."".2425./H~...|
00004030: 00 00 |.. |
.......AZ.0.AZ.1:."DR",8,1."....60.B....
".....";:.53281,3:.53280,3.O...L.C(F$):B
.951:.B,L.2:.B.L.1,44:.B.L.2,80......I.0
.L.1:.B.I.1,F(J(F$,I.1,1)):.:.909,1.....
.828:.198,0:FZ.0...#..214,23:.:.FQ.0..".
PRESS .SPACE. TO RETURN TO MENU.":.4
5.#.(..". .SPACE. FOR MORE .RETURN.
FOR MENU.".A.-..A$:.A$.." ".A$..G(13).4
5.T.2..A$.G(13).FZ.1.Z.7.....<.. .A(X)..
(X).(.(.(X)).(.(X)..(.(X))).100.60):PI.3
.14159265.I.A..JD$(22),M1$(13),M2$(13):.
.S(X)..(PI.180.X)...F...M(X).X.(.(X.360)
.360):..E(X).PI.180.X:..C(X).180.PI.X.P.
K.."1.00","100.00","200.00","300.01","40
0.01","500.02","600.03","700.04"...P.."8
00.04","900.05","1000.06",1100.07",1200.
07","1300.08","1400.09"...U.."1500.10","
1600.10","1700.11","1800.12","1900.13","
2000.13","2100.14"...Z..I.1.22:.JD$(I):.
.E._.."JAN000031","FEB031059","MAR059090
","APR090120","MAY120151","JUN151181"...
D.."JUL181212","AUG212243","SEP243273","
OCT273304","NOV304334","DEC334365"...I..
I.1.12:.M1$(I):....N.."JAN000031","FEB03
1060","MAR060091","APR091121",MAY"121152
","JUN152182".B.S.."JUL182213","AUG21324
4","SEP244274","OCT274305","NOV305335","
DEC335366".X.X..I.1.12:.M2$(I):....}.."A
ST04","EST05","CST06","MST07","PST08","Y
ST09","AHT10","BST11"......I.1.8:.TZ$(I)
:......HG$.G(142)."...... A S
T R O - C A L C".....HH$."... O.......
.........................P".L...HI$.".
. .".}..
.HJ$.". L.............................
....".....CR$.".........................
..............."... .SP$."
".....CD$."....
...................".0...HP$. "...
SELECT A NUMBER.".C...."...":.G(1
42).F....53280,15:.53281,15:."."G(144).O
....HG$......". .. MAIN ME
NU "...C..HH$.N.H.." . ..1. INST
RUCTIONS ..".W.M..HI$...R.."
. ..2. MATH FOR DEGREES .."
...W..HI$.B...." . ..3. TIME CON
VERSIONS ..".K....HI$.|...." .
..4. USEFUL FORMULAS .."....
..HI$......" . ..5. QUIT
..".D....HJ$:.HP$.W....G$:.G$
."".250......E(G$).1.E(G$).5.250......E(
G$).265,270,365,500,2390.,...F$."MM 1":F
Q.0:.15:.180.I....53280,15:.53281,15:.HG
$.Q....". .. MATH FOR DEGREES
".Z....HH$......" . ..1. INSTRUCTIONS
.."..."..HI$...'.." .
..2. DEGREES DEC > DEGREES,MIN,SEC.."...
,..HI$...1.." . ..3. DEGREES,MIN,SEC >
DEGREES DEC..".(.6..HI$.Y.;.." . ..4.
DEGREE CALCULATOR ..".B.@..H
I$...E.." . ..5. MAIN MENU
.."...J..HJ$...O..HP$...T..G$:.G
$."".340.Q.Y..E(G$).1.E(G$).5.340...^.."
.":.G(31):.E(G$).355,610,650,680,185...C
.F$."MD 1":FQ.0:.15...H..270.9.M..53280,
15:.53281,15:.HG$.C.R..". .. T
IME CONVERSIONS ..".L.W..HH$.U.|..HI$...
..." . ..1. INSTRUCTIONS
.."......HI$......" . ..2. LOCAL ME
AN TIME > G.M.T. .."......HI$......"
. ..3. SIDEREAL TIME OF DATE .
.".#....HI$.T...." . ..4. JULIAN DAY #
> DATE ..".]....HI$......" .
..5. DATE > JULIAN DAY # .."..
....HI$.H...." . ..6. JULIAN > GREGORI
AN CALENDAR ..".Q....HI$......" . ..7
. MAIN MENU .."...B..
HJ$...G..HP$.'.L..G$:.G$."".460.@.Q..E(G
$).1.E(G$).7.460.G.V..E(G$).475,735,820,
870,925,985,180.....F$."TC 1":FQ.1:.15:.
FZ.365. ...F$."TC 2":.15:.FZ.365.....F$.
"TC 3":.15:.FZ.365.Q...F$."TC 4":FQ.0:.1
5.Z....365......53280,15:.53281,15:.HG$.
.....". .. USEFUL FORMULAS ".
(....HH$.Y...." . ..1. INSTRUCTIO
NS ..".B....HI$......" .
..2. SYNETIC VERNAL POINT ..".....
.HI$.M...." . ..3. GEOG > GEOC LA
TITUDE ..".V....HI$...!.." . .
.4. INTERPOLATION .."...&..HI$
.A.+.." . ..5. MAIN MENU
..".J.0..HJ$.S.5..HP$.F.:..G$:.G$.
"".570..?..E(G$).1.E(G$).5.570...D..E(G
$).585,1050,1125,1165,180...I.F$."UF 1":
FQ.1:.15:.FZ.500.Z.N.F$."UF 2":.15:.FZ.5
00...S.F$."UF 3":FQ.0:.15...X..500...]..
CONVERT DEG DEC TO D,M,S.N.B.."......
THIS ROUTINE CONVERTS DEGREES DECIMAL".V
.G.."TO DEGREES, MINUTES AND SECONDS."..
.L.."... ENTER DEGREES DECIMAL ";:LN.
12:NU.2:.1930.E.Q.A.E(G$):.1330:.1355...
V..".. ";H$."D";M$."M";S$.
"S":.1375...{..G$."M".270......G$."A".61
0.8.... CONVERT D,M,S TO DEG DEC.K....".
... THIS ROUTINE CONVERTS DEGREES, MINUT
ES"......" AND SECONDS TO DEGREES DECIMA
L"......". ";:.1995:.2040.Q...."....
";H;" DEGREES":.1375......G$."A".65
0......G$."M".270......".. ..
DEGREE CALCULATOR .".D...."..
O.................P".J...." .
."......" L...
...............":SH$.""......"...";:.199
5...A..".":.2040:A.H:T.A.U.F...(H)..1.SH
$."."...K..1330:.1670:.1695:.1685...P..S
H$.".".A.A..1...U..1700.+.Z.ME.C:.1685:S
H$."":.1700.<.... LMT TO GMT.K....".":.2
180......"... ENTER LOCAL MEAN T
IME":.". ";:.2060.......15)"..1
. AM":..15)".2. PM":..15)".3. NOON".S...
..15)".4. MIDNIGHT"......2095:.214,10:.:
.I.0.4:.SP$:../...R%.4:D%.13:.1655:.".EN
TER THE LONGITUDE OF THE PLACE".P.....9)
".";:.2125:B.H:.H.0.B%.1.....C.B.4.60:.B
.0.A..(C).A.A.24:C$." (ONE DAY EARLIER)"
:A.A.C:.785.V...A.A.C:C$." (THE SAME DAY
)":.A..24.A.A.24:C$." (ONE DAY LATER)"..
...AP$." AM":.A.12.AP$." NOON"......A.12
.A.A.12:AP$." PM".*....A.0.A.12:AP$." MI
D".:. ..1330:.1355.K.%.."... ";" GMT
= .";H$.":";M$;AP$;C$:.1375.{.*..G$."A".
735.../..G$."M".365...4.. SIDEREAL TIME
FOR A DATE...9..".":.2145:.2165.V.>..Y.1
583..1855:.820...C..1420:JD.JD..5.&.H.X.
JD.365.2421988:Y.X..(X):Z.Y..67128:A.Z.2
4:A.A.12.03285.8.M..A..24.A.A.24.V.R..13
30:.1355:..7)"..SIDERIAL TIME = ".H$."H"
;M$."M";S$."S"...W..1375...\..G$."M".365
. .A..G$."A".820...F.. JULIAN DAY # TO A
DATE.M.K.."..":.2195...P.."...... EN
TER JULIAN DAY NUMBER ";:NU.2:LN.7:.193
0:JD.E(G$).,.U.." ..DATE =";:Z%.0.\.Z
..Z%.0..1555:E..(Y):.1475:JD.JD.U:Z%.1:.
1555.X...JD.2488082.WP%.2:.1615.....CO$
.",":Y$.D(.(Y)):DA$.D(DA):S$.".":DA$.DA$
.CO$. Y$.W...." ";MO$;DA$;BC$;" (NEW
STYLE)"......1375......G$."M".365......G
$."A".870...... DATE TO JULIAN DAY #.Q..
..".":.2210:..13)"..ENTER THE DATE":."..
";:.2165:.[...WP%.0.....CA$."N":.2225:.Y
.2099.BC$.."B".WP%.1:.1615......Y.4713.B
C$."B".WP%.1:.2250.V....1505:."........J
ULIAN DAY NUMBER =";JD......Y.2400.WP%.1
:.1615.. ..."........(FOR DAY BEGINNING
AT NOON)".A E.." FOR MIDNIGHT SUB
TRACT .5".K J..1375.[ O..G$."M".365.K T.
.G$."A".925.. Y.. JULIAN TO GREGORIAN CA
LENDAR.. ...".":.2270.. ....5)"...ENTER
THE JULIAN CALENDAR DATE":.2165:I.0:Y%.Y
:BC$."A".. ...M.1.M.2.Y..1000.Y.Y.1..!..
.M.3.D..24..Y..1000Y.Y.1.0!...Y.2400.WP%
.3:.1615.L!..." ... DATE (NS) =";:L
P.0:CA$."O":.1505:YD.365.25:..!..X.0:Z%.
1:E.Y%:.1475:JD.JD.U:.1555.L!..CO$.",":Y
$.D(.(Y)):DA$.D(DA):S$.".":DA$.DA$.CO$.
Y$..!..." ";MO$;DA$;BC$..!...1375..!..
.G$."M".365.."...G$."A".985.-"... A DATE
TO S.V.P. & AYANAMSA.C"...".":.2285:..1
4)"....ENTER A DATE ":.2165:BC$."A".Z"$.
.Y.221.Y.2376.2300..").CA$."N":.1505:.16
35.."..LN..M((933060.6962911.T.7.5.T.T).
3600):SY.(259205536.T.2013816).3600..#3.
SY.17.23..(.E(LN)).1.27..(.E(SY)).(5025.
64.1.11.T).T.E#8.SY..((SY.84038.27).3600
):SV.30.SY:A.SY:.1330.M#=..SY.30.SY.SY.3
0:SV.30.SY:A.SY:.1330..#B.FB$." (FAGAN-B
RADLEY)":."....AYANAMSA = ";.A#G..1355:.
H$."D";M$."M";S$."S";.FB$..#L..".... SY
NETIC VERNAL POINT = ";..$Q.A.SV:.1330:.
1355:.H$."D";M$."M";S$."S"..$V..1375.,$[
..G$."M".500.=$`..G$."A".1050.B$E.. CONV
ERT GEOG LAT TO GEOCENTRIC..$J..2315:..4
)"....ENTER THE GEOGRAPHICAL LATITUDE.."
:.2325..$O..H.0.H.90..1640..$T.GE.(695.6
5..S(2.LA)).(1.17..S(4.LA)):GE.GE.3600:L
A.LA.GE:A.LA:.1330.3%Y..1355:.".... GE
OCENTRIC LATITUDE = ";H$."D";M$."M".=%~.
.1375.M%...G$."M".500.^%...G$."A".1125..
%...G(28);".. . INTERPOLATION FOR TRANSI
TING PLANETS ";G(144)..%...".. ENTER THE
DATE THE TRANSIT WILL OCCUR.":R%.0:D%.0
:.1655..%...2165..&...Y.1583..1855:.1165
..&...1420:."...";:.2340.X&..R%.0:D%.4:.
1655:."...------------------------------
------."..&...I.1.8:.E(I(TZ$(I),2)).TZ.T
Z$.H(TZ$(I),3):I.8..&....T&...". ENTER T
HE LONGITUDE OF THE TRANSITING":." PLANE
T FOR THE ";..'..."DATE IT WILL OCCUR.":
..8);:.2325:T1.H..'...T1..30..1880:.1165
.I'D.."...------------------------------
------.":..'I..". ENTER THE DEGREE THE T
RANSITING PLANET":." MUST BE IN TO ";..'
N.."FORM AN ASPECT.":..8);:.2325:AS.H.M'
S..AS..30..1880:.1165..'X.."...---------
---------------------------.":..D(..."..
ENTER THE LONGITUDE OF THE TRANSITING":
." PLANET FOR THE ";.F(..."NEXT DAY.":..
8);:.2325:T2.H..(..."...----------------
--------------------.":..(...T2..30..188
0:.1165.Z(...".......THIS TRANSIT WILL O
CCUR ON":...(...T1.T2..1905:.1165..)...T
2.T1.T2.T2.30..)...AS.T1.AS.AS.30.-)...T
2.AS.T2.T2.30.C)..C.T2.T1:B.AS.T1:T3.B.2
4.C:.T3.TZ.T3.T3.24:JD.JD.1.V)..T3.T3.TZ
:.1435..)..AM$." AM":.T3.12.AM$." PM":T3
.T3.12:.T3.1.T3.T3.12..)..A.T3:.1330:.13
55:."..................";"AT ";..)...H$;
":";M$;AM$;" ";TZ$..*#..1375..*(..G$."A"
.1165.%*-..G$."M".500.9*2.SG%..(A):A..(A
).X*7.H..(A):M..((A..(A)).60):M1.(A..(A)
).60:S..(((M1.M).60)..5)..*<..S..60.S.S.
60:M.M.1..*A.H.H.SG%..*F....*K.H$.D(H):M
$.D(M):S$.D(S):H$.J(H$,2):M$.J(M$,2):S$.
J(S$,2)..*P..E(M$).10.M$."0".M$..+U..E(S
$).10.S$."0".S$..+Z...L+_..214,23:.:.".
.A.NOTHER .M.ENU .E.ND.".`+D
..G$:.G$."".1380.Q+I..G$."E".2390..+N..G
$."A".G$."M"....+S..1380..+X.SG%..(E(A$)
):H.E(I(A$,13)):H..(.(H))..+}.M..(E(I(A$
,5))):S..(E(I(A$,2))):M.M.(S.60)..,..H..
(H).(M.60):H.H.SG%..,....>,..X.12.(Y.480
0).M.3:Z.(2.(X..(X.12).12).7.365.X).12.K
,..W..(Z).D..(X.48).32083:.Z..2299171.65
535..,..JD.W..(X.4800)..(X.1200).38:JD.J
D..5:..Q,..X..(JD..5).68569:N..(4.X.1460
97):X.X..((146097.N.3).4)..- .Z..(4000.(
X.1).1461001):X.X..(1461.Z.4).31:W..(80.
X.2447).J-..V.X..(2447.W.80):X..(W.11):W
.W.2.12.X:U.100.(N.49).Z.X.O-..X$.D(V):.
E(X$).10.X$."0".I(X$,1)..-..D$."/".I(X$,
2)."/".I(D(U),4)..-..." "I(D(W),2)D
$:...-..M..(E(I(A$,10))):D..(E(I(A$,7)))
:Y.E(I(A$,4))..-......C..I.1.22:.E(JD$(I
))..E.1.X.E(JD$(I.1)):I.22...H...=.M.Z..
(X).100:X.X.100:U..((X.Z)..5).[.R..Y%..0
..Y%..0.Y%..99.U..2.|.W..Y%..0..Y%..100.
Y%..199.U..1...........E.Y:D1.D:M1.M....
..BC$."A".JD.4712.Y:JD.JD.365.25:H.JD...
...BC$."B".JD.4713.Y:JD.JD.365.25:H.JD..
/...JD..(JD).0.H.JD.1:LP.1:.1535.E/..H..
(H):M.1:D.0:Y.1951:.1420:JC.JD:M.M1:D.D1
:Y.1951:.1420.Z/...M..1.M..2.H.H.1../..H
..(H):M.1:D.0:Y.1952:.1420:JC.JD:M.M1:D.
D1:Y.1952:.1420../..DF.JD.JC:JD.H.DF.G/.
..CA$."N"..1475:JD.JD.U.M/...../..YD.365
.25:X%.0:X.0:Y%.0:BC$."":LP.0:A%.0:B%.0.
20..JC..(JD.YD):Y.JC.4712:.(JC.YD)..(JC.
YD).0.LP.1.>0...Z%.0...B0"..JD.1721424.B
C$." BC":Y.4713.JC..0'..LP.1.X.(JD.YD).J
C:DN..(X.366).1:.1600..0,.X.(JD.YD).JC:D
N..(X.365).1..01..I.1.12:A.E(J(M1$(I),4,
3)):B.E(J(M1$(I),7,3))..16..DN.A.DN..B.M
O$.J(M1$(I),1,3):DA.DN.A:I.12..1;..:..G1
@..I.1.12:A.E(J(M2$(I),4,3)):B.E(J(M2$(I
),7,3)).V1E..DN.A.DN..B.MO$.J(M2$(I),1,3
):DA.DN.A:I.12.~1J..:...1O.."...........
...YOU WENT PAST THE 21ST CENTURY"..1T..
1375.L1Y..G$."M".365..1^..G$."A".. WP%.9
25,870,985..2C.T.((JD.2415020).F.24..5).
36525:..?2H..". YOU ENTERED AN UNREALI
STIC LATUTUDE."..2M.." A LATITUDE CAN
ONLY BE BETWEEN ZERO":." AND 90 DEGREE
S."..2R..2420:.1125..2W.."."..2|..H(CR$,
R%);H(CD$,D%);..2.....2...1355:ME$.SH$.H
$."D".M$."M".S$."S":.214,3:.:..14)".";ME
$..3... ".":..13..R%.14:D%.3:.1655:."
":..A3..."......... (P)L
US (M)INUS (T)IMES"..3...". (D)IVI
DED BY (C)LEAR (B)ACK TO MENU"..3...21
4,10:.:.I.0.9:.SP$:.:..B3...X$:.X$."".17
00..3...X$."P"..1695:SG$.".":.1830:.1805
:SH$.""..4...X$."P".T.B.0.SH$."."..4...X
$."P".T.T.B:A.T.H4...X$."P"..1695:.1680:
.1330:.1670:.730.U4...X$."M"..1695:SG$."
C":.1830:.1805:SH$.""..4B..X$."M".T.B.0.
SH$."."..4G..X$."M".T.T.B:A.T.N4L..X$."M
"..1695:.1680:.1330:.1670:.730..4Q..X$."
T"..1695:SG$."V":.1830:.1845:T.T.B:A.T..
5V..X$."T".SH$."":.T.0.SH$.".".A5...X$."
T"..1680:.1330:.1670:.730.Q5...X$."D"..1
695:SG$."N":.1830:.1845:T.T.B:A.T..5...X
$."D".SH$."":.T.0.SH$."."..5...X$."D"..1
680:.1330:.1670:.730.D5...X$."C".680.T5.
..X$."B".270..5...1700..5..R%.1:D%.7:.16
55:.SP$..6..R%.1:D%.8:.1655:."."SP$.16..
R%.14:D%.22:.1655:.SP$;:..L6..D%.10:R%.0
:.1655:.1995.Z6...2040:B.H.T6..D%.11:R%.
8:.1655:.SP$..6..D%.13:R%.8:.1655:.SP$..
6!.D%.15:R%.8:.1655:.SP$:..J6&.D%.3:R%.2
7:.1655:.".";SG$:...6+..G$."P"..1695:A.C
..60.D%.6:R%.19:.1655:." ":..975..214,1
0:.::."ENTER A NUMBER ";:LN.6:NU.2:.193
0:B.E(G$).G7:.."."SP$:..S7?..". YOUR
DATE IS EITHER INCORRECTLY"..7D.." EN
TERED OR YOU ARE USING A DATE".G7I.."
EARLIER THAN 1583. USE A DATE"..7N.."
BETWEEN 1583 AND 2400...7S..2420:.."8X
..". YOUR DEGREE IS EITHER INCORRECTL
Y".I8].." ENTERED OR YOU ARE USING AN
".W8B.." UNREALISTIC DEGREE. USE FROM
1 MIN"..8G.." TO 29 DEGREES 59 MINUT
ES."..8L..2420:..V8Q.."........SINCE THE
PLANET HAS NOT MOVED"..8V.."....NO INTE
RPOLATION IS NEEDED.".%9{.."............
.......PRESS ANY KEY".99...G$:.G$."".192
0.G9...G$..""...X9...198,0:K$."".F9...".
. ..";..9...I.1.30:.:." .";:.J.1.10:...9
...G$:.G$."".1935..9..LS.C(K$)..9...G$.G
(13).G$.K$:.:...9...G$.G(20).LS.." ..";:
K$.H(K$,LS.1):.1935..:...NU.0..(G$." ".G
$."_").(G$."A".G$."Z").1935.K:...NU.1..(
G$."A".G$."Z").(G$."A".G$."Z").1935.U:..
.NU.2..(G$."0".G$."9").(G$..".").1935..:
...LS..LN.1935..:A..G$;:K$.K$.G$..:F..19
35..:K..I.217.242:.I,B(I).128:...:P...10
)".ENTER DEGREES ="..:U...10)".ENTER MIN
UTES ="..;Z...10)".ENTER SECONDS =".=;..
..26)".....";:NU.2:LN.3:.1930:H.E(G$).^;
....26)".";:LN.2:.1930:M.E(G$)..;....26)
".";:.1930:S.E(G$):.S..60.S.S.60:M.M.1..
;...M..60.M.M.60:H.H.1..;....H;..M.M.(S.
60):H.H.(M.60):...<..."ENTER MONTH (1-12
) ";:LN.2:NU.2:.1930:M.E(G$):..8<..."E
NTER DAY (1-31) ";:LN.2:NU.2:.1930:D
.E(G$):..P<..."ENTER YEAR (0-2400) ";:L
N.4:NU.2:.1930:Y.E(G$):..~<..LN.2:NU.2..
<..."HOURS MINUTES".J<....16)".";:.19
30:H.E(G$):..27)".";:.1930:M.E(G$)..<..:
.2040:A.H:..$= .. R%=14:D%=12:GOSUB30
80:PRINT" ":PRINTTAB(14)"
".E=%.. PRINTTAB(14)" ":PRI
NTTAB(10)" "..=*.. PRIN
TTAB(10)". ":RETURN..=/
..G$:.G$."".2095..=4..G$."1".G$."4".2095
.S=9..G$."3".A.12:...=>..G$."4".A.24:...
>C..G$."2".A.A.12:.A.24.A.A.12:...>H....
>M.LN.3:NU.2.7>R.."DEGREES MINUTES".
B>W...17)".";:.1930:H.E(G$):..29)".";:LN
.2.|>\..1930:M.E(G$):.2040:..C>A.."....
THIS ROUTINE WILL RETURN THE SIDEREAL":.
" TIME FOR A DATE";..?F.." BETWEEN THE Y
EARS":." 1583 AND 2400. THE SIDEREAL TIM
E WILL".6?K.." BE FOR ZERO HOURS GREENWI
CH MEAN TIME.".`?P.."...... E
NTER THE DATE":...?U..".... MONTH
DAY YEAR":..13)".";:NU.2:LN.2.E?Z.
.1930:M.E(G$):..20)".";:.1930:D.E(G$)..?
...28)".";:LN.4:.1930:Y.E(G$):..-@...".
... THIS ROUTINE WILL CONVERT LOCAL "
:." MEAN TIME TO ";.Q@..." GREENWICH M
EAN TIME.":." THE WESTERN GEOGRAPHIC L
ONGITUDE"..@..." MUST BE KNOWN AND ENT
ERED (1-180":." DEGREES)..":...@..."..
.. WHEN YOU ENTER A JULIAN DAY NUMBER,
":." THIS PROGRAM ";.=A..."RETURNS THE
EQUIVALENT":." DATE FOR THAT NUMBER.
(0-2488069).".CA.....A...". WHEN YOU
ENTER A DATE, THIS PROGRAM":." RETURNS T
HE ";.JA..."JULIAN DAY NUMBER FOR YOUR":
." DATE.(JAN 1,4713 BC TO DEC 31";..A...
",2099 AD).":...B....11)"...ENTER .A.D O
R .B.C ? ";:NU.1:LN.1..B...1930:BC$.G$.O
B...G$.."A".G$.."B"...11)".
".RB...G$.."A".G$.."B".."...";:.22
25.XBE....BJ.."........ YOU WENT EA
RLIER THAN 4713 BC"..BO..1375.EBT..G$."M
".365.VBY..G$."A"..925..C...". THIS R
OUTINE WILL CONVERT A JULIAN":." (OLD ST
YLE) DATE TO";.^C..." ITS EQUIVALENT":."
GREGORIAN (NEW STYLE) CALENDAR DATE."..
C..." USE DATES FROM THE YEARS 1 TO 2099
AD.":..WC...". WHEN YOU ENTER A DAT
E BETWEEN THE":." YEARS 221 AND 2376,";.
.D..." THIS ROUTINE WILL":." RETURN THE
SYNETIC VERNAL POINT AND".JD..." THE AYA
NAMSA FOR THE DATE YOU ENTERED.":..ZD...
".. YOUR ENTRY DATE MUST NOT BE EARLIE
R"..D..." THAN 221 AD, OR LATER THAN 2
376 AD."..D...2420:.1050..D..."...
WHEN YOU ENTER A GEOGRAPHICAL":." LATI
TUDE, THIS ";:.<E..."ROUTINE WILL RETURN
":." THE GEOCENTRIC EQUIVALENT.":..YE.
...9)"DEGREES MINUTES"..E....17)".";:
LN.2:NU.2:.1930:H.E(G$):..28)".";:.1930.
.E..M.E(G$):.2040:LA.H:...E$..".. SELECT
THE TIME ZONE OF YOUR RESIDENCE":..11)"
.(1) ";.!F).."ATLANTIC TIME":..11)"(2) E
ASTERN TIME":..11)"(3) ";.[F..."CENTRAL
TIME":..11)"(4) MOUNTAIN TIME":..11)"(5)
";..F3.."PACIFIC TIME":..11)"(6) YUKON
TIME":..11)"(7) ALASKA-";.AF8.."HAWAII":
..11)"(8) NOME OR BERING".UF=..G$:.G$.""
.2365..FB..G$."1".G$."8".2365..FG.TZ.E(G
$).3..GL..214,6:.:.I.1.13:.SP$:...GQ...P
GV..214,23:.:." RETURN TO LOADSTAR
? (Y/N)".NG[..A$:.A$.."Y".A$.."N".2395.~
G`..A$."N".180..GE..15,8,15,"R0:HELLO CO
NNECT=HELLO CONNECT":.15,ER: 15.JGJ..ER.
.63..".":...GO.."HELLO CONNECT",8..HT..2
14,23:.:." PRESS .SPACE. TO CONTI
NUE.".)HY..G$:.G$."".2425./H~.....
> CLICK IMAGE PREVIEW FOR FULL MODAL