8L xC)pJJJJ IH(ȱH:=IH[H`@H^H 2 9 @   I/H`JLNGȄBȄF aK ' faaFF  RJm# KKJ qJ )J ۈJJm  JFȱJGJKaȄM ' 5aaNNJFLGJ`a  XL LG &PRODOS`DaElH$?EGvѶK+`L XX LU ŠϠĠӥS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RFOR.YOUR.NEXTYY' @&PRODOS"B++PROBABLE.SYSTEM)Y% Y%6SIDE.A%0  L L L Ӡ㭲㮬""C #h)h# )CM86. % )ɀ )ߝ & % ) L"S# )L"K, )7(P0 ( @C p 8  # ": + ##0 {&#0 %|# )5#",bD# ) %ƭ)0I0hx H( , %Щ ߭#f   !"#$%&'()b 8#  )ɀ 4,- Ux xxJNxxT) #L# ) "` #L)Ei/ #3 ### # iL Xj 0 "0Ӡ`#p% F%Z^^^e-.ـ]!0SB}/BiBB}/ iF12m+ {#  L##  m# m# J LD Qר)ɨ] оȱ ̀𩠙 i ȶ O Ѽ G \ ɟU V@$ C ɛL e '8 Jm ʈ0 q 0堠خ YYZLYLY@뿭` 8%!@8` %MNЩUM  L 5   8 0 8  `0 / X  &/ PV 8 )0`ʎ1y&… (nz&Dž (\%Tw&L5()8= (J 8'w&'x& ((ʎ1y&y&y&3223 ')Д (18y&"m11 2H22h2舌y&y&12H)M0 h1020I20h2 `L%12 `_'#L  <8# ȱ)ɀ  )' ` (Xp< @) x'(j21 w& x&!` (x&w&g(i(x&(h( CBDFGE ) ( ((H(h ((o&$ (,z&o& … (ŅL&JJJJ`Ϡ'8`o&  LDž )Vi(( (H(h ((o&/w&(,z&w&( ((o&0(Н` (ɣ`HHHJ)  )hhh %J(֭(Q(`11J  2LB) (8`rȱȱȱȱ0]cȱeem+ȱ+ȱ++ȱ++ȱ+ *+ * *L)`L+ *LJ* * L) *LJ*8e` ,$`ee` `+ %++ A+` T+ %+ A+`hh8`8`+ݫ+ݳ+`}+`e`H)hJJi+0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <x0HH1HH "*,Z(") \i ᘏi᫫8(`hhh8k-<ʆ>Q=?BC8 é&'112`آ <B*IBGF08Lé'+8H <,``h(`@ڍL3HEVhEhH)IWHPHHHAHHHLaVEWLӿ``LL`BL Lޣޣޣޣޣޣޣޣޣޣޣޣޣޣޣ(C)APPLE LLM Mh@x8n,,(Lޭ 0J @,,L:$P׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3Q0h)ύh0HHHH " ׍hhhhhddhh .hh8`JIMJAYKERRY&MIKEhB}_ݝ@JJJJq@)@wwȱ@Hȱ@Ah@@dw "Je ) LyL LyJiB J) xNhHHHHL(  ްƠx@BEOD V ް(`( C)CJJJlBJ,~@~@}J@` ߩ%S @ ~`E hhhߢ ߐ( ߐ ߐ ߐ  ޕϭߍLпllll Q)T 22') ɺihh8` )?  R   ސ `@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`,뎒׮Б` R L ` N@>T)I38 Nefם`K8`ȱ@Nȱ@O@ 9IiNȽבN)/ȩ/N`@[ WHJjjjhA 'KI؍0JHi  뎅`ةC8` ȱ@)0 9-N0 H0 M⭬ih` ; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNΪ0NN` `G8`F@ 0 LyK8`; <I8`FHGH ahGhF܌ բE۽ܕEܝ 밷;< =܅I m>IHHyHȘI 밎Lܝ @d@ l@Ю׍T)mיTʈ@rȱ@dȱ@npqgOyPzT)5TI0ܢܽ jQ'F* a7efFG (HI uL:܅IS mFIH` ur rN0QR \FTHOFPG 밳OP 밨H%܈E" T)Ia)܍S*܍F'ܮ( 4 \䭐 $H %HFFHGHG 됬`R8` )` ` FHT` <<܅IHHTTЍT  jg@`Q8`8 Z ͍΍܅IǮ `Q܍RS $8D`F` eH)HFȍOHGP %܍&܍ܢ8* J8` YL ܝ> &ܝ:`G8iSFQGR`G܅IH3H ( w )ȱHΪ`Ύ8FeHI K@J5 *9X(K *XXK تKo`V8`no` on *I9XX`) HJJJh`OeNeO࿰ *9XБO`@ȭ@` ON NJKO`?>х=<<>=?ّ>ILB* DքEFpCJJJJ֍qQ(`)Cq p"*֭֬)/ )DI@+8`@Ae wUlteIJK,-NOPQRSu' @   !"#$ Ԡͭ HB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDL ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>*L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌18V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``حX  / Xߩϝypz)oW0 ,((0JJJ T{YzX L z^"W""Wp %WY "%(a^ Z\[]?_Z0ZJJJJ)u(((((%_(Z)``ȰZ %_(eZZ[) ɍz [\gz {`)-\t 0Ý t>\  XL eWW\ʈ   WsW0 Le^ɕ7\ UY@XYJXYiȅXYLI*EVJ Tɛ4iH !ФYX 0L VL_)_`\\i]\ȱ\`X]YL{0])VJ   ( ȅo n)iitȄW`W rRwy}+ ,', | x3F~/z)z ޠzn zzziz{й `)٠$ ʮ#Ю#κ ú¬נ(ӶıӮ ԭ\GQ H ?h8 S / ?8 V []bj \ ^e_f a  i  \ 2EL 0 8`0)H ""H"h8 ek)E/8`HZ; [:HZ"h+h`8h`/Ȁ򈘍` L   `H0H"hHHH HHH "hpHH"VHH; [*i)    +hhHH"""8h/ ʎ S` ?8 r 0 88`  Can't run next application.ProDOS Error = $ Please insert the disk: Accept: M Cancel: Esc + '0/ . )莀/ W/! ! "!Ɏ#$)    ̮ / X`+L *! %!'! "! ! ! ɿ` 67`yט,yCy ɽʽ ʠHH @ HJJiʪH . .H ȧ έ,eS f K o ̮,`i@@`SIDE.A' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]浍8LoMeٶLlLi 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``*,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  !"#$>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,&"H*J)j4]hiHx+ "ixhL !"#$%&'()*+,-./0123456789:;<=>?  5 #" * "  (9"1 ( ,.(0  2  /#0/#0 *?'#07#0.-:::'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*%5/*5/*5//#0/#0'#07#0:::*::'#07#0)24(!(+(# /"#/# //E8b ; 4!0X"0"`h !D)"E` @ $ A!` @Q .J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`DTE&y*L HIHHHHhHH݌hHhHh݌H6 VDP ED Z ߼$0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  巬 LҦcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e< 8浅`JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\ HH ^hh`W ԧ H h@ [_ /QIb_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ˆʆ8L õ ĵµ 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 ݲ` ^L̶`浍 x m浅DeCE `m浅maD8 흠 BȱBȄ 3 ȿ ﷕AC ȿLۭΝ `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH Eꈈ췍Ȍ X0 · JLȵCǵB`,յ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`BX1H1V1Q8V1:7H5,Q87H5,Q7H4,Q7H4,Q87H7LM10,Q87H7LM10,Q7H7LM11,Q7H7LM11,Q8"II49168,0:K$"":V:1180: NUM INPUT;SEE 1000 REM;N1+1=MIN ALLOWED;N2=MAX (N2=1-9);NO LIMITS IF N2=0I:H(K$):" ";:IK$K$X$:1010GL(K$)01010GV(K$)1ĖH1:" ";:1000H`H(K$):" ";:K$(K$,(K$)1):1010MH~((K$,1)"0"(K$,1)" ")(K$)1K$(K$,(K$)1):1150}H(K$,1)" "(K$)1K$(K$,(K$)1):1160HK$" "K$""H0:1180:3:I33Č768:29400FK142K$""S11S1:52:1000FK141ĖH(K$):" ";:1150GK224K251KK32sR(N)1((1)N)?sD$(4):KW$(23):KT$(20):KR$(18):K1$(30):KL$(12):KT$(20):K2$(29)AsKZ$(26):KY$(25):767,,0:16368,0sR(N)1((1)N)I?sD$(4):KW$(23):KT$(20):KR$(18):K1$(30):KL$(12):KT$(20):K2$(29)IAsKZ$(26):KY$(25):767,0 JZs:::16302rive and that the":" drive door is closed.":900HrER4Ģ12:" Please remove the write-protect":" sticker from the side of the disk.":900Hr70:EF27,15000,29405HrF61K72:29405:CTRL-EHrII1:1500:II0:K7K:CTRL-E IrEF3:8179,1:2),R$(5),WA$,S1,S2%G&4D$;"CLOSE ST"+G04018:K2$;"Sorry, you have not searched ALL":"the desks. So you may not have found"m.";:9106>012400:900:A1A24A12B1B2312320A>012350k> 023:K2$;9);"SEARCH COMPLETED.":900>"018:K2$;"You now know WHICH circuit boards":"need to be painted.":"Remember these 5 letters."?$0"The circuit boards are in the":"Robot Roo 4.":800:122509=/" TO ";:H23:1200:A2K:K012250q=/K4Ģ20:1:K2$;"A only goes up to 4.":800:12250=/KA1ĺ" STEP -1"=020:9:50:"SEARCH DESK (A,B)":50:6);"NEXT A":50:4);"NEXT B":50 > 024:K2$;6);"Press RETURN to run prograĢ19:1:"B only goes up to 3.":800:12200S(RK7Ģ20:1:K2$;" B only goes up to 7.":800:5965e(W" TO ";:H23:1200:B2K:K05965(\K7Ģ20:1:K2$;" B only goes up to 7.":800:5965(aST1ĺ" STEP ";:H32:LM2:1200:SBK:K05965(bK1Ė24:K1$;%)cV1(B2B1)SB:V2(VK1$;C'JV1(A2A1)SA:V2(V1):V1V2((SA)(A2A1)A1A2)5965'K20:1:K2$;"You can't go from ";A1;" to ";A2;" in ":"steps of ";SA;".":V1V2SA0ĺ"Try a negative step."'L800:5950(M19:7:K2$;"FOR B = ";:V19:H16:LM1:1200:B1K:K05 I17:2I:10:"B=";8I:E&*16:10:"A = 1 2 3 4 5 6 7 8 9";:&>18:1:K2$;" FOR A = ";:V18:H14:LM1:N29:1200:A1K:K05950:INPUT &C" TO ";:H21:1200:A2K:K05950&HST1ĺ" STEP ";:H30:LM2:1200:SAK:K05950'IK1Ė24::e%I15:(7S1S2);:J399S1S2399::23:12:K2$;:J399S1S2399::" CORRECT!"::900%(CT$)0Ģ18:1:K2$::" Now try another board.":%% 70:3:I9422014:I,4I,116:: DRAW GRID%J411616:94,J220,J:&I,116 - 16 * B TO I,132 - 16 * B: NEXT Z$J11616B13216B2:8014A,J9414A,J:z$ I = A:J = B: GOSUB 5999 $(7S1S2);:I1300::::3:$ NEXT:NEXT : HCOLOR= 3: RETURN %99:23:9:K2$;"Short circuit in board ";BD$;"!";:8002:5999:::FF0İ5190: CHECKERBOARD WHOLE E#ST1:5950:5800x#A1A29A13(SA)2B1B27(SB)2İ5875:#5850:5600#3:AA1A2SA:BB1B2SB: PAINT;JAZZ UP W DITHERING?($ FOR I = 80 + 14 * A TO 94 + 14 * A STEP 2: HPLOT Robot Room,President's Office,Receptionist's Office,Board Room,Comptroller's Office,X&|y LOOK,GET,DROP,INVENTORY,HELPOSH,SKATEBOARD,SKATEBOARD,SUIT,SUIT~"y Lobby,Guard Room,X*,y V.P.'s Office,Gym,Workshop,Storage Room,Manager's Office,X`6y Library,Telecommunications Rm,Computer Lab,X@y File Room,Security Office,Engineers' Room,Locker Room,XJy15:RM$(0,FL)"Hallway":RM$(1,FL)"Elevator":RM$(2,FL)"Stairwell":I2: RM NAMES"~tII1:RM$(I,FL):RM$(I,FL)"X"29828-~t29824:~tFL:FL0O~tI15:VB$(I):Z~t15000~u KEY,KEY,CROWBAR,CROWBAR,CLAMP,CLAMP~u PAINT BRUSH,PAINTBRU$(20):KR$(18):K1$(30):KL$(12):KT$(20):K2$(29):KZ$(26):KY$(25):767,0E}ds:::16302,0:16368,0:232,0:233,64:0:1:255:33,38:32,1:KY$i}gtI124:J:: MUSICDATA AT 102}htI110:CR$(I)""::CR0:I16:BJ$(I),BL$(I):}|tFLЫ27,15000,15020,15020,17699,29405{rII1:1500:II0:K7K: CTRL-E |rEF6:8179,1:K71İ13200:8179,2E|r70:13:13:"Please wait...":D$;"RUN NEW.OLD"w|sR(N)1((1)N)|@sD$(4):KW$(23):KT12:" Please make sure that the diskette":" is in the disk drive and that the":" drive door is closed.":900u{rER4Ģ12:" Please remove the write-protect":" sticker from the side of the disk.":900{r70:EF5İ15950:15050:RET FR HELP {rEFI,140::(7S1S2);:zL0:I13561:I,81I,140:271I,81271I,140::3:(7S1S2):: DR OPENSzL3:I05:I,140I,75I271I,75I271I,140::: DR FRAME ztr70:1:(1):D$;"CLOSE":768:ER(222):ER255Ŀ: ERR ROUTINE {~rER8Ģ xKTW$;:3:6(FL):(2);"D";(3);"B";FL;: LITE # xL1:(2);"A";(3);"B";: y1L520,42:y2L6242,42:`yL1:I6135:I,81I,140:271I,81271I,140:: DR CLOSE yL3:I134136:I,81I,140::(7S1S2);:yL3:I138140:I,81wdK0:A42FL842NF81:A,Y11A,Y21:I180:xgKA842((A8)42)A42SF8FLFL1:19400:(7S1S2);5xnKK(16336S1S2)::hxK24:5:"To open doors, just press RETURN.";:xKTW$;:3:6(FLUD):(2);"D";(3);"A";FLUD;: UNLITE #19506: DOWN vJ3:19400:I16:(7S1S2);:J175:::FLNF:19090'wK3:A42FL842NF8:A,Y11A,Y21:I180:fwKA842((A8)42)A42SF8FLFL1:19400:(7S1S2);w KK(16336S1S2)::FL5āA219222:A,Y11A,Y21:w K0:58005"'A1A25(SA)2B1B218(SB)1İ5875:E",5850:5400"|5900:I19:J172:5999:::FF0İ5190: HORIZ STRIPES WHOLE"ST1:5950:5800"A1A29A13(SA)1B1B27(SB)2İ5875:"5850:55000#5900:I192:J17ǫ5208M!5900:I192:J17:5999:::FF0İ5190: VERT STRIPES WHOLE b!ST1:5950:5800!A1A29A13(SA)2B1B27(SB)1İ5875:!5850:5300!5900:I152:J36:5999:::FF0İ5190: VERT STRIPES PARTIAL ""ST1:595R(8D):AFAID15 VD2R(3):BI1R(6D):BFBID1y X5900:IAIAF:JBIBF:5999:::FF0İ5190: DRAW GRID&#S ZST1:5950:5800:INPUT&PAINT _((A1AIA2AF)(A1AFA2AI))((B1BIB2BF)(B1BFB2BI))(SA)1(SB)1İ5875:!d5850:on floor ";FL;".";:800:19100vJNF0Ģ22:1:K2$:19610:50:RM1:X5:Y1:3QC:15002:vJNF1NF5Ģ23:1:"You can't go there.";:800:19100vJ40:WA$"":3:SFFL:NFFLİ19505:UD1:19200:0:19505:UP DISPL vJNFFLİ19506:UD1:19300:0:."tJ19450:20:1:KR$;"You're in the elevator at floor ";FL;"."5uJ22:1:K2$;" FOR FLOOR = ";FL;" TO ";: FL CHANGE INPUT;NF=NEW FLOORZuJV22:H20:LM1:19399:1200:NFKwuJNF0NFFLĺ" STEP -1";uJ" : NEXT";:NFFLĢ23:1:"You're already X1,Y1saJAX12X11:A,Y1A,Y2::AX21X22:A,Y1A,Y2: tdJ0:AX11X21:A,Y11A,Y21::34tfJ3:AX1142FL7:A,Y11A,Y21:]thJ19650:19600: DRAW FRAME&CLOSE DRStjJ20:1:(2);"A";(3);"B";KR$;"You're in the Elevator at floor ";FL;"1X2,Y1X2,Y2X1,Y2X1,Y1rMJAX12X11:A,Y1A,Y2::AX21X22:A,Y1A,Y2:sOJ2:AX11X21:A,Y11A,Y21:TsVJKT$;KW$;:3:6:(2);"D";(3);"A";"1 2 3 4 5"isXJ0:19505:19506s[JX144:X2222:Y132:Y250s`J3:X1,Y1X2,Y1X2,Y2X1,Y2qD:" INVENTORY....to see what you have"::" HELP....to see this screen":14101=r#EEF5:890:70:15950:4000:15600:GD2:: 15950=DRAW/LOAD FLNr8J70:3:ELEVr9JTW$KT$KW$:F70:I12:DL(I)0:: LOCK DRSr?JX14:X2264:Y15:Y250:3rLJX1,Y\DKCR:I1K:BK$(I)CR$(I):: INVENTORYpfDK$"You have ":17238:qD70:KT$;KW$:2:11:"COMMANDS";KR$qD6:" From ACT mode, type:":::" LOOK....to see what's in a room"::" GET....to pick up an object"::" DROP....to drop an object"L$(I)17440oD"You've dropped the ";CR$(I);".";:J0pDJJ1:CL$(I)BL$(J)LC(J,1)RM:LC(J,2)FL:17436pD17433`pDCR$(I)CR$(CR):CR$(CR)"":CL$(I)CL$(CR):CL$(CR)"":CRCR1:pp DICR17410p*D"You're not carrying the ";(K$,(K$)4);".":pre.";:nCI0:K$"DROP"GD1:"Drop what?";:nC(RM2)(FL4RM4)17410coC52:22:1:"You may not leave things in":"the ";RM$(RM,FL);".";:FL4RM4ĺ" Someone might trip.";ioCoDII1:(K$)(CL$(I))CR017440o D(K$,(CL$(I)))CL$(I)))BL$(I)17340mCJJ1:BL$(I)CL$(J)ĺ"You already have the ";BJ$(I);".";: nCJCR17327{nCRMLC(I,1)FLLC(I,2)LC(I,1)99:CRCR1:CR$(CR)BJ$(I):CL$(CR)BL$(I):"You now have the ";BJ$(I);".";:nCI617310: 6OBJSNOWnC"It's not he a ":BK$(2);", and a ";BK$(3);".":K3ımCK4K:900:KK43:I1K:BK$(I)BK$(I3)::K$"You also see ":17238?mCI0:K$"GET"GD1:"Get what?";:tmCCR2ĺ"You may not carry more than 3 items.";:mCII1:J0:(K$)(BL$(I))17340mC(K$,(BLC(I,1)RMLC(I,2)FLKK1:BK$(K)BJ$(I)kNCIkQCK$"You see ":17238: lUC 17238-17290 IS SUB lVC22:1:K2$;K$;/lXCK217280GlZCK0ĺ"NOTHING.";:dl\CK1ĺ"a ";BK$(1);".";:l^CK2ĺ"a ";BK$(1);" and a ":BK$(2);".";:lC"a ";BK$(1);",BI0:23:1:K1$;jBII1:K$(VB$(I),1)I2I3K$VB$(I):17090 kB(K$)(VB$(I))17070+kB(K$,(VB$(I)))VB$(I)17090:kBI517050\kB"Can't do that.";:99:GD1:kBI17200,17300,17400,17500,17600k0CK0:P0:I16: LOOK;6 OBJSkDC ";i>": NEXT";:40i>XMX(XY1)(KX):YMY(XY2)(KY)i>2000:RM1ıj>900:ijhBGD0:22:1:K2$:"Type a command or type 'H' for HELP.":" Press RETURN for MOVE mode.";:ACTj|BV22:H1:LM30:1000:23:1:K2$:7000:K$""ġ:15500j5h>(XY1KX)(XY2KY)İ99:23:5:"You're not there.":800:22:1:K2$:16005 i>14:"TO"*i>H18:LM2:1200:K016005i>K1KXN(XY1)YN(XY2)İ99:23:5:"You can't go there.":800:22:1:K2$:16005i>KX(XY1)Y(XY2)ĺ" STEP -1";g>V22:H7:LM1:1000g>K$""ġ:15500: SWITCH MODEOh>K$"X"K$"Y"K$"x"K$"y"İ99:23:5:"Move in X or Y direction only.";:800:22:1:K2$:16005yh>40:XY1(K$"Y"K$"y"):1FORX;2FORYh>22:9:"="h>H11:LM2:1200:K01600URN to continue.";g>N22:V24:H33:BX0:LM1:1000:BX1:N20:K$""K$"C"K$"c"16007#g>K$"C"K$"c"Č768:190003g>23:1:K2$}g>22:1:K2$:21:1:" ":22:2:" FOR ";g>24:6:"(Press RETURN for ACT mode.):2485 fU>FL2WA$"311321331332232432441451452251261412612611621631641651722822922752952052":2485-fV>SHXIXXD15,YIYYD135:Jf>MOVEINPUT;MOVE AT 16120[f>RM116010f>22:1:K2$:" Type 'C' to close Elevator doors, OR":" press RETJ:da=FL5ē121XI,10121XI,130eh=I22:XII,10IXFI,10IXFI,130IXII,130IXII,10I::3QC:1eN>70:15700:200:DR FLSJeQ>1:16:"FLOOR ";FL;ieR>(FL3FL4)WA$""İ2485eT>FL1WA$"311321331341342142412612611621631641742842042"MODE SWITCH c<15050c<21:31:MD1ĺ" MOVE ";c V(K$)1ĖH1:" ";:1000h `H(K$):" ";:K$(K$,(K$)1):1010 ~((K$,1)"0"(K$,1)" ")(K$)1K$(K$,(K$)1):1150 (K$,1)" "(K$)1K$(K$,(K$)1):1160 K$" "K$"" 0:1180:3:u33Č768:294001 K142K$""S11S1:52:1000Q K141ĖH(K$):" ";:1150i K224K251KK32 II1K206K217Ģ23:33:" ":1000 K136K2551100:BACKSPACE (K$)LM1010 K160K2501010 X$(K128):H(K$):X$;: continue."; 49168,0; K(49152):K133Č768:29400R K141K160920e 24:1:K1$;: 49168,0:K$"":V:1180: ALPHANUM INPUT; AT H,V;BX=1 FOR CURSOR BOX;LM=MAXLENGTH :H(K$):" ";: K(49152):K1281015 49168,0:K1)96:A(2)76:A(3)64:L13:WINMUSIC w eR13:940,A(R):941,150:942::J13:K13:940,A(K):941,50:942::: f940,48:941,255:942:942: 24:1:K1$;" Press RETURN to try again.";:910 z23:905 24 8:"Press RETURN to768:13200:8190,18 1:(1):FL10ĺD$;"RUN FLOORS"L D$;"RUN ROOMS"g 2L111999::: PAUSEy 3L11199:: 4L1112000:: 5L111300:: F33,40:32,0:KL$:33,38:32,1:: WIPE cL2180:L8(16336S1S2)::: FART' dA(1HB FOR YOUR NEXT ADVENTUREOCOPYRIGHT 1985 - SUNBURST COMMUNICATIONS a "MOREROOMS"m293000:242,64200,106200,46242,4242,6429500ZB16336S1S2:ZC125:ZD(ZB)::70:13:13:"Please wait..."; EF1:                                  A";:50fk24:5:"Press RETURN to run program.";:910:gn VTAB 16 - 2 * J: HTAB 12 + 2 * I: PRINT "*": RETURN ?go2:88314I,12716J:3:}gXP0:KB$"": CUT ALL BUT LETS&#S FROM K$ AND MAKE CAPS g](K$)2ıgbPP1glP(K$)K$ecV1(B2B1)SB:V2(V1):V1V2((SB)(B2B1)B1B2)5990Tfd21:1:K2$;"You can't go from ";B1;" to ";B2;" in ":"steps of ";SB;".":V1V2SB0ĺ"Try a negative step."cfe800:5965ff50:20:9:"PAINT SQUARE (A,B)":50:7:"NEXT B":50:5:"NEXT:LM1:1200:B1K:K05950dRK7Ģ20:1:K2$;" B only goes up to 7.":800:5965#eW" TO ";:H23:1200:B2K:K05965^e\K7Ģ20:1:K2$;" B only goes up to 7.":800:5965eaST1ĺ" STEP ";:H32:LM2:1200:SBK:K05965ebK1Ė24:K1$;K05950cIK1Ė24:K1$;dJV1(A2A1)SA:V2(V1):V1V2((SA)(A2A1)A1A2)5965rdK20:1:K2$;"You can't go from ";A1;" to ";A2;" in ":"steps of ";SA;".":V1V2SA0ĺ"Try a negative step."dL800:5950dM19:7:K2$;"FOR B = ";:V19:H1611616:94,J220,J:b I17:2I:10:"B=";8I:c*16:10:"A = 1 2 3 4 5 6 7 8 9";:Uc>18:1:K2$;" FOR A = ";:V18:H14:LM1:N29:1200:A1K:K05950:INPUT |cC" TO ";:H21:1200:A2K:K05950cHST1ĺ" STEP ";:H30:LM2:1200:SAK:it in board ";BD$;"!";:800:#bI15:(7S1S2);:J399S1S2399::23:12:K2$;:J399S1S2399::"CORRECT!"::900cb(CT$)0Ģ18:1:K2$::" Now try another board.":ibb 70:3:I9422014:I,4I,116:: DRAW GRIDbJ4 94 + 14 * A STEP 2: HPLOT I,116 - 16 * B TO I,132 - 16 * B: NEXT aJ11616B13216B2:8014A,J9414A,J:MAsKZ$(26):KY$(25):767,0\MZs:::16302,0:16368,0Ms232,0:233,64:0:1:255:33,38:32,1:KY$M/u15000L,29405)LrII1:1500:II0:K7K: CTRL-E =LrFL14FLDL(4)cLrEF3:8179,1:K71İ13200:8179,2Lr70:13:13:"Please wait...":D$;"RUN NEW.OLD"LsR(N)1((1)N)M?sD$(4):KW$(23):KT$(20):KR$(18):K1$(3055Ŀ:ERR ROUTINEK~rER8Ģ12:" Please make sure that the diskette":" is in the disk drive and that the":" drive door is closed.":900KrER4Ģ12:" Please remove the write-protect":" sticker from the side of the disk.":900Lr70:EF27,15000),R$(2),R$(5),WA$,S1,S2*J&4D$;"CLOSE ST"0J04VJ:EF2:SH4:BX1:13300: READ ST dJ:SH4:BX1kJ:3vJ:K(0)J:FL10FL1525J:FL108000,9000,6000,5000,4000JU1:"EXPT. AT 22000";:X$:Ktr70:1:(1):D$;"CLOSE":768:ER(222):ER21:S2I3D$;"CLOSE ST"I3UI31:(1):D$;"OPEN ST": READ ST SUB gI3D$;"READ ST"I4F7,FL,X,Y,RM,CR,PHI 4I110:DL(I):I4J12:I16:LC(I,J)::: 6OBJSNOWI4I16:CR$(I),CL$(I)::CB$J4CA,CP:CF$,PB$,PC$,CB$,R$(1B #H3D$;"DELETE ST"5H3D$;"OPEN ST"HH3D$;"WRITE ST"wH3F7:FL:X:Y:RM:CR:PH:I110:DL(I):H3J12:I16:LC(I,J)::: 6OBJSNOWH3I16:CR$(I):CL$(I)::CB$I3CA:CP:CF$:PB$:PC$:CB$:R$(1):R$(2):R$(5):WA$:S:9900:PSPXGU&:IG&KR$;:3(6R):4C6:" ";TW$: ERASE SMALL G&3(6R)1:4C5:PS1ĺ(LE$,7RC7,1);KR$;(7S1S2);:I1PS::G&" ";KR$;:: ERASE BIG G&G$(G)G$(G)(LE$,7RC7,1):H31:(1):D$;"OPEN ST": WRITE ST SUC7,1);F%: SM LETS 2FH&G$(G)"":XY19810_FI&CG1:RG2G31:9920:B$(C,R)""İ9900FJ&B$(C,R)""PXPS:PS0:9900:PS500:9900:PSPXFK&::PRINT BIG SUB FR&RG1:CG2G3:9920:B$(C,R)""İ9900 GT&B$(C,R)""PXPS:PS0:9900:PS500: RETURN E&% IF XY = 2 THEN C = G1: FOR R = G2 TO G3 STEP - 1:PS = 0: PRINT TW$;: GOSUB 9910: NEXT : GOSUB 50: FOR R = G2 TO G3 STEP - 1:PS = 9: PRINT TW$;: GOSUB 9910: NEXT : GOSUB 50: RETURN E0%F%KR$;:3(6R):4C6:B$(C,R)""ĺ(LE$,7Rs phrase will be very useful in":"the Telecommunications Room.";:900_DS$FL3:RM3:25: EXIT E% IF XY = 1 THEN R = G1: FOR C = G2 TO G3:PS = 0: PRINT TW$;: GOSUB 9910: NEXT : GOSUB 50: FOR C = G2 TO G3:PS = 9: PRINT TW$;: GOSUB 9910: NEXT : GOSUB 50G3ĺK2$;" You have ";G;" of the code words.";:900:9100C@$K2$;" You now have all three code words.";:I15:(7S1S2);::900CJ$20:K2$:"These code words make up the code":"phrase: ";AN$(1);" ";AN$(2);" ";AN$(3);".":900FDM$20:K2$:"ThiPS1:9800:GG1: ERASE BIG DB$XY1RG1:CG2G3:9700::9100mB$XY2CG1:RG2G31:9700::9100B,$I15:(7S1S2);:9500::23:16:"CORRECT!";:900B1$XY1RG1:CG2G3:B$(C,R)"1":B2$XY2CG1:RG3G2:B$(C,R)"1":=C6$22:1:ou've already guessed this word.";:800:GG1:G$"":9100iA#CC0:I13:G$(G)AN$(I)CC1: CORR GUESSoA$~A$CC19260A$G$(G)"ROBOT"G$(G)"HUMAN"ĺ"You're wrong, but close.":9227A $"This is NOT one of the code words.";:99B $800:G$"":"STEP -1";@#" : NEXT";:G3Kz@#G3(32XY)G2(32XY)İ99:23:1:"Read from ";A$(XY2);" only please.";:800:9100@#GG1:G$(G)"":PS500:9800:PRINT BIG LETS;PS=PAUSE@#23:1:G29215@#CC0:I1G1:G$(G)G$(I)CC19A#:CC1İ99:"Y20:1:K2$;4);A$(XY);" = ";:V20:H9(A$(XY)):N252(XY1):LM1:1200:G1K:K09100d?#XY3XY?#22:1:K2$;"FOR ";A$(XY);" = ";:V22:H9(A$(XY)):N25(XY1):LM1:1200:G2K:K09100?#" TO ";:HH8:N252(XY1):1200:K09100 @#KG2ĺ0b>#20:1:K2$;" Do you want a ROW or a COLUMN":" of letters?":V22:H1:LM6:1000:7000v>#K$"R"K$"ROW>#K$"C"K$"COLUMN">#K$"ROW"K$"COLUMN"Ģ23:7:"Choose ROW or COLUMN.":800:9100>#XY1(K$"ROW"): 1 FOR COL,2 ROWX?#"":::K(0)*=Z#R15:C17:9700::=d#21:5:"Three code words are hidden in":" the array of letters above.":900>n#20:1:K2$;"When you find a word, type the":"number of its row or column. Then":"complete the FOR...NEXT statement.":90P2AN$(1)"HUMANS":AN$(2)"ARE":AN$(3)"WEAK":LE$"IHUMANSTUROJLBXEWEAKYABFRMAZNTGAJCB"#CP1AN$(1)"ROBOTS":AN$(2)"MUST":AN$(3)"RULE":LE$"JEBUHQWILUDVNLMUSTEXABROBOTSAXYTALZ"X<@#Cu have ";GL;" guesses left.";B:b 900:C(SQ1)CGR(SQ1)RG8200u:g 4:87216CG,13216RG:3:20:1:K2$;:8210:(#70: LIBR (FL=12):*#2:J212224:56,J252,J::I5625228:I,2I,122::,#I15:3I:2:"ROW=";6I:;.#18:1:"COLUMN = 1:C(SQ)CGĺA$(5(RGR(SQ)));".";:8270R9: R(SQ)RGĺA$(3(CGC(SQ)));".";:82709D A$(3(CGC(SQ)));" and ";A$(5(RGR(SQ)));".";9N GLGL1:GL08150: WRONG ANS SUPERVISOR9S GL1Ģ22:1:K2$;"You have ONE guess left.";:8290:X 22:1:K2$;"YoCGC(1)RGR(1)İ99:23:1:K2$;"You've already found that square.";:800:8210~8" 7:87216CG,13216RG:3:DISPLAYGUESS8$ 20:1:K2$;"Your guess is ";8& C(SQ)CGR(SQ)RGĺ"CORRECT!";:X17:(7S1S2);::8100:SQSQ1:SQ18270,8120'90 99:CGK:K08211R7 CG1CG7Ģ23:1:K2$;"There is no column ";CG;".":800:82107 22:1:K2$;" Row?";:V22:H9:LM1:BX0:1200:BX1:RGK:K08210:ROWGUESS 7 RG1RG7Ģ23:1:K2$;"There is no row ";RG;".":800:82207 19:1:K1$;P8 SQ2R(7):C(1)C(2)8190?6 R(1)R(7):R(2)R(7):R(1)R(2)81956 VTAB 1: HTAB 1: PRINT C(1);R(1): VTAB 2: HTAB 1: PRINT C(2);R(2); 6 19:1:K2$;4);A$(SQ);" try to find square ";SQ;"."6 21:1:K2$;"Column?";7 V21:H9:LM1:BX0:1200:BX1 TEXT : HOME : HGR : POKE - 16302,0: POKE - 16368,0 W53:3:(7S1S2)`52005GL105GG:SQ1:20:1:K2$;"You may try again. But the code":"buttons have been moved. This time":"you have ";GL;" guesses.";:9006C(1)R(7):C(2)R(SQ):6716C(SQ),Y8316C(SQ),Y::3:900:422:1:K2$;" THE DOOR IS NOW UNLOCKED.";:900:DL(1)1: UNLOCKS DR FOR 2600+4X10:Y3:FL2:25: FLOORS 4GGGG1:22:1:"You have run out of guesses.";:900A5old":" whether your guess is:":" --too far left or right":" --too high or low.";:9003|SQ1:A$(1)"First":A$(2)"Now":A$(3)"TOO FAR LEFT":A$(4)"TOO FAR RIGHT":A$(5)"LOW":A$(6)"HIGH":8190: SQ 1 GUESS .45:Y12116R(SQ)13716ODE SQUARES on the electronic lock":" above.";:9002h20:4:K2$;"You have 10 tries to find the two":" code squares. You will need to":" guess a column and a row.";:900:GG0:GL10:GUESSES LEFT a3r20:3:K2$;"After each guess, you will be tAPS 1](K$)2ı1bPP131lP(K$)K$KB$:F1vK((K$,P,1))[1K48K1227010r1KB$KB$(K):70101@200: CODE DR RM (FL=11)1B 8000'S LOGIC INEFFICIENT52^20:11:"The door is locked!":" To get in you need to find the two":" CB12)9(IB22),1178I::3/0F1F46830M0IS:S113:6890::SI:018S:312S:" ":18S:312S(S9):S:19S:312S:" ":019S:92S(S9):"^":0N19S:312S:"^":1XP0:KB$"": CUT ALL BUT LETS&#S FROM K$ AND MAKE C:=/18S:92S:" ";:92S:S:19S:92S(S9):" ":j/2:70:211,125198,125:211,126198,126/I011:19814I,1268I19814I,1188I18414I9(IB12)9(IB22),1188I:0I011:19814I,1258I19814I,1178I18414I9(Iг 126: DRAW STAIRS & #S |.I011:8914I,1268I8914I,1188I10314I9(IB12)9(IB22),1188I::257,30261,30.I011:8814I,1258I8814I,1178I10214I9(IB12)9(IB22),1178I::256,29261,29:3/IS:S113:6840::SIN20:H30:LMLM(F3):1200:STK:K06602}-": NEXT";:(ST)4Ģ22:1:K2$;"No more than 4 stairs at a time.";:800:6600--,SH6014S,1318S::DRAW SHAPE -^F1F46700-_SH21414S,1318S:.2:70:74,12588,125:74,12689,;: INPUTM,20:1:K1$;"FOR STAIR = ";:LM2:N20:V20:H13:1200:K06602,KSĢ22:1:K2$;"You're not there.";:800:6600," TO ";:H21:1200:SMK:K0KS6602,K1K13Ģ21:1:K2$;"You can't go there.";:800:6600*-" STEP ";:N10:_+SSMĢ21:K2$:" You are now on stair ";S;".";:900:SD16830,6880:SD16940,6990:+SD0İ6700:SSST:6700:6940+SD1İ6750:SSST:6750:6990+20:I1999::6542 ,BX1:20:1:K2$;:SB0SB1:22:"You begin on stair ";S;"."N*(ST)1(SSM)1Ģ22:1:K2$;" Go on. Take a bigger step.";:800:*SD16700,6750:53:SD16700,6750:20:K1600:+(F2F3FL13)(SB1SB2)İ99:22:1:K2$;"You've hit a broken stair!";:800:6750:S112(F2):6750:BS1:6880:".":900+)DL(3)1:X10:Y6:FL2:RM2:25M)dBS0:SW0:SSM6541:MOVE w)nX(ST(SMS))((SMS)ST):X16540)xSW1:99:22:1:K2$;" You can't go from ";S;" to ";SM;" in":" steps of ";ST;".";:X1ST0ĺ" Try a negative step.";*800:(S16307T(22:1:K1$;" You're now on Floor 2.";:900:LC(5,1)996330(21:1:K2$;"For faster movement around the":"floors, you might want to use the":"SKATEBOARD.":900)21:1:K2$;"Check the ";R$(5);".":"It's on Floor ";LC(5,2);,6),C(2),R(2)Z>sR(N)1((1)N)8[@sD$(4):KW$(23):KT$(20):KR$(18):K1$(30):KL$(12):KT$(20):K2$(29):KZ$(26):KY$(25):767,0}[ds:::16302,0:16368,0:232,0:233,64:0:1:255:33,38:32,1[tKY$[/u15000:se remove the write-protect":" sticker from the side of the disk.":900ZrKL$:EF25,29405(ZrII1:1500:II0:K7K:CTRL-E NZrEF2:8179,1:K71İ13200:8179,2Zr70:13:13:"Please wait...":D$;"RUN NEW.OLD"Zm0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]浍8LoMeٶLlLi 0):%I1NI:7:I;". ";W$(I)::R23:3:"Type number and press RETURN:";BX0:V23:H33:LM1:N2NI:1200:K01562BX1:ND0:70:V13:3:KT$;KW$;"FOR ";KR$;KT$;"Your";KW$;" NEXT ";KR$;KT$;"Adventure";KR$:171270Z2:V11::W$(0)423:3:"Type answer and press RETURN:";v23:33:" ":BX0:V23:H33:LM1:II1:1000:II0:K$""1462K(K$"Y")2(K$"N"):BX1:ND0:66:T$""1530: MENU68:4:1(18.5(T$)):KT$;KW$;T$;KR$:T$"":NI0ı8:6:W$(" ";:12005PH(K$):" ";:K$(K$,(K$)1):1240sn((K$,1)"0"(K$,1)" ")(K$)1K$(K$,(K$)1):1390pK$" "K$""sK(K$):0:1180:3:N10:N20:x66:T$""1430:MENU268:4:1(18.5(T$)):KT$;KW$;T$;KR$:T$""9:6141ĖH(K$):" ";:13909K136K2551340:BACKSPACEa(K171K173K176)(K185)1250pN201290(N2)K176N2K(N2)(177N1)1250 (K$)LM1240X$(K128):H(K$):X$;:K$K$X$:1240<(K$)01240 F(K$)1ĖH1:,Q7H7LM18,Q7H7LM18,Q8&  49168,0:K$"":V:1180: NUM INPUT;SEE 1000 REM;N1+1=MIN ALLOWED;N2=MAX (N2=1-9);NO LIMITS IF N2=0 :H(K$):" ";: K(1):K(49152):K1281250 49168,0 K148K$""F51Č768:17000K)1ĖH1:" ";:1000> `H(K$):" ";:K$(K$,(K$)1):1010| ~((K$,1)"0"(K$,1)" ")(K$)1K$(K$,(K$)1):1150 K$" "K$"" 0:1180:3:FE0: BX1H1V1Q8V1:7H2,Q87H2,Q7H3,Q7H3,Q87H7LM17,Q87H7LM17:15006' K141ĖH(K$):" ";:1150? K224K251KK32k II1K206K217Ģ23:33:" ":1000 K136K2551100:BACKSPACE (K$)LM1010 K160K2501010 X$(K128):H(K$):X$;:K$K$X$:1010 L(K$)01010 V(K$(49152):K133Č768:130001 K141K160920B FA1FA0:U 24:1:K1$;: 49168,0:K$"":V:1180: ALPHANUM INPUT; AT H,V;BX=1 FOR CURSOR BOX;LM=MAXLENGTH :H(K$):" ";: K(49152):K1281015 49168,0:K133FE1FE0:76823:6:"Press RETURN to continue.";1 49168,0S K(49152):K133Č768:15010j K141K160793w 24:1: 24:1:K1$;" Press RETURN to try again.";:915 z23:FA1:910 24 6:"Press RETURN to continue."; 49168,0 K/ FOR Your NEXT AdventureO COPYRIGHT 1985 - SUNBURST COMMUNICATIONS _ "NEW.OLD"k29300v29500BK523:K:K1$:::WIPE/LEAVEBORDER&HEAD DK223:K:K1$:::WIPE/LEAVEBORDERF32,0:33,40:KL$:32,2:33,36::WIPE$               < 232,80:233,65:I17:I7416I,135:I7516I,135:x I17:I70,13216I:I71,13216I::232,0:233,64: 24:1:K1$;" Press RETURN to try again.";:910 z23:905 24 8:"Press RETURN to continue."; 49168,0 K(43,J195,J:Y I01:82I,8I196I,8I196I,122I82I,122I82I,8I::84,984,121 3:232,8:233,66:I17:K13216I:142,K:143,K:249,K:250,K:356,K:357,K:1063,K:1064,K: I410:I7I914(I10),135:I7I814(I10),135:REROOMS"! 2L51999:::PAUSE4 3L512000::F 5L51250::q F33,40:32,0:KL$:33,38:32,1::WIPE cL2180:L8(16336S1S2)::: FART d MORE NOISES KL$:5: DRAW CODE DR SCREEN I8319516:I,9I,121::J912116:8E LOOPER<COPYRIGHT 1985 - SUNBURST COMMUNICATIONSJ"ROOMS" V29300a29500ZB16336S1S2:ZC125:ZD(ZB)::70:13:13:"Please wait...";EF1:768:13200:8190,11:(1):FL10ĺD$;"RUN FLOORS" D$;"RUN MO                        :K14817000: CTRL-T/:KF2İ14000:15010]:66:14:5:"Type name used in old game:":BX0:V16:H15:LM10:FE1:1000:KS$K$:7000:BX1:K$""15022:FQ0:I118:N$(I)K$FQ1:NMI::FQ115100e:66:W$(0)(8)"There is no file unde mission instructions":W$(3F)"End"R:T$"":NI3F:N23F:LM1:F51:1500:F50f:K1N4015200z:K1N4015200:K1İ70:13:13:"Please wait..."::EF2:31000:D$(4):15900:13500:S11:13200:1:(1):D$;"RUN TUNNEL":KF329415$;"OPEN NAMES"#:D$;"READ NAMES"?:I118:N$(I),DT$(I):[:D$;"CLOSE NAMES":1700:F0:N40:I118:N$(I)""F1:N$(I)""N41:%:66:W$(0)"Do you want to:":W$(1)"Begin an adventure":W$(2)"Continue saved adventure":W$(2F)"Seou":"left off.":790:7GOSUB 70: HCOLOR= 2: FOR I = 0 TO 2: HPLOT I,2 + I TO 278 - I,2 + I TO 278 - I,190 - I TO I,190 - I TO I,2 + I: NEXT : HCOLOR= 3: RETURN : REM BORDER: FORMAT: NAME,DATE (6 DIGITS),NAME,DATE,ETC::EF1:1:(1):Dys stay":"open. Keep trying, and you will":"find it.":790666:7:"You can stop and save your game":"at any time by holding down the":"CONTROL (CTRL) key and pressing 'E'."6:"Later you will be able to start":"your adventure exactly where ytunnel under the building. To":"enter the first floor, you must move";:"the robot under an open trap door."6:"For security reasons, most of the":"trap doors will close as soon as"=6"you are under them. But there is":"ONE door that will alwangs."6:"You must help your friendly robot":"find the dangerous robot and fix":"its Safety Circuits. This is not an";:"easy job because security is tight":"at the Robot Corporation.":790n666:7:"The friendly robot is now waiting in";:"the trust":"this robot."B6:" But it needs your help!!!":790666:7:"You learn from the friendly robot":"that someone in the building has":"created a robot with bad Safety":"Circuits. This robot is very":"dangerous and CAN hurt human":"beiCF$,PB$,PC$,CB$,R$(1),R$(2),R$(5),WA$,S1,S22j6E666:INTROTEXT67:"You have just met a friendly robot":"which has escaped from the Robot":"Corporation. Because it contains":"Safety Circuits, this robot CANNOT":"hurt a human being. You can2:I16:LC(I,J)::: 6OBJSNOWC5I16:CR$(I):CL$(I)::CB$6CA:CP:CF$:PB$:PC$:CB$:R$(1):R$(2):R$(5):WA$:S1:S26L6F7,FL,X,Y,RM,CR,PH:I110:DL(I):V6J12:I16:LC(I,J)::`6I16:CR$(I),CL$(I)::CB$,e6CA,CP:SOUNDS": WRITE N]4D$;"DELETE SOUNDS":D$;"OPEN SOUNDS":D$;"WRITE SOUNDS"ob4S1:S2:D$;"CLOSE SOUNDS":41:(1):D$;"OPEN SOUNDS": READ 4D$;"READ SOUNDS":S1,S2:D$;"CLOSE SOUNDS":5F7:FL:X:Y:RM:CR:PH:I110:DL(I):!5J131:(1):D$;"OPEN ST": WRITE ST SUB =3D$;"DELETE ST"O3D$;"OPEN ST"b3D$;"WRITE ST"m3138003D$;"CLOSE ST"331:(1):D$;"OPEN ST": READ ST SUB 3D$;"READ ST"413900&4D$;"CLOSE ST"04X41:(1):D$;"OPEN V224:I22:2I,8V16I276I,8V16I276I,8V23I2I,8V23I2I,8V16I::3:pXP0:KB$"": EDIT](K$)0ı_(K$)1K(K$):P1:7040bPP1lP(K$)K$KB$:vK((K$,P,1))K33K1227010KB$KB$(K):7010)V(K$)1ĖH1:" ";:1000F`H(K$):" ";:K$(K$,(K$)1):1010~((K$,1)"0"(K$,1)" ")(K$)1K$(K$,(K$)1):1150(K$,1)" "(K$)1K$(K$,(K$)1):1160K$" "K$""0:1180:3:SBX1H1V1Q8V1:7H5,Q87S1:51:1000- K141ĖH(K$):" ";:1150E K224K251KK32q II1K206K217Ģ23:33:" ":1000 K136K2551100: BACKSPACE (K$)LM1010 K160K2501010 X$(K128):H(K$):X$;:K$K$X$:1010 L(K$)010109152):K133Č768:29400/ K141K160920B 24:1:K1$;: 49168,0:K$"":V:1180: ALPHANUM INPUT; AT H,V;BX=1 FOR CURSOR BOX;LM=MAXLENGTH :H(K$):" ";: K(49152):K1281015 49168,0:K133Č768:29400 K142K$""S11p||`pp``pp``pp``pp`@`p0@`p88p`@||||0p`@@`p0px @@@@@@px  LLLL  xp@`p8  @@@@@pppx @`p8 ||||@@ xp@`p8 |||| || xp@`p8 ||  xp||@`p00000px  xx  xppx  x@@@@L\xppx\L@@@@@@||@@@@`pp`@`p0||`pp`@`p8 `p8      8p`@`pp@@@ppppp>>>><<88` ` ` |?|?00~~px\\xp@@||``<f0f8<@`p8330xLLL|xxlL xp`pp`@`p0@`p8 8p`@@@<$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,ppppppp>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>" <"<"""<< <"""<">20 *, **>> "2*&" " >>  ">> "8""> """"""< >> ""*:<"">""""""""""""">             Π󍠠㩠>>< (&((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP            M J ? ( ? I- - ** `*J I` } NO,,H "$(h,  H% ,  e $I, PȱIh)`**UU*U**UUժ&, P0eiύ, e-  *+$e , P , J, p] " $($!L ` & &iύ e  *+$e   " $($$!L `)&8$&(&8$&` , e!% ɱ,  $e J ? L,  s p,  p #%%, %L # " Ȅ e *+ e !*!e J ? !*I`20   8 & % %, %L" ΰ`8` Ű ; 7 `8`Q1 X B$H%H% " $%i, i#h%h$L"h `$LD #%%, % `# "i ,  e *+8,  e !* p,  p ɌL? ɞL ɝLB ɔUɒ`ɂ;Ƀ=Ɇ?ɗləRɚTɀVɐWɍgɟLq ɓ `Ɂ ` ` ` ` %%%` ` ` ``` @ %$$`$%, #  L %, %L"`,0 ,0 `$, P$$!$$, P$" @ ? F@$DE@7 o Ȍ ` FL 67Q8 9 ,R,W,P$PUp,T`FGH,P,W,R "% hH,   $,   ,  ! ɠ ɓ,Ƀ,FGh` LɇL ɈL          " ":16067'+>K$(K):K10K$"0"K$R+>DT$(NN)DT$(NN)K$:14:7:"Year: 19-"+>V14:H18:1200:K0K99(K)KĢ14:18:" ":16071+>K$(K):K10K$"0"K$+>DT$(NN)DT$(NN)K$+*? WRITE REVISED NAMES FILE,4?EF5:1:(1):D$;"OPEN NAM40*>N$(NN)NS$O*>66:10:4:"Type today's date:"::" Month (1-12):"*>V12:H21:LM2:1200:K1K12(K)KĢ12:21:" ":16063*>K$(K):K10K$"0"K$*>DT$(NN)K$:13:7:"Day (1-31):" +>V13:H20:1200:K1K32(K)KĢ13:20:16055)>12:1:"used."})>14((KS$)5):1:"If you use it again, you will erase":"the old file under that name.":890)>W$(0)"Do you want to:":W$(1)"Use this name again.":W$(2)"Try another name.":N22:NI2:1500:K016056*>K1NNNX:160name to be used in saving game:"e(>BX1:V14:H13:LM10:FE1:1000:KS$K$:7000:NS$K$:K$""16042(>F0:I118:N$(I)NS$F1:NXNN:NNI(>:FFU16060(>F0FU116300)>66:11:1:"The name ";KS$;" is already being";:(KS$)5ĺ" used.";:DT$(I):'>D$;"CLOSE NAMES"2'>NN0:FU0:1700>'>NNNN1S'>N$(NN)""16040d'>NN1816025'>12:2:"Remember, all the game files are":" full. You may only save this game":" under a name already in use."'>890:FU1 (>66:12:1:"Type >CF$CF$(100R(899))"&0>I156&1>K(I)R(10):J0K&2>JJ1:JI15928`&4>K(J)K(I)15921o&6>JI15922&8>I:CB$"":I15:CB$CB$(K(I)64):&:>&>EF4:1:(1):D$;"OPEN NAMES": GAME SAVE PART &>D$;"READ NAMES"'>I118:N$(I),:PC$(K$,6K5,6)%(> K$ = "NOVEMBERDECEMBERFEBRUARYJUNEJULY":K = FN R(5):PB$ = MID$ (K$,8 * K - 7 - 4 * (K = 5),8 - 4 * (K > 3))%)>K$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC":KR(12):PB$(K$,3K2,3)%+>CF$(64R(26)):CF$"I"CF$"O"15915&,90k$j;66:W$(0)"Do you want to:":W$(1)"Play a new game":W$(2)"Return to main menu":NI2:N22:ND0:1500~$t;K15015,15010$>R(N)1((1)N): NEW GAME VALS$>PH100R(899):CP0:CA10000R(89999)%'>K$"VIOLETORANGEYELLOWPURPLESILVER":KR(5)any current game file, you will not":"be able to save your game; and"#d;:"2) if you save your game under a":"name already in use, you will erase":"the old file under that name."::"The GUIDE explains how to remove"$f;"out-of-date game files.":86ĺD$;"RUN FLOORS"-"<;FL16ĺD$;"RUN ROOMS"E">;D$;"RUN MOREROOMS""`;66:6:1:"All 18 game files are now full.":"You will be able to save your game":"ONLY under a name already in use."::"This means:"F#b;:"1) if you do not know the name of":"D0:1500!;K2F1:15010D!;EF3:70:13:13:"Please wait..."c!;1:(1):D$;"OPEN ST.";NMy!;D$;"READ ST.";NM!;13900!$;D$;"CLOSE ST.";NM!.;KS1:13500:S1K:13200: WRITE ST!8;768:8191,1:1:(1)!9;FL0ĺD$;"RUN TUNNEL"":;FLble to save this game":"again under the name ";K$;" (or";:(K$)5ĺ" under";:14:1:15103r :14:1:"under "; :"another name already on file).":890 !;66:W$(0)"Do you want to:":W$(1)"Continue this game":W$(2)"Return to main menu":NI2:N22:Ner the name "KS$"."(13)(13)" ""Do you want to try a different"(13)" name? (Y/N)":W$(1)"Yes":W$(2)"No":NI2:ND3:1400:K115020:15010:N4115108\ :66:11:1:"All 18 game files are full, so you":"will only be a.7$$$$$$-I?7--???:<%%..7$$$$$$I,,,''?7--??sa "$&T ---)%'--5.??,-%-v$;??7.D---??$$$$$$$$,6666666.$$$$$$$,6666666.$$$$$$$#$$$......''''..$$$66>$$6>$>,,,,,,,777777<<<<< 5555 ,,,77< $$$$$$$,6666666.$$$$$$$,6666666.$$$$$$$$I<<<%%. ,0:K133Č768:294008K142K$""S11S1:51:1200XK141ĖH(K$):" ";:1390{K136K2551340: BACKSPACE (K171K173K176)(K185)1250N201290(N2)K176N2K(N2)(177N1)1250 (K$)LM1240X$(K128)H5,Q7H4,Q7H4,Q87H7LM10,Q87H7LM10,Q7H7LM11,Q7H7LM11,Q8Y49168,0:K$"":V:1180: NUM INPUT;SEE 1000 REM;N1+1=MIN ALLOWED;N2=MAX (N2=1-9);NO LIMITS IF N2=0:H(K$):" ";:K(49152):K1281250491680007/u(8179)15000,160007yI16:LC(I,1),LC(I,2)::: LC(I,J)=LOC OF OBJ I:J=1 FOR RM,J=2FOR FL;TO ADD OJBS,MUST ALSO FIX 29810,31080,17210,17340,30082 IN FLOORS7y 4,1,6,4,5,3,5,2,4,2,6,5: LC(I,J) I,J) D$(20),DT$(20)_6?sD$(4):KW$(23):KT$(20):KR$(18):K1$(30):KL$(12):KT$(20):K2$(29)~6AsKZ$(26):KY$(25):767,06ZsKL$::::16302,0:16368,06s232,0:233,64:0:1:2556s32,2:33,36: NOTE THIS6tKY$7t(8190)0Ĺ8190,1:15 turn the computer off:"::"1. Remove the diskette from the":" drive and put it in a safe place.":5s"2. Turn the computer off. The switch":" is located behind the computer on":" the left."::"3. Turn your television off."5 s29450 6>NAME<< >>DATE LAST SAVED<<"@1BN0:I118:N$(I)""NN1:AMES"$/jBF0:I118:N$(I)""F1*/kBH/lB1710:T$"CHANGE OPTIONS"/mBEF6:W$(0)"Do you want to:":W$(1)"Remove game files":W$(1F)"Turn sound on/off":W$(2F)"Return to main menu":NI2F:1500/oBKF017020/pBKF2T$"":150000rBW$(0)" ":"this new name.":890}.?W$(0)"Do you want to:":W$(1)"Try another name":W$(2)"Return to the main menu":N22:NI2:1500.?F1:K16040,15000.hBEF6:1:(1):D$;"OPEN NAMES":CHANGE OPTION/iBD$;"READ NAMES":I118:N$(I),DT$(I)::D$;"CLOSE N";NN-\?13800&-?D$;"CLOSE ST.";NN5-?F1:15000-?66:10:1:"The name ";K$;" is NOT already";:(K$)7ĺ" being";:11:1:"used.":16303-?11:1:"being used.".?13:1:"Since all the game files are full,":"you may not save your game underES",5?D$;"DELETE NAMES"/,6?D$;"OPEN NAMES"E,7?D$;"WRITE NAMES"b,9?I118:N$(I):DT$(I):x,;?D$;"CLOSE NAMES",H?13300:F70: READ ST,L?1:(1):D$;"OPEN ST.";NN: WRITE ST.NN,M?D$;"DELETE ST.";NN,R?D$;"OPEN ST.";NN-W?D$;"WRITE ST. hhHH`xԪժŪՂxxxՀՀxxx}Њp}xxxժԪժժժxx?~xՊЪՀ͊xxժժժժxxxՀxx֪ղxՀՀxxxժժѪծբxxxՀՀxxxՀ@@ŪxxxժԪՊՀժժxx|ժժժժxՂШՊԪՊxx*U*UxxxՀxx֪ժժղxՀՀxxxժժԪվըxxxՀՀxxx]w]wŪxxxժѪՂժժxx pժժժժxՂШժxx""xx        ččÍķōÍ ,10,1,2,4,2,1,1,10 M,1,1,10 T TITLESCR Ny 2,1,5,1,10,1,2,5,6,1,1,10,2,6,4,1,10,1,2,4,2,1,1,10 V,4,1,10,1,2,4,2,1,1,10 L ITS,A16720"@tD$;"BLOAD LETTERS,A16904"::(1):D$;"BRUN CG"ItKY$T/u15000y 173,48,192,136,208,5,206,173,3,240,9,202,208,245,174,172,3,76,174,3,96:MUSIC y F,O,R, ,Y,o,u,r,N,E,X,T,A,d,v,e,n,t,u,r,e: TITLESCR y 1,1,10,2,6,4,1KL$:EF15001,15260+ժժժժժժժժժժժժժժժժժժժժժժժժժժվߪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժվժժժժժժժժժժժߪ߯ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժתժժժժժժժժժժժ׮ժժժתժժժժժժժժժժժժժժվժתժժժժժժժժժժժժߪժիժߪժժժժժժժժժժժժիկժժժժժժժժժժժժժժժߪկժժժժժժժժժժժߪߪתժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժתߪתժժժժժժժժժժկտժ׿ժկժժժժժժժժժպծݻݿݻծժժժժժժժժժժժժժժժվժժիժժժժժժժժժժժժժվժߪߪժժժժժժժժժժվժߪկժժժժժժժժժժժժժժժתժժժժժߪժժժժժժժժժժժժժժݪժժժժժժժժժժվߪ߯ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժվժתժժժժժժժժժժժժժժתժժժժժժժժժժժժժժժժժժժתժժժժժժժժժժժժժվժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժߪժժժժתժժժժժժժժժժժժժժժժիժժժժժժժժժժժժժժվժߪߪժժժժժժժժժժժժתժիժժժժժժժժժժժժժժջ׫ժժժժժժժժժժժժժժժկתկժժժժժժժժժժժߪߪתժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժߪߪתժժժժժժժժժժկתկժժժժժժժժժպծݻժժժժժժժժժժժժժժժժժիժժժժժժժժժժժժժվժߪߪժժժժժժժժժժվժߪկժժժժժժժժժժժժժժժתժժժժתժժժժժժժժժժժժժժժժժժժժժժժժվߪ߯ժժժժժժժ ժժժժժժժժժժժժժժժժժժժժժժժժվժժժժժժժժժժժժժժժߪժժժժժժժժժժժժժժժժժժժժߪժժժժժժժժժժժժվժժժժժժժժժժժժժժժժժժժժժժժժժժժժ           BFOR Your NEXT AdventureBCOPYRIGHT 1985 - SUNBURST COMMUNICATIONS C "TUNNEL"C29300C29500DCZB16336S1S2:ZC125:ZD(ZB)::JCrCEF1:70:13:13:"Please wait...";C768:13200CFL10FL16ĺD$;"RUN ROOMS"C ! !!!!!!!"""""""     ččЍЍԠȍȍֵҍō (K$)1):1160JK$" "K$""J0:1180:3:SKBX1H1V1Q8V1:7H5,Q87H5,Q7H4,Q7H4,Q87H7LM10,Q87H7LM10,Q7H7LM11,Q7H7LM11,Q8YKK49168,0:K$"":V:1180: NUM INPUT;SEE 1000 REM;N1+1=MIN ALLOWED;N2=MA10IK160K2501010IX$(K128):H(K$):X$;:K$K$X$:1010IL(K$)01010JV(K$)1ĖH1:" ";:1000FJ`H(K$):" ";:K$(K$,(K$)1):1010J~((K$,1)"0"(K$,1)" ")(K$)1K$(K$,(K$)1):1150J(K$,1)" "(K$)1K$(K$,$):" ";:HK(49152):K1281015H49168,0:K133Č768:29400IK142K$""S11S1:52:1000/IK141ĖH(K$):" ";:1150GIK224K251KK32sIII1K206K217Ģ23:33:" ":1000IK136K2551100: BACKSPACEI (K$)LM10in.";:915Gz23:910G24G8:"Press RETURN to continue.";G49168,0HK(49152):K133Č768:294001HK141K160920DH24:1:K1$;:H49168,0:K$"":V:1180: ALPHANUM INPUT; AT H,V;BX=1 FOR CURSOR BOX;LM=MAXLENGTHH:H(K(J28)239,J2(J28):FI15:I15,12520I:G1:259,107259,73260,73260,107:274,76260,90259,90245,76eG270,73260,83259,83249,73:266,71260,77259,77253,71:3:TREEzG232,0:233,64:G 24:1:K1$;" Press RETURN to try agaɍʸԍɍ!1225,143:10230,143:10231,143!F0,10838,108:240,108279,108:I01:39I,10739I,8239I,8239I,107::DRBLDG F3:16:KY$;KW$;KT$;"ROBOT";KR$:5:10:KT$;KW$;"CORPORATION";KR$:33,40:32,0:2:1:"Floor":33,38:32,1FJ88820:39,J2D6I04:177,112I237I,112I237I,128I41I,128I41I,112I161,112I:5E@I5821820:J02:IJ,112IJ,128:::161,112161,128pEJ3:1125,143:1126,143:36,14140,141:36,13940,139ETI19:I20I28,143:I20I29,143::1224,143:FL16ĺD$;"RUN MOREROOMS"C D$;"RUN FLOORS"C2L111999::: PAUSED4L1112000::3DF33,40:32,0:KL$:33,38:32,1:: WIPEKDbL713:99:50::vDcL21120:L8(16336S1S2):::FARTD,KL$:2: DRAW TUNNEL D0232,80:233,65ččԍԍÍķōÍ! PA *9DO[kt)$$--(-?-g