' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u`ICKS THE BUCKET"8&TRN(10)A$"SAILS THE RIVER STYX"P&^" ";A$:5400:5400d&B%(K,1)Q8108x&IB%(K,1):8110&B%(K,1)C%(Q,1):8130&C%(I,1)Q8120&IC%(I,1):8110&C%(I,1)C%(Q,1)&C%(Q,4)8B%(K,0)B%(K,0)1'l 0:C%(Q,2),;C%(P,7);:28:"ALLIANCE ";C%(P,4)1^%t"STRENGTH ";C%(P,5);:16:"ARMOR ";C%(P,8);:28%~AC%(P,11):"DUCATS ";A;:A10000ĺ%"SKILL ";C%(P,10);:16:"MOVE ";C%(P,9);%2000:2000::%@ZC$(NRQ);&JA$"DEPARTS":RN(2)A$"KO$RN(100)2I7400)$RN(3)7320A$J9:A$"MOVE":7350U$J10:A$"SKILL"m$OC%(P,J):O37400$" REDUCING HIS/HER/ITS ";A$:2000:OO1:C%(P,J)O$RN(120)2Iİ3500$$L4:ZC$(NRP)$%`"LIFE FORCE ";C%(P,6);:16:"WEAPON "#dLL1:7010#lIMM%(L,3)-#AL7080:#OLA1z#MM%(O,1)MM%(O1,1):MM%(O,2)MM%(O1,2):MM%(O,3)MM%(O1,3)#O#B%(K,7)B%(K,7)800:B%(K,7)800B%(K,7)0#7200:$ OIC%(P,11):ZC$(NRP);" NOW HAS ";O;" DUCATS":2000:C%(P,11)K,1):6660$"B%(K,1)C%(P,1):67008"C%(I,1)P6670L"IC%(I,1):6660`"C%(I,1)C%(P,1){",Y8B%(K,0)B%(K,0)1".RDD%(L,3):C%(P,1)B%(R,1):B%(R,1)P:Y8B%(R,0)B%(R,0)1"^MR:1200:"XAB%(K,7):1800"bMM%(L,1)EMM%(L,2)F7020%(I,4)6268!vJ06270#!xJJ17!|IC%(I,1):6260Q!~GC%(I,2):HC%(I,3):`!G1:HG:t!dAB%(K,9):1800!xEDD%(L,1)FDD%(L,2)6550!zLL1:6520!0:C%(P,2),C%(P,3)!C%(P,2)DD%(L,4):C%(P,3)DD%(L,5)!B%(K,1)P6655 "IB%( 6 5 4 TYPE 0 TO STOP":0 8IB%(K,1):J0> BI06230T DYC%(I,4)JJ1h FIC%(I,1):6210v VJ06250 XAB%(K,9):1800:A06290 `RN(2)6245 bAL6290 cLL1:6240 eGDD%(L,1):HDD%(L,2): jJRN(J):IB%(K,1) !tYC:,I200:J250:5900:I250:5900:m|J17:F1D:I97:5900:I78:5900:I64:5900:I48:5900:F:DJ22:F1D:I48:5900:I64:5900:I78:5900:I97:5900:F: 768,I:769,J:770:p" 8 1 2 ";ZC$(PNR) z"7 * 3 MOVE ";D:",3)F)224510+QQ1:Q%(Q)J:Q845106Q0ıDY84600YQQ%(RN(Q)1):gQ14610uQQ%(1):SS2.53:"-- SELECT OPPONENT --";:X11Q::" ";X1;" - ";ZC$(Q%(X1)NR);:2000:X1SS2.48 X1E:X2F:AL1:AHQ:350:QQ%(A)8000:&|I3ĺ" AND IS UNCONSCIOUS"E2000:C%(Q,6)I:I3İ5400WDRN(100)ıOP:PQ:YC%(P,4):3500:QP:PO:YC%(P,4):Q0:EC%(P,2):FC%(P,3)IB%(K,1):4512IC%(J,1):I14550JI:C%(J,4)Y4510(C%(J,2)E)2(C%(J(Q,8):D04060-"THE WHOLE BLOW":2000:QAC%(Q,8):A;" HIT";:A1ĺ"S";]:2000ZC$(NRQ);:A$" WINCES":D54120A$" STAGGERS BACK":D74120A$" IS KNOCKED DOWN":C%(Q,0)200A$:5700:2000hIC%(Q,6)D:I04220m5)3560  "SKILL":2000:3590< "STRENGTH":2000:3580k C%(P,5)C%(P,5)1:C%(P,7)C%(P,7)RN(3):C%(P,10)C%(P,10)1:C%(Q,8)04100ZC$(NRQ);:AC%(Q,4):A$"ARMOR":A11A12A$"HIDE""'S ";A$:" ABSORBS ";DDC%1:A1S:A:= JE,F):I1S4:0:E,F:J:E,F:I:H A$;:b ZC$(NRP);:Y83550 " GAINS EXPERIENCE ! ":" STRENGTH (1) OR SKILL (2) ? ":X1C%(P,2):X2C%(P,3) AL1:AH2:350:A13580 3590 " IMPROVES ";:C%(P,10)C%(P,L1:1510@1E1800TJEDD%(L,1):FDD%(L,2):E,F:SS4:2500:SS4:ALıdOLL1:1610C%(H,4):EC%(H,2):FC%(H,3):E,F:LR01720"--> ";ZC$(HNR):2500HC%(H,1):H1ı1700L((A800(A800))800.05):A(A800)LAB%(K,7):A0İ1500, HB%(K,1):Hİ1700:LR.5ĺELRM:Mx15W}1800vWW%(L,1),WW%(L,2):ALıLL1:141081800EMM%(L,1):FMM%(L,2):E,F:GMM%(L,3):LR01530"$$$ ";G;" DUCATS $$$":2500ALı LM:LR11210(B%(K,6)B%(LR,6)1220.=LR01230R"***** ";ZC$(K)~EB%(K,2):FB%(K,3):GB%(K,4):HB%(K,5)15:E,GF:E,GH:F,HE:F,HG0:EE1:GG1:IF1H1:E,GI:IAB%(K,8):A0İ1400AB%(K,9):A0İ1600 FELL DOWN AND MUST REST":2000:Y8İ7500:C%(P,0)5:eX0:TT1:5:"** TURN ";T;" **":2000RR1NR:RRR:B%(R,0)11020X1:700RR:X1000"TRY AGAIN?";A$:(A$,1)"Y"10000(A$,1)"N"Ā "TYPE A Y OR N":1030 KPRINT STATUS":350:A6930+7500:900;C%(P,0)A:NC%(P,6)3990hEX1:FX2:100:O970C%(P,6)C%(P,5)RN(4)990C%(P,0)12((RN(5)3)):I13RN(2):RN(2)I2RN(3)I3C%(P,0)I:*A$ZC$(NRP):3000:".05) tIv!LRRR9020MRR:1200[X1C%(P,2):X2C%(P,3):C%(P,0)200980hY8950A$ZC$(NRP):3000:"'S CHOICE"AL1:C%(P,6)3AL5AH6:AL1920"1-RUN 2-DODGE 3-ATTACK":"4-RETREAT";12:"5-REST 6-0:IB%(K,1)*I1NO19830L,NONO1:O%(NO)256(3C%(I,10)RN(12))I_.IC%(I,1):810m>NO1880@J2NO:IJ1:AO%(J)HAO%(I)850JO%(I1)O%(I):II1:I0840RO%(I1)ATJpI1NOrAO%(I)256:O%(I)((A(A))256)ıRN(2)1ıWA$ZC$(NRP):3000:" GAINS LIFE FORCE":2000:C%(P,6)C%(P,6)1xC%(P,6)C%(P,5)RN(3)660~RLR710MR:1200800U1NO:PO%(U):YC%(P,4)C%(P,6)0İ900C%(P,6)0İ400U  NO"WALLOPS""D12A$"CLOBBERS"U" ";A$:4:A$ZC$(NRQ):3000:" ":5500:2000bD4550A(C%(Q,5)C%(Q,10)2C%(Q,8)2C%(P,8)C%(P,10)C%(P,5))210:A4A4A16A16A(A.05):ARN(100)İ3500&4000:C%(P,6)C%(P,5 ":5:A$ZC$(NRQ):3000:" ":2000:@C%(Q,0)2RN(2)530 A$ZC$(NRQ):3000:" DODGES ":A$ZC$(NRP):3000:"'S ATTACK":2000:DC%(P,7):D1ıD1D((1)D2(1)D21.05)ZC$(NRP);:A$"GRAZES"D3A$"JABS" D7A$5)EC%(P,2):FC%(P,3):100*OD1;Q4O1D2MNOQ4:200^Y7Q3470rRN(50)İ3500Q5İ650Q3İ5004500:Q0ıEC%(P,10):E1E1E19E19RN(20)E520%A$ZC$(NRP):3000:" MISSES350rA160:A:360'|16368,0:DYC%(P,4):RRR:RLR405RMR:1200jY:C%(P,2),C%(P,3)wY8440A$ZC$(NRP):3000:AC%(P,0):A5ĺ" RESTS"A5ĺ"'S TURN"2000QC%(P,0):DC%(P,9):Q5D0460Q1D(D2.0257 "Y8300< #"OW! BUMPED INTO SOMEONE":5400:2000` 'D(D21):D0Y8İ6000:DD1w ,DD1:D1Y8210 122:19:D;" ":24:210 ^16368,0 hY:X1,X2:A(16384)176:AALAAH380 m0:X1,X2:A21370o16368,0:8500:2000:295" RN(20)C%(P,5)275M "THE DOOR IS STUCK!":5400:2000:295k 6500:DDRN(4):D2300 EC%(P,2):FC%(P,3):100:Oı Y8300 DD1:6000:DD1:300 7000:DDRN(D):A1:Q1:C%(P,0)1:D2Y8257 DD1:6000:DD1:E,F):A0257 A1270' A82800 290A D0:Y8300v "NO RETREAT EXCEPT BY REQUEST":5400:2000:300 Y:E,F:0:C%(P,2),C%(P,3):C%(P,2)E:C%(P,3)F:D2ı 100:Oı 300 Y8300 "OUCH! YOU RAN INTO THE WALL":5400:232' MM3:M1((M8(M8))8.05)< RN(5)14Y240T MMRN(6)RN(2)4r M1((M8(M8))8.05)} M1ı M3M7FF1 M3M7FF1 M1M5EE1 M5EE1 AE,F):A15260 N248 100:O255 A: xJC%(J,1):110$ Y8İ60003 Y8İ6200> D1ı_ EC%(P,2):FC%(P,3):Y8220 X1E:X2F:AL0:AH8:350:MA:EX1:FX2:240 G0230 GE224 GE226 M32(HF):230 M7(FH):230 M3(HF) C%(P,0)4OLw COPYRIGHT (C) 1980 BY QUALITY SOFTWARE. ALL RIGHTS RESERVED. COPYING, INCLUDING LISTING ON PAPER, IS UNLAWFULRN(I)((1)I) 9500dJB%(K,1):O0nJ1ıpC%(J,4)YC%(J,6)3120r(C%(J,2)E)2(C%(J,3)F)22120 tO1                         PLETE THY QUEST!"::" PRESS -SPACE- TO CONT.";:Q$::1090RV:::"AAHH!!.....";PN$::"THOU HAST ACOMPLISHED THY QUEST!":(TASK)107900 S`"UNFORTUNATELY, THIS IS NOT ENOUGH TO":"BECOME A KNIGHT.":TASK(TASK)1::"NOW THOU MUST KILL A(YOU.....":".....ALSO I, BRITISH, HAVE INCREASED":"EACH OF THY ATTRIBUTES BY ONE!"Q:" PRESS -SPACE- TO CONT.";:Q$:X05:C(X)C(X)1:::1090CRLTASK0ĺ::PN$;" WHY HAST THOU RETURNED?":"THOU MUST KILL A(N) ";M$(TASK):"GO NOW AND COM1090 PP:"GOOD! THOU SHALT TRY TO BECOME A ":"KNIGHT!!!"::"THY FIRST TASK IS TO GO INTO THE":"DUNGEONS AND TO RETURN ONLY AFTER":"KILLING A(N) ";:TASK(C(4)3):M$(TASK)SQ:" GO NOW UPON THIS QUEST, AND MAY":"LADY LUCK BE FAIR UNTO DARE BATTLE WITH THE EVIL":"CREATURES OF THE DEPTHS, FOR GREAT":"REWARD!"uOv:"WHAT IS THY NAME PEASANT ";:PN$P"DOEST THOU WISH FOR GRAND ADVENTURE ? ";:Q$:Q$"Y"ĺ:"THEN LEAVE AND BEGONE!":PN$""::" PRESS -SPACE- TO CONT.";:Q$:PN$1N" TO INVOKE A MIRACLE OF RESSURECTION"TN" ";iN(16384)1551sN6050}NX::NY62450NbPN$""7500LOl::" WELCOME PEASANT INTO THE HALLS OF":"THE MIGHTY LORD BRITISH. HEREIN THOU MAYCHOOSE TO:4525&M ZZ((1)6):PW(ZZ)14620[M"A THIEF STOLE A ";W$(ZZ):PW(ZZ)PW(ZZ)1:4525cM:Mp33,40:::" WE MOURN THE PASSING OF"Mu(PN$)22PN$""MzPN$""PN$"THE PEASANT"MPN$PN$" AND HIS COMPUTER"N(20((PN$)2)):46002L"YOU ARE BEING ATTACKED":"BY A ";M$(MM)eL(1)20(PW(3))C(3)MMIN0ĺ"MISSED":4525L"HIT":C(0)C(0)((1)MMIN)LPA1ĺ"-CR- TO CONT. ";:Q$L4999L(1).54509MMM7PW(0)(PW(0)2):"A GREMLIN STOLE SOME FOOD"Y1PY4999=KML%(MM,0)ML%(MM,0)X1:ML%(MM,1)ML%(MM,1)Y1KDNG%(ML%(MM,0),ML%(MM,1))(DNG%(ML%(MM,0),ML%(MM,1))10MM.5)KX10Y104999KMZ%(MM,1)INLPRA1.34500KMZ%(MM,1)INLPMZ%(MM,1)MZ%(MM,1)MMINK4999LMM2MM704045AJDDNG%(ML%(MM,0),(ML%(MM,1)Y1.5)):D1D9D24045PJX10:4050dJY10:X104050JDDN%((ML%(MM,0)X1.5),ML%(MM,1)):D1D9D2X10:4081JDNG%(ML%(MM,0),ML%(MM,1))DNG%(ML%(MM,0),ML%(MM,1))10MM KML%(MM,0)X1PXML%(MM,1)20DI,B9DIC6DI,B25DI:490@IMM110:MZ%(MM,0)04999lIRA((PXML%(MM,0))2(PYML%(MM,1))2)IMZ%(MM,1)INLP4030IRA1.34500IMM8RA34999IX1(PXML%(MM,0)):Y1(PYML%(MM,1))IMZ%(MM,1)INLPX1X1:Y1Y1JY1DI,B54DI:C20DI,B50DIC26DI,B47DIH C10DI,B58DIC10DI,B61DIC4DI,B58DI:C10DI,B58DIC10DI,B61DIC4DI,B58DI:C40DI,B9DIC50DI,B12DIC40DI,B7DI!I C8DI,B25DIC6DI,B7DIC28DI,B7DIC28DI,B9DIC,0),ML%(X,1))020207GML%(X,0)PXML%(X,1)PY2020XGDNG%(ML%(X,0),ML%(X,1))X10gGMZ%(X,0)1sGNMNM1GMZ%(X,1)X2IN2LPG*:+H C28DI,B41DIC30DI,B55DI:C28DI,B58DIC22DI,B56DIC22DI,B53DIC28DI,B52DIC344:C(Y)(C(Y)2.5)::1090?F"BACKFIRE":C(0)C(0)2:1090uF60080::"PRESS -CR- TO CONTINUE";:Q$:::1090FNM0:X110FMZ%(X,0)0:MZ%(X,1)X3INOUTFX2INO(1).42090FML%(X,0)((1)91):ML%(X,1)((1)91)GDNG%(ML%(XG%(PX,PY)8:10908E"LADDER DOWN":DNG%(PX,PY)7:1090_E"MAGIC ATTACK":DAM10INOUT:1672E((1)31)1693,1695,1697E"YOU HAVE BEEN TURNED":"INTO A TOAD!"EZ214:C(Z2)3:Z2:1090F"YOU HAVE BEEN TURNED":"INTO A LIZARD MAN":Y01ĺ"NONE OWNED":16507DPT$"F"Q((1)41):1685D"1-LADDER-UP","2-LADDER-DN":"3-KILL","4-BAD??":"CHOICE ";:Q$:Q(Q$):Q:Q1Q41682D(1).75ĺ"LAST CHARGE ON THIS AMULET!":PW(5)PW(5)1DQ1686,1690,1691,1692E"LADDER UP":DNZ%(MN,1)1ĺ"THOU HAST KILLED A ";M$(MN):"THOU SHALT RECEIVE":DA(MNIN):DA;" PIECES OF EIGHT"BMZ%(MN,1)1C(5)(C(5)DA):DNG%(ML%(MN,0),ML%(MN,1))DNG%(ML%(MN,0),ML%(MN,1))10MN:MZ%(MN,0)0BLKLK(MNIN2):MNTASKTASKTASKCPA1ĺ"-C RAPIERS!":1650$A{DAM0ĺ"HANDS":A|DAM5DAM41670^A}MNDN%(PXDX,PYDY)10:MN(MN)A~MN1C(2)(1)25MNINOUTĺ"YOU MISSED":1668A"HIT!!! ":DAM((1)DAMC(1)5):MZ%(MN,1)MZ%(MN,1)DAMAM$(MN);"'S HIT POINTS=";MZ%(MN,1)aBM(2)1ĺ"NOT OWNED":1650P@uQ$"S"DAM1:"SHIELD":PW(3)1ĺ"NOT OWNED":1650@vQ$"B"DAM4:"BOW":PW(4)1ĺ"NOT OWNED":1650@wQ$"M"ĺ"MAGIC AMULET":1680@xQ$"B"PT$"M"ĺ"MAGES CAN'T USE BOWS!":1650AyQ$"R"PT$"M"ĺ"MAGES CAN'T USE";INOUT1%?1INOUTINOUT1:500:MR1g?2IN0ĺ"THOU HAST GAINED":LK;" HIT POINTS":C(0)C(0)LK:LK0q?31090{?@1090?rMN0:DAM0:"ATTACK":"WHICH WEAPON ";:Q$?sQ$"R"DAM10:"RAPIER":PW(1)1ĺ"NOT OWNED":1650@tQ$"A"DAM5:"AXE":PWX1:PY1:1090%>TE%(TX,TY)570007>"HUH?":1000_>DNG%(PX,PY)7DNG%(PX,PY)91580>"GO DOWN TO LEVEL ";INOUT1>INOUTINOUT1:500:MR1:1090>,DNG%(PX,PY)8ĺ"HUH?":1090>-IN1ĺ"LEAVE DUNGEON":IN0:1586 ?0"GO UP TO LEVEL :DY0:1090P=x"SOUTH":TER%(TX,TY1)1ĺ"YOU CAN'T PASS THE MOUNTAINS":1090b=TYTY1:1090="TURN AROUND":DXDX:DYDY:1090=TE%(TX,TY)3İ60080:60200:1090>TE%(TX,TY)4INOUT0ĺ"GO DUNGEON":"PLEASE WAIT ":INOUT1:500:DX1:DY0:PT PASS THE MOUNTAINS":1090.<TXTX1:1090@<"TURN RIGHT"\<DX0DYDX:DX0:1090r<DXDY:DY0:1090<"WEST":TER%(TX1,TY)1ĺ"YOU CAN'T PASS THE MOUNTAINS":1090<TXTX1:1090X208ĭPA1PA0:"PAUSE OFF":1000OUT2(INOUT2)DNG%(7,3)7:DNG%(3,7)8Y6:INOUT2(INOUT2)DNG%(7,3)8:DNG%(3,7)7~6DINOUT1DNG%(1,1)8:DNG%(7,3)06I20006N6(24):"COMMAND? ";:8686X(16384):X12810016Q(0)616368,07X141Ĵ(INOUT)11100,115(1).95DNG%(Y,X)215(1).6DNG%(Y,X)3J5(1).6DNG%(X,Y)3c5 (1).6DNG%(X,Y)4|5!(1).6DNG%(Y,X)45"(1).97DNG%(Y,X)95#(1).97DNG%(X,Y)95$(1).94DNG%(X,Y)55%(1).94DNG%(Y,X)558:(69DNG%(2,1)0:IN4DISDIS1:202=4ZZ((LN)TX10TY1000INOUT31.4)_4X19:Y19:DNG%(X,Y)0::4X010:DNG%(X,0)1:DNG%(X,10)1:DNG%(0,X)1:DNG%(10,X)1:4X282:Y19:DNG%(X,Y)1:DNG(Y,X)1::4X282:Y1924(1).95DNG%(X,Y)25DI,B45DIC40DI,B60DIC40DI,B70DI2C10DI,B55DIC6DI,B60DIC10DI,B74DIC6DI,B80DIC4DI.5,B80DIC3DI.5,B82DIC2DI.5,B80DIC,B80DI83C6DI,B25DIC,B6DIC10DI,BC4DI.5,B8DIC6DI,B25DI:C40DI80DIC3DI.5,B82DIC2DI.5,B80DIC,B80DI1C,B25DIC6DI,B25DIC10DI,B20DIC12DI,B10DIC10DI,B6DIC10DI,BC14DI,BC15DI,B5DIC16DI,BC20DI,B,2C20DI,B6DIC18DI,B10DIC18DI,B20DIC15DI,B30DIC1DIC10DI,BC14DI,BC15DI,B5DIC16DI,BC20DI,B0C20DI,B6DIC18DI,B10DIC18DI,B20DIC15DI,B30DIC15DI,B45DIC40DI,B60DIC40DI,B70DI31C10DI,B55DIC6DI,B60DIC10DI,B74DIC6DI,B80DIC4DI.5,BTRY ANOTHER.":2520<>EE4ĺ"DISK WRITE PROTECTED!":2520k>"EE9ĺ"DISK FULL!":D$;"DELETE "QM$:2520>,EE10ĺ"FILE LOCKED! (AND I DIDN'T DO IT!)":390>6">>>DISK PROBLEM, ERROR #"EE:390>' "QM$:216,0:"SAVED!":390o=216,0:D$;"CLOSE "QM$:EE(222):EE2EE3EE11ĺ"BAD NAME. TRY ANOTHER.":80=EE6ĺ"NO FILE NAMES "QM$:70=">>> DISK PROBLEM. ERROR #"EE:70=216,0:D$;"CLOSE "QM$:EE(222)>EE2EE3EE11ĺ"BAD NAME. OOD.":,< T$"CAN'T DO THAT... WEIRDO !":T< "SURE?";QM$:(QM$" ",1)"Y"390{< "NAME?";QM$:QM$"LDG/"QM$:4100< D$;"OPEN "QM$:D$;"WRITE "QM$< L","CL","LN","IN","LM","U","U1","M< X032:O$(X,1)","O$(X,2)","O$(X,3):= D$;"CLOSE":(; O$(5,3)"1"ĺ"YA GOT A MAP?":>;$ "TRY 'FOLLOW.":j;. (O$(1,2))Lĺ"THE MULE LOOKS THIN.":t;8 2300;B "KEEP GOIN'.":;L "IT'S SLIPRY, BUTCHA MIGHT MAKE IT DOWN.":;V "THIS HERE'S A MINE, YA KNOW.":< J7T$"THEY TASTE PURTY GGIV,BUR,LIG,DRI,BRE,HIT,UNL,LOC,TAK,LIS,SAY,FEE,LOA,UNT,FOL,POU,EAT,NOR,SOU,EAS,WES:24:"DO YA WANT TA TRY AGIN? ";QM$:(QM$" ",1)"Y"Ĭ:34,0:35,24:::"TRY EXAM'NIN THIN'S.":: "ROADS GO PLACES.":; "MAYBE THE TRAIL GOES SUMWHAR.17,PAPER,1,6,INDIANS,,119 ORE CART,,14,BED,,1,SIGN,,5,BROKEN GLASS,,6,TABLES,,6,CHAIRS,,6,ROCKS,,10,WOODEN RAILS,,15,CACTUS,,2,TRAP DOOR,,26S: GO ,ENT,RUN,QUI,DIG,CLI,INV,JUM,DRO,GET,EXA,REA,LOO,MOV,CAT,CHA,LEA,RID,PUT,PLA,PIC,PUS,PUL,SHO,OPE,CLO,,MAP,1,-25,GUN,1,-1,CARROTS,1,-1,BOX OF RIFLE BULLETS,1,-6,WHISKEY BOTTLES,2,6,KEYS,1,-6,PILE OF BONES (MINE),2,89 LANTERN,2,-8,JAR OF LIQUID,1,-11,*SPANISH COINS*,1,-10,*TOURQUOISE*,1,-23,#SILVER#,1,-21,#GOLD#,1,-22,MATCHES,1,-14,CRATES,3,17,NOTE,1,- A BLOCKED TUNNEL,,N ,8,20,,,,AT THE BOTTOM OF A SHAFT,WALL,S ,8,24,,,7z IN A TUNNEL,,NS ,6,23,25,,,AT THE END OF A TUNNEL,LADDER," N ",6,26,24,,,AT THE TOP OF A LADDER,,,6,1,25,,q8 SADDLEBAGS,2,1,MULE,,3,BURLAP SACK,4,14,SHOVEL,4,1,RIFLE,4,1 OF A TUNNEL,IRON DOOR," W ",1,17,15,,,IN A LARGE CHAMBER,IRON DOOR,WNES,1,16,19,18,20,IN A MAZE OF TUNNELS,,NSEW,6,18,18,18,18,IN FRONT OF A PIT,DARK HOLE," S ",7,23,17,,J7p AT AN INTERSECTION,," SNW",6,,22,17,21,IN A DEAD END TUNNEL,,E ,8,20,,,,INND A BUSH,BUSH.,W ,1,9,,,,IN A BOX CANYON,BUSHES. TREES. BOULDERS," S",4,12,12,12,95\ IN FRONT OF A HIDDEN MINE,MINE SHAFT,ESNW,8,14,12,12,12,IN THE MOUTH OF A DIM MINE,MINE SHAFT,EW ,1,15,13,,,IN A MINE,DARK TUNNEL,EW ,6,16,14,,6f AT THE END2,5,IN A GHOST TOWN,SALOON," N ",1,6,4,,,IN A SALOON,,W ,1,5,,,4H AT THE SUPERSTITION MOUNTAINS,ROAD. DESERT,S N ,4,4,2,2,2,AT WEAVER'S NEEDLE,,NS ,1,9,7,,W5R IN A NARROW DEFILE,BUSHES. CAVES," NS",1,11,10,12,8,IN A SMALL CAVE,,E ,1,9,,,,BEHI3L26L25312034 ,,,,,,,,IN A MINER'S SHACK,WINDOW. DOOR,,1,3,3,,,IN A DESERT,ROAD. MOUNTAINS. DESERT,WNES,2,4,2,2,2,ON A DIRT PATH,MINER'S SHACK. ROAD. MOUNTAINS," W ",5,1,4,2,2B4> ON A DIRT ROAD,MOUNTAINS. PATH. DESERT. TOWN,NE S,2,7,3,I2T$"LIT "02(0)(T$)(O$(I,0))239ĺF2T$;O$(I,0);". ";L2X2T$"":2L19ė::"YA FELL 100 FEET 'N LANDED ON ROCKS."::" YER DEAD.":22202J23J32M1$"P"T$"OK":210502T$"WHERE?":3L25L26:120,2)"-1"1936*1(0)(O$(I,0))239ĺB1O$(I,0);". ";:X12]1:X12ĺ"NOTHIN'! ";1O$(1,3)"1"ĺ:"THE MULE, WHICH YER LEADIN";:B2ĺ" (CARRYING SADDLEBAGS)";1O$(1,3)"1"ĺ". ";1:X10:I222:(O$(I,3))119702T$"":CL1"1"1320(0SLM50LNLN50:LM0:120@0XT$"JAR'S EMPTY.":b0bT$"YA CAN'T DO THAT... YET!"u0lT$:T$"":1000"YA GOT WITH YA: ";:IN0O$(1,3)"1"T$"NOTHIN'":0B(O$(0,3)):X1B:B119401:O$(0,0);", CONTAINING: ";:I122:O$(I7LM0:1320!/:M1$"SAD"1860P/<J5J19J22T$"SORRY, IT DON'T FIT.":s/?IM4T$"THE BAGS 'R FULL.":/AO$(J,2)"-1":O$(J,3)"":ININ1:IMIM1:T$"OK":/DM1$"MUL"T$"YA GOT KICKED !":/NM1$"LAN"1050 0PO$(13,3)"1"O$(12,3)8,3)"1"O$(4,3)"1"1320$.120;.O$(J,3)"1"1320."ON OR IN WHAT? (IE 'ON TABLE') ?";QM$:P$(QM$" ",2):P$"IN"P$"ON"T$"HUH?":.&M1$(QM$,4,3).0P$"ON"1850.1M1$"MUL"1790.3J131320.5LM0T$"IT'S EMPTY.": /-1320%-T$"HE BUCKED YA OFF.":E-"WITH WHAT?";QM$:J41800-(QM$" ",3)"SAD"T$"IT FELL OFF."C$"HE GOT AWAY.":O$(1,3)"":ININ1:O$(1,2)(L):-O$(0,3)"1"O$(0,3)"2":ININ1:1060-1320-(QM$" ",3)"BUL"1050. O$(1320/,O$(7,3)"1"ĭI16T$"TRY 'LEAD.'":M,I131740,1750,1760,1770m,T$"HE GOT AWAY FROM YA.":,T$"YER TOO SLOW, HE GOT AWAY.":,O$(7,3)"1"T$"BAD LUCK, YA TRIPPED AND HE RUN OFF.":O$(1,3)"":O$(1,2)(L):,O$(1,3)""1280.":%+|T$"IT'S A CHOLLA CACTUS.":G+T$"IT'S A SAGUARO CACTUS.":Z+J4I381780+J1(O$(1,3))0T$"SORRY, B' THAT AIN'T POSSIBLE.":+I381720+O$(1,3)""T$"TENDARFOOT! YA HAV'TA LEAD 'IM FIRST.":+1780,O$(1,3)"1"$(5,2)"1":T$"THAR'S SUMTHIN' HERE!!":2*O1460i*TI11T$"IT SEZ:"C$"WELCOME TO FRONTIERTOWN.":s*Y1550*^O$(10,2)"-6"O$(10,2)"6":T$"THAR'S A SET OF KEYS THAR!":*c1460*hB((1)31):B1650,1660,1670+rT$"IT'S A BARREL CACTUSSALOON, SAY 'SCORE.'":!)'1550s),I11T$"IT SEZ:"C$"WATCH FOR OTHER RIDER FANTASY CREATIONS ADVENTURES!":})11550)6T$"THEY'S A SAVAGE LOOKIN' BAND,"C$"'N THEY SEEN YA!":)@T$"JUS' AN OLE ORE CART FULL O' ROCKS.":(*JO$(5,2)"-25"OS AN OLE KEROSENE LAMP,"C$"FULL TA THE '"(LN)" TURNS LEFT' MARK.":l(I11T$"IT SEZ 'KEROSENE.'":(T$"THAR'S WRITING ON IT.":(O$(20,2)"-17"O$(20,2)"17":T$"IT'S A MESSAGE !":(1460)"I11T$"IT SEZ:"C$"BRING TREASURES TO OADED SIX SHOOTER.":b'O$(8,2)"-6"T$"LOOKS LIKE SUMTHIN'S 'HIND THE BOTTLES.":O$(8,2)"6":l'1460'T$"THAR'R 3 KEYS, TIED WITH A LEATHER STRAP":'O$(12,2)"-8"T$"LOOKS LIKE THAR'S GLASS UNDER 'UM.":O$(12,2)"8":'1460H(T$"IT'RN SACK.":O$(18,2)"-14"O$(18,2)"14"-&P&T$"YA SEE NOTHIN' SPECIAL.":&T$"IT'S AN OLD WINCHESTER SINGLE-SHOT.":&T$"LOOKS LIKE A MAP TA TH' LOST DUTCHMAN'S MINE! THAR'S A SKETCH OF SUM BOULDERS.":'T$"NOTHIN' SPECIAL,"C$"JUS' A L460,1640,1460%s1460U%x(O$(0,3))1T$"THEY'S LUMPY OLE LEATHER SADDLEBAGS.":%"THEY HOLD ";:IM0ĺ"NOTHIN'.":T$"":%I622:O$(I,2)"-1"ĺ" "O$(I,0)",";%:T$(8)".":%T$"YA SEE A WEARY OLD GREY MULE.":'&T$"IT'S AN OLE TOO$(J,2)(L):O$(J,3)"":0$<O$(5,3)"1"1890B$FL7L8:120Q$PL12L13Z$Z120 %n120:J11400,1430,1440,1460,1470,1480,1490,1460,1460,1500,1510,1520,1530,1540,1460,1460,1460,1460,1460,1560,1570,1580,1590,1600,1610,1620,1460,1630,1460,1460,1)"":O$(J,3)"1":12901#O$(J,3)"1":O$(J,2)""J# J9J11J2120m# J9ĭO$(8,2)"-6"O$(8,2)"6"#J11ĭO$(12,2)"-8"O$(12,2)"8"#J2ĭO$(18,2)"-14"O$(18,2)"14"##(O$(J,3)"1"T$"YA DON'T HAVE IT!":$-T$"OK":ININ1: IS?"C$"PAUL BUNYON??! YA AIN'T STRONG 'NUF.":c"O$(J,3)"-7"T$"IT'S BURNT UP 'N RUINED.":"IN4T$"YA CAN'T! YER HANDS 'R FULL.":"O$(J,3)"1"ĺ"YA ALREADY GOT IT!":"(O$(J,1))0I161290#ININ1:O$(J,2)"-1"IMIM1:O$(J,2 YERSELF.":2220!J91050b!"WHEEEE!!":"YA GOT PLASTERED AND LOST A DAY.":CL1LNLN10h!{!J32J01260!B(O$(J,2)):O$(J,3)"2"BLB11260!J221890!T$"IT AIN'T HERE.":1"J21J1J1T$"WHO THE HECK YA THINK YAO$(J,3)"-7":O$(J,2)(L)( J01060@ O$(0,3)"-7"1060t O$(0,2)(L):J521:O$(J,2)"-1"O$(J,3)"-7" :GOT1060 J121150 O$(J,3)"1"O$(18,3)"1"1150 CL1:120!J13ĺ"YEEECH!!":"IT'S KEROSENE!":"YA JUST POISONEDBO$(J,3)"-9":O$(1,2)(L)-LZ99ININ1eVJ22ĺ"YA GOT ONE!":"BUT THE REST GOT YOU!":2220`J9T$"YA HIT ONE!":j120~O$(18,3)"1"1890J0511J4(J5J11)(J14J18)J22J29J301050O$(J,3)"1"ININ1 )):L010601L23T$"IT'S TOO SLIPPERY.":BL25L26:SL26L25:{L19L23:"NIGH BROKE M'NECK!!":T$"SORRY, BUTCHA CAN'T DO THAT.":$B0:1208O$(4,3)"1"O$(6,3)"1"1320;J11110>Z0:O$(J,3)"1"Z99$"HE WON'T GO.":LL1:0L17U0LL1:1890OL126L1U10LL1:1890Y1060qU11L1L26:120U11M1$"TRA"L26L1:X114:M2$(N$(L,2),X1,1):M2$(M1$,1)ĂX1:1010X24346:M1$R$(X2)ĂX2:1010 L(N$(L,X13"THEY TOOK THE FIRE WATER 'N RAN.":ININ1:O$(9,2)"":O$(9,3)"":O$(22,2)"":M1$"YOH"T$"TURKEY!":"SORRY, YER IN THE WRONG ADVENTURE.":1900120:T$T$(13)(QM$,X1X2)".":1900B0980L(N$(L,B3)):O$(1,3)"1"(L1L6L15)T (18904O$(1,3)"1"840M9O$(0,3)"2"O$(0,3)"":O$(0,2)(L):120W>1050xHCL1O$(12,3)"1"CL0:120\(L16L17)U1U0:120fL26U11U10:120p1050T$"YA HEAR NOTHIN' SPECIAL.":L11O$(9,3)"1"1320N8J9J11J12J13J19J27J2874021050KO$(J,3)"1"ININ1nO$(J,3)"-3":O$(J,2)(L):120T$"DON'T HAVTA.": L16800U0770O$(10,3)"1"U1:1201890 L26820#U10770&O$(10,3)"1"U11:): 6T$"DAG NAB IT! THAR'S NOTHIN' HERE!":FJ231060cL14O$(23,2)"15":120L15O$(23,2)"16":120L16U1O$(23,2)"17":120L17O$(23,2)"19":120L19O$(23,2)"23":O$(23,3)"-3"120(J3J4J6J80,1060,1060,920,1150,1190,1210,730,730,780,860,1250,900,940,1700,1690,1320,1340,1820,2500I9ĴI1970,970,970,2220,680,970,1920,2000,13201900O$(3,3)"1"1890"OK":I1317:(O$(I,2))LT$"EUREKA! WE STRUCK GOLD ?!??":O$(I,2)(L33İ860:19005XT$"I CAN'T TELL WACHA WANT.":1900ibT$"I MUST BE DUMB, YA DON'T MAKE SENSE.":1900vvI9650yJ33J1B(O$(J,2)):BLB01890|J32J29ZI81250,1390,1390,1390,1250,1700,1700,1700,1700,1820,1820,1250,700,700,10(N$(L,1),Z,3):M2$M1$5564*ZX22:AA1::560j,X2X1::BA:I10ĺ"YA SEE NOTHIN' SPECIAL.":160s.6300X4346:M1$R$(X)X46::6505:O$(4,3)"1"O$(6,3)"1"ĭI23M1$"SEL"ĺ"OK":"YER DEAD.":2220DI32İ780:1900 NI0,2010,2010,2220,680,2020,1920,2000:1900dJJ1:M1$(QM$,X21,3):J032:M1$(O$(J,0),3)JJJz:JJJ:JJ1630M1$"IRO"580!I36940&N$(L,1)""560(Z1:AZ:X1(N$(L,1)):X25X1:(N$(L,1),X2,1)(46)X2X1Ă:560)M2$X2:X2X3:X30X2X1>P$(QM$,3):X2X1X23X1610_II1:I042:P$R$(I)IIIv:II1III:520X1X2T$"WHAT?":1900T$"SORRY, BUT YA CAN'T "(QM$,X2):X2X1T$T$(QM$,X1X2)T$T$".":1900)I8X1X2ĴI1201(1)912ĺ"&(%!#&@ CAVE IN !! /:+*@":"THE IRON DOOR'S BLOCKED,":"YER TRAPPED!!":U0QM$"HELP"X(N$(L,3)):X2300,2310,2320,2330,2350,2370,2380,2390:100X1(QM$):X13T$"WHAT?":1900X30:X23X1:M1$(QM$,X2,1):M1$" "X3X2:X2X1Z0:I1417:O$(I,2)"6"ZZ1%r"YA GOT "Z" TREASURES, TOT'LIN "(Z4)100"%":Z4ĺ"YA MADE IT!!":2220T$"YA MISSED SUM TREASURE!":1900CL0L15O$(6,3)"1"ĺ"YE GAD!":"YA BEEN BIT BY A RATTLER.":"YER DEAD.":2220WL17U1 UP AHEAD.":"SOUNDS LIKE INJUNS.DrL9O$(22,2)""O$(22,2)"11"]" --NOW WHAT? ";QM$LN10CL1ĺ"YER RUNNIN' LOW ON KEROSENE.QM$"SAVE"QM$"SAVE GAME"2520QM$"SCORE"450L6T$"YA GET NOTHIN' FOR BEIN' HERE!":1900O"OBVIOUS EXITS : ";:I14:P$(N$(L,2),I,1):P$"N"ĺ"NORTH ";ZPP$"S"ĺ"SOUTH ";pQP$"E"ĺ"EAST ";RP$"W"ĺ"WEST ";T:868:^B0:"=======================================!hBD(37):34,BD:24:L9O$(22,2)"11"ĺ"THAR'S NOISE"T$T$"LOCKED ":290)L17290IU1T$T$"UNLOCKED ":290^T$T$"BLOCKED ""(0)(T$)(N$(L,1))139ĺ'T$;N$(L,1);"."6L17U0N$(L,2)" "(N$(L,2),3)@L16U1N$(L,2)"E"(N$(L,2),3)J868::N$(L,2)""350C"T$T$"LOCKED "1CL1J12T$T$"LIT "S(0)(T$)(O$(J,0))239ĺiT$;O$(J,0);". ";pJU11L1253260(0)24ĺ"OPEN TRAP DOOR. ";N$(L,1)""ĺ:330 B0İ140T$"":L16280U0T$T$"UN"":(O$(J,2))L240$ B0İ140R O$(J,3)"-7"O$(J,3)"-2"T$T$"BURNT "n J1(O$(1,2))L200 O$(1,3)""T$T$"UNTIED ":200 O$(1,3)"-9"T$T$"DEAD " O$(J,3)"-3"T$T$"SMASHED " L26J32220U10T$T$"UN5,23::"IT'S TOO DARK TA SEE !!":L15O$(6,3)"1"O$(4,3)"1"ĺ"YA HEAR A STRANGE NOISE !"n n35,24:350| xT$"OK": B1::"YA SEE: ";: CL1LNLN1:LN1CL0 I(0):L1L B0:35,BD:34,0:1::35,24:"YER "N$(L,0)".":J032:T$' P"NAME?";QM$:QM$"LDG/"QM$:4000] UD$;"VERIFY ";QM$:D$;"OPEN ";QM$:D$;"READ ";QM$x ZL,CL,LN,IN,LM,U,U1,IM [X032:O$(X,1),O$(X,2),O$(X,3): _D$;"CLOSE ";QM$:216,0 a d((O$(12,2)(L)O$(12,3)"1")CL0)L15150^ f34,0:3:U1B:IM2:BD21:L1:C$(13):D$(4); $D$;"NOMON I,O,C"\ (LB26:IB7:N$(L,I):I,L 2IB32:O$(I,0),O$(I,1),O$(I,2):O$(I,3)"": <IB46:R$(I): F:"HIT 'SPACE' TO START."::QM$:L1:"RESTORE OLD GAME?";QM$:(QM$" ",1)"Y"ė:100INVENTORY 'N 'BOUT 100 MORE WORDSMAKE SENSE TA ME. ASK FER HELP IF YA GET STUMPED."::" I HOPE YA DON'T END UP A GHOST, LIKE ME!"::" GOOD LUCK!!"% #N$(26,7),O$(32,3),R$(46):B0:INB:LN50:LMLN:X1B:X2B:T$"":M1$T$:M2$T$:QM$T$:UB6 34,0:35,24::5:" WELCOME TO THE SEARCH FOR THE LOST DUTCHMAN'S GOLD. I'M THE GHOST OF BACK-PACK SAM, YER GUIDE ON THIS ADVENTURE.":" YA CAN USE 2 WORD COMMANDS TO FIND CLUES'N MOVE 'BOUT. GET, GO, PUT, DROP,"; "SCORE,                             ;5KFLAG,0540310$5Н(12)I5ڝCHOICE3GSPRAY$(RGN$,F(0,1))n5䝭CHOICE4ASPRAY$(RGN$,F(0,0)){5ğKFLAG,05'40"wish to spray with ";64:CHOICE3ĺ"Diazinon."R4DCHOICE4ĺ"Malathion."\4N8:54X"Specify regions by map letter."4b11:124lRGN$""4vRGN(KBOARD)1284{RGN13404004RGN65RGN75403104RGN$RGN$(RGN)5(RGN);" "3" 4. Aerial Spray with Malathion."6316:14L3"Your Choice? ";`3X3(F(0,5)1)y3CHOICE(KBOARD)1763œCHOICE1CHOICEX401203֜(12)3 SELECT AREAS3CHOICE34090035:53&"Please specify the regions you"3+5 ACTION MENU2J(12)32OASPRAY$"":GSPRAY$"">2T5:13T2^"Action Options"[2h82r" 1. Quarantine Affected Areas."2w2|" 2. Release Sterile Medflys."22" 3. Ground Spray with Diazinon."22F(0,5)140090*1~OF(1,9)(1)301Q*10u TITLE PAGE51Du(12)@1NuI15K1XuI28`1bu20((T$(I))2)k1luT$(I)r1vuI}1uX(0)1u20:101u"SKILL LEVEL (0-9) ? ";1uSKILL(KBOARD)(12848)1uSKILL0SKILL9300861u(12)1uKFLAG,01u2@80NF(3,11)1:F(4,11)9%0OI11190O BREEDING RATEM0 OF(2,I)1(1)3i0 O VECTOR TRANSFER RATES0OF(3,I)F(3,I)(1)0OF(4,I)F(4,I)(1)0$OI0LO INITIAL INFESTATION0VOF(1,2)(1)800`OF(1,4)(1)350jOF(1,6)(1)501tOSKILL8ıUP VECTOR PATHS/N SECTOR A4/NF(3,1)7:F(4,1)5K/NF(3,2)9:F(4,2)10b/NF(3,3)8:F(4,3)10y/NF(3,4)2:F(4,4)10/NF(3,5)1:F(4,5)7/NF(3,6)2:F(4,6)4/NF(3,7)3:F(4,7)8/NF(3,8)3:F(4,8)10/NF(3,9)2:F(4,9)110NF(3,10)3:F(4,10)LL1)10).5-.RNF(0,4)4: WIPEOUT THRESHOLDY.\NF(0,5)1(SKILL2.5): CHOPPER STATUS.pNF(1,0).2: AIR KILL ACTOR .rNF(2,0).45:GROUND KILL FACTOR.tNF(3,0).8: STERILE SUCCESS.vNF(4,0)1.2: STERILE FAILURE.zN(L)/N SETOOP-=K1100-=K-=)-= DELAY5-=K125<-=KB->H->c- N ARRAY INITIALIZATION}-*NF(0,0)1: HELICOPTER-4NF(0,1)3: GROUND TEAMS-9N MIGRATION RATE->NF(0,2).1: VECTOR G AIN -CN BREEDING RATE .HNF(0,3)((SKI; ,B;15800!,L;I1:" ";(15);,,V;158007,j;973,1C,t;J120P,~;I3:10\,;(16);g,;15850n,;Jy,;973,0,;11:I1,;(15);" ";,;15800,;I:(15);" ";,<15800,&3HDL6:13500\&3 AERIAL SPRAYING EFFECTSq&3CHOICE413400&3(ASPRAY$)13400&3(ASPRAY$)İ2000&4I1(ASPRAY$)&4X((AS$,I))64&4F(1,X)F(1,X)F(1,0)&&4F(1,X)F(0,4)F(1,X)0'0)!%J3X.65F(0,3)F(0,3)F(4,0)A%T3X.65F(0,3)F(0,3)F(3,0)R%^3X.65HDL7]%h313500w%3 HELICOPTER PROBLEMS%3CHOICE413400%3(1).9F(0,0)213210%3HDL2:13500%3(1).913220%3HDL1:13500%3(1).913230&3HDL3:F(0,3KFLAG,0:$2(12) $2I011+$2J04<$21I2(I0)O$21J8(J0)3f$2(F(J,I)100)100m$2Jt$2I$2KFLAG,0$212920$2 END OF DISPLAY$2 SET STATUS$2CHOICE113500$,3 RELEASE STERILE FLYS$63CHOICE213200%@3X(1:6:"Ground Teams:";%#/I1F(0,1)4#/" ";(2);;#/IF# 016:6T#0"Traps:"`#>0I111#H016(I2(I2)):12(2I)#R0(F(1,I))#\0I#d223:15#n2"PRESS RETURN"#x2(KB)12812920#2(KB)1282412000#2(KB)1282612940 $23:6:"Light" "^/14:6:"None","b/I1118"l/122I@"q/14R"v/F(1,I)0Ģ13e"{/F(1,I)35Ģ12x"/F(1,I)80Ģ11"/(14);"/I"/19:6:"Helicopters: ";"/F(0,5)1ĺ"GROUNDED!""/F(0,5)112230"/I1F(0,0)"/HL$;"/I#/21!!/(5)" Medfly Central "(5),!/4:10I!/"Morning Status Report"T!/5:18_! /"Day"j!"/5:22s!$/DAY}!&/7:7!0/"Medfly Infestation by Region"!:/9:6!D/"Region: A B C D E F G H I J K"!N/11:6:"Heavy"!Z/12:6:"Medium" "\/1t the fact that the"A .T$(6)"medfly has destroyed all farming"l .T$(7)"between California and Vermont" .T$(8)"had totally demoralized Brown." . . DAILY STATUS REPORT .:3 .KFLAG,0 .30,10250,10250,19030,19030,10 .3:12T$(8)"key to eliminating the medfly.",{.H|.HDL$"GOVERNOR RESIGNS"o.T$(1)"Governor Jerry Brown today".T$(2)"announced that he is resigning".T$(3)"effective next Monday.".T$(4)"Sources close to the Governor" .T$(5)"indicated tha2)"that the medfly has been totally"O6.T$(3)"eradicated within California."|@.T$(4)"While announcing his entry into "J.T$(5)"the race for the U.S. Senate,"^.T$(6)"Biege noted that his quick and"h.T$(7)"decisive equivocating was the"&r.(-T$(5)"Northern Santa Clara County."V-T$(6)"The supposedly sterile flies were"~-T$(7)"actually unusually fertile.".T$(8)"Governor Brown declined comment."..HDL$"MEDFLY DEFEATED"".T$(1)"Governor Jerry Brown said today"%,.T$(-T$(8)"the scene seeking spilled votes."1-Q-HDL$"FERTILE FLY FAUX PAS"~-T$(1)"Los Gatos - Medfly Central today"-T$(2)"announced that workers have "-T$(3)"accidently released some 450,000"-T$(4)"fertile medflies over parts of"e"*d-T$(2)"owned helicopters used for "Tn-T$(3)"aerial spraying crashed near "x-T$(4)"here last night. A spokesperson"-T$(5)"for Medfly Central would not"-T$(6)"comment on the cause of the"-T$(7)"crash. Gov. Brown has rushed to"+fly."2-T$(5)"He said he would change his mind"](-T$(6)"at the first hint of pressure "2-T$(7)"from the Federal Government or"<-T$(8)"any group of six or more voters."F-P-HDL$"HELICOPTER CRASHES"Z-T$(1)"Palo Alto - One of the statthe paint on "5,T$(8)"city owned parking meters.";,],HDL$"GOVERNOR BANS SPRAYING",T$(1)"Sacramento - Governor Jerry"-T$(2)"Brown has announced that he is" -T$(3)"unalterably opposed to aerial"-T$(4)"spraying to combat the medtraffic"3,T$(2)"court judge issued a temporary"`,T$(3)"restraining order preventing the",T$(4)"aerial spraying of malathion.",T$(5)"Judge Sage said he would rule ",T$(6)"tomorrow on whether the spraying",T$(7)"posed a hazard to ed with"4V,T$(5)"dimethyl-aphrodisium instead of"_`,T$(6)"malathion. Medfly breeding has"j,T$(7)"doubled in the infested area."t,T$(8)"Local residents don't care."~,,HDL$"COURT GROUNDS HELICOPTERS",T$(1)"Sunnyvale - A municipal dfly bait"5,T$(8)"intoxicated one of the pilots.";,\$,HDL$"WRONG MIXTURE SPRAYED".,T$(1)"Moffett Field - A Medfly Central"8,T$(2)"spokesperson said a helicopter"B,T$(3)"used last night for spraying "L,T$(4)"was inadvertantly load-+T$(2)"helicopters collided in the early"Y+T$(3)"morning fog near here. Medfly"+T$(4)"Central said that while the two"+T$(5)"were supposed to be in different"+T$(6)"sectors, fumes from fermenting" ,T$(7)"molasses used in the me5)"wind would blow adult flies out"N+T$(6)"of the quarantine area. The "|+T$(7)"Governor's speech in Los Gatos is"+T$(8)"blamed for the hot, dry winds."++HDL$"HELICOPTERS COLLIDE IN FOG"+T$(1)"Cupertino - Two malathion laden"1400,11500,11600,11700,11800,11900H\+HDL$"HIGH WINDS GROUND CHOPPERS"rf+T$(1)"San Jose - Last night's winds"p+T$(2)"prevented malathion spraying of"z+T$(3)"the medfly infested area. Medfly"+T$(4)"Central expressed fears that the"$+T$( ~'6:14 '"Final Edition"+'11000@'8:21(HDL$)2J'HDL$R'11^'I918m'5:T$(I9)u'I9'22:14'"PRESS RETURN"'(16384)12810200'16368,0'X(0)(* PRINT NEWSPAPER"+HDL11100,11200,11300,1&I12I139945,&SPECIAL$SPECIAL$(I)6&9950P&SPECIAL$SPECIAL$"X"W&I]'m' NEWSPAPERs'z$'3.'20,10260,108'20,37260,37='20,48260,48B'20,1020,190L'260,10260,190`'4:9j'"The San Jose Quicksilver")" "/#MR$" "(30)(30)(30)(29)(28)MH&T$(1)"Medfly Mania"(1)sR&T$(2)"Copyright "(3)"1981 by"\&T$(3)"The Software Works, Inc."f&T$(4)"All rights reserved."&BK$" "&BL$BK$BK$BK$BK$&X(0)&I132<#HL$(25)(26)" "'F#ST$(0)" "8P#ST$(1)(22)IZ#ST$(2)(19)`d#ST$(3)(20)(21)wn#ST$(4)(17)(18)x#ST$(5)ST$(3)ST$(1)#ST$(6)ST$(4)ST$(2)#ST$(7)ST$(1)ST$(4)#ST$(8)ST$(2)ST$(3)#ML$(27)(29)(30)(30)(30ALT1* 3500/ I"1 973,0(4 F TIME DELAY FOR APPROACHR K110Y K_ y@ SETUP RANDOM STREETJST$""TST$ST$ST$((1)9)^(ST$)408020hST$(ST$,40)r(# SETUP STRINGS*#D$(4)2#HR$" "(23)(24)ALT:BK$ p ALT1:BK$ v . APPROACH= I3811I ALT:IS HL$;a ALT1:Ij BK$ I5(I5)ALTALT1 3500 I RETREAT ALTAX I138 ALT:I  HR$ ALT1:I  BK$ I5(I5)ALT I(MR$)3075# ALT1:I4, MR$3  IA  ALT:BL$W  ALT1:40(BK$)`  BK$f   SPRAY RIGHT TO LEFT & I3811 0 X(0) : ALT:I D HL$ N I40(ML$)3180 X ALT1:I1 b ML$ d 973,1 k 973,0 l I n (KB)1272110 !ALTALT3% "P3 $P211= &3000K (ALTALT3U )3100i *(KB)1272110w ,ALTALT3~ /P >3300: DEPART HALT:35 RBK$ WKFLAG,0 \ SPRAY LEFT TO RIGHT I138 X(0) ALT:I HR$58 D$;"RUN MEDFLY MANIA"# 9  SETUP AND SPRAYF KFLAG,0[ GND11:ALTGND9g (12);{ XGNDGND123 X:1 8000:ST$ X 3200: APPROACH AXALT (KB)1272110 P12 3000 ALTALT3 3100 1)5)5 10000 HDL0-  LOOP POINT8 X(0)F DAYDAY1] F(0,3)F(0,3)1.05q 12000: REPORT 40000: SELECT $13000: COMPUTE )14000: WIN/LOSS .HDLİ10000 8HDL0 lFINIS1990 v1020 :: 54,189:55,1-d MEDFLY MANIA4f COPYRIGHT (C) 1981 BYRhTHE SOFTWARE WORKS, INC.Xnj|KBOARD16384{~KFLAG16368F(5,11)54,0:55,969000974,64(12) MAIN PROGRAM LOOP30000:20000 HDL5:F(0,5)((                               1180& (ST$,I3,1)(22)11800 1360; 11:IK " ";(15);U 1400j I1:" ";(15);t 1400 973,1 J120 I3:10 (16); 1440 J 973,0 11:I1 (15);" "; (1400 2I:(15);" "; <  <"\:FBF:<<@@\bBb\\bb\@<:FBBB8 0 "" "8.TTTT>DDDD8DDD8:FF:\bb\@@:F|<@>>H0BBBb\BBB$DDTTlB$$BBBb\@<~ ~880(8DRj2x$BB~BB>DD
DDDDD>~~~BB>BB>"B$$$$$~$~$$x8P<F&db  R"\   T8|8T| ~@ BB<~B > k"""A~ ~ p ssI*I*@`pxp`@@@  \\H~ (T*T*ZZB  --!*}W*p ZZB 0`--!Z-~+|A@ x||A/V,X0`@@z5 U*U*U*"""  `H XN7<6NWRU@ TPhhHNɍ-Ɍ+*+*++8 $%ll%J) +%j )* * (je$*h-HJJJ'hH*&'*&'*&')&&OH**hQ**O+i+$$! $%%#"%Nh`(I)>7250(HSPECIAL$SPECIAL$"X"/RI5\;f)(28)%T$(1)"Medfly Mania"(1)KT$(2)"Copyright "(3)"1981 by"pT$(3)"The Software Works, Inc."T$(4)"All rights reserved."BK$" " BL$BK$BK$BK$BK$X(0) I132*I12I1372404SPECIAL$SPECIAL$vST$(1)(22)!ST$(2)(19)8ST$(3)(20)(21)OST$(4)(17)(18)hST$(5)ST$(3)ST$(1)ST$(6)ST$(4)ST$(2)ST$(7)ST$(1)ST$(4)ST$(8)ST$(2)ST$(3)ML$(27)(29)(30)(30)(30)" "MR$" "(30)(30)(30)(29A VALLEY.") "NAPOLEON HAD WATERLOO,"U& " ...BUT THE GOVERNOR HAS MEDFLIES."v0 "YES! WE HAVE NO BANANAS,": "....OR APRICOTS, PEARS, OR PLUMS!"D SETUP STRINGSND$(4)XHR$" "(23)(24)bHL$(25)(26)" "lST$(0)" " ", "       "T "         "h SUBTITLE DATAp 4 "... OR HOW I GAVE UP FRESH FRUIT" " AND LEARNED TO LOVE MALATHION." "AERIAL WARFARE OVER "  " THE SANTA CLAR      "= "        "c "       " "      " "       " "         " "           ST$(1)ST$(4)&"ST$(8)ST$(2)ST$(3)P,ML$(27)(29)(30)(30)(30)" "z6MR$" "(30)(30)(30)(29)(28)@BK$" "JBL$BK$BK$BK$BK$TX(0)^h SIGN DATAr "       "| "   ST$(ST$,40)' SETUP STRINGS3D$(4)KHR$" "(23)(24)cHL$(25)(26)" "rST$(0)" "ST$(1)(22)ST$(2)(19)ST$(3)(20)(21)ST$(4)(17)(18)ST$(5)ST$(3)ST$(1)ST$(6)ST$(4)ST$(2) ST$(7) I138ALT:I HR$.ALT1:I7 BK$QI5(I5)ALTALT1[6470b(Im2973,0s<F TIME DELAY FOR APPROACHPK110ZKdn SETUP RANDOM STREETxST$""ST$ST$ST$((1)9)(ST$)406530 ALT:IHL$&$I40(ML$)62106.ALT1:I1?8ML$FBITLALT:BK$dVALT1:BK$j`yj APPROACHtI3811~ALT:IHL$;ALT1:IBK$I5(I5)ALTALT16470I RETREATALTAXBK$KFLAG,05p SPRAY LEFT TO RIGHTAzI138LX(0)XALT:IaHR$tI(MR$)6080ALT1:I4MR$IALT:BL$ALT1:40(BK$)BK$ SPRAY RIGHT TO LEFTI3811X(0) 6250: APPROACH*AXALT24(KB)127570=>P12GH6000URALTALT3_\6130rf(KB)127570pALTALT3zPP2116000ALTALT36130(KB)127570ALTALT3P6350: DEPARTALT:351400 FI:" "; PI$ Z(12);1 dKFLAG,07 nH x DELAY LOOPU K1100\ Kb n  DELAYz K125 K   AERIAL SPRAYING KFLAG,0 GND11:ALTGND9 (12); XGNDGND123 X:1 6510:ST$ X(19)1180& (ST$,I3,1)(22)11800 1360; 11:IK " ";(15);U 1400j I1:" ";(15);t 1400 973,1 J120 I3:10 (16); 1440 J 973,0 11:I1 (15);" "; (1400 2I:(15);" "; <8 X# b(4)"RUN MEDFLY.OBJ3") l/ vB  GROUND SPRAYN (12);[ KFLAG,0e 6510p 14:1y ST$ $6510 .10:1 8ST$ BI3611 L12:I V(10);(11);" " `J135 jJ t(KB)127570 ~(ST$,I3,1)Y19X$Z$ I138 Y2 (X$BL$,I);H$9 IL (KB)127570S Yg GFLAG(GFLAG0)~ GFLAG11000,2000 280  READ SUBTITLE N K1(1)N1 X$,Z$ &K 0 : EXIT TO THE GAME D:: N54,189:55,15MEDFLY.OBJ1"( D$;"BLOAD MEDFLY.OBJ2". ? 54,0:55,96H 0:Y 54,0:55,96d (12)p "I185 ,(1)125 6(1)351 @(5) JI T ^Y522 hX(0) rX$BL$ |Y5Y11ćX$ Y11Y17ćX$ Y18İ510 <d MEDFLY SAMPLER!nAx COPYRIGHT 1981 BY ` THE SOFTWARE WORKS, INC.fm {X12:XKBOARD16384:KFLAG163686980D$(4)H$(23)(24)BL$" "BL$BL$BL$BL$BL$ D$;"BLOAD      %a(Ž)G_c KM6o a(ҠΠĠϠӮέӠ̠ŠԠϠԠƠή)Q%a(̮)G`%a()G`%a()G`%a()Ga()Gis Pa(̮ŽڠĽՠ׽Ӯ)G`%a(ٽ)G`%a(ν)G^v `%a(ٽ)GPa(ŽĮνԠ)G` UVWdedeMYZqq6q6@p()`$LB`$ qM6a(ŠΠŠϠƠҠٮ)_Xl q6d2e?M6a(ҠӠҠ̠)FE(ź)Gd2eVq `%q`%q`6%q6qqqqnlqqUVWf\ f-rqq\ Yqqqqqqv`%[wv@UVWf8r\ 8rq81?-rrrq81?-rrrq81?-r rrq81?- r rrq6c]q8r8rq8r8rq/?r`$jqq`$jgq0?rq0?rpj`-rqUVWXde-rde-rMYZcvKM6o a(ՠŠԡՠԠԠƠŠέΠȠ)FE(ӠȠƠ)Yza(Ġӡ٠)FE(ƠҠ٠ҭ)a(ĠȮ)a(ŠΠή)Q{Xq)qq\ `$Ja(ӠС)9q UVWdedeMqY_~p`788r8rr$-rq -rq-rq -rq-rq -rq-rq\u-rqUVW`%$Vq/?r`%qPa(էŠΠϠ̠)FN\ \6_4RVq/?rq`$ bE(ƠҠΠ̠ϠŠ)5Wa(ԮŠŠ٠)FE(ƠՠԮ)G_dedeM_4ӬΠŠĠԮ)KqUVWdedeqMYdedeMq/?r\ \6_Ro.M6cd2ePa(ԠС)d2eUVWf8r \ UVWde deZ8MYZ`a(ŠƠӠĮϠŠЮ)\_{Xqqca(ŠàĠĠŠ)E@f-r\ q_TM6`/?r$a(ՠĠΠ̠ҠϠԠՠŮ)_=a(ՠŠĠ٠q+ua(̠ΠҠҠŮ)G\_lMzqq`7/?r$`7/?r$0{ca(Š)E@E(Š̠Į)q_?qca(ŠƠӠĮϠŠӮ)\_{<qc$oa(נ̠ҠŠٮ)G\:qq/? rb`.?6@r$qd6?eq8rErca(Š٠Ӡ)Fa(էŠԠ)FE(ƠҠٮ)\Os`$ `$z@p()`%@p()a@E(ƠŠ)E@E(ŠĮ)t`%͎yiM6a(ŠӠήԠŠҠϠ̠ŠҠҠˮԠԠΠϠРŮ)Gqq\Elq/? rb`.?6@r$lq8rd6?eBna(ՠĠ)FE()`%a(ՠԠԡ)`7%a(ϠԮ)q\ _fhfUVWdedef-r\ UVWdYf-r\ MYq 8r]g-rq-r 88-r rrf-rghgh`$iM6cP3ha(ŠҠàĠٯΩ)G\`$)a(Ӡ)FE(ԠӠҠĿ)_5`$f`8r$Sf-rqq\ fqq\ \ q_RPqqUVWf\ f-rqq\ YΠ٠Ρ)Gq_Gqqqqf-r\ qqqfq/? rq/?r @p@*# rM6a(էŠŠΠ)F/?rE()E@`\ a(ҠȠӠ)FE(Šq_0qq_::qa(àĠΠŠĠ٠ũ)G_pDqq-rq-rUVW UVW \ q8r8r\`1?r%\ -ѱrq-ѱr IYZ_"Na(àԮ)q_+Xa(VW UVW \ q1?r`$f-r\ \ YZ_Cf- rqqUVW UVW \ `1?r%\H`$q1?-ѱr r`$\-ѱrq1?-ѱrr YZ_qq_&qr\ UVW2YdedeMY-ѱrq-ѱr(88rrqd8/? rrYqM6a(էŠĠ)FE(ӠȠ)a(ĠĠӮ)G`/?r$*a(էŠϠĠ)_ /?rNqqUqqq\ VM6cd2ea(ҡ)Gd2e?a(ՠŠέǠΡ)d2e-UVWFq.?6?rUVWYZ_H\ `$M6cP a(٬ϠŠŮ)G_qUVWqf-rr-r$-rq-rw-rq-rg-rh-rUVWdYZM6ca(ԠԠӠĠŠΡ)qq\\ [qqqS\ `1?r1?r$f-r\ qqqѶ?M6UVWSa()GYKa(ŠӠĠŠ)GUVWSa()GYd2e_Wqqqq\ qfgh-rq-rqUVWX6kqq/?r`%q/?r`=-r>-%\`%\ ^YZqqq\t|f`8 r%ijk`8 r%lmn[qq`/?r%[`$`$qqlq$q$\Xd2eq6`%qS@f-rlm'nlm'n'ij'kij'k'`-r$DSJqqUVW UVW \ `-ѱr$^f-r\-ѱrq1?-ѱrr^T`%`8-ѱr r%qf-r`%f-r`%-ѱrq1?-ѱrr1M6cPa(ٮϠ)E@E(ԠٯΩ)_"\`$aq8rUVW8rX88rrdedeM(1UVWFYZ\ M6\6_RF6Lf-r\ qqqq6%`8-ѱ r r6%i8rjk8rI` %[`-ѱ r%[`8 r6%i8rjk[Tf- rq0?-ѱrrq\`%-ѱrq1?-ѱrrq@p()`%@p()C`%-ѱrq1?-ѱrr`z#   ٮʳ/ ԮήӠ8̠ Ȯ  Ȯ V  Š> ΠΠӠNΠΠ6ٮٮʱ ٮʲ  Ԡ ԠҠԠРԠӠ Ԡ٠"Ϡ"Р"Š"Ҡ ĠŠ=Š ҠĠ0,0,13,19,20,25,11,0,0,3201 \6> "ALMOST DEAD WARRIOR'S COFFIN",0,14,25,3,27,7,11,0,0,805 6> "EASY RICHES",0,0,29,6,33,8,11,801,0,806 6> "COFFIN HAS TRAPDOOR TO TROUBLE",0,15,35,3,37,7,11,802,0,1607 7> "KILJOY'S TREASURY",0,1,0,0,5,5,11,803,0MM%(I,3)5:I#5:NW:NW11508025:WW%(NW,2)>5:I1NWU5:WW%(I,1),WW%(I,2)\5:Ip5:ND:ND1150905:DD%(ND,5)5:I1ND5:DD%(I,1),DD%(I,2),DD%(I,3),DD%(I,4),DD%(I,5)5:I5:ZC$(0),T5:5> 53,346> "FAROPH TOWN SQUARE",2S47001300S:#4:O%(20),Q%(8).4:NP,NRQ4:B%(NR,9),C%(NP,11),ZC$(NRNP)e4:I1NR:ZC$(I)y4:J09:B%(I,J)4:J:I4:I1NP:ZC$(NRI)4:J011:C%(I,J)4:J:I4:NM:NM1150704:MM%(NM,3)4:I1NM5:MM%(I,1),MM%(I,2),:C%(I,7)AF32A$"MOVE":12900:C%(I,9)A:A$"SKILL":12900:C%(I,10)A_32C%(I,11)0:C%(I,0)23(2"ARMOR ? ";A:A0A20128403-2C%(I,8)A:3d2A$;:A:A1A99129003i232:"ENTER GAME SPEED":" 1-SLOW 2-MEDIUM 3-FAST":S:S1S313000426202J1A$"N"12615"2K112600B2L1J((J1)2.01):J6J6:m2V1"ARMOR (0-";J;") ";:A:A0AJ126302[1C%(I,8)A:C%(I,9)10A:C%(I,10)C%(I,10)2(A)2]1: 32A$"STRENGTH":12900:C%(I,5)A:A$"LIFE FORCE":12900:C%(I,6)A:A$"WEAPON":12900I:7500:PLR:LR0::_181JRN(8)RN(8)5:C%(I,5)J:C%(I,6)J:C%(I,7)J:C%(I,8)0:C%(I,9)101:1JRN(8)RN(8)5:C%(I,10)J1A11B1C%(I,11)0:C%(I,0)2:LRP:PI:7500:PLR1C11G1"ACCEPT THIS PLAYER? ";A$:(A$)1126152I1A$(A$,1):A$"Y"1ODD%(L,2)J12310'0h0LL1:AL1240020j012390z0p0C%(I,1)B%(LR,1):B%(LR,1)I:C%(I,2)O:C%(I,3)J:B%(LR,0)B%(LR,0)100"LET COMPUTER CREATE CHARACTER? ";A$:A$(A$,1):A$"Y"A$"N"1250000A$"Y"125100012800:12520001260010LRP:P,1):12320//*0LRA:AB%(LR,7):1800:L012350P/40MM%(L,1)OMM%(L,2)J12310e/60LL1:AL12350p/8012340/>0AB%(LR,8):1800:L012380/H0WW%(L,1)OWW%(L,2)J12310/J0LL1:AL12380/L012360/\0AB%(LR,9):1800:L0124000f0DD%(L,1)J1Q. 0"START AT BEGINNING OR RANDOMLY? ";A$:A$(A$,1):A$"R"A$"B"12300m.0ARN(NR)1:A$"B"A1.0OB%(A,2)1:ORN(B%(A,4)O)O.0JB%(A,3)1:JRN(B%(A,5)J)J.0LRB%(A,1). 0LR012330."0OC%(LR,2)JC%(LR,3)12310 /$0LRC%(LR:1000'-*N0:I1NP:C%(I,6)0NN1.-*IT-+"YOU MAY ADD ";N;" CHARACTERS":\-.I1q-.C%(I,6)012100-.II1:INP12002-."NO MORE PLAYERS ALLOWED":-D/:"ENTER NAME : ";ZC$(NRI)-/"ALLIANCE (1-6) : ";J:J1J612200./C%(I,4)'"DO YOU WANT TO ADD A CHARACTER? ";A$:A$(A$,1):A$"N"10030S,'A$"Y"İ12000^,'10000i,.'13000,8'936:"DO NOT HIT RETURN WHILE PLAYING"::5:"FOR SPECIAL OPTIONS",='"PRESS ";::"ESC";::" WHEN YOUR PLAYER BLINKS":2000:2000:-B'LR0788,2:789,3:790,96:@+0%:936:" ":10:"** F R A C A S **"`+2%" ":11:"BY STUART SMITH"+5%" ":9:"COPYRIGHT (C) 1980":9:"BY QUALITY SOFTWARE"+:%:" PLEASE WAIT ABOUT 20 SECONDS":15000:+D%"-- ";ZC$(0);" --":+'11000:N110030@,+*"C%(P,6)0:5400:5400:B%(K,0)B%(K,0)1P*"LR1:MR:1200:24:C%(P,6)0ı]*"AAL::*%770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:*%779,240:780,9:781,202:782,208:783,245:784,174:785,0:786,3:787,76:+%VERSION OF FRACAS":"CANNOT SAVE A SCENARIO ON DISC OR TAPE":2000:8950P)"IK)""ARE YOU PREPARED TO DIE? ";A$:(A$,1)"Y"8500)"B%(I,1)P8918)"IB%(I,1))"C%(I,1)P8920)"IC%(I,1):8914)"B%(I,1)C%(P,1):8930)"C%(I,1)C%(P,1)3-COPY SCENARIO TO DISC":"4-HARAKIRI":"5-CHANGE SPEED"M(R!A:A0A58510[(S!A18950{(T!A5ĴA8600,8700,8800,8900(f!13000:8950(!12000:8950(!"ALLIANCE (1-6) : ";A:A1A68700(!AA1:YA:C%(P,4)A:8950H)`""SORRY, BUT THIS TAPE C%(Q,3)' C%(Q,6)0?' IC%(Q,11):I0ĺ" WITH ";I;" DUCATS"[' I0ĺ" WITH NO WEALTH"u' I(A$,1)"S"İ7200{' '4!:35,20:936:35,19'>!5::"TYPE OPTION, PRESS RETURN"::"0-RETURN TO GAME":"1-ADD CHARACTER"8(H!"2-CHANGE ALLIANCE":"6,13,510*F> "X",0,0,0,0,0,0,0,0,0,0,0,0LF> "X",0,0,0,0,0,0,0,0,0,0,0,0nF> "X",0,0,0,0,0,0,0,0,0,0,0,0F> "X",0,0,0,0,0,0,0,0,0,0,0,0F> "X",0,0,0,0,0,0,0,0,0,0,0,0F> "X",0,0,0,0,0,0,0,0,0,0,0,0F> "X",0,0,0,0,0,0,0,0,0,0,0,0G> "X" "KING BOOGALOO",0,0,19,17,12,14,14,17,3,8,10,340cE> "BOOGEYBOY",0,41,20,18,12,10,10,10,1,9,13,2E> "BOOGEYDOG",0,42,18,18,12,8,8,6,0,12,10,0E> "STATUE OF KING BOOGALOO",0,0,19,17,10,50,50,10,0,0,7,0F> "SMALL DRAGON",0,44,19,14,10,30,30,14,3,E PEOPLE EATER",0,0,25,28,14,14,14,8,1,5,9,10cD> "GIANT BANANA SLUG",0,0,19,30,13,8,8,6,0,4,14,2D> "BLOB",0,0,19,30,13,30,30,14,2,4,3,0D> "TEN FOOT SPIDER",0,38,26,27,11,15,15,9,2,8,6,0D> "SEVEN FOOT FLY",0,39,12,27,12,14,14,6,0,15,8,01E>1,38,2,17,6,5,7,350EC> "GOBLIN GEORGE",0,0,26,7,10,8,8,8,0,10,12,7zC> "GOBLIN GORTEK",0,32,28,7,10,12,12,12,0,10,8,4C> "HOBBLIN' HOBGOBLIN",0,33,27,10,10,11,11,11,0,10,11,14C> "GIANT SNAKE SKELETON",0,0,13,28,13,12,12,7,0,6,12,10-D> "PURPL1,26,26,13,5,7,7,0FB> "BOUNCING ROCK",0,0,20,23,14,35,35,19,0,6,6,0B> "HEADLESS HORSEMAN",0,0,28,11,10,15,15,12,2,16,11,600B> "GARGOYLE",0,0,15,9,9,20,20,12,3,8,10,10B> "CYCLOPS",0,0,30,9,11,40,40,15,0,8,4,290C> "SLEEPY GIANT",0,0,11,8,1,13,8,8,8,1,7,10,0=A> "LYNX",0,21,18,32,13,6,6,5,0,13,15,0oA> "RABID RABBIT",0,0,23,25,14,5,5,4,0,15,14,0A> "BIG BAD WOLF",0,23,32,37,11,10,10,7,1,12,14,3A> "LEADER OF THE WOLF PACK",0,24,37,33,11,12,12,7,1,12,15,5B> "ROCKMAN",0,0,23,30,131,2,12,30,30,9,0,6,6,0R@> "BILL THE BARTENDER",0,0,20,12,10,11,11,11,1,9,11,80@> "BLUNDRY",0,17,23,16,10,16,16,16,0,10,8,193@> "BLOWHARD",0,18,22,17,12,8,8,8,6,4,4,207@> "FRIAR TUCK",0,0,38,11,9,15,15,15,0,10,15,450A> "BADGER",0,0,16,329,7,2603?> "BEAR",0,10,10,36,11,30,30,14,2,8,9,0_?> "GHOST",0,0,18,2,14,15,15,0,0,14,14,0?> "ZOMBIE",0,12,21,8,13,7,7,10,0,7,5,3?> "SKELETON",0,0,26,5,10,9,9,7,3,5,12,0?> "VAMPIRE",0,0,36,4,13,23,23,14,0,14,13,150@> "GREEN SLIME",0,0,,11,7,11,3,3,2,0,10,10,0B>> "BIG RAT",0,5,11,6,11,4,4,3,0,8,8,0l>> "FAT RAT",0,6,12,7,11,4,4,3,0,8,8,0>> "BIGGEST RAT",0,7,12,6,11,5,5,4,0,7,7,0>> "JACK THE RIPPER",0,0,2,20,12,12,12,10,0,10,12,122?> "BARROW WIGHT",0,0,1,36,13,24,24,13,2,,0,17,18,21,22,13,0,0,6483 P=> "KILJOY'S GUARD",0,0,2,2,9,15,15,15,3,7,12,100=> "WEALTHY LORD KILJOY",0,0,7,2,9,18,18,15,4,6,13,1000=> "SPEEDY GONZALES",0,0,10,7,11,3,3,2,0,11,12,0=> "RATSO",0,3,10,6,11,3,3,2,0,10,10,0>> "GREY MOUSE",0,4,3292,2466 F<> "DEVOURER OF MEN",0,40,8,25,30,33,13,1620,4896,4069 z<> "PURPLE ROOM",0,36,23,25,26,30,13,822,0,2474 <> "MONA BONE PITS",0,35,12,25,15,30,13,823,0,2477 <> "TROUBLE ROOM",0,37,17,29,21,33,13,0,0,2480 => "MAGIC TOURBILLION",01654 8;> "PEACE OF CAKE",0,0,12,16,15,21,13,0,0,1656 i;> "STORM'S EYE",0,0,23,16,26,21,13,0,0,1658 ;> "TAKE THE MONEY AND RUN",0,45,17,12,21,21,13,818,1686,2460 ;> "ELYSIUM",0,31,8,5,14,11,13,0,3288,2463 <> "FLEE!!",0,34,24,5,30,11,13,819 ETERNITY ROOM",0,30,24,7,32,15,12,814,880,849 c:> "UNSEEING EYE",0,29,8,7,16,15,12,815,881,850 :> "GOLGOTH PLATEAU",0,28,5,1,35,22,12,816,3282,851 :> "SKULL ROCK",0,27,13,22,27,34,12,0,0,1652 ;> "HALL OF THE KING",0,43,15,16,23,19,13,817,0,LLEY",0,0,13,0,16,19,11,0,0,3232 P9> "CRYPT",0,16,23,0,39,10,11,0,26441,4036 9> "MAIN STREET",0,0,20,19,39,23,11,0,0,2441 9> "DEADLY CAVERNS",0,26,16,28,24,32,12,1612,4874,3244 9> "NOSE NOTHING ROOM",0,0,18,18,22,24,12,0,0,848 /:> "SEE TO2,13,39,11,807,3216,2420 T8> "FEARSOME FOREST",0,25,21,23,39,39,11,808,8020,1623 8> "GRANARY",0,8,0,5,13,16,11,809,4030,1625 8> "SWIZZLE SWILL BAR",0,19,16,10,25,19,11,810,4835,827 8> "TOWN PARK",0,9,0,16,13,22,11,811,0,3228 !9> "KILJOY A,1609 77> "KILJOY'S MANOR",0,2,5,0,13,5,11,0,0,1611 j7> "TOWN CEMETERY",0,13,16,0,23,10,11,0,0,1613 7> "CHAPEL",0,20,25,10,39,19,11,1604,6401,1615 7> "FESTERING FOOTHILLS",0,22,13,25,21,39,11,806,5609,2417 8> "MORTHRIL MOUNTAINS",0,11,0,2w4_UVWYUVWYUVWY[% lmnlmn[B ѱq 8rqqq-ѱr [/ q/? rq/? r\ `$ [D \ `-ѱr6-ѱ r6-ѱ                1,37T? 19,22,27,20,14-T? 17,20,28,11,8NT? "WELCOME TO FAROPH TOWN",04,25,30,24,26"S? 13,25,30,13,267S? 12,27,27,19,20LS? 15,29,33,18,30aS? 19,33,30,19,32vS? 17,30,32,14,29S? 21,30,31,24,29S? 17,18,13,24,18S? 21,18,16,31,3S? 21,22,22,33,20S? 17,22,5,4,1S? 19,18,32,14,26T? 21,20,10,25,8R? 8,8,25,13,20,R? 11,11,21,11,11@R? 30,8,26,25,20SR? 24,8,28,13,8hR? 27,11,20,27,11}R? 19,33,33,19,32R? 13,25,32,13,26R? 24,25,31,24,26R? 8,31,28,11,6R? 30,31,29,27,6R? 26,27,34,19,20R? 23,29,33,20,30 S? 2 12,11,21,9,14"Q? 20,34,10,3,387Q? 20,22,22,20,21LQ? 23,18,26,24,18aQ? 15,18,25,14,18uQ? 13,21,29,29,8Q? 15,18,24,16,18Q? 25,21,28,9,8Q? 23,18,24,22,18Q? 17,17,24,16,17Q? 19,12,30,19,27Q? 21,17,24,22,17R? 14,8,29,3,31,7P}? 27,4,2,26,6*P~? 35,4,4,36,5>P? 20,21,1,19,21RP? 28,19,8,28,18gP? 37,23,11,37,24|P? 18,30,23,20,27P? 22,30,18,21,30P? 16,30,18,19,30P? 20,30,18,17,30P? 20,24,18,21,30P? 24,11,19,20,19P? 16,11,20,28,14Q? 1,16,14,1,17Op? 4,5,5,4,42Oq? 18,19,1,18,20FOr? 13,21,1,14,21[Os? 13,17,15,14,17nOt? 5,22,10,5,23Ou? 1,16,12,1,15Ov? 15,19,1,15,20Ow? 13,17,14,12,17Ox? 16,5,7,17,5Oy? 13,2,6,12,2Oz? 36,10,8,36,11O{? 23,1,7,22,1P|? 31,6,,2,15,14,2Nc? 16,5,15,15,50Nd? 23,1,16,24,1DNe? 36,10,16,36,9YNf? 28,19,17,28,20mNg? 18,25,1,18,24Nh? 13,28,10,12,28Ni? 21,38,11,22,38Nj? 5,22,14,5,21Nk? 13,28,9,14,28Nl? 3,39,23,20,33Nm? 37,23,17,37,22Nn? 21,38,9,20,38Oo?3,27MT? 18,32MU? 20,32%MV? 90:MW? 18,19,13,18,18OMX? 20,21,17,21,21dMY? 15,19,15,15,18yMZ? 13,21,14,12,21M[? 27,4,16,28,4M\? 31,6,16,31,5M]? 35,4,16,34,4M^? 37,5,33,19,31M_? 5,2,6,6,2M`? 4,5,12,4,6Ma? 5,2,5,4,2 Nb? 130,31L>? 18,29L?? 18,31(L@? 26,104LA? 14,10@LB? 11,10LLC? 13,12XLD? 29,10dLE? 27,12pLF? 18,15|LG? 20,15LH? 11,7LI? 10,8LJ? 11,9LK? 12,8LL? 27,7LM? 26,8LN? 27,9LO? 28,8LP? 15,26LQ? 23,26LR? 15,27MS? 29,7K'? 29,8K(? 30,8$K)? 31,8/K*? 32,8:K+? 33,8EK,? 33,7PK-? 33,6[K.? 32,6fK/? 35,5qK0? 35,6|K1? 35,7K2? 36,7K3? 37,7K4? 37,6K5? 37,5K6? 37,4K7? 37,3K8? 36,3K9? 35,3K:? 22,29K;? 22,31K 17,30I> 17,31$I> 17,320I> 17,33 17,34HI> 17,35SI? 2,38^I? 2,37iI? 2,36tI? 2,35I? 34,25I? 28,26I? 33,28I? 25,29I? 29,30I ? 32,31I ? 30,32I ? 24,33I ? 35,34I ? 27,36I? 9,6J? 9,7 13,8,900H> 20,6,700)H> 19,18,7500:H> 19,15,5000JH> 27,8,1000ZH> 13,29,495jH> 25,29,605zH> 24,27,750H> 14,27,750H> 101H> 32,12H> 32,13H> 32,14H> 32,15H> 31,13H> 33,13H> 37,11H> 37,12I> 17,29,0,0,0,0,0,0,0,0,0,0,0,0!G> 230G> 32,7,400@G> 36,6,1850OG> 1,1,2000_G> 38,17,157nG> 38,15,68~G> 17,37,700G> 1,38,900G> 27,28,100G> 11,13,25G> 18,12,800G> 8,18,78G> 21,29,640G> 21,31,360G> 31,8,1500 H>٠ӠӠӠ)z @Bmrp(Ӡ̠ӠӠŠӠӠӠӠӠ)&@Brp(ӠӠ) ! _qM6cP a(Ԡrq/?r`%q `7%q \ `1?-ѱr r$qqq\ SLf-r\ f-rij'kij'k'lm'nlm'n'\N@"rC@"rC@"ru @p(ӠӠӠӠUVW}\ `-ѱ8rr 6-ѱR8rr 6$-ѱrq-ѱr\ -ѱrq-ѱr\ -ѱrq-ѱrPEYUVW`$\ `-ѱr6$-ѱrq-ѱr2$Y\ -ѱrq-ѱr(Yqa\ q/?n_ K`7$V-ѱ rq-ѱ rqijk_ >q/? rq/? r\ `-ѱr$q_ GUVW\ `%-ѱrq-ѱrFYdedeMY  ! UVW8/? rr$V_j /?rIj`7$V-ѱrq-ѱrqlmn8r_ It`7$V-ѱrq-ѱrqijk8r_ K~`7$V-ѱrq-ѱrqlmf-rUVW UVW \ `-ѱr%-ѱrq6? `-ѱr6?%\ YZ_8qqqq\ -ѱrq61?-ѱrrq_` %q-ѱr` %q-ѱ r`%q-ѱr`%q-ѱ r+8q`_!" a(͠ԠŠĮ)Q !  ""O4rUVW-rqYGUVWLccPa(ӠӠŠРҠ̠)Ff-r;UVW'Xlm'nij'kYf\ qy\ `-ѱr$qyI `$ede`O4rD4rD4rqqqqqq -rq -rq-rq -rq -rq-rqk-rq-rq- rq- rq- rq - rq- rq-rq-rq e? oa(Ԡ٠àŮ)G\M6f dede0dededede ded ed ed ed efd edededededededeLdedhqq\X7q`$ghqw_]jKM6d2e?o P a()P a(ΠΠ)P a()L\P a(٠Ԡ٠)P a()\d2UVWqq\q\Y[1l`=>r-r%qf-r`=>r%gh[qf`=>r-r%gh[8M6ca(ŠŠԠŠƠҠ١)q_ql\Xf-r`=>r-r%ghf-r`=>r-r%grUVWYZqqw_E<`$/q8rq8rq_)aqqq\Xqlq0?r8rq0?r8r\X`$q[\XUV6Wqq\q\Y-rq-r-rq-rY[l/qq8r8&rq8r8&r`%q/?r`%q/?r_(O2fgh\M6ca(ŠԠŠŠƠҠ١)f\L7ghUVWg-rh-͠ŠӮ)G\`$ w_8(qq/?rq-rq-r8rc)q=>r`-r$2`-r- r$<qq=-r>-rrf88rra-g-rh-rf88rrghUVWX6 8/?rr[+q.?6@r`$d6?eq[U`$`%\(q`888rrr$FP#q8rbG`888 8rrrr$Uqca(ŠƠҠ٠r6$ -ѱrq&fUVWlmnYW`8r$UVWUVW-ѱ rq-ѱ rZYZy-ѱrq-ѱr88-ѱr r6r-ѱ rq-ѱ r88-ѱ r r6rѱqѱ/?r8-rr_-ѱrq61?-ѱrr_f-r\ Zq-ѱr`%[`%-ѱrq1?r 8r` $`-ѱr$'`%l8rmn=`%`-ѱr6%l8rmn8r?` \`.?6@r$d6?eq`$_RDUVWf=>8rr-rijk8rOf=>8rr-rijk8rqYq_(<q8rf-r\ _!f-r`8 r8 r86r86r$`81?-ѱ rr r$K`$UVWf=8r>r-rlmn8rJf=8r>r-rlmn8rqYq<\ŠƠӠ)E@E(ŠƠӠ)G@p()`%@p()a@E()?a(Ҡ٠נӠ)Fa(̠Ƞ)F4a(ҠŠӠȠ)FE(Ӯ)G_'q/?rq/?r"q/?rq8rqh`$._4 `-ѱr$q6q_9 `81?-ѱ r rr$qq6_. `81?-ѱr rr$qq_/tֱqM6cPa(ο)\_hM6@p()`%@p()a(r r$'a`8r8 r$zPfUV6WXUVW X q1?-ѱr r`$pYZ_z?pd2eM6cP a(šҠҡ)d2e\Lz`$`$@`$qq_6]9f- rUVWlmnY\q\q\q\qq>\ f-r\ ;H\`%q`$`7ֱ$Rֱq_HRqq1?r`$q`%`1?-ѱؽӠý)G_$`-ѱr$qqk`%\UVWf8- rr88-ѱr r r\ f-rqq\ Yqq,4\ `6 $Hqqqq:6\ `6 $9q`$6$`$<Xd2e?ca(̠Ӡź)Gd2eP`%a(ƽ٠)GQP `%a(ɽӠ)G`%ca(̽ԠսРŽ)]"a(ҽԠӽȠʽ)a(ĽΠҠĿ)Pq88-ѱr r r`%a(ӠŠŠǠ)FG;\`$`%\`%\`%\X=`$`$ `$ `$ `$L`$`$l `$t`$p`1:J:771I,J:-N DK%1ĺ(4)"RUN BATTLE"N::9)"LOADING BATTLE PROGRAM":13)"START CASSETTE":5)"--- TYPE RUN WHEN FINISHED ---":4TTE":5)"--- TYPE RUN WHEN FINISHED ---"::16384,0:DK%1ĺ(4)"RUN INVASION ORION"MT ::10)"LOADING SECOND STAGE":13)"START CASSETTE":5)"--- TYPE RUN WHEN FINISHED ---":M POKE IN SHAPE TABLEM LN:I0LN1:J:2048I,J::232,0:233,8M POKE IN SOUND ROUTINEN LN:I0LN,2450L 174,0,3,24,105,255,208,237,76,3,3,96:L DK%1L :13)"INVASION ORION":(10):(13)::"SETUP PROGRAM"::::2)"COPYRIGHT 1980, AUTOMATED SIMULATIONS"L( (104)643100L SET UP NON-STANDARD LOAD ADDRESS FOR BASIC*M 103,1:104,644,1,48,0,36,36,53,31,180,146,62,63,36,44,54,109,45,45,54,62,36,63,255 K 19,62,108,73,1,88,64,37,55,0,36,36,53,31,180,18,62,54,62,111,41,45,45,31,32,60,52,0 K 2/8/80K SOUND ROUTINEL4 29,173,2,3,141,48,192,136,208,5,206,1,3,240,14,202,208180,109,54,0,36,36,150,51,54,54,63,44,36,104,41,22,54,63,36,44,54,13,38,88,192,3,48,0 J 36,36,45,54,39,31,39,181,255,50,54,54,68,45,45,45,53,38,88,32,180,219,179,54,0,36,36,21,31,151,50,54,39,36,108,18 FK 46,45,53,62,32,32,53,31,191,218,106,64,1,62,36,36,30,54,39,77,41,53,63,38,88,32,21,54,0,36,108,146,62,63,63,36,21,109,13,54,54,223,32,223,54,13,64,1,64 I 1,48,0,36,36,21,254,180,18,63,54,62,13,77,41,61,32,60,63,54,0,36,36,214,54,62,63,44,37,183,50,62,36,77,49,4 VJ 40,45,53,54,39,36,32,63,,150,26,223,27 H 32,36,13,32,32,54,0,36,36,53,22,54,54,62,63,39,36,36,60,54,54,110,45,36,63,36,53,22,111,9,45,62,55,37,88,32 H 36,53,54,31,36,196,27,52,0,36,180,26,62,77,61,48,0,36,180,51,54,45,36,172,46,252,19,31,39,53,0,36,36,150,18,54 nI 6,180,18,54,54,45,36,36,21,54,12,223 G 180,31,36,30,54,0,36,36,53,22,46,54,62,63,39,36,37,4,32,150,210,51,78,42,45,64,52,0,36,36,53,31,180,18,54,54 H 39,39,44,108,41,62,55,54,45,44,36,222,54,0,36,36,53,22,54,54,62,63,36,36,53,54,37,108,53,62,36,40,88,64,1,48,0,41,37,39,63,63,63,46,45,54,63,44,22,13,37 F 253,4,88,192,55,0,88,32,21,14,21,246,23,63,7,224,100,5,176,146,10,6,0,36,181,62,39,4,176,82,54,0,36,44,31,150 $G 54,45,36,21,31,31,54,0,36,36,253,150,50,54,45,36,172,254,27,52,0,36,36,53,315,245,219,155,210,51,54,254,27,88,88,88,88,88,88,88,56,63,63,0,60,63,36,36 E 45,45,45,21,22,54,54,54,63,44,36,60,255,21,13,77,37,60,36,150,22,246,19,63,63,63,39,60,39,181,13,181,45,37,216,192 8F 3,32,64,37,44,245,31,36,40,45,223,155,54,63,246,54,48,0,36,149,62,63,44,86,38,72,52,0,172,30,7,48,0,36,36,45,45,54,54,54,54,63,63,63,63,36,36,36 D 36,45,53,54,54,54,63,36,36,36,53,54,54,13,45,53,63,39,40,45,36,36,63,54,46,36,54,0,88,88,32,36,36,150,210,191 KE 54,54,14,45,45,5,32,36,228,111,145,42,43,39,36 wC 36,44,45,181,19,63,7,0,36,36,36,45,45,150,59,63,0,72,8,53,30,63,7,32,36,100,45,5,0,36,36,36,77,49,54,54 C 38,192,63,7,0,41,61,32,36,36,47,41,0,88,40,53,54,62,63,39,36,44,31,224,7,104,73,73,9,30,23,150,146,14,21,223 ]D 219,219,99,5,40,12,12,60,63,63,0,8,24,118,45,5,32,28,63,7 B 32,12,45,21,54,0,45,5,40,32,36,28,63,23,118,45,5,0,36,36,12,12,14,14,54,54,4,24,63,7,0,32,22,45,45,32 C 28,63,39,36,45,173,54,0,72,9,30,63,7,32,36,100,45,21,6,0,45,45,32,36,228,63,55,54,54,6,0,73,57,69,3,36,3,60,3,85,3,113,3,142,3,41,237,3,32,36,36,148,43,0,73,57,63,39,12,12,45 A 32,28,63,23,5,0,112,45,5,32,28,127,1,96,60,63,63,0,73,36,36,36,148,187,23,46,45,41,0,112,45,5,32,36,59,63 ,B 36,45,45,5,0,64,40,45,50,30,63,7,32,36,12,12,45,5,0,33,10 @ 928 y@ 45,0,92,0,101,0,114,0,126,0,137,0,149,0,163,0,171,0,186,0,198,0,211,0,224,0,236,0,247,0,4,1,13,1,25,1 @ 37,1,45,1,74,1,84,1,89,1,132,1,172,1,234,1,254,1,15,2,24,2,36,2,49,2,70,2,92,2,114,2,143,2,181,2 OA 189,2,203,2,224,2,247,2,     |TTYA|SW1:MKMJ:IKIJ:6| LZTT(VV2WW2)D| AJA:BJBv|& L1LZ:AAVV:BBWW:A63A1B1B358260|+ 21AX(A),AY(B)|0 XP30:XD10:10000:21AX(A),AY(B)|: L|D |(# SOUND ROUTINE|'768,XP:769,XD:770,XS:771:9{TP%(0,1)TP%(0,1)Z93"{({?a{@XNXZA:YNYZB:XA(XN):YA(YN):VVXN0WWYN0ıq{JWW08050}{TYA2ı{^XATTı{hTTXA:8120{rVV08090{|XA2ı{YATTı{TTYA:8120{(XAYA)2.83ı{YAYA.7:YATTı zVPL1ıUz` PLANET, IF IN GAME IS ALWAYS FIRST SHIP IN SECOND ARRAY--SHIP(0,1)mzjEN%(0,1)EN%(0,1)5zoZ9EN%(0,1)20ztDR%(0,1)DR%(0,1)Z9z~BM%(0,1)BM%(0,1)Z9zSH%(0,1)SH%(0,1)Z9zLN%(0,1)LN%(0,1)Z92.5{MS%(0,1)MS%(0,1)Zy12);DR%(J,J0);)y17);BM%(J,J0);>y22);SH%(J,J0);Sy27);LN%(J,J0);hy32);MS%(J,J0);}y37);TP%(J,J0);y:Jy:y"HIT ANY KEY TO RETURN. ":A$y SET GRAPHICSy 16304,0y225yL GROWTH OF PLANETARY RESOURCESS!xb:16303,0: SET TEXT MODEQxl" S T A T U S O F F O R C E S "xv:"SHIP ENER DRV BEAM SHLD LNCH MSL TORP"x"---------------------------------------"xZ949:J01Z965xJ0NS%(J0)x" ";(JZ9);x7);EN%(J,J0);wII3DP%(4J1)IIII1:3830YwDP%(4J1)ĭKK9KK1:MX%(K)A:MY%(K)B:ML%(K)1`wJow<2900:I:w23:1:J12:IJ0ĺ"COMPUTER WINS!!":4510w"***YOU WIN***":Z914000:Z9:ww DELETED CASSETTE ROUTINESxX STATUS OF FORCEXO%(JM,J0):DX0TH(DYDX):38346vTH(DY)PI.5IvDX0THTHPIwvR(1(1)1)4:R(R):PH((R)PI.25)4vA(PX(JM)(THPH)S.5):B(PY(JM)(THPH)S.5):140v D((X%(I,J1)A)2(Y%(I,J1)B)2)v 2400:IK1II5IIII1:3830!2500:SN%(I,J1)E(I)RM:SN%(I,J1)SH%(I,J1)SN%(I,J1)SH%(I,J1)Vu MISSILES fuRM03900uMS%(I,J1)MS%(I,J1)RM:J1RM:II0u(1).5SPD(JM)(1)2(PM(JM)PD(JM)):3832uSPD(JM)(1)2PD(JM)#vDYPY(JM)YO%(JM,J0):DXPX(JM),J1)JR100J0/tE(I)03900: SHIELD tt$RM0:TT0RM(LN%(I,J1)((1)).5):RMMS%(I,J1)RMMS%(I,J1)t)RM03650t.JMJB:(1).65JMJR:DMDR%:3640t/D((X%(I,J1)X%(JM,J0))2(Y%(I,J1)Y%(JM,J0))2)t8DP%(4P1)RM0:JM1AuB)3600wsp EDBM%(I,J1)SH%(I,J1)LN%(I,J1):EDE(I)BN%(I,J1)BM%(I,J1):SN%(I,J1)SH%(I,J1):TN%(I,J1)JR100J0:3800sz BBE(I)3600s E(I)BM%(I,J1)BUBM%(I,J1):3470s BUE(I)s BN%(I,J1)BU((BUBB)(1)2.5):E(I)E(I)BN%(I,J1)t TN%(I0:3400#r P0:R(1):J0NS%(J0)Cr* PPPJ(J)PS:RPJB0JBJJr4 JarH 2900:I0NS%(J1)rJ JRJB:DR%10:J0NS%(J0):D((X%(I,J1)PX(J))2(Y%(I,J1)PY(J))2)rL DDR%JRJ:DR%DrP J:JR03600s\ BB(AR%(JR,J0)1)(DR%5).1:BBBM%(I,J1 PJ(J)0:Y%(J,J0)03350;q MMA%(J,J0).67:I0NS%(J1)q D((X%(I,J1)PX(J))2(Y%(I,J1)PY(J))2):TM(D3.2.9BQ%(I,J1)4):T1T1q BM%(I,J1)10(D5)AR%(J,J0)EN%(J,J0)0PJ(J)PJ(J)T(DD1)q Iq PSPSPJ(J):Jr JB1:PS0JBЭX3%Y3%3X3%Y3%3OGJG%(6):JG%(6)100:X3%0JG%(2)100:JG%(6)OGPp Jp LGJG%(1):IK1:J28:JG%(J)LGLGJG%(J):IKJp Jp LG1GN%(I,J1)IK:TP%(I,J1)TP%(I,J1)1:E(I)E(I)1:NT1p I:TTNTp PS0:J0NS%(J0): BEAM TGT q%(J,J1)03286%o X3%0Y3%0ī3286jo X3%3X3%3OGJG%(5):JG%(5)100:X3%0JG%(1)100:JG%(5)OGo Y3%3Y3%3OGJG%(3):JG%(3)100:X3%0JG%(7)100:JG%(3)OGo X3%Y3%3X3%Y3%3OGJG%(8):JG%(8)100:X3%0JG%(4)100:JG%(8)OGIp :Y3%0I25:I34:3264%n I21:I325n X3%03267Pn I17:Y3%0I36:3267Yn I38n JG%(I1)JG%(I1)(10D1):JG%(I2)JG%(I2)(10D2):JG%(I3)JG%(I3)(10D3)n Jn J0NS%(J1):X3%X%(J,J1)X0%:Y3%Y%(J,J1)Y0%o DX3%X3%Y3%Y3%:DP9YT0:I0NS%(J1):Y%(I,J1)0LN%(I,J1)0TP%(I,J1)0E(I)03297tm X0%X%(I,J1):Y0%Y%(I,J1):JJ18:JG%(JJ)0:JJm J0NS%(J0):X3%PX(J)X0%:Y3%PY(J)Y0%m DX3%X3%Y3%Y3%:DP9Y%(J,J0)03270m D1(Y3%)1:D2(X3%)1:D3(D1D2)1n I13(DY)PI.5l] DX0THTHPIflb DXS(THPH).3:DX(DX)((DX)):DXSDX(S)((S)):DY0:3180lc DY(DY)((SSDXDX))ll AX%(J,J1)DX:BY%(J,J1)DY:140:X%(J,J1)A:Y%(J,J1)B:E(J)E(J)MA%(J,J1)(DXDXDYDY)36l Jl TT03300@m N32108k: DXCXX%(J,J1):DYCYY%(J,J1):DX0DX1:3140Gk; DY0DY1\kD R(DXDXDYDY)kE DXDXR:DYDYR:RP%(4J0)4S36DMA%(J,J1):PH0:3160kF R6SS(1)kI R(1(1)1)IK:R(R):PH((R)PI.25)4kX DX0TH(DYDX):3165 lY TH%(JD,J1)j J0NS%(J1):29004j! Y%(J,J1)03210_j& DR%(J,J1)EN%(J,J1)DDR%(J,J1):3118oj' DEN%(J,J1)j. IS1:IK4:X%(J,J1)XX3X%(J,J1)XX3Y%(J,J1)YY3Y%(J,J1)YY3IK1:IS0k0 E(J)EN%(J,J1):SDMA%(J,J1)36(1)IS:S.5(J1)J1PL1A%(J,J1):CYCYY%(J,J1)MA%(J,J1)(i Jsi CXCXMZ:CYCYMZ:JR0:DR%100:J0NS%(J0):Y%(J,J0)EN%(J,J0)03092i D((CXPX(J))2(CYPY(J))2)i DDR%(1).9JRJ:DR%Di J:CXPX(JR):CYPY(JR):2700j XX10:YY10:JD1XXX%(JD,J1):YYYN%(J,J0)PM(J)36DR%(J,J0)MA%(J,J0):3042Lh PM(J)36EN%(J,J0)MA%(J,J0)mh (J1)J0PL1PD(J)0:3045h PD(J)((XO%(J,J0)PX(J))2(YO%(J,J0)PY(J))2):PD(J)PM(J)PD(J)PM(J)h J!i J0NS%(J1):Y%(J,J1)0CXCXX%(J,J1)MA%(J,J1):MZMZM IS THINKING!":2g 2900:PT.3:K0C1.15PT.7Ig TT0:(1)PTTT1g CX0:CY0:MZ0:J0NS%(J0):AC1X%(J,J0)C2XO%(J,J0)C3X1(J)C4X2(J):BC1Y%(J,J0)C2YO%(J,J0)C3Y1(J)C4Y2(J):140:Y%(J,J0)0BY%(J,J0)+h PX(J)A:PY(J)B:DR%(J,J0)Efy RMRM1:Ff JD1:KJ0:JJ0NS%(J1):XXX%(JJ,J1):YYY%(JJ,J1)]f JK0:KK0NS%(J1)f X%(KK,J1)XX3X%(KK,J1)XX3Y%(KK,J1)YY3Y%(KK,J1)YY3JKJK1f KKf JKKJKJJK:JDJJf JJ:gT 22:1:S$;S$:IK199:IK:22:1:"COMPUTER0 e 26307e( AX0(X3)2:BY0:140:2400:IK12630Ae) 2680me2 AX0:BY0(Y3)2:140:2400:IK12630we3 2680e< AX02(X3):BY02(Y3):140:2400:IK02680eF JJ:fx KK9KK1:MX%(K)A:MY%(K)B:ML%(K)J1:RMRM1:MS%(I,J1)MS%(I,J1)1: C10ĭLN%(JJ,J0)0TP%(JJ,J0)02630Bd JJJMY%(JJ,J0)02630ud D(X0X%(JJ,J0))2(Y0Y%(JJ,J0))2:DP82630d X3PX(JJ)X0:Y3PY(JJ)Y0d ((X0)(PX(JJ)))4(1)PT2610d ((Y0)(PY(JJ)))4(1)PT2600e ((X3)(Y3))4(1)PT2620:M:I:K0:bc` IK0:JK0NS%(J1):X%(JK,J1)A2X%(JK,J1)A2Y%(JK,J1)B2Y%(JK,J1)B2IK1lcj JK:c X0X%(I,J1):Y0Y%(I,J1):LN%(I,J1)0MS%(I,J1)0ıc PT.7:C10PT.4:JJ0NS%(J0):GN%(JJ,J0)0PT.95c C10ĂJJc JJ0NS%(J0)&d%(IJ):YZMY%(IJ):8000:IJ/b8200:SW01492AbMK1001300Yb10000:10000:1492{bEP%(I6)AR%(MK,IK):E0E0bH%(MK,IK)H%(MK,IK)EbXD10:XS4:XP240:ZI110:10000:SY%(MK,IK)23AX(X%(MK,IKJ)),AY(Y%(MK,IK)):ZI:XS1 cGN%(M,I)(1))50:J1JK:JJ1:J:2104aLI01:M0NS%(I)_aVLGN%(M,I):VVV%(L):WWW%(L):L01492wa`AX%(M,I):BY%(M,I)ajSW0:TTP%(I8)aIJ01:MJ0NS%(IJ)aXZX%(MJ,IJ):YZY%(MJ,IJ):AXZBYZİ8000aMJ,IJbK0MJ100:IJ1K:XZMXXA,YA:XP255:XD20:XS4:10000:10000N`23XA,YA:XS3:10000:10000:10000}`22XA,YA:XS2:10000:10000:10000:10000`22XA,YA:XS6:10000:XS1`BN%(J,IJ)0:3`X%(J,IJ)65:Y%(J,IJ)2:930`H%0830`J:IJaJK100(NS%(0)NS%H%H%1:MS%(J,IJ)MS%(J,IJ)4:MS%(J,IJ)0MS%(J,IJ)0?_p925e_sRSRS(TP%(J,IJ)2.5):RRS830_uH%H%1:TP%(J,IJ)TP%(J,IJ)2:TP%(J,IJ)0TP%(J,IJ)0_z925_XXX%(J,IJ).5:YYY%(J,IJ):PL(J1)IJ1930_XAAX(XX):YAAY(YY):1&`19:925#^RRSRSBM%(J,IJ):RRS853J^SH%H%1:BM%(J,IJ)BM%(J,IJ)1:925h^URSRSSH%(J,IJ):RRS860^WH%H%1:SH%(J,IJ)SH%(J,IJ)1:925^\RSRSLN%(J,IJ):RRS870^aH%H%1:LN%(J,IJ)LN%(J,IJ)1:925^fRSRS(MS%(J,IJ)4.75):RRS8836_kIJ)SH%(J,IJ)LN%(J,IJ)MS%(J,IJ)4TP%(J,IJ)2EN%(J,IJ))\]9PLIJ(J1)1MM3H%0930]>R(1)MM:RSEN%(J,IJ)3:RRS840]CEN%(J,IJ)0895]DH%H%1:EN%(J,IJ)EN%(J,IJ)1:925]HRSRSDR%(J,IJ):RRS850^MH%H%1:DR%(J,IJ)DR%(J,IJ)1 \J:IJG\ 20AX(MX%(N)),AY(MY%(N)):20AX(MX%(N)),AY(MY%(N))s\!XD10:XP250:MH1İ10000:10000:10000\"MH2İ10000:10000\%MH0İ10000\&N\*1100:IJ01:J0NS%(IJ):H%H%(J,IJ)SN%(J,IJ):SN%(J,IJ)0:]4MM(3DR%(J,IJ)BM%(J,I[K0810<[N1K:MH0:LML%(N):IJ01:J0NS%(IJ)k[B(MX%(N)X%(J,IJ)):LK(MY%(N)Y%(J,IJ))[AP%(L)AR%(J,IJ):A0A0[ B0LK0H%(J,IJ)H%(J,IJ)A:MH1:795[EP%(L2)AR%(J,IJ):E0795\B1LK1H%(J,IJ)H%(J,IJ)E:MH27458Z(1)(MA%(J,IJ).67(D3.2.9BQ%(N,II)4))755kZLBN%(N,II)10(D5)AR%(J,IJ):SD23SY%(J,IJ)ZM140:AX%(J,IJ):BY%(J,IJ):SDAX(A),AY(B)ZXP20:XD20:M4İ10000ZMZL0H%(J,IJ)H%(J,IJ)(L.5)ZBN%(N,II)0[N:IT%1:21:1:"TURN "T%;S$:3000VY200:I01:J0NS%(I):H%(J,I)0:F%(J,I)0:J:IoYII01:N0NS%(II)YBN%(N,II)0755YJTN%(N,II):IJ0:J99IJ1:JJ100YY%(J,IJ)0755YD((X%(N,II)X%(J,IJ))2(Y%(N,II)Y%(J,IJ))2)ZD0(B))XKK1:MX%(K)A:MY%(K)B:ML%(K)II1XJK]XLLTP%(N,II):E0LN%(N,II)MNLL0225X21:1:868:"TORPEDO DIRECTION (1 IS UP):";:A$:A$"R"İ130:690XL(A$):(A$)0690XL0L8225XTP%(N,II)LL1:GN%(N,II)L:225 Y190:T%YM(A$):(A$)0657PW(XMXMYMYM).01P%(II4)Ģ24:1:"TOO FAR!!":655~WKK9Ģ21:1:"TOO MANY MISSILES!!":685WALXXM:BLYYM:140WZ9110:20AX(A),AY(B):Z8140:Z8:Z9W21:35:"OK?";:A$:(A$)27655X21AX(A),AYLN%(N,II)Ģ24:1:"LAUNCH TUBES SHORT!!":620XVMNRSĢ24:1:"MISSILES SHORT!!":620sVEEMN:MS%(N,II)RSMNVJK1MNV21:1:"X (-LEFT) ";:A$:A$"R"İ130:655VXM(A$):(A$)0655V21:21:"Y (-DOWN) ";:A$:A$"R"İ130:657WO MUCH":595U]S%0615R(1)MM:RSEN%(J,IJ)3:RRS840K\CEN%(J,IJ)0895r\DH%H%1:EN%(J,IJ)EN%(J,IJ)1:925\HRSRSDR%(J,IJ):RRS850\MH%H%1:DR%(J,IJ)DR%(J,IJ)1:925\RRSRSBM%(J,IJ):RRS853\SH%H%1:BM%(J,IJ)BM%(J,IJ)1:925]U10:XP250:MH1İ10000:10000:10000=["MH2İ10000:10000N[%MH0İ10000U[&N[*1100:IJ01:J0NS%(IJ):H%H%(J,IJ)SN%(J,IJ):SN%(J,IJ)0[4MM(3DR%(J,IJ)BM%(J,IJ)SH%(J,IJ)LN%(J,IJ)MS%(J,IJ)4TP%(J,IJ)2EN%(J,IJ))\9PLIJ(J1)1(J,IJ)):LK(MY%(N)Y%(J,IJ))IA61A61KIA1A1ZIB34B34gIB3B3mI}IA$:J(A$)IIJ0:J64IJ1:JJ65:190IJJ49III190::1:0:3:I01:IQ0:J0NS%(I)JAX%(J,I):BY%(J,I):SPJ1NAL ERROR - RE RUN PROGRAM":3H UTILITIES aH(21):(1):"RANGE TO ":150:(A$)1130wHJIJ15J0:133HJ0JQ130HXXXO%(J,IJ)XO%(N,II)XN:YYYO%(N,II)YO%(J,IJ)YN:RR(XX2YY2)I(21):(1):"X RANGE:"XX" Y RANGE:"YY" DIST%(4J1):P8P%(8J0)P%(8J0):P9P%(8J1)P%(8J1)GpI0NS%(J0):X1(I)X%(I,J0):XO%(I,J0)X1(I):Y1(I)Y%(I,J0):YO%(I,J0)Y1(I):PD(I)0:IGq216,0Gs210Gx(222)5ĺD$;"CLOSE":"SCENARIO DOES NOT EXIST, TRY AGAIN":D$;"DELETE ";N$:50Hy"INTERJ,I),MS%(J,I),TP%(J,I),EN%(J,I),BQ%(J,I),AR%(J,I),A,B,MA%(J,I),SY%(J,I)ZFZA0A(1)61mF_B0B(1)33F`140:X%(J,I)A:Y%(J,I)BFdJ:IFnPL,P%(0),P%(1),P%(2),P%(3),P%(4),P%(5),P%(6),P%(7),P%(8),P%(9),B%,MT:D$;"CLOSE":D$1GoP4P%(4J1)P'E5M$"I"C118:C21.5:C338:C4.25OE6M$"E"C113:C276:C313:C416pE7M$"B"M$"I"M$"E"ī52E8DK0İ5000:111E9D$;"OPEN ";N$:D$;"READ ";N$E:120E<NS%(0),NS%(1):I01EAJ0NS%(I)GFFDR%(J,I),BM%(J,I),SH%(J,I),LN%(D0I(1):(16384)12748-D116368,0:VD2:::"ENTER SCENARIO NAME:";N$::D3J00:"ENTER COMPUTER SIDE (1 OR 2)":J1:J1J11:J10J01D4:"ENTER SKILL LEVEL":"B=BEGINNER, I=INTERMEDIATE, E=EXPERT":M$:M$"B"C10:C253:C313:C413%(6)1:V%(7)1:W%(7)0:V%(8)1:W%(8)1:S$" "xC(::13)"INVASION ORION":(10):13)"BATTLE PROGRAM"C-::2)"COPYRIGHT 1980, AUTOMATED SIMULATIONS"C.AX(XA)XA4.42857:AY(YA)YA4.41666C/(20):8)"PRESS ANY KEY TO BEGIN"BM%(Q,1),SH%(Q,1),LN%(Q,1),MS%(Q,1),TP%(Q,1),BQ%(Q,1),AR%(Q,1),EN%(Q,1)BNS%(1),MA%(Q,1),BN%(Q,1),TN%(Q,1),F%(Q,1),GN%(Q,1),V%(8),W%(8),SC%(14,17),SY%(Q,1)>CV%(1)0:W%(1)1:V%(2)1:W%(2)1:V%(3)1:W%(3)0:V%(4)1:W%(4)1:V%(5)0:W%(5)1:V%(6)1:WK OPERATION; SET TO 0 FOR CASSETTE OPERATION5ADK1qAQ8:T%0:B$"ENERGY LEFT ":PI3.1416:K940:D$(4):XS1AX%(Q,1),Y%(Q,1),SN%(Q,1),H%(Q,1),P%(9),MX%(K9),MY%(K9),ML%(K9),XO%(Q,1),YO%(Q,1),PX(Q),PY(Q),PD(Q),PM(Q),PJ(Q),E(Q),JG%(8)GBDR%(Q,1),;@ 2/9/80U@ INVASION ORION APPLE II - COPYRIGHT 1980 AUTOMATED SIMULATIONSg@(104)64ī7@(4);"RUN INVASION ORION"@ SET UP NON-STANDARD DATA AREA FOR BASIC@106,16:105,0:108,16:107,0:110,16:109,0,A SET DK TO 1 FOR DIS                        TOP CASSETTE AND PRESS ANY KEY";:A$::900 I):SC%(7,K)HD%(J5Q,I):SC%(8,K)HD%(J6Q,I):SC%(9,K)D%(J7Q,I)(#SC%(10,K)D%(J8Q,I):SC%(11,K)X%(J,I):SC%(12,K)Y%(J,I):SC%(13,K)MA%(J,I):SC%(14,K)SY%(J,I)#J:I#"START CASSETTE IN RECORD MODE AND PRESS ANY KEY";:A$:T$SC%+$"SHE SAME SIDE?":A$:A$"Y"BL1Z4!TL0:"ARE TRACTOR BEAMS PERMITTED? ":A$:A$"Y"TL1x!SC%(1,13)BL:SC%(1,14)TL!I01:J08:K9IJ`"SC%(2,K)HD%(J,I):SC%(3,K)HD%(JQ,I):SC%(4,K)HD%(J2Q,I):SC%(5,K)HD%(J3Q,I)C"SC%(6,K)HD%(J4Q,Q,I). HD%(JLQ,I)D%(JLQ,I)HD%(JLQ,I)4 Y@I013:J017:SC%(I,J)0:J:II017:I1(N$)SC%(0,I)((N$,I1,1)):I SC%(1,0)NS(0):SC%(1,1)NS(1):SC%(1,2)PLl I09:SC%(1,3I)P%(I):I BL0:"CAN A SHIP BEAM OTHERS ON TCENARIO: ";N$:N$A$ĺ:"STOP CASSETTE AND PRESS ANY KEY";:X$::L$1010K06:D%(JKQ,I)D%(J1KQ,I):HD%(JKQ,I)HD%(J1KQ,I):KD%(J7Q,I)D%(J17Q,I):SY%(J,I)SY%(J1,I)D%(J8Q,I)D%(J18Q,I) D%(JLQ,I),HD%(JL*****************"_:"ENTER NAME OF LAST SCENARIO ON TAPE":A$:(A$)18A$(A$,18):"START CASSETTE IN PLAY MODE AND":"PRESS ANY KEY";:X$:SC%N$"":I0N$N$(SC%(0,I)):II1 I171050SC%(0,I)01030B"SRACTOR BEAMS PERMITTED":A$::A$"Y"TL1>uD$;"WRITE ";N$zPL","P%(0)","P%(1)","P%(2)","P%(3)","P%(4)","P%(5)","P%(6)","P%(7)","P%(8)","P%(9)","BL","TLD$;"CLOSE""***************************"::6)"SCENARIO COMPLETE":"**********)","HD%(J2Q,I)","HD%(J3Q,I)","HD%(J4Q,I)","HD%(J5Q,I)","HD%(J6Q,I)","D%(J7Q,I)","D%(J8Q,I)","X%(J,I)","Y%(J,I)","MA%(J,I)","SY%(J,I)J:I D$R"CAN A SHIP BEAM OTHERS ON THE SAME SIDE"\BL0:A$::A$"Y"BL1*pTL0:"ARE T"TOTAL POINT VALUE = "PSX"DO YOU WANT TO REVISE THIS SIDE ":C$::C$"Y"II1_IoDK%08000D$"OPEN ";N$D$;"DELETE ";N$D$;"OPEN ";N$D$"WRITE ";N$NS(0);","NS(1):I01J0NS(I)HD%(J,I)","HD%(JQ,I)5lE1HD%(J3Q,I):F1HD%(J4Q,I):G1HD%(J5Q,I)IvH1HD%(J6Q,I)J14)H1;9)A1;14)B1;19)C1;24)E1;29)F1;34)G1;39)KJ::"MISSILES: "P%(I)" DAMAGE: "P%(I2)" RANGE: "P%(I4)"TORPEDOS - DAMAGE: "P%(I6)" RANGE: "P%(I8)PT%,"DO YOU WANT TO REVISE THIS SHIP "6C$:RC$"Y"JJ1:PSPSPT%aJJ1:220:"SUMMARY ORDER OF BATTLE"&"# EN DR BM SH LN MS TP AR"0J0NS(I)NKD%(J8Q,I)bA1HD%(J,I):B1HD%(JQ,I):C1HD%(J2Q,II)0:"BEAM QUALITY ":B*D%(J7Q,I)BX"SHIP'S MASS IS ";(MA%(J,I).36.5)100PT%HD%(J6Q,I)HD%(J,I)HD%(J26,I)HD%(J3Q,I)PT%PT%(HD%(J5Q,I)2HD%(J4Q,I)4A4(B5)10HD%(JQ,I).5)"SHIP'S POINT VALUE IS ";PT%:PSPSJ,I)36Y%(J,I):Y%(J,I)35Y%(J,I)0ĺ"Y OUT OF RANGE";BL$;BL$:370nSD%(J2Q,I):BD%(J,I):ED%(J6Q,I)MA%(J,I)(D%(J4Q,I)4D%(J3Q,I)SD%(JQ,I)BED%(J5Q,I)2)AD%(J8Q,I).291594029MA%(J,I)(23):MA%(J,I)MA%(J,I)AF%(J,ITS":L4:3000.h"TORPEDOS, HITS":L5:3000Mm"SYMBOL NUMBER":SY%(J,I)nSY%(J,I)1SY%(J,I)22ĺBL$;BL$;"ILLEGAL SYMBOL NUMBER":365r"X, Y":X%(J,I),Y%(J,I)|X%(J,I)63X%(J,I)0ĺ"X OUT OF RANGE";BL$;BL$:370Y%(J,I)0410DY%(TS":D%(JQ,I),HD%(JQ,I)=,HD%(JQ,I)D%(JQ,I)HD%(JQ,I)k6"SHIELD, HITS":D%(J2Q,I),HD%(J2Q,I)@HD%(J2Q,I)D%(J2Q,I)HDD%(J2Q,I)J"ENTER ARMOR THICKNESS IN INCHES":D%(J8Q,I)T"LAUNCH TUBES, HITS":L3:3000^"MISSILES, H J0ĺ"IS THIS SHIP THE SAME":"AS THE PREVIOUS SHIP";:C$:Z J0C$"Y"İ2000:370 "ENERGY, HITS":D%(J6Q,I),HD%(J6Q,I) HD%(J6Q,I)D%(J6Q,I)HD%(J6Q,I) "DRIVE, HITS":D%(J,I),HD%(J,I):HD%(J,I)D%(J,I)HD%(J,I)""BEAM, HI 0":1605 NS(I)Q1ĺBL$;BL$"TOO MANY SHIPS":160| "ENTER DAMAGE (DIRECT HIT AND NEAR MISS) AND RANGE FOR MISSILES " P%(I),P%(I2),P%(I4):"ENTER DAMAGE AND RANGE FOR TORPEDOS" P%(I6),P%(I8) J0 JNS(I)ī540 "SHIP ";J1?RIVE AND PUSH ANY KEY";:C$:O :"IS 'A' A PLANET";:A$:(A$,1)"Y"PL1_ I01:PS0 :"SPACE BATTLE INITIALIZATION" "PLAYER ";I1:"NUMBER OF SHIPS " NS(I):NS(I)NS(I)1 NS(I)0ĺBL$;BL$;"NUMBER OF SHIPS MUST BE GREATER THANME OF THAT":"SCENARIO ";6 dC$:(C$,1,1)"Y"İ1000m n:"ENTER SCENARIO TO BE BUILT ":N$:(N$)0ī110} sDK%1ī125 x:"MAKE SURE PROPER TAPE IS IN CASSETTE":"RECORDER AND PUSH ANY KEY";:A$::130 }:"MAKE SURE PROPER DISKETTE IS IN D <12);"SCENARIO BUILDER"::o F:"THIS PROGRAM BUILDS SCENARIO DATA FILES":10)"FOR INVASION ORION":: KDK%1ī110 P"WOULD YOU LIKE TO POSITION THE TAPE":"TO THE END OF THE LAST SCENARIO":"ON THE TAPE?"::"NOTE: YOU MUST KNOW THE NA- 2/8/80G BUILD FLEET, COPYRIGHT 1980 AUTOMATED SIMULATIONSQDK%1jQ9:BL$(7):D$(4) DK=1 IF DISC -- 0 IF TAPED%(9Q,1),HD%(7Q,1),P%(9),SY%(Q,1)(X%(Q,1),Y%(Q,1),NS(1),MA%(Q,1),SC%(14,17)2:13);"INVASION ORION""""!!! ! ! ! ! !!!!!!!!!   """! d(4);"RUN INVASION ORION"C""DOS 3.2 FP ROM ONLYD:P0130 PC490' P1PC380M NA(P):QNN36:A$A$((Q)):Qg ((A$,2,1))194460w A$(A$,30) : D$,"RUN ";A$: A$(A$,30) : D$,"BRUN ";A$: ::D$;"CATALOG":  BY GALE PORTER 8-80-grpFOR  ,33,20:32,20:C38ī320+ 6:2:330a @:22:"HIT RETURN TO CONTINUE":676:936:2:Ih JIx TC10ĺ" "; ^C;" ";::"NORMAL CATALOG": h:34,22 r22:"ENTER DESIRED PROGRAM BY NUMBER, 0 TO CATALOG AGAIN." |17:"PROGRAM #";PINE LANGUAGE PROGRAM FROM I/O SWITCHES IN DOST :"FP-CATALOG MOD GALE PORTER":2^ 34,1 C1:I8211((2)(3)256)138 (I1)128("T")330 A(C)I C10ĺ" "; C;" ";:CC1 JI7I22 ((J));:J: "(37)20330AND":"HIT RETURN ";B$ :4 C(54)(55)256L 2,0:3,32:CC2966 C,0:C1,3:C2,40:C3,3: CONNECT MACHINE LANGUAGE TO I/O SWITCHES IN DOS D$;"CATALOG, V0": WRITE CATALOG OUT TO MEMORY- D$;"PR#0":D$;"IN#0": DISCONNECT MACH1,64:792,145:793,2:794,230:795,2:796,208:797,2H P798,230:799,3 Z800,104:801,164:802,0:803,96:804,0:805,0:806,0:807,0 d808,169:809,160:810,96 nD$;"NOMON C,I,O" x150 ::34,21:51,128 12:"INSERT ANOTHER DISKETTE   A(50):/(D$(4): CTRL D2768,56:769,72:770,132:771,0:772,160:773,0:774,201:775,32:776,176:777,2<778,105:779,192:780,201:781,96:782,176:783,2:784,105:785,128:786,201:787,1284 F788,176:789,2:790,105:79""" " " " " "