' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 7777777 7777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`u14:DFT,2,14336:1=MAZE.FNT,7=IMAGE TABLE,2=ASCII BOLD.FNTLL'24576:AFT,2M'KT$(1)"Cheddar":KT$(2)"Havarti":KT$(3)"Brie"N'AS$(1)"DIRECTIONS":AS$(2)"BOOTS":AS$(3)"STRING":AS$(4)"CHALK":AS$(5)"NOTHING"Q'P:SPACE:: RSTANDARD YESIZATION ':14336:0:VSP,3,0y8'D$(4):CL$(12):CA$(1):CE$(5):CC$(3):MAZE31914:AD32701:CN$(14):CO$(15):B'RFL,"MAZE.OBJ":RFL,"MAZE.FNT":RFL,"UNPACK.OBJ0":RNH,"IUTIL.OBJ":RFL,"MAZE.IMA1":RFL,"ASCII BOLD.PFT":DFT,1,30137:DFT,7,338espected of knights, a Knight of Brie."\::"Good luck in the competition!"CC$:20500:(#PRINT Z$ ON SCREEN AND PUT A BOX AROUND IT2#Z$CA$;:GCP,ZX,ZY:ZL(ZL7)4:ZH11:ZYZY2<#3:ZX,ZYZX,ZYZHZXZL,ZYZHZXZL,ZYZX,ZY::'INITIAL Be very cautious, plan your moves well and you too may become a Knight of Havarti!":20500:rKNIGHTS OF BRIE'WIND:CL$:4:"You are entering the most difficult of competitions in the tournament. If you have a high score you may become the most r HAVARTIJWIND:CL$:4:"Should you be successful and become a Knight of Havarti you will have achieved the second highest order of knighthood. ";]T"Knights of Havarti often reenter the competition to achieve the highest order, the Knights of Brie.IND:CL$:4:"Knight of Cheddar is the first order of knighthood. Knights who achieve this distinction often move on to become Knights of Havarti, ";"and sometimes even Knights of Brie!":::"Good luck in the Competition!"CC$:20500:@KNIGHT OF2,DI:LMA391MA396:L,SEED:L:MAZEZ901,TY:902,AC:903,CH:904,DI:905,SE:906,KTD$"OPENMAZE.SEQ":D$"WRITEMAZE.SEQ":N$:D$"CLOSEMAZE.SEQ"RNH,"MAZE PART2"DISPLAY KNIGHT SCREENKT1520,1600,1700KNIGHT OF CHEDDARWxp @ @  @  @hPPPo)a'L115:Z:ST$(L)(Z)(Z1):L[)e'DATA FOR STRING STRINGS)f'82,84,88,82,82,90,92,84,94,84,96,100,102,104,106)j'J(S)S(S1)4:B(S)(UNS):H(S)(S256):L(S)SH(S)256:HN(S)(S16):LN(S)SHN(S)16*IL%1:IL% IS IMAGE LOADED<(L'AFT,1:MO(S)T1(T1T2)T2p(M'KT$(1)"CHEDDAR":KT$(2)"HAVARTI":KT$(3)"BRIE"v(Q'(V'LOAD SHAPE STRINGS)`'L13:L114:L212((L1)(L12(L12))):C(L21)24((L11)6((L2)1)):SH$(L,L1,L2)(31C)(C32):NA$:D$"CLOSEMAZE.SEQ"{'.'SH$(3,4,3),X%(81),Y%(81),MZ%(10,10),QX%(4),QY%(4),TE%(9,2),OF%(9,1),ST$(15),BX%(9),BY%(9),S$(1)'8'D$(4):CL$(12):CA$(1):CE$(5):CC$(3):CN$(14):CO$(15):MAZE31914:AD32701:UN32976:UN IS THE UNPACKER WORK AREA(B'Y%(Y),BX%(X)XY,BY%(Y)XX1'& 'X:Y:;&'INITIALIZATIONZ&':16384:0:VSP,3,0:WIND&$'TY(901):AC(902):CH(903):DI(904):SE(905):VARIABLES FROM MAZE PART 1&%'D$(4):LE$"NSEW":AC0LE$LE$"P"')'D$"OPENMAZE.SEQ":D$"READMAZE.SEQ":L)L1:L1:Le%&XZ((ZVXX)3):XY((ZHXX)3):BOX,BX%(EX%1)XYXX,BY%(0),BX%(EX%)XY,BY%(0)XX1%&Y1DI:X1DI:UN,H(MZ%(X,Y)):UN19:XLR%YDIĹUN4,1%&B(1)įBOX,BX%(X),BY%(Y1)XXXZ,BX%(X)XX,BY%(Y)XZ&'B(4)įBOX,BX%(X1)XYXX,B7$&ZH(260DI):BX%(0)139130:ZV(165DI):BY%(0)10{$&L1DI:BX%(L)BX%(L1)ZH:BY%(L)BY%(L1)ZV::XX(11DI)21$&3:L0DI:L10XX1:BX%(L)L1,BY%(0)BX%(L)L1,BY%(DI)XX1:L1:L %&L0DI:L10XX1:BX%(0),BY%(L)L1BX%(DI)XX1,BY%(DSįCO,0,164:CEW:"Your score is too low to allow you to peek at the maze.":20500:#R&PCPC1:CL$:9900:CO,BX%(CX1)XYXX,BY%(CY1)XYXX:"*"#\&PAUSE,60:CL$:SC(SC2):2915:9100:CO,LX%,LY%:(14);S$(LP%);(15):#&DISPLAY MAZE$&(15)%(CY,0)ı7"%IM%4IL%1įRFL,"MAZE.IMA2":IL%2:9720_"%IM%5IL%2įRFL,"MAZE.IMA1":IL%1"%OF%(N,1) IS AN ARRAY OF OFFSETS FOR THE IMAGES"&IMAGE,IM%,QX%(TE%(CY,1))OF%(IM%,0),QY%(TE%(CY,1))OF%(IM%,1)" &"H&PEEK AT MAZEV#M&AC0(SC2)"DHժժժժժպתw0dj"D"D"D"D"D"DnLU*"D?~"Dx*/DH"Dwn]ժבĈתwsUNg"D"D"D"D"D"D"d"D"D"D"D"D"D"D"DHժժՆa՚תժժժժժĈߪw.`E2`"DUj"DWjeݻ䈑תn Yz߼"D"D"D"D/U:UjrUKժժ՞<<`ժժժժժժժժw:aq+U*"D/Ujgݻ䈑תn{~ "DLxbcK"\".UwW*+/]Hժժժժժժժժժժժժժ#D~];wn];ժבĈתw._ "d>"D"D"D"D"D"DHתժתժժժժժժժa "Dxw/d"DyňבČתne@>u"D"D"D"DyueUj"DHrժժժժժĈתgpqkE"D"D"DH"D"D"DGllU*U*}^*=+GHժժժժժժժժժתwn"Dra"Dfݻ䈑תkO}>8p?dGEGH#D/U}*ujEHժժժժժժժժժժժժw/G"\2Uj"Dy>dݻ䈑תn0q*g;"D"D"D"D/U>UjbUNժժ՚0xժժժժժժժ͸ժw:֮Eq*U*"D~"D"D"D"D"D"DG"D"D"D|"D"Dx/| bժժՆתժժժժժժꑢתgy#D|U>D+UNqݻ݋תGl3}"Db'L ?"Ox.D/U*_~*=+bժժժתժժժժ͸ժתg/D"DHa"D"D vݻ݋תGkc}xqEyFG>tba >}7p*ujbժժժժժժժժժժժժ/"D"DxUjE"dqݻ݋תGly0d*?D"D"D"D">U>UjHWnժժ՚0p9ժժժժժժժժgzׯߪ"d*U*GrU*wݻ݋תGlcw{/D>DH"D"D"|UjUj,ubժժժժժժժժժժժժժՎ"Dn];wnժňתg,}2`q/D"D"D"D"D"Drߪժժժժժߪժժժժժժժ_"^;?Dqo]߹תGlqFHW#D"D"D"D"DWZb 0@ @<<``0 `p `0 ` @@`@`@x0`` 0@x 0@ @ `xp<`x? `0 ` @x@`@`p`` 0@`<0@ @ x @0` `0 ` x@``@`@x 0@`00@ @ @` @0``0 ` `@@~x@`@ @0@L)::PTPT1:CO$:AFT,1:;4!DISPLAY CURRENT SMALL ENTRYE9!WINDv>!CO,65(PT1)21,0:AFT,2:CN$CH$CO$;:AFT,1|H!"DISPLAY A SEQUENCE"ZL1(Z$):ZN((Z$,ZL,1)):PAUSE,10:ZL9300,9600,9500,9400:"'#(#DISPLAY SUBROUTINESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"įCO,ZH,ZV:36020<DARD ENDING ROUTINE `"yWIND:CL$:(15):CO,0,89:"Do you want to try again? ";:36000n,yZ$"Y"Ĭ6yCL$:CO,0,89:"Getting the menu...":SET,0:901,1:RNH,"QUEEN BEE OF MENTA"STANDARD YES-NO INPUTCA$;6GCP,ZH,ZV:INP,(3,"YES,8,20,2,20,8,20,2,20/(4,1,20,3,20,5,20,7,20O (5,2,10,5,20,8,20,5,20,2,10j(4,8,30,3,20,6,20,3,20(5,3,30,1,20,7,30,5,10,3,10((MOVEMENT DELTAS2( 1,0,1,-1,0,-1,-1,-1,-1,0,-1,1,0,1,1,1*0uSPACE BAR:uCA$;:SPACE::ySTANDNo,WrongE'L16:MC%(L,0):L11MC%(L,0):MC%(L,L1),MD%(L,L1)::a'L18:DX%(L),DY%(L):x'BEE MOVEMENT DATA'FORMAT: START X,START Y,# COMMANDS,DIRECTION 1,# REPEATS,...DIRECTION N, #REPEATS'7,1,10,7,10,5,10,3,10,5,10,7,10,1,10'4,90,177,82,L'129,82,145,90,161,98,177,106MV'129,89,145,89,161,89,177,89p`'145,74,145,90,145,106,145,122j'L03:CU%(L)50L32:t'L03:BO%(L)L:SO%(L)L:AR%(L)L:MO%(L)L:~'L14:GO$(L)::L12:BA$(L):'Good,Right,Correct,Yes,L2))((L2)32):SH$((L2))(L32)(L33):BO$((L2))(L56)(L57):BE$((L2))(L68)(L69)::BE$(3)BE$(1)3'QB$(0)" !"(34):QB$(1)"#$%":QB$(2)"&'"(40):QB$(3)QB$(2)8'L03:L103:L201:CO%(L,L1,L2)::: B'129,106,145,98,161se another":"symbol? ";:36000:CO:CEW.&B'INITIALIZATIONv'CA$(1):CC$(3):CL$(12):CN$(14):CO$(15)$'SH$(3),BO$(3),BE$(3),CO%(4,3,1),CU%(3),BO%(3),SO%(3),AR%(3),MO%(3),RA%(7),GO$(4),BA$(2),SS$(3),MC%(6,7),MD%(6,7)v.'L072:SS$((BP):>& INCREMENT PHASE3?&BPBP1:BP3BP09@&ZH&GET Z RANDOMS FROM 0 TO Z-1R&L0Z1:RA%(L)L::L1Z2:Z1((1)Z):Z2((1)Z):ZTRA%(Z1):RA%(Z1)RA%(Z2):RA%(Z2)ZT:L\&&CHECK FOR CONTINUATION(&8200:"Do you want to chooZ14,Z410Z31,Z410Z31,Z23Z13,Z23::3::3:C1,Z23Z13,Z23::3:C$,1):Z$"Y"Z$"N"36020!5XUNDERLINE TEXT~bCA$;:GCP,ZX,ZY:ZL(Z$):Z$CA$;:GCP,ZV,ZH:3:ZX,ZY9ZV2,ZY9:@PUT A BOX AROUND Z$JCA$;:GCP,Z1,Z2:Z$CA$;:GCP,Z3,Z41T2:Z13,Z22Z13,Z49Z3,Z49Z3,Z22Z12,Z22:Z14,Z23NDING ROUTINE yVSP_"yWIND:CL$:(15):12:"Do you want to try again? ";:21000m,yZ$"Y"Ĭ6yCL$:12:"Getting the menu...":SET,0:RNH,"MENU"STANDARD YES-NO INPUT(1);:GCP,ZX,ZYCO,ZX,ZY:INP,(3,"YESNO",1),Z$:Z$(Z1,"-14",1),Z$JCL$:CO,0,89:Z(Z$):"Getting "PN$(Z)"...":RNH,PR$(Z)eRSTANDARD YES-NO INPUTo RCA$;RGCP,ZH,ZV:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"įCO,ZH,ZV:CEL:21010R0uSPACE BAR:uCA$;:SPACE::ySTANDARD E:"v|WIND,49,0,279,191::CO,28:"1. Apprentice Bee Keeper, Level 1"::CO,28::"2. Apprentice Bee Keeper, Level 2":CO,28:"3. O"CA$"r... No Training (go directly to the ritual)"::CO,28:"4. Return to menu" WIND::"Which number? ";:INP,(ve enough to try decoding the ritual ";ME"without any training? ";:36000JZ$"Y"ĺCL$:CO,0,89:"Getting "PR$(3)"...":RNH,PR$(3)rWIND:VSP,2:CL$"As an apprentice your training can be introductory (level 1) or advanced (level 2)."::"Choose0@FLZ$"No, this is what you chose.":9100:Z$ZT$:8900:Z$"Sorry, that is not correct.":9100:30000:Z$"Use the work frame, then try again.":9100:30000:2300:RZ$ZT$:BOX,0,170,279,191:8900:30000:2000HANDLE 0 SCORE8200:8010:4:"Yo0 8500!8100:WIND:83000TEİ8400:8600O ZN5TEFL0:k 8100:8010:EN$(PT)CH$*BOX,PO(PT),0,PO(PT)8,36:CO,PO(PT),0:AFT,2:CN$CH$CO$:AFT,14TECTCT1:CT202200>TEFL0:DI$ZT$FL1HTEFLıMTEįCO,ZH,ZV:CEL:21010%R+%0uSPACE BAR@%:uCA$;:SPACE::f%ySTANDARD ENDING ROUTINE %"yWIND:CL$:(15):CO,0,89:"Do you want to try again? ";:21000%,yZ$"Y"Ĭ &6yCL$:CO,0,89:"Getting the menu...":SET,0:901,1:RNH,"QUEEN BEE,10,5,20,8,20,5,20,2,103$( 4,8,30,3,20,6,20,3,20T$( 5,3,30,1,20,7,30,5,10,3,10i$((MOVEMENT DELTAS$2(1,0,1,-1,0,-1,-1,-1,-1,0,-1,1,0,1,1,1$*$RSTANDARD YES-NO INPUT$ RCA$;%RGCP,ZH,ZV:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"L,L1)::%#'L18:DX%(L),DY%(L):<#'BEE MOVEMENT DATA#'FORMAT: START X,START Y,# COMMANDS,DIRECTION 1,# REPEATS,...DIRECTION N, #REPEATS#' 7,1,10,7,10,5,10,3,10,5,10,7,10,1,10#' 4,8,20,2,20,8,20,2,20#( 4,1,20,3,20,5,20,7,20$ ( 5,2"'9,1,0,2,0,3,3,0,2,1,3,0,2,2,3,0,2,3,4,0,2,3,1,4,0,2,3,0,4,0,2,3,2,4,0,2,3,3Z"'AFT,1"'TV$(0)"appear on the screen":TV$(1)"be performed""'TV$(2)"appear on the screen":TV$(3)"be transmitted" #'L16:MC%(L,0):L11MC%(L,0):MC%(L,L1),MD%(`'145,74,145,90,145,106,145,122& INCREMENT PHASE?&BPBP1:BP3BP0@&H&GET Z RANDOMS FROM 0 TO Z-1VR&L0Z1:PLAY BEES !%BOX,56,58,260,153U&%L03:L101:CO%(4,L,L1)CO%(AR%(ZN),L,L1)::0%BP0:CN$:L03:CO,CO%(4,L,0),CO%(4,L,1):BE$(BP)::CO$:%DO MOVEMENT%AFT,5:CN$:BOX,56,58,250,153%ZBMO%(ZN)1:QX%159:QY%90:9790:9750:PAUSE,10430,9440,9450,9460,9470:4$L150:PLAY,50,3::N$L150:PLAY,5,3::k$L4931:PLAY,L,3::$L349:PLAY,L,3::$L150:PLAY,((1)46)4,3::$L116:PLAY,L3,3::L116:PLAY,(17L)3,3::L116:PLAY,L3,3:: %DISN1:ZN4ZN0'$HOZN",$92206T$DISPLAY BORDERl^$NOJUST:CN$:CO,39,42:L115:BO$(BO%(ZN));::h$L16:CO,39,4216L:BO$(BO%(ZN));:CO,263:BO$(BO%(ZN)):L:CO,39:L115:BO$(BO%(ZN));::PARSE:CO$:$DO SOUND$SO%(ZN)19420,9N$:ZNHO:ZF03#WIND,29,50,37,160:CO:CEW:WINDx$CO,29,CU%(ZN):(127):16368,0:16384,128:Z$((16384)128) $(Z$)27ZF0 $(Z$)27ZFZF1:ZF231000$(Z$)13(Z$)89220$(Z$)13ĺCO$:"$CO,29,CU%(ZN):(126):ZNZ2#BUILD BASIC SCREEN;<#2:0,4225,4225,1680,1680,42]F#1,4224,4224,1681,1681,42P#CN$:L03:CO,5,CU%(L):SH$(L):Z#L5826821:L,0L,36:L1,0L1,36:L#3:#DISPLAY WORD#:8200:Z$CC$:WIND:#GET SELECTION #C(ZB,0):ZCMC%(ZB,L):L11MD%(ZB,L):QX%QX%DX%(ZC):QY%QY%DY%(ZC):9790:9750::e(%CO$:AFT,1:w(& DISPLAY BEE(*&CO,QX%,QY%:QB$(BP):(>& INCREMENT PHASE(?&BPBP1:BP3BP0(@&(H&GET Z RANDOMS FROM 0 TO Z-1K)R&L0Z1:RA%(L)L::,260,153='&%L03:L101:CO%(6,L,L1)CO%(AR%(ZN),L,L1)::'0%BP0:CN$:L03:CO,CO%(6,L,0),CO%(6,L,1):BE$(BP)::CO$:PAUSE,20:'% DO MOVEMENT'%AFT,5:CN$:BOX,56,58,250,153'%ZBMO%(ZN)1:QX%159:QY%90:9790:9750:PAUSE,10S(%L1MC%&$L150:PLAY,50,3::6&$L150:PLAY,5,3::S&$L4931:PLAY,L,3::m&$L349:PLAY,L,3::&$L150:PLAY,((1)46)4,3::&$L116:PLAY,L3,3::L116:PLAY,(17L)3,3::L116:PLAY,L3,3::&%DISPLAY BEES'!%BOX,56,58$DISPLAY BORDERF%^$NOJUST:CN$:CO,39,42:L115:BO$(BO%(ZN));::%h$L16:CO,39,4216L:BO$(BO%(ZN));:CO,263:BO$(BO%(ZN)):L:CO,39:L115:BO$(BO%(ZN));::PARSE:CO$:%$DO SOUND%$PAUSE,10&$SO%(ZN)19420,9430,9440,9450,9460,9470:28:Z$(Z32(Z95))($$(Z$)27ZF0J$$(Z$)27ZFZF1:ZF231000$ $Z$"E"Z$"D"Z$"X"ZN4(Z$"D")2(Z$"E"):$$(Z$)13(Z$)8Z$"E"9220$$(Z$)13ĺCO$:$"$CO,29,CU%(ZP):(126):ZPZP1:ZNZP:ZP4ZP0:ZN0$,$9220%TL03:CO,5,CU%(L):SH$(L):I#Z#L5826821:L,0L,36:L1,0L1,36:LO##a##DISPLAY WORD##CO$:8200:Z$CC$:WIND:##GET SELECTION##CN$##WIND,29,50,37,160:CO:CEW:WIND$$CO,29,CU%(ZP):(127):16368,0:16384,128:Z(16384)19300,9600,9500,9400:""""'#;"(#DISPLAY SUBROUTINESS"2#BUILD BASIC SCREENx"<#2:0,4225,4225,1680,1680,42"F#1,4224,4224,1681,1681,42"K#0,055,055,210,210,0:1,054,054,211,211,0:WIND,3,2,53,11:CO:"Score"CC$#P#WIND:CN$:CO1!!8620!!ZN48620>!!TE(ZN5(ZN4CO4))8630M!!ZN58690a!!ZN6CO08630!!ZN6COCO1:CH$(CH$,1,3CO):ZT$(ZT$,1,CO):8620!!CO08630!!!"DISPLAY A SEQUENCE""ZL1(Z$):ZN((Z$,ZL,1)):PAUSE,10:SE%(ZL1)1CEW:SC200(CT10):CO$;SC;CC$:< !GETUP TO 4 CHARACTERSS !CO0:CH$"":ZT$"" !BOX,PO(PT),0,PO(PT)8,36:CO,PO(PT),0:AFT,2:CN$CH$CO$;:CO4ĺ"?" !AFT,1:ZNZP:9200:ZN38660 !CO48655!!CH$CH$SS$(ZN)(8)(10):ZT$ZT$(ZN):CON$(L)::PTPT1:BOX,254,0,262,36w L1PT:LO65(L1)21:BOX,LO,0,LO7,36:CO,LO,0:EN$(L)::PTPT1:CO$:AFT,1: DISPLAY KEYS ON BOTTOM 8200:CO$"X - Execute, E - Erase, D - Decode"CC$ 4!CONTROL SCORE BOX! >!WIND,3,12,53,20:CO:WIND,39,42,279,170:CO:CEW:<SELECTION CURSOR WINDOW^WIND,27,42,38,160:CO:CEW: TEXT WINDOW ON BOTTOM OF SCREEN WIND,0,173,279,191:CO:CEW:l HANDLE BUFFER DISPLAYv PT0PT1:{ AFT,2:CN$! PT10āL210:EN$(L1)Ethe ritual into"CC$CA$;:GCP,Z1,Z2::Z3Z12:Z1Z1150:"smaller parts"CC$CA$;:GCP,Z,Z4:Z91,Z49Z2,Z49V Z4Z43::40020::"and then try to figure out the entire ritual.":30000:@DISPLAY CONTROLLER SUBROUTINESJTEXT WINDOW ON SCREENT{8 CO,0,50:"You will be looking for"CC$::CO,111:Z$"Patterns":40000::"in what you see, hear, and record.":30000:L ::"The ritual is complicated: To solve a complicated problem, it is good to work on one small part at a time."lQ :"Break f paper on hand.":30000:$ ::"You can cause the ritual or parts of the ritual to be repeated. This allows you to:"::GCP,Z1,Z2:"Make Guesses"CC$:"Revise Your Guesses"CC$. "and Make Predictions"CC$CA$;:GCP,Z3,Z4::Z159:Z3229:40020:30000:,2340,2360,2380:CL$: "It is important that you concentrate closely on the ritual and":WIND,69,0,209,191::GCP,Z1,Z2:"Keep a ";:Z$"Record":39000 " of what you observe."CA$;:GCP,Z3,Z4:40020:WIND::"Have a Data Recorder sheet or a piece ou have tried very hard, and still have not solved this puzzle. Try APPRENTICE BEE KEEPER LEVEL 1 and LEVEL 2. These may help you figure out how to DECODE THE RITUAL."30000:SC0:CL$:1660DISPLAY REMINDER SCREEN WIND:CL$;:((1)4)123201840^&D$"OPENSCORE4":D$"WRITESCORE4":ZN(ZS):L0ZN:NA$(L)","SC(L)::D$"CLOSESCORE4"p030000:31000:ELIMIINATE ENTRYDLZNZNZN1:NL1L1ZN:NA$(L11)NA$(L1):SC(L11)SC(L1)::ZNZN1:EVALUATE TO LV PLACESTEİ801SC(L)SC(L1)TSC(L):SC(L)SC(L1):SC(L1)T:T$NA$(L):NA$(L)NA$(L1):NA$(L1)T$V:sDISPLAY HIGH SCORE LISTVSP:WIND:CL$"Top Ten Decoders"CC$::"Name";:30:"Score":3:0,2628,26:203,26238,26:LZSZN:NA$(L);:32:SC(L):ZSESCORE4"SC0ZS1:1800,ZN01750LZN10SCSC(ZN)ZS1:1800FZN:L1ZN:NA$NA$(L)EF2:SCSC(L)İ1850:EF1:LF:ZS0:EF2ZS1:1800 ENTER SCORE IN LISTSC(0)SC:NA$(0)NA$ZN9ZN9NL0ZN1:L1L1ZN:AFT,3:CN$"YOU HAVE DECODED THE RITUAL!"CO$c:"The Flower Field Guards can now find and protect the Menta flowers.":30000hHANDLE HIGH SCORErSC200(CT10)|D$"OPENSCORE4":D$"READSCORE4":ZNZN0āL1ZN:NA$(L),SC(L):D$"CLOSDo you want to repeat the display? ";:21000:LO(Z$"N"):LO@8010:8200:Z$"Enter your pattern, then press X.":9100:2000:8200:WINDJFLWCWC1:CTCT2:CT192200T8010:WC1TE0:CL$:L1TP1:EN$(L)TE$(L)::PTTP1:1540+^VSP:3: you back to the working frame and you can try again.":30000f*L1PT1:TE$(L)EN$(L)::TPPT:PT0,PT0:CL$:WC0:TE1:9010:8500:Z$"":L14:Z$Z$(((1)4))::DI$Z$:LO01:8200:80101Z$"Watch Carefully":9100:Z$DI$:8900<68200:"2000WIND:CL$CO$:VSP,3:3:"The Queen Bee and her Scouts will perform today's ritual. Prove you have decoded it by duplicating the ritual. Refer to your records to help you duplicate the ritual.":30000='"If you miss one, the computer will send possible."n"Each time you press D and attempt to decode, 20 points are deducted from your score.":30000WIND:CL$:CO,0,89:"Would you like to see the instructions again? ";:21000:Z$"Y"1050WORK SCREENPT0LV4CL$:9010:j"When you think you have the ritual decoded, press D.":30000lt8010:AFT,3:CN$"CAUTION"CC$CO$:AFT,1 ~"Each time you use the work frame, 10 points are deducted from a score of 200. It is important for a high score to use this frame as little asm is recorded at the top of the screen.":8300:30000 L8010:"This sample shows that you can select 1, 2, 3, or 4 symbols. Select one or more symbols and create a display by pressing X." V30000 `8010:"To change a choice, press E for erase."@their order change each day. So the next time you decode a ritual you will need to discover a new code.":30000 $CL$:9010:8010 8CO$"To select a symbol press the left arrow key. ";5 B"The symbols you select and the order in which you select theritual by selecting the correct symbols and placing them in the correct order."; " If you can do this the Flower Field Guards can follow your directions to today's supply of nectar and ensure the safety of your kingdom."o :"NOTE: the symbols and ls control which parts of the ritual, and"::CO,0:"2) in what order those symbols should be arranged.":WIND:30000 CL$:CO,0,89:"Do you need instructions? ";:21000 Z$"N"1500P CL$::"To prove you have decoded the ritual, duplicate the 20,".-AZ' "),NA$6 CL$"The Queen Bee's Ritual"CC$: "You will need to keep a written record as you work. Be sure you have paper or a Data Recorder sheet. Explore and try different selections until"u :WIND,21,0,279,191:"1) you know which symbo*% PROGRAM:THE QUEEN BEE'S RITUALCAUTHOR:SHANE P. MCCARRON]COPYRIGHT:MECC, 1983|(LAST UPDATE: 84/05/25 CPE216384d10000:INITIALIZATIONMAIN ROUTINE CL$"The Queen Bee's Ritual"CC$:CO,0,50:"What is your name? ";:INP,(                          "D,27,42,38,160:CO:CEW:> TEXT WINDOW ON BOTTOM OF SCREENa WIND,0,173,279,191:CO:CEW:|l HANDLE BUFFER DISPLAYv PT0PT1:{ AFT,2:CN$ PT10āL210:EN$(L1)EN$(L)::PTPT1:BOX,254,0,262,36 L1PT:CO,65(L1)21,0:EN$(NG MESSAGE FOR CONFUSED USERh>8200:8010:4:"Do level 1, and then try level 2 again.":30000:31030x?CO$:SPACE@DISPLAY CONTROLLER SUBROUTINESJTEXT WINDOW ON SCREENTWIND,39,42,279,172:CO:CEW:SELECTION CURSOR WINDOWWIN0:ZN(Z$"N"):ZN12000,2100)WCWC1Z F0:LPT111:((EN$(L),1))128FL:L1i:F2090 Z$"Hint: this choice is correct.":9100:L1110:BOX,PO(F)1,0,PO(F)8,36,8:PAUSE,5::30000*Z$"Try again.":9100:30000:20004ENDIPT)CH$i(DI$,LV)ZT$Z$GO$(((1)4)1):9100:30000:HO$CH$:EN$(PT)(((CH$,1))128)(CH$,2):Z$"No, this is what you selected.":9100:8100:8010:Z$ZT$:8900:WC1WCWC1:2090WC2İ8200:"Would you like to continue? ";:21000:WC010:8100:8200:8300:ZT$"":CH$"":Z$(DI$,LV):8900AFT,2:Z$"Press the "CN$(44)CO$" and RETURN for a symbol.":9100:AFT,1:CH$"":8500:ZT$"":"?"L1LV:9200:CH$CH$SS$(ZN)(10)(8):ZT$ZT$(ZN):8500:LLVĺ"?"EN$(WIND:CL$CO$:5:"You have correctly identified the "TY$" which goes with ";:AFT,2:CN$SS$(((DI$,LV,1)))CO$;"."::"Now try to find the order of symbols which create the following display.":30000AFT,1:CL$:EVALUATE TO LV PLACES#8)8,36,8:PAUSE,5::30000*U8010:8200ZLO14:ZN((DI$,LO,1)):8200:AFT,2:CN$SS$(ZN)CO$" causes this to "TV$(LO1)".":AFT,1:(LO)9300,9600,9500,9400d30000:LOn31000PROCESS LEVELWC0WIND9010:2000LV4ıV3:1500$FTY$"sound":LV4:15004K8100:8200jL8010:AFT,3:7:CN$"YOU SOLVED IT!"CC$CO$:30000P8010:3:"You have chosen the correct symbols and placed them in the correct order to duplicate the ritual."QL110:BOX,PO(PT)1,0,PO(PTyou make more than 10 choices, filling the 10 columns, your left-most choice will disappear.":30000START GIVING DISPLAYSCL$L14:DI$DI$(((1)4)):(TY$"flower":LV1:15002TY$"flight pattern":LV2:1500 <TY$"formation":L the correct symbols and their correct order.":30000 BCO:CEW:"This work screen will keep a record of the symbols you choose and the order you chose them in. It keeps this record in the columns at the top of the screen.":8300dLPT0:7:"Note: If symbols in the correct order.":30000 .CO:CEW:"If you took level 1 training, use your record of what you discovered to help you."::"If you did not take level 1 training, you can still";5 8" decode the ritual by making guesses until you discovern.":30000:1060 CL$:9000:8010:CO$"To select a symbol, press the LEFT ARROW key until the arrow points to the symbol you want, then press RETURN.":30000& $CO:CEW:"Your task will be to duplicate a ritual. To do this you must select the correcte on the screen."::"These are the symbols you will work with: ";:CN$SS$(0)SS$(1)SS$(2)SS$(3)CO$:HSP,0,2:AFT,1:30000 CL$:9000:8010:CO$"You will use this work screen for your training. This work screen is much the same as the level 1 work screeCN$;:L112:L03:SS$(L);:::CO$ :"You have chosen the second level of training. If you do this well, it will help you with decoding the ritual.":"You will learn the order in which symbols must be selected to create";y " the display you se , PROGRAM:APPRENTICE BEE KEEPER LEVEL 2JAUTHOR:SHANE P. MCCARRONdCOPYRIGHT:MECC, 1983(LAST UPDATE: 84/05/25 CPE216384d10000:INITIALIZATIONMAIN ROUTINE& CL$"Apprentice Bee Keeper Level 2"CC$::AFT,2:HSP,8,2:CO,75:                   E$(BP)::CO$: %DO MOVEMENT0%AFT,5:CN$f%ZBMO%(ZN)1:QX%159:QY%90:9790:9750:PAUSE,10%L1MC%(ZB,0):ZCMC%(ZB,L):L11MD%(ZB,L):QX%QX%DX%(ZC):QY%QY%DY%(ZC):9790:9750::%CO$:AFT,1:& DISPLAY BEE*&CO,QX%,QY%:QB$(L349:PLAY,L,3:::$L150:PLAY,((1)46)4,3::$L116:PLAY,L3,3::L116:PLAY,(17L)3,3::L116:PLAY,L3,3::%DISPLAY BEES&%L03:L101:CO%(4,L,L1)CO%(AR%(ZN),L,L1)::0%BP0:CN$:L03:CO,CO%(4,L,0),CO%(4,L,1):B$L16:CO,39,4216L:BO$(BO%(ZN));:CO,263:BO$(BO%(ZN)):L:CO,39:L115:BO$(BO%(ZN));::PARSE:CO$:z$DO SOUND$SO%(ZN)19420,9430,9440,9450,9460,9470:$L150:PLAY,50,3::$L150:PLAY,5,3::$L4931:PLAY,L,3::$$((16384)128)& $(Z$)27ZF0H $(Z$)27ZFZF1:ZF231000e$(Z$)13(Z$)89220z$(Z$)13ĺCO$:"$CO,29,CU%(ZN):(126):ZNZN1:ZN4ZN0,$9220T$DISPLAY BORDER^$NOJUST:CN$:CO,39,42:L115:BO$(BO%(ZN));::lh,4224,1681,1681,42AP#CN$:L03:CO,5,CU%(L):SH$(L)::CO$J#3:\#DISPLAY WORDz#CO$:8200:Z$CC$:WIND:#GET SELECTION#CN$:ZNHO:ZF0#WIND,29,50,37,160:CO:CEW:WIND$HOZN:CO,29,CU%(ZN):(127):16368,0:16384,128:Z9,191:CO:CEW:-SELECTION CURSOR WINDOWOWIND,27,42,38,160:CO:CEW:t TEXT WINDOW ON BOTTOM OF SCREEN WIND,0,173,279,191:CO:CEW:'#(#DISPLAY SUBROUTINES2#BUILD BASIC SCREEN<#2:0,4225,4225,1680,1680,42F#1,4224ork on identifying which symbol controls which "TY$".":FL1:SH3b430000:8200::FLFL0:2010>8010:8100:8200:"You seem to have them all identified.":30000H@DISPLAY CONTROLLER SUBROUTINESJTEXT WINDOW ON SCREENTWIND,39,42,27RA%(SH):TY9300,9600,9500,9400:Z$"Select correct symbol and press RETURN":9100:9200:ZNRA%(SH)Z$GO$(((1)4)1):9100:2100%WCWC1:WC1Z$"That's not correct, please try again.":9100:SHSH1:2100@*8200:8010:"You should continue to w30g8100:8200:"Would you like to check and see if you know all of them? ";:36000:8200:Z$"N"ıu Z4:98008010:"A "TY$" will be "TV$". You select the symbol you believe controls that "TY$".":30000:CO:CEW WC0:SH03:8100:8010:ZNY$" to be "TV$"! ";k "Select a symbol by pressing the left-arrow key, and then pressing RETURN.":30000{ 8010:8100 AFT,2:Z$"Press the "CN$(44)CO$" and RETURN for a symbol.":9100:AFT,19200:TY9300,9600,9500,9400:9900:Z$"Y"20o decode the ritual. Keep your records handy!":30000:31000Y GENERIC TESTING ROUTINE WIND,0,0,279,10:CO:CEW:TT$;CC$:WIND 9000:8200:8100:8010 "Each symbol causes a different "TY$" to be "TV$". Discover which symbol causes which "T3:TY$"formation":TV$"displayed":TT$"FORMATION":2000l TY4:TY$"sound":TV$"played":TT$"SOUND":2000< 8100:8200:8010:3:"You are ready for a more difficult problem. Go on to the Level 2 Apprentice Training, or you could be ready to attempt t you will work with: "CN$SS$(0)SS$(1)SS$(2)SS$(3)CO$:HSP,0,2:30000M VSPc TESTING ROUTINESn AFT,1w CL$ TY1:TY$"flower":TV$"displayed":TT$"FLOWER":2000 TY2:TY$"flight pattern":TV$"displayed":TT$"FLIGHT PATTERN":20008 TY:CN$:CO,75:L01:L103:SS$(L1);:::CO$ :"To decode this ritual you must discover which symbols cause what things to happen on the screen. This program will help you discover what each symbol can cause to happen."D :"These are the symbols=, PROGRAM:APPRENTICE BEE KEEPER LEVEL 1JAUTHOR:SHANE P. MCCARRONdCOPYRIGHT:MECC, 1983(LAST UPDATE: 84/05/25 CPE216384<10000:INITIALIZATIONMAIN ROUTINEWIND. AFT,2:HSP,8,2:CL$"Apprentice Bee Keeper Level 1"CC$          ctions"u":"Look for Patterns"::"Break the Ritual into Smaller Parts"CO$CA$;:GCP,Z3,Z4:Z1Z12:Z3250:40020:,WIND::30000'@CL$::"As an Apprentice Bee Keeper you can receive some training in the decoding of the rituals."::"Are you braZ3,Z4:Z391,Z49Z32,Z49:Z166:Z3215:Z4Z43::40020w:"and then try to figure out the entire ritual.":30000CL$::"As you decode the ritual remember to:"WIND,14,0,258,191:::GCP,Z1,Z2:CN$"Keep a Record"::"Make Guesses and Predi111:40000::"in what you see, hear, and record."=30000CL$::"The ritual is complicated. To solve a complicated problem it is good to work on one small part at a time."9:GCP,Z1,Z2:"Break the ritual into"CC$:"smaller parts"CC$CA$;:GCP,ts of the ritual to be repeated. This allows you to:":GCP,Z1,Z2:"Make Guesses,"CC$:"Revise Your Guesses"CC$:"and Make Predictions"CC$CA$;:GCP,Z3,Z4::Z159:Z3221:40020:300002CL$:CO,0,50:"You will be looking for"CC$::Z$"Patterns":CO,on the ritual and "PWIND,69,0,209,191::GCP,Z1,Z2:"Keep a ";:Z$"Record":39000:" of what you observe."CA$;:GCP,Z3,Z4:40020ZWIND::"Have a Data Recorder sheet or a piece of paper on hand.":300007xCL$::"You can cause the ritual or pari("the source of Menta Honey and the field must be protected from their torches by the Guard.":300002CL$:CO,0,83:"Would you like some tips on decoding the ritual? ";:36000:Z$"N"1550FCL$::"It is important that you concentrate closely YCL$::"Each of these parts of the ritual are coded in a secret symbolic language.";" You, as Royal Bee Keeper, must unlock this code so you can direct the Flower Field Guards to the flowers. The villainous neighboring tribe seeks to destroy ";"- the ";:Z$"flight pattern":39000:" to follow to the flowers"CO,0:"- the ";:Z$"formation":39000:" the nectar gatherers must keep"CO,0:"- the ";:Z$"sound":39000:" transmitted by the flowers which aids in their location":WIND:30000ual which ";G"directs the worker bees to the flower field.":30000CL$:"During the mysterious ritual the Queen Bee and her scouts show:":AWIND,14,0,279,191:CO,0:"- the type of ";:Z$"flower":39000:" containing the Royal Nectar":CO,0: The nectar from these blossoms must be quickly gathered and taken "; "to the hive to be made into Menta honey. The Queen Bee's scouts search out these fields and report back to the Queen." :"Each day the Queen Bee and her Scouts perform a rit Only because of"; " these mental powers are they able to outsmart their crafty and villainous neighbors, and stay a free and happy people.":30000F CL$:"Each day a new field of magical flowers grows and blooms someplace in the kingdom of Menta.nary mental powers. Their secret is Menta's Magical Honey." `::"Would you like to read the story of Menta? ";:36000:Z$"N"1330 ~CL$::"Each person eats a daily portion of Menta Honey and achieves feats of the mind unknown to ordinary people.AFT,4) PRFL,"QUEEN3.FNT":DFT,5,34912= MAIN PROGRAM N (901)1650z ::RFL,"QUEEN BEE OF MENTA.SCR":(5) 16368,0:L1300:LL300((16384)128): LSCREENS< VCL$::"The people who inhabit the Kingdom of Menta have extraordiNU":PN$(1)PR$(1):PN$(2)PR$(2):PN$(3)PR$(3):PN$(4)"the menu program"{ <CL$(12):CC$(3):CA$(1):CN$(14):CO$(15) FRFL,"QUEEN1.FNT":RFL,"QUEEN2.FNT":RFL,"BLOCK.FNT":RFL,"BOLD.PFT":DFT,1,30136:DFT,2,32768:DFT,3,32880:VSP,5:DFT,4,34040:2! PROGRAM:QUEEN BEE OF MENTA?AUTHOR:SHANE P. MCCARRON]COPYRIGHT: MECC, 1983 (LAST UPDATE: 84/05/25 CPE G 2PR$(1)"APPRENTICE BEE KEEPER LEVEL 1":PR$(2)"APPRENTICE BEE KEEPER LEVEL 2":PR$(3)"THE QUEEN BEE'S RITUAL":PR$(4)"ME          000`0x |||| ||x|8l````|| x````8p`````lxx|| |x ````l8|x0x0x| x0`0````0``0``l0003f<ff<CA1?mm=첲>C ?mm=H첲?~~?~??~0x 3333333cÃ0x~ ??~63366f涜1****$ 0TTTT$ 000ʒ℈?aa??aa?u`??????????|>>|>||>??   :16304,0:16302,0< D$"BRUNYUTIL.OBJ":RNH,"MUSIC.OBJ"a L1LD:LL((16384)128)LD: RNH,"HPRINT.OBJ":RNH,"MENU" A* PROGRAM:HELLO FOR STANDARD MENU 5.1EAUTHOR:SHANE MCCARRON_COPYRIGHT:MECC, 1983}(LAST UPDATE:83/10/28 SPMdINITIALIZATIONnD$(4)xLD300:LOGO DELAYMAIN PROGRAM 16368,0::230,64:D$"BRUNLOGO":16297,0:16299,0 of various aids. There are","three winning categories and to"nÃ"succeed you need to exit the maze","taking the least number of moves."^xà "QUEEN BEE OF MENTA","QUEEN BEE OF MENTA","Strategies of exploration and trial","and error help you decode a 4xuSPACE BAR ROUTINE$:u:SPACE::.y1200CPò USER DATA AREA_ZÃ"Mind Puzzles","","",2=dÃ"MAZES OF RODENTIA","MAZE","In this program, you participate in","a maze tournament by finding your way","through mazes of different sizes with","the help $(ZN):ZN32ı+>ZCZC1:(ZN);:16040?hBESC ESC SCREENrBCL$:6:"Use of ESC Key"CC$:::"You may want to quit in the middle of a program. If so, press the ESC (escape) key twice whenever the computer is waiting for you to type.":30000:0ZN(A$)>>ZN1ZN8ZN13ZN24(ZN49ZN48TN)16040n>ZN8ZC0ZCZC1:(8);:ZC0Z$(Z$,ZC)>ZC0ZN8Z$"":16040>ZN816040>ZN27ZEZE1:ZE16030,31000>ZN13ı>ZN24ZC0:Z$"":16035>ZC016040>Z$ZDS$(I,J)""DS$(I,J)" "ĺ" "DS$(I,J):CTCT1B:J::I:30000Q:WIND:CL$\:12000k:EEİ17000q:>INPUT ROUTINE>EXIT: ANSWER PLACED IN Z$>(1);:ZE0:16368,0:ZC0:GCP,ZX,ZY:Z$"">CO,ZX,ZY:CEL>A$:A$""16040>"Insert another diskette."*630000:CL$M6CS(P(P(999))1)16:SLOT #a6CS1CS7CS6k6CS::DESCRIPTIONS :CL$:DN$CC$:"* * *"CC$:WIND,0,36:CO:CT0:I1N:CT13DLİ30000::CO:CEW:CT1:MN$(I)::CTCT1/:J1DL: ASSUME";ml/" ANY LIABILITY RESULTING FROM ERRORS, OMISSIONS, OR USE OF THE INFORMATION CONTAINED HEREIN."v/WIND:VSP,1:30000:CL$:2DECIDE UPON SCREEN FORMAT2PD(PRDRSO):TNPDN23N1SP$"s"36END OPTION6CL$:11:8:S,SB=SOUND BYTE7.'CA$(1):CL$(12):CC$(3):D$(4)=8'T.SUPPORT BOOK INFO_N/DIıX/2:17:"NOTICE:"::WIND,28,40:CO b/VSP,5:"REASONABLE EFFORTS HAVE BEEN MADE IN THE PREPARATION OF THIS COURSEWARE TO ASSURE ITS ACCURACY. MECC CANNOTP(S)(S)(S1)256U':DL7:CA1:DR0:PR0:SO0:IN1:DI0:EE1:MH4:TC0:SB901$'DL=DESCRIPTION LINES,CA=TEACHER OPTION,DR=DISKETTE SUPPORT,PR=PRINTER SUPPORT,SOUND SWITCH,IN=INSTRUCTIONAL,DI=DISCLAIMER,EE=ESC ESC,MH=MENU HORIZONTAL,TC=TWO COLUMNPDİ14000:3090(  AN1İ15000:3090Q A0ANZ$CN$(A):Z1$MN$(A):4000[  3020a  v RUN THE PROGRAM 901,0 CL$:CO,0,89:"Getting "Z1$"..." Z1$"the management options"Z$"TEACHER OPTIONS" RNH,Z$ 'SUBROUTINES'mber? ";:CEL:16000:A$Z$7 XX(((78)256(79)))p CAA$(1)Z$"the management options":Z1$Z$:4000 A((A$)) PRAN2Z$X1$(0):Z1$X1$(1):4000 DRAN2PRZ$X2$(0):Z1$X2$(1):4000 SOAN2PRDRİ11000:3090 AN2inter Support":N2". "X1$(0)n >DRĖMH4:X2$(1)"DRIVE SUPPORT":X2$(0)"Diskette Support":N2PR". "X2$(0) HSOĖMH4:N2PRDR". Sound Switch" R3MH:N2PD". End": \:GCP,IX,IY: RESPOND TO USER'S CHOICE CO,IX,IY:MH:"Which nuProgram"SP$":":U GCP,ZX,ZY:L1(N(TC1).5):3MH:L". "MN$(L)::GCP,Z1,Z2: TCįCO,ZX,ZY:LLN:20MH:L". "MN$(L)::CO,Z1,Z2: :MH:"Options:": 3MH:N1". General Information" 4PRĖMH4:X1$(1)"PRINTER SUPPORT":X1$(0)"PrAT SCREEN VDN$,D2$,DV$,N; `MN$(N1),CN$(N),DS$(N,DL)m jL1N:MN$(L),CN$(L):L11DL:DS$(L,L1)::x t13000 BE A HELLO PROGRAM 2000:3000:1210 DISPLAY MENU WIND CL$DN$CC$ D2$""ĺD2$CC$ DV$CC$ 5:MH:"j PROGRAM:MENU 1.06PROGRAMMER:SHANE MCCARRONPCOPYRIGHT:MECC, 1983o( LAST UPDATE:84/05/24 RIW2OPTION FLAGS ARE AT 10010<PROGRAM DATA STARTS AT 50000MAIN PROGRAM10000:INITIALIZATION LREAD IN DESCRIPTIONS AND FORM       lf0~sC@a|g?0 @a|g0`@B !@B !@B !@B !````f@1` 0@` 0@```f@1` f03C@? f00 @a f0 `` 0@` 0@`@B !@B !````@B !@B !````  C`   ` 0@` 0@```    C` ` f0|a@?xC`?@mxc~``` 0@` 0@` $H!B $H!B $H!B $H!B   ````   $H!B $H!B $H!B $H!B ```p` C`p <<~~<~~<<~~<?`Luø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# ! 3#< = <=Lt <=LtLPLAu`y`LtL+tqtrt+tLuɯdt 8ɀ   Lޥ8e湥 uHuH L`qtrtL u u8u?=4=0>?`LtLt<0>?` f~~~ ~~~~~~ 0`0  0  0 ~~<~>>gccccg>>~~p` fffffffffl6iɆpqs 0 000000 0 0Z<|~~6[p [p\pdpep߹dpepOo oOo , g 8p ,No pWp) Xp YpZp):p ߅ l So ) L{o9p 9p )p ɛ Moo0LooɈ9ɘɍ8p7,:p 9pƝo) p  i5880`L 8p9p:pNoKp (L'o | {$0! 9p ,Ln ^ {$0LnNNo Ro|Po nr- o nQo n o-QoQoQo oLtnPoRoPo^`NNo ɠ ɛ8nm,mPݩ 2mhhhhhhhhh,mp` ֩PyQ ALŠҠ僁iq&AiLKi N8`  i`+ iR("խ)?` ` @)`,` j ެLj,H3l  6l  h6l`L, HHHHHHHHH k m jmNO,ɍj` ii imHihʍ?i@iAi LMiL hk ikMjkhk g<>=Mjk?'<>hkhkik` H g Rh PQ`L     Q&-DiQ&&ȭFiCi Aj& AjQ&-EiQ&&>i>iAi`Di-EiDi>i g&'Bi AjQ&-DiQ&&>i>iAi`*U U*ժ |j')JM|j)Fi Q&,JiP 0=j`}j`J&)` `L3f̙jj ߅$0Hjj LbLvjj hhЅ`8pPH)8 qȥq8)h` g R  QP (`L i`L)  @ Ji)jFiHi5jGiIii g&'Bi Ajhh hJ` &eeieh8ph&(hIihi heh) JJJJH)hJJh(jmhhMhhPjjjjjjj0jj) h0ȱjhj) h`,f`iʎAiLKi 9ggg`gg ugg g`g 9g ugg gg`sgtgtg8pmg.sg(mggtgmsgg`8pg)gJJ ggg g . g . g ng g) ggmgg`hHh0 " Cfm8h)` dem88eLf` deme` d8` f@ rf rf f`Lb dffL!f -``fʽ`) ` `fH`mS` dS`)Pe`Oe hPe gOe}`mf8ff`f` dLb,0*`%f 8fHfJhj`mfff` b d` b dI``L de8f`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhL{cfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff ``)   LX8e湥 pHpH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff f`emff !f%%h $20 LIc $ aHaH`dPe\eWeeeee fBf[ffffff(bb d cf hf gNOH c h f ghH ,aɈ$ cb h) e f g c ebbh`zo 8ɀ `2```L`bbbbps$% `@ DaIa6 L\fMa bHaa,aaɠ,ta ` a欄aah`ɀ)?  @IH c$ d e$%0 d        cccc|o`cccc|o`c c0 C1 F1Fac c0 C1 F1FaccLg00C@a `0 @a `00 c `0C 0@a `0C 0@accc c0 C1 F1Fac c0 C1 F1Fac `0C 0@a `0C 0@a0&30&3000`0x |||| ||x|8l````|| x````8p`````lxx|| |x ````l8|x0x0x| x0`0````0``0``l0`x000||0xxx||````` xxxxlxx x000000xx0x0xx0000 0``0 0x8h`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx`````x 8` 8 x8x x<`x 0```xxxx| ```0``0`0 ^ -`- &Ls`L 䎱 掲`RFRNSEN s`8ƹ>? ̎9p!>? ̎&pg^h_^`ȱ^Șe^^_iȑ^^_@A   - `@ @ `,X` {ݩ- <<`  'LlLԩ { R P>Q? ̎?P` & eL׭}~XLXLX ")>? ̎p F 8`L[8ghgmihmj8:l8LL{ 8ɀ  L8e湥 HH L` <=<ȥ?< <<= H <=I   "CC$:ZL7:9000:M"to take a peek at the maze and see where you are. But be careful! Seeing the whole maze costs you a lot of points.":20500PSCREEN 3AZ:CL$:CO,0,89:"One moment please..."dDILV2nCREATE MAZE&x0,DIDI:1,DI:s officially competing to"CC$:"become a"CC$:F:CN$"Knight of "KT$(KT)CC$CO$:::" MAZE LEVEL: "LV:" TYPE OF AID: "AS$(ZN):" MAZE ENTRY NUMBER: "SE:20500K1500:AC1360LCL$:CO,0,30:"If you get lost traveling the maze"::Z$"Press Palk to write on the walls":CO,WX:"E. Take no aid":"Which letter? ";:ZB$"A":ZT$"E":22000:TYZN:ACTY:AC1AC0:KT1:1340TY4TY1:CH1(TY5TY12KT(LVAC)3:KT(KT3)1:KT3KT3.<WIND,20,7,230,148:CO:CEW:::N$CC$:"iY:"You may choose to take any of these aids along:"WIND,41,7,230,148::CO,WX:"A. Take a set of directions":CO,WX:"B. Wear muddy boots to leave tracks along your path":CO,WX:"C. Take a ball of string to unroll as you go"5 CO,WX:"D. Take chwant the Royal Maze Master to select a maze for you? ";:21000:Z$"Y"ZN((1)250)1:1250:"What maze number in level "LV" do you want (1-250)? ";:ZB1:ZT250:21500:1260:"Your maze number is "ZN".":20500SEZN4CO:CEW:GCP,WX,WWIND,20,7,230,148:CO:CN$"TOURNAMENT ENTRY FORM"CC$CA$CO$:GCP,ZX,ZY:WIND,ZX,ZY,230,148::::"What is your":"name? "CA$;:INP,(23,".-AZ' "),N$CO:CEW::"What level maze do you want to attempt (1-7) ? ";:ZB1:ZT7:21500:LVZN]:"Do you :CEW:"It is important to remember which maze you have taken, because you may later want to challenge another competitor to take the same maze, or you yourself may want to take the same maze again."20500:RFL,"SCROLL.SCR"AFT,2:VSP:CE$:of Mazes, and for each level there are 250 different mazes to choose from. ";"After you have selected your level of difficulty, you may select a maze number from 1 to 250. If you wish, the Royal Maze Master will select a maze for you.":20500CObe afraid of the "CN$"royal observers"CO$". "CA$;:IMAGE,4,7,21:IMAGE,2,210,21:" They will be stationed throughout the mazes to ensure the fairness of the tournament.":20500M~CO,0,20:CEW:CO:"There are seven levels of difficulty in the Tournament :"As a competitor, your task is:"::CN$"TO NAVIGATE ELABORATE MAZES"CC$:"WITH THE FEWEST NUMBER OF MOVES"CC$:CO$ `"You can choose how difficult a maze you want to travel and what type of aid to take along.":20500tCO:CEW:CO,0,100:"Do not of the Royal Order is determined by the competitor's performance.":20500 LCO:CEW:"The competitors with the "CN$"ten highest"CO$" scores within each of the ranks will be sworn in as Knights and their names will be inscribed on the Royal Scrolls."v Ve are three ranks within"CC$:"the Royal Order"CC$:CN$ 8"Knights of Cheddar"CC$:"Knights of Havarti"CC$:"Knights of Brie"CC$:CO$:"These ranks correspond to three ";I B"levels of difficulty within the competition. Acceptance to any of the ranks hts of the Royal Order of Camembert."CO$W AFT,1:CO,255,30:CN$(98)(99)CO$:AFT,2 $7:"Membership in the Royal Order of Camembert is the highest honor bestowed upon anyone in the Kingdom of Rodentia.":205007 .WIND,0,24,279,191:CO:CEW:"Ther):Lo AFT,2:CL$CN$"MAZES OF RODENTIA"CC$CO$:CO,0,89:"Would you like instructions? ";:21000:Z$"N"1190( VSP,3:WIND,0,24,247,191:CO:CEW:"Welcome to the "CN$"Kingdom of Rodentia"CO$" and its traditional tournament to select the new "CN$"KnigV PROGRAM: MAZE/AUTHOR:SHANE MCCARRONHCOPYRIGHT MECC,1983g(LAST UPDATE: 84/05/25 CPEr210000MAIN PROGRAM :RFL,"MAZE.SCR":BOX,78,124,200,134::CO,81,126:"MAZES OF RODENTIA":(5):16368,0:L0300:LL300((16384)127        door in that direction. ":20500:25307 WIND:DND 9500:2200:CXCXMX%(D):CYCYMY%(D):9300:OCL(MZ%(CX,CY)):CL$::PTPT1:2900:9100:2100:9600 ACĭX%(PT)CXY%(PT)CY2700 SC03000 CH02590g WIND,0,164,230,191:(,120 # GO THROUGH THE MAZE WIND,0,164,230,191:CO:CEW:CO,0,168:(15)"Which direction do you want to move? "CA$;:INP,(1,LE$,1),A$ A$"P"İ9800:2590 ND(A$"E")(A$"N")2(A$"W")3(A$"S")4( RO(ND)0įCO:CEW:"There is no,120REN0:EXIT ROOM5(14):::0:WHD}TY3ZNLN(L(MZ%(CX,CY))):BOX,132,79,145,94:CO,131,79:ST$(ZN)S$(0)SH$(TY,D,1):S$(1)SH$(TY,D,2):EDX%(WH):BDY%(WH)(D%(TY,WH))12(TY3)SD%(TY,WH)2:OD%(TY,WH):WH110,120,110%(2)2,X2%(2),Y2%(2)2,2:NF%1:CLOSE THE ENTRANCEXCE(6)1:CE(2)1:OD2:VSP,0:2581h4ENTER ROOMy9CTCT1:EN1>AFT,1:(14):WHJ(D2)HS$(0)SH$(TY,D,1):S$(1)SH$(TY,D,2):BDX%(WH):EDY%(WH)MSD%(TY,WH)2:OD%(TY,WH):WH110,120,1102):UN,H(MZ%(ZX,ZY)):UN19:UNNU%,1:L14:ZNZNB(L)2(L1):L:MZ%(ZX,ZY)ZN256PT1:SC((DIAC4)21000):DS(DIAC4)50:VSP,0,0:CL$::CXEX%:CY1:CT0:D4:AC0SC(DI2)1009300:RO(2)1:9100:(15):RO(2)022100:BOX,X1%(2),Y1DISPLAY FIRST CELL9400<ZYLR%:ZXEX%:ZY1ZY2KZX1ZX2^ZYDIZYDI1qZXDIZXDI1ZN0:UN,H(MZ%(ZX,ZY)):UN19:UNNU%,1:L14:ZNZNB(L)2(L1):L:MZ%(ZX,ZY)ZN256WZN0:ZXZXMX%(NU%):ZYZYMY%(NU%):NU%J(NU%;:8:"Go "D$(NF):GCP,ZX,ZY:ZY160İ20500:BOX,0,10,279,191::2Y|L:(37)2İ20500hSCREEN 5DCL$::::"You are now ready to enter the maze. Keep your Knight's Log handy! If you make any wrong turns you will have to start over.":20500TINE FROM COORDINATE MAP TO LEFT-RIGHT DIRECTIONSUTX%(ZN1)LR%:Y%(ZN1)DI1:ZH4^CL$::"To exit this maze, you must:"hL1ZN:XDX%(L1)X%(L):YDY%(L1)Y%(L):L114:MX%(L1)XDMY%(L1)YDFL1:L14BrL1:NFJ(FZH):ZHF::1(L10));L 1540MOVE BACK?ZNZN1:CXX%(ZN):CYY%(ZN):1460UMOVE FORWARD ONECXCXMX%(D):CYCYMY%(D):MZ%(CX,CY)MZ%(CX,CY)128ZNZN1:X%(ZN)CX:Y%(ZN)CY"CXLR%CYDI1590,14606@SCREEN 5C1JALSO, A TRANSLATION ROUCX,CY)128:X%(1)CX:Y%(1)CY:ZN17 MAIN SEARCH LOOPQ UN,MZ%(CX,CY):UN19 F0:COUNT14:B(ZV)0(MZ%(CXMX%(ZV),CYMY%(ZV))127)ĭB(D)(MZ%(CXMX%(D),CYMY%(D))128)F1:COUNT4:1500 ZVZV1:ZVJ(ZV):DD1:DJ(D)COUNT:F01520EN 6 nCL$::8:"Your directions are being prepared. Make sure you have your Knight's Log to write them on.":1400:1600:2000 x 9400:L1DI:L11DI:MZ%(L,L1)(MZ%(L,L1)256):::CXEX%:CY1:SEARCH MAZE ROUTINE! D4:ZV1:MZ%(CX,CY)MZ%(L <10070:AC2000$ FSCREEN 5A P(15)CL$:CO,0,25:"The Royal Map Maker will give you directions for finding your way through the maze. Record these directions on the Knight's Log and follow them carefully as you move along." Z20500 dSCREX%SE:T2DI:LR%MO(S)1:T24:NU%MO(S)1J PLACE TERRAIN WITHIN CELLS L1DI:T1(L1)(SEL)(DI1):T2DI:Z1MO(S)1:T1T1(L1):T23:Z2MO(S)2:TE%(L,0)Z1:TE%(L,1)Z2:L L1DI:T1(LSE):T2DI:TE%(L,2)MO(S):TE%(L,2)0TE%(L,0)0 ,79:SH$(TY,D,1):LX%131:LP%0$ s xL10:LBEO:L1L1:CO,131,L:S$(L1):L21100(TY2)SO:::LX%131:LY%LO:LP%L1:TY1ENįCO,131,79:SH$(TY,D,3):LY%79:LP%0:S$(0)SH$(TY,D,3) } MAIN PROGRAM* T1(DI4)SE:T2DI:EX%MO(S)1:T1E( PROGRAM: MAZE PART25AUTHOR:SHANE MCCARRONNCOPYRIGHT MECC,1983m(LAST UPDATE: 84/05/25 CPE2:10000:1000dFAST SUBROUTINES nL10:LBEO:L1L1:CO,L,79:S$(L1):L21100(TY2)SO:::LX%LO:LY%79:LP%L1:TY1ENįCO,131            0`x000||0xxx||````` xxxxlxx x000000xx0x0xx0000 0``0 0xh`lllll~~~0` pvv0`0``0`000`~<~0000`` 0`xx`````x 8` 8 x8x x<`x 0```xxxx| ```0``0`0RNH,"MENU"MENU": the menu program...":SET,0:RNH,"MENU"ySTANDARD ENDING ROUTINE&yVSP"yWIND:CL$:(15):CO,0,89:"Do you want to compete again? ";:INP,(3,"YESNO",1),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010'y,yZN$"Y"įRNH,"MAZE" 6yVSP,1,0:CL$:CO,0,89:"Getting the menu...":SET,0::BOUNDS OF RANGE ARE ZB$ (BOTTOM) AND ZT$ (TOP)VINP,(1,"-"ZB$ZT$,1),Z$:Z$ZB$Z$ZT$įCO,0,181:ZF1:JUST:"Enter a letter between "ZB$" and "ZT$"."(3):PARSE:CO,ZH,ZV:CEL:22030VZFįBOX,0,181,279,191:ZF0:CO,ZH,ZV"VZN(Z$)(ZB$)1:L,N,1),Z$:(Z$)ZB(Z$)ZTįCO,0,181:JUST:ZF1:"Enter a number between "(ZB)" and "(ZT)"."(3):CO,ZH,ZV:CEL:PARSE:21530$TZN(Z$):ZFįBOX,0,181,279,191:ZF0:CO,ZH,ZV.TUSTANDARD RANGED SINGLE CHARACTER INPUTUCA$;0UGCP,ZH,ZVARTI":KT$(3)"BRIE"Q'*P:SPACE::ERSTANDARD YES-NO INPUTO RCA$;RGCP,ZH,ZV:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"įCO,ZH,ZV:CEL:21010RSSTANDARD RANGED NUMERIC INPUTTCA$;:GCP,ZH,ZVTZL((ZT))TINP,(Z):CH(903):DI(904):SE(905):KT(906):VARIABLES FROM MAZE PART1P%'D$(4))'D$"OPENMAZE.SEQ":D$"READMAZE.SEQ":NA$,SC:D$"CLOSEMAZE.SEQ".'KT$(3),NA$(10),SC(10)8'D$(4):CL$(12):CA$(1):CE$(5):CC$(3)M'KT$(1)"CHEDDAR":KT$(2)"HAVournament.":VSP |20500* SC0:4150? ELIMINATE ENTRYS LZNZNZN1: L1L1ZN:NA$(L11)NA$(L1):SC(L11)SC(L1)::ZNZN1: 'INITIALIZATION ':14336:0 'RFL,"ASCII BOLD.PFT":AFT,2:CN$(14):CO$(15)D$'TY(901):AC(902:L0ZN:NA$(L)","SC(L)::D$"CLOSESCORE"KT> T20500:31000T hNOT A HIGH SCORE] mZS1 r:RFL,"SCROLL.SCR":CE$:WIND,20,7,230,148:CO:VSP,8:"CONGRATULATIONS!"CC$:::"With a score of "SC" you were a very good contender in this round of the tER OF CAMEMBERT"CO$CC$:20500r 6:RFL,"SCROLL.SCR":WIND,20,7,230,148:CE$:CO:VSP,3:"KNIGHTS OF "KT$(KT);CC$ @:LZSZN:LZS10ĺ" "; ELZS". "NA$(L);:25:5((SC(L))))SC(L):L FSC04180, JD$"OPENSCORE"KT:D$"WRITESCORE"KT:ZN1SC(L)SC(L1)TSC(L):SC(L)SC(L1):SC(L1)T:T$NA$(L):NA$(L)NA$(L1):NA$(L1)T$W ": ,VSP,4:WIND,75,0,279,191:CL$:IMAGE,1,7,20:5:"You are hereby sworn"CC$::"in as a"CC$ 1CN$:"KNIGHT OF "KT$(KT)CC$:CO$:"of"CC$:WIND::CN$"THE ROYAL ORD D$"CLOSE"% SC0ZS1:41504 ZN04100T ZN10SCSC(ZN)ZS1:4200 FZN:L1ZN:NA$NA$(L)EF2:SCSC(L)İ4300:EF1:LF :ZS0:EF24200 ENTER SCORE IN LIST SC(0)SC:NA$(0)NA$ ZN9ZN9O L0ZN1:L1L1ZN:  PROGRAM: MAZE PART35AUTHOR:SHANE MCCARRONNCOPYRIGHT MECC,1983m(LAST UPDATE: 84/05/25 CPEz2:10000HIGH SCORE HANDLING ROUTINE(15):RFL,"MAZE3.IMA" :D$"OPENSCORE"KT:D$"READSCORE"KT:ZN:ZN0āL1ZN:NA$(L),SC(L):      OF MENTA"ENTA"C8@ 60[    8@   60[  TTPRBJ **()!%TTPRBJ **()!%|c03C@ f00 @a f03  0`@ 0`@ 0`@ 0`@   TTPRBJ **()!%TTPRBJ **()!% x@?x@a  0`@ 0`@ 0`@ 0`@ ` 0 fff">"bbb108fff">"bbb000fff">"bbbUB@UA<BpU@Bp@ @ X*g*uVjX*g*}xVjXjgzx@WjXjajQ~@UzXja*@U:DXja+}BpU:IXj+u`?U:IXj/U`:U:IXj,Ux*U:IXjX*U>IX*pU:X>UIx*@W:X>UI`*}^:x*UI`*ux>`*U>I`+u`+u:H+U`u;I/U>xWzIAU*CUj:AƼU*GUjzU*UWjk/U*UjWj+u+U*Uj+U+U*UjU+x+]*UjuC*Wx*]*Uju@*Wx*]*Uju~jx*]*UjuXjX*_*Ujw^jX**U*VjAcA{A?AyE/d.Dg ybG g#K.DysE |_8/Dm?2D `?F8#D`0vG `pg?q#Dg`C3d|GO_?q/dA xAyB<|@Ep0`CD@0D@pC@<B@0C@pA@A@ 2BBx@F`~@pF`@pF`s|LF nE#FE <E#| ExO xE|a<`CpapC@a@C@aCB@B@A@@ *Ap@CxK?DbG|E@GnE@"F Ep}|.~FD`xF`?q"F8`C`re Ja`H#OGxcE CGK/CF#F@@D`];F`wn}F`};wbG`woqG`^;"D<H`xo]rHx`{"DHH`?~bH`f#DHH`bsxE|p];E@w>B`A^;BxAx>C@ǻAx;CpB`~H<`{D?Ho`?H`H|~?Hp@|Hp|Gpg?~G@g|F|Ĉ?@     ` @a @`` 0@` 0@`TTPRBJ **()!%TTPRBJ **()!%`ULj/G.U/G.U?/H@/U//H@+U// H@+U/?. H@+Up/.Hp+U@+C/Hp*U@+C+H|*U@+CkG\*U@+CkG|*U@+CFp+U@+F@+UB@CpC՞CDAxHժ?@_HܪժpU@߁C0U@ׁC0UA`ׁC0U@`ժD՚@`ժD՚,U:@`ժD,U:@xժ,Uzժ꫟,Ujժ/Ujժ+Ujժ+Uj@ժպx+U*pվ~+U*\Χ+U*|^+U*|ժUzD D D CF<`C@xCa@x@aC@CpOa~0xOafp|a@f00`@f<pa@f @Ka@~ @g@xDf@J~@`@EpDx0xD`0`D`0`D`3`C3`C?`B<`B`B<`B0`B0`BpxB@A@@ /A@ I0UO1p|I0U~g=0~oIH+U:^j_*UH[,9x*U*}G[,9`/U*G[49|UjD/U>@@BB~BBBYCFJUNG\I?dGQF@`Dp`@HB@@_BY_CFJ*NG\@@C~dGOG|L|HBFACFJUNG_DsdGOD@CAAGA <CFJ*NGAGO?_WUUUBUABUCUBB>0CFJUNGTvGJ??C*B*B***B*AB*C*Bt u@ )` t t t0H)?hJ t t t?Lt t&'&Ȅ``tt ttt`t)tJJ tttt .t .t ntt)ŬҬά٠ĬŠìŠìŬŬŠЮά333̳38DEG,8T$ p33333<<<<~~~~<<0 `@@@` 08  8 xx 00338|}?T$ p3 88|}?T$ p<<~~~~<<<<0 `@@@` 08  89? ;0ȈȰ??΀0 `@@@` 0p  p8DEG,8T$ p΀0 `@@@` 0p  p8DEG,8T$p<<<<~~~~<<0 `@@@` 08  8   ss0 08 uh`   ss0 08  88|}?T$p<<~~~~<<<<0 `@@@` 08  89? 0ȈȰ??     GAGsBcB6cCtwutJUNGAGsBsB63CCnJ*NAsBc600`CFJUOAs``wBfgC{9{{ J*B MBlLC8W0W8JUBBgBlgC {{ J*BBC AC~}~}~JU<|dGsvC6ACFJ*NG_FdGsBcB6f`CBwJUNG_xpxqpxdGsBBCFB;FJ*NGAGsB`B0`Ca]a}}JUNGAGsBgB0gC.5B;J*NGAGsBsB63Cwx{JUNGAGsBs600p00CBnJ*N|BBxB xCFJ*NG_AAy9dGQF@D`@H?BByBLyCFJUNG_A@cp|@@dGOFx~J~xHBBX}- CFJ*NG_AcdGOH@NHxBByB{CFJUNG\A||~dGsBBqCFJ*NG\G|ApdGs00{C3ACFJUNG_ŬӠŮŠͮͮ Le0L~`ȹ0L~`0L~`)n`H8h*`J.K.L.M8LNMO LMJ`LMJKNO JKLM`Nmjn`} P } P =~ 0`L}1~7~ ~ !~ ~ !~1~`>1~`1~}7~1~` m` ~ w~ ~ ~ ~`80L~`||}}|}}|| } [~  @L| } PL}8i mȹm =~L|-}}}}`    ŬЬ̬ Ѐ)рnЀ` ժժՆתժժժժժժתw>x .Uz"D+U~eݻ䈑תn;}`"Dx m#{?zb/Uj_j*=+]HժժՆ׆תժժժժժתw.~"Dba"DHfݻ䈑תo{u{?/Uj"VNժժ.ժժժժժժժժwkׯGq+U*"DHW*gݻ䈑תn W3 "D"^"D"D9UjUj>uHתժժժժժժժժժժժ֮D"|;wn]{ժבĈתw>u8`"D "D"D"D"D"D"D|ߪժժժժժݪժժժժժժժ#Dn]{;w׽ב匑תng"V"D"D"D"D"DW"DHժ?qտժժժժתתg?.G"DHy"D"D vתGkylUjar0ժpկվ0U*U+U?b߾"ժժתժňתg Y:\"D"D"D"D"D"DGoy/~*?Db_"D"D<xb/ bժժՆתժժժժժժժg:ٺx#D,UjE+U~qݻ݋תGl3}`"D2"O 3"{x"DH+Uz_j*?+bժժמתժժժժժܪgY.D"DHa"Drvݻ݋תGl3u>D QgG zD2x_*5X*ujbժժgժժժժժժժժժ"Dq/D_jE"Dqݻ݋תGlq0d*}rE"D"D"D"Uj_oժժߪx@ժժժժժժժժGkg"d*UjG"V*wݻ݋תGl#VD"D"D"D"D"D"D"D"D_^bժժgտժժժժժժתw?X,"Dba"Dfݻ䈑תkLUaxpGպxtqQ#LxQ_8"dW*5X*u+GHժժժժժժժժժժժ"D"^~"Db䏑תne0q+uH"D"D"D"D9U~Uj"|KժժժժxCժժժժժժժժk]xEq+Uj"DWjgݻ䈑תn_nnj"D"D"D"D9U:Uj2UKߪժժժժժժժժժժժ/D"?wn]{ժבĈתw2UKa"D"D"D"D"D"D"Dժժժժժժժժժժժժժڮ#Dqo];wn];wתבĈתw.G"\:"D"D"D"D"D|"DHժժժayժժժժժժתgy>G"DHa"D"D vݻ݋תGklUx>x3?~~" q*U*u+U;bbժժժժժ՚Ĉňתg0qzE"D"D"D"D"D"DxGllU*@G#D"D `r* bժժՆ<|ժժժժժժժժg:?`"D+UjG+Ujqݻ݋תGl3]x#DbK sc }"DH/UFWjk//bժժaךתժժժժժ՞ܪgy.D|"Dxa"D2UCwݻ݋תGl3u"D1|t bD2FqU*5Y*u+bתժժժժժժժժժy"Drq?D"D|ĸňתGlqpE/u"D"D"D"D">D"D"D"D">U:Uj8Uc@ժժժժժժժժժժժ"DH];w~ժňתg;Uoa"D"D"D"D"D"Dժժժժժժժժժժժժժھ "D?wn];wn}ժňתg,Xy:D"D"D"D"DrGb!! ! ! ! ! !!!!!!!!!     PUT A BOX AROUND Z$=2JCA$;:GCP,Z1,Z2:Z$CA$;:GCP,Z3,Z4X2TALTERNATE ENTRY POINT2^2:Z13,Z22Z13,Z49Z3,Z49Z3,Z22Z12,Z22:Z14,Z23Z14,Z410Z31,Z410Z31,Z23Z13,Z23::3::3:4,Z410Z31,Z410Z31,Z23Z13,Z23::3׬ŬͬƬΠͮ͠Ȯ͠ԮŠͮϠԬĬ" d)gJJ ggdh .h .h ngh)hgmfg`IMAGx`ׂ`)*,Ii>Pjjjjjjj0N*jJ ->0ȱ>jN*+j ->` g R  QP (`L .`L fe`df ԃgh`d ԃghe`҃ӃӃ8p̃.҃(̃eӃm҃f`8p<m?e>>? `/0<=(0% Hh @H(hJ)?<= {PpL2 & &JJ==<= {P`؂ւׂ)-hق ڂ >?  s>? e>>?ւ؂قH(׀?LɁHILɯd 8ɀ   Lޥ8e湥 HH L`HILLޭ@A @0R Y i,8,+ @<ȱ@=@e<