' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `  `>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(l ` Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠ z#  u`0 fFLAG0:WEEKWEEK1:DAYDAY1:DAYLAST910^ pDAYDAYLAST:M0NTHM0NTH1:M0NTH122890 zQUARTERQUARTER1:QUARTER3910 QUARTER0:1670 WEEK5950 :LAST28:M0NTH4M0NTH6M0NTH9M0NTH11LAST30(!M0NTH1M0NTH3M0NTH5M1910KEY194KEY211780/KEY19723608700B 1970UKEY194İ2070h KEY211İ2210r*1910{4750> *** DATE FIGURES *** HMARKETMARKET((1)3)1:MARKET2MARKET2RMARKET3MARKET3 \(1).92MARKET1MARKET):"PRESS ANY KEY TO BEGIN...":2620=DISK$;"NOMON I,O,C":::(7):"DO YOU WANT TO START A NEW":"GAME OR CONTINUE AN OLD ONE? ""(C OR N) >>> ":2620KEY1952560: *** MAIN PROGRAM *** 83013001750S ANY KEY TO CONTINUE...":26203b(6):(1):958l:"(4) DUE TO THE WAY APPLESOFT STORES":" VARIABLES, ANY MODIFICATION OF THE"v" PROGRAM MAY RESULT IN IT NOT":" WORKING CORRECTLY WITH PREVIOUSLY":" SAVED VARIABLE DATA."$(18ES ARE":" DEFINED AT THE START OF THE PROGRAM."xD"(2) THE BINARY FILE NAME IS:":10);"MARKET.CRASH.DATA.BASE":N"(3) THE PROGRAM WAS WRITTEN WITH THE":" APPLESOFT ROM CARD, AND MIGHT":" NOT WORK WITH THE RAM VERSION."X(23):"PRESTTY MUCH YOUR GUESS...":(23):"PRESS ANY KEY TO CONTINUE...":26200(4):958:(5):"DISK NOTES:"::"(1) OPTION (E) SAVES THE GAME VARIABLE":" AND ARRAY TABLES IN A BINARY FILE,"3:" BUT DOESN'T SAVE THE STRING":" VARIABLES. ALL VARIABLE OF THIS GAME."K(23):"PRESS ANY KEY TO CONTINUE...":2620:(6):958:"(5) GENERALLY, THE STOCK MARKET WILL":" FOLLOW A GRADUAL UP/DOWN CYCLE, AS":" WILL EACH INDIVIDUAL STOCK."C&" WHICH WAY THE STOCK VALUE WILL GO":" IS PRET"t" AT +2 AND -2. THE MARKET WILL":" ALSO CHANGE BETWEEN +1/-1 DAILY,":" WITH LIMITS OF +2 AND -3."" THERE IS, OF COURSE, THE CHANCE OF":" A DRASTIC CHANGE IN THE VALUE OF":" THE STOCK, WHICH IS REFLECTED IN":" THE NAM(6):958::"(4) THE CHANGE IN VALUE OF A PARTICULAR":" STOCK IS DETERMINED BY ADDING THE":" CHANGE IN THE STOCK VALUE AND THE"" CHANGE IN THE TREND OF THE MARKET.":" THE STOCK CHANGE WILL BE BETWEEN":" +1/-1 DAILY, WITH LIMITS SERNING!!!"::" IF YOU ARE USING DOS VERSION 3.1,"" ";::"DO NOT";::" TYPE 'INT' FOR THE STOCK":" NAME!!! THIS WILL PUT YOU IN":" INTEGER BASIC, AND DESTROY YOUR":" PROGRAM!!!"(23):"PRESS ANY KEY TO CONTINUE...":2620HE COMPLETE INSTRUCTIONSOR THE INPUT-OUTPUT STATEMENTS?"W"1=COMPLETE INSTRUCTIONS"x"2=INPUT-OUTPUT STATEMENTS""3=NEITHER"936B1Q$"NO"B11205Q$"YES"B12190B131901165Z1100 B#G"MISSION ABENDED")LXQ"DO YOU WANT TO TRY IT AGAIN (YES/NO) ?"`VZ$q[Z$"YES"20`Z$"NO"1130e1105jo"TOO BAD, THE SPACE PROGRAM HATES TO LOSEEXPERIENCED ASTRONAUTS.y1215~8"OK,DO YOU WANT TEEP." X1(D1D1H1H1)G3Q"AT CONTACT YOU WERE TRAVELING ";X1;N$;"/HR."[1100a"YOU HAVE BEEN LOST IN SPACE WITH NO HOPEOF RECOVERY."$1100)"YOU ARE DOWN SAFELY -"38"BUT MISSED THE LANDING SITE BY ";(DG5);N$="TRANQUILITY BASE HERE--THE EAGLE HAS LANDED"j"CONGRATULATIONS--THERE WAS NO SPACE- CRAFT DAMAGE""YOU MAY NOW PROCEED WITH SURFACE EXPLORATION."1100"CRASH!!!!!!!!!!!!!!""YOUR IMPACT CREATED A CRATER ";(H);M$;" D." 575Y"IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE FOR AN E.V.A."b575h"IMPOSSIBLE THRUST VALUE ";F0985F.05.05975"TOO LARGE"575"TOO SMALL"575"NEGATIVE"57507361050WM10580 \T120(aF00fP09k620SpR18.21957E041020ru(RA1)4.931742E041020zH03.287828E041020(D)10Z1065995"THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-";"TIME CONTINUUM=0:1590:(20):958:(21):"(B) - BUY";20);"(S) - SELL"0"(E) - STOP";20);"(RETURN) - PASS":(24):"WHICH FUNCTION DO YOU WANT? ";:26200KEY194KEY211KEY197KEY141ı0(24):(1):868:12);"WHAT ???";:B1TIME:B:193051*/0CHANGE((AVERAGE100)(WAS100))100>/:CHANGE01870W/D"(NO CHANGE)":1900j/NCHANGE01890/X"(DOWN ";(CHANGE);")":1900/b"(UP ";(CHANGE);")"/l/v *** DATA INPUT *** 0*********************** *** OPTION INPUT *** G";27);"OWNED";33);"WORTH"3.A140:"=";:A:].A1ST0CKS:(A4):868:(A4):1690.AVERAGEAVERAGETABLE(A,1):A.(17):A140:"=";:A:.AVERAGE((AVERAGEST0CKS)100)100/&(1):(18):868:" AVERAGE: $";AVERAGE;"/SHARE";28);4):NAME$(A);18);TABLE(A,1);23);CHANGE$;27);TABLE(A,3);33);TABLE(A,4);40);::1740-(A4):"*** ";NAME$(A);" IS BANKRUPT...";40)-(1):- *** PRINTOUT ALL *** -WASAVERAGE:AVERAGE0:(1).:(3):"STOCK NAME";17);"CLOSE";23);"CH$(M0NTH);" ";DAY;", ";YEAR;41)?,|1220:40):(1):LTH(0):], *** DIVIDENDS PAID *** {,CASHCASH(ASSETS.08):, *** STOCK PRINTOUT *** ,(1):CHANGE$(TABLE(A,2)):TABLE(A,1)01730,TABLE(A,2)0CHANGE$"+"(TABLE(A,2))X-(AB1ST0CKS:TABLE(B,4)(TABLE(B,1)TABLE(B,3)):ASSETSASSETSTABLE(B,4):B+J:(1):(19):868:(19):3);"CASH: $";CASH;23);"ASSETS: $";ASSETS;40)+T(1):(20)::+^ *** DATE PRINTOUT *** +h(1):(1),r3);"DATE: ";DAY$(WEEK);", ";M0NTH)BEGINC)FEES::CASHCASHFEES:CASH01570*:"YOU HAVE UNTIL MONDAY TO BREAK":"EVEN, OR ELSE!!! (CASH: $";CASH;")"*"BEGINCCASHINCOME:FEES0*,(23):"PRESS ANY KEY TO CONTINUE...":2620:*6 *** ASSET PRINTOUT *** I+@ASSETS0::`)5);"TOTAL ASSETS + CASH":5);"AT BEGINNING OF WEEK:";27);"$";BEGINC:27);"---------")5);"GROSS WEEK'S INCOME:";27);"$";(CASHINCOME)BEGINC:5);"LESS BROKER'S FEES:";27);"$";FEES-*::5);"NET WEEK'S INCOME:";27);"$";((CASHINCOMEOME0::A1ST0CKS=(INCOMEINCOME(TABLE(A,1)TABLE(A,3))q(A::(2):3);"TOTAL INCOME FOR THE WEEK: ":(5);"CASH AT WEEKEND:";27);"$";CASH:5);"CURRENT PAPER WORTH:";27);"$";INCOME)27);"---------":5);"TOTAL:";27);"$";CASHINCOME:1220:)'B15:TABLE(A,B)0:B:1400F' *** FIRST OF WEEK *** g'WEEK1(WEEK2(A$)1)ı'BEGINC0:ASSETS0:B1ST0CKS:TABLE(B,1)01460'ASSETSASSETSTABLE(B,4)'B:BEGINCCASHASSETS:1220:' *** WEEKEND DATA *** (INC2 &F1370.&PCHANGETABLE(A,5)((1)5)2M&Z(1).90CHANGE1CHANGE&dTABLE(A,5)CHANGE:CHANGECHANGEMARKET:TABLE(A,1)TABLE(A,1)CHANGE:TABLE(A,1)01410&nTABLE(A,2)CHANGE:TABLE(A,4)TABLE(A,3)TABLE(A,1)'xASSETSASSETSTABLE(A,4):A0CKS:TABLE(B,1)0FLAGB-%B:FLAG02850P%FLAG0:CASH0ASSETS02780V% t% *** MARKET FIGURES *** %ASSETS0:A1ST0CKS:TABLE(A,1)01400%(CHANGETABLE(A,5)((1)3)1:(1).851360%2CHANGE2CHANGE2&<CHANGE2CHANGEЦ1420:FLAG0ı_$:(3):15);"WEEKEND":::9);"STOCK MARKET CLOSED...":A1(2TIME):A~$::1470:DAYDAY1::870$ *** PLAYER STATUS *** $CASH0WEEK11260$(A$)1WEEK2CASH01260$CASH0WEEK12720%FLAG0:B1STA$"LABOR DAY":11600#`A$"COLUMBUS DAY":1160L#jA$"VETERANS DAY":1160l#tA$"THANKSGIVING DAY":1160#~A$"CHRISTMAS"#:(1):(2):958:(5)::10);A$;40):A1TIME:A#::::9);"STOCK MARKET CLOSED...":A1(2TIME):A:#870$"M0NTH11DAY12ī11305"M0NTH11DAY22ī1140P"M0NTH12DAY25ī1150Z"1190x"$A$"NEW YEAR'S DAY":1160".A$"LINCOLN'S BIRTHDAY":1160"8A$"WASHINGTON'S BIRTHDAY":1160"BA$"MEMORIAL DAY":1160"LA$"INDEPENDENCE DAY":1160#V0NTH7M0NTH8M0NTH10M0NTH12LAST31F!FLAG1:WEEK0:A$"":1200e!1630:M0NTH1DAY1ī1060!M0NTH2DAY12ī1070!M0NTH2DAY19ī1080!M0NTH5DAY28ī1090!M0NTH7DAY4ī1100!M0NTH9DAY3ī1110!M0NTH10DAY8ī1120@T *** YEAR END *** P@^ 1670:::(1)::"";15);"YEAR END";40):::}@h ASSETS0:A1ST0CKS:TABLE(A,1)02940@r ASSETSASSETS(TABLE(A,1)TABLE(A,3))@| AA 7);"TOTAL CASH:";27);"$";CASH:7);"ASSETS PAPER VALUE:";27);"$";ASSETS:DLESS TO SAY, YOU ARE BANKRUPT!!!"(? E?" *** MARKET CRASH! *** ?, (2):958:(3):"THE STOCK MARKET HAS CRASHED!!!":"ALL THE COMPANIES ARE NOW BANKRUPT!!!":?6 CASH10002890?@ " YOU LOST YOUR SHORTS!!!"?J A1(3TIME):A:::2440 YOU FOR YOUR BROKER,":"YOUR KID HAS STOLEN YOUR CAR, YOUR":"OTHER KID SET FIRE TO YOUR HOUSE, YOUR"> "PEERS HAVE SIGNED A PETITION TO HAVE":"YOU COMMITTED TO AN ASYLUM, AND YOUR""? "BANK HAS FORECLOSED ON EVERYTHING YOU":"HAVE LEFT!!!"::" NEELAYER BROKE! *** y= (2):958:(5):" DUE TO EXTREME INCOMPETENCY AND":"YOUR NATURALLY LOW I.Q., NOT TO MENTION"= "AN INCREDIBLE AMOUNT OF BUNGLING,":"YOU HAVE MANAGED TO BLOW $10,000!!!":f> " BECAUSE OF THIS ACTION, YOUR WIFE":"HAS LEFT(3TIME):A:" THE COURTS RULE IN THE BROKER'S FAVOR."< "DUE TO BEING ASSESSED COURT":"COSTS, ATTORNEY'S FEES, DAMAGES,":"COMPENSATORY DAMAGES, AMOUNTS PRESENTLY"< "DUE THE BROKER, ETC., ETC., AD NAUSEUM,":"YOU ARE BANKRUPT!!!"< = *** P* E = 197 #; *** RETURN = 141;; *** GAME END *** Y; *** BROKER ACTION! *** ; (2):958:(5):" YOUR BROKER HAS TAKEN LEGAL ACTION":"AGAINST YOUR PERSONAL ASSETS, DUE TO"6< "YOUR DEFAULTING ON YOUR CONTRACT":"WITH HIM.":::A1OAD MARKET CRASH.X,V0"6: 105,A:106,B:107,C:108,DV:( 109,E:110,F:111,G:112,Hi:2 ::1630:730:< *** KEYBOARD INPUT *** :F 16368,0:P KEY(16384):KEY1272660:Z 2640:d 16368,0::n *** B = 194 :x *** S = 211 ; **B256);",L";((EF256)(AB256));",V0"y9 ::(7):"DO YOU WANT TO CONTINUE YOUR":"GAME OR END NOW? (C OR E) ":26209 KEY19724409 :1630:7309 *** DATA READ *** 9 (15):"INSERT PROPER DISK AND PRESS 'RETURN'...":2620: DISK$;"BL* <8 15:"INSERT PROPER DISK AND PRESS 'RETURN'...":2620G8 A(0)o8 A(105):B(106):C(107):D(108)8 E(109):F(110):G(111):H(112)8 *** ABOVE LINES SET MEM POINTERS INTO VARIABLES ***'9 DISK$;"BSAVE MARKET.CRASH.DATA.BASE,A";(A"J7V :(5):"DO YOU WANT TO LOAD FROM THE":"DISK, SAVE TO THE DISK, OR"t7` "END? ((S), (L), OR (E)) >>> ":26207j KEY21124607t KEY20425607~ KEY19723907 ::(1)::"";15);"GAME END";40):::7 29208 *** DATA WRITE **6 FEESFEESBROKER:2330,6 FEESFEES5086 1690:|6$ "??? YOU DON'T HAVE THAT MANY!!!":B1(1.5TIME):B:22306. "SAY WHAT ??? TRY THAT AGAIN!!!":B1(1.5TIME):B:223068 *** VARIABLE SAVE *** 6B ::7L DISK$;"NOMON I,O,C"HOW MANY SHARES DO YOU":"WANT TO SELL? ";SELL:SELL02330Y5SELLTABLE(A,3)2340j5SELL023505TABLE(A,3)TABLE(A,3)SELL:TABLE(A,4)TABLE(A,3)TABLE(A,1)5CASHCASHTABLE(A,1)SELL5BROKER((TABLE(A,1)SELL).06)6BROKER502320S50!4zCASHCASHSHARES:1690:]4:"NOT ENOUGH MONEY!!!";:B1(1.5TIME):B:20904"SAY WHAT ??? TRY THAT AGAIN!!!":B1(1.5TIME):B:209041690:4 *** SELL STOCK *** 4AFLAG:A0ı4:1690::(20)::958:(21)?5 SHARES DO YOU":"WANT TO BUY? ";BUY:BUY02200@3>BUY02190n3HSHARESTABLE(A,1)BUY:CASHSHARES021803RTABLE(A,4)TABLE(A,4)SHARES:TABLE(A,3)TABLE(A,3)BUY:16903\BROKER(SHARES.06):BROKER5021603fFEESFEESBROKER:21704pFEESFEE"THERE IS NO STOCK BY THAT NAME!!!":B1(1.5TIME):B:2:"";NAME$(FLAG);" IS BANKRUPT!!!":B1(2TIME):B:FLAG0:2TABLE(FLAG,1)020402 2 *** BUY STOCK *** 2 AFLAG:FLAG0ı2*:1690::(20)::958:(21)034"HOW MANY *********************** *** STOCK INPUT *** h1(20)::958:(21):"INPUT STOCK NAME: ";IN$1FLAG0:CHECK$(IN$,3):A1ST0CKS1CHECK$(NAME$(A),3)FLAGA1A:FLAG020501(21)::958:(22):IN$;" ???":B1TIME:B821890C#KK(K4(K4.03)):K(K):PP(K4K3):CCK4:X1X1K4:1380Y#(A$,1)"L"2020c#2150i##"HOW MUCH LUBRICANTS TO REFINE ";L4#L4(L4)#L401380# L4C2070#2080 $"YOU ONLY HAVE ";(100C.5)100" GALLONS OF CRUDEL":1890"K4125000R1950("1960d""THAT IS TOO MUCH CRUDE OIL FOR YOUR REFINERIES":1890v"K4K3P1970"1980""YOU DON'T HAVE ENOUGH MONEY":1890"(X1K4)125000R1990"2000#"YOU CAN REFINE ";(R125000)X1;" GALLONS":750B!DOO(O4(O4.03)):O(O):PP(O4O3):CCO4:X1X1O4:1380X!N(A$,1)"K"1880b!S2010h!X!b"HOW MUCH KEROSENE TO REFINE ";K4!lK4(K4)!vK401380!K4C1930!1940""YOU ONLY HAVE ";(100C.5)100" GALLONS OF CRUDE OI:1750 O4125000R1810& 1820c "THAT IS TOO MUCH CRUDE OIL FOR YOUR REFINERIES ":1750u O4O3P1830 !1840 &"YOU DON'T HAVE ENOUGH MONEY":1750 0(X1O4)125000R1850 51860!:"YOU CAN REFINE ";(R125000)X1;" GALLONS":1FF(F4(F4.03)):F(F):PP(F4F3):CCF4:X1X1F4:1380Q(A$,1)"O"1740[1870a"HOW MUCH OIL PRODUCTS TO REFINE ";O4O4(O4)O401380O4C17901800 "YOU ONLY HAVE ";(100C.5)100;" GALLONS OF CRUDE OIL"125000R16701680D"THAT IS TOO MUCH CRUDE OIL FOR YOUR "]"REFINERIES ":1610oF4F3P1690y1700"YOU DON'T HAVE ENOUGH MONEY ":1610(X1F4)125000R17101720"YOU CAN REFINE ";(R125000)X1;" GALS ":1610;(G4.03)):G(G):PP(G4G3):CCG4:X1X1G4:1380I6(A$,1)"F"1600S;1730Y@J"HOW MUCH FUEL OIL TO REFINE ";F4TF4(F4)^F401380hF4C1650m1660r"YOU ONLY HAVE ";(100C.5)100;" GALS OF CRUDE "w1610|F4R153015407"THAT IS TOO MUCH CRUDE OIL FOR "U"YOUR REFINERIES ":1470gG4G3P1550q 1560"YOU DON'T HAVE ENOUGH MONEY ":1470(X1G4)125000R15701580""YOU CAN REFINE ";(R125000)X1;" GALS ":14703,GG(G4H TO REFINE (E TO EXIT)";A$3:(A$,1)"E"2270I(A$,1)"G"1460S1590Y"HOW MUCH GASOLINE TO REFINE ";G4G4(G4)G4C15101520"YOU ONLY HAVE ";(100C.5)100;"GALLONS OF CRUDE OIL ":1470G41250005);DR(O3)D"KEROSENE ";15);DR(K3):"LUBRICANTS ";15);DR(L3)(16):" ":(16):"ASSETS ";DR(P)(18):" ":(18):"CRUDE OIL ";DR(C)R31440,2180,2240,227034,20::(21):"WHAT DO YOU WISCAPACITY FOR YEAR.$2G3.5(1).57<F3.3(1).45IFO3.1(1).6[PL3.3(1).7mZK3.1(1).6sd|x(2)::"YOUR COST TO REFINE CRUDE OIL/GAL.":"GASOLINE ";15);DR(G3)"FUEL OIL ";15);DR(F3) "OIL PRODUCTS ";1ES TO BUILD ";R2)R20R2(R2)126031280u"YOU HAVE TO BUY EITHER 0 OR ANY WHOLE NUMBER OF REFINERIES"1240R2R1P12901310 "YOU ONLY HAVE ";DR(P);" DOLLARS"1240PP(R2R1):RRR2:2720(X10: INITALIZE t560~2720:R1(5000030000)(1)30000n"THE PRICE OF A REFINERY IS ";(100R1.5)100"DO YOU WANT TO BUILD A REFINERY ";R$(R$,1)"Y"1240(R$,1)"N"320"I NEED (YES OR NO)"1190"HOW MANY REFINERI050$C "A ";PERCENT;"% INCREASE ";;C "IN CASH, WITH A"pC PERCENT((((ASSETSCASH)10000)10000)1000)10C PERCENT03090C 5);(PERCENT);"% DECREASE ";:3100C 5);PERCENT;"% INCREASE ";C "IN NET WORTH."C& C& C-------":7);"NET RECOGNIZED":7);"INCOME:";27);"$";CASH10000{B :INCOMECASH10000:PERCENT((INCOME10000)1000)10B 5);"YEAR'S RESULTS:"::5);"THE YEAR'S TRANSACTIONS NETTED":5);B PERCENT03040C "A ";(PERCENT);"% DECREASE ";:327);"-----------"IA (7)::"TOTAL WORTH:";:(27):"$";CASHASSETS::A 7);"SUBTRACT":7);"START. CAPITAL:";27);"$10000":27);"-----------"A 7);"GROSS INCOME:";27);"$";(CASHASSETS)10000:7);"LESS ASSETS:";27);"$";ASSETSAB 27);"----31903q 32003v R99:337023 Q3389.23210<3 3220K3 R98:3370`3 Q3340.553230j3 3240y3 R97:33703 Q3291.932503 32603 R96:33703 Q3243.2532703 32803 R95:33703 Q3194.632903 33004 R94:3370;" GALLONS"<20 "OIL PRODUCTS=";(100O.5)100;" GALLONS"h2: "KEROSENE=";(100K.5)100;" GALLONS"2D "LUBRICANTS=";(100L.5)100;" GALLONS"2N Q3(((PC)5000)((WR).1)(DB5200))2X Q3486.531702] 31802b R910:33703l Q3437.85"***********OWNING CERTIFICATE**********"S1 "YEARS LASTED ";D;" WELLS OWNED ";Wr1 "ASSETS=$"(100P.5)1001 "CRUDE OIL=";(100C.5)100;" GALLONS"1 "REFINERIES=";R1 "GASOLINE=";(100G.5)100;" GALLONS" 2& "FUEL OIL=";(100F.5)100 2980;0 G(G):F(F):O(O):K(K):L(L):W(W):250R0 "GAME OVER":3050j0 "SURE??????? ";M9$0 (M9$,1)"Y"ė:(5):30300 (M9$,1)"N"3200 "SOLD OUT FOR ";(100(WPCR)1.5.5)100;" DOLLARS"0 :0 PP((WPCR)1.5)*1 /Y W02970/^ G/h W1(1000100)(1)100:C5(1000100)(1)100]/r W1(W1):C5(C5)w/| PP(WW1):CC(C5W)/ "YOU RECEIVE ";(100WW1.5)100;" DOLLARS"/ "YOU RECEIVE "(100C5W.5)100;" GALS.OF CRUDE OIL"/ W9200DB5P02990J120:Z$(I,J)"#"Z$(I,J)"-":CTCT18.& CTWDī2890H.( J:I:2890W., U102870a.1 2890.6 "STORAGE FIRE! HALF OF ALL PRODUCTS ".8 "IN STORAGE ARE DESTOYED".@ GG2:FF2:LL2:KK2:OO2.J DD1:X10.T W0ĺ"ROYALTIES COME IN!!!!" INVESTMENT ";(100P.5)100;" DOLLARS LEFT"6- 2890E- U302820O- 2840{- "OIL SPILL ";C.75;" GALLONS OF CRUDE"- CC(C.75):2890- U202850- 2860-" WD(W.51):"FIRE DAMAGE! ";WD;" WELLS DESTROYED":WWWD-# CT1'.$ I110:,1)"1"2720, 2710,, (Y9$,1)"2"3206, 2690C, ::(5)T, U(60(1))c, U502750m, 2760, RR.75:R(R):2780, U402770, 2810, PP.5:P(P):2790, "REFINERIES EXPLODE ";R;" REFINERIES", "LEFT ":2890,- "BAD :2650: NO OIL+P WW1%+Z W9W91c+_ (19):" ":(19):"ASSETS ";DR(P)+d (I5):(JMR):Z$(I,J)::(22):"DO YOU WANT TO DRILL AGAIN ";D$+n (D$,1)"Y"(D$,1)"N"2680+s 2660+x (D$,1)"Y"2380+ 2720 , (Y9$02560* 2570D* P0:(21):"YOU RAN OUT OF MONEY":10000:2720J* `* Z$(I,J)"#":2640* (18):"NO OIL FOUND HERE ":PP6000:"ASSETS ";DR(P)*( P02610*- 2620*2 P0:(21):"YOU RAN OUT OF MONEY":10000:2720*< +F Z$(I,J)"^") Z$(I,J)"#":2640S) (18):"OIL FOUND AT 4000 FEET":PP4000:"ASSETS ";DR(P)a) P02510k) 2520) P0:(21):"YOU RAN OUT OF MONEY":10000:2720) ) Z$(I,J)"#":2640) (18):"OIL FOUND AT 6000 FEET":PP6000:"ASSETS ";DR(P)* P02(t Z$(I,J)"."Z(3(1)1):Z2590,2540,2490n(~ (18):"YOU ALREADY DRILLED ":"ASSETS ";DR(P):2380( (18):"OIL FOUND AT 2000 FEET":PP2000:"ASSETS ";DR(P)( P02460( 2470( P0:(21):"YOU RAN OUT OF MONEY":10000:2720( ,20:(21)s'L (19):" ":(19):"ASSETS ";DR(P)::(22):"WHERE DO YOU WANT TO DRILL ";I,J'V I10J20I1J12400'[ 2410'` "I NEED 2 WHOLE NUMBERS THE 1ST (1-10)"'b "THE 2ND (1-20)":2380(j I(I):J(J):W9200299" &1380&27202&"GASOLINE ";15);DR(G)N&"FUEL OIL";15);DR(F)m&"OIL PRODUCTS"15);DR(O)& "KEROSENE";15);DR(K)& "LUBRICANTS";15);DR(L)& 320&$ && MR8&. (6):I110:(MR1):J120:Z$(I,J);:J::I&8 'B 34\LL(L4(L4.03)):L(L):PP(L4L3):CCL4:X1X1L4:1380d%f"THE PRODUCTS YOU CAN REFINE ARE*"%p"GASOLINE,FUEL OIL,OIL PRODUCTS"%r"KEROSENE, AND LUBRICANTS"%z1440%"ASSETS=$";(100P.5)100&"CRUDE OIL=";(100C.5)100;" GALLONS OIL":2030!$ L4125000R2090+$%2100]$*"THAT IS TOO MUCH FOR YOUR REFINERIES":2030o$4L4L3P2110y$92120$>"YOU DON'T HAVE ENOUGH MONEY":2030$H(X1L4)125000R2130$M2140$R"YOU CAN REFINE ";(R125000)X1;" GALLONS":2030<%17,4,18,4,20,4,18,20,99,4,25,12,23,4,22,6,20,2,22,20,13,2,13,2,18,6,18,2,18,4,18,6,17,2,18,4 Nu 20,20,13,4,13,4,18,4,20,4,22,8,18,2,17,2,15,6,23,2,23,4,23,8,23,2,23,2,22,6,20,2,18,4,17,4Xu 18,4,20,4,18,16,99,4,0,0y0,(N256):1,(N(N256)ʫ9020I#N0Į:90206K#DD1T1:NN(N):31000:90200u 13,4,13,4,18,4,20,4,22,8,18,2,17,2,15,6,23,2,23,4,23,8,22,2,23,2,25,6,18,2,18,4,18,4,17,4 :u 18,4,20,20,13,4,13,4,18,4,20,4,22,8,18,2,17,2,15,6,23,2,23,4,23,8,23,2,23,2,22,6,20,2,18,4]Du (16384):X71282010?(24):(13):" ";:(1):O16368,0:o"1000:(4):(38((F))):F}(#16368,0-#24:11:"PRESS '";::"SPACE BAR";::"'";:12#T135<#X7(16384):X7127Ĺ16368,0:F#N,D1G#N99āG1500:G:S CONSIDERED PUBLIC DOMAIN F@* DISTRIBUTED BY APPLE-PORTLAND@*PERMISSON TO REPRODUCE IS GRANTED AS LONG AS THE IDENTIFING REM'S ARE RETAINED@0u(100X5.5)1002?"HOW MANY WELLS TO SELL ";H1Z?H1Wĺ"YOU HAVE ";W;" WELLS":4770j?PP(X5H1){?WWH1:2720?260?260?2720???' END OF PAGE?'(22):"(HIT ANY KEY TO CONTINUE)":AR$::(5):!@* THIS PROGRAM I(1)20000G>\"THE SELLING PRICE OF A REFINERY IS ":(100X3.5)100m>f"HOW MANY REFINERIES TO SELL ";H>pHRĺ"YOU HAVE ";R;" REFINERIES">r4700>zPP(HX3)>RRH:2720>>X54500(1)500?"THE SELLING PRICE OF A WELL IS ":USING COMMANE 5";="FOR A STORAGE REPORT. NOT USED FOR "P="ANYTHING ELSE"`=10000:220=*"DO YOU WANT TO SELL REFINERIES OR WELLS ";Z5$=4Z5$(Z5$,1):Z5$"R"4680=6Z5$"W"4750=8320=>(Z5$,1)"W"4750=C4650 >RX3(10000)THE LEFT"5<"IT COST MONEY TO DRILL. EVEN IF YOU "L<"HIT A DRY HOLE."f<:" '#' IS A WELL."<" '^' A DRY HOLE."<" '-' A DESTROYED WELL."<10000<"COMMAND 8"<:"THIS ALLOWS YOU TO RETURN TO THE"="STATUS REPORT AFTER ;"COMMAND PER YEAR."+;:"COMMAND 6"W;"ALLOWS YOU TO DRILL WELLS. YOU WILL";"SEE A GRID. YOU CAN DRILL ANY WHERE";"A '.' APPEARS IN THE GRID BY INPUTING";"THE COORDINATES. FOR EXAMPLE 1,2 WILL" <"DRILL '1' DOWN AND '2' FROM TO 1.00"9::"WHEN ASKED FOR WHAT YOU WANT TO REFINE"d:"YOU CAN JUST INPUT THE FIRST LETTER":"FOR EXAMPLE, 'G' FOR GASOLINE":10000:"COMMMAND 5":"GIVES A STORAGE REPORT WITHOUT LOSING ":|"A YEAR. USUALLY YOU CAN ONLY DO ONE"LLOWS YOU TO REFINE YOUR CRUDE OIL":"INTO THE FOLLOWING PRODUCTS:"b9"PRODUCT COST/GAL"9"GASOLINE .50 TO 1.00"9"FUEL OIL .45 TO .75"9"OIL PRODUCTS .60 TO .70"9"KEROSENE .60 TO .70" :"LUBRICANTS .70E"18 :"THEN YOU WILL BE ASKED FOR THE AMOUNT"S8 "IN GALLONS TO BE EXPORTED."[8:p8" COMMAND 3"8"ALLOWS YOU TO BUILD REFINERIES."8"THE COST OF A REFINERY RANGES FROM":"$ 30,000 TO $ 50,000"8100008" COMMAND 4"C9"ADUCT WHEN ITS PRICE IS "$7 "HIGH"/7 10000[7 "WHEN ASKED FOR AN EXPORTING COMMAND "z7 "YOU MUST RESPOND WITH :"7 "THE NAME OF THE PRODUCT TO BE EXPORTED."7 "YOU MAY JUST INPUT THE FIRST LETTER"8 "OF THE PRODUCT. E.G., 'K' FOR KEROSEN BETWEEN $.33 AND$1/GAL"E6 "OIL PRODUCTS SELLING FROM $.48 TO $.95t6 "KEROSENE SELLING BETWEEN $48 AND $.95/G"6 "LUBRICANTS SELLING FROM $.58 TO $1.25"6 6 " SUGGESTIONS"6 "CONSIDERATION SHOULD BE GIVEN TO"7 "EXPORTING A PRORCHASE IMPORTED CRUDE"@5J "OIL AT A PRICE BETWEEN $10 AND $20"\5L "PER 50 GALLON BARREL"b5R {5f " COMMAND-2"5p "ALLOWS YOU TO EXPORT YOUR REFINED PROD."5z "NAMELY:"5| "GASOLINE SELLING BETWEEN $.38 AND$1.25/G"6 "FUEL OIL SELLING04 Q3145.953310 4 3320/4 R93:337094 3320L4 Q397.33330V4 3340e4 R92:3370y4 Q348.6533504 33604 R91:33704 R904* ::"RATING (0 BAD) -(10 PERFECT) ";R944 48604> " COMMAND-1"5H "ALLOWS YOU TO PU MADE IT SAFELY THROUGH SOUTH PASS"::"THERE WAS NO SNOW."L"$M17004940[".F214940d"8F21v"B(1).74970"LM950İ30700:190"VM91:30700:190 #j"BLIZZARD IN MOUNTAIN PASS -- TIME AND ":"SUPPLIES LOST":L11:FF25:M1M110:BB300:M - LOSE VALUABLE TIME TRYING":"TO FIND THE TRAIL":MM60:4860Q!(1).14840!"WAGON DAMAGED LOSE TIME AND SUPPLIES":M1M15:BB200:MM2030(1):4860!"THE GOING IS SLOW":MM45(1).02!F114900!F11!(1).84970;""YOU(1).256300 4710) *(1).563003 44710u >"HELPFUL INDIANS SHOW YOU WHERE TO FIND":"MORE FOOD":FF14 fM950İ30700:190 p(1)109((M10015)272)((M10015)212)4860 z"RUGGED MOUNTAINS":(1).14780?!:"YOU GOT LOST>"COLD WEATHER-----BRRRRRR----":"YOU ";:C224(1)4530R"DON'T ";:C11"HAVE ENOUGH CLOTHES":"TO KEEP WARM":C104710:6300"HAIL STORM---SUPPLIES DAMAGED":MM5(1)10:BB100:M1M14(1)3:4710E16300 E34650 D OF THE BITE, BECAUSE YOU"::"DON'T HAVE ANY MEDICINE":5170"WAGON GETS SWAMPED FORDING RIVER - -":"LOSE FOOD AND CLOTHES":FF30:CC20:MM2020(1):4710"WILD ANIMALS ATTACK":500A113:A214:B82:1000B80:M9501904720R WAGON.":"FOOD AND SUPPLIES DAMAGED":FF40:BB400:M1M1105(1)83:MM15:4710^"LOSE YOU WAY IN HEAVY FOG--TIME IS LOST":MM105(1):4710|"YOU KILLED A POISONOUS SNAKE AFTER IT ":"BIT YOU.":BB10:M1M15:M104710>::"YOU DIE3700,3790,3790,3820,3850,3880,3960,4130,4190UD1104220,4290,4340,4560,4610,4670:"YOU GOT SHOT IN THE LEG AND THEY TOOK":"ONE OF YOUR OXEN.":M1M15:AA20:K81:"BETTER HAVE A DOC LOOK AT YOUR WOUND.":4710V""THERE WAS A FIRE IN YOUo"YOU GOT SHOT IN THE LEG AND THEY TOOK":"ONE OF YOUR OXEN.":K81:"BETTER HAVE A DOC LOOK AT YOUR WOUND"M1M15:AA20:4710500:10000:10050::G120:G7$:G:R1100(1):D10D1D11:D1164670D:R1D4020,D13660, LOST.":FF10:BB500:M1M115:MM10(1)5:4710Sx"BANDITS ATTACKING":30700byB81:3165}B80:BB20T7:B0ĺ"YOU RAN OUT OF BULLETS":"THEY GET LOTS OF CASH":TT3:4040HS1ĺ"QUICKEST DRAW OUTSIDE OF DODGE CITY":"YOU GOT 'EM.":4710F.":"YOU SPEND TIME LOOKING FOR IT.":MM17:4710x"YOUR SON GOT LOST.":"SPEND TIME LOOKING FOR HIM.":MM10:4710 "UNSAFE WATER.":"SPEND TIME LOOKING FOR CLEAR SPRING":MM10(1)2:4710(M950449032"HEAVY RAINS.":"TIME AND SUPPLIESOUT OF BULLETS,":"AND YOU WERE MASACRED":5170L"YOUR WAGON HAS BROKEN DOWN...":"LOSE TIME AND SUPPLIES FIXING IT.":MM155(1):M1M18:4710t"OX INJURES LEG. SLOWS YOU":"DOWN FOR THE REST OF THE TRIP"::MM25:AA20:47102"OX WANDERS OF13370 MM15:AA10:3470-* T123410?/ MM5:BB100PR T14MM20 10000:10050:12:S51ĺ"THE RIDERS WERE FRIENDLY,":"BUT CHECK FOR POSSIBLE LOSSES":4000 "THE RIDERS WERE HOSTILE---":"CHECK FOR LOSSES":B04000/ "YOU RAN (((ZN$)))400030B(ZN$)0ZN$"0"40006[CZM:"I CAN'T UNDERSTAND YOUR ANSWER."D"PLEASE TYPE A NUMBER.":40010:40001FZM:868:ZM1:868:CV1(CV23):ZN(ZN$):JCV1:36,CH:868: Z }R33,6S}N(37)-}Z137:N(Z):Zx} 378,358,340,318,302,284,268,255,239,227,212,201,189,179,170,159,151 } 142,134,127,119,113,106,101,94,89,85,80,75,71,67,64,60,56,53,50,47 }:@16368,0:CH(36):CV(37)A"";ZN$:(ZN$)0F}R13,AS4:R14,1)P}R15,8S8?Z}R16,DS:R17,3Od}R18,CSAin}R19,FS:R20,FS3x}R21,ES9:R22,1}R23,DS:R24,FS6}R25,CS6:R26,3}R27,DS:R28,FS2}R29,CS6:R30,2}R31,DS:R32,ESE256))"y2,(D256):3,(D(D256)256)0,yR66yJ8|G175:B,B:Gq}A10:B11:C12:D13:E14:F15:S16 }R,ES6:R1,0}R2,ES6:R3,1}R4,ES6:R5,2(}R6,ES6:R7,32}R8,ASE:R9,3S:R10,CS<}R11,AS6:R12,D0D1500Ģ18:" SAILPLANE OVER RUNWAY"^D1500Ģ18:" SAILPLANE OVERSHOT RUNWAY!"rSA(7,1)509519:"AIRSPEED ABOVE REDLINE-VIBRATION!"H02200D0D15006000SA(2,1)105400 FPM120524019:"TOUCHDOWNX.75WW1:3700)[X.25WW1:3700:`X.05WW2ItSP14000\SA(7,1)380020:" SPOILERS TORN OFF BY EXCESS AIR SPEED"SP1:400019:" SPOILERS DEPLOYED"450019:" "- SP1SP0 3400( SP03400D SR0SRSR8.333:3340Z SR(SR2.33)8.33c SP1m SXSRH LD(SW)SX1.689z LD(10LD)10 FPMSR60 HH(FPM60)TT1BDD((SW)1.688867)LX(1)QX.95WW2:3700V/w:-/0:X182191:90,X180,X:X:3:@/@A$:(A$)3ij]/E(A$)49(A$)GT40000f/JA$;/TB$:(B$)13(B$)840020/^(B$)13ĺ:/h(8)" "(8);:40000181:30000:16368,0:505&.OF:::H.0uZ1(Z$):Z3((Z$,Z,1)):3o.?uZ364ĔZ344Z1(Z1)7,Z2:30050.@uZ33230050.NuZ31Z1(Z1)7,Z2.buZ.lu.w16368,0.w24:10:"PRESS '";::"SPACE BAR";::"'";:1.w(16384)1273071510P1,Q1:X1250:X:0:10P1,Q16-B3:81,1:91,1d-BP1P1P2:Q1Q1Q2:P1261(M10.51)17010o-B17500-B3:10P1,Q1:G1500:G:G115:0:10P1,Q1:X120:X:3:10P1,Q1-B(7):X120:X,G.\D3:10P1,Q1:Z$"PRESS SPACE BAR":Z180:Z2CONGRATULATIONS,","AND WISHES YOU A PROSPEROUS LIFE" T,`; "AHEAD AT YOUR NEW HOME"k,hB:3:81,1:91,1,mBM0Ē3:10P1,Q1:17500,rBP1261P24:Q21,|BP1165P22:Q20,BP1113P21:Q22,BP196P22:Q20,BP166IG1:17080!-B3:G1300:GJ+0G120D3:A$:G:2:34((M)):"MILES= "M:G1300:G:}+6 6,11,13,15,17,22,32,35,37,42,44,54,64,69,95 +: "INCOMING TELEGRAM"," ","TO NEW RESIDENT OF OREGON TERRITORY-"," ","PRESIDENT JAMES K. POLK SENDS YOU HIS"5,: "HEARTIEST JUNE 7","JUNE 21","JULY 5","JULY 19","AUGUST 2" *+/ "AUGUST 16","AUGUST 31","SEPTEMBER 13","SEPTEMBER 27","OCTOBER 11","OCTOBER 25","NOVEMBER 8"*0/ "NOVEMBER 22","DECEMBER 6","DECEMBER 20" +02:"MONDAY- ";:G1300:G::G1D3:A$:G:A$",1847";:0B0).C0C0!).M10M10h).3:G140:"-";:G::4:" FOOD BULLETS CLOTHING MISC. CASH"x).5:868:5).2:F;:8:B;:17:C;:27:M1;:35:" ";:35:T).G140:"-";:G:0*/ "MARCH 29","APRIL 12","APRIL 26","MAY 10","MAY 24","05110(2L114940 (<4710H(':1:9:G923:G:868:G:1:1:e(B':7:1:868:8:868:(+X(16384):X127KP166āG120:X(16336):G:SH1:(.F(F):B(B):C(C):M1(M1):T(T):M(M):M2M(.M91M950:M90(.F0F0).B(E1)6370.'100(1)100(404(E1))6410'"SERIOUS ILLNESS...":"YOU MUST STOP FOR MEDICAL ATTENTION":M1M110:S41:6440'"MILD ILLNESS... MEDICINE USED.":MM5:M1M12:6440' "BAD ILLNESS..MEDICINE USED.":MM5:M1M15'4710((M1 OREGON"*&:"BETTER LUCK NEXT TIME.":t&20:"SINCERLY"::5:"THE OREGON CITY CHAMBER OF COMMERCE":30700:6&:::::G135:X$:G:100:G18:X$&Z71(X$):(X$,Z7,1);:X(16336):X(16336):Z7:::G:30700:6 '100(1)1035US TO INFORM YOUR NEXT":"OF KIN";:C$:(C$,1)"Y"5310%:"BUT YOUR AUNT SADIE IN ST. LOUIS IS":"WORRIED ABOUT YOU":5330%::"THAT WILL BE $4.50 FOR THE TELEGRAPH":"CHARGE."&:"THANK YOR THIS INFORMATION."::"SORRY YOU DIDN'T MAKE IT TOIA":5170$("INJURIES".$230700:16368,0$3::::"DUE TO YOUR UNFORTUNATE SITUATION":"THERE ARE A FEW FORMALITIES":"WE MUST GO THROUGH-"$Z"WOULD YOU LIKE A MINISTER";:C$$n:"WOULD YOU LIKE A FANCY FUNERAL";:C$8%:"WOULD YOU LIKE M3040(1)##C182(1)6300-#4940y#10000:10050:12:"YOU RAN OUT OF FOOD AND STARVED":"TO DEATH.":5170#T0:"YOU CAN'T AFFORD A DOCTOR":5120#"YOU RAN OUT OF MEDICAL SUPPLIES..."#"YOU DIED OF ";# K815160 $"PNEUMON UP ","DOWN"Ru "CAVE","LAKE","RIVER","TREE","AX","BOMB","CURSE","FIRE","KNIFE"u "CLAM","BATS","BONES","GHOST","OGRE","CHEST","GOLD","PEARL","LAMP"u "RAFT","ROPE","TENT","TRUCK","LIGHT","WATER","APPLE","ICE"u"FEATHER"u "*****" uNVDES$(50)%DuN(50),E(50),S(50),W(50)CXuLOC$(50),SPC$(5),M(610)P]uPSS(10)abuSPC$" "lluNUMW6|quWT(5NUMW)vuLOC1u INITIALIZE VARIABLESuNN38uI1NN:NOUN$(I):I u " N "," NE "," E "," SE "," S "," SW "," W "," NW ","12 $I-$13:2:I112:" ";:IN$13:2:"POSSESSIONS ";:NP0\$I1NN1p$STA(I)09480$NOUN$(I);" ";$NPNP1:NP4Ģ14:14%I&23:1:10000u INITIALIZE:uNOUN$(40),VERB$(30),NTYP(50),VTYP(50),STA(50)?uL:30:" W"#LOC892206$3:35:" E":35:"N "g$8:30:" W";:35:"S ":30:"S ";:35:" E"mJ$T$LIGHT0LOC2LOC199400U$LK09400Y$5:2:J0^$I1NN1c$STA(I)LOC9360r$NOUN$(I)|$JJ1:J5Ģ5$2$J4Ė0RAFT0)9170 #6:35:" E"E#W(LOC)0(W(LOC)0RAFT0)9180V#6:30:"W "v#(LOC5LOC13)ROPE19185#9190#2:33:"UP"#LOC239195#LOC4ROPE09200#10:33:"DOWN"#LOC11LOC89210#9290 #3:30:"N "#"GOOD-BYE"#3#I210:I:30:" ":IS#LIGHT0LOC2LOC199290n#5:33:"O":33:"+":#N(LOC)0(N(LOC)0RAFT0)9150#3:33:"N":33:" "#S(LOC)0(S(LOC)0RAFT0)9160#8:33:" ":33:"S"#E(LOC)0(E(LOC)K" 9100AMT01STA(25)1AMTAMT13LSTA(26)1AMTAMT22gSTA(27)1AMTAMT8STA(28)1AMTAMT523:1AMT09090"YOU HAVE FOUND $";AMT;",";((1)900100);" IN TREASURES"AMT13ĺ"NICE SPELUNKING!"  zSRP,R3}3900# OUTPUTVI39:I:1:" ";:Ix:3:2:LOC$(LOC);::" ";LOC15STA(35)1CURSECURSE1523:1LOC499090LOC505000LIGHT1LOC3LOC199100"IT IS VERY DAR<STA(M(M))M(M8)*ASTA(M(M1))M(M8)0F^P23:1:"THE ";NOUN$(M(M));" KILLED YOU!"iTKP,R1oU{dI1NNiNTYP(I)15STA(I)1STA(I)M(M8)nIu"ALL YOUR REWARDS STOLEN"vSAP,R2w3900x"HE TOOK BACK HIS VALUABLE" N)";:Q$ jQ$"Y"200 H* 5990015X(16336):J:I#8020Q 19:"YOU BOUGHT THE FARM! " "SAILPLANE DESTROYED OM IMPACT! " 639990u24:"PRESS RETURN";:Q$5uO0:uQ$"H"O1?uDuDN0DN1:H0:2200 `24:"TRY AGAIN(Y ORALLED ON TOUCH DOWN!"5100L@19:"VIBRATION SEVERE! "jJ"SAILPLANE BREAKING UP!"TTT1:ACAC2:FPMFPM200:SS2:HH(FPM60)r4:T;16);(D);32);W|8:AC;33);S11:(FPM);31);(H)H08400I115:JFF FIELD LANDING!":"SAILPLANE DAMAGED!":6050[19:"SAILPLANE CRASHED OFF FIELD! "f63999X19:"STALL! "]H57050bHH200lH0ĺ"IMPACT WITH GROUND - FATAL!":63999vS50:I1800:I:220018:"ST "!FPM12060620RO(SW)2tDRO0D500ĺ"SAILPLANE ROLLS ONTO RUNWAY!":"LUCKY!":6399963999FPM400FPM6006520FPM6006800"BOUNCE... BOUNCE...BOUNCE..."63999dSA(2,1)256800.x"HARD O5600)"BOUNCE... BOUNCE... BOUNCE..."G"TRY FLAIRING NEXT TIME"R63999hSA(2,1)255600,19:"HARD LANDING ON RUNWAY":516019:"CRASHED ON RUNWAY!!! "63999pSA(2,1)10650019:"OFF FIELD LANDING ON RUNWAY "'("GROUND ROLL-OUT ";62RO(SW)4L<RO;" FEET "PDRO1500ĺ"SAILPLANE ROLLS OFF END OF RUNWAY!":"SAILPLANE DAMAGED!":63999nSA(2,1)10FPM120ĺ"GOOD LANDING!"s63999xFPM210FPM5005420}FPM500Y LEADS FAR UP THROUGH THE ROCKAND OUT OF THE CAVERN." 0y "THE FIRST THING YOU NOTICE IS A PILE OF GOLDEN TREASURES NESTLED INTO A NOOK ON THE FAR SIDE. BEFORE YOU TAKEANOTHER STEP, A FOUL-SMELLING OGRE JUMPS OUT OF A HOLE IN THE SIDE WALL AND RUSHHING LEFT THERE FOR VERY LONG. THEREIS SO MUCH ICE THAT YOU CAN'T EVEN GET INTO THE ROOM; BUT, THERE IS AN EXIT ON THE FAR SIDE."6/y"A SMALL, SMOKE FILLED CHAMBER WITH A FIRE BURNING IN A NATURAL FIREPLACE IN THE NORTH WALL. APPARENTLY, A CHIMNENIFICENTLY DECORATED CHAMBER WITH CRYSTALINE DESIGNS AND INTRICATEROCK FORMATIONS. A NARROW FAST MOVINGRIVER FLOWS THROUGH THE ROOM. A NAT- URAL BRIDGE SPANS THE RIVER.".y "MYSTERIOUSLY, ICE FORMS VERY QUICKLY IN THIS CHAMBER, ENCAPSULATING ANY- TINTERCONNECT, AND LEAD BACK AGAIN.",ry"WHAT APPEARS TO BE A PETRIFIED RIVER BED SLOPES GENTLY UPWARD LEADING TO- WARD THE WEST. IT HAS A FOUR-FOOT CEILING.",|y"YOU SEE A NARROW, CHURNING, UNDER- GROUND RIVER FLOWING TO THE SOUTH."-y "A MAG SANDY SHORELINE WITH A VERY LOW PASSAGE LEADING OFF TO THE WEST. A CLAMMY DRAFT ISSUES FROM THE LOW-CEILINGED PASSAGE."+^y "A SMALL, SANDY BEACH ON THE NORTHERN EDGE OF THE MISTY LAKE."%,hy"TWISTING PASSAGES LEAD OFF IN ALL DIRECTIONS, L CHAMBER WITH AN IMMENSE STAL-AGMITE HANGING FROM THE CENTER OF THECEILING, DIRECTLY OVER THE MOUTH OF ABOTTOMLESS PIT."*Jy "YOU STAND AT THE EDGE OF A MISTY LAKETHAT STRETCHES ENDLESSLY OUT BEFORE YOU TO THE NORTH."+Ty "YOU ARE STANDING ON A DAMP,INGSOUNDS SAYING 'WATER...WATER...WATER.")6y "THE ROOM IS A HUGE OVAL CHAMBER WITH TALL CEILINGS AND MASSIVE STALAGMITESAND A SMOOTH EASTERN WALL HAS SOME WRITING ON IT - CRYPTIC CHARACTERS THAT SPELL OUT, 'THE SPIRIT OF THE FRUIT'"y*@y "A SMALRE AT THE MOUTH OF A LARGE CAV- ERN. THE SIDES OF THE ENTRANCE SLOPE STEEPLY UPWARD, AND A MYSTERIOUS PASSAGE LEADS WEST INTO THE CAVE.")),y "A TOWERING, WITHERED TREE STANDS IN WHAT APPEARS TO BE A DRIED UP RIVER BED. FROM IT YOU SEEM TO HEAR ECHO"," "," "," "," "," "," "?'x " "," "," "," "," "," "," "," "^'x "OVER FALLS","YOUR HOME"t'xI130:WT(I):I'x 15,100,24,0,0,16,150,24,22,36'x 18,30,21,22,36,19,50,24,20,0'x 33,30,23,0,0,36,40,21,0,0'yI150:LDES$(I):I("y"YOU A,"MAZE ROOM","FROZEN RIVER","RIVER ROOM"&x "HUB ROOM","ICE ROOM","CHIMNEY","GOLD ROOM","BONES","BATS","GHOST ROOM","MISTY LAKE","SWIFT RIVER","INTERSECTION"&x "INTERSECTION","INTERSECTION","TREE TOP"," "," "," "," "," "," "," "'x " "," "," "," ,14,100,21,25,0,4,0,60,40,90,16,40,23,0,0,6,0,0,0,0,17,50%dx 20,27,1,0,0,90,60,65,18,60,36,28,1,0,0,0,60,0,12,25,22,0,1,0,0,0,0,0,15,75%nxMM6%xI150:LOC$(I):I(&x "MOUTH","TREE ROOM","WRITING ROOM","PIT","SOUTH LAKE","WEST LAKE","NORTH LAKE"0,0,5,-10 ,0,22,16,0,0,0 X$w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0$w 2,0,20,0,0,12,0,20,8,0,21,6,0,11,11,0,0,6,0,4,17,21,0,0,0$w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0$PxI160:M(I):I9%Zx 24,26,0,2,0,60,30,55,0,0,0>#w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0#w 0,1,0,20,0,-18,0,9,1 ,0 ,14 ,0 ,0,0 ,0,0,21,0,0,3,11,0,0,0,0#w 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 $w 19,3,10,0,0,0,-18,8 ,0,-11,-49,11,11,0,0,I):I".w 0,0,0,0,0,0,0,0,0,0<"8w 0,0,0,2,4,3,15,13,1,18^"Bw 16,15,17,14,16,14,18,12,5,9t"Lw 1,1,1,0,0,12,23"wI150:N(I):I"wI150:E(I):I"wI150:S(I):I"wI150:W(I):I#w 50,0,2,0,-18,0,9,8,7,3,13,0,0,0,0,22,0,7,1,8,0,11YP(I):I"!pv 1,1,1,1,1,1,1,1,1,1;!zv2,2,2,1,5,5,5,5,5,8\!v 8,8,8,8,15,15,15,15,5,5q!v5,5,5,45,45,5,5!vI125:VTYP(I):I!v 1,11,1,1,1,3,2,45,45,45!v 45, 5, 5,5,8,8,40, 8,8,15!v 15,15,315,315,315"$wI137:STA( STREETS ARE FULL OF POTHOLES.,50000F  FIREHOUSE BURNS DOWN.,50000 0:(7):1:5:10:"SPECIAL ANNOUNCEMENT!!":7l@ INSTRUCTIONS ON SEPARATE PROGRAM FOR DISK ONLYJ"RUN INSTRUCTIONS"8"%7900:"THE GAME IS OVER-HERE ARE THE FINAL STANDINGS"!%&%"PLAYER"8);"CASH VALUE"22);"CASH"'0%9);"(S1(T1)2)::::=I11P1:S(T1,I1)2S(T1,I1):I1CM::k20);"PRICE/"30);"YOUR""STOCK";20);"SHARE";28);"HOLDINGS"I315:S1(I3)1001480M$(I3);20);S1(I3);30);S(I3,P)I3:XX01000:XX)S1(T1)S1(X):S1(T1)300013314)XX01000:XX>*1400U3F3A33:F30F30l4F4A43:F40F40<S1(X)100:Q(X)0:I1P1:S(X,I)0:IK::::PM(R,C)T13Zx7900:"THE STOCK OF "; M$(T1);" HAS SPLIT 2 FOR 1!":S1(T1)P1:S(T1,I)S(T1,I)((.5S(X,I)).5)OB(I)B(I)(10((S(X,I)X1)S1(X))):IzI19:J112:M(I,J)X3M(I,J)T13#J,I%A1M(R1,C):A2M(R1,C):A3M(R,C1):A4M(R,C1)&F1A13:F10F10'F2A23:F20F20!(Q(T1)Q(T1)Q(X):S1(T1L"32);"BONUS"M"PLAYER"8);"STOCK"15);"STOCK"23);"HOLDINGS"32);"PAID":I1P1:P$(I)10);S(X,I)18);((.5S(X,I)).5);25)S(T1,I)((.5S(X,I)).5);X10:I11P1:X1X1S(X,I1):I132)" $";(10((S(X,I)X)S1(X))):I$ I1"WALK":ā"","RUB","WISH"P:24:" << PRESS THE SPACE BAR TO BEGIN >>";:A$V: ; 9LA$9V09`:4:12:"POSSIBLE VERBS":79j6Q9t"BITE","FIGHT","RUN"k9~"CARRY","GO","START"9"CLIMB","HELP","STOP"9"DIG","HIT","SWIM"9"DRINK","JUMP","TAKE"9"DRIVE","KILL","THROW"9"DROP","LOOK","USE":"EAT","PUT",ERA JUMP DOWN"s8$"DO NOT USE THE FULL NAMES OF DIRECTIONS,THE INITIALS AS ILLUSTRATED ABOVE ARE ENOUGH."y8.88" YOU WILL FIND IT VERY HELPFUL TO DRAWA MAP TO KEEP TRACK OF YOUR POSITION."9B24:" << PRESS THE SPACE BAR TO CONTINUE >>"ES.";y7" YOU MAY USE SENTENCES IF YOUWISH; BUT THE COMPUTER WILL ONLY USE ONEVERB AND ONE NOUN TO ESTABLISH MEANING."8"FOR THIS REASON, IT IS BEST TO CONVERSE IN VERB/NOUN PHRASES. FOR EXAMPLE: GO W GO NW TAKE CAMTURE FANTASY GAME IN WHICH YOU EXPLORE A MYSTERIOUS CAVERN INSOUTHWEST KENTUCKY CALLED ";::"DEVILS' DELVE";::"."z67" SPELUNKER IS AN INTERACTIVE GAME. YOUMUST CONVERSE WITH THE COMPUTER IN ORDERTO EXPLORE THE CAVERNS AND LOCATE THEIR TREASURGAIN?" 0A$ :A$"Y"ī10$ DS N THE LITTLE LEAGUE NEEDS NEW UIFORMS.,500} X FIREWORKS FOR JULY 4TH PICNIC.,5600 b FLOOD HITS TOWN. REPAIRS ARE NEEDED.,30000 l DOGCATCHER NEEDS NEW TRUCK.,15000 v VOTERS WANT A NEW PARK.,17000$ ST.TO BAD.":540 : "YOU ARE KICKED OUT OF OFFICE"u "THE ONLY JOB YOU CAN GET IS AS DOGCATCHER"~ 540 "THERE'S NO MONEY LEFT IN YOUR BUDGET." "YOU LOSE" 550 "YOU HAD";B;"LEFT IN THE BUDGET." &"WANT TO PLAY ATIME!" @YV2000((1)2000)+ JQN1007 TYVYVQO ^DV2000((1)500)^ hDVYV300j rX1YVq |9 "THE DOGCATCHER GOT";X;"VOTES" X X1YV 9 'YOUGOT";X;"VOTES" X DVYVĺ"YOU WON!!!":540 DVYVĺ"YOU LO((1)16)1 X14FL1# P$; "ESTIMTED COST:";CY "DID YOU SPEND THE MONEYa A$q A$"Y"240{ NN1 N(1)66ī470 280 CCA:BBC "ACTUAL COST:";C FL1NN1 DE13000:DE "60 , 6"ELECTION H B100000:T0:N0R"CNGRADTULATIONS! YOU'VE BEEN ELECTED MAYOR."("TRY TO MAKE IT TO THE NEXT ELECTION ONE YEAR FROM NOW."2DE13000:DE<FFL0P"BUDGET";BZB1510dTT1:T12300n"MONTH:";Tx X  0:I::3370%% I:S1(S1):S2(S2)U%* A$"<*>":Z1(S1):Z2(S2):8670:3910:T81n%f W11T8.1(10W1)%z TTT8:TT0T96220% SEE IF DOCKED, THEN GET COMMAND% 1980% EXCEEDED QUADRANT LIMITS& X8Q1XNX1:Y8Q2YNX2:Q1(X8),2)C(C1,2))(C1(C1)):Q4Q1:Q5Q2\$b I1N:S1S1X1:S2S2X2:S11S19S21S293500$ S8(S1)24(S2)326:(C$,S8,2)""3360$ S1(S1X1):S2(S2X2):"WARP ENGINES SHUT DOWN AT "; % "SECTOR ";S1;",";S2;"DUE TO BAD NAVIGATION":I1200DAMAGED"::3070C# D(R1)D(R1)(1)31:"DAMAGE CONTROL REPORT:"p# 8790:G2$;" STATE OF REPAIR IMPROVED":# BEGIN MOVING STARSHIP# A$" ":Z1(S1):Z2(S2):8670#& X1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):XS1:YS2#$D X2C(C1,2)(C(C11D(I).1D(I)0D(I).1:2880/" D(I)02880Y" D11D11:"DAMAGE CONTROL REPORT:"" 8);:R1I:8790:G2$;" REPAIR COMPLETED.""@ I:(1).23070"^ R1R(1):(1).63000"r D(R1)D(R1)((1)51):"DAMAGE CONTROL REPORT:"# 8790:G2$;" ELDS."! 1990A! KLINGONS MOVE/FIRE ON MOVING STARSHIP. . .\! I1K3:K(I,3)02700!2 A$" ":Z1K(I,1):Z2K(I,2):8670:8590!d K(I,1)Z1:K(I,2)Z2:A$"+K+":8670! I:6000:D10:D6W1:W11D61! I18:D(I)02880" D(I)D(I)D6:.2":1990' N(W18.5):EN02590a "ENGINEERING REPORTS 'INSUFFICIENT ENERGY AVAILABLE" "FOR MANEUVERING AT WARP ";W1;"!'" SNED(7)01990 "DEFLECTOR CONTROL ROOM ACKNOWLEGES ";S;" UNITS OF ENERGY"! "PRESENTLY DEPLOYED TO SHIX$"8":D(1)0X$"0.2"O8 "WARP FACTOR (0-";X$;")";:W1::D(1)0W1.22470dL W10W182490sV W101990t "CHIEF ENGINEER SCOTT REPORTS 'THE":"ENGINES WON'T TAKE WARP ";W1;"!"~ 1990 "WARP ENGINES ARE DAMAGED. MAXIMUM SPEED = WARP 09);" 5 ....... 1"0 9);" ..."L 9);" 6 . 8":c 9);" 7" :9);" C O U R S E" ::"COURSE (1-9)";C1:C19C11 C11C192350 "LT. SULU REPORTS, 'INCORRECT COURSE DATA SIR!'":1990. SHIELDS)"5" DAM (FOR DAMAGE CONTROL REPORTS)"a" COM (TO CALL ON LIBRARY-COMPUTER)"" XXX (TO RESIGN YOUR COMMAND)"::1990 COURSE CONTROL BEGINS HERE:9);" 3"9);" 4 . 2"9);" ..."I:"ENTER ONE OF THE FOLLOWING:"@" NAV (TO SET COURSE)"l" SRS (FOR SHORT RANGE SENSOR SCAN)"" LRS (FOR LONG RANGE SENSOR SCAN)"" PHA (TO FIRE PHASERS)"" TOR (TO FIRE PHOTON TORPEDOES)" " SHE (TO RAISE OR LOWERCONTROL IS PRESENTLY ":"INCAPABLE OF CROSS CIRCUITING TO ENGINE ROOM!!":6220"<====================================>" "COMMAND ";A$:5 I19:(A$,3)(A1$,3I2,3)2160\I2300,1980,4000,4260,4700,5530,5690,7290,6270"p:Z2R2:B5R2:8670BvI1S3:8590:A$" * ":Z1R1:Z2R2:8670:IL6430jSE10ĭE10D(7)02050:"** FATAL ERROR ** YOU'VE JUST STRANDED YOUR SHIP IN SPACE CAPTAIN ";N$;".""YOU HAVE INSUFFICIENT MANEUVERING ENERGY"R"AND SHIELD T,THEN PLACE "K3" KLINGONS, &K "B3" STARBASES, & "S3" STARS ELSEWHERE.uA$"<*>":Z1S1:Z2S2:8670:K311820I1K3:8590:A$"+K+":Z1R1:Z2R28670:K(I,1)R1:K(I,2)R2:K(I,3)S9(0.5(1)):IB311910X8590:A$">!<":Z1R1:B4R13G(Q1,Q2)100K310B3:K301590D"COMBAT AREA CONDITION ";a:" RED "::S2001590," SHIELDS DANGEROUSLY LOW"6I13:K(I,1)0:K(I,2)0:I@I13:K(I,3)0:I:Q$Z$Z$Z$Z$Z$Z$Z$(Z$,17)| POSITION ENTERPRIZE IN QUADRAN9030::T0T14901"CAPTAIN ";N$;","_"YOUR MISSION BEGINS WITH YOUR STARSHIP""LOCATED IN THE GALACTIC QUADRANT, '";G2$;"'.":1500"NOW ENTERING ";G2$;" QUADRANT. . .":K3(G(Q1,Q2).01):B3(G(Q1,Q2).1)10K3"SOF STOCK"20);"ON HAND"28);"NET WORTH"Z:%I1P1:J15:D1(I)D1(I)(S1(J)S(J,I)):J,ID%I1P1:P$(I)10);"$";D1(I)20);"$";B(I)28);"$";D1(I)B(I):IX%"ANOTHER GAME";R$:(R$,1)"Y"70:D3D3D4:D31D3.9^5"TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;"5"ESTIMATED TIME TO REPAIR: ";.01(100D3);" STARDATES"5"WILL YOU AUTHORIZE THE REPAIR ORDER CAPTAIN ";N$;"?";:"(Y/N)":A$5A$"Y"19906EESX:SX:"DEFLECTOR CONTROL ROOM REPORT:"m4"SHIELDS NOW AT ";(S);" UNITS":"PER YOUR ORDER.":199040 DAMAGE CONTROL4:D(6)059104D"DAMAGE CONTROL REPORT NOT AVAILABLE":D0019904XD30:I18:D(I)0D3D3.14I:D3019905D CONTROL INOPERABLE":1990\3"ENERGY AVAILABLE = ";ES:"NUMBER OF UNITS TO SHIELDS ";X3X0SXĺ"":19903XES56303"SHIELD CONTROL REPORTS 'THIS IS NOT THE FEDERATION TREASURY.'"3"":1990/412 "26270]2"STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER COURT MARTIAL!":D00z26Z1X:Z2Y:A$" ":86702^G(Q1,Q2)K3100B310S3:Z(Q1,Q2)G(Q1,Q2):6000:19902r"TORPEDO MISSED":6000:19902 SHIELD CONTROL3D(7)0ĺ"SHIEL0)1A$">!<":Z1X:Z2Y:8830:Z304760[1"*** STARBASE DESTROYED ***":B3B31:B9B91u1B90K9TT0T954001"THAT DOES IT, CAPTAIN ";N$;"! YOU ARE HEREBY RELIEVED OF COMMAND AND"2"AND SENTENCED TO 99 STARDATES AT HARD LABOR ON CYGNUS :Z2Y:8830:Z305210S0"*** KLINGON DESTROYED ***":K3K31:K9K91:K906370x0I13:X3K(I,1)Y3K(I,2)51900<I:I30FK(I,3)0:54300ZA$" * ":Z1X:Z2Y:8830:Z3052801"STAR AT ";X3;",";Y3;" ABSORBED TORPEDO ENERGY.":6000:1991)):EE2:PP1G/X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):XS1:YS2]/."TORPEDO TRACK:"/8XXX1:YYX2:X3(X.5):Y3(Y.5)/`X31X38Y31Y385490/" ";X3;",";Y3:A$" ":Z1X:Z2Y:8830/Z3049200A$"+K+":Z1XDOES EXPENDED":1990J.zD(5)0ĺ"PHOTON TUBES ARE NOT OPERATIONAL":1990{."PHOTON TORPEDO COURSE (1-9)";C1:C19C11.C11C194850."ENSIGN CHEKOV REPORTS, 'INCORRECT COURSE DATA, SIR!".1990/X1C(C1,1)(C(C11,1)C(C1,1))(C1(C"SENSORS SHOW ";K(I,3);" UNITS REMAINING":4670i-K3K31:K9K91:Z1K(I,1):Z2K(I,2):A$" ":8670-*K(I,3)0:G(Q1,Q2)G(Q1,Q2)100:Z(Q1,Q2)G(Q1,Q2):K906370->I:6000:1990-R PHOTON TORPEDO CODE BEGINS HERE.\P0ĺ"ALL PHOTON TORPE)046709,H((H1D(0))((1)2)):H.15K(I,3)4530,"SENSORS SHOW NO DAMAGE TO ENEMY AT ";K(I,1);",";K(I,2):4670,K(I,3)K(I,3)H:H;" UNIT HIT ON KLINGON AT SECTOR ";K(I,1);",";K(I,2),K(I,3)0ĺ"*** KLINGON DESTROYED ***":45802-THIS QUADRANT":1990E+D(8)0ĺ"COMPUTER FAILURE HAMPERS ACCURACY"f+"PHASERS LOCKED ON TARGET;"+"ENERGY AVAILABLE = ";E;" UNITS"+"NUMBER OF UNITS TO FIRE";X:X01990+0EX04360+:EEX:D(7)0XX(1) ,bH1(XK3):I13:K(I,3J:L13:": ";:N(L)0ĺ"+++ ";:4230B*r((N(L)1000),3);" ";\*L:":":O1$:I:1990* PHASER CONTROL CODE BEGINS HERE*D(4)0ĺ"PHASERS INOPERATIVE":1990*K304330+"SCIENCE OFFICER SPOCK REPORTS SENSORS SHOW NO ENEMY SHIPS IN AN CODE>)D(3)0ĺ"LONG RANGE SENSORS ARE INOPERABLE":1990m)"LONG RANGE SCAN FOR QUADRANT ";Q1;",";Q2)O1$"-------------------":O1$)IQ11Q11:N(1)1:N(2)2:N(3)3:JQ21Q21)I0I9J0J9N(JQ22)G(I,J):Z(I,J)G(I,J)&*T;Q1;",";Q2;"'( TT0T962209(8Q1Q28Q4Q53370O(TT1:3910:1320l(< MANEUVER ENERGY S/R **(FEEN10:E0ı(Z"SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER."(dSSE:E0:S0S0() LONG RANGE SENSOR SCD:"i'"'PERMISSION TO ATTEMPT CROSSING OF":"GALACTIC PERIMETER IS HEREBY *DENIED*":"CAPTAIN ";N$;"."'"SHUT DOWN YOUR ENGINES'."'I14000:I ("CHIEF ENGINEER SCOTT REPORTS 'WARP ENGINES SHUT DOWN AT SECTOR ";S1;",";S2:"OF QUADRANT ":Q2(Y8):S1(XQ18);& S2(YQ28):S10Q1Q11:S18R&S20Q2Q21:S28p&$X50:Q11X51:Q11:S11&VQ18X51:Q18:S18&~Q21X51:Q21:S21&Q28X51:Q28:S28&X503860'"LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAN;X$#EH80:I13:K(I,3)08480:EW1K(I,1):XK(I,2)OEC1S1:AS2:8220tE"DIRECTION/DISTANCE CALCULATER"E"YOU ARE AT QUADRANT ";Q1;",";Q2;" SECTOR ";S1;",";S2E"PLEASE ENTER":" INITIAL COORDINATES (Y,X)";C1,A F " FINAL COORDINATES UR STUPIDITY HAS LEFT YOU ON YOUR OWN IN THE GALAXY---":I14000:IzDT"YOU HAVE NO STARBASES LEFT!":I14000:I:5690D| TORPEDO, BASE NAV, D/D CALCULATORDK304270DX$"":K31X$"S"E"FROM ENTERPRIZE TO KLINGON BATTLE CRUISER""KLINGON";X$;" LEFT: ";K9^C"MISSION MUST BE COMPLETED IN ";.1((T0T9T)10):"STARDATES"oCI14000:IC"X$"S":B92X$"":B918010C,"THE FEDERATION IS MAINTAINING ";B9:"STARBASE";X$;" IN THE GALAXY"C1I14000:I:C65690DDJ"YO"B" ";:Z(I,J)0ĺ"+++";:7720d"SECTOR (Y,X) ";S1;",";S2q>f"PHOTON TORPEDOES ";(P)>h"TOTAL ENERGY ";(ES)>j"SHIELDS ";(S)>l"KLINGONS REMAINING ";(K9)>n?p LIBRARY COMPU;(Q$,J,3);:J==I6850,6900,6960,7020,7070,7120,7180,7240I=:7260U=:7260a=0:7260m=l:7260y=:7260=:7260= :7260=H=\I::O1$=^"STARDATE ";(T10).1=`"CONDITION ";C$ >b"QUAD DOCKING PURPOSES":S0:67207<K30C$"*RED*":6720[<C$"GREEN":EE0.1C$"YELLOW"m<@D(2)06770!<":Z1I:Z2J:8830:Z316580;J:I:D00:6650;D01:C$"DOCKED":EE0:PP0<"SHIELDS DROPPED FORUNTEER,"E:"LET HIM STEP FORWARD AND ENTER 'AYE'";A$:A$"AYE"260K::"CONGRATULATIONS, CAPTAIN ";N$;"!":"THE LAST KLINGON BATTLE CRUISER MENACING":"THE FEDERATION HAS BEEN DESTROYED.":;"YOUR EFFICIENCY RATING IS ";1000(K7(TT0))2DERATION WILL BE CONQUERED":6220+9j62209~"THERE WERE ";K9;" KLINGON BATTLE":"CRUISERS LEFT AT THE END OF YOUR MISSION"9::B9063609"THE FEDERATION IS IN NEED OF A NEW STAR-SHIP COMMANDER FOR A SIMILAR MISSION--":"IF THERE IS A VOLS>":H206200)8(1).6HS.026200T8R1R(1):D(R1)D(R1)HS.5(1):87908"DAMAGE CONTROL REPORTS '";G2$;" DAMAGED BY THE HIT'"88I:8B END OF GAME8L"IT IS STARDATE ";T:6270!9`:"THE ENTERPRIZE HAS BEEN DESTROYED. THE FED00ĺ"STARBASE SHIELDS PROTECT THE ENTERPRIZE":M7I13:K(I,3)062007H((K(I,3)D(1))(2(1))):SSH:K(I,3)K(I,3)(3(0))7H;" UNIT HIT ON ENTERPRIZE FROM SECTOR ";K(I,1);",";K(I,2)7S062408" R1::D0057206\19906f KLINGONS SHOOTING6pK30ı27z z #    ҠˠҠ!ˠ." Ġ ήؠ)ή٠Ԡ ̠ŠҠ Π٠ҠӠҠӠҠ ϠҠǠ ҠǠנԠȠ=ԠȮؠ̠:ΠS110.52440S2.524400S210.52440@X6(S1.5)PX7(S2.5)fQ(X6,X7)72310"THE ENTERPRISE HAS BEEN ABSORBED BY A BLACK HOLE ****"5340 ((X6B9).5)12450 ((X7B8).5)12450 "DO YOU WISH TO DOCK ";-- ---- ---- ---- ---- ----"&Q$1990-- ----"1P$"6 ALTAIR REGULUS"`P$"---- ---- ---- ---- ---- ---- ---- ----"P$"7 SAGITTARIUS ARCTURUS "P$"---- ---- ---- ---- ---- ---- ---- ----"P$"8 POLLUX SPICA "Q$"---- ---- --r$"3 PROCYON CAPELLA"UOw$"---- ---- ---- ---- ---- ---- ---- ----"O|$"4 VEGA BETELGEUSE"O$"---- ---- ---- ---- ---- ---- ---- ----"O$"5 CANOPUS ALDEBARAN"P$"---- ---- ---- ---- ---- ---- -- 3 4 5 6 7 8"MNT$"---- ---- ---- ---- ---- ---- ---- ----"vN^$"1 ANTARES SIRIUS"Nc$"---- ---- ---- ---- ---- ---- ---- ----"Nh$"2 RIGEL DENEB"Nm$"---- ---- ---- ---- ---- ---- ---- ----"&O":9210!M#G2$"ALDEBARAN":92109M#G2$"REGULUS":9210RM#G2$"ARCTURUS":9210bM#G2$"SPICA"M#G51ĴZ59230,9240,9250,9260,9230,9240,9250,9260M$M$G2$G2$" I":M$G2$G2$" II":M"$G2$G2$" III":M,$G2$G2$" IV":NJ$" 1 2 Ln#G2$"VEGA":9210-Lx#G2$"CANOPUS":9210DL#G2$"ALTAIR":9210`L#G2$"SAGITTARIUS":9210wL#G2$"POLLUX":9210L#Z49130,9140,9150,9160,9170,9180,9190,9200L#G2$"SIRIUS":9210L#G2$"DENEB":9210L#G2$"CAPELLA":9210M#G2$"BETELGEUSE"(Q$,S8,3)A$ıK"Z31:MK2# QUADRANT NAME IN G2$ FROM Z4,Z5 (=Q1,Q2)zK<# CALL WITH G5=1 TO GET REGION NAME ONLYKF#Z54ĴZ9040,9050,9060,9070,9080,9090,9100,9110KK#9120KP#G2$"ANTARES":9210KZ#G2$"RIGEL":9210Ld#G2$"PROCYON":9210NG RANGE SENSORS":.J^"G2$"PHASER CONTROL":GJ`"G2$"PHOTON TUBES":bJb"G2$"DAMAGE CONTROL":}Jd"G2$"SHIELD CONTROL":Jf"G2$"LIBRARY-COMPUTER":Jt" STRING COMPARISON IN QUADRANT ARRAYJ~"Z1(Z1.5):Z2(Z2.5):S8(Z21)3(Z11)241:Z30K3ĺ"ERROR":*I!S81Q$A$(Q$,189):HI!S8190Q$(Q$,189)A$:lI!Q$(Q$,S81)A$(Q$,190S8):IL" PRINTS DEVICE NAMEIU"IV"R18792,8794,8796,8798,8800,8802,8804,8806IX"G2$"WARP ENGINES":IZ"G2$"SHORT RANGE SENSORS":J\"G2$"LO, 'SENSORS SHOW NO STARBASES IN THIS QUADRANT.":1990iH! FIND EMPTY SPACE IN QUADRANT (FOR THINGS)H!R1R(1):R2R(1):A$" ":Z1R1:Z2R2:8830:Z308590H!H! INSERT IN STRING ARRAY FOR QUADRANTH!S8(Z2.5)3(Z1.5)241I!(A$)G C17G (A)(X)8450SG "DIRECTION = ";C1((((X)(A))(X))(X)):8460vG!"DIRECTION = ";C1((X)(A))G !"DISTANCE = ";(X2A2):H811990G !I:1990G4!B30ĺ"FROM ENTERPRIZE TO STARBASE:":W1B4:XB5:81209H>!"MR. SPOCK REPORTS(Y,X)";W1,X'F XXA:AC1W1:X083505F: A08410CFD X08280WFN A0C15:8290`FX C11uFb (A)(X)8330Fv "DIRECTION = ";C1((((A)(X))(A))(A)):8460F "DIRECTION = ";C1((A)(X)):8460F A0C13:8420F X0C15:8290u ::D$(4):RE$(13)_"PUBLIC DOMAIN SOFTWARE - APPLESOFT":"SIMULATION & ADVENTURE"sRE$D$"CATALOG" N603180%X "TARGETS UNAVAILABLE"/b 1730fl "PHASERS LOCKED ON TARGET. ENERGY AVAILABLE ";E3v "UNITS TO FIRE: ";X1 E3X13240 "INSUFFICIENT POWER AVAILABLE" 1730 X111730 "PHASERS FIRING" E3E3X1 N5035503040 X2X210* X3(G(X1,X2)1000)L N(JQ22)(G(X1,X2))X31000c S(X1,X2)N(JQ22)j J 6);": ";N(1);15);": ";N(2);24);": ";N(3);33);":" " --+--------+--------+--------+--"& I0 1730: D N503180 N NT ";Q1;"-";Q2=T " --+--------+--------+--------+-- KEY"l^ " : : : : K B S"}h IQ11Q11r X1I| JQ21Q21 X2J X102980 X1X110 X1113000 X1X110 X203020 X2X210 X211  Q2Q210 810 4 X1((C1).785398)L X2((C1).785398)R X e X1R(1)r X2R(1) Q(X1,X2)12790  " T(T)(0)72880, "ION STORM PREVENTS SCAN"6 1730@ "LONG RANGE SENSOR SCAN FOR":"QUADRA110 Q1Q11 2530) S2026106 S2S210B Q2Q21L( 2570\2 S2112650i< S2S210uF Q2Q21P 2610Z QUADRANT ADJUSTMENTd Q102680n Q1Q110x Q1112700 Q1Q110 Q202720 Q2Q210 Q211810A$. A$"Y"A$"YES"23902B B81:B91:F91<L 2450LV C$"DOCKED"V` S1X6`j S2X7it F91r~ 810 F91:B81:B91 I S1(S1.5) S2(S2.5)  S102530 S1S110 Q1Q11 2490 S1112570 S1S936:::::"YOU HAVE LEFT THE MOON'S GRAVITATIONAL PULL"e:"YOU WERE NEVER SEEN AGAIN":o1300u936:Z18:::" ********CRASH*********"(7):ZALEW IT!!!!!"@>"CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN"cH" ANOTHER MISSION(Y/N)?";A$ma:X0fA$"Y" 100p:"CONTROL OUT ":787,X:785,Z:J(784):(810)51200q1300787,X:785,Z:784:(810)71200@)))(5B)730DHV-V1V(5B)DQ"TOUCHDOWN AT ";TD;" SECONDS"sF;" UNITS OF FUEL REMAINING"V10810 "CONGRATULATIONS!!!...A PERFECT LANDING"%"YOUR LICENSE WILL BE RENEWED"*(V1)2840 4"****SORRY, BUT YOU B FUEL***"" q"SEC FEET VEL FUEL"3 rN11500:NM (T);(H);(V);(F);p  5 :Z35H33500:XX1: X,Z X38X38 B0 540  936 :::" *****CONTACT******" HH.5(VV1) B5720 D(V(VVH(102B:Z35H33500:Z01000: X,Z:M1050:Q(16336):MP XX1:X38X38Y 900d 19:Bq B0650 B30B30 BFBF V1VB5 0FFB :HH.5(VV1) DH0665 NTT1 XVV1 bF0457 gB0640 l"***OUT OF3439:J(35(1)):J10J10 / ^ J,35I:IW h169,0,160,0,32,113,248,141,42,3,96q rW784794:P:W,P:W " BEGIN LANDING PROCEDURE" T0:H500:V50:F200 "SEC FEET VEL FUEL BURN" (T);:5:(H);:10:(V);:14:(F);  5 CONTACT YOU WILL RECEIVE A FINAL"B )"REPORT OF YOUR MISSION":c *" ARE YOU READY(Y/N)?";A$s +A$"Y"100 ,::" CHICKEN! YOU HAVE TO ANYWAY" d : 4:I3639: 0,39I:I 7:I012:J(35(1)):J10J10 J,35I:I , 7:I":"YOU HAVE A DOWNWARD VELOCITY OF 50FT/SP #:"200 UNITS OF FUEL REMAIN": $"AFTER EACH BURN A DISPLAY AND DATA WILL" %"BE REPORTED": &"YOU MAY BURN FROM 0 TO 30UNITS OF FUEL" '"EACH BURN WILL SLOW YOU DOWN BY 30FT/S/S"" (:"AFTER  16298,0@8)"LUNAR LANDING SIMULATION":h"DO YOU WANT INSTRUCTIONS(Y/N)";A$xA$"N"100:"YOU HAVE""TAKEN OVER MANUAL CONTROL 500FT ABOVE" "THE SURFACE. YOU WILL HAVE TO AVOID"!"THE LUNAR MOUNTAINS",      2T1 AAA1T1.5A0T1T1.A1A1A2T1<MM.5M2GTTT1` H03.287828E04810g%Ir*HH0Z~/H1R1Z4DR0AZ9D1RA1Z>T2M1BM0C" ";T;,;H;28);DH" ";H1;,;D1;28);T2MH03.287828E04880RR0A164.4UEL."M10725F0(M206MM.5M2@R4R3aR3.5R0((V0R)2)RA1A1R2(3R3R4)2.00526F1FCMA4A3A32R1A1RA2(3A3A4)2.0056F1FS(MR)XR1T1.5R2T1T1RRXH0H0XR1R1RqT1400635vNT120({T1T1N<PP3.14159180GS(P)RC(P)cM2M0T1FBR3.5R0((V0R)2)RA1A1A32R1A1RI1NM10715M1M1M2M10725FF(1M1M2)M2M1M2"YOU ARE OUT OF F";M$;"/SEC."00" FUEL UNITS REMAINING."61W5"PRESS ANY KEY TO CONTINUE"_7A$i8936r:670x?D"T,P,A";IT1,F,PNFF100ST10905XT101090](F.05)1945b(F.05).05945g(P)180925lN20 THE MISSION AT ANY TIME, ENTER 0,0,0",Q"OUTPUT:TOTAL TIME IN SECONDS."o" HEIGHT IN";M$"."!" DISTANCE FROM LANDING SITE IN ";M$;"."&" VERTICAL VELOCITY IN";M$;"/SEC."' +" HORIZ. VELOCITY IN IS PROHIBITED."J"INPUT: TIME INTERVAL IN SECONDS----(T)"x" PERCENTAGE OF THRUST--------(P)"" ATTITUDE ANGLE IN DEGREES---(A)"Q$"YES"535"FOR EXAMPLE:""T,P,A ? 10,65,-60" & "TO ABORTY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL FOR AN ALTITUDE CHANGE."T"AVAILABLE ENGINE POWER: 0 (ZERO) AND ANYVALUE BETWEEN 10 AND 100 PERCENT."::"PRESS ANY KEY TO CONTINUE"A$::"NEGATIVE THRUST OR TIME);"^" 12);"-90 < -+- > 90".19);"!"<19);"0"`8);"<< DIRECTION OF ORBIT <<"f12);"SURFACE OF MOON":"ALL ANGLES BETWEEN -180 AND 180 DEGREES ARE ACCEPTED.""1 FUEL UNIT = 1 SEC. AT MAX THRUST"N"ANBm"-90 DEGREES IS ON A TANGENT IN THE DIRECTION OF ORBIT."r"+90 DEGREES IS ON A TANGENT FROM THE DIRECTION OF ORBIT."w"0 (ZERO) DEGREES IS DIRECTLY TOWARD THE MOON"|"PRESS ANY KEY TO CONTINUE"~A$15);"-180,180"19ON SYSTEM" Jz O"THE ON-BOARD COMPUTER WILL GIVE A RUNNING ACCOUNT OF INFORMATION NEEDED TONAVIGATE THE SHIP." Y: c"THE ATTITUDE ANGLE CALLED FOR IS DESCRIBED AS FOLLOWS:" h"+ OR -180 DEGREES IS DIRECTLY AWAY FROM THE MOON"M$" FEET" "G3.592* 'N$"N. MILES"3 ,G5ZA 1B13670S 6Q$"YES"485Y ; @"YOU ARE ON A LUNAR LANDING MISSION." A E"AS PILOT OF THE LUNAR EXCURSION MODULE, YOU WILL BE EXPECTED TO GIVE CERTAIN COMMANDS TO THE MODULE NAVIGATI"WHICH SYSTEM OF MEASUREMENT TO YOU FAVOR"H " 1=METRIC 0=ENGLISH "o " ENTER THE APPROPRIATE NUMBER ";v K| K0280 K1250 220 Z1852.8 M$" METERS" G33.6 N$" KILOMETERS" G51000 305 Z6080 ***" G "HAVE YOU FLOWN AN APOLLO/LEM MISSION BEFORE ";] " (YES OR NO) ";e Q$w Q$"YES"190 Q$"NO"205 "JUST ANSWER THE QUESTION, PLEASE, "; 160 "INPUT MEASUREMENT OPTION NUMBER "; 225 * 6 (V01.29 -T0 2H060+ 7RR0H08 <A3.425A AR10T FA18.84361E04] KR30f PA30r UM17.45| ZM0M1 _B750 dT10 iF0 nP0 sN1 xM20 }S0 C0 Z$"YES"1150 "*** LUNAR LANDING SIMULATION 93618);"LEM"#:"LEM, AN INTERACTIVE GAME THAT SIMULATES A LUNAR LANDING AND IS SIMILAR TO THAT OF THE APOLLO PROGRAM." "THERE IS ABSOLUTELY NO CHANCE INVOLVED" Z$"GO"B11M17.95F15.25N7.5 #R092         (23):"PRESS ANY KEY TO CONTINUE...":2620(6):958::"(3) THE PROGRAM ONLY CHECKS THE FIRST":" THREE LETTERS OF THE STOCK":" NAME, SO IT IS ONLY NECCESSARY TO"4" TYPE IN THE FIRST THREE LETTERS OF":" THE NAME."::" ";::"WA:" THIS SUMMARY DOESN'T NECCESSARILY"~" REFLECT THE WEEK'S INCOME, SINCE":" STOCK DIVIDENDS AREN'T PAID UNTIL"" THE END OF THE QUARTER. WHAT THE":" SUMMARY DOES REFLECT IS YOUR CHANGE":" IN NET WORTH (ASSETS + CASH)."*PONSES":" DIRECTLY OFF THE KEYBOARD, AND WILL"" NOT ACCEPT AN INCORRECT INPUT.":" YOU WILL GET '???' PRINTED FOR AN":" INCORRECT RESPONSE."):"(2) AT THE END OF THE WEEK, YOU WILL GET";:" A SUMMARY OF THE WEEK'S BUSINESS."":11);"ARE ";(226);"THROUGH FOR THE DAY";(226);","r11);"AT WHICH TIME THE GAME":11);"WILL PROCEED TO THE NEXT":11);"DAY."|(23):"PRESS ANY KEY TO CONTINUE...":26202(4):958:(5):"PROGRAM NOTES:"::"(1) THE PROGRAM PICKS MOST RES"T12);"(2) SAVE CURRENT GAME TO":16);"DISK FILE. THIS SAVES":16);"GAME VARIABLES SO THAT":16);"THE GAME CAN BE RESUMED":16);"IN PROGRESS."^(23):"PRESS ANY KEY TO CONTINUE...":26206h(12):958:(12):5);"(RETURN) - SIGNALS THAT YOUSTOCK, THERE IS A BROKER'S":11);"FEE PER TRANSACTION."::l@(23):"PRESS ANY KEY TO CONTINUE...":2620J(12):958:(12):5);"(E) - STOP GAME. YOU MAY STOP":11);"THE GAME AT ANY TIME. YOU":11);"HAVE TWO OPTIONS:":12);"(1) END CURRENT GAME.(23):"PRESS ANY KEY TO CONTINUE...":2620,(12):958:(12):5);"(S) - SELL STOCK. YOU MAY SELL ANY":11);"AMOUNT OF YOUR STOCKS, AT":11);"WHICH TIME YOU WILL RECEIVE"<611);"THE CURRENT MARKET PRICE":11);"PER SHARE. AS WITH BUYING":11);" ACTIVE COMPANY,"11);"PROVIDING YOU HAVE THE MONEY":11);"TO DO SO. THERE IS A BROKER'S":11);"FEE OF 6% OR $50.00 (WHICH-"11);"EVER IS HIGHER), PER STOCK":11);"TRANSACTION, WHICH IS":11);"COLLECTED AT THE END OF"+"11);"THE WEEK.":NS:":::" THIS IS A SIMULATION OF THE OPERATIONS":"OF THE STOCK MARKET (MORE OR LESS).":"THERE ARE 12 COMPANY STOCKS AVAILABLE":"FOR TRADE."" THE OPTIONS YOU HAVE ARE AS FOLLOWS:"::5);"(B) - BUY STOCK. YOU CAN BUY STOCK":11);"FROM ANY(1)"MONDAY":DAY$(2)"TUESDAY":DAY$(3)"WEDNESDAY":DAY$(4)"THURSDAY":DAY$(5)"FRIDAY" WEEK0:DAY0:M0NTH1:LAST31:QUARTER0: *** START OF YEAR 1979 *** ::(10):"DO YOU WANT INSTRUCTIONS? ":2620:KEY206650 :(3):15);::"INSTRUCTIO M0NTH$(1)"JANUARY":M0NTH$(2)"FEBRUARY":M0NTH$(3)"MARCH"t M0NTH$(4)"APRIL":M0NTH$(5)"MAY":M0NTH$(6)"JUNE" M0NTH$(7)"JULY":M0NTH$(8)"AUGUST":M0NTH$(9)"SEPTEMBER" M0NTH$(10)"OCTOBER":M0NTH$(11)"NOVEMBER":M0NTH$(12)"DECEMBER"V DAY$);"** MARKET CRASH **"` 10);"** BY DAVE MOGER **":10);"*******************":A1TIME:A A1ST0CKS:PRICE((1)1001)20:WASWASPRICE:TABLE(A,1)PRICE CHANGE((1)5)2:TABLE(A,5)CHANGE A:WAS((WASST0CKS)100)100:AVERAGEWAS=L CORP."X ZNAME$(7)"IBM CORPORATION":NAME$(8)"INTEL CORP.":NAME$(9)"LOCKHEED CORP." dNAME$(10)"MOTOROLA":NAME$(11)"STANDARD OIL":NAME$(12)"3-M CORPORATION" nA1ST0CKS:B14:TABLE(A,B)0:B:A x:::(8):10);"*******************":1008 2NAME$(ST0CKS),DAY$(5),M0NTH$(12),TABLE(ST0CKS,5)h <DISK$"":A$"":CHANGE$"":CHECK$"":IN$"" FNAME$(1)"ALCOA ALUMINUM":NAME$(2)"APPLE COMPUTER":NAME$(3)"CBS INDUSTRIES" PNAME$(4)"EXXON OIL":NAME$(5)"GENERAL MOTORS":NAME$(6)"HONEYWEL;@ C0:D0:A0:ASSETS0:B0:BEGINC10000:BUY0:WAS0:BROKER0CASH10000:CHANGE0:DAY0:FEES0:FLAG0:INCOME0:KEY0:LAST0MARKET1:M0NTH0:PRICE0:SELL0:SHARES0:255:QUARTER0 (ST0CKS12:TIME1000:WEEK0:YEAR1979:AVERAGE0:E0:F0:G0:H                 ALLOCATE POWER1("TAKE POWER FROM DEVICE: ";X1@(X101730i("AND ALLOCATE POWER TO DEVICE: ";X2x(X201730( X2X14650("IMPOSSIBLE, CAPTAIN"( 1730(*X234630(4"UNITS TO TRANSFER: ";X3(HX14690,4740(RE1E24720")" ROMULAN AT SECTOR ";X3;"-";X4;" DESTROYED"9'0P4P4.5E':I1N6Z'DR(I,1)X34480o'NR(I,2)X44480|'XR(I,3)0'bG(Q1,Q2)G(Q1,Q2)1000'lN3N31'v4490'I'Q(X3,X4)1'4950'1730'"TORPEDO MISSED"'4530( Q1,Q2)100&N2N21%&N205530/&44906&I@&4550b&"SIR, WHAT HAVE YOU DONE??"o&P4P430&"*** STARBASE AT SECTOR ";X3;"-";X4;"DESTROYED ****"&G(Q1,Q2)G(Q1,Q2)10&N1N11&N40&C4"GREEN"&4490,'&ORBED BY STAR - DISRUPTION SLIGHT"5%JP4P4(1)2?%T4530r%^" KLINGON AT SECTOR ";X3;"-";X4;" DESTROYED"~%hP4P41%rI1N5%|K(I,1)X34290%K(I,2)X44290%K(I,3)0%G(Q1,Q2)G(Q1,Q2)100%S(Q1,Q2)04260 &S(Q1,Q2)S(YX2$X.54550$$X10.545503$Y.54550D$Y10.54550n$" ";(X100)100;"-";(Y100)100;}$X3(X.5)$X4(Y.5)$"Q(X3,X4)4040,4160,4040,4310,4190,4390,4140$,"TORPEDO ABSORBED BY BLACK HOLE"$64550$%@"TORPEDO ABSX1;"UNITS ENERGY WASTED."#)#249503#<17309#FG#PP03950a#Z"TORPEDOS ECPENDED"k#d1730}#n"COURSE: ";C#C11730#C91730#2750#XS1#YS2#C$"DOCKED"4030#PP1#"TORPEDO AWAY, TRACK:"$XXX1:YLAN AT SECTOR ";R(I,1);"-";R(I,2)6"~R(I,3)R(I,3)X1?"X10I"3810O"x"X2R(I,2):X2R(I,3)(D(R(I,1))3)2"X1X23790"X1X1X2"3620"X2R(I,2):X1X1(D(R(I,1))3)2"3700"I"X1103840#"MR. SPOCK REPORTS ";D(R(I,1))33740!,!X1R(I,3)3700=!X1X1R(I,3)w!$" ROMULAN AT SECTOR ";R(I,1);"-";R(I,2);" DESTROYED"!.P4P4.5!8R(I,3)0!BQ(R(I,1),R(I,2))1!LN3N31!VG(Q1,Q2)G(Q1,Q2)1000!`N6N61!j3810!"tX1;" UNIT HIT ON ROMU K(I,3)K(I,3)X1 p X10$ z 3840* S X2K(I,2):X2K(I,3)(D(K(I,1))3)2c X1X23510p X1X1X2z 3340 X2K(I,2):X1X1(D(K(I,1))3)2 3420 3279 X103840 N603820 I1N6 R(I,3)03810! X2R(I,2):R ";K(I,1);"-";K(I,2);" DESTROYED". P4P41; K(I,3)0R* Q(K(I,1),K(I,2))1^4 N2N21m> N205530H G(Q1,Q2)G(Q1,Q2)100I S(Q1,Q2)03410J S(Q1,Q2)S(Q1,Q2)100R 3530\ X1;" UNIT HIT ON KLINGON AT SECTOR ";K(I,1);"-";K(I,2) f  X80 X9100* I1N5:X2K(I,2)D (D(K(I,1)))X93286X K(I,3)03286k X8I:X2K(I,2)} X9D(K(I,1)) I X803540 IX8:X2K(I,2) D(K(I,1))33460  X1K(I,3)3420 X1X1K(I,3)" " KLINGON AT SECTO0H LTN. v      1 H g |  D  ' ; N M.  ! 6 L ^ n      TA *l`tCCvDAsAS BBEBUHWAIGBRLCA'CHRDAFEFLIN2 KE LA`MAM0PRSESHTQUST@TIzWEYEw`AV8 EzF G{HDC A>!CI   10);" LUBRICANTS ";(100L.5)100;" GALLONS"68560^B10);" GASOLINE ";(100G1.5)100L10);"FUEL OIL ";(100F1.5)100V10);"OIL PRODUCTS ";(100O1.5)100`10);"KEROSENE ";(100K1.5)100j10);"LUBRICANTS ";(100L1.5)100S" 560-"THE PRODUCTS IN STOCK ARE:"_10);" GASOLINE ";(100G.5)100;" GALLONS"10);" FUEL OIL ";(100F.5)100;" GALLONS"10);" OIL PRODUCTS ";(100O.5)100;" GALLONS"$10);" KEROSENE ";(100K.5)100;" GALLONS"-.BRICANTS TO EXPORT ";L2&L205604L2L970=980"YOU ONLY HAVE ";(100L.5)100;" GALLONS OF LUBRICANT":940LLL2:PP(L2L1):560"THE PRODUCTS YOU CAN EXPORT ARE:""GASOLINE,FUEL,OIL,OIL PRODUCTS,KEROSENE,AND LUBRICANT(E$,1)"K"860W920\Ef"HOW MUCH KEROSENE TO EXPORT ";K2TpK20560bzK2K900k910"YOU ONLY HAVE ";(100K.5)100;" GALLONS OF KEROSENE":870KKK2:PP(K2K1):560(E$,1)"L"9301000"HOW MUCH LUEL OIL"#FFF2:PP(F2F1):5608 (E$,1)"O"790A850Gr "HOW MUCH OIL PRODUCTS TO EXPORT ";O2*O205604O2O8309840>"YOU ONLY HAVE ";(100O.5)100;" GALLONS OF OIL PRODUCTS":800HOOO2:PP(O2O1):560R"YOU ONLY HAVE ";(100G.5)100;" GALLONS OF GASOLINE":660YGGG2:PP(G2G1):560n(E$,1)"F"720w780}"HOW MUCH FUEL OIL TO EXPORT ";F2F20560F2F760770"YOU ONLY HAVE ";(100F.5)100;" GALLONS OF FU" ":(18):"ASSETS ";DR(P)8X34,20hv:(21):"WHAT TO EXPORT (E TO EXIT) ? ";E$tw:(21)x(E$,1)"E"1150(E$,1)"G"650710"HOW MUCH GASOLINE TO EXPORT ";G2G20560G2G690700=15);"-------";30);"----------"K::"GASOLINE";15);DR(G);30);DR(G1)t<"FUEL OIL";15);DR(F);30);DR(F1)>"OIL PRODUCTS";15);DR(O);30);DR(O1)@"KEROSENE";15);DR(K);30);DR(K1)B"LUBRICANTS";15);DR(L);30);DR(L1)-D(18):G1(1.25.38)(1).386F1(1.33)(1).33PO1(.95.48)(1).48jK1(.95.48)(1).48&L1(1.25.58)(1).580:(5)2"PRODUCTS";15);"GALLONS";30);"SELLING"4"IN STOCK";15);"ON HAND";30);"PRICE/GAL." 6"--------";: "COST OF IMPORTED OIL IS ";DR(B):"FOR 50 GALLONS."B :r "HOW MANY 50 GAL. BARRELS DO YOU WANT ";F7 F7(F7) F70320 F7BP480 490 "YOU ONLY HAVE ";(100P.5)100;" DOLLARS":440 CC(F750):PP(F7B):27205-STORAGE REPORT 6-DRILL WELLS"> d"7-SELL WELLS/REFINERS"c f"8-OWNER'S STATUS 9-SELL OUT"w |"10-PASS YEAR"} ~ "COMMAND ";Z:Z(Z):Z1Z10390 :(5) Z410,500,1160,1320,2280,2340,4650,4830,3000,4840  B(10(1)10)0);"ASSETS= ";DR(P)G "10);"GALLONS OF CRUDE OIL= ";(100C.5)100b ,10);"REFINERIES= ";R~ 610);"WELLS OWNED= ";W @ O: T"COMMANDS ARE: " ^"1-IMPORT OIL 2-EXPORT OIL PRODUCTS" `"3-BUILD REFINERIES 4-REFINE OIL"! b":(5), "DO YOU WANT INSTRUCTIONS? ";I$J (I$,1)"Y"ė:(2):3390~ :(10):"YEARS YOU WISH TO PLAY (5-100) ? ";B5 B55B5100220 P03050 10000 "<*> <*> <*> <*> <*> <*> <*> <*> <*>" " YEAR ";D 1 IN THE FAMILY.DON'T DISSAPOINT YOUR":"UNCLE BY MAKING BAD INVESTMENTS"a PY%(30,30),Z$(30,30)o RR(10,20)u Z nI010 xJ020 Z$(I,J)"." Y%(I,J)0 J I 10000 D1:P50000:C2000:R1:G0:F0:K0:L0:O0:W1:X10 ǣ8#DR(K)(100K.5)100,((5)[*"YOU HAVE JUST INHERITED AN OIL COMPANY."2"THIS OIL COMPANY WAS LEFT TO YOU IN A ":"WILL OF A DISTANT UNCLE"<"HE WISHED THAT YOU WOULD INVEST HIS ":"MONEY WISELY SO THAT YOU COULD KEEP"H F"IT                   (((Y),2,1)):P3(((Y),1))DY7,P1:Y71,P2:Y72,P3:Y7Y73:J(4)"NOMON C,I,O":(4)"BLOAD OREGON.Y":(4)"RUN OREGON.X"(17):G15:A7$:GG11000:G:16368,024:11:"PRESS '";::"SPACE BAR";::"'";:1X7к"SPEND ALONG THE WAY..."I2000::12:"PREPARING FOR THE JOURNEY..."YA:920:YF:920:YB:920:YC:920:YM1:920:YD9:920:940P10:P20:P30:((Y))1P3Y((Y))2P2(((Y),1)):P3(((Y),1))((Y))3P1(((Y),1)):P215)"$700 SAVED":16((T)))"- $"T" SPENT"hx14)"-----":T700T:18((T)))"$"T" BALANCE"xz:T0900~"YOU'VE SPENT TOO MUCH MONEY":"YOU ONLY HAVE $700 TO SPEND.":"TRY AGAIN..."2000:800"YOU HAVE $"T" DOLLARS LEFT TO":15):A7$&f(12):(15):"? ";:40000?hM1(ZN$):M10876j(17):"YOU SHOULD GET MORE THAN THAT":(12):(15):A7$:870l1000:(12):(36((M1))):"+ "M1p"------------------"15)"-----"tTAFBCM1:(29((T))):"TOTAL= $"T1v:U'LL NEED MORE THAN THAT":(8):(11):A7$:850NX1000:(8):(38((B))):BbZ(10):(9):A7$\(10):(9):"? ";:40000^C(ZN$):C0866`(17):"BRRR...BUY MORE THAN THAT":(10):(9):A7$:860b1000:(10):(38((C))):Cd(12):(AF(6):(5):A7$1H(6):(5):"? ";:40000HJF(ZN$):F0846L(17):"YOU'LL WANT MORE FOOD THAN THAT":(6):(5):A7$:840N1000:(6):(38((F))):FP(8):(11):A7$R(8):(11):"? ";:40000TB(ZN$):B0856.V(17):"YO"9*::"OXEN"::"FOOD"::"AMMUNITION"::"CLOTHING"Q4:"MISC. SUPPLIES"d<(4):(5):A7$>(4):(5):"? ";:40000@A(ZN$):A200A300836B(17):"SPEND FROM 200 TO 300 DOLLARS...":(4):(5):A7$:830D1000:(4):(38((A))):KNEES"::"ENTER ONE OF THE ABOVE -- THE BETTER""YOU CLAIM YOU ARE, THE LESS TIMES YOU":"WILL HAVE TO SHOOT AT THE ANIMAL."::"WHICH NUMBER?";:40000D9(ZN$)D95D91(D9)D9370 X11::" HOW MUCH DO YOU WANT TO SPEND ON-NG"JT"AT ANIMALS AS THEY MOVE ACROSS THE":"SCREEN BY PRESSING A KEY."k^::(15):"GOOD LUCK":9000r:(4):"HOW GOOD A SHOT ARE YOU?"::" (1) ACE MARKSMAN (2) GOOD SHOT":|" (3) FAIR TO MIDDLIN' (4) NEED PRACTICE0" (5) SHAKY L NEED." @9000:::p E:" YOU CAN SPEND ALL OF YOUR MONEY":"BEFORE YOU START YOUR TRIP, OR AT FORTS" J"ALONG THE WAY. (ITEMS COST MORE AT":"THE FORTS.)":O" YOU CAN HUNT ON YOUR WAY TO OREGON.":"WHEN YOU DO HUNT,YOU WILL BE SHOOTI CLOTHING - THIS VERY IMPORTANT FOR":" THE COLD WEATHER YOU WILL" 1" ENCOUNTER CROSSING THE":" MOUNTAINS." 6:" MISCELLANEOUS SUPPLIES - THIS ":" INCLUDES MEDICINE AND OTHER" ;" THINGS YOU WIL" BETTER ANIMALS."v :" FOOD - THE MORE YOU HAVE, THE LESS":" CHANCE THERE IS OF SICKNESS." :" AMMUNITION - $1 BUYS A BELT OF 50":" BULLETS.(YOU'LL BE SHOOTING" "" AT ANIMALS AND BANDITS.)"M ,:"00 TO SPEND FOR THE":"TRIP, AND YOU'VE JUST PAID $200 FOR A ":"WAGON."V 9000:: :" OXEN - YOU CAN SPEND $200-$300 ON":" YOUR TEAM. THE MORE YOU " " SPEND,THE FASTER YOU WILL":" GO, BECAUSE YOU WILL HAVE" P OVER":"THE OREGON TRAIL FROM INDEPENDENCE," "MISSOURI TO OREGON CITY,OREGON IN 1847."::" YOUR FAMILY OF FIVE WILL COVER THE" "2040 MILE TRAIL IN 5 OR 6 MONTHS --":::10:8:"IF YOU MAKE IT ALIVE":255 ::H " YOU HAD SAVED $9> ASSOCIATED PROGRAMS OREGON.X AND OREGON.Y A12900 L3432n ::16298,0::216,0:ZM20::R768:Y7600232,0:233,64A7$" ":(14):"O R E G O N":31800::. " THIS PROGRAM SIMULATES A TRI        2:B80ĴB83965,4350(f BB(T74050)9h T14MM25l HS0ĺ"LOUSY SHOOTING - - - YOU GOT KNIFED":K81:"YOU'LL HAVE TO SEE 'OL DOC BLANCHARD"v 3470 (1).8ĺ"YOUR LUCKY...":"THEY DIDN'T ATTACK.":4000 BB150:M1M115:3470 T1Z: " 3. CONTINUE":" 4. CIRCLE YOUR WAGONS"::"WHICH NUMBER? ";:GT52:40000:T1(A$)o? (1).8S5S51~D S513300I T113150J MM20:MM15:BB150:AA40:3470N T133200P HT1:D80] A15:A26:1000b ::12000:12500::10:3000( MM200(A220)5((1)10)= L10:C10:12000s (1)10((M1004)272)((M1004)212)14010& 10050:10000:10:"RIDERS AHEAD...THEY":S50:(1).8ĺ"DON'T ";:S510 "LOOK HOSTILE."::"TACTICS -"::" 1. RUN":" 2. ATTACK":BB8D9) 10050:10000:12000:125008 F135060 10:"DO YOU WANT TO EAT-"::" 1. POORLY":" 2. MODERATELY":" 3. WELL" :"WHICH NUMBER? ";:GT51:40000 E(A$):FF85E:F03050 FF85E:21:"YOU CAN'T EAT THAT WELL":500:4130,KP:A1PK,55:A2PK,55:16368,0:SH0:KP166TPK125PK173HS2:_HS1:xHS1Z1100:Z2183:(7):Z$"DIRECT HIT":30000:(7):S1S11:PK46:Z1100:Z2183:Z$"YOU MISSED":30000::A153170 FFS1(((1)10)5)!$PKPK((1)17):PK2601020?&3:A2PK,55:T2110:T2O.SH1İ1200w3HS0İ1400:HS1(A15A113)31705HS0HS0:T7T71:T7D9āG11000:G:14308T2110:T2:0:A2PK,55:10300:4130,KP:3:KPKP9:4130,KP:KP70ı*5000&PKPK((1)17):PK260102073:A1PK,55GSH1İ1200o HS0İ1400:HS1(A15A113)3170!HS0HS0:T7T71:T7D9āG11000:G:1430"T2110:T2:0:A1PK,55#X(16384):X127KP166āG120:X(16336):G:SH1:35000:233,50:0:0:DZ170:Z2172:Z$"PRESS ANY KEY TO SHOOT":30000q1:G2026040:SL(1):SH1:SL.5SH7FR((1)15):SHG,FR:SHG1,FR:G16368,0:KP166:HS0:SH0PK46X(16384):X127KP166āG120:X(16336):G:SH1:3(37),"";ZN$:(ZN$)(((ZN$)))540G(ZN$)0ZN$"0"550rZM:"I CAN'T UNDERSTAND YOUR ANSWER."!"PLEASE TYPE A NUMBER.":555:530&ZM:868:ZM1:868:CV1(CV23):ZN(ZN$):+CV1:36,CH:868::T70:1:0:232,100 TTM7:M1M123M7:12000:3000Y 15:"YOU DON'T HAVE THAT MUCH MONEY LEFT":500:t G11000:G:16368,0 24:11:"PRESS '";::"SPACE BAR";::"'"; X7(16384):X7128510 24:1:868:12 16368,0: 16368,0:CH(36):CV10000:11:"AMMUNITION? ";:525:A7(ZN$):TA70İ400:365_ rTTA7:B(B23A750):12000 w10000:11:"CLOTHES? ";:525:C7(ZN$):TC70İ400:375 |TTC7:CC23C7:12000 10000:11:"MISCELLANEOUS? ";:525:M7(ZN$):TM70İ400:385#3:300: $20:"TOUGH-YOU NEED MORE BULLETS TO HUNT":500T &20:868:10000:210i ,X350,1000,3000 ^10050:10000:8:"HOW MUCH DO YOU WANT TO SPEND ON-" c10000:11:"FOOD? ";:525:F7(ZN$):TF70İ400:355 hTTF7:FF23F7:12000< m 1. STOP AT THE NEXT FORT":" 2. HUNT":" 3. CONTINUE"k GT51::"WHICH NUMBER?";:40000:X(A$):290 11:"DO YOU WANT TO-"::" 1. HUNT":" 2. CONTINUE":GT50 :"WHICH NUMBER? ";:40000:X(A$)1 X(A$)1 "X2B40X2A12:A2'" 1:0:232,100:233,50:0:03P1261:Q199t(Y1600:50:AY:50:FY:50:BY:50:CY:50:M1Y:50:D9Y:952Y(((Y1))((Y11))((Y12))):Y1Y13:_:ZM20`12900iX11nT700(AFBCM1):BB50D3D31 K81S41                     \"INSUFFICIENT POWER AVAILABLE",)f17309)pE1E1X3C)z4760S)X3E34700`)E3E3X3t)X214770,4800)E3E3X3)4820)E4E4X3)Q8Q8X3)"TRANSFER COMPLETE")1730))"W -- WARP MANEUVER"*"I -- INPULSE MAN>?>???>7?>67>>>7?>?''--,,$%<<4556??'??>6?>???>7?>--.-.-.-...5-6??<''?'??'????<''.''&4..>??'??>>?>?77>7?7???'-,-,%%%%,$%,$?6555--...--->>7>>.??????'<$$ 66$>'',,----55>>'',,-,,'-?$7>$''?4$677-,6,6%666/$,$------%-%<$'',,-------.676666666666666-------,------%-----%----????7?????>??????7???????66666666666666$$$$$$$$$>'''?'$<<<<66.6666666666666666&$$$$$$$$$$$$$$$$$$,------------------------5666666666666666666$$$$$$$$$$$$$$,--------,-----------%-----=?????7???????????7????????'$$$???7???????????%%$%$,$$$$$$,$%%%,$%,$%,$$,$,$%,$$,$%$<$<$$'dIIIIIIIIRIIIIQI!46666666767>>665666>6767>66676666676>????'???'???766565>676655555-55-5-5-66>????>?????>???>???76656656.6....665..---,--%---,----=????>???>??7????...........66555666565666??????>????>???????????7????????>???????>?????????????????7????????????????????#'''''''<<<<$$$-%-$?7?'<$<$<$$'$'$$''$$5..6=.>67>>>>>??7--??766666...6-5--,%-,,$$$$$$$$7?7=?7=??,'?,<'<$$,$%$%-,%-,,--,-5-IIIIIIIIIIIIII5-.5--..67>6./<$,-$%,$,$$'-.----.---.--5---.--5---.--5-----5--------------------------------------%----,--%----,---,,..-.%-.---.------->>>>777?>>....67777?7?>>77?>6><<<-,$%,,,-,%,,,?<<%,$-,%=?>??7?>>77>&%%$%%-,---,--5-<$%,.5-.55566-.??$<<'?<''$$%%%%%%--...5-.5??4,,$,>/-5???>7%%---,=>?76*6777555-%%%%-,$%-='45-55-..67??66>6677777-5-..-.56555-.6'?'''?$<$'$''77777>>6655-<<<$%%%-,,$'?<<$%%,,-???>>77>6'%%%%,%---,--$,-55555565=?<$?<''''$$$%$,-.5-.5-.-=>??''?>>>?>67777,,,$%4/%6-566.56675655%%%%,$%-$%$...5-5-.557?'?$--55-.<' ,-.-..>>?4?66>6677777..$%,476>77''''%%%>>>.-,477.676>67>??'????>??>?>>67>>&%%%-6>677??>>>6>>6>..$%%%,,%-,%-,%--,$%''65->.-.--,,$=665-.5-655?>>>6-,,,,$,<<<$'?,%-,,$,$$$%?4--,,''?<7776>6777...>>>>>>>$7,%%,,?<<-''$'$,$<<>?>'''..&?>66.55-6,,,$$$$,'''7?>?>>?7?,,%%-,,,,,?>?><'-,%%%%%%%?>?,,,,,%,$,<%>77?6$$,>>6.,47755766>>>??77?>>67/,-,45=>>>77766565.<<$$,,,,-,$'''7-556565....55-.%'?<<<<$',,$%<<,655-%%=>.55.6=>>.-.65-.<<$'>>'-,,?<'OI ''<'%%%%,$%$%-%-'''?d2h dAW  f  * 7 C R _ l z    " - ; H R ^ a h 6.655-655'?'75...5-..7?'?'65-....57?'?'?'76666     X1/Q9Q9X1C/X1;" UNIT HIT ON SHIELD ";((0)4)1;" FROM"M/5210T/Id/E105340/((Q8E4)Q8)100;" PERCENT DAMAGE."/Q9E45330/"CAPTAIN, WE CANNOT WITHSTAND ANOTHER BARRAGE!!"//0"*** YOU HAVE BEEN HIT ON SHIELD ";((0)4)1;" FROM"O.Z"ROMULAN AT SECTOR ";R(I,1);"-";R(I,2)^.dE405232h.n5380y.pE44005240.r"SHIELD ";((1)4)1;" BUCKLING!!".x"SHIELDS HOLDING AT ";E4.5300.X2R(I,2):X1R(I,3)(D(R(I,1))3)2/E4E4D(K(I,1))3)2-Q9Q9X1N-X1;" UNIT HIT ON SHIELD ";((0)4)1;" FROM"X- 5050_-In-N605310z-(I1N6--C$"GREEN"-2R(I,3)05300-7C$"RED"-<X2R(I,2):D(R(I,1))35260-FE4E4R(I,3)-KQ9Q9R(I,3)#.PR(I,3);" UNIT I,3);,K(I,3);" UNIT HIT ON SHIELD ";((0)4)1;" FROM"g,"KLINGON AT SECTOR ";K(I,1);"-";K(I,2)v,E405075,5380,E44005080,"SHIELD ";((1)4)1;" BUCKLING!!","SHIELDS HOLDING AT ";E4,5140-X2K(I,2):X1K(I,3)(ONG RANGE SENSOR INFO" +Q1730&+V=+`C$"DOCKED"4985h+j"STARBASE SHIELDS PROTECT ENTERPRISE"n+tw+yQ90+~N505150+I1N5+C$"GREEN"+K(I,3)05140+C$"RED"+X2K(I,2):D(K(I,1))35100+E4E4K(I,3),Q9Q9K(EUVER")*"L -- LONG RANGE SENSOR SCAN"M*"S -- SHORT RANGE SENSOR SCAN"f*"PH - FIRE PHASERS"*$"PT - FIRE PHOTONS"*."A -- ALLOCATE POWER"*8"C -- LIST OF COMMANDS"*B"G -- GENERATE POWER"*G"Q -- QUIT THE GAME"+L"R -- RECALL LEWED......LATER.""*(V1)2840M4:"***** SORRY, BUT YOU BLEW IT !!!!"S9>"APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."H::R"ANOTHER MISSION ";A$\A$"YES"390f:"CONTROL OUT.":A(5B)730DHV)V1V(5B)DP:"TOUCHDOWN AT ";TD;" SECONDS."V"LANDING VELOCITY = ";V1;" FEET/SEC." :F;" UNITS OF FUEL REMAINING."V10810 "CONGRATULATIONS! A PERFECT LANDING!"%"YOUR LICENSE WILL BE REN.5(VV1)DH0670"NTT1+XVV18bF0490EgB0640bl"**** OUT OF FUEL ****"T;4);H;10);V;16);F;22);"I"H2922);"+"B0540"**** CONTACT ****"HH.5(VV1)B5720D(V(VVH(102B)))˺"PRESS ANY KEY TO BEGIN MISSION") A$3 936` "SEC FEET SPEED FUEL PLOT OF DISTANCE"f  T0:H500:V50:F120 T;4);H;10);V;16);F;22);"I";H2922);"+" B B0650 B30B30 BFBF V1VB5 0FFB :HHEL" g h"(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR, BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL YOUCONTACT THE LUNAR SURFACE.": :"BEGINNING LANDING PROCEDURE.....": : "G O O D L U C K ! ! !"! ::"(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SEC OR 30 UNITS OF FUEL PER SECOND." J"(4) WHEN YOU CONTACT THE LUNAR SURFACE,YOUR DESCENT ENGINE WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A REPORT OF YOUR LANDING SPEED AND REMAINING FUL BE REPORTED" "(2) AFTER THE REPORT, A '?' WILL BE TYPED. ENTER THE NUMBER OF UNITS OF FUELYOU WISH TO BURN DURING THE NEXT SECOND.EACH UNIT OF FUEL WILL SLOW YOUR DESCENTBY 1 FT/SEC." "::: ,:"PRESS ANY KEY TO CONTINUE" 1A$[ 6CONTROL 500 FEET ABOVEA GOOD LANDING SPOT. YOU HAVE A DOWNWARDVELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN."y "HERE ARE THE RULES THAT GOVERN YOUR VEHICLE:" "(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND REMAINING FUEL WIL 936 16);"ROCKET"(::OF" LUNAR LANDING SIMULATION"xP" ----- ------- ----------":d"DO YOU WANT INSTRUCTIONS (YES OR NO) ";A$nA$"NO"390s "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL       SA(1,1)7000'" SA(8,1)80002T I17D SA(I,1)ĂIV D1SA(I1,1)m DTA(I,1)A(I1,1) SDA(I,2)A(I1,2)N P1D1DT SRSDP1A(I1,2) SXSR AC03300 SR(AC1.6688ZF)(SDP1A(I1,2)) (16287)12733101)2270!I12:X(16336):I1I1300:I;2350GI160ZX(16336):Id2350wI14:J112X(16336):JI. I(0)` AC0 I95AC(((94I)17).5) I160AC((I161)17).5 AC(10AC)10 SSAC$;16);D$;32);D$:4:T;16);(D);32);WR8:D$;33);D$:8:AC;33);(10S)1011:1);D$;31);D$:11:1);(FPM);31);(H)DN16399914:,LDTG(10DH)10O1Ģ15:" TARGET L/D: ";TGSA(1,1)42260SA(7, DHLDXD$" "$LD08@W((1)40)25@r:k"TIME DISTANCE WIND"u:::"ACCELERATION AIR SPEED":"VARIO-FPM HEIGHT"4:f" L/D"(4:D33,119,15.83,128,20.62a 36,3,40,1.6,52,1.853,74,3.33,90,5.333,108,8.333,129,14.167,138,18.11wH((1)350)400FS50ZDN0xFPM0T0ZF.9ACC0W((1)40)25LD(A(3,1)W)A(3,2)1.689X(1):X.35X.901480LAY: THE TARGET L/D TO THE":"THRESHOLD OF THE RUNWAY"A30000 28,4.67,33,2.9,43,3.36,54,4.58,64,6.67,77,10.6,99,20.5,108,28 35,3.8,40,2.033,51,2.341,61.5,3.333,76,5.483,95,10,120,20,128,25.32 33,3.8,40,2.08,52,2.446,64,3.33,78,5,95,8.POILER SPEED ";A(6,1)<"MAX NEVER EXCEED ";A(7,1)d:"GOOD LUCK AND SOFT LANDING(S)!":"FOR BEGINNERS ONLY, TYPE 'H' 'CR' IN""RESPONSE TO PRESS RETURN AT THE BOTTOM""OF THIS PAGE. THIS WILL ADD ONE MORE"6"COCKPIT DISPJ12P(I,J)J"I-&I188+J12R0A(I,J)P(I(C8)8,J)Y5J`:IX::"HERE ARE SOME IMPORTANT NUMBERS TO":"REMEMBER FOR YOUR PLANE:"::l" KNOTS"q"STALL ";A(1,1){"MAX S-::"YOU MAY CHOOSE YOUR SAILPLANE:"::H" 1 SCHWEIZER 1-26E"Ni" 2 SCHWEIZER 1-35 "o" 3 SCHEMPP-HIRTH STD. CIRRUS B"" 4 SCHLEICHER AS-W17""WHICH SAILPLANE";:CC1C4250,I132SECOND"# z:"AIR SPEED IN KNOTS"F }:"VARIOMETER IN FEET/MINUTE"k :"HEIGHT ABOVE GROUND IN FEET" :"L/D CALCULATED BY ON BOARD COMPUTER" :"VARIOUS MESSAGES. THERE IS ALSO A STALL":"ALARM WHICH SOUNDS WHEN NEARING A STALL" 30000LIGHT DISPLAY WILL INCLUDE:"K p:"TIME IN SECONDS SINCE START OF FLIGHT" s:"DISTANCE IN FEET TO THE THRESHOLD OF ":"THE RUNWAY" u:"RELATIVE WIND IN KNOTS. MINUS WINDS ARE":"HEADWINDS AND POSITIVE ARE TAILWINDS" x:"ACCELERATION IN KNOTS/ING THE PADDLE CLOCKWISE INCREASES":"YOUR AIRSPEED BY .5 TO 6 KNOTS/SEC"O b d"TURNING IT COUNTER-CLOCKWISE DECREASES":"YOUR AIRSPEED BY .5 TO 6.1 KNOTS/SEC" e f"THE MID-RANGE POSITION WILL MAINTAIN":"YOUR AIRSPEED" i30000 n"YOUR F RUNWAY 1500 FT"" Z"IN LENGTH."( [ \"YOU WILL USE THE SAILPLANE'S ELEVATOR":"AND SPOILERS TO CONTROL YOUR SPEED":"AND RATE OF DESCENT." ] _"PADDLE (0) CONTROLS THE ELEVATOR AND":"THE PUSH BUTTON ACTIVATES THE SPOILERS" `I a"TURN::" A DYNAMIC SOARING SIMULATION"P 415:" BY BRAD SCHAPER" 724:"DO YOU WANT INSTRUCTIONS(Y OR N)";:Q$ <Q$"N"200 P U"WELCOME TO LAND THE SAILPLANE" W:"YOU ARE THE PILOT OF A SAILPLANE ON ":"FINAL APPROACH TO A+ BY BRAD SCHAPER- 7266 VOLCLAY DRH SAN DIEGO, CA. 92119g VERSION 1.0 - JULY, 1980 SAILPLANE PERFORMANCES DERIVED FROM POLARS BY RICHARD JOHNSON AS PUBLISHED IN SOARING P(32,2),A(8,2)-( 210:13);"SAILPLANE LANDER"          (SAP) SAP70SAP70M#SRP((M(M7)9(M(M4)2))M(M9)100CURSE)`$SRP80SRP80~%"ATTACK BY ";NOUN$(M(M))'R1((1)100):R2((1)100):R3((1)100)(KPR13920-SAPR23940/STA(M(M1))1ı2SRPR339607 NLOCS(MRM):3855$ NLOCW(MRM)2NLOC1ıUSTA(M(M))NLOCSTA(M(M))MRM:iM(M4)M(M4)1KP(M(M5)(STA(M(M1))1)409(M(M4)2))M(M9)100CURSEKP(KP)KP60KP60SAP(M(M6)9(M(M4)2))M(M9)100CURSESAPMRMLOC3860W120W(M(M2)M(M3))(6W)0(M(M2)M(M3))(6W)53835^WM(M2)(M(M2)M(M3))(6W)M(M2)(M(M2))M(M2)0ıG((1)4)1G3850,3851,3852,3853 NLOCN(MRM):3855 NLOCE(MRM):3855 M1MM10910( STA(M(M))0İ3800/ MR STA(35)0STA(34)2STA(35)2\ 4000u MONSTER SUBROUTINESTA(M(M))100MRMSTA(M(M)):3810MRMSTA(M(M))100(STA(M(M1))MRMSTA(M(M1))100MRM)M(M4)03900MRM0MRM052900 NOUN332520/ VERB12LIGHT19 2900L NOUN292530] RAFT1:2900p NOUN302540 ROPE1:2900 ( VERB6LOC23T NOUN11ROPE0^ STA(30)LOCROPE1h LOC123000r W(12)6:S(12)11 RE-ACTION M(M9)024607 NOUN$(M(M));" HAS BEEN ELIMINATED"G STA(M(M))0N MU D] WTx NOUN16VERB102500 STA(16)0:R((1)4)1 R2494,2495,2496,2497 N(LOC)0:2500 E(LOC)0:2500 S(LOC)0:2500 W(LOC)0 NTYP ~ D24( STA(WT(WTD))LOC2470< M1MM10910U WT(WTD)M(M)2460w HT((1)WT(WT1)(CURSE1)) M(M9)M(M9)HT M(M4)0M(M4)1 "ASSAULT ON ";NOUN$(M(M));", ";HT;" UNITS" "ITS LIFE FORCE IS NOW ";M(M9);"%" STA(NOUN)1:30004. VERB9VERB10VERB142370>8 2400VB STA(NOUN)11070hL STA(NOUN)LOC{O NOUN332420Q VERB10STA(33)0S LIGHT0V 2420` VERB122600j STA(NOUN)11070t WT1NUMW545y NOUNWT(WT)248022651070'LOC23LOC2:30007LOC5:3000PVERB8VERB112320Z 2350 NP8ĺ"YOU CAN'T CARRY ANY MORE!":1080 NOUN34(LOC19LOC10LOC5LOC18LOC7LOC6LOC11)2345 STS(NOUN)LOC1070 NOUN28M(50)01070) NLOC122900% M(50)529009 PLOC6S(12)0N PLOC11W(12)0X 2900 (NOUN9NOUN10)ROPE0LOC231070 NOUN92250 LOC5LOC131070 LOC5LOC4 LOC13LOC50 3000 NOUN102300LOC4LOC23OC):2190 HNLOC0:21900 RNLOCE(LOC):2190J \NLOC15:LOC8NLOC8T a2190j fNLOCS(LOC):2190 pNLOC22:LOC8NLOC8 u2190 zNLOCW(LOC):2190 NLOC12:LOC8NLOC8 RAFT1NLOC(NLOC) RAFT0:PLOCLOC NLOC0LOCNLOC1(IN$)(VERB$(J))1P (IN$,L,(VERB$(J)))VERB$(J)W1$VERB$(J):VERBJ:W L^ Jd o  MOVEz NLOC0 NOUN82200 LK0 NOUN202100 LOC11LOC81070 4NOUN2110,2120,2130,2140,2150,2160,2170,2180 >NLOCN(LQ020:VTYP(NTYP2Q)NTYP2000* )QD ."ICH VERSTEHE NICHT"N 83000X 2000g @NOUN0ıs JJ1NN TL1(IN$)(NOUN$(J))1 ^(IN$,L,(NOUN$(J)))NOUN$(J)W2$NOUN$(J):NOUNJ: hL rJ | VERB0ı J1NV L 2I$ <I$"N"900# F33000. 320008 4000Q IN$:IN$" "IN$" "Y I1u (IN$,5)" LOOK"1005 LIGHT0LOC2LOC191005 :LDES$(LOC):LK1:4000 NOUN0:VERB0 1600 1700 NTYPNTYP(NOUN):VTYPVTYP(VERB)# $W2 SPELUNKER I:'12:14:"SPELUNKER I"J:19:"BY"j:11:"THOMAS R. MIMLITCH"20:12:"APPLESOFT VERSION"19:"BY"10:"WILLIAM TEMPLE DAVIS" 30000: INITIALIZE12 ("DO YOU NEED INSTRUCTIONS";                             XF3:1180 ~F4T1A441170/XF4:11805`7900:M$(X);" HAS JUST MERGED INTO ";M$(T1);"!":"PLEASE NOTE THE FOLLOWING TRANSACTIONS.":4:"OLD STOCK = ";M$(X):4:"NEW STOCK = ";M$(T1):9);"OLD"16);"NEW"24);"TOTA23:F20F20%&F3A33:F30F30<'F4A43:F40F40i)TQ(F1):T1F1:Q(F2)Q(F1)TQ(F2):T1F2.Q(F3)TTQ(F3):T1F38Q(F4)TTQ(F4):T1F4BF1T1A141110LXF1:1180VF2T1A241130`XF2:1180jF3T1A341150 tI,P)R3:B(P)B(P)(R3S1(I))(I:200Z::" *********** MAP OF GALAXY ***********"" A B C D E F G H I J K L":R219:R2;:C2112:" ";(L$,M(R2,C2),1);" ";:C2:::R234,20$F1A13:F10F10%F2A SHARES OF ";M$(I);" AT $";S1(I)<H"YOU NOW OWN ";S(I,P);eRR3$:(R3$,1)"M"R3$"":1000:820W(R3$,1)"S"R3$"":1440:820XR3(R3$):R3$""\R3S1(I)B(P)880f"YOU ONLY HAVE $";B(P);"-TRY AGAIN":830pR30900zS(I,P)S(2A42S1(I)S1(I)100:Q(I)Q(I)1:M(R,C1)I3N S1(I)3000T1I:1400]M(R,C)I3 I15:B(P)B(P)(.05S(I,P)S1(I)):I*I15:Q(I)0900:B(P)S1(I)900+B(P)S1(I)9004P$(P);" YOUR CURRENT CASH= $";B(P) >" BUY HOW MANYA13S1(I)S1(I)5002A23S1(I)S1(I)500LA33S1(I)S1(I)500fA43S1(I)S1(I)500A12S1(I)S1(I)100:Q(I)Q(I)1:M(R1,C)I3A22S1(I)S1(I)100:Q(I)Q(I)1:M(R1,C)I3A32S1(I)S1(I)100:Q(I)Q(I)1:M(R,C1)I3A33IA33"A43IA43RQ(I)Q(I)1:S1(I)S1(I)100:M(R,C)I3:700iI15:Q(I)0680I:M(R,C)3M(R,C)2:8007900:" A NEW SHIPPING COMPANY HAS BEEN FORMED!""IT'S NAME IS ";M$(I):S(I,P)S(I,P)5:Q(I)1::::2:800#A13A23A2A1İ1060?A13A33A3A1İ1060[A13A43A1A4İ1060wA23A33A2A3İ1060A23A43A2A4İ1060A33A43A3A4İ1060A14A24A34A44660M(R,C)3800A13IA13A23IA23t(R$,1)"S"İ1440:350/u(R$,1)""ī350@wR((R$,1))n|C((R$,1))64:I15:RR(I)CC(I)400I:"THAT SPACE WAS NOT INCLUDED IN THE LIST...":370A1M(R1,C):A2M(R1,C):A3M(R,C1):A4M(R,C1)A11A21A31A41M(R,C)A34A44230+ LA23A14A34A44230H OA33A14A24A44230e QA43A14A24A34230t TI:1000: ^P$(P); c" HERE ARE YOUR LEGAL MOVES:" hI15:R(I);(M$,C(I),1);" /";:I r"WHAT'S YOUR MOVE ";R$:(R$,1)"M"İ1000:35040- M(R(I)1,C(I))3M(R(I)1,C(I))3340U "A1M(R(I),C(I)1):A2M(R(I),C(I)1)} ,A3M(R(I)1,C(I)):A4M(R(I)1,C(I)) 6A12A24A34A44230 ;A22A14A34A44230 @A32A14A24A44230 EA42A14A24A34230 JA13A24 K0 PI:220* KK1:K489500@ PP1:PP11P1K I15r R(I)(9(1)1):C(I)(12(1)1) I1I101:R(I)R(I1)C(I)C(I1)230 I1:M(R(I),C(I))1230 I115:Q(I1)0340 I1:M(R(I),C(I)1)3M(R(I),C(I)1)33X$"Y"ĺ" RUN STAR LANES INSTR"F ::"HOW MANY PLAYERS (2-4) ";P1 I1P1::"PLAYER #";I;:" WHAT IS YOUR NAME ";P$(I) I::"NOW I WILL DECIDE WHO WILL GO FIRST...": I(P1(1)1):P$(I);" IS THE FIRST PLAYER TO MOVE." Z12000:Z:M$(4)"DENEBOLA SHIPPERS"N ZM$(1)"ALTAIR STARWAYS":M$(2)"BETELGEUSE, LTD" dL$".+*ABCDE":M$"ABCDEFGHIJKL":I19:J112 n((1)20)110M(I,J)1:130 xM(I,J)3 X$"Y"ĺ" RUN STAR LANES INSTR" J,I::"INSTRUCTIONS Y/N";X$ " DONATED BY!IFVJN!ARMSTROOG*:P(10:6:" * S T A R L A N E S *"|<M(10,13),S(5,4),N$(4(.D2*6*/P2+6*,Q(5)FM$(5)"ERIDIANI EXPEDITURES":I15:J14:S(I,J)0KD1(I)09R3(K*2339R*I)0:B(I)6000:J,I PM$(3)"CAPELLA FREIGHT CO."           THE FEDERATION TO WIN."42"CALL IT A DRAW...">25650`2:"CONGRATUALTIONS, CAPTAIN"2"THE KLINGONS HAVE BEEN DESTROYED, AND"2"THE ROMULANS HAVE FLED, MAKING THIS A"2"GREAT VICTORY FOR THE FEDERATION!!!"2"RATING: ";P43KS EXAUSTED, TAPPING WARP ENGINES"/1hE4E4E381rE30L1|E1E11E41.66U1E41[1a1t1P4P4(TT9)21P41056001"EVEN THOUGH THE KLINGONS HAVE BEEN"1"DESTROYED, AND THE ROMULANS HAVE FLED,"2"YOU HAVE BEEN TOO DAMAGING TODEFEATED, ";N2;" KLINGONS"C0"AND ";N3;" ROMULANS REMAIN ***"I0O0q0"DRAWING POWER FOR SHIELDS"0Q8Q8E410"E41.5E354600,"TAPPING PHASER BANKS"06E3E31E41.250@E410J0TE41.51E1E35340"1^"PHASER BAN LANES";X$"3"" RUN STAR LANES"('#R(#:"PRESS RETURN TO CONTINUE ";X$::$ EXISTING SHIPPING"B "LANE, HE IS AUTOMATICALLY ISSUED FIVE":r "SHARES IN THE NEW COMPANY AS A REWARD.": "TO SEE THE STOCKS HE OWNS PRESS 'S'": "DURING HIS TURN, TO RETURN TO THE": "MAP PRESS 'M'": .""PRESS RETURN TO RUN STAREXTABLISHED, THE PLAYER":H "MAY, GIVEN THE PROPER SPACE TO PLAY,":x "ESTABLISH A NEW SHIPPING LANE. HE MAY": "DO THIS BY OCCUPYING A SPACE ADJACENT TO" 9000: "A STAR OR ANOTHER UNATTACHED OUTPOST,": "BUT NOT ADJACENT TO ANER SHARE, AND EACH NEW OUTPOST":P "ADDS $100 PER SHARE TO THE MARKET VALUE"V  "OF THE STOCK OF THAT SHIPPING COMPANY."  "3. HE MAY ESTABLISH A NEW SHIPPING"  "LANE- IF THERE ARE FOUR OR LESS EXISTING" "SHIPPING LANES "THERE ARE ANY STARS OR UNATTACHED":Tg "UNATTACHED OUTPOSTS ALSO ADJACENT TO":l "THE SELECTED SPACE, THEY, TOO, WILL BE":q "INCORPORATED INTO THE EXISTING LANE.":s 9000t v "EACH NEW SQUARE ADJACENT TO A STAR ADDS":!{ "$500 PS ADJACENT"5 B: "TO ONE - AND ONLY ONE EXISTING SHIPPING":nD "LANE, THE SPACE HE SELECTS WILL BE":N "ADDED TO THAT SHIPPING LANE, AND WILL":S "BE DESIGNATED WITH THE FIRST LETTER OF":X "THE COMPANY THAT OWNS THAT LANE. IF":&b XISTING":5 "SHIPPING LANE, THIS SPACE WILL BE":c  "DESIGNATED WITH A '+'. HE WILL THEN":  "PROCEED WITH STOCK TRANSACTIONS, AS":  "LISTED BELOW.": & "2. HE CAN ADD TO AN EXISTING LANE" + 9000: 0 "IF HE SELECTS A SPACE WHICH I I.E., 7E,8A,ETC. THERE ARE FOUR":L "POSSIBLE MOVES A PLAYER CAN MAKE."R { "1. HE CAN ESTABLISH AN UNATTACHED"  "OUTPOST- IF HE SELECTS A SPACE THAT IS": "NOT ADJACENT TO A STAR, ANOTHER"  "UNATTACHED OUTPOST, OR AN E:3 "TO OCCUPY ON A 9 BY 12 MATRIX (ROWS 1-9":] "COLUMNS A-L). THE PLAYER, AFTER": "EXAMINING THE MAP OF THE GALAXY TO": "DECIDE WHICH SPACE HE WISHES TO OCCUPY": "RESPONDS WITH THE ROW AND COLUMN OF THAT" 9000# "SPACE,ANIES CA BE MERGED" E "INTO LARGER ONES, AND STOCK IN THE":v "SMALLER FIRM IS CONVERTED INTO STOCK IN": "THE LARGER ONE AS DESCRIBED BELOW." " EACH TURN, THE COMPUTER WILL PRESENT": "THE PLAYER WITH FIVE PROSPECTIVE SPACES"- ^"PURCHASING STOCK IN THE COMPANIES THAT"3 cb h"CONTROL THOSE TRADE ROUTES. DURING THE"h m r"COURSE OF THE GAME, STOCK APPRECIATES" w y"IN VALUE AS THE SHIPPING COMPANIES": |"BECOME LARGER." 9000 "ALSO, SMALLER COMPT /@:"STAR LANES IS A GAME OF INTERSTELLAR"5EcJ"TRADING. THE OBJECT OF THE GAME IS TO"iLM"AMASS THE GREATEST AMOUNT OF MONEY."OT"THIS IS ACCOMPLISHED BY ESTABLISHING"VY"VAST,INTERSTELLAR SHIPPING LANES, AND"[     X$;" IN THE GALAXY FOR ":"RESUPPLYING YOUR SHIP"Z:"HIT ANY KEY TO ACCEPT COMMAND ";tI(1):I$:I131300 HERE ANY TIME NEW QUADRANT ENTERED(Z4Q1:Z5Q2:K30:B30:S30:G50:D4.5(1):Z(Q1,Q2)G(Q1,Q2)nQ11Q18Q21Q281600"YOUR ORDERS ARE AS FOLLOWS:"j" DESTROY THE ";K9;" KLINGON WARSHIPS WHICH HAVE INVADED THE GALAXY""BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS ON STARDATE ";T0T9"THIS GIVES YOU ";T9;" DAYS. THERE ";X0$1" ";B9;" STARBASE";0R(1):J:I:K9T9T9K91,LB901200\~G(Q1,Q2)200G(Q1,Q2)G(Q1,Q2)100:K9K91B91:G(Q1,Q2)G(Q1,Q2)10:Q1R(1):Q2R(1)K7K9:B91X$"S":Z0$" ARE ":10"PLEASE TYPE YOUR NAME ";N$:5"CAPTAIN ";N$;"," WHAT EXISTS IN GALAXY. . .L/ K3= # KLINGONS B3= # STARBASES S3= # STARSt4I18:J18:K30:Z(I,J)0:R1(1)RR1.98K33:K9K93:980\R1.95K32:K9K92:980fR1.80K31:K9K91B30:(1).96B31:B9B91G(I,J)K3100B31R(1):S1R(1):S2R(1)6I19:C(I,1)0:C(I,2)0:IvC(3,1)1:C(2,1)1:C(4,1)1:C(4,2)1:C(5,2)1:C(6,2)1XC(1,2)1:C(2,2)1:C(6,1)1:C(7,1)1:C(8,1)1:C(8,2)1:C(9,2)1I18:D(I)0:IA1$"NAVSRSLRSPHATORSHEDAMCOMXXX"* SETUP),Z(8,8),D(8)LrT((1)2020)100:T0T:T925((1)10):D00:E3000:E0EP10:P0P:S9200:S0:B90:K90:X$"":X0$" IS "D(D)((K(I,1)S1)2(K(I,2)S2)2)R(R)((R)7.981.01) INITIALIZE ENTERPRIZE'S POSITIONQ1R(1):Q2º:"THE COMMAND WILL SHOW YOU A":"QUADRANT MAP. THE ENTERPRIZE IS":"SHOWN AS <*>.":::A$"PRESS ANY KEY TO BEGIN":229A1$:A$"SETTING UP GALAXY--STANDBY":15:229Z$" " JG(8,8),C(9,2),K(3,3),N(3C FORM.":"FOR EXAMPLE: 105 MEANS THE QUADRANT":"CONTAINS ONE KLINGON, ZERO STARBASES":"AND FIVE STARS."::"THE COMMAND WILL SHOW YOU THE":"CONTENTS OF ALL ADJACENT QUADRANTS.""THE ENTERPRIZE IS ALWAYS IN THE":"CENTER QUADRANT."H" IF YOU TYPE <9>."::A$"PRESS ANY KEY FOR MORE"::::229:A1$:"ONE VERY IMPORTANT INSTRUCTION: INFOR-":"MATION ABOUT THE NUMBER OF STARBASES,":"NUMBER OF KLINGONS, AND NUMBER OF STAR":"LOCATED IN ANY GIVEN QUADRANT IS SHOWN":"IN NUMERIIS TO DESTROY":"ALL KLINGONS BEFORE YOUR TIME RUNS OUT." :"MOST INTSRUCTIONS ARE INCLUDED IN THE":"GAME. YOU CAN SEE COMMANDS BY TYPING A":"LETTER. ALSO, THE COMPUTER WILL SHOW":"YOU THE COMPUTER FUNCTIONS AVAILABLE":"FROM THE COMMAND";"IS EIGHT BY EIGHT QUADRANTS IN SIZE" "EACH QUADRANT IS SUB-DIVIDED INTO EIGHT":"BY EIGHT SECTORS. YOU SPECIFY POSITIONS":"BY ENTERING YOUR Y AND X LOCATION."9 "THE UPPER LEFT CORNER OF THE GALAXY":"IS LOCATION 0,0."::"THE OBJECT OF THE GAME RTED TO APPLESOFT BY":"GERALD RAVARY 4/20/1980": "CORRECTIONS AND INSTRUCTIONS BY":"RICHARD ROBINSON FEB 1983":S14000::230 S(40(A$))2:S)A$: :A$"STAR TREK INSTRUCTIONS":229% :"STAR TREK IS PLAYED IN A GALAXY THAT": ,------*------,"E " ,------------- '--- ------'"l " '-------- --' / /" " ,---' '--------/ /--," " '----------------'": ::10);"THE USS ENTERPRIZE---NCC-1701"7 ::::"CONVE5 ************************; A Y N010:40);"":N " S U P E R S T A R T R E K " N010:40);"":N :N14000:N N030::N: 13);"SUPER STAR TREK"::: " J!B$803,G-* *K* SUPER STAR TREK *i* ** CONVERTED TO ** APPLESOFT BY ** ** GERALD RAVARY ** ON APRIL 20,1980 *                              E27.5X520907"INSUFFICIENT POWER FOR MOVEMENT"A 1730R*E2E27.5X5e4E1E1350(W)v>TT(W)1.5|HRQ(S1,S2)1\C$"MOVING"fTT05340pXS1zYS22750I1X5S1S1X1S2S2X2S1.52440 NW11730XW81730)bX5(W8)<lE12X52070KvE1E12X5XTT(W)kE1E1325(W)u2130{"COURSE: ";CC11730C91730"IMPULSE FACTOR: ";WWW10W.21730W.91730X5(W8) "KLINGONS LEFT ";N2I1"=========="E"COMMAND: ";A$QI111dA$D$(I)1790kIu4840I1800,1950,3130,3910,6940,2840,1450,4840,4570,7040,5340"COURSE: ";C&C117300C91730:"WARP FACTOR: ";W1;"-";Q2"17105,"SECTOR ";S1;"-";S2?61710[@"WARP ENGINES AT ";E1eJ1710T"IMPULSE POWER ";E2^1710h"PHASER BANKS ";E3r1710|"SHIELDS AT ";E41710"PHOTON TORPEDOS ";P1710N"E115340#"=========="/I110;J110OQ$(Q(I,J));"";VJa" ";I1520,1540,1560,1580,1600,1620,1640,1660,1680,1700"STARDATE ";T1710"CONDITION ";C$1710"QUADRANT ";Q280N6012904950" 1N401350HC$"DOCKED"1350Q(P13\2E2300f<1440vFN501370PN601390ZC$"RED"d1440nE13991430x"ENERGY LOW, SOUNDING YELLOW ALERT"C$"YELLOW"GPTP1440C$"GREE11100BR(I,3)175(0)51-LQ(X1,X2)64VIC`N701170OjI1N7Yt2790h~Q(X1,X2)2oI~N401230F9112302790Q(X1,X2)4B9X1B8X2G(Q1,Q2)(G(Q1,Q2))12602790Q(X1,X2)7N501"("SENSORS SHOW ";N5;" KLINGONS";6N52953@"S";I"."UI1N5_2790mK(I,1)X1{K(I,2)X2F911010K(I,3)175(0)51Q(X1,X2)5IN601120I1N6$2790.R(I,1)X18R(I,2)X2=F92))100)N6104RN4((G(Q1,Q2))10)N6100N510\\N7(G(Q1,Q2))N61000N5100N410fI1110:J1110:Q(I1,J1)1:J1:I1Q(S1,S2)3F91930Q(B9,B8)4N501030"DEFLECTOR SCREENS ACTIVATING":15);"** RED ALERT **"S";3 " HAVE SURVIVED THE INITIAL ASSAULT. ";v "YOU HAVE UNTIL STARDATE ";T0;" TO DEFEAT THE INVADERS. "; "AND REMEMBER, DO NOT HIT ANY BLACK HOLES!!" 190  * 4N205530 >N6((G(Q1,Q2))1000)HN5((G(Q1,Q1) JR(1)# G(I,J)G(I,J)10, N114 75e :"CAPTAIN, STARFLEET COMMAND REPORTS THAT" N2;" KLINGONS HAVE PENETRATED FEDERATION" "SPACE. THEY ARE ASSISTED BY ROMULAN" "FORCES. ONLY ";N1;" STARBASE"; N12ĺ" ";:763 .97530 N41" N7(R(1)1)/ N1N1N4= &N53620L 0X1(0)40] :X14.25590i DN6N61{ NX115.25610 XN6N61 bN3N3N6 lG(I,J)N61000N5100N410N7 v(0).45650 G(I,J)G(I,J).1 J:I N10720 IR(110 TJ110 ^X1(1)502 hN40:N50:N60B rX1.08390N |N5N51^ X1.28410j N5N51{ X11.28430 N5N51 X13.28450 N5N51 X113.28470 N5N51 N236490 N50 N2N2N5 N12530 (1)D(X1)((S1X1)2(S2X2)2)6 R(X1)((X1)10)1W T9T0(603(R(1)5)):TT9c E11250n E2300z E32000 Q81250:E41250 P13 B81:B91 Q1R(1) Q2R(1) "S1R(1) ,S2R(1) @N10:N20:N30:F90:P40 JI+; Q(10,10),G(10,10),K(5,3),R(2,3),Q$(7),S(10,10)b15:"PATIENCE I AM GETTING READY"h(}FI17:Q$(I):Id".","*",E,B,K,R,DnD$(11)xI111:D$(I):I W,I,PH,PT,G,L,S,C,A,R,QT0((1)20000)10((1)5000) !! ! ! ! ! !!!!!!!!!  ""7900:M$(X);" HAS JUST MERGED INTO ";eM$(T1);"!":"PLEASE NOTE THE FOLLOWING TRANSACTIONS.":4:"OLD STOCK = ";M$(X):4:"NEW STOCK = ";M$(T1):9);"OLD"16);"NEW"24);"TOTAL"32);"BONUS""PLAYER"8);"STOCK"15);"STOCK"23)F402)TQ(F1):T1F1:Q(F2)Q(F1)TQ(F2):T1F2M.Q(F3)TTQ(F3):T1F3h8Q(F4)TTQ(F4):T1F4}BF1T1A141110LXF1:1180VF2T1A241130`XF2:1180jF3T1A341150tXF3:1180~F4T1A441170XF461180)******** MAP OF GALAXY ***********"O" A B C D E F G H I J K L"q:R219:R2;:C2112:" ";(L$,M(R2,C2),1);" ";:C2:::R234,20$F1A13:F10F10%F2A23:F20F20&F3A33:F30F30'F4A43:F40I,P);.RR3$:(R3$,1)"M"R3$"":1000:820RW(R3$,1)"S"R3$"":1440:820gXR3(R3$):R3$""\R3S1(I)B(P)880f"YOU ONLY HAVE $";B(P);"-TRY AGAIN":830pR30900zS(I,P)S(I,P)R3:B(P)B(P)(R3S1(I))I:200#::" ***S1(I)3000T1I:1400&M(R,C)I3R I15:B(P)B(P)(.05S(I,P)S1(I)):Iy*I15:Q(I)0900:B(P)S1(I)900+B(P)S1(I)9004P$(P);" YOUR CURRENT CASH= $";B(P)>" BUY HOW MANY SHARES OF ";M$(I);" AT $";S1(I)H"YOU NOW OWN ";S(A33S1(I)S1(I)500/A43S1(I)S1(I)500bA12S1(I)S1(I)100:Q(I)Q(I)1:M(R1,C)I3A22S1(I)S1(I)100:Q(I)Q(I)1:M(R1,C)I3A32S1(I)S1(I)100:Q(I)Q(I)1:M(R,C1)I3A42S1(I)S1(I)100:Q(I)Q(I)1:M(R,C1)I3 )S1(I)100:M(R,C)I3:7002I15:Q(I)0680QI:M(R,C)3M(R,C)2:8007900:" A NEW SHIPPING COMPANY HAS BEEN FORMED!""IT'S NAME IS ";M$(I):S(I,P)S(I,P)5:Q(I)1::::A13S1(I)S1(I)500A23S1(I)S1(I)500A1İ1060$ A13A43A1A4İ1060@ A23A33A2A3İ1060\ A23A43A2A4İ1060x A33A43A3A4İ1060 A14A24A34A44660 M(R,C)3800 A13IA13 A23IA23 A33IA33 A43IA43Q(I)Q(I)1:S1(I((R$,1))7 |C((R$,1))64:I15:RR(I)CC(I)400q I:"THAT SPACE WAS NOT INCLUDED IN THE LIST...":370 A1M(R1,C):A2M(R1,C):A3M(R,C1):A4M(R,C1) A11A21A31A41M(R,C)2:800 A13A23A2A1İ1060 A13A33A3ϫ220 KK1:K489500/ PP1:PP11P1; T1000:G ^P$(P);j c" HERE ARE YOUR LEGAL MOVES:" hI15:R(I);(M$,C(I),1);" /";:I r" WHAT'S YOUR MOVE ";R$:(R$,1)"M"İ1000:350 t(R$,1)"S"İ1440:350 u(R$,1)""ī350 wRX$"Y"ĺ" RUN STAR LANES INSTR"F ::"HOW MANY PLAYERS (2-4) ";P1 I1P1::"PLAYER #";I;:" WHAT IS YOUR NAME ";P$(I) I::"NOW I WILL DECIDE WHO WILL GO FIRST...": I(P1(1)1):P$(I);" IS THE FIRST PLAYER TO MOVE." K0 PI::M$(4)"DENEBOLA SHIPPERS"N ZM$(1)"ALTAIR STARWAYS":M$(2)"BETELGEUSE, LTD" dL$".+*ABCDE":M$"ABCDEFGHIJKL":I19:J112 n((1)20)110M(I,J)1:130 xM(I,J)3 X$"Y"ĺ" RUN STAR LANES INSTR" J,I::"INSTRUCTIONS Y/N";X$ " DONATED BY KEVIN ARMSTRONG*:P(10:6:" * S T A R L A N E S *"|<M(10,13),S(5,4),N$(5),D1(5),S1(5),Q(5)FM$(5)"ERIDIANI EXPEDITURES":I15:J14:S(I,J)0KD1(I)0:S1(I)100:Q(I)0:B(I)6000:J,I PM$(3)"CAPELLA FREIGHT CO."" " " " """""""""7 4:X641730D3& 33&N507020-30N607020;3:E1E1500F3DTT.5U3NTT05340m3X"POWER GENERATED"w3b17303l"IMPOSSIBLE UNDER RED ALERT"3v173033X61103X71103S(X6,X7);X74);3X73:X631730IX