' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( 0 Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`@JEC77Ĺ216,0@T4200"RUN ASTRO2"XESPONSE"::3280% )% "RUN ASTRO2"F% SUB FOR METEOR RADIANTZ% 20);::"+":n% 17)"RADIANT";t% ARES";$ 31)"X";39)"*"5$ " *";8)"*";30)"*"J$ :"SAGITTARIUS"]$ " *";26)"*"z$ 5)"*";12)".";15)"**"$ 12)"*";26)"*";31)"SCORPIO"$ $ K15000:K$ "WANT ANOTHER MONTH? Y/N ";A$$ A$"Y"160% A$"N"ĺ"INVALID ROND ";M$;" SHOWER IS THE OPHIUCIDS"M# "17-26,MAX 19, RAD 17.3 RA, -20 DEC"_# "6 PER HOUR"u# 18)"OPHIUCHUS";#& 33)"."#0 ".";10)".";30)"*"#: :#D 15)".";21)"*":#N 3330#X 38)"*":#b " *";39)"*"#l 34)"*"$v 22)"ANT37)"*":3330"^ ""2"h 9)"* *";30)" * *"C"r " LYRA";W"| 32)"HERCULES"a" " X"n" 28)"*"}" 39)"*":" ::" 12)"."" 10)"*";38)"*"" 33)"*"" "*";31)"OPHIUCHUS"" " " JUNE OPHIUCIDS" ## "SEC! 10)".";16)"*":/! 14)"*";30)"DRACO"5! ;! M! JUNE LYRIDSS! |! "FIRST ";M$;" SHOWER IS THE LYRIDS"!" "10-20,MAX 15, RAD 18.3 RA, 35 DEC"!, "BLUISH METEORS, 8 PER HOUR"!6 !@ 40)"*"!J 6)"VEGA";13)"X";30)"*"; "T * x "SECOND ";M$;" SHOWER IS THE URSIDS"S "17-24,MAX 22, RAD 14.6 RA, 78 DEC"z "FAINT, MEDIUM SPEED, 5 PER HOUR" 10)"POLARIS";20)"*" :16)"."::: 12)".": :3330:"":13)"." " URSA";39)"." " MINOR"GHT SWIFT METEORS 60 PER HOUR"+ 40)".": :22)"*"D 3330^ ".":18)"*";33)"."( 18)".":" .";24)"*";38)"* *"2 28)".":25)"GEMINI"< 36)"*":F 35)".":P 23)"*";46)"X":19)"X PROCYON"Z d DEC URSIDS n J13000:J7 "WANT TO SEE THE OTHER SHOWER Y/N ";A$= Z A$"Y"JS1İ2660:2500q A$"Y"JS2İ2510 A$"N"ī3280 3270 DEC. GEMINIDS  "FIRST ";M$;" SHOWER IS GEMINIDS" "9-13,MAX 13, RAD. 7.46 RA 32 DEC" "BRIEORS, SOME FIREBALLS"'$ ::8)"AND"@. ::5)"THE URSIDS"a8 "17-24, MAX 22, 5 PER HOUR"uB "WEAK DISPLAY"{L V :"PLEASE SELECT GEMINIDS (1)"` " OR URSIDS (2)"j :A$:JS(A$)t JS1İ2510:2440~ JS2İ2660  3)"*"$20)".":3)"X";8)"LEO":20)"X REGULUS"K".";28)"."[37)"* ."e::kq{::"IN ";M$;" THERE ARE TWO METEOR SHOWERS" :5)"THE GEMINIDS" "9-13, MAX 13, 60 PER HOUR" "SWIFT BRIGHT MET30)"*";45)"."::4>0H NOV LEONIDS6R]\"SECOND ";M$;" SHOWER IS LEONIDS"f"15-19,MAX 17, RAD 10.13 RA, 22 DEC"p"SWIFT METEORS, 10 PER HOUR"z3)".";10)".":7)".":24)".":18)".";26)"*"3330:17)"*":"WITH 2 RAD.,3.73 RA, 14 & 22 DEC"O"SLOW METEORS, SCATTERED FIREBALLS"g:16)"PLEIADES":v19)".::""TAURUS":333039)"*""ALDEBARAN";11)"."10)"X";11)".";13)".";34)"ARIES"3330:""  *JS2İ2120DJ13000:JDN"WANT TO SEE OTHER SHOWER Y/N ";A$JXgbA$"Y"JS1İ2120:1920~lA$"Y"JS2İ1930vA$"N"ī32803270 NOV TAURIDS"FIRST ";M$;" SHOWER IS TAURIDS""10/20-11/30,MAX 8, 12 PER HOUR"&)"THE LEONIDS";"15-19,MAX 17, RAD 10 RA, 22 DEC"]"SWIFT METEORS, 10 PER HOUR"e:"PLEASE SELECT TAURIDS (1)"" OR LEONIDS (2)":A$:JS(A$)&JS1JS2ĺ"INVALID RESPONSE"::17900JS1İ1930:1860 :31)"X";38)"."+r34)":":2)".";38)"X"8|30)"*"B3270J:q"IN ";M$;" THERE ARE TWO SHOWERS"y:5)"THE TAURIDS":"10/20-11/30,MAX 8/11,RAD 3.7 RA,14 DEC""SLOW 12/HR, SCATTERED FIREBALLS":8)"AND":5T TRAIL METEORS, 30/HR"36)".";23)"*";26)"."P11)".";22)".";34)"*"b10)"GEMINI"v8)".";18)"*""3330,:16)"."6:8)"*";32)"."@28)"X";36)"X"J4)"X"T"PROCYON";35)"ORION"^:35)"X"h33)"X":EUS";20)"*":21)".",12)"*"::I39)"X":8)"X";20)"X"f20)".";30)"ANDROMEDA"s37)"*"}3270"FOR THE MONTH OF ";M$"THE METEOR SHOWER IS THE ORIONIDS""16-26,MAX 21, RAD. 6.4 RA, 15 DEC""SLOW PERSISTENTEOR SHOWER"2:::32808<"FOR THE MONTH OF ";M$aF"THE METEOR SHOWER IS THE PERSEIDS"P"4-16,MAX 12, RAD 3 RA 58 DEC"Z"A SPECTACULAR SHOWER, 50 PER HR"d6)".";39)"X"n:29)"CASSIOPEIA"x:333023)"."10)"PERSER"17)".":,32)"AQUARIUS"928)"."S11)"DELTA *";:3330h33)"*";37)"."n}39)"."::19)"X":11)"FOMALHAUT"31)"*"::: 3270"DURING THE MONTH OF ";M$ ("THERE IS NO MAJOR MEYOU WANT TO SEE OTHER SHOWER Y/N ";A$+BHLA$"Y"JS1İ3050:1130_VA$"Y"JS2İ2820q`A$"N"ī3280{j3270t"FOR THE MONTH OF ";M$~"THE METEOR SHOWER IS DELTA AQUARIDS""7/25-8/4,MAX 28,RAD 22.8 RA -16 DEC""DIFFUSE SHOW17-26, MAX 19"-5)"AVERAGING 6 PER HOUR"O:"PLEASE SELECT LYRIDS (1)"o" OR OPHIUCIDS (2)":A$:JS(A$)JS1JS2ĺ"INVALID RESPONSE"::1000JS1İ2820:1070JS2İ3050$A$"N"ī3280.J13000:J%8"DO ".";35)".";39)"."*p19)"CAPRICORNUS"4z3270<:a"IN JUNE THERE ARE TWO SHOWERS"i:~5)"THE LYRIDS""JUNE 10-21, MAX 15, BLUISH METEORS"5)"AVERAGING 8 PER HOUR::8)"AND":5)"THE OPHIUCIDS":"JUNE IS ETA AQUARIDS"6"4-13,MAX 6, RAD 22.5 RA, 0 DEC"J "WEAK DISPLAY"h15)".";30)"*";36)".." 24)".";35)"."::*17)"*";24)"*"415)"*";:3330>30)"AQUARIUS":H33)"X"::R:\12)"."f11)".";29)"*";31)GA";33)"*";39)"*"1l5)"LYRA";33)"HERCULES"7vL34)"*";38)"*"a7)"* *";:3330i:v23)"*"32)"*":33)"*"16)"OPHIUCHUS";27)"X"3270"FOR THE MONTH OF ";M$"THE METEOR SHOWER "DURING THE MONTH OF ";M$" P "THERE IS NO MAJOR ANNUAL METEOR SHOWER"Z &::d 03280 :"FOR THE MONTH OF ";M$ D"THE METEOR SHOWER IS THE LYRIDS" N"20-22, MAX 21,12/HR, RAD.18 RA 33 DEC" X"GOOD ANNUAL SHOWER":b11)"X VE19)"*" 26)"X":/ 15)"*";28)"BOOTES"< 30)"."^ 13)".";29)".":2)"CORONA"u 12)"*";24)"X": 30)"X ARCTURUS" 3270 "DURING THE MONTH OF ";M$  "THERE IS NO MAJOR ANNUAL METEOR SHOWER" :: 3280 0M$"OCTOBER":14903 @M211M$"NOVEMBER":1680R JM212M$"DECEMBER":2280n T"FOR THE MONTH OF ";M$ ^"THE METEOR SHOWER IS QUANDRANTIDS" h"4 JAN MAX 24 HRS, RAD 15.5 RA 50 DEC" r"GOOD ANNUAL SHOWER 40 PER HOUR" |:3330:: 2M M21M$"JANUARY":340< M22M$"FEBRUARY":470V M23M$"MARCH":520p M24M$"APRIL":570 M25M$"MAY":750 M26M$"JUNE":900 M27M$"JULY":1140 "M28M$"AUGUST":1340 ,M29M$"SEPTEMBER":1300 6M21n9)"S & T SOFTWARE SERVICE"& x:U 3)"THIS PROGRAM PROVIDES PARTICULARS OF" 3)"ANNUAL METEOR SHOWERS FOR ANY MONTH" K13000:K :: "SELECT MONTH (1 THRU 12) ";M M1M12ĺ"INVALID RESPONSE"::170 :: Mu ::76)"---------------------------"](6)"I M E T E O R S I"26)"---------------------------"<::F10)"AN ASTRONOMY PROGRAM"P:9)"BY ERIC BURGESS F.R.A.S."Z::d9)"ALL RIGHTS RESERVED BY"                   ESPONSE"::3280% )% "RUN ASTRO2"F% SUB FOR METEOR RADIANTZ% 20);::"+":n% 17)"RADIANT";t% ARES";$ 31)"X";39)"*"5$ " *";8)"*";30)"*"J$ :"SAGITTARIUS"]$ " *";26)"*"z$ 5)"*";12)".";15)"**"$ 12)"*";26)"*";31)"SCORPIO"$ $ K15000:K$ "WANT ANOTHER MONTH? Y/N ";A$$ A$"Y"160% A$"N"ĺ"INVALID ROND ";M$;" SHOWER IS THE OPHIUCIDS"M# "17-26,MAX 19, RAD 17.3 RA, -20 DEC"_# "6 PER HOUR"u# 18)"OPHIUCHUS";#& 33)"."#0 ".";10)".";30)"*"#: :#D 15)".";21)"*":#N 3330#X 38)"*":#b " *";39)"*"#l 34)"*"$v 22)"ANT37)"*":3330"^ ""2"h 9)"* *";30)" * *"C"r " LYRA";W"| 32)"HERCULES"a" " X"n" 28)"*"}" 39)"*":" ::" 12)"."" 10)"*";38)"*"" 33)"*"" "*";31)"OPHIUCHUS"" " " JUNE OPHIUCIDS" ## "SEC! 10)".";16)"*":/! 14)"*";30)"DRACO"5! ;! M! JUNE LYRIDSS! |! "FIRST ";M$;" SHOWER IS THE LYRIDS"!" "10-20,MAX 15, RAD 18.3 RA, 35 DEC"!, "BLUISH METEORS, 8 PER HOUR"!6 !@ 40)"*"!J 6)"VEGA";13)"X";30)"*"; "T * x "SECOND ";M$;" SHOWER IS THE URSIDS"S "17-24,MAX 22, RAD 14.6 RA, 78 DEC"z "FAINT, MEDIUM SPEED, 5 PER HOUR" 10)"POLARIS";20)"*" :16)"."::: 12)".": :3330:"":13)"." " URSA";39)"." " MINOR"GHT SWIFT METEORS 60 PER HOUR"+ 40)".": :22)"*"D 3330^ ".":18)"*";33)"."( 18)".":" .";24)"*";38)"* *"2 28)".":25)"GEMINI"< 36)"*":F 35)".":P 23)"*";46)"X":19)"X PROCYON"Z d DEC URSIDS n J13000:J7 "WANT TO SEE THE OTHER SHOWER Y/N ";A$= Z A$"Y"JS1İ2660:2500q A$"Y"JS2İ2510 A$"N"ī3280 3270 DEC. GEMINIDS  "FIRST ";M$;" SHOWER IS GEMINIDS" "9-13,MAX 13, RAD. 7.46 RA 32 DEC" "BRIEORS, SOME FIREBALLS"'$ ::8)"AND"@. ::5)"THE URSIDS"a8 "17-24, MAX 22, 5 PER HOUR"uB "WEAK DISPLAY"{L V :"PLEASE SELECT GEMINIDS (1)"` " OR URSIDS (2)"j :A$:JS(A$)t JS1İ2510:2440~ JS2İ2660  3)"*"$20)".":3)"X";8)"LEO":20)"X REGULUS"K".";28)"."[37)"* ."e::kq{::"IN ";M$;" THERE ARE TWO METEOR SHOWERS" :5)"THE GEMINIDS" "9-13, MAX 13, 60 PER HOUR" "SWIFT BRIGHT MET30)"*";45)"."::4>0H NOV LEONIDS6R]\"SECOND ";M$;" SHOWER IS LEONIDS"f"15-19,MAX 17, RAD 10.13 RA, 22 DEC"p"SWIFT METEORS, 10 PER HOUR"z3)".";10)".":7)".":24)".":18)".";26)"*"3330:17)"*":"WITH 2 RAD.,3.73 RA, 14 & 22 DEC"O"SLOW METEORS, SCATTERED FIREBALLS"g:16)"PLEIADES":v19)".::""TAURUS":333039)"*""ALDEBARAN";11)"."10)"X";11)".";13)".";34)"ARIES"3330:""  *JS2İ2120DJ13000:JDN"WANT TO SEE OTHER SHOWER Y/N ";A$JXgbA$"Y"JS1İ2120:1920~lA$"Y"JS2İ1930vA$"N"ī32803270 NOV TAURIDS"FIRST ";M$;" SHOWER IS TAURIDS""10/20-11/30,MAX 8, 12 PER HOUR"&)"THE LEONIDS";"15-19,MAX 17, RAD 10 RA, 22 DEC"]"SWIFT METEORS, 10 PER HOUR"e:"PLEASE SELECT TAURIDS (1)"" OR LEONIDS (2)":A$:JS(A$)&JS1JS2ĺ"INVALID RESPONSE"::17900JS1İ1930:1860 :31)"X";38)"."+r34)":":2)".";38)"X"8|30)"*"B3270J:q"IN ";M$;" THERE ARE TWO SHOWERS"y:5)"THE TAURIDS":"10/20-11/30,MAX 8/11,RAD 3.7 RA,14 DEC""SLOW 12/HR, SCATTERED FIREBALLS":8)"AND":5T TRAIL METEORS, 30/HR"36)".";23)"*";26)"."P11)".";22)".";34)"*"b10)"GEMINI"v8)".";18)"*""3330,:16)"."6:8)"*";32)"."@28)"X";36)"X"J4)"X"T"PROCYON";35)"ORION"^:35)"X"h33)"X":EUS";20)"*":21)".",12)"*"::I39)"X":8)"X";20)"X"f20)".";30)"ANDROMEDA"s37)"*"}3270"FOR THE MONTH OF ";M$"THE METEOR SHOWER IS THE ORIONIDS""16-26,MAX 21, RAD. 6.4 RA, 15 DEC""SLOW PERSISTENTEOR SHOWER"2:::32808<"FOR THE MONTH OF ";M$aF"THE METEOR SHOWER IS THE PERSEIDS"P"4-16,MAX 12, RAD 3 RA 58 DEC"Z"A SPECTACULAR SHOWER, 50 PER HR"d6)".";39)"X"n:29)"CASSIOPEIA"x:333023)"."10)"PERSER"17)".":,32)"AQUARIUS"928)"."S11)"DELTA *";:3330h33)"*";37)"."n}39)"."::19)"X":11)"FOMALHAUT"31)"*"::: 3270"DURING THE MONTH OF ";M$ ("THERE IS NO MAJOR MEYOU WANT TO SEE OTHER SHOWER Y/N ";A$+BHLA$"Y"JS1İ3050:1130_VA$"Y"JS2İ2820q`A$"N"ī3280{j3270t"FOR THE MONTH OF ";M$~"THE METEOR SHOWER IS DELTA AQUARIDS""7/25-8/4,MAX 28,RAD 22.8 RA -16 DEC""DIFFUSE SHOW17-26, MAX 19"-5)"AVERAGING 6 PER HOUR"O:"PLEASE SELECT LYRIDS (1)"o" OR OPHIUCIDS (2)":A$:JS(A$)JS1JS2ĺ"INVALID RESPONSE"::1000JS1İ2820:1070JS2İ3050$A$"N"ī3280.J13000:J%8"DO ".";35)".";39)"."*p19)"CAPRICORNUS"4z3270<:a"IN JUNE THERE ARE TWO SHOWERS"i:~5)"THE LYRIDS""JUNE 10-21, MAX 15, BLUISH METEORS"5)"AVERAGING 8 PER HOUR::8)"AND":5)"THE OPHIUCIDS":"JUNE IS ETA AQUARIDS"6"4-13,MAX 6, RAD 22.5 RA, 0 DEC"J "WEAK DISPLAY"h15)".";30)"*";36)".." 24)".";35)"."::*17)"*";24)"*"415)"*";:3330>30)"AQUARIUS":H33)"X"::R:\12)"."f11)".";29)"*";31)GA";33)"*";39)"*"1l5)"LYRA";33)"HERCULES"7vL34)"*";38)"*"a7)"* *";:3330i:v23)"*"32)"*":33)"*"16)"OPHIUCHUS";27)"X"3270"FOR THE MONTH OF ";M$"THE METEOR SHOWER Y4.56X-6"APERTURE IN INCHES MUST BE ";Y7@1560\J:"APERTURE TO RESOLVING POWER"uT"TO STOP ENTER 999"^:"APERTURE IN INCHES ";XhX999110rY4.56X|"RESOLVING POWER IN ARC SECS. IS ";Y1630"RUN ASTRO2""DEC.HRS. ";XX999110'Y(X):Y160(X(X))OY260(Y1(Y1)){"HRS.MIN.SEC.= ";Y;" ";(Y1);" ";(Y2)1470:"RESOLVING POWER TO APERTURE""TO STOP ENTER 999":"RESOLVING POWER SEC. OF ARC ";X"X999110,Y1);Y2Z13106d:"HRS.MIN.SEC. TO DECIMAL HRS "Sn"TO STOP ENTER 999,0,0"qx:"HRS,MIN,SEC ";X,X1,X2X999110YXX160X23600"DECIMAL HRS - ";Y1400:"DECIMAL HRS TO HRS.MIN.SEC. ""TO STOP ENTER 999" :99110YXX160X23600<"DECIMAL DEG.= ";((Y),5)F1240q ::"DECIMAL DEGREES TO DEG.MIN.SEC.""TO STOP GO TO 999":"DECIMAL DEGREES";X(X9991102Y(X)<Y160(X(X))FY260(Y1(Y1))P"DEG.MIN.SEC.="Y;(X(1149.598)'~"A.U. = ";((Y),5)11120N:"MILES (MILLIONS) ";X]X999110rYX(192.15721)"A.U = ";((Y),5)1170::"DEG.MIN.SEC. TO DECIMAL DEG.""TO STOP ENTER 999,0,0":"DEG,MIN,SEC ";X,X1,X2X9RS (MILLIONS) = ";((Z),5)$990L$::"MILES/KMS TO A.U. CONVERSION"d."TO STOP TYPE 999"8:"TYPE KMS OR MI ";Q$BQ$"KMS"1120LQ$"MI"1170V"PLEASE TYPE KMS OR MI ":1080`:"KILOMETERS (MILLIONS) ";XjX999110tY5); " = ";((Y273),5);"K")910X::"A.U. TO MILES/KILOMETERS CONVERSION"q"TO STOP ENTER 999":"A.U.";XX999110YX92.95721: MILESZX149.598: KILOMETERS"MILES (MILLIONS) = ";((Y),5)"KILOMETE"'C TO ' F CONVERSION"0>"TO STOP ENTER 999"?H:"'C ";XNRX999110]\YX1.832tf"'F = ";((Y),5)}p840z::"'F TO 'C CONVERSION""TO STOP ENTER 999":"'F ";XX999110Y(X32).555555556"'C = ";((Y), STOP ENTER 999"$:"PARSECS ";X4X999ī110AYX3.26X"LY = ";((Y),5)c:690k:"LY TO PARSECS CONVERSION""TO STOP ENTER 999":"LY ";X X999ī110YX13.26 "PARSECS = ";((Y),5)*7704::YX5.88(0"TRILLION MI = ";((Y),5)1:5309D:]N"TRILLION MI TO LY CONVERSION"vX"TO STOP ENTER 999"b:"TRILLION MI ";XlX999ī110vYX15.88"LY = ";((Y),5):610:"PARSECS TO LY CONVERSION""TO :350 130$ X999ī110, :G "MI TO KM CONVERSION"` "TO STOP ENTER 999"o :"MI ";X X999ī110 YX1.609344 "KM = ";Y 450 10 : "LY TO TRILLION MI CONVERSION" :"LY ";X X999ī110&CT CONVERSION REQUIRED 1-16 ";D0 "D999ī1680~ ,D310,420,510,580,660,740,820,890,970,1060,1220,1290,1380,1450,1540,1610 6 @ J"KM TO MI CONVERSION" T"TO STOP ENTER 999" ^:"KM ";X hX999ī110 rYX(11.60934) |"MI = ";Y);"HRS.MIN.SEC. TO DECIMAL HRS.. (13)"T 5);"DECIMAL HRS. TO HRS.MIN.SEC...(14)" 5);"RES. PWR. TO INS. OF APERTURE (15)" 5);"INS. OF APERTURE TO RES. PWR. (16)" :"TYPE 999 TO END OR TO CHANGE" "TO ANOTHER CONVERSION" :"SELEOR LY TO PARS..(6)"A 5);"'C TO 'F....(7) OR 'F TO 'C....(8)"o 5);"A.U. TO MI..(9) OR MI TO A.U. (10)" 5);"A.U. TO KM..(9) OR KM TO A.U. (10)" 5);"DEG.MIN.SEC. TO DECIMAL DEG.. (11)" 5)"DECIMAL DEG. TO DEG.MIN.SEC.. (12)"& 5% Z11)"S & T SOFTWARE SERVICE"::9 dK200011:KA n:k x:10)"ASTRONOMY CONVERSION PROGRAM" ::"YOU CAN HAVE....": 5);"KM TO MI....(1) OR MI TO KM....(2)" 5);"LY TO MI....(3) OR MI TO LY....(4)" 5);"PARS. TO LY.(5)  :::::97)"-----------------------------"a7)"I C O N V E R S I O N S I"(7)"-----------------------------"2:<11)"AN ASTRONOMY PROGRAM"::F10)"BY ERIC BURGESS F.R.A.S."::P11)"ALL RIGHTS RESERVED BY"     z #??     ҠϠԠ:ȠԠVϠ!ϲ֠v GREETING-1 PROGRAMF "SLAVE DISKETTE CREATED ON 32K SYSTEM"["17 APRIL 1982"n"RUN ASTRO2"t( E7450*"PRESS RETURN TO CONTINUE ";A$41540CC$"LIBRA"IY5:22)"."j10:18)"*"z12:7)"."13:13)"."14:8)"."15:23)"*"20:18)".":7450"PRESS RETURN TO CONTINUE ";A$&7610PICA" 5:18)"*"+7:31)"."C"8:33)".";37)"."T,10:20)"*"e611:36)"*"v@12:12)"."J13:22)"*";28)"*"T15:13)"."^FL1Ģ19:10)"";hFL1ğ:"X"::1660r19:10)"X"|FL1FL0:7540)"*"16:4)"*"+FL1Ģ17:30)"";DFL1ğ:"X"::1450U17:30)"X"v19:12)".";25)".";36)"."20:18)"."22:14)".":FL1FL0:75407450"PRESS RETURN TO CONTINUE ";A$1340C$"VIRGO"S$"S"19:11)"."#21:25)".")3 7450W"PRESS RETURN TO CONTINUE ";A$a7610n(C$"LEO"2S$"REGULUS"<F7:34)"."P8:38)"*"Z9:29)"."d11:14)"*";17)".";29)"*"n12:4)"."x14:31)".":15:14)"* *" `17:20)".";31)"."1j19:15)"*"Bt20:29)"X"S~22:27)"*"hFL1FL0:7540r7450"PRESS RETURN TO CONTINUE ";A$1010C$"CANCER"5:15)"."11:15)"."12:19)"."15:15)".";26)".O CONTINUE ";A$820(C$"GEMINI"ES$"CASTOR":S2$"POLLUX"K[7:22)"."pFL1Ģ7:9)"";FL1ğ:"X"::10608:9)"X"$10:17)".".12:6)"X"813:10)"."B14:25)"*"L15:7)"."V16:15)"*";32".::"R15:13)"."&\16:3)"*"7f17:20)"."Ip18:21)".."bzFL1Ģ19:18)"";:xFL1ĺ"X"::92019:18)"X"21:32)".";37)"."23:36)"."24:30)".";37)"."FL1FL0:75407450"PRESS RETURN T72015:25)"X"-16:9)".";28)"*"E17:5)".";28)"."M20bFL1FL0:7540l7450"PRESS RETURN TO CONTINUE ";A$ 610C$"TAURUS" S$"ALDEBARAN"*S2$"PLEIADES":S3$"HYADES"4>10:7)"*"H13:31)2 07450/:"PRESS RETURN TO CONTINUE ";A$9D7610HNC$"ARIES"WXS$"HAMAL"]bml6:23)"."}v7:22)"."9:26)"."10:12)"."11:13)"."12:11)"."FL1Ģ15:25)"";FL1ğ:25)"";FL1ğ:"X"::40,5210,5430,5610,5690,5810,5950,6160,6330,6470,6660,6830,7010,7170,7310X C$"PISCES"^ n 5:10)"."} 9:8)"." 12:12)".";16)"." 13:24)".";31)".";35)"." 14:4)".";28)"." 15:33)"." 16:28)".";31)"."&2ONSTELLATIONS (2)";AL$( AL$"2"AL1: AL$"1"AL0W Z((78)256(79))1000f C(Z)42s C(C)1H C460,590,790,990,1200,1320,1520,1710,1840,2050,2220,2360,2510,2740,2900,3090,3230,3420,3530,3640,3820,3960,4080,4280,4460,4710,4880,50E NAME" 6:< @:"THE PROGRAM OFFERS TWO ALTERNATIVES"d J"CONSTELLATIONS FOLLOWED BY STARS" T"OR STARS AND CONSTELLATIONS MIXED" ^: h"PRESS RETURN WHEN READY";A$ r:::: |:"CHOOSE CONSTELLATIONS (1)" "OR":"STARS AND CNDOM AND ASKS FOR ITS NAME"E "YOU HAVE TWO TRIES BEFORE THE NAME"[ 8)"IS REVEALED"a  "NEXT THE PROGRAM ASKS FOR THE NAME OF" "A BRIGHT STAR IN THE CONSTELLATION" ""AGAIN YOU HAVE TWO CHANCES TO NAME IT" ,"BEFORE BEING TOLD THS RESERVED BY"/ 4)"S & T SOFTWARE SERVICE"@ K13000:KJ ::P Z ::{ "WANT INSTRUCTIONS Y/N ";A$ A$"N"ī370 A$"Y"ĺ"INVALID RESPONSE"::180 :: "THIS PROGRAM DISPLAYS A CONSTELLATION" "SELECTED AT RA8 8000 :::=5)"AN ASTRONOMY PROGRAM"U(5)" TUTORIAL"]2:|<5)"--------------------"F5)"I CONSTELLATIONS I"P5)"--------------------"Z::d4)"BY ERIC BURGESS F.R.A.S."n x4)"ALL RIGHT                     9:21)"."&10:18)"."0&11:22)".."A&13:23)"."R&15:24)"."Z&:d&7450&"PRESS RETURN TO CONTINUE ";A$&7610&C$"AQUILA"&S$"ALTAIR"&&4:27)"."&5:25)"*"&"7:16)"*"&,FL1Ģ8:15)"";"%%5:20)"."'% 6:18)"."?%7:16)".";19)"."P%12:21)"*"a%(14:18)"."r%215:19)"*"%<17:17)"*"%F21:18)"*"%P:%Z7450%d"PRESS RETURN TO CONTINUE ";A$%n7610%xC$"DELPHINUS"%%8:17)"." &31)"*"$j9:27)"."0$t10:22)".";28)"."A$~11:25)"."R$14:11)"."b$16:5)"."v$17:18)". ."~$:$21:14)".";17)"."$23:14)"*";17)"*"$:$7450$"PRESS RETURN TO CONTINUE ";A$$7610%C$"SERPENSO CONTINUE ";A$# 7610)# C$"CRATER"/# @# 13:13)"*"Q# 16:10)"*"b# 17:20)"*"s# 20:15)"*"#:::#:#7450#$"PRESS RETURN TO CONTINUE ";A$#.7610#8C$"HYDRA"#B#L5:33)". ."#V6:34)".."$`7:39)"*""* 21:22)"."::0"4 FL1FL0:7540:"> 7450^"H "PRESS RETURN TO CONTINUE ";A$h"R 3250x"\ C$"CORVUS"~"f "p 7:14)".""z 8:15)"*"" 10:21)"*"" 15:13)"*";22)"*"" 17:22)"*"" 22" 7450# "PRESS RETURN T3110! C$"CETUS""! S$"MIRA"(! >! 2:5)".";8)"."M! 5:4)"*"\! 6:8)"*"l! 8:10)"."! FL1Ģ9:14)"";! FL1ğ:"."::3330! 9:14)"."! 13:32)"*"! 14:25)"*";35)"*"! 15:8)".";26)"*"" 18:26)"*";INUE ";A$  2920(  C$"CANIS MINOR"9  S$"PROCYON"? & O 0 8:21)"."_ : 9:22)"*"v D FL1Ģ12:16)""; N FL1ğ:"X"::3170 X 12:16)"X" b 15:6)"." l 22 v FL1FL0:7540 7450 "PRESS RETURN TO CONTINUE ";A$! FL1ğ:"X"::2970# 8:21)"X"< 10:23)".";27)"*"M 12:16)"*"f 13:12)".";18)"."w 14:14)"*" 15:9)"*" 16:15)"*" 18:15)".";24)"*" 20:20)".":: FL1FL0:7540 7450 "PRESS RETURN TO CONT"." 9:24)"*"$ 11:16)"*"4 13:9)"."E 14:18)"*"V 15:12)"."g" 16:27)"*"q, ::{6 7450@ "PRESS RETURN TO CONTINUE ";A$J 7610T C$"CANIS MAJOR"^ S$"SIRIUS"h r 7:17)"."| FL1Ģ8:21)""; Z FL1Ģ19:24)"";.d FL1ğ:"X"::2680?n 19:24)"X"Px 20:12)"*"X :m FL1FL0:7540w 7450 "PRESS RETURN TO CONTINUE ";A$ 2530 C$"LEPUS"  5:25)"." 6:22)". ." 7:7)".";10)"." 8:4)$"ORION NEBULA" 6 4:8)".";16)".:";30)"."F 5:31)"."^ 6:10)"X";31)"."~ 7:19)".";21)"*";31)"." 9:16)"." 10:30)". ."( 13:19)"*"2 14:17)"*"< 15:15)"*";21)"."F 17:16)"."P 18:16)":"1)"* *";19)"*"!` 10:15)"*":j 12:28)"*";36)"."Jt 14:9)"."[~ 15:37)"."l 16:32)"."} 18:10)"." 20:8)"*" :: 7450 "PRESS RETURN TO CONTINUE ";A$ 7610 C$"ORION" S$"RIGEL":S2$"BETELGEUX":S38:31)"*"010:6)"* .";13)".";18)"."@14:9)"."R15:13)":'"k16:19)".";26)"."|17:17)"*" 21:18)"*" : 7450$ "PRESS RETURN TO CONTINUE ";A$. 76108 C$"AQUARIUS"B L 8:13)"."V 9:112:15)"*";25)"*"-H13:17)"*";27)"."FR14:12)"*";29)"."_\15:13)"*";26)"*"pf16:29)"*"p19:24)"*"z21:25)"*":7450"PRESS RETURN TO CONTINUE ";A$7610C$"CAPRICORNUS"6:32)"*" )"."18:10)"*"-19:9)"*";21)"*"F22:12)"*";18)"*"LaFL1FL0:7540k7450"PRESS RETURN TO CONTINUE ";A$1860C$"SAGITTARIUS" 6:9)"." 7:9)"."*9:12)"*";15)"."410:14)".">0C$"SCORPIO":S$"ANTARES"%D7N5:30)". *"GX6:33)"."Wb7:34)"*"pl10:27)"*";34)"*"vFL1Ģ11:25)"";FL1ğ:"X"::194011:25)"X"12:24)"*";34)"."16:8)"*";11)"**";21)"*";25)"."17:24 RETURN TO CONTINUE ";A$"6761036C$"PEGASUS"96I66:22)"."Y67:19)"*"i69:21)"."z610:22)"."613:8)"*";19)"*"616:23)"*"6 17:34)"*"618:28)"*"6226(745062"PRESS RETURN TO CONTINUE ";A$7<ANDROMEDA"5 5$5:14)"."05.6:15)"."@587:33)"."P5B8:33)"."`5L9:34)"."p5V10:9)"*"5`11:14)".";24)"."5j12:23)"."5t14:20)"*";27)"."5~15:26)"."516:33)"*"517:26)"."::574506"PRESS"413:22)"."#416:14)".":4FL1Ģ17:23)"";S4FL1ğ:"*"::6080d417:23)"*"u418:11)"*"419:24)"."421:12)"."423:13)"*":4FL1FL0:7540474504"PRESS RETURN TO CONTINUE ";A$45970 5C$")"."319:24)"*"&3 21:26)"."03:::3 7450^3*"PRESS RETURN TO CONTINUE ";A$h347610y3>C$"PERSEUS"3HS$"ALGOL"3R3\5:23)"."3f7:21)"* ."3p10:6)".";18)"X";21)".";25)"."3z11:6)"."412:8)".";13)"*:16)"*"2l17:25)"*"+2v18:30)"*"<219:17)"*"F2::P27450t2"PRESS RETURN TO CONTINUE ";A$~276102C$"CASSIOPEIA"226:15)"."27:14)"."212:11)"*"216:20)"*";30)"*"217:15)"*"318:22 17450.1"PRESS RETURN TO CONTINUE ";A$817610P1C$"CANES VENATICI"V1o111:16)".";27)"."114:20)"*"120174501&"PRESS RETURN TO CONTINUE ";A$1076101:C$"CEPHEUS"1D1N5:18)"*"1X11:24)"*" 2b13CO" 0@0J5:36)"*")0T7:34)"*"=0^10:14)"* ."V0h11:14)".";35)"*"f0r12:7)"."}0|13:6)".";9)"*"014:8)".";20)"*"015:24)"*"016:31)"*"017:25)"*"021:14)".";17)"."023:14)"*";17)"*"112)"*";17)"*" /13:3)"*"1/14:25)"*"B/15:18)"*"S/16:35)"."d/17:18)"."}/19:25)".";33)"."/20:32)"."/24:24)":"/:/FL1FL0:7540/7450/""PRESS RETURN TO CONTINUE ";A$/,523006C$"DRA:.2FL1FL0:7540!.<7450E.F"PRESS RETURN TO CONTINUE ";A$O.P5060c.ZC$"URSA MAJOR"~.dS$"DUBHE":S2$"ALCOR".n.x8:35)".".FL1Ģ10:25)"";.FL1ğ:"*";::34)".":5280.10:25)"*";34)".".11:8)"*"/12: RETURN TO CONTINUE ";A$"-76105-C$"URSA MINORF-S$"POLARIS"L-b-FL1Ģ7:22)"";{-FL1ğ:"X"::5100-7:22)"X"-9:19)"."-11:17)"."-14:14)".";17)"*"- 15:20)"."-16:18)"*"-17:15)"*".(: ";A$,7610",C$"OPHIUCHUS"(,@,$5:17)"*";26)"."P,.6:25)"."`,89:31)"."q,B10:15)"*",L11:10)". .";14)"*",V12:36)"*",`13:34)"*",j17:30)"*",t18:14)".",~20:22)"*",:,7450-"PRESS6:31)".""+7:28)".";36)"."2+9:26)"*"K+10:13)"*";20)"*"\+13:26)"*"u+14:11)".";22)"*"+15:9)". ."+16:13)"*"+17:19)"*"+19:4)".";30)"*"+20:32)"*"::+7450,"PRESS RETURN TO CONTINUE*14:19)"*" *15:7)"."1* 17:24)"."J*18:14)"*";20)"."b* 20:8)".";18)"."s**22:30)"*"{*4:*>FL1FL0:7540*H7450*R"PRESS RETURN TO CONTINUE ";A$*\4480*fC$"HERCULES"*p*z5:18)"*";30)". ." +URN TO CONTINUE ";A$)b4300.)lC$"CYGNUS"=)vS$"DENEB"C)S)5:30)"."c)6:28)"."s)9:20)".")10:20)".")11:6)".";)FL1ĺ15)"";)FL1ğ:"X";::4570)15)"X";)26)"*")12:10)".")13:11)"."EGA" ((5:15)"."*(9:19)".";(10:8)".";N(FL1ĺ21)"";g(FL1ğ:"X"::4370t(21)"X"(11:7)".";18)"."(12:15)".";27)"."(&16:17)"*"(017:14)"*"(:::(DFL1FL0:7540(N7450)X"PRESS RET'6FL1ğ:"X"::4170''@8:15)"X"7'J9:20)"."H'T10:14)"*"a'^14:14)".";22)"*"q'h15:9)"*"'r19:27)"*"'|20:29)"*"':'FL1FL0:7540'7450'"PRESS RETURN TO CONTINUE ";A$'4100'C$"LYRA"(S$"VNG, THE STAR IS ";S$8?"PRESS RETURN TO CONTINUE ";A$F?::::c?"ANOTHER TEST? Y/N ";A$w?A$"N"ė:7700?A$"Y"ĺ"INVALID RESPONSE"::7620??FL1ī7680?FL0?:? X(0):Y(A$):420?"RUN ASTRO2"?@EC(222)">BCL$;:"TRY AGAIN ";A$->LA$C$ī7470H>V"YOU ARE STILL WRONG"i>`" THE CONSTELLATION IS ";C$t>jFL1:>t SUB STAR QUERY>~"NAME THIS STAR ";A$>A$S$ğ:"CORRECT"::7600>"WRONG; TRY AGAIN ";A$>A$S$ī7560?"STILL WRO"X"::7380=14:13)"X"==15:18)".";24)".";28)"."N=16:14)"."V=20k=FL1FL0:7540u=7450=" PRESS RETURN TO CONTINUE";A$=7330= SUB QUERY=$"NAME THIS CONSTELLATION ";A$=.A$C$ğ:"CORRECT"::FL1:>8A$"."<411:18)"."#<>12:6)"."4:16:14)"*"O:&18:26)"*"W:022l::FL1FL0:7540v:D7450:N"PRESS RETURN TO CONTINUE ";A$:X6850:bC$"ERIDANUS":l:v5:25)".":6:26)".":7:19)".";10:11)".";1:"X"::67809r21)"X""9|2179FL1FL0:7540A97450e9"PRESS RETURN TO CONTINUE ";A$o966809C$"AURIGA"9S$"CAPELLA"995:16)"."9FL1Ģ10:22)"";9FL1ğ:"X"::6900910:22)"X"911:14)"*" :128FL1FL0:754087450A8"PRESS RETURN TO CONTINUE ";A$K86490[8C$"CORONA"m8S$"ALPHEKKA"s88"7:20)"."8,8:9)"."8610:9)".";22)"."8@12:24)"*"8J13:14)"*"8T14:16)"* *";8^FL1ĺ21)""; 9hFL1ğ76107FC$"BOOTES"'7PS$"ARCTURUS"-7Z?7d6:21)". ."O7n8:22)"."`7x10:17)"*"q711:20)"*"713:14)"*"715:21)"."717:19)"*"7FL1Ģ20:25)"";7FL1ğ:"X"::6600720:25)"X"721:30)"*"7:FOR QUERY,&"NAME THIS CONSTELLATION ";A$M&A$C$ğ:"CORRECT"::FL1:W&A$""r&CL$;:"TRY AGAIN ";A$'A$C$ī9960'"YOU ARE STILL WRONG"'"THE CONSTELLATION IS ";C$$'FL1:.':::8'"ANOTHER TEST? Y/N ";A$B'A$"N"ė&22H&99402R&"PRESS RETURN TO CONTINUE ";A$=\&10030Kf&C$"CRUX"Qp&az&8:20)"X"r&11:17)"."&12:25)"*"&13:15)"*"&15:20)"*";25)"."&22&9940&"PRESS RETURN TO CONTINUE ";A$&10030 & SUBROUTINE :22)".""%10:14)"*";25)"*"3%12:16)"."L%14:18)"*";22)"."T%22^%9940%"PRESS RETURN TO CONTINUE ";A$%10030%C$"GRUS"& &7:22)"."&8:20)"*" &12:12)"*";21)"*"*&14:28)"."4&16:27)".">"PHOENIX"&% 0%7:22)"*"1:%13:28)"*"QD%14:8)"*";16)".";22)"*"bN%15:31)"."{X%16:12)"*";33)"."b%18:12)"*";26)"*"l%22v%9940%"PRESS RETURN TO CONTINUE ";A$%10030%C$"TRIANGULUM AUSTRALIS"% %9TURN TO CONTINUE ";A$ $10030-$C$"ARA"3$C$6:26)"."S$9:24)"*"d$11:17)"*"u$13:23)"*"$14:18)"*";23)"*"$16:18)"."$19:24)"*";30)"."$22$9940%"PRESS RETURN TO CONTINUE ";A$%10030 %C$S"#$6:22)"*"($7:12)"."8$8:14)"."H"$9:22)"."i,$10:15)"*";20)".";23)"."z6$11:21)"."@$12:23)"*"J$13:18)"*"T$14:23)"*";26)"*"^$17:22)".";32)"*"h$19:29)"."r$22|$9940$"PRESS REx#14:15)"*";20)"**";24)"."9#17:18)"*";24)"*"J#19:12)"*"`#FL1Ģ20:3)"";t#FL1ğ:3)"";#FL1ğ:"X"::9150#20:3)"X"#21#FL1FL0:10080#9940#"PRESS RETURN TO CONTINUE ";A$#9030#C$"LUPU3)".""17:8)"*"&#19:23)"*"B #21:20)". .";29)"*"L#9940p#"PRESS RETURN TO CONTINUE ";A${(#100302#C$"CARINA"<#S$"CANOPUS"F#P#5:20)"*";27)"*"Z#8:15)".";19)"*"d#9:23)"*";30)"*"n#12:26)"* *" "."j"12:11)"."/t"13:13)"*";22)"* *"@~"15:25)"*"H"22R"9940v""PRESS RETURN TO CONTINUE ";A$"10030"C$"CENTAURUS"""5:31)"*""9:20)".";26)"*";31)"X""12:28)".""15:10)".";22)"*""16:2!"PRESS RETURN TO CONTINUE ";A$, !10030< !C$"TUCANA"B !Z !9:11)".";26)"."k !10:28)"*"| "12:31)"*" "14:9)"*" "16:21)"*" $"22 ."9940 8""PRESS RETURN TO CONTINUE ";A$ B"10030 L"C$"APUS" V"`"11:11)40& >!"PRESS RETURN TO CONTINUE ";A$2 H!:8400@ R!C$"PAVO"F \!V f!6:25)"*"f p!8:18)"*"w z!12:19)"*" !13:25)"*";31)"*";36)"*" !14:5)"*" !15:9)"." !16:13)".";17)"*" !17:12)"." !20:28)"*" !9940! 0 C$"HYDRUS" ) S$"ACHERNAR"9 5:11)"*"Q 7:26)".";31)"*"b 13:22)"."{ 14:19)".";24)"." 19:19)"*" !FL1Ģ21:14)""; !FL1ğ:14)""; !FL1ğ:"X"::8490 !21:14)"X" *!FL1FL0:10080 4!99  15:8)"*"  22 & 9940D 0 "PRESS RETURN TO CONTINUE ";A$O : 10030^ D C$"MUSCA"d N | X 9:18)"*";22)"*" b 12:19)"*" l 13:20)"*" v 14:17)"." 15:13)"." 22 9940 "PRESS RETURN TO CONTINUE ";A$ 1003::) "PRESS RETURN WHEN READY ";A$1 W1? A(W)14L A(A)1U FL0 A8160,8260,8370,8530,8670,8780,8880,9010,9200,9370,9500,9620,9720,9830 C$"CHAMAELEON"  11:21)"*" 12:28)"*"  14:9)"*";20)"*";27)"*"4@ SUPPLEMENTARY PROGRAM9J FOR CONSTELLATIONS OFWT THE SOUTHERN HEMISPHERE]^h10:"SOUTHERN HEMISPHERE CONSTELLATIONS"r:::|6)"BY ERIC BURGESS F.R.A.S."6)"ALL RIGHTS RESERVED BY"6)"S & T SOFTWARE SERVICE"       :101601L'A$"Y"ĺ"INVALID RESPONSE"::10030AV'WWA:8120V`' SUB STAR QUERYpj'"NAME THIS STAR ";A$t'A$S$ğ:"CORRECT"::10140~'"WRONG; TRY AGAIN ";A$'A$S$ī10100'"STILL WRONG, THE STAR IS ";S$'"PRESS RETURN TO CONTINHER THAN JUPITER, SATURN,"Ad"AND URANUS APPEAR TO HAVE RINGS"in"BUT THERE HAVE BEEN SPECULATIONS"x"THAT NEPTUNE MAY HAVE A RING SYSTEM""------------""PRESS RETURN TO CONTINUE ";A$F1F0:5030580 DATA FOR SUN";22)"6"."RING 5";10)"31,500";20)"100"4c"---------------------------------------" "PRESS RETURN TO CONTINUE ";A$F1F0:4710580( OTHERS2:::<"OTHER RINGS?"F"------------"P:Z"NO PLANETS OTR DIAM.";20)"WIDTH"112)"MILES";20)"MILES"7Z"RING 6";10)"26,300";22)"5"}"RING 7";10)"26,500";22)"5""RING 1";10)"27,800";22)"6""RING 2";10)"28,700";22)"6""RING 3";10)"29,600";22)"6" "RING 4";10)"30,600,790";20)" 200"8HB"---------------------------------------"lL"PRESS RETURN TO CONTINUE ";A$VF1F0:4180`580j URANUS' RINGSt:::~"URANUS' RING SYSTEM""---------------------------------------"8)"INNE0","A RING";10)" 75,740";20)" 9,130"V"F RING";10)" 87,180";20)" 60""G RING";10)"105,630";20)" 6,210""E RING";10)"111,845";20)"186,400""DIVISIONS"$"CASINI";10)" 72950";20)" 2,800"."ENCKE";10)" 82EM OF SATURN"<"---------------------------------------"`:8)"INNER DIAM.";20)"WIDTH"}12)"MILES";20)"MILES""D RING";10)" 41,600";20)" 4,350""C RING";10);" 49,580";20)" 11,120""B RING";10)" 56,850";20)" 15,844"A VERY TENUOUS RING SYSTEM EXTENDS"T>"FROM THE INNERMOST RING TO THE PLANET"ZHR"---------------------------------------"\f"PRESS RETURN TO CONTINUE ";A$pF1F0:3840z580 SATURN'S RINGS::: "RING SYST :::)"JUPITER'S RING SYSTEM"/^"---------------------------------------"8)"INNER DIAM.";20)"WIDTH"12)"MILES";20)"MILES" "RING 1";10)"29,200";20)"3,100" "RING 2";10)"32,435";20)" 500"*'"b"-------------------------"9l4)"1) JUPITER"Qv:4)"2) SATURN"i:4)"3) URANUS":4)"4) OTHERS""-------------------------":"SELECT 1 THRU 4 OR 999 FOR MENU ";ZZ999Z5Z710,900,1130,1320,210. "---------------------------------------"4 _ "SELECT 1 THRU 11 OR 999 FOR MENU ";Nw N1N6PN1:560 &N6PN2 0N999N12 :N1450,2940,3050,3160,3280,3510,3840,4180,4710,5030,5260,210 D:: N"PLANETARY RINGS"X: "4) EARTH";26)PD(3,1): "5) MARS";26)PD(4,1)] "6) ASTEROIDS";26)PD(10,1)} "7) JUPITER";26)PD(5,1) "8) SATURN";26)PD(6,1) "9) URANUS";25)PD(7,1) "10) NEPTUNE";25)PD(8,1) "11) PLUTO";25)PD(9,1) 7) JM340,2710,5590,580,3510,7730,81001 T:K ^"SOLAR SYSTEM... ":e h20)"DIST. FROM SUN"x r24)"IN A.U." |"---------------------------------------" "1) SUN";27)"N/A" "2) MERCURY";28)PD(1,1) "3) VENUS";28)PD(2,1)"SELECT...." :3 4)"1) SOLAR SYSTEM"L :4)"2) PLANETS"h :4)"3) SATELLITES" :4)"4) RINGS" :4)"5) ASTEROIDS" ":4)"6) ASTRONOMICAL CONSTANTS" ,: 6"SELECT 1 THRU 6 OR 999 TO END ";M @M999M---------------------" x:= 9)"AN ASTRONOMY PROGRAM"` 6)"BY ERIC BURGESS F.R.A.S."h : 7)"ALL RIGHTS RESERVED BY" 7)"S & T SOFTWARE SERVICE" : "PROVIDES DATA ON SOLAR SYSTEM OBJECTS" K150001:K :: T  ::,PD(10,16),JD(12,6),SD(18,8)RUD(5,6),ND(2,6),DM(2,6),DA(10,9)s("PLEASE WAIT; LOADING DATA"21680:1910:2080:2310<2420:2490:2560F::P:Z8)"---------------------"d8)"I SOLAR SYSTEM I n8)"                            2,283.125,317.987,289.675[&P 2.9223,155,.1370,3.092,4.9956,.19730,150.123,226.152,167.565&Z 3.1462,230,.2276,26.343,5.5808,.17661,30.676,63.506,241.231&d 3.4363,192,.1075,3.549,6.3704,.115472,155.472,110.074,337.052'n 3.061,172,.0674,15.213,5.37DA(AA,MA)% MA:AAT%( 2.7675,623,.0783,10.605,4.604,.21408,80.051,73.545,88.020%2 2.7737,378,.2326,34.794,4.6195,.21336,172.712,310.045,78.086%< 2.3612,334,.0892,7.143,3.6284,.27164,103.442,150.133,57.113&F 3.1355,280,.1196,3.836,5.5522,.177588,1.9,23610$ 3459.1,.75,27.71,359.9,.006,1866$ L$ MARS SATELLITES`$ MS12:SM16o$ MD(MS,SM){$ SM:MS$ .5828,.015,1.0,.3189,0.0,13.5$ 1457.7,.0005,2.0,1.2624,0.0,7.1$ $ SUB FOR ASTEROID DATA$ AA110:MA19 % 4,.0004,186.#B 118.6,.0033,0.0,2.52,.018,497R#L 165.3,.011,0.0,4.144,.0073,342w#V 270.9,.0018,0.0,8.706,.0593,621#` 362.5,.0007,0.0,13.463,.034,559#j #t NEPTUNE SATELLITES#~ NS12:SN16# ND(NS,SN)# SN,NS $ 220.9,0,159.95,5.2*"920.2,.104,0.0,21.27,0.0,186,0.0,.3W"2212.5,.028,14.72,79.58,.02,907,1.16,.5"8048.9,.163,150.05,550.45,0.0,137,0.0,.06"" DATA FOR OTHER SATELLITES" URANUS" US15:SU16"$ UD(US,SU)". SU:US #8 80.65,.01,0.0,1.411,.8+!183.1,0.0,0.0,1.888,0.0,18,0.0,.6R!183.1,0.0,0.0,1.888,0.0,17,0.0,.8!234.5,.002,.0002,2.737,.0143,696,1.43,.62!234.9,0.0,0.0,2.739,0.0,21,0.0,.5!327.5,.001,.35,4.518,.02,951,1.33,.65"759.2,.029,.333,15.945,1.87,3200,1.88,.6& f94.1,0.0,0.0,.694,0.0,75,0.0,.4N p 94.1,0.0,0.0,.694,0.0,125,0.0,.4 z 115.3,.02,1.5,.943, .00005,244,1.44,.6 115.6,0.0,0.0,0.0,0.0,0.0,0.0,0.0 147.9,.004,.0002,1.37,.001,310,1.16,.9!183.1,0,.0008,1.888,.0088,659,1.2.0,22$ 14707,.275,153,758,0.0,17*K  DATA FOR SATURN SATELLITES`*SS118:SA18o4SD(SS,SA){>SA:SSH 85.5,0.0,0.0,.602,0.0,48, 0.0,.4R 86.6,0.0,0.0,.613,0.0,37, 0.0,.6 \88.0,0.0,0.0,.629,0.0,56,0.0,.5,.0015,.18,7.15,2.1,3274.6@1170.6,.0075,.25,16.69,1.3,3107f7137,.158,27.6,250.57,.00003,1067299,.207,24.8,259.65,0.0,507370,.13,29,263.55,0.0,15 13204,.169,147,631,0.0,1214005,.207,164,692,0.0,2014608,.378,145,739,084,0,.2548,17.1372,248.6,109.9658,223.0141,.00392,346.4629[v DATA FOR JOVIAN SATELLITESpJS112:SJ16JD(JS,SJ)SJ,JS 112.8,.0028,.455,.498,.00008,125 262.2,0,.027 ,1.77,.98,2262417.2,.0003,.47,3.55,.65,1864665.15,1.31,.46,.85,10.82,97.93,.00503,.7716,84.01,74.0054,172.9222,.01166,54.9953\D NEPTUNEN30.094,30200,29596,17.2,1.66,.53,1.12,15.67,28.8,.0066,1.7730,164.8,131.5228,58.512,.00597,199.748X PLUTOb:l39.829,3977,3977,.1,4.9,.14,.44,153.h5.204,88052,82417,318.4,1.31,.42,2.33,9.84,3.07,.0478,1.3057,11.86,100.2448,14.5847,.0831,132.7203u SATURN&9.578,74568,67111,95.2,.7,.45,.92,10.22,26.74,.0555,2.4864,29.46,113.5115,95.4709,.0334,69.56150 URANUSN:19.260,31567,30052,8,3.9444,.6115,76.5038,131.2958,1.6021,226.0461; EARTH1,7926,7899,1,5.5,.55,1,23.92,23.4,.0167,0,1,0,102.604,.9856,357.2227 MARS1.524,4223,4201,.108,3.9,.15,.38,24.62,25.2,.0934,1.85,1.881,49.4066,335.699,.5240,151.1544 JUPITERUE ";A$210' DATA FOR PLANETS<XP19:YP116KPD(XP,YP)VYP,XPd MERCURY.387,3036,3036,.055,5.4,.06,.27,58.7,0,.2056,7.0044,.241,48.0994,77.1511,4.0923,158.2455 VENUS/.723,7525,7525,.817,5.2,.65,.85,243,178,.0060)" 25.38"<""AXIS INCLINATION (DEG..)";30)" 7.25"T," (TO ECLIPTIC)"Z6@"SUNSPOT CYCLE (YEARS)";30)" 11"JT"SPECTRAL TYPE";30)" G"^h"---------------------------------------"r|"PRESS RETURN TO CONTIN:::)"THE SUN - OUR NEAREST STAR"X"---------------------------------------""DISTANCE (MILLION MI)";30)" 92.953""DIAMETER (MILES)";30)"864,000""MASS (EARTH=1)";30)"332,958" "ROTATION PERIOD (DAYS)";3TURN6^P$"SATURN"6h793016rDS4F1:900A6|DS3ī4260\6DS7220,7460,7730,210l6DS54200u6210}6:6"SATELLITES OF SATURN"66"1) 1980S28 A RING SHEPHERD"6"2) 1980S27 F RING SHEPHERD" 7"3) 1980S26 F RIN"JV"5Q2S$"IO"+5Q3S$"EUROPA"B5Q4S$"GANYMEDE"Y5Q5S$"CALLISTO"k5Q6S$"JVI"~5Q7S$"JVII"5Q8S$"JX"5Q9S$"JXII"5"Q10S$"JXI"5,Q11S$"JVIII"56Q12S$"JIX"5@F15J63606T SUB FOR SA JV":"2) IO"-4x"3) EUROPA":"4) GANYMEDE"J4"5) CALLISTO":"6) JVI"b4"7) JVII":"8) JX"|4"9) JXII":"10) JXI"4"11) JVIII":"12) JIX"44"JUPITER ALSO HAS SEVERAL VERY SMALL":"SATELLITES":4"SELECT 1 THRU 12 ";Q5Q1S$N10AS$"VESTA":AA3(3N999ī210235390<33510R3 SUB FOR JUPITERc3 P$"JUPITER"m37930}3DS3ī39203(DS4F1:71032DS7220,7460,7730,2103<DS538603F2103P:::3Z"SATELLITES OF JUPITER ARE"3d 4n"1)2~N1AS$"CERES":AA152N2AS$"DAVIDA":AA9P2N3AS$"CYBELE":AA7o2N4AS$"EUPHROSYNE":AA62N5AS$"HYGIEA":AA42N6AS$"INTERAMNIA":AA102N7AS$"PALLAS":AA22N8AS$"PATENTIA":AA82N9AS$"PSYCHE":AA53'18"7) PALLAS";21)DA(2,2);33)"608"Q1B"8) PATENTIA";21)DA(8,2);33)"276"y1L"9) PSYCHE";21)DA(5,2);33)"250"1V"10) VESTA";21)DA(3,2);33)"538"1`1j"---------------------------------------"2t"SELECT 1 THRU 10 OR 999 FOR MENU ";N0 .0 "1) CERES";21)DA(1,2);32)"1003"V0"2) DAVIDA";21)DA(9,2);33)"323"~0"3) CYBELE";21)DA(7,2);33)"309"0"4) EUPHROSYNE";21)DA(6,2);33)"370"0$"5) HYGIEA";21)DA(4,2);33)"450"0."6) INTERAMNIA";21)DA(10,2);33)"350"PHOBOS"/ F1/ 7020?/ :"PRESS RETURN TO CONTINUE ";A$I/ 3310b/ SUB FOR ASTEROIDSl/ ::/ "ASTEROIDS LARGER THAN"/ 11)"155 MI (250 KM) DIAM."/ "---------------------------------------"0 5)"NAME";20)"DIAM. MILES KMS.. DS3ī33705. DS4ė:"MARS HAS NO RINGS":3490P. DS7220,7460,7730,210`. DS53310i. 210s.* ::.4 "SATELLITES OF MARS ARE".> .H "1) DEIMOS".R .\ "2) PHOBOS".f .p "SELECT 1 OR 2 ";Q.z Q1S$"DEIMOS"/ Q2S$"ARTH"-l 7930)-v DS3S$"MOON":3240Q- DS4ė:"EARTH HAS NO RINGS":3260l- DS7220,7460,7730,210|- DS53180- 210- F1- 6030- :"PRESS RETURN TO CONTINUE ";A$- 3180- MARS DETAILS- :::- P$"MARS"- 7930B FOR VENUS, P$"VENUS"$, 7930P, DS3ė:"VENUS HAS NO SATELLITE":3130x, DS4ė:"VENUS HAS NO RINGS":3130, DS7220,7460,7730,210,& DS53070,0 210,: :,D "PRESS RETURN TO CONTINUE ";A$,N 3070,X SUB FOR EARTH-b P$"E,210+| SUB FOR MERCURY++ P$"MERCURY"5+ 7930c+ DS3ė:"MERCURY HAS NO SATELLITE":3020+ DS4ė:"MERCURY HAS NO RINGS":3020+ DS7220,7460,7730,210+ DS52960+ 210+ :+ "PRESS RETURN TO CONTINUE ";A$+ 2960 , SU(8,1);25)PD(8,2);33)"TWO"M*, "9) PLUTO";13)PD(9,1);26)PD(9,2);33)"ONE"S*6 *@ "---------------------------------------"*J :*T "SELECT 1 THRU 9 OR 999 FOR MENU ";N*^ N999N10*h PN+r N2940,3050,3160,3280,3840,4180,4710,5030,5260(3,1);26)PD(3,2);33)"0NE"L) "4) MARS";14)PD(4,1);26)PD(4,2);33)"TWO") "5) JUPITER";14)PD(5,1);25)PD(5,2);33)" 16") "6) SATURN";14)PD(6,1);25)PD(6,2);33)" 17") "7) URANUS";13)PD(7,1);25)PD(7,2);33)"FOUR"*" "8) NEPTUNE";13)PDUMBER"*( 14)"IN";25)"THOUS.";35)"OF"R( 14)"A.U.";25)"MILES";33)"MOONS"( "---------------------------------------"( "1) MERCURY";16)PD(1,1);26)PD(1,2);33)"NONE"( "2) VENUS";16)PD(2,1);26)PD(2,2);33)"NONE") "3) EARTH";14)PD39,.18341,89.06,341.210,153.493b'x 3.1806,200,.1744,15.908,5.6723,.17376,107.387,338.661,151.999' 3.0596,217,.1522,17.288,5.3517,.18417,280.481,91.777,159.192' ' :' "PLANETARY DATA..... "' ( 10)"DIST.FROM SUN";25)"DIAM.";33)"N0!F>N16S$"OBERON":Q5:6690AFHN17S$"PHOBOS":Q1:7020bFRN18S$"PHOEBE":Q18:6510F\N19S$"RHEA":Q14:6510FfN20S$"TETHYS":Q9:6510FpN21S$"TITAN":Q15:6510FzN22S$"TITANIA":Q4:6690GN23S$"TRITON":Q1:686360&EN8S$"GANYMEDE":Q4:6360HEN9S$"HYPERION":Q16:6510jEN10S$"IAPETUS":Q17:6510E N11S$"IO":Q2:6360EN12S$"MIMAS":Q6:6510E N13S$"MIRANDA":Q1:6690E*N14S$"MOON ":6030F4N15S$"NEREID":Q2:685 THRU 24 OR 999 FOR MENU ";N,DN999ī210JDN1S$"ARIEL":Q2:6690kDN2S$"CALLISTO":Q5:6360DN3S$"CHARON":6190DN4S$"DEIMOS":Q2:7020DN5S$"DIONE":Q12:6510DN6S$"ENCELADUS":Q8:6510EN7S$"EUROPA":Q3:20)"18) PHOEBE"1CN"8) GANYMEDE";20)"19) RHEA"UCX"9) HYPERION";20)"20) TETHYS"xCb"10) IAPETUS";20)"21) TITAN"Cl"11) IO";20)"22) TITANIA"Cv"23) TRITON";20)"24) UMBRIEL"C"---------------------------------------"CD"SELECT 1-------------------------------"@B"1) ARIEL";20)"12) MIMAS"eB"2) CALLISTO";20)"13) MIRANDA"B"3) CHARON";20)"14) MOON"B&"4) DEIMOS";20)"15) NEREID"B0"5) DIONE";20)"16) OBERON"B:"6) ENCELADUS";20)"17) PHOBOS"CD"7) EUROPA";DA(AA,8)0A"MEAN ANOMALY (DEG.)";25)DA(AA,9)MA" (EPOCH 1982, AUG 19)"|A"---------------------------------------"AA"PRESS RETURN TO CONTINUE ";A$AA SATELLITESAN0A::A"SATELLITES OF SOLAR SYSTEM" B"--------S)";25)DA(AA,2)1@^"ECCENTRICITY";25)DA(AA,3)^@h"ORBIT INCLINATION (DEG.)";25)DA(AA,4)@r"PERIOD (YEARS)";25)DA(AA,5)@|"DAILY MOTION (DEG.)";25)DA(AA,6)@"LONG. ASCENDING NODE (DEG.)";25)DA(AA,7)A"LONG. OF PERIHELION (DEG.)";25)&?:"PRESS RETURN TO CONTINUE ";A$0?5280O? SUB FOR ASTEROID DETAILSY?::y?""DETAILS OF ASTEROID ";AS$?,"---------------------------------------"?6?@"MEAN DISTANCE FROM SUN";25)DA(AA,1)?J10)"(A.U.)"@T"DIAMETER (MILE>dQ1S$"TRITON"(>nQ2S$"NEREID"0>xF4:>6850N> SUB FOR PLUTO]>P$"PLUTO"g>7930v>DS35340>DS4ī5350>DS7220,7460,7730,210>DS5ī5280>210>F1:S$"CHARON":6190>::?"PLUTO DOES NOT HAVE RINGS"60,7730,210=DS5ī5050%=2101=:::N="SATELLITES OF NEPTUNE"}= "---------------------------------------"=="1) TRITON"=(=2"2) NEREID"=<=F"---------------------------------------"=P=Z"SELECT 1 OR 2 ";QLQ17S$"IAPETUS"d:HQ18S$"PHOEBE"l:RF1v:\6510:f SUB FOR URANUS:pP$"URANUS":z7930:DS3ī4790:DS4F1:1130:DS7220,7460,7730,210:DS5ī4730:2109Q3S$"1980S26"*9Q4S$"1980S3"?9Q5S$"1980S1"S9Q6S$"MIMAS"p9Q7S$"MIMAS FOLLOWER"9Q8S$"ENCELADUS"9Q9S$"TETHYS"9Q10S$"1980S13"9Q11S$"1980S25"9 Q12S$"DIONE"9Q13S$"1980S6" : Q14N"15) TITAN""8X"16) HYPERION"58b"17) IAPETUS"G8l"18) PHOEBE"r8v"SEVERAL OTHER SMALL SATELLITES HAVE"8"BEEN DISCOVERED"8"---------------------------------------"8"SELECT 1 THRU 18 ";Q8Q1S$"1980S28"8Q2S$"1980S27"G SHEPHERD"17"4) 1980S3 TRAILING COORBITAL"V7"5) 1980S1 LEADING COORBITAL"f7"6) MIMAS"7"7) MIMAS FOLLOWER"7"8) ENCELADUS"7"9) TETHYS"7"10) 1980S13"7&"11) 1980S25"70"12) DIONE"7:"13) 1980S6"7D"14) RHEA"8--"'V"PRESS RETURN TO CONTINUE ";A$-VJV$ SUB FOR PLANET DETAILSTV.::sV8"PHYSICAL DETAILS OF ";P$yVBVL"---------------------------------------"VVV`"EQUATORIAL DIAM.(MILES)";33)PD(P,2)VjWt"POLAR DIAM.(MILES)";33)PD"LONG. ASCENDING NODE (DEG.)";32)PD(P,13)1UbU"LONG. OF PERIHELION (DEG.)";32)PD(P,14):U"MEAN MOTION (DEG./DAY)";33)PD(P,15):U"MEAN ANOMALY (DEG.)";32)PD(P,16):5)"(EPOCH 1980,1,1)"UV"-------------------------------------/T\"---------------------------------------"5Tf[Tp"MEAN DISTANCE FROM SUN (A.U.)";lTz33)PD(P,1)rTT"ECCENTRICITY";33)PD(P,10)TT"INCLINATION (DEGREES)";33)PD(P,11)TT"SIDEREAL PERIOD (YEARS)";33)PD(P,12)T+U"---------------------------------------"2SVS"PRESS RETURN TO CONTINUE ";A$iSF1F0:3310|S F2F0:3860SF3F0:4730S F4F0:5050S*5590S4 SUB TO DISPLAY ORBIT DETAILSS>:::SH"ORBITAL DETAILS FOR ";P$TR----------------"RBR"MEAN DISTANCE (1000 MI)";30)MD(Q,1)fR"DIAMETER (MILES)";30)MD(Q,6)R"MASS (MOON=1)";30)MD(Q,5)R"SIDEREAL PERIOD (DAYS)";30)MD(Q,4)R"ECCENTRICITY";30)MD(Q,2)R"INCLINATION (DEG.)";30)MD(Q,3)R,SICITY";30)ND(Q,2)8Q&"INCLINATION (DEG.)";30)ND(Q,3)>Q0mQ:"---------------------------------------"sQDQN"PRESS RETURN TO CONTINUE ";A$QXF4ī5030Qb5590Ql::QvS$;" IS A SATELLITE OF MARS"QR"-----------------------;" IS A SATELLITE OF NEPTUNE"#PRP"---------------------------------------"XPP"MEAN DISTANCE (1000 MI)";30)ND(Q,1)P"DIAMETER (MILES)";30)ND(Q,6)P"MASS (MOON=1)";30)ND(Q,5)P"SIDEREAL PERIOD (DAYS)";30)ND(Q,4)Q"ECCENTR5),Oh"SIDEREAL PERIOD (DAYS)";30)UD(Q,4)LOr"ECCENTRICITY";30)UD(Q,2)rO|"INCLINATION (DEG.)";30)UD(Q,3)xOO"---------------------------------------"OO"PRESS RETURN TO CONTINUE ";A$OF1F0:4710O5590O::PS$ETURN TO CONTINUE ";A$%NF1ī4180/N55909N"::]N,S$;" IS A SATELLITE OF URANUS"N6"---------------------------------------"N@NJ"MEAN DISTANCE (1000 MI)";30)UD(Q,1)NT"DIAMETER (MILES)";30)UD(Q,6)O^"MASS (MOON=1)";30)UD(Q,ON=1)";30)SD(Q,5)-M"DENSITY";30)SD(Q,7)WM"SIDEREAL PERIOD (DAYS)";30)SD(Q,4)qM"ALBEDO";30)SD(Q,8)M"ECCENTRICITY";30)SD(Q,2)M"INCLINATION (DEG.)";30)SD(Q,3)MM"---------------------------------------"MN"PRESS R&LP"PRESS RETURN TO CONTINUE ";A$5LZF1ī3860?Ld5590ILn::mLxS$;" IS A SATELLITE OF SATURN"L"---------------------------------------"LL"MEAN DISTANCE (1000 MI)";30)SD(Q,1)L"DIAMETER (MILES)";30)SD(Q,6)M"MASS (MOSTANCE (1000 MI)";30)JD(Q,1)AK "DIAMETER (MILES)";30)JD(Q,6)bK"MASS (MOON=1)";30)JD(Q,5)K"SID. PERIOD (DAYS)";30)JD(Q,4)K("ECCENTRICITY";30)JD(Q,2)K2"INCLINATION (DEG.)"30)JD(Q,3)K<"---------------------------------------"LF YET AVAILABLE"JGJ"---------------------------------------"MJqJ"PRESS RETURN TO CONTINUE ";A$JF1F0:5260J5590J::JS$;" IS A SATELLITE OF JUPITER"JJ"---------------------------------------"K"MEAN DIS A SATELLITE OF PLUTO"IBLIL"---------------------------------------"RIV~I`"MEAN DISTANCE (1000 MI)";30)"10.563"Ij"DIAMETER (MILES)";30)"745"It"SIDEREAL PERIOD (DAYS)";30)"6.39"I~I"FURTHER DETAILS OF CHARON ARE NOT"J" PERIOD (DAYS)";30)"27.321661">H"ECCENTRICITY";30)".0549"gH"INCLINATION (DEG.)";30)"18.28 TO"xH30)"28.58"~HH"---------------------------------------"H"PRESS RETURN TO CONTINUE ";A$HF1ī3160H$5590H.::I8S$;" I50#GN24S$"UMBRIEL":Q3:6690-G::NGS$;" IS SATELLITE OF EARTH"}G"---------------------------------------"GG"MEAN DISTANCE (1000 MI)";30)"238.853"G"DIAMETER (MILES)";30)"2160"G"MASS (MOON=1)";30)"1"H"SIDEREAL ...." [":*[,6)"1) ORBITAL DETAILS"0[6N[@6)"2) PHYSICAL DETAILS"c[J12)"OF PLANET"i[T[^6)"3) SATELLITES"[h:6)"4) RINGS"[r:6)"999) RETURN TO MENU"[|:["SELECT 1 THRU 4 OR 999 ";DS[DS999DS5[[\ES" Z0Z"MASS EARTH/MASS MOON";25)"81.3"6Z^Z"MASS SUN/MASS EARTH";25)"332958"dZZ"--------------------------------------"Z"PRESS RETURN TO CONTINUE ";A$Z210Z SUB FOR DETAIL SELECTIONZ:::ZDS0["SELECT---------"YP>YZ"ASTRONOMICAL UNIT";25)"149.6 MILL. KM"eYd8)"(A.U.)";26)"92.953 MILL. MI"kYnYx"VELOCITY OF LIGHT";25)"299792.5 KM/SEC"Y25)"186635.4 MI/SEC"YY"EARTH EQUATORIAL RADIUS";25)"6378.16 KM"Z25)"3963.3 MIL,9) X2X"SURFACE GRAVITY (G'S)";33)PD(P,7)8XRX"ALBEDO";33)PD(P,6)XX X"---------------------------------------"X"PRESS RETURN TO CONTINUE ";A$X(X2:::X<"ASTRONOMICAL CONSTANTS" YF"------------------------------(P,3) W~-W"MASS (EARTH=1)";33)PD(P,4)3WNW"DENSITY";33)PD(P,5)TWwWP$"MERCURY"P$"VENUS"ī7620W"ROTATION PERIOD (HOURS)";33)PD(P,8):7630W"ROTATION PERIOD (DAYS)";33)PD(P,8)WX"AXIS INCLINATION (DEG.)";33)PD(P ANOTHER CALCULATION? Y/N ";A$02A$"N"ī1370Y<A$"Y"ĺ"INVALID RESPONSE"::1320bF310hP{Z"RUN ASTRO2"ATER THAN 1 SEC"/" IS NOT RECOMMENDED)"5d"AND THE IMAGE ON THE FILM PLANE WILL BE"wI(((I),3))I;" MM IN DIAMETER" " (NOTE: IMAGE ON THE FILM PLANE"" SHOULD EXCEED 3 MM TO BE USEFUL)":("WANT",~A2EQ$"CAMERA/EYEPIECE COMBINATION"TA3EQ$"PROJECTION FROM EYEPIECE"e"WITH ";EQ$m:EX.01ĺ"THE EXPOSURE IS ";EX;" SEC.":1210EX(((EX),3))"THE EXPOSURE IS ABOUT ";EX;" SEC"" (NOTE: EXPOSURE GREAN40PL$"JUPITER"N124PL$"SATURN"N3.5L$PL$"URANUS"N.81e.PL$"NEPTUNE"N.38q8NNASABEXEFLEFLNL::V"TO PHOTOGRAPH ";PL$;" ON FILM RATED AT "`ASA;" ASA"jtA1EQ$"FILM AT PRIME FOCUS OF OBJECTIVETHREE TIMES THIS RESOLUTION"1R(((R3),4))\:"NAMELY ";(R);" LINES/MM TO AVOID"|"GRAIN SPOILING THE IMAGE"::"WHAT IS ASA RATING OF CHOSEN FILM? ";ASA::PL$"MERCURY"N260PL$"VENUS"N960PL$"MARS"4FEFLAO>:::%HDPDP3600;RDP(DP57.29578)F\IFDPUfR1450EFLhpR(((R),4))pz:"RESOLUTION FOR ";PL$;" AT""FILM PLANE WILL BE ";(R);" LINES/MM":"YOU ARE ADVISED TO PICK A FILM WITH""AT LEAST DIAMETER IN ARCSECS"E"(YOU CAN FIND THIS FROM ONE OF THE"f" PROGRAMS IN THIS SERIES)"n: "WHAT IS PLANET'S NAME ";PL$PL$"PLUTO"ĺ"NO DATA ON PLUTO; PICK ANOTHER PLANET ":780 *"WHAT IS DIAMETER IN ARCSECS ";DP STANCE EYEPIECE TO FILM PLANE (IN) ";DE6DEDE25.4U CALC. EFFECTIVE F NUMBEReA1EFLNFA2EFLNFFCFE:700A3EFL(DE1)FENF::"YOU MUST NOW ENTER THE NAME OF""THE PLANET YOU ARE PHOTOGRAPHING""AND ITSAOAO25.4 ; "FOCAL LENGTH OF OBJECTIVE (IN) ";FOJ FOFO25.4W NFFOAOf &A2ī580l 0 :"FOCAL LENGTH OF CAMERA LENS (MM) ";FC DA1ī670 N X"FOCAL LENGTH OF EYEPIECE (MM) ";FE bA1ī670 lA2ī670 v'"DILENS IN USE" ; " 3) IMAGE PROJECTED FROM EYEPIECE"_ " OF TELESCOPE INTO CAMERA" " WITHOUT A CAMERA LENS" : "SELECT 1, 2, OR 3 ";A :: "GIVE FOLLOWING DATA "  "CLEAR APERTURE OF OBJECTIVE (IN) ";AO ,"PRESS RETURN TO CONTINUE ";A$, 6::O @"WHICH METHOD ARE YOU USING?"W J:y T" 1) FILM AT PRIME FOCUS OF" ^" TELESCOPE'S OBJECTIVE" h r" 2) FILM IN CAMERA AND CAMERA" |" AT EYEPIECE OF TELESCOPE" " WITH CAMERA UTES THE SIZE OF THE IMAGE OF ANY"K "SELECTED PLANET ON THE FILM PLANE"U ::~ "FOR AN ASA RATING WHICH YOU INPUT" "IT CALCULATES AN AVERAGE EXPOSURE" "FOR THE PLANET AND THE INSTRUMENT" "CONFIGURATION YOU ARE USING." "::" x6)"S & T SOFTWARE SERVICE"' :/ :Q "WANT INSTRUCTIONS? Y/N ";A$b A$"N"ī310 A$"Y"ĺ"INVALID RESPONSE";:150 : :: "THIS PROGRAM ASKS FOR PARTICULARS OF" "YOUR ASTROPHOTO INSTALLATION AND THEN"" "COMP|  PHOTO GUIDE FOR PLANETS-::::5:Q(9)"-----------------"m29)"I PHOTO I"<9)"-----------------"F:P7)"AN ASTRONOMY PROGRAM"Z:6)"BY ERIC BURGESS F.R.A.S."d:n6)"ALL RIGHTS RESERVED BY"     UE ";A$'::::10030 '3'"RUN ASTRO2"F"RUN ACONV" |"RUN SSTAR"1 "RUN PLNDT"C "RUN CONST"U "RUN CONSH"g "RUN PHOTO"{ S1SS$"TIME" S2SS$"MOON" S3SS$"PLANETS" :: SS$;" PROGRAMS" "ARE ON DISKETTE NUMBER 1": "TO RUN THESE PROGR "5)"3) SOLAR SYSTEM DATA"C ,5)"4) NORTHERN CONSTELLATIONS"h 65)"5) SOUTHERN CONSTELLATIONS" @5)"6) PHOTO GUIDE" J5)"7) RETURN TO MAIN MENU" T YGT$:GT(GT$):: ^GT1GT7ĺIE$:250 hGT370,380,390,400,410,420,90 r 5)"5) END" * S$:S(S$)::0 F S1S5ĺIE$:90T S5ī570b S4ī240k 440w ::: "GENERAL AND TUTORIAL PROGRAMS": "SELECT BY NUMBER ... ": 5)"1) ASTRONOMICAL CONVERSIONS" 5)"2) METEOR SHOWERS"... SELECT BY NUMBER": p9 s"DISKETTE (OR SIDE) 1"? uQ x5)"1) TIME"c 5)"2) MOON"x 5)"3) PLANETS"~ "DISKETTE (OR SIDE) 2 - THIS DISKETTE" 5)"4) GENERAL AND TUTORIAL" "EITHER DISKETTE (OR SIDE)"  IE$"INVALID ENTRY")::G("PROGRAMS FOR ASTRONOMY"i-:"BY ERIC BURGESS F.R.A.S."q2:<"CELESTIAL BASIC DISK 2"A:F"ALL RIGHTS RESERVED BY"K"S & T SOFTWARE SERVICE"PJ200011:JZd: n"MENU!! ! ! ! "        AMS YOU MUST" "REBOOT AND"@ "LOAD DISKETTE 1 INTO YOUR"T 9)"DISKDRIVE"\ : "PRESS RETURN FOR MAIN MENU AGAIN" &A$ 090 : D S" N"20-22, MAX 21,12/HR, RAD.18 RA 33 DEC" X"GOOD ANNUAL SHOWER":b11)"X VE