' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF LL}BBL]72µ- i ư&( Rp ߼ P  LLʬLo 鷎귭෍ᷩ췩緈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)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  $= '*.&  (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;1-30-+6/< 6/$2$ 6/+0*,)E8B ;4H8  `X !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`ĵµ`ڿ8.ڿ.ۿ`êLHIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD#LHH`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  LӜ}u`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\ IOÌȌ`W ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQL\YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( 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 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 q ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@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@ Šč,\Z[PRN,XɄOɊRQF(0Bhhhw4h/ ^0(p 멠RP1Q ɿ, PTL˵B̵C8pBZ\ \BIR Z-^ Jp\IZLL- (   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / FD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `HD٤DFFhiHLGh `, ŵBѵ`, ѵB8` ܫ 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˵̵ֵ׵`L漌ĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ``HH ᥠ ᥠ hh``õĵ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 x(`F d£Ġàz# u`R2J4E&J4:R20Y$"THERE IS NO SUCH OBJECT.":U81500:100:1490i&R2$(R2):(R2$)1R2$"0"R2$&Y$"DISALLOW WHAT TO "CM$(MACH)"?":100::20:GG$IN$:R30:GG$""GG$"NONE"&GG$"NONE"R39:1580&J51NO:OB$(J5)GG$R3J58'"JN:CC$RM$(J3)R1J3U%J3:R10Y$"THERE IS NO SUCH LOCATION.":U81500:100:1440y%R1$(R1):(R1$)1R1$"0"R1$%Y$"CARRY WHAT TO "CM$(MACH)"?":100::20:FF$IN$:R20:FF$""FF$"NONE"%FF$"NONE"R29:1530&J41NO:OB$(J4)FF$Y EXISTS.":U81500:100:1350$WWCN:CM$(MACH)RAV$:PRED$(MACH)(RAV$,SL1):THING$(MACH)(RAV$,(RAV$)SL):LGC$(MACH)"":ACT$(MACH)""$Y$"BE WHERE TO "CM$(MACH)"?":100:20:CC$IN$:R10:CC$""CC$"ANY"$CC$"ANY"R19:1480%:J31RMAND"CNCN1#ZRAV$""ıN#dIB1(RAV$):(RAV$,IB,1)" "SPSP1:SLIB#nIB:SP1Y$"COMMANDS MUST BE TWO WORDS.":U81500:100:1350#xVAR$RAV$1430:#DUP0:D1CN:RAV$CM$(D)DUPDUP1$D:DUP0Y$"A COMMAND OF THAT NAME ALREAD"(Y$"CHANGE WHAT COMMAND?":100::20:VAR$IN$:MACH0:VAR$""ıb"2I1CN:VAR$CM$(I)MACHI"<I:MACH0Y$"THERE IS NO SUCH COMMAND.":U81500:100:1310"F #PSP0:SL0:Y$"NEW NAME FOR "VAR$" ?":100::20:RAV$IN$:RAV$""VAR$"NEW COMJECT EXPLANATION ":OX$(I):OX$(I)""ĺ"NONE":5!f!"DESCRIPTION ":OD$(I):OD$(I)""ĺ"NONE":l!!"NOT-TAKEABLE MESSAGE ":OI$(I):OI$(I)""ĺ"NONE":! !I:255:(4);"PR#0":::"PRESS ANY KEY TO RETURN TO MENU.";:Q$:::!B$"P"Q$"T"11600 ::Q$"P"ĺ(4);"PR#1"> Q$"T"ė I1NO::(0)::OB$(I)::::"LOCATION ";:OL(I)98ĺ"PERSON":1220 OL(I)99ĺ"LIMBO":1220 RM$((OL(I))) :"TAKEABLE? ";:OL(I)0ĺ"YES": OL(I)0ĺ"NO":/!"OB(I)::"EXITS: ":C0:DVJ1112:CC1:((RE$(I),J,2))0ī1130p`DIR$(C);" TO ";:RM$(((RE$(I),J,2)))jJ:::I:255:(4);"PR#0":"PRESS ANY KEY TO RETURN TO MENU.";:Q$:::t~ Y$"(P) PRINTOUT OR (T) TELEVISION?":100:Q$:Q((ACT$(I),Q2,2))):QQ4:950hI:255:::(4);"PR#0":"PRESS A KEY TO RETURN TO MENU.";:Z$:::nt$.Y$"(P) PRINTOUT OR (T) TELEVISION?":100:Q$:Q$"P"Q$"T"10708::Q$"P"ĺ(4);"PR#1"BQ$"T"ėLI1RN:(0)::RM$:QQ6:950gROUTINES$(VAR)"FLAGTRUE"DO$"FLAGFALSE"ĺ"FLAG NUMBER: ";(ACR$(I),Q2,2):QQ4:950ROUTINES$(VAR)"TELEPORT"ĺ"TO LOCATION: ";RM$(((ACT$(I),Q2,2))):QQ4:950ROUTINES$(VAR)"TYPE"ĺ"MESSAGE: ";((ACT$(I),Q2,2)):MSSG$():(0):ROUTINES$(VAR)"MOVE"D1((ACT$(I),Q2,2)):D2((ACT$(I),Q4,2)):D299V2$"LIMBO":1000D298V2$"LOCATION":1000D299V2$"LIMBO":1000V2$RM$(D2) VAR$OB$(D1):ROUTINES$(VAR)"MOVE"ĺ"OBJECT: ";VAR$:"TO LOCATION: ";V2$R$"0"940VAR(VAR$):J1111(VAR2)22:VR((LGC$(I),J,2)):"FLAG NUMBER TO CHECK ";:VR::"MESSAGE PRINTED WHEN FLAG TESTS FALSE:":MSSG$(VR)::JQ(ACT$(I))31040e:"ACTION TO PERFORM: ";:VAR((ACT$(I),Q,2)):ROUTINES$(VAR))Pp"DISALLOWED OBJECT: ";VAR$::(0):(LGC$(I),7,2)"-9"VAR$"NONE":900pzVAR$OB$(((LGC$(I),7,2)))"ACCESSIBLE OBJECT: ";VAR$::(LGC$(I),9,2)"-9"VAR$"0":920VAR$(LGC$(I),9,2):(0) "NUMBER OF FLAGS TO CHECK: ";VAR$::VA"-9"VAR$"ANY":8402>VAR$RM$(((LGC$(I),2)))vH"ROOM TO BE IN: ";VAR$::(LGC$(I),3,2)"-9"VAR$"NONE":860RVAR$OB$(((LGC$(I),3,2))):(0)\"OBJECT TO CARRY: ";VAR$::(LGC$(I),5,2)"-9"VAR$"NONE":880fVAR$OB$(((LGC$(I),5,2)$" TAKEABLE?":100:A$:A$"N"OL(MACH)OL(MACH)O::A$"Y"A$"N"760U [ Y$"(P) PRINTOUT OR (T) TELEVISION?":100:Q$:Q$"P"Q$"T"800*::Q$"P"ĺ(4);"PR#1"4:I1CN:Q1:::"COMMAND: ";CM$(I):(0)::(LGC$(I),2)"VAR$"?":100::20:AVR$IN$:HERE0:AVR$""Y$"YOU MUST SPECIFY A LOCATION.":U81500:100:710AVR$"LIMBO"OL(MACH)99:I1RN:RM$(I)AVR$HEREII:HERE0Y$"THERE IS NO SUCH LOCATION.":U81500:100:710OL(MACH)HERE2Y$VARE ALREADY EXISTS.":U81500:100:630VAR$OB$(MACH):Y$"DESCRIPTION OF "VAR$"?":100::20:OD$(MACH)IN$:Y$"EXPLANATION OF "VAR$"?":100::20:OX$(MACH)IN$:Y$"NOT-TAKEABLE MESSAGE FOR "VAR$" ?":100:20:OI$(MACH)IN$bY$"LOCATION OF "NEW OBJECT"NONO1:%RAV$""ımOB$(MACH)RAV$:SP0:I1(OB$(MACH)):(OB$(MACH),I,1)" "SPSP1I:SP0Y$"OBJECT NAME MUST BE ONE WORD.":U81500:100:630DUP0:D1NO:RAV$OB$(D)DUPDUP1$D:DUP1Y$"AN OBJECT OF THAT NAMDA$"N"ıN`XY$"CHANGE INFO ABOUT WHAT OBJECT?":100::20:VAR$IN$:MACH0:VAR$""ıbI1NO:OB$(I)VAR$MACHIlI:MACH0Y$"THERE IS NO SUCH OBJECT.":U81500:100:590vY$"NEW NAME FOR "VAR$"?":100:20:RAV$IN$:RAV$""VAR$LOCATION NAME MUST BEGIN WITH A LETTER.":U81500:100:480(RM$(MACH))39Y$"NAME MUST HAVE FEWER THAN 39 CHARACTERS.":U81500:100:480&VAR$RM$(MACH)0Y$"SPECIFY EXITS FROM "VAR$" NOW?":100:A$:A$"Y"A$"N"560:A$"Y"İ1900: HEN PRINT RAV$:RAV$ = VAR$GRAV$""VAR$"NEW LOCATION"RAV$VAR$RM$(MACH)RAV$:DUP0:D1RN:RAV$RM$(D)DUPDUP1D:DUP1Y$"A LOCATION OF THAT NAME ALREADY EXISTS.":U81500:100:480:((RM$(MACH),1))65((RM$(MACH),1))90Y$"N:RM$(I)VAR$MACHIVI:MACH0Y$"THERE IS NO SUCH LOCATION.":U81500:100:260iVAR$RM$(MACH)Y$"NEW NAME FOR "VAR$"?":100:" (RETURN TO RETAIN)":::20:RAV$IN$:RAV$""VAR$"NEW LOCATION"RNRN1:IF ASC (RAV$) = 94 TAIN MENU":::19:A$:A$"A"A$"C"A$"L"A$"R"370Q|A$"A"İ2030:370hA$"C"İ1310:370~A$"L"İ790:370A$"R"ı2480:Y$"CHANGE INFORMATION ABOUT WHAT LOCATION?":100::20:VAR$IN$:MACH0:VAR$""ıI1RR) RETURN TO MAIN MENU":::19:A$:A$"A"A$"C"A$"L"A$"R"320_JA$"A"İ1980:320uTA$"C"İ600:320^A$"L"İ1140:320hA$"R"ı:rE$"COMMANDS":60:9:15:"(A) ADD"::15:"(C) CHANGE"::15:"(L) LIST"::15:"(R) RETURN TO MLIST"::15:"(R) RETURN TO MAIN MENU":::19:A$:A$"A"A$"C"A$"L"A$"R"270nA$"A"İ2000:270"A$"C"İ430:270,A$"L"İ1050:2706A$"R"ıH@E$"OBJECTS":60:9:15:"(A) ADD"::15:"(C) CHANGE"::15:"(L) LIST"::15:"("T"H$"S"H$"L"ī190/ H$"L"İ2820:180I H$"M"İ270:180: c H$"O"İ320:180: } H$"C"İ370:180: H$"T"İ2350:180: H$"S"İ420:180: WE$"MAPPING":60:9:15:"(A) ADD"::15:"(C) CHANGE"::15:"(L) $(1)"IT'S TOO DARK TO MOVE SAFELY.":FLAG(99):PRED$(105),THING$(105) Y$"":100::7:15:"(M) MAPPING"::15:"(O) OBJECTS"::15:"(C) COMMANDS"::15:"(T) TEXTER"::15:"(S) SAVE"::15:"(L) LOAD": 21:19:H$:H$"M"H$"O"H$"C"H$INES$(4)"N/A":ROUTINES$(8)"N/A":ROUTINES$(9)"N/A":DIR$(1)"WEST":DIR$(2)"NORTH":DIR$(3)"EAST":DIR$(4)"SOUTH":DIR$(5)"UP":DIR$(6)"DOWN":F LGC$(105),CM$(105),ACT$(105),MSSG$(105),OL(105),OB$(105),OX$(105),OI$(105),OD$(105),RM$(105),RE$(105):MSSG1U8250:QQ:U81:15:1:L :::2:35:11:Y9(40(Y$))21:Y91Y91 ROUTINE$(5)"MOVE":ROUTINE$(6)"FLAGTRUE":ROUTINE$(7)"TYPE":ROUTINE$(10)"FLAGFALSE":ROUTINE$(11)"TELEPORT" ROUTINES$(1)"N/A":ROUTINES$(2)"N/A":ROUTINES$(3)"N/A":ROUT FROUTINES$(11):80:90 P:34,3:::2:28:1:1:"GENESIS":2:1:"(C) HEXCRAFT INC.":2:31:"1982":1:26:"SALEM-PRITCHETT":3:I140:I:"=";:I: Z140 d120 n xY9(40(Y$))21:Y91Y91 ::2:35:Y9:12:Y$::16:QQC5 306047741 70*IN$""DA$:A$","A$":"30y#A$(8)(0)1(IN$)1ĺ(8);:" ";:(8);:20%A$(8)IN$""30(A$;:A$(13)ı-A$(8)ĺ" ";:(8);:IN$(IN$,(IN$)1):302IN$IN$A$:30 <:5:17::E$::                    0: 6 24506 E6 Y$"STARTING LOCATION?":100:L0:20:VAR$IN$T6 VAR$""ı`6 Q1RNu6 VAR$RM$(Q)LQ|6 Q6 L0Y$"THERE IS NO SUCH LOCATION.":U81500:100:24906 Y$"TITLE OF THIS ADVENTURE?":100:20:TITLE$IN$K7 (TITLE$)1X1,2(Y1)1));:238085` A$;:(36)0(37)8Ė1:1S5j (36)0(37)8Ė1:1]5t 2380c5~ 5 20:9:I140:I:" ";:I:VAR$VAR$".DSCP"::(4);"BSAVE";VAR$;",A1024,L1024"5 :"ANOTHER LOCATION? ";:A$:A$"Y"23506 A$"N"İ80:Y$"":1050: 4 ;4 20:LL$IN$:P10:J91RN:RM$(J9)LL$P1J9E4$ J9:s4. :::"NAME OF LOCATION: ";:20:VAR$IN$48 VAR$""İ80:Y$"":100:4B :9:I140:I:"-";:I:1:14L A$::A$"&"24305V (A$)21X(36)1:Y(37)1:(X1,2(Y1))16LAG TO SET?":100:2280M3Z111Y$"TELEPORT TO WHAT LOCATION?":100:2330\3P102250f32300320:WE$IN$:(WE$)0WE$"0"22203P1(WE$):P11P199Y$"OUT OF BOUNDS.":100:22203P1$(P1):(P1$)1P1$"0"P1$4 Z17TMNP1:20J81RN:RM$(J8)KK$P2J8\2J8:P20Y$"THERE IS NO SUCH LOCATION.":U81500:100:2140j2P2$(P2)2(P2$)1P2$"0"P2$222Z17Y$"MESSAGE NUMBER WHICH SHOULD BE TYPED?":100:22803Z16Z110Y$"WHAT IS THE NUMBER OF THE FY$"THERE IS NO SUCH OBJECT.":U81500:100:2110U1RP1$(P1):(P1$)1P1$"0"P1$1\Y$"TO WHAT LOCATION SHOULD IT BE MOVED?":100::20:KK$IN$:P20:KK$"PERSON"P2$"00":22001fKK$"LOCATION"P2$"98":22001pKK$"LIMBO"P2$"99":22002zTHIS MESSAGE MAY NOT BE CHANGED.";::A$:::N0::20:MUD$IN$:MUD$""ıq0 MSSG$(TMN)MUD$:MNTMNMNTMNw0*04Z16Z17Z110Z111ī22200>Y$"WHAT OBJECT SHOULD BE MOVED?":100::20:II$IN$:P10:J71NO:OB$(J7)II$P1J711HJ7:P10:CN100CNCN1:WWWW1:Y$"NO MORE ROOM FOR COMMANDS.":U81500:100:[/MACHCN:1350:/::"MESSAGE NUMBER ";:(TMN);:" IS NOW:"::MSSG$(TMN);:MSSG$(TMN)""Ė16:"UNDEFINED":.0 :"ENTER NEW MESSAGE OR RETURN TO KEEP OLD.":TMN1Ė4:::"1:NO99Y$"NO MORE OBJECTS ALLOWED.":U81500:100:NONO1:b.VAR$"NEW OBJECT":MACHNO:630:h..RNRN1:RN97RNRN1:Y$"NO MORE LOCATIONS ALLOWED.":U81500:100:.VAR$"NEW LOCATION":MACHRN:480:G/CNCN1:WWWW1:VAR$"NEW COMMAND"OM "VAR$"?":100::20:DD$IN$:DD$"NONE"DD$""DD$"NONE":EX0:1950i-J21RN:RM$(J2)DD$EXJ2-J2:EX0Y$"THERE IS NO SUCH LOCATION.":U81500:100:1920-EX$(EX):(EX$)1EX$"0"EX$-RE$(MACH)RE$(MACH)EX$:X:-=.NONO1800*,:Z15Z16Z17Z110Z111İ2100N,DZ1$(Z1):(Z1$)1Z1$"0"Z1$,NACT$(MACH)ACT$(MACH)Z1$P1$P2$:(ACT$)229Y$"NO MORE ACTIONS ALLOWED.":U81500:100:,X1800,b,lRE$(MACH)"",vX16:EX9I-Y$"LOCATION "DIR$(X)" FR:HH$IN$:Z10:HH$""HH$"END"C+HH$"END"(ACT$(MACH))01890+HH$"END"(ACT$(MACH))0Y$"YOU MUST SPECIFY AT LEAST ONE ACTION.":U81500:100:1800+&J6111:ROUTINE$(J6)HH$Z1J6,0J6:Z10Y$"THERE IS NO SUCH ACTION.":U81500:100:*Y$"IS FLAG INITIALLY (T)RUE OR (F)ALSE?":100:OP$:OP$"T"OP$"F"1730f*OP$"T"FLAG(NF)1~*OP$"F"FLAG(NF)0*2050*PS*LGC$(MACH)R1$R2$R3$R5$R4$FLAG$*+P1$"":P2$"":Y$CM$(MACH)" CAUSES WHAT ACTION?":100::20)1R4$"0"R4$)R491780,)PS1R4~)Y$"FLAG NUMBER TO CHECK FOR TRUTH?":100:20:WE$IN$:(WE$)0WE$"0"1690)NF(WE$):NF1NF99Y$"OUT OF BOUNDS.":U81500:100:1690)NF$(NF):(NF$)1NF$"0"NF$)FLAG$FLAG$NF$:TMNNFNS NO SUCH OBJECT.":U81500:100:1590I(TR5$(R5):(R5$)1R5$"0"R5$(^Y$"CHECK HOW MANY FLAGS?":100:20:WE$IN$:(WE$)0WE$"0"1630(hR4(WE$):FLAG$"":R40R499Y$"OUT OF BOUNDS.":U81500:100:1630(rR40R49)|R4$(R4):(R4$5:R30Y$"THERE IS NO SUCH OBJECT.":U81500:100:1540\',R3$(R3):(R3$)1R3$"0"R3$'6Y$"ACCESS WHAT TO "CM$(MACH)" ?":100::20:VV$IN$:R50:VV$"NONE"VV$""VV$"NONE":R59:1620'@K71NO:OB$(K7)VV$R5K7%(JK7:R50Y$"THERE I'  6  8 : 6 7   ' 6 9  o  ' 6 9  o  ' 6 9  o  1 : '  6  H7 : 6   ' 6 39  o  ' 6 9  o  ' 6 9  o  ' 6 9  o  ' 6 R9  o  1 : '  5  ' P - :L- : 5 - L- : H7   Z7 ( 5 : H7   8 : L- :  E7 ( 5 :  8 : L- 7  L5.OPEN 0.  :  7  LW.READ R.  :  '  |9  '  >9  H7 : 7   ' 6 9  o  1 : -9 , o 7 9L, -9-9-9-9-9 , o 7 9L, -9-9-9-9-9 , o 8 9L- -9-9-9-9-9 , o 8 9L- -9-9-9-9-9 - o H7 9L2-08 /- o c7 9LF-08 C- o 7 9LZ-01 W- o 7 9Ln-04 k- o 8 9L-03 - o 8 9L-02 - o ` XL-VAM+ o 7 9L+TAKE + o 8 9L+DROP + o H7 9L+ INVENTORY + o c7 9L ,NORTH , o 7 9L,EAST , o 7 9L5,WEST 0, o 8 9LL,SOUTH F, o 8 9L`,UP ], o 8 9Lv,DOWN q, o H7 9L, -9-9-9-9-9 , o c7 9L, -9-9-9-9 o }8 q9L*UP * o 8 q9L*DOWN * o H7 9L*LOOK * o c7 9L+LOOK ANY * o 7 9L+GO ANY + o 7 9L9+TAKE INVENTORY *+ o 8 9LR+GET ANY J+ o 8 9Ll+DROP ANY c+ o H7 9L+GO }+ o c7 9L+LOOK + o 7 9L+GET : L) 6 P9  ` 1 :L) THERE IS NO )  e9 L) HERE. )  ` ` 7 9 R6 o ` 7 5` H7 9LA*IT IS TOO DARK TO MOVE SAFELY. "* o Q7 6 <7 O6 H7 q9Lc*WEST ^* o 7 q9Lz*NORTH t* o 8 q9L*EAST * o 8 q9L*SOUTH *7 9  ` H7 : 6  L( 6 9 97 $ 5 6 9 5 $:  5 6 19 e9 :  5 6 P9 ( : Ln)LO)-NOTHING SPECIAL ABOUT THE 3)  e9 Lb). `)  ` 6 9 97 $ 5 6 9 5 $:  5 6 19 e9  e9 L' HERE. '  ` <7 5L'YOU HAVE WITH YOU: '  H7 : 6   6 9 97 $L;( 8  6 19 L-(- *(  Q7 5 1 : 5 L6 $Le(LZ(NOTHING Q(  ` 7 _8 $L( 7 9 5 o ` 7 9 7 o ` 7 9 6 o ` 5 6 9 5 5 5 $:  5 6 9 & : L& 6 9  `L& 6 19 e9  5 6 9 5 5 5 $:  5 6 9 & : L'Lp'IT IS NOT POSSIBLE TO GET THE Q'  e9 L'. '  ` 1 :L' THERE IS NO ' OR HAS OCCURED.":"PRESS A KEY TO RETURN TO MENU.";:A$::80:180GC$(J):ACT$(J):J< NOP< J1NO:OB$(J):OL(J):OX$(J):OI$(J):OD$(J):JW< L_< RN~< J1RN:RM$(J):RE$(J):J< MN< J1MN:MSSG$(J):J< WW< J1WW:PRED$(J):THING$(J):J< (4);"CLOSE";NAME$< B= :::"A DISK ERR"SAVE-NAME MUST BEGIN WITH A LETTER.":U81500:100:2830;6 Y$"INSERT "NAME$" AND HIT ":100:ML$::(ML$)132870;@ ;J (4);"OPEN";NAME$;T (4);"READ";NAME$;^ NAME$;h TITLE$;r J199:FLAG(J):J<| CN:J1CN:CM$(J):LD$(J):THING$(J):J+: (4);"CLOSE";NAME$1: 9: j: Y$"LOAD WHAT ADVENTURE?":100:20:NAME$IN$z: NAME$""ı:" (NAME$)1(NAME$)5Y$"SAVE-NAME MUST BE 5 CHARACTERS OR FEWER.":U81500:100:28309;, ((NAME$,1))65((NAME$,1))90Y$9n NAME$9x TITLE$-9 J199:FLAG(J):JZ9 CN:J1CN:CM$(J):LGC$(J):ACT$(J):Jb9 NO9 J1NO:OB$(J):OL(J):OX$(J):OI$(J):OD$(J):J9 L9 RN9 J1RN:RM$(J):RE$(J):J9 MN9 J1MN:MSSG$(J):J9 WW: J1WW:PRE(NAME$,1))90Y$"SAVE-NAME MUST BEGIN WITH A LETTER.":U81500:100:257082 Y$"INSERT INITIALIZED DISK AND HIT ":100:ML$::(ML$)1326108< 8F (4);"OPEN";NAME$8P (4);"DELETE";NAME$8Z (4);"OPEN";NAME$8d (4);"WRITE";NAME$ (TITLE$)39Y$"TITLE MUST BE FROM 1 TO 39 CHARACTERS.":U81500:100:2550{7 Y$"NAME TO SAVE UNDER?":100:20:NAME$IN$7 NAME$""ı7 (NAME$)1(NAME$)5Y$"SAVE-NAME MUST BE 5 CHARACTERS OR FEWER.":U81500:100:2570J8( ((NAME$,1))65(lX9l `L3`X9l p2l>bl@ <l@@@6l <l p@ p@@@pbXl L>1>@ llX9l llL3``s`6~|``p`~|`C6CCG`N;0s6``L3```8989l8l0ql8B09x9l0qll89ll89lBl>989~ux?xX x?tv?8 xX xx?~uxx~uxtx<~u,$` L( L5 LD 8 XL XLR XQHPH RPhPhQ8 XL.0'L+ LfLLLLL ꥪLYԨé I:>IL, 8 > (7 TLCi8CL 8  Cn8  Di8  En8FL 8  Fi8  WGn8  5Hn8IL 5cL 5eL 5gL 5iL 5kL 5mL 5oL 5qL 5sL 5uL 8  :i8  <c8>L 8>L 8  >i8?L 8?L 8  ?i8@wL 8@yL 8  {@ 8@L 8  @n8  sAi8  GBi8  5Ld5 Ld5L 5Ld5L 5L 5Ld5"Ld5'Ld5,L 5.L 50L 52Ld57Ld51>n rn0n r2Lnpn0nn>nn>n2n7q>0n^qn^qn`n>2x{np 0n@@@w?n0n rp r@@@ r2Xnn>1>p nn^qnnn07?7 n:h?n:8qnh?"Lqp0n:8qnn7 n:n7 n:"n77 0A!~ 3>~ 3>A!A!A!nXn:Xn:`n7 "p{n@ 8qnppp6n:8qn:h?@ h?ppph?"Xn:L7?7 @ nnXn:nn A!N `3>@3>~ `~ ~ 0A!`>1>l pl <lpbXp00l <ll>l l>l bl71>0s`C`~|`C{x`~|``#s``s``ps c # p 祢H 祢0 I p h uL\ !  禎  b𩊠LfHL#IڢIڢ-(h#5ᆥ](IڢʥH HɁ fΠ \hɁf hL` vy{| g|S}dpL}Qz}c0~~D:ƀ1r۠ 饬iP z녒 f륝Ɉ + # i8H rh ` !멓  v禎L酭 뱭Ș殅 饭iȅ 穘ƣ`5Dzh(F 0ɠ 穦 驪 禡 .ɠL+f ck ^ƙ.șI)$Ъ0.ȩ+.8嚪-E/8 i:`  cd pLP袊 +륪 #쩊  UH A驊  hJ I`8;)q4X>Vt~w/z*|cYX ~u q80L>nk'nk(X 1vu8 4L:۠-$șȩ0LW     9ƙ U i 0 i8.ș0șylykyjyi00ڊIi i/ȄȪ) 芢 脤`)F 鄤`ɠ 넬I* L)腞` -+ [..E0 - +f \$8Lf$På8噅 U 9ƚ0`LH$ 9h80 LaH ch 륪EL祚 d$0L e_^^^^ ^`, r^_^^^ %^^`` r` L襝 *` 녞I*L)F``a`Ȫı`E0!` Şȱ`şȱ`Š ȩŬ`(IL륝J8$E ^`e0,iLR襫`I0hhLNL ci ` cP Li v r8坅 Ğğ Ġġ* e24(&&&0⨥塅堅埅垅L@ (LꢅLԥbcdeL.^vvvvvj`^Vy dv88; 54541r LᥝH- 2 f  \7 h < L bcde 饡 饠 饟 饞 LLJ eeededcecbebfbfcfdfefJ`^_^^^^W8Ie Ji `eeeeeLi&&&&8坰IiBfffff`IIIIII `ELԢai0ᦠL LN覸^e^`_a`H` Jh`` g R L楝ɑ 률PQ`PHQH RPhQhPL F犠P` F熅  L熆PE%`dL 饢IEL < LS리8$Ii0ǨV $` lݥ^_ 5^Hȱ^ȱ^h(po Heooph^_`T SRS` H hhhL* ьHH 㥌 hhe^^_ L* IL` ) ʊH񌰸Iš hhhhhhhHH` L ` ^LL g ^ ie^^__Ŕ #^05ȱ^0ȱ^+ȱ^ȱ^poŜ䛐^_e^^__`)Jeiop Ӥȥ敥ȑL䥡HH ` lhhqL 奌  奫  *LݠHȱȱh^_ H^qheqqr "e膮 㦫 R^LԥSR`FHI8eopnm opqrh`M0 䩀hЦstopmnU^_R #ij^_lk 󅔆nmLb^_^ȱ^ȱ^eȱ^e(ӊ0ȱL$8vС,L A  ީ j ީ HHHHH L  ߅Lj A㥋HH jhhȱ𙅄ȱH +륹HHȱHH ghh Lhhhhȑhȑhȑhȑ` jݠ 6hh R䆞`" ȱ ↭^e]eR Ӆmn殤ƕƮ8m因n圑bȱhhћȊћLLȥ e^eʅʥʆd ee`^de *& edeeƙ` 8ompn` gݥ0 ɐ ~LGHHHHH hhhHH ,҄ hh)klnm?Łћȱeȱeעk,5LԢx8` ћLK*L өȥʆȑ $PhihiȑȊb@Ll  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE <Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐHJ) )h)i( ((`ɇ@ 0`$($$!fi#bZH&bTDThDt(ntJrtttrDh2"&&rr&HDDȅEhH 0l( Lh:h;l Le / XZ]_, :ILl `Ȇ׍숈l E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:` T0 "T3  T3  T; "D3 D"D3 D"D3 "D3 &1!YMJؤ#]#)i#$S#$S[[i$$)|mi)S4`J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:J jɢ )Jb y.)/) JJJ Ȉ` H:  J/Ȑh,--& W :L ` `  eȱe ` -L -La=?P<Ȅ> sʆ>PHt?QnLԅtp=hso< LeP>eQ? ॔<=`@ ߩL ʊ( (H hL$`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ`JJJJӊ)IȄҤѢԆզ8eЅԐ e҅Ր JJJ` g RQPHH, hh`L `*Uf&i'`'i,&i,&iPII&if&HhH8HӰ hIiHӅхhЅhIi҄f8Ъх e8e҅ԥձ&E%0Q&&bӰ eЅԥePفŴxaI1& ')*& 'JJ) e ʥ0)Je ~)`H)&JJ&&h' &' &' f&')'#i媽0J(` Q&%0Q&&`#0JI0`'0 I`0 I0ݩ()%%01&%0)&E%0Q&&e)j00',"&,i8i#H&ii&hizݥ􅸥uv >Lץڅuۅv܅݅ߚLLްij ֥`a, PQ ֥`a```aiśj地a`ʈjiLԭVSL@TL9 ʅPQ L PȱQL L,U,R@ ,T,SWP0,-`L ,- 0` (L ,(ʤL (L( Ld ʊL[ I`8f`?2`@ g RPmQnLԥPsoQtp` g RPsQtPiQj֥PiQjLl֩ ޥ8fإuv Lنަߥuڥvۥyܥ~L̑湭`: 808`ORXv( sL  񕰆򊅤TH کURPQQPIPPIPPPQ)stopgh֘gghgh K֩:ۅ<ԅl g RlP L L 0, ( :}3Z :xL :zLd:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld4------- 4  99  8 L4BY SALEM PRITCHETT 4  K9  8 L5(C) HEXCRAFT INC. 4  7 : 9   1 :`Lc A@# @`cP$0 . &*D8 n c 7 i 6 X 7 : 9    7 : K9   6 ?6  6  9 B6  7 4 E:  6 ?6  6 L 4 4  6 X8 $LT4 6 ?6  6  C:  s 1 : 1 : '9  7 L4#AN ADVENTURE DEVELOPED WITH GENESIS m4  s 09  ]9 L ; 78  L2CLOSE 2  n:  X L; 78  L2OPEN 2  n:  78  L3READ  3  n:  '  6  7 ; 7   ' #7 q9  o  1 ; 7 ; %8   ' #7 |9  o  1 ; 78  L3CLOSE 3  n:  ` 9  LB1 L1.OLD 9 5 1  p: 78  L1OPEN 1  n:  78  L2DELETE 1  n:  78  L(2OPEN #2  n:  78  LK2WRITE E2  n:  6 a 7 ; 7   #7 o9 a 1 ; 7 ; %8   #7 z9 a 1n:  7 8 6 /7 8 ,7 XL0(O)LD OR (N)EW GAME 0   9L0N 9 5 0 L 1 3`L1O 9 5 1 L?1L+1.OLD 9 5 &1  p:L2L0 XLo1&INSERT AN INITIALIZED 3.3 DISK AND HIT H1  L1RETURN WHEN READY. }1   9 8  9  1 ; '  6  '  6  7 ; 6   ' 87 /:  o  ' 87 :  o  1 ; '  6  7 ; 6   ' 87 :  o  1 ; '  ,7  8 ; /7 8   ' 87 $:  o  ' 87 ::  o  1 ; 78  L0CLOSE 0   87 |9  o  1 ; '  6  8 ; 7 8   ' 87 9  o  ' 87 e:  o  ' 87 Z:  o  1 ; '  7  7 ; 7   ' 87 9  o  ' 87 q9  o  ' 87 O:  o  ' 87 9  o  ' 87 9  o Y WHAT ADVENTURE? -   9 p:L- n: 5 - L- n: 7   7 ( 5 n: 7   T9 z: L- n:  7 ( 5 n:  j8 z: L- 78  LN.OPEN I.  n:  78  Lp.READ k.  n:  '  9  '  9  7 ; %8   '-9 , o 7 e:L, -9-9-9-9-9 , o 78 e:L, -9-9-9-9-9 , o m8 e:L- -9-9-9-9-9 , o v8 e:L- -9-9-9-9-9 - o 7 Z:L2-08 /- o 7 Z:LF-08 C- o 7 Z:LZ-01 W- o 78 Z:Ln-04 k- o m8 Z:L-03 - o v8 Z:L-02 - o ` XL-PLA+ o 78 $:L+TAKE + o m8 $:L+DROP + o 7 ::L+ INVENTORY + o 7 ::L ,NORTH , o 7 ::L,EAST , o 78 ::L5,WEST 0, o m8 ::LL,SOUTH F, o v8 ::L`,UP ], o 8 ::Lv,DOWN q, o 7 e:L, -9-9-9-9-9 , o 7 e:L, -9-9-9-9 o 8 9L*UP * o 8 9L*DOWN * o 7 9L*LOOK * o 7 9L+LOOK ANY * o 7 9L+GO ANY + o 78 9L9+TAKE INVENTORY *+ o m8 9LR+GET ANY J+ o v8 9Ll+DROP ANY c+ o 7 $:L+GO }+ o 7 $:L+LOOK + o 7 $:L+GET : L) 87 9  ` 1 ;L) THERE IS NO )  9 L) HERE. )  ` ` h7 |9 6 o ` h7 6` 7 :LA*IT IS TOO DARK TO MOVE SAFELY. "* o 7 r6 7 6 7 9Lc*WEST ^* o 7 9Lz*NORTH t* o m8 9L*EAST * o 8 9L*SOUTH *7 :  ` 7 ; 7  L( 87 o9 7 $ 5 87 o9 6 $z:  5 87 9 9 z:  5 87 9 ( z: Ln)LO)-NOTHING SPECIAL ABOUT THE 3)  9 Lb). `)  ` 87 o9 7 $ 5 87 o9 6 $z:  5 87 9 9 z 9 L' HERE. '  ` 7 6L'YOU HAVE WITH YOU: '  7 ; 7   87 o9 7 $L;( '9  87 9 L-(- *(  7 6 1 ; 6 6 $Le(LZ(NOTHING Q(  ` t7 8 $L( h7 q9 6 o ` h7 q9 t7 o ` h7 |9 u6 o ` h5 87 o9 5 6 5 $z:  5 87 9 & z: L& 87 9  `L& 87 9 9  5 87 o9 5 6 5 $z:  5 87 9 & z: L'Lp'IT IS NOT POSSIBLE TO GET THE Q'  9 L'. '  ` 1 ;L' THERE IS NO '  8@ L 8  @i8@L 8@L 8  @ 8@L 8  @n8  Ai8  Bi8  Ci8DWL 8  YDn8  7Ei8  Fn8FL 8  Fi8  Gn8  Hn8I{L 5Ld5Ld5Ld5L 5L 5L 5L 5L 5L 5Ld5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 8  );i8  ;=c8?/L 8?1L 8  3?i8@L?L 5ALd5FL 5HL 5JLd5OLd5TL 5VL 5XLd5]Ld5bLd5gLd5lL 5nLd5sL 5uL 5wLd5|Ld5Ld5L 5L 5L 5Ld5Ld5Ld5Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld;Ld;Ld; Ld;Ld;Ld;Ld;Ld;$Ld54L 56L 58L 5:Ld5i8@L 8@L 8  @ 8@L 8  @n8  Ai8  Bi8  oCi8DCL 8  EDn8  #Ei8  En8FL 8  Fi8  Gn8  Hn8IgL N q9  7 $ 5 q9  7 f: L q9  u 7 q9  s9 {9  5Ld5Ld5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 5L 8  ;i8  '=c8?L 8?L 8  ?i8?L 8?L 8  ?d5@L 5BL 5DLd5ILd5NL 5PL 5RLd5WLd5\Ld5aLd5fL 5hLd5mL 5oL 5qLd5vLd5{Ld5L 5L 5L 5Ld5Ld5Ld5Ld5LdLd:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld;Ld;Ld; Ld;Ld5.L 50L 52L 54Ld59L 5;L( 3Z :dL :fLd:kLd:pLd:uLd:zLd:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:Ld:---- 4  %9  8 L4BY SALEM PRITCHETT 4  79  8 L 5(C) HEXCRAFT INC. 4  7 : 8   1 :`Lc A@# @`cP$0 . &*Dc 7 i 6 X 7 : 9    7 : 79   6 46  6  9 76  7 4 1:  6 46  6 L4 4  6 M8 $LN4 6 46  6  /:  s 1 : 1 : 9  7 L4#AN ADVENTURE DEVELOPED WITH GENESIS g4  s 9  I9 L4---  L2CLOSE 2  Z:  X L5 ,8  L2OPEN 2  Z:  ,8  L3READ 3  Z:  '  6  7 : 7   ' 7 ]9  o  1 : 7 : 8   ' 7 h9  o  1 : ,8  L3CLOSE 3  Z:  ` 9  8 n L1.OLD 9 5 1  \: ,8  L1OPEN 1  Z:  ,8  L2DELETE 1  Z:  ,8  L"2OPEN 2  Z:  ,8  LE2WRITE ?2  Z:  6 a 7 : 7   7 [9 a 1 : 7 : 8   7 f9 a 1 : ,8 6 8 6 $7 8 !7 XL0(O)LD OR (N)EW GAME 0   }9L0N {9 5 0 L1 3`L 1O {9 5 1 L91L%1.OLD 9 5  1  \:L2L0 XLi1&INSERT AN INITIALIZED 3.3 DISK AND HIT B1  L1RETURN WHEN READY. w1   }9 8  {9 L<1: '  6  '  6  7 : 6   ' -7 :  o  ' -7 9  o  1 : '  6  7 : 6   ' -7 9  o  1 : '  !7  8 : $7 8   ' -7 :  o  ' -7 &:  o  1 : ,8  L0CLOSE 0  Z:  h9  o  1 : '  6  t8 : 6 8   ' -7 9  o  ' -7 Q:  o  ' -7 F:  o  1 : '  7  7 : 7   ' -7 9  o  ' -7 ]9  o  ' -7 ;:  o  ' -7 9  o  ' -7 9  o  1 ADVENTURE? -   9 \:L- Z: 5 - L- Z: 7   7 ( 5 Z: 7   @9 f: L- Z:  7 ( 5 Z:  _8 f: L- ,8  LH.OPEN C.  Z:  ,8  Lj.READ e.  Z:  '  9  '  9  7 : 8   ' -7 , o 7 Q:L, -9-9-9-9-9 , o ,8 Q:L, -9-9-9-9-9 , o b8 Q:L, -9-9-9-9-9 , o k8 Q:L- -9-9-9-9-9  - o 7 F:L,-08 )- o 7 F:L@-08 =- o 7 F:LT-01 Q- o ,8 F:Lh-04 e- o b8 F:L|-03 y- o k8 F:L-02 - o ` XL-PLAY WHAT ,8 :L+TAKE + o b8 :L+DROP + o 7 &:L+ INVENTORY + o 7 &:L,NORTH + o 7 &:L,EAST , o ,8 &:L/,WEST *, o b8 &:LF,SOUTH @, o k8 &:LZ,UP W, o t8 &:Lp,DOWN k, o 7 Q:L, -9-9-9-9-9 , o 7 Q:L, -9-9-9-9-9  9L*UP * o 8 9L*DOWN * o 7 9L*LOOK * o 7 9L*LOOK ANY * o 7 9L+GO ANY  + o ,8 9L3+TAKE INVENTORY $+ o b8 9LL+GET ANY D+ o k8 9Lf+DROP ANY ]+ o 7 :Lz+GO w+ o 7 :L+LOOK + o 7 :L+GET + oL) -7 9  ` 1 :L) THERE IS NO )  9 L) HERE. )  ` ` ]7 h9 6 o ` ]7 6` 7 9L;*IT IS TOO DARK TO MOVE SAFELY. * o 7 g6 7 6 7 9L]*WEST X* o 7 9Lt*NORTH n* o b8 9L*EAST * o t8 9L*SOUTH * o 89  ` 7 : 7  L( -7 [9 7 $ 5 -7 [9 6 $f:  5 -7 9 9 f:  5 -7 9 ( f: Lh)LI)-NOTHING SPECIAL ABOUT THE -)  9 L\). Z)  ` -7 [9 7 $ 5 -7 [9 6 $f:  5 -7 9 9 f: L' HERE. '  ` 7 5L'YOU HAVE WITH YOU: '  7 : 7   -7 [9 7 $L5( 9  -7 9 L'(- $(  7 5 1 : 5 6 $L_(LT(NOTHING K(  ` i7 8 $L( ]7 ]9 6 o ` ]7 ]9 i7 o ` ]7 h9 j6 o ` ]7 [9 5 6 5 $f:  5 -7 9 & f: L& -7 9  `L& -7 9 9  5 -7 [9 5 6 5 $f:  5 -7 9 & f: L'Lj'IT IS NOT POSSIBLE TO GET THE K'  9 L}'. {'  ` 1 :L' THERE IS NO '  9 ` 9 L% DROPPED. %  ` 7 : 7   -7 9 9  5 -7 [9 7 $f: L4&L"&YOU ALREADY HAVE THE  &  9  ` -7 9 9  5 -7 [9 6 $f: L& -7 ]9 7 o -7 9 L& TAKEN. ~&  `L& -7 9 9  5 -7 6 9 R6  7 4  6 6 $L$L$YOU CAN NOT GO THAT WAY. $  L5 6 6 6 6` 7 5 7 : 7   -7 9 9  5 -7 [9 7 $f: La% -7 ]9 6 o 7 5 1 : 5 $L%L%YOU ARE NOT CARRYING THE t%  9 L%. %  5 6 >8 f: L# H7 7 E7 6  # %%'c(((()) *Lo" 9  n O6 }8 $ 5 R6 8 $ 7 5 5 R6 8 $ 7 5 5 R6 8 $ 8 5 5 R6 8 $ V8 5 5 R6 8 $ A8 5 O6 $L$L$YOU MUST SUPPLY A DIRECTION. e$  ` 7 f9 d6 $L$ 7 9  `6 6 7 $L# 6 D: H7 7  7 4  Z7 6 D: H7 7  7 4  f7 H7 8 E7 6 7 $ 5 6 8 $f:  5 6 M8 $f:  5 6 >8 $f: Ll# 6 D: H7 7  7 4  Z7 H7 7 E7 6 7  5 6 7 f:  5 6 M8 f:  5 6 8 f:  !  6 7` 6 O: 8  7 4  C6 8 n @6 $` 8 : F6 7 D8 c 7  7  6 O: -7  7 4  f9 d6 Lc" 6 7 6 O: -7  7 4  9  1 :` 7 E7 7 Z7 7 f7 6 D:  n B7 (` 6 D: H7  7 4   7 4  Q7 [9 7 $L!L %STRANGE, YOU CAN'T SEEM TO MANAGE IT.   6 7` 8 5 6 O: t8  7 4  5 $L! 6 O: t8  7 4  [9 7  5 6 O: t8  7 4  [9 6 f: L!L!TO TRY THAT NOW IS USELESS.  6 O: 7   6 LLNOTHING HAPPENS.   6 7` 8 5 6 O: 7  7 4  5 $Lt 6 O: 7  7 4  [9 7 Lt Lb THAT CAN'T BE DONE- NOW. I  6 7` 8 5 6 O: b8  7 4  5 $L! 6 O: b8 6 6 $ 5 9 5  f: L LYOU DON'T KNOW THE WORD   9 L.   `` 7 6 7 : 6   -7 9 {9 L? -7 6` 1 :LL ANY q9 5 G  {9 LLm ANY q9 5 h  }9L ` j6 7 8 5 6 O: 7   5 $L7 L 9  1 : 5 $LLNOWHERE.   ` 7 : $7   -7 : q9 L j6 s6 -7 $: 9 L, j6 6 1 : 7 : 7   -7 9 9 L\ j6 6 1 : v6 6 $LLYOU DON'T KNOW HOW TO r  q9 L.   `LL.   6 6 $L, 6 6 7 : 7   -7 [9 6 $ 5 -7 [9 5 6 5 $f: L' -7 9:  1 :LACLEAR EXITS LEAD /  7 5 7 : 8  7  6 9 -7  7 4  7 L -7 9 L   7 5 58 D 6 $ 5 6 6 $f: L  6 6 $LLYOU CANNOT DO THAT.   L  7 6 $L i"L 6 6  5 97 d6 $f: L{L>.DSCP 6 : 8  : ,8  LdBLOAD ^  :  8  97 d6 LL YOU ARE AT A   6 : 9  7 $L 9  {9 5 9  }9L L8L SAVE GAME {9 5  L<1L FULL TEXT {9 5  L5 j6 67L'OKAY "  LLC BRIEF TEXT {9 5 8 Lu 6 67LdOKAY _  LL}LOOK {9 5 x L 7 6L 6 s6 6 6  v6 7 6  9  8 $`L 9  8 $:  5 {9 7   f: L 7 (6L {9  7 $ 5 9 5  f: L 9  8 $ 5 {9  7 f: Lt {9  u 7 {9  }9 9 LLy 9 5 w  5 +6 $f: L {9 s9 7 (6L u 7 {9  }9Lg q9  5 {9  5 $L 7 6L] {9  5 q9  5 {9  9 9  7 $ 5 9  7 f: L? 9  u 7 9  9LLD 9 5 B L] 7 6 L Lw YOU DO WHAT? i L  }9 7 (6L  9L  s9" hIc:?hIL, 9 > r7 TL  9 .9 8 {7 : R9   [6 G u r7 n 6 #8 $` 6  9  9 1 :` - X *L c +6 $LL {9 s9LQ {9 5 O L8 q9  7 $ 5 q9  7 f: L q9  u 7 q9  s9 {9              z#    Ҡ7Ҡ$ Ԡà2®РҮǠ$ŠҮРϠР ҮǠ7Ϡ$ҠŠ"ήРٮРͮР  ` e9 L% DROPPED. %  ` H7 : 6   6 19 e9  5 6 9 97 $: L:&L(&YOU ALREADY HAVE THE &  e9  ` 6 19 e9  5 6 9 5 $: L& 6 9 <7 o 6 19 L& TAKEN. &  `L& 6 19 e9   ` 5 9 5  c7 4  6 6 $L%L$YOU CAN NOT GO THAT WAY. $  L5 5 d6 6 5` <7 5 H7 : 6   6 19 e9  5 6 9 97 $: Lg% 6 9 5 o Q7 5 1 : 5 $L%L%YOU ARE NOT CARRYING THE z%  e9 L%. %:  5 6 7 : L# 6 o7 6 6  #%%'i(((()**Lu" e9  n 5 )8 $ 5 5 28 $ {7 5 5 5 ;8 $ 7 5 5 5 D8 $ 7 5 5 5 M8 $ 8 5 5 5 V8 $ 7 5 5 $L$L$YOU MUST SUPPLY A DIRECTION. k$  ` H7 9 6 $L$ H7 9 4  |6 6 7 $L# C6 9 6 o7  c7 4  7 C6 9 6 7  c7 4  7 6 7 6 6 7 $ 5 6 7 $:  5 6 7 $:  5 6 7 $: Lr# C6 9 6 o7  c7 4  7 6 7 6 6 7  5 6 7 :  5 6 7 :  5 6 7 LESS. !  R6 6` C6 9 }8  c7 4  5 }8 n 5 $` 8 : 5 l7 7 c r7  c7  C6 9 6  c7 4  9 6 Li" R6 6 C6 9 6  c7 4  9  1 :` Q7 6 <7 7 <7 7 C6 9  n 6 (` C6 9 6  c7 9 8  c7 4  6 9 97 $L !L %STRANGE, YOU CAN'T SEEM TO MANAGE IT.   R6 6` }8 5 C6 9 8  c7 4  w5 $L! C6 9 8  c7 4  9 97  5 C6 9 8  c7 4  9 5 : L!L!TO TRY THAT NOW IS USE $L C6 9 c7   5 LLNOTHING HAPPENS.   R6 6` }8 5 C6 9 7  c7 4  w5 $Lz C6 9 7  c7 4  9 97 Lz Lh THAT CAN'T BE DONE- NOW. O  R6 6` }8 5 C6 9 8  c7 4  w5 $L ! C6 `L 6 L6 $ 5 e9 5  : LLYOU DON'T KNOW THE WORD   e9 L.   `` <7 @6 H7 : 6   6 9 '9 LE 6 @6` 1 :LR ANY 9 5 M  '9 LLs ANY 9 5 n  )9L` 6 6 }8 5 C6 9 c7   w57 D 7 L 8  1 : 5 $LLNOWHERE.   ` H7 : 6   6 9 9 L 6 6 6 9 e9 L2 6 6 1 : H7 : 6   6 19 e9 Lb 6 6 1 : "6 L6 $LLYOU DON'T KNOW HOW TO x  9 L.   9 L.   g6 5 $L2 5 d6 H7 : 6   6 9 5 $ 5 6 9 5 5 5 $: L- 6 9  1 :LGCLEAR EXITS LEAD 5  <7 5 H7 : 8  c7  5 9 6  c7 4  97 L 6 o9 L   Q7 5 L6 $ 5 6 L6 $: L  C6 L6 $LLYOU CANNOT DO THAT.   L  6 L6 $L o"L 6 6 g6 5  5 6 6 $: LLD.DSCP 5 9 >  9 7  LjBLOAD d  9  }8  6 6 LL YOU ARE AT A   5 9  07 $L F9  '9 5 F9  )9L L8L SAVE GAME '9 5  L0L FULL TEXT '9 5  L5 6 6L'OKAY "  LLC BRIEF TEXT '9 5 8 Lu R6 6LdOKAY _  LL}LOOK '9 5 x L <7 d6L R6 6 R6 6  "6 Q7 +6  H9  8 $`L F9  h8 $0:  5 '9 H7   : L <7 5L '9  E7 $ 5 F9 5  : L F9  h8 $ 5 '9  E7 : Lt '9  u H7 '9  )9 F9 LLy F9 5 w  5 5 $: L '9 9 Q7 5L Fu H7 '9  )9Lg 9  5 '9  z5 $L <7 +6L] '9  5 9  }5 '9  g9 e9  07 $ 5 e9  E7 : L? e9  u H7 e9  g9LLD e9 5 B L] <7 +6 L Lw YOU DO WHAT? i L  )9 <7 5L  g9L  9`" I:>IL, 8 > 7 TL  ]9 8 8 '7 D: 8   6 G u 7 n 5 7 $` 5  [9  ]9 1 D:` - X *L c 5 $LL '9 9LQ '9 5 O L8 9  07 $ 5 9  E7 : L 9  u H7 9  9 '9             L ,-` Leh8PhHQH`hbihciHHb\ȱb]`ߚl hhHHHH`L⥠`ʆ  hdheHdHHHH08  X Xhdhe + eHdHHHeHdH`   q% 0 L0`,wyywxzzx,Hyw wȄffȪ yw fh0`h&Hwyxzwy wy h Lh` ` ` ` 憅` ` ᥠQP` L  8e`LԩLcغh8uhHvH` L L L~ 憅 L ʊ8$!  W$Li)$` LY L   hPhQP 8ePQiHHš`hh PȱPʘHH` ,խwqq膸 J즸 , :hhlP,q`h8uhv] :  ڢ hgʆbcb KLf/q ߠ :۩q` S0 L,Hh*Mȱڦhwx%ȱH J hw0У8 ewwx𴰺 抦5?wtsʆwx8dedЕБt Z Z ,խvqq ", ȹ,ȹ ,W,qewix8 Z ZCBЍw U  yUUwyVxz`Зԥwyxz`ywzx`GH o8 UpVUVƠ UVUʆoph3]eУk ЮU 4Г U 5,wЅƩѤ wU! 5B=ooppȆbcĂbUVdf08ophLД8= 7MLdlkȄmn;op:E UUȥViлh8HH`Ї{y SՠUEowyywxzzxwIy:e \`fH,Hops8otpf,kiUliVU$f&łmUŁfbUȥcUUŭUVŮMvłGUŁ>UV2ЅUŕȱU喰!0UUdUV0*UiUViVUmVnɊȢwU0ХyyUU⥁œ.QP$  e LWHhL:5~    eȱeLaL LRwwxȆwxwHw Jhw`w5U,w`,hbhcbwȱbxcȘHH`wȄ wep`0CBe]Q=b`LicbbbE0`Ġ``MMLeڢD ! SL3LH h%LddЉ`?0 HH chh ޥ Yަ`н  eE   ࠰>Ffee0  &ߢEX$ƫv` ꥪLYDcbbwyȱbxz`ݥܦL+3UV UwȱUx`wUȥxU`Ncbbȱb`cbbȥb`cbbȱb8塅堅PEncbbȱbe HH`0S,,hdehUhVhhHHU hehHehUU HHk`UiȱUiuкe& & &eeHHqUȥqUeFdO݅܆`ycbbȱbƫ8pM䡥UȥUU +뺠ЧUV욥VHUHthhЁ HHf ㈱ۺQi e 纼 +뺊i  e HH`iiiHH`(bcbebbePE1b]  0  j=i<<=kbޙץ,,stHʈcbhH ʈpoophMm X RQtPsh`bhH     llxxwxl0|l89Bl@ 0ql   <l0ql8@ 8   8BlL8989@ lllllxwx6x~utx X x@<xX x? ??t~xLy~u xxxwxxxppXX`9YF|?;X`9YY=pXXpXFY8p|09<2>%<20<4>%\/,`0<20<4t<21X;XpF|Y `9XxX`9X F1Xlpp YX1XYY>t<2 <209\/<4p 0<2<20<2>%p >%>%\/<0<2LY|09p <4<2>t<2<4<4;;0?p0???p|~0???[;0?0?;0?|?`;010,"m,"8,$mLq08,"8,$,0,","0,",$10?0?,$\p,"0?0?;|8?x?0?`0??0?pxpp|?0?x>;;x?0?0???\p," ,"0,$@ 8,"1,"8,"m@ mml,"L010@ ,$,"\p,",$,$`  ~C` p0  ~C>p0~C818nxon<9nxoxOnpn<9nn8nn8nxn7?8~C~ nXqn~ p0~Cp7  ` p7` ` p0~0lp7~C~ ~C~CXqn@n8xn@ <9n7?n<9nxo@ xoxox\nL818@ nnXqnnn           ӠŮӬҬĠԧӠҠԠ`ŠҠƠŠŠӠŠȠDӠƠŠӠҠ&ӠŠҠϠŠӠƠ`ՠŠΠ٠Ġή"ŠҠӠΠĠĠҮŠ    ŠĠǭҠӠҭԧӠԠϠ̮ŠƠŠͮΠŠȠ̠`ӠΠ٠ŮԠԠŠD̠Š̠ŠĠŠ'àǠˠӠΠŠ`ΠԠϠŠάŠ٠Ӡ ٠ԠĠήӠ̠    ŠǮŠ͠٠׬Š͠ӠŠ٠ٮٮΠŠԠ̠Ӡ٠`ԭƭӬԠ̠ƠŠӠDĬ͠ŠԠΠŠӬӠ&ԠҠϠŠΠԠΠ`Ӡ٠͠ӠˠΠӠ ٮŠĠӠ٠Š    ]"`.?r$6P,a(ŠĠԠŠ)a(̠Š͠ӠĮ)6ca()E(Π)}d?ed@e`M`.?r$]]ƠŬĠ]2o a(ǠԠϠŠĩ)a(Ġìİ)]ŠԠŠq.?6~?r]ð_6]]ϠĠҠΧԠUnd$ed%ed&ed'e d(ed)ed*ed+ed,eUsd-ed.ed/ed0ed1ed2ed3ed4ed5eUxd6ed7ehd8ed9ed:ed;ed<ed=ed>eU_d eHd ed ed ed ede#dededeUddededededededededeUidededededeJd ed!ed"ed#e ]Ӡ]Kc (M6*2a(ӠΠ)1<ca(ŠɠĠ͠)F] P]ŠŠĠUZdededededeHdedededeh    ٹHH ޥLLޥШh^^h_H r륡HHHHHl^h#d j݄hJhhhhhhE` LJ }d.U"i L=8,LLTҐL {ݩ),(,,ѸLLԠhhL ߅` ȱLL  ߅ ei` 꺽  ' 8 uvL׊i , {$8$0`LԦƹƸ$HH `ީ 8ϐ*IEʼna Lݦ,{iweLi^ e^hٲаg jH hV_F*ƹƸٲаH $P )0 Z ۆ $1$P 膸 ": ,i = {LrH0h J c ,Lqۥ 3 LۥL Ȫ*ȱ_ȱ{ȱȅ| L+ܥLSؠߠL:`?EXTRA IGNORED ?REENTER  \I`$ !i)$ )L(ʊ$ L W 檠^ \ LD۩ ,? ɠ )H h`0{|uvLh$L :ۥyz` @ `" ީ; =L Z , ,խLc ZL,զ}~, ߅hL* ,h`PQ/ Q^ԥP &^ &^ePP^eQQP&QPe PQ L ߅ ޥHH {h* mh r ȥ`L'hpoj iLڠ 㥌 婝 5ȱȱ` = $)94,;D {$0 4 Lک?`gh<=ij>?`v(Le lL5٩ ӥHHvHuHH >L ٥vQ 8egh ֐` eӚɰ ,ZLLhhB;uhvhh ٘e`:,  "hhh` { ɫ ޥ L>L( HɰɫЉơe$v# \ۦuv $ W (Lb-逐@ HHLLF:L8gh}~`Ƀ` Sբ$L ) \ۥ$! ک$ȱȱж \L枱`8Єτ ,0 \ ,0 \ \۩ И F eihh eHiHvHuH j gݥ %ׅ^_L ީ  g ޥHHH XإvyzW4ȱuȱv Нƹ`ghȥQћ Pћ `֨gȑggiihij ֩*stopijklmn IآURhhHHz`gihi` ,  ,Є hhPQPQD X ȱȱQP- $_^ ijL<Ԡȱ^Șe^^_iȑ^^_Ң3 j )` )`ʠ$hh eL$p "tpM?E0<=Ѕυ 8ɀA N4O0Ťș98:I8xІșh0hhpo`M$L Z۽`H \h ֩P :ۤv  ڢ .ՆF v YLئij YՄ ֐D_i^aeii`jij圪8iae^_^`_a8stopiejȄ ӥPQmnij e֥gh^ DIRECTYPE MISMATCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIO ERROR IN BREAKɁ! i` Ӆmn8囅^圪#8^Ɨ8^ƕƗƕ` i65^^.`p(o"H H ANOҾSGINABUSFRSCRNPDPOSQRNLOEXCOSITAATPEELESTRVAASCHRLEFTRIGHTMIDNEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPREDIM'D ARRADIVISION BY ZERILLEGALPLOHLIVLIHGRHGHCOLORHPLODRAXDRAHTAHOMROTSCALESHLOATRACNOTRACNORMAINVERSFLASCOLORPOVTAHIMEMLOMEMONERRESUMRECALSTORSPEEDLEGOTRUIRESTORŦGOSURETURRESTOOWAILOASAVDEPOKPRINCONLISCLEAGENETABTFSPCTHEANOSTE0oeܔٱ0ۏ$1@hnW &tlnrvNjUaE=H jmكدzڕؤi֟H֐# A :dFZyy{{h}PTFNddENFONEXDATINPUDEDIREAGTEXPRINCAL                          ΠŠԠӠ٠͠ҠΠŠ®ŠŮŠǠĠ`Ӡ٬ӠƠ͠ŮDӠΠŠŠҮՠΠҠ&ŠǠƠӠŠƠΠ`Š ӠРĠˮŠ Ӡ͠ŠǠĠӠϠ     ` 9 L% DROPPED. %  ` 7 ; 7   87 9 9  5 87 o9 7 $z: L:&L(&YOU ALREADY HAVE THE &  9  ` 87 9 9  5 87 o9 6 $z: L& 87 q9 7 o 87 9 L& TAKEN. &  `L& 87 9 9   ` 6 : ]6  7 4  6 6 $L%L$YOU CAN NOT GO THAT WAY. $  L; 6 6 6 6` 7 6 7 ; 7   87 9 9  5 87 o9 7 $z: Lg% 87 q9 6 o 7 6 1 ; 6 $L%L%YOU ARE NOT CARRYING THE z%  9 L%. %z:  5 6 I8 z: L# S7 7 P7 6  #%%'i(((()**Lu" 9  n Z6 8 $ 5 ]6 8 $ 7 5 5 ]6 8 $ 7 5 5 ]6 8 $ 8 5 5 ]6 8 $ a8 5 5 ]6 8 $ L8 5 Z6 $L$L$YOU MUST SUPPLY A DIRECTION. k$  ` 7 z9 o6 $L$ 7 : 4  6 6 7 $L# 6 X: S7 7  7 4  e7 6 X: S7 8  7 4  q7 S7 8 P7 6 8 $ 5 6 8 $z:  5 6 X8 $z:  5 6 I8 $z: Lr# 6 X: S7 7  7 4  e7 S7 8 P7 6 7  5 6 8 z:  5 6 X8 z:  5 6 8 LESS. !  6 7` 6 c: 8  7 4  N6 8 n K6 $` 8 ; Q6 7 O8 c 7  7  6 c: 87  7 4  z9 o6 Li" 6 7 6 c: 87  7 4  :  1 ;` 7 P7 7 e7 7 q7 6 X:  n M7 (` 6 X: S7  7 c: m8  7 4  \7 o9 7 $L !L %STRANGE, YOU CAN'T SEEM TO MANAGE IT.   6 7` 8 5 6 c: 8  7 4  5 $L! 6 c: 8  7 4  o9 7  5 6 c: 8  7 4  o9 6 z: L!L!TO TRY THAT NOW IS USE $L 6 c: 7   6 LLNOTHING HAPPENS.   6 7` 8 5 6 c: 7  7 4  5 $Lz 6 c: 7  7 4  o9 7 Lz Lh THAT CAN'T BE DONE- NOW. O  6 7` 8 5 6 c: m8  7 4  5 $L ! 6 `L 6 6 $ 5 9 5  z: LLYOU DON'T KNOW THE WORD   9 L.   `` 7 6 7 ; 7   87 9 9 LE 87 6` 1 ;LR ANY 9 5 M  9 LLs ANY 9 5 n  9L` u6 7 8 5 6 c: 7   5@8 D 7 L 9  1 ; 6 $LLNOWHERE.   ` 7 ; /7   87 ": 9 L u6 ~6 87 8: 9 L2 u6 6 1 ; 7 ; 7   87 9 9 Lb u6 6 1 ; 6 6 $LLYOU DON'T KNOW HOW TO x  9 L.   -: L.   6 6 $L2 6 6 7 ; 7   87 o9 6 $ 5 87 o9 5 6 5 $z: L- 87 M:  1 ;LGCLEAR EXITS LEAD 5  7 6 7 ; 8  7  6 : 87  7 4  7 L 87 9 L   7 6  6 6 $ 5 6 6 $z: L  6 6 $LLYOU CANNOT DO THAT.   L  7 6 $L o"L 6 6  5 D7 o6 $z: LLD.DSCP 6 -: >  : 78  LjBLOAD d  :  8  D7 o6 LL YOU ARE AT A   6 6L 9  7 $L 9  9 5 9  9L L>L SAVE GAME 9 5  LB1L  FULL TEXT 9 5  L; u6 A7L-OKAY (  LLI BRIEF TEXT 9 5 > L{ 6 A7LjOKAY e  LLLOOK 9 5 ~ L 7 6L 6 ~6 6 6  9 7 6  9  8 $`L 9  8 $:  5 9 7   z: L 7 36L  9  7 $ 5 9 5   z: L 9  8 $ 5 9  7 z: Lz 9  u 7 9  9 9 LL 9 5 }  5 66 $z: L 9 9 7 39  u 7 9  9Lm 9  5 9  5 $L 7 6Lc 9  5 9  5 9  9 9  7 $ 5 9  7 z: LE 9  u 7 9  9LLJ 9 5 H Lc 7 6 L L} YOU DO WHAT? o L  9 7 36L  9L Ű" |Iw:.?|I 9 ;L2 9 > }7 TL  9 B9 8 7 : f9   f6 G u }7 n '6 .8 $` *6  9  9 1 :` - X *L i 66 $LR 9 9LW 9 5 U L> 9  7 $ 5 9  7 z: L 9  u 7 9  9                   ǠĠԠӠŠϠŠԠǠϠӮӠŮ٬ϠŠӠ`ĠŠҠΠӮԠӠDӮ̠ƠŠŠӠŠ0٠̬ӠƠŠҠҠ`ՠŠΠ٠ŠҠȠӠΠŠΠƠŠ    ARSER"(13)(4)"BRUN PLAYER"W <A$"D"ĺ(4)"BLOAD PARSER"(13)(4)"BRUN DEMO"] cn (4);"PR#6" x c (4);"PR#6" p :'(4);"BLOAD TITLE"?16300,0:16301,0q:23:4:"(C) CREATOR (P) PLAYER"24:17:"(D) DEMO"21:A$A$"C"A$"P"A$"D"27#:%:(A$"C"ĺ(4)"RUN CREATOR" 2A$"P"ĺ(4)"BLOAD P ˍ׍׍ˍčǍύōōōƍҍԍ΍ĠŠٮŠǠӠΠŠŠŠĭĭӠРҠЮŠŠӠΠŠĠӭӠŠҠӮՠԠ٠٠נϠϠԮ͠ɠˠɠ̠ŠŮΧԠ٠ԡ°ٍ͍ԧӠϠˠϠŠٮŠΠӠԠխǠӠӠϠРՠ͠ŠŮԠӠΠŠנĠŠΠΠҠӠԠŠҠӠȮԠǠӠšŠӠ٠ŠĠ٠٠Į΍ΠĠϠŠ̠Ӡ٠ŮǠŠӠӠӠӠٮŠҍ΍ͮԠΧԠΠĠΠӮ΍ΠΠŠӠРΠŠ ӠΠĠԠŠήԠӠŠŮōŠӠ٠ŮϠӠƠĠŠ͠ŠԠҠƠנŮŠΠӠ٠ԠƠŠٮԠ٠ӠҠŮōŠӠǠŠΠŠԠ̮ԠӠŠՠĠŠȮ׍ȠΠŠȠ̠Ӡ٠׭Š٠ŠΠŠĠӠӠӠǠՠ͠ǠŠŮԠӠΠΠŠΠ̭ōŠϠӠԠԠŠӠΠԠ٠̠ŮԠӮΡ΍٠ΠӠĠŠŠ͠ӠҮՠ٠ԠϠˠǠĠοϠӡԧӠҠΠέԠԠӮԠӠŠ̮ōРΠŠӠĠŠˠƠŠͮŠǠӠǠƠՠŠӠ͠Š̠ŠϠӠŠϠҠΠ٠ŠӮˍˠӠŠŠ͠ŠǠĠӠΠŠҠƠŠͮǍŠˠǠĠϠŠ̠Ӡՠ٠ϠˍĠǍϠōŠōƠҍԠ΍ōŠŖӠΠŠҠŮҠЍǠƠ٠ԡˠ׍     XISTS.":U81500:100:630VAR$OB$(MACH):Y$"DESCRIPTION OF "VAR$"?":100::20:OD$(MACH)IN$:Y$"EXPLANATION OF "VAR$"?":100::20:OX$(MACH)IN$:Y$"NOT-TAKEABLE MESSAGE FOR "VAR$" ?":100:20:OI$(MACH)IN$WY$"LOCATION OF "VAR$"?":"NONO1:RAV$""ıbOB$(MACH)RAV$:SP0:I1(OB$(MACH)):(OB$(MACH),I,1)" "SPSP1I:SP0Y$"OBJECT NAME MUST BE ONE WORD.":U81500:100:630DUP0:D1NO:RAV$OB$(D)DUPDUP1D:DUP1Y$"AN OBJECT OF THAT NAME ALREADY ENUXY$"CHANGE INFO ABOUT WHAT OBJECT?":100::20:VAR$IN$:MACH0:VAR$""ıubI1NO:OB$(I)VAR$MACHIlI:MACH0Y$"THERE IS NO SUCH OBJECT.":U81500:100:590 vY$"NEW NAME FOR "VAR$"?":100:20:RAV$IN$:RAV$""VAR$"NEW OBJECTME MUST BEGIN WITH A LETTER.":U81500:100:480(RM$(MACH))39Y$"NAME MUST HAVE FEWER THAN 39 CHARACTERS.":U81500:100:480&VAR$RM$(MACH)0Y$"SPECIFY EXITS FROM "VAR$" NOW?":100:A$:A$"Y"A$"N"560:A$"Y"İ1900:DA$"N"RAV$:RAV$ = VAR$<RAV$""VAR$"NEW LOCATION"RAV$VAR$tRM$(MACH)RAV$:DUP0:D1RN:RAV$RM$(D)DUPDUP1D:DUP1Y$"A LOCATION OF THAT NAME ALREADY EXISTS.":U81500:100:480/((RM$(MACH),1))65((RM$(MACH),1))90Y$"LOCATION NAAR$MACHIKI:MACH0Y$"THERE IS NO SUCH LOCATION.":U81500:100:260^VAR$RM$(MACH)Y$"NEW NAME FOR "VAR$"?":100:" (RETURN TO RETAIN)":::20:RAV$IN$:RAV$""VAR$"NEW LOCATION"RNRN1:IF ASC (RAV$) = 94 THEN PRINT ::19:A$:A$"A"A$"C"A$"L"A$"R"370F|A$"A"İ2030:370]A$"C"İ1310:370sA$"L"İ790:370A$"R"ı2480:Y$"CHANGE INFORMATION ABOUT WHAT LOCATION?":100::20:VAR$IN$:MACH0:VAR$""ı I1RN:RM$(I)VO MAIN MENU":::19:A$:A$"A"A$"C"A$"L"A$"R"320TJA$"A"İ1980:320jTA$"C"İ600:320^A$"L"İ1140:320hA$"R"ı/rE$"COMMANDS":60:9:15:"(A) ADD"::15:"(C) CHANGE"::15:"(L) LIST"::15:"(R) RETURN TO MAIN MENU"::"(R) RETURN TO MAIN MENU":::19:A$:A$"A"A$"C"A$"L"A$"R"270cA$"A"İ2000:270y"A$"C"İ430:270,A$"L"İ1050:2706A$"R"ı=@E$"OBJECTS":60:9:15:"(A) ADD"::15:"(C) CHANGE"::15:"(L) LIST"::15:"(R) RETURN TH$"L"ī190$ H$"L"İ2820:180> H$"M"İ270:180: X H$"O"İ320:180: r H$"C"İ370:180: H$"T"İ2350:180: H$"S"İ420:180: LE$"MAPPING":60:9:15:"(A) ADD"::15:"(C) CHANGE"::15:"(L) LIST"::15TOO DARK TO MOVE SAFELY.":FLAG(99):PRED$(105),THING$(105) Y$"":100::7:15:"(M) MAPPING"::15:"(O) OBJECTS"::15:"(C) COMMANDS"::15:"(T) TEXTER"::15:"(S) SAVE"::15:"(L) LOAD": 21:19:H$:H$"M"H$"O"H$"C"H$"T"H$"S"/A":ROUTINES$(8)"N/A":ROUTINES$(9)"N/A":DIR$(1)"WEST":DIR$(2)"NORTH":DIR$(3)"EAST":DIR$(4)"SOUTH":DIR$(5)"UP":DIR$(6)"DOWN":; LGC$(105),CM$(105),ACT$(105),MSSG$(105),OL(105),OB$(105),OX$(105),OI$(105),OD$(105),RM$(105),RE$(105):MSSG$(1)"IT'S Q:U81:15:1:A :::2:35:11:Y9(40(Y$))21:Y91Y91 ROUTINE$(5)"MOVE":ROUTINE$(6)"FLAGTRUE":ROUTINE$(7)"TYPE":ROUTINE$(10)"FLAGFALSE":ROUTINE$(11)"TELEPORT" ROUTINES$(1)"N/A":ROUTINES$(2)"N/A":ROUTINES$(3)"N/A":ROUTINES$(4)"NINES$(11):80:90 P:34,3:::2:28:1:1:"GENESIS":2:1:"(C) HEXCRAFT INC.":2:31:"1982":1:26:"SALEM-PRITCHETT":3:I140:I:"=";:I: Z140 d120 n xY9(40(Y$))21:Y91Y91 ::2:35:Y9:12:Y$::16:QQ1U8250:Q85 3060 70IN$""9A$:A$","A$":"30n#A$(8)(0)1(IN$)1ĺ(8);:" ";:(8);:20%A$(8)IN$""30(A$;:A$(13)ı-A$(8)ĺ" ";:(8);:IN$(IN$,(IN$)1):302IN$IN$A$:30<:5:17::E$:: FROUT                !!! ! ! ! ! !!!!!!!!!""" " " " " J4:R20Y$"THERE IS NO SUCH OBJECT.":U81500:100:1490^&R2$(R2):(R2$)1R2$"0"R2$&Y$"DISALLOW WHAT TO "CM$(MACH)"?":100::20:GG$IN$:R30:GG$""GG$"NONE"&GG$"NONE"R39:1580&J51NO:OB$(J5)GG$R3J5-'"J5:R30Y$J3)R1J3J%J3:R10Y$"THERE IS NO SUCH LOCATION.":U81500:100:1440n%R1$(R1):(R1$)1R1$"0"R1$%Y$"CARRY WHAT TO "CM$(MACH)"?":100::20:FF$IN$:R20:FF$""FF$"NONE"%FF$"NONE"R29:1530%J41NO:OB$(J4)FF$R2J4:&U81500:100:1350$WWCN:CM$(MACH)RAV$:PRED$(MACH)(RAV$,SL1):THING$(MACH)(RAV$,(RAV$)SL):LGC$(MACH)"":ACT$(MACH)""$Y$"BE WHERE TO "CM$(MACH)"?":100:20:CC$IN$:R10:CC$""CC$"ANY"$CC$"ANY"R19:1480 %:J31RN:CC$RM$(1#ZRAV$""ıC#dIB1(RAV$):(RAV$,IB,1)" "SPSP1:SLIB#nIB:SP1Y$"COMMANDS MUST BE TWO WORDS.":U81500:100:1350#xVAR$RAV$1430:#DUP0:D1CN:RAV$CM$(D)DUPDUP1$D:DUP0Y$"A COMMAND OF THAT NAME ALREADY EXISTS.":GE WHAT COMMAND?":100::20:VAR$IN$:MACH0:VAR$""ıW"2I1CN:VAR$CM$(I)MACHI"<I:MACH0Y$"THERE IS NO SUCH COMMAND.":U81500:100:1310"F #PSP0:SL0:Y$"NEW NAME FOR "VAR$" ?":100::20:RAV$IN$:RAV$""VAR$"NEW COMMAND"CNCNATION ":OX$(I):OX$(I)""ĺ"NONE":*![!"DESCRIPTION ":OD$(I):OD$(I)""ĺ"NONE":a!!"NOT-TAKEABLE MESSAGE ":OI$(I):OI$(I)""ĺ"NONE":! !I:255:(4);"PR#0":::"PRESS ANY KEY TO RETURN TO MENU.";:Q$:::!7"(Y$"CHAN"T"1160% ::Q$"P"ĺ(4);"PR#1"3 Q$"T"ė I1NO::(0)::OB$(I)::::"LOCATION ";:OL(I)98ĺ"PERSON":1220 OL(I)99ĺ"LIMBO":1220 RM$((OL(I))) :"TAKEABLE? ";:OL(I)0ĺ"YES": OL(I)0ĺ"NO":$!"OBJECT EXPLANTS: ":C0:9VJ1112:CC1:((RE$(I),J,2))0ī1130e`DIR$(C);" TO ";:RM$(((RE$(I),J,2)))jJ:::I:255:(4);"PR#0":"PRESS ANY KEY TO RETURN TO MENU.";:Q$:::t~ Y$"(P) PRINTOUT OR (T) TELEVISION?":100:Q$:Q$"P"Q$Q2,2))):QQ4:950]I:255:::(4);"PR#0":"PRESS A KEY TO RETURN TO MENU.";:Z$:::ci$.Y$"(P) PRINTOUT OR (T) TELEVISION?":100:Q$:Q$"P"Q$"T"10708::Q$"P"ĺ(4);"PR#1"BQ$"T"ė LI1RN:(0)::RM$(I)::"EXI\ROUTINES$(VAR)"FLAGTRUE"DO$"FLAGFALSE"ĺ"FLAG NUMBER: ";(ACR$(I),Q2,2):QQ4:950ROUTINES$(VAR)"TELEPORT"ĺ"TO LOCATION: ";RM$(((ACT$(I),Q2,2))):QQ4:950ROUTINES$(VAR)"TYPE"ĺ"MESSAGE: ";((ACT$(I),Q2,2)):MSSG$(((ACT$(I),UTINES$(VAR)"MOVE"D1((ACT$(I),Q2,2)):D2((ACT$(I),Q4,2)):D299V2$"LIMBO":1000zD298V2$"LOCATION":1000D299V2$"LIMBO":1000V2$RM$(D2)VAR$OB$(D1):ROUTINES$(VAR)"MOVE"ĺ"OBJECT: ";VAR$:"TO LOCATION: ";V2$:QQ6:950VAR(VAR$):J1111(VAR2)22:VR((LGC$(I),J,2)):"FLAG NUMBER TO CHECK ";:VR::"MESSAGE PRINTED WHEN FLAG TESTS FALSE:":MSSG$(VR)::JQ(ACT$(I))31040Z:"ACTION TO PERFORM: ";:VAR((ACT$(I),Q,2)):ROUTINES$(VAR):(0):ROSALLOWED OBJECT: ";VAR$::(0):(LGC$(I),7,2)"-9"VAR$"NONE":900ezVAR$OB$(((LGC$(I),7,2)))"ACCESSIBLE OBJECT: ";VAR$::(LGC$(I),9,2)"-9"VAR$"0":920VAR$(LGC$(I),9,2):(0)"NUMBER OF FLAGS TO CHECK: ";VAR$::VAR$"0"940ANY":840'>VAR$RM$(((LGC$(I),2)))kH"ROOM TO BE IN: ";VAR$::(LGC$(I),3,2)"-9"VAR$"NONE":860RVAR$OB$(((LGC$(I),3,2))):(0)\"OBJECT TO CARRY: ";VAR$::(LGC$(I),5,2)"-9"VAR$"NONE":880fVAR$OB$(((LGC$(I),5,2)))Ep"DIE?":100:A$:A$"N"OL(MACH)OL(MACH)D::A$"Y"A$"N"760J P Y$"(P) PRINTOUT OR (T) TELEVISION?":100:Q$:Q$"P"Q$"T"800*::Q$"P"ĺ(4);"PR#1" 4:I1CN:Q1:::"COMMAND: ";CM$(I):(0)::(LGC$(I),2)"-9"VAR$"100::20:AVR$IN$:HERE0:AVR$""Y$"YOU MUST SPECIFY A LOCATION.":U81500:100:710wAVR$"LIMBO"OL(MACH)99:I1RN:RM$(I)AVR$HEREII:HERE0Y$"THERE IS NO SUCH LOCATION.":U81500:100:710OL(MACH)HERE'Y$VAR$" TAKEABL506 :6 Y$"STARTING LOCATION?":100:L0:20:VAR$IN$I6 VAR$""ıU6 Q1RNj6 VAR$RM$(Q)LQq6 Q6 L0Y$"THERE IS NO SUCH LOCATION.":U81500:100:24906 Y$"TITLE OF THIS ADVENTURE?":100:20:TITLE$IN$@7 (TITLE$)1(TITLE$)31)1));:2380-5` A$;:(36)0(37)8Ė1:1H5j (36)0(37)8Ė1:1R5t 2380X5~ 5 20:9:I140:I:" ";:I:VAR$VAR$".DSCP"::(4);"BSAVE";VAR$;",A1024,L1024"5 :"ANOTHER LOCATION? ";:A$:A$"Y"23505 A$"N"İ80:Y$"":100:6 2404 20:LL$IN$:P10:J91RN:RM$(J9)LL$P1J9:4$ J9:h4. :::"NAME OF LOCATION: ";:20:VAR$IN$48 VAR$""İ80:Y$"":100:4B :9:I140:I:"-";:I:1:14L A$::A$"&"2430 5V (A$)21X(36)1:Y(37)1:(X1,2(Y1))16X1,2(Y":100:2280B3Z111Y$"TELEPORT TO WHAT LOCATION?":100:2330Q3P102250[32300320:WE$IN$:(WE$)0WE$"0"22203P1(WE$):P11P199Y$"OUT OF BOUNDS.":100:22203P1$(P1):(P1$)1P1$"0"P1$3 Z17TMNP1:2050:3 M$(J8)KK$P2J8Q2J8:P20Y$"THERE IS NO SUCH LOCATION.":U81500:100:2140_2P2$(P2)y2(P2$)1P2$"0"P2$222Z17Y$"MESSAGE NUMBER WHICH SHOULD BE TYPED?":100:2280 3Z16Z110Y$"WHAT IS THE NUMBER OF THE FLAG TO SET?IS NO SUCH OBJECT.":U81500:100:2110J1RP1$(P1):(P1$)1P1$"0"P1$1\Y$"TO WHAT LOCATION SHOULD IT BE MOVED?":100::20:KK$IN$:P20:KK$"PERSON"P2$"00":22001fKK$"LOCATION"P2$"98":22001pKK$"LIMBO"P2$"99":22002zJ81RN:RE MAY NOT BE CHANGED.";::A$:::C0::20:MUD$IN$:MUD$""ıf0 MSSG$(TMN)MUD$:MNTMNMNTMNl0*04Z16Z17Z110Z111ī22200>Y$"WHAT OBJECT SHOULD BE MOVED?":100::20:II$IN$:P10:J71NO:OB$(J7)II$P1J7&1HJ7:P10Y$"THERE CN1:WWWW1:Y$"NO MORE ROOM FOR COMMANDS.":U81500:100:P/MACHCN:1350:/::"MESSAGE NUMBER ";:(TMN);:" IS NOW:"::MSSG$(TMN);:MSSG$(TMN)""Ė16:"UNDEFINED":#0 :"ENTER NEW MESSAGE OR RETURN TO KEEP OLD.":TMN1Ė4:::"THIS MESSAG"NO MORE OBJECTS ALLOWED.":U81500:100:NONO1:W.VAR$"NEW OBJECT":MACHNO:630:]..RNRN1:RN97RNRN1:Y$"NO MORE LOCATIONS ALLOWED.":U81500:100:.VAR$"NEW LOCATION":MACHRN:480:-Y$"LOCATION "DIR$(X)" FROM "VAR$"0:HH$""HH$"END"8+HH$"END"(ACT$(MACH))01890+HH$"END"(ACT$(MACH))0Y$"YOU MUST SPECIFY AT LEAST ONE ACTION.":U81500:100:1800+&J6111:ROUTINE$(J6)HH$Z1J6+0J6:Z10Y$"THERE IS NO SUCH ACTION.":U81500:100:1800,:ZLAG INITIALLY (T)RUE OR (F)ALSE?":100:OP$:OP$"T"OP$"F"1730[*OP$"T"FLAG(NF)1s*OP$"F"FLAG(NF)0}*2050*PS*LGC$(MACH)R1$R2$R3$R5$R4$FLAG$*+P1$"":P2$"":Y$CM$(MACH)" CAUSES WHAT ACTION?":100::20:HH$IN$:Z1R4$)R491780!)PS1R4s)Y$"FLAG NUMBER TO CHECK FOR TRUTH?":100:20:WE$IN$:(WE$)0WE$"0"1690)NF(WE$):NF1NF99Y$"OUT OF BOUNDS.":U81500:100:1690)NF$(NF):(NF$)1NF$"0"NF$)FLAG$FLAG$NF$:TMNNFC*Y$"IS FBJECT.":U81500:100:1590>(TR5$(R5):(R5$)1R5$"0"R5$(^Y$"CHECK HOW MANY FLAGS?":100:20:WE$IN$:(WE$)0WE$"0"1630(hR4(WE$):FLAG$"":R40R499Y$"OUT OF BOUNDS.":U81500:100:1630(rR40R49)|R4$(R4):(R4$)1R4$"0""THERE IS NO SUCH OBJECT.":U81500:100:1540Q',R3$(R3):(R3$)1R3$"0"R3$'6Y$"ACCESS WHAT TO "CM$(MACH)" ?":100::20:VV$IN$:R50:VV$"NONE"VV$""VV$"NONE":R59:1620'@K71NO:OB$(K7)VV$R5K7(JK7:R50Y$"THERE IS NO SUCH O3RED.":"PRESS A KEY TO RETURN TO MENU.";:A$::80:180#A$(8)(0)1(IN$)1ĺ(8);:" ";:(8);:20%A$(8)IN$""30(A$;:A$(13)ı-A$(8)ĺ" ";:(8);:IN$(IN$,(IN$)1):302IN$IN$A$:30<:5:17::E$:: FROUT$(J):J< NOE< J1NO:OB$(J):OL(J):OX$(J):OI$(J):OD$(J):JL< LT< RNs< J1RN:RM$(J):RE$(J):J{< MN< J1MN:MSSG$(J):J< WW< J1WW:PRED$(J):THING$(J):J< (4);"CLOSE";NAME$< 7= :::"A DISK ERROR HAS OCCU MUST BEGIN WITH A LETTER.":U81500:100:2830v;6 Y$"INSERT "NAME$" AND HIT ":100:ML$::(ML$)132870};@ ;J (4);"OPEN";NAMSìBڪöNæ|:Ð|"Êy(9|вzĄ|y(9|в|GC$(J):ACTG$(J):J : (4);"CLOSE";NAME$&: .: _: Y$"LOAD WHAT ADVENTURE?":100:20:NAME$IN$o: NAME$""ı:" (NAME$)1(NAME$)5Y$"SAVE-NAME MUST BE 5 CHARACTERS OR FEWER.":U81500:100:2830.;, ((NAME$,1))65((NAME$,1))90Y$"SAVE-NAME9x TITLE$"9 J199:FLAG(J):JO9 CN:J1CN:CM$(J):LGC$(J):ACT$(J):JW9 NO9 J1NO:OB$(J):OL(J):OX$(J):OI$(J):OD$(J):J9 L9 RN9 J1RN:RM$(J):RE$(J):J9 MN9 J1MN:MSSG$(J):J9 WW: J1WW:PRED$(J):THIN90Y$"SAVE-NAME MUST BEGIN WITH A LETTER.":U81500:100:257082 Y$"INSERT INITIALIZED DISK AND HIT ":100:ML$::(ML$)1326108< 8F (4);"OPEN";NAME$8P (4);"DELETE";NAME$8Z (4);"OPEN";NAME$8d (4);"WRITE";NAME$8n NAME$ 9Y$"TITLE MUST BE FROM 1 TO 39 CHARACTERS.":U81500:100:2550p7 Y$"NAME TO SAVE UNDER?":100:20:NAME$IN$7 NAME$""ı7 (NAME$)1(NAME$)5Y$"SAVE-NAME MUST BE 5 CHARACTERS OR FEWER.":U81500:100:2570?8( ((NAME$,1))65((NAME$,1))