' +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*`T,7=IMAGE TABLE,2=ASCII BOLD.FNT2L'24576:AFT,0fM'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 YES-NO INPUT RCA$;PRGINITIALIZATION(':14336:0:VSP,3,08'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":DFT,1,30137:DFT,7,33814: 1=MAZE.FNe most respected of knights, a Knight of Brie."d::"Good luck in the competition!"CC$:20500:(#PRINT Z$ ON SCREEN AND PUT A BOX AROUND IT2#Z$CA$;:GCP,ZX,ZY:ZL(ZL8)4:ZH11:ZYZY2<#3:ZX,ZYZX,ZYZHZXZL,ZYZHZXZL,ZYZX,ZY::'of Brie. Be very cautious, plan your moves well and you too may become a Knight of Havarti!":20500:zKNIGHTS 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 thNIGHT OF HAVARTIJWIND:CL$:4:"Should you be successful and become a Knight of Havarti you will have achieved the second highest order of knighthood. ";eT"Knights of Havarti often reenter the competition to achieve the highest order, the Knights RWIND: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:@K:1,DI:2,DI:LMA391MA396:L,SEED:L:MAZEb901,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 CHEDDAZ13,Z22Z13,Z49Z3,Z49Z3,Z22Z12,Z22:Z14,Z23Z14,Z410Z31,Z410Z31,Z23Z13,Z23::3::L07:ZNZN2LCE(L1):L:MZ%(CX,CY)H(MZ%(CX,CY))256ZN:k!%SET AND CLEAR TERRAIN BITS ON ENTRANCEz!%WHJ(D2)!%TY3CE(WH)1:9620!%CE(4WH)1:CE(WH)CE(WH)0"%ZN0:L07:ZNZN2LCE(L1):L:MZ%(CX,CY)H(MZ%(CX,CY))256ZN:L14(8):CXLR%CYDIRO(4)1M r$UN,L(MZ%(CX,CY)):UN19:L18:CE(L)B(L):LS |$g $LOAD MZ% ARRAY $ARAD:L1DI:L11DI:MZ%(L1,L)(AR)256:ARAR1:L1:L $ %SET AND CLEAR ROOM TERRAIN BITS ON EXIT &%CE(D)1:CE(4D)CE(4D)0?!0%ZN0X09280A=$ZNLN(L(MZ%(CX,CY))):CO,131,79:ST$(ZN):EN0:EX0@$NF%(CXEX%CY1)įBOX,X1%(2),Y1%(2)2,X2%(2),Y2%(2)2,2J$9700:CE$:SO0:T$DECODE ROOMY$CYDI1CXLR%2600^$UN,H(MZ%(CX,CY)):UN19 h$L14:RO(L)B(L):L:RO(0)B100"$DO:DSD:9280;,$DO14:(CE(DO)CE(DO4))9275M-$CE(DO)EXDOa.$CE(DO4)ENDO}/$DO9265,9270,9265,92701$LDX%(DO)131(D%(TY,DO))8:CO,L,79:ST$(1):L:92756$LDX%(DO)79(D%(TY,DO))16:CO,131,L:ST$(2):L;$DO:EN0E$L$CHOC(CE$(CX,CY))ĺ(15):3:ZHQX%(1)20:ZVQY%(1)40:ZH,ZVZH12,ZVZH12,ZV10ZH,ZV10ZH,ZV:CO,ZH3,ZV2:CE$(CX,CY)$(14) $TY9280,9230,9260$SDD:DO14:(CE(DO))9240$DDO:2200$(CE(DO4))9250$DJ(DO2):2#:SO1#AFT,1?#BOX,15,12,264,162,3:BOX,19,16,260,157^#(14):::CO,234,25:T0$#(15):::CO,239,17:"N":CO,225,31:"W":CO,252,31:"E":CO,239,44:"S":2800:(14)#OPEN DOORS#L14:RO(L)įBOX,X1%(L),Y1%(L),X2%(L),Y2%(L)c AC0SC(DI2)100'd SC0SC0-h B LOST WITH SCORE (15);CL$:CO,0,79:VSP,2:"Your score has dropped to 0, and you have been eaten by a fire-breathing dragon.":VSP:20500:SC0:2605(#ROOM DISPLAY ROUTINES#DRAW ROOM BORDER00:PT0:NF%0:2000 (15):CO,0,164:CEW:CO,0,164:"You have gone off the path shown you and are hopelessly lost!":20500:SC0:2605 DISPLAY SCORE WIND,232,164,279,191:(15):CO:"Score"CC$:SC;CC$:WIND:T UPDATE SCORE^ SC(SCDS)t please...":D$"OPENMAZE.SEQ":D$"WRITEMAZE.SEQ":NA$","SC:D$"CLOSE":RNH,"MAZE PART3"k ABRUPT ENDING BC0BCBC1:CO,0,164:(15):CO,0,164:CEW:HSP,1:"You have made a wrong turn. The Royal Observers will allow you one more try.":HSP,2:205V2:CE$(CX,CY)CC$:WIND" 25006( ENDING ROUTINED) PAUSE,20* CL$:CO,0,89:CO$"You have completed the contest!"CC$:20500, CO$:HSP,1:CL$"This is the maze you just came through."CC$:HSP,2:9900:20500X- (15):CL$:CO,0,89:"One momen(15):CO:CEW:CO,0,168:"What mark would you like to leave here? ";:INP,(1,0),Z$:Z$""CE$(CX,CY)Z$ (CE$(CX,CY))įWIND,ZH,ZV,ZH12,ZV10:3:ZHQX%(1)20:ZVQY%(1)40:BOX,ZH1,ZV1,ZH10,ZV9:ZH,ZVZH12,ZVZH12,ZV10ZH,ZV10ZH,ZV:CO,ZH,Z1,0:CL$:CO,0,89:"One moment please...":SET,0:RNH,"MENU","MENU"DRNH,"MENU":SET,0:RNH,"MENU"ENU"D0,181,279,191:ZF0:CO,ZH,ZV:H!"VWIND,Z1,Z2,Z3,Z4:ZN(Z$)(ZB$)1:e!ySTANDARD ENDING ROUTINE!"yWIND:CL$:(15):CO,0,89:"Do you want to try again? ";:INP,(3,"YESNO",1),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"31010!'y!,yZN$"Y"Ĭ<"6yVSP,4):Z3Z1(772)(773)256:Z4(775):WINDi UGCP,ZH,ZV: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:22030!VZFįBOX,""21540qT(Z$)ZB(Z$)ZTįCO,0,181:ZF1:"Enter a number between "(ZB)" and "(ZT)"."CC$:CO,ZH,ZV:21530$TZN(Z$):ZFįBOX,0,181,279,191:ZF0:CO,ZH,ZV:.TWIND,Z1,Z2,Z3,Z4:USTANDARD RANGED SINGLE CHARACTER INPUT* UZ1(771):Z2(77CP,ZH,ZV:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"įCO,ZH,ZV:CEL:21010VRySSTANDARD RANGED NUMERIC INPUTTZ1(771):Z2(774):Z3Z1(772)(773)256:Z4(775):WINDTCA$;:GCP,ZH,ZVTZL((ZT))TINP,(ZL,N,(ZC)),Z$:ZCZ$#DߺժժժժժꑢתתwF/"Db_"Df"DתkeLUja{,dyկypEH_*U/U/DH߮"Dyժժ}]תժבĈתw,^:y"D"D"D"D"D"D"Eq_"DHG"D2` ?-DH81,279,191:ZF0:CO,ZH,ZV10"VZN(Z$)(ZB$)1:N0ySTANDARD ENDING ROUTINE0"yWIND:CL$:(15):12:"Do you want to try again? ";:INP,(3,"YESNO",1),ZN$:ZN$(ZN$,1):ZN$"Y"ZN$"N"310100'y0,yZN$"Y"įRNH,"MAZE"%16yVSP,1,0:CL$:12:"OneD SINGLE CHARACTER INPUT"/UCA$;a/UGCP,ZH,ZV: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:220300VZFįBOX,0,1.TCA$;:GCP,ZH,ZV%.TZL((ZT)).TINP,(ZL,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..T/USTANDARD RANGE(DATA FOR IMAGE OFFSETSD-n(7,10,7,5,14,5,14,5,14,5,14,5,14,5,14,5J-)[-P:SPACE::v-RSTANDARD YES-NO INPUT- RCA$;-RGCP,ZH,ZV:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"įCO,ZH,ZV:CEL:21010-R.SSTANDARD RANGED NUMERIC INPUTER ROOM DATA STATEMENTS7,( 247,131,-2,-16,-2,243,147P,( 13,79,1,17,2,16,67k,(( 15,131,2,16,2,19,115,2( 145,79,-1,-17,-2,147,96,<(QUADRANT POINTERS,F(L14:QX%(L),QY%(L):L,P(147,17,21,17,21,99,147,99,Z(L18:OF%(L,0),OF%(L,1):-d29,157,149,162++'L14:MX%(L),MY%(L):LC+' 1,0,0,-1,-1,0,0,1+'D$(3)"RIGHT":D$(4)"STRAIGHT":D$(1)"LEFT":D$(2)"BACK"+'E(1)2:E(2)1:E(3)2:E(4)1+'L14:DX%(L),DY%(L),D%(1,L),D%(2,L),D%(3,L),A,B:TY2DX%(L)A:DY%(L)B+'L,(ENT00,102,104,106y*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*'READ IN DOOR COORDINATES*'L14:X1%(L),Y1%(L),X2%(L),Y2%(L):L*'260,77,264,97*'129,12,149,15*'15,77,18,97+'1APE STRINGS)`'L13:L114:L212((L1)(L12(L12))):C(L21)24((L11)6((L2)1)):SH$(L,L1,L2)(31C)(C32):L2:L1:L:T0$(80)(81))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,1(4):CL$(12):CA$(1):CE$(5):CC$(3):CN$(14):CO$(15):MAZE31914:AD32701:UN32976:UN IS THE UNPACKER WORK AREA(B'IL%1:IL% IS IMAGE LOADED(L'AFT,1:MO(S)T1(T1T2)T2(M'KT$(1)"CHEDDAR":KT$(2)"HAVARTI":KT$(3)"BRIE"(Q' )V'LOAD SH04):SE(905):VARIABLES FROM MAZE PART 1S'%'D$(4):LE$"NSEW":AC0LE$LE$"P"')'D$"OPENMAZE.SEQ":D$"READMAZE.SEQ":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)x(8'D$%(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,BY%(Y),BX%(X)XY,BY%(Y)XX1& 'X:Y:&'INITIALIZATION&':16384:0:VSP,3,0:WIND)'$'TY(901):AC(902):CH(903):DI(9L0DI:L10XX1:BX%(L)L1,BY%(0)BX%(L)L1,BY%(DI)XX1:L1:L%&L0DI:L10XX1:BX%(0),BY%(L)L1BX%(DI)XX1,BY%(L)L1:L1:L%&XZ((ZVXX)3):XY((ZHXX)3):BOX,BX%(EX%1)XYXX,BY%(0),BX%(EX%)XY,BY%(0)XX1"&&Y1DI:X1DI:UN,H(MZY%(CY1)XYXX:"*"`$\&PAUSE,60:CL$:SC(SC2):2915:9100:CO,LX%,LY%:(14);S$(LP%);(15):r$&DISPLAY MAZE}$&(15)$&ZH(260DI):BX%(0)139130:ZV(165DI):BY%(0)10$&L1DI:BX%(L)BX%(L1)ZH:BY%(L)BY%(L1)ZV::XX(11DI)21B%&3:ESE#&IMAGE,IM%,QX%(TE%(CY,1))OF%(IM%,0),QY%(TE%(CY,1))OF%(IM%,1)K# &]#H&PEEK AT MAZE#M&AC0(SC2)DSįCO,0,164:CEW:HSP,1:"Your score is too low to allow you to peek at the maze.":HSP,2:20500:$R&PCPC1:CL$:9900:CO,BX%(CX1)XYXX,B:CE(L4)ODL"%L:*"%PLACE TERRAINU"%IL% IS THE CURRENT IMAGE BLOCK LOADEDx"%IM%TE%(CY,2):CXTE%(CY,0)ı"%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 IMAG"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@L1)21,0:EN$(L)::PTPT1:CO$:AFT,1:J4!DISPLAY CURRENT SMALL ENTRYT9!WIND>!CO,65(PT1)21,0:AFT,2:CN$CH$CO$;:AFT,1H!"DISPLAY A SEQUENCE"ZL1(Z$):ZN((Z$,ZL,1)):PAUSE,10:ZL9300,9600,9500,9400:"'# (#DISPLAgain? ";:36000,yZ$"Y"Ĭo6yCL$:CO,0,89:"One moment please...":SET,0:901,1:RNH,"QUEEN BEE OF MENTA"STANDARD YES-NO INPUTCA$;GCP,ZH,ZV:CEL:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"įCO,ZH,ZV:36020ANT DELTAS52( 1,0,1,-1,0,-1,-1,-1,-1,0,-1,1,0,1,1,1;*J0uSPACE BAR_:uCA$;:SPACE::y901,1:SET,0:CO$;CL$:CO,0,89:"One moment please...":RNH,"QUEEN BEE OF MENTA": ESC MENUy"yWIND:CL$:(15):CO,0,89:"Do you want to try a# COMMANDS,DIRECTION 1,# REPEATS,...DIRECTION N, #REPEATSc'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,10,5,20,8,20,5,20,2,10(4,8,30,3,20,6,20,3,20(5,3,30,1,20,7,30,5,10,3,10 ((MOVEME3:BO%(L)L:SO%(L)L:AR%(L)L:MO%(L)L:M~'L14:GO$(L)::L12:BA$(L):r'Good,Right,Correct,Yes,No,Wrong'L16:MC%(L,0):L11MC%(L,0):MC%(L,L1),MD%(L,L1)::'L18:DX%(L),DY%(L):'BEE MOVEMENT DATA9'FORMAT: START X,START Y,$%":QB$(2)"&'"(40):QB$(3)QB$(2)R8'L03:L103:L201:CO%(L,L1,L2):::tB'129,106,145,98,161,90,177,82L'129,82,145,90,161,98,177,106V'129,89,145,89,161,89,177,89`'145,74,145,90,145,106,145,122j'L03:CU%(L)50L32:'t'L0,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).'L072:SS$((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)"#ZTRA%(Z1):RA%(Z1)RA%(Z2):RA%(Z2)ZT:L.\&J&CHECK FOR CONTINUATION&8200:"Do you want to choose another":"symbol? ";:36000:CO:CEW&'INITIALIZATION'CA$(1):CC$(3):CL$(12):CN$(14):CO$(15)V$'SH$(3),BO$(3),BE$(3),CO%(4:QX%QX%DX%(ZC):QY%QY%DY%(ZC):9790:9750::B%CO$:AFT,1:T& DISPLAY BEEo*&CO,QX%,QY%:QB$(BP):>& INCREMENT PHASE?&BPBP1:BP3BP0@&H&GET Z RANDOMS FROM 0 TO Z-1(R&L0Z1:RA%(L)L::L1Z2:Z1((1)Z):Z2((1)Z):"N"36020$XUNDERLINE TEXTmbCA$;: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,Z4 T2:Z13,Z22Z13,Z49Z3,Z49Z3,Z22Z12,Z22:Z14,Z23Z14,Z410Z31, yVSPI"yWIND:CL$:(15):12:"Do you want to try again? ";:21000W,yZ$"Y"Ĭ6yCL$:12:"Getting the menu...":SET,0:RNH,"MENU"STANDARD YES-NO INPUT(1);:GCP,ZX,ZY CO,ZX,ZY:CEL:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$:Z(Z$):"Getting "PN$(Z)"...":HSP,2:RNH,PR$(Z)MRSTANDARD YES-NO INPUTW RCA$;RGCP,ZH,ZV:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"įCO,ZH,ZV:CEL:21010R0uSPACE BAR:uCA$;:SPACE::yFL21670: ESC MENUy1650el 1"::CO,28::"2. Apprentice Bee Keeper, Level 2":CO,28:"3. "CA$"No Training":CO,49:"(go directly to the ritual)"::CO,28:"4. Return to main menu":HSPWIND:CO,0,150:FL21:"Which number? ";:INP,(1,"-14",1),Z$2CL$:CO,0,89:HSP,1HSP,1:CO,0,89:"Getting "PR$(3)"...":HSP,2:RNH,PR$(3)NrWIND:VSP,2:CL$sCO:"As an apprentice your training can be introductory (level 1) or advanced (level 2)."::"Choose:"4|WIND,0,0,279,191::HSP,2:CO,28:"1. Apprentice Bee Keeper, LevZ12:Z3250:40020:(,WIND::30000@CL$::"As an Apprentice Bee Keeper you can receive some training in the decoding of the rituals."::"Are you brave enough to try decoding the ritual ";E"without any training? ";:360008JZ$"Y"ĺCL$:0@EN$(PT)CH$R*BOX,PO(PT),0,PO(PT)8,36:CO,PO(PT),0:AFT,2:CN$CH$CO$:AFT,1o4TECTCT1:CT202200>TEFL0:DI$ZT$FL1HTEFLıMTEFLZ$"No, this is what you chose.":9100:Z$ZT$:8900:Z$"Sorry, that is not correct.":9100:030000:31005&:ELIMIINATE ENTRY:DLZNZNZN1:wNL1L1ZN:NA$(L11)NA$(L1):SC(L11)SC(L1)::ZNZN1:EVALUATE TO LV PLACESTEİ801085008100:WIND:8300TEİ84008600 ZN5TEFL0:  8100:8010:P,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"įCO,ZH,ZV:CEL:21010J%RY%0uSPACE BARn%:uCA$;:SPACE::%yAFT,0,0:SET,0:901,1:CL$:CO,0,90:"One moment please...":RNH,"QUEEN BEE OF MENTA": ESC MENU $&"yWIND:CL$:(15):CO,0,89:,20,2,20$$( 4,1,20,3,20,5,20,7,20E$ ( 5,2,10,5,20,8,20,5,20,2,10a$( 4,8,30,3,20,6,20,3,20$( 5,3,30,1,20,7,30,5,10,3,10$((MOVEMENT DELTAS$2(1,0,1,-1,0,-1,-1,-1,-1,0,-1,1,0,1,1,1$*$RSTANDARD YES-NO INPUT$ RCA$;D%RGCP,ZH,ZV:INL16:MC%(L,0):L11MC%(L,0):MC%(L,L1),MD%(L,L1)::S#'L18:DX%(L),DY%(L):j#'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,8ZN:ZN:EN$(L)EN$(L)SS$(ZN)(8)(10)::}"'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,3"'AFT,1"'TV$(0)"appear on the screen":TV$(1)"be performed""'TV$(2)"appear on the screen":TV$(3)"be transmitted"7#'98,177,106+!V'129,89,145,89,161,89,177,89N!`'145,74,145,90,145,106,145,122j!j'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,No,Wrong,"'PT:L1PT:ZN:L11(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)::: ='PO(S)65(S1)21 B'129,106,145,98,161,90,177,82 !L'129,82,145,90,161,IZATION;'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),EN$(10),MC%(6,7),MD%(6,7)< .'L072:SS$((L2))((L2)32):SH$((L2))(L32)(L33):BO$((L2)) H&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 choose another":"shape? ";:21000:CO:CEW&'INITIALMO%(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$(BP):>& INCREMENT PHASE?&BPBP1:BP3BP0@&,(17L)3,3::L116:PLAY,L3,3::7%DISPLAY BEESN!%BOX,56,58,263,153&%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,263,153.%ZBRSE:CO$:$DO SOUNDG$SO%(ZN)19420,9430,9440,9450,9460,9470:b$L150:PLAY,50,3::|$L150:PLAY,5,3::$L4931:PLAY,L,3::$L349:PLAY,L,3::$L150:PLAY,((1)46)4,3::%$L116:PLAY,L3,3::L116:PLAY(Z$)13ĺCO$:<"$CO,29,CU%(ZN):(126):ZNZN1:ZN4ZN0F'$HOZNP,$9220dT$DISPLAY BORDER^$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));::PAZ$CC$:HSP,2:WIND:'#GET SELECTION;#CN$:ZNHO:ZF0a#WIND,29,50,37,160:CO:CEW:WIND$CO,29,CU%(ZN):(127):16368,0:16384,128:Z$((16384)128) $(Z$)27ZF0 $(Z$)27ZFZF1:ZF231000$(Z$)13(Z$)89220$Y SUBROUTINES%2#BUILD BASIC SCREENJ<#2:0,4225,4225,1680,1680,42lF#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#CO$:(Z$)35įHSP,1#8200:116:PLAY,(17L)3,3::L116:PLAY,L3,3::A(%DISPLAY BEESX(!%BOX,56,58,261,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,CO$:'$DO SOUND"'$PAUSE,10Q'$SO%(ZN)19420,9430,9440,9450,9460,9470:l'$L150:PLAY,50,3::'$L150:PLAY,5,3::'$L4931:PLAY,L,3::'$L349:PLAY,L,3::'$L150:PLAY,((1)46)4,3::/($L116:PLAY,L3,3::L13ĺCO$:B&"$CO,29,CU%(ZP):(126):ZPZP1:ZNZP:ZP4ZP0:ZN0L&,$9220`&T$DISPLAY BORDER&^$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:60:CO:CEW:WINDd%$CO,29,CU%(ZP):(127):16368,0:16384,128:Z(16384)128:Z$(Z32(Z95))x%$(Z$)27ZF0%$(Z$)27ZFZF1:ZF231005% $Z$"E"Z$"D"Z$"X"ZN4(Z$"D")2(Z$"E"):%$(Z$)13(Z$)8Z$"E"9220 &$(Z$),210,0:1,054,054,211,211,0:WIND,3,2,53,11:CO:"Score"CC$m$P#WIND:CN$:L03:CO,5,CU%(L):SH$(L):$Z#L5826821:L,0L,36:L1,0L1,36:L$#$#DISPLAY WORD$#CO$:8200:Z$CC$:WIND:$#GET SELECTION$#CN$%#WIND,29,50,37,1#"DISPLAY A SEQUENCEf#"ZL1(Z$):ZN((Z$,ZL,1)):PAUSE,10:SE%(ZL1)19300,9600,9500,9400:l#"r#'##(#DISPLAY SUBROUTINES#2#BUILD BASIC SCREEN#<#2:0,4225,4225,1680,1680,42#F#1,4224,4224,1681,1681,42@$K#0,055,055,210:9200:ZN38660 "!CO48655U"!CH$CH$SS$(ZN)(8)(10):ZT$ZT$(ZN):COCO1_"!8620n"!ZN48620"!TE(ZN5(ZN4CO4))8630"!ZN58690"!ZN6CO08630"!ZN6COCO1:CH$(CH$,1,3CO):ZT$(ZT$,1,CO):8620"!CO08630#!E - Erase, D - Decode"CC$! 6!4!CONTROL SCORE BOXq!>!WIND,3,12,53,20:CO:CEW:SC200(CT10):CO$;SC;CC$:!!GETUP TO 4 CHARACTERS!!CO0:CH$"":ZT$""!!BOX,PO(PT),0,PO(PT)8,36:CO,PO(PT),0:AFT,2:CN$CH$CO$;:CO4ĺ"?""!AFT,1:ZNZPLE BUFFER DISPLAY" v PT0PT1:2 { AFT,2:CN$q PT10āL210:EN$(L1)EN$(L)::PTPT1:BOX,254,0,262,36 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, al.":30000:1@DISPLAY CONTROLLER SUBROUTINESLJTEXT WINDOW ON SCREENoTWIND,39,42,279,170:CO:CEW:SELECTION CURSOR WINDOWWIND,27,42,38,160:CO:CEW: TEXT WINDOW ON BOTTOM OF SCREEN WIND,0,173,279,191:CO:CEW: l HANDlicated problem, it is good to work on one small part at a time."Q :"Break the ritual into"CC$CA$;:GCP,Z1,Z2::Z3Z12:Z1Z1165:"smaller parts"CC$CA$;:GCP,Z,Z4:Z95,Z49Z2,Z49 V Z4Z43::40020::"and then try to figure out the entire rituCC$P. "and Make Predictions"CC$CA$;:GCP,Z3,Z4::Z159:Z3229:40020:30000:8 CO,0,50:"You will be looking for"CC$::CO,111:Z$"Patterns":40000::"in what you see, hear, and record.":30000:AL ::"The ritual is complicated: To solve a compbserve."CA$;:GCP,Z3,Z4:40020:WIND::"Have a Data Recorder sheet or a piece of 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"0:SC0:CL$:1660.DISPLAY REMINDER SCREENf WIND:CL$;:((1)4)12320,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":39000j " of what you oBOX,0,170,279,191:8900:30000:20008HANDLE 0 SCORE8200:8010:4:"You 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."300030000OTEFLĺCL$:3:"Go back to the work frame and try again to figure out the meanings of the symbols. But be careful! When you are ready to decode, the Queen Bee will be describing a NEW field of flowers."PTEFLİ30000:2300:$RZ$ZT$:en Decoders"CC$::HSP,1:"Name";:30:"Score":3:0,2628,26:203,26238,26:LZSZN:CO,0,(L4.2)8:NA$(L):CO,0,(L4.2)8:31:SC(L):HSP,2:ZS1840&D$"OPENSCORE4":D$"WRITESCORE4":ZN(ZS):L0ZN:NA$(L)","SC(L)::D$"CLOSESCORE4":ZS0:EF2ZS1:18001 ENTER SCORE IN LISTISC(0)SC:NA$(0)NA$XZN9ZN9L0ZN1:L1L1ZN:SC(L)SC(L1)TSC(L):SC(L)SC(L1):SC(L1)T:T$NA$(L):NA$(L)NA$(L1):NA$(L1)T$:DISPLAY HIGH SCORE LISTLVSP:WIND:CL$"Top TIGH SCORErSC200(CT10)D|D$"OPENSCORE4":D$"READSCORE4":ZNfZN0āL1ZN:NA$(L),SC(L):{D$"CLOSESCORE4"SC0ZS1:1800ZN01750ZN10SCSC(ZN)ZS1:1800FZN:L1ZN:NA$NA$(L)EF2:SCSC(L)İ1850:EF1:LFJFLWCWC1:CTCT2:CT192200eT8010:WC1TE0:CL$:L1TP1:EN$(L)TE$(L)::PTTP1:1540^VSP:3:AFT,3:CN$"YOU HAVE DECODED THE RITUAL!"CO$c:"The Flower Field Guards can now find and protect the Menta flowers.":30000 hHANDLE HZ$(((1)4))::DI$Z$:LO01:8200:8010X1Z$"Watch Carefully":9100:Z$DI$:890068200:HSP,1:"Do you want to repeat the display? ";:HSP,2:21000:LO(Z$"N"):LO@8010:8200:Z$"Enter your pattern, then press X.":9100:2000:8200:WIND# computer will send you back to the working frame and you can try again. But be careful! The Queen Bee will be giving information about a different field.":30000*L1PT1:TE$(L)EN$(L)::TPPT:PT0,,PT0:CL$:WC0:TE1:9010:8500:Z$"":L14:Z$V4CL$:9010: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 frame as little as possible.""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 SCREENPT0Lss E for erase."Sj"When you think you have the ritual decoded, press D.":30000t8010: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 thishich you select them 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, preE: the symbols and 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. ";H B"The symbols you select and the order in wual, duplicate the ritual 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." :"NOT you know which symbols 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"1500c CL$:"To prove you have decoded the rityour name? ";:INP,(13,".-AZ'- "),NA$K 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" :WIND,21,0,279,191:"1)j,% PROGRAM:THE QUEEN BEE'S RITUALCAUTHOR:SHANE P. MCCARRON]COPYRIGHT:MECC, 1983{( LASTUPDATE:84/10/10 NAM-HOOK216384Z216,0d10000:INITIALIZATIONMAIN ROUTINE% CL$"The Queen Bee's Ritual"CC$:CO,0,50:"What is                          "WINDOW(WIND,27,42,38,160:CO:CEW:M TEXT WINDOW ON BOTTOM OF SCREENp 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,264,36) L1PT:CO,65(2000+4ENDING MESSAGE FOR CONFUSED USERw>8200:8010:4:"Do level 1, and then try level 2 again.":30000:31030?CO$:SPACE@DISPLAY CONTROLLER SUBROUTINESJTEXT WINDOW ON SCREENTWIND,39,42,279,172:CO:CEW:SELECTION CURSOR ? ";:21000:WC0:ZN(Z$"N"):ZN12000,21008WCWC1i F0:LPT111:((EN$(L),1))128FL:L1x: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:EN$(PT)CH$x(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:2090,WC2İ8200:"Would you like to continueV PLACES28010:8100:8200:8300:ZT$"":CH$""IZ$(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ĺ"?"0 LV4ı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 L)8,36,8:PAUSE,5::30000*U8010:8200ZLO14:ZN((DI$,LO,1)):8200:AFT,2:HSP,1:CN$SS$(ZN)CO$" causes this to "TV$(LO1)".":HSP,2:AFT,1:(LO)9300,9600,9500,9400d30000:LOn31000PROCESS LEVELWC0WIND9010:200V3: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:8:"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 2KAUTHOR:SHANE P. MCCARRONeCOPYRIGHT:MECC, 1983(LASTUPDATE:84/08/21PWH-HOOK216384d10000: INITMAIN ROUTINE& CL$"Apprentice Bee Keeper, Level 2"CC$::AFT,2:HSP,8,2:CO,75:                   EES8&%L03:L101:CO%(4,L,L1)CO%(AR%(ZN),L,L1)::y0%BP0:CN$:L03:CO,CO%(4,L,0),CO%(4,L,1):BE$(BP)::CO$:%DO MOVEMENT%AFT,5:CN$%ZBMO%(ZN)1:QX%159:QY%90:9790:9750:PAUSE,100%L1MC%(ZB,0):ZCMC%(ZB,L):L11MD%(ZB,L)40,9450,9460,9470:.$L150:PLAY,50,3::H$L150:PLAY,5,3::e$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::%DISPLAY BZNZN1:ZN4ZN0,$92200T$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$SO%(ZN)19420,9430,94:ZNHO:ZF01#WIND,29,50,37,160:CO:CEW:WIND|$HOZN: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):NES2#BUILD BASIC SCREEN@<#2:0,4225,4225,1680,1680,42bF#1,4224,4224,1681,1681,42P#CN$:L03:CO,5,CU%(L):SH$(L)::CO$#3:# DISPLAY WORD#CO$:(Z$)35įHSP,1#8200:Z$CC$:HSP,2:WIND:#GET SELECTION #CN$DISPLAY CONTROLLER SUBROUTINES:JTEXT WINDOW ON SCREEN]TWIND,39,42,279,191:CO:CEW:zSELECTION CURSOR WINDOWWIND,27,42,38,160:CO:CEW: TEXT WINDOW ON BOTTOM OF SCREEN WIND,0,173,279,191:CO:CEW:'#(#DISPLAY SUBROUTI:9100:SHSH1:2100*8200:8010:"You should continue to work on identifying which symbol controls which "TY$".":FL1:SH3430000:8200::FLFL0:2010>8010:8100:8200:HSP,1:"You seem to have them all identified.":HSP,2:30000H@ls that "TY$".":30000:CO:CEW WC0:SH03:8100:8010:ZNRA%(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:AFT,1A9200:TY9300,9600,9500,9400:9900:Z$"Y"20308100:8200:"Would you like to check and see if you know all of them? ";:36000:8200:Z$"N"ı Z4:98008010:"A "TY$" will be "TV$". You select the symbol you believe controferent "TY$" to be "TV$". Discover which symbol causes which "TY$" to be "TV$"! "; "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.":Level 2 Apprentice Training, or you could be ready to attempt to decode the ritual. Keep your records handy!":30000:31000 GENERIC TESTING ROUTINE WIND,0,0,279,10:CO:CEW:TT$;CC$:WIND 9000:8200:8100:8010R "Each symbol causes a difight pattern":TV$"displayed":TT$"FLIGHT PATTERN":2000w TY3:TY$"formation":TV$"displayed":TT$"FORMATION":2000 TY4:TY$"sound":TV$"played":TT$"SOUND":2000{ 8100:8200:8010:3:"You are ready for a more difficult problem. Go on to the each symbol can cause to happen." :"These are the symbols you will work with: "CN$SS$(0)SS$(1)SS$(2)SS$(3)CO$:HSP,0,2:30000 VSP TESTING ROUTINES AFT,1 CL$ TY1:TY$"flower":TV$"displayed":TT$"FLOWER":20008 TY2:TY$"flINDm AFT,2:HSP,8,2:CL$"Apprentice Bee Keeper, Level 1"CC$: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 , PROGRAM:APPRENTICE BEE KEEPER LEVEL 1JAUTHOR:SHANE P. MCCARRONdCOPYRIGHT:MECC, 1983( LAST UPDATE: 84/08/30 PWH2163847(4)"BRUN YUTIL.OBJ":RNH,"MUSIC.OBJ":RNH,"PPRINT.OBJ"<10000:INITIALIZATIONMAIN ROUTINE W           entire ritual.":30000KCL$::"As you decode the ritual remember to:"WIND,14,0,258,191:::GCP,Z1,Z2:CN$"Keep a Record"::"Make Guesses and Predictions"":"Look for Patterns"::"Break the Ritual into Smaller Parts"CO$CA$;:GCP,Z3,Z4:Z1ted. To solve a complicated problem it is good to work on one small part at a time.":GCP,Z1,Z2:"Break the ritual into"CC$:"smaller parts"CC$CA$;:GCP,Z3,Z4:Z3102,Z49Z32,Z49:Z160:Z3221:Z4Z43::40020:"and then try to figure out these Your Guesses"CC$:"and Make Predictions"CC$CA$;:GCP,Z3,Z4::Z159:Z3221:40020:30000CL$:CO,0,50:"You will be looking for"CC$::Z$"Patterns":CO,111:40000::"in what you see, hear, and record."30000TCL$::"The ritual is complica you observe."CA$;:GCP,Z3,Z4:40020rZWIND::"Have a Data Recorder sheet or a piece of paper on hand.":30000xCL$::"You can cause the ritual or parts of the ritual to be repeated. This allows you to:":ZGCP,Z1,Z2:"Make Guesses,"CC$:"Revi":30000d2CL$:CO,0,83:"Would you like some tips on decoding the ritual? ";:36000:Z$"N"1550FCL$::"It is important that you concentrate closely on the ritual and "$PWIND,69,0,209,191::GCP,Z1,Z2:"Keep a ";:Z$"Record":39000:" of whatYou, 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 source of Menta Honey and the field must be protected from their torches by the Guard.ion":39000:" the nectar gatherers must keep"CO,0:"- the ";:Z$"sound":39000:" transmitted by the flowers which aids in their location":WIND:30000CL$::"Each of these parts of the ritual are coded in a secret symbolic language.";" terious ritual the Queen Bee and her scouts show:":WIND,14,0,279,191:CO,0:"- the type of ";:Z$"flower":39000:" containing the Royal Nectar":CO,0:"- the ";:Z$"flight pattern":39000:" to follow to the flowers".CO,0:"- the ";:Z$"formatde 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 ritual which ";"directs the worker bees to the flower field.":300004CL$:"During the mysghbors, and stay a free and happy people.":30000 CL$:VSP,2:"Each day a new field of magical flowers grows and blooms someplace in the kingdom of Menta. The nectar from these blossoms must be quickly gathered and taken ";c"to the hive to be maof 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. Only because of";1 " these mental powers are they able to outsmart their crafty and villainous neiF MENTA.SCR":(5)C 16368,0:L1300:LL300((16384)128):P LSCREENS VCL$::"The people who inhabit the Kingdom of Menta have extraordinary mental powers. Their secret is Menta's Magical Honey." `::"Would you like to read the story A434040TE:RFL,"QUEEN1.FNT"A1:RFL,"QUEEN2.FNT"A2:RFL,"BLOCK.FNT"A3:RFL,"BOLD.PFT"A4:DFT,1,A1:DFT,2,A2:DFT,3,A3:VSP,5:DFT,4,A4:AFT,4 PA534912TE:RFL,"QUEEN3.FNT"A5:DFT,5,A5 MAIN PROGRAM (901)1650 ::RFL,"QUEEN BEE O:PR$(4)"MENU" 3PN$(1)"Apprentice Bee Keeper, Level 1":PN$(2)"Apprentice Bee Keeper, Level 2":PN$(3)"The Queen Bee's Ritual":PN$(4)"the menu program" <CL$(12):CC$(3):CA$(1):CN$(14):CO$(15) FTE274:A130136TE:A232768TE:A332880TE:!! PROGRAM:QUEEN BEE OF MENTA?AUTHOR:SHANE P. MCCARRON]COPYRIGHT: MECC, 1983 ( LAST UPDATE: 84/10/10 NAM -HOOK 2PR$(1)"APPRENTICE BEE KEEPER LEVEL 1":PR$(2)"APPRENTICE BEE KEEPER LEVEL 2":PR$(3)"THE QUEEN BEE'S RITUAL"          000`0x |||| ||x|8l````|| x````8p`````lxx|| |x ````l8|x0x0x| x0`0````0``0``l0003f<ff</'PT8,177,106*-V'129,89,145,89,161,89,177,89M-`'145,74,145,90,145,106,145,122p-c'129,74,177,74,129,122,177,122-f'145,74,129,89,177,89,145,122-j'L03:CU%(L)50L32:..t'Z4:9800:L03:BO%(L)RA%(L)::Z6:9800:L03:SO%(L)RA%(L)::9800:L0%(L)256)(RA%(L)257):LS,/'L02:BE$(L)(L268)(L269):L:BE$(3)BE$(1),3'QB$(0)" !"(34):QB$(1)"#$%":QB$(2)"&'"(40):QB$(3)QB$(2),8'L05:L103:L201:CO%(L,L1,L2):::,B'129,106,145,98,161,90,177,82 -L'129,82,145,90,161,9z+$'SH$(3),BO$(3),BE$(3),CO%(6,3,1),CU%(3),BO%(3),SO%(3),AR%(3),MO%(3),RA%(7),GO$(4),BA$(2),EN$(10),SE%(3),NA$(10),SC(10)+)'PO(S)65(S1)21,.'Z8:9800:L03:SH$(L)(RA%(L)240)(RA%(L)241):SS$(L)(RA%(L)36):L:Z6:9800:L03:BO$(L)(RABP1:BP3BP0*@&7*H&GET Z RANDOMS FROM 0 TO Z-1*R&L0Z1:RA%(L)L::L1Z2:Z1((1)Z):Z2((1)Z):ZTRA%(Z1):RA%(Z1)RA%(Z2):RA%(Z2)ZT:L*\&*'INITIALIZATION*'CA$(1):CC$(3):CL$(12):CN$(14):CO$(15):D$(4):AFT,1:VSP,556,58,251,153C)%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$(BP):)>& INCREMENT PHASE*?&BPͬ`0<@ p p`<@0```0 `<pp|?@@`@ @0@`0 @ 0 <x0@0```0 `p`0f?pp@@`@ @0@@`0 `@ 0 0@0```0 `@0~`@@`@` @0|p`0 `@ 0p@0```0 `@|<@@@`@`          z#?  " Ŵ ԮʠŠŠҠ̠ ĮԠγԠΠŠƠҠ! ҠӠ ű Ų ų ŠŠҠ̠ ŠŠҠ̠ ŠΠŧӠ̠. αԠ βԠˮԠŠ ŧӠ̠& Ůʠ ˮʰ!ŮҠ!"̮ʠ̮Ҡ!ŮѠΠŠƠ ŠŠԲ+ŠԳ Ů Ů ųŮԠĠӠϠՠîʠϠ  ŮԠ̮ʠ` 0@` 0@``` C`` @a @m`` 0@` 0@`TTPRBJ **()!%TTPRBJ **()!%`p```TTPRBJ **()!%TTPRBJ **()!%```CA1?mm=첲>C ?mm=H첲?~~?~??~0x 3333333cÃ0x~ ??~63366f涜1****$ 0TTTT$ 000ʒ℈?aa??aa?u`??????????|>>|>||>??   fferent ","sizes with the help of various ","aids. There are three winning"iÃ" categories and to succeed you need ","to exit the maze taking the least ","number of moves."nà "Queen Bee of Menta","QUEEN BEE OF MENTA","Strategies of exploration and Program. Please report this error to MECC.":30000:sd}" Please check your disk drive and diskette.":30000:yPòLdà "Mazes of Rodentia","MAZE","In this program, you participate in ","a maze tournament by finding your ","way through mazes of di}2 }ZE(222):ZN(218)(219)256:ZE255Ĭ}CO$CL$:WIND:HSP:VSP:CO,0,80:ZE6ĺ"Error: File not found.";:32100}ZE8ĺ"I/O Error.";:32100(}ZE0ZE16ĺ"DOS Error #"ZE" in line #"ZN:30000:62}:"Error #"ZE" in line #"ZN" in Menu49A(48N)9010#F#(A);DL$;CA$;8P#9100:Z139070\Z#Z8Z127įCO,ZX,ZY:CEL:9010fd#9040{n#AA48:A1A1x#XX(XX)#:#ZL11:XX(1):Z(16384):ZL(Z127)::ZZ128:16368,0:0u:u:SPACE::y"y2000,yhe middle of a program. If so, press the ESC (escape) key twice whenever the computer is waiting for you to type."WIND:VSP:30000:(#-#CA$;:16368,0:GCP,ZX,ZY:WIND,ZX,ZY,250,ZY12:DL$(127)2#DL$:CO,ZX,ZY:9100:AZ:A19070<#A:" "CC$;:GCP,ZX,ZYH:WIND,ZX,ZY,279:CO:"MECC Distribution":"3490 Lexington Avenue North":"St. Paul, Minnesota 55112":"(612) 481-3527"R30000:CL$:WINDVSP,4:CL$:::"Use of ESC Key"CC$::s"You may want to quit in tL11DP:DS$(L,L1);:L1:2WIND:::L:300008 *CL$:CO:VSP,10::"A manual to aid in the use of this diskette is available from MECC.":VSP49:" Title: ";CA$;:GCP,ZX,ZY:TI$:PA$""įCO,ZX:PA$>12:" Direct inquiries to:":9,183L392L,183L:2392L,183L269,183L:5;X[bCL$TI$CC$:PA$""ĺPA$CC$vlVE$CC$:::GCP,X1,Y1CO,X1,Y1:CEWL1NP:GCP,ZX,ZY:ZY100ZYY1İ30000::CO,X1,Y1:CEWMN$(L)::" ";:GCP,ZX,ZY:WIND,ZX,ZY,279,191::DY12:L02X1DXL,Y1LX2DXL,Y1LX2DXL,Y1DYLX2L,Y1DYLX2L,Y2DYLX2DXL,Y2DYLX2DXL,Y2LX1DXL,Y2LX1DXL,Y2DYLX1L,Y2DYLX1L,Y1DYLX1DXL,Y1DYLX1DXL,Y1L:/1:L02:9,6L432L,6L:2352L,6L269,6L:30000:CL$( CS(P(P(999))1)16< CS1CS7CS6D CSJ P pd z4:21,021,191 1:9,69,33:11,611,32:9,1589,185:11,15911,185:267,6267,32:269,6269,33:267,159267,185:269,158269,185 6:X10:Y10:X2278:Y2191:DX18AS(2)A1F1$"the management options":F2$"TEACHER OPTIONS"O AS(6)5000U ` 16384 A0ANPF1$MN$(A):F2$CN$(A) CL$:HSP:VSP:CO,0,89:"Getting "F1$"...":901,0:RNH,F2$   CL$:11:"Insert another diskette."CC$ neral Information"6 HNN1:4(N9):S(6)N:N". End"< a :GCP,ZX,ZY:ZY160įCO,ZX,ZY4 "Which number? ";:9000:WIND AS(1)İ7000:2000 MOA1ĺCL$:VSP,8:CO,0,75:"There are no management options available.":30000:2000> DFT,1,15128:AFT,1:CO$:HSP:VSP:WIND[ CL$:6000:CO,0,MT:CN$TI$CC$:PA$""ĺPA$CC$ CO$:GCP,ZX,ZY:WIND,ML,ZYSP,270:CO:"Program";:NP1ĺ"s"; ":"::L1NP:4(L9):L". "MN$(L):: "Options:": NNP1:4(N9):S(1)N:N". Ge1)256! RFL,"TITLE.PFT"15128' L: VNP2:DP8:MO1n `TITLE$"Mind Puzzles":PART2$"":VE$"* * * * *" jMN$(NP),CN$(NP),DS$(NP,DP) tL1NP:MN$(L),CN$(L):L11DP:DS$(L,L1):: ~  (975)255Č24768:975,1' 230,64:24576: MINDPUZZLES$PROGRAM:MENU?PROGRAMMER:P.BOUCHARDZ(COPYRIGHT(C)MECC,1984w2 LASTUPDATE:84/09/25EJGZ3200015128CA$(1):CC$(3):D$(13)(4):CL$(12):CN$(14):CO$(15)MT13:ML37:SP0 P(S)(S)(S     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 <<~~<~~<<~~<?`LvLvLv>?`L*vø{{ttlnghab\\WWRRMNIIEEAA=>::673401..+,))&'$%"# ! 3#< = <=Lu <=LuLPLAv`AuL+usutu+uLvɯtu 8ɀ   Lޤȱ:,Әe湥 vHvH L`sutuL ,v -v8,v?=4=0>?`LuLu f~~~ ~~~~~~ 0`0  0  0 ~~<~>>gccccg>>~~p` fffffffffl6iɆpqs 0 000000 0 0Z<|~~6 trial ","and error help you decode a 4x4 ","matrix consisting of symbols with ","attributes of border, motion, ","formation, and sound.","","",""Cxx|| |x ````l8|x0x0x| x0`0````0``0``v000F48K TO RUN.":16384,128:16368,0:32000l 230,64:D$"BRUN LOGO":16304,0:16297,0:16299,0:16302,0 D$"MAXFILES1" $D$"BRUNYUTIL.OBJ":RNH,"MUSIC.OBJ" .RFL,"PPRINT.OBJ" L975,255 RNH,"MENU": }:BS(P(P(999))1)16:BS1 MINDPUZZELS%PROGRAM:HELLO@COPYRIGHT(C)MECC,YEAR[(LASTUPDATE:8/21/84PWHf16384r32000D$(13)(4):P(X)(X)(X1)256(65435)6ĺD$"PR#0":D$"IN#0":16372,0) ::(978)157Ģ12:"THIS PRODUCT NEEDS AT LEAST  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&3|~~~w~~~~f<ff<cc>cc>>cc>0000000t` ```````fffffff~l6iɆpq{0`0``0`00000`Z<`~~6 moment please...":SET,0:RNH,"MENU"01 30000T  ȱ88ȱ>? :p"ᐅ>␅? %p Dg^h_^`ȱ^Șe^^_iȑ^^_א֐Ր@A ѐ   `@ i Q  #,L DLl`Q 2eDِEڐBݐCސ@ߐA>ᐅ?␅ )D e,L׭XLXLX E$)Dᐅ>␅? pD G 8`Lg8hegiȱehj8ȱLȱ<`а ,,i,,`  345 <= <ȭ<ȭ<ȭ3<ȭ5<><ȥ?< <<= H <=4I<3<54` 2\DِEڐBݐCސ@ߐA>ᐅ?␅ # { RPɌ􌩫LKɯtA 8ɀ   Lޤȱ:,Әe湥 PHOH L`L<=ʱD>` <=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,NU%2):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)052100:BOX,X1%(2)DISPLAY FIRST CELL"9400?ZYLR%:ZXEX%:ZY1ZY2NZX1ZX2aZYDIZYDI1tZXDIZXDI1ZN0:UN,H(MZ%(ZX,ZY)):UN19:UNNU%,1:L14:ZNZNB(L)2(L1):L:MZ%(ZX,ZY)ZN256ZZN0:ZXZXMX%(NU%):ZYZYMY%(NU%):NU%J();L;:8:"Go "D$(NF):GCP,ZX,ZY:ZY160İ20500:BOX,0,10,279,191::2\|L:(37)2İ20500kSCREEN 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.":20500ROUTINE FROM COORDINATE MAP TO LEFT-RIGHT DIRECTIONSXTX%(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:L14ErL1:NFJ(FZH):ZHF::1(L10)520 1540MOVE BACKBZNZN1:CXX%(ZN):CYY%(ZN):1460XMOVE FORWARD ONECXCXMX%(D):CYCYMY%(D):MZ%(CX,CY)MZ%(CX,CY)128ZNZN1:X%(ZN)CX:Y%(ZN)CY"CXLR%CYDI1590,14606@SCREEN 5C4JALSO, A TRANSLATION Z%(CX,CY)128:X%(1)CX:Y%(1)CY:ZN1: MAIN SEARCH LOOPT 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:F01CREEN 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)ML <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 dS1EX%SE:T2DI:LR%MO(S)1:T24:NU%MO(S)1M 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 131,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:T1) PROGRAM:MAZEPART22AUTHOR:SHANEMCCARRONJCOPYRIGHTMECC,1983f(LASTUPDATE:84/08/30PWHp-HOOK2:10000:1000dFAST SUBROUTINES! nL10:LBEO:L1L1:CO,L,79:S$(L1):L21100(TY2)SO:::LX%LO:LY%79:LP%L1:TY1ENįCO,             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`0ZE"I6yVSP,1,0:CL$:CO,0,89:"One moment please...":SET,0:RNH,"MENU"AVZFįBOX,0,181,279,191:ZF0:CO,ZH,ZV>"VZN(Z$)(ZB$)1:[ySTANDARD ENDING ROUTINEdyVSP"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,"MATANDARD RANGED SINGLE CHARACTER INPUT/UCA$;nUGCP,ZH,ZV: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:22030&NUMERIC INPUT"TCA$;:GCP,ZH,ZV2TZL((ZT))TINP,(ZL,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.T%US2):CA$(1):CE$(5):CC$(3)QM'KT$(1)"CHEDDAR":KT$(2)"HAVARTI":KT$(3)"BRIE"WQ'hP:SPACE::RSTANDARD YES-NO INPUT RCA$;RGCP,ZH,ZV:INP,(3,"YESNO",1),Z$:Z$(Z$,1):Z$"Y"Z$"N"įCO,ZH,ZV:CEL:21010R SSTANDARD RANGED 14336:0''AFT,0:CN$(14):CO$(15)$'TY(901):AC(902):CH(903):DI(904):SE(905):KT(906):VARIABLES FROM MAZE PART1%'D$(4))'D$"OPENMAZE.SEQ":D$"READMAZE.SEQ":NA$,SC:D$"CLOSEMAZE.SEQ".'KT$(3),NA$(10),SC(10)8'D$(4):CL$(1CC$:::"With a score of "SC" you were a very good contender in this round of the tournament.":VSPo |20500~ SC0:4150 ELIMINATE ENTRY LZNZNZN1: L1L1ZN:NA$(L11)NA$(L1):SC(L11)SC(L1)::ZNZN1: 'INITIALIZATION'::L:HSP,2 FSC04180 JHSP,1:D$"OPENSCORE"KT:D$"WRITESCORE"KT:ZN1:L0ZN:NA$(L)","SC(L)::D$"CLOSESCORE"KT:HSP,2 T20500:31000 hNOT A HIGH SCORE mZS1d r:RFL,"SCROLL.SCR":CE$:WIND,20,7,230,148:CO:VSP,8:"CONGRATULATIONS!""THE ROYAL ORDER OF CAMEMBERT"CO$CC$:20500 6:RFL,"SCROLL.SCR":WIND,14,7,230,148:CE$:CO:VSP,3:"KNIGHTS OF "KT$(KT);CC$ @:LZSZN:LZS10ĺ" "; ECO,21(L10)8,(L4.2)8:HSP,1:LZS". "NA$(L):CO,21,(L4.2)8:25:5((SC(L))))SC(L)1:L1L1ZN:SC(L)SC(L1)TSC(L):SC(L)SC(L1):SC(L1)T:T$NA$(L):NA$(L)NA$(L1):NA$(L1)T$e ": ,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$NA$(L),SC(L): D$"CLOSE"3 SC0ZS1:4150B ZN04100b 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$ ZN9ZN9] L0ZNJ  "PROGRAM: MAZE PART37"AUTHOR:SHANE MCCARRONQ"COPYRIGHT MECC,1983q("LAST UPDATE: 84/08/30 PWH{-HOOK2:10000HIGH SCORE HANDLING ROUTINE(15):RFL,"MAZE3.IMA" :D$"OPENSCORE"KT:D$"READSCORE"KT:ZN:ZN0āL1ZN:     "Do you want to try again? ";:210002&,yZ$"Y"Ĭ&6yCL$:CO,0,89:"One moment please...":SET,0:901,1:RNH,"QUEEN BEE OF MENTA"L8@ 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ȈȰ??     Z410Z31,Z23Z13,Z23::3:BS7BS6 }BS - 16299,0: POKE - 16302,0 L (4)"MAXFILES1"x $(4)"BRUNYUTIL.OBJ"::RNH,"MUSIC.OBJ" .RFL,"PPRINT.OBJ" L975,255 RNH,"MENU": }:BS(P(P(999))1)16:BS1BS7BS6 }BS <0003f<ff<1~`1~}7~1~` m` ~ w~ ~ ~ ~`80L~`||}}|}}|| } [~  @L| } PL}8i mȹm =~L|-}}}}`    'i(i)i hmHihʍ*i+i,i L8iL Sk TkMUkSk &g<>=MUk?'<>SkSkTk` H g Rh PQ`L     խ)?` `& ,jQ&-0iQ&&)i)i,i`/i-0i/i)i &g&'-i ,jQ&-/iQ&&)i)i,i`*U U*ժ gj')JMgj)1i Q&,5iP 0=lj`hj`J&)` `L3f̙jj ߅$0Hjj LbLvjj j` hH)8 qȥq8)h` g R  QP (`L h`L)  @ 5ij1i3i j2i4i'i(i g-i j/i*i+i g.ij0i-i.iB)i &g&'-i ,jQ&-/iQ&&ȭ1i.i ,jPhHhhh hJ` &eeieh ghIiwhi 썼h &gmh﬽hMhwhPjjjjjjj0jj) h0ȱjhjhhУ`8pPL2f -`,f`'im(imʈ*i+i)iʎ,iL6i Kggg`gg ggg`g Kg gggg`ggg8pg.g(gggmgg`8pgJJJ) }gggmgg`((((PPPL de80 " Tfm8h)` dem88eLf` deme` d8` f@ f f f`Lc dff`) ``fʽ`) ` `fH`mS` dS`)ae``e hae g`e}`mf8ff`f` dLc,0*`%f 8fHfJhj`mfff` c d` c dI``f`emfff`) ffffffO,0 `)  d`f(`HHf,Pf88`f d fhLcfHfHff,P d fhf8hfffffff``S`S```f穀f f`f3f'ff `ɀ   LX8e湥 qHqH L`@ @ʩ WRPT` J  dȱȱȱ` hfH) #,f h`` fffffffh`f fS```emffff  2f%%h $20 LZc $ aHaH`daemeWeeeef1fSflffffff(bb d (cf hf gNOH (c h f ghH ,aɈ.hH (cb h) e f g (c fbbh`˅o 8````L`bbbbIq$% `@ GaLa6 ,fLcLmfPa bHaa,aaɠ,wa ` a欇aah`ɀ)?  @IH (c$ d f$%0 d         """"""""ҬЬ̬ Ѐ)р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!! ! ! ! ! !!!!!!!!!     xxxlxx x000000xx0x0xx0000 0``0 0x`0x |||| ||x|8l````|| x````8p`````l 0`xx0p0000xx 8` 8 x8x x<`x 0```xxxx| ```0``0`00`x000||0xxx||````` x@[`{~ @BOHOOUNHOOCECRDFAFPARSNOJUSJUSCNNOCNGCDVSHSSPACCEPAUSCWININjymmfkUkxkkkkkkkdkk#lmcmmm n`lllll~~~0` pvv0`0``0`000`~<~0000`` ɛ MBpBp0LDpBpɈTPɿɯ,p 詍0@ɍp7,p pCp) }pCp9p Џ pLo ` ֩PyQ AL }ppp`uptp Uptpup` ~L_pH)hJJJp`LANCS AZ09!/:p-͂ooo _pLnõoo^`No ݤp 輤pppp߹ppo _po , g 掏p ,o vpp) p pp)p ߅ l o ) L{Bp HHHp hhh `+ hR("  h5880`L pppop ( vpLRo Ln {$0! 掐p ,L)o k {$0L#oNo 千oLoo n|-?npLn Up no n U mhhhhhhhhh,lp` ֩PyQ ALŠҠ僁'i(imiʈ*i+i &')iq&,iL6i N8`f `.f`mm ` ң Σ  h @)`,` sj ެLqj,Hl  !l  h!l`L, HHHHHHHHH k l jlNO,ɍɠ ɛ8nl,lPݩPACE::g2ySET,0:901,1:CL$:CO,0,89:"One moment please...":RNH,"QUEEN BEE OF MENTA": ESC MENU |2y END PROCESSING2"yWIND:CL$:(15):CO,0,89:VSP:"Do you want to try again? ";:210002,yZ$"Y"ĺCL$:CO,0,89:"One moment please...":>36yҬ٬ӠͬƬΠͮ͠Ȯ͠ԮŠͮϠԬĬ" 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<