> ******************************************************{ * ASTRO-CALC FOR COMMODORE 128 IN 80 COLUMNS * * BY ROGER C YGBUHAY 8/15/87 * ******************************************************NWE$(7),MO$(12),A$(38):%:.,.,79,24:6,7:5,2:WE$(5)"RIDAY":WE$(6)"ATURDAY":5MO$(10)"CTOBER":MO$(11)"OVEMBER":MO$(12)"ECEMBER":WE$(.)"UNDAY":WE$(1)"ONDAY":WE$(2)"UESDAY":WE$(3)"EDNESDAY":WE$(4)"HURSDAY"xMO$(1)"ANUARY":MO$(2)"EBRUARY":MO$(3)"ARCH":MO$(4)"PRIL":MO$(5)"AY":MO$(6)"UNE":MO$(7)"ULY":MO$(8)"UGUST":MO$(9)"EPTEMBER":(14) "", " STRO-ALC BY OGER . GBUHAY " "":.,4,79,24,1 ***** MAIN MENU *****G A$(1)"IME":A$(2)"OORDINATE SYSTEMS":A$(3)"HE SUN":A$(4)"HE PLANETS, COMETS AND BINARY STARS":A$(5)"HE MOON AND ECLIPSES":A$(7)"UIT":SS1 A$(6)"STRO-ALCULATOR":.,3,79,24,1:.,1,79,24:"":QQ7:XZ1:105:XZ. SS100,600,3000,4000,6000,50,40 (.,.,79,24,1:"THER PROGRAMS BY OGER . GBUHAY:"#!)""5)"OREIGN XCHANGE (128)"L!*5)"ILL OR UST (128/64)"u!+5)"ASTERMIND (128/64)"!-"OUND IN -INK UNDER THE ALIAS HESSDUDE."!."":!2"ASTRO-CALCULATOR"!d.,4,79,24,1:.,.,79,24:""z"eA$(1)"HE DATE OF ASTER":A$(2)"ATE TO DAY NUMBER":A$(3)"ULIAN DAY NUMBER":A$(4)"ULIAN DAY NUMBER TO CALENDAR DATE" #fA$(5)"AY OF THE WEEK":A$(6)" TO DECIMAL HOURS":A$(7)"ECIMAL HOURS TO HHMMSS":A$(8)"IME CONVERSIONS":A$(9)"AIN MENU":SS1:QQ9$#i(18)""A$(1)(146):#jA2QQ:A$(A):Aa#kA$:A$""A$""A$(13)107v#lA$(13)XZ1#mA$(13).,4,79,24:SS152,170,195,240,270,300,330,5100,20#n"":A1SS2:(17)"":A:A$(SS)$oA$""SSSS1:SSQQSS1 $pA$""SSSS1:SS1SSQQX$s"":A1SS2:(17)"":A:(18)A$(SS)(146):107y$ ***** DATE OF EASTER *****$"HE DATE OF ASTER:"$"EAR ";YE:YE(YE)$AYE((YE19))19$B(YE100):CYEB100$D(B4):EBD4%F((B8)25):G((BF1)3)>%H19ABDG15:HH((H30))30S%I(C4):KCI4w%L322E2IHK:LL((L7))7%M((A11H22L)451)%NHL7M114:PN((N31))31:N(N31)%DAP1:MON%""20)MO$(MO)DA","YE%2000&A$(SS)"YES"152:1007& ***** DATE TO DAY NUMBER *****T&"ATE TO DAY NUMBER"&"ONTH NUMBER ";MO:""13)":":"AY ";DA:""13)":"&T112:T24&"EAP YEAR ? YES NO":2015&A$"N"""10)" : NO "'A$"Y"""10)" : YES"'MO2183+'M1MO1:M2M163@'A$"Y"M2M162U'M3M22:M4(M3)^'187j'M1MO1y'M2M130.6'M3(M2):M4M363'A$"Y"M4M362'DNM4DA:XX1'"AY NUMBER IS"DN'2000'A$(SS)"YES"172:100( ***** JULIAN DAY *****0("ULIAN DAY NUMBER:"[("EAR ";YE:""6)":":YE.YEYE1w("ONTH ";MO:""6)":"("AY ";DA:""6)":"(Y1YE:M1MO(MO1MO2Y1YE1:M1MO12(B.:YE1582216(YE1582MO10216 )YE1582MO10DA15216)2203)A(Y1100):B2A(A4)Z)C(365.25Y1):D(30.6001(M11))t)JDBCDDA1720994.5)XX1)""18)JD)"":2000)A$(SS)"YES"200:100)100*"ULIAN DAY TO CALENDAR DATE": ** JULIAN DAY CALENDAR DATE *:*"ULIAN DAY ";JD:""11)":":J1JD.5M*I(J1):FJ1Ij*I2299160AI:BI:250*A((I1867216.25)36524.25)*BI1A(A4)*CB1524:D((C122.1)365.25)*E(365.25D)*G((CE)30.6001)+DACEF(30.6001G)+G13.5MOG1++G13.5MOG139+G13.5O+MO2.5YED4716e+MO2.5YED4715s+MO2.5+YE.YEYE1+"HE DATE IS "MO$(MO)DA","YE+ 2000+ A$(SS)"YES"240:100+ ***** DAY OF THE WEEK ***** ,"AY OF THE WEEK:">,"O YOU KNOW ? YES NO":T117:T24:2015N,A$"Y"285," ":"EAR ";YE:""6)":","ONTH ";MO:""6)":","AY ";DA:DA(DA):""6)":",XX1:210:XX.:290-" ":"ULIAN DAY ";JD6-"A(JD1.5)7:A1A(A):A2A17S-#A2(A2).5A21(A2)m-$A2(A2).5A2(A2)w-%WEA2-&""17)WE$(WE)-'"":2000-)A$(SS)"YES"275:100-, ***** HHMMSS TO DEC. HOURS *****.2" TO DECIMAL HOURS"/.3"OUR ";HR:""8)":":HR12XE1318?.4HR12313.5"NOON MIDNIGHT":A$(1)"NOON":A$(2)"MIDNIGHT":T1.:T25:2016.6A$(SS)"NOON"A$"N":A$"M".7A$"M"HR.:""13)"MIDNIGHT":" ":318/8""13)"NOON":" ":318U/9" ":T1.:T24:A$(1)" ":A$(2)" ":2016:2025j/;A$"P"HRHR12/<A$"P"""13)"..":" "/=A$"A"""13)"..":" "/>"INUTES ";MI:""8)":":HR0MIMI10?"ECONDS ";SE:""8)":":MI0SESE1>0@DHHRMI60SE3600:XX1P0A"IME IS"DHZ0B2000u0DA$(SS)"YES"306:1000J ***** DEC. HOURS TO HHMMSS *****0L"ECIMAL HOURS TO Ӓ"0M"IME ";DH:""5)":"0NHR(DH)1OM1DHHR:M2M160:MI(M2)#1PSE((M2MI)60):XX1>1T6)HR"H"MI"M"SE"S"H1Y2000c1[A$(SS)"YES"332:1001] ***** LOCAL TIME TO GMT *****1_"OCAL TIME TO Ԓ"1`"OCAL TIME IN HHMMSS ? YES NO":T123:T24:20152b"OCAL TIME "(2cA$"Y"XX1:"":307:XX.:357K2d"OCAL TIME ";DH:""11)":"2e"AYLIGHT SAVINGS TIME ? YES NO":T124:T24:20152gD1DH:A$"N"A$"-"""22)": NO "2hA$"Y"D1DH1:""22)": YES "2i"ONE CORRECTION ";ZC:""16)":" 3jD1D1ZC$3kD124D1D124:363<3lD1.D1D124:364l3mYYD1:2005:G1F1:G2F2:G3F3:GHD1:XC13n" IS"G1"H"G2"M"G3"S"3o" OR"GH3r20003tA$(SS)"YES"351:1003 ***** GMT TO LOCAL TIME *****4" TO LOCAL CIVIL TIME":4" IN HHMMSS ? YES NO":T116:T24:2015h4" ":""4A$"Y"XX1:307:XX.:GHDH:4084"IME ";GH:""5)":"4"ONE CORRECTION ";ZC:""16)":"4LTGHZC:1640:XP14144XC1417A5XC1"AYLIGHT SAVINGS TIME ? YES NO":T124:T24:2015:414G5f5A$"N"""22)": NO "5A$"Y"""22)": YES ":LTLT15LT24LTLT24:416:ՋLT0LTLT24:4165YYLT:2005:L1F1:L2F2:L3F3:XB1 6"OCAL TIME IS"L1"H"L2"M"L3"S",6" OR"LT:XA1662000Q6A$(SS)"YES"402:100n6 ***** GMT TO GST *****6" TO Ԓ"6XX1:173:XX.6"EAR ";YE:""13)":"6A1.0657098DN7XX1:M1MO:D1DA:MO1:DA.:210:XX.:MOM1:DAD1I7SJD2415020:TS36525:R6.6460656(2400.051262T)(.00002581TT)w7UR(24(YE1900)):B24U:XK1T0A1B:7T0A1B:XA14457" IN HHMMSS ? YES NO":T116:T24:20157" "8A$"Y"XX1:"":307:XX.:GHDH:44558" ";GH:""4)":"G8CGH1.002738S8GST0Cl8GS24GSGS24:4478GS.GSGS24:4488YYGS:2005:G1F1:G2F2:G3F3:XA1XB18" IS"G1"H"G2"M"G3"S"8" OR"GS:XA1820009A$(SS)"YES"432:100.9 ***** GST TO GMT *****C9" TO Ԓ"V9XX1:173:XX.z9"EAR ";YE:""13)":"9A1.0657098DN9XX1:M1MO:D1DA:MO1:DA.:210:XX.:MOM1:DAD1 :SJD2415020:TS36525:R6.6460656(2400.051262T)(.00002581TT)F:UR(24(YE1900)):B24U:XB1T0A1B:1645:5155:475X:T0A1B:1645:XA1" IN HHMMSS ? YES NO":T116:T24:2015:472::" ":"":A$"Y"XX1:307:XX.:GSDH:475;"IME ";GS:""5)":"';GMGST0:16479;GMGM.997270h;YYGM:2005:G1F1:G2F2:G3F3:XA1XC1;" IS"G1"H"G2"M"G3"S";" OR"GM:XA1;2000;A$(SS)"YES"462:100; ***** GST TO LST *****;" TO Ԓ"*<" IN HHMMSS ? YES NO":T116:T24:2015I<" "u<A$"Y"XX1:"":307:XX0:GSDH:498<" ";GS:""4)":":XK1<XK1<"ONGITUDE DIFFERENCE IN DDMMSS ? YES NO":T24:T133:2015="ONGITUDE DIFFERENCE "'=A$"N"506@="":XX1:723:XX0R=DEDE15:507|="ONGITUDE ";DE:""10)":":DEDE15="WEST EAST":A$(1)"WEST":A$(2)"EAST":T10:T25:SS1:2016=A$(SS)"WEST"A$"W":A$"E">A$"W"LSGSDE:"EST "&>A$"E"LSGSDE:"AST "?>LS24LSLS24:511W>LS0LSLS24:512>YYLS:2005:L1F1:L2F2:L3F3:XB1>" IS"L1"H"L2"M"L3"S">" OR"LS:XA1>2000>A$(SS)"YES"492:100> ***** LST TO GST *****? "ԠTO Ԓ"C? " IN HHMMSS ? YES NO":T116:T24:2015i? " ":""? A$"Y"XX1:307:XX0:LSDH:527?"IME ";LS:""5)":"?"ONGITUDE DIFFERENCE IN DDMMSS ? YES NO":T133:T24:2015@"ONGITUDE DIFFERENCE ".@A$"N"535G@"":XX1:723:XX0Y@DEDE15:536@"ONGITUDE ";DE:""10)":":DEDE15@"WEST EAST":A$(1)"WEST":A$(2)"EAST":T10:T25:SS1:2016@A$(SS)"WEST"A$"W":A$"E"AA$"W"GSLSDE:"EST "8AA$"E"GSLSDE:"AST "QAGS24GSGS24:540iAGS0GSGS24:541AYYGS:2005:L1F1:L2F2:L3F3:XA1A" IS"L1"H"L2"M"L3"S"A " OR"GSA!2000A#A$(SS)"YES"521:100BW ***** COORDINATE SYSTEMS *****4BX.,4,79,24,1:.,1,79,24:""BYA$(1)"ECIMAL DEGREES TO DDMMSS":A$(2)" TO DECIMAL DEGREES":A$(3)"OUR ANGLE TO DEGREES":A$(4)"EGREES TO HOUR ANGLE"CZA$(5)"IGHT ASCENSION TO HOUR ANGLE":A$(6)"OUR ANGLE TO RIGHT ASCENSION"*C[A$(7)"OORDINATE CONVERSION"ZC\A$(8)"NGLE BETWEEN TWO CELESTIAL OBJECTS"C]A$(9)"ISING AND SETTING OF A STAR":A$(10)"RECESSION":A$(11)"EFRACTION OF OBJECTS":A$(12)"ORRECTION FOR PARALLAX"4D^A$(13)"TMOSPHERIC EXTINCTION":A$(14)"AIN MENU":SS1:QQ14:XZ1:105:XZ.:.,4,79,24zD_SS701,721,741,761,781,821,5200,1245,1300,1161,1400,1490,1431,20D ***** DEC DEG TO DDMMSS *****D"ECIMAL DEGREES TO Ӓ"D"EGREES ";DE:""8)":"EYYDE:2005:DDF1:MMF2:SSF3'E" IS"DD"D"MM"M"SS"S"1E2000GEA$(SS)"YES"701PE600tE ***** DDMMSS TO DEC DEG *****E" TO DECIMAL DEGREES"E"EGREES ";DD:""8)":"E"INUTES ";MM:""8)":":DD0MMMM1F"ECONDS ";SS:""8)":":MM0SSSS11FDEDDMM60SS3600:XX1FF"EGREES IS"DEPF2000kFA$(SS)"YES"721:600F ***** HOURS ANGLES TO DEGREES *****F"OUR ANGLES TO DEGREES"F"OUR ANGLE IN HHMMSS ? YES NO":T24:T123:2015G" ":"",GA$"N"751IGXE1:XX1:307:XE0:XX0aGHRDH:DEHR15:752G"OUR ";HR:""5)":":DEHR15GDE360DEDE360:752:ՋDE0DEDE360:752:753GYYDE:2005:DDF1:MMF2:SSF3H"EGREES IS"DD"D"MM"M"SS"S"H" OR"DE"D"%H2000@HA$(SS)"YES"741:600^H * DEGREES TO HOUR ANGLE~H"EGREES TO HOUR ANGLE"H"EGREES IN DDMMSS ? YES NO":T24:T120:2015H" ":""HA$"N"771IXX1:723:XX0IHRDE15:772:I"EGREE ";DE:""7)":":HRDE15hIHR24HRHR24:772:ՋHR0HRHR24:772IYYHR:2005:HOF1:HMF2:HSF3I"OUR ANGLE IS"HO"H"HM"M"HS"S"I" OR"HR"H"I2000I A$(SS)"YES"761:600J  ***** RIGHT ASC TO HOUR ANGLE *****DJ"IGHT ASCENSION TO HOUR ANGLE"}J" ԠOR ԠKNOWN ? YES NO":T123:T24:2015JA$"Y"815J"Ԓ ":A$(1)"":A$(2)"":A$(3)"":2030J940K" ":950:A$"N"7927KXX1:"":307:XX0:793RK"IME ";DH:""5)":"cKB$"1"795|KGHDH:XA1:433:XA0KB$"3"LSDH:798KB$"2"GSDHK40,5,79,24:XB1:498:XB0:XD1KXD:ՙ"IGHT ASCENSION HHMMSS ? YES NO"LT24:T125:2015WL "IGHT ASCENSION ":A$"2"802L!XX1:"":XE1:307:XX0:RADH:XE0:803L""IGHT ASCENSION ";RA:""16)":"L#HALSRAL$HA0HAHA24L%YYHA:2005:H1F1:H2F2:H3F3$M&0,18,79,24:"OUR ANGLE IS"H1"H"H2"M"H3"S";M'" OR"HAKM(2000:B$""fM*A$(SS)"YES"781:600M/"OCAL TIME ":XC1:"":352:XC0M0DHGH:794M5 ***** HOUR ANGLE TO RIGHT ASCENSION *****N6"OUR ANGLE TO RIGHT ASCENSION"N7XD1:783:XD0TN8"OUR ANGLE IN HHMMSS ? YES NO":T24:T123:2015N:"OUR ANGLE ":A$"N"828N;XX1:"":XE1:307:XX0:HADH:XE0:829N<"OUR ANGLE ";RA:""11)":"N=RALSHAN>RA0RARA24O?YYRA:2005:R1F1:R2F2:R3F3SO@0,18,79,24:"IGHT ASCENSION IS"R1"H"R2"M"R3"S"oOA" OR"RAOB2000:B$""ODA$(SS)"YES"821:600OI ***** EQUATORIAL TO HORIZON COORD *****OJ"QUATORIAL TO HORIZONTAL COORDINATES"0PK"OUR ANGLE IN HHMMSS ? YES NO":T24:T123:2015VPM"OUR ANGLE "fPNA$"N"851PO"":XX1:XE1:307:XX0:XE0PRHADH:852PS" ":"":"OUR ANGLE ";HA:""11)":"PTHAHA15"QU"ECLINATION IN DDMMSS ? YES NO":T24:T124:2015IQW"ECLINATION: "YQXA$"N"861xQY"":XX1:723:XX0:DCDEQ\862Q]" ":"":"ECLINATION ";DE:""12)":":DCDEQ^40,5,79,24R_"BSERVER LATITUDE IN DDMMSS ? YES NO":T24:T130:2015PR`"BSERVER LATITUDE ":""`RaA$"N"870sRbXX1:723:XX0ReLADE:871Rf"BSERVER LATITUDE ";LA:""18)":"RgDEDC:A((DE180))((LA180))((DE180))((LA180))((HA180))ShAL(A(AA1))KSiB((DE180)(LA180)A)((LA180))((AL))fSjAZ(B(BB1))2Sk(HA180)0AZ2AZSlALAL180:AZAZ180SmYYAL:2005:AL(1)F1:AL(2)F2:AL(3)F3SnYYAZ:2005:AZ(1)F1:AZ(2)F2:AZ(3)F3:XA18To0,16,79,24:"ZIMUTH IS"AZ(1)"D"AZ(2)"M"AZ(3)"S"LTp" OR"AZ{Tq"LTITUDE IS"AL(1)"D"AL(2)"M"AL(3)"S"Tr" OR"AL:XA1Ts2000TuA$(SS)"YES"841:600Tz ***** HORIZON TO EQUTORIAL COORDINATES *****U{"ORIZON TO EQUATORIAL COORDINATES"RU|"ZIMUTH IN DDMMSS ? YES NO":T24:T120:2015uU~"ZIMUTH "UA$"N"900U"":XX1:723:XX0UAZDE:901U"ZIMUTH ";AZ:""8)":"V"LTITUDE IN DDMMSS ? YES NO":T24:T121:2015'V"LTITUDE "7VA$"N"909PV"":XX1:723:XX0_VALDE:910V"LTITUDE ";AL:""9)":"V40,5,79,24:"BSERVER LATITUDE IN DDMMSS ? YES NO":T24:T130:2015V"BSERVER LATITUDE " WA$"N"918"W"":XX1:723:XX01WLADE:919[W"BSERVER LATITUDE ";LA:""18)":"WA((AL180))((LA180))((AL180))((LA180))((AZ180))WDE(A(AA1))WHA((AL180)(LA180)A)((LA180))(DE)+XHA(HA(HAHA1))2:(AZ180)0HA2HAPXDEDE180:HAHA180:HAHA15iXHA24HAHA24:924XHA0HAHA24:925XYYDE:2005:DE(1)F1:DE(2)F2:DE(3)F3XYYHA:2005:HA(1)F1:HA(2)F2:HA(3)F3:XA1Y0,16,79,24:"OUR ANGLE IS"HA(1)"H"HA(2)"M"HA(3)"S"4Y" OR"HAfY"ECLINATION IS"DE(1)"D"DE(2)"M"DE(3)"S"~Y" OR"DEY2000YA$(SS)"YES"890:600Y" "ZB$"1"" IN HHMMSS ? YES NO":T24:T116:2015:=ZB$"2"" IN HHMMSS ? YES NO":T24:T116:2015:yZB$"3"" IN HHMMSS ? YES NO":T24:T116:2015:ZB$"1"""ZB$"2"""ZB$"3"""ZZ ***** ECLIPTIC TO EQUATORIAL COORDINATES *****["CLIPTIC TO EQUATORIAL COORDINATES"^["CLIPTIC LONGITUDE IN DDMMSS ? YES NO":T24:T131:2015[" ":"CLIPTIC LONGITUDE"[A$"N"1011["":XX1:723:XX.[E1DE:1012\"CLIPTIC LONGITUDE ";E1:""19)":"U\40,5,79,24:"CLIPTIC LATITUDE IN DDMMSS ? YES NO":T24:T130:2015f\A$"N"1020\" ":"CLIPTIC LATITUDE"\"":XX1:723:XX.\E2DE:1021']" ":"CLIPTIC LATITUDE ";E2:""18)":">].,10,79,24:1050]A((E2180))((EC180))((E2180))((EC180))((E1180))]DE(A(AA1)):DEDE180^Y((E1180))((EC180))((E2180))((EC180)):X(E1180):AL(YX)^X.Y.ALAL,^X.Y.ALALE^ALAL180:RAAL15^^RA.RARA24:1028x^RA24RARA24:1029^XA1^YYRA:2005:RA(1)F1:RA(2)F2:RA(3)F3:XV1.,13,79,24,1^ YYDE:2005:DE(1)F1:DE(2)F2:DE(3)F3:XH1-_ "IGHT ASCENSION IS"RA(1)"H"RA(2)"M"RA(3)"S"I_ " OR"RA{_ "ECLINATION IS"DE(1)"D"DE(2)"M"DE(3)"S"_ " OR"DE:XB1_2000_A$(SS)"YES"1001:600_ ***** MEAN OBLIQUITY OF ECLIPTIC ***** `"EAR ";YE:""5)":"&`MO1:DA.:YE0YEYE19`XX1:210:XX.R`T(JD2415020)36525`E(46.845T.0059TT.00181TTT)3600` EC23.452294E`!`% ***** EQUATORIAL TO ECLIPTIC COORDINATES *****`&"QUATORIAL TO ECLIPTIC COORDINATES"4a'"ECLINATION IN DDMMSS ? YES NO":T24:T124:2015ra)" ":"ECLINATION"a*A$"N"1071a+"":XX1:723:XX.a.1072a/"ECLINATION ";DE:""12)":"b040,5,79,24:"IGHT ASCENSION IN HHMMSS ? YES NO":T24:T128:2015&b2A$"N"1080eb3" ":"IGHT ASCENSION"b4"":XX1:XE1:307:XX.:XE.b7RADH:RARA15:1081b8" ":"IGHT ASCENSION ";RA:""16)":":RARA15c9.,10,79,24:1050\c:A((DE180))((EC180))((DE180))((EC180))((RA180))rc;E2(A(AA1))c<E2E2180c=Y((RA180))((EC180))((DE180))((EC180))c>X(RA180)c?E1(YX)c@X.Y.E1E1 dBX.Y.E1E1dCE1E1180ZdDYYE1:2005:E1(1)F1:E1(2)F2:E1(3)F3:XV1.,13,79,24,1dEYYE2:2005:E2(1)F1:E2(2)F2:E2(3)F3dF"CLIPTIC LONG. IS"E1(1)"D"E1(2)"M"E1(3)"S"dG" OR"E1 eH"CLIPTIC LAT. IS"E2(1)"D"E2(2)"M"E2(3)"S"+eI" OR"E2:XA15eJ2000QeLA$(SS)"YES"1061:600eW ***** EQUATORIAL TO GALACTIC COORDINATES *****eX"QUATORIAL TO GALATIC COORDINATES"eYXF1:1191:1178:N1RA:N2DE:XF.:XA1fZ"IGHT ASCENSION IN HHMMSS ? YES NO":T24:T128:2015]f\" ":"IGHT ASCENSION"of]A$"Y"1122f^"":XX1:XE1:307:XX.:XE.faRADH:RARA15:1124fb"IGHT ASCENSION ";RA:""16)":"fcRARA15'gd40,8,79,24:"ECLINATION IN DDMMSS ? YES NO":T24:T124:2015_gf" ":"ECLINATION "qggA$"Y"1132gh"":XX1:723:XX.gk1133gl"ECLINATION ";DE:""12)":"hmA(DE180)(N2180)(RA180N1180)(DE180)(N2180)hnB(A(AA1))8hoY(DE180)A(N2180)khpX(DE180)(RA180N1180)(N2180)yhqBB180hrL(YX)hsX.Y.LLhuX.Y.LLhvLL180:LL33hwYYB:2005:B1F1:B2F2:B3F3ixYYL:2005:L1F1:L2F2:L3F3:XA1:.,13,79,24@iy"ALACTIC LAT"B1"D"B2"M"B3"S"Uiz" OR"B}i{"ALACTIC LONG"L1"D"L2"M"L3"S"i|" OR"L:XA1i}2000iA$(SS)"YES"1111:600i ***** PRECESSION *****i"RECESSION":11937j"IGHT ASCENSION IN HHMMSS ? YES NO":T24:T128:2015bj"IGHT ASCENSION "tjA$"Y"1169jXE1:XX1:"":307:XE.:XX.:RADHjRARA15:1170j"IGHT ASCENSION ";RA:""16)":":RARA15(k40,5,79,24:"ECLINATION IN HHMMSS ? YES NO":T24:T124:2015Ok"ECLINATION "akA$"Y"1176zk"":XX1:723:XX.k1177k"ECLINATION ";DE:""12)":"k.,10,79,24:"EW EPOCH YEAR ";YE:""15)":"kNNYEY1(lS1(MN(RA180)(DE180))NN:S2(NP(RA180))NNBlS1S13600:S2S23600ylRARA15S1:YYRA:2005:RA(1)F1:RA(2)F2:RA(3)F3lDEDES2:YYDE:2005:DE(1)F1:DE(2)F2:DE(3)F3:XF1RARA15:l"IGHT ASCENSION IS"RA(1)"H"RA(2)"M"RA(3)"S"m" OR"RABm"ECLINATION IS"DE(1)"D"DE(2)"M"DE(3)"S"Zm" OR"DEdm2000mA$(SS)"YES"1161:600mRA1921560:DE272460:M3.07327:N1.33617:NP20.0426:Y11950n"ORTH GALACTIC POLE":"":"POCH YEAR ";YE:""11)":":%n"LD COORDINATE EPOCH:"en5)"1900.0":5)"1950.0":5)"1975.0":5)"2000.0":2040nA$"1"M3.07234:N1.33646:NP20.0468:Y11900nA$"2"M3.07327:N1.33617:NP20.0426:Y11950nA$"3"M3.07374:N1.33603:NP20.0405:Y119751oA$"4"M3.07420:N1.33589:NP20.0383:Y12000\o"RECESSION OF"Y1" COORDINATES":o***** GALACTIC TO EQUATORIAL COORDINATES *****o"ALACTIC TO EQUATORIAL COORDINATES"o"ALACTIC LATITUDE IN DDMMSS ? YES NO":T24:T130:20157p" ":A$"N"1217qp"ALACTIC LATITUDE":XX1:"":723:XX.:BDE:1218p"ALACTIC LATITUDE ";B:""18)":"p40,5,79,24:"ALACTIC LONGITUDE IN DDMMSS ? YES NO":T24:T131:2015#q" ":A$"N"1222^q"ALACTIC LONGITUDE":XX1:"":723:XX.:LDE:1223q"ALACTIC LONGITUDE ";L:""19)":"q.,10,79,24:XF1:1191:1178:N1RA:N2DE:XF.rA(B180)(N2180)(L18033180)(B180)(N2180)zrDE(A(AA1)): 33 MEANS LONG. OF ASCENDING NODE OF GALACTIC PLANE ON EQUATOR, DOES IT CHANGE WITH NEW EPOCH ?rY(B180)(L18033180)sX(B180)(N2180)(B180)(N2180)(L18033180):RA(YX):X.Y.RARAsX.Y.RARA9sRARA180:RARAN1:RARA15SsRA24RARA24:1230lsRA.RARA24:1231sDEDE180:XA1sYYRA:2005:RA(1)F1:RA(2)F2:RA(3)F3sYYDE:2005:DE(1)F1:DE(2)F2:DE(3)F3t"IGHT ASCENSION IS"RA(1)"H"RA(2)"M"RA(3)"S"0t" OR"RA"H"bt"ECLINATION IS"DE(1)"D"DE(2)"M"DE(3)"S"~t" OR"DE"D"t2000tA$(SS)"YES"1212:600t ***** ANGLE BETWEEN TWO CELESTIAL OBJECTS *****u"NGLE BETWEEN TWO CELESTIAL OBJECTS"Zu"ELESTIAL OBJECT 1":"QUATORIAL COORDINATES ? YES NO":T24:T125:2015kuA$"N"1265u"IGHT ASCENSION IN HHMMSS ? YES NO":T24:T128:2015u" ":A$"N"1254$v"IGHT ASCENSION":"":XX1:XE1:307:R1DH:XE.:XX.:1255Lv"IGHT ASCENSION ";R1:""16)":"v"ECLINATION IN DDMMSS ? YES NO":T24:T124:2015v" ":A$"N"1259v"ECLINATION":"":XX1:723:XX.:B1DE:1260w"ECLINATION ";B1:""11)":"wXH10w40,6,79,24Ow"ELESTIAL OBJECT 2":""wAR1:BB1:XH1:1250:XH.:R2R1:B2B1:R1A:B1B:1280w"CLIPTIC LATITUDE IN DDMMSS ? YES NO":T24:T130:2015x" ":A$"N"1269>x"CLIPTIC LATITUDE":"":XX1:723:A1DH:XX.:1270hx"CLIPTIC LATITUDE ";A1:""18)":"x"CLIPTIC LONGITUDE IN DDMMSS ? YES NO":T24:T131:2015x" ":A$"N"1274 y"CLIPTIC LONGITUDE":"":XX1:723:XX.:B1DE:1275Ky"CLIPTIC LONGITUDE ";B1:""19)":"WyXH1hy40,6,79,24y"ELESTIAL OBJECT 2":""yAA1:BB1:XH1:1265:XH.:A2A1:B2B1:A1A:B1ByXA1A2:1281yXR1R2:XX15!zD(B1180)(B2180)(B1180)(B2180)(X180);zD(D(DD1))2IzDD180jzYYD:2005:D1F1:D2F2:D3F3{z.,18,79,24z"NGLE IS"D1"D"D2"M"D3"S"z" OR"D"D"z2000:A$(SS)"YES"1246:600{ ***** RISING AND SETTING OF A STAR *****={"ISING AND SETTING OF A STAR":1340:A$"Y"AA1{{"IGHT ASCENSION IN HHMMSS ? YES NO":T24:T128:2015{"IGHT ASCENSION "{A$"N"1307{"":XX1:XE1:307:XX.:XE.:1308|"IGHT ASCENSION ";DH:""16)":"O|40,5,79,24:"ECLINATION IN HHMMSS ? YES NO":T24:T124:2015v|"ECLINATION "|A$"N"1313| "":XX1:723:XX.:1314|!"ECLINATION ";DE:""12)":"}".,10,79,24:"BSERVER'S LATITUDE IN HHMMSS ? YES NO":T24:T132:2015H}$"BSERVER'S LATITUDE "Y}%A$"N"1319}&"":X1DE:XX1:723:XX.:LADE:DEX1:1320}'"BSERVER'S LATITUDE ";LA:""20)":"}(A(DE180)(LA180):A1A11395})AR(A(AA1))2$~*AS2AR:ASAS180:ARAR180O~+YYAS:2005:AS(1)F1:AS(2)F2:AS(3)F3z~,YYAR:2005:AR(1)F1:AR(2)F2:AR(3)F3~-A(LA180)(DE180)~.H(A(AA1))2:HH18015~/L124DHH:L124L1L124~0L2DHH:L224L2L224/1XT1:YYL1:2005:L1(1)F1:L1(2)F2:L1(3)F3l2YYL2:2005:L2(1)F1:L2(2)F2:L2(3)F3:AA11350:13703""A$(SS)" FOR RISING IS"L1(1)"H"L1(2)"M"L1(3)"S"4" OR"L1"H"5""A$(SS)" FOR SETTING IS"L2(1)"H"L2(2)"M"L2(3)"S" 6" OR"L2"H"*72000F8A$(SS)"YES"1300:600<"DJUST FOR REFRACTION ? YES NO":T24:T124:2015=A$"Y"""28)" WITH REFRACTION":>"":FA(LA180)(DE180):A(A(AA1))2:X3460180jGB(X)(A):Y(X)(A):B(B(BB1)):ARAR180:ASAS180:ARARB:ASASB:ARAR180:ASAS180HYYAS:2005:AS(1)F1:AS(2)F2:AS(3)F3IYYAR:2005:AR(1)F1:AR(2)F2:AR(3)F3JY(Y(YY1)):YY180:Y240Y(DE180):YY3600KL1L1Y:L2L2Y;LYYL1:2005:L1(1)F1:L1(2)F2:L1(3)F3lMYYL2:2005:L2(1)F1:L2(2)F2:L2(3)F3:1370P40,16,79,24,1:"ZIMUTH FOR RISING"AR(1)"D"AR(2)"M"AR(3)"S"тQ" OR"AR"D"R"ZIMUTH FOR SETTING"AS(1)"D"AS(2)"M"AS(3)"S":S" OR"AS"D":.,15,39,24,1:zZA$(1)"OCAL TIME":A$(2)"":A$(3)"":A$(4)"":SS1["IME IN"\2)(18)A$(1)(146)]A24:2)A$(A):A^A$:A$""A$""A$(13)1374_A$(13)1381`1380aA$""SSSS1:SS4SS1>bA$""SSSS1:SS1SS4}c"":A1SS2:(17)"":A:2)(18)A$(SS)(146):1374d"":A1SS2:(17)"":A:2)A$(SS):ÄeSS41360:1331=gSS3.,15,79,24,1:G1L1:G2L2:XA1:LSG1:527:G1GS:LSG2:538:XA.:L2GS:L1G1:1390:1360:SS3:A$(3)"":1331hSS2.,15,79,24,1:G1L1:G2L2:XA1:LSG1:527:G1GS:LSG2:538:G2GS:40,15,79,24:463:L1G1:L2G2:GSG1:475:L1GM:SS21iSS2L1(1)G1:L1(2)G2:L1(3)G3:GSL2:475:L2GM:L2(1)G1:L2(2)G2:L2(3)G3:XA.:SS2:A$(2)"":1360:1331jSS1.,15,79,24,1:G1L1:G2L2:XA1:LSG1:527:G1GS:LSG2:538:G2GS:40,15,79,24:463:L1G1:L2G2:GSG1:475:L1GM/kGSL2:475:L2GM:XA.:GHL1:G2L2:XB1:408:L1(1)L1:L1(2)L2:L1(3)L3:G1LT:GHGM:XP1:409:XP.:XA.:SS1:A$(1)"IME":XB.flL2(1)L1:L2(2)L2:L2(3)L3:L1G1:L2LT:1360:1331nYYL1:2005:L1(1)F1:L1(2)F2:L1(3)F3oYYL2:2005:L2(1)F1:L2(2)F2:L2(3)F3: s" OTE: THIS STAR IS CIRCUMPOLAR OR NEVER RISES ABOVE THE HORIZON! "t 5:600Ax ***** REFRACTION OF OBJECTS *****ay"EFRACTION OF OBJECTS"z"ENITH ANGLE IN DDMMSS ? YES NO":T24:T125:2015ш{" ":A$"N"1405|"ENITH ANGLE":XX1:"":723:XX.:ZADE:1406,}"ENITH ANGLE ";ZA:""13)":"q~Z1ZA:R58.16(ZA180)0.067((ZA180)3):RR3600:ZAZAR40,5,79,24:"BSERVER'S LATITUDE IN DDMMSS ? YES NO":T24:T132:2015" ":A$"N"14109"BSERVER'S LATITUDE":XX1:"":723:XX.:LADE:1412e"BSERVER'S LATITUDE ";LA:""20)":".,10,79,24:"IGHT ASCENSION IN HHMMSS ? YES NO":T24:T128:2015芅" ":A$"N"1415+"IGHT ASCENSION":XX1:XE1:"":307:XX.:XE.:RADH:1416S"IGHT ASCENSION ";RA:""16)":"40,10,79,24:"ECLINATION IN DDMMSS ? YES NO":T24:T124:2015ϋ" ":A$"N"1419"ECLINATION":XX1:"":723:XX.:1420""ECLINATION ";DE:""12)":"gA1((LA180)(DE180)(ZA180))(DE180)(ZA180)A1(A1(A1A11))2:A258.16(Z1180)(A1):A2A23600֌DEDEA2:YYDE:2005:D1F1:D2F2:D3F3 A23.877(Z1180)(A1)(DE180):A2A236007RARAA2:YYRA:2005:R1F1:R2F2:R3F3p.,16,79,24:"IGHT ASCENSION IS"R1"H"R2"M"R3"S"" OR"RA"H""ECLINATION IS"D1"D"D2"M"D3"S"Ս" OR"RA"D"ߍ2000A$(SS)"YES"1400:600$ ***** ATMOSPHERIC EXTINCTION *****E"TMOSPHERIC EXTINCTION""ENITH ANGLE IN DDMMSS ? YES NO":T24:T125:2015" ":A$"N"1436뎛"ENITH ANGLE":XX1:"":723:XX.:ZADE:1437"ENITH ANGLE ";ZA:""13)":"%M.2(ZA180)O"BJECT IS DIMMER BY"M" MAGNITUDES"": CALCULATIONS BREAK DOWN FOR ZENITH ANGLES GREATER THAN ABOUT 85 DEGREES."2000ΏA$(SS)"YES"1431:600 ***** CARRINGTON ROTATION NUMBER *****"ARRINGTON ROTATION NUMBER"U"ULIAN DATE KNOWN ? YES NO":T24:T120:2015" ":A$"N"1450"ULIAN DATE ";JD:""12)":":1451ɐ"":XX1:205:XX.RN(1690(JD2444235.34)27.2753)"ARRINGTON ROTATION NUMBER IS"RN"2000?A$(SS)"YES"1445:3000_ ** POSITION OF THE SUN **}"OSITION OF THE SUN"XX1:173:XX.:"EAR ";YE:""13)":"ΑDNDN(YE1980)365:1475䑳N360DN365.2422N.N3601463N.NN360:NN3601460HMN278.83354282.596403:M0MM36040,5,79,24:MM180:"CCURACY .000001";EP:""9)":"E1M:E.016718DLE1E(E1)M̒(DL)EP1469E2DL(1.016718(E1)):E1E1E2:1466?NU((1E)(1E))(E12):NU(NU)2180:E1NU282.596403:XC1[E1360E1E1360:1470uE1.E1E1360:1471XJ1:E2.:.,10,79,24:1052:XB1:1022:XB.:XH12000ٓA$(SS)"YES"1455:3000X((1980YE)4):DNDNX:+ ***** SUN'S DISTANCE AND ANGULAR SIZE *****U"UN'S DISTANCE AND ANGULAR SIZE"iXC1:1457:XC.F(1E(NU180))(1EE):R1.495985E8F:TF.533128:XL1͔YYT:2005:T1F1:T2F2:T3F3.,10,79,24:"ISTANCE IS ""###,###,###";R;:" KILOMETERS"9"NGULAR SIZE IS"T1"D"T2"M"T3"S"U" OR"T"D"_2000|A$(SS)"YES"1480:3000 ***** CORRECTION FOR PARALLAX *****ԕ"ORRECTION FOR PARALLAX":.,6,79,24A$(1)"OCAL TIME":A$(2)"":A$(3)"":A$(4)"":SS1 "IME"92)(18)A$(1)(146)QA24:2)A$(A):AyA$:A$""A$""A$(13)1496A$(13)1503.,.,79,24:1502A$""SSSS1:SS4SS1A$""SSSS1:SS1SS4"":A1SS2:(17)"":A:2)(18)A$(SS)(146):1496O"":A1SS2:(17)"":A:2)A$(SS):f.,6,79,24,1:BSSїB1XC1:.,5,79,24:352:XC.:XA1:40,6,79,24:433:.,12,79,24:XB1:498:XA.:40,12,79,24:1600<B2XB1:XK1:.,5,79,24:433:40,5,79,24:440:XA1:.,10,79,24:499:XA.:XB.:40,10,79,24:1600B3XB1:.,5,79,24:XK1:493:.,10,79,24:499:XB.:XK.:XA1:40,10,79,24:1600˘" IN HHMMSS ? YES NO":T24:T116:2015:XZ1" ":A$"N"15107"":XX1:.,6,79,24:307:XX.:LSDH:40,5,79,24:1600e" ";LS:""4)":":40,5,79,24:1600"EOCENTRIC RIGHT ASCENSION IN HHMMSS ? YES NO":T24:T139:2015" ":"EOCENTRIC RIGHT ASCENSION"A$"Y"15168"":XX1:XE1:307:XX.:XE.HRADH:1610"EOCENTRIC RIGHT ASCENSION ";RA:""27)":":1610"EOCENTRIC DECL. IN DDMMSS ? YES NO":T24:T129:2015 " ":"EOCENTRIC DECLINATION"A$"Y"1521D"":XX1:723:XX.:DCDE:1620y"EOCENTRIC DECLINATION ";DC:""23)":":1620HALSRAHAHA15:U(.996647(LA180)):HH6378140:R1.996647(U)H(LA180):R2(U)H(LA180)ZR1(P180):DL(R2(HA180)(R(DC180)R2(HA180))):H1HADL180:DLDL18015:RARADLDE((H1180)(R(DC180)R1)(R(DC180)(HA180)R2)):DEDE180ٜYYRA:2005:RA(1)F1:RA(2)F2:RA(3)F3YYDE:2005:DE(1)F1:DE(2)F2:DE(3)F3:"IGHT ASCENSION IS"RA(1)"H"RA(2)"M"RA(3)"S"Z" OR"RA"H""ECLINATION IS"DE(1)"D"DE(2)"M"DE(3)"S"" OR"DE"H"2000ΝA$(SS)"YES"1490:600 *** HELIOGRAPHIC COORDINATES ***"ELIOGRAPHIC COORDINATES"1XX1:205:XX.:JJJDT(JD2415020)36525:OM84T60742260:XX1:174:XX.:XJ1:1458:JDJJ:XJ.ŞY((OME1)180)(7.25180):X((OME1)180):A(YX)؞ X.Y.AA X.Y.AA X.Y.AA28 M36025.38(JD2398220):N(M360):N.MMN360Q M360MM360:1549M360M:LMA180:B((OME1)180)(7.25180):B(B(BB1)):BB180:XL1ΟYYL:2005:L1F1:L2F2:L3F3YYB:2005:B1F1:B2F2:B3F30.,10,79,24:"ELIOGRAPHIC LONGITUDE IS"L1"D"L2"M"L3"S"V" OR"L"D""ELIOGRAPHIC LATITUDE IS"B1"D"B2"M"B3"S"" OR"B"D"2000ՠA$(SS)"YES"1540:3000 ***** POSITION OF SUNSPOTS *****"OSITION OF SUNSPOTS";XL1:1542:1483:XL.:ST2T1(E1180)(23.442180):T1(T1):T2((OME1)180)(7.25180):T2(T2):PT1T2:PP180:L0L:B0B.,10,79,24:"OSITION ANGLE OF SUNSPOT IN HHMMSS ? YES NO":T24:T138:2015X" ":"OSITION ANGLE OF SUNSPOT"jA$"Y"1569"":XX1:723:XX. TEDE:1570Ţ!"OSITION ANGLE OF SUNSPOT ";TE:""26)":""35,10,79,24:"NGLE SUBTENDED BY SUNSPOT IN DDMMSS ? YES NO":T24:T139:2015#" ":40,10,79,24:"NGLE SUBTENDED BY SUNSPOT"$A$"Y"1574%"":XX1:723:XX.:RHDE:1575&"NGLE SUBTENDED BY SUNSPOT ";RH:""27)":"'RH(RHS(RHRHSS1))RH180(L(RH)((PTE)180)(B0180)180:L(L(LL1))L0:B(B0180)(RH)(B0180)(RH)((PTE)180))B(B(BB1)):BB180:LL180Ѥ*L360LL360:1578+YYL:2005:L1F1:L2F2:L3F3,YYB:2005:B1F1:B2F2:B3F3R-.,16,79,24:"ELIOGRAHIC LATITUDE IS"B1"D"B2"M"B3"S"v." OR"B"D"/"ELIOGRAHIC LONGITUDE IS"L1"D"L2"M"L3"S"Υ0" OR"L"D"12000:A$(SS)"YES"1560:30006MN278.83354282.596403:M0MM360X740,5,79,24:MM180:"CCURACY ";EP:""9)":":1465? ***** SUBROUTINE FOR CORRECTION FOR PARALLAX *****Ȧ@"ATITUDE IN DDMMSS ? YES NO":T24:T121:2015A" ":A$"N"1603+B"ATITUDE":XX1:"":723:XX.:LADE:1604KC"ATITUDE ";LA:""9)":"|D"EIGHT ABOVE SEA-LEVEL (M) ";H:""27)":"EXK1.,16,79,24:1511FXB1.,18,79,24:1511ӧGXA1.,17,79,24:1511HXZ1.,11,79,24:1511JXK140,16,79,24:XK.:PP1:1517@KXB140,18,79,24:XB.:PP2:1517hLXA140,17,79,24:XA.:PP3:1517MXZ140,11,79,24:XZ.:PP4:1517T1630U"QUATORIAL HORIZONTAL PARALLAX IN DDMMSS ? YES NO":T24:T143:2015DV" ":"QUATORIAL HORIZONTAL PARALLAX"VWA$"Y"1626oX"":XX1:723:XX.~YPDE:1522Z"QUATORIAL HORIZONTAL PARALLAX ";P:""31)":":1522٩^PP1.,16,79,24,1:1621_PP2.,18,79,24,1:1621`PP3.,17,79,24,1:16216aPP4.,17,79,24,1:1621PhLT24LTLT24:1640iiLT.LTLT24:1641ojmT0.T0T024:1645noGM.GMGM24:1647pЪr ***** EQUATION OF TIME *****s"QUATION OF TIME"tXH1:1457:XH."uGSRA:XB1:XA1:465:XA.:XB.VvET12GM:YYET:2005:ET(1)F1:ET(2)F2:ET(3)F3w"QUATION OF TIME IS"ET(1)"H"ET(2)"M"ET(3)"S"x" OR"ET"H"y2000իzA$(SS)"YES"1650:3000| ***** SOLAR ELONGATION *****}"OLAR ELONGATION"3~XH1:1457:XH.:R1RA:D1DEt"BJECT'S RIGHT ASC IN HHMMSS ? YES NO":T24:T131:2015" ":"BJECT'S RIGHT ASCENSION"ѬA$"Y"1668"":XX1:XE1:307:XX.:XE.RADH:16695"BJECT'S RIGHT ASCENSION ";RA:""25)":"40,10,79,24:"BJECT'S DECL. IN DDMMSS ? YES NO":T24:T127:2015ɭ" ":"BJECT'S DECLINATION"ۭA$"Y"1673"":XX1:723:XX.:1674'"BJECT'S DECLINATION ";DE:""21)":"R1R115:RARA15:EP(DE180)(D1180)((RAR1)180)(D1180)(DE180):EP(EP(EPEP1))2:EPEP180ҮYYEP:2005:EP(1)F1:EP(2)F2:EP(3)F3.,16,79,24:"OLAR ELONGATION IS"EP(1)"D"EP(2)"M"EP(3)"S"6" OR"EP"D"Y2000:A$(SS)"YES"1660:3000t ***** TWILIGHT *****"WILIGHT"YT1:1752:YT.: T1=SUNRISE, T2=SUNSETHA(LA180)(D1180):HA(HA(HAHA1))2:HAHA180?H1((108180)(LA180)(D1180))(LA180)(D1180)H1(H1(H1H11))2:H1H1180:T(H1HA)15:TT.9973T1T1T:T2T2TYYT1:2005:T1(1)F1:T1(2)F2:T1(3)F3개YYT2:2005:T2(1)F1:T2(2)F2:T2(3)F3040,11,79,24,1:"ORNING TWILIGHT IS"T1(1)"H"T1(2)"M"T1(3)"S"Q" OR"T1"H""VENING TWILIGHT IS"T2(1)"H"T2(2)"M"T2(3)"S"" OR"T2"H"̱2000:A$(SS)"YES"1680:3000 ***** SUNRISE AND SUNSET *****"UNRISE AND SUNSET"4XH1:1457:XH.:R1RA:D1DE:L1E1hL2.985647L1:E1L2:XH1:1022:XH.:R2RA:D2DEXT1:DED1:DHR1:1790:1320:XT.:L1(1)L1:L1(2)L2ҲXT1:DED2:DHR2:1320:XT.:L2(1)L1:L2(2)L2T124.07L1(1)(24.07L1(1)L2(1)):T224.07L1(2)(24.07L1(2)L2(2))-DC(D1D2)2Y(LA180)(DC180):Y(Y(YY1))2:Y(3460180)(Y):Y(Y(YY1)):YY180ȳDT240Y(DC180):DTDT3600:T2T2DT:T1T1DTA$(1)"OCAL TIME":A$(2)"":A$(3)"":A$(4)"":SS1V.,15,79,24:YT1"IME FOR TWILIGHT":ՙ"IME FOR SUNRISE AND SUNSET"o2)(18)A$(1)(146)A24:2)A$(A):AA$:A$""A$""A$(13)1764ҴA$(13).,15,79,24,1:1771ܴ1770A$""SSSS1:SS4SS1A$""SSSS1:SS1SS4T"":A1SS:(17)"":A:2)(18)A$(SS)(146):1764"":A1SS:(17)"":A:2)A$(SS):SS11781:1782:1783:1776SS21781:1782:1776JSS3XA1:LST1:T2(4)T2:527:T1(1)L1:T1(2)L2:T1(3)L3:T1(4)GS:LST2(4):538:T2(1)L1:T2(2)L2:T2(3)L3:T1T1(4):T2T2(4):XA.:1776uYYT1:2005:T1(1)F1:T1(2)F2:T1(3)F3YYT2:2005:T2(1)F1:T2(2)F2:T2(3)F3YT1:40,11,79,24,1:"UNRISE IS"T1(1)"H"T1(2)"M"T1(3)"S"" OR"T1"H"+"UNSET IS"T2(1)"H"T2(2)"M"T2(3)"S"B" OR"T2"H"e2000:A$(SS)"YES"1750:3000XA1:LST1:T2(4)T2:527:T3GS:LST2(4):538:T4GS:XA0:*XA1:XB1:GST3:465:T1(4)GM:T1(1)G1:T1(2)G2:T1(3)G3:GST4:465:T2GM:T1T1(4):T2(1)G1:T2(2)G2:T2(3)G3:T2(4)T2:XB0:XA0:XB1:GHT1:408:T1(1)L1:T1(2)L2:T1(3)L3:T1(4)LT:GHT2(4):XC1:409:XB0:XC0:T2(1)L1:T2(2)L2:T2(3)L3:T2LT:T1T1(4):"BSERVER'S LATITUDE IN DDMMSS ? YES NO":T24:T132:2015"BSERVER'S LATITUDE "-A$"N"1794Z"":X1DE:XX1:723:XX0:LADE:DEX1:"BSERVER'S LATITUDE ";LA:""20)":": ***** SUBROUTINE FOR ANOTHER CALCULATION *****SS1:A$(1)"YES":A$(2)"NO":"NOTHER CALCULATION ? "(18)A$(1)(146)" "A$(2)@A$:A$""A$""A$(13)A$"_"2001\A$(13)0,4,79,24:nA$"_"2060~2010:2001 ***** SUBROUTINE TO CALCULATE HHMMSS OR DDMMSS *****RRYY:YY(YY):F1(YY):F2((YYF1)60):F3((YYF1)60F2)60)RR.F1F1:F1.F2F2:F2.F3F3:/` ***** SUBROUTINE FOR YES/NO QUESTION *****A$""SSSS1:SS2SS1A$""SSSS1:SS1SS2""22)"YES NO"ܻ""22(SS1)4)(18)A$(SS)(146):A$(1)"YES":A$(2)"NO":SS1$A$:A$""A$""A$(13)20167A$(13)2022VA$""SSSS1:SS2SS1uA$""SSSS1:SS1SS2""T1)A$(1)" "A$(2)""T1(SS1)T2)(18)A$(SS)(146):2016޼A$(SS)"YES"A$"Y":A$"N"A$(SS)" "A$"P":A$"A" 3Q$:Q$""Q$""Q$(13)2030FQ$(13)2036eQ$""SSSS1:SS3SS1Q$""SSSS1:SS1SS3""A$(1)" "A$(2)" "A$(3)̽""(SS1)4)(18)A$(SS)(146):2030߽SS1B$"1":SS2B$"2":B$"3"* ***** SUBROUTINE FOR PRECESSION *****oA$(1)"1900.0":A$(2)"1950.0":A$(3)"1975.0":A$(4)"2000.0":SS1A$:A$""A$""A$(13)2041A$(13)2048ɾA$""SSSS1:SS1SS4A$""SSSS1:SS4SS1"":A14:5)A$(A):A<"":A1SS:(17)"":A:5)(18)A$(SS)(146)F2041YSS1A$"1":lSS2A$"2":SS3A$"3":SS4A$"4": ***** THE SUN *****ҿ .,4,79,24,1:.,1,79,24:""_ A$(1)"OSITION OF THE SUN":A$(2)"UN'S DISTANCE AND ANGULAR SIZE":A$(3)"UNRISE AND SUNSET":A$(4)"WILIGHT":A$(5)"QUATION OF TIME" A$(6)"OLAR ELONGATION":A$(7)"ELIOGRAPHIC COORDINATES":A$(9)"ARRINGTON ROTATION NUMBER":A$(8)"OSITION OF SUNSPOTS":A$(10)"AIN MENU":SS1N QQ10:XZ1:105:XZ.:.,4,79,24:SS1455,1480,1750,1680,1650,1660,1540,1560,1445,20x YY22: *** PLANETARY COORDINATES *** "LANETARY COORDINATES":.,2,79,24:""C A$(1)"ERCURY":A$(2)"ENUS":A$(3)"ARS":A$(4)"UPITER":A$(5)"ATURN":A$(6)"RANUS":A$(7)"EPTUNE":A$(8)"LUTO":A$(9)"XIT":SS1:QQ9:XZ1 105:XZ.:.,4,79,24:YY)A$(SS):SS3111,3112,3113,3114,3115,3116,3117,3118,4000 ' TP.24085:EP231.2973:OM77.1442128:EC.2056306:A.3870986:OG48.094173:I7.0043579:AN6.74:BF1.918E6:3120( TP.61521:EP355.73352:OM131.2895792:EC.0067826:A.7233316:OG76.4997524:I3.394435:AN16.92:BF1.721E5:3120) TP1.88089:EP126.30783:OM335.6908166:EC.0933865:A1.5236883:OG49.4032001:I1.8498011:AN6.36:BF4.539E6:3120r* TP11.86224:EP146.966365:OM14.0095493:EC.0484658:A5.202561:OG100.2520175:I1.3041819:AN196.74:BF1.994E4:3120+ TP29.45771:EP165.322242:OM92.6653974:EC.0556155:A9.554747:OG113.4888341:I2.4893741:AN165.6:BF1.74E4:3120c, TP84.01247:EP228.0708551:OM172.7363288:EC.0463232:A19.21814:OG73.8768642:I0.7729895:AN65.8:BF7.768E5:3120- TP164.79558:EP260.6578998:OM47.8672148:EC.0090021:A30.10957:OG131.5606494:I1.7716017:AN62.2:BF7.597E5:3120B. TP250.9:EP209.439:OM222.972:EC.25387:A39.78459:OG109.941:I17.137:AN8.2:BF4.073E6:3120c0 .,5,79,24,1:XX1:173:XX.1 "EAR ";YE:""13)":"2 DDN365(YE1980):NP360D365.2422TP3 NP.NPNP360:31234 NP360NPNP360:31245 MPNPEPOM:LNP360EC(MP180)EP-6 L.LL360:3126F7 L360LL360:3127s8 NULOM:RA(1ECEC)(1EC(NU180)): NE360D365.24221.00004; NE360NENE360:3131< MENE98.833540102.596403:LENE360.016718(ME180)98.833540= LE.LELE360:3133,> LE360LELE360:3134h? NLE102.596403:RE(1.0167182)(1.016718(N180))@ SI((LOG)180)(I180):SI(SI(SISI1)):Y((LOG)180)(I180):X((LOG)180):CN(YX)A X.Y.CNCNB X.Y.CNCNC X.Y.CNCN2tD LPOGCN180:RPR(SI):A(RP((LELP)180)(RERP((LELP)180))):SS23150E LM180LEA180F LM.LMLM360:3142G LM360LMLM360:3143H BT((RP(SI)((LMLP)180)RE((LPLE)180)))180:3154JN LM((RE((LPLE)180))(RPRE((LPLE)180)))))180LPdO LM.LMLM360:3151P LM360LMLM360:3152Q BT((RP(SI)((LMLP)180)RE((LPLE)180)))180R XM1EX A$(1)"ORIZON":A$(2)"QUATORIAL":A$(3)"CLIPTIC":A$(4)"ALACTIC":SS1:"OORDINATE SYSTEM:":.,9,79,24:""iY QQ4:XZ1:105:XZ.:YY11:3169a XV..,10,79,24,1:YY13b SS1E1LM:E2BT:XA1:1052:1022:XA.:HARA15:.,YY,79,24,1:3173d XA1:863:XA.:XV13178:XA1:879:XA.:3176]e SS4E1LM:E2BT:XA1:1052:1022:1113:RAHA15:1133:.,13,79,24,1:1145:XA.f SS2E1LM:E2BT:XA1:1052:XA.:XB1:1022:XB.g SS3E1LM:E2BT:XA1:1092:XA.h 2000:XV1i A$(SS)"YES"3100:4000:j .,13,79,24,1:"ZIMUTH IS"AZ(1)"D"AZ(2)"M"AZ(3)"S":XA1:880:XA.:3176̀ ***** DISTANCE, LIGHT TRAVEL TIME AND ANGULAR SIZE OF A PLANET *****́ "ISTANCE, LIGHT TRAVEL TIME AND ANGULAR SIZE OF A PLANET":.,2,79,24:""7΂ YY57:XM1:3102:XM.:RHRERERR2RER((LLE)180):RH(RH):TRH.1386:TEANRH΃ YYT:2005:T1F1:T2F2:T3F3:"ISTANCE IS"RH"":"IGHT TRAVEL TIME IS"T1"H"T2"M"T3"S":18)"OR"T"H"΄ "PPARENT ANGULAR DIAMETER IS"TE"ARCSEC":2000:A$(SS)"YES"3200:4000ϊ ***** PHASES OF THE PLANETS *****ϋ YY26:"HE PHASES OF THE PLANETS":.,2,79,24:"":XM1:3102:XM.:DLMLP:F.5(1(D180))ό "HASE IS"F:2000:A$(SS)"YES"3210:4000ϔ ***** APPARENT BRIGHTNESS OF A PLANET *****lЕ YY32:"PPARENT BRIGHTNESS OF A PLANET":.,2,79,24:"":XM1:3102:XM.:RHRERERR2RER((LLE)180):RH(RH)Ж F.5(1((LMLP)180)):MRPRHBF(F):M5(M)(10)26.7:"RIGHTNESS IS"M:2000:A$(SS)"YES"3220:4000ў ***** POSITION ANGLE OF THE BRIGHT LIMB *****џ YY28:"OSITION OF THE BRIGHT LIMB":.,2,79,24:"":XM1:3102:XM.:E1LM:E2BT:XA1:1052:1022:XA.:RPRA:DPDEѠ XJ1:1458:XJ.:E2.:1052:XH1:1022:XH.:RSRA:D2DE:DRRSRP:DRDR15:Y(D2180)(DR180)Vҡ X(DP180)(D2180)(DP180)(D2180)(DR180):KI(YX):X.Y.KIKIkҢ X.Y.KIKIң KIKI180:YYKI:2005:K1F1:K2F2:K3F3:.,11,79,24:"OSITION ANGLE IS"K1"D"K2"M"K3"S":15)"OR"KI"D"Ӥ 2000:A$(SS)"YES"3230:4000-ӧ ***** POSTION OF PERIODIC COMETS *****mӨ "OSITION OF PERIODIC COMETS":.,2,79,24:"":3266ө AASS:A1A:A2EC:XX1:YE1980:MO1:DA.:210:XX.:D1JD:.,4,79,24:28)A$(SS)2Ԫ .,5,79,24,1:XX1:173:XX.:"EAR ";YE:""13)":":XX1:210:XX.:DJDD1:AA163263:AA1:ECA2]ԫ A$"Y"YYEDN366EP:YYEDN365EPmԬ MC360YTPԭ MC.X(MC360):MCMC(X1)360:3245Ԯ MC360X(MC360):MCMCX360:3246:MCMC180:EMCկ DLEEC(E)MC:(DL)1E63248:DEDL(1EC(E)):EEDE:3247uհ NU(((1EC)(1EC)).5)(E2):NU((NU))2:LNU180OM:RA(1ECEC)(1EC(NU))ձ SI((LAN)180)(I180):SI(SI(SISI1)):Y((LAN)180)(I180):X((LAN)180):LP(YX)ղ X.Y.LPLPֳ X.Y.LPLPGִ LPLP180AN:RPR(SI):NE360D365.24221.00004ֵ NE360NENE360:3253:MENE98.83354102.596403:LENE360.016718(ME180)98.83354ֶ LE.LELE360:3254׷ LE360LELE360:3255:N2LE102.596403:RE(1.0167182)(1.016718(N2180))׸ RPRELM(RP((LELP)180)(RERP((LELP)180))):LM(RP(SI)((LPLE)180)(RPRE((LPLE)180)))׹ RPRELMLM180180LE:LMLM180LP׺ LM.LMLM360:3258׻ LM360LMLM360:3259Aؼ BT((RP(SI)((LMLP)180)RE((LPLE)180)))180:0,12,79,24ؽ A$(1)"ORIZON":A$(2)"QUATORIAL":A$(3)"CLIPTIC":A$(4)"ALACTIC":SS1:"OORDINATE SYSTEM:":0,11,79,24:"":RR1ؾ XV1:3161:XV.:A$(SS)"YES"3240:4000Cٿ 40,6,79,24:"ERIHELION EPOCH ";EP:""17)":":3288:"SCENDING NODE ";AN ""17)":":RR13265:Յ"ERIOD IN YEARS ";TP:""17)":" 3287:3286:"NCLINATION ";I:""17)":":S A$(1)"NCKE":A$(2)"EMPLE 2":A$(3)"ANEDA-AMPOS":A$(4)"CHWASSMANN-ACHMANN 2":A$(5)"ORRELLY":A$(6)"HIPPLE":A$(7)"TERMA":A$(8)"CHAUMASSE" A$(9)"OMAS OLA":A$(10)"CHWASSMANN-ACHMANN 1":A$(11)"EUJMIN 1":A$(12)"ROMMELIN":A$(13)"LBERS":A$(14)"ONS-ROOKS":A$(15)"ALLEY"y A$(16)"THER":A$(17)"XIT":QQ17:SS1:XZ1:105:XZ.:SS3269,3270,3271,3272,3273,3274,3275,3276,3277,3278,3279,3280,3281,3282,3283,3284,3285 EP1974.32:OM160.1:AN334.2:TP3.3:A2.209:EC.847:I12:3241 EP1972.87:OM310.2:AN119.3:TP5.26:A3.024:EC.549:I12.5:3241L EP1978.77:OM12.016:AN131.7:TP5.37:A3.066:EC.64152:I5.805:3241 EP1974.7:OM123.3:AN126:TP6.51:A3.489:EC.386:I3.7:3241 EP1974.36:OM67.8:AN75.1:TP6.76:A3.576:EC.632:I30.2:3241 EP1970.77:OM18.2:AN188.4:TP7.47:A3.821:EC.351:I10.2:3241X EP1958.44:OM150:AN155.1:TP7.88:A3.958:EC.144:I4:3241 EP1960.29:OM138.1:AN86.2:TP8.18:A4.054:EC.705:I12:3241 EP1969.83:OM102.9:AN62.8:TP8.55:A4.182:EC.577:I13.4:3241& EP1974.12:OM334.1:AN319.6:TP15.03:A6.087:EC.105:I9.7:3241i EP1966.94:OM334:AN347.2:TP17.93:A6.858:EC.775:I15:3241 EP1956.82:OM86.4:AN250.4:TP27.89:A9.173:EC.919:I28.9:3241 EP1956.46:OM150:AN85.4:TP69.47:A16.843:EC.930:I44.6:32419 EP1954.39:OM94.2:AN255.2:TP70.98:A17.2:EC.955:I74.2:3241 EP1986.112:OM170.011:AN58.154:TP76.0081:A17.9435:EC.9673:I162.2384:3241 3241 4000 RR1:Յ"CCENTRICITY ";EC:""17)":":7 RR1"ERIHELION DISTANCE IN ";Q:""26)":"::Յ"EMI-MAJOR AXIS IN ";A:""22)":": RR1"ERIHELION ARGUMENT ";AR:""20)":"::Յ"ERIHELION LONG ";OM:""17)":": ***** POSITION OF PARABOLIC COMETS *****P "OSITION OF PARABOLIC COMETS":XX1:205:XX.:J1JD:RR1:3263:RR.:OMARAN:YEEP:MO1:DA0:XX1:210:J2JD:D1J1J2:YE1980:MO1:DA0 210:XX.:J3JD:DJ1J3:W.0364911624D1Q(Q):SW3 DLS(13)3SW:(DL)1E63294:S(2(S3)W)3(SS1):3293/ NU2(S):RQ(1SS):LNU180OM:RR1:3249:RR.:XV1:3161:XV.:A$(SS)"YES"3290:4000k ***** POSITION ANGLE AND LENGTH OF BINARY STARS ***** "OSITION ANGLE AND LENGTH OF BINARY STARS":XX1:173:XX.:A$"Y"J1DN366:J1DN365 "EAR ";YE:""13)":":J1YEJ1:40,6,79,24 "ERIOD OF REVOLUTION ";TP:""21)":":"POCH OF PERIASTRON ";EP:""21)":":"ONG OF PERIASTRON ";OM:""21)":" "CCENTRICITY ";EC:""21)":":"EMI-MAJOR AXIS (ARCSEC) ";A:""25)":":"NCLINATION ";I+ ""21)":":"SCENDING NODE ";AN:""21)":"^ YJ1EP:M360YTP:M360X(M360):MMX360 M.X(M360):MMX360:3306:MM180:EM DLEEC(E)M:(DL)1E63308:DEDL(1EC(E)):EEDE:3307\ NU(((1EC)(1EC)).5)(E2):NU2(NU):NUNU180:RA(1EC(E)):Y((NUOM)180)(I180):X((NUOM)180):TH(YX)q X0Y0THHT X0Y0THHT THTH180AN:TH360X(TH360):THTHX3609 TH.X(TH360):THTH(X1)360:3312:RHR((NUOM)180)((THAN)180):0,14,79,24:YYTH:2005:T1F1:T2F2:T3F3 "OSITION ANGLE IS"T1"D"T2"M"T3"S":15)"OR"TH"D":"ENGTH IS"RH"ARCSEC":2000:A$(SS)"YES"3300:4000 ***** THE PLANETS, COMETS AND BINARY STARS *****.,4,79,24,1:.,1,79,24:""A$(1)"LANETARY COORDINATES":A$(2)"ISTANCE, LIGHT TRAVEL TIME AND ANGULAR SIZE OF A PLANET":A$(3)"HASES OF THE PLANETS"A$(4)"OSITION ANGLE OF THE BRIGHT LIMB":A$(5)"PPARENT BRIGHTNESS OF PLANET":A$(6)"OSITION OF PERIODIC COMETS"A$(7)"OSITION OF PARABOLIC COMETS":A$(8)"OSITION ANGLE AND LENGTH OF BINARY STARS":A$(10)"AIN MENU":A$(9)"LANETARY DATA":SS1QQ10:XZ1:105:XZ.:.,4,79,24:SS3100,3200,3210,3230,3220,3240,3290,3300,4015,20"PLANETARY DATA"3"EED TO MAKE THE PROGRAM !":"O4ABCDEFG": 3:10] ***** TIME CONVERSION ROUTINE *****o.,4,79,24,1A$(1)"OCAL TIME":A$(2)"":A$(3)"":A$(4)"":SS1"OORDINATE TO CONVERT":.,2,79,24:"":QQ4:XZ1:105:XZ.:ABSS:5120@.,4,79,24,1:""A$(AB)" TO ...":SS1:.,2,79,24:""\A14:A$(A4)A$(A):AyA13:A$(A)A$(ABA):AQQ3:XZ1:105:XZ.:.,4,79,24AB1BASS1AB4BASSAB2BASS2:BA5BA1AB3BASS1:BA.BA4XX1AB15144#BA2349iBA3XC1:"OCAL TIME TO Ԓ":352:XA1:433:450:XA.:5160BA4"OCAL TIME TO Ԓ":XC1:352:XC.:XA1:40,5,79,24:433:.,11,79,24:498:XA.:5160AB25148BA1400BA3430XBA4" TO Ԓ":XB1:433:XA1:40,5,79,24:498:.,15,79,24:XB.:514:XA.:5160hAB35152BA1" TO LOCAL TIME":XC1:463:GHGM:XC.:XA1:408:XA.:5160BA2460BA4490; BA1" TO LOCAL TIME":XA1:522:XB1:40,5,79,24:463:XB.:GHGM:.,16,79,24:408:XA.:5160!BA2" TO Ԓ":XA1:522:XB1:40,5,79,24:463:XB.:.,16,79,24:478:XA.:5160"BA3520#T0.T0T024$(2000)A$(SS)"YES"5140:100O ***** COORDINATE CONVERSION ROUTINE *****(P.,4,79,24,1vQA$(1)"ORIZON":A$(2)"QUATORIAL":A$(3)"CLIPTIC":A$(4)"ALACTIC":SS1RXX1:5102:XX.UAB15209VBA2890'WBA3"ORIZON TO ECLIPTIC COORDINATES":XA1:892:XA.:RAHA15:40,10,79,24:1050:.,16,79,24:XA1:1082:XA.:5220XBA4"ORIZON TO GALACTIC COORDINATES":XA1:892:1113:RAHA15:1133:.,16,79,24:1145:XA.:5220YAB25213ZBA1841[BA31061\BA41111]AB35217P^BA1"CLIPTIC TO HORIZON COORDINATES":XA1:1003:XA.:HARA15:XA1:.,11,79,24:863:879:XA.:5220__BA21001`BA4"CLIPTIC TO GALACTIC COORDINATES":XA1:1003:1113:RAHA15:1133:.,16,79,24:1145:XA.:5220?aBA1"ALACTIC TO HORIZON COORDINATES":XA1:1213:XA.:HARA15:XA1:40,10,79,24:863:879:XA.:5220NbBA21211cBA3"ALACTIC TO ECLIPTIC COORDINATES":XA1:1213:XA.:RARA15:40,10,79,24:1050:.,16,79,24:XA1:1082:XA.:5220d2000A$(SS)"YES"5205:600 p"ASTRO-CALC 2"