L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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- ( t Ϡ@跻~!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 ~(` d ֠z# u`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                   1890C#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 REFINERI"TO THE PROGRAM AUTHORS":11)"AND CONTRIBUTORS."b (::6)"";:A$: 2"ANY OF OUR PUBLIC DOMAIN PROGRAM DISKS FROM OUR LARGE LIBRARY CAN BE COPIED ONTO YOUR BLANK DISKS SENT TO US FOR A"Y <"COPY FEE OF ONLY 75 CENTSZ ::3:16)"75 CENT":6)"PUBLIC DOMAIN PROGRAM DISKS":::12)"DISTRIBUTED BY:"::12)"ASPEN SOFTWARE"::6)"729--1/4 E. PORTLAND STREET":8)"PHOENIX, ARIZONA 85006":7)"TELEPHONE: (602) 253-0651"1 ::10)"WITH SPECIAL THANKS":8) !!! 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<%A WALKAWAY" 2500$ "A FIGHT". 2500B "A HOT GAME !"L 2500a "WELL PLAYED!!"g  "DO YOU WANT TO PLAY ANOTHER GAME (Y OR N) "; X$ X$"Y"ī690 X$"N"2520 "THANKS FOR PLAYING" < I111F J111SORRY, I WON THAT ONE."!23201"A TIE !!";2500P "YOU WON IT!!!"] C1C1H1w C102350 @$ C1C1. C1(64C1)N18 "THAT WAS ";B C1112490L C1252470V C1392450` C1532430j "PERFECT GAME"t 2500 ~ "11H PRINT OUT BOARD$R3100@\ TEST FOR END OF GAMEOfC102190_pN1642190iz1000 END OF GAME WRAPUP"YOU HAVE ";H1;" PIECES AND I HAVE ";C1" PIECES--"H1C12290H1C12310"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 PUT2I1J1F1US1I5J5I6`J6@S3K1B1I3J3AXF2S2BWKIJ C1H1@N1@ZCHT1SUBROUTINE PRINT-BOARD :?& " A B C D E F G H"J0 I18R: I;]D J18hN " ";{X D$(A(I,J)1);b Jl v I    DONATED BY KEVIN ARMSTRONG ZD OP THRU THE RUN ^ S3S31*h I6I6I57r J6J6J5M| A(I6,J6)T12970b A(I6,J6)03070l 2910y S1S1S3 U13070 UPDATE BOARD I6I J6J K10S3 A(I6,J6)T1 I6I6I5 J6J6J5 K1 K  P A(II1,JJ1)T22710!Z J1)d I1Cn NO T2 FOUND FAILURELx F10R ` SUCCESSi F11o  SUBROUTINE SCORE-AND-UPDATE S10 K18 I5I4(K)" J5J4(K), I6II56 J6JJ5@ S30J A(I6,J6)T23070T LO8090(VA)((D1(V2(2A)))V),"SPLAT!":::1005g:"I'LL GIVE YOU ANOTHER CHANCE.":2000:"DO YOU WANT TO PLAY AGAIN? (Y/N) ";:Z$Z$"Y"3010Z$"N"2000"PLEASE?":Z$:Z$"Y"3010:Z$"N"2005936:10"GOO3fffff   d@ @HA@@@ HA@@@ H@@@@ H@@@@ HA@XA@MA``L@``L@``f`AIA``L@C16006300630`630`63006B3006d02d02d2202dFMAA A f`@ A f`@ PA f`@ PA f`@ AIef602f602f602f62f60[ d020f020f020f020f020P@`d`A@`d`A@`d`AIA``f`A@`d`H  L H  L H  L H L H L10`````F L@@`@`@`@d`@@@ L@ L@ L@ L@LH@L L@L L@L L@ L L@LL@L@L@L`` L@`@0000pL L L L LA    L L@ @l``Al``Al``Al``Al``a 0000C10   000``@d&&&&Xa`d`20 f`20 f`200200 f`2Bad``0&``0&`@0&`@0&``CL L L H ffL LXAALL@AXAALL@X@ALL@X@ALL@AXAAL72d`022d`022d`022d0022d`0r L L L L L XAAAM@@LAAAM@@LAAAM@@L`A@L@@LAAAM@1 l  l  l  l lD@ H@ H@ H@ H@ L HA@@@AALA@`X`X`X`X`F LddddH16d`2d`2d`2d 2d` @X Ha LLLf `L00@6&003&00660066003&0p!00000B``` @@@ LdlldH1060&030&030&2030&FAMAAY`d@@Y`d@Y`d@Y`d@@YAX  HX  HX  L L L HX HL``fYL``fYl``fYl``fYL``fL@`fYAL@`fYAL@`fIAL``fYAL@`fX  HX  HX  HX L HX LAMA@Y`d`@Y`d`@Y`f @CAI`d`@YA!060&030&030&030&030&F9<7,1210:24,2910/F7,1311:23,29116P1JZ9,98:27,278^d9,99:27,279un8,1010:26,2810x8,1011:26,28118Y1231START,BEGINSTART,BEGINY 6,30,5,31,4,32,3,33,2,34,2,34,2,34,2,34,2,34- 1)151)' TWONKY SUB ROUTINE[B1$"Y":B2$"N":B3$"L":B4$"R":B5$"F":B6$"B"oB7$"M":B8$"S"zB9$"":2FILL0390,39FILL 89,96:27,2768,107:26,287(8,108:26,28827,119:25,29LIZE AND A NEW ONE WILL TAKE HIS PLACE"PV"IF THE TWONKY EATS YOU, YOU LOSE!"`"IF YOU ESACPE YOU WIN..OTHERWISE YOU GET EATEN."jt" GOOD LUCK!!!"~255 RANDOM SQUARE SUBROUTINEZ((1)151)W(("YOU CAN:"E$"MOVE ONE SQUARE AT A TIME AND ESCAPE THE TWONKY"w."AND FIND THE ESCAPE HATCH OUT OF THE MAZE."8"OR, YOU CAN SHOOT AT THE TWONKY WITH THE GUN I HAVE"B"THOUGHTFULLY SUPPLIED, IF YOU SHOOT THE TWONKY"'L"HE WILL DEMATERIA TRAP SQUARE THAT MIXES UP THE WHOLE MAZE."j "AND A MONSTER CALLED 'TWONKY' THAT CHASES YOU, AND WILL" "GLADLY EAT YOU IF THE DISTANCE BETWEEN YOU FALLS" "BELOW TWO UNITS."" THE TWONKY IS IMMUNE TO ALL TRAPS, INCLUDING WALLS.":ESS": "AND CANNOT SEE... TO GET FREE YOU MUST LOCATE"d "THE ONLY ESCAPE HATCH IN THE MAZE."j  "SOME OF THE HAZARDS INCLUDE:" "WALLS THAT YOU CAN'T GO THROUGH." " SQUARES OF TRANSPORT THAT RANDOMLY RELOCATE YOU."+ " ONE SUPERAID THAT IT IS"Af "A STROKE OF GENIUS..MOSTLY IT'S INVENTOR'S"Gp zz "YOU HAVE LANDED ON THE PLANET OF TWINKY AND" " HAVE BEEN CAPTURED BY ITS KING." "HE HAS PUT YOU IN A MAZE THAT IS 15 X 15" " UNITS LONG, YOU ARE IN ABSOLUTE DARKNZ,W)6 X1Z Y1W , ::::\ " TWONKY "d :j * "DO YOU WANT INSTRUCTIONS?";Q8$4 (Q8$,1)B2$3720> (Q8$,1)B1$3370H 150R ::\ "THIS IS THE GAME OF TWONKY. SOME HAVE SW)03110: A(Z,W)4.D PLACE THE PLAYER8N 3730LX A(Z,W)03150Yb A(Z,W)1al XZiv YW PLACE THE ESCAPE SQUARE 3730 A(Z,W)03210 A(Z,W)5 X2Z Y2W PLACE THE TWONKY 3730 A(Z,W)03270 A(OF 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:(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$ I1D-BY":109:12%:255+ : 936:118@ D  O  O  Lt`Pt ` dL`d`v ` E0   ) 8Ϣ 8 8 ) eLC dLCt tLCv  vLC wLCz  zLC {LCx  xLC yLC uLC tLCH) h)8  `آ`0j 6P$t v}(08`LLLLC9)'LL+LHLeLL@Ћ nt+d$H)pJh) H)pJh)L` `d dLCf  fLC gLCj  jLC kLCh  hLC iLC@@D8p8DD8|@ 8DD8DD88DDx@ |8@xDx6|DDDDD|DDZOal̝d!9g)29)'LLLsgyqgO=|_}_@@pp@@@Oyp_}x8x3g\7w<g<x{xs`gg|p||GqwwwwGq@|GOyqs_}{o9xN3g\]7w]g\=^y{O{sgaggC}p^}_@8DdTLD8 0 p8D@0||@ 0@D8 0($| |< `t0T0tyb߽tL.tlS S tTLpJy PLh`qq("q1?r`1?r1?r%q1?r!,qqq0?rq0?r6UVW@dedeJdeMTdeM^qqhY[rd6ed7e |oPa()Pa()PrdUVWYnUVW- xo P a@*#rUVWKYYUVWYMM UVWYo P a()Pa()UVWYo P a()Pa()UVWY\_nQҮʮ N@"3r<@p( РӠŭΡ) (M6%2o P a(ŭΠ)47oPa(ԠŠҬî)<UVW Y FM6&PMd6?ed6?ed6?e Z\\FMd6?ed6?ed6?e P\4\ZUVWYdUVW+ xA]A]ŭA]ŭΠ<]ŭΠԠҮʮA ]<]7]ŭΠΠ٠A]ŭA]ŭΠԠҮʮР N@"/r8@p( РӠŭΡ) M6%(o P a(ŭΠ)<\ &@Τl4И`(ҌTӸԀHլt<נh0ٔEL (2<FPZdx,6^hr|$.8=B  4>HR\fp  & 0 : B$(I)A$"!""B"I!"-":::9"I115K"" !"B$(I)R"IZ":`"{"MODIFIED AND UPLOADED"TO PMS BY"DARRELL LONG"DOWNLOADED FROM"PEOPLES' MESSAGE SYSTEM"SANTEE CA"(714) 449 5689 B21 !@1)!J13,2325:15:13,2326:1A!T15,2127:16,2028Y!^17,1929:30,3418e!h:::!r" TWONKY"!|PAUSE13000:!!(4);"RUN MENU"!I115!B115!C$"-*WRSET"!A$(C$,(A(I,B)1),1) "B$(I) 3,33,4,32,5,31,5,31,6,30,8,28,10,26,12,24E  14,22,16,20,18,18K R 9j 12,1214:24,2414 11,1315:23,2515 9,1516:21,2716 11,1317:23,2517 12,1218:24,2418 12:12,16:24,16 "14 ,15,2118!617,19iK@sx<xp`~<xp`@xx~xx `~ @xiKsofx ~@xx~xx<xp`~<xp`@xPMOCn iw@Ir$H1cFFL b|@hKx ~xx~xg x ~xx~xESOL UOY ,YRROS !NIW UOY!NOMMAGKCAB A NIAGA - T'NACTCERROCNIHT4DR3DN2TS1 RETNE:LLOR RUOY TSRIF SEOG UOY RORRE LLOR UOY -EVOM DNA SLLOR RETU))`mem`dŃed}d` L '(8ddd!8do   8o `) x8嘅G  Jei  $d8dm eiLT"    ř! ŘL( o oL6L6 ۩oeo Lś Ś` dȘ8d 꽳 LN) d  Lifgifefgegg8`ee`  odo,78oL` )`8`e 襗``` iLiq8` [ ͂ ``L@)  3W)  P` < P < P PL%` L L擥L  . K ZLbȱGȱeԊŖ)eLLq Lb . K ``iƍL iB TL P  ȹH TL9 P b`) h 0 ^L|) h 0 ȹ$)Lqa`b = P L i) 0  h`  iJJJJ X t ` t L))))L.) ?ŃL  aŃ A 2  b   bm o @ @ bL  S T  @ƍL ń   `L@@@ Ji@mm8Jimmmmm834"%  diL:F w!3v5pA"14@Sgstpwruqv`gafbedc! v% %3%64 44R% E5U"C375 dL1Hd̝dHd HHH`  ` ʽʭ ʎ   d  L` .  `mmmmm8 mP0   mp0 ) L m0  ` mP0 (P `8twdt 8wdd`})I 0d08ip0($H  O  (h08```d`  O  OhhhdhhD":4000%O GET NEW CONTROL VALUES1OP(37)!CC0HSFDQH!16:10QR!"HIGHEST SCORE = ";HS8100PB2000PA1B:A:%P1P12:13CP"GAME OVER"MP8500]PDA(49152)mPDC(49168)|PDA12860P5600PX PRINT SCORE CARDPb:::PvZ110P{HT(Z4)1PHTP21PZPZPP@:HI-RES PRINT QT1O(45): -OSW050301O23:(FF4)69OFBKO23:(FF4)2SOFA\OSW0kOSX15500zOBB1ī700O190O22O(FF4)1OFF10Ė37O(47)OSW1Ģ23:(FF4)6:FBOSW6OSX15500O190O| ENDP~$+x ~xx~xa" HRx~xx ~xH$)I R(H!x~xx ~x)J%!x `~ @xx ~x@<1@` @p`)J@x<xp`~<xp`@xx~xx ~@x)J@A$ x ~@xx~xx<xp`~<xp`@x!Z% $` @I&  @I@i)$ @-Jx ~ xx ~@x) B x ~xx~xix ~xx~x/z=H^tx~xx `~ xH$) R*Hax~xx ~ xiKpPD%0(XT%CT%)UPXB%SHSH.2:UZGO%SHXT%(XT%CT%)23UUdGO%GO%(GO0)(GB%0)UnCT%25((XT%25)(SHGO%)(SH1).75)UsCT%25(CT%25)CT%(CT%25)UxXB%1XB%(XD2)((4).9)UGB%1GB%(GD%4)((4).9)UTTTTGO%U470V 100RL)5TPHPF%(100(PV%100)PV%(PV%100))350MTEHEF%200(RT%25)mT(RT%RT%RHEHPH5(RT%25)T-RT%25(RT%25)(RT%25)T2XT%((RT%25)PF%(CT%25)SF%)(PF%SF%1)25T<XB%XT%RT%.85 UFSHSF%(100(PV%100)PV%(PV%100))35D%PD%(PF%90)((20).95)f" THE SECONDARY COOLANT CARRIES HEAT"gf" FROM THE HEAT EXCHANGER TO THE "f" TURBINE AND THEN TO THE COOLING TOWER"f 2fI1123fY,Xf&X,Yf0J1200:Jf:IRgD 4,35,4,37,5,35,5,36,5,37,6,35,6,36,6,3e6I,34:I1,32e@I&eJI1DE:I.eT23`e^" THIS IS THE COOLING TOWER "geh5uer23,2524e|23,2536e25,2625e25,2635e26,2826e26,2834e28,3627e28,3633e34,36e26,36e25,3538 fHE HEAT EXCHANGER"d5'd28,34105d10,1834Cd28,3418Qd10,1828id2:28,12:28,16:5xdI1DE:Id23d" THIS IS THE GENERATOR TURBINE"d5,1830d30,3618d5,1836d30,365d0d"2,1733d,I7152,12,23,12,22,12,21,12,20,12,19fcs 12,18,12,17,12,16,12,15,13,15,14,15,15,15,16,15,16,16,16,17,16,18cx 16,19,16,20,16,21,16,22,16,23,16,24,16,25,16,26,16,27,16,28,16,29,16,30,15,30,14,30,13,30,13,30,12,30,12,29,12,28,12,27c:23d" THIS IS T231b" THE PRIMARY COOLANT CARRIES HEAT FROM"ab(" THE REACTOR CORE TO THE HEAT EXCHANGER"mb2I152vb<Y,XbFX,YbPJ1200:JbZIbdI1DE:Icn 4,25,4,27,5,25,5,26,5,27,6,25,6,26,6,27,7,26,8,26,9,26,10,26,11,26,12,26,12,25,12,24 aI136aY,XaX,Y-aJ1200:J4aIa 4,2,4,4,5,2,5,3,5,4,6,2,6,3,6,4,7,3,8,3,9,3,10,3,11,3,12,3,12,4,12,5,12,6,12,7,12,8,12,9a 13,9,14,9,15,9,16,9,16,8,16,7,16,6,16,5,16,4,16,3,17,3,18,3,19,3,20,3,22,3,24,3a I1DE:Ib:CORE "`.8 `8I915-`B11,17I4`LIC`VI1DE:IK``23q`j" THESE ARE THE CONTROL RODS "y`t13`~2,1711`2,1713`I1DE:I`23`" THE EMERGENCY COOLANT CAN COOL THE"`" REACTOR IN AN EMERGENCY."`2%(I)PZ%(I):PZ%(I)X::J'eI015:XPY2%(I):PY2%(I)PZ%(I):PZ%(I)X::S'f611'gSC0:PZ%(0)0:PZ%(5)0:PZ%(9)0:PZ%(12)0'hI14:PZ%(I)0PZ%(0)PZ%(0)1'j:PZ%(0)0SCSCK6'lI68:PZ%(I)0PZ%(5)PZ%(5)1'm:PZ%(5)0SCSCK7^^PS^^^^**":17:14:"**************":18:15:"* POKE *"&Y19:15:"* SECURITY *":20:15:"** ---- **":21:16:"* SINCE: *"&Z22:17:"* 1979 *":23:18:"******";::&]6&^V$"0"İ468&_594&cPN2613'dI015:XPX1%(I):PX1(H$)745973%M20:23:V$:463:20:24:V$:595I%NVV4:250:V:H:a%O290::SH$;::1:s%QV0V11598%R20:24::V$;:475%S473:V(V$):V1ĺV$;:O$:478%T606%U20:22::H$;:475%VFL%(10)0ı%W590=&X16::14:"**^^Q16Q161:Q162560$'542+$011:5174$2517=$4544D$6-]$8Q21Q211:Q212577f$:562t$APN2581$CFL%(2)Q0Q9Q16Q21$D585$EFL%(3)Q0Q9Q16Q21$I450$J:40::38:CCTI:200:900$K20:22:H$:H$;:(H$)65597 %L0%#460:"ENTER BATTLESHIPS";:587;#Q0Q01:Q04525T#20:1:868:Q04ı]#510j# 11:517#SH$"C":460:"ENTER CRUISERS";:587#Q9Q91:Q93540#517:526#SH$"D":11#517# 460:"ENTER DESTROYERS";:587:Q162ı$$::" BUT CAPTAIN, OUR COURSE HAS ALREADY BEEN 'ENTERED' BY THE ADMIRAL! ";:677`"-F-479"(O$)48V10:O$;:O$:(O$)13598"489"20:25::O$;:475"FL%(3)0ı"483#480:4300::FL%(10)0:SH$"B":S1:Q00:Q90:Q160:Q21к",";:20:24:3!:V;:Z71ľO$:(O$)13489 -OR- ";:1:20: Z70:(V$)0(V$)10V(V$):468 Z71:V$","ĺ",";: V$"0"V10:V$" ":Z70:468!Z71:XSH2(I):SH2(I)S%(I):S%(I)X::IFL%(4)FL%(4)1:S%(BM)S%(BM)100:j633:T1:I514:I:5:::637:16368,0:::9);"CORRECT < Y OR N > ";:10:844GO$"Y"ıGO$"N"454:9:34:450PN2456FL%(2)0:457 F410PZ%(E)FL%(9):428:E8&:3E1011FPZ%(E)0415bPZ%(E)FL%(9):428:E11j:wE1314PZ%(E)0420PZ%(E)FL%(9):428:E14:PN2425426I011:XSP1(I):SP1(I)S%(I):S%(I)X::!I011:%(13):29:"-";:NBPZ%(14):29[~18:1:"AMMO, (P-1) =";:820:24:"AMMO, (P-2) =";:825611:6:FL%(1)1::38:FL%(5)1FL%(5)0:900:" ";::E14PZ%(E)0405PZ%(E)FL%(9):428:E4:E68PZ%(E)0:14:" < STATUS > "+j:18:1:868:7y6:611xzNBPZ%(1):17:2:29:"-";:NBPZ%(2):29:"-";:NBPZ%(3):29{"-";:NBPZ%(4):29:16:NBPZ%(6):29:"-";:NBPZ%(7):29:"-";:NBPZ%(8):29|27:NBPZ%(10):29:"-";:NBPZ%(11):29:35:NBPZ"G"H28:NQ7$H$"H"H31:NQ8:H$"I"H34:NQ9QH$"J"H37:NQ10WlNE(V5)10NQ:!SS1:P%(NE)99:"285:810)PN2299*SP1(S)NE:289+SH2(S)NE:289,200:FL%(9)2FL%(7)03611435i:16:144:16MS%121778:". . . . . . . . . . ."@220\8:KI110:870::"."tVV1:BNBN1:::H$"A"H10:NQ1H$"B"H13:NQ2H$"C"H16:NQ3H$"D"H19:NQ4H$"E"H22:NQ5H$"F"H25:NQ6H$ ";:29HL39?43:HL,2:43:HL1,2:N0:166MCC0172^166:CCCC1166:2:1:868:HL1HL40HLHL1:183HL218218315:" ";:40::38:V5:255:BN1::I110:V:NBBN:3:29:"-"; 24:15:"I'M WAITING!";:12:55:194:2:TITI125:CCTI:168eK5255:2:1:868:XX237:XX:K5"=";:XX:" ";:K%9K5K55:XX30XX37:177:20:255:31:"** (HIT)";:22:20::" HIT !";::2:51:176CC5:152 " UCTC4:VCTC3:WCVC7:XCWC2:YCXC2M71211:X:TC,TC117:UC,UC1177VC,VC1118:VC1,VC1219:WC,UC1120:XC,UC9217YC,UC72272:I2337:0,39I::7X5:TC1119:1215:51::7X218:1228:79:X1,X1:80:46:Q32:CCTI?6:11);"PLAYER? < 1 OR 2 >":CCTI:Q31:152J6:PNN^6PN1PN2101066);"THERE IS NO SUCH COMMANDER! (";N;")";:55:54:10046PO%9CC0:80638:9006:::13006156I222:0,39I::6X5:TC19(7304,0:51:16303,0:356:614:611:6:SC096095M54500:PN29805:37::"THE GAME IS OVER":"THE U.S. (APPLESHIP) NAVY IS VICTORIOUS!"525005:37::X(0):40005::PO%510035PN1:91:PN2:91:PN0 638:CC9:Q30:1::N500,697,361,2000,950,7000,6990,860,5000k418:5);"SHOTS FIRED: P-1 = ";P1%(0);" P-2 = ";P2%(0)t49004PO%0İ20046:NPN:10054XX240:YY30:ZZ3:20:XX160:20:XX54:204953:37:956:38419:37:956:956:38:516OPEN FIRE";29);"6 NEW GAME"a3"3 RE-STATUS";29);"7 'PS' OFF":"4 MY SHIPS";29)"8 XC-SHOTS";o3K959303FL%(9)0FL%(9)2Ğ324:29:"0 S-COUNT ";33:CC09343CCTI:Q31:152:939339:145334,15::38-4F00:TI2002j:". ";:!2kV$;"B";:2122lV$;"C";:21C2mV$;"D";:21~2n".";::E875,875,875,875,876,876,876,877,877,877,8772o2CC0:PN010032255:38::144:20:18:"PLAYER ";PN;:21:1:X(9)3"1 ENTER SHIPS";29);"5 NEW PLAYER";:"2 )"01^5);" -OTHER KEYS RETURN TO MENU ONLY-";q1`844:(GO$)27ė:22:151:15:GO$;" = IGNORED !":55:9001a:1:K64:K73:K82:23:P111:17:"<*>DONE<*>";:55:P2P1:9001fTRTR1:V$" ":E1111gTR100S%(E)V$"+":8782hTRS%(E)87815:24:"HIT ANY KEY ";@0LZ(16384):Z127ľGO$:16368,0:I0M844~0PQQ0ZZ:XX152:YY120:25:XX192:YY120:25::0\K90Ė17:" TOO LATE!":75::9001]K63:K72:K81:P17:P27:" KEY 'ESC' TO RAISE SHOTS FROM 7 TO 11";15);"(SHORTER GAMEıH/+::20:26:"ALREADY DONE!";:55:20:22:868:FL%(10)0587Q/,724a//P%(NE)0ıl/0811:z/4P13830/5" ";P1;:/9P23831/:" ";P2;:/>391:P1;:832/?391:P2;:832/@::/B22:1:"< RADAR INDICATES: ";:0K.958:SCF4İ1200:633:::38:CC3:Q30:146:CCTI:Q31:900q.FL%(4)0İ18:22:20:" NO HITS ON ENEMY >".633:CCTI:900.6:611:6. I0100:XP2%(I):P2%(I)P%(I):P%(I)X::.!I0100:XP1%(I):P1%(I)P%(I):P%(I)X::/*P%(NE)0 -BM57:NES%(BM)İ406:BM7&-G-BM89:NES%(BM)İ411:BM9M-q-BM1011:NES%(BM)İ416:BM11w-}-- :19:1:868::ZZ3:XX125:YY35:20-16368,0-834:798:423-PN2FL%(7)1-FL%(4)0āJ1FL%(4):955:@,-WAS GS 4601,517:19:27:"PLAYER = ";PN;Y,20:1:"READY TO FIRE, SIR ";:587z,250:VV4:V:H1:285:815,NBFL%(9):30::20,XX240:YY20:ZZ3:20:XX160:20:,P%(NE)FL%(9):P%(0)P%(0)1,BM14:NES%(BM)İ400:BM4,PN2705+FL%(9)FL%(9)1B+FL%(4)0:FL%(10)1:798:423:460h+FL%(9)1FL%(9)5FL%(9)8718u+685:54+ZZ0.9:848+ZZ1:848:SZSC:16368,0+A1SC:SZSZ1+19:4:SZ1;" ";:7:" GUN";:SZ0ĺ"S";:722+" ";: 1 SHOTIR!":10:677*FL%(0)PN:F*675:689:16);"< WORKING >":1:20]*958:F4SC:XX(9)*PN2FL%(9)0ĩ125:" WE SHOULDN'T OPEN FIRE FIRST, SIR. I DON'T BELIEVE WE CAN HIT THEM AT THIS RANGE!";:677+K98:FL%(5)1:300:614:611:XX(9):80-)834:55:19:"NOT ENOUGH SHIPS YET >"E)PA12500:::900K)h)XX(1)14590:YY30:25{)ST(1)401:)ZZ(1)253:Q1ZZ:684:2:ST:"*";:683)2:ST:" ";::23:)PNFL%(0)695 *6);" WE'VE JUST FIRED ALL GUNS, S&(oI1011:PZ%(I)0PZ%(9)PZ%(9)1@(p:PZ%(9)0SCSCK8i(rI1314:PZ%(I)0PZ%(12)PZ%(12)1(t:PZ%(12)0SCSCK8(uPN2631(vP1SC:(wP2SC:(yW(0):PN2800(z801(}Z0:I0100:P%(I)Z::)FL%(2)0FL%(3)06z!#XǴ     Šڠ ԠҠӠҠӠҠ ٠ ! ĠӠͺҠҠԠ0̠٠:Ϡ2"Ҡ Ӷ!ՠ РE٠ǠԠӠΠ"UN U12820%S102030W"SORRY, THAT DOESN'T FLANK A ROW; TRY AGAIN"a1720 EVERYTHING LEGAL MAKE HMAN'S MOVEZ0"THAT GIVES YOU ";S1; " OF MY PIECES"U1 2820*H1H1S114C1C1S1>N1N CHECK IF BLANK#NA(I,J)01910TX"SORRY, THAT SQUARE IS OCCUPIED; TRY AGAIN"^b1720~l CHECK FOR LEGAL NEIGHBORv2620F111970"SORRY, YOU ARE NOT NEXT TO ONE OF MY PIECES;"" TRY AGAIN"1720 CHECK IF LEGAL R1H T2C,"YOUR MOVE -- (ROW,COL) ";6I,X$DI01720RI81720aI01820"ARE YOU FORFETRING YOUR TURN (Y OR N) ";X$X$"Y"1710Z12190Z11000J18&C$(J)X$18700J:1720D C$(J3)II3JJ3"U1,2820;"C1C1S11H,H1H1S1T6N1N11k@"THAT GIVES ME ";tJS1;T" OF YOUR PIECES"^ PRINT OUT BOARDh3100r TEST FOR END OF GAME|H102190N1642190 HUMAN'S MOVETENT CAN BE DELETEDR(1),(R.513806<B1S1?FI3IHPJ3JOdJcnII1:I91070rB101480"I HAVE TO FORFEIT MY MOVE"Z12190Z11690 MAKE THE MOVEZ0"I WILL MOVE TO ";I3;", ";A POINTS FOR BOUNDRY POSITION,S101380E(I1)(I8)01230RS1S1S2k(J1)(J8)01260xS1S1S2 IS THIS BETTER THAN THE BEST SO FARS1B11380S1B11340 A TIE; RANDOM DECISION  THE NEXT EXECUTABLE STATEM8J18BA(I,J)013808L FOUND A BLANK SQUAREhV DOES IT HAVE AN OPPONENT AS A NEIGHBOR? r`2620jF101380t FOUND AN OPPONENT OR A NEIGHBOR~ HOW MANY PIECES CAN WE FLIP? (DON'T DO IT NOW)U12820 EXTRWANT TO GO FIRST?"&:"(Y OR N) ";.X$?X$"N"1020PX$"Y"930j PRINT INITIAL BOARDt3100~1690 COMPUTERS MOVEF201020X$B11I30:J30T1CT2H$ SCAN FOR BLANK SQUARE)I1. JII1:I10700#A(4,4)W0A(5,5)W=A(4,5)BJ A(5,4)BSC12\ H12e*N14m4Z0> HUMANS CHOICESH:"DO YOU WANT TO HAVE X OR O";RCW\HBfX$pX$"X"920zX$"O"870CBHW:"DO YOU W1 D$(B1)"X"% &D$(O1)"."5 0D$(W1)"O"@ :K18K DI4(K)R NKl X 0,-1,-1,-1,0,1,1,1 w bK18 lJ4(K) vK  1,1,0,-1,-1,-1,0,1 K18 C$(K) K  A,B,C,D,E,F,G,H I1  JO9 A(I,J)0::"SHOULD I WAIT BEFORE MAKING MY MOVES?"@ :"(Y OR N)";I F20Q X$a X$"N"460r X$"Y"410{ F21 :"SHOULD I PLAY MY BEST STRATEGY?" :"(Y OR N) "; S20 X$ X$"N"520 X$"Y"480 S22 B1 :"NOTE--YOU MUST CAPTURE AT LEAST ONE OF MY PIECES IN THIS WAY IF IT IS AT ALL POSSIBLE." ^:"IF IT IS NOT POSSIBLE, YOU FORFEIT YOUR TURN AND MUST ENTER '0,0' FOR YOUR (ROW,COL) MOVE." c:"HIT ANY KEY TO CONTINUE." hA$ r- |"TRY TO PLACE YOUR PIECE SO THAT IT 'OUTFLANKS' MINE." ":"CREATE A HORIZONTAL, VERTICAL OR DIAGONAL RUN OF PIECES BOUNDED ON EACH END BY AT LEAST ONE OF YOURS." 6:"THIS WILL 'FLIP' MY PIECES, TURNING THEM INTO YOURS."^ JUMBERED 1 TO 8 AND THE COLUMNS MARKED A TO H." :"THE INITIAL CONFIGURATION IS BLANK, EXCEPT FOR THE FOUR CENTER SQUARES, WHICH FORM THE PATTERN:" :" O X" " X O" :"HIT ANY KEY TO CONTINUE":A$ = y0'xA(20,20),I4(8),J4(8),C$(8),D$(2)3}X$(10)@:10:5b"GREETINGS FROM OTHELLO"::"DO YOU WANT INSTRUCTIONS (Y OR N) ";X$X$"N"420X$"Y"160. "OTHELLO IS PLAYED ON AN 8 X 8 CHECKER- BOARD WITH THE ROWS N               IGHT."::1950E&"HMMM. SHOULD HAVE PICKED A SHORTER TIME.":1950j'"MUTTER. MUTTER. MUTTER.":1950("PUSHING UP DAISIES.":1950)"EASY COME, EASY GO.":1950(2D1A),"SPLAT!"(1(10(0)))800,801,802,803,804,805,806,807,808,IT!"20000 "REQUIESCAT IN PEACE.":1950s!:"MAY THE ANGEL OF HEAVEN LEAD YOU INTO PARADISE."::1950""REST IN PEACE.":1950#:"SON-OF-A-GUN"::1950$:"#$%&*@@$%#!!":1950%"A KICK IN THE PANTS IS A BOOST IF YOU'REHEADED R" SUCCESSFUL JUMPS BEFORE YOURS AND YOU CAME IN "K1" JUMPS ";r"BETTER THAN THE WORST. SHAPE UP !!!":2000"HEY!! YOU PULLED THE RIP CORD MUCH TOO SOON. "K" SUCCESSFUL ";"JUMPS BEFORE YOURS AND YOU CAME IN NUMBER "KK1" ! GET WITH N "K" SUCCESSFUL JUMPS BEFORE YOURS. YOU WERE BEATEN OUT BY "KK1" OF THEM.":2000"CONSERVATIVE AREN'T YOU? YOU RANKED ONLY "KK1" IN THE SUCCESSFUL JUMPS BEFORE YOURS.":2000"HUMPH! DON'T YOU HAVE SPORTING BLOOD? THERE WERE ";=KS, ONLY "KK1" OPENED THEIR CHUTES LOWER THAN YOU DID.":E2000"PRETTY GOOD!! "K" SUCCESSFUL JUMPS PRECEEDED YOURS AND ONLY";KK1" OF THEM GOT LOWER THAN YOU DID BEFORE THEIR CHUTES ";"OPENED.":2000S"NOT BAD. THER HAVE BEE:DA(J)600DK1K11#XJ.lA(J)D8vII1LKK1.1K700aKK1.25K710uKK1.5K720KK1.75K730KK1.9K740750"WOW!!! THAT'S SOME JUMPING. OF THE "K" SUCCESSFUL JUMPS ";;"BEFORE YOURTI,D^Ih500U"TERMINAL VELOCITY REACHED AT 'T' PLUS "VA" SECONDS"fIIT(T8)DD1((V2(2A))(V(I(VA))))D01010I,DI500:::"CHUTE OPEN!!!":&J042+A(J)06200KK1ER FOR YOUR FREE-FALL.":6"HOW MANY SECONDS ";:TP"HERE WE GO!!!":`D1500:Dn936::"TIME (SEC)","DIST. TO FALL (FT)""==========","==================",I0T(T8)6IVA400@DD1((A2)I2)JD01000145A285.2:145&A237.6:1457A233.8:145HA239.6:145XA2896:145k::T150:T" ALTITUDE = "D1" FT":" TERM. VELOCITY = "V1" FT/SEC":" ACCELERATION = "A2" FT/SEC/SEC"::"SET THE TIM ON JUPITER.":1667 "FINE. YOU'RE ON SATURN.":167_ "ALRIGHT. YOU'RE ON URANUS.":168 "THEN YOU'RE ON NEPTUNE.":169 "FINE. YOU'RE ON THE SUN!!!":170 A212.2:145 A228.3:145 A232.16:145 A25.15:145A212.5:(10(0)))151,152,153,154,155,156,157,158,159,160X "FINE. YOU'RE ON MERCURY.":161 "ALRIGHT. YOU'RE ON VENUS.":162 "THEN YOU'RE ON EARTH.":163 "FINE. YOU'RE ON THE MOON.":164 "ALRIGHT. YOU'RE ON MARS.":165 "THEN YOU'RE0)A "WANT TO SELECT ACCELERATION DUE TO GRAVITY? (Y/N)";L B1$:] B1$"N"147o B1$"Y"135 "WHAT ACCELERATION (FT/SEC/SEC)";:A2 936:T1250:T: AA2((A2(0))20)((A2(0)))20:205 936:T1250:T:2 (18 yA1$"Y"119C {"WHAT TERMINAL VELOCITY (MILES/HOUR)";:V1 }V1V1(52803600):VV1((V1(0))20)((V1(0))20)::135 V1(1000(0)) "OK. TERMINAL VELOCITY = "V1" MILES/HOUR": V1V1(52803600):VV1((V1(0))20)((V1(0))2E THAT SIMULATES A PARACHUTE ";] `"JUMP. TRY TO OPENYOUR CHUTE AT THE LAST POSSIBLE "; a"MOMENT WITHOUT GOING 'SPLAT!'" v::D10:V0:A0:N0:M0:D1(9001(1)1000) w"SELECT YOUR OWN TERMINAL VELOCITY?":"(Y/N)";:A1$: xA1$"N"12B :936-10)"********************"C10)"*";29)"* "N2:17^ :"SPLAT!"d10)"* DAVID M. MURDOCH *"10);"********************"::(A(400)2D1400:D7 RANDOMIZE" _"WELCOME TO 'SPLAT!' -- THE GAM      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 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."       ,10,9,20,10,9,21,10,5,22,10,9,23,10,5,17,9: 5,24,11,9,24,10,5,25,9,5,26,8,9,26,7,5,27,6,5,16,9,5,15,8,9,15,7,5,14,7,5,14,6,9,23,14: 5,24,13,5,24,12,5,25,11,5,25,10,5,26,9,5,27,8,5,28,7,5,30,6c; 9,19,9,1,20,9,9,22,9,5,23,9,5,17,8,9,18,8,1,19,9,23,18,5,19,17,5,20,17,9,22,17,5,23,17,5,19,16,9,21,16,5,23,16,5,19,15,5,20,15,9,22,15,5,19,14,9,21,14,5,22,14,5,18,13,1,21,13,9,22,139 9,21,17,9,23,15,9,24,14,5,23,13,9,22,18*: 9,18,12,9,19,12,9,21,12,5,18,11,1,20,11,1,21,11,9,22,11,5,17,10,5,18X,X:PA185::15:X,X:'8I113128C,X,Y98Cw8X,Y:X2,Y2:X,Y3:X2,Y3:X4,Y6:X2,Y5:X1,Y6:8X4,Y6:X1,Y1:X1,Y6:X3,Y5:X3,Y48X5,Y6:X4,Y5:X3,Y4:X1,Y5:X4,Y5:X5,Y6:X,Y8::9 9,21,18, 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"[     15 A(R,B)0 B R0 BUILD WALLS< I130F 3730Z A(Z,W)03000g A(Z,W)2n I PLACE THE RELOCATION SQUARES I122 3730 A(Z,W)03060 A(Z,W)3 I PLACE THE SUPER TRAP.& 3730 0 A(Z,HLOOORPP<<<"8" "THE TWONKY JUST ATE YOU !! YOU LOSE."B, 1800Y6 NEW MAZE ROUTINEy@ 0= EMPTY SPACE; 1=PLAYER;J 2=WALLS; 3=RELOCATION SPACES;T 4=SUPER TRAP; 5=ESCAPE SQUARE;^ 6= THE TWONKY!!h CLEAR MAZEr R115| B1X1X1)2(Y1Y)2).8((X1X)2(Y1Y1)2)2660n ((X1X1)2(Y1Y)2).8((X1X)2(Y1Y1)2)2640z Z1X11 A(X1,Y1)R9 R9A(Z1,Z2) A(Z1,Z2)6 X1Z1 Y1Z2 "TWONKY MOVES...." 2450 D21160  ">>>SC Z2Y1( Z1X12 XX12680.< XX12720=F YY12660IP Z2Y11SZ 2750_d Z1Y11in 2750x ((X1X1)2(Y1Y)2).8((X1X)2(Y1Y1)2)2660 ((X1X1)2(Y1Y)2).8((X1X)2(Y1Y1)2)2640 Z1X11 27503 (( 2570 DISTANCE ROUTINE# : "THE TWONKY IS ";X D(((X1X)2(Y1Y)2))` D;t " UNITS AWAY." "THE ESCAPE HATCH IS "; D1(((X2X)2(Y2Y)2)) D1; " UNITS AWAY."   TWONKY'S LOGIC D22830"YOU HIT THE WALL."-"YOUR SHOT MISSED."7 2430M A(R1,R2)62150[ "OUCH!!"}$ "THE TWONKY DEMATERIALIZED.". "NEW TWONKY ENTERS MAZE."8 A(R1,R2)R9B 3730L A(Z,W)02370V A(Z,W)6` R90j X1Zt Y1W~ 2450R2YfR1R1S1pR2R2S22z"Z A P - - ";AR112230QR1152230`R212230pR2152230z2270"FIZZLE.....""YOUR SHOT LEFT THE MAZE.""IT MISSED EVERYTHING."2430A(R1,R2)22320"BLAST!!!!"Q8$(Q8$,3,1)19709"WHICH WAY?(F/B/L/R): ";Q8$KQ8$B3$2020]Q8$B4$2050oQ8$B5$2080Q8$B6$21101160S10S212130S10 S212130 S11*S2042130>S11HS20RR1X\NT TO SEE TWONKY?";Q8$.&(Q8$,1)B1$İ377040M:"TRY IT AGAIN?";Q8$aD(Q8$,1)"Y"ĬxN(Q8$,1)B2$4240X1850b HE LANDED ON THE TWONKYl"YOU STEPPED ON THE TWONKY!"v2830 SHOOT ROUTINE(Q8$,3,1)B9$1960R TRAP!! YOU GET A NEW MAZE."' 28701 2430>  HE WOND u "I DON'T BELIEVE IT BUT YOU WON THE GAME!!" "YOU FOUND THE ESCAPE HATCH BEFORE" "THE TWONKY GOT YOU !": "WANT TO SEE THE MAZE?";ANS$ (ANS$,1)B1$İ4250"WA2430 , BLOCKED SPACE7 6"THE SPACE IS BLOCKED."A @2430R J RELOCATIONs T"YOU HAVE BEEN RELOCATED !"} ^3730 hA(Z,W)21500 rA(Z,W)01630 |A(Z,W)1 A(X,Y)0 XZ YW 2430  SUPER TRAP "YOU HIT THE SUPE0 Y5151470 1500G "THAT MOVE TAKES YOU OUT OF THE MAZE."h "THAT MOVE IS NOT ALLOWED."r 2430 (A(X5,Y5)1)1510,1580,1580,1610,1710,1750,1890  EMPTY SPACE A(X,Y)0 A(X5,Y5)1 XX5 YY5 "MOVE ALLOWED." "R): ";Q8$ Q8$B3$1300- Q8$B4$1330? Q8$B5$1360Q Q8$B6$1390[ 1160d X5Xo Y5Y1y (1420 2X5X <Y5Y1 F1420 PX5X1 ZY5Y d1420 nX5X1 xY5Y 1420 X511470 X5151470 Y51147PACE !!!"9 `"----------------------------------------"C j2870I tS ~2450Y y "MOVE OR SHOOT(M/S): ";Q8$ (Q8$,1)B7$1210 (Q8$,1)B8$1920 1160 (Q8$,3,1)B9$1240 Q8$(Q8$,3,1) 1250 "WHICH WAY? (F/B/L/A(15,15),B$(15) 37704PAUSE12000:>3330F:RI115_$B$(I)""e.8"----------------------------------------"B"COMMANDS CAN BE PUT ON THE SAME LINE."L"EXAMPLES: M L , S F , M B ." V"PLEASE INCLUDE THE S                ''''''''''''''''''&楧&''&槧&''槧'%'''''''''''@&&&&'''''' @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&''''''' @ @ @C Y`I1`    (8` F @ 8`JJJu)?`)  ` `((((PPPP        x`eee`HH`0hh`  Y JȩșIș'`PRW  *)Ti ` YE%`    (8` }ɂЧ` {x8JJJJ  eee L3II扩L3II报Ƥ@L3 3 3 3 C$ɽ楨` 3F`` i(<i(L 0i(xi(xi(0L `i(pȩi'pȩi'`L @ȩi'`ȩi'`ȩi'@ȩL ȩi'@ȩi'@ȩi(O%K ɂ-U C C C C-U}-ň i( ei i L L L L L L7 Le L i(i(i(L i(i(i( L i("" ``?>""  `~~?~?~?|x<|<?~?~?~?|x @@ @@@@ @@@ @`qG{o?~wc{>op`@@ @"DXH @$ "b|||@ <J Gm>') (i?m;i<L|I<,0`?i@?>i>?)i ?,{)#?>i(>L7IL7L J@L $ #$L )JJJJJ? ? NO`TVLpStlH hTUS VWL L X6P7Xy<0000!!!!!!!!!! "Fe #%"""##3C`$ 0SL `       xgswgwO`?F?~|_~}_9|}_yp}_c}Gw|?3~ F3|GsgqqyOG}_@Ca@gs@gsGqL\<|hH `IO`IM@Km@Km`Km`OypCsxqg<||? ~Ca|_gs}_gr}q` LH\\=|^iHKcIOcoIM{OKmyOKmyoKm{gOyssG@p0`gN?pOppqG_M_O1f?~Oxog{N?xGwwwpwOwwwp`pp`F?@~@9|@yp@cGw3 F3@sgpyO|@=<^%4^%4^ew_Es_ ~s_9xsOssygr9Í99D:9=9č99E;9ō9F<9ƍ9Щ< X % "+  o)W B۩LLS9` `@` L             5,28,6,5,29,6<-REPEATS< 5,21,16,5,21,15,5,21,13,5,20,13,5,20,12,5,21,9,5,21,7,5,22,12,5,20,11,5,22,8,5,17,8,5,18,7,5,16,6,5,14,7< 9,21,16,9,21,15,9,21,13,9,20,13,9,20,12,9,21,9,9,21,7,9,22,12,9,20,11,9,22,8,9,17,8,9,18,7,9,16,6,9,14,7= 8,9,20,8,9,21,8,5,23,8,9,24,8,5,16,7,9,17,7,9,19,7,1,20,7,9,22,7,9,23,7,9,24,7,5,25,7,5,15,6,5,16,6; 9,17,6,9,18,6,1,19,6,9,20,6,9,21,6,9,22,6,5,23,6,5,24,6,9,25,6,5,26,6,9,21,19,5,23,12,5,23,11,5,22,16,5,14,8 < 5,13,7,5,13,6,5,12,6,5,11,6,5,27,7,, ENTER THE ANGLE, COMMA, AND THE FORCE YOU WANT TO TRY."ZO:" EXAMPLE: ANG,FORCE"wT" 70.1,8.5"}^rE YOU MUST "66" 1)ESTIMATE THE BEST ANGLE AND"];" 2)FIND THE NECESSARY FORCE"@"TO HIT THE TARGET BEHIND THE MOUNTAIN."E:"YOU MUST CONSIDER THE EFFECT OF THE WIND SPEED AND DIRECTION ON YOUR SHOT.":J:"WHEN IT IS YOUR TURN::"IS THERE ANYONE ELSE WAITING":"TO PLAY? (Y/N) =>";LZ$:Z$""256ZZ$"Y"ĬkZ$"N"25616300,0:16298,0::9368:8:" * * * T H E E N D * * *"370,8:"HOW GOOD ARE YOU AT ESTIMATING ANGLES?" 1:"IN THIS GAM20 GXB2[3:IGX10GX102:I,P10GX,P:J1(1)55:KK(16336)::16336,0:kI12500:w:::"DO YOU WANT TO PLAY AGAIN? ""(Y FOR YES, N FOR NO)=>";Z$:Z$""252Z$"Y"Ľ:30Z$"N"Ĺ16368,0:2529(XB2)3210 iX3X276115Ul0:I125:BXX3(1)6:BYYY(BX)(1)3:BX,BYqnK(16336):16336,0:pIX3X3:YY(I)YY(I)3:sP1P1:P19980x24:25);:"ANG,FORCE?";AN,BG:BGBG10ANAN180PYP581GXB1:299XXB1$WK(16336):16336,06ZP199XB2XQ[YBGI(ANPI)16I2b\XXWINDI2]P199YBGI((ANPI))16I2^0:PX,PY_X3X276PY0115`YY(X)PY100a3:X,PYbPXX:PYPYc85d(XB1)3200 e13,P5:B13,PB13,P5`L2:B23,PB23,P5:B23,P5:B23,P:B23,P5:B23,PB23,P5oMP199120P24:"ANG,FORCE?";AN,BG:BGBG10QP199PXB1RP199PXB2S21:17)"WIND:";(WIND)TI0UII.1:XBGI(ANPI) VP1PI,159:YY(I)P:= CWIND((1)10):(1)10050WINDWINDS F3:112,10152,10m GWIND0ē112,10125,5 H21:17)"WIND:";(WIND) IWIND0ē152,10139,5 JB1(1)20505WIND:B2(1)20200WIND5KB13,PB13,P5:B13,P5:B13,P:B:34,22: 4P199:YY(280)5 5PI3.141592654180; 6E 7936P 8P1P1W 91i <P(1)20139 =I1112:I,PI,159:YY(I)P: >HG(1)5025 ?I113152:HX(((I112)4.5180)PI)HG @YY(I)HXP AI,HXPI,159: BI153279:I, *MAY NOT BE SOLD.COPY-*8 !*RIGHT 1981 CUE,INC *U "***********************x -::298,0:16300,0:16368,0 .936:5:7)"*** ARTILLERY SIMULATOR ***" /300 024:"PRESS TO CONTINUE..."; 216368,0:SX$:(SX$)1350 3MAIN STREET *, * REDWOOD CITY *I * CA 94063 *f *(415)364-5600 EX 4401* * * *********************** * *********************** *PROGRAM MAY BE COPIED* *FOR EDUCATIONAL USE &* *' * SAN MATEO COUNTY *D * OFFICE OF EDUCATION *a * *~ * COMPUTER-USING * * EDUCATORS * * * * SOFTSWAP * * * * 333  ARTILLERY 10/1/80 $ = GAME - LOGIC ANDW ANGLE MEASUREMENT]x APPLESOFT,COLOR,4K  ADAPTED BY B. GOODSON  FROM USER'S GROUP LIB  *********************** *       eo``栦 ` `hhHH` a`b = P h b~ )L)  R  B a`b = P h bo )е)ЭLa m oL m o     b5)6: )HL  K @L !0:L   K @P L. L IL  K@1-)N LR@)  K@ )D L LZ ` b` Ơ 赠 ` L` b LZaeb f`)` oʵ) eoo ń8Ń ń ŃL! h`  ) 0 t ` t Lɀ)` K1: )BWELO  K @L ,-(0:Ly  K @L - L L L  栦 蕠ʩ-膠 KL@L1 S Sք Q ḀŐĥŎ ŎL`8Ńń`Ld```$8JJJJi h X ^L h X )iJJJJLa`b = P L<)i X t   bLd   b eI8i   Z    bL< pƍL @ @ bL)% 8僪<;8優+L&8 8 L``")&Ŏ Q A ]``) @   @  b8'0  b L  L  m oL t  t`HH``aabbhh` X0Ɗ)eL ` P~0ƊL  b    b8}|e~ }{hhh`  LHjSLpfq fi feqqpeffqepqfpq)8`HHHmhhh`v Tv` 0 ` `w)H ?|{{| {|h8ץw0 ` ` c ``ab  b `8 LHjPi j8 jb`aLLk`Rk`ki ila``LH ` aH``abib`exwJzjw{yzexz #wy{xiz wi(wL~#~Ѕ} }~i~C`HHH ez|{e)0 ) TL )0 d ) JJJJX d LH ` ` c h`   ` ` t T t`H3 8 I3 h`Ltuv`vut`L\ 1HLj8 jbhH ,` l8ll :h8`HLj i jbhH , 4 a D a D bda`~ ` L P LI P LI P i `umvt    m 0 ` m 0 ` uvt` 0-RETUPMOC 0-REYALP :EMOH NI 4n)a`b = P n)JJJJa`b = P  X` L ` `o  o`o o`>>>NOMMAGTSAF>>>HTIW EMAG EHT TRATS OT TNAW UOY ODRO ,SLLOR FO ECNEUQES WEN A .1SUOIVERP EHT SA SLLOR EMAS EHT .2?EMAG"2" RO "1" TCELESi0`pȄpqȄqL Ya`b 4 a < Ya`b  /  12sqrpL5 qsp rpL5 `h hPa` b   Pa`b   Pa`b a a` L  <  `h h`L v i ` ` L  ` ` &g ffg)eg#i/ iJh i` @HL9 hhjkla`b Qf%iQffjkl` L{ `Q X $% * / $ % !: / $ % \ / $ % z / $%  / $% = `d " d i ` / H h d ` LP d / H i h s  / H i h s d` c `H c h` c `ebbb`eaace`0 `aa`a`` eWRPegfhf igg)`H)fJJffhg &g L01@2$3a4 5678i9qABCDEFGH IJK ʙLMUN ݻOPQ""/RS!TDDDU V W[X fY bHZD!'`, -:_ɀ#)pJJJJ "  6                 FB:FBFANB5070NGOPEN?NLSW1FCFB:FBFB10L:FAFBL]NVSW0FCFB:FBFA:FAFAL{N`SW6FCFB:FBFA:FAFALNtFF10SX1N OPEN OR F11 SPARENFF11ĭL10Ģ22:38:(47)N FRAME 11 SPARENFF10FF10:5030O22:(FF4)M\23MaSW14730#Mf(FF4)6+MpFA5Mu4770DMz(FF4)10LMFB[MSX15500dM700qM BALL 2MFF114870M4890MFAFB10LMSX1:5000ML104940M$SPAREM.SW1FCFB:FBFB20M3SW6FCFB:FBFAN8SW0FC10:FCL4430!L&23:38:FB1L05500: END9LN23QLXSW1Ė(FF4)6:FB`LbSX15500iLl190LBALL 1 NOT STRIKELSW14800LSW24640LSW04800LFAFB10LLFF11SX1L4700L FBFC20LL"SW1L*FF12SX1KFF10Ė37K22%KFF11Ė384KFF12Ė39?K(88)IK8000WKFF1190kKFF2ĭSW2190KFF12Ģ23:38:FC:5500KFF10ĭSW14430KFF11ĭSW2Ģ23:34:FC:190KFF11ĭFF14390:PREVIOUS SPAREK23LFF2Ė(FF4)JSCORE KEEPERJSX0(JBB248006JA STRIKEFJ FF12SX1\J FF11ĭSW6SX1kJL104500JSW6SW1:FCFB:FBFB20:4250J"SW0SW1:FCFB:FBFA:4250J,SW1SW2:FCFB:4250J6SW2SW2:FCFC30:4250J22J(FF4)15P(3)0:P(5)0:P(6)0:1950-IP(2)01940\IX2118ĭX2128P(2)0:P(4)0:P(5)0:1950fI1200IP(7)0:P(8)0:P(9)0:P(0)0:DI2:D210:D31I1690IZ11562ICPI1598,ZI15168,ZIZI I A09I P(A)0:AI HD14:D210H1690'HBACK ROWBHX2107ĭX2117P(7)0]HX2121ĭX2131P(8)0xH&X2135ĭX2145P(9)0H0X2147ĭX2159P(0)0H4X2143ĭX2149P(9)0:P(0)0H:D17:D210Hb1690Hg 2ND ROWHhP(3)01920IlX2130ĭX214G|M%5P(0)1"GM%6P(7)1:GK%7P(0)1:P(9)1RGK%8P(7)1:P(4)1hGCB:1X1,Y1:300vG 3RD ROWGP(4)01715GX2114ĭX2124P(4)0:P(7)0:P(8)0:1790GP(6)01200GX2142ĭX2152P(6)0:P(9)0:P(0)0:1790H1200FDETERMINE PINS&FJ%((1)4)19FK%((1)20)1LFM%((1)10)1\FY1171800lF6Y1241700|F@Y1321895FJY151690FrX2127ĭX21391655Fu1200FwP(1)01200Fx3000FyBB21690GzX2131ĭX2135ĭJ%2P(7)1:P(0)1CBE1X1,Y1E$X1X2:Y1Y2(E.9904EY2Y13":55:PO%9PO%54:2::152HNPO%56993,HPPO%97001SHQ12:12:16);" ALREADY OFF!":677HX::PO%5İ144:13);" ABORT DESIRED ?";:844:7005HY" THIS WILL REQUIRE THE APPROVAL OF BOTH PLAYERS!":56HZPN1:80:PN2:80:N7ė:8999I\22:12:179:954:38RG3:12:179:4:16:AS$:954:4:12:179:5:16:AS$:954bG5:12:179G12:179:6:16:AS$;:954:12:179G::Q30:CC17:146::900GpN0N9ıGrHL38HL1Ģ2:HL:6005Gs2:1:868:HL15:2 Hu"?? ";:::AFh6:423:MS%1:TR0:200:14:39:" ";:423:6:MS%0:10F16:1:" B-SHIP = 4 BLOCKS";23);"C-SHIP = 3 BLOCKS ":" D-SHIP = 2 BLOCKS";23);"D-SHIP = 2 BLOCKS";FF954:38:1:12:179:2:16:AS$;:37:954:38G3:12:179:16:AS$;::4014 EX(1)151:X04010)EX:AEH13:4040:956:QEI39191fE4010:12,28I:E10,3018:6,3417:4,3616:2,3815EI1471:1,39I:E2,386:4,365:6,344:10,303:55::956:954:::::2500F:V110::::4:" ";::" //"::V:I:" "iD V1:I1:" -APPLESHIP- ":V2:I2:" "D V3:I3:" ";:V5::7:NB1151:"^";:D :3048:3050::37D I15I7I17İ37::954:D 38:D 37:35,14::38E5432,2:5:0,1:32,0 C[ 16:144";A423:6:4200:843::2005?G:2:X,Y:X1,Y1:X1,Y1:X2,Y2:X2,Y2:51b?H5:X1,Y1:X1,Y1:X2,Y2:X2,Y2:?FL%(2)0FL%(3)0ĩ150:" NO SHIPS ARE AT SEA AS YET, SIR!":12);" WE CAN TRY AGAIN LATER";:75:900 @:"IS OTHER COMMANDER AROUND?":844:GO$350:X23:1350:X21:1350F>1:7);" 'HEY, WHO FORGOT THE RAFTS?!!'"`>2X23:1350:X19:1350>:2:0,3922:1341:0,3921:1341:0,3920:1341:0,3919:1341><>=CC0.1āI140:XXI:YY1:25::PQ350:48>>>FY1722:0:X,Y:51:5:X,Y5,21,16,5,24,9,5,20,16,0,7,15-=6:Q4PN:6="< COMMANDER ";Q4;" TO BASE: >"::3);"'WE ARE UNDER HEAVY ENEMY ATTACK!'";=1225:1226:953:59:24:6:"'ABANDON SHIP, WE ARE SINKING'";=-1235:CC0.1>/X22:1350:X24:1350:X23:1350:X20:10L@` g RgƖ8PgPQhQghe Ӣi  g y  gh^_8^eP^ȱ^ eQ^^_Ll8ePeQ`9O START GAME === ";:A$:280"MLE."Z:"YOU CONTROL THE MISSLES BY PRESSING THE OR THE TO""CHANGE ANGLE AND THE TO MAKE THE MISSLE GO STRAIGHT.":"GAME ENDS AUTOMATICALLY OR PRESS TO QUIT."20:"=== PRESS SPACE BAR T( 2J2376 <S23761 F(14(1))1: P800A ZSH dJc n13:"* SPACE KLUTZ *"t xM12500:M| : "THE MISSLES FIRE AUTOMATICALLY.:"THE SPACE KLUTZ CAN APPEAR ANYWHERE HE WANTS TO. THE STARSHIP SHOWS UP ONCE IN A WHIZ150 .ZAP(16336)! 8Z' B- LF V STARSHIP MOVER L `S j0\ t890f ~GG4r G33Āz 15 890 560   BONUS  1 890 STST1 Z110:(7);:Z 650   TITLE    RS1,J3:S3,J3) \S,J4:S4,J4/ f5 pD z STARSHIPJ Y G2,G4Qj G1,G2Q1{ G4,G5Q1 G,G1Q2 G5,G6Q2 M120:M    BOOM  1 800 M1200:M FLAG1 TT1 $,X 15 P(16384)& P27Ā; P21HH1:730O P8HH1:730^ P32ī750k H2H2z H38H38 16368,0 X 410 :QQ   MAKE KLUTZ * 41S,3S0J >S,1S1J:S3,S4J1 HS1,S3J2800  SHOOTING SEQUENCE5 TTTT1:TT5TT0D &TT51110L 015[ :X3911d DH,Xo NFLAG0~ XM110:M bH,X)Rİ990 lH1,X)Rİ990 vH1,X)Rİ990 G3,0)15X1(HG2HG3HG4)ī1210 FLAG1410 0:H#d:936:1290#::)5MFMF1F15:0,3939[0,390:39,039x21:"MISSLES FIRED ";MF5:"KLUTZES HIT ";T10:"STARSHIPS HIT ";STS(34(1))1H(35(1))1J(34(1))1R(12(1))2:R   BYE!H;5-,<35577,,55-$3.56%%??177--? d-6*63.*263;?8 $!!< ,-*56??55>?', $,-%%??V177=-$??6-6??$--$??6m16,:>55--=?/8/?'$$-55??2??$$,-5)>>>'$$-.??$,$--E8?7.6&*5>?'$$---$4.6fI&$$/=66>- $66>?',%66fQ!''?R1??$$4<<66fI&$$7.6%$$3=$766 $??66.-%$_;|~(246?HQSUboy"-7CO\ku%%, >>fI>,$-26-$?26?4-6$-)-7%%%377%%??66%.-%$$7 6>-%%??N2?6---$??2--$-$6--6&?$-  VERAGE POWER OUTPUT ";KW%;"KW/DAY"=N " CONTROL RODS- ";A%NN*" COOLANTS"{N4" EMERGENCY LEVEL- ";EV%;" FLOW- ";EF%N>" PRIMARY LEVEL- ";PV%;" FLOW- "PF%NH" SECONDARY LEVEL- ";SV%;" FLOW- "SF%;OR(100RL)5ĺ::"REACTOR FUEL EXHAUSTETDOWN! MELTDOWN!":3000?M" INDICATORS:"dM" REACTOR TEMP. (MAX 800) ";RT%M" HEAT EXCHANGER TEMP. (MAX 500) ";XT%M" COOLING TOWER TEMP. (MAX 300) ";CT%M" POWER OUTPUT (MAX 2000KW) ";GO%;"KW"MKW%TTDAY%#N" AOLANT PUMP FAILURE - ";10PD%(PD%10)100(PD%10);"%"LSB%ĺ"SECONDARY COOLANT PUMP FAILURE - ";10SD%(SD%10)100(SD%10);"%"LXB%ĺ" HEAT EXCHANGER FAILURE"LGB%ĺ" TURBINE FAILURE"L+MRD%5ĺ" MELTDOWN!  MEL4ĺ" PRIMARY COOLANT LEAK - ";PD%;"/DAY";PV%(PV%PD%)((PV%PD%)0)KSD%4ĺ"SECONDARY COOLANT LEAK - ";SD%;"/DAY":SV%(SV%SD%)((SV%SD%)0)KED%2ĺ" EMERGENCY COOLANT LEAK - ";2ED%;"/DAY":EV%(EV%2ED%)((EV%2ED%)0)8LPB%ĺ"PRIMARY COER OVERHEATED":SD%SD%1:J0GO%1000ĺ"POWER OUTPUT LOW"`J:EV%200ĺ"EMERGENCY COOLANT LOW"JDPV%100ĺ"PRIMARY COOLANT LOW":PD%PD%1JNSV%100ĺ"SECONDARY COOLANT LOW":SD%SD%1JXJb"DAMAGE:"JlRD%3ĺ" REACTOR CORE DAMAGED"EKvPD%EATED":RD%RD%1(RT%850)(RT%900)2(RT%950):PD%PD%1:ED%ED%1(RT%850)IXT%500ĺ" HEAT EXCHANGER OVERHEATED":XD%XD%1(XT%600):PD%PD%1:SD%SD%1IGO%2000ĺ" TURBINE OVERLOADED":TD%TD%1(GO%2500):SD%SD$1J&CT%300ĺ"COOLING TOW220H INITIATEHRH0$HRL0/HDAY%08HTT0DHDMGE%0YHA%0:A1%0:A2%0lH WRTIE REPORTtH:HDAY%DAY%1H7)"APPLE NUCLEAR POWER PLANT"H8)"STATUS REPORT - DAY ";DAY%HH"WARNINGS:"NIRT%800ĺ"REACTOR OVERH"MAINTENANCE SHUTDOWN AND ALL COOLANT"TGE"WILL BE REPLENISHED AND REPAIRS MADE."GJ"THE GREATER THE DAMAGE, THE LONGER THE"GO"REPAIRS WILL TAKE."GTG^8::"WARNING THIS POWER PLANT HAS"Gh8:"NO AUTOMATIC SAFETY DEVICES!"Gr:H|E"F'"EVALUATED."AF*:" (PRESS RETURN TO CONTINUE)";A$:rF,:"IF YOU WANT TO REPAIR DAMAGE OR REPLACE"F1"COOLANT, BRING THE REACTOR TEMPERATURE"F6"DOWN BELOW 100 AND SHUT OFF THE COOLANT"F;"FLOWS. THIS WILL CAUSE AN AUTOMATIC"'G@RN' KEY TO ADVANCE TO THE NEXT DAY."OE"THE REACTOR CAN BE OPERATED UNTIL A"}E"MELTDOWN OCCURS OR THE REACTOR FUEL IS"E"EXHAUSTED. THE FUEL WILL LAST FOR"E"ABOUT 100 TO 150 DAYS. WHEN THE FUEL"F""IS EXHAUSTED, YOUR PERFORMANCE WILL BROD SETTING AND">D"FLOW RATES. (USE VALUES FROM 0 TO 100)"jD"IF NO ENTRY IS MADE, THE VALUES WILL"D"NOT CHANGE. USE THE SPACE BAR TO STEP"D"TO THE DIFFERENT FUNCTIONS. WHEN THE"D"DESIRED ENTRIES HAVE BEEN MADE, USE THE"$E "'RETUOT RECYCLED."C:"ENTER 'D' TO SEE REACTOR DIAGRAM. ENTER'I' FOR WORKING INSTRUCTIONS. ENTER AN 'S' TO START OPERATION. ";A$CA$"D"İ6000:220CA$"S"390C:C"THE CONTROLS ARE OPERATED BY TYPING IN"D"THE DESIRED CONTROL R TO THE"6B"TURBINE, WHERE POWER IS PRODUCED, AND"`B"FINALLY TO THE COOLING TOWER. THE"B"EMERGENCY COOLANT IS USED TO HELP SHUT"B"DOWN THE REACTOR WHEN OTHER SYSTEMS"B"FAIL. UNLIKE THE OTHER COOLANTS, " C"EMERGENCY COOLANT IS NSING"AZ"A REACTOR MELTDOWN"%AdRAn"THE CONTROL RODS ADJUST THE AMOUNT OF"Ax"HEAT PRODUCED BY THE REACTOR. PRIMARY"A"COOLANT TRANSFERS THIS HEAT TO THE HEAT"A"EXCHANGER. SECONDARY COOLANT TRANSFERS" B"HEAT FROM THE HEAT EXCHANGE.@ +@8)"APPLE NUCLEAR POWER PLANT"L@9)"BY STEPHEN R. BERGGREN"R@(@2"THIS PROGRAM SIMULATES THE OPERATION OF"@<"A NUCLEAR POWER REACTOR. THE OBJECT"@F"IS TO OPERATE THE PLANT AT A MAXIMUM"AP"AVER