' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`]TP11.86224:E146.966365:W14.0095493:ECC.0484658:A5.202561:I1.3041819:OM100.2520175f650--SATURN CALCULATIONS 20:"NOW DOING CALCULATIONS FOR SATURN "WP6TP29.45771:E165.322242:W92.6653974:ECC.0556155:A9.554747:IALLY."P15000:P#D$(4)=PL1P$"RUN ORRERY"VPL1P$"RUN MENU"c:D$;P$ N FROM < THE ASTRONOMY"?J"DATA BOOK >,BY J.HEDLY ROBINSON,"jK"EXCEPT FOR THE INFORMATION CONCERN-"L"ING THE LENGTH OF THE YEAR OF PLUTO"M"WHICH WAS TAKEN FROM < THE NEW"N"CONCISE ATLAS OF THE UNIVERSE >"O"PUBLISHED BY RAND MC NY ( WATER=1 )";}ñ5â14:1)"MASS ( EARTH=1 )";;ñ]â16:1)"VOLUME ( EARTH=1 )";cñâ18:1)"GRAVITY ( EARTH=1 )";ñâ20:1)"MEAN MAGNITUDE";ñPL1֫60999GH"ALL INFORMATIOM IN THIS PROGRAM"I"WAS TAKE1))DAYSG723179ILST(((24DAYS)TIME)A)TIMELO(180PI)15BbLSTLST24(LST24)xLST0LSTLST24~QQ1000WQ(Q)W.5Q(Q)1:2300Q(Q)QQ1000 ICC32120 H:(4);"RUN MENU"&R8\ LST ROUTINEXfA.0027379093:B6.588526667ipM53ī2190zG365Y5D5((M51)31)((Y51)4)((34)((Y51)1001))2210G365Y5D5((M51)31)(M5.42.3)GG(Y54)((34)((Y5100)ARS CALCULATIONS?20:"NOW DOING CALCULATIONS FOR MARS "HWP4TP1.88089:E126.30783:W335.6908166:ECC.0933865:A1.5236883:I1.8498011:OM49.4032001650--JUPITER CALCULATIONS20:"NOW DOING CALCULATIONS FOR JUPITER"WP57.1442128:ECC.2056306:A.3870986:I7.0043579:OM48.0941733D h650^ r--VENUS CALCULATIONS w20:"NOW DOING CALCULATIONS FOR VENUS " |WP2 TP.61521:E355.73352:W131.2895792:ECC.0067826:A.7233316:I3.394435:OM76.4997524 650--ME(360PI)ECC(ME(1))E4 "LE360LELE360:290M ,LE0LELE360:300Y 6VELEWm ;VE(1)VEPI180 @RE(1ECC2)(1ECC(VE(1))) J --MERCURY CALCULATIONS O20:"NOW DOING CALCULATIONS FOR MERCURY" TWP1; ^TP.24085:E231.2973:W7NS SECTION$ --EARTH CALCULATIONSP 20:"NOW DOING CALCULATIONS FOR EARTH" TE1.00004:E98.833540:W102.596403:ECC.016718 NE(360D)(365.2422TE) NE360NENE360:240 NE0NENE360:250 MENEEW ME(1)MEPI180 LEN |14:15:"";MM,DD,YYYY9 MM3YYYYYYYY1:MMMM12K A(YYYY100)\ B2A(A4)q C(365.25YYYY) D(30.6001(MM1)) JDBCDDD1720994.5 DEJD2444238.5 --DE=DAYS ELAPSED SINCE JANUARY 0.0 1980 DDE --CALCULATIOD Z17:"6.......PLANET MAGNITUDES, PHASES, AND DISTANCES"_ [22:"WHICH? (1-6) ";Q \Q1Q2Q3Q4Q5Q6ĺ"":91 ^Q2Q4İ10000 d::12 nPI3.141592654 x10:10:"PLEASE ENTER THE DATE" z12:14:"(MM,DD,YYYY)"  :Q19261:13:"PLANET PLOTTER"I3:18:"MENU"m(7:"1.......STATIONARY ORRERY"29:"2.......ANIMATED ORRERY"<11:"3.......STATIONARY STARFIELD"F13:"4.......ANIMATED STARFIELD"P15:"5.......PLANET LOCATOR"IKE ANOTHER DATE? ";Q$&'Q$"Y"ī10C'Q$"N"ĺ(4);"RUN MENU"N'10140 DTTARIUS"1~'A12220000A1200000B$"CAPRICORN"'A$B$ĺ"BOTH YOUR ASTRONOMICAL AND ASTROLOGICAL ZODIAC SIGNS ARE ";B$;"."'A$B$ĺ"YOUR ASTRONOMICAL ZODIAC SIGN IS":A$;", BUT YOUR ASTROLOGICAL":"ZODIAC SIGN IS ";B$;"."''"WOULD YOU L%8'A5210000A6210000B$"GEMINI"IB'A6210000A723000B$"CANCER"kL'A7230000A8230000B$"LEO"V'A8230000A9230000B$"VIRGO"`'A9230000A10240000B$"LIBRA"j'A10240000A11220000B$"SCORPIO"t'A11220000A12220000B$"SAGI":1000090 A11290000A12180000A$"OPHIUCHUS":10000k: A12180000A1190000A$"SAGITTARIUS":10000'A1200000A2190000B$"AQUARIUS"'A2190000A3210000B$"PISCES"$'A3210000A4200000B$"ARIES".'A4200000A5210000B$"TAURUS" A6210000A7200000A$"GEMINI":10000V A7200000A8100000A$"CANCER":10000 A8100000A9130000A$"LEO":10000 A9130000A10300000A$"VIRGO":10000 A10300000A11210000A$"LIBRA":10000& A11210000A11290000A$"SCORPIUS"CAPRICORNUS:GOTO10000 M A1190000A2160000A$"CAPRICORNUS":10000{ A2160000A3110000A$"AQUARIUS":10000 A3110000A4180000A$"PISCES":10000 A4180000A5280000A$"ARIES":10000 A5280000A6210000A$"TAURUS":10000*( A8090000A9150000A$"LEO":10000T*A9150000A10300000A$"VIRGO":100004A10300000A11230000A$"LIBRA":10000>A11230000A11300000A$"SCORPIUS":10000HA11300000A12170000A$"OPHIUCHUS":10000RA12170000A1200000A$A2150000A3130000A$"AQUARIUS":10000WA3130000A4180000A$"PISCES":10000A4180000A5130000A$"ARIES":10000A5130000A6210000A$"TAURUS" A6210000A7200000A$"GEMINI":10000A7200000A8090000A$"CANCER":10000100003 LA10300000A11200000A$"LIBRA":10000c VA11200000A11290000A$"SCORPIUS":10000 `A11290000A12170000A$"OPHIUCHUS":10000 jA12170000A1200000A$"SAGITTARIUS":10000  A1200000A2150000A$"CAPRICORNUS":10000+00- A4180000A5130000A$"ARIES":10000Y A5130000A6200000A$"TAURUS":10000 $A6200000A7200000A$"GEMINI":10000 .A7200000A8100000A$"CANCER":10000 8A8100000A9130000A$"LEO":10000 BA9130000A10300000A$"VIRGO":A$"SCORPIUS":10000F A11300000A12180000A$"OPHIUCHUS":10000x A12180000A1200000A$"SAGITTARIUS":10000~  A1200000A2170000A$"CAPRICORNUS" A2170000A3110000A$"AQUARIUS":10000 A3110000A4180000A$"PISCES":100RUS":100007 A6200000A7210000A$"GEMINI":10000c A7210000A8100000A$"CANCER":10000 A8100000A9160000A$"LEO":10000 A9160000A10310000A$"VIRGO":10000 A10310000A11230000A$"LIBRA":10000 A11230000A1130000000 ZH.25ī2000# dH.5ī3000) nZ xA1200000A2160000A$"CAPRICORNUS":10000 A2160000A3140000A$"AQUARIUS":10000 A3140000A4190000A$"PISCES":10000 A4190000A5130000A$"AIRES":10000 A5130000A6200000A$"TAUP :0 :11:10:"PLEASE ENTER BIRTHDAY"H 14:"(MM,DD,YYYY)"e 16:14:" ";D1$,D2$,D3$yD5$D1$D2$D3$A(D5$)BA10000C(B)(DBC2ED100007(E((E))).5EE18F(E)<GF4FHG(G) PH0ī10    0PI)15B##LSTLST24(LST24)9(#LST0LSTLST24?2#L'QQ1000Y'WQ(Q)t$'W.5Q(Q)1:10040.'Q(Q)8'QQ1000B'PP.0027379093:B6.588526667*"M53ī8950k"G365Y5D5((M51)31)((Y51)4)((34)((Y51)1001))u"8970"G365Y5D5((M51)31)(M5.42.3)#GG(Y54)((34)((Y5100)1)) #DAYSG723179 #LST(((24DAYS)TIME)A)TIMELO(18 l (20):" 1. ANOTHER POSITIONAL COMPUTATION"d v (21):" 2. ANOTHER RISE/SET COMPUTATION" (22):" 3. END PROGRAM" (24):"WHICH? ";F$ F$"1"Đ:7980 F$"2"ĺD$;"RUN SOLAR CALC" F$"3"ĺ(4);"RUN MENU" 8330"AAL INFORMATION"  /  "DATE:"M5"/"D5"/"Y5"5 & X + M9ĺ"TIME:"H":0"M" "C$:8250o 0 "TIME:"H":"M" "C$w : : D "SOLAR AZIMUTH= "AZ" DEGREES E OF N" N X "SOLAR ALTITUDE= "AL" DEGREES b (18):"PLEASE SELECT ONE OF THE OPTIONS BELOW"2 AZ((LA)(DEC)(LA)(DEC)(HA))(ZD)O AZ(AZ(AZAZ1))1.5708Y H1HAm H10AZPIAZ H10AZPIAZ AZ180PIAZ ZD180PIZD QAZ 10000 AZQ ALT90ZD QALT:10000:ALTQ   "SOLAR POSITIONUTTITZ1 TIUT 8910=  CONVERT LST TO RADIANSU LSTLST15(PI180)c HALSTAOm H1HA H1PIH1H12PI H1PIH1H12PI HAH1  Z=ZENITH DIST Z(LA)(DEC)(LA)(DEC)(HA) ZD1.5708((Z(ZZ1))).ERT TO DECIMAL HOURS" TIHM605 "AM OR PM ? "L (12):(4):" ";B$m (B$,1)"P"C$"P.M.":8087w 8090 H12TITI12:8100 8100 (B$,1)"A"C$"A.M.":8092 8100 H12TITI12:8100 8100  CONVERT TO UT ,PI3.141592654 6D$(4)4@D$;"OPEN DATA"IJD$;"READ DATA"gOLA,LO,M5,D5,Y5,DEC,AO,TZ|TD$;"CLOSE DATA"Y:r"PLEASE INPUT TIME"|"HOURS ? ";HH12H1Ģ(5):8060"MINUTES ? ";MM0M59Ģ(6):8070  CONV  -.MM10ĺ"THE SUN RISES AT ";D":0"MM:1340L2"THE SUN RISES AT "D":"MMY<D(SET)kFXX(SETD)60xKMM(XX)PSS(SET(DMM60))3600ZSS30MMMM1_MM10ĺ"THE SUN SETS AT ";D":0";MM:d"THE SUN SETS AT ";D":"MMT(MQMN)(MMMQ))* TD= TOTAL TIME DIFFCTD(12LOPI)(TZ1)WF1(2PI)(X)xSET(12FRCEQ12PI)12TDRISE12(12FRCEQ12PI)TD:: D(RISE)XX(RISED)60MM(XX)(SS(X(DMM60))3600,SS30MMMM1 OF LONGITUDE-j DECLIN= SOLAR DECLINATIONMt AO= SOLAR RIGHT ASCENSIONh~ EQ= EQUATION OF TIME EC= ECCENTRICITYMM(LADEC)MN(LADEC) MQ=MUAMQ0MMMN0RC.0555555556(MMMN)MNMQMQMNMMMQX(EQ).9PIEQEQ(EQ)PI%AOEQMLJAO2PIAOAO2PI(AO(2PI))c$ M = MEAN ANOMALY ~. E= ECCENTRIC ANOMALY8 V= TRUE ANOMALYB EPSIL = OBLIQUITYL NOO= NUTATION OF OBLIQUI TY V AL=ALPHAO ` NL= NUTATIONML2PI(ML(2PI)),Y(.5EPSIL):YY2>Y(1Y)(1Y)O AL=ALPHA OaALOMEGAVNLvAL0ALAL2PIAL2PIALAL2PI(AL(2PI)) A=ALPHAA(Y(AL)) EQUATION OF TIME = EQEQAMLEQEQPI(EQPI)(180 >EPSILEPSILNOO8 H NL = NUTATION OF LONGITUDEl RNL(4.7872222E34.72222222E6T)(LL)PI180 \X(EPSIL)(VOMEGA):Y(1X2) fDECLIN(XY) p EQUATION OF TIME; ML= MEAN LONG. zMLOMEGAM ML0MLML2PIML2PIML EM:X14:EE(M(EEC(E)))(1EC(E)):XT V2(((EC1)(1EC))(.5E))f V0VV2PIx  LUNAR LONG. LL259.183275(2.078E32E6T)T2 LL(LL.0529539222D)PI180 * NUTATION TERMS 4NOO(2.5583333E32.5E7T)(LL)PI(23.452294(1.30125E2(1.64E65.03E7T)T)T)PI180v OMEGA(281.22083(4.53E43E6T)T24.70684E5D)PI180 ECCENTRICITY.01675104(4.08E51.26E7T)T M1.52417(1.5E43E6T)T2.985600267D M360MM360(M360):MMPI1800MM,DD,YYYY) ";M,D,Y bM3640\ lG365YD((M1)31)((Y1)4)((34)((Y1)1001))e v660 G365YD((M1)31)(M.42.3) GG(Y4)((34)((Y100)1)) DG72317929218 DD.5(12LOPI)24 DD1 TD365257 EPSIL;A$ 1A$"Y"ī567% 2A$"N"ī568. 3560: 7TZTZ1P 8PI3.14159267:: :"INPUT YOUR LATITUDE (D,M,S) ";D,M,S:LADM60S3600:LALAPI180:: D"INPUT YOUR LONGITUDE (D,M,S) ";D,M,S:LODM60S3600:LOLOPI180:: X"INPUT THE DATE ( B"INPUT YOUR TIME ZONE BY THE FOLLOWING"::" CODES"Z(14):"1= EASTERN"(14):"2= CENTRAL":(14):"3= MOUNTAIN"(14):"4= PACIFIC":(13):"-4= GREENWICH"&TZ:TZTZ5::: 0"IS DAYLIGHT SAVINGS TIME IN EFFECT? (Y OR N)"     H-%) ` d$ $$$$?8??636666vNN-3ȃfN1))DAYSG723179ILST(((24DAYS)TIME)A)TIMELO(180PI)15BbLSTLST24(LST24)xLST0LSTLST24~QQ1000WQ(Q)W.5Q(Q)1:2300Q(Q)QQ1000 ICC32120 H:(4);"RUN MENU"&R8\ LST ROUTINEXfA.0027379093:B6.588526667ipM53ī2190zG365Y5D5((M51)31)((Y51)4)((34)((Y51)1001))2210G365Y5D5((M51)31)(M5.42.3)GG(Y54)((34)((Y5100)(13):"AZIMUTH= "AZ" DEGREES E OF N"4(18):(1)Q"WHICH WOULD YOU LIKE?"W " 1. ANOTHER OBJECT (NEW TIME&DATE)"" 2. ANOTHER OBJECT (SAME TIME&DATE)" 3. END" *"WHICH? ";CC4CC1ė:210>CC2980 Cb l(v"POSITIONAL INFORMATION".6:K"OBJECT: "N$(I)f"DATE: "M5"/"D5"/"Y5"uMI919802000"TIME: "H4":0"MI" "B$" "V$X$2010"TIME: "H4":"MI" "B$" "V$X$(1):(11):"ALTITUDE= "ALT" DEGREES"%(1):(Z(ZZ1)))IAZ((LA)((DEC(I)))(LA)((DEC(I)))(HA))(ZD)jAZ(AZ(AZAZ1))1.5708tH1HAH10AZPIAZH10AZPIAZAZ180PIAZ&ZD180PIZD0QAZ:2260DAZQNALT90ZDXQALT:2260:ALTQDEC(I)DEC(I)PI180|2150< CONVERT LST TO RADIANSTLSTLST15(PI180)eHALSTRA(I)oH1HAH1PIH1H12PIH1PIH1H12PIHAH1 Z=ZENITH DIST Z(LA)((DEC(I)))(LA)((DEC(I)))(HA)ZD1.5708(G$(Q$,2)G(G$)%H$(Q$,2)1H(H$)BRA(I)GH60URA(I)RA(I)15lRA(I)RA(I)PI180{R$DEC$(I)"(R$)01600,L$(R$,2)61610@L$(R$,3)JJ$(R$,2)TL(L$):J(J$)^(R$)0JJhDEC(I)LJ60rLEASE INPUT THE DEC. OF "N$(24)%n9x"DEGREES? ";DEM"MINUTES? ";MNa"SECONDS? ";SCDEC(24)(DE)MN60SC3600DE0DEC(24)DEC(24)DEC(24)DEC(24)PI180 LINES730-770 CONVERT RA(I) TO RADIANS1660Q$RA$(I) N"N$(24)"THE MOON"7N$(24)"SUN"N$(24)"THE SUN"?:f "PLEASE INPUT THE R.A. OF "N$(24)l~"HOURS? ";HO("MINUTES? ";MM2"SECONDS? ";SE<RA(24)HOMM60SE3600FRA(24)RA(24)15PRA(24)RA(24)PI180Z:d"P `IV8j(23):(V)(tI". "N$(I)/~VL(23):(16):"24. OTHER"c(20):"WHICH? ";IxI1I2412001170III(I)II01170I2412401480"WHAT IS THE NAME OF THIS OBJECT? ";N$(24)N$(24)"MOOD20LALA!LALAPI180'5(8):(1);Z"PLEASE SELECT AN OBJECT"`lV513vIV4(10):(V)$I". "N$(I).V8(14):(9):"10. "N$(10)B(15):(9):"11. "N$(11)L(16):(9):"12. "N$(12)VV515 >"DEGREES? ";D1' H"MINUTES? ";M1; R"SECONDS? ";S1V \LO(D1)M160S13600g fD10LOLOx pLOLOPI180 z: "PLEASE INPUT YOUR LATITUDE"  "DEGREES? ";D2 "MINUTES? ";M2 "SECONDS? ";S2 LA(D2)M260S23600Z3V$"M" TZ4V$"P"' TZTZ5- o "IS DAYLIGHT SAVINGS TIME CURRENTLY IN EFFECT (Y/N) ? ";A$ A$"Y"TZTZ1:X$"DT":780 A$"N"X$"ST":780 (1):740 TZTZ1 TITITZ  *"PLEASE INPUT YOUR LONGITUDE" 4412TITI12:570 :; D"PLEASE INPUT YOUR TIME ZONE"A NG X^ b" 1. EASTERN"u l" 2. CENTRAL" v" 3. MOUNTAIN" " 4. PACIFIC" : "WHICH? ";TZ TZ1TZ4Ģ(9):660 TZ1V$"E" TZ2V$"C" T"MINUTES? ";MI# MI0MI59430E  CONVERT TO DECIMAL HOURS U TIH4MI60j "AM OR PM? ";T$ T$"AM"T$"PM"500 470 T$"PM"B$"P.M.":520 540 H412TITI12:570 570 T$"AM"B$"A.M.":560 &570 0HLE2"  "PI3.141492654: ,"PLEASE INPUT THE DATE"@ 6R @"MONTH? ";M5f JM51M512320v T"DAY? ";D5 ^D51D531340 h"YEAR? ";Y5 rY51980360 | "PLEASE INPUT THE TIME"  "HOURS? ";H4 H41H412410 .(11):(11):"S T A R F I N D E R"Q(13):(13):"BY TODD CLELAND"}RA$(25),DEC$(25),N$(25),RA(25),DEC(25)D$(4)D$;"OPEN STARFILE2"D$;"READ STARFILE2"I123RA$(I):DEC$(I):N$(I)I D$;"CLOSE STARFI     ͱŠӍɍ̍ύҍͱͳͷ͸ͱͱͲͲͳʹʹʹ͵͵Ͷ͹):N$(I) I) D$;"CLOSE STARFILE2"D"7 RA$(21)"19.29":DEC$(21)"27.51":N$(21)"ALBIREO"m RA$(22)"17.30":DEC$(22)"-37.04":N$(22)"SHAULA" RA$(23)"13.22":DEC$(23)"55.11":N$(23)"MIZAR" dD$(4) xD$;"OPEN STARFILE2" D$;"WRITE STARFILE2" I123 RA$(I):DEC$(I11.12":DEC$(16)"55.18":N$(16)"M97"X RA$(17)"12.37":DEC$(17)"-11.21":N$(17)"M104" RA$(18)"14.43":DEC$(18)"27.17":N$(18)"E BOOTIS" RA$(19)"13.24":DEC$(19)"-47.13":N$(19)"OMEGA CENTAURI" RA$(20)"03.05":DEC$(20)"40.46":N$(20)"ALGOL(11)"08.38":DEC$(11)"19.52":N$(11)"M44"\ RA$(12)"03.44":DEC$(12)"23.58":N$(12)"M45" RA$(13)"13.28":DEC$(13)"47.27":N$(13)"M51" RA$(14)"18.52":DEC$(14)"32.58":N$(14)"M57" RA$(15)"12.54":DEC$(15)"21.57":N$(15)"M64"$ RA$(16)")"M13"7 RA$(6)"18.18":DEC$(6)"-16.12":N$(6)"M17"g RA$(7)"17.59":DEC$(7)"-23.02":N$(7)"M20" RA$(8)"19.57":DEC$(8)"22.35":N$(8)"M27" RA$(9)"00.40":DEC$(9)"41.00":N$(9)"M31" RA$(10)"05.33":DEC$(10)"-05.25":N$(10)"M42"* RA$+RA$(25),DEC$(25),N$(25)L RA$(1)"05.32":DEC$(1)"21.59":N$(1)"M1"z RA$(2)"13.40":DEC$(2)"28.38":N$(2)"M3" RA$(3)"17.51":DEC$(3)"-34.48":N$(3)"M7" RA$(4)"18.02":DEC$(4)"-24.20":N$(4)"M8" RA$(5)"16.40":DEC$(5)"36.33":N$(5     S THE USER TO CREATE A"*I*"VARIETY OF BEAUTIFUL AND INTERESTING"O**"PATTERNS BY SELECTING HIS OWN PARAMETERS"*(11):(10):""*(16384)1285290*16368,0*550M OPTION,")[:)\"ON THE OTHER HAND, DEMONSTRATES THE"d)](9):(22):""|)^(16384)1285214)_16368,0)j)n"UTILITY OF DUAL-AXIS MOTION IN")s)x"DESCRIBING LUNAR MOTION. THE CUSTOM")}*"OPTION ALLOWIONS OF DUAL-AXIS"(-A(2"ROTATIONAL MOTION. THE ASTROWORLD"G(7t(<"SCRAMBLER OPTION WHICH APPEARS ON THE"z(A(F"MENU ILLUSTRATES HOW SUCH MOTION CAN BE"(P"EMPLOYED TO CREATE AN EXCITING AMUSEMENT" )Z"PARK ATTRACTION. THE EARTH-MOON WS12L:WPL8'AA1:BB1:F19:F27:E12:E25:K$"MI."B'1580]'$:::(4);"RUN MENU"c'w'"INSTRUCTIONS"}'' "SPIROGRAFIX IS DESIGNED TO ACQUAINT THE"''"USER WITH SOME OF THE MANY DIVERSE AND'#(("INTERESTING APPLICATf LL10000&p L9E043580+&z L1L129& L1$(L1)L& L2$(L1$,3,1)^& L2$"E"3540q& L3((L1$,4))& L4L3(L3)& L4.5L3(L3)1:3530& L3(L3)& 3550& L3((L1$,2))& L5((L1$,3))& WSL3(10L5)& WPL:3600 ' :11:"HOW MANY SCANS WOULD YOU LIKE TO SEE? ";M1;% 11% :11:"PLEASE SELECT A PLOTTING SPEED FROM 1(SLOWEST) TO 10(FASTEST) ";PS% PS1PS103350%* C.0001PS%4 LC%> LL10000%H LLL(L)%R LL.5L(L)1:3430%\ L(L) &$v 40,T100,T$ T$ 3&$ 2830,$ 4$ 11;$ 2`$ "PLEASE CHOOSE A SCANNING MODE"f$ ~$ 13:"1. AUTOMATIC"$ 13:"2. MANUAL"$ $ 17$ "WHICH?"$ 18:17:" ";A$$ A$"1"3340$ A$"2"U1:3350$ 3300$ 113% "3060# R$"M"550 # 30201# 54,0:55,96k# (1):(24):" "u# 3120# M1N3110# 3120#& 2110#0 NN1#: 54,0:55,96#D V220#N (2):(V):" "#X V#b 0#l T220T XR180X:YY80"^ X,Y,"h BEBE(12C)H"r X1R2(BE):Y1R2(BE)\"| X1X1X:Y1Y1Yg" X1,Y1{" NOISE(16336)" TH" 54,0:55,96" U03090" 54,0:55,96" (1):(24):"HIT C TO CONTINUE HIT M FOR MAIN MENU"" R$# R$"CE ! U0! MM1:3230%! BE0:N1R! 0:80,80:80,81:80,79:81,80:79,80:3~! A3.12415:B3.15744:R14010.91:R210.35! 54,0:55,96!" N1N2!, (9):(22):"TOTAL DEGREES SCANNED "N1!6 C.0001PS!@ THBAC!J XR1(TH):YR1(TH)" " P (24)I Z " "O d a n "INPUT Q";Q$m x M(Q$)t M Q$"9.2E+11" M$(Q$,4,1) M$ VV100 WV(V) W.5V(V)1:2770 V(V) VV100 ! MOON ROUTIN(M51)) PJ(J). P.5J(J)1:25509 J(J)O J10M5M51:J1g CC0M5M51:2570m s  PLOT BLANKS OVER BOTTOMLINES OF TEXT( (22)2 " "< (23) F " $ Q(Q). Q$(Q)"8 M5(Q$)2B M5523908L AV DD1P` Z$(Q$,4)aj M$((Z$,1))rt M$"E"2440|~ 2510 CC1 B$(Q$,2,1) B$"E"2490 J((Q$,3)):2500  J((Q$,1)):2500 M5((Q$,2)):2520 JQ(10550A$"N"36202170%L ROUND OFF ROUTINE (TENTHS PLACE)WQQ10dKQ(Q)}K.5Q(Q)1:2270Q(Q)QQ10"INPUT Q";QCC0 ROUND OFF ROUTINE (ONES PLACE) KQ(Q) K.5Q(Q)1:2350 X:Y1Y1Y3 X1,Y10*CLICK(16336)84THB>2600NHG115RSOUND(16336)(16336)(16336)(16336)(16336)(16336)\Gf(22):"PLOTTING COMPLETED"p(24):"WOULD YOU LIKE ANOTHER PLOT (Y/N) ?"zA$A$"Y":"SCALE"170,120274,120-MM12810T80,80:80,81:80,79:79,80:81,80y(22):"PLOTTING IN PROGRESS..."XX80THABCZXR1(TH):YR1(TH)XXXX:YY80X,YBEBEWSX1R2(BE):Y1R2(BE)  X1X10&SC101890 0CC11860*:1880MD(18):(29):"= "G1"E+"G2" "K$WN1920zX(18):(30):"= "SC" "K$:1920b(18):(30):"= "SC"0 "K$:1920l(18):(30):"= "SC" "K$:1920v(18):(30):"= 3E+5 "K$54,0:55,96: (15):(30)1174017604(7):(27):"RS= "E1"E+"E2" "K$>1770\(7):(27):"RS= "RB" "K$z(9):(27):"WP="WP" RPC"(11):(27):"WS="WS" RPC" PLOT SCALE FRAME170,110274,110274,160170,160170,110177,140192,140MM1191160,1600,1600,0'T PLOT DATA FRAME9^54,0:55,96:Xh(2):(27):"DATA SUMMARY"r170,0274,0274,100170,100170,0|170,22274,22AA116901710(5):(27):"RP= "F1"E+"F2" "K$1720(5):(27):"RP= "RA" "K$BBEST) ";SS1S10ė:14702G$"Y"C.01SGG$"N"C.01SUVC:2730]CVfWPCqWSCF C4$"Y"WS(WS):1550 C4$"N"WS(WS)(1)VWS:2730WSV"RRRPRS,63@ PLOT MAIN FRAMEJ0,0160,0K$,1)"M"K$"MI.":1410"x1360(|11:"DO YOU WISH TO SEE THE PATH OF THE PRIMARY AXIS PLOTTED (Y/N) ? ";W$W$"Y"Z3:1470W$"N"Z0:1470142011:"PLEASE SELECT A PLOTTING SPEED FROM 1(SLOWEST) TO 10(FAST1310CCDD:DD11300# 13208G1J:G2M5:1330B2230K(SCQQ2j<SR1K$"FT.":1380pFP11:"ARE THE UNITS IN WHICH THE RADII VALUES ARE EXPRESSED IN FEET OR MILES? "Z(34):(12):K$d(K$,1)"F"K$"FT.":1410n(10İ2310:1150t1180/~BBDD:DD1117091190NE1J:E2M5:1200X2230aRBQ SCALE UP TO FILL SCREENR1((RP(RPRS))76):R276R1 COMPUTE SCALING FACTORSC(RPR1)15QSCDD0SC10İ2310:1280 PRIMARY AXIS ";RPQRP$DD0;Q10İ2310:1020E1050ZAADD:DD11040d1060yF1J:F2M5:10702230$RAQ.8SR1RS11.17:1110BL11:"INPUT THE RADIUS OF THE SECONDARY AXIS ";RSVQRS`DD0jQpA0:BRA:900zARA:B0,SR192011:"DO YOU WISH THE SECONDARY AXIS TO ROTATEIN A CLOCKWISE FASHION? (Y/N) ";C4$C4$"Y"F(F):960C4$"N"FF(1):960910SR1RP14.375:98011:"INPUT THE RADIUS OF THE:C4$"N":840t*11:"WHAT FRACTION OF THE PRIMARY AXIS' VELOCITY DO YOU WISH THE SECONDARY AXIS TO HAVE? ";Fz4>11:"DO YOU WISH THE PRIMARY AXIS TO ROTATE IN A CLOCKWISE FASHION (Y/N) ? ";G$HRG$"Y"880\G$"N"890f830";A$A$"1"ī5000&A$"4"7407A$"3"2800MA$"2"SR1:740^A$"5"3620g660m11:"HOW MANY REVOLUTIONS OF THE PRIMARY AXISDO YOU WISH TO OBSERVE? ";NRADIANSN6.28 SR1800810  F2711.4:G$"Y"N:+X4:"1..............INSTRUCTIONS"Yb4:"2..............ASTROWORLD SCRAMBLER"l4:"3..............EARTH-MOON SYSTEM"v4:"4..............CUSTOM SPECIFICATIONS"4:"5..............END PROGRAM"13:14:"WHICH? (1-5)":15:19:" 13):F$"N":455+(27):(13):F$"D":455<Z13500:ZH0:550PF$ THIS WAS ORIGINALLY THE HOME OF A SILLY SOUND ROUTINE....I EDITED IT OUT FOR YOUR INCREASED COMFORT&:0MM05AA0:BB0:DD0:SR0D18:"MENU"):(13):F$"O":455/ (18):(13):F$"D":455K (19):(13):F$"D":455g (20):(13):F$" ":455 (21):(13):F$"C":455 (22):(13):F$"L":455 (23):(13):F$"E":455 (24):(13):F$"L":455 (25):(13):F$"A":455(26):((21):(11):F$"R":4553 c(22):(11):F$"A":455O h(23):(11):F$"F":455k m(24):(11):F$"I":455 r(25):(11):F$"X":455 w(13):(13):F$"B":455 |(14):(13):F$"Y":455 (15):(13):F$" ":455 (16):(13):F$"T":455 (17(H):(V):" " "XC12, 'XX(16336)4 ,XC; 1HB 6VS ;54,0:55,96o @(15):(11):F$"S":455 E(16):(11):F$"P":455 J(17):(11):F$"I":455 O(18):(11):F$"R":455 T(19):(11):F$"O":455 Y(20):(11):F$"G":455 ^165:W7:155 A210:B144/ Q110:W7:155> A70:B144P Q60:W7:155Y R96c Q255u TH06.28.1 XR(TH):YR(TH) 140,96X140,Y96 QQ4:W6 768,Q:769,W:770 TH 54,0:55,96 V1014 H1228 :789,3:790,96:791,0:792,0# * 3K 0,0279,0279,1910,1910,0T R46] 190o THO6.28.1 XR(TH):YR(TH) XXA:YYB A,BX,Y 768,Q:769,W:770 TH A70:B48 Q255:W7:155 A210:B48 Q"i;o(4);"BLOAD HI-RES CHARACTER GENERATOR,A$6000"]p(4);"BLOAD LCLETTER,A$6800"s770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202 x782,208:783,245:784,174:785,0:786,3:787,76:788,2                  MENU"e8020f!hD$(4)5rD$;"OPEN DATA"J|D$;"WRITE DATA"^LA:LO:M5:D5sY5:DEC:AO:TZD$;"CLOSE DATA"D$;"RUN TODD MOD"VDATA"LA:LO:M5:D5Y5:DEC:AO:TZD$;"CLOSE DATA"D$;"RUN TODD MOD"ANG)HX240ıRX15ı,\Y15ı:fY144ıJp0:1X0,Y0Tz5930\@:J10:12:"WOULD YOU LIKE":8:"POSITIONAL CALCULATIONS":7:"FOR THE SUN TODAY? (Y/N) "T14:18:" ";A$^(A$,1)"Y"8038c(A$,1)"N"ĺ(4);"RUN &X((150AZ(1)180PI)10)21.33330Y143<X255XJ3:1X,YXX0X:Y0YxXX2(RANG):YY2(RANG)X240ıX15ıY15ıY144ı0:1X0,Y05530DD(SET)NXX(SETD)60XMM(XX)bSS(SET"Q2ĺ"W"#PD(RISE)6ZXX(RISED)60CdMM(XX)`nSS(RISE(DMM60))3600fxySS30MMMM1MM10ĺ"SUNRISE: ";D":"MMMM10ĺ"SUNRISE: ";D":0"MM(20):(22)"AZIMUTH (E OF N): ";(AZ(1)180PI)|153,159(40,15440,152:40,15246,152Y54,15954,154:54,15456,154:56,15456,159r0:0,159255,159:3P159:128,P:162,P:179,P:196,P:213,P:230,P:247,P::145,P111,P:94,P:77,P:60,P:43,P:26,P:9,P(21):(19)Q1ĺ"E15429,159Y30,15930,149:30,14932,149:32,14932,155:32,15534,155:34,15534,15936,15936,154:36,15442,154:42,15442,15944,15944,156:44,15646,156:46,15646,150:46,15048,150:48,15051,150:51,15051,152:51,15253,152:53,152AZ(Q)PIAZ(Q)$|RANGPI2LADEC3Q2ī1790=5000G5200Q5500bP12000:PiQs5000}57005900&P12000:P+80008000::30,158254,158Q2ī5090 25,15925,154:25,15429,154:29,Q)HA(Q)2PI:15959=HA(Q)PIHA(Q)HA(Q)2PI:1597b@Z(LA)(DEC)(LA)(DEC)(HA(Q))JZ(Z(ZZ1))1.5708TAZ((LA)(DEC)(LA)(DEC)(HA(Q)))(Z)^AZ(Q)(AZ(AZAZ1))1.5708hHA(Q)0AZ(Q)PIAZ(Q)mHA(Q)01)31)(M5.42.3);GG(Y54)((34)((Y5100)1))M DAYSG723179^ TIMETIMET5LST(((24DAYS)TIME)A)TIMELO(180PI)15BLSTLST24(LST24)"LST0LSTLST24,LST(Q)LST15PI1806HA(Q)LST(Q)AO;PIHA(Q)HA(SET(12FRCEQ12PI)12TD?RISE12(12FRCEQ12PI)TD_A.0027379093:B6.588526667jQ12}Q1TIMERISEQ2TIMESETM53ī1537G365Y5D5((M51)31)((Y51)4)((34)((Y51)1001))1545G365Y5D5((M5ATION OF TIME$ EC= ECCENTRICITY5MM(LADEC)GMN(LADEC)T MQ=MUA]MQ0MMMN0RC.0555555556(MMMN)MNMQMQMNMMMQX((MQMN)(MMMQ)) TD= TOTAL TIME DIFFTD(12LOPI)(TZ1)F1(2PI)(X)ANOMALY #. E= ECCENTRIC ANOMALY98 V= TRUE ANOMALYSB EPSIL = OBLIQUITYL NOO= NUTATION OF OBLIQUI TY V AL=ALPHAO` NL= NUTATION OF LONGITUDEj DECLIN= SOLAR DECLINATIONt AO= SOLAR RIGHT ASCENSION ~ EQ= EQUAVNLAL0ALAL2PI@AL2PIALAL2PI(AL(2PI))N A=ALPHA_A(Y(AL)){ EQUATION OF TIME = EQEQAMLEQEQPI(EQPI)(EQ).9PIEQEQ(EQ)PIAOEQMLAO2PIAOAO2PI(AO(2PI))$ M = MEAN 6T)(LL)PI1806\X(EPSIL)(VOMEGA):Y(1X2)HfDECLIN(XY)pp EQUATION OF TIME; ML= MEAN LONG.zMLOMEGAMML0MLML2PIML2PIMLML2PI(ML(2PI))Y(.5EPSIL):YY2Y(1Y)(1Y) AL=ALPHA OALOMEG0VV2PI  LUNAR LONG.ELL259.183275(2.078E32E6T)T2f LL(LL.0529539222D)PI180{* NUTATION TERMS4NOO(2.5583333E32.5E7T)(LL)PI180>EPSILEPSILNOOH NL = NUTATION OF LONGITUDERNL(4.7872222E34.72222222ET)T24.70684E5D)PI180L ECCENTRICITY.01675104(4.08E51.26E7T)T| M1.52417(1.5E43E6T)T2.985600267D M360MM360(M360):MMPI180 EM:X14:EE(M(EEC(E)))(1EC(E)):X V2(((EC1)(1EC))(.5E)) V) v660/ G365YD((M1)31)(M.42.3)T GG(Y4)((34)((Y100)1))i DG72317929218 DD.5(12LOPI)24 DD1 TD36525 EPSIL(23.452294(1.30125E2(1.64E65.03E7T)T)T)PI180 OMEGA(281.22083(4.53E43E6LONGITUDE":12:15:"(DD,MM,SS)"7 F14:15:" ";D,M,SY HLODM60S3600:LOLOPI180 X:11:13:"INPUT THE DATE":12:14:"(MM,DD,YYYY)":14:14:" ";M,D,Y ]M5M::D5D:Y5Y bM3640 lG365YD((M1)31)((Y1)4)((34)((Y1)1001)ECT? (Y/N) ";A$ 1A$"Y"ī5671 2A$"N"ī568: 3560F 7TZTZ1\ 8PI3.14159267::r 9T5TZ1::11:10 :"INPUT YOUR LATITUDE" <12:15:"(DD,MM,SS)" =14:15:" ";D,M,S ?LADM60S3600:LALAPI180 B:11:10 D"INPUT YOUR ZONE (1-5) :+ (14):"1 = EASTERN"Z (14):"2 = CENTRAL":(14):"3 = MOUNTAIN" (14):"4 = PACIFIC":(14):"5 = GREENWICH" :: !TZ "TZ5TZ4 &TZTZ5::: ) +10:8:"IS DAYLIGHT SAVINGS TIME" 012:12:"IN EFF---THE FORMULAE USED IN THIS PROGRAM APPEARED IN AN ARTICLE IN BYTE MAGAZE...."WHAT TIME DOES THE SUN RISE AND SET" BY BRUCE BARKSTROM2(4);"BLOAD SUN.SHAPE 8000"7232,0:233,128<115,0:116,128:8 " INPUT YOUR TIME                   ER CALCULATION?"#O:18:"(Y/N)"8Q15:19:" ";QU$KVQU$"Y"ė:50^`QU$"N"ī1210hj1100:(4);"RUN MENU"C11:"TRANSIT "D"HR "MM"MIN""ZF22:9:"HIT A KEY TO CONTINUE"cX(16384):X127ī960q16368,0{1100:"THE OBJECT YOU HAVE CHOSEN IS EITHER ALWAYS ABOVE OR BELOW THE HORIZON"P02000:PL:11:"WOULD YOU LIKE ANOTH2ī860HZ3ī870!RQR:873.\QS:8736fQTAiQQTZQkQ0QQ24blQ24QQ24mpD(Q)}zQQ(QD)60MM(QQ):SS(Q(DMM60))3600Z1Ė13:"RISE "D"HR "MM"MIN":Z2Ė13:"SET "D"HR "MM"MIN":Z3ĖA.01745)(DE.017453)4X(X(XX1))1.5708FXX57.29615YYLO15RALSTwP1R(YX).99727.0333P0R(YX).99727.05P1S(XY).99727.0333P0S(XY).99727.05 TRALO15LS*Z134Z1ī850>Z((34)((Y1)1001)) 200E G365YD((M1)31)(M.42.3)j GG(Y4)((34)((Y100)1))x G1723179 G2G:NDG2G1 A.0027379093:B6.588526667 LST((24ND)A)B LST(LST24(LST24))24 SB$"N"ī700 X(L ::19:" ";TZ:TZ5TZ4, TZTZ4v :11:8:"IS DAYLIGHT SAVINGS TIME":15:"IN EFFECT?"::18:"(Y/N)" 15:19:" ";B$ B$"Y"ī140 B$"N"ī140 130 COMUTE # OF DAYS M3180 G365YD((M1)31)((Y1)4)260S236003 s:11:10:"PLEASE ENTER THE DATE"M u:14:"(MM,DD,YYYY)"d x15:14:" ";M,D,Ym {:6 }7:"INPUT THE TIME ZONE (1-5)":::(14):"1= EASTERN":(14) "2= CENTRAL":(14):"3= MOUNTAIN":(14):"4= PACIFIC":(14):"5= GREENWICH"PUT YOUR LONGITUDE"+ S:15:"(DD,MM,SS)"E U15:15:" ";D1,M2,S2x Z:11:3:"IS THE OBJECT THE SUN OR THE MOON?" ]:18:"(Y/N)" _15:19:" ";C$ dC$"Y"P0:C$"N"P1 nRAHM60S3600:DECDMM60SS3600:LADDM160S13600:LOD1MON" 7:15:"(DD,MM,SS)"4 <15:15:" ";D,MM,SSg A:11:2:"INPUT THE OBJECT'S RIGHT ASCENSION" B:15:"(HH,MM,SS)" C15:15:" ";H,M,S F:11:10:"INPUT YOUR LATITUDE" I:15:"(DD,MM,SS)" K15:15:" ";DD,M1,S1 P:11:10:"IN 1000 ::(12):(10)I "RISE, SET, TRANSIT":X13000:X:y(19):(15):"BY":(15):(16):"LARRY WALD"(18):(17):"AND":(14):(18):"TODD CLELAND"(X13000:X:X125::X:"":"" 2:11:4:"INPUT THE OBJECT'S DECLINATI         5. MARS 10. PLUTO"?M::12:"CHOOSE YOUR LOCATION:";DOM:DSī16000rM::12:"WRONG, GUESS AGAIN:";DM:DSī16000M:15040M>:12:"CORRECT"M>:"PRESS RETURN TO CONTINUE: ";R$M>R$""ī699M>699dCL?/:"ESCAPE SPEED: 618 KM/SEC"GL@/" (OR 385 MI/SEC)"MLC/mL::::12:"WHERE ARE YOU?"L::"1. MERCURY 6. JUPITER"L:"2. VENUS 7. SATURN"L:"3. EARTH 8. URANUS"L:"4. THE MOON 9. NEPTUNE"M:"IN)"$K!/"AGE: ";A12%;" ROTATIONS"QK&/:"VISIBLE SURFACE TEMP: 6,000 DEG. C.)K(/" (OR 11,000 DEG F)K+/:"VISIBLE SURFACE: SEETHING, BUBBLING GAS"K-/" HYDROGEN, HELIUM"K5/:"RADIO TIME TO EARTH: 8 MIN"!OUR GUESS.";N$ J+N$""ī15000+J+11165VJ.:"WELCOME TO THE SUN, ASTRONAUT ";A$eJ.WE12%W28zJ.WM12%W284.448J.A12%C365.2527J/:"MASS: ";M%;" KG"J/"WEIGHT: ";WM12%;" N (OR ";WE12%;" LB)"K/:"HEIGHT: ";HM%;" CM (OR ";HE%;" ī150003I+:"CLUE 5: THE RADIO TIME TO EARTH IS"SI+" FROM 4 TO 7 HRS."I+"ARE YOU READY TO GUESS NOW? (Y/N)";M$I+M$"Y"ī15000I+:"CLUE 6: THE SUN IS 5.9 BILLION KM AWAY":I+"THIS IS YOUR LAST CLUE."J+"PRESS RETURN TO MAKE YSS NOW? (Y/N)";M$$H+M$"Y"ī15000UH+:"CLUE 3: A WARM TEMP HERE IS -220 DEG.C."H+"CAN YOU NAME THIS PLACE NOW? (Y/N)";M$H+M$"Y"ī15000H+:"CLUE 4: THE ESCAPE SPEED IS .3 KM/SEC"H+"NOW DO YOU KNOW WHERE YOU ARE? (Y/N)";M$I+M$"Y", ASTRONAUT ";A$%Ga+W11%W4.448.028Gf+A11%100C248IGk+A11A11%100tGz+:"CLUE 1: YOUR WEIGHT IS ";W11%;" N"G+"DO YOU KNOW WHERE YOU ARE? (Y/N)";M$G+M$"Y"ī15000G+:"CLUE 2: YOUR AGE IS ";A11;" OF A LOCAL YEAR"H+"DO YOU WANT TO GUE"SOLAR DISTANCE: 5.9 BILLION KM"NFJ+" (OR 3.7 BILLION MI)"|FM+:"RADIO TIME TO EARTH: FROM 4 TO 7 HRS"FR+:"MOONS: 1"FW+"APPROX. ESCAPE SPEED: .3 KM/SEC"FX+" (OR .2 MI/SEC)"F[+G\+:"WHERE ARE YOU)"/E4+:"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)"TE9+"AGE: ";A11;" OF A PLUTO YEAR"E>+:"SURFACE TEMPERATURE: -220 DEG.C."E@+" (OR -370 DEG. F.)"EC+:"SURFACE: POSSIBLY FROZEN GASES"EE+"ATMOSPHERE: PROBABLY NONE""FH+: MAKE YOUR GUESS.";N$'D'N$""ī150002D'10165[D*:"WELCOME TO PLUTO, ASTRONAUT ";A$kD+WE11%W.02D+WM11%W.14.448D+WM11%W.024.448D+A11%100C248D+A11A11%100D*+:"MASS: ";M%;" KG"E/+"WEIGHT: ";WM11%;" N (OR ";WE11%;" LBC'M$"Y"ī15000=C':"CLUE 5: THE RADIO TIME TO EARTH IS"ZC'" ABOUT 4 HOURS"C'"ARE YOU READY TO GUESS NOW? (Y/N)";M$C'M$"Y"ī15000C':"CLUE 6: THE SUN IS 4.5 BILLION KM AWAY":C'"THIS IS YOUR LAST CLUE."D'"PRESS RETURN TOWANT TO GUESS NOW? (Y/N)";M$/B'M$"Y"ī15000`B':"CLUE 3: A WARM TEMP HERE IS -200 DEG.C."B'"CAN YOU NAME THIS PLACE NOW? (Y/N)";M$B'M$"Y"ī15000B':"CLUE 4: THE ESCAPE SPEED IS 24 KM/SEC"B'"NOW DO YOU KNOW WHERE YOU ARE? (Y/N)";M$ERE ARE YOU, ASTRONAUT ";A$0Ay'W10%W1.24.448CA~'A10%100C165TA'A10A10%100A':"CLUE 1: YOUR WEIGHT IS ";W10%;" N"A'"DO YOU KNOW WHERE YOU ARE? (Y/N)";M$A'M$"Y"ī15000A':"CLUE 2: YOUR AGE IS ";A10;" OF A LOCAL YEAR"B'"DO YOU ICK, HYDROGEN, METHANE"@@`':"SOLAR DISTANCE: 4.5 BILLION KM"l@b'" (OR 2.8 BILLION MI)"@e':"RADIO TIME TO EARTH: OVER 4 HOURS"@j':"MOONS: 2"@o'"ESCAPE SPEED: 24 KM/SEC"@p'" (OR 15 MI/SEC)"@s'At':"WH"WEIGHT: ";WM10%;" N (OR ";WE10%;" LB)"V?L':"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)"y?Q'"AGE: ";A10;" NEPTUNE YEARS"?V':"CLOUD TOP TEMP: -200 DEG. C."?X'" (OR -300 DEG. F.)"?[':"ATMOS: GREENISH GAS CLOUDS"@]'" THWAY":%>#"THIS IS YOUR LAST CLUE."P>#"PRESS RETURN TO MAKE YOUR GUESS.";N$b>#N$""ī15000l>#9165>':"WELCOME TO NEPTUNE, ASTRONAUT ";A$>'WE10%W1.2>'WM10%W1.24.448>.'A10%100C165>/'A10A10%100>B':"MASS: ";M%;" KG")?G'/SEC"4=#"NOW DO YOU KNOW WHERE YOU ARE? (Y/N)";M$G=#M$"Y"ī15000s=#:"CLUE 5: THE RADIO TIME TO EARTH IS"=#" FROM 2.5 TO 3 HRS."=#"ARE YOU READY TO GUESS NOW? (Y/N)";M$=#M$"Y"ī15000>#:"CLUE 6: THE SUN IS 2.9 BILLION KM A"CLUE 2: YOUR AGE IS ";A9;" LOCAL YEARS"R<#"DO YOU WANT TO GUESS NOW? (Y/N)";M$e<#M$"Y"ī15000<#:"CLUE 3: A WARM TEMP HERE IS -185 DEG.C."<#"CAN YOU NAME THIS PLACE NOW? (Y/N)";M$<#M$"Y"ī15000=#:"CLUE 4: THE ESCAPE SPEED IS 21 KM: 21 KM/SEC"2;#" (OR 13 MI/SEC)"8;#^;#:"WHERE ARE YOU, ASTRONAUT ";A$r;#W9%W1.14.448;#A9%10C84;#A9A9%10;#:"CLUE 1: YOUR WEIGHT IS ";W9%;" N";#"DO YOU KNOW WHERE YOU ARE? (Y/N)";M$;#M$"Y"ī15000(<#:%:s#:"ATMOS: GREENISH GAS CLOUDS"M:u#" THICK, HYDROGEN, METHANE"v:x#:"SOLAR DISTANCE: 2.9 BILLION KM":z#" (OR 1.8 BILLION MI)":}#:"RADIO TIME TO EARTH: ABOUT 2.5 HOURS":#:"MOONS: 5 & 8 RINGS" ;#"ESCAPE SPEED0C849G#A9A9%10.9Z#:"MASS: ";M%;" KG"Z9_#"WEIGHT: ";WM9%;" N (OR ";WE9%;" LB)"9d#:"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)"9i#"AGE: ";A9;" URANUS YEARS"9n#:"CLOUD TOP TEMPERATURE: -185 DEG. C.":p#" (OR -300 DEG. F.)"M$"Y"ī15000B8:"CLUE 6: THE SUN IS 1.4 BILLION KM AWAY":a8"THIS IS YOUR LAST CLUE."8"PRESS RETURN TO MAKE YOUR GUESS.";N$8N$""ī15000881658(#:"WELCOME TO URANUS, ASTRONAUT ";A$82#WE9%W1.187#WM9%W1.14.4489F#A9%17M$"Y"ī15000A7:"CLUE 4: THE ESCAPE SPEED IS 35 KM/SEC"p7"NOW DO YOU KNOW WHERE YOU ARE? (Y/N)";M$7M$"Y"ī150007:"CLUE 5: THE RADIO TIME TO EARTH IS"7" FROM 1 TO 1.5 HRS."7"ARE YOU READY TO GUESS NOW? (Y/N)";M$8YOU KNOW WHERE YOU ARE? (Y/N)";M$46M$"Y"ī15000d6:"CLUE 2: YOUR AGE IS ";A8;" LOCAL YEARS"6"DO YOU WANT TO GUESS NOW? (Y/N)";M$6M$"Y"ī150006:"CLUE 3: A WARM TEMP HERE IS -151 DEG.C."6"CAN YOU NAME THIS PLACE NOW? (Y/N)";M$ 1 HOUR")5:"MOONS: 17 & MANY RINGS"I5"ESCAPE SPEED: 35 KM/SEC"n5" (OR 22 MI/SEC)"t55:"WHERE ARE YOU, ASTRONAUT ";A$5W8%W1.14.4485A8%10C305A8A8%105:"CLUE 1: YOUR WEIGHT IS ";W8%;" N"!6"DO -151 DEG. C. "84" (OR -240 DEG. F.)"a4:"ATMOS: PALE YELLOW-BROWN BANDS"4" THICK, HYDROGEN, METHANE"4:"SOLAR DISTANCE: 1.4 BILLION KM"4" (OR 884,000,000 MI)"5:"RADIO TIME TO EARTH: OVERTRONAUT ";A$3JWE8%W1.103OWM8%W1.14.448@3^A8%10C30P3_AY8%A8%10j3r:"MASS: ";M%;" KG"3w"WEIGHT: ";WM8%;" N (OR ";WE8%;" LB)"3|:"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)"3"AGE: ";AY8%;" SATURN YEARS"4:"CLOUD TOP TEMP: TO 54 MIN."72"ARE YOU READY TO GUESS NOW? (Y/N)";M$J2M$"Y"ī15000|2:"CLUE 6: THE SUN IS 779 MILLION KM AWAY":2"THIS IS YOUR LAST CLUE."2"PRESS RETURN TO MAKE YOUR GUESS.";N$2N$""ī1500027165 3@:"WELCOME TO SATURN, AS-135 DEG.C."91"CAN YOU NAME THIS PLACE NOW? (Y/N)";M$L1M$"Y"ī15000{1:"CLUE 4: THE ESCAPE SPEED IS 60 KM/SEC"1"NOW DO YOU KNOW WHERE YOU ARE? (Y/N)";M$1M$"Y"ī150001:"CLUE 5: THE RADIO TIME TO EARTH IS" 2" FROM 33 A7%1000:"CLUE 1: YOUR WEIGHT IS ";W7%;" N"[0"DO YOU KNOW WHERE YOU ARE? (Y/N)";M$n0M$"Y"ī150000:"CLUE 2: YOUR AGE IS ";A7;" LOCAL YEARS"0"DO YOU WANT TO GUESS NOW? (Y/N)";M$0M$"Y"ī15000 1:"CLUE 3: A WARM TEMP HERE IS ,000,000 MI)">/:"RADIO TIME TO EARTH: FROM 33 TO 54 MIN"a/:"KNOWN MOONS: 16 & A RING"/"ESCAPE SPEED: 60 KM/SEC"/" (KOR 37 MI/SEC)"//:"WHERE ARE YOU, ASTRONAUT ";A$/W7%W2.644.448/A7%10C120A7A7;" JOVIAN YEARS"9.:"CLOUD TOP TEMP: -134 DEG. C."c." (OR -210 DEG. F.)".:"ATMOS: CLOUD BANDS, RED SPOT STORM"." THICK, HYDROGEN, METHANE".:"SOLAR DISTANCE: 779,OOO,OOO KM" /" (OR 4840 MI/HR)"-:-X:"WELCOME TO JUPITER, ASTRONAUT ";A$J-bWE7%W2.64`-gWM7%W2.644.448p-vA7%10C12~-wA7A7%10-:"MASS: ";M%;" KG"-"WEIGHT: ";WM7%;" N (OR ";WE7%;" LB)"-:"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)"."AGE: ";RK ROCK, CRATERS"8," SMALL BODY, NO ATMOS."a,:"SOLAR DISTANCE: 228,000,000 KM"," (OR 142,000,000 MI)",:"RADIO TIME TO EARTH: FROM 3 TO 22 MIN",:"ESCAPE SPEED: ABOUT 240 KM/HR" -" (OR 15:"MASS: ";M%;" KG"?+"WEIGHT: LESS THAN A DYNE OR AN OZ."l+:"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)"+"AGE: ";AY6%;" MARTIAN YEARS"+:"EST. HIGH TEMPERATURE: 24 DEG. C."+" (OR 75 DEG. F.)",:"SURFACE: DA NOW? (Y/N)";M$"*%M$"Y"ī15000T*(:"CLUE 6: THE SUN IS 228 MILLION KM AWAY":s*,"THIS IS YOUR LAST CLUE."*-"PRESS RETURN TO MAKE YOUR GUESS.";N$*.N$""ī15000*25165*p:"WELCOME TO PHOBOS, ASTRONAUT ";A$*AY6%C365.25687+E NOW? (Y/N)";M$#)M$"Y"ī15000T):"CLUE 4: THE ESCAPE SPEED IS 4.8 KM/SEC")"NOW DO YOU KNOW WHERE YOU ARE? (Y/N)";M$) M$"Y"ī15000)":"CLUE 5: THE RADIO TIME TO EARTH IS")#" FROM 3 TO 22 MIN."*$"ARE YOU READY TO GUESS5%;" N"2("DO YOU KNOW WHERE YOU ARE? (Y/N)";M$E(M$"Y"ī15000v(:"CLUE 2: YOUR AGE IS ";A5%;" LOCAL YEARS"("DO YOU WANT TO GUESS NOW? (Y/N)";M$(M$"Y"ī15000(:"CLUE 3: A WARM TEMP HERE IS 30 DEG. C.")"CAN YOU NAME THIS PLAC0':"RADIO TIME TO EARTH: FROM 3 TO 22 MIN."C':"MOONS: 2"d'"ESCAPE SPEED: 4.8 KM/SEC"'" ( OR 3 MI/SEC)'':"WHERE ARE YOU, ASTRONAUT ";A$'W5%W.384.448'A5%C365.25687( :"CLUE 1: YOUR WEIGHT IS ";WRS"-&:"HIGHEST TEMPERATURE: 32 DEG. C."Z&" (OR 90 DEG. F.)"&:"SURFACE: RED DUST, CRATERS, ICE"&" VOLCANOES, THIN ATMOS."&:"SOLAR DISTANCE: 228,000,000 KM"'" (OR 142,000,000 MI) %J41652%:"WELCOME TO MARS, ASTRONAUT ";A$A%WE5%W.38V%WM5%W.384.448l%AY5%C365.25687%:"MASS: ";M%;" KG"%"WEIGHT: ";WM5%;" N (OR ";WE5%;" LB)"%:"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)"&"AGE: ";AY5%;" MARTIAN YEA5: THE RADIO TIME TO EARTH IS"3$;" 1 SEC"_$<"ARE YOU READY TO GUESS NOW? (Y/N)";M$r$=M$"Y"ī15000$@:"CLUE 6: THE SUN IS 150 MILLION KM AWAY":$D"THIS IS YOUR LAST CLUE."$E"PRESS RETURN TO MAKE YOUR GUESS.";N$%FN$""ī15000M$"Y"ī15000?#1:"CLUE 3: A WARM TEMP HERE IS 100 DEG. C."l#2"CAN YOU NAME THIS PLACE NOW? (Y/N)";M$#3M$"Y"ī15000#6:"CLUE 4: THE ESCAPE SPEED IS 2.4 KM/SEC"#7"NOW DO YOU KNOW WHERE YOU ARE? (Y/N)";M$#8M$"Y"ī15000$::"CLUE RE ARE YOU, ASTRONAUT ";A$."W4%W.164.4488"A4%Cb"":"CLUE 1: YOUR WEIGHT IS ";W4%;" N""'"DO YOU KNOW WHERE YOU ARE? (Y/N)";M$"(M$"Y"ī15000",:"CLUE 2: YOUR AGE IS ";A4%;" LOCAL YEARS""-"DO YOU WANT TO GUESS NOW? (Y/N)";M$#.LAINS",!" MTNS., NO ATMOSPHERE"U!:"SOLAR DISTANCE: 150,000,000 KM"!" (OR 93,000,000 MI)"!:"RADIO TIME TO EARTH: 1 SEC."!:"ESCAPE SPEED: 2.4 KM/SEC"!" (OR 1.5 MI/SEC)!":"WHEMASS: ";M%;" KG"= "WEIGHT: ";WM4%;" N (OR ";WE4%;" LB)"j :"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)" "AGE: ";AY4%;" YEARS" :"HIGHEST TEMPERATURE: 104 DEG. C." " (OR 220 DEG. F.)!:"SURFACE: CRATERS, LAVA PCLUE 6: THE SUN IS 150 MILLION KM AWAY":H\ "THIS IS YOUR LAST CLUE."s] "PRESS RETURN TO MAKE YOUR GUESS.";N$^ N$""ī15000b 3165:"WELCOME TO THE MOON, ASTRONAUT ";A$WE4%W.16WM4%WE4%4.448AY4%C365.25365.25 :"1N :"CLUE 4: THE ESCAPE SPEED IS 11.3 KM/SEC"`O "NOW DO YOU KNOW WHERE YOU ARE? (Y/N)";M$sP M$"Y"ī15000R :"CLUE 5: THE RADIO TIME TO EARTH IS"S " IMMEDIATE"T "ARE YOU READY TO GUESS NOW? (Y/N)";M$U M$"Y"ī15000)X :"ARE? (Y/N)";M$!@ M$"Y"ī15000RD :"CLUE 2: YOUR AGE IS ";A3%;" LOCAL YEARS"|E "DO YOU WANT TO GUESS NOW? (Y/N)";M$F M$"Y"ī15000I :"CLUE 3* A WARM TEMP HERE IS 60 DEG. C."J "CAN YOU NAME THIS PLACE NOW? (Y/N)";M$K M$"Y"ī15000RADIO TIME TO EARTH: 0 MIN"- :"MOONS: 1"O "ESCAPE SPEED: 11.3 KM/SEC"s " (OR 7 MI/SEC)"y  :"WHERE ARE YOU, ASTRONAUT ";A$! W3%W4.448& A3%C: :"CLUE 1: YOUR WEIGHT IS ";W3%;" N"? "DO YOU KNOW WHERE YOU PERATURE: 60 DEG.C."D " (OR 140 DEG. F.)"J y "SURFACE: 3/4TH WATER, CARBON BASED LIFE" "ATMOS: NITROGEN,OXYGEN,WATER CLOUDS" :"SOLAR DISTANCE: 150,000,000 KM" " (OR 93,000,000 MI) :"WELCOME TO EARTH, ASTRONAUT ";A$/ WE3%W1.0D WM3%(W1)4.448] AY1%C365.25365.25w :"MASS: ";M%;" KG" "WEIGHT: ";WM3%;" N (OR ";WE3%;" LB)" :"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)" "AGE* ";AY3%;" YEARS" :"HIGHEST TEM k" FROM 2 TO 14 MIN."Ll"ARE YOU READY TO GUESS NOW? (Y/N)";M$_mM$"Y"ī15000p:"CLUE 6: THE SUN IS 108 MILLION KM AWAY":t"THIS IS YOUR LAST CLUE."u"PRESS RETURN TO MAKE YOUR GUESS.";N$vN$""ī15000z2165  :"A WARM TEMP HERE IS 480 DEG. C."Mb"CAN YOU NAME THIS PLACE NOW? (Y/N)";M$`cM$"Y"ī15000f:"CLUE 4: THE ESCAPE SPEED IS 10.5 KM/SEC"g"NOW DO YOU KNOW WHERE YOU ARE? (Y/N)";M$hM$"Y"ī15000j:"CLUE 5: THE RADIO TIME TO EARTH IS".448>A2%C365.25225CR:"CLUE 1: YOUR WEIGHT IS ";W2%;" N"nW"DO YOU KNOW WHERE YOU ARE? (Y/N)";M$XM$"Y"ī15000\:"CLUE 2: YOUR AGE IS ";A2%;" LOCAL YEARS"]"DO YOU WANT TO GUESS NOW? (Y/N)";M$^M$"Y"ī15000 a:"CLUE 3: 000,000 KM "7"" (OR 67,000,000 MI)"=$l%"RADIO TIME TO EARTH: FROM 2 TO 15 MIN."*:"MOONS: 0"/"ESCAPE SPEED: 10.5 KM/SEC0" (OR 6.5 MI/SEC)34:"WHERE ARE YOU, ASTRONAUT ";A$9W2%W.94HM%;" CM (OR ";HE%;" IN)":"AGE: ";AY2%;" VENUS YEARS"d:"HIGHEST TEMPERATURE: 482 DEG. C." (OR 900 DEG. F.)""SURFACE: VERY HOT & DRY""ATMOSPHERE: THICK, CARBON DIOXIDE"  :"SOLAR DISTANCE: 108,"PRESS RETURN TO MAKE YOUR GUESS.";N$:N$""ī15000D1165m:"WELCOME TO VENUS, ASTRONAUT ";A${WE2%W.9WM2%(W.9)4.448AY2%C365.25225:"MASS: ";M%;" KG""WEIGHT: ";WM2%;" N (OR ";WE2%;" LB)" :"HEIGHT: ";ARE? (Y/N)";M$!M$"Y"ī15000M:"CLUE 5: THE RADIO TIME TO EARTH IS"n" FROM 4 TO 13 MIN.""ARE YOU READY TO GUESS NOW? (Y/N)";M$M$"Y"ī15000:"CLUE 6: THE SUN IS 58 MILLION KM AWAY":"THIS IS YOUR LAST CLUE."(RS"-u"DO YOU WANT TO GUESS NOW? (Y/N)";M$@vM$"Y"ī15000qy:"CLUE 3: A WARM TEMP HERE IS 400 DEG. C."z"CAN YOU NAME THIS PLACE NOW? (Y/N)";M${M$"Y"ī15000~:"CLUE 4: THE ESCAPE SPEED IS 4 KM/SEC""NOW DO YOU KNOW WHERE YOU (OR 2.5 MI/SEC)KAL:"WHERE ARE YOU, ASTRONAUT ";A$;"?"WQW1%(W.38)4.448kVA1%C365.2588j:"CLUE 1: YOUR WEIGHT IS ";W1%;" N"o"DO YOU KNOW WHERE YOU ARE? (Y/N)";M$pM$"Y"ī15000t:"CLUE 2:YOUR AGE IS ";A1%;" LOCAL YEAY, CRATERED"55" NO WATER, ALMOST NO AIR"\8:"SOLAR DISTANCE: 58,000,000 KM:" (OR 36,000,000 MI)<="RADIO TIME TO EARTH: FROM 4 TO 13 MIN."B:"MOONS: 0"G"ESCAPE SPEED: 4 KM/SECH" "MASS: ";M%;" KG">"WEIGHT: ";WM1%;" N (OR ";WE1%;" LB)"j$:"HEIGHT: ";HM%;" CM (OR ";HE%;" IN)")"AGE: ";AY1%;" MERCURY YEARS",:"HIGHEST TEMPERATURE: 410 DEG. C.-" (OR 770 DEG. F.)2 3"SURFACE: ROCK00,11100N L1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000{:"PRESS RETURN FOR ANOTHER JOURNEY";Z$Z$""ī699699:"WELCOME TO MERCURY, ASTRONAUT ";A$WE1%W.38WM1%W.384.448AY1%C365.2588:"2 :(5):(5):"ASTRONAUT INFORMATION NEEDED:"K :(7):"NAME: ";A$o :(7):"WEIGHT IN POUNDS: ";W :(7):"HEIGHT IN INCHES: ";H :(7):"AGE IN YEARS: ";C S%10(H) SS%1S1100,2100,3100,4100,5100,7100,8100,9100,101$" 7:" ON A MYSTERY WORLD"B :7:"4. A NEW ASTRONAUT"c 7:" ON A MYSTERY WORLD" :7:"5. EXIT PROGRAM" ::(5):"WHAT IS YOUR CHOICE?";Z Z1ī600 Z2ī10 Z3ī759 Z4ī750 Z5ī730 (4);"RUN MENUUN". :"GIVE THE NUMBER OF YOUR CHOICE:";L7 800= g (5):(5):"CHOOSE YOUR FLIGHT PLAN:" ::(7):"1. ASTRONAUT ";A$ 7:" ON A NEW WORLD" :7:"2. A NEW ASTRONAUT" 7:" ON A NEW WORLD" :7:"3. ASTRONAUT ";A }:(7):"3. EARTH"3 ~(7):"4. EARTH'S MOON"J :(7):"5. MARS"n (7):"6. MARTIAN MOON PHOBOS" :(7):"7. JUPITER" (7):"8. SATURN" :(7):"9. URANUS" (6):"10. NEPTUNE" :(6):"11. PLUTO" (6):"12. THE SC :(7)' "HEIGHT IN INCHES:";H6 &M%W2.205E (HM%H2.54O *HE%HU Xc b(5):(5) l"THANK YOU, ASTRONAUT ";A$ v:"CHOOSE WHERE YOU WOULD LIKE TO GO" w"FROM THE LIST BELOW:" x {(7):"1. MERCURY" |(7):"2. VENUS"z#     ŲҠήŠŠ ĠĠ  à  ҠРG ŠԠԠ Ҡ Ҡà ت$ŠҲ   Ҡ3à ΠӠ٠ ĠӠ  Ҡ ɭӠҠҠ ϠҠӠ Ԡ ՠ"Ϡ "Π""!Š !̠٠ ӠE (5):(5)3"SPACE FLIGHT DATA BASE"=::F(5)k"ASTRONAUT INFORMATION NEEDED:"v :(7) "PRESS RETURN AFTER EACH ANSWER" ::(7) "NAME:";A$:(7)"WEIGHT IN POUNDS:";W:(7) "AGE IN YEARS:";                            0 :7 PF(4);"RUN GETTER""URSA MAJOR"C$"CASSIOPEIA"C$"CEPHEUS"C$"DRACO"C$"RPOLAR"rBC$"ORION"C$"CANIS MAJOR"C$"CANIS MINOR"C$"GEMINI"C$"TAURUS"C$"RORION"|BC$"PEGASUS"C$"ANDROMEDA"C$"PERSEUS"C$"RANDROMEDA"?B+ .30852:'24:10:"MENU"J213:6:"N NEW LOCATION"i315:6:"T NEW TIME"317:6:"E END"3::340206(4);"BLOAD CHAIN,A520"6520"CONSTELLATIONS":::12:10:"PLEASE ENTER NEW TIME ";T:FL((A9)Z9)(YP80((A9)Z9)*Z(120005n(XP140Nx(YP80((90ALT)2.2)Y(12000c(YP80}(XP140((90ALT)2.2)(12000(XP140(YP80((90ALT)2.2)(12000)YP80)XP140((90ALT)2.2)*Z9(90ALT)2.2:A9AZPI180\70ī10500t'11000*~'XP140((A9)Z9)?'YP80((A9)Z9)J'12000^'AZAZ90:11000t'XP140((A9)Z9)'YP80((A9)Z9)'12000'AZAZ180:11000'XP140((A9)Z9)'YP80((A9)Z9)'12000 (AZAZ270:11000 (XP140H)"H"" "(RM)"M"4D0$(DD)"D"" "(DM)"M":C'HS1V'MA1000ī3085m'AZ0AZ90ī10100$'AZ90AZ180ī10150.'AZ180AZ270ī102003'AZ270AZ360102508'AZ0AZ360ī10350B'AZ90ī10400L'AZ180ī10450 V'AZ2CO$"T"ī150001CO$"E"ĺ(4);"RUN MENU"ECO$"N"ī18000P13000oRH(RA$(1)):DD(DEC$(1))RHRH180PI:DDDD180PIRHRH15RMRH(RH):DMDD(DD)RMRM60:DMDM60RH(RH):RM(RM):DD(DD):DM(DM)R0$(R MA2ēXP,YP:2140L MA1MA2ēXP,YPXP,YP1XP1,YP1XP1,YP:2140x& XP,YP1XP,YP1:XP1,YPXP1,YP:214022:"DATE ";M;"/";D;"/";Y;2);C$;2);"TIME ";TS"ALT ";A0;2);"DIR ";Z0;2);"RA ";R0$;2);"DEC ";DS$;D0$"COMMAND?";CO$1000ī3030 CPAZ 5000- A0(ALT): Z0(AZ)A I_ CCCP:(CPAZ)180ī3060z CPAZAZAZ360:3060 AZCPCCCP360 XP140((AZCC)2.2) YP159(ALT2.2) XP0XP279ī2140 YP0YP159ī2140 MA1000ī2140(Y100)1)) DAYSG723179P LST(((24DAYS)TIME)A)TIMELO(180PI)15Bi LSTLST24(LST24) LST0LSTLST24  QQ1000 WQ(Q) W.5Q(Q)1:2300 Q(Q) QQ1000  UP110000 HS110000  MAALTQ ]MA1000ALT70UP1$ b. R3000A \X(16336):IK e4000k fA.0027379093:B6.588526667{ pM3ī2190 zG365YD((M1)31)((Y1)4)((34)((Y1)1001)) 2210 G365YD((M1)31)(M.42.3) GG(Y4)((34)(1)))8 AZ((LA)((DEC))(LA)((DEC))(HA))(ZD)P (AZAZ1)0ī2140q AZ(AZ(AZAZ1))1.5708{ H1HA H10AZPIAZ H10AZPIAZ AZ180PIAZ &ZD180PIZD 0QAZ :2260 DAZQ NALT90ZD XQALT:2260:LA LALAPI180 |2150:  CONVERT LST TO RADIANSR LSTLST15(PI180)` HALSTRAj H1HA H1PIH1H12PI H1PIH1H12PI HAH1  Z=ZENITH DIST Z(LA)((DEC))(LA)((DEC))(HA) ZD1.5708((Z(ZZMA(MA$(I)) FL1ī1660& FL16 TH(T100)N TMT((T100)100)[ TMTM60h !T1THTMt (NZTZ4 2TZ$"Y"NNNZ1 7TZ$"N"NNNZ <TIT1NN PLO(OD)OM60 ZOD0LOLO dLOLOPI180 nLA(AD)AM60 xAD0LA# :PI3.141592654$:3:TST8D$"": CTRL-DJ D$;"OPEN";C$\ D$;"READ";C$d N$p N(N$){ I1NRA$(I)DEC$(I)MA$(I)0,159279,159ID$;"CLOSE";C$I1NRA(RA$(I))DEC(DEC$(I))      ALLY."P15000:P#D$(4)=PL1P$"RUN ORRERY"VPL1P$"RUN MENU"c:D$;P$ N FROM < THE ASTRONOMY"?J"DATA BOOK >,BY J.HEDLY ROBINSON,"jK"EXCEPT FOR THE INFORMATION CONCERN-"L"ING THE LENGTH OF THE YEAR OF PLUTO"M"WHICH WAS TAKEN FROM < THE NEW"N"CONCISE ATLAS OF THE UNIVERSE >"O"PUBLISHED BY RAND MC NY ( WATER=1 )";}ñ5â14:1)"MASS ( EARTH=1 )";;ñ]â16:1)"VOLUME ( EARTH=1 )";cñâ18:1)"GRAVITY ( EARTH=1 )";ñâ20:1)"MEAN MAGNITUDE";ñPL1֫60999GH"ALL INFORMATIOM IN THIS PROGRAM"I"WAS TAKE\+50080:20:Q)"-12.7"<f+:10:"HIT A KEY TO CONTINUE"Yk+X(16384):X127ī1100`p+5Pâ3:1)"EQUATORIAL DIAMETER";UñZâ6:1)"SIDEREAL YEAR";_ñdâ8:1)"SIDEREAL DAY";iñnâ10:1)"INCLINATION";sñxâ12:1)"DENSIT)"* THE MOON *"+Q255 +50000:3:Q)"3,476 KM"M+4:Q)"(2,160 MI)"m +50020:8:Q)"27.322 DAYS"*+50030:10:Q)"1.53 DEGREES"4+50040:12:Q)"3.342">+50050:14:Q)"0.0123"H+50060:16:Q)"0.0203"R+50070:18:Q)"0.1653""6.390 DAYS"#L'50030:10:Q)"?"=V'50040:12:Q)"5.50"W`'50050:14:Q)"0.10"qj'50060:16:Q)"0.10"t'50070:18:Q)"0.470"~'50080:20:Q)"+14.9"':10:"HIT A KEY TO CONTINUE"'X(16384):X127ī1100'5*+1:14:18:Q)"1.210"*#50080:20:Q)"+7.8"M#:10:"HIT A KEY TO CONTINUE"j#X(16384):X127ī1100q#5w''1:16)"* PLUTO *"'Q25$'50000:3:Q)"5,900 KM ".'4:Q)"(3,700 MI)8'50010:6:Q)"90,475 DAYS" B'50020:8:Q)E *" 7#Q25+<#50000:3:Q)"48,400 KM"DF#4:Q)"(30,000 MI)"gP#50010:6:Q)"60,190.20 DAYS"Z#50020:8:Q)"15H 48M"d#50030:10:Q)"28.8 DEGREES"n#50040:12:Q)"1.770"x#50050:14:Q)"17.25"#50060:16:Q)"53.7"#500700:10:Q)"97.88 DEGREES"350040:12:Q)"1.70"N50050:14:Q)"14.52"h50060:16:Q)"47.1"50070:18:Q)"1.110"50080:20:Q)"+5.5":10:"HIT A KEY TO CONTINUE"X(16384):X127ī11005(#2#1:15)"* NEPTUN0:20:Q)"+0.7"3:10:"HIT A KEY TO CONTINUE"PX(16384):X127ī1100W5]@vJ1:15)"* URANUS *"OQ25T50000:3:Q)"47,100 KM"^4:Q)"(29,300 MI)"h50010:6:Q)"30,685.00 DAYS"r50020:8:Q)"10H 49 M"|5003Q)"119,300 KM"(v4:Q)"(74,100 MI)"K50010:6:Q)"10,759.20 DAYS"g50020:8:Q)"10H 14M"50030:10:Q)"26.73 DEGREES"50040:12:Q)"0.706"50050:14:Q)"95.14"50060:16:Q)"743.6"50070:18:Q)"1.159"5008040:12:Q)"1.330"/50050:14:Q)"317.89"L50060:16:Q)"1,318.7"g50070:18:Q)"2.643"50080:20:Q)"-2.6":10:"HIT A KEY TO CONTINUE"X(16384):X127ī11005Xb1:15)"* SATURN *"gQ25l50000:3:KEY TO CONTINUE"-X(16384):X127ī11004 5:pTz1:14)"* JUPITER *"]Q25|50000:3:Q)"142,800 KM"4:Q)"(88,700 MI)"50010:6:Q)"4,332.59 DAYS"50020:8:Q)"9H 50M 30S"50030:10:Q)"3.07 DEGREES"50"!50010:6:Q)"686.98 DAYS"A50020:8:Q)"24H 37M 23S"d50030:10:Q)"23.98 DEGREES"50040:12:Q)"3.940"50050:14:Q)"0.1074"50060:16:Q)"0.1504"50070:18:Q)"0.3799"50080:20:Q)"-2.0":10:"HIT A 2:Q)"5.517"(50050:14:Q)"1.000"C50060:16:Q)"1.000"^50070:18:Q)"1.000":10:"HIT A KEY TO CONTINUE"X(16384):X127ī110051:16)"* MARS *"Q2550000:3:Q)"6,790 KM"4:Q)"(4,220 MI) Y TO CONTINUE"+5 X(16384):X127ī11002: 58P1:16)"* EARTH *"o50000:3:25)"12,756 KM"xQ254:Q)"(7926 MI)"50010:6:Q)"365.26 DAYS"50020:8:Q)"23H 56M 04S"50030:10:Q)"23.45 DEGREES" 50040:1010:6:25)"224.70 DAYS"; 50020:8:25)"243.000 DAYS"] 50030:10:25)"178 DEGREES"y 50040:12:25)"5.250" 50050:14:25)"0.8150" 50060:16:25)"0.8572" 50070:18:25)"0.9032"& 50080:20:25)"-4.4"0 :10:"HIT A KE"0.0560"% *50060:16:25)"0.0560"B 450070:18:25)"0.3810"\ >50080:20:25)"0.0" H:10:"HIT A KEY TO CONTINUE" MX(16384):X127ī1100 R5 1:16)"* VENUS *" 50000:3:25)"12,100 KM" 4:25)"(7,500 MI) 504):X127ī1100 Q5 6 1:15)"* MERCURY *"T 50000:3:25)"4,870 KM"l 4:25)"(3,030 MI) 50010:6:25)"87.97 DAYS" 50020:8:25)"58.700 DAYS" 50030:10:25)"0.0 DEGREES" 50040:12:25)"5.500" 50050:14:25)20:8:25)"25.380 DAYS"; 50030:10:25)"7.25 DEGREES"W 50040:12:25)"1.409"u $50050:14:25)"332,946" .50060:16:25)"1,303,600" 850070:18:25)"27.9000" B50080:20:25)"-26.8" G:10:"HIT A KEY TO CONTINUE" LX(1638<A$"5"ī4000! FA$"6"ī50003 PA$"7"ī6000E ZA$"8"ī7000W dA$"9"ī8000j nA$"10"ī9000~ xA$"11"ī10000 A$"12"ī55000 5  :1:15)"* THE SUN *" 50000:3:25)"1,392,000 KM" 4:25)"(865,000 MI) 500 URANUS"( 12:8:"10. NEPTUNE"D 13:8:"11. PLUTO"_ 14:8:"12. PLOT"y 15:8:"13. END" :"WHICH ONE WOULD YOU LIKE? ";A$ A$"13"ī60999 $A$"1"ī1000 (A$"3"ī2000 -A$"2"ī11000 2A$"4"ī3000 e::16368,0,3:8:"1. SUN"F4:8:"2. MOON"c 5:8:"3. MERCURY"~ 6:8:"4. VENUS" 7:8:"5. EARTH" 8:8:"6. MARS" 9:8:"7. JUPITER"10:8:"8. SATURN" 11:8:"9.      PPPP180:20000,*NPP0PPPP180:2001024NO0uPP180PPPP180:30000k:uPP90PPPP180:30010qDu@PP270PPPP180:40000JPP180PPPP180:40010TPíPP360PPPP180:50000ZíPP270PPPP180:50010dñQT16'Y(R(PT)(LA(PT)PI180))10IX(R(PT)(LA(PT)PI180))10YX139,79Ya"PTg,r6:3:~;OC19@Y(R(OC)(LA(OC)PI180))3JX(R(OC)(LA(OC)PI180))3K""O:TX139,79Y^OChN NPP90 LIKE?"10:"1.......EASILY VISIBLE PLANETS (MERCURY, VENUS, EARTH, MARS, JUPITER, SATURN)"16:"2.......ALL THE PLANETS"21:"WHICH? (1,2) ";Q2Q21Q22ĺ"":1510Q22ī1590:2:P:"JUPITER",RH(5),DE(5):"SATURN",RH(6),DE(6)b:"URANUS",RH(7),DE(7):"NEPTUNE",RH(8),DE(8)}:"PLUTO",RH(9),DE(9)::"WOULD YOU LIKE ANOTHER DATE? (Y/N)";B$B$"Y"ī10(4);"RUN MENU":8:"WHICH GROUP OF PLANETS WOULD YOU1ī1582T19>RH(T)(1000RH(T)):DE(T)(1000DE(T))dRH(T)RH(T)1000:DE(T)DE(T)1000kT{Q1ī1580:"PLANET"," R.A."," DEC.":"MERCURY",RH(1),DE(1)"VENUS",RH(2),DE(2)::"EARTH",RH(3),DE(3):"MARS",RH(4),DE(4)/Y0X0İ30000$PY0X0İ400008ZY0X0İ50000IdRH(PL)PP15OncxH(PL)(RH(PL))M(PL)(RH(PL)H(PL))60S(PL)(M(PL)(M(PL)))60D(PL)(DE(PL))MI(PL)(DE(PL)D(PL))60SE(PL)(MI(PL)(MI(PL)))60PLQ180MO(1)MOPI180CSD(BE)(MO(1))(BE)(MO(1))(LA)\DE(SD(SDSD1))qDE(PL)DE180PI  DE=DECLINATION IN DECIMAL DEGREESY(LA)(MO(1))(BE)(MO(1))X(LA)(PP(YX)2PPPP180PI<Y0X0İ20000F A SCENSION AND DECLIOATION S20:"NOW DOING COORDINATE CONVERSIONS"eEPJD2415020tTEP36525DE46.845T.0059T2.00181T3DEDE3600MO23.452294DEPLANET19PL3ĂPLANETBEBE(PL)PI180:LALA(PL)PI(RE(KK))(R1RE(KK)))180PI)L1LBLA(WP)360LA(WP)LA(WP)360:1090rLLA(WP)0LA(WP)LA(WP)360:1100VVV(LA(WP)L1)PI180`BE(WP)((R1(PSIPI180)(VV))(RE(KK)))jBE(WP)BE(WP)180PIt~' --CONVERSIONS TO RIGHT1(LA(WP)360LA(WP)LA(WP)360:990NLA(WP)0LA(WP)LA(WP)360:1000hRR(LA(WP)L1)PI180~CC(L1LE)PI180BE(WP)((R1(PSIPI180)(RR))(RE(CC)))BE(WP)BE(WP)180PI1140$ .KK(L1LE)PI180$8LA(WP)(( \PP(YX)fPPPP180PI2pY0X0İ20000FzY0X0İ30000ZY0X0İ40000nY0X0İ50000{L1PPOMR1R(PSIPI180)GG(LEL1)PI180A1((R1(GG))(RER1(GG)))A1A1180PIWP2ī1060LA(WP)180LEA0:720M0ML361:730(L(WP)L3VPLWGVP(1)VPPI180jRA(1ECC2)(1ECC(VP(1)))v R(WP)RQQ(LOM)PI180 I(1)IPI180*WW(QQ)(I(1))4PSI(WW(WWWW1))>PSIPSI180PIHY(QQ)(I(1))RX(QQ)0.9:E209.439:W222.972:ECC.25387:A39.78459:I17.137:OM109.941J650T1160ZwNP(360D)(365.2422TP)NP360NPNP360:670NP0NPNP360:680MPNPEWMP(1)MPPI180LNP(360PI)ECC(MP(1))EL360LL36"NOW DOING CALCULATIONS FOR NEPTUNE".DWP8NTP164.79558:E260.3578998:W47.8672148:ECC.0090021:A30.10957:I1.7716017:OM131.5606494X650b--PLUTO CALCULATIONS )NOT AS EXACT)g20:"NOW DOING CALCULATIONS FOR PLUTO "lWP9AvTP252.4893741:OM113.4888341"650=--URANUS CALCULATIONSl20:"NOW DOING CALCULATIONS FOR URANUS "uWP7&TP84.01247:E228.0708551:W172.7363288:ECC.0463232:A19.21814:I.7729895:OM73.87686420650:--NEPTUOE CALCULATIOOS%?20:]TP11.86224:E146.966365:W14.0095493:ECC.0484658:A5.202561:I1.3041819:OM100.2520175f650--SATURN CALCULATIONS 20:"NOW DOING CALCULATIONS FOR SATURN "WP6TP29.45771:E165.322242:W92.6653974:ECC.0556155:A9.554747:IARS CALCULATIONS?20:"NOW DOING CALCULATIONS FOR MARS "HWP4TP1.88089:E126.30783:W335.6908166:ECC.0933865:A1.5236883:I1.8498011:OM49.4032001650--JUPITER CALCULATIONS20:"NOW DOING CALCULATIONS FOR JUPITER"WP57.1442128:ECC.2056306:A.3870986:I7.0043579:OM48.0941733D h650^ r--VENUS CALCULATIONS w20:"NOW DOING CALCULATIONS FOR VENUS " |WP2 TP.61521:E355.73352:W131.2895792:ECC.0067826:A.7233316:I3.394435:OM76.4997524 650--ME(360PI)ECC(ME(1))E4 "LE360LELE360:290M ,LE0LELE360:300Y 6VELEWm ;VE(1)VEPI180 @RE(1ECC2)(1ECC(VE(1))) J --MERCURY CALCULATIONS O20:"NOW DOING CALCULATIONS FOR MERCURY" TWP1; ^TP.24085:E231.2973:W7NS SECTION$ --EARTH CALCULATIONSP 20:"NOW DOING CALCULATIONS FOR EARTH" TE1.00004:E98.833540:W102.596403:ECC.016718 NE(360D)(365.2422TE) NE360NENE360:240 NE0NENE360:250 MENEEW ME(1)MEPI180 LEN |14:15:"";MM,DD,YYYY9 MM3YYYYYYYY1:MMMM12K A(YYYY100)\ B2A(A4)q C(365.25YYYY) D(30.6001(MM1)) JDBCDDD1720994.5 DEJD2444238.5 --DE=DAYS ELAPSED SINCE JANUARY 0.0 1980 DDE --CALCULATIOD Z17:"6.......PLANET MAGNITUDES, PHASES, AND DISTANCES"_ [22:"WHICH? (1-6) ";Q \Q1Q2Q3Q4Q5Q6ĺ"":91 ^Q2Q4İ10000 d::12 nPI3.141592654 x10:10:"PLEASE ENTER THE DATE" z12:14:"(MM,DD,YYYY)"  :Q19261:13:"PLANET PLOTTER"I3:18:"MENU"m(7:"1.......STATIONARY ORRERY"29:"2.......ANIMATED ORRERY"<11:"3.......STATIONARY STARFIELD"F13:"4.......ANIMATED STARFIELD"P15:"5.......PLANET LOCATOR"          EW"*N"CONCISE ATLAS OF THE UNIVERSE >"MO"PUBLISHED BY RAND MC NALLY."^P15000:PjD$(4)PL1P$"RUN ORRERY"PL1P$"RUN MENU":D$;P$ P$ H ֫60999G8H"ALL INFORMATIOM IN THIS PROGRAM"^I"WAS TAKEN FROM < THE ASTRONOMY"J"DATA BOOK >,BY J.HEDLY ROBINSON,"K"EXCEPT FOR THE INFORMATION CONCERN-"L"ING THE LENGTH OF THE YEAR OF PLUTO"M"WHICH WAS TAKEN FROM < THE NDEREAL DAY";iñ-nâ10:1)"INCLINATION";3sñVxâ12:1)"DENSITY ( WATER=1 )";\}ñ|â14:1)"MASS ( EARTH=1 )";ñâ16:1)"VOLUME ( EARTH=1 )";ñâ18:1)"GRAVITY ( EARTH=1 )";ñâ20:1)"MEAN MAGNITUDE";ñPL1:Q)"0.0123")H+50060:16:Q)"0.0203"ER+50070:18:Q)"0.1653"`\+50080:20:Q)"-12.7"f+:10:"HIT A KEY TO CONTINUE"k+X(16384):X127ī1100p+5Pâ3:1)"EQUATORIAL DIAMETER";UñZâ6:1)"SIDEREAL YEAR";_ñ dâ8:1)"SI KEY TO CONTINUE".'X(16384):X127ī11005'5;*V+1:14)"* THE MOON *"_+Q25| +50000:3:Q)"3,476 KM"+4:Q)"(2,160 MI)" +50020:8:Q)"27.322 DAYS"*+50030:10:Q)"1.53 DEGREES"4+50040:12:Q)"3.342" >+50050:14.'4:Q)"(3,700 MI)48'50010:6:Q)"90,475 DAYS"SB'50020:8:Q)"6.390 DAYS"jL'50030:10:Q)"?"V'50040:12:Q)"5.50"`'50050:14:Q)"0.10"j'50060:16:Q)"0.10"t'50070:18:Q)"0.470"~'50080:20:Q)"+14.9"':10:"HIT A"1.770""x#50050:14:Q)"17.25"<#50060:16:Q)"53.7"W#50070:18:Q)"1.210"q#50080:20:Q)"+7.8"#:10:"HIT A KEY TO CONTINUE"#X(16384):X127ī1100#5''1:16)"* PLUTO *"'Q25$'50000:3:Q)"5,900 KM "NTINUE"$X(16384):X127ī1100+51(#K2#1:15)"* NEPTUNE *"T7#Q25r<#50000:3:Q)"48,400 KM"F#4:Q)"(30,000 MI)"P#50010:6:Q)"60,190.20 DAYS"Z#50020:8:Q)"15H 48M"d#50030:10:Q)"28.8 DEGREES"n#50040:12:Q)h50010:6:Q)"30,685.00 DAYS"=r50020:8:Q)"10H 49 M"`|50030:10:Q)"97.88 DEGREES"z50040:12:Q)"1.70"50050:14:Q)"14.52"50060:16:Q)"47.1"50070:18:Q)"1.110"50080:20:Q)"+5.5":10:"HIT A KEY TO CO"95.14""50060:16:Q)"743.6"=50070:18:Q)"1.159"W50080:20:Q)"+0.7"z:10:"HIT A KEY TO CONTINUE"X(16384):X127ī11005@J1:15)"* URANUS *"OQ25T50000:3:Q)"47,100 KM"^4:Q)"(29,300 MI)" 27ī11005X.b1:15)"* SATURN *"7gQ25Vl50000:3:Q)"119,300 KM"ov4:Q)"(74,100 MI)"50010:6:Q)"10,759.20 DAYS"50020:8:Q)"10H 14M"50030:10:Q)"26.73 DEGREES"50040:12:Q)"0.706"50050:14:Q)50020:8:Q)"9H 50M 30S"?50030:10:Q)"3.07 DEGREES"Z50040:12:Q)"1.330"v50050:14:Q)"317.89"50060:16:Q)"1,318.7"50070:18:Q)"2.643"50080:20:Q)"-2.6":10:"HIT A KEY TO CONTINUE"X(16384):X150070:18:Q)"0.3799"450080:20:Q)"-2.0"W:10:"HIT A KEY TO CONTINUE"tX(16384):X127ī1100{ 5pz1:14)"* JUPITER *"Q2550000:3:Q)"142,800 KM"4:Q)"(88,700 MI)"50010:6:Q)"4,332.59 DAYS"* MARS *"Q25/50000:3:Q)"6,790 KM"H4:Q)"(4,220 MI) "h50010:6:Q)"686.98 DAYS"50020:8:Q)"24H 37M 23S"50030:10:Q)"23.98 DEGREES"50040:12:Q)"3.940"50050:14:Q)"0.1074"50060:16:Q)"0.1504"0:8:Q)"23H 56M 04S"950030:10:Q)"23.45 DEGREES"T50040:12:Q)"5.517"o50050:14:Q)"1.000"50060:16:Q)"1.000"50070:18:Q)"1.000":10:"HIT A KEY TO CONTINUE"X(16384):X127ī11005 1:16)"50070:18:25)"0.9032"2& 50080:20:25)"-4.4"U0 :10:"HIT A KEY TO CONTINUE"r5 X(16384):X127ī1100y: 51:16)"* EARTH *"50000:3:25)"12,756 KM"Q254:Q)"(7926 MI)"50010:6:Q)"365.26 DAYS"5002VENUS *"' 50000:3:25)"12,100 KM"? 4:25)"(7,500 MI)` 50010:6:25)"224.70 DAYS" 50020:8:25)"243.000 DAYS" 50030:10:25)"178 DEGREES" 50040:12:25)"5.250" 50050:14:25)"0.8150" 50060:16:25)"0.8572" 10:25)"0.0 DEGREES"2 50040:12:25)"5.500"O 50050:14:25)"0.0560"l *50060:16:25)"0.0560" 450070:18:25)"0.3810" >50080:20:25)"0.0" H:10:"HIT A KEY TO CONTINUE" MX(16384):X127ī1100 R5  1:16)"* 50080:20:25)"-26.8"9 G:10:"HIT A KEY TO CONTINUE"V LX(16384):X127ī1100] Q5c } 1:15)"* MERCURY *" 50000:3:25)"4,870 KM" 4:25)"(3,030 MI) 50010:6:25)"87.97 DAYS" 50020:8:25)"58.700 DAYS" 50030:*"$ 50000:3:25)"1,392,000 KM"> 4:25)"(865,000 MI)_ 50020:8:25)"25.380 DAYS" 50030:10:25)"7.25 DEGREES" 50040:12:25)"1.409" $50050:14:25)"332,946" .50060:16:25)"1,303,600" 850070:18:25)"27.9000" BA$"1"ī1000 (A$"3"ī20002 -A$"2"ī11000D 2A$"4"ī3000V <A$"5"ī4000h FA$"6"ī5000z PA$"7"ī6000 ZA$"8"ī7000 dA$"9"ī8000 nA$"10"ī9000 xA$"11"ī10000 A$"12"ī55000 5  :1:15)"* THE SUN URANUS"( 12:8:"10. NEPTUNE"D 13:8:"11. PLUTO" 14:8:"12. PLANET PLOT":15:8:"13. PLANET JOURNEY" 16:8:"14. END" :"WHICH ONE WOULD YOU LIKE? ";A$ A$"13"ĺ(4);"RUN PTRIP" A$"14"ī60999 $::16368,0,3:8:"1. SUN"F4:8:"2. MOON"c 5:8:"3. MERCURY"~ 6:8:"4. VENUS" 7:8:"5. EARTH" 8:8:"6. MARS" 9:8:"7. JUPITER"10:8:"8. SATURN" 11:8:"9.      XDY,YDX:XDY,YDXL'TH1V'I1V1ī107597t'?*:r*12:"WOULD YOU LIKE ANOTHER DATE? (Y/N) ";QU$*QU$"N"ī10790*QU$"Y"119*10760&*D$(4)0*:D$;"RUN MENU"XNU"X V1I1$V1D5I1ī10759/10000PV1:X(16384):X127ī724^16368,0g130m{'XDX:YDY$'TH0.78541Z.'DXZ(TH):DYZ(TH)3'V1Ē08'XDX,YDY:XDX,YDY:XDX,YDY:XDX,YDYB'XDY,YDX:XDY,YDX:159) DX70(M2):DY70(M2)7DXDX140:DYDY80?Z4J10000fDX38(M1):DY38(M1)}DXDX140:DYDY80Z510000DX19(M):DY19(M):DXDX140:DYDY80Z210000DX10(M3):DY10(M3):DXDX140:DYDY80NF1360:N(N):M1F1360N<NF2360:N(N):M2F2360N\NF3360:N(N):M3F3360NM(M180)3.14159:M1(M1180)3.14159:M2(M2180)3.14159M2M2((29)3.14159)M3(M3180)3.14159M1M1((29)3.14159)MM((172.5180)3.14) SJSC.4 SKSJ2.3) SK(SK)5 SLSC1B SMSL31P SNSE365h &QSNSDSMSKSISHs 0Q(Q) XPQ723589 bPMP:PJP:PSP gPEP lFPM.524017:F1PJ.0830833:F2PS.0334604 mF3PE.985626 vNF360:N(N):MF360NAB1 ,ALAK31 6AMAE3654 @QAMACALAJAI? JQ(Q)H T600T ^SA(D)b hSBSA100o rSC(SB)| |SDSBSC SDSD100 SEDSA SESE10000 SFSE100 SF(SF) SGSF1 SHSG.75 SH(SH) SISE4 SI(SI:22:"HIT A KEY TO ERASE PLANETS"3 D250350? AD(D)M AAAD100Z AB(AA)g ACAAABu ACAC100 AEDAD AEAE10000 AFAE1 AGAF100 AHAG1 AH(AH) AIAH.75 AI(AI) AJAF4 AJ(AJ) "AKY,YDX:XDY,YDX:XDY,YDX:XDY,YDX/ FTHB PZ70Z38:20U ZZ38Z19:20h dZ19Z10:20 n139,80141,80:140,79140,81 w16297,0:16304,0 x:22:"ENTER DATE (MM,DD,YYYY) ";M$,D$,Y$:D$M$D$"."Y$:D(D$) y7 zV0:I0$ {EAVENS UN- FOLD BEFORE YOU."A 13:14:"HIT A KEY TO BEGIN"\ X(16384):X127ī3j 16368,0p x V0 :7 Z70 X140:Y80 TH0.78541Z (DXZ(TH):DYZ(TH) 2XDX,YDY:XDX,YDY:XDX,YDY:XDX,YDY' <XD ::2:2:" ORRERY IS A PROGRAM DESIGNED TO INDI- CATE TO THE AMATEUR ASTRONOMER THE APPROXIMATE LOCATIONS OF THE EARTH, MARS, JUPITER AND SATURN. JUST ENTER THE DATE IN THE INDICATED FORMAT AND" 7:2:" WATCH THE SECRETS OF THE H     @ HPX ɪФ`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ&)>ȥ')̻>JJJ >`+*xS&x'8*3Ixix&& 8 l {' o {& {x)*++`FG8`0($ p,&" (0 8@0 꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌@(@ @*@T@T5$A,B4A,BA4,BA$,B4:A2,BA2,B2:AA7;%_.A,BA4,B4:A,B4A4,B:AA7e/8A1,BA1,B3:A,B3A2,B3:A,B4:A2,B4:AA59BA,BA4,B:A,B4A4,B4:A,BA4,B4:AA7CLAA6V LA,BA2,B:A3,B1:A2,B2A1,B2:A,B3:A1,B4A3,B4:AA6R|A2,B4A2,B:A1,B4A3,B4:AA6(A,B1A,B4:A3,B1A3,B4:A1,BA2,B:AA6A,B4A,B2:A4,B4A4,B2:A1,B1A3,B1:A2,B:AA7A3,B3A3,B1:AA6YA,BA,B4A2,B4:A3,B4A3,B2:A2,B2A,B2:AA6_A,B1A,B3:A1,B4A2,B4:A3,B3A3,B1:A2,BA1,B:A2,B1:A4,B:AA6 A,BA,B4A2,B4:A3,B3:A,B2A2,B2:A1,B2A3,B:AA6BA,BA,B4:A1,B2:A2,B3:A3,B4:A2,B1:A3,B:AA6HhA,BA,B4:A,BA3,B:AA6nA,BA,B4:A3,BA3,B4:A,B3A3,B3:AA6A,BA,B4A3,BA3,B4:AA6A1,BA2,B:A1,B4A2,B4:A,B1A,B3:3,B4:AA6=A,BA,B4A3,B4:A,B2A2,B2:AA6CsA,BA,B4A3,B4:A,BA3,BA3,B2:AA6yA,BA,B4:A3,BA3,B4:A,B2A3,B2:AA6A,BA,B4:AA3A,B1:A1,BA2,B:A3,B4A3,B1:AA6A3,B4A3,B:A,B2A3,B2:AA6)a_jA,BA,B4A3,B4A3,BA,B:A,B2A3,B2:AA6ektA3,BA,BA,B4A3,B4:AA6u~A,BA,B4A2,B4:A3,B3A3,B1:A2,BA,B:AA6 A,BA3,B:A,BA,B4:A,B2A2,B2:A,B4At148,77:149,58:141,59J~200,162:191,131:230,121:231,124:230,127_200,100:212,88161,66:170,49:186,41:208,32:219,39:239,21:229,938,100:47,80:30,43:56,71:78,71:71,61:85,10:96,34:112,35PÀ#`A,BA,B4ī160PA$"N"ī1102=Q"SO LONG.....HAPPY STARGAZING!"RR(4);"RUN MENU"[V:7`62,123:67,128:73,129:81,129:89,123:87,114j119,178:142,160:160,165:168,167:165,172:121,134:134,126:135,123:132,101:113,92:99,100:101,1126008060000#A220:B130.60020960040D60150O$60070Z.60040e860200pB60181GA04000:AJKL10:10:"WOULD YOU LIKE TO SEE":10:"THE STARFIELDS AGAIN?"M18:"(Y/N)"N14:19:" ";A$OA$"Y"60020 6000060120' 600402*60110=460140H>60150SH60000^R60170i\60030tf60000p60110z6008060181A100:B1506002060000601816018160080601406015060040,120:20,15035,13069,13769,156(2U110,156121,176134,170147,183155,171\3211,102216,111205,121210,134206,150202,142198,150170,137135,110180,109170,137:205,133202,142:205,121180,109A05000:AA10:B17053:141,39:151,38:151,19:137,25u187,9:190,28:185,50:175,53:191,72:199,61:225,29:223,18:241,21:235,11219,165:219,171:226,176:231,189:232,175:226,169:239,186A08000:A1!44,9662,8052,12079,12169,13735,1305250:35,130:52,120:79,121:69,137:69,156:62,80:44,96il110,156:121,176:134,170:147,183:155,171v135,110:170,137:198,150:206,150:202,142:205,133:210,134:205,121:216,111:211,102:189,130180,109:110,135"114,72:128,64:137,90 6014060170'A200:B60260030=60170H60000S60020^60140nA120:B138y602006017060181600006126060120&60080060130:60140D60170NA04000:AX:78b20,1261,81251,89258,100<218,131213,136:237,141230,153"3:156,161170,152179,140176,125189,120180,105170,110176,125,71A05000:A6A19:B60@60200J60170T60181^60000h61260r60120|600006000:A 1h 2,1188,7011,2017,2534,5365,50140,30130,50112,5993,7078,9756,12938,1454,121 10,7721,10949,11256,129:78,9761,8780,6493,70 2105,108124,100155,78191,70210,74212,85216,105218,131237,141258,100271,90,145:4,121:2,118:10,77:8,70g 105,108:124,100:155,78:191,70:210,74:212,85:216,105:218,131 213,136:237,141:230,153:258,100:271,90:261,81:251,89 156,161:170,152:179,140:176,125:189,120:180,105:170,110:160,115 A0800NS", "BEFORE THE LINES OR NAMES APPEAR."N :9:"HIT A KEY TO CONTINUE"k X(16384):X127ī156y 16368,0 7 11,20:17,25:34,53:65,50:141,30:130,50:112,59:93,70 80,64:61,87:78,97:56,129:49,112:21,109:38RSA MINOR -- THE LITTLE BEAR"A w" WITH THE LITTLE DIPPER"` x"3. DRACO -- THE DRAGON" z"4. CAMELOPARDALIS -- THE GIRAFFE" |"5. CASSIOPEIA -- THE QUEEN" ~"6. CEPHEUS -- THE KING"  "SEE IF YOU CAN IDENTIFY THE PATTERRO" _) d" THE NORTHERN STARS"/ e5 f; gb n"THIS PROGRAM INTRODUCES THE SIX" o"MOST FAMILIAR CONSTELLATIONS IN" p"THE NORTHERN SKY" q r t"1. URSA MAJOR -- THE BIG BEAR" u" WITH THE BIG DIPPER" v"2. U310:5:"THIS PROGRAM HAS TWO OPTIONS:"[ ::5:"1. CONSTELLATION DISPLAY":5:"2. CONSTELLATION PLOTTING"5:" FOR A GIVEN TIME & PLACE"::5:"WHICH OPTION WOULD YOU LIKE?(1/2)";EE1ī95 E2ĺ(4);"RUN INT          770 &C#'X(1)39:Y(1)39-(CC1;)C15C1J02,W7Q8P: 1500hQ126:WO:500*jQ132:WO:500=lQ126:WP:500PnQ200:WP:500cpQ190:WP:500xrQ126:WP4:500wQ200:WP8:500|Q126:WP12:500Q224:WP16:500Q132:WP16:500Q126:W255:500115768,Q:769,W:126:WO:500 0Q142:WO:50032Q126:WO:500F4Q142:WO:500Y6Q150:WO:500l;Q170:WO:500@Q150:WO:500EQ170:WO:500JQ190:WO:500OQ200:WO:500TQ190:WO:500YQ200:WO:500^Q224:WO:500cQ252:WP:O:500 Q75:WO:500+ Q85:WO:500= Q95:WO:500P Q100:WO:500b Q95:WO:500u Q100:WO:500 Q112:WO:500 Q126:WO:500 Q112:WO:500 Q126:WO:500 "Q142:WO:500 'Q150:WP:500 ,Q112:WO:500 .Q Q95:WO:500# Q75:WO:5005 Q85:WO:500G Q75:WO:500N AY A14l Q112:WO:500~ Q95:WO:500 Q100:WO:500 Q95:WO:500 A Q126:WP:500 Q150:WP:500 Q95:WP:500 Q126:WP:500 Q85:W500 Q150:WO:500) Q170:WO:500< Q190:WP:500O Q150:WP:500b Q126:WP:500u Q150:WP:500 Q95:WP:500 Q126:WP:500 A14 Q75:WO:500 Q63:WO:500 Q71:WO:500 Q63:WO:500 A A14190:WP:500 Q150:WP:5003 Q190:WP:500F Q126:WP:500Y Q190:WP:500k Q95:WP:500~ Q100:WO:500 Q112:WO:500 Q126:WO:500 Q112:WO:500 Q126:WO:500 Q142:WO:500 Q150:WO:500 Q142:WO:30 Q2ĺ(4);"RUN DIXIE"$ , (C1 d770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202 n782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0 sO20:P40 xQR+ 10:5:"YOU HAVE TWO OPTIONS:"F ::5:"1. BACHBARS"\ :5:"2. DIXIE"::5:"BOTH PIECES WILL PLAY "5:"UNTIL YOU PRESS C"5:"AND THEN 'RUN MENU' TO CONTINUE":5:"WHICH WOULD YOU LIKE?(1/2)";Q Q1137:700097060!9@:D$(4)49JD$;"RUN MENU"MA27.68043608Z43908N3'8SDD0>8XBE2.091.00.01Z8bJ131(BE):K131(BE)j8lJ207,K12r8vBE~8{DDDD18}DD2İ1530:106081530854,0:55,968(1):(23)8"TYPE R TO REMOVE ORBITAL OUTLINE"8R$ 9R$"R"Ē0:5140H7X207,Y139:X208,Y139:X206,Y139:X207,Y138:X207,Y140N7h7A1.845A5.53541807A5.535A9.22542107(A9.225A12.915424072A12.915A16.60542707<A16.605A20.29543007FA20.295A23.9554330 8PA23.955(Q4)((34)((Q100)1))56DAYSG2723174.2083I6MDAYS29.53059V6MM(M)q6AGEM29.530597.382656AGE29.53059AGEAGE29.530596 AAGE:PI6.286 TH(A29.53059)PI(PI4)6 0:51376 X19(TH):Y19(TH)63:513775 "55:c510:12:"PLEASE INPUT THE DATE":14:"(MM,DD,YYYY)":15:14:" ";M,D,Q{516299,0:16304,05M350405G2365QD((M1)31)((Q1)4)((34)((Q1)1001))550605G2365QD((M1)31)(M.42.3)6G2G2EY TO RETURN TO THE MAIN PROGRAM")4S$640:5137=43G44560Q41530d4TH1.57:3980u454,0:55,964(2):(2):" "4(2):(3):" "4(2):(4):" " 5(2):(5):" 4100318903&1530D30A$"EAST":B$"DAWN":C$"DUSK":D$"0%"N3:4100Y3DV15g3N(3):(7)3S768,80:769,42:7703X"MOON NOT VISIBLE"3bL1200:L3l(2):(7)3v" "3LL1200:LL3V3(23)!4"HIT A K293032A$"WEST":B$"DUSK":C$"DAWN":D$"100%"=24100G23200v2A$"EAST":B$"DUSK+3":C$"DAWN+3":D$"75%"24100221502A$"EAST":B$"DUSK+6":C$"DAWN+6":D$"50%"24100224102A$"EAST":B$"DAWN-3":C$"DUSK-3":D$"25%"3";C$$1,(2):(5):"% ILLUM. : ";D$*1641@2670>1J2930m1TA$"WEST":B$"DAWN+3":C$"DUSK+3":D$"25%"w1^41001h16301rA$"WEST":B$"DAWN+6":C$"DUSK+6":D$"50%"1|4100126701A$"WEST":B$"DUSK-3":C$"DAWN-3":D$"75%"1410020"C:CALCULATE"40(22):(27):"E:EARTH ORBIT"T0(23):(27):"M:MOON ORBIT"n0(24):(27):"X:EXIT"x01170054,0:55,9601630054,0:55,960(2):(2):"DIRECTION: ";A$0(2):(3):"MOON RISE: ";B$1"(2):(4):"MOON SET : AA18BB04330(/2AA13BB1443602/<1530 45,11455,114:45,8655,86+H CCCC1+R CC2Ē0:5137:TH4.710:3980+\ 3900+f 1530+p 3230+z ::8000+ PLOT TERRAIN+ 0,1595,157 , 535,10365,103:35,9765,97:* 36,10464,104:36,9664,96Z* 36,10564,105:36,9564,95z* 36,10664,106:36,9464,94* 37,10763,107:37,9363,93* 37,10863,108:37,9263,92* 38,10962,109:38,9162,91* 39,11061,110:39,9061,90+ 63,115:64,8563,85)D CCCC1B)N CC2Ē0:5137:TH3.925:3980L)X 3900V)b 1530`)l 2970f)v |) MOON POSITION#4) CC0) Z3) Z) 35,10065,100) 50,85:50,115) 35,10165,101:35,9965,99) 35,10265,102:35,9865,98* 58,107:77,9358,933( 77,10859,108:77,9259,92S( 76,10959,109:76,9159,91s( 75,11059,110:75,9059,90( 74,11160,111:74,8960,89( 73,11261,112:73,8861,88(& 71,11361,113:71,8761,87(0 69,11462,114:69,8662,86): 64,115#3'| ' CC0' Z3 ' Z3' 79,10057,100S' 79,10157,101:79,9957,99s' 79,10257,102:79,9857,98' 79,10357,103:79,9757,97' 78,10457,104:78,9657,96' 78,10558,105:78,9558,95' 78,10658,106:78,9458,94( 77,107:50,9061,90-& 50,11160,111:50,8960,89M& 50,11259,112:50,8859,88m&" 50,11357,113:50,8757,87&, 50,11455,114:50,8655,86&6 50,115:50,85&@ CCCC1&J CC2Ē0:5137:TH3.14:3980&T 3900&^ 1530&h 2710'r MOON POSITION:50,9865,98-% 50,10365,103:50,9765,97M% 50,10464,104:50,9664,96m% 50,10564,105:50,9564,95% 50,10664,106:50,9464,94% 50,10763,107:50,9363,93% 50,10863,108:50,9263,92% 50,10962,109:50,9162,91 & 50,11061,110783,87'$( 90,11485,114:90,8685,86:$2 90,115:90,85F$< CCCC1h$F CC2Ē0:5137:TH6.28:3980r$P 3900|$Z 1530$d 2450$n MOON POSITION#2$x $ CC0$ Z3$ Z$ 65,10050,100$ 50,10165,101:50,9965,99 % 50,10265,102576,95'# 90,10676,106:90,9476,94G# 90,10777,107:90,9377,93g# 90,10877,108:90,9277,92# 90,10978,109:90,9178,91# 90,11079,110:90,9079,90# 90,11180,111:90,8980,89# 90,11281,112:90,8881,88$ 90,11383,113:90,880 "L 3900"V 1530 "` 21906"j MOON POSITION#6<"t E"~ CC0M" Z3T" Zg" 75,10090,100" 90,10175,101:90,9975,99" 90,10275,102:90,9875,98" 90,10375,103:90,9775,97" 90,10476,104:90,9676,96# 90,10576,105:90,995,109:78,9195,914!79,11095,110:79,9095,90T! 80,11194,111:80,8994,89t! 81,11293,112:81,8893,88! 83,11393,113:83,8793,87!$ 85,11492,114:85,8692,86!. 90,11591,115:90,8591,85!8 CCCC1"B CC2Ē0:5137:TH5.49:3997,101:75,9997,994 75,10297,102:75,9897,98T 75,10397,103:75,9797,97t 76,10497,104:76,9697,96 76,10596,105:76,9596,95 76,10696,106:76,9496,94 77,10796,107:77,9396,93 77,10895,108:77,9295,92!78,1098!83,11387,113:83,8787,87A 85,11488,114:85,8688,86a*90,11589,115:90,8589,85m4CCCC1>CC2Ē0:5137:TH.785:3980H3900R1530\1930f MOON POSITION#5pzCC0Z3Z75,10097,100 75,1016!76,10584,105:76,9584,95A76,10684,106:76,9484,94a77,10784,107:77,9384,9377,10885,108:77,9285,9278,10985,109:78,9185,9179,11085,110:79,9085,9080,11186,111:80,8986,89 81,11287,112:81,8887,8CC2Ē0:5137:TH2.35:3980&D39000N1530:X1670Pb MOON POSITION#7Vl_vCC0gZ3nZ75,10083,10075,10183,101:75,9983,9975,10283,102:75,9883,9875,10383,103:75,9783,9776,10483,104:76,9683,962,10955,109:62,9155,91;61,11055,110:61,9055,90[60,11154,111:60,8954,89{59,11253,112:59,8853,8857,11353,113:57,8753,8755,11452,114:55,8652,8650,11551,115:50,8551,85&65,10057,1000CCCC1:65,10157,101:65,9957,99;65,10257,102:65,9857,98[65,10357,103:65,9757,97{64,10457,104:64,9657,9664,10556,105:64,9556,9564,10656,106:64,9456,9463,10756,107:63,9356,9363,10855,108:63,9255,92 "(22)M"" "W,(23)6" "@(24)J" "T^ MOON POSITION#1hrCC0|Z3ZOVE THE ORBITAL OUTLINE TYPE R"'A$8A$"R"1440B1380I0S1530kTH6.280.098125X17(TH):Y17(TH)XX207:YY139X1,Y1X,YX1X:Y1YTH1060(21)54,0:55,96" ,Y139:X206,Y139:X207,Y138:X207,Y1403N0:1260:X1224:Y1139U 3mTH6.280.098125X17(TH):Y17(TH)(XX207:YY1392X1X:Y1Y<X1,Y1X,YFX1X:Y1YPTHZ1530d(23)n54,0:55,96x"TO REMX19(TH):Y19(TH)$3:1260,A$=A$"M"1280NA$"X"3450_A$"P"3810pA$"C"4800A$"E"69900:1260SOUND(16336)(16336)(16336)(16336)(16336)(16336)(16336)1160-X207,Y139:X208208,1403:3460%$54,0:55,96/.(22)L8"SPACE BAR:MOON MOTION"VB(23)jL"P:MOON PHASE"tV(24)`"C:CALCULATE"j(22):(27):"E:EARTH ORBIT"t(23):(27):"M:MOON ORBIT"y(24):(27):"X:EXIT"~TH0THTH.785:3X10(TH):Y10(TH)-XX207:YY12=207,12X,YETHL3] PRINT SUNs(29):(4):"SUN" PLOT EARTH EARTH CENTER AT207,1396206,138:207,138:208,138X206208X,139X206,140:207,140:(15):"X BRANCH TO END OF PROGRAM"U(10):(23):"(HIT A KEY TO BEGIN)"eX(16384)tX127755z >::54,0:55,96H PLOT SUNR3\ PLOT BORDERf0,0279,0279,1590,1590,0:140,0140,159p3zTH06.28.2PACE BAR MOVES MOON "M(1):(11):"C MOON PHASE CALCULATIONS"(1):(12):"P DRAWS A PHASE OF THE MOON"(1):(13):"M DRAWS MOON'S ORBITAL PATH"(1):(14):"E DRAWS EARTH'S ORBITAL PATH"-(1):GELY SELF EXPLANATORY. THE"Q(1):(20):"FOLLOWING KEYS PERFORM THE LISTED"n(1):(22):"FUNCTIONS."(9):(24):"(HIT A KEY TO SEE THE LIST)"X(16384)X12772316368,0(1):(7):"COMMAND LIST"(1):(10):"SFACILITATE THE "?(1):(10):"USER'S UNDERSTANDING OF THE "w(1):(12):"RELATIONSHIP BETWEEN THE MOON'S PHASE"(1):(14):"AND ITS POSITION IN ITS ORBIT ABOUT THE"(1):(16):"EARTH. THE OPERATION OF THE PROGRAM IS"(1):(18):"LAR1000:XXX6:11:"WOULD YOU LIKE INSTRUCTIONS"::18:"(Y/N)":15:19:" ";V$hV$"N"780xV$"Y"70064514:2:"INSTRUCTIONS"(1):(6):"MOONPLOTTER IS AN EDUCATIONAL ASTRONOMY"(1):(8):"PROGRAM DESIGNED TO E MIT '86, FARSHID GUILAK RPI '85..FOR MORE INFO, CONSULT THE LISTING OF SPIROGRAFIX*[a{X(23):(16):"L":500](24):(16):"A":500b(25):(16):"N":500g(26):(16):"D":500q5:24:"COPYRIGHT 1981 BY ADC SOFTWARE" vXX1):(16):"D":500+(20):(16):"C":500E(21):(16):"L":500_(22):(16):"E":500h600U-THIS WAS THE HOME OF YET ANOTHER SILLY SOUND ROUTINE BY TODD CLELAND-PRINCETON '83-THAT WE HAVE DELETED FOR YOUR LISTENING PLEASURE--JOHN SCHUETT4):(12):"O":500, (25):(12):"G":500F (26):(12):"R":500` (27):(12):"A":500z (28):(12):"M":500 (19):(14):"B" (20):(14):"Y":500 (15):(16):"T":500 (16):(16):"O":500 (17):(16):"D":500(18(12):"S":500( (14):(12):"T":500B (15):(12):"R":500\ (16):(12):"O":500v (17):(12):"N":500 (18):(12):"O":500 (19):(12):"M":500 (20):(12):"Y":500 (22):(12):"P":500 (23):(12):"R":500 (2:"U":500$ O(18):(10):"C":500> T(19):(10):"A":500X Y(20):(10):"T":500r ^(21):(10):"I":500 c(22):(10):"O":500 h(23):(10):"N":500 m(24):(10):"A":500 r(25):(10):"L":500 w(12):(12):"A":500 |(13): sP0 tA1:B255% xWAB(Q7)0 768,W< 769,28E 770L WV PP1c P1250l 300 Q1:A255:B1:120 , 6(19):(8):"A":500 ;(20):(8):"N":500 @(15):(10):"E":500 E(16):(10):"D":500 J(17):(10)6):"MOONPLOTTER", Z POKE IN TONE ROUTINE d770,173:771,48:772,192:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202 n782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3::790,96:791,0:792,0 qQ151 D$"">D$;"BLOAD HI-RES CHARACTER GENERATOR,A$6000"^D$;"BLOAD LCLETTER,A$6800"d o :255|I1:J29(I):(6):"MOONPLOTTER"(J):(6):"MOONPLOTTER"II1:JJ1$I1640%X(16336)&19 (:(15):(                  0ī95! TA13ĺ(4);"RUN MUSIC"/ VA12ī88V X"NUMBER SELECTED IS OUT OF RANGE"} Y"PLEASE ENTER YOUR CHOICE AGAIN." Z54 _"EXIT ASTROGRAFIX" b FIX" b1GRAFIX" bXA12ī88 X"NUMBER SELECTED IS TOO LARGE." Y"PPFIND"! FA5ĺ(4);"RUN PTRIP"< HA6ĺ(4);"RUN PDATA"` JA7ĺ(4);"RUN NORTHERN STARS"| LA8ĺ(4);"RUN ZODIAC" MA9ĺ(4);"RUN STARFINDER" NA10ĺ(4);"RUN LST" PA11ĺ(4);"RUN SPIROGRAFIX*" RA12ĺ(4);"RUN DYNAMICS" SAER". 4" 12. DYNAMIC PLANET ORBIT PLOTTER"[ 5" FOR DIFFERENT SOLAR MASSES" 6:" 13. MUSIC OF THE SPHERES" <A: >A1ĺ(4);"RUN SOLAR CALC" @A2ĺ(4);"RUN MOONPLOTTER" BA3ĺ(4);"RUN DUAL ORRERY" DA4ĺ(4);"RUN " 5. PLANET GRAND TOUR"4 (" 6. PLANET DATA": )[ *" 7. NORTHERN STARFIELD"y ," 8. ZODIAC SUNSIGNS" - ." 9. STAR & NEBULA LOCATOR" 0" 10. RISE/SET/TRANSIT & STAR TIME" 1 2" 11. SPIROGRAFIX -- TRUE PATH PLOTT 6"PLEASE CHOOSE A PROGRAM BY NUMBER"R"FROM THE LIST BELOW:"X" 1. SUNRISE/SUNSET/SUN LOCATION" " 2. MOONPLOTTER FOR PHASES/LOCATIONS"!"" 3. PLANET ORBITS"$" 4. PLANET COORDINATES"% &  0 z870UDD" HR "MM" MIN "SS" SEC."" 11k10:"WOULD YOU LIKE TO DO":10:"ANOTHER CALCULATION?":18:"(Y/N)"15:19:" ";C$ C$"Y"ī290*C$"N"ĺ(4);"RUN MENU"4790>LST24860R720\LSTLST24:830fLSTLST24pLST072379093:B6.588526667<LST(((24ND)TIME)A)TIMELO15BLLST24830[LST0870mXLST:DD(X)~XX(XDD)60MM(XX)SS(X(DDMM60))3600SS((SS1000))100033:"THE LOCAL SIDEREAL TIME (LST) IS:"::10:IMEA14Z(D COMPUTE NUMBER OF DAYS6NM3620rXG365YD((M1)31)((Y1)4)((34)((Y1)1001)){b640lG365YD((M1)31)(M.42.3)qGG(Y4)((34)((Y100)1))G1723179G2G:NDG2G1ND0690A.0027YOUR LONGITUDE"':15:"(DD,MM,SS)"A15:15:" ";D1,M1,S1:11:8:"IS DAYLIGHT SAVINGS TIME":15:"IN EFFECT?"::18:"(Y/N)"15:19:" ";B$B$"Y"530B$"N"540480Z1:560Z00LOD1M160S13600 :TIMETMM,SS)" @15:15:" ";H,M2,S7 JTIMEHM260S3600@ T:6~ ^7:"INPUT THE TIME ZONE (1-5)":::14:"1= EASTERN":14 h"2= CENTRAL":14:"3= MOUNTAIN":14:"4= PACIFIC":14:"5= GREENWICH" r::19:" ";A1:A15A14:11:10:"INPUT ARY."  ::D "PRESS A KEY WHEN YOU ARE READY TO GO ON"[ (16384)128275a g "m ) ,:11:10:"PLEASE ENTER THE DATE" .:14:"(MM,DD,YYYY)" 215:14:" ";M,D,Y 4 611:8:"PLEASE ENTER LOCAL TIME" ;15:"(HH,"SIDEREAL TIME (LST), IN ADDITION TO"S "ASTRONOMICAL COMPUTATIONS IS ALSO THE" "RIGHT ASCENSION OF THE POINT TRANSIT-" "TING THE MERIDIAN AT THE TIME SPECIFIED" "THE PROMPT STATEMENTS THAT FOLLOW MAKE" "FURTHER INSTRUCTION UNNECESS18:"(Y/N)" 15:19:" ";A$/ A$"N"297? A$"Y"236H 200N y "THIS PROGRAM ALLOWS THE COMPUTATION" "OF THE LOCAL SIDEREAL TIME FROM THE" "LOCAL TIME AT ANY LOCATION FOR WHICH" "THE LONGITUDE IS KNOWN. THE LOCAL "& 12) <"TIME CONVERTER"* AX13000:X0 B: F(19)D P(14)N Z"BY"X d(15)b n(15)t x"LARRY WALD"~ (18) (16) "AND" (14) (17) "TODD CLELAND" X12000:X 12:7:"DO YOU NEED INSTRUCTIONS?" +:10:8:"WHICH WOULD YOU LIKE:"::I8:"1. LOCAL STAR TIME":8:"2. RISE/SET/TRANSIT TIME":::8:"YOUR CHOICE:";UU1ī6U2ĺ(4);"RUN RISE SET TRANSIT": (12)(10)"LOCAL TO SIDEREAL"((13) 2(     i ::255: LISTS!2A$"R"1OC$"RPOLAR"7OU$O(4);"BLOAD CHAIN, A520"g.O520"PLOTTER"RJ>>> <"<""" <"""<"><(""< """"  0 " " ?IIII$$$$"""""<""< &< >"""""""""**6"""""< >>880"**:<"">""""""""""""">>><2"<""">""" "  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> ><< @< <(D>>< (&20 *<**>>@ "2*&" " >>  ">> "8""> """"""<   >> "h  **"">""~DD~0H ">  I**II*I*@`pxp`@@@  |*((  >  <(Y(I)):" " P020:P3 (X(I)):(Y(I)):".": T@ ;V @(4);"RUNGETTER" I):Y(100) UI1303 ZX(I)(1)40:Y(I)(1)23Q \X(I)(X(I)):Y(I)(Y(I))d ]X(I)0X(I)1w ^Y(I)0Y(I)1 _X(I)13X(I)28Y(I)5ī90 `I dI130 i(X(I)):(Y(I)):"." nI sT0150 I(1)30 I1I1 (X(I)):X2 255: SKY S CREEN INTRO O(16:6:200:"NORTH SKY"m214:12:"A COMPUTERIZED"<16:14:"STAR CHART">20:17:"BY"?14:19:"JOHN SCHUETTE"A150:23:5:"COPYRIGHT (C) 1982 BY ADC SOFTWARE"F255 PX(100 5`H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`   ME ";T;" ";S$S1$P ":"IF YOU NEED TO CHANGE ANYTHING, HIT "q ,"HIT ANOTHER KEY TO GO ON "y 1A$ 6A$"C"ī160 ; @(4);"BLOAD CHAIN, A520" J520"LISTS" P TZ$"Y"S1$"DT"* TZ$"N"S1$"ST"[ :2:5:"LONGITUDE ";OD;" DEGREES"u 21:6:OM;" MINUTES" 2:10:"LATITUDE ";AD;" DEGREES" 21:11:AM;" MINUTES" 2:16:"DATE ";M;"/";D;"/";Y 2:20:"TIUNTAIN":14:"4. PACIFIC"V 12:"PLEASE ENTER TIME ZONE (1-4) ";TZ:TZ1TZ4ī223 :12:"IS DAYLIGHT SAVINGS TIME CURRENTLY IN EFFECT? (Y/N) ";TZ$:TZ$"Y"TZ$"N"ī224 TZ1S$"E" TZ2S$"C" TZ3S$"M" TZ4S$"P";AM AM60ī190Z :12:"PLEASE ENTER DATE (MM,DD,YYYY) ";M,D,Yn M12D31ī200 :12:" PLEASE ENTER TIME USING 24 HOUR" "FORMAT (HHMM) ";T:T2360ī210 :2:14:"1. EASTERN" 14:"2. CENTRAL":14:"3. MO$RA$(100):DEC$(100):MA$(100)416368,0:d:12:"PLEASE ENTER LONGITUDE DEGREES ";OD:12:"PLEASE ENTER LONGITUDE MINUTES ";OMOM60ī170:12:"PLEASE ENTER LATITUDE DEGREES ";AD :12:"PLEASE ENTER LATITUDE MINUTES "    (Y/N)"@Q$.JQ$"N"ĉ:(4);"RUN MENU">TQ$"Y"ī10G^320 "):Z127GG) AXGXR3:AYGYR3C VXVXAXE:VYVYAYEY XXEVX:YYEVYe PX:OY P(P1)100120:O(O.7)10010 P,O:220,80:220,81:220,79:221,80:219,80:205 205 ,P0200:P623:"WOULD YOU LIKE ANOTHER ORBIT?1,80:220,79:220,81 I) AX0:AY05 I110O VXVXAXE:VYVYAYEe XXEVX:YYEVYq PX:OY P(P1)100120:O(O.7)10010 P,O:I R(X2Y2) G(0)36.5 (21):"THE MASS OF THE SUN IS ";:(24):G Z(16287VYAYE2 2XXEVX$ <YYEVY0 AI197A FR(X2Y2)Y PAXXR3:AYYR3s ZVXVXAXE:VYVYAYE dXXEVX:YYEVY iPX:OY nP(P1)100120:O(O.7)10010 s(21):"THE MASS OF THE SUN IS 1" xP,O }220,80:219,80:22TTON IS BEING DEPRESSED.":11:18:"PRESS A KEY TO CONTINUE."[ X(16384):X128ī5:: Q1200:G(0)36.5:21:"SET INITIAL MASS VALUE."::G:Q : E.05:X.5:Y0:VX0:VY1.63 R(X2Y2) (AXXR3:AYYR3 -VXVXAXE2:VYR. A REFERENCE ORBIT WILL BE DRAWN IN WHICH THE STAR'S MASS WILL EQUAL ONE SOLAR MASS. AFTER THAT, THE MASS WILL BE CONTINUOUSLY VARIABLE THROUGH THE MANIPULATION OF THE PADDLE."= 2:10:"THE STAR HAS NEGATIVE MASS WHILE THE PADDLE BUI 300q::3:2:" DYNAMICS IS A PROGRAM THAT SHOWS YOU HOW A SUN'S MASS AFFECTS A PLANET'S OR- BIT."11:12:"PRESS A KEY TO CONTINUE":X(16384):X127ī2:16368,0::3:216368,0::3:2 "PADDLE 0 VARIES THE MASS OF THE STA        NXDX:YDY!*NTH0.78541Z;4NDXZ(TH):DYZ(TH)G>NV1Ē0wHNXDX,YDY:XDX,YDY:XDX,YDY:XDX,YDYRNXDY,YDX:XDY,YDX:XDY,YDX:XDY,YDX\NTHfNI1V1ī10759pNZNZ0 L1070VD$(4)`2j:D$;"RUN MENU"`:(22):"DO YOU WANT ANOTHER PLOT? ";AC$rAC$"Y"ī160AC$"N"ī11102000*22:" DO YOU WANT ANOTHER SET OF PLANETS? ";Z$*Z$"Y"Z$"YES"10*Z$"N"Z$"NO"1110*10759DXZ(TH):DYZ(TH)%V1Ē0RXDX,YDYXDX,YDYXDX,YDYXDX,YDYXDY,YDXXDY,YDXXDY,YDXXDY,YDXTHI1V1ī1060$.:::"WOULD YOU LIKE ANOTHER DATE? (+/-) ";:QU$8QU$"-"ī1110BQU$"+"16200002fDX19(M):DY19(M):DXDX140:DYDY80:pZ2LzZ1970,20000{DX10(M3):DY10(M3):DXDX140:DYDY80V1I1V1D5I1ī1060Z1970,20000Z11Z12:2000V1::10759XDX:YDYTH0.78541Z9 M2M2((29)3.14159)3 M3(M3180)3.14159M M1M1((29)3.14159)k MM((172.5180)3.14159) DX70(M2):DY70(M2) DXDX140:DYDY80 *Z4 4Z1970,20000 >DX38(M1):DY38(M1) HDXDX140:DYDY80 RZ5\Z1970,PEP4 FPM.524017:F1PJ.0830833:F2PS.0334604F F3PE.985626c NF360:N(N):MF360N NF1360:N(N):M1F1360N NF2360:N(N):M2F2360N NF3360:N(N):M3F3360N M(M180)3.14159:M1(M1180)3.14159:M2(M2180)3.1415SESE10000 SFSE100( SF(SF)4 SGSF1B SHSG.75O SH(SH)[ &SISE4h 0SI(SI)u :SJSC.4 DSKSJ2.3 NSK(SK) XSLSC1 bSMSL31 lSNSE365 vQSNSDSMSKSISH Q(Q) PQ723589 PMP:PJP:PSP AE1 ,AGAF100 6AHAG1+ @AH(AH)9 JAIAH.75F TAI(AI)R ^AJAF4_ hAJ(AJ)k rAKAB1x |ALAK31 AMAE365 QAMACALAJAI Q(Q) 650 SA(D) SBSA100 SC(SB) SDSBSC SDSD100 SEDSA Z10:60* 139,80141,80:140,79140,810 _ :22:"ENTER DATE (MM,DD,YYYY) ";D1,D2,D3x DD1100D2D310000 7 V0:I0 D250430 AD(D) AAAD100 AB(AA) ACAAAB ACAC100 AEDAD AEAE10000 "AF  :Z11V0!(7*2Z709<X140:Y80MFTH0.78541ZgPDXZ(TH):DYZ(TH)ZXDX,YDY:XDX,YDY:XDX,YDY:XDX,YDYdXDY,YDX:XDY,YDX:XDY,YDX:XDY,YDXnTHxZ70Z38:60Z38Z19:60 Z19!!!!!!    3?Q224:WO3:5000*DQ150:WO:5000>IQ170:WO:5000RNQ200:WO:5000fSQ100:WO:5000zXQ126:WO:5000]Q112:WO:5000bQ126:WO2:5000l:(10):(12):"THE SOUTH LIVES AGAIN"qT11500:Tv5768,Q:769,W:770O3:5000Q200:WO:50004Q224:WO3:5000H Q150:WO:5000\Q170:WO:5000pQ200:WO:5000Q100:WO:5000!Q126:WO:5000&Q112:WO:5000+Q126:WO2:50000Q200:WO:50005Q252:WO3:5000:Q200:WO:500000 Q126:WO:5000* Q150:WO:5000> Q142:WO:5000R Q126:WO:5000f Q150:WO:5000z Q170:WO:5000 Q200:WO:5000 Q126:WO:5000 Q200:WO:5000 Q200:WO:5000 Q224:WO2:5000 Q200:WO:5000 Q252:W00:WO:5000 |Q112:WO:50004 Q126:WO:5000H Q150:WO:5000^ Q126:WO2:5000r Q150:WO:5000 Q112:WO3:5000 Q150:WO:5000 Q112:WO3:5000 Q170:WO:5000 Q126:WO:5000 Q100:WO:5000 Q112:WO:50O2:5000 Q200:WO2:50006 Q170:WO3:5000L Q224:WO2:5000b Q200:WO2:5000h "q ,120z 6210 @Q252:WO3:5000 J120 T210 ^Q252:WO3:5000 hQ170:WO2:5000 mQ170:WO2:5000 rQ126:WO:5000 wQ1E Q170:WO:5000 0 Q150:WO:5000D Q170:WO:5000Z Q150:WO2:5000p Q142:WO2:5000 Q126:WO2:5000 Q112:WO2:5000 Q100:WO3:5000 Q126:WO2:5000 Q170:WO2:5000 Q126:WO3:5000 Q170:W:WO2:5000" }Q200:WO2:50006 Q252:WO:5000J Q252:WO:5000` Q252:WO2:5000v Q224:WO2:5000 Q200:WO2:5000 Q190:WO2:5000 E13 Q170:WO:5000 E Q200:WO:5000 E13 Q150:WO:5000 $ (16):(12):"D I X I E"d770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202n782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0qO74s300 xQ170!!! ! ! ! ! !!!ŭ"""" 膢 ȱ " <67 L  8ij v vo>A1ĺ(4);"RUN SOLAR CALC" @A2ĺ(4);"RUN MOONPLOTTER" BA3ĺ(4);"RUN DUAL ORRERY" DA4ĺ(4);"RUN PFIND" FA5ĺ(4);"RUN PTRIP" HA6ĺ(4);"RUN PDATA"JA7ĺNORTHERN STARFIELD"1 ," 8. ZODIAC SUNSIGNS"7 -[ ." 9. STAR & NEBULA LOCATOR" 0" 10. RISE/SET/TRANSIT & STAR TIME" 1 2" 11. SPIROGRAFIX -- TRUE PATH PLOTTER" 4" 12. DYNAMIC PLANET ORBIT PLOTTER" 5" FOR DIFFST BELOW:" : " 1. SUNRISE/SUNSET/SUN LOCATION"i " 2. MOONPLOTTER FOR PHASES/LOCATIONS"o ! "" 3. PLANET ORBITS" $" 4. PLANET COORDINATES" % &" 5. PLANET GRAND TOUR" (" 6. PLANET DATA" ) *" 7. TOR OF ASTRONOMY"< " HOUSTON MUSEUM OF NATURAL SCIENCE"Z " 5800 CAROLINE STREET"y " HOUSTON, TEXAS 77030" 23:9:"HIT A KEY TO CONTINUE":X(16384):X127ī24 16368,0: "PLEASE CHOOSE A PROGRAM BY NUMBER" "FROM THE LI GUILAK, AND DAN MANDELSTEIN OF THE AS- TRONOMY DATA CENTER."E "PROGRAMS MAY BE USED FOR CLASSROOM TESTING PURPOSES ONLY."  "PLEASE FORWARD ALL COMMENTS" "AND SUGGESTIONS TO:"  " DR. CAROLYN SUMNERS" " DIREC`(" -ASTROGRAFIX-"P" COMPUTER PROGRAMS FROM THE"y" ASTRONOMY DATA CENTER OF THE" " HOUSTON MUSEUM OF NATURAL SCIENCE" ? "WRITTEN BY TODD CLELAND, JOHN SCHUETTE, LARRY WALD, CAROLYN SUMNERS, FARSHID """ " " " " ""