' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈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,&"_]` L/浍굺L  !"#$%&'()*+,-./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#0EB 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`   vLDcpq` [` ~  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 iõ`  \ 濭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-(D 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䵍䵐`"L ŵ8ŵH ~(`F d ֠z# u`ժЪժժժժժժժժժժժݪժժժժժժժժժժժժժժժժժŪժߪժժժժժժժժժժժժժժժժժժժժժժժժߪժժժժԪժժժժժժժժժժժժժժժժ՚ԪժժժЀըЪԊըԪŨѪԈתժ݊թԩժժժժժժժժժժժժժժժժիժժоտիժժժՊԮ݊ժժժժժժժժժժժժժժժժժՂ׮ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժꝥժժժժժժժժժժժժժժתժժժժժժժժժժժժժժժժժժժժժժժՀժժժժըժժժժժժժժժժժժժժժժժժպЪժժժ;::I12500:I:1:I139:" ";:I:4100d2::10:4::"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU.":::(4);"RUN MENU" IMENU:";::A$\+A$"A"1=+A$"M"ĺ"M":(4);"RUN MENU"$,24:1::"TYPE A OR M, PLEASE. ";::I12500::11000.KA(222):KB(218)256(219)D/KA25412900*/KB4100Ģ24:1::"THIS HAS TO BE A N U M B E R. AGAIN?"N"u'"THE EYEPIECE OF YOUR TELESCOPE.":"":"NOW, SO LONG AS THIS IS NOT THE HOME PLANET OF THE ALIENS, EVERYTHING WILL BE COOL."v'"":"KEEP YOUR FINGERS CROSSED, EARTHPERSON." *24:1:I139:" ";::1::"TYPE A TO RUN AGAIN OR M FOR THE AL.":11000!.'X(1):XP10100B'"":"YOU DID YOUR BEST, BUT THERE ARE NO":"HABITABLE PLANETS IN THIS SYSTEM.":"C'EST LA VIE!":11000t':6:11::"YOU'VE DONE IT!!!":::::"A LOVELY BLUE GLOBE SPECKLED WITH":"WHITE CLOUDS SWIMS INVITINGLY IG TO BE VERY, VERY DISPLEASED.":11000;$'P2010030 &':"ALAS, STARS OF SPECTRAL TYPES O, B, AND A DON'T LAST LONG ENOUGH ON THE MAIN SEQUENCE FOR THEIR PLANETS TO PRODUCE LIVEABLE ECOSYSTEMS."::"YOUR CREW BROILS YOU FOR THEIR FINAL ME3A$"M":8100[l 24:1:I139:" ";::1::"TYPE A OR M, PLEASE.":I12500:::8000(#(7);::::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::(4);"RUN MENU"I,A:0:24,A:30,A:24,A9:30,A9:24,A4:30,A4:3:3000R9ē24,A926,A930,A630,A328,A26,A24,A224,A425,A530,A5:3000@24:1:"HIT A TO RUN AGAIN OR M FOR THE MENU.";:A$:A$"A"1180A$"M"ĺA$:(4);"RUN MENU" WW1:W2:9:"RETURNING TO THE MENU."::A$"M":2200NN";::* KA(222):KB(218)256(219)Z K$"THIS HAS TO BE A N U M B E R. AGAIN?"l KA2543900 KB1000Ğ:K$::1000 KB1120Ğ:K$::I1II:1110H KB1212Ğ:K$::I1II:1210-<:::10:4:"SOMETHING STRANGE HAS HAPPENED.":13000::20002500:T%24:1f4:"TYPE A TO RUN AGAIN OR M FOR THE MENU:";:A$::A$"A"1A$"M"ĺ"M":(4);"RUN MENU"WWWW1:WW3A$"M":2200:" TYPE A OR M, PLEASE.";::2100 24:1::"PRESS 'RETURN' TO STOP SIMULATIO6LS(43.14159(DP1.49E11)25.67E8):TPTP.259:RS6.96E8DP1.49E11ė:10::2:"YOUR PLANET'S ORBIT IS I N S I D E":16:"THE STAR.":15:15:"TRY AGAIN."::I13000::14:17::"PLANET":::"RADIUS (EARTH UNITS): ";::RP:>MS.5:"ALBEDO OF PLANET? (TYPE A NUMBER FROM 0 TO 1, THEN PRESS 'RETURN'. 0 IS NEARLY BLACK, 1 IS VERY SHINY): ";:"";ALAOALAL0AL1ĺ::"A NUMBER BETWEEN 0 AND 1, PLEASE."::1700ALAL(1AL)((2)1)1lTP(1AL)3.86E2VCST5Q:VD(1VC5)VA(VC5)VB:RS10(.5(QDVD)):1400XxST10C$"VIOLET":1500sST25C$"BLUE":1500ST30C$"GREEN":1500ST45C$"YELLOW":1500ST60C$"ORANGE":1500C$"RED"WSRS:RSLS:LSWS:SSRSDP:YRDP1.5˫1400<LC2Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:VAQ2(Q):VBQ2(Q1):VCST5Q:VD(1VC5)VA(VC5)VB:RS10(.5(QDVD)):1400;FLC4Q(ST5):QAQ2(Q):QBQ2(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:VAQ3(Q):VBQ3(Q1):ժݪժժժժժժժժժժԪժժժՂժժߪժժժԪժݪߪՊժժժժժժժժՊժժժժՏժժժժժժժժժժժժժժժժժժժժժժժժբݺԪժߪծժժժժժժժժժժժժժժՂժѪݪժժժՒգժժժժժժժժժժժժժժժժժЪߪՀժժժժժժբЪժժժժժժժժժժժժժժժժժժժժժժժߪժժժժݪՂժժԪժժժժժժժЪժתժժժժժժժժժժժժժժժժժժժժժЪժߪժժժժժתתժժժժժժժժժժՀЪժժժՎժժժժժժժժժժՊժժժժժժժժժժժԪՂݲЪժҪժժժժժժժժժժժժժժժժժՠգժժժժժժժժժժժժժժժժתߪպժժժժժժժՊժժժՂժժժժժժժԪժժժժժժժժժժߪժժժժժժժՀժԪժժժժժժժժժתժժժժժժժժժժժժժժժժժժժՊժժժժߪժժժѪժԪժժժժժժժժժժժժժժժժժՏԪժժժݪݪժժժՊԀըբժԪժժժժŪժՂՊתժԪժլժժժժժժժժժժժժժժժժժ߿գժժժժժժժժժՂժժժժժժժպպժժժժժժժժժժժժժժժժժ15:I6$;:I:I2$;DS;I6$;I3$;:23:1:"TILT:";T6;I6$;I4$;RX24:4::I5$;::1|fS$:(S$)32ĉ:::(4);"RUN MENU"hSU3000C$" DAYS"SUSU365.256:C$" YEARS":ADAD365.256:21:1:I139:" ";:I?pQ91:21:1:I139:" ";:I:21:1:" $"N"ZOZOO:850,CXX1(I):YY1(I):H(I)KD(XX0)Z3(YY0)Z3850hHX,YXO,Y:X(I)X:Y(I)YoRISO1ZO:ZE:ZE,ZEO,ZE:I6$" "TQ91870UADP(O1)8:21:" ";:I1$;(AD);" DAYS.";:SU(AD):AD(AD):C$" DAYS":W6AD:V22:1:ILL):X1X(Z1Z2CI)YZ7:Y1XZ7Y(Z2Z1CI):X1(I)X1(Z4Z5CT)Y1Z8X0:Y1(I)X1Z8Y1(Z5Z4CT)Y0:C158:ZE0:W278:Z33:ZOO1 IO1O2:III:Z$"N"830*XX(I):YY(I).(XX0)Z3(YY0)Z38304Q9OĒZE:X,YXO,Y>SMP(I)ZIO1O2:LLL(I):Q3LLLP(I):SS(Q3):CCN(I):SSN(I):CICI(I):EEE(I):AAA(I):Q1EE(Q3):Q2(OEEEESSSS) SISI(I):RRAA(Q1Q2):Z1CC:Z2SS:Z3CS:Z4CICI:Z5SISI:Z6CISI:Z7Z3(OCI):Z8Z6(OCT):Q1Q2RRAA(Q1Q2)iXRR(LL):YRR(N$(1)"MERCURY":N$(2)"VENUS":N$(3)"EARTH":N$(4)"MARS":N$(5)"JUPITER":N$(6)"SATURN":N$(7)"URANUS":N$(8)"NEPTUNE":N$(9)"PLUTO" :10:"PLANETS DISPLAYED: "::IO1O2:15:N$(I):I:I15000:I  XX01X01:YY01Y01:X,Y:Y:Xo I(I)):SI(I)(I(I)):CN(I)(AN(I)):SN(I)(AN(I)):AN(I)AN(I)Z2G Iz CT(TA):DQDS6:O11:O29:X0140:Y080:3:O1 IO1O2:A(I)A(I)100DQ:I IO19:(CTA(I))78A(I)138O2I1:698 I IO211:A(I)10O1I1:700 I S HAPPENED.":12:9:"RETURNING TO THE MENU."::(4);"RUN MENU"3;"RUN MENU"*8WWWW1:WW3A$"M":6100f:24::10:"HIT A OR M, PLEASE."::I13000:I:6000(#K1(222):K2(218)256(219)#K1254K21000ė:24::"THIS HAS TO BE A N U M B E R. AGAIN?";::1000@&::10::5:"SOMETHING STRANGE HAM17SS31M18SS310M19SS30B&M110SS31T0M111SS30o:SSD1:PDY1S365.256xDFL1X1050::15:"C O M E T S"::13:"0 ENCKE"13:"1 TEMPLE"13:"2 WIRTANEN"13:"3 WHIPPLE"S$::380> M12D129(Y11900Y14(Y14))Ğ:S$::380m D131(M19M14M16M110)Ğ:S$::380 S0:M11SS31 M12SS28 M12Y14(Y14)Y11900SS1 M13SS31 M14SS30 M15SS31 M16SS30): ";M1R rM11M112M1(M1)Ğ:"AN INTEGER BETWEEN 1 AND 12, PLEASE."::350p |" DAY OF MONTH: ";D1 D11D131D1(D1)Ğ:"AN INTEGER BETWEEN 1 AND 31, PLEASE."::380 S$"THIS DAY IMPOSSIBLE IN MONTH SPECIFIED." M12D129Ğ:EASE."::140% "ECCENTRICITY: ";E[ E0E.99Ğ:"BETWEEN 0 AND .99, PLEASE."::170j AAP(23) ,"PERIHELION PASSAGE: " 6" YEAR: ";Y1 JY11900Y11999Ğ:"BETWEEN 1900 AND 1999, PLEASE."::310 TY1(Y1) ^" MONTH (1-12";W8 dW0W360Ğ:"BETWEEN 0 AND 360, PLEASE."::80} n"LONGITUDE OF ASCENDING NODE (IN DEGREES): ";O O0O360Ğ:"BETWEEN 0 AND 360, PLEASE."::110 "INCLINATION (IN DEGREES): ";I I0I180Ğ:"BETWEEN 0 AND 180, PLZ :6::"ORBITAL DATA FOR YOUR COMET":::"(PRESS 'RETURN' AFTER TYPING EACH INPUT)"` (} 2"PERIOD (IN YEARS): ";P FP1P100Ğ:"BETWEEN 1 AND 100, PLEASE."::50 P"ANGLE FROM ASCENDING NODE TO PERIHELION (IN DEGREES):  UPDATED 7/13/83$90001::FL0`Q$"THIS HAS TO BE A N U M B E R. AGAIN?" "DO YOU WISH TO INPUT YOUR OWN COMET'S DATA? (PRESS Y FOR YES, N FOR NO): ";:W$:W$:W$"N"1000W$"Y"ĺ::"TYPE Y OR N, PLEASE.":::10             1.14= Q11:Q22:Q330:HF.5:Q4278:Q5159:Q64:Q715:Q830 4E1PPI:E2((1E)(1E)):E3EP(1EE)(2PI):CCAA(1E):Q066.3:Q93.5(P(CC39))(Q0CC):CDCC(Q1E) THZEQ3:A1THF:C1(A1):S1(A1):T(TH)E1(E2(HFA1))E3S1(Q1EC1)(I):SI(I)3 XXCOCWSOCISW:XYCOSWSOCICW{ YXCASOCWCACOCISWSASISW:YYCASOSWCACOCICWSASICW lZXSASOCWSACOCISWCASISW:ZYSASOSWSACOCICWCASICW T(30),X%(30),Y%(30),XT%(30),YT%(30):X0140:Y079:C33:U1SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::(4);"RUN MENU" U" 2 ";:"DATE IS ";(SU);C$;" PAST ";M;"/";D;"/";YR;:SUSUAD:1yzIO1O2:L(I)L(I)(PI180)MM(I)W6:I:SMSMW6:720K1(222):K2(218)256(219):768K1531100K2820K28401100IIO2851O1IIO:800TL:::10:5:"50221,151220,152217,152219,152221,155E(4);"RUN INSIDESPT2"(#:::10:5:"SOMETHING STRANGE HAS HAPPENED":12:9:"RETURNING TO THE MENU."::(4);"RUN MENU"2,152210,152210,155214,155j217,155217,149220,149221,150221,151220,152217,152219,152221,155(4);"RUN INSIDESPT2"(#:::10:5:"SOMETHING STRANGE HAS HAPPENED":12:9:"RETURNING TO THE MENU."::(4);"RUN MENU"U9220,149221,1,152172,149172,155Y186,150185,149183,149182,150182,154183,155185,155186,154193,149189,149189,152191,152189,152189,155193,155196,155196,149200,155200,149203,149207,149205,149205,155214,149210,149210,15221133,152133,155137,155MX147,155147,152149,152147,152147,149151,149b154,155154,149157,149158,150158,151157,152154,152156,152158,155l161,150162,149164,149165,150165,154164,155162,155161,154161,150v168,155168,149170599,15598,1544&105,149109,149107,149107,155q0112,155112,153114,149116,153112,153116,153116,155:119,155119,149123,155123,149D130,150129,149127,149126,150126,154127,155129,155130,154N137,149133,149133,152135,1527,147172,147Z 237,141241,141239,144240,144241,145241,146240,147238,147237,146 84,15584,14987,14988,15088,15487,15584,155 92,14994,14993,14993,15592,15594,155102,150101,14999,14998,15098,152102,153102,154101,158,13319,132+ @I292797:I,135I,137:K JI2927935:I,137I,138:k TI2927970:I,138I,139: 27,14131,14132,14232,14631,14727,14726,14626,14227,141 98,14299,14199,14798,147100,147 167,142168,141171,141172,1421614,63:23,5718,5718,5922,5923,6023,6222,6319,6318,62 14,8214,88:19,8222,8223,8323,8722,8819,8818,8718,8319,82 23,10718,10718,10922,10923,11023,11222,11319,11318,112 19,13222,13223,13323,13722,13819,13818,1371 xI13505:27,I29,I:< I1351025:25,I27,I: 10,811,714,715,810,1315,13:23,718,718,922,923,1023,1222,1319,1318,12 10,3311,3214,3215,3310,3815,38:19,3222,3223,3323,3722,3819,3818,3718,3319,32< 14,57524 2,622,555,556,566,585,592,594,596,62a 2,722,693,655,656,692,696,696,72z 2,756,754,754,82 2,852,913,925,926,916,85 2,1022,955,956,966,985,992,994,996,102 6,1052,1052,1094,1092,1092,1126,112  UPDATED 2/9/83!9000::::3:0,0:62454VL0:29,029,135279,135l2,56,54,54,126,152,152,195,192,192,226,222,322,254,296,256,322,422,355,356,366,385,392,39 6,452,452,495,492,492,526,     (AAS)(AGAS)F5350v 24:9::"S U P E R N O V A ! ! !";:I110:J150:X(16336):J:J1200:J:I::9000 J1J1:G1(AGA)(AGA1(J1)):L1G1L1(J1)(1G1)L1(J):T1G1T1(J1)(1G1)T1(J) DL20L10F1!vLL1F(1F)L2:TT1F(1F) UJ ZM12.255250= \TE1:AG1E15TE1:ASAI(J1) J1J1:G2(AGA)(AGAI(J1)):L2G2LI(J1)(1G2)LI(J):T2G2TI(J1)(1G2)TI(J) J118 AGA1(J):(AGA)5310 J M12.255350 TE15350 AG1E15A5.91E85330 J0I:B%(J);:(IJ)3((IJ)3)IJĺ",";B J:" YEARS";N I1II1t M12.25A1.29E10M1(3.8)5200 L(M1(1.58E7A)1.4)LT:T(1.2E7(M110M1A1.4).25)LT:X279(T3)120:Y128(L4)14:5800 PJ118 TAGAI(J):(AGA)5210;"RUN COMETS"bA$"N"āJZEQ8:T(J)T(J)P:J::C3:X0,Y0X0Q1,Y0X0Q1,Y0Q1X0,Y0Q1:2800 WWWW1:WW3ĺ"M":(4);"RUN MENU"l 1:J139:" ";::1::"PRESS N, A, OR M, PLEASE."::J12500::8000?(#:::10:5:"SOMETHING STRANGE HASXT%Q2,YT%X%,Y%XT%Q1,YT%Q1X%,Y%XT%,YT%Q2X%,Y%XT%Q1,YT%Q1X%,Y%XT%Q2,YT%Q2:@23:1:J178:" ";::1:23:"PRESS N TO SEE THE NEXT PASSAGE, A FOR ANOTHER COMET, OR M FOR THE MENU: ";:A$:A$:A$"M"ĺ(4);"RUN MENU" rA$"A"ĺ(4)OVEMBER":DDA304:65008M$"DECEMBER":DDA334:6500bd21:1:E$;::12:M$;" ";D;", ";YR:hXQT(X%XT%)(Y%YT%)]QTQ2ēX%,Y%X%Q1,Y%:bQTQ6Q1ēX%,Y%XT%,YT%:QT10ēXT%Q1,YT%X%,Y%XT%,YT%Q1X%,Y%XT%Q1,YT%Q1:\&DA152M$" MAY":DDA120:6500MDA182M$" JUNE":DDA151:6500tDA213M$" JULY":DDA181:6500DA244M$" AUGUST":DDA212:6500DA274M$"SEPTEMBER":DDA243:6500DA305M$"OCTOBER":DDA273:6500DA335M$"NY%:KF6000+P1:B$:(B$)3280002J<8000hpYR(T):DA((TYR)365.256):DA1DA1zDA32M$"JANUARY":DDA:6500DA60M$"FEBRUARY":DDA31:6500DA91M$" MARCH":DDA59:6500DA121M$" APRIL":DDA90:6500Q1):YT%YT%(J1Q1):7000MKQ1Q6:X%X1%(K):Y%Y1%(K):X%,Y%X%Q1,Y%:KtC3:X0Q1,Y0X0Q1,Y0X0Q1,Y0Q1X0Q1,Y0Q1X%X%(J1):Y%Y%(J1):XT%XT%(J1):YT%YT%(J1):C3:7000<KQ1Q6:X%X2%(K):Y%Y2%(K):C3:X%,Y%X%Q1,Y%:X1%(K)X%:Y1%(K)J1Q8J1JQ7Q1QN J1ZEĒZE:X%X%(Q8):Y%Y%(Q8):XT%XT%(Q8):YT%YT%(Q8):7000e TT(J1)PHFPD KQ1Q6:X2%(K)X0U1R(K)(M(K)(TPD)PH(K)):Y2%(K)Y0R(K)CA(M(K)(TPD)PH(K)):KH ZE:J1ZE3600 X%X%(J1Q1):Y%Y%(J1Q1):XT%XT%(J1Q5Q6R X%XT%(TH):Y%YT%(TH):X%ZEX%Q4Y%ZEY%Q5XT%(TH)X0:YT%(TH)Q5Q6Z TH :23:" HIT SPACE BAR TO CONTINUE OR 'RETURN' TO END THE SIMULATION.";T :22:1:S$;:CH(36):CP39CH:KQ1CP:" ";:: JQ1Q8 J1JQ7::RCD(Q1EC1):XRC1:YRS1:LTQ9(Q0R):RQ0LTZEI` LTQ1LTR U1%U1(XXXXYY):U2%YXXYYY:X%(TH)X0U1%:Y%(TH)Y0U2%:XT%(TH)X0LTU1%:YT%(TH)Y0LTU2%: THZEQ3 X%X%(TH):Y%Y%(TH):X%ZEX%Q4Y%ZEY%Q5X%(TH)X0:Y%(TH)ŭŭŭŭ  8,15058,158:64,15068,150:66,15066,158$64,15868,158:72,15872,15074,15476,15076,158:84,15080,15080,15884,158:80,15482,154&210,150214,150:212,150212,158:218,150222,150:220,150220,158:218,158222,158:226,158226,150228,15432175,32158,40154,40154,44158,44158,48154,48:154,58154,50158,50158,54154,54:158,60154,60154,68158,68:154,64156,64:158,70154,70154,78158,78 154,74156,74:154,80154,88157,88158,87158,81157,80154,80*#56,15060,150:5,806,80:4,804,88:2,886,886,902,902,986,986,944,94:2,1002,108:2,1056,105:6,1006,108:2,1106,110:4,1104,118 176,28184,28:159,24155,24155,32159,32:155,28157,28:167,24163,24163,28167,28167,32163,32:175,24171,24171,;2);"#";5);"(TONS)";:1h 3:25,025,140:26,026,140125,140:179,0179,140:180,0180,140279,140 J014010:24,J:178,J:J:J010010:25J,141:179J,141:J2,602,68:2,656,65:6,606,68:2,702,78:2,706,70:2,744,74:2,786,78:2T2:X279(T3)120:Y128(L4)14-0:X,Y7 4200Q(#::(4);"RUN HREND"%:::10:5:"SOMETHING STRANGE HAS HAPPENED.":12:10:"RETURNING TO THE MENU."::(4);"RUN MENU" 12:9:"RETURNING TO THE MENU."::(4);"RUN MENU"M."::(4);"RUN MENU"I(4);"RUN MENU"I;::1::"TYPE A OR M, PLEASE.":I12500:::8000_(#(222)53(218)256(219)200080002#(222)254(218)256(219)1040ė:21::"THIS HAS TO BE A N U M B E R. AGAIN?"::I13000::10403#:::10:5:"SOMETHING STRANGE HAS HAPPENED.":(O)DQ:JTWNI:XQ(J)CJC(J)O:X(JTW),C1CJX(JO),C1CJ:C(J)CJ:2900S` JZT I@24:1::"TYPE A TO RUN AGAIN OR M FOR THE MENU: ";:A$::A$"A"1000A$"M"ĺA$:(4);"RUN MENU" WW1:W3ĺ"M":(4);"RUN MENU"4l 1:I139:" "A(I))F(A(I1)):SSP(I):IDP(10)1F(A(9)):SSP(10):P(1)1SdI110:Q(I)Q(I1)P(I):I@I08:X(I)15I33:IlO1:N1000:TW2:NI9:C1160:QOQ(O):Q9Q(9):DQQ9QO21:" ";" UV VIO BLU GRE YEL ORA RED IR "LION:XQOȞ! 11:"TEMPERATURE: ";T;" K"M ST$""Ģ23:12:"SPECTRAL TYPE: ";ST$o B1(KT):B1B.503E19:I0: L28388166666 (II1:L1L1E10:FCL1:E(I)HF:A(I)E(I)B nL sS0 xF(Z)(1ZZZ2ZZZ6)(Z)I921:P(I)F(# tL$"G"V5T6030102V:1200F yL$"G"T5520124(V5):1200j ~L$"K"V5T4900154V:1200 L$"K"T4130130(V5):1200 V5T3480136V:1200 T2800133(V5):1200 T10(T10) K1.38E23:H6.62E34::C2.99E8:22:)& QL$"O"T400002400(V5):1200L VL$"B"V5T280002500V:1200q [L$"B"T155001120(V5):1200 `L$"A"V5T9900280V:1200 eL$"A"T8500220(V5):1200 jL$"F"V5T7400164V:1200 oL$"F"T6580110(V5):12002500::1030 1100x :21:"TEMPERATURE? (TYPE A NUMBER BETWEEN 2000 AND 50000, THEN PRESS 'RETURN'): ":"";T T2000T50000ė:21::"THIS MUST BE GREATER THAN 2000 AND LESS THAN 50000. TRY AGAIN."::I13000::1040 1210 LV(R$:21::"SPECTRAL TYPE? (TYPE THIS, THEN PRESS 'RETURN'): ";:"";ST$m LN(ST$):L$(ST$,1):R$(ST$,1) LN2(R$)48(R$)57(L$"O"L$"B"L$"A"L$"F"L$"G"L$"K"L$"M")ğ:M$::I12500::1030 L$"O"(R$)5ğ:M$::I15  UPDATED 7/15/83$90005dQ(10),C(10)D::::3oM$"NO SUCH SPECTRAL TYPE. TRY AGAIN."21::"TEMPERATURE (T) OR SPECTRAL TYPE (S): ";:A$A$"T"1040A$"S"ė:21::"TYPE T OR S, PLEASE."::I12500:::1010G      1Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:RS10QD:1400(LC3Q(ST5):QAQ2(Q):QBQ2(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:RS10QD:14002LC5Q(ST5):QAQ3(Q):QBQ3(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:RS10QD:VA(VC5)VB:LS10(.5(QDVD)):1300LC4Q(ST5):QAQ2(Q):QBQ2(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:VAQ3(Q):VBQ3(Q1):VCST5Q:VD(1VC5)VA(VC5)VB:LS10(.5(QDVD)):1300I114:Q1(I)::I114:Q2(I)::I114:Q3(I):QLCCST5Q:QD(1QC5)QA(QC5)QB:LS10QD:1300LC5Q(ST5):QAQ3(Q):QBQ3(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:LS10QD:1300%LC2Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:VAQ2(Q):VBQ2(Q1):VCST5Q:VD(1VC5)BQ3(Q1):VCST5Q:VD(1VC5)VA(VC5)VB:MS10(.5(QDVD)):1200|I114:Q1(I)::I114:Q2(I)::I114:Q3(I):LC1Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:LS10QD:13000LC3Q(ST5):QAQ2(Q):QBQ2(Q1):Q:MS10QD:1200tLC2Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:VAQ2(Q):VBQ2(Q1):VCST5Q:VD(1VC5)VA(VC5)VB:MS10(.5(QDVD)):1200E~LC4Q(ST5):QAQ2(Q):QBQ2(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:VAQ3(Q):V[VLC1Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:MS10QD:1200`LC3Q(ST5):QAQ2(Q):QBQ2(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:MS10QD:1200jLC5Q(ST5):QAQ3(Q):QBQ3(Q1):QCST5Q:QD(1QC5)QA(QC5)QB,1.9,2.3,2.6,3.0,3.3R 5.7,4.3,2.9,1.9,1.3,.8,.4,.1,-.1,-.4,-.8,-1.2,-2.1,-3.4lQ1(14),Q2(14),Q3(14)~LC$"I"LC1LC$"II"LC2LC$"III"LC3LC$"IV"LC4LC$"V"LC5LI114:Q1(I)::I114:Q2(I)::I114:Q3(I):.9,2.0,2.1,2.3,2.6,2.7,3.0,3.3W* 1.4,1.2,1.0,.8,.7,.7,.6,.8,1.0,1.2,1.4,1.6,1.8,2.04 1.25,.87,.58,.4,.24,.13,.08,.02,-.03,-.07,-.13,-.20,-.5,-1.1 6.0,5.4,4.8,4.3,4.0,3.9,3.8,3.8,3.8,3.9,4.2,4.5,4.8,5.2 5.7,4.3,2.9,1.9,1.3,.8,.4,1.5,1.7E."::500XGMPRP2$bDNGRPb 2.2,1.7,1.4,1.2,1.1,1.1,1.0,1.0,1.1,1.1,1.2,1.2,1.3,1.4 1.6,1.25,.81,.51,.32,.23,.11,.4,.5,.6,.7,.8,.9,1.0 1.6,1.25,.81,.51,.32,.23,.11,.04,-.03,-.11,-.16,-.33,-.67,-1.2  1.1,1.3,1.5,1.6,1.7,1.8,1 1000, PLEASE."::400 "":"DISTANCE OF PLANET FROM STAR IN A.U.? (TYPE A NUMBER BETWEEN .1 AND 1000, THEN PRESS 'RETURN'): ";:"";DP DP0ĺ::"NOT A CHANCE. TRY A POSITIVE NUMBER."::500 DP.1DP1000Ğ:"BETWEEN .1 AND 1000, PLEAST BE BETWEEN .1 AND 20. AGAIN?"::300 "":"MASS OF PLANET IN EARTH UNITS? (TYPE A NUMBER BETWEEN .01 AND 1000, THEN PRESS 'RETURN'): ";:"";MP MP0ĺ::"MASS HAS GOT TO BE POSITIVE. ONCE MORE?"::400 MP.01MP1000Ğ::"BETWEEN .01 ANDLC$"II"LC$"III"LC$"IV"LC$"V"ĺ::A2$::200 ,"":"RADIUS OF PLANET IN EARTH UNITS? (TYPE A NUMBER BETWEEN .1 AND 20, THEN PRESS 'RETURN'): ";:"";RP 6RP0ĺ::"RADIUS MUST BE POSITIVE. AGAIN?"::300& @RP.1RP20ĺ::"THIS MUS:1009 (ST$,1)"O"((ST$,1))53ĺ::A1$:::100N T((ST$,1))48\ ST10OT "":"LUMINOSITY CLASS OF STAR? (TYPE I, II, III, IV, OR V, THEN PRESS 'RETURN'): ";:"";LC$ A2$"THERE'S NO SUCH LUMINOSITY CLASS. AGAIN?"7 LC$"I" (ST$,1)"O"O0:1504 (ST$,1)"B"O1:150O (ST$,1)"A"O2:150j (ST$,1)"F"O3:150 (ST$,1)"G"O4:150 (ST$,1)"K"O5:150 (ST$,1)"M"O6:150 ::A1$:::100 ((ST$,1))48((ST$,1))57ĺ::A1$:: UPDATED 7/21/83 )90003_::d"SPECTRAL TYPE OF STAR? (TYPE O, B, A,":"F, G, K, OR M FOLLOWED BY A NUMBER 0-9, THEN PRESS 'RETURN'): ";:"";ST$nA1$"THERE'S NO SUCH SPECTRAL TYPE. AGAIN?"x(ST$)2ĺ::A1$:::100              B(I)B(I)1000/ 15NI:1:J179:" ";:J6 Id :::"PRESS 'RETURN' TO START: ";:A$: H0:V0:I1:M(M(1)M(2)M(3)M(4)) ::21:"TIME";2);"HEIGHT";2);"SPEED";2);"STAGE";2);"FUEL LEFT" 22:"(SEC)";2);"(KM)";2);"(KM/SEC)"BETWEEN .1 AND 10, THEN PRESS 'RETURN'):"2 I11M II1N:VL14NI:III VL:11:"STAGE #";I;:": ";B(I):21:VL::B(I)::J139:" ";:J:1 B(I).1B(I)10Ğ:"A NUMBER BETWEEN .1 AND 10, PLEASE.";::VL:21:" ";:1212 ĝ:M(I)M(I)1000:F(I)M(I).9:J139:" ";:J:1 bM(I)1E6M(I)1000Ğ:"A NUMBER BETWEEN 1 AND 1000, PLEASE."::10I:21:" ":1120 jI lF(N).9(M(N)1)) :"BURN RATE FOR FUEL IN EACH STAGE IN TONS PER SECOND? (TYPE A NUMBER :1::"1, 2, 3, OR 4, PLEASE."::6:21:" ";:1:1000 L8:"MASSES OF THE STAGES? (FOR EACH ONE, TYPE A NUMBER BETWEEN 1 AND 1000, THEN PRESS 'RETURN'):" QI11 VII1N:III1 `10I:11:"STAGE #";I;:": ";M(I):10I:21::M(I): UPDATED 7/13/83'3000/d:91000F,B$" "e2,882,806,886,80:13105:"NUMBER OF STAGES? (TYPE 1, 2, 3, OR 4, THEN PRESS 'RETURN'): ";:"";N:6:23::N::I139:" ";::1A N(N)N1N4Ė1:I139:" ";::        K$"THIS HAS TO BE A N U M B E R. AGAIN?">LKA2541900YKB30ĺ::K$:::30tKB50ĺ::K$:::50l:::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":70056(219)9K$"THIS HAS TO BE A N U M B E R. AGAIN?"KLKA2541900fKB30ĺ::K$:::30KB50ĺ::K$:::50l:::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":700AB(218)256(219),>24:1::"HIT A TO RUN AGAIN OR M FOR THE MENU: ";::A$LXA$"A"1nA$"M"ĺ"M":(4);"RUN MENU"WWWW1:WW3A$"M":700 24:1:(7);:I139:" ";:I:1::"TYPE AN A OR AN M, PLEASE";::W13000:W:500 KA(222):KB(218)2YR(A1):X2(X2)1:C1X,80* 34,19L P(A23):P100P(P):470i P10P(10P)10:470 P1P(100P)100:470 P(1000P)1000 :21:1 "SEMI-MAJOR AXIS: ";A2;" A.U." "ECCENTRICITY: ";E"PERIOD: ";P;" YEARS"3 A10PI.10 RA(1EE)(1E(A1))H XR(A1):YR(A1)i (Q1C1X)(Q280Y)5290z X2(X2)1 (X)2282 C1X,80Y:C1X,80Y Q1C1X:Q280Y "A1 'E.97400 ,A13.1416:RA(1EE)(1E(A1)):XR(A1):JZ12,80J:J:200R R02.5Z12(C12):J22:Z12,80JZ12,80J:J:200 R03Z12(C12):J23:Z12,80JZ13,80J:J:200 A10PI21R0 XR0(A1):YR0(A1) X2(X2) C1X,80YC1X,80Y:C1X,80YC1X,80Y:A1 )R0Ğ:"AN OBJECT IN THIS ORBIT WILL HIT THE SUN. TRY AGAIN."::W13000:W:1] x:3 SA75:AAS:CAE:R0R0S:R01R01 (AR0)2AR02 PI3.14159 C11402(C2) R01.5ēC1,80:200 R02Z12(C12):J12:Z11,80 2"ORBITAL ECCENTRICITY? (TYPE A NUMBER BETWEEN 0 (CIRCLE) AND .99 (NARROW ELLIPSE), THEN PRESS 'RETURN'): ";:"";E: <E0E.99Ğ:"ECCENTRICITY MUST BE BETWEEN 0 (CIRCLE)":"AND .99 (NARROW ELLIPSE). TRY AGAIN.":::50 FT nA(1E UPDATED 7/13/83'1000/ :"SEMI-MAJOR AXIS? (TYPE A NUMBER BETWEEN .1 AND 100000, THEN PRESS 'RETURN'): ";:"";A:A2A R06.9599E51.496E8 #A.1A100000Ğ:"THIS MUST BE BETWEEN .1 AND 100000.":::30    L MENU"Ml 1:J139:" ";::1::"HIT C OR M, PLEASE."::J12500::8000(#:::10:5:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::(4);"RUN MENU"J178:" ";:::1:23:"PRESS C TO CONTINUE, A TO RUN AGAIN, OR M FOR THE MENU: ";:A$::A$:A$"M"ĺ(4);"RUN MENU"rA$"A"Ľ:1A$"C"āJZEQ8:T(J)T(J)P:J::C3:X0,Y0X0Q1,Y0X0Q1,Y0Q1X0,Y0Q1:2800 WWWW1:WW3ĺ"M":(4);"RUNS D): ";6N$;(@N$"D"ė:20JN$"R"ĺ::"TYPE R FOR A REAL PLANET'S SATELLITES OR D TO DESIGN YOUR OWN, PLEASE.":::300T:"TYPE THE NUMBER OF THE PLANET WHOSE SATELLITES YOU WISH TO SEE DISPLAYED:"^:" 1 EARTH":"A$"M"ĺ"M":(4);"RUN MENU">WWWW1:WW3A$"M":270|:10:8::"TYPE C, A, OR M, PLEASE."::I12500::245,"DO YOU WISH TO SEE A SIMULATION OF ONE OF THE REAL PLANETS' SATELLITES (PRESS R) OR WOULD YOU LIKE TO DESIGN YOUR OWN (PRESC1:BRS(W)C2:FO:A(I),B(I)A(I)O,B(I):C7:A,BAO,B:A(I)A:B(I)B::::10:"TYPE C TO CONTINUE, A TO RUN AGAIN, OR M FOR THE MENU: ";:A$A$"C"āION:PH(I)W(I)TPH(I)::16304,0:16299,0:16302,0:170A$"A"1 N1ST.01PM,U116384:U2127:U316368I045:C(IC4):C(I)C:C(180I)C:C(90I)C:C(90I)C:S(45I)C:S(135I)C:S(135I)C:S(45I)C:TZETPST:ION:WW(I)TPH(I):WC6(WC5(WC5))(U1)U2ĹU3,ZE:245LRR(I):ARC(W)X2)18139X,96Y139X,96Y:139X,96Y139X,96Y@A1NHH4700YI1NR(I)R(I1)PH(I)PH(I1)PI3:146PH(I)2PI(1)I C1139:C296:TW2:O1:FO4:C77:C4PI90:C33:C5TWPI:C6OC4:TP100PM(N):ST.02PM(N):PMPMP(I) TI# ZR0R090RM0 _R2R0R0M dI1N:W(I)2PIP(I):I i:10:"TO STOP THE SIMULATION, PRESS 'RETURN'":I13000: n:16302,0:6 sHH4R9R0:R0R02 xR01R01 A10PI21R0 XR0(A1):YR0(A1)X2(ER THAN THE PLANET'S RADIUS, ";:R0;:" KILOMETERS.":::42| /R(I)5000000Ğ:"THIS CAN'T BE MORE THAN 5000000.":::42 0I 2PI3.14159:RM0 FI1N:R(I)RMRMR(I) HI PI1N:R(I)R(I)90RM:P(I)R(I)1.5:I RPM1E30:I1N:P(I)'. EACH OR- BITAL RADIUS SHOULD BE BIGGER THAN THE PLANET'S RADIUS (";R0;") AND LESS THAN":"5000000:":::x &I11 (II1N:III *"ORBITAL RADIUS (IN KILOMETERS) OF SATELLITE #";I;": ";:"";R(I):< .R(I)R0Ğ:"THIS HAS TO BE BIGG0):PL(LR)1j "NUMBER OF SATELLITES? (TYPE A NUMBER FROM 1 TO 20, THEN PRESS 'RETURN'): ";:"";N: N0N(N)N20Ğ:"AN INTEGER BETWEEN 1 AND 20, PLEASE.":::30o #::"FOR EACH SATELLITE, TYPE THE ORBITAL RADIUS, THEN PRESS 'RETURN0:S(I)0: 300 "RADIUS OF THE PLANET IN KILOMETERS? (TYPE A NUMBER BETWEEN 100 AND 100000, THEN PRESS 'RETURN'): ";:"";R0: R0100R0100000Ğ:"A VALUE MORE THAN 100 AND LESS THAN 100000, PLEASE.":::20 R0(R0):LR(R0)(1 UPDATED 7/22/83 /:::1000e W(20),PH(20),R(20),A(20),B(20),P(20),X(20),Y(20) I120:W(I)0:PH(I)0:R(I)0:A(I)0:B(I)0:P(I)0:X(I)0:Y(I)0::W0:T0:R0:A0:B0:C10:C30:C20 :HH0C(180),S(180) I0180:C(I)        TTEMP"  (4);"RUN COMETSPT2"C(#K1(222):K2(218)256(219)m#K1254K21200ė:21::Q$:::1200T$K1254Ğ:Q$::&:::10:5:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::(4);"RUN MENU"Q2:x@23:1:PH(2)130.786C(PD1970.386)M(2):PH(3)101.220C(PD1970)M(3):PH(4)334.756C(PD1969.805)M(4)(4);"OPEN COMETTEMP"4(4);"WRITE COMETTEMP">FLP:W:O:I:E:AA:PD:AJ14` R(J):M(J):PH(J) J( (4);"CLOSE COME:1200API3.1415926536:CPI180:AAC:OOC:IIC:WWC:F1CvAAAA39:R(1)39.387:R(2)39.723:R(3)39:R(4)391.524:YR365.256:M(1)CYR4.092339:M(2)CYR1.602131:M(3)2PI:M(4).524033CYR{PDPDP2dPH(1)77.001C(PD1970.983)M(1):):II(N):EE(N):AAAA(N):PDPD(N)0::3:21eLX0140:Y079:3:X0,Y0X01,Y0X01,Y01X0,Y01"TILT ANGLE? (TYPE A NUMBER BETWEEN 0 AND 180, THEN PRESS 'RETURN'): ";:"";AA0A180ė:21::"THIS MUST BE BETWEEN 0 AND 180. AGAIN?":::(4);"RUN MENU"VN0N9ĺ::"THIS MUST BE A NUMBER 0-9 OR ELSE M."::14:1022s:(4);"OPEN COMETDATA"(4);"READ COMETDATA" J09 P(J):W(J):O(J):I(J):E(J):AA(J):PD(J):J(4);"CLOSE COMETDATA"!PP(N):WW(N):OO(N13:"4 SCHAUMASSE")13:"5 WOLF"B13:"6 CROMMELIN"X13:"7 OLBERS"s13:"8 PONS-BROOKS"13:"9 HALLEY"::::"PRESS THE NUMBER OF THE COMET YOU WISH TO SEE OR M TO RETURN TO THE MENU: ";:A$:A$:N(A$)48:N29ĺTHIS HAS TO BE A N U M B E R. AGAIN?"::9KB1010GKB1212(7);::::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":170 ENU."::A$"M":170 I"M":170 R THE MENU: ";::A$"A$"A"1DA$"M"ĺ"M":(4);"RUN MENU"bWWWW1:WW3A$"M":1701:I139:" ";::1::"TYPE A OR M, PLEASE.";::I12500::140(222)ERX1XB:Y1YB:(222)254220KB(218)256(219)+::"0Y:QQ1106#fISY3(I)ZE110?hSE:X1,Y1X1O,Y1:110VjFO:X1,Y1X1O,Y1unSI:Q2XXYY:Q2Q1118tYISZE120vX1X2:Y1Y2:X1,Y1X1O,Y1xX1(I)X2:Y1(I)Y2:Y3(I)Y:Q(I)Q2:T24:1::"TYPE A TO RUN AGAIN OR M FO)Y0:I <TZEMXST1 =(U1)U2ĹU3,ZE:140U >HC3T:DA(HC5):HR(HC4DA)k @N222:DA9N221 BN2::DA;:N3:HR10ĺ"0";HR;::68 CHR;:DIOFO:WTW(I)T:RRR(I):QQ(I):X1X1(I):Y1Y1(I):XRR(WT):YRR(WT):YYCI:X2X0X:Y2Y,Y0YX0X2,Y0Y:Y{ 6Q1R0R0:SI6:O1:SE7:ZE0:FO4:TW2:HF.5:C1158:C2278:ST2PI.06W(1):STST(D5E6):MX100ST 8C3W(1)241.769(2PI):C424:C51C4:23:N330:ER53:XB140:YB180 :U116384:U2127:U316368 ;I14:X1(I)X0R(I):Y1(I0:Y079:IS1:INPI2IS1 2R01.395E8:R(1)4.216E8:R(2)6.708E8:R(3)1.07E9:R(4)1.882E9:SC1(5D):R0R0SC:I14:R(I)R(I)SC:I 3I14:W(I)1R(I)1.5:I 4Y0R0:X12((R0R0YY)2):X22((R0R0YY)2)1:X0X1,Y0YX0X2,Y0Y:X0X1 ";:I:"INCLINATION ANGLE ";IN;" DEGREES":I110:" ";:I:"DISTANCE ";D;" KM":24 " TIME FROM START ";::"00";::" DAYS, ";::"00";::" HOURS" 5::"PRESS 'RETURN' TO STOP SIMULATION";: PI3.14159 7:ININPI180:CI(IN):X014IONS OF KILOMETERS? (TYPE A NUMBER BETWEEN 1 AND 5, THEN PRESS 'RETURN'): ";:"";D:DD1E6:D1E6ĺ::"NOT SO CLOSE! YOU WON'T SEE THE MOONS.":::12 D5E6ĺ::"THIS IS TOO FAR AWAY TO SEE MUCH. TRY AGAIN.":::12 :T 22:I16:" UPDATED 7/20/83 %200-: "INCLINATION ANGLE? (TYPE A NUMBER BETWEEN 0 AND 180, THEN PRESS 'RETURN'): ";:"";IN:IN0IN180ĺ::"THIS HAS TO BE BETWEEN 0 AND 180.":::10 "DISTANCE FROM JUPITER IN MILL    `?`?`?`?S`?`?`?`?RNING TO THE MENU.":(4);"RUN MENU"p?`?`?`?`?`?`?`?::900r'(7);::::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":9200T120KB1516LKA2541900U::"THIS HAS TO BE A N U M B E R. AGAIN?"::cKB2020qxKB3030KB42I1I:40l:::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":270I70fR0R9:4:A10PI2PI45:C(A1):S(A1):XR0C:YR0S:X11.2X:Y11.2Y:139X,96Y139X1,96Y1139X,96Y139X1,96Y1:139X,96Y139X1,96Y1:139X,96Y139X1,96Y1:140KA(222):KB(218)256(219)KA120KB1011 KA185600:R(7)238100:R(8)294700:R(9)R(8):R(10)R(9):R(11)377500:R(12)378060:R(13)527200:600HH5R024500:N5:R(1)130000:R(2)192000:R(3)267000:R(4)438000:R(5)586000:600HH6R01500:N1:R(1)20000:600XLR(R0)(10):PL(LR)1:50  `?`?`?`?ST5Q:QD(1QC5)QA(QC5)QB:LS10QD:1300LC5Q(ST5):QAQ3(Q):QBQ3(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:LS10QD:1300#LC2Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:VAQ2(Q):VBQ2(Q1):VCST5Q:VD(1VC5)VAQ3(Q1):VCST5Q:VD(1VC5)VA(VC5)VB:MS10(.5(QDVD)):1200zI114:Q1(I)::I114:Q2(I)::I114:Q3(I):LC1Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:LS10QD:1300.LC3Q(ST5):QAQ2(Q):QBQ2(Q1):QCS10QD:1200tLC2Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:VAQ2(Q):VBQ2(Q1):VCST5Q:VD(1VC5)VA(VC5)VB:MS10(.5(QDVD)):1200C~LC4Q(ST5):QAQ2(Q):QBQ2(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:VAQ3(Q):VBYVLC1Q(ST5):QAQ1(Q):QBQ1(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:MS10QD:1200`LC3Q(ST5):QAQ2(Q):QBQ2(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:MS10QD:1200 jLC5Q(ST5):QAQ3(Q):QBQ3(Q1):QCST5Q:QD(1QC5)QA(QC5)QB:M.9,2.3,2.6,3.0,3.3P 5.7,4.3,2.9,1.9,1.3,.8,.4,.1,-.1,-.4,-.8,-1.2,-2.1,-3.4jQ1(14),Q2(14),Q3(14)|LC$"I"LC1LC$"II"LC2LC$"III"LC3LC$"IV"LC4LC$"V"LC5LI114:Q1(I)::I114:Q2(I)::I114:Q3(I):,2.0,2.1,2.3,2.6,2.7,3.0,3.3U* 1.4,1.2,1.0,.8,.7,.7,.6,.8,1.0,1.2,1.4,1.6,1.8,2.04 1.25,.87,.58,.4,.24,.13,.08,.02,-.03,-.07,-.13,-.20,-.5,-1.1 6.0,5.4,4.8,4.3,4.0,3.9,3.8,3.8,3.8,3.9,4.2,4.5,4.8,5.2 5.7,4.3,2.9,1.9,1.3,.8,.4,1.5,1.7,1"::500XGMPRP2"bDNGRP` 2.2,1.7,1.4,1.2,1.1,1.1,1.0,1.0,1.1,1.1,1.2,1.2,1.3,1.4 1.6,1.25,.81,.51,.32,.23,.11,.4,.5,.6,.7,.8,.9,1.0 1.6,1.25,.81,.51,.32,.23,.11,.04,-.03,-.11,-.16,-.33,-.67,-1.2  1.1,1.3,1.5,1.6,1.7,1.8,1.9000, PLEASE."::400 "":"DISTANCE OF PLANET FROM STAR IN A.U.? (TYPE A NUMBER BETWEEN .1 AND 1000, THEN PRESS 'RETURN'): ";:"";DP DP0ĺ::"NOT A CHANCE. TRY A POSITIVE NUMBER."::500DP.1DP1000Ğ:"BETWEEN .1 AND 1000, PLEASE.BE BETWEEN .1 AND 20. AGAIN?"::300 "":"MASS OF PLANET IN EARTH UNITS? (TYPE A NUMBER BETWEEN .01 AND 1000, THEN PRESS 'RETURN'): ";:"";MP MP0ĺ::"MASS HAS GOT TO BE POSITIVE. ONCE MORE?"::400 MP.01MP1000Ğ::"BETWEEN .01 AND 1$"II"LC$"III"LC$"IV"LC$"V"ĺ::A2$::200 ,"":"RADIUS OF PLANET IN EARTH UNITS? (TYPE A NUMBER BETWEEN .1 AND 20, THEN PRESS 'RETURN'): ";:"";RP 6RP0ĺ::"RADIUS MUST BE POSITIVE. AGAIN?"::300$ @RP.1RP20ĺ::"THIS MUST 1007 (ST$,1)"O"((ST$,1))53ĺ::A1$:::100L T((ST$,1))48Z ST10OT "":"LUMINOSITY CLASS OF STAR? (TYPE I, II, III, IV, OR V, THEN PRESS 'RETURN'): ";:"";LC$ A2$"THERE'S NO SUCH LUMINOSITY CLASS. AGAIN?"5 LC$"I"LCR06378:N1:R(1)384000:600LHH2R03395:N2:R(1)9000:R(2)23000:600HH3R071300:N5:R(1)181000:R(2)422000:R(3)671000:R(4)1070000:R(5)1883000:600_HH4R060100:N13:R(1)137670:R(2)139353:R(3)141700:R(4)151422:R(5)151472:R(6) 2 MARS":" 3 JUPITER (INNER MOONS ONLY)":" 4 SATURN (INNER MOONS ONLY)":" 5 URANUS":" 6 PLUTO"c:h"YOUR CHOICE: ";:H$:H$rHH(H$):HH1HH6ĺ::"TYPE A NUMBER BETWEEN 1 AND 6, PLEASE.":::360|HH1IJ(222)1201000$!#(222)2549900=!#KA(218)256(219)m!#MT$"THIS HAS TO BE A N U M B E R. AGAIN?"|!#::MT$:!#KA300300!#KA400400!#KA500500!#KA17001700$"&:::10:5:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETULIKE"::2500  S3:a 24::"TYPE A TO RUN AGAIN OR M FOR THE MENU:";:A$::A$;:A$"A"1 A$"M"ĺ:(4);"RUN MENU" WWWW1:WW3ĺ:(4);"RUN MENU" 24:1:I139:" ";::24:1::"TYPE A OR M, PLEASE.";::I12500::1:2500!(#RR:V"LUMINOSITY (SOLAR UNITS): ";::LL(10LS.05)10:LL0LL(100LS.5)100yLL0Ğ:"BRIGHT STAR"::2310:LL: "SIZE IN SKY (EARTH UNITS): ";::S1SS:S21:I16:S1S110:S2S210:S3(S1)S2:S302320 I  S3.01ĺ"STAR"LUMINOSITY CLASS: ";::LC$:7"COLOR: ";::C$:"MASS (SOLAR UNITS): ";::MM(10MS.05)10:MM0MM(100MS.5)100:MM:"RADIUS (SOLAR UNITS): ";::RR(10RS.05)10:RR0RR(100RS.5)100:RR0RR(1000RS5)1000::D1DN:D21:I13:D1D1100:D2D2100:DD(D1.5)D2:DD02190GIeDD.01Ğ:"TINY"::2200q:DD:"TEMPERATURE: ";::(TP273);" C";::" OR ";::(329(TP273)5);" F":::18:"STAR"::"SPECTRAL TYPE: ";::ST$:13:G1G1100:G2G2100:GG(G1.5)G2:GG021708rIVzGG.01Ğ:"TINY"::2172b{:GG:|"ESCAPE SPEED (EARTH UNITS): ";:E1(MPRP):E21:I13:E1E1100:E2E2100:EE(E1.5)E2:EE02176~I:EE:@"DENSITY (EARTH UNITS): ";"MASS (EARTH UNITS): ";::MP:8H"ALBEDO: ";::AO:dR"DISTANCE FROM STAR (A.U.): ";::DP:\"LENGTH OF YEAR: ";:Y$"EARTH YEARS":YR.2YRYR365.256:Y$"EARTH DAYS"f:(10YR.5)10;" ";Y$:1p"GRAVITY (EARTH UNITS): ";:G1G:G21:I"RETURNING TO THE MENU.":(4);"RUN MENU"p?`?`?`?222)1201000#!#(222)2549500A$"H"ĺD$;"RUN COMETS" HA$"J"ĺD$;"RUN TEMPERATURE AND COLOR" RA$"K"ĺD$;"RUN SPECTRAL TYPES" \A$"N"ĺD$;"RUN INSIDE STARS" A$"C"ĺD$;"RUN TRACOMETS" v"I SOLAR SYSTEM"@ x"J TEMPERATURE AND COLOR"Z z"K SPECTRAL TYPES"s |"L BUILD-A-WORLD" ~"M DOUBLE STARS" "N INSIDE STARS" "O EVOLUTION OF STARS" "P SPIRAL GALAXIES"' :"TO RUN ONE OF THESE, TYPE I. UPDATED 7/20/83 =d::12:"C O N T E N T S":Xf"A EARTH SATELLITE"vh"B MULTI-STAGE ROCKET"j"C EXPEDITION TO MARS"l"D ELLIPTICAL ORBIT"n"E STARSHIP"p"F JUPITER'S MOONS"r"G SATELLITES" t"H      ;"READ SSTEMP" JY:YR:F1 LI19:AN(I):IF NI19:LP(I):Id PM:D:DT:Z$:T6:TA:DS} R(4);"CLOSE SSTEMP" d lZ1360:Z2PI180:I19@ vL(I)L(I)MM(I)DT:L(I)L(I)Z1(L(I)Z1):L(I)L(I)Z2:LP(I)LP(I)Z2:I(I)I(I)Z2:CI(I)(M(I):I ((4);"CLOSE SSDATA": 2(4);"OPEN SSLABELS"T 4(4);"READ SSLABELS" 6A1$:A2$:A3$:A4$:A5$:A6$:A7$:A8$:A9$ 8B1$:PI:B3$:B5$:B6$ :I1$:I2$:I3$:I4$:I5$:I6$ <(4);"CLOSE SSLABELS" F(4);"OPEN SSTEMP" H(4)V  UPDATED 2/6/83!1000|768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 (4);"OPEN SSDATA" (4);"READ SSDATA" I19:A(I):E(I):I(I):AN(I):LP(I):H(I):L(I):NC(I):PC(I):P(I):M39:" ";::1::"TYPE A OR M, PLEASE.";::I13000:I:564_DA$"M"ĺ"M":(4);"RUN MENU"N24:1:I139:" ";::1::"TYPE C OR Q, PLEASE.";::I13000:I:550K1(222):K2(218)256(219)LK1254K2110ĺ::"THIS HAS TO BE A N U M1P:D2D2P:24:1:I139:" ";::1:"TIME: DAYS, HOURS, MINUTES";:265c2A$"Q"590424:1:I139:" ";::1::"TYPE A TO RUN AGAIN OR M FOR THE MENU:";:A$:6A$"A"18A$"M"580:WWWW1:WW3A$"M":580=<24:1:I11440DA)+ND7:DA10ND8:7::"0";:PNH16:HR10NH17:16::"0";:uNM26:MN10NM27:26::"0";:24::ND:DA;:NH:HR;:NM:MN;:T&1:24:I139:" ";::1::"TYPE C TO CONTINUE OR Q TO QUIT: ";:A$:R0A$"C"D1DPSMXI:THTW(((OE)(OE))(PSHF)):RA1(OE(PS))nXSR(TH):YSR(TH):XSTW(XSHF)O:TZE470KW$"Y"470ZE:X0Z1,Y0Z2X0Z1O,Y0Z2C3:X0XS,Y0YSX0XSO,Y0YS:Z1XS:Z2YS DA(T1440):HR(T6024DA):MN(T60HRRECO:Y1RESI:C3:X0U1,Y0V1X0U1O,Y0V1TZE:X0X1,Y0Y1X0X1O,Y0Y1:U1X1:U2X2:U3X3:U4X4:V1Y1:V2Y2:V3Y3:V4Y4rMTWPITP:CM(M):SM(M):Q0(ESM)(OECM):ET(OTWECMEE):Q1(E(MQ0))C3(C6ET)9XIQ0(Q1(OQ1Q1)):> I17:" ";:I:"PERIOD ";DA;" D, ";HR;" HR, ";MN;" MIN"j "TIME: 00 DAYS, 00 HOURS, 00 MINUTES"; O1:TW2:C33:HF.5:C66:D10:DTP50:D2PDT10 TD1D2DT ZE:X0,Y0 A1E5370.T1WET:CO(T1):SI(T1):COCOHF:SISIHF:X14A)A1:3 X0RE) Y(REREXX)B X0X,Y0YX0X,Y0Y[ X0X,Y0YX0X,Y0Yb Xj 21 DA(P1440):HR(P6024DA):MN(P60HR1440DA) I17:" ";:I:"SEMI-MAJOR AXIS ";:A;:" KM" I112:" ";:I:"ECCENTRICITY ";:EYPE Y OR N, PLEASE."::126U PI3.14159:PE1440:WE2PIPE:POPI2:P(A331.3)1.5 A(1E)6500ĺ::"THIS ORBIT WILL INTERSECT THE EARTH.":"PLEASE TRY AGAIN.":::110 : BA(1E2):A178:B1(BA)A1:C1A1E:X0140C1:Y080:RE(6378.16SULTS ARE POOR FOR ECCENTRICITY":"OVER .7; PLEASE TRY AGAIN.":::120 }E0ĺ::"ECCENTRICITY MUST BE BETWEEN 0 AND .7":"FOR THIS SIMULATION TO WORK. TRY AGAIN!":::120 ~:"TRACE? (PRESS Y FOR YES, N FOR NO): ";:KW$:KW$"Y"KW$"N"ĺ::"TMUST BE AT LEAST 6500. TRY AGAIN!":::110 sA1E5ĺ::"THIS IS TOO FAR OUT TO BE USEFUL. THIS NUMBER MUST BE 100000 OR LESS. AGAIN?":::110 x:"ECCENTRICITY? (TYPE A NUMBER BETWEEN 0 AND .7, THEN PRESS 'RETURN'): ";:"";EG yE.7ĺ::"RE  UPDATED 7/22/83(10002d::n"SEMI-MAJOR AXIS? (TYPE A NUMBER BETWEEN 6500 AND 100000, THEN PRESS 'RETURN'): ";:"";A, pA6500ĺ::"SATELLITES HAVE TO ORBIT OUTSIDE":"EARTH'S ATMOSPHERE--SEMI-MAJOR AXIS":"      B(I)B(I)10003 15NI:1:J179:" ";:J: Ih :::"PRESS 'RETURN' TO START: ";:A$: H0:V0:I1:M(M(1)M(2)M(3)M(4)) ::21:"TIME";2);"HEIGHT";2);"SPEED";2);"STAGE";2);"FUEL LEFT" 22:"(SEC)";2);"(KM)";2);"(KM/SBER BETWEEN .1 AND 10, THEN PRESS 'RETURN'):"6 I11Q II1N:VL14NI:III VL:11:"STAGE #";I;:": ";B(I):21:VL::B(I)::J139:" ";:J:1 B(I).1B(I)10Ğ:"A NUMBER BETWEEN .1 AND 10, PLEASE.";::VL:21:" ";:1212(I)::M(I)M(I)1000:F(I)M(I).9:J139:" ";:J:1 bM(I)1E6M(I)1000Ğ:"A NUMBER BETWEEN 1 AND 1000, PLEASE."::10I:21:" ":1120 jI lF(N).9(M(N)1)- :"BURN RATE FOR FUEL IN EACH STAGE IN TONS PER SECOND? (TYPE A NUM:::1::"1, 2, 3, OR 4, PLEASE."::6:21:" ";:1:1000 L8:"MASSES OF THE STAGES? (FOR EACH ONE, TYPE A NUMBER BETWEEN 1 AND 1000, THEN PRESS 'RETURN'):" QI11 VII1N:III5 `10I:11:"STAGE #";I;:": ";M(I):10I:21::M/ UPDATED 7/22/83 )30003d::=1000J,B$" "i2,882,806,886,80:13105:"NUMBER OF STAGES? (TYPE 1, 2, 3, OR 4, THEN PRESS 'RETURN'): ";:"";N:6:23::N::I139:" ";::1E N(N)N1N4Ė1:I139:" ";MENU"I :(7);:22::"TYPE C, S, OR F, PLEASE."::I12000:I:1500 ::10:5::"SOMETHING STRANGE HAS HAPPENED"::(4);"RUN MENU" ,1232,19j :22:1:"EVOLVING CLUSTER (C), SINGLE STAR (S), OR CLUSTER FREEZE-FRAME (F): ";:A$::A$ A$"C"ĺ(4);"RUN CLUSTER EVOLUTION" A$"S"ĺ(4);"RUN SINGLE EVOLUTION" A$"F"ĺ(4);"RUN FREEZE-FRAME" WWWW1:WW3ĺ(4);"RUN 814:36,J38,J:JB 33,12928,12932,12432,131:26,12823,128 28,9729,9631,9632,9732,9928,10333,103:26,10023,100 29,6828,6928,7429,7532,7533,7433,6932,6829,68 28,4129,4031,4032,4132,4328,4733,47 33,1728,17323927912:I,128I,130:I> (99,12899,131:219,128219,131 241,13437,13437,13740,13741,13841,14040,14138,14137,140 <161,139157,139160,134160,141 F274,134279,134276,137277,137279,139279,140278,141275,141274,140 xJ212126,144126,156134,156:138,146138,154140,156144,156146,154146,146144,144140,144138,146 158,146158,144150,144150,156158,156158,152154,152 174,144182,144178,144178,156 39,12839,132:159,128159,132:279,128279,132 I UPDATED 1/22/83$ 2000>:3:0,0:62454:0:hL39,12839,038,038,039,128279,12810,2010,3218,32:10,3612,3416,3418,3618,4416,4612,4610,4410,3618,5018,4810,4810,6018,6018,5414,5410,7610,8818,88b      6336)(16336)(16336)(16336):K-J7150524:1:J139:" ";:J:10::"STAGING #";I;" SUCCESSFUL.";::W11000:W:1:II1:MM(I)M(I1)M(I2):1700@1504rt24:1::"ESCAPE SPEED REACHED. NICE GOING!!!";::1 |WT1ICER.";WT13000::2000v24:1:J139:" ";:J:5::"STAGE #";I;" OUT OF FUEL. STAND BY.";::J11500:JX(1)X.05ė:24:1::"STAGE #";I1;" HAS FAILED TO IGNITE";::1X.051530&J1100:J10(J10)āK110:SO(15T1125ēT1,HHT11,HHE|SP0SP140T2179T2279ēT2,SPT21,SPY}V1.119E41650k~H0V01600}F(I)015001700IN151224:1:"FUEL USED UP ";T;" SEC AFTER LIFTOFF";:WT13000:24:1:"BLOWN UP BY RANGE SAFETY OFFHHV.5A:H01505&7B$" "cx23:3:B$;:3:T;:8:B$;" ";:8:(H100)10;:16:B$;y16:(V100)10;:24:B$;:24:I;:32:B$;:32:(F(I)100.5)10;:1zJ1600:J:HH140H1000:SP140V100:T125T:T2179T{HH0HH140T12:24:1;:32:(F(1)100.5)10;:1:WT12000:t*2500:T11E3:F1F(I)B(I):XS(16384):16368,0:XS1272000+F10M1MB(I):F(I)F1:FR1,F10M1MF(I):F(I)0:FR1F1B(I)-A9.812.5E3B(I)FR(.5(MM1)):VVA:MM1:H0V0V00154230,150230,158I'238,150234,150234,158238,158:234,154236,154(4,304,38:8,3012,3012,388,388,30:16,3020,3020,3816,3816,30:10,4210,50:14,4210,4614,50:16,5016,4218,4620,4220,500)22,4028,40:3:23:3:0;:8:0;:16:0;0:58,15058,158:64,15068,150:66,15066,158$64,15868,158:72,15872,15074,15476,15076,158:84,15080,15080,15884,158:80,15482,154&210,150214,150:212,150212,158:218,150222,150:220,150220,158:218,158222,158:226,158226,150228,171,32175,32158,40154,40154,44158,44158,48154,48:154,58154,50158,50158,54154,54:158,60154,60154,68158,68:154,64156,64:158,70154,70154,78158,78 154,74156,74:154,80154,88157,88158,87158,81157,80154,80.#56,15060,158:2,806,80:4,804,88:2,886,886,902,902,986,986,944,94:2,1002,108:2,1056,105:6,1006,108:2,1106,110:4,1104,118 176,28184,28:159,24155,24155,32159,32:155,28157,28:167,24163,24163,28167,28167,32163,32:175,24171,24EC)";2);"#";5);"(TONS)";:1l 3:25,025,140:26,026,140125,140:179,0179,140:180,0180,140279,140 J014010:24,J:178,J:J:J010010:25J,141:179J,141:J"2,602,68:2,656,65:6,606,68:2,702,78:2,706,70:2,744,74:2,786,7 B(I)B(I)10003 15NI:1:J179:" ";:J: Ih :::"PRESS 'RETURN' TO START: ";:A$: H0:V0:I1:M(M(1)M(2)M(3)M(4)) ::21:"TIME";2);"HEIGHT";2);"SPEED";2);"STAGE";2);"FUEL LEFT" 22:"(SEC)";2);"(KM)";2);"(KM/SBER BETWEEN .1 AND 10, THEN PRESS 'RETURN'):"6 I11Q II1N:VL14NI:III VL:11:"STAGE #";I;:": ";B(I):21:VL::B(I)::J139:" ";:J:1 B(I).1B(I)10Ğ:"A NUMBER BETWEEN .1 AND 10, PLEASE.";::VL:21:" ";:1212(I)::M(I)M(I)1000:F(I)M(I).9:J139:" ";:J:1 bM(I)1E6M(I)1000Ğ:"A NUMBER BETWEEN 1 AND 1000, PLEASE."::10I:21:" ":1120 jI lF(N).9(M(N)1)- :"BURN RATE FOR FUEL IN EACH STAGE IN TONS PER SECOND? (TYPE A NUM:::1::"1, 2, 3, OR 4, PLEASE."::6:21:" ";:1:1000 L8:"MASSES OF THE STAGES? (FOR EACH ONE, TYPE A NUMBER BETWEEN 1 AND 1000, THEN PRESS 'RETURN'):" QI11 VII1N:III5 `10I:11:"STAGE #";I;:": ";M(I):10I:21::M/ UPDATED 7/22/83 )30003d::=1000J,B$" "i2,882,806,886,80:13105:"NUMBER OF STAGES? (TYPE 1, 2, 3, OR 4, THEN PRESS 'RETURN'): ";:"";N:6:23::N::I139:" ";::1E N(N)N1N4Ė1:I139:" ";      KS PERIOD 71 YEARS"L P76.1S$" HALLEY'S COMET PERIOD 76.1 YEARS" :22:1:S$;:CH(36):CP39CH:K1CP:" ";:: 24:12::"(20 SECOND PAUSE)";: PI3.14159:CPI180:F12C @CA(A):SA(A):CO(O):SO(O):CW(W):SW(W):CI4 YEARS"@ P8.18S$" COMET SCHAUMASSE PERIOD 8.18 YEARS"v P8.42S$" COMET WOLF PERIOD 8.42 YEARS" P27.9S$" COMET CROMMELIN PERIOD 27.9 YEARS" P69S$" COMET OLBERS PERIOD 69 YEARS" P71S$" COMET PONS-BROO" YOUR COMET PERIOD "(P)" YEARS":990c P3.3S$" COMET ENCKE PERIOD 3.3 YEARS" P5.26S$" COMET TEMPLE PERIOD 5.26 YEARS" P6.65S$" COMET WIRTANEN PERIOD 6.65 YEARS" P7.44S$" COMET WHIPPLE PERIOD 7.4A UPDATED 7/13/83&9000,dUE$" "p(4);"OPEN COMETTEMP"(4);"READ COMETTEMP"FLP:W:O:I:E:AA:PD:AJ14R(J):M(J):PH(J):J(4);"CLOSE COMETTEMP"/ FL0S$   24:1:I139:" ";:I:1::"TYPE A TO RUN AGAIN OR M FOR THE MENU";::W13000:W:460(7);::::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":1100dPI:1::"TYPE A TO RUN AGAIN OR M FOR THE MENU";::W13000:W:460(7);::::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::Q$"M":1100dIA$"A"ĺ"":(4);"RUN TRANSFER ORBIT"LA$"M"ĺ"":(4);"RUN MENU"\"PRESS A TO RUN AGAIN OR M FOR THE MENU:";:A$:1000:21:1:"SHIP DID NOT REACH MARS WITHIN 260 DAYS";::23:1:"TYPE A TO RUN AGAIN OR M FOR THE MENU:";::Q$:1000130Q$"A"1LQ$"M"ĺ"":(4);"RUN MENU"E24:1:I139:" ";:29:T;jW1370&mTTLP2460LrQ1XE:Q2YE:W1XM:W2YM:Z1X:Z2Yi|(XXM)3(YYM)3400r500:21:I110:" ";:I::"S U C C E S S ! ! !"::"YOU HAVE MADE RENDEZVOUS WITH MARS ON":"DAY ";TTL;" OF YOUR VOYAGE. CONGRATS!"50:XX8:YY8) XXC3:YYC4:THT02408 X,YXO,YF Z1X:Z2YS ,W1360 ^ZE:Q1,Q2Q1O,Q2Q1O,Q2OQ1,Q2O:W1,W2W1O,W2W1O,W2OW1,W2O h3:XE,YEXEO,YEXEO,YEOXE,YEO:XM,YMXMO,YMXMO,YMOXM,YMO:WOēX,YXO,Yi21:T0TE:W1:TLT:C0(T0):S0(T0)l MTWPI(TTL)P:CM(M):SM(M):Q0(ESM(1ECM)):ET(12ECMEE) Q(E(MQ0))3(6ET):XIQ0(Q(1QQ)):PSMXI TH2(S1(PS2)):RA(1E(PS)) XR(TH):YR(TH) X8XC0YS0:Y8XS0YCTE0:TMC2TM0C XERE(TE):YERE(TE):XMRM(TM):YMRM(TM)m XEXEC3:YEYEC4:XMXMC3:YMYMC4z W1200 A$:(A$)32300 (A$)13185 180 23:1:I139:" ";:I:24:1:I139:" ";:I:13::"SHIP IN TRANSIT";: YMXM1,YMXM1,YM1XM,YM1c 22:I19:" ";:I:"DAYS SINCE LAUNCH: ":Q1XE:Q2YE:W1XM:W2YMr 21:29:T 23:" PRESS SPACE BAR TO ADVANCE 10 DAYS. PRESS 'RETURN' TO LAUNCH YOUR SHIP."; TT10 W1Ģ22:29:TTL 1 TEC1C12PIPE:C22PIPM:ZE0:O1:C3140:C480:SI6:FI5:MM1000:TW2r |21:I110:" ";:I:"DAYS SINCE START: " }E02PI(1):M02PI(1):XERE(E0)140:YERE(E0)80:XMRM(M0)140:YMRM(M0)80 ~3:XE,YEXE1,YEXE1,YE1XE,YE1:3:XM, UPDATED 7/23/83 )20005d:::=e21snPI3.14159:RE1:RM1.523691:PE365.256:PM686.980pA.5(RERM):PA1.5365.256:E(RMRE)(RMRE):S1((1E)(1E))rRERE50:RMRM50:AA50x3:I13:J13:138I,78J:J:IC z     ,A24,A24,A328,A330,A530,A728,A926,A924,A7:3000R6ē30,A28,A24,A424,A825,A929,A930,A830,A629,A525,A524,A6:3000,R7ē24,A30,A24,A724,A9:3000:R8ē24,A24,A430,A430,A924,A924,A530,A530,A246,A24,A2:3000AR1ē25,A227,A27,A925,A929,A9:3000~8R2ē24,A226,A27,A29,A229,A324,A930,A9:3000R3ē24,A30,A27,A428,A430,A630,A728,A926,A924,A7:3000R4ē28,A928,A24,A630,A6:3000>dR5ē306000ZA$"G"ē21,A221,A17,A15,A215,A816,A920,A921,A821,A518,A5:60007A$"K"ē15,A15,A915,A521,A15,A521,A9:6000PA$"M"ē15,A915,A18,A521,A21,A9:6000pR0ē24,A224,A726,A928,A930,A730,A228,A219,A921,A721,A219,A17,A15,A2:6000A$"B"ē15,A15,A919,A921,A721,A619,A415,A419,A421,A221,A119,A15,A:6000A$"A"ē15,A915,A318,A21,A321,A921,A614,A6:6000A$"F"ē15,A915,A21,A15,A15,A419,A4:2:J,TJ,B:J) D3F1I$""3320O JL2SL2S2:J31J2793318\ J,TJ,Bc Jj IH D4NMI$""NM:3000z I$""1300 I$"TOP "140015000:A$L$:J1530:J,AJ,A9:J:3+A$"O"ē15,A215,A717,A9 WT(N3N1)(N3N2)+ N213WT1:N313[ I139:S(I)WTS%(N2,I)(1WT)S%(N3,I):ImN D4NM3300 3:ITB:35,I275,I:I:0 I139:LL(I)D1:SF1S(I):S.53320 LS2279LS2313320 S1.5ēL,TL,B:3320 JLS2LS36:5000"fL$"K"NR46:50004pL$"M"2200WzNR56:N61ĺ::N$:::2000a5000w::M$:::2000 N11(N1)5 T80:B89:I$"BOTTOM "T100:B109 I$"TOP "T60:B69 D10:F11:I$""D1DS:F1F N2(N1):N3N21ST$)2ĺ::M$:::2000N((ST$,1))48((ST$,1))57ĺ::M$:::2000lL$(ST$,1):R((ST$,1))L$"O"R5ĺ::N$:::20004L$"O"NR4:5000>L$"B"NR6:5000HL$"A"NR16:5000RL$"F"NR26:5000 \L$"G"NR:" NICE WORK.":sD4(NN10M10)::"":"...NOW, HOW ABOUT THE O T H E R STAR?"::I12500:I:1300}8000I$;:"SPECTRAL TYPE: ";ST$M$"NO SUCH SPECTRAL TYPE. TRY AGAIN."N$"ONLY O5 TO M5 ALLOWED HERE. TRY AGAIN."(:I12000::1300m (NNN)2(NM1)2Ğ:"CLOSE, BUT NOT CLOSE ENOUGH. TRY AGAIN."::I12000:I:1300 (NNN)2NN10 (NM1)2M10 :ST$;" IS CORRECT!";::C1Ğ:" E X C E L L E N T !": C2Ğ:" VERY GOOD!":C3ĞNR26:1580& L$"G"NR36:1580? L$"K"NR46:1580Q "L$"M"1600 'NR56:N61ĺ::N$:I12500::::1500 ,1700 @::M$:I12500::::1500 :21 M110:M0M1M (NNN)5(NM1)5Ğ:"WAY OFF. TRY AGAIN.":ĺ::M$:::I12500::1500_ ((ST$,1))48((ST$,1))57ĺ::M$:::I12500::1500} L$(ST$,1):R((ST$,1)) L$"O"R5ĺ::N$:::I12500::1500 L$"O"NR4:1580 L$"B"NR6:1580 L$"A"NR16:1580 L$"F"DS(12(2(1)))(5(10(1)))8 F1:D3N25F.5d M0:D4M1((1)61):(MN)151196n 3000 :21:I$"TOP ":A60:2000 x:21:I$"BOTTOM ":A100:2000 :21:CC1:"GUESS #";C;" FOR THE SPECTRAL TYPE: ";:"";ST$ (ST$)2 jJ113 tS%(J,I) ~J' IG (4);"CLOSE LINESTRENGTHS"X ::C0:DS0 21:"LEVEL OF DIFFICULTY? (1, 2, 3, OR 4):";:B$:B$:(B$)1(B$)4ĺ::"TYPE 1, 2, 3, OR 4, PLEASE.":::1190 N1((1)61):NNN:I$""! D(B$):D2 UPDATED 2/2/83 &9000AL(39),S%(13,39),S(39)^(4);"OPEN WAVELENGTHS"{(4);"READ WAVELENGTHS"I139L(I)I$(4);"CLOSE WAVELENGTHS"L(4);"OPEN LINESTRENGTHS"V(4);"READ LINESTRENGTHS" `I139       CH WAS YOUR INTENDED DESTINATION.":<'P1010020':"UNFORTUNATELY, YOU HEADED FOR A STAR THAT IS IN A POST-MAIN SEQUENCE EVOLU- TIONARY PHASE. ALL OF ITS INHABITABLE PLANETS HAVE DOUBTLESS BEEN ROASTED."*':12:"YOUR CREW IS GOINEW DECIDES TO SEE IF YOU CAN":12:8:"LEARN TO BREATHE VACUUM.":11000(#:8:4:"YOUR LAST CREWMEMBER HAS STARVED":10:15:"TO DEATH.":14:4:"ENJOY YOUR DINNER THIS EVENING.":11000+'::" YOU HAVE SUCCESSFULLY ARRIVED AT THE STAR WHI FOR TELESCOPIC EVALUATION":7 WW15000:WW:10000@:8:3:"YOUR LAST CREWMEMBER HAS DIED AS A":10:6:"RESULT OF OVERACCELERATION.":14:7:"HAVE A NICE DAY, BUTCHER.":11000G4!:8:2:"YOU ARE NOW HOPELESSLY LOST IN SPACE.":10:2:"YOUR CRLTIES: ";::Q2;::18:"SURVIVING CREW: ";::N1:CQ206700SN108000c,N109000"ENOUGH FOOD FOR ";::(2FN1)2;::" MORE YEARS."X(D(N)L1).14100(V).01410016:10::"DESTINATION REACHED":19:3:"STAND BY:F(D(N)L1);::" LIGHT-YEARS":`jD(N)L10Ğ:" SHIP HAS PASSED DESTINATION STAR."::t(V)1E3V0"SPEED RELATIVE TO STAR: ";::G(V);::" LIGHT":dQ2(((A)D1)1)(2(1))N1N1Q2:FF.5N1F090003"CASUADEPARTURE: ";" ON THE SHIP: ";::F(T);::" YEARS"mD" AT THE STAR: ";::F(T1);::" YEARS":pQ1(D(N)L1)Q3"DISTANCE BETWEEN SHIP AND STAR: "" SEEN FROM SHIP: ";::F(Q1);::" LIGHT-YEARS""" SEEN FROM STAR: ";:(Q1Q2)21)A)Q36PTTD1:T1T1D2:LLD3:L1L1D4HL1L1VD1Q3`"F(W).01(100W)z,G(W).001(1000W)JQ5(Q1Q2)(Q1Q2)TV(VQ5)(1VQ5)^(V).999999999(D(N)L1)9999.998500h:Q3(1VV) |"ELAPSED TIME SINCE :"WARNING: THE SURGEON GENERAL HAS DETERMINED THAT PROLONGED ACCELERATION IN EXCESS OF 1 GEE IS DANGEROUS TO YOUR HEALTH."::I13000:D1.5Q1(AD1):Q2(AD1)Q3(1VV)$D2(Q1Q2)(2AQ3)D3(((Q1Q2)2))AD4((Q$;:"";Aw(A)3Ģ21:28:I1125:" ";::1:23::"ACCELERATION MUST BE BETWEEN -3 AND +3. TRY AGAIN.";::41000A0Ģ21:6:I1150:" ";::1:23::"ACCELERATION CAN'T BE 0. TRY SOMETHING SMALL, LIKE .01.";::4100(A)14800:L0:L10:V0:N1100:F1000 Q$"ACCELERATION OF RAMJET? (TYPE A NUMBER BETWEEN -3 AND +3, THEN PRESS 'RETURN'. POSITIVE NUMBERS PUSH THE SHIP AWAY FROM NEW AMERICA, NEGATIVE ONES PUSH THE SHIP BACK TOWARDS IT.): " 1:15:I139:"*";:::: A$(N)"K"P2.3) A$(N)"M"P2.14 BX(1)B tPP1P2X :5:"YOUR DESTINATION IS A STAR OF SPECTRAL TYPE ";::A$(N);B(N);::" AND LUMINOSITY CLASS ";::C$(N): "LOCATED ";::D(N);::" LIGHT-YEARS FROM NEW AMERICA." T0:T10:OICE? (TYPE A NUMBER 0 TO 9): ";:N$:N(N$) (N$)48(N$)57Ė1:21:I1159:" ";::1:21::"THIS HAS TO BE A N U M B E R 0 TO 9.";::I12500:I:1:21:2800 " P10 T C$(N)"V"P11 P20 A$(N)"F"P2.5 H A$(N)"G"P217:"# S.T. L.C. DISTANCE":7:I729:"-";::"-"D I09:7_ I;4);A$(I);B(I);3);u C$(I)"I"ĺ" "; C$(I)"V"ĺ" "; C$(I)"II"ĺ" "; C$(I)"IV"ĺ" "; ( C$(I);6); 2 D(I)10ĺ" "; < D(I):I:211 "DESTINATION CH A$(I)"M"> B(I)(10Y):A$(I)"O"B(I)5Y(1):1000Y LZ.01C$(I)"I":2000u Z.02C$(I)"II":2000 Z.09C$(I)"III":2000 xZ.1C$(I)"IV":2000 C$(I)"V" D(I)(17W)4 I 49:"POSSIBLE DESTINATIONS":::6 ,:: UPDATED 7/13/83812000C2I09cX(1):Y(1):Z(1):W(1)~,X.05A$(I)"O":1000X.1A$(I)"B":1000X.2A$(I)"A":1000XX.3A$(I)"F":1000X.5A$(I)"G":1000 X.7A$(I)"K":1000       EC)";2);"#";5);"(TONS)";:1l 3:25,025,140:26,026,140125,140:179,0179,140:180,0180,140279,140 J014010:24,J:178,J:J:J010010:25J,141:179J,141:J"2,602,68:2,656,65:6,606,68:2,702,78:2,706,70:2,744,74:2,786,7 OR M, PLEASE.";:I12500::4000E(#K1(222):K2(218)256(219)W#K12549900#K$"THIS HAS TO BE A N U M B E R. AGAIN?":::K$:T$K211251125$K211511150%K211541150%K211901190A&::10:5::"SOMETHING STRANGE H6t11:L1$;::A7(A8(NIST));::22:L2$;:I:N21:1:I139:" ";::1::"TYPE A TO RUN AGAIN OR M FOR THE MENU: ";::A$:A$A$"A"100hA$"M"ĺ(4);"RUN MENU"WWWW1:WW3A$"M":4200"021:1:I139:" ";::1::"HIT AP NZEA4:A3:X(ZE),Y(ZE)X(ZE)O,Y(ZE):X1(ZE),Y1(ZE)X1(ZE)O,Y1(ZE):IOA6:I1IO:X2X(I1):Y2Y(I1):X3X1(I1):Y3Y1(I1):XX(I):YY(I):X1X1(I):Y1Y1(I)ZE:X2,Y2X2O,Y2:X3,Y3X3O,Y3:A3:X,YXO,Y:X1,Y1X1O,Y1B(U1)U2ĹU3,ZE:4000D: ";YR;" YRS, ";DA;" DAYS"F23:5:"S-M AXIS: ";AA" AU---ECC: ";E{24:1:"CLOSEST:";CL;" AU--FURTHEST:";FU;" AU"; A7.001:A81000P:A9.01:21:L1$"TIME: ":L2$" YEARS " P.1A7.01:A8100P P1A7.1:A810P& P10A71:A8)Y(ZE):X1(A6)X1(ZE):Y1(A6)Y1(ZE):-:4P(AA3(M1M2)):CLAA(1E):FUAA(1E):YR(P):DA(PYR)365.25:Q.01(100DA.01)>DAQ:AA.01(100AA.01):E.001(1000E.01)HCL.001(1000CL.01):FU.001(1000FU.01)22:6:"PERIOT:II1A5:T(I)T1170@(U1)U2ĹU3,ZE::(4);"RUN MENU"F(T(I)T)(T(I)T(IO)):I1I:A(IF)C3:CA(A):RO(OECA):RRSC:SA(A):R1RMRX(N)X0RCA:Y(N)Y0RSA:X1(N)X0R1CA:Y1(N)Y0R1SA:NNO:1172I%T:X(A6)X(ZE):Y(A6BE BETWEEN 1 AND 100. AGAIN?":::1158 MRM2M1::10:11::"(20 SECOND PAUSE)"::18:"TO STOP THE SIMULATION, PRESS 'RETURN'." X0140:Y080:3:A33:ST.01:A49:A560:A6100:X(100),Y(100),X1(100),Y1(100):U116384:U2127:U316368TZEOSN?":::1150g M2M1ė::"THE PRIMARY STAR MUST BE THE M O R E MASSIVE STAR. AGAIN?":::1150 :5:8:"SEMI-MAJOR AXIS (IN A.U.)":12:1:"TYPE A NUMBER BETWEEN 1 AND 100, THEN PRESS 'RETURN'): ";:"";AA:' AA1AA100ė::"THIS MUST ): ";:"";M1:W M1.1M110ė::"THIS MUST BE BETWEEN .1 AND 10. AGAIN?":::1150 "MASS OF THE SECONDARY STAR? (TYPE A NUMBER BETWEEN .1 AND 10, THEN PRESS 'RETURN'): ";:"";M2: M2.1M210ė::"THIS MUST BE BETWEEN .1 AND 10. AGAIE): ~5:14:"STAR MASSES":1:8:"(THESE ARE IN SOLAR MASSES. THE PRIMARY STAR IS THE MORE MASSIVE ONE, THE SEC- ONDARY STAR THE LESS MASSIVE ONE)":12:1 "MASS OF THE PRIMARY STAR? (TYPE A NUMBER BETWEEN .1 AND 10, THEN PRESS 'RETURN'::"(10 SECOND PAUSE)":, nPI3.141592654I pC11PI:C2C12:C3PI30p rE1((1E)(1E)):E2C2E(1EE) tHF.5:ZE0:Z129:O1 vIZEZ1:AIC3:T(I)C1(E1(AHF))E2(A)(OE(A)): xT(30).5 zI3160:T(I)OT(60I): |SC80(1C  UPDATED 7/15/83'9000-d5:e5:10:"ORBITAL ECCENTRICITY":12:1:"TYPE A NUMBER BETWEEN 0 AND .95, THEN PRESS 'RETURN': ";:"";E:jE0E.95ė::"THIS MUST BE BETWEEN 0 AND .95. AGAIN?":::1125 lT(60)::10:11      :4202 p:DT(DT$)48\ rAAJ(DT):A12E9Ģ24:1::"LIMIT IS 12 BILLION YEARS";:9000 |21:8:"AGE: ";:A1A:I1001:C%(I)A1J(I):A1A1C%(I)J(I):I::I1339:" ";:I:13: I1001:C%(I)04300 I J0I:B%(J)C%(IJ):J0F:II:M:M1:LT. d(4);"CLOSE SINGLEDATA"S J(0)1:I110:J(I)10J(I1):Ie hA$"M"4210 j(7);:(7);:23:10:"TIMESTEP--HIT 0-9: ";:DT$ l(DT$)48(DT$)57Ģ24:6::"HIT 0,1,2,3,4,5,6,7,8, OR 9.";::K12500::6:I130:" ";: UPDATED 2/11/83(95008 16304,0:nLI(18),TI(18),AI(18),L1(18),T1(18),A1(18),I1(18)(4);"OPEN SINGLEDATA"(4);"READ SINGLEDATA"(A$2DT<I018FLI(I):TI(I):AI(I):L1(I):T1(I):A1(I)PI ZI1:::"THIS HAS TO BE A N U M B E R. AGAIN?"::AK2170170QK2260260a K2290290q K2609609K2612612L:::10:5:"SOMETHING STRANGE HAS HAPPENED.":12:10:"RETURNING TO THE MENU."::(4);"RUN MENU" TATAPI180PI((4);"OPEN SSTEMP"A(4);"WRITE SSTEMP"OY:YR:FdI19:AN(I):IyI19:LP(I):IM:D:DT:Z$:T6:TA:DS(4);"CLOSE SSTEMP"(4);"RUN SSPT2"K1(222):K2(218)256(219)K125411001GLE? (TYPE A NUMBER BETWEEN 0 AND 90, THEN PRESS 'RETURN'): ";:"";T6:TAT6:TA0TA90ĺ::B5$:::609d:"DISTANCE FROM SUN IN A.U.? (TYPE A NUMBER BETWEEN 3 AND 500, THEN PRESS 'RETURN'): ";:"";DSfDS3DS500ĺ::B6$:::612h243D:600&M10DTDT273D:600A&M11DTDT304D:600\0M12DTDT334D:600hXDTDT1^:"TYPE E FOR ERASE OR N FOR NO ERASURE, THEN PRESS 'RETURN': ";:"";Z$`Z$"E"Z$"N"ĺ::"TYPE E OR N, PLEASE":::606la:"TILT AN(I100)I400(I400))DTDT1(I>M1DTDTD:600WM2DTDT31D:600pM3DTDT59D:600M4DTDT90D:600M5DTDT120D:600M6DTDT151D:600M7DTDT181D:600M8DTDT212D:600 M9DTDT4(Y4)(Y100(Y100)Y400(Y400)))ĺ::Y;A7$:::290o ^(M4M6M9M11)D31ĺ::A9$:::290 rDT(Y1970)365 |Y1970410 IY1970 I4(I4)I1800I1900DTDT1 I 450 I1970Y!I4(I4)(I100;M! M(M)ĺ::A3$:::260A M1M12ĺ::A3$:::260 ":"DAY OF THE MONTH? (TYPE DESIRED DAY, THEN PRESS 'RETURN'): ";:"";D ,D(D)ĺ::A4$:::290 6D1D31ĺ::A5$:::290 @M2D29ĺ::A6$:::290@ JM2D28(YTION OF GREGORIAN CALENDAR AT DIFFERENT DATES IN DIFFERENT COUNT- RIES MAY LEAD TO CONFUSION BEFORE 1753.":: F(1900Y)100:I19:AN(I)AN(I)FNC(I)3600:LP(I)LP(I)FPC(I)3600:I :"MONTH (TYPE A NUMBER 1-12, THEN PRESS 'RETURN'): ";:""RETURN'): ";:"";Y:YRYw Y(Y)ĺ::"THIS MUST BE A WHOLE NUMBER BETWEEN 1500 AND 2500. TRY AGAIN.":::170 Y1500Y2500ĺ::"ONLY YEARS BETWEEN 1500 AND 2500 A.D. ARE ALLOWED HERE. TRY AGAIN.":::170o Y1753ĺ::"WARNING: ADOPSSLABELS"# 4(4);"READ SSLABELS"T 6A1$:A2$:A3$:A4$:A5$:A6$:A7$:A8$:A9$p 8B1$:PI:B3$:B5$:B6$ :I1$:I2$:I3$:I4$:I5$:I6$ <(4);"CLOSE SSLABELS" d:A7$" "A7$ "YEAR? (TYPE A YEAR BETWEEN 1500 AND 2500, THEN PRESS '  UPDATED 7/22/83#1000Q::10:9::"SOLAR SYSTEM SIMULATION":i (4);"OPEN SSDATA" (4);"READ SSDATA"I19:A(I):E(I):I(I):AN(I):LP(I):H(I):L(I):NC(I):PC(I):P(I):MM(I):I((4);"CLOSE SSDATA" 2(4);"OPEN      ԊתժݎիժժժժժժժժժժժժժժժժԫժժūЪݮժծժժݪժՊԮ݂ժժժժժժժժժժժժժժժժժՋ׮ժժժժժժժժՀժժժժժժժժժժժժժժժժժժժժժժժժժԪժժժժժժժժժժժժժժժժתժժժժժժժժժժժժժժժժժժժժժժժՀԪݪժժժպժժժժժժժժժժժժժժժժժժժժժЊԾݪժ׏ԒժժժժժժժժժժժժժժժժժꗨПժժիժժժߪժԮׂժժժժժժժժժժժժժժժժժҒ׮ժժժժժժժժՂժժժժժժժժժժժժժժՂժժժժժժժժժժЪժժժժժժժժժժժժժժժժתժժժժתժժժժժժժժժժժժժժժժժժՂԪݪժժժʪժժժժժժժժժժժժժժժժժꌪժժժݪժŊբժժժժժժժժժժժժժժժժժժЎժժիժժժՊЪկժժԮׂժժժժԪժժՀԪժժժժժժժԪݪԪի׫ժժժժժժժժժժժժժժժժժժժժժժժժԪժժժժժժժժժժՊժժժժժժժժժժժժժժתժժժժժժժժժժժժժժժժժժժժըժժЪݪժժժժժժժժժժժժժՀժժժժժժժժժݪժׂժժժժժժժժժժժժժժժժժժժժՠ׎ԪժիժՊժժժЪժժժժժՊԪժժժժժժժժիݫժժժժժժժժժժժժժժժժժ ժժժժժժժժժժժժժժՃժժժժժՂתժժժժժժժժժժժժժժߪժժժժ          ICER.";WT13000::2000v24:1:J139:" ";:J:5::"STAGE #";I;" OUT OF FUEL. STAND BY.";::J11500:JX(1)X.05ė:24:1::"STAGE #";I1;" HAS FAILED TO IGNITE";::1X.051530&J1100:J10(J10)āK110:SO(15T1125ēT1,HHT11,HHE|SP0SP140T2179T2279ēT2,SPT21,SPY}V1.119E41650k~H0V01600}F(I)015001700IN151224:1:"FUEL USED UP ";T;" SEC AFTER LIFTOFF";:WT13000:24:1:"BLOWN UP BY RANGE SAFETY OFFHHV.5A:H01505&7B$" "cx23:3:B$;:3:T;:8:B$;" ";:8:(H100)10;:16:B$;y16:(V100)10;:24:B$;:24:I;:32:B$;:32:(F(I)100.5)10;:1zJ1600:J:HH140H1000:SP140V100:T125T:T2179T{HH0HH140T12:24:1;:32:(F(1)100.5)10;:1:WT12000:t*2500:T11E3:F1F(I)B(I):XS(16384):16368,0:XS1272000+F10M1MB(I):F(I)F1:FR1,F10M1MF(I):F(I)0:FR1F1B(I)-A9.812.5E3B(I)FR(.5(MM1)):VVA:MM1:H0V0V00154230,150230,158I'238,150234,150234,158238,158:234,154236,154(4,304,38:8,3012,3012,388,388,30:16,3020,3020,3816,3816,30:10,4210,50:14,4210,4614,50:16,5016,4218,4620,4220,500)22,4028,40:3:23:3:0;:8:0;:16:0;0:58,15058,158:64,15068,150:66,15066,158$64,15868,158:72,15872,15074,15476,15076,158:84,15080,15080,15884,158:80,15482,154&210,150214,150:212,150212,158:218,150222,150:220,150220,158:218,158222,158:226,158226,150228,171,32175,32158,40154,40154,44158,44158,48154,48:154,58154,50158,50158,54154,54:158,60154,60154,68158,68:154,64156,64:158,70154,70154,78158,78 154,74156,74:154,80154,88157,88158,87158,81157,80154,80.#56,15060,158:2,806,80:4,804,88:2,886,886,902,902,986,986,944,94:2,1002,108:2,1056,105:6,1006,108:2,1106,110:4,1104,118 176,28184,28:159,24155,24155,32159,32:155,28157,28:167,24163,24163,28167,28167,32163,32:175,24171,24 HAPPENED.":12:9:"RETURNING TO THE MENU."::(4);"RUN MENU"4ūūū͍   "RUN MENU"  UPDATED 1/22/83$99992@16304,0o(#24:1::"HIT A TO RUN AGAIN OR M FOR THE MENU:";:A$:#A$"A"ĺA$:(4);"RUN STELLAR EVOLUTION"#A$"M"ĺA$:(4);"RUN MENU"T$:24:1:(7);::"HIT A OR M, PLEASE";::9000 ':(4); MASS (EARTH UNITS): ";::MP:7H"ALBEDO: ";::AO:cR"DISTANCE FROM STAR (A.U.): ";::DP:\"LENGTH OF YEAR: ";:Y$"EARTH YEARS":YR.2YRYR365.256:Y$"EARTH DAYS"f:(10YR.5)10;" ";Y$:0p"GRAVITY (EARTH UNITS): ";:G1G:G21:I16LS(43.14159(DP1.49E11)25.67E8):TPTP.259:RS6.96E8DP1.49E11ė:10::2:"YOUR PLANET'S ORBIT IS I N S I D E "::10:"THE STAR! TRY AGAIN."::WW13000:::1004:17::"PLANET":::"RADIUS (EARTH UNITS): ";::RP:>"2:9:"RETURNING TO THE MENU."::A$"M":2200:N";::* KA(222):KB(218)256(219)Z K$"THIS HAS TO BE A N U M B E R. AGAIN?"l KA2543900 KB1000Ğ:K$::1000 KB1120Ğ:K$::I1II:1110H KB1212Ğ:K$::I1II:1210-<:::10:4:"SOMETHING STRANGE HAS HAPPENED.":13000::20002500:T%24:1f4:"TYPE A TO RUN AGAIN OR M FOR THE MENU:";:A$::A$"A"1A$"M"ĺ"M":(4);"RUN MENU"WWWW1:WW3A$"M":2200:" TYPE A OR M, PLEASE.";::2100 24:1::"PRESS 'RETURN' TO STOP SIMULATIO6336)(16336)(16336)(16336):K-J7150524:1:J139:" ";:J:10::"STAGING #";I;" SUCCESSFUL.";::W11000:W:1:II1:MM(I)M(I1)M(I2):1700@1504rt24:1::"ESCAPE SPEED REACHED. NICE GOING!!!";::1 |WT1 B E R. AGAIN?":::110cK1254K2120ĺ::"THIS HAS TO BE A N U M B E R. AGAIN?":::120l(7);::::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":580 A54ĺ::"THIS HAS TO BE A N U M B E R. AGAIN?":::900'(7);::::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":9200T OR M, PLEASE."::9000%(222)254ĺ::"THIS HAS TO BE A N U M B E R. AGAIN?":);::::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":9200TAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":9200TENU""$WWWW1:WW3A$"M":9200T$:"TYPE P, A, OR M, PLEASE."::90009%(222)222)254ĺ::"THIS HAS TO BE A N U M B E R. AGAIN?":::900R %(222)539000 '(7);::::10:4:"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU."::A$"M":9200T MENU."::A$"M":9200TM B E R. AGAIN?":::900b'(7XTW,Y0YX0XV3,Y0Y:V3:3900H tZE:X0XTW,Y0YX0XV3,Y0Y:V3P <: (#"TYPE A TO RUN AGAIN OR M FOR THE MENU:";:A$:A$ #A$"A"1 #A$"M"ĺ(4);"RUN MENU" "$WWWW1:WW3A$"M":9200 T$:"TYPE A OR M, PLEASE."::9000> %(25) NNV6(V265)Y RAV7:TH(RAO)(V8V4(V2V5)):C(TH):S(TH):W1B(ORV7) IONN:RN(O):DRNW5:RRR(O(O)SC):XRR(CDS):YRR(SDC) YYCISI(SGW1RN):SGSG:X0X,Y0YX0OX,Y0Y:X0X,Y0YX0OX,Y0Y! YZEĒZE:X0A1.5:BB1.5' T$"C"AATW:BBTW: ACIBBACI ` XZEA:X1V3X:X2V3X:YB(OXX(AA)):Y1V1Y:Y2V1Y:X1,Y1X1,Y2:X2,Y1X2,Y2: 3:V170:V2(T$):V33:V44:V88:V566:V66:HF.5:VX10:V7V1O:X0140:Y079:SGO:W55:SC102.5(V26PRESS 'RETURN'): ";:"";Iy I0I90ĺ::"THIS HAS TO BE BETWEEN 0 AND 90. TRY AGAIN, PLEASE.":::900 PI3.14159 CI(IPI180) SI(IPI180) : L3:V179:V22PI:V3140:O1:TW2 24 A26:B13 T$"A"Aп UPDATED 7/20/83 *95004d::j"TYPE OF SPIRAL? (TYPE A, B, OR C): ";:T$:T$:T$"A"T$"B"T$"C"Ğ:"THIS MUST BE A, B, OR C. TRY AGAIN.":::200$ "INCLINATION ANGLE? (TYPE A NUMBER BETWEEN 0 AND 90, THEN       L0:L10:V0:N1100:F1000 Q$"ACCELERATION OF RAMJET? (TYPE A NUMBER BETWEEN -3 AND +3, THEN PRESS 'RETURN'. POSITIVE NUMBERS PUSH THE SHIP AWAY FROM NEW AMERICA, NEGATIVE ONES PUSH THE SHIP BACK TOWARDS IT.): " 1:15:I139:"*";:::: A$(N)"K"P2.3) A$(N)"M"P2.14 BX(1)B tPP1P2X :5:"YOUR DESTINATION IS A STAR OF SPECTRAL TYPE ";::A$(N);B(N);::" AND LUMINOSITY CLASS ";::C$(N): "LOCATED ";::D(N);::" LIGHT-YEARS FROM NEW AMERICA." T0:T10:OICE? (TYPE A NUMBER 0 TO 9): ";:N$:N(N$) (N$)48(N$)57Ė1:21:I1159:" ";::1:21::"THIS HAS TO BE A N U M B E R 0 TO 9.";::I12500:I:1:21:2800 " P10 T C$(N)"V"P11 P20 A$(N)"F"P2.5 H A$(N)"G"P217:"# S.T. L.C. DISTANCE":7:I729:"-";::"-"D I09:7_ I;4);A$(I);B(I);3);u C$(I)"I"ĺ" "; C$(I)"V"ĺ" "; C$(I)"II"ĺ" "; C$(I)"IV"ĺ" "; ( C$(I);6); 2 D(I)10ĺ" "; < D(I):I:211 "DESTINATION CH A$(I)"M"> B(I)(10Y):A$(I)"O"B(I)5Y(1):1000Y LZ.01C$(I)"I":2000u Z.02C$(I)"II":2000 Z.09C$(I)"III":2000 xZ.1C$(I)"IV":2000 C$(I)"V" D(I)(17W)4 I 49:"POSSIBLE DESTINATIONS":::6 ,:: UPDATED 7/13/83812000C2I09cX(1):Y(1):Z(1):W(1)~,X.05A$(I)"O":1000X.1A$(I)"B":1000X.2A$(I)"A":1000XX.3A$(I)"F":1000X.5A$(I)"G":1000 X.7A$(I)"K":1000      !!!!!!!!!"""""NG TO THE MENU."::(4);"RUN MENU" DX:YYDY0:X,Y I:5(#:(4);"RUN HREND"'(222)254(218)256(219)3000ė:22::"TYPE A N U M B E R, WITHOUT COMMAS, THEN HIT 'RETURN'.";::K12000:K::3000#':::10:5:"SOMETHING STRANGE HAS HAPPENED.":12:10:"RETURNI (AAS)(AGAS)F5350# 5900 J1J1:G1(AGA)(AGA(I1,J1)):L1G1L(I1,J1)(1G1)L(I1,J):T1G1T(I1,J1)(1G1)T(I1,J) DL20L10F1 vLL1F(1F)L2:TT1F(1F)T2:X279(T3)120:Y128(L4)14DX2(5(1)):DY2(5(1)):XXD5250* \TE1:AG1E15TE1:ASA(II,J1) J1J1:G2(AGA)(AGA(II,J1)):L2G2L(II,J1)(1G2)L(II,J):T2G2T(II,J1)(1G2)T(II,J) J118 AGA(I1,J):(AGA)5310 J M2.255350 TE15350 AG1E155900 A5.91E85900:F(M(J)M)(M(J)M(J1)):I1II12 M2.255200O A1.29E10M(3.8)5200 BA(1.2.4(1)):L(M(1.58E7B)1.4)LT:T(1.2E7(M10MB1.4).25)LT:X279(T3)120:Y128(L4)14:5800 PJ118 TAGA(II,J):(AGA)5210 UJ ZM2.25A:I1001:C(I)(A1J(I)):A1A1C(I)J(I):IM I1001:C(I)04300T In J0I:B(J)C(IJ):J J0I:B(J);:(IJ)3((IJ)3)IJĺ","; J:" YEARS";:LT(10) I1ZZ:M.514.5(6(1)):J09:M(J)M5002 J! IIJ YEARS (NO COMMAS), THEN HIT 'RETURN': ";:"";Al  A0Ģ24:15::"BE SERIOUS.";::K12000:::3000z ZZ100:0 rA12E9Ģ24:1::"SORRY, 12 BILLION YEARS IS THE LIMIT.";::9000 wJ(0)1:I110:J(I)10J(I1):I0 |:23:8:"AGE: ";:A1%% UPDATED 2/11/83 0 9999M(9),T(9,18),L(9,18),A(9,18)::16304,0:D$(4):D$;"OPEN EVOLDATA":D$;"READ EVOLDATA":I09:M(I):IpI09:J018:L(I,J):T(I,J):A(I,J):J:I:D$;"CLOSE EVOLDATA"3 22:"TYPE AGE IN   CH WAS YOUR INTENDED DESTINATION.":<'P1010020':"UNFORTUNATELY, YOU HEADED FOR A STAR THAT IS IN A POST-MAIN SEQUENCE EVOLU- TIONARY PHASE. ALL OF ITS INHABITABLE PLANETS HAVE DOUBTLESS BEEN ROASTED."*':12:"YOUR CREW IS GOINEW DECIDES TO SEE IF YOU CAN":12:8:"LEARN TO BREATHE VACUUM.":11000(#:8:4:"YOUR LAST CREWMEMBER HAS STARVED":10:15:"TO DEATH.":14:4:"ENJOY YOUR DINNER THIS EVENING.":11000+'::" YOU HAVE SUCCESSFULLY ARRIVED AT THE STAR WHI FOR TELESCOPIC EVALUATION":7 WW15000:WW:10000@:8:3:"YOUR LAST CREWMEMBER HAS DIED AS A":10:6:"RESULT OF OVERACCELERATION.":14:7:"HAVE A NICE DAY, BUTCHER.":11000G4!:8:2:"YOU ARE NOW HOPELESSLY LOST IN SPACE.":10:2:"YOUR CRLTIES: ";::Q2;::18:"SURVIVING CREW: ";::N1:CQ206700SN108000c,N109000"ENOUGH FOOD FOR ";::(2FN1)2;::" MORE YEARS."X(D(N)L1).14100(V).01410016:10::"DESTINATION REACHED":19:3:"STAND BY:F(D(N)L1);::" LIGHT-YEARS":`jD(N)L10Ğ:" SHIP HAS PASSED DESTINATION STAR."::t(V)1E3V0"SPEED RELATIVE TO STAR: ";::G(V);::" LIGHT":dQ2(((A)D1)1)(2(1))N1N1Q2:FF.5N1F090003"CASUADEPARTURE: ";" ON THE SHIP: ";::F(T);::" YEARS"mD" AT THE STAR: ";::F(T1);::" YEARS":pQ1(D(N)L1)Q3"DISTANCE BETWEEN SHIP AND STAR: "" SEEN FROM SHIP: ";::F(Q1);::" LIGHT-YEARS""" SEEN FROM STAR: ";:(Q1Q2)21)A)Q36PTTD1:T1T1D2:LLD3:L1L1D4HL1L1VD1Q3`"F(W).01(100W)z,G(W).001(1000W)JQ5(Q1Q2)(Q1Q2)TV(VQ5)(1VQ5)^(V).999999999(D(N)L1)9999.998500h:Q3(1VV) |"ELAPSED TIME SINCE :"WARNING: THE SURGEON GENERAL HAS DETERMINED THAT PROLONGED ACCELERATION IN EXCESS OF 1 GEE IS DANGEROUS TO YOUR HEALTH."::I13000:D1.5Q1(AD1):Q2(AD1)Q3(1VV)$D2(Q1Q2)(2AQ3)D3(((Q1Q2)2))AD4((Q$;:"";Aw(A)3Ģ21:28:I1125:" ";::1:23::"ACCELERATION MUST BE BETWEEN -3 AND +3. TRY AGAIN.";::41000A0Ģ21:6:I1150:" ";::1:23::"ACCELERATION CAN'T BE 0. TRY SOMETHING SMALL, LIKE .01.";::4100(A)14800::1::"THIS HAS TO BE A N U M B E R. AGAIN?"::I12500::4000 &:::10:5:"SOMETHING STRANGE HAS HAPPENED.":12:10:"RETURNING TO THE MENU."::(4);"RUN MENU" =J)T(I1,J):A1(J)A(I1,J):J7 h(4);"OPEN SINGLEDATA"T r(4);"WRITE SINGLEDATA"` |A$:DT I018:LI(I):TI(I):AI(I):L1(I):T1(I):A1(I):I I1:F:II:M:M1:LT (4);"CLOSE SINGLEDATA" (4);"RUN SINGLEPT2"C (#(222)254ė:23J:F((M(J)M)(M(J)M(J1)))l @L1FL(II1,0)(1F)L(II,0):T1FT(II1,0)(1F)T(II,0):X279(T13)120 JY128(L14)14:X,Y TLI(18),TI(18),AI(18),L1(18),T1(18),A1(18):I1II1:J018:LI(J)L(II,J):TI(J)T(II,J):AI(J)A(II,J):L1(J)L(I1,J):T1(K12000:::3100# 0 DT(ST$)48 :22:"MASS OF STAR? (TYPE A NUMBER BETWEEN .5 AND 15, THEN HIT 'RETURN'): ";:"";M1:M1.5M115ğ::23:"THIS MUST BE BETWEEN .5 AND 15."::I12500::4000 LT(10)::MM1:J09:M(J)M4120 J IIA) TIME STEP: ";:A$::A$"M"Ģ21:40009 A$"A"3100s 24:1::"HIT M OR A.";::(7);:K12000:::3000  22:"TIME STEPS (3 FOR 1000 YRS, 7 FOR 10,000,000 YRS, ETC.): ";:ST$ & (ST$)48(ST$)57Ģ24:1::"HIT A NUMBER 0-9.";::  UPDATED 1/8/83+9000M(9),T(9,18),L(9,18),A(9,18)::16304,0:D$(4):D$;"OPEN EVOLDATA":D$;"READ EVOLDATA":I09:M(I):IpI09:J018:L(I,J):T(I,J):A(I,J):J:I:D$;"CLOSE EVOLDATA"( :22:"MANUAL (M) OR AUTO (!! ! ! ! ! ;::I12500:I:1:I139:" ";:I:4100d2::10:4::"SOMETHING STRANGE HAS HAPPENED.":12:9:"RETURNING TO THE MENU.":::(4);"RUN MENU" LMENU:";::A$\+A$"A"1=+A$"M"ĺ"M":(4);"RUN MENU"$,24:1::"TYPE A OR M, PLEASE. ";::I12500::11000.KA(222):KB(218)256(219)D/KA25412900*/KB4100Ģ24:1::"THIS HAS TO BE A N U M B E R. AGAIN?"N"u'"THE EYEPIECE OF YOUR TELESCOPE.":"":"NOW, SO LONG AS THIS IS NOT THE HOME PLANET OF THE ALIENS, EVERYTHING WILL BE COOL."v'"":"KEEP YOUR FINGERS CROSSED, EARTHPERSON." *24:1:I139:" ";::1::"TYPE A TO RUN AGAIN OR M FOR THE AL.":11000!.'X(1):XP10100B'"":"YOU DID YOUR BEST, BUT THERE ARE NO":"HABITABLE PLANETS IN THIS SYSTEM.":"C'EST LA VIE!":11000t':6:11::"YOU'VE DONE IT!!!":::::"A LOVELY BLUE GLOBE SPECKLED WITH":"WHITE CLOUDS SWIMS INVITINGLY IG TO BE VERY, VERY DISPLEASED.":11000;$'P2010030 &':"ALAS, STARS OF SPECTRAL TYPES O, B, AND A DON'T LAST LONG ENOUGH ON THE MAIN SEQUENCE FOR THEIR PLANETS TO PRODUCE LIVEABLE ECOSYSTEMS."::"YOUR CREW BROILS YOU FOR THEIR FINAL MET1FI(OFI)T2:X279(TTH)120:Y128(L4)14dTH:XI,YI:XIX:YIY:ZE:XI,YI:X(I)XI:Y(I)YIk Iup4200(#::(4);"RUN HREND" 5350TEO5350.AG1E15A5.91E85330J(AAS)(AGAS)FI5350sQ%(I)O:TH:XI,YI:ZE:(7);:5900J1JO:G1(AGA)(AGA(I1,J1)):L1G1L(I1,J1)(OG1)L(I1,J):T1G1T(I1,J1)(OG1)T(I1,J)DL2ZEL1ZEFIO0vLL1FI(OFI)L2:TPJO18:AGA(II,J):(AGA)5210)UJ?ZM1(I)2.255250d\TEO:AG1E15TEO:ASA(II,JO)J1JO:G2(AGA)(AGA(II,J1)):L2G2L(II,J1)(OG2)L(II,J):T2G2T(II,J1)(OG2)T(II,J)JO18:AGA(I1,J):(AGA)5310JM1(I)2.25T(TN)P IOZZ:FIF(I):III(I):I1IIO:QIQ%(I):XIX(I):YIY(I):QIZE5900| M1(I)2.25A1.29E10M1(I)(3.8)5200 BA(1.2.4(O)):L(M1(I)(1.58E7B)1.4)LT:T(1.2E7(M1(I)TNM1(I)B1.4).25)LT:X279(TTH)120:Y128(L4)14:5800"E9Ģ24:O::"LIMIT IS 12 BILLION YEARS";:9000y |21:8:"AGE: ";:A1A:ITNZEO:C%(I)(A1J(I)):A1A1C%(I)J(I): ITNZEO:C%(I)ZE4300 I JZEI:B(J)C%(IJ):J:JZEI:B(J);:(IJ)TH((IJ)TH)IJĺ","; J:" YEARS";:L)Y:X,Y:I:J(ZE)O:IOTN:J(I)J(IO)TN:D hA$"M"DT7:4210z j(7);:(7);:23:O:"TIMESTEP--HIT 0-9: ";:DT$ l(DT$)48(DT$)57Ģ24:O::"HIT 0,1,2,3,4,5,6,7,8, OR 9.";::KO2000:::4202 p:DT(DT$)48/ rDTJ(DT):AADT:A12H2.5(I7)(ZZ7):> IOZZ:MM1(I):JZE9:M(J)M4120E Jq I(I)J:F(I)((M(J)M)(M(J)M(JO))):I @IOZZ:L1F(I)L(I(I)O,ZE)(OF(I))L(I(I),ZE):T1F(I)T(I(I)O,ZE)(OF(I))T(I(I),ZE):X279(T1TH)120, JY128(L14)14:X(I)X:Y(IN :22:"MANUAL (M) OR AUTO (A) TIMESTEP: ";:A$::A$"M"A$"A"Ģ21:4000~  24::"HIT M OR A.";::K12000:::3000 M1(18),I(18),F(18),X(18),Y(18),Q%(18):ZZ18:ZE:M1(O)15:M1(TW)12:M1(TH)9:M1(4)7:M1(5)5:M1(6)4:M1(7)TH:I8ZZ:M1(I)T# UPDATED 2/11/83.9000M(9),T(9,18),L(9,18),A(9,18)::16304,0:D$(4):D$;"OPEN EVOLDATA":D$;"READ EVOLDATA":I09:M(I):IpI09:J018:L(I,J):T(I,J):A(I,J):J:I:D$;"CLOSE EVOLDATA"ZE0:O1:TW2:TH3:TN10"" " " " " """