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`POINT FOR A"8&n"NORMAL TURN, 'TRY' OR 'GUESS' CAN BE"g&p"ENTERED. 'TRY' IS USED TO GIVE A TRIAL"&r"LOCATION FOR ONE OF THE OBJECTS. AFTER THE Y AND X COORDINATES ARE GIVEN, THE"&t"OBJECT APPEARS ON THE SCREEN. IF AN">'v"OBJECT IS ALREADRY POINTS 1, 3,"d%@"10 AND 12, ARE CAUSED BY THE OBJECTS AT THE BOX BOUNDARIES. THE BEAM CANNOT"%B"ENTER THE BOX NEXT TO AN OBJECT AT"%D"THE BOUNDARY."%F:"HIT ANY KEY FOR FURTHER INSTRUCTIONS.";%HANS$: &l"BESIDES ENTERING AN ENTRY 16 ENTRY POINTS FOLLOW."$3E$4" IN OUT IN OUT IN OUT IN OUT"l$6" 1 REFL 5 HIT 9 4 13 HIT"$8" 2 HIT 6 7 10 REFL 14 15"$:" 3 REFL 7 6 11 HIT 15 14"$<" 4 9 8 HIT 12 REFL 16 HIT"%>:"THE REFLECTIONS AT ENTE"#ANS$:#1#:101# "1 2 3 4":#:7Q#"16 X 5"X#7o#"15 6"v#7# "14 7"#"7#$"13 X 8"#&9#("12 11 10 9"#0:"THE PROGRESS TABLE ENTRIES FOR EACH"$2"OF THE THE BEAM WAS"8""REFLECTED BACK OUT THE ENTRY POINT."c""IF THE BEAM IS NEITHER ABSORBED NOR"""REFLECTED, IT WILL EXIT THE BOX. THEN"""THE EXIT POINT WILL BE LISTED IN THE"""PROGRESS TABLE."#:"HIT ANY KEY FOR A SIMPLIFIED EXAMPLSSIBLE RESULTS : HIT, REFLECTION OR A"U!l"NUMBER FOR THE EXIT POINT FROM THE BOX."!r:"HIT ANY KEY FOR MORE INSTRUCTIONS"!vANS$:!:"A HIT MEANS THAT THE LASER BEAM WAS" ""ABSORBED BY A DIRECT HIT ON AN OBJECT. A REFLECTION MEANS THAT RN' CONSISTS OF ENTERING A"F b"NUMBER FROM 1-32 FOR AN ENTRY POINT"t d"INTO THE 'BLACK BOX'. IN THE PROGRESS" f"TABLE, ON THE RIGHT, AN ENTRY WILL BE" h"MADE. THE ENTRY CONSISTS OF THE ENTRY"&!j"NUMBER AND THE RESULT. THERE ARE THREE POAMS INTO THE BOX AND"@J"OBSERVING EACH RESULT. THE OBJECTS"jL"REFLECT LIGHT AT RIGHT ANGLES JUST"N"BEFORE IT REACHES THEM ALONG ANY PATH"\"ADJACENT TO THEM, BUT THEY WILL ABSORB"^"LIGHT THAT HITS THEM DIRECTLY." `:"A NORMAL 'TUHATCHAMACALLIT"!?INSTRUCTIONS'@]A:"LASER SEARCH";::" IS DERIVED FROM THE GAME"B"BLACK BOX. THIS VERSION CAN BE PLAYED"D"WITH 1-9 HIDDEN OBJECTS (BALLS). THE"F"LOCATION OF THE OBJECTS MUST BE DEDUCED"H"BY FIRING LASER BE8,1,-1,0} 8,1,0,1$} 7,1,0,12} 6,1,0,1@} 5,1,0,1N} 4,1,0,1\} 3,1,0,1j} 2,1,0,1x } 1,1,0,1逃"NICE GOING","SMART GUY"ꀃ"TERRIFIC","BRAIN"뀃"WHAT DO YOU KNOW","GOOD BUDDY"쀃"WAY TO GO","GENIUS"퀃"GOOD JOB","W} 1,7,1,0} 1,8,1,0' } 1,8,0,-16 } 2,8,0,-1E } 3,8,0,-1T } 4,8,0,-1c } 5,8,0,-1r} 6,8,0,-1} 7,8,0,-1} 8,8,0,-1} 8,8,-1,0} 8,7,-1,0} 8,6,-1,0} 8,5,-1,0} 8,4,-1,0} 8,3,-1,0} 8,2,-1,0} vu"#";BH%,(XX),(YY)"uZZZ$JuBALL(BH%,1)(XX):BALL(BH%,2)(YY)]uBH%NB%30030cuuA132:B14:ZE(A,B):B:AuA15:C1$(A),C2$(A):Au} 1,1,1,0} 1,2,1,0} 1,3,1,0} 1,4,1,0} 1,5,1,0} 1,6,1,0  HIDING PLACESR2030020uA18:B18:C14G:u READ SQ(A,B,C)W "YOU WERE LUCKY. YOU ARRIVED SAFELY AT FORT NEW YORK."H 1311R1430"YOU NARROWLY ESCAPED AN IROQUOIS RAIDINGPARTY HOWEVER, YOU HAD TO LEAVE ALL YOURFURS BEHIND."13201418B1B12M1M12"YOUR MINK AND BEAVER 06XA(K);" OF THE HORSES OF THE ";A$;B$;" KILLED."]bA(K);" OF THE ";A$;B$;" KILLED."clivowA$A$"YES"1990A$"NO"2010"INCORRECT ANSWER - - PLEASE TYPE 'YES' OR 'NO'."1930Z112020Z12*' * *9 ' * PAUL BRAUN *U ' * & *q ' * GEOFFREY GENZ * ' * * ' * AGES 15 & 14 *' * *' ********************* A3,50:244,51253,51:244,56251,56:244,57251,57:244,62253,62:244,63253,63Uu' ' *********************' * *' * BOXED-IN *' * *' * BY 39,52239,53:240,52240,53:233,50238,50:233,51238,51:231,52231,55:232,52232,55:233,56238,56:233,57238,57:239,58239,61240,58240,61:233,62238,62:233,63238,63:231,60231,61:232,60232,61O244,50244,63:245,50245,63:244,5025PUSHED WILL CHANGE COLOR."::"PUSH SPACE TO CONTINUE";:A$:}~205,50205,63:206,50206,63:205,62214,62:205,63214,63218,52218,61:219,52219,61:226,52226,61:227,52227,61:220,50225,50:220,51225,51:220,62225,62:220,63225,6321100j:16:"BOXED IN":16)"--------"::"THE PURPOSE OF THIS GAME IS TO LIGHT UP ALL OF THE OUTSIDE BOXES AND KEEP THE CENTER BOX UNLIT. PUSHING CERTAIN "=t"NUMBERS LIGHT AND UNLIGHT CERTAIN BOXES.GUARENTEED THE NUMBER BOX AS THE NUMBER YOU .3.X(16336):X(16336):X(16336)4.:.D.X2@2DAPWIGRfffWI&ffnDIXDX@HY[Sy$tYSyW9bQQkXX.X(16336):X(16336):X(16336)..X2@2DPWIGRfffWI&ffnDIXDX@YSy$tYSyW9QQXX=============="+( NOTES >+)======================R+*ROUTINE 50000 +, 'RUN 50000' MAKES INSTRUCTIONS EASY TO CHANGE +2ROUTINE 60000 +4 'GOSUB 60000' LISTS THE INSTRUCTIONS ONLY CE BE WITH YOU !!!"*ڝ255:/*䝁I11000:I:*20000@*Oñ\*PÉ::33,33:40000,40999b*րo*`:40000u*e*======================* WRITTEN BY P. CUMMUTA* 750 BEECHWOOD* LAKE ZURICH IL 60047* 312-438-5129 +========POINT FOR A HIT OR REFLECTION AND 2 POINTS FOR ALL OTHER TURNS. ";)ҝ"WHEN THE FINAL GUESS IS MADE, 5 POINTS ARE ADDED TO THE SCORE FOR EVERY UNFOUND OBJECT.)ӝNN%3:20820)ԝ::"GOOD LUCK..........")՝NN%1:20820)֝100:*؝"MAY THE FOR THE PLAYER IS SATISFIED WITH THE"W("TRIAL POINTS, 'GUESS' IS ENTERED. THEN THE ";("COMPUTER CHECKS ALL THE TRIAL POINTS";("AGAINST THE HIDING PLACES."(:"HIT ANY KEY FOR INSTRUCTIONS ON SCORING"(ϝANS$:C)Н"THE COMPUTER COUNTS 1 Y SHOWN IN THAT LOCATION IT VANISHES. SO TRIAL POINTS CAN BE"N'x"REMOVED."~'z:"FOR 'TRY' ENTRIES THE Y-COORDINATES OF"'|"THE BOX ARE 1-8 COUNTING FROM THE TOP AND THE";'~" X-COORDINATES ARE 1-8 COUNTING"'"FROM THE LEFT.""(:"WHEN102.5)102"P(10(1))11P21281@P61291OP81295_P101306"YOU WERE ATTACKED BY A PARTY OF IROQUOISALL THE PEOPLE IN YOUR TRADING GROUP WERE KILLED. THIS ENDS THE GAME.":::::::::"OH MERDE":2047ED PROPERLY."*"NO ONE WILL BUY THEM."41244>1410n"SUPPLIES AT FORT STADACONA COST $125.00.""YOUR TRAVEL EXPENSES TO STADCONA WERE $15.00."II105M1((.15(1)1.05)102.5)102D1((.25(1)1.10)D THEM STOLEN WHEN YOU RETURNED.".124481414e"YOU ARRIVED SAFELY AT FORT STADACONA."o1239y1430"YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU LOST ALL YOUR FURS12441418F(4)0 "YOUR FOX PELTS WERE NOT CUR(1).80)102.5)102>B1((.2(1).90)102.5)102RP(10(1))1aP21216pP61224P81226P101235F(2)0$"YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS THE PORTAGE. YOU HAD TO LEAVE THEPELTS BUT FOUN02)B1((.2(1).75)102.5)102OD1((.2(1).80)102.5)102"SUPLIES AT FORT HOCHELAGA COST $150.00 YOUR TRAVEL EXPENSES TO HOCHELAGA WERE $10.00."1410II140M1((.3(1).85)102.5)102E1((.15 YOU WILL RECEIVETHE HIGHEST VALUE FOR YOUR FURS."{}"THE COST OF YOUR SUPPLIES WILL BE LOWER THAN ALL THE OTHER FORTS."1400B$"YES"11101250:II160M1((.2(1).70)102.5)102E1((.2(1).65)102.5)1LAGA BUT EASIER THAN THE ROUTE TO NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE FOR YOUR FURS AND THE COST OF YOURSUPPLIES WILL BE AVERAGE."u1400xB$"YES"1110y1198z2{"YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT FORT NEW YORKALUE YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE COST OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK."e1400iB$"YES"1110j1160no"YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARISON, HARDER THAN THE ROUTE TO HOCHEDUTCH CONTROL."<U"YOU MUST CROSS THROUGH IROQUOIS LAND."ZV::"ANSWER 1, 2, OR 3."aWBoXB11119}YB21134[B31146\1110_w`"YOU HAVE CHOSEN THE EASIEST ROUTE, HOWEVER, THE FORT IS FAR FROM ANY SEAPORT. THE VAND IS UNDER PROTECTION OF THE FRENCH ARMY."2 O P"FORT 2 IS FORT STADACONA (QUEBEC) AND ISUNDER THE PROTECTION OF THE FRENCH ARMY.HOWEVER, YOU MUST MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS." RT"FORT 3 IS FORT NEW YORK AND IS UNDER WHICH YOU MAY TRADE.THE COST OF SUPPLIESAND THE AMOUNT YOU RECEIVE FOR YOUR FURSWILL DEPEND ON THE FORT THAT YOU CHOOSE." K L:"DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2 OR FORT 3?" M::, N"FORT 1 IS FORT HOCHELAGA (MONTREAL) "DO YOU WANT TO TRADE FURS NEXT YEAR? "1 187  C"YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET SUPPLIES FOR THE NEXT YEAR."z E"YOU HAVE A CHOICE OF THREE FORTS AT $;" PELTS DO YOU HAVE ";" RF(J)@ TF(0)F(1)F(2)F(3)F(4)S VF(0)1901100e XF(0)190500l \Jv ^1100|  "YOU MAY NOT HAVE THAT MANY FURS." "DO NOT TRY TO CHEAT. I CAN ADD." "YOU MUST START AGAIN."::: 15 )  g:/ E1((.15(1).95)102.5)102W B1((.25(1)1.00)102.5)102] , -"YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX." 61430 ; JJ14 LB$ M O"HOW MANY ";B F(4)=15);"FUR TRADER "I:::S1091^I600"DO YOU WISH TO TRADE FURS?"::1402B$"YES"100B$"NO"2044d: e"YOU HAVE $";I" SAVINGS AND 190 FURS TO BEGIN THE EXPEDITION."     NGE SENSOR SCAN)"<" LRS (FOR LONG RANGE SENSOR SCAN)"\" PHA (TO FIRE PHASERS)"" TOR (TO FIRE PHOTON TORPEDOES)"" SHE (TO RAISE OR LOWER SHIELDS)"" DAM (FOR DAMAGE CONTROL REPORTS)"" COM (TO CALL ON LIBRARY-COMP25);"-------X----"N .X I140:"-";:IEb "COME BACK SOON!"Ol 3210lv "THANKS FOR YOUR MONEY" "I'LL USE IT TO BUY A SOLID GOLD ROULETTE WHEEL"  3420  M$D$", "E$ \ N  9361 I140:"-";:I: PRINT 40 DASHESO "CHECK NO. ";(100(1))U _ 3230l 22);M$r x  "PAY TO THE ORDER OF -";B$;"--$"; P  & 7);"THE MEMORY BANK OF CALIFORNIA"0 : 25);"THE COMPUTER"D AST DOLLAR"6 3190#@ D02920@J "YOU BROKE THE HOUSE!!"NT P101000.X^ 2960gh "AGAIN ";or Y$| (Y$,1)"Y"1630 1,3,5,7,9,12,14,16,18,19,21,23,25,27,30,32,34,36 P13190 "TO WHOM SHALL I MAKE THE CHECK "; B$ T(C)49S372780) T(C)50S3827803 2110D T(C)S2780N 2110{ "YOU WIN ";B(C)35;" DOLLARS ON BET ";C DDB(C)35 PPB(C)35 C  "TOTALS: ","ME","YOU" " ",D,P" P02880 , "OOPS! YOU JUST SPENT YOUR LI"YOU NOW HAVE $ ";IC"(INCLUDING YOUR PREVIOUS SAVINGS)"L508WJ14cF(J)0jJp "MINK","BEAVER","ERMINE","FOX":::::::"OUI MAUDITE MERDE POURQOUI PRENDS-TU MON TEMPS.""SIGNE -- LE COMPUTEUR"FORT?"%z:::"ANSWER YES OR NO";/{B$:5|;b"YOUR BEAVER SOLD FOR $ ";B1F(2)"YOUR FOX SOLD FOR $ ";D1F(4)"YOUR ERMINE SOLD FOR $ ";E1F(3)"YOUR MINK SOLD FOR $ ";M1F(1)IM1F(1)B1F(2)E1F(3)D1F(4)IE!" GOLD","A BEAUTIFUL MAIDEN","A MAN EATING TIGER"|  "NOTHING ", "$22.59 ",A ROLLS ROYCE ",THE KEYS TO EXECUTIVE MENS ROOM" :"OPEN SESAME ","C-R-E-E-E-E-E-A-A-K ! ","WA LAH !","TA-DAH ! ":"ABRACADABRA!","CLICK !!!!!!1?!??????!!!!!!!","SURPRIS ^ h2 r:"DO YOU WANT TO PLAY AGAIN?":T |"(YES SIR! OR NO SIR!)";:Q$Z q Q$"YES SIR!"120 Q$"NO SIR!"500 :::: "HEY, I DIDN'T JUST FALL OFF A TURNIP " "TRUCK, YA KNOW!!!!!": 370/ :: "A POT OF ;D;" KEY "; K2% K2K(D)210+ @ S$(R(7)):DD1O DN1210U  ""YOU DID IT, BEHIND DOOR #";N;" IS.......... , 6R$(R(7))"!! ":360 @:"YOU LOOSE, THE REST OF THE KEYS ARE:" J TXDN:"DOOR ";X;" KEY "K(X):X;" TRIES TO OPEN THEM ALL":M "(SOME KEYS MAY OPEN MORE THAN ONE DOOR)": " SELECT A NUMBER (FROM 0 TO ";K31;"),": " AND THEN PRESS 'RETURN'":: X2N:K(X)R(K3):X TT1:T0320 :"TRIES LEFT #";T;" DOOR #"ORRISTOWN, NEW JERSEY PK(20)5 ZR(Z)(Z(1))J dX06:R$(X):X_ nX06:S$(X):Xh x:: D1:T10R(21):N3R(3):K38R(5) "THERE ARE ";N;" LOCKED DOORS,": "AND THERE ARE ";K3;" KEYS (0-"K31")": "YOU WILL HAVE ";T1 6 ** PROGRAM WRITTEN BY ** BILL INGRAM ** PUBLISHED IN 'MORE CREATIVE COMPUTING GAMES' PAGE52 *** ADAPTED TO APPLESOFT BY TED M. SNOOK(:217)"DOORS":<12)"CREATIVE COMPUTING" F10)"M      8);:R1I:8790:G2$;" REPAIR COMPLETED."B@ I:(1).23070^^ R1R(1):(1).63000r D(R1)D(R1)((1)51):"DAMAGE CONTROL REPORT:" 8790:G2$;" DAMAGED"::3070 D(R1)D(R1)(1)31:"DAMAGE CONTROL REPORT:" 8790:G2$;" STATE 0.2 A$" ":Z1K(I,1):Z2K(I,2):8670:8590Ud K(I,1)Z1:K(I,2)Z2:A$"+K+":8670y I:6000:D10:D6W1:W11D61 I18:D(I)02880 D(I)D(I)D6:D(I).1D(I)0D(I).1:2880 D(I)02880 D11D11:"DAMAGE CONTROL REPORT:"-LABLE". "FOR MANEUVERING AT WARP ";W1;"!'"E SNED(7)01990 "DEFLECTOR CONTROL ROOM ACKNOWLEGES ";S;" UNITS OF ENERGY" "PRESENTLY DEPLOYED TO SHIELDS." 1990 KLINGONS MOVE/FIRE ON MOVING STARSHIP. . . I1K3:K(I,3)0270182490V W101990dt "CHIEF ENGINEER SCOTT REPORTS 'THE":"ENGINES WON'T TAKE WARP ";W1;"!"n~ 1990 "WARP ENGINES ARE DAMAGED. MAXIMUM SPEED = WARP 0.2":1990 N(W18.5):EN02590 "ENGINEERING REPORTS 'INSUFFICIENT ENERGY AVAI 7"& :9);" C O U R S E"M ::"COURSE (1-9)";C1:C19C11b C11C192350 "LT. SULU REPORTS, 'INCORRECT COURSE DATA SIR!'":1990. X$"8":D(1)0X$"0.2"8 "WARP FACTOR (0-";X$;")";:W1::D(1)0W1.22470 L W10WUTER)"5" XXX (TO RESIGN YOUR COMMAND)"::1990V COURSE CONTROL BEGINS HEREo:9);" 3"9);" 4 . 2"9);" ..."9);" 5 ....... 1" 9);" ..." 9);" 6 . 8": 9);" 160(C$,1)"N"4100 &"5pL768819AzN:L,NGM 3,0,8,0,21,0,48,0,36,18,55,55,9,9,60,60,54,62,9,7,0 18,62,60,39,45,36,55,63,44,44,37,39,45,46,46,44,54,39,55,46,46,52,62,62,36,55,0,63,33,36,0L12 L15& L:L:2X(J),Y(J)- L5 BA@ L15T L:2X(J),Y(J)[ Lb Ni So SW1ĺ"NO WINNER.....!";:4100H(1)5ĺA$;" IS A WINNER!";:4100B$;" IS A WINNER!";" TRY AGAIN? ";C$(C$,1)"Y"MFL?xM(1)0M(2)0ĺ"YOU'RE BOTH OUT OF MISSLES!":SW1EUH(I)H(I)1_3000423:H(1);" HITS ";M(1);" MISSLES ";H(2);" HITS ";M(2);" MISSLES"H(I)51400 3000 "YOU DUMMIES INTO EACH OTHER!" SW1  NM(I)0ı M(I)M(I)1b 23:H(1);" HITS ";M(1);" MISSLES ";H(2);" HITS ";M(2);" MISSLES "z XMX(I)A:YMY(I)B #L140 (XMXMA:YMYMB -XM278XM1YM158YM11400 25:3XM,YM <(XMX(J))R(YMY(J))R2000ABA:3XM,YA0:B2 `X(I)X(I)KA7 jX(I)278X(I)X(I)278Q tX(I)1X(I)X(I)278c ~Y(I)Y(I)KB Y(I)158Y(I)Y(I)158 Y(I)1Y(I)Y(I)158 PC(I):D(I)4 1X(I),Y(I) (X(I)X(J))R2(Y(I)Y(J))R22500 (I16288)128ı 1:1120 OA2:B1:1120, PA2:B0:1120> QA2:B1:1120P RA1:B1:1120b SA1:B2:1120t TA0:B2:1120 UA1:B2:1120 VA1:B1:1120 WA2:B1:1120 XA2:B0:1120 YA2:B1:1120 ZA1:B1:1120 [A1:B2:1120 \:D(I)4 1X(I),Y(I)& C(I1)B C20D(I)D(I)1:1060Y C235D(I)D(I)1s $D(I)0D(I)16:1000 .D(I)17D(I)1 8D(I)1101,1102,1103,1104,1105,1106,1107,1108,1109,1110,1111,1112,1113,1114,1115,1116 MA1:B2:1120 NA1:B ";B$ ,X(1)20:Y(1)1200 6X(2)168:Y(2)120D @D(1)16:D(2)16^ I12:D(I)4:PC(I)q H(I)0:M(I)16 1X(I),Y(I):I 23:"PRESS ANY KEY TO START!":C$ I12 J3I 1000 I SW1H(1)5H(2)54000 500 BA( DOGFIGHT - MARK PELCZARSKI, 19802 6000D232,0:233,3UBA0:PC(1)3aPC(2)6goS2xR23"YOUR NAME? ";A$"OPPONENT'S NAME? ";B$"SPEED (1-10)? ";KR8:SW0SBA:0,0:62454 :21:A$,"     4T19005T1870,A(KK)1830,1850BA$"TOREAD"1820x"ONE OF THE HORSES OF THE ";A$;B$;" WAS KILLED."OFA(K)1830,1850&"ONE OF THE ";A$;B$;" WAS KILLED."01900:"NO ";A$;B$;" WERE KILLED."D1900NA$"TOREAD"189,6"ADIOS"@2030,JB3A(1)<TB.371740K^B.51720[hB.631700krB.871680t|C.1~1750C.21750C.31750C.41750C.5T(10C.2)"THE ";A$;B$;" DID A ";L$(T)" JOB."RS""THE CROWD AWARDS YOU"3C(Q)2.41570GC(Q)4.91550[C(Q)7.41520"OLE! YOU ARE 'MUY HOMBRE'!! OLE! OLE!"1580"BOTH EARS OF THE BULL""OLE!"1580"ONE EAR OF THE BULL"1580""NOTHING AT ALL"SWEAR THEY WILL KILL YOU--">Z"UNLESS THE BULL DOES FIRST."Hd1580^nC(Q)D(Q)(1)sD(Q)(4.5L6(D(1)D(2))2.54D(4)2D(5)D(3)2120A)xD(4)21430"THE CROWD CHEERS WILDLY"1450D(5)21450"THE CROWD CHEE((D(1)D(2))5D(3))#J412901K.2960L"YOU KILLED THE BULL"WD(5)2a1320o K.8960y1260(2<D(4)01390F"THE CROWD BOOS FOR TEN MINUTES. IF YOU EVER DARE TO SHOW YOUR FACE IN ANY RING AGAIN, THEY 0,1110BD(4)2L6605V"YOU ARE GORED AGAIN">`970DjLtZ1n~"IT IS THE MOMENT OF TRUTH.""HOW DO YOU TRY TO KILL THE BULL ";HH41230H51230"YOU PANICKED. THE BULL GORED YOU."970K(6A)10(1)ULL HAS GORED YOU"&A(0)980,1010:"YOU ARE DEAD"FD(4).5P1310k"YOU ARE STILL ALIVE""DO YOU RUN FROM THE RING";1930 Z121070"COWARD"D(4)0$1310."YOU ARE BRAVE. STUPID, BUT BRAVE."8A(0)109*E((E))830 4E3850Y>"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER"bH800hRu\E0920fE1900pM.5z930M2930M3LLMF(6AM10)(1)((D(1)D(2)D(3)10)5)F.51660"THE BES THE BULL. TRY FOR A KILL ";(19307Z111130I"CAPE MOVE";R800"THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--""DO YOU WANT TO KILL THE BULL "; 1930Z111130"WHAT MOVE DO YOU MAKE WITH THE CAPE "; EY." 570. &"GOOD LUCK. YOU'LL NEED IT."4 0: :J NA$"PICADO"W SB$"RES"a X1610l bD(1)C| vA$"TOREAD" {B$"ORES" 1610 D(2)C   Z11310 D(3)D(3)1 "PASS NUMBER";D(3) D(3)3760"HERE COMETTER YOUR CHANCES ARE"! ::' 2 D(5)1= D(4)1H L$(5)Z A((1)51)e I15p L$(I)w I  "SUPERB","GOOD","FAIR","POOR","AWFUL" "YOU HAVE DRAWN A ";L$(A);" BULL." A4530 A2550 570 "YOU'RE LUCKDETERMINE WHAT AWARD YOU DESERVE"F ^"'POSTHUMOUSLY', IF NECESSARY!"L c h"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE" l: m"PRESS ANY KEY TO BEGIN":A$ r:: w |"THE BETTER A JOB THE PICADORES AND TOREADORES DO, THE BDINARY SWIRL OF THE CAPE" f ""INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL ON ANY TURN:" $"4 - (OVER THE HORNS) OR:" &"5 - (IN THE CHEST) 6"BUT IF I WERE YOU, I WOULDN'T TRY IT BEFORE THE SEVENTH PASS." J! T"THE CROWD WILL ANCE TO KILL A BULL". ::::::::::S "PRESS ANY KEY TO CONTINUE":A$Y "ON EACH PASS OF THE BULL, YOU MAY TRY: "0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)" "1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE" "2 - OR < " BULLFIGHT "BYA(K)((1)21)c::kL1"DO YOU WANT INSTRUCTIONS ";Z$Z$"NO"400::::::"HI ALL YOU BLOODLOVERS AND AFICIONADOS" "HERE IS YOUR BIG CH     ,63:240,50240,63:233,54233,55:234,54234,55p8235,56235,57:236,56236,57:237,58237,59:238,58238,59B:21:J02:K251125:768,K:769,15:770:K,JL"DO YOU WANT TO PLAY ANOTHER GAME(Y/N)";:A$:A$"Y"60VA$"N"Ā`:21:1:213,63:214,50214,63:207,60207,61:208,60208,61:211,60211,61:212,60212,61:209,56209,59t210,56210,59$220,50225,50:220,51225,51:220,62225,62:220,63225,63:222,50222,63:223,50223,630.231,50231,63:232,50232,63:239,5023952163,61:164,52164,61:171,52171,61:172,52172,61:165,50170,50:165,51170,51:165,62170,62:165,63170,63176,50176,61:177,50177,61:184,50184,61:185,50185,61:178,62183,62:178,63183,63a205,50205,63:206,50206,63:213,500:1040LADAD1:AD20āI120:768,255:769,15:770:I:990:1150:1100U5203:150,50150,53:151,50151,53:158,50158,53:159,50159,53152,54152,55:153,54153,55:156,54156,55:157,54157,55:154,56154,63:155,56155,63r163,470RGB(G):310:490.\HB(H):340:5007f960LpGB(G):310:490azHB(H):340:500vIB(I):370:510960EB(E):250:470FB(F):280:480HB(H):340:500IB(I):370:510A1B1C1D1E0F1G1H1I1İ9960GB(G):310:490 9605BB(B):160:440JDB(D):220:460_EB(E):250:470tFB(F):280:480HB(H):340:500 960CB(C):190:450 FB(F):280:480*IB(I):370:5104960>DB(D):220:460HEB(E):250::DB(D):220:460*DEB(E):250:4703N960HXAB(A):130:430]bBB(B):160:440rlCB(C):190:450{v960BB(B):160:440CB(C):190:450EB(E):250:470FB(F):280:480960AB(A):130:430DB(D):220:4C(I):105,81102,81100,79100,77103,75105,75106,77106,79103,85::1:21:"WHICH SQUARE (1-9) 0 FOR A NEW PATTERN.";:A$:A$"0"100Z(A$):Z1520" ":Z550,600,640,690,730,790,830,880,920&AB(A):130:4300BB(B):160:4403:dC(F):106,47104,45102,45100,47100,53102,55104,55106,53106,51104,49102,49100,51:C(G):40,7546,7546,7742,8142,85:C(H):71,8070,7970,7872,7574,7576,7876,7975,8071,8071,8070,8371,8574,8576,8376,8175,80:H70,1772,1574,1576,1776,1970,2576,25: C(C):100,17102,15104,15106,17106,19105,20104,20105,20106,21106,23104,25102,25100,23: C(D):45,4545,55:44,4541,5046,50:C(E):76,4570,4570,4974,4976,5176,5374,5572,5570,5 TH0ĒH:360 ^75 hJ5788:J,72J,93:J:F rI0ĒI:390M |7k J92113:J,72J,93:J: 1:21:"PUSH SPACE FOR ANOTHER PATTERN (RETURN TO PLAY)";:A$ A$(32)100 520 C(A):40,1742,1542,2540,2544,25:, C(B):C:210 7+ J92113:J,12J,33:J:< D0ĒD:240C 7` J3253:J,37J,68:J:q E0ĒE:270x 7 J5788:J,37J,68:J: F0ĒF:300 "7 ,J92113:J,37J,68:J: 6G0ĒG:330 @7 JJ3253:J,72J,93:J:):GA(1):HA(1):IA(1)( n:21:AD0 x130:430:160:440:190:450:220:460:250:470:280:480:310:490:340:500:370:510:400 A0ĒA:150 7 J3353:J,12J,33:J: B0ĒB:180 7 J5788:J,12J,33:J: C0Ē <:5:A29:B31:70:A54:B56:70:A89:B91:70:A114:B116:70:80` FIAB:I,10I,95:I: PA9:B11:90:A34:B36:90:A69:B71:90:A94:B96:90:100 ZIAB:30,I115,I:I: dA(Y)(2(1)):AA(1):BA(1):CA(1):DA(1):EA(1):FA(1h 770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0C(1)0:C(0)3:B(0)1:B(1)0(::21:255:21130E          BECAUSE YOU DIRECTED FIRE IN ON YOUR OWN"Jw-"UNIT YOU WILL RECIEVE THE"nx-14)"2ND LT DONALD G. BARNETT"}-14)"QUICK DRAW CITATION"-:"THE AWARD WILL BE PRESENTED TO YOUR NEXT OF KIN"- 12000 .X(16336):X(16336):X(16336).ERS CLUB"+-:::22)"JOHN J. KOLOSKI" B(-22) "LTC FA " Z--22) "COMMANDING" fO- 12000lP-rZ-d-:::::n-"YOUR EXTRAORDINARY INCOMPETANCE AND LACK OF FORESIGHT HAS RESULTEDq-"IN THE DESTRUCTION OF YOUR BATTERY" )t-" ,"HAS TURNED THE COURSE OF THE BATTLE" Z,:"A COMMENDATION WILL BE PLACED IN YOUR"-"RECORDS AND A MONUMENT WILL BE ERECTED"-"IN YOUR HONOR AT FT. SILL"  -"YOU WILL ALSO RECIEVE A LIFETIME PASS" -"TO WED. NITE BINGO AT THE OFFIC5 11500, 0: XX,YY>, IT 1 7: TI 1 2: TI J, 11990S, IT\, 70b,x, I1 10: 11990, K1 15:X(16336): K: I,,::+,"CONGRATULATIONS YOUR VALOR, LEADERSHIP","AND EXPERTISE IN ARTILLERY TACTICS" IT1 4 * 11990* IT&+ 708+"YOU MISSED"T+X(16336):X(16336)]+ 70{$,"YOU JUST SHOT YOURSELF"), IT 1 13: TI1 6: TI +, 11990-, IT., 11600,"CONGRATULATIONS --- YOU GOT IT",TGTTGT1 , TGT. 11400&D% 9: XX,YY: 0: OX,OY6F%OYYY:OXXXAM% 9560UN%"OUT OF RANGE"[X%'C00:D1784:D2785:D3787:D4810:D5127:D616384 ' 169,0,160,0,32,113,248,141,42,3,96$' I784 794:J: I,J: I.'*"STRUCK MOUNTAIN"* LE:YY YYSCALE:YY39YY $+% 980% XX39 9522 B1%XX39U2% XX0 9524 ^3%XX0r4% YY39 9526 }5%YY39 6% YY0 95337%YY0=%D3,XX:D2,YY:D1?% (D4)5 11000@% (D4)8 11200A% (D4)4 11300B% (D4)2 QQ1W9:XX(QQ):YY(QQ):XX1XX35:YY1YY25: XX,YY:QQQ 22,28: 21,28^TGTW94d(#DXX2X1:DYY2Y1:XSCALE39DX:YSCALE39DY 2# <# (#DXX2X1:DYY2Y1:XSCALE39DX:YSCALE39DY2# <#%YYY1:XXX1&%XXXXSCA35:X(16336) JH# 11990, IR8 12000A 5O I1 10n 16(I2),27(I2)39I v I 8 0,3939: 0,390: 0,3939 4 37,386 2 33, 38: 35,38W9(3) 51:W9(W9) <N FAST"  IR1 9"  11990A  JH1 40:X(16336) J  JHV  11990_  IRk  12000 "SORRY --- YOU'RE OUT OF BULLETS !"; "IMMEDIATE RETROGRADE OPERATION IS CALLED FOR --- BUG OUT !!" ;  IR1 9: 11990 JH1 C  PWD0 940! V0PC1007 CO(EL):SI(EL)D VXV0COR VYV0SI b XXVXWINDt VYVYGRAVITY VY300 210 VY300 YYVY 9500 200 ::: "SORRY --- YOU'RE OUT OF POWDER !" "I HOPE YOU CAN RUWIND 2 9000 < 5000F F"WIND =";WIND;"GRAVITY =";GRAVITY j P"ROUNDS:";RDS;" CHARGES:";PWD| Q RDS0 990 RRDS RDS1 dX 800 : Y500 n"ENTER CHARGE,ELEVATION (DEG)"; sVY0:VX0 x PC,EL yELEL57.2958 }PWDPWDP 10# (X10:Y10:X25000 :Y29900 F *RDS (X1)23:RDS(RDS) 8 V +PWDRDS4.0 -GRAVITY (X2)25:GRAVITY (GRAVITY).1(10(X1)) .1 .WIND(X2)15:WIND (WIND).1(10(X2)) /DIR (X2) 0 DIR .51 50  1WIND JECT IS TO HIT ALL OF THE":"TARGETS ON THE SCREEN BEFORE RUNNING":"OUT OF ROUNDS OR POWDER CHARGES" :"YOUR POSITION IS INDICATED BY THE ":"GREEN BLOCK. TARGETS ARE BLUE. ":"OBSTACLES ARE GREY": : "READY TO BEGIN"; ! Z$ " Z$"NO" <  10000C :::"ARTILLERY":::"BY RICK LONGBRAKE":::"IN EACH GAME THE TARGETS, THE WIND":"VELOCITY, THE NUMBER OF ROUNDS AND""POWDER CHARGES AVAILABLE AND THE""GRAVITY (FORCE ON THE PROJECTILE)":"WILL VARY"e :"THE OB            PTAIN ";N$;".".""SHUT DOWN YOUR ENGINES'."?"I14000:I""CHIEF ENGINEER SCOTT REPORTS 'WARP ENGINES SHUT DOWN AT SECTOR ";S1;",";S2:"OF QUADRANT ";Q1;",";Q2;"'" TT0T96220"8Q1Q28Q4Q53370"TT1:3910:1320#< MANEU:Q11X51:Q11:S11.!VQ18X51:Q18:S18G!~Q21X51:Q21:S21`!Q28X51:Q28:S28o!X503860!"LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAND:"""'PERMISSION TO ATTEMPT CROSSING OF":"GALACTIC PERIMETER IS HEREBY *DENIED*":"CAW11T8.1(10W1), z TTT8:TT0T96220R SEE IF DOCKED, THEN GET COMMAND\ 1980{ EXCEEDED QUADRANT LIMITS X8Q1XNX1:Y8Q2YNX2:Q1(X8):Q2(Y8):S1(XQ18) S2(YQ28):S10Q1Q11:S18 S20Q2Q21:S28!$X5000 S8(S1)24(S2)326:(C$,S8,2)""3360k S1(S1X1):S2(S2X2):"WARP ENGINES SHUT DOWN AT "; "SECTOR ";S1;",";S2;"DUE TO BAD NAVIGATION":I12000:I::3370 I:S1(S1):S2(S2)* A$"<*>":Z1(S1):Z2(S2):8670:3910:T81 f OF REPAIR IMPROVED":1 BEGIN MOVING STARSHIPV A$" ":Z1(S1):Z2(S2):8670& X1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):XS1:YS2D X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):Q4Q1:Q5Q2b I1N:S1S1X1:S2S2X2:S11S19S21S29350,1120,1130IL-V" ":1050A`:"XX"::1050Uj:"$$"::1050vI6Ė20:I5:I;:S(I):390@I1:I;:S(I):390J6,28,200,850,2400,13000,25000#+ 109*I0728D4J18N>KIJ`HM2:K10M3kRE(K)Kz\E(K);M);fJpIz270I120A(I)0ī1050Q10((A(I)1)10)S4(A(I)(10((A(I)1)10))1)1 Q:S:T1110210! 3,0,12,0,1,42,0,1,4,113C 0,0,1,9,820,0,0,1,3,90,1800] 0,0,0,1,20,410,8100{ 0,0,0,0,9,90,1650,18000 0,0,0,0,3,45,335,4700,18500 0,0,0,0,2,20,142,1000,4500,19000 0,0,0,0,0,10,75,300,2000,12500,19500 0,0,0,0,0,D8:"YOU MATCHED WITH--";3II1R:A(I)C(I):IANT3:1000Gbml20:"PICKED ";P;" CORRECT ";R:vF(R,P)0Ģ21:"YOU LOSE":650:"YOU WON ";F(R,P);" DOLLARS!":"HIT RETURN TO END OR SPACE TO PLAY";:B$B$(13)ĀI112:C(I)0 I I1P0  J 1 20G  S(I)B(J) 460Q RR1_ C(R)S(I)g  Jo  I 1:"HIT ANY KEY FOR NUMBERS COMPUTER PICKED";:B$ I120:A(I)B(I):I T2:1000  L 1 1000  L &I120:A(I)0:ITOO LOW":1500- ^S(I)80ĺ"TOO HIGH":1500= c I1 390J hG1I1u rS(I)S(G)Ģ20:"ALREADY PICKED":1500| |G A(I)S(I) A(I)0390  I I112:A(I)S(I):I I112:A(I)0:I I1P:A(I)S(I):I T1:1000 R0:  P5 "P12Ģ1:"TOO MANY NUMBERS ";:270V ,P1Ģ1:" TOO FEW ":270 61:"WHAT ARE YOUR SELECTIONS " JP6332 KI1P:I;:S(I) LP6āI1P:I6ĺI;:S(I):I6ī333:390 MI6ĢI5:20:I;:S(I) TS(I)1ĺ" F(12,12) J 1 12, I 1 12> IJ 190J F(I,J)R IZ Jj I 1 20 B(I)(80(1)1) I1 260 J 1 I1 B(I)B(J) 220 J  I :800 1:"HOW MANY NUMBERS WOULD YOU LIKE";: :9  "PICK UP TO 12 NUMBERS, FROM 1 TO 80 "A (:k 2 "THE COMPUTER WILL PICK 20 NUMBERS"s 7: <:"YOUR WINNINGS WILL BE DETERMINED BY "; F:"YOUR NUMBERS THAT MATCH THE COMPUTERS'" Z : dB(20),C(20),S(12),E(80),A(20) " DONATED BY KEVIN ARMSTRONG*:G 10)"****************"d 10)"****************" 10)"***** *****" 10) "***** KENO *****" 10) "***** *****" 10) "****************" 10)"****************"  :     ""PREVIOUSLY OCCUPIED SQUARE."]:"HIT THE 'RETURN' KEY WHEN YOU ARE READY";:G$:100POU MAY CHOOSE WHO GOES FIRST"J"BY TYPING '0' FOR THE COMPUTER TO GO,"w"OR A NUMBER 1 TO 6 TO MAKE YOUR FIRST""MOVE INTO ONE OF THE SIX POSITIONS IN""THE TOP ROW. THEREAFTER, YOU MAY MOVE""RIGHT, LEFT OR DOWN, BUT NEVER INTO A"OYED IT"(z:10);"HOPE YOU DID TOO!"220:c::" IN THIS GAME, YOU AND THE COMPUTER""ALTERNATELY MOVE A SINGLE COUNTER UNTIL""IT REACHES THE GOAL AREA AT THE BOTTOM.""THE PLAYER MOVING INTO THE GOAL IS THE""WINNER. Y7:20,37:15,34:15,35:33,3622:32,3423:19,34:19,35:18,37:21,37pH32,3726:25,32:25,37:27,32:27,37R32,3729:32,3733:30,33:30,34:31,34:31,35:32,35:32,36\T1200:T:SIGNSIGN1:SIGN6810f760p::8:10);"WELL I ENJ$;:R$"Y"ī120!R$"N"ī760* 880T0::F16:G15:6F1,6G3:G:F :::"THE SCORE: COMPUTER:";CG;" PLAYER:";PG*0:I3138:3,37I:I:T1200:T46:32,376:5,32:5,37:7,32:7,37F>32,3415:34,3616:16,2236:17,3CAN'T MOVE THERE. THAT'S WHERE THE COUNTER JUST MOVED FROM !":590U PLAYER WINSpO:Z16:6Z1,27:Z:"YOU WIN !!!!! YOU MUST BE LUCKY !!":"THE SCORE IS: PLAYER:";PG;" THE COMPUTER:";CG24:"PLAY AGAIN (Y/N) ?";:18:R$:RRR1:A(R,C)1:5402G$"D"R5PGPG1:730eG$"U"ė:"YOU CAN'T MOVE BACK UP !!!"::590:"YOU MUST USE EITHER 'L', 'R' OR 'D' FOR LEFT, RIGHT OR DOWN."::590:"YOU CAN'T MAKE THAT MOVE.":"IT'S OFF THE BOARD !!":590C:"YOU 'R' OR 'D' KEY"0N"YOUR MOVE ?";:11:G$:G$;`XG$"L"C1A(R,C1)0CC1:A(R,C)1:540tbG$"L"C1700lG$"L"A(R,C1)1710vG$"R"C6A(R,C1)0CC1:A(R,C)1:540G$"R"C6700G$"R"A(R,C1)1710G$"D"R5:G:F13:6C1,6R30T1100:T:570J PLAYER'S GO PLOTTEDt0::F16:G15:6F1,6G3:G:F&13:6C1,6R3:T1300:T:3500 PLAYER'S GO::"IT'S YOUR MOVE !!!"D"TO MOVE LEFT, RIGHT OR DOWN, JUST HIT THE 'L', J(3(2)):J1RR1:A(R,C)1:480N A(R,C1)0C6CC1:A(R,C)1:480b RR1:A(R,C)1~  COMPUTER'S GO PLOTTED :::" T H E C O M P U T E R I S"::" T H I N K I N G"; T1900:T0::F16:G15:6F1,6G390 h(C(C2)2)0430+ r MOVE RIGHTP |A(R,C1)0CC1:A(R,C)1:480 R4J(3(2)):J1RR1:A(R,C)1:480 A(R,C1)0C1CC1:A(R,C)1:480 RR1:A(R,C)1:480  MOVE LEFT A(R,C1)0CC1:A(R,C)1:480% R4 FIRST, ENTER A NUMBER FROM 1 TO 6"Q "OR IF YOU WANT ME TO GO FIRST, ENTER 0" ""YOUR CHOICE ?";:13:N$:N$:(N$)48(N$)54ī270 ,N(N$) 6N0C(6(2)1):A(R,C)1:480 @CN:A(R,C)1 J540 T COMPUTER'S GO ^R5CGCG1:737:33,3713:33,3719B 22,2733:22,2735:33,3722:33,3727Z 30,3537:33,3730h PG3270 :::" YOU HAVE TO GO FIRST !!!" :"ENTER A NUMBER FROM 1 TO 6 ?"; 28:N$:N$:(N$)49(N$)54ī240 N(N$):320# :"TO GOd: nA(6,7)8 xM106:M207:A(M1,M2)0:M2:M1D R1:C1w ::1:X2386:0,30X:X:31,392:31,3938 Y0306:2,38Y:Y:2,3839 : PRINTING'GOAL' 12 5,1033:5,1037:8,1035:33,375:35,3710 14,1933:14,19^ : "GOAL" BY FRED PENCEO : FROM 'SOFTSIDE' MAGAZINE, SEPTEMBER 1980g : MODIFIED BY CRSx(::9:17:2"GOAL":<PAUSE11500:PAUSEF20:"DO YOU WANT INSTRUCTIONS (Y/N) ?"P20:32:R$:R$:R$"Y"ī910ZR$"N"ī70          13:X3K(I,1)Y3K(I,2)5190(+<I:I3;+FK(I,3)0:5430c+ZA$" * ":Z1X:Z2Y:8830:Z305280+"STAR AT ";X3;",";Y3;" ABSORBED TORPEDO ENERGY.":6000:1990+A$">!<":Z1X:Z2Y:8830:Z304760,"*** STARBASE DESTROYED ***":B3B31:B9B91:"**8XXX1:YYX2:X3(X.5):Y3(Y.5)H*`X31X38Y31Y385490*" ";X3;",";Y3:A$" ":Z1X:Z2Y:8830*Z304920*A$"+K+":Z1X:Z2Y:8830:Z305210*"*** KLINGON DESTROYED ***":K3K31:K9K91:K906370+IPEDO COURSE (1-9)";C1:C19C115)C11C194850p)"ENSIGN CHEKOV REPORTS, 'INCORRECT COURSE DATA, SIR!"z)1990)X1C(C1,1)(C(C11,1)C(C1,1))(C1(C1)):EE2:PP1)X2C(C1,2)(C(C11,2)C(C1,2))(C1(C1)):XS1:YS2*."TORPEDO TRACKA$" ":8670O(*K(I,3)0:G(Q1,Q2)G(Q1,Q2)100:Z(Q1,Q2)G(Q1,Q2):K906370b(>I:6000:1990(R PHOTON TORPEDO CODE BEGINS HERE(\P0ĺ"ALL PHOTON TORPEDOES EXPENDED":1990(zD(5)0ĺ"PHOTON TUBES ARE NOT OPERATIONAL":1990 )"PHOTON TORNEMY AT ";K(I,1);",";K(I,2):4670p'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 ***":4580'"SENSORS SHOW ";K(I,3);" UNITS REMAINING":4670(K3K31:K9K91:Z1K(I,1):Z2K(I,2):ON TARGET;"1&"ENERGY AVAILABLE = ";E;" UNITS"]&"NUMBER OF UNITS TO FIRE";X:X01990m&0EX04360&:EEX:D(7)0XX(1)&bH1(XK3):I13:K(I,3)04670&H((H1D(0))((1)2)):H.15K(I,3)4530%'"SENSORS SHOW NO DAMAGE TO E0'% PHASER CONTROL CODE BEGINS HEREP%D(4)0ĺ"PHASERS INOPERATIVE":1990_%K304330%"SCIENCE OFFICER SPOCK REPORTS SENSORS SHOW NO ENEMY SHIPS IN THIS QUADRANT":1990%D(8)0ĺ"COMPUTER FAILURE HAMPERS ACCURACY" &"PHASERS LOCKED ADRANT ";Q1;",";Q25$O1$"-------------------":O1$k$IQ11Q11:N(1)1:N(2)2:N(3)3:JQ21Q21$I0I9J0J9N(JQ22)G(I,J):Z(I,J)G(I,J)$TJ:L13:": ";:N(L)0ĺ"+++ ";:4230$r((N(L)1000),3);" ";%L:":":O1$:I:199VER ENERGY S/R **&#FEEN10:E0ıl#Z"SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER."#dSSE:E0:S0S0## LONG RANGE SENSOR SCAN CODE#D(3)0ĺ"LONG RANGE SENSORS ARE INOPERABLE":1990$"LONG RANGE SCAN FOR QUY AGAIN ?";A$ :A$"YES"70/ ?A$"NO"600P D" PLEASE ANSWER YES OR NO."Y N562_ X~ b"O.K. HOPE YOU HAD FUN!!" ( A((TF)2)0 "MM1' TJ15784 ^IJJ7B cA(I)0ĞP dA(I)1ĝ[ hA(I);b rIh |o Ju ~ 100 S0 I164 SSA(I) I "YOU MADE";M;"JUMPS AND HAD";S;"PIECES &"REMAINING ON THE BOARD." 0 2"TR1((T1)8) T2T8T1( F172306 T17230D F28230R T28230g (F1T1)2230| (F2T2)2230 A((TF)2)0230 A(F)0230 A(T)1230 250 " ILLEGAL MOVE...TRY AGAIN..." 100 A(T)1 A(F)0M= N" AND HERE IS THE OPENING POSITION OF THE CHECKERS."C OO PJ164Z RA(J)1a TJp VJ19438} XIJJ3 ZA(I)0 \I ^J `M0 b340 d"JUMP FROM";F iF0500 n"TO ";T p xF1((F1)8) F2F8F1 T" AN EMPTY SQUARE. WHEN YOU HAVE NO POSSIBLE JUMPS REMAINING INPUT A '0' IN RESPONSE TO QUESTION 'JUMP FROM?'"u > A"HERE IS THE NUMERICAL BOARD" B FJ1578 JJ;4);J1;8);J2;12);J3;16);J4;20);J5; K24);J6;28);J7 LJ 30);" ONE CHECK""::-A(64)N " SOLITAIRE CHECKER PUZZLE"T" 48 CHECKERS ARE PLACED ON THE TWO OUTSIDE SQAURES OF A STANDARD 64-SQUARE CHECKERBOARD. THE OBJECT IS TO REMOVE AS MANY CHECKERS AS POSSIBLE BY DIAGONAL JUMPS"o   sPXG0YG0206054xP"INVALID COORDINATES":20510A}P:20300eP CHECK CURRENT TRIES FOR GUESSyPGX18:GY18PSQ(GX,GY,1)120725PSQ(GX,GY,2)120725PGN%GN%1PGYPGXP33,40:QNB%GN%ĺ"YOU WIN :";GN%NB%100;"N' ";Y$-PY$""ī20605/2PXG(X$):YG(Y$)D7PXG1XG820595Y: FROM CHECK ALLd N33,40:34,0w"N24:7:" ";#NPSCR%99ĺ" PREVIOUS LOW = ";PSCR%)N*N5::" L A S E R S E A R C H ":,N43NN N1:5:" 1 2 3 4 51550>$XX1:YY1:CIN8X:DX0:DY1:DIR2:503: LEFT K&X1500`(LOUT25CIN:574l0 RIGHTy2X15663SQ(X1,Y,1)15664XX1:YY1:CINY:DX1:DY0:DIR1:503: DOWN 6X85707SQ(X1,Y,1)15708XX1:YY1:CIN25 X8530$SQ(X1,Y,1)1530ZXX1:YY1:CIN25Y:DIR3:DX1:DY0:503: UP gY1500|LOUT41CIN:574 UPY1546SQ(X,Y1,1)1546 XX1:YY1:CIN33X:DX0:DY1:DIR4:503: RIGHT "Y8550#SQ(X,Y1,1):DIR4:DX0:DY1:503: RIGHT + Y8516C SQ(X,Y1,1)1516z XX1:YY1:CIN8X:DIR2:DX0:DY1:503: LEFT X8500 LOUT25CIN:574  LEFT X1526 SQ(X1,Y,1)1526 XX1:YY1:CINY:DX1:DY0:DIR1:503: DOWN ,1)1LOUTLIN:426 -  LOOP FOR ALL ? XXDX:YYDYR DIR1X8517e DIR2Y1532x DIR3X1552 DIR4Y8572 SQ(X,Y,1)1LOUT99:574 DIR510,520,540,560 Y1513 SQ(X,Y1,1)1513 XX1:YY1:CIN33X(X,Y,1)1LOUT99:426% DX0ī408. 418A X1XL0:412h XLX1:SQ(XL,Y,1)1LOUTLIN:426{ X8XH0:426 XHX1:SQ(XH,Y,1)1LOUTLIN:426 426 Y1422 YLY1:SQ(X,YL,1)1LOUTLIN:426 Y8426 YHY1:SQ(X,YHZ1500:Z I! S FIND STARTW TXZE(CIN,1):YZE(CIN,2):DXZE(CIN,3):DYZE(CIN,4)] ]s ^DX0XLIM0:356 `YLIM0:DX0XLIM1:DIR3:360 bXLIM8:DIR1:360 dXLIM0:DY0YLIM1:DIR2:360 fYLIM8:DIR4 h  CHECK ENTRY SQ/AA 034 1S$""* 2LIN10S$" "7 3S$;LIN;C @S2$" "n ALOUT32ĺS2$;"HIT":ZSCR%ZSCR%1:325 BLINLOUTĺS2$;"REFL":ZSCR%ZSCR%1:325 CLOUT10S2$" " DS2$;LOUT;" ":ZSCR%ZSCR%2 EAA16AA1 F24 G"SCORE=";ZSCR%:# 33,40SQ(8,8,8)4ZE(32,4),BALL(10,2)IZSCR%0:PSCR%99cd30000:READS SQ DATAvi20000: TITLEn30120:READS ENTRY DATAp"DO YOU WANT INSTRUCTIONS ";:ANS$q(ANS$,1)"Y"İ40000x21000,-AAAA1.33,40              :72608:72608:7260+8 :726018H?8\I::O1$k8^"STARDATE ";(T10).18`"CONDITION ";C$8b"QUADRANT ";Q1;",";Q28d"SECTOR ";S1;",";S2 9f"PHOTON TORPEDOES 0677087J:"*** SHORT RANGE SENSORS ARE OUT ***"::o7rO1$" --- --- --- --- --- --- --- ---":O1$:I18u77J(I1)241(I1)24223:" ";(Q$,J,3);:J7I6850,6900,6960,7020,7070,7120,7180,72407:72607:726070:72608l1(I.5)8(J.5)1(J.5)86540L6ZA$">!<":Z1I:Z2J:8830:Z316580a6J:I:D00:66506D01:C$"DOCKED":EE0:PP06"SHIELDS DROPPED FOR DOCKING PURPOSES":S0:67206K30C$"*RED*":67206C$"GREEN":EE0.1C$"YELLOW"7@D(2)TAIN ";N$;"!":"THE LAST KLINGON BATTLE CRUISER MENACING"e5"THE FEDERATION HAS BEEN DESTROYED.":5"YOUR EFFICIENCY RATING IS ";1000(K7(TT0))2:62905 SHORT RANGE SENSOR SCAN & START UP SUBROUTINE5IS11S11:JS21S21$62(I.5) THE END OF YOUR MISSION",4::B9063604"THE FEDERATION IS IN NEED OF A NEW STAR-SHIP COMMANDER FOR A SIMILAR MISSION--"4"IF THERE IS A VOLUNTEER,"4"LET HIM STEP FORWARD AND ENTER 'AYE'";A$:A$"AYE"260495"CONGRATULATIONS, CAPROL REPORTS '";G2$;" DAMAGED BY THE HIT'"238I:D3B END OF GAMEc3L"IT IS STARDATE ";T:62703`:"THE ENTERPRIZE HAS BEEN DESTROYED. THE FEDERATION WILL BE CONQUERED":62203j62204~"THERE WERE ";K9;" KLINGON BATTLE":"CRUISERS LEFT AT2(1))):SSH:K(I,3)K(I,3)(3(0))h2H;" UNIT HIT ON ENTERPRIZE FROM SECTOR ";K(I,1);",";K(I,2)w2S062402" ":H2062002(1).6HS.0262002R1R(1):D(R1)D(R1)HS.5(1):8790)3"DAMAGE CONT------------------------------"O1 8790:G2$;(Z$,25(G2$));(D(R1)100).01e1>R1::D005720o1\19901f KLINGONS SHOOTING1pK30ı1zD00ĺ"STARBASE SHIELDS PROTECT THE ENTERPRIZE":1I13:K(I,3)06200%2H((K(I,3)D(1))(STIMATED TIME TO REPAIR: ";.01(100D3);" STARDATES"0"WILL YOU AUTHORIZE THE REPAIR ORDER CAPTAIN ";N$;"?";:"(Y/N)":A$0A$"Y"19900I18:D(I)0D(I)00I:TTD3.10:"DEVICE STATE OF REPAIR":R1181"------":1990/0 DAMAGE CONTROL./:D(6)05910d/D"DAMAGE CONTROL REPORT NOT AVAILABLE":D001990/XD30:I18:D(I)0D3D3.1/I:D301990/:D3D3D4:D31D3.9/"TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;"50"ESXĺ"":19901.XES5630v."SHIELD CONTROL REPORTS 'THIS IS NOT THE FEDERATION TREASURY.'"."":1990.EESX:SX:"DEFLECTOR CONTROL ROOM REPORT:"/"SHIELDS NOW AT ";(S);" UNITS":"PER YOUR ORDER.:Z2Y:A$" ":8670O-^G(Q1,Q2)K3100B310S3:Z(Q1,Q2)G(Q1,Q2):6000:1990q-r"TORPEDO MISSED":6000:1990- SHIELD CONTROL-D(7)0ĺ"SHIELD CONTROL INOPERABLE":1990-"ENERGY AVAILABLE = ";ES:"NUMBER OF UNITS TO SHIELDS ";X .X0,B90K9TT0T95400[,"THAT DOES IT, CAPTAIN ";N$;"!"YOUAREHEREBYRELIEVEDOFCOMM","AND SENTENCED TO 99 STARDATES AT HARD LABOR ON CYGNUS 12 ",6270,"STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER COURT MARTIAL!":D00-6Z1X"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)   G51ĴZ59230,9240,9250,9260,9230,9240,9250,92608H$KH$G2$G2$" I":_H$G2$G2$" II":tH"$G2$G2$" III":H,$G2$G2$" IV":HJ$" 1 2 3 4 5 6 7 8"HT$"---- ---- ---- ---- ---- ---- ---- ----"I^$"1 ANTARES $"POLLUX":9210@G#Z49130,9140,9150,9160,9170,9180,9190,9200WG#G2$"SIRIUS":9210mG#G2$"DENEB":9210G#G2$"CAPELLA":9210G#G2$"BETELGEUSE":9210G#G2$"ALDEBARAN":9210G#G2$"REGULUS":9210G#G2$"ARCTURUS":9210G#G2$"SPICA"2H#ET REGION NAME ONLYIFF#Z54ĴZ9040,9050,9060,9070,9080,9090,9100,9110SFK#9120kFP#G2$"ANTARES":9210FZ#G2$"RIGEL":9210Fd#G2$"PROCYON":9210Fn#G2$"VEGA":9210Fx#G2$"CANOPUS":9210F#G2$"ALTAIR":9210F#G2$"SAGITTARIUS":9210G#G2G2$"SHIELD CONTROL":3Ef"G2$"LIBRARY-COMPUTER":]Et" STRING COMPARISON IN QUADRANT ARRAYE~"Z1(Z1.5):Z2(Z2.5):S8(Z21)3(Z11)241:Z30E"(Q$,S8,3)A$ıE"Z31:E2# QUADRANT NAME IN G2$ FROM Z4,Z5 (=Q1,Q2)F<# CALL WITH G5=1 TO GS8):DL" PRINTS DEVICE NAME$DU"TDV"R18792,8794,8796,8798,8800,8802,8804,8806mDX"G2$"WARP ENGINES":DZ"G2$"SHORT RANGE SENSORS":D\"G2$"LONG RANGE SENSORS":D^"G2$"PHASER CONTROL":D`"G2$"PHOTON TUBES":Db"G2$"DAMAGE CONTROL":Ed"S)>C!R1R(1):R2R(1):A$" ":Z1R1:Z2R2:8830:Z308590DC!nC! INSERT IN STRING ARRAY FOR QUADRANTC!S8(Z2.5)3(Z1.5)241C!(A$)3ĺ"ERROR":C!S81Q$A$(Q$,189):C!S8190Q$(Q$,189)A$:D!Q$(Q$,S81)A$(Q$,190";C1((X)(A))9B !"DISTANCE = ";(X2A2):H811990FB !I:1990B4!B30ĺ"FROM ENTERPRIZE TO STARBASE:"W1B4:XB5:8120B>!"MR. SPOCK REPORTS, 'SENSORS SHOW NO STARBASES IN THIS QUADRANT.":1990C! FIND EMPTY SPACE IN QUADRANT (FOR THING(A)(X)8330FAv "DIRECTION = ";C1((((A)(X))(A))(A)):8460oA "DIRECTION = ";C1((A)(X)):8460A A0C13:8420A X0C15:8290A C17A (A)(X)8450A "DIRECTION = ";C1((((X)(A))(X))(X)):8460B!"DIRECTION = CE CALCULATER"I@"YOU ARE AT QUADRANT ";Q1;",";Q2;" SECTOR ";S1;",";S2@"PLEASE ENTER":" INITIAL COORDINATES (X,Y)";C1,A@ " FINAL COORDINATES (X,Y)";W1,X@ XXA:AC1W1:X08350@: A08410@D X08280@N A0C15:8290@X C11Ab ":I14000:I:5690"X$"S":B92X$"":B918010t>,"THE FEDERATION IS MAINTAINING ";B9:"STARBASE";X$;" IN THE GALAXY">1I14000:I:>65690>J"YOUR STUPIDITY HAS LEFT YOU ON YOUR OWN IN THE GALAXY---":I14000:I?T"YOU HAVE NO STARBASES LEFT!.5(G2$)):J0);G2$;B=xZ55:9030:J0(35.5(G2$)):J0);G2$;T=O1$:I:1990h= STATUS REPORT=" STATUS REPORT:":X$"":K91X$"S"="KLINGON";X$;" LEFT: ";K9="MISSION MUST BE COMPLETED IN ";.1((T0T9T)10):"STARDATES" >I7);Q1;",";Q2:mR"HOW MUCH DO YOU WANT TO SPEND ON YOUR OXEN TEAM (200-300)? ";A$S(A$)0(A$)200(A$)300ĺ"NOT POSSIBLE!!":850[A((A$)):865\:"YOU HAVE ";700AFBCM1;" DOLLARS LEFT"]a860.ES":"ENTER ONE OF THE ABOVE -- THE BETTER YOUCLAIM YOU ARE, THE FASTER YOU'LL HAVE TOBE WITH YOUR GUN TO BE SUCCESSFUL. ";D9$:D9$""735(D9$)1(D9$)5735D9(D9$)D9(D9) 810  *** PURCHASES ****X114K80S(I)(100S(I).5)100"I.T8T81<T81990BXT8(4.99(X)1)vA(((X)10)100.5)100S4(X)S.5997AAS(I)0"HOPE YOU HAD FUN!!"" DEDUCT ONE DAY FROM N1 AND N2X W30E119452(I1.5)(I.5)945<W310EE10SE11955n(I2.5)(I.5)955{W3W310E20C(I)(AS(I))X1(36(X).5)W3C(I)(100C(I).5)100S(I)S(I)C(I)S(I)0967C(I)0970Z7 SAGITTARIUS ARCTURUS "WK$"---- ---- ---- ---- ---- ---- ---- ----"K$"8 POLLUX SPICA "K$"---- ---- ---- ---- ---- ---- ---- ----"K$1990A BETELGEUSE"HJ$"---- ---- ---- ---- ---- ---- ---- ----"rJ$"5 CANOPUS ALDEBARAN"J$"---- ---- ---- ---- ---- ---- ---- ----"J$"6 ALTAIR REGULUS"J$"---- ---- ---- ---- ---- ---- ---- ----"(K$" SIRIUS">Ic$"---- ---- ---- ---- ---- ---- ---- ----"gIh$"2 RIGEL DENEB"Im$"---- ---- ---- ---- ---- ---- ---- ----"Ir$"3 PROCYON CAPELLA"Iw$"---- ---- ---- ---- ---- ---- ---- ----"J|$"4 VEGOSMIC NUMBER IN ";N;" GUESSES."% X@ b"WANT TO PLAY AGAIN";H lZ$X vZ$"Y"280 "OK, GOODBYE FOR NOW. PLAY WITH ME AGAIN SOMETIME." dZ4460 D2450 "*";+ "*";6 "*";A "*";L "*";W "*";b "*";h s NN1| 330  *** PLAYER HAS GUESSED THE GALACTIC NUMBER &K118 0" ** "; :K D" !!! " N"THAT'S IT!!! YOU GUESSED MY CX(100(1))1 "W ,"OK, STARSEEKER, I AM THINKING OF A NUMBER. START GUESSING."q 6 *** GUESSING BEGINSz @N1 J T"WHAT IS YOUR GUESS?"; ^G hGX550 rD(GX) |D64500 D32490 D16480 D8470 DMBER, THE MORE STARS (*) I WILL TYPE."\ "ONE STAR (*) MEANS YOU ARE FAR AWAY FROM MY " " NUMBER. SEVEN STARS (*******)MEANS YOU ARE VERY," "VERY, VERY CLOSE TO MY NUMBER!!!"  *** COMPUTER 'THINKS' OF A NUMBER FROM 1 TO 100 OW HOW TO PLAY "; Z$* Z$"Y"280H *** HERE IS HOW TO PLAYN "I WILL THINK OF A WHOLE NUMBER FROM 1 TO 100." "TRY TO GUESS MY NUMBER. AFTER YOU GUESS, I" "WILL TYPE ONE OR MORE STARS (*). THE CLOSER"' "YOU ARE TO MY NUFZ100Jd*** STARS *** STARS *** STARS*** STARS *** STARS ***ln *** PROGRAMMED BY K.G. WELKx"WELCOME TO MY GALAXY. I'M IN CHARGE OF THE STARS HERE""PLAY MY GAME *STARS* AND GET SOME STARS FOR YOURSELF!" "WANT TO KN     MISCELLANEOUS SUPPLIES? ";M1$1B(M1$)01110BGM1((M1$))lL(M1$)0(M1$)(700AF(C$))1130V"IMPOSSIBLE":1080jT700AFBCM1tT01170yA0:F0:B0:C0:M10~"YOU OVER SPENT -- YOU ONLY HAD $700 TO SPEND. BUY AGAIN$)CM1)1020$"IMPOSSIBLE":9808B((B$)):860x:"HOW MUCH DO YOU WANT TO SPEND ON CLOTHING? ";C$(C$)0(C$)(700AF(C$)BM1)1070$"IMPOSSIBLE":1030.C(C$):8608:"HOW MUCH DO YOU WANT TO SPEND ON OU LOSE!!":13603( * END OF RUN ROUTINE *92J<T(D1S1)70qF"YOU WON!! AND YOUR TIME WAS ";TP:"DO YOU WISH TO PLAY AGAIN? (YES/NO)";:N$Z:8dN$"YES"560nNA21300M(I,J)A61300#C7M(I,J)A1:1270EM(I,J)A3fC1S:II1:M(I,J)A21300zM(I,J)A61300CM(I,J)A1 *** NOTE - WINNING *** CHECK.M(9,39)A1800 1320"ILLEGAL MOVE........ YS POSITION 2,2 **'8J2:I25BD11120CLD21170QVD31220`M(I,J)A3: *** WIPES OUT PREVIOUS CHARACTER ***jC1S:I(I1):M(I,J)A21300tM(I,J)A61300~CM(I,J)A1:1270M(I,J)A3C1S:JJ1:M(I,J)N$"C"13805"INVALID OPTION, TYPE A, B, OR C">920Db ** MAIN PROGRAM BODY **h"DIRECTION";:D:D((D))D11010D31010"SPEED";:S:S((S)):$D1D11:S1S1S:D111090. ** NOTE - CAR START! *** PRINTING ROUTINE ***'*34KI:LJ?>I111KHJ140[R(M(I,J));b\JhfopI{zIK:JL 88 NOTE NEW COURSE OPTION**D10990"OPTIONS: (A=GO, B=NEW COURSE, C=STOP)";:N$N$"A"990N$"B"560E vI110J140,R1((1)1.2):R10690HM(I,J)A2Q700_M(I,J)A3fJmI{M(2,2)A4M(9,38)A3M(9,39)A5M(2,3)A3M(3,2)A3I110:M(I,1)A2:M(I,40)A2:I J140:M(1,J)A6:M(10,J)A6:J M(15,50)A1("*")+A2("!")9A3(" ")GA4("S")U&A5("F")c0A6("-")q:D10:S10{D:10N" THE COMPUTER IS NOW DESIGNING ":X"THE OBSTACLE COURSE. PLEASE STAND BY. "b:l *** SET UP COURSE ROUTINIS THE NUMBER OF SPACES YOU "O "WISH TO TRAVEL IN A GIVEN DIRECTION. "p " * * * * * " 24:"PRESS SPACE TO CONTINUE, ESC TO END ..."; IN$:IN$" "(IN$)27460 (IN$)271380  *** INITIALIZATION *** YOU MUST FINISH ON THE POINT MARKED 'F'."S r" THERE ARE NO DIAGONAL MOVES. ": |" THERE ARE NO RIGHT TO LEFT MOVES. " "DIRECTION NO.1 IS UP.": "DIRECTION NO.2 IS LEFT TO RIGHT.": "DIRECTION NO. 3 IS DOWN. ": "AND SPEED PROGRAM " INSTRUCTIONSL ," DO YOU WANT INSTRUCTIONS (YES/NO)";:N$_ 6N$"YES"500i @:: J"THE OBJECT IS TO MOVE YOUR VEHICLE '*' " T"STARTING AT POINT 'S' AND NAVIGATE THRU " ^"THE OBSTACLES '!' TO THE FINISH 'F'. ") h" CLMN MTRX INDEX/ K PLACE HLDR FOR IL L PLACE HLDR FOR Jh M MATRIX VARIABLE N$ INPUT TO Y-N ? R1 RND # GEN VAR S SPEED  S1 TTL SPEED CNTRL  T 'TIME'RATIO (D1/S1)*100  START ----------------* d A1 VALUE FOR '*'D n A2 VALUE FOR ' '^ x A3 VALUE FOR '!'x A4 VALUE FOR 'S' A5 VALUE FOR 'F' A6 VALUE FOR '-' D DIRECTION D1 TOTAL # OF TURNS I ROW MATRIX J  :!16)"OBSTACLE"::A11)"CREATIVE COMPUTING":j(9)"MORRISTOWN, NEW JERSEY"::::2 FROM MORE BASIC COMPUTER GAMES, PAGE 117.< ADAPTED TO APPLESOFT BY TED M. SNOOKFP VARIABLES USAGE Z -----     $X32260$B392260`$:"TOUGH --- YOU NEED MORE BULLETS TO GO HUNTING"j$2170y$X1X1(1)$X2290,2540,2720$ *** STOPPING AT FORT***3%"ENTER WHAT YOU WISH TO SPEND ON THE FOLLOWING NUE""#*X$:(X$)1(X$)32090.#4X(X$)?#RX(X):2270M#fX3:2270#z:2:"DO YOU WANT TO: 1 - HUNT 2 - CONTINUE"#X$:(X$)1(X$)22180#X(X$)#X12210#X2$XX1M1,T::.""PRESS TO CONTINUE...";H"QQ$:(QQ$)132051N"^" X112170m"X1X1(1)v":2# :"DO YOU WANT TO: 1 - STOP AT NEXT FORT 2 - HUNT 3 - CONTIILEAGE IS ";M;" WITH ";2040M;" TO GO":2040]!"TOTAL MILEAGE IS 950 WITH 1090 TO GO":M90":"FOOD","BULLETS","CLOTHING":"----","-------","--------":F,B,C::"----------------------------------------":"MISC. SUPP.","CASH":"-----------","----":850B 0"YOU'D BETTER DO SOME HUNTING OR BUY FOOD, AND SOON!"w :F(F):B(B):C(C):M1(M1):T(T):M(M):M2M S411950 K811950 1990 TT20:T15080 "THE DOCTOR BILL WAS $20" K80:S40 M912020,!"TOTAL MDECEMBER 20 ";:1720"YOU HAVE BEEN ON THE TRAIL TOO LONG. ---- YOUR FAMILY DIES IN THE FIRST BLIZZARD OF THE WINTER.":5170"1847"F01770F0B01790B0C01810C0M101830M10 &F131LY 19 ";:1720&"AUGUST 2 ";:1720?"AUGUST 16 ";:1720X"AUGUST 31 ";:1720t"SEPTEMBER 13 ";:1720"SEPTEMBER 27 ";:1720""OCTOBER 11 ";:17206"OCTOBER 25 ";:1720J"NOVEMBER 8 ";:1720^"NOVEMBER 22 ";:1720r"90,1410,1430,1450,1470,1490XD3101510,1530,1550,1570,1590,1610,1630,1650,1670,1690p"APRIL 12 ";:17202"APRIL 26 ";:1720F"MAY 10 ";:1720Z"MAY 24 ";:1720n"JUNE 7 ";:1720"JUNE 21 ";:1720"JULY 5 ";:1720"JU":830BB50U:"AFTER ALL YOUR PURCHASES YOU NOW HAVE ";T;" DOLLARS LEFT"]:}"MONDAY, MARCH 29, 1847":1750M20405430 ***SETTING DATE***D3D31:"MONDAY ";D3101300 D31310,1330,1350,1370,1370 BB2 A5950" 780- BB116 790@ CC1J BB8X A61030b DD3l BB5u 780 A71070 BB5 CC1 $860 .BB7 8A10780 BBB10 L790 V" THE SCORE WAS "12(H) `K N K5700 " ";# ) / > B6(1)6F C0N D0[ A3890e BB3r A1810| DD2 BB3  *CC1 4BB1 >A2780 HBB11 R790 \CC1 fA2790 p780 zCC4 BB2 A59CORE"; K K991110) H2(H)6 KH570J " NO, IT'S "H;` K2(K2)0550 " (THE SCORE IS ALWAYS EVEN)"; & 0150 :" ..YES.." D150 NN02 XM3630 b" "; l650 vMM4(M4) " O"; M2MK15 L(K)F8(F8)% "ML(K). ,590; 6F(F8)B @KM JK15^ TMG8(G8)g ^590t hG(G8){ rK |HH12(H12) K15 (L(K)1)(L(K)4)0420 L(K)5L(K) ML(K) 590 K   "GUESS THE SASK YOU TO GUESS THE SCORE FOR THE ROLL"T F"THE SCORE WILL ALWAYS BE EVEN NUMBER" P"GUESS 99 TO STOP PLAYING. GOOD LUCK" L(7) H0 G0 F0 K15 A(12(1)) 720 F8FC G8GD HHB K   ::10. "DO YOU WANT INSTRUCTIONS?"D "(1=YES, 0=NO)";KKYK1140_(~2"THE NAME OF THE GAME IS"3" PETALS AROUND THE ROSE"7:"THE NAME OF THE GAME IS IMPORTANT":( <"THE COMPUTER WILL ROLL FIVE DICE AND":"     LL":2750**, MM200(A220)5((1)10)8*6 L10:C10T*@ *** RIDERS ATTACK ****J (1)10((M100)272)((M1004)212)13550*L :2*T "RIDERS AHEAD. THEY ";*^ S50*h (1).82940*r "DON'T ";+| "LOOK HOSTILE"::"TACTICS":"----- 1 - POORLY 2 - MODERATELY 3 - WELL ") E$:(E$)1(E$)32760) E(E$)) E(E)) FF(85E)) F02860) FF(85E) * "YOU CAN'T EAT THAT WEEEN THE EYES -- YOU GOT A BIG ONE -- FULL BELLIES TONIGHT"[(x FF52(1)6m( BB10(1)4w( 2720( "YOU MISSED --- AND YOUR DINNER GOT AWAY."( F132750( 5060( *** EATING ***) :"DO YOU WANT TO EAT HUNTING"' 2080%' MM45/' 6140?' B122660X'( (1)10013B12710h'2 FF482B1'< "NICE SHOT -- RIGHT ON TARGET -- GOOD EATIN' TONIGHT!"'F BB103B1'P 2720'Z *** BELLS IN LINE 2660 ***I(d "RIGHT BETW&t "AMMUNITION";&~ 23301& B(B23P50)C& "CLOTHING ";M& 2330[& CC23P{& "MISCELLANEOUS SUPPLIES ";& 2330& M1M123P& MM45& 2720& *** HUNTING ***& B392570' "TOUGH --- YOU NEED MORE BULLETS TO GO FOOD ";=% 2330G% 2410X% P:P02400b%. TTPq%8 T02400%B "YOU DO NOT HAVE THAT MUCH MONEY --- KEEPYOUR SPENDING DOWN, YOU MISS YOUR CHANCE TO BUY THAT ITEM"%L TTP%V P0%` &j FF23PGE WHICH TWO POSITIONS";X,YLXY1XY1ĺ"ILLEGAL. TRY AGAIN...":510SS1:S1ĺ"ONLY ONE SPECIAL MOVE PER GAME":200T$B$(X):B$(X)B$(Y):B$(Y)T$:240 B:"YOU PLAYED ";G;" GAMESAND ORDERED THE"]Y"BOARD IN AN AVERAGE OF ";M1G;" MOVES"::999~ *** PRINT BOARD SUBROUTINE:I1134" ";B$(I);" ";B$(I1);" ";B$(I2);" ";B$(I3)I:: *** SPECIAL MOVE SUBROUTINE"EXCHAN:B$(I5)B$(I1):B$(I1)T$6400: *** PRINT BOARDT, *** DO WE HAVE A WINNER`1I116x6(I64)B$(I)200;I@:"YOU ORDERED THE BOARD IN ";M;" MOVES.":M1M1M:GG1EI115:(7):IJ:"PLAY AGAIN (Y/N)";A$:A$"Y"140)T J1I B$(J)T$160$ J4 B$(I)T$:Ie M0:S0:"HERE'S THE STARTING BOARD...":400 "POSITION TO ROTATE ";I:I0ĺ::140 I1510 I4I8I12į"ILLEGAL. AGAIN...":200 MM1:T$B$(I)B$(I)B$(I4):B$(I4)B$(I5)YOU WILL BE ASKED"> u"FOR THE POSITIONS OF THE TWO LETTERS"g x"TO EXCHANGE. REMEMBER -- ONLY ONE" }"SPECIAL MOVE PER GAME!": "TO GIVE UP AT ANY TIME,TYPE A '0'"::"GOOD LUCK! ": I116:B$(I)"0":I I116 T$((16(1)65))N TO CONTINUE";X$< d"YOU ALSO GET ONE 'SPECIAL' MOVE PER"g g"GAME WHICH YOU MAY OR MAY NOT NEED." i"THE SPECIAL MOVE ALLOWS YOU TO " k"EXCHANGE ANY TWO ADJACENT LETTERS IN A" n"ROW. TO MAKE THIS MOVE, INPUT A '-1'" s"AS YOUR MOVE AND 11."% C"HIT RETURN TO CONTINUE";X$T F"CONSEQUENTLY, IF THE BOARD LOOKED LIKE:"q KI116:B$(I)(I64):I PB$(2)"C":B$(3)"G":B$(6)"B":B$(7)"F":400 U"AND YOU ROTATED 2,THE BOARD WOULD BE:" ZI27:B$(I)(I64):I:400 _"HIT RETURRS A TO P. THE OBJECT OF THE "N 3"GAME IS TO ORDER THE LETTERS BY ROTATING"} 7"ANY FOUR LETTERS CLOCKWISE ONE POSITION" 9"YOU SPECIFY THE UPPER LEFT POSITION" <"OF THE FOUR YOU WISH TO ROTATE,I.E.," A"VALID MOVES ARE 1,2,3,5,6,7,9,10 AND B(16),B$(16). :"GAME OF 'ROTATE":W "INSTRUCTIONS (Y/N)";A$:A$"N"140"IN THIS GAME THE BOARD IS LAID OUT"I19:B$(I)" "(I):II1016:B$(I)(I):I400(-"POSITIONS ARE FILLED RANDOMLY BY THE" 2"LETTE      S2(S2)S372430" 21104 RED(47) 1:1: F I118M R[( SR2430b2 Il< 2110F BLACK(48) 1:1P Z I118d Rn SR2110x I S362110 2430 --1TO36,0,00(1-36,49,50)35:1 T(C)492760 V 2110` 1-18(43) 1:1*j S1924304t 2110^~ "YOU WIN ";B(C);" DOLLARS ON BET ";Ck DDB(C)x PPB(C) 2810 19-36(44) 1:1 S37S182430 2110 EVEN(45) 1:1 S2(S2)S372430 2110 ODD(46) 1:1 25-36(39) 2:1%S24S372150/2110J FIRST COLUMN(40) 2:1XI1343fSI2150mIw2110 SECOND COLUMN(41) 2:1 I2353 SI2150 I$ 2110. THIRD COLUMN(42) 2:18 I3363B SI2150L I * 1-12(37) 2:1(4S122150S>"YOU LOSE ";B(C);" DOLLARS ON BET ";C`HDDB(C)mRPPB(C)w\2180f"YOU WIN ";B(C)2;" DOLLARS ON BET ";CpDDB(C)2zPPB(C)22810 13-24(38) 2:1S12S2521502110 v2020IQ#Q118*R8RS2000?QNA$"BLACK"[S;" "A$e2020rA$"RED"|1980C1YT(C)372710T(C)362090,2190,2220,2250,2300,2350,2400,2470,2500 T(C)452530,2560,263027101680Z5Z5001680)A(X)01780W"YOU MADE THAT BET ONCE ALREADY,DUM-DUM"a1680lA(X)1sC"SPINNING"&S(100(1))0S0S381830:X(S)X(S)1DS371920NS371900X"00"b2020l"0":::::::"PRESS ANY KEY TO BEGIN GAME"3[A$R^936::"HOW MANY BETS ";YhYorY1Y(Y)1630uw|I150:A(I)0:I: MAT A=ZERC1Y"NUMBER ";C;X,ZB(C)ZT(C)XX1X50X(X)1680Z1Z(Z)ĺ"MINIMUM BET IS $5, MAXIMUM IS $500."4::::N PROGRAM BEGINS HEREn-TYPE OF BET (NUMBER) ODDS" DON'T NEED TO DIMENSION STRINGS,B(100),C(100),T(100),X(38)6A(50)@I138:X(I)0:I: MAT X=ZERJP1000TD100000.+YTS EXCEPT THEIR OWN.":::"PRESS ANY KEY TO CONTINUE"BA$L936"WHEN I ASK FOR EACH BET, TYPE THE NUMBER AND THE AMOUNT, SEPERATED BY A COMMA.""FOR EXAMPLE: TO BET $500 ON BLACK, TYPE 48,500 WHEN I ASK FOR A BET"::::&9) 25-36 42) THIRD COLUMN"% dE n"THE EVEN MONEY BETS ARE:"d x" 43) 1-18 46) ODD" " 44) 19-36 47) RED" " 45) EVEN 48) BLACK"  " 49)0 AND 50)00 PAY OFF 35:1"" NOTE: 0 AND 00 DO NOT COUNT UNDER ANY BE# " TYPES OF BETS"+ :m "THE NUMBERS 1 TO 36 SIGNIFY A STRAIGHT BET ON THAT NUMBER" ("THESE PAY OFF 35:1" 2 <"THE 2:1 BETS ARE:" F" 36) 1-12 40) FIRST COLUMN" P" 38) 13-24 41) SECOND COLUMN" Z" 3 27* "2 " 28 29 30* "Z " 31 32* 33 " " 34* 35 36* " " --------------------" " 00 0 " ::"PRESS ANY KEY TO CONTINUE" A$ --------------------"B " 13 14* 14 "j " 16* 17 18* " " 19* 20 21* " " 22 23* 24 " " --------------------" " 25* 26  .1 8" THIS IS THE BETTING LAYOUT"R B" (X=RED)"X L V" 1* 2 3*" `" 4 5* 6" j" 7* 8 9*" t" 10 11 12*" ~"  936  16);"ROULETTE"*::("ENTER CURRENT DATE ( AS IN 'JANUARY 23, 1978' ) ";2D$,E$:" WELCOME TO THE ROULETTE TABLE""DO YOU WANT INSTRUCTIONS? ";Y$ $(Y$,1)"N"1550     ===================================>"; "COMMAND ";A$D:5m I19:(A$,3)(A1$,3I2,3)2160\I2300,1980,4000,4260,4700,5530,5690,7290,6270pI:"ENTER ONE OF THE FOLLOWING:"" NAV (TO SET COURSE)"" SRS (FOR SHORT RA10D(7)02050c:"** FATAL ERROR ** YOU'VE JUST STRANDED YOUR SHIP IN SPACE CAPTAIN ";N$;".""YOU HAVE INSUFFICIENT MANEUVERING ENERGY""AND SHIELD CONTROL IS PRESENTLY ":"INCAPABLE OF CROSS CIRCUITING TO ENGINE ROOM!!":6220%"<=S1:Z2S2:8670:K311820@I1K3:8590:A$"+K+":Z1R1:Z2R2v8670:K(I,1)R1:K(I,2)R2:K(I,3)S9(0.5(1)):IB311910X8590:A$">!<":Z1R1:B4R1:Z2R2:B5R2:8670vI1S3:8590:A$" * ":Z1R1:Z2R2:8670:I6430SE10ĭE1590'," SHIELDS DANGEROUSLY LOW"G6I13: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 QUADRANT,THEN PLACE "K3" KLINGONS, & "B3" STARBASES, & "S3" STARS ELSEWHERE.A$"<*>":Z1IP"C"LOCATED IN THE GALACTIC QUADRANT, '";G2$;"'.":1500m"NOW ENTERING ";G2$;" QUADRANT. . .":K3(G(Q1,Q2).01):B3(G(Q1,Q2).1)10K3S3G(Q1,Q2)100K310B3:K301590"COMBAT AREA CONDITION ";:" RED "::S200I(1):I$:I131300A HERE ANY TIME NEW QUADRANT ENTERED(Z4Q1:Z5Q2:K30:B30:S30:G50:D4.5(1):Z(Q1,Q2)G(Q1,Q2)nQ11Q18Q21Q2816009030::T0T1490"CAPTAIN ";N$;",""YOUR MISSION BEGINS WITH YOUR STARSHED THE GALAXY"]"BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS ON STARDATE ";T0T9"THIS GIVES YOU ";T9;" DAYS. THERE ";X0$" ";B9;" STARBASE";X$;" IN THE GALAXY FOR ":"RESUPPLYING YOUR SHIP":"HIT ANY KEY TO ACCEPT COMMAND ";0B91:G(Q1,Q2)G(Q1,Q2)10:Q1R(1):Q2R(1)TK7K9:B91X$"S":Z0$" ARE "^:10"PLEASE TYPE YOUR NAME ";N$:5"CAPTAIN ";N$;",""YOUR ORDERS ARE AS FOLLOWS:"" DESTROY THE ";K9;" KLINGON WARSHIPS WHICH HAVE INVAD8:K30:Z(I,J)0:R1(1)6RR1.98K33:K9K93:980T\R1.95K32:K9K92:980mfR1.80K31:K9K91B30:(1).96B31:B9B91G(I,J)K3100B310R(1):J:I:K9T9T9K91LB901200~G(Q1,Q2)200G(Q1,Q2)G(Q1,Q2)100:K9K91,2)1:C(5,2)1:C(6,2)1] XC(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)1r I18:D(I)0:I A1$"NAVSRSLRSPHATORSHEDAMCOMXXX" * SETUP WHAT EXISTS IN GALAXY. . . / K3= # KLINGONS B3= # STARBASES S3= # STARS4I18:J19200:S0:B90:K90:X$"":X0$" IS "N D(D)((K(I,1)S1)2(K(I,2)S2)2)k R(R)((R)7.981.01)  INITIALIZE ENTERPRIZE'S POSITION Q1R(1):Q2R(1):S1R(1):S2R(1) I19:C(I,1)0:C(I,2)0:I C(3,1)1:C(2,1)1:C(4,1)1:C(4ERPRIZE---NCC-1701"\ ::::"CONVERTED TO APPLESOFT BY":"GERALD RAVARY 4/20/1980"b  Z$" " JG(8,8),C(9,2),K(3,3),N(3),Z(8,8),D(8) rT((1)2020)100:T0T:T925((1)10):D00:E3000:E0E$ P10:P0P:STAR TREK":::> " ,------*------,"l " ,------------- '--- ------'" " '-------- --' / /" " ,---' '--------/ /--," " '----------------'": ::10);"THE USS ENTRY *& * ON APRIL 20,1980 *\ ************************b h 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 SD6************************T* *r* SUPER STAR TREK ** ** CONVERTED TO ** APPLESOFT BY ** * * GERALD RAVA                           UCT ONE DAY FROM N1 AND N2']N1N113^N2N21Qz LOOP THROUGH ALL STOCKS\I15hX1(X)xX1.25920X1.25935X1.5925X1.50935X1.75930X1.75935X10.0 BIG CHANGE CONSTANT:W3;31);C(4)K2);"CBS";7);S(5);14);P(5);23);S(5)P(5);31);C(5)UX91[ aj*360xIN10851MI1(4.99(X)1)NN1(4.99(X)1)OE11SN20861WI2(4.99(X)1)XN2(4.99(X)1)YE21\ DEDR CHG" G2);"IBM";7);S(1);14);P(1);23);S(1)P(1);31);C(1)M2);"RCA";7);S(2);14);P(2);23);S(2)P(2);31);C(2)2);"LBJ";7);S(3);14);P(1);23);S(3)P(3);31);C(3) 2);"ABC";7);S(4);14);O(4);23);S(4)P(4)C50674<"YOU HAVE USED $ ";C5;" MORE THAN YOU HAVE>"E420OCC5ZI15nP(I)P(I)Z(I)uI~841I120(135)I"********** END OF DAY'S TRADING"X1765"STOCK-PRICE--HOLDING--VALUE--NET PS50:I15&?Z(I)(Z(I).5)7DZ(I)0610LNP5P5Z(I)S(I)UX620jbS5S5Z(I)S(I)dZ(I)P(I)620f"YOU HAVE OVERSOLD A STOCK; TRY AGAIN."h420lIqT5P5S5B5(.01T5100.5)100C5CP5B5S5 4160"DO YOU WISH TO CONTINUE (YES-1,NO-2)"8Q9FQ91998_ INPUT TRANSACTIONS"WHAT IS YOUR TRANSACTION IN""IBM"Z(1);"RCA"Z(2)"LBJ"Z(3)"ABC"Z(4)"CBS"Z(5) P500NEW YORK STOCK EXCHANGE AVERAGE: "Z5" NET CHANGE: "Z6=TT(100T.5)100y"TOTAL STOCK ASSETS ARE $";TC(100C.5)100"TOTAL CASH ASSETS ARE $";CD(100D.5)100"TOTAL ASSETS ARE $"DX90K STORE CBS";32);S(5)h*kZ4Z54lZ50=mT0HrI15XwZ5Z5S(I)k|TTS(I)P(I)rIZ5(100(Z55).5)100Z6((Z5Z4)100.5)100DTCX90398"NEW YORK STOCK EXCHANGE AVERAGE: "Z53997""PR/SH" X=Y"----------------------------------------"i^"INT.BALLISTIC MISSLE IBM";32);S(1)`"RED CROSS OF AM. RCA";32);S(1)a"LOVERLY,BUMRAP,& JOKE LBJ";32);S(3)b"AMERICAN BANKRUPT CO. ABC";32);S(4)c"CENSURED BOO85 S(3)150 S(4)140- S(5)110D T8(4.99(X)1)U (X).5280^ AAg 841r "I15~ ,P(I)0 1Z(I)0 6I OC10000 P Q"----------------------------------------" RT2);"STOCK";23);"INITIAL";32);BOUND TO A POSITIVE VALUE AGAIN. YOU"p "HAVE $ 10,000 TO INVEST. USE INTEGERS FOR ALL YOUR INPUTS." "(NOTE: TO GET A FEEL FOR THE MARKET RUN FOR AT LEAST" "TEN DAYS)." "TO CONTINUE, PRESS '1'";L :: S(1)100 S(2)E A TRANSACTION. TO BUY A STOCK"d "TYPE +NNN, TO SELL A STOCK TYPE-NNN, WHERE NNN IS THE" "NUMBER OF SHARES. A BROKERAGE FEE OF 1% WILL BE CHARGED" "ON ALL TRANSACTIONS. NOTE THAT IF A STOCK'S VALUE DROPS"* "TO ZERO IT MAY REPRESS '1'";L:"A TABLE"_ "OF AVAILABLE STOCKS, THEIR PRICES, AND THE NUMBER OF SHARES" "IN YOUR PORTFOLIO WILL BE PRINTED. FOLLOWING THIS, THE" "INITIALS OF EACH STOCK WILL BE PRINTED WITH A QUESTION"# "MARK. HERE YOU INDICATHIS PROGRAM PLAYS THE STOCK MARKET. YOU WILL BE GIVEN"w "$10,000 AND MAY BUY OR SELL STOCKS. THE STOCK PRICES WILL" "BE GENERATED RANDOMLY AND THEREFORE THIS MODEL DOES NOT" "REPRESENT EXACTLY WHAT HAPPENS ON THE EXCHANGE":"TO CONTINUE, - " ** STOCK MARKET SIMULATION **"7::@qX1_rA(((X)10)100.5)100isT50stX90}uN10vN20wE10xE20z"DO YOU WANT INSTRUCTIONS (YES-TYPE 1, NO-TYPE 2"{Z9|}~Z912206 "T      :25D124:15)::"GOOD LUCK"::D:?::v"HOW GOOD OF A SHOT ARE YOU WITH YOUR RIFLE? "" 1 - ACE MARKSMAN"" 2 - GOOD SHOT"" 3 - FAIRLY FAIR"" 4 - NEED PRACTICE"" 5 - SHAKY KNEILL HAVE OF HITTING YOUR TARGET.":" AT EACH TURN, ALL ITEMS ARE SHOWN IN DOLLAR AMOUNTS, EXCEPT BULLETS. WHEN YOU ARE ASKED TO ENTER DOLLAR AMOUNTS, DON'T USE A '$'.":"PRESS TO CONTINUE....";A$:(A$)13662 ALONG THE WAY TO GET MORE FOOD. WHENEVER YOU HAVE TO USE YOUR TRUSTY RIFLE ALONG THE WAY, YOU WILL BE TOLD TO TYPE IN A WORD THAT SOUNDS LIKE A GUNSHOT."$b" THE FASTER YOU TYPE IN THE WORD AND PRESS THE 'RETURN' KEY, THE BETTER THE CHANCE YOU W$)13522 :2" YOU CAN SPEND ALL YOUR MONEY BEFORE YOU START YOUR TRIP - OR YOU CAN SAVE SOME OF YOUR CASH TO SPEND AT FORTS ALONG THE WAY WHEN YOU RUN LOW."0" HOWEVER, ITEMS COST MORE AT THE FORTS. YOU CAN ALSO GO HUNTINGWHEN CROSSING THE MOUNTAINS"."MISCELLANEOUS SUPPLIES - THIS INCLUDES MEDICINE AND OTHER THINGS YOU WILL NEED FOR SICKNESS AND EMERGENCY REPAIRS""PRESS TO CONTINUE....";  A$:(ATTING SICK""AMMUNITION - $1 BUYS A BELT OF 50 BULLETS FOR ATTACKS BY ANIMALS AND BANDITS, AND FOR HUNTING FOOD";("CLOTHING - THIS IS ESPECIALLY IMPORTANT FOR THE COLD WEATHER YOU WILL ENCOUNTER A$)13332N:2T"OXEN - YOU CAN SPEND $200-$300 ON YOUR TEAM. THE MORE YOU SPEND, THE FASTER YOU WILL GO BECAUSE"h" YOU'LL HAVE BETTER ANIMALS"r |"FOOD - THE MORE YOU HAVE THE LESS CHANCE THERE IS OF GEIF YOU MAKEIT ALIVE!"x""YOU HAVE SAVED $900 TO SPEND FOR THE TRIP, AND YOU'VE JUST PAID $200 FOR A WAGON"6"YOU WILL NEED TO SPEND THE REST OF YOUR MONEY ON THE FOLLOWING ITEMS-"@:J"PRESS TO CONTINUE...."; LA$:("N"6904*INSTRUCTIONS*******"THIS PROGRAM SIMULATES A TRIP OVER THE OREGON TRAIL FROM INDEPENDENCE, MISSOURI";"TO OREGON CITY, OREGON IN 1847.""YOUR FAMILY WILL COVER THE 2040 MILE OREGON TRAIL IN 5-6 MONTHS--- *"7 }" * T R A I L *"^ " * *" " *********************" :: C$(5) "DO YOU NEED INSTRUCTIONS (Y/N) "; C$::C$""160 C$"N"690 C$"Y"160C$TCH MIDDLE SCHOOL,FOSTER- F CITY, MAY/1979N P FOR FULL DOCUMENTATION,SEEe Z ORIGINAL ARTICLEt d:::255 i" *********************" n" * *" s" * O R E G O N *" x" * **********( * PROGRAM MAY BE COPIED*F * FOR EDUCATIONAL USE &*d * MAY NOT BE SOLD.COPY-* !* RIGHT 1981 CUE,INC * "************************ # $ ( REWRITTEN FOR APPLE BY TOM BEAL 2 AND TIM IVERSON,STUDENTS OF < BOWDIFTSWAP *, * *J * 333 MAIN STREET *h * REDWOOD CITY * * CA 94063 * * (415) 363-5472 * * * ************************   ************** CHRIS EDWARDS < ************************Z * *x * SAN MATEO COUNTY * * OFFICE OF EDUCATION * * * COMPUTER-USING EDUCATORS * * * SOrB OREGON TRAIL AUG 1980' F SIMULATES PIONEER WAGON^ TRIP TO THE WESTdy 32K APPLESOFT  DAN RAWITCH CREATIVE COMPUTING - MAY 1978  ADAPTED BY TOM BEAL, KEITH ROLLIN AND                OST --- LOSE TIME LOOKING FOR TRAIL":MM60:4860E:(1).114840:"WAGON DAMAGED! -- LOSE TIME AND SUPPLIES":M1M15:BB200:MM2030(1):4860:"THE GOING GETS SLOW":MM45(1).2:F114900:F114900:F11:(1).849708;"YOU (1).2563009 4710(9*(1).563002944710y9>"HELPFUL INDIANS SHOW YOU WHERE TO FIND MORE FOOD.":FF14:47109\ ***MOUNTAINS*** 9fM95012309p(1)109((M10015)212)48609z"RUGGED MOUNTAINS!!":(1).1147802:"YOU GET LRRRRR! --- YOU ";'8C224(1)453068"DON'T ";?8C11x8"HAVE ENOUGH CLOTHING TO KEEP YOU WARM ":C104710863008"HAIL STORM --- SUPPLIES DAMAGED ":MM5(1)108BB200:M1M14(1)3847108E163008 E34650 9- THE WOLVES OVERPOWERED YOU...":K81:5120?7:B124440s7D"NICE SHOOTING --- THEY DIDN'T GET MUCH":44507X"SLOW ON THE DRAW --- THEY GOT AT YOUR FOOD AND CLOTHES"7bBB20B17lCCB147vFFB18747108"COLD WEATHER --- BRR-BITE SINCE YOU HAVE NO MEDICINE":5170>647106"WAGON GETS SWAMPED FORDING RIVER -- LOSEFOOD AND CLOTHES":FF30:CC20:MM2020(1):47106"WILD ANIMALS ARE ATTACKING!!! ":61406B39441007"YOU WERE TOO LOW ON BULLETS -OD AND SUPPLIES DAMAGED ":FF40:BB400:M1M1(1)83:MM15:47105^"LOSE YOUR WAY IN HEAVY FOG --- TIME IS LOST":MM105(1):47105|"YOU KILLED A RATTLE SNAKE AFTER IT BIT YOU":BB10:M1M15:M10428046"YOU DIE OF SNAKE0N4"YOU GOT SHOT IN THE LEG --- AND THEY TOOK ONE OF YOUR OXEN":K8K814"BETTER HAVE DOC LOOK AT YOUR WOUND":M1M15:AA20:47104"QUICKEST DRAW OUTSIDE OF DODGE CITY!!! --- YOU GOT 'EM!!":4710E5""THERE WAS A FIRE IN YOUR WAGON -- FOT":FF10:BB500:M1M115:MM10(1)5:4710S3x"BANDITS ARE ATTACKING !":6140a3BB20B1p3B040303"YOU RAN OUT OF BULLETS AND THEY GOT A LOT OF YOUR CASH. YOU NOW HAVE $";(T3100)1003T(T3100)100340404B11.5410D TIME LOOKING FOR IT":MM17:4710u2"YOUR SON GETS LOST --- SPEND HALF THE DAY LOOKING FOR HIM":MM10:47102 "UNSAFE WATER -- LOSE TIME LOOKING FOR CLEAN SPRING":MM10(1)2:47102(M9504490.32"HEAVY RAINS -- TIME AND SUPPLIES LOSt"OX HURTS ITS LEG --- SLOWS YOU DOWN RESTOF WAY"E1~MM25:AA20O147101"BAD LUCK --- YOUR DAUGHTER BROKE HER ARM. YOU HAD TO STOP AND USE SUPPLIES TOMAKE A SLING."1MM54(1)1M1M123(1)14710%2"OX WANDERS OFF --- SPEN7,22,32,35,37,42,44,54,64,69,95/0.D1103650i08D13660,3700,3740,3790,3820,3850,3880,3960,4130,41900BD1104220,4290,4340,4560,4610,46700L"WAGON BREAKS DOWN -- LOSE TIME AND SUPPLIES FIXING IT."0VMM155(1)0`M1M180j471031 OUT OF BULLETS AND GOT MASSACREDBY THE RIDERS":5170V/ ***SELECTION OF EVENTS*** |/ "PRESS TO CONTINUE...";/ CL$:(CL$)133551/ D10/ / / R1100(1)/ D1D11/D1164670/D/R1D35800$ 6,11,13,15,1470.R T133430.\ 3470'.f MM201.p 3470M.z "THEY DID NOT ATTACK!"W. 3550f. S503500. "THE RIDERS WERE FRIENDLY, BUT CHECK FOR POSSIBLE LOSSES.":3550. "THE RIDERS WERE HOSTILE -- CHECK FOR LOSSES!". B035505/ "YOU RANTO GO SEE OL' DOC BLANCHARD":3470Q- :"KINDA SLOW WITH YOUR COLT .44":3470`- T133290r- (1).83450- BB150:M1M115:3470- 6140- BBB13080:MM25:3140- T113370- MM15:AA10:3470-* T123410.4 BB100:MM5:3, S513330, T113110G, MM20:M1M115:BB150:AA40:3470V,& T123240`,0 6140q,: BBB14080,D B11.53170,N "NICE SHOOTING -- YOU DROVE THEM OFF!":3470,b B143220$-l :"LOUSY SHOT -- YOU GOT KNIFED":K81::"YOU'LL HAVE --":"1 - RUN 2 - ATTACK 3 - CONTINUE 4 - CIRCLE WAGONS":(1).2+ S51S5+ T1$:(T1$)1(T1$)43000+ T1(T1$)+ T11T11+ T14T14, T1(T1)IN$"N"6710!J@IN$"Y"Ľ:100TJJ:10:"GOODBYE UNTIL THE NEXT WAGON TRAIN!":qJD$(4):D$;"RUN";"MENU"UN";"MENU"0=I "BAD ILLNESS --- YOU USED YOUR MEDICINE":MM5:M1M12LI(M105110[I2L114940eI<4710I,24:"PLEASE PRESS . ";:IN$::(IN$)136700 J6:10:"ARE THERE ANY MORE PIONEERS WAITING TO MAKE THE JOURNEY? (Y/N) ";:IN$:IN$"Y"Ͳ *** ILLNESS SUBROUTINE ***;H100(1)1035(E1)6370_H100(1)100(404(E1))6410zH"SERIOUS ILLNESS ---"H"YOU MUST STOP FOR MEDICAL ATTENTION":M1M110:S41:6440H"MILD ILLNESS --- YOUR MEDICINE CURED YOU":MM5:M1M15I644210%GEVVVV1:S$S$(XX128):6210MGFVV3S$S$(S)ĺ"TRY AGAIN.":6209zGG VV=NUMBER OF LETTERS USED TO SHOOT GH XX=KEY BOARD STROBEGI .03003003 X B1 = GIVES TIMEGJB1B1.03003003GKD9D91GLB1B1(D9.05)GMD9D91GHC$:(C$)136142F+FS$(1)"BANG"F@VV0:XX0:B10FAVV0:XX0:S$""FBXX(16384)FC16368,0:XX1416214GDB1B11:XX1286RESIDENT JAMES K. POLK SENDS YOU HIS HEARTIEST CONGRATULATIONS"E:"AND WISHES YOU A PROSPEROUS LIFE AHEAD AT YOUR NEW HOME"E6700E E *** START OF SHOOTING SUBROUTINE ***E"PRESS TO START SHOOTING.";F";D3;" 1847":5920 D D3D3246>D"DECEMBER ";D3;" 1847":DD D*"FOOD","BULLETS","CLOTHING":"----","-------","--------":(F),(B),(C):"---------------------------------------":"MISC. SUPP.","CASH":"-----------","----"::M1,TEE:5):"PD3;" 1847":5920!ClD31555780/CvD3D3124OC"AUGUST ";D3;" 1847":5920`CD31855820nCD3D3155C"SEPTEMBER ";D3;" 1847":5920CD32165860CD3D3185C"OCTOBER ";D3;" 1847":5920CD32465900CD3D3216D"NOVEMBER :2B"MONDAY ";:57002B"TUESDAY ";:5700KB"WEDNESDAY ";:5700cB"THURSDAY ";:5700yB"FRIDAY ";:5700B:F95570,5590,5610,5630,5650,5670,5690B&"SATURDAY ";:5700B:"SUNDAY ";:5700BDD31245740BND3D393CX"JULY ";LONG MILES --- HOORAY !!!!!"qAr::"A REAL PIONEER !!!!!"wA|AF9(F914)AD3D314F9AF9F91AF985560AF9F97A"PRESS TO CONTINUE...";AC$:(C$)135561BCE"@"6700: END-@, *** FINAL TURN ***E@6F9(2040M2)(MM2)\@@FF(1F9)(85E)b@J@T ***BELLS IN LINES 5470,5480***@]::@^"YOU FINALLY ARRIVED AT OREGON CITY"PAh"AFTER 2040 L BE $4.50 FOR THE TELEGRAPH CHARGE ":?"WE THANK YOU FOR THIS INFORMATION AND WE ARE SORRY YOU DIDN'T MAKE IT TO THE GREAT TERRITORY OF OREGON. BETTER LUCK NEXT TIME."::?15):"SINCERELY,"@:2):"THE OREGON CITY CHAMBER OF COMMER:5250>pC$"N"5231W>:"WOULD YOU LIKE US TO INFORM YOUR NEXT OFKIN? (Y/N) ";r>C$:C$"Y"ė:2:5310>C$"N"5250>:2>C$"Y"5310>::"BUT, YOUR AUNT SADIE IN SAINT LOUIS IS REALY WORRIED ABOUT YOU"::5330*?"THAT WILRIES": =2f=<"DUE TO YOUR UNFORTUNATE SITUATION, THEREARE A FEW FORMALITIES WE MUST GO THROUGH "=Z"WOULD YOU LIKE A MINISTER? (Y/N)";=\C$:C$"Y"ĺ:5230=]C$"N"5212=^=n:"WOULD YOU LIKE A FANCY FUNERAL? (Y/N)";>oC$:C$"Y"C182(1)6300<4940.< *** DYING ***d<"YOU RAN OUT OF FOOD AND STARVED TO DEATH":5170l<T0<"YOU CAN'T AFFORD A DOCTOR":5120<"YOU RAN OUT OF MEDICAL SUPPLIES"<"YOU DIED OF ";< K815160<"PNEUMONIA":5170=("INJUMADE IT THROUGH THE SOUTH PASS --- (THERE WAS NO SNOW)"I;$M17004940X;.F214940a;8F21s;B(1).74970;LM9501230;VM91:1230;j"BLIZZARD IN MOUNTAIN PASS -- LOSE TIME AND SUPPLIES":L11:FF25:M1M110:BB300:MM3040(1)<:60%zI01000::"OK IT'S SHUT."-60<F14950(OB(2)0OB(7)0)(O1$(2)N$O1$(7)N$)OB(1)Pĺ:SCSC50:"HE'S GONE!":DM0:OB(1)17:OB$(1)"A MAGIC WAND":OB(7)35:ZZZZ1:270 I118:O1$(I)N$OB(I)0OB(I)P::"OK":I02000:NOW HOW TO CLOSE "N$"S":60E4:"OK I'LL TRY IT.":N$"CASKET"890Y>N$"DOOR"910zHN(P)4N(P)2:S(P6)2:890RS(P)4S(P)2:N(P6)2:890\W(P)4W(P)2:E(P1)2:890fE(P)4E(P)2:W(P1)2:890p:"BUT THERE'S NO DOOR OPEN!"780N$"SOUTH"N$"S"7808N$"WEST"N$"W"780RN$"EAST"N$"E"780:"I DON'T WANT TO "V$(F)" "N$" "N1$:60 Y$(N$,1):150F11ĺ:"OH GREAT! THE IDIOT SAYS HIDE!":60 F13910*N$"DOOR"N$"CASKET"ĺ:"I DON'T K F5F15[F6OB(8)0OB(1)Pĺ:"I'LL USE THE DAGGER.":DM3:((1)2)11695,920mF7F6:680F6ĺ:"I CAN'T KILL "N$:60F8OB(9)0ĺ:"OK..":I02000::"UGH! NO MILK OR SUGAR!":60F9F10790N$"NORTH"N$"N"SELF!":60lF4650SvT118:OB(T)0N$O1$(T)OB(T)P::"OK":ZZZZ1:60T::"I'M NOT HOLDING "N$:I01000:I:SCSC1:250F2ĺ:"I'M LOOKING!":60V$"PANIC"V$"SCREAM"V$"WORRY"ĺ:"OK BUT I DON'T THINK THAT WILL HELP":60KET"OB(3)36ĺ:"IT WON'T OPEN.":60NN$"BOOK"OB(10)0ĺ:"IT'S IN A STRANGE LANGUAGE BUT THE TITLE PAGE HAS THE WORD 'FINGGO' IN LARGE LETTERS.":SCSC20:60X:"I DON'T KNOW HOW TO OPEN "N$" "N1$:Y$"":60 bF3ĺ:"FIND "N$" YOURI02000::SCSC20:250FN$""ĺ:"BE MORE SPECIFIC!":SCSC1:60gN$"DOOR"N$"CASKET"590&N$"CASKET"P365800S(P)2N(P)2W(P)2E(P)2LO$"IT'S OPEN!"LO$"I SEE NO DOOR!":N$"CASKET"āI01000:::LO$:60&DN$"CAS(P6)4>N(P)2N(P)4:LO$"IT'S OPEN!":S(P6)2S(P6)4uE(P)2E(P)4:LO$"IT'S OPEN!":W(P1)2W(P1)4W(P)2W(P)4:LO$"IT'S OPEN!":E(P1)2E(P1)4P36OB(3)36N$"CASKET"OB$(3)"A GOLDEN EGG":O1$(3)"EGG"::"IT'S OPEN!":SC1:60(:"OK YOU'VE GOT IT.":606F1460(N$"TELESCOPE"N1$"TELESCOPE")OB(18)0ĺ:"I CAN'T SEE ANYTHING, IT'S DAMAGED":60250F12610N$"DOOR"520LO$"IT'S LOCKED!":S(P)2S(P)4:LO$"IT'S OPEN!":N(P6)2N301 rZZ7ĺ:"I CAN'T CARRY ANY MORE!"::1530e |I118:OB(I)PN$O1$(I)OB(I)0:ZZZZ1:Z11k  N$"WALL"N$"DOOR"N$"TABLE"N$"WINDOW"N$"DROOL"N$"CARPETS"N$"FLOOR"ĺ:"DON'T KID AROUND!":60 Z11ĺ:"I SEE NO "N$" HERE.":SC:0 "Y$"DROOL"DMDM1:Y$""::SCSC5:1670r ,V$"":N$"":L(Y$):I1L:(Y$,I,1)" "V$V$(Y$,I,1):I 6F038:(V$,3)V$(F)V$V$(F):330 @ JTI1L:(Y$,T,1)" "N$N$(Y$,T,1):T TN1$(Y$,T1,L) ^Y$"":Z10 hF04THE DARK!":Y$"":60 :P1710,1740,1770,1790,1820,1850,1890,1940,2000,2030,2070,2100,2130,2160,2200,2230,2270,2340,2370,2410,2440,2480,2510,2550,2590,2630,2660,2690,2720,2750,2780,2840,2880,2910,2940,2960 LA0L10ĉ::"I CAN'T SEE IN THE DARK!")1W(P)4)PP1:250X (Y$)1ĺ:"WHAT?! I CAN'T DO THAT!":Y$"":SCSC1:3240:60 P29P12P24P30P5P6P36P18L11 280 Y$"":V$"":N$"":60 P29P12P24P30P5P6P36P18L11 L10LA0ĉ::"I CAN'T SEE IN Y1$ xY1$;:70. LA1LILI1:LI0LI0L OB(16)0OB(16)PLA0e THP(Y$)1Y$"0" Y$"N"(N(P)1N(P)4)PP6:250 P6Y$"E"1680 Y$"S"(S(P)1S(P)4)PP6:250 Y$"E"(E(P)1E(P)4)PP1:250 Y$"W"(W(PE ::SC100;V$(45),N$(45),N(40),S(40),E(40),W(40)WOB(18),OB$(18),O1$(18)](g23280<:"WHAT WILL YOU DO? ";:L1L11:L10L10FY1$:Y1$(13)130PY1$(8)110Z(Y$)1Y$"":120dY$(Y$,(Y$)1):120 nY$Y$                       TCHES LEFT.":L1L1((1)5)3:270y&rV$"WAVE"N$"WAND"OB(7)0O1$(7)"WAND"THPĺ:"IT'S GONE!":TH0:SCSC30:60&|V$"WAVE"N$"WAND"OB(7)0O1$(7)"WAND"ĺ:" NOTHING HAPPENED!":DMDM1:P((1)35)1:LILI5:60'Y$""::"I DON'T UNDERS50\%JV$"FILL"N$O1$(16)P21ĺ:"OK I'VE FILLED IT":LI40:F29:N$"WATER":SCSC25:350%TV$"FILL"BO1OB(13)0ĺ:"OK I'VE FILLED IT- THE BOTTLE IS EMPTY":BO0:LI40:60%^#&hV$"STRIKE"N$"MATCH"OB(17)0MAMA1::"OK, YOU HAVE "MA" MAIATE!)":SCSC25:60b$,(N$"DOWN"V$"DOWN")P6OB(7)0OI$(7)"WAND"ĺ:"OK..LET'S GO.":1700$6P31V$"KISS"N$"TOAD"OB(4)0ĺ:" ":60%@V$"FILL"N$"BOTTLE"OB(13)0P21ĺ:"OK....":F29:N$"WATER":BO1:3::"YOU ARE CARRYING ":I118:OB(I)0ĺOB$(I):ZZZZ1T#I:ZZ0ĺ"NOTHING":60\#60l#P311580$"V$"KISS"N$"TOAD"OB(4)0O1$(4)"RING":OB$(4)"A GOLD RING"::"IT'S CHANGED TO A "OB$(4):"(I'D HAVE THOUGHT A PRINCE WAS MORE APPROPRDM0ĺ:"ARRGGGHHH!":I02000:::"IT'S....":IO4000:::::"HORRIBLE!":60":"MMM....IT'S LIKE STRAWBERRY CHEESECAKE!":60"F35Y$"S":150"F36Y$"N":150"F37Y$"W":150"F38Y$"E":150"(V$,3)"INV"15608#ZZ0INFO"ĺ:"DM"DM,"TH"TH,"P"P,"DROOL"OB(1):60V!F32ĺ:V$" "N$" "N1$" YOURSELF":60i!F33F9:350y!F341480!F34P21ĺ:"RIGHT!":"I'LL FIND A WINDOW AND STICK MY TONGUE OUT AND WAIT FOR RAIN.":60!I((1)2)1:I1460,1470Q"60 PF29N$"WATER"P21DM0O1$(4)"RING"OB$(7)"WAND"ĺ:"SOMETHINGS HAPPENING!"::"EVERYTHING IS GOING MISTY!":I02000:P6:250 ZF29ĺ:"OK..NOW WHAT?":60 dF30ĺ:"WHAT SHOULD I SAY?":60 nF31V$"GET":N$N1$:F0:350,!xV$"C100" POINTS":60C(F26ĺ:"DO ME A FAVOUR-I HAVE NO GUN.":602V$"BREAK"N$O1$(18)OB(18)0OB$(18)"A LENS":OB(18)P:ZZZZ1:SCSC20:O1$(18)"LENS":I11000::250<F27ĺ:"HA HA....IDIOT":60 FF28ĺ:"I'M SORRY I CAN'T HELP YOU.":CK!":60F241310AOB(6)0ĺ:"YOU HAVE NO KEYS!":60x(1).6ĺ:I02000::"THE LOCK WON'T TURN!":60I136:N(I)3N(I)4:S(I6)4 W(I)3W(I)4:E(I1)4:IO2000:::"OK! IT'S OPEN!":60V$"SCORE"ĺ:"SO FAR "S I HAVE NO MATCHES":60(LI1LI80S:"OK IT'S LIT":LA1:I02000::270V$"EXTINGUISH"OB(16)0LA0::"OK":60F21Ĝ:255:::"BYE":F22ĺ:"WHICH DIRECTION?":60F23OB(6)0ĺ:"I'LL TRY..":I02000::"IT WON'T LOj~N$"LANTERN"OB(18)0O1$(18)"LENS"OB(16)0L11ĺ:SCSC25:"I'LL USE THE LENS IN THE SUN!":1190N$O1$(16)OB(17)0OB(16)0MA0MAMA1:1190MA0OB(17)0SCSC10::"YOU HAVE NO MATCHES LEFT.":OB(17)35:60OB(17)0ĺ:"HOW?)36)1:I02000::SCSC25:25018F171130RBN$"DROOL"SCSC25:DMDM1nLN$""ĺ:"PARDON?":60VN$"FINGGO"THPĺ:"IT'S GONE!":DMDM1:TH0:SCSC15:60`:"OK...HERE GOES...'"N$"'":"PRETTY GOOD HUH?!!";:60jtF191210ĺ:"I CAN'T READ IT.":60>:"I SEE NOTHING SPECIAL.":60WF16OB(2)01080N$"DOOR"ĺ:"I DON'T THINK THAT WILL HELP!":60I136:N(I)3N(I)4:S(I6)4$W(I)3W(I)4:E(I1)4!.::"THE HAMMER'S GONE!":ZZZZ1:OB(2)((1UCH THIS POOL OR SEEK INSTEAD THE WIZARD DROOL":60lN$"INSCRIPTION"P34ĺ::"IT SAYS 'THIS WAY'":60N$"INSCRIPTION"P27LI10ĺ:"FILL IT UP AT CENTER POOL":"BUT DO WATCH OUT FOR WIZARD DROOL!":DMDM1:60N$"INSCRIPTION"N$"RUNES"0440cN$"SCROLL"OB(5)0OB(4)0ĺ:SCSC10:"IT SAYS 'IN THE SUN I'LL GET IT DONE!":SU1:60N$"SCROLL"OB(5)0ĺ:"IT'S JUST GIBBERISH.":60N$O1$(14)OB(14)0ī35003N$"INSCRIPTION"P21ĺ::"IT SAYS":"WITH TOAD A RING YOU'LL TO:ZZZZ1:60MI::"I CAN'T THROW IT IF I DON'T HAVE IT.":I02000::60]F151030N$"BOOK"OB(10)0ĺ:"I CAN'T READ IT."::I01000::"WAIT! ON THE BACK COVER IT SAYS 'ASK DROOL!'":SCSC10:60N$"TELESCOPE"O1$(18)N$OB(18)N THE FLOOR IS AN INSCRIPTION ":"THE AIR IS FILLED WITH THE SOUND OF RUSHING WATER."6 :"IN THE SOUTH WALL IS A DOOR WHICH IS ":CO$(S(P))6 2990:606 22O7 :"YOU ARE IN A DIM CHAMBER- THE NORTH WALL IS GOLD!":"A PASSAGE LEADS SOUT0:60 5j 205t :"YOU ARE IN A VAST CHAMBER- THE WALLS ARE BLUE!":"THERE IS AN ARCHWAY IN THE WEST WALL AND FROM THE EAST IS THE SOUND OF WATER FLOWING."5~ 2990:605 21Z6 :"YOU ARE STANDING NEXT TO A ROUND POOL OF DEEP BLUE WATER. O LEADING NORTH."48 2990:60&4B 194L :"YOU ARE IN THE SOUTH END OF A NORTH/ SOUTH PASSAGE, IN THE EAST WALL IS AN ARCHWAY."::"FROM THE EAST IS THE SOUND OF WATER FLOWING."4V :"IN THE SOUTH WALL IS A DOOR WHICH IS":CO$(S(P))5` 299L WHICH IS "CO$(E(P))3 DM1OB(1)17ĺ"HE SPEAKS!"::"'SPEAK MY NAME BEFORE THE POOL":"THEN TELL NO MORE OF WIZARD DROOL'"3 DM2ĺ:"HE'S GETTING UP!";:I02000::DM33 2990:603$ 184. :"THIS IS A GRIMY LITTLE ROOM, THERE IS A PASSAGEYOU ARE IN THE EAST END OF A LONG CHAMBER- THE WALLS ARE GOLD!":OB(1)17ĺ"THERE IS AN "OB$(1)" IN A CHAIR."2:"HIGH ON THE WALL IS THE WORDS.."::"'ALIVE AGAIN IF YOU TELL MY NAME'"3:"THERE IS A PASSAGE SOUTH AND A DOOR IN THE EAST WAL2990:601161:"YOU ARE IN THE EAST END OF A LONG HALL- THE WALLS ARE GOLD!":"ARCHWAYS LEAD NORTH AND SOUTH, AND IN THE WEST WALL IS A BLUE DOOR WHICH IS":CO$(W(P))1OB(1)17ĺ"THERE'S A MAN IN OTHER END!"12990:60117s2:"$(N(P))>0"FROM THE EAST IS THE SOUND OF WATER FLOWING"L02990:60T0150:"YOU ARE IN A VAST CHAMBER-THE WALLS ARE BLUE!":"FROM THE SOUTH IS THE SOUND OF WATER FLOWING. IN THE EAST WALL IS A LARGE GOLDEN DOOR WHICH IS "CO$(E(P)) 1A WOODEN DOOR WHICH IS "CO$(N(P))2/H2990:60:/R13{/\:"YOU ARE IN THE NORTH END OF A NORTH/ SOUTH CORRIDOR."/f2990:60/p140z:"YOU ARE STANDING IN A VAST CHAMBER- THE WALLS ARE BLUE!":"THE NORTH WALL HAS A LARGE DOOR WHICH IS"COH BRONZE. A PASSAGE LEADS NORTH, AND IN THE WEST WALL IS A SILVER DOOR WHICH IS "CO$(W(P))i.*2990:60q.412$/>:"YOU ARE IN A BARE ROOM, A WINDOW LOOKS OVER A SHEER DROP TO ROCKS FAR BELOW. THERE IS A PASSAGE SOUTH AND IN THE NORTH WALL IS THE EAST WALL." -2990:60&--:"YOU ARE IN A CHAMBER LINED WITH SILVER. A GOLD ARCH LEADS SOUTH. THERE IS A PASSAGE WEST AND IN THE EAST WALL"-"IS A DOOR WHICH IS "CO$(E(P))- 2990:60-[. :"YOU ARE IN A CHAMBER LINED WIT" DOOR"D,"ON THE NORTH WALL IS AN INSCRIPTION WHICH READS":,"'TO ESCAPE THE MAZE GO FIND DROOLS LAIR OR GAZE WITH GOLD INTO THIN AIR!'",2990:60,-:"NOW YOU ARE IN THE EAST END OF AN EAST/ WEST CORRIDOR. THERE IS AN ARCHWAY INALL WHICH IS "CO$(N(P))_+SM3ĺ:"AAGHH!!!! !!!":I04000::P27:SM1:2660m+2990:60s++:"YOU ARE IN THE WEST END OF AN EAST/WEST CORRIDOR. THERE IS A PASSAGE IN THE WEST WALL AND IN THE SOUTH WALL IS A",CO$(S(P)) FAR BELOW."7*N"THERE IS A PASSAGE IN THE WEST WALL"E*X2990:60K*b*l:"YOU ARE STANDING IN AN OAK PANELED ROOM THERE IS A "SMELL$(SM)" SMELL"+vSMSM1:"YOU CAN GO THROUGH TUNNELS IN THE SOUTH OR EAST WALLS. THERE IS A DOOR IN THE NORTH WR. IN THE SOUTH WALL IS A DOOR WAY."4)2990:60:){)&:"YOU ARE IN A BARE ROOM. PASSAGES LEAD EAST AND SOUTH.")02990:60): *D:"YOU ARE STANDING ON A LARGE BALCONY WITH A VIEW TO THE NORTH & EAST. THERE IS A SHEER DROP TO ROCKSND OF AN EAST/WEST CORRIDOR, IN THE SOUTH WALL IS A DOOR WHICH IS ";CO$(S(P))b(2990:60h((:"YOU ARE STANDING IN AN EAST/WEST CORRIDOR."(2990:60(3(1740(&):"YOU ARE IN THE EAST END OF AN EAST/WEST CORRIDOTAND.":3090:60V'OB(7)0O1$(7)"WAND"ĺ:"HEY! THERE'S A LADDER GOING DOWN ":60':"I CAN'T FLY! (MAYBE IF I HAD A WAND?)":SCSC10:60'3090:1040'::"WELL DONE YOU ESCAPED FROM WIZARD MOUNTAIN!":'T(:"YOU ARE AT THE EW! IT'S GONE! YOUR LEGS ARE OK!":CF TH0THPTH((1)34)1F OB(18)0O1$(18)"TELESCOPE"TETE1:TE20ĺ"HEY! THE TELESCOPE IS FALLING APART!"F TE40ĺ"THE TELESCOPE JUST FELL APART!":TE0:V$"BREAK":N$"TELESCOPE"::1330F SCSC1:OOL":OB$(1)"AN OLD MAN":OB$(7)"A MAGIC WAND":OB(7)0E OB(3)0OB(5)0OB(4)0(P12P24P30)ĺ:"HEY! EVERYTHING IS SPINNING!":P6:250"F THPĺ:"THERE'S A EVIL SPIRIT LURKING IN HERE! IT'S PARALYSED YOUR LEGS!":T1T11:T15TH35:T10::"WODM3DCDC1:DC2OB(1)PDCDC2:3220D DC2OB(1)Pĺ:"A WIZARD -HE'S PUT A SPELL ON YOU!":I02000::"UUGH! ARRGH!":I02000::"HE JUST KILLED YOU. BAD LUCK!":"SCORE:"SC100:6E OB(1)0OB(7)35:OB(1)17:O1$(7)"WAND":SCSC40:O1$(1)"DROU ";:OB(1)0ĺ"WAVING HIS WAND!"8C0 OB(1)Pĺ:3160\C: (1).2W(I)2W(I)3:E(I1)3wCD OB(1)POB(1)OB(1)1CN OB(1)POB(1)OB(1)1CX (1).63200Cb I1336:(1).3N(I)2N(I)3:S(I6)3Cl (1).3W(I)2W(I)3:E(I1)3Cv *D (I)Pĺ:"THERE IS "OB$(I)" ON THE FLOOR."0B vB OB(3)0OB(5)Pĺ"IT SAYS 'IN THE SUN I'LL GET IT DONE'":SCSC2B OB(1)POB(1)17ĺ"THERE IS AN OLD MAN HERE!"B P11LILI1B DM1DM3B DM33160#C& OB(1)Pĺ"HE'S WALKING TOWARDS Y10ĺ:"THE LAMP IS DIMMING,IT WILL GO OUT SOON">A LI0LA0RA MA0OB(17)35A OB(2)Pĺ"THERE IS A HAMMER ON THE FLOOR."A OB(3)36P36ĺ"THERE IS "OB$(3)" ON THE TABLE."A OB(3)PP36ĺ"THERE IS A "OB$(3)" ON THE FLOOR."*B I518:OB P((1)36)1:250@ 36@ :"YOU ARE STANDING IN A LARGE ROOM WITH CARPETS ON THE FLOOR. IN THE CENTER OF THE ROOM IS A TABLE."@ 2990:60@ Y$"":CV(37)2:34,CV:@ OB(4)Pĺ"THERE IS A LARGE TOAD ON THE FLOOR.":SCSC2/A LA1LI6 2990:60?@ 33k?J :"YOU ARE IN A DAMP CORRIDOR-IT GOES OFF WEST":"IN THE EAST WALL IS A PASSAGE."y?T 2990:60?^ 34?h :"YOU ARE IN A DIM CELLAR. ON THE FLOOR IS AN INSCRIPTION.":"PASSAGES LEAD EAST AND NORTH."?r 2990:60?| 35@ 2990:60> P> 32>" :"THE PASSAGE HERE IS DAMP AND AND THE WALLS ARE SLIMY AND STAINED WHERE WATER IS DRIPPING FROM THE CEILING.">, :"AN ARCHWAY RUNS NORTH AND THE PASSAGE GOES EAST. IN THE WEST WALL IS A DOOR WHICH IS "CO$(W(P)) ?HE SUN IS SHINING.":"NORTH AND SOUTH THERE ARE ARCHWAYS."I= 2990:60Q= 31= :"YOU ARE IN A DAMP HUMID CELLAR. THERE'S A NASTY SMELL HERE."= W(P1)1:E(P)1:O1$(4)"RING"E(P)3= "THERE IS A DOOR IN THE EAST WALL WHICH IS "CO$(E(P)) >IN THE EAST END OF AN EAST WEST CORRIDOR":"TO THE EAST IS A LIGHT SHINING, AND IN THE WEST WALL IS AN ARCHWAY."< 2990:60< 30;= :"YOU ARE IN THE EAST END OF AN EAST/WEST CORRIDOR. IN THE EAST WALL IS A WINDOW LOOKING OUT FROM THE MOUNTAIN. T;n :"YOU ARE IN A CORRIDOR-IT GOES OFF WEST AND SOUTH.":"ON THE FLOOR IS AN INSCRIPTION.":"IN THE NORTH WALL IS A "CO$(N(P))" DOOR.";x 2990:60; 28; :"YOU ARE STANDING AT A CROSS ROADS OF TUNNELS."; 2990:60; 29q< :"YOU ARE E RUNES ON THE FLOOR BY THE SOUTH PASSAGE."9:< 2990:60A:F 26:P :"YOU ARE IN THE WEST END OF AN EAST/WEST CORRIDOR. THERE ARE PASSAGES LEADING SOUTH AND WEST."::"YOU CAN HEAR THE SOUND OF WATER FLOWING SOMEWHERE NORTH.":Z 2990:60:d 27VY DOOR IN THE WEST WALL WHICH IS "CO$(W(P));9 2990:60C9 259( :"YOU ARE IN A SMALL ROOM, THERE IS A MUSTY, DAMP SMELL HERE."::"PASSAGES LEAD EAST AND SOUTH, AND IN THE NORTH WALL IS A DOOR WHICH IS ":CO$(N(P))+:2 :"THERE ARE STRANGAST WALL IS A HEAVY DOOR WHICH IS "CO$(E(P));8 2990:60C8 248 :"IN THIS ROOM THERE IS A BALCONY SET IN THE FACE OF THE MOUNTAIN. IT'S A LOVELY DAY!"::"YOU CAN GO THROUGH THE PASSAGES IN THE NORTH OR SOUTH