' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL] 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/浍굺L  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( l  ̠@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`(2,4)K+&(O%(2,2)10)(O%(2,4)10)5820S&KO%(2,2):O%(2,2)O%(3,2):O%(3,2)Ks&LO14:HI18:3000:O%(3,4)K&(O%(3,3)16)(O%(3,4)16)5900&O%(1,3)165880&KO%(3,3):O%(3,3)O%(2,3):O%(2,3)K:5900&'KO%(3,3):O%(3,3)O%(1,3):OF:O%(I,J)Z:J,I'%IU18:T%(I)Z:>%&I13:LO1:J14R%0TL5:J2TL4|%:HILOTL1:3000:O%(I,J1)K:LOLOTL%DJ,I%XLO5:3100:O%(1,4)K%b(O%(1,2)6)(O%(1,4)6)5770%vKO%(1,1):O%(1,1)O%(2,1):O%(2,1)K&LO9:HI13:3000:O%$|($IZF:JZ3:P%(I,J)0:J,I7$NX25630E$::(10)T$NP15610$"WAIT A MINUTE WHILE YOUR NEW LIST IS"$:"WORKED OUT.......":5630$"WAIT A MINUTE WHILE YOUR NEW LISTS ARE"$:"WORKED OUT......."$%IUF:JZMORE INFORMATION":V:21(P$(K)):868:" ";:UPZ:UBZ:FLZ:LN18(P$(K)):400:KI$""5225#jNM$P$(K)" "KI$::958:NMZ#lNM#mP$(K)NM$#nVV2:K#x22:"WAIT A MINUTE WHILE YOUR SCAVENGER HUNT"#:"LISTS ARE WORKED OUT......."$V:4:958:"WHO IS PLAYER ";K;"? ";:UPZ:UBZ:FLZ:LN19:400:KI$""5220f"eP$(K)KI$:NM$P$(K):t"fK15230"gNM1K1:NM$P$(NM)5228"h(NM$)17P$(K)(P$(K),1,17):NM$P$(K)]#iV2:4:"SAME NAME AS PLAYER ";NM;", ":4)"PLEASE ENTER !11:"PLEASE TELL ME YOUR NAME.":[!(8:"-->";:UP0:UB0:FL0:LN19:400:P$(NP)KI$:!222:"WAIT A MINUTE WHILE YOUR SCAVENGER HUNT"!<:"LIST IS WORKED OUT......."!F!P10:"PLEASE TELL ME THE NAME OF EACH PLAYER."!ZV13:K1NPL"dBE PLAYING? -->";0 UP0:UB0:FL0:LN1:400:> NP(KI$)M NP15150b NP1NP45200p 3510:11 NP45130 "YOU MUST TYPE 1, 2, 3 OR 4.":5140 "YOU CAN'T PLAY WITH THAT MANY PEOPLE!" 13:"TRY AGAIN.":I11000:I:5020% PLAYER WHO HAS":uB"COLLECTED ALL FIVE THINGS ON HIS OR HER"::"LIST AND HAS THE ";:::"LOWEST";::" SCORE."LFL0:900V`:::3"SCAVENGER HUNT IS A GAME FOR UP TO":"4 PLAYERS.":: "HOW MANY PEOPLE WILL  :8"YOUR SCORE IS WORKED OUT LIKE THIS:"@:q"EACH TIME YOU MOVE, 5 POINTS ARE ADDED.":"IF YOU TRY TO COLLECT SOMETHING WHEN YOU""AREN'T CLOSE ENOUGH TO IT, 5 POINTS ARE":$"ADDED.".:8"THE WINNER IS THE HAVE TO":;"DECIDE WHETHER YOU WILL MOVE, OR COLLECT"M"SOMETHING."U:"TO COLLECT SOMETHING YOU MUST BE IN THE":"RIGHT PLACE."::"TO GET TO THE RIGHT PLACE TO COLLECT":"SOMETHING, YOU MUST MOVE."::FL0:900NG"H"ARE:"::@R(3):"(N) NORTH (NE) NORTH-EAST":m\(3):"(S) SOUTH (NW) NORTH-WEST":f(3):"(E) EAST (SE) SOUTH-EAST":p(3):"(W) WEST (SW) SOUTH-WEST":zFL0:900 :::"EACH TIME IT IS YOUR TURN, YOU CAN COLLECT"::"ALL THE THINGS ON THEIR LIST IN THE":V"LEAST NUMBER OF MOVES."d FL0:900jr :*"TO PLAY THIS GAME YOU NEED TO UNDERSTAND"4"COMPASS DIRECTIONS AND HOW TO USE THEM.":>"THE COMPASS DIRECTIONS YOU WILL BE USI:'(12):"******************"G(12):"* SCAVENGER HUNT *"g(12):"******************"::"SCAVENGER HUNT IS A GAME YOU PLAY WITH":"OTHERS WHERE EVERYONE HAS A LIST OF"::"THINGS TO FIND."8::"THERE IS A RACE TO SEE WHO^YNYSDT(DX21)#hDX0XNXS3rDX6YNYS9|?770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0X8:I070KI$E$(I)KI$E$(I)" "DXI:I87I=ZAX%DT(2):AX%0AX%1yDX0DX2DX4DX6ī4180"DX1DX3XNXSAX%,DX5DX7XNXSAX%6DX1DX7YNYSAX%@DX3DX5YNYSAX%J4220TXNXSDT(2DX2)69,I:770:768,64:769,J:770#`N~DX3730,3740,3750,3760,3770,3780,3790]M0:N1:lM1:N1:zM1:N0:M1:N1:M0:N1:M1:N1:M1:N0:M1:N1:F2X,YPXXMZYYNd2X,Yn D"(2)GET HELP WITH DIRECTION AND DISTANCE"W6t""(3)SEE YOUR SCORE (4)PLAY THE GAME-->";t6~"UP0:UB0:LN1:FL1:4006"I(KI$)6"I1I4İ3510:87806"SW0İ8306"I4ı6"I8890,9260,9750:87706"6"65006"FL1:900: 7"YN04:OBТ24:3:"PRESS THE SPACE BAR FOR NEXT PLAYER.";:FL1:920?5 E54!O5>!8750U5!a5!J1NPx5!2P%(J,0),P%(J,1)5!J:5."58"SP15B"5L"21:1:9585V""WHAT SORT OF HELP DO YOU WANT?"5`""(1)GET HELP WITH WHERE TO FIND THINGS")6j"8:21:1:958:"WELL DONE, ";P$(CP);","4"YOU HAVE COLLECTED EVERYTHING! YOU MADE":23:1:P%(CP,2);" MOVE";:AAP%(CP,2):200423:10:P%(CP,3);" MISTAKE";:AAP%(CP,3):200:23:21:".YOUR SCORE = ";(P%(CP,2)P%(CP,3))54NP1FL1:900:95 30 3611003@TF08060-3T:3510:2500E3^P%(CP,3)P%(CP,3)1S3hFL1:900^3rSP1:d3|z33600:3600:3600325003O%(CP,DX)O%(CP,DX)183I03J04:O%(CP,J)18II13J3I581903FL1:900(4O%(CP,0)O%(CP,0)1KE ANOTHER DECISION."*2SP1:FL1:900:02W2OBO%(CP,DX):XP%(CP,0):YP%(CP,1)g22730:2790{2IJTOB:79902TA%(I,J)2350021:20:9582"YOU CAN'T COLLECT ";::3400::2V22:25202""MAKE ANOTHER DECISION."3,80CH ONE ARE YOU COLLECTING? -->";>1xUP0:UB0:FL1:LN1:400M1}SW0İ830t1DX(KI$)1:DX0DX4İ3510:77701O%(CP,DX)187880121:1:958:"YOU CHOSE ";::OBO%(CP,DX)18:3400::1"BUT YOU ALREADY HAVE THAT IN YOUR BAG!"2"MA00351002500I01:23:"YOU MUST GO BACK AND TRY AGAIN."X0SW0İ830r0DXDX4:DX7DXDX80XNXS:YNYS03710039100XXNYYN74300P%(CP,3)P%(CP,3)10$FL1:90008SP1:0F0ZSP00d6500!1n"WHIİ3510:71302/ XSP%(CP,0):YSP%(CP,1):XXS:YYSA/*SW0İ830K/44110S/>T0\/HSTUf/R3710p/\3910|/fSTSTU/pSTFİ1100:STU/zTZ7350/XXNYYN7260/1100:TZ7350/P%(CP,2)P%(CP,2)1/P%(CP,0)X:P%(CP,1)Y0S)?"+."CHOOSE A DISTANCE FROM 1 TO 40."S."IF YOU CHANGE YOUR MIND, TYPE 0.".23:1::"(H)HELP";::958:23:"HOW FAR? -->";.FL1:LN2:UB0:UP0:400.KI$"H"7170.8500:SP0:7090.KI$"0"SP1:. DT(KI$) /DT1DT40ST":=-v"(NE)NORTH-EAST (NW)NORTH-WEST ";:::"(H)HELP";k-:"(SE)SOUTH-EAST (SW)SOUTH-WEST -->";-FL1:LN2:UP0:UB0:400-KI$"H"İ8500:SP0:7010-4010-DX7İ3510:7010-21:1:958."HOW FAR DO YOU WANT TO GO (IN STEP,DX:"(";I1;")";$,OB1865704,KK1:6580C,OBOB18:O,3400:f,I0I2I4ī6610v,DX21:6620,DX1:I4ĺ,I:,,X,b1:21:958:"IN WHICH DIRECTION DO YOU WANT TO MOVE?"-l"(N)NORTH (S)SOUTH (E)EAST (W)WE,58,63,68,73,76,81?+ 24:4:"PRESS THE SPACE BAR TO BEGIN.";M+FL0:920Y+I1NP+(P%(I,0)160(15I):P%(I,1)90:2P%(I,0),P%(I,1)+2I+<21:958+F+d+nDX21:KZ+x21:1:958:"YOUR LIST INCLUDES: ";+I04:OBO%(CP,I)23:1:958*FL0:900G*16304,0:16300,0:16297,0:16301,0U*21:958*1:"THIS IS A PLAN OF THE AREA WHERE YOU"*"WILL BE HUNTING FOR THE THINGS ON"*"YOUR LIST."*:I018:T%(I):+ 1,6,6,11,14,22,27,27,35,40,45,50,55P$(I)::,)BJ04:H:OBO%(I,J):3400::S)LH(H20)((H20)40)40:I2V14Z)VIf)`::L$u)jCS16310)t24:4:"PLEASE WAIT...";:22)~D$;"BLOAD PIC.SH3T,A$2000")FR(0))CS1)D$;"BLOAD MAN2":232,1:233,8)1:0:3 *J((1)3)1(3270(%(:4(NP16170c(2:"HERE IS YOUR SCAVENGER HUNT LIST...."k(L$y(7:J04(12:OBO%(1,J):3400:(J(6240(2:"HERE ARE YOUR SCAVENGER HUNT LISTS...."($L$(.V5:H1:I1NP )8V:H::%(1,3)K' <'I1:J2:3270:I1:J3:3270:I2:J3:3270K' NP46080d'4LO1:3100:O%(4,0)K'HK((1)4)5:O%(4,1)K'\LO9:3100:O%(4,2)K'pLO14:3100:O%(4,3)K'O%(4,0)36040'O%(4,4)4:6050'O%(4,4)((1)4)' (I3:REDFLOWER.SHEEPTAIL.TAILMIDDLE.BLUEFLOWER.SAND.MOVECLOSER.PADDOCK.LYINGSTROKETHEHORSE'STAIL,AFLOWERSAREGROWINGINCREEK.GROWBYITSSTEM.LIVESBEACHLIVELIZARDSINYOUWILLFINDAMOUTHLOOKONLY.YOUMAYPICKUPAFALLENCLOSEENOUg3 #s1 #g0"s/"ft."g-6+)6**)*(5'5&)6%*$"!w xx>2?33>>2?3T[<U;GU< .>  .7 -7 -7? ->  .7 .> -7 -7? -> BARK.WRONGSIDEFENCE.ACROSSPILE:H:"WITH...";P%(I,3);" MISTAKE";:AAP%(I,3):200:AA1ĺ" "oD,:(H):"TOTAL SCORE = ";(P%(I,2)P%(I,3))5D,H(H20)((H20)40)40D-I2V13D -ID-1:22:L$D-"ANOTHER GAME? (Y) YES (N) NO -->";D(-UP0:UB0:FLO:LN1:400:E2-I1NPC,H:V:1C,(NP1)(OC%(I)MO)11460fC,(((P%(I,2)P%(I,3))5)MS)(P%(I,2)MM)11460lC,yC,P$(I):C,:(H):"FOUND..";OC%(I);" THING";:AAOC%(I):200:AA1ĺ" "C,:(H):"IN....";P%(I,2);" MOVE";:AAP%(I,2):200:AA1ĺ" ">D,113105B,(OC%(I)MO)(MS(P%(I,2)P%(I,3))5)11310FB$,II1:11280UB.,MMP%(I,2)BB,(OC%(I)MO)((P%(I,2)P%(I,3))5MS)11350BL,P%(I,2)MMMMP%(I,2)BV,II1:INP11330B`,:Bj,7:"HERE ARE THE FINAL RESULTS"Bt,L$B~,V3:H1C,11360Af+I2NP+Ap+OC%(I)MOMOOC%(I)2Az+I:A+I1JA+INP11200_A+OC%(I)MO11200pA+II1:11170A+MS(P%(I,2)P%(I,3))5A+(OC%(I)MO)11250A+(P%(I,2)P%(I,3))5MSMS(P%(I,2)P%(I,3))5A+II1:INP11230A,I1B,INP0İ830@x(JNP10400'@(SW0İ8301@(86007@(O@(CPCP1:CPNPCP1g@(O%(CP,0)36ī10400|@(SW1:CT0:10040@*@+I1NP:K0@ +J04:O%(I,J)18KK1@*+J:OC%(I)K@4+I@>+MOOC%(1):MS(P%(1,2)P%(1,3))5:MMP%(1,2)AR+NP1 SCORES."4?("IF YOU DO NOT WANT TO END THE GAME,"U? ("PRESS THE SPACE BAR. -->";r?(FL1:UB1:UP0:LN3:400?(KI$"END"ī10370?((KI$(32)SP1:10040?2(3510:10210?<(?F(SP110040?P(J0?Z(I1NP:O%(I,0)36JJ1:?d(I@n(SW>"; >'UP1:UB0:FL1:LN1:4005>'KI$(16)10200B>'I(KI$)a>'I1I3İ3510:SP1:10040u>'SP0:SW0İ830>'I7000,7750,8500>'10300>'>'21:1:958>'21:"TYPE THE WORD ";:::"END";::" TO END THE GAME NOW" ?'"AND SEE THE56(109)):FE40ĺ"PLEASE WAIT ...":FR(0):21:1:958P=B'SP0NP1ī10090p=L'"IT IS YOUR TURN, ";P$(CP)z=V'3650=`'10100=j'"WHAT DO YOU WANT TO DO?"=t'"DO YOU WANT TO (1)MOVE?"=~'18:"(2)COLLECT SOMETHING?">'18:"(3)GET HELP? --" MOVE";:200:22:24:"AND ";P%(CP,3);:AAP%(CP,3)&OB18KK1|;H&I;\&21:1:"SO FAR YOU HAVE COLLECTED ";K;:" THING";;^&K1ĺ"S";;a&"."4";x:D%LN3:UP0:UB0:FL0:400:X%KI$"Y"KI$"YES"ĕ2XN,YN:9310:b%KI$"N"KI$"NO"İ3510:9500:v%::CS1:%D$;"BLOAD PIC.SH3T,A$2000"#;%16300,0:3510:9330<9$:22:"HOW MANY STEPS WOULD YOU LIKE TO GO?"c9$"CHOOSE A DISTANCE FROM 1 TO 40."9$17:24:"HOW MANY STEPS? -->";9$UB0:FL0:UP0:NL2:4009$DT(KI$)9$DT1DT40İ3510:94109%4110:37109%3910:XXNYYN9490:%,Y:DX88h$XSX:YSY&8r$21:1:958L8|$"WHICH WAY DO YOU WANT TO MOVE?"{8$"(N)NORTH (S)SOUTH (E)EAST (W)WEST "8$"(NE)NORTH-EAST (NW)NORTH-WEST"8$"(SE)SOUTH-EAST (SW)SOUTH-WEST -->";8$FL0:UB0:UP0:LN2:4008$4000 9$DX7İO%(CP,YN)7"OB18ī902017#TOB92:SW0İ830;7 #2500Z7#KK1:K0FL1:900:90207(#24:1:"PRESS THE SPACE BAR FOR THE NEXT ONE.";72#FL1:9207<#:YN7F#7,$76$:CS27@$D$;"BLOAD PIC.HELP2,A$2000"7T$1:0:38^$X220:Y90:2XEFUL!YOU'LLFALLINNIICAREFUL!YOU'LLFALLCAREFUL!YOU'LLFALLLFALLFAAFFCAREFUL!YOU'LLCAREFUL!YOU'LLLYOU'LLYOU''YOUUYOOYYCAREFUL!CAREFUL!CAREFUL!CAREFUL!!CAREFUL1*b*bb***9ub*<9ub*<9ub*<<9ub**9ub9ubAGGCAREFUL!YOU'LLFALLINTHECREEK!CAREFUL!YOU'LLFALLINTHECREEK!!CAREFUL!YOU'LLFALLINTHECREEKCAREFUL!YOU'LLFALLINTHECREEKKCREEECREECRRCCCAREFUL!YOU'LLFALLINTHECAREFUL!YOU'LLFALLINTHEETHHTTCAREFUL!YOU'LLFALLINCAROTHECREEKISCLOSESTTOTHECREEKKCREEECREECRRCCISCLOSESTTOTHEISCLOSESTTOTHEETHHTTISCLOSESTTOISCLOSESTTOOTTISCLOSESTISCLOSESTTCLOSESSCLOSEECLOSSCLOOCLLCCISISSIITHETHEETHTHHTTGARDEN.GARDEN..GARDENGARDENNGARDEEGARDDGARRGAIIPPATTHESTEM.ATTHESTEM..ATTHESTEMATTHESTEMMSTEESTTSSATTHEATTHEETHHTTATATTAAWRONGPLACE.WRONGPLACE..WRONGPLACEWRONGPLACEEPLACCPLAAPLLPPWRONGWRONGGWRONNWROOWRRWWISCLOSESTTOTHECREEK.ISCLOSESTTOTHECREEK..ISCLOSESTTENEARTHNEARTHHTTNEARNEARRNEAANEENNINTHEMIDDLEINTHEMIDDLEEINTHEMIDDLINTHEMIDDLLMIDDDMIDDMIIMMINTHEINTHEETHHTTININNIITHATISTHATISSTHATITHATIITHATTHATTTHAATHHTTISISSIIIPICKAPICKAAPICKPICKPICKPICKKPICCPUCOLOOCOLLCOOCCWRONGWRONGGWRONNWROOWRRWWTRYINGTOTRYINGTOOTRYINGTTRYINGTTTRYINGTRYINGGTRYINNTRYIITRYYTRRTTHORSE.HORSE..HORSEHORSEEHORSSHORRHOOHHISCLOSESTISCLOSESTTISCLOSESISCLOSESSCLOSEECLOSSCLOOCLLCCISISSIINEARTHENEARTHELLEECOLLLCOLLCOOCCPLUMS.PLUMS..PLUMSPLUMSSPLUMMPLUUPLLPPPLUMSPLUMSSPLUMPLUMMPLUUPLLPPTOTOOTTTGARDENGARDENNGARDEGARDEEGARDDGARRGAAGGFLOWERFLOWERRFLOWEFLOWEEFLOWWFLOOFLLFFWRONGCOLOUR.WRONGCOLOUR..WRONGCOLOURWRONGCOLOURRCOLOUSTSOUTH SOUTH-EASTEAST NORTH-EASTNORTHHORSETAILHAIRPLUMBLUEFLOWERVIOLETFLOWERREDFLOWERBULLRUSHCRABSANDROCKLIZARDSTRAWHAYWOOLAPPLETADPOLELEAVESTWIGSBARKSTKSOKSTCOLLECTYOURRCOLLECTYOUCOLLECTYOUUYOOYYCOLLECTCOLLECTTCOLLECCCOOWHERETHETADPOLESARE SWIMMING.BANK.YOUMUST TADPOLES.ANDITISNOWINYOURBAG.ANDTHEYARENOWFOUNDSOMEYOUHAVEBEEN SUCCESSFUL!YOUGETCLOSERATPRESENT.TREESTREES.YET.YOUCAN'TCOLLECTANYOFTHETOOFARYOUARE NORTH-WESTWEST SOUTH-WEBULLRUSHCRABSANDROCKLIZARDSTRAWHAYWOOLAPPLETADPOLELEAVESTWIGSBARKBUTHEBEABLETOONTHEGROUNDTREETOCOLLECTBEANDPUTITFOUNDANAPPLEGOTOPICKONEUP.APPLES.TREE.UNDERTHETHEYARETOTHEMOVECLOSERCAUGHTATADPOLEINYOURJAR,TNOWFOUNDSOMEYOUHAVEBEEN SUCCESSFUL!YOUGETCLOSERATPRESENT.TREESTREES.YET.YOUCAN'TCOLLECTANYOFTHETOOFARYOUARE NORTH-WESTWEST SOUTH-WESTSOUTH SOUTH-EASTEAST NORTH-EASTNORTHHORSETAILHAIRPLUMBLUEFLOWERVIOLETFLOWERREDFLOWEREGROUNDTREETOCOLLECTBEANDPUTITFOUNDANAPPLEGOTOPICKONEUP.APPLES.TREE.UNDERTHETHEYARETOTHEMOVECLOSERCAUGHTATADPOLEINYOURJAR,TOWHERETHETADPOLESARE SWIMMING.BANK.YOUMUST TADPOLES.ANDITISNOWINYOURBAG.ANDTHEYAREACKBEWAREOFTHECRAB!PADDOCK.THEREISNOBEACH.ROCKSYOUCAN'TCOLLECTATOCATCHALIZARDTOPUTMANAGEDROCKPILE.ROCKS.LIVE.ROCKPILEWHERETHETOOKAHANDFULOFBARN.DOOR!DOOR.ENTERTHROUGHTHEBARNLOOSEWOOLSHEEP.PATTHEBEABLETOONTHRONGPLACE.AWAY.THEGARDEN.CAREFUL!YOU'LLFALLINTHECREEK!PICKEDAPICKONE BULLRUSHESYOUCAN'T BULLRUSHES.(ANDDIDN'TGETBITTEN!)CAUGHTACRAB.NOTCLOSEENOUGHANDWERENOTBITTENBYTHESOME COLLECTEDCAREFUL-YOU'LLFALLINTHESEA.MOVEBNOTCLIMBOVERTHATAREAISOUTOFBOUNDS.LOOSEHAIRIN COLLECTEDATOUCHTOIT'SHORSEYET!HORSE'SFOUNDAFROMCOLLECTYOURPLUMS.PLUMSTOGARDENFLOWERWRONGCOLOUR.TRYINGTOHORSE.ISCLOSESTNEARTHEINTHEMIDDLETHATISISPICKAATTHESTEM.WGHTHROUGHINTOONTHECATCHONESWIMMINGINTHEPOND.TADPOLESTWOLOOKTOFINDAPPLESTOGETHAVEAREFALLINTHEPOND.WATCHOUT!YOU'LLFALLINCREEK!GOTHROUGHTHEGATE.BEGOING SWIMMING!IFYOUGOTHATFARYOU'LLBYCROSSTHECREEKBRIDGE.WALKON*51::3*5113*553**33".44"..""3*51:443*51::3*5113*553**33"./30;122"./30;11"./30;;"./300"./33".//"..""$-(''$-(($--$$*#,7$6;;$66$$"*5;044"*5;00"*5;;"*55"**""".44"..""3*51:443*51::3*5113*553**33"*51:44"*51::"*511"*55"**""3*51:443>>"*<=="*<<"**"">*<=>>>*<==>*<<>**>>"*<=>>"*<=="*<<"**"">..>>"*<=>>"*<=="*<<"**""$6;7''$6;7@"*ABB@"*AA@"**@""@@D*ABBD*AAD**DDD*ABBD*AAD**DD@"*ABB@"*AA@"**@""@@*ACC*AA**@"*ABB@"*AA@"**@""@@$%?7''$%?77$%??$%%$$"*<=IIIG1HHIG11IGGIIIFGGFFFI1MMI11IIIIFGGFFF$E7''$E77$E$EE$$@"*ABB@"*AA@"**@""@@*ACC*AA**ML MLLMMML ML MLLMMH"L H"L H"LLH""HHIL IL ILLIIIL IL ILLII$JK''$JKK$JJ$$I1MMI11IIXX "" W/ W/ W//WW$TU V $TU VV$TU $TUU$TT$$SR/NNSR//SRRSSQ./Q.//Q..QQ "*5/N "*5/NN "*5// "*55 "** "" NO bbNO NO NOONN$| 7''$| 77$| $||$$$ML bccbbb`./aa`.//`..``$_ 7''$_ 77$_ $__$$]"*^ee]"*^^]"**]""]]]"*^ee]"*^^]"**]""]][\^[\^^[\\[[$Y Z7''$Y Z77$Y ZZ$Y $YY$$ "* "** "" X*X**k/lmmbk/lbk/llbk//bkkbbbbgiajbgiajjbgiabgiaabgibgiibggbbb*foe./ob*foe./obb*foe./o*foe./oo*foe.//*foe..*foee*foo*ff**bgiahbbgiahbbbgiahhbgiaabgibgiibggbbb$_7''$_77$_$__$$*foe*foee*foo*ff**bcddbcr"*ttr"**r""rrs0;122s0;11s0;;s00ssW/rW/rrW//WWWqfWqfWqffWqqWWp""pp*foe./ojll*foe./ojj*foe./oo*foe.//*foe..*foee*foo*ff**bk/lmfonnbk/lmfobk/lmfoobk/lmffbW/wwW//WWy".zzy"..y""yyW/wxxW/wW/wwW//WW$v;7''$v;77$v;;$v$vv$$s0;122s0;11s0;;s00ssW/s0;122W/s0;11W/s0;;W/s00W/ssW//WWr"*tu122r"*tu1r"*tu11r"*tuur"*t*1!/*1!/*1!//*1!!*1*11****1!/II*1!/*1!/*1!//*1!!*1*11***$v}bw7''$v}bw77$v}bw$v}bww$v}bb$v}}$vv$$W*<{bwwW*<{bbW*<{{W*<<W**WWWW/wqq9*89*889**9999;jDD;jj;;q*8++q*8q*8q*88q**qqq*1!/II*1!/*1!/*1!//*1!!*1*11****1!/II 1H bII1H bb1H 1H 1H1HH11*5b@bBB*5b@bb*5b@*5b@@*5bb*5*55***5b@bBB*5b@bb*5b@*5b@@*5bb*5*55**9*8q=>>9*8q==9*8kbabbabbabbbaabb*f b]j*f b]jj*f b]*f b]]*f bb*f *f *f*ff**b jb jjb b b b bbb g/II g/ g/ g// g g gg b / b / b / b // b b bbb9uu99999r;1:byr;1:byyr;1:bbr;1:r;1::r;1r;11r;;rrrrbabk/llbabk//babkkbabbabbabbbaabbbabgbbabgbbbabgbabggbabbabbabbbaabbbabk/babk//babkSSFUL!YOUGETCLOSERATPRESENT.TREESTREES.YET.YOUCAN'TCOLLECTANYOFTHETOOFARYOUARE NORTH-WESTWEST SOUTH-WESTSOUTH SOUTH-EASTEAST NORTH-EASTNORTHHAIRPLUMBLUEFLOWERVIOLETFLOWERREDFLOWERBULLRUSHCRABSANDROCKLIZARDSTRAWHAYWOOLTITFOUNDANAPPLEGOTOPICKONEUP.APPLES.TREE.UNDERTHETHEYARETOTHEMOVECLOSERCAUGHTATADPOLEINYOURJAR,TOWHERETHETADPOLESARE SWIMMING.BANK.YOUMUST TADPOLES.ANDITISNOWINYOURBAG.ANDTHEYARENOWFOUNDSOMEYOUHAVEBEEN SUCCEHEREISNOBEACH.ROCKSYOUCAN'TCOLLECTATOCATCHALIZARDTOPUTMANAGEDROCKPILE.ROCKS.LIVE.ROCKPILEWHERETHETOOKAHANDFULOFBARN.DOOR!DOOR.ENTERTHROUGHTHEBARNLOOSEWOOLSHEEP.PATTHEBEABLETOONTHEGROUNDTREETOCOLLECTBEANDPUFUL!YOU'LLFALLINTHECREEK!PICKEDAPICKONE BULLRUSHESYOUCAN'T BULLRUSHES.(ANDDIDN'TGETBITTEN!)CAUGHTACRAB.NOTCLOSEENOUGHANDWERENOTBITTENBYTHESOME COLLECTEDCAREFUL-YOU'LLFALLINTHESEA.MOVEBACKBEWAREOFTHECRAB!PADDOCK.TRIN COLLECTEDATOUCHTOIT'SHORSEYET!HORSE'SFOUNDAFROMCOLLECTYOURPLUMS.PLUMSTOGARDENFLOWERWRONGCOLOUR.TRYINGTOHORSE.ISCLOSESTNEARTHEINTHEMIDDLETHATISISPICKAATTHESTEM.WRONGPLACE.ISCLOSESTTOTHECREEK.THEGARDEN.CARETWOLOOKTOFINDAPPLESTOGETHAVEAREFALLINTHEPOND.WATCHOUT!YOU'LLFALLINCREEK!GOTHROUGHTHEGATE.BEGOING SWIMMING!IFYOUGOTHATFARYOU'LLBYCROSSTHECREEKBRIDGE.WALKONNOTCLIMBOVERTHEFENCE.THATAREAISOUTOFBOUNDS.LOOSEHAILYINGSTROKETHEHORSE'STAIL,AFLOWERSAREGROWINGINCREEK.GROWBYITSSTEM.LIVESBEACHLIVELIZARDSINYOUWILLFINDAMOUTHOFTHECREEK.LOOKONLY.YOUMAYPICKUPAFALLENCLOSEENOUGHTHROUGHINTOONTHECATCHONESWIMMINGINTHEPOND.TADPOLES5'5&)6%*$"!w xx>2?33>>2?3T[<U;GU< .7? .>  .7 -7 -7? ->  .7 .> -7 -7? -> PILEREDFLOWER.SHEEPTAIL.TAILMIDDLE.BLUEFLOWER.SAND.MOVECLOSER.PADDOCK.XUvTwSIQPONIIMLKIzIH{G{GRj}E}DS|CBAB>C%@?> <;;: 9 $s7 $g6#s5#ft4#g3 $s1 $g0#s/#ft.#g-6+)6**)*(*AB$%?7'"*<=>>*<=>"*<=>>."*<=>$6;7'"*5;04".43*51:4"*51:43*51:4".43*51:4"./30;12$-('*#,)*#/+)$%('!"*81!$%&'!"$-(' !" b***b*b*~[ZYX$_7'*foebcd`./a$_ 7']"*^e]"*^e[\^$Y Z7' "*X* "W/ $TU V SR/NQ./ "*5/NNO b$| 7'ML ML H"L IL IL $JK'I1MIG1HFGI1MFG$E7'@"*AB*AC@"*ABD*ABD*AB@"*AB*AC@" g/I b / 1H bI*5b@bB*5b@bB9*8q=>;jDq*8+*1!/I*1!/I*1!/I$v}bw7'W*<{bwW/wy".zW/wx$v;7's0;12W/s0;12r"*tu12s0;12W/rWqfp"*foe./ojlbk/lmfonbgiaj*foe./obbgiahbIIMMLLKKIIzIIzzzzzHH1*b9ub*AdЪժժՂ`Ղ*Q*UЀ@H*T E  ԪժՂժ*A"( `$U*U(Uѐ@ @#`P@ܪժժ"Шp*U Ԁ}P @իܪ(@1U(ԪԪ @p8ŀժժՂ"ԊժժժՊ"$Q*U"DժT U@C@@nDUԪժժՂ`Պ*A*UЀ@L@ߊD  Ԫժժ*Q " @A*U"U ѐ P @PЪժժU*Ԁ@x*UԀ@( ԪߪA "ԊѪՂЪ @p; ժժՂ"Ԋ(PժժՊ"U(U*ժ"U`@@NUP(ԪժժՀ`Њ@@((U Ѐ@U @ ׂ@  ԪժԪՀ@"   0@A*UU*ѐ぀(((p@`PժժժՀTU*@xՀ`@*"AЊܪ@*e(UԂŪըՊ E~xժժժՂ`Ъ(PժժՊ"~@ @   @@ ,B    @ @P x?x@*~>x@`@ax?8xp?pT P*?xC|pa|CCaCc*88 U@?x?|pa|CaCa|x?x?@`@``p|?xpp @0p|`|?8xp~ccqp?x?|?|pp(0|TGCapap?|?|?|0xpT xp?@*|?|pc|CaCaa|8x`~pU @*ApC?80`a|C``@*0 U?x?|pa|C@a|?x@@``p?|?8pp |88`?|?`~8xpp`x>0x(88U~@a`p|?|ppUp`*?x?|pa|CaCaaxxU xpժժժՂ"ՀժժժՂ Ђ*~$E*Uժժ@ P*U`rEЪժժՂ`Ղ(UUЀ@HA"UP1 Ԫժժժժժ *( `U*U*U (*p1p ժժ߾ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժտվժ߯ժժժժժժժժժժժժժժժժժժժժժ*UjW>UjU*U*U*U*U+Uju:u*U*u*WjU:WnU;U*U*Uժתժժժժժժժժժժժժ߾ժկժժժժժժժժŪժԪՊժժժՊժժժժժժժժתժժժժժժժժժժժժ߾ժկժժժժժժժѨŢŢՊԨŪŢժժժժժժժժժժժժ߾ժժժժժժժժժժժժբժŪѪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժъŢŪѪшŨըժĪĪժժժժ߯ժժժժժժժժբŪժժժժժժժժժժ*Uj]:Uj]nUk].w:W;]ju:w.u:u*WkU:UnU+]*U*UժժժժժժժվժժկժժժժѢѨĢŨŢŢժժժժժժժժժ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uժժ׾ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժտվժ߯ժ*U*U*UjU*U*U*U*U+Uju:w*U*u*UjU:o;U*U*Uժתժժժժժժժժժժժժ߾ժկժժժժժժժժŪժԪՊժժժժժժժժժժժתժժժժժժժժժժժժ߾ժկժժժժժժժѨŢŢՊШŪŢժժժժժժժժժժժժ߾ժժժժժժժժժժժժբժŪѪժժժժժԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժъŢŪѪшŨըժĪĪժժժժվժߪׯתկժժժժժժժժբŪժժժժժժժժժժ*Uj]:Uj]nUk].w:W;]ju:w.u:u*WkU:UnU{*U*UժժժժժժժվժժկժժժժѢѨĢŨŢŢժժժժժժժժժ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uժժ׾ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժվժ߯ժ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uժתժժժժժժժժժժժժ߾ժկժժժժժժժժժԪՊժժժՊժժժժժժժժժתժժժժժժժժժժժժ߾ժկժժժժժժժѨŢŢՊѨŪŢժժժժժժժժժժժժ߾ժժժժվժժժժժժժժժժժժժժժԪժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ߾ժժժժժժժժъŢŪѪшŨըժĪĪժժժߪվժߪ׿תկժժժժժժժժժժժժժժժժժժժժժ*Uj]:Uj}oU]~w:W{_ju:w~w:u*WkU:/:]*U*UժժժժժժժպժժկժժժժѢѨĢŨŢŢժժժժժժժժժ*U*U*U*U*U*U*U*U*U*U*U*u?U*U*U*U*U*U*U*UPp?x?*|@@p@a*|?p?8xpxUBpT*P*@?xC|pa|CCaCa(0 U`?x?|pa|CaCaa?xp?xpp@``p|?xpp(`? x|`!U x?8xp*|Caap?x?|?|pp(A!~@CCapap|?|?|0xp ARE NUMBERED 1 TO 4!P%(4,3)C ARRAY SHOWING STATE OF GAMEc FIRST INDEX IS FOR PLAYER AGAIN P%(0,I) IS NOT USED P%(I,0)=X COORDINATE,PLAYER I P%(I,1)=Y COORDINATE,PLAYER I P%(I,2)=MOVES MADE,PLAYER I P%(I,3)=ERROEK STRINGS AND TEST STRINGS. THESE CAN BE ACCESSED FROM A SCREEN MENUo WHEN THE PROGRAM IS EXECUTED.uh{r|E$(7): DIRECTION ABBREVIATIONSP$(4) ARRAY OF PLAYER'S NAMES NOTE THAT P$(0) IS NOT USED PLAYER'S BE DONE -Y} WHENEVER A CHANGE TO THIS INITIALIZATION PROGRAM IS MADE. -~---------------------------------------------------------------------- THIS PROGRAM ALSO CONTAINS PROCEDURES FOR PRINTING THE MESSAGROGRAM. THE REQUIRED POKE STATEMENTS -uz ARE GENERATED BY THIS PROGRAM IN A FILE CALLED "MEMPTRS". -{ THEY SHOULD BE INSERTED INTO THE GAME PROGRAM BY LOADING - | "S. HUNT" THEN TYPING "EXEC MEMPTRS". THIS MUST RAM). - w 3) THE GAME PROGRAM BEGINS WITH CERTAIN POINTERS TO THE VAR- - x IABLES IN THE BASE PAGE SET TO THEIR FINAL VALUES AT THE -)y COMPLETION OF THIS PROGRAM BEGIN AT THE SAME MEMORY -a s LOCATION (ABOVE THE FIRST HI-RES GRAPHICS PAGE). t 2) THIS PROGRAM IS LARGER THAN THE GAME PROGRAM. (IF IT IS - u SMALLER, THE VARIABLE SPACE WILL OVERLAY PART OF THE PROG- -E v ARIABLES" IS THEN -c o LOADED BY THE GAME PROGRAM, WHICH CAN THEN ACCESS THE INITIALIZED - p VALUES. THIS WILL WORK ONLY IF: q -" r 1) THIS PROGRAM AND THE GAME P - l IT INITIALIZES THE ARRAYS REQUIRED BY THE GAME PROGRAM, AND - m CREATES A FILE CONTAINING A BINARY IMAGE OF THE INITIALIZED VARI- - n ABLES AND THEIR POINTERS. THIS FILE CALLED "V -O h REQUIRED BY THE SCAVENGER HUNT GAME PROGRAM "S. HUNT", BUT IT WILL - i BE NEEDED IF ANY CHANGES ARE TO BE MADE TO THE MESSAGES OR COLLECT - j TESTS. -3 k >Md----------------------------------------------------------------------ke PROGRAM "INIT DAT"f - g THIS PROGRAM IS FOR DEVELOPMENT PURPOSES ONLY. IT IS NOT                           ժ߯ժժժժժժժժժժժ*Uj};Uj]nUk].w:W;]ju:w.u:u*WkU:UnU+]*U*Uժ׾ժժժժժժժժтрĢŀժժժժժժժժժժժժ߾ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժծվժ߯ժժժժժժժժժժժժժժժժժժժժժ*UjU:UjU*U*U*U*U+Uju:u*U*u*WjU:WnU;]*U*Uժתժժժժժժժժժժժժ߾ժկժժժժժժժłЊŀĢժժժժժժժתժժժժժժժժժժժժ߾ժկժժժժժժժŢЊԀĂժժժժժժժժժժժժ߾ժժժժժժժժժժժѪժժժժժժժժժժժժժժժժժժժժժժժժժժժկժժժժժժժŪшժժժժ߯ժժժժժժժժբŪժժժժժժժժժժ*Uj]:Uj]nUk].w:W;]ju:w.u:u*WkU:UnU+]*U*UժתժժժժժտժժկժժժժѢѨĢŨŢŢժժժժժժժժժ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U15):"SCAVENGER HUNT."&v-I18::I,v.wv.---------------------------------------------------------------------v.---------------------------------------------------------------------v. MUSIC INITIALIZATION SUBROUTINEw.I770792:J:I,J:400:u-KI$"S"NX1)u-KI$"D"NX2u-(KI$"S")(KI$"D")İ3510:11610: INVALID INPUT - ERROR MUSIC & REDISPLAY SCREEN.u-:u-u- NEW GAME NOT WANTEDu-NX0:u-(7):(5):"GOODBYE!"u-:(5):"HOPE YOU ENJOYED PLAYING"v-:(3510:11360: INVALID INPUT - ERROR MUSIC & REPEAT SCREENYtP- NEW GAME. SAME PLAYERS? _tZ-td-(6):(5):"DO YOU WANT TO PLAY WITH"tn-:(10):"(S) SAME PLAYERS?"tx-:(10):"(D) DIFFERENT PLAYERS?"t-::(20):"-->";u-UP0:UB0:FL0:LN1:I,2)P%(I,3))5,s,H(H20)((H20)40)40:s-I2V13As -I`s-1:22:L$: DOTTED LINE s-"ANOTHER GAME? (Y) YES (N) NO -->";s(-UP0:UB0:FLO:LN1:400:s2-KI$"Y"11600: GOTO ANOTHER GAMEs<-KI$"N"ī11720: GOTO FINAL SCREEN9tF-)MO)11460Ar,(((P%(I,2)P%(I,3))5)MS)(P%(I,2)MM)11460\r,: PLAYER IS A WINNERir,P$(I):r,:(H):"FOUND..";OC%(I);" THINGS"r,:(H):"IN....";P%(I,2);" MOVES"r,:H:"WITH...";P%(I,3);" MISTAKES"s,:(H):"TOTAL SCORE = ";(P%(CTS5qB,(OC%(I)MO)((P%(I,2)P%(I,3))5MS)11350PqL,P%(I,2)MMMMP%(I,2)gqV,II1:INP11330oq`,:qj,7:"HERE ARE THE FINAL RESULTS"qt,L$: DOTTED LINEq~,V3:H1q,I1NPq, PRINT PLAYER I'S RESULTSq,H:V: r,(NP1)(OC%(I5MSMS(P%(I,2)P%(I,3))53p+II1:INP11230dp+ FIND FIRST WITH MIN SCORE FOR MAX. OBJECTSlp,I1|p,INP11310p,(OC%(I)MO)(MS(P%(I,2)P%(I,3))5)11310p$,II1:11280p.,MMP%(I,2)q8, MM IS MIN. MOVES FOR MIN. SCORE FOR MAX. OBJE+I&o+ MO IS MAX. OBJECTS COLLECTED?o+ FIND FIRST WITH MOGo+I1Wo+INP11200lo+OC%(I)MO11200}o+II1:11170o+MS(P%(I,2)P%(I,3))5o+ MS IS MINIMUM SCOREo+ FIND MS FOR MAX. OBJECTSo+(OC%(I)MO)11250p+(P%(I,2)P%(I,3))1,2)P%(1,3))5:MMP%(1,2)nH+ INITIALIZE MO - MOST OBJECTS COLLECTED, MS - MINIMUM SCORE FOR MOST OBJECTS & MM - MINIMUM MOVES FOR MIN. SCORE FOR MOST OBJECTS.nR+NP111360n\+ IF NP<>1 DETERMINE WINNER(S) nf+I2NPnp+OC%(I)MOMOOC%(I)oz0Lm(---------------------------------------------------------------------cm* PRINT SCORESim+m + COUNT OBJECTS COLLECTEDm+I1NP:K0m +J04:O%(I,J)18KK1m*+J:OC%(I)K: PLAYER I COLLECTED K OBJECTSm4+In>+MOOC%(1):MS(P%( ENSURE CURRENT PLAYER IS LEFT ON SCREENglx(JNP10400: GAME NOT OVER. GOTO CHOICE OF NEXT PLAYER.l(SW0İ830: DRAW CURRENT PLAYERl(8600: ERASE ALL PLAYERS FROM SCREENl(l(CPCP1:CPNPCP1l(O%(CP,0)36ī10400m(SW1:CT0:1004T THE QUESTION Sk<( PLAYER HAS TRIED TO EITHER MOVE OR COLLECT OR HAS GOT HELPkF(SP110040: PLAYER WAS UNSUCCESSFUL OR GOT HELP - HAS ANOTHER TURN.kP(J0: CHECK IF ALL PLAYERS ARE FINISHEDkZ(I1NP:O%(I,0)36JJ1:kd(I)ln(SW0İ830E THE SCORES."9j("IF YOU DO NOT WANT TO END THE GAME,"Zj ("PRESS THE SPACE BAR. -->";wj(FL1:UB1:UP0:LN3:400j(KI$"END"ī10370: AN EARLY FINISHj((KI$(32)SP1:10040: EARLY FINISH NOT WANTEDk2(3510:10210: INVALID INPUT - REPEAEi'SP0:SW0İ830: RESET REPEAT TURN FLAG. ENSURE MAN IS ON SCREEN[i'I7000,7750,8500ri'10300: NEXT MOVEi' CTRL-P INDICATING EARLY END TO THE GAME:i'21:1:958i'21:"TYPE THE WORD ";:::"END";::" TO END THE GAME NOW"j'"AND SE00!hj'"WHAT DO YOU WANT TO DO?"Bht'"DO YOU WANT TO (1)MOVE?"ch~'18:"(2)COLLECT SOMETHING?"h'18:"(3)GET HELP? -->";h'UP1:UB0:FL1:LN1:400h'KI$(16)10200: CTRL-Ph'I(KI$)h'I1I3İ3510:SP1:10040: ERROR MUSIC & REENTER256(109))2ĺ"PLEASE WAIT ...":Q(0): RECLAIMS SPACE TAKEN BY UNUSED STRING VARIABLESgB'SP0NP1ī10090: GOTO DIFFERENT MESSAGE IF SAME PLAYER OR ONLY ONE PLAYER.gL'"IT IS YOUR TURN, ";:::P$(CP):gV'3650: NEXT PLAYER MUSICh`'101SAME PLAYER TO PLAY. CT IS A COUNTER FOR USE IN FLASHING THE MAN. SW=1 MEANS MAN IS SHOWING ON SCREEN. CP IS CURRENT PLAYER.f8'XP%(CP,0):YP%(CP,1):21:1:958: X AND Y ARE COORDINATES GIVING CURRENT PLAYER'S POSITION.]g='((112)256(111))((110)@ep&23:1:"MISTAKES. YOUR SCORE IS ";(P%(CP,2)5)(P%(CP,3)5)cez&FL1:900: WAIT FOR SPACE BARie&e&---------------------------------------------------------------------e' PLAY THE GAMEe' e$'CT0:SW1:CP1:SP0|f.' SP=1 MEANS E d &K0d*&&d4&I04:OBO%(CP,I)7d>&OB18KK1>dH&IkdR& OUTPUT LINES WITH VALUES FROM P% AND Kd\&21:1:"SO FAR YOU HAVE COLLECTED ";K;:" THING";d^&K1ĺ"S";da&", YOU"df&22:1:"HAVE MADE ";P%(CP,2);:" MOVES AND MADE ";P%(CP,3)CS1: SET FLAG FOR GAMES SCREEN@c%D$;"BLOAD PIC.SH3T,A$2000"tc%16300,0:16301,0:16297,0:16304,O:230,32c%SW1:CT0:8600:: REDRAW THE MEN AND EXITc%---------------------------------------------------------------------d& HELP-SCOR TO MOVE AGAIN?"(b0%"(Y)YES. (N)NO."?b:%24:"WHICH? -->";\bD%LN3:UP0:UB0:FL0:400bX%KI$"Y"KI$"YES"ĕ2XN,YN:9310: ERASE MAN & START AGAINbb%KI$"N"KI$"NO"İ3510:9500: ERROR MUSIC & REENTERbl% RELOAD THE GAME SCREEN: cv%::2:400a$DT(KI$)Ja$DT1DT40İ3510:9410: ERROR MUSIC & REENTER^a$ MOVE THE MAN:a%4110:3710: SET END COORDINATES & DIRECTIONa%3910:XXNYYN9490: STEP THE MAN UNTIL END COORDINATES ARE REACHEDa%b&%1:21:"WOULD YOU LIKEP0:LN2:400?`$4000: CONVERT DIRECTION INPUT TO INTEGER DXm`$DX7İ3510:9330: ERROR MUSIC & REENTER`$:22:"HOW MANY STEPS WOULD YOU LIKE TO GO?"`$"CHOOSE A DISTANCE FROM 1 TO 40."`$17:24:"HOW MANY STEPS? -->";a$UB0:FL0:UP0:NL88_h$XSX:YSY: STARTING COORDINATES FOR MOVE THE MANI_r$21:1:958o_|$"WHICH WAY DO YOU WANT TO MOVE?"_$"(N)NORTH (S)SOUTH (E)EAST (W)WEST "_$"(NE)NORTH-EAST (NW)NORTH-WEST"_$"(SE)SOUTH-EAST (SW)SOUTH-WEST -->"; `$FL0:UB0:U:YN ^F#V^P#---------------------------------------------------------------------f^"$ HELP-MOVEl^,$^6$:CS2: CURRENT GRAPHICS SCREEN FLAG^@$D$;"BLOAD PIC.HELP2,A$2000"^J$ DISPLAY COMPASS ROSE AND MAN^T$1:0:3_^$X220:Y90:2X,Y:DXYN04:OBO%(CP,YN)$]"OB18ī9020U]#TOB92:SW0İ830: ENSURE MAN IS ON SCREENs] #2500: MESSAGE FORMATTER]#KK1:K0FL1:900:9020: NO MORE OBJECTS. WAIT FOR SPACE BAR](#24:1:"PRESS THE SPACE BAR FOR THE NEXT ONE.";]2#FL1:920^<#NG OBJECTS FOR HELP-FINDc\"---------------------------------------------------------------------\" SHOW OBJECTS COLLECTED AND NOT COLLECTED\"6500: DISPLAY LIST\"FL1:900:: WAIT FOR SPACE BAR \" SHOW WHERE REMAINING OBJECTS ARE]"TANCE"4[t""(3)SEE YOUR SCORE (4)PLAY THE GAME-->";Q[~"UP0:UB0:LN1:FL1:400^["I(KI$)["I1I4İ3510:8780: ERROR [" GOOD INPUT;GOTO SUB-MODULES["SW0İ830: ENSURE MAN IS IN SCREEN["I4ı["I8890,9260,9750:8770\" LOCATI---"Z." ENTER HELP ROUTINE HERE:VZ8"SP1: FLAG FOR REPEAT TURN IN PLAY-GAME MODULEsZB" QUERY FOR KIND OF HELPZL"21:1:958ZV""WHAT SORT OF HELP DO YOU WANT?"Z`""(1)GET HELP WITH WHERE TO FIND THINGS"[j""(2)GET HELP WITH DIRECTION AND DISSKIP OVER SUBROUTINES`YH!---------------------------------------------------------------------Y! DRAW OR ERASE ALL PLAYERS SUBROUTINE:Y!J1NPY!2P%(J,0),P%(J,1)Y!J:Z!------------------------------------------------------------------(CP,2)P%(CP,3))5UXNP1FL1:900:: DIFFERENT SPACE BAR MESSAGE FOR 1 PLAYER X 24:3:"PRESS THE SPACE BAR FOR NEXT PLAYER.";:FL1:920X X ---------------------------------------------------------------------X4! GET-HELPY>!8750: CTS COLLECTED0WFL1:900: WAIT FOR SPACE BARWO%(CP,0)O%(CP,0)18:21:1:958:"WELL DONE, ";P$(CP);",": MARK AS ALL OBJECTS COLLECTEDW"YOU HAVE COLLECTED EVERYTHING! YOU MADE"XP%(CP,2);" MOVES, ";P%(CP,3);" MISTAKES. YOUR SCORE = ";(P%T'V3600:3600:3600: SUCCESS MUSICEV2500: MESSAGE FORMATTER{VO%(CP,DX)O%(CP,DX)18: MARK OBJECT AS COLLECTEDVI0: COUNT OBJECTS COLLECTEDVJ04:O%(CP,J)18II1VJVI58190: GOTO NOT ALL OBJECTS COLLECTED W ALL OBJEING U61100: POSITION CHECKERDU@TF08060: GOTO VALID COLLECTZUJ INVALID COLLECTUT:3510:2500:ERROR MUSIC AND MESSAGE FORMATTERU^P%(CP,3)P%(CP,3)1: INCREMENT ERROR COUNTUhFL1:900: WAIT FOR SPACE BARUrSP1:V| VALID COLLEC(I,J): GET MESSAGE FOR THIS COMBINATION OF AREASIT3500: ERROR MUSICZT1:20:958T"YOU CAN'T COLLECT ";::3400::TV22:2520: PRINT OUT OF CORRECT AREA MESSAGET""MAKE ANOTHER DECISION."U,8030: CONTINUE WITH BAD COLLECT PROCESS:: ALLOW ANOTHER TURN. WAIT FOR SPACE BAR MS OBJECT NOT YET COLLECTEDtSOBO%(CP,DX):XP%(CP,0):YP%(CP,1)S2730:2790: FIND AREAS OF OBJECT & PLAYER (I & J)SIJTOB:7990: IN SAME AREA - CONTINUE WITH CHECK FOR VALID COLLECT1TTA%VALID INPUTCRO%(CP,DX)187880: GOTO OBJECT NOT YET COLLECTEDdR OBJECTED ALREADY COLLECTEDR21:1:958:"YOU CHOSE ";::OBO%(CP,DX)18:3400::R"BUT YOU ALREADY HAVE THAT IN YOUR BAG!"R"MAKE ANOTHER DECISION.".SSP1:FL1:900---------------------*QF COLLECT-OBJECT0QP9QZSP0RQd6500: DISPLAY LIST}Qn"WHICH ONE ARE YOU COLLECTING? -->";QxUP0:UB0:FL1:LN1:400: OBTAIN ANSWERQ}SW0İ830: ENSURE MAN IS ON SCREEN RDX(KI$)1:DX0DX4İ3510:7770: IN3910: TAKE A STEPFPXXNYYN7430: STEP BACK TO START POSITIONvPP%(CP,3)P%(CP,3)1: INCREMENT ERROR COUNTP$FL1:900: WAIT FOR SPACE BARP8SP1:: SET BAD MOVE FLAG & RETURN TO PLAYQB ------------------------------------------------ BAD MOVE:%O3510: ERROR MUSIC@O2500: OUTPUT MESSAGEnO1:23:"YOU MUST GO BACK AND TRY AGAIN."OSW0İ830: ENSURE THE MAN IS ON THE SCREENODXDX4:DX7DXDX8: TURN AROUNDOXNXS:YNYSO3710: SET NEW MOVE DIRECTIONPTEP$NzTZ7350: CHECK ERROR FLAGhNXXNYYN7260: KEEP STEPPING UNTIL END POSITION IS REACHEDN1100:TZ7350: CHECK FINAL POSITIONNP%(CP,2)P%(CP,2)1: INCREMENT PLAYER'S MOVE COUNTNP%(CP,0)X:P%(CP,1)Y: UPDATE POSITIONN ON/M44110: CALCULATE END COORDINATES XN & YNQM>T0: SET VALID POSITION FLAGnMHSTU: SET STEP COUNTERMR3710: SET MOVE DIRECTIONM\3910: TAKE A STEPMfSTSTU: INCREMENT STEP COUNTERNpSTFİ1100:STU: CHECK POSITION EVERY THIRD S0:7090: CALL HELP THEN REENTERELKI$"0"SP1:: ABORT MOVE SL DT(KI$)LDT1DT40İ3510:7130: ERROR MUSIC & REENTERL XSP%(CP,0):YSP%(CP,1):XXS:YYS: INITIALIZE STARTING COORDINATESM*SW0İ830: ENSURE THAT MAN IS ON THE SCREENTERK21:1:958BK"HOW FAR DO YOU WANT TO GO (IN STEPS)?"iK"CHOOSE A DISTANCE FROM 1 TO 40."K"IF YOU CHANGE YOUR MIND, TYPE 0."K23:1::"(H)HELP";::958:23:"HOW FAR? -->";KFL1:LN2:UB0:UP0:400KKI$"H"7170 L850 (NW)NORTH-WEST ";:::"(H)HELP";QJ:"(SE)SOUTH-EAST (SW)SOUTH-WEST -->";nJFL1:LN2:UP0:UB0:400JKI$"H"İ8500:7010: CALL HELP THEN REENTE MOVEJ4010: CONVERT INPUT TO DIRECTION INTEGER DXKDX7İ3510:7010: ERROR MUSIC & REE1:I4ĺII:IcI ---------------------------------------------------------------------IX MOVE MODULE BEGINS HEREIb1:21:958:"IN WHICH DIRECTION DO YOU WANT TO MOVE?"Il"(N)NORTH (S)SOUTH (E)EAST (W)WEST":#Jv"(NE)NORTH-EAST Hd PRINT LIST OF OBJECTS TO COLLECT SUBROUTINE:?HnDX21:K0iHx21:1:958:"YOUR LIST INCLUDES: ";HI04:OBO%(CP,I)HDX:"(";I1;")";HOB186570HKK1:6580HOBOB18:H3400:HI0I2I4ī6610HDX21:6620IDX,76,813G 24:4:"PRESS THE SPACE BAR TO BEGIN.";VGFL0:920: WAIT FOR SPACE BARbGI1NPG(P%(I,0)160(15I):P%(I,1)90:2P%(I,0),P%(I,1)G2IG<21:958GFGP ---------------------------------------------------------------------1z#?     îϱ!îӱ!ӮԮàq ԠԠ @ӮԠ1̠ӮԠCԠӠCβîв!îȳԠ! ^"GROW"h"CREEK."7r"FLOWERS ARE GROWING IN"@|"A"U"HORSE'S TAIL,"g"STROKE THE"t"LYING""PADDOCK." "MOVE CLOSER.""SAND.""BLUE FLOWER.""MIDDLE.""TAIL""TAIL.""SHEEP""RED FLOWER""CATCH ONE" "ON THE","INTO";"THROUGH"O"CLOSE ENOUGH"o"YOU MAY PICK UP A FALLEN"|"ONLY.""LOOK""MOUTH""YOU WILL FIND A"""IN","LIZARDS"6"LIVE"@"BEACH"J"LIVES"T"BY ITS STEM."FAR YOU'LL","BE GOING SWIMMING!"bn"GO THROUGH THE GATE.","CREEK!","WATCH OUT! YOU'LL FALL IN"{x"FALL IN THE POND."y"ARE"z"HAVE"{"TO GET""APPLES""TO FIND""LOOK""TWO""TADPOLES""SWIMMING IN THE POND."FROM","FOUND A""HORSE'S"+"YET!"8 "HORSE"G"TO IT'S"T"TOUCH"g("COLLECTED A"2"LOOSE HAIR IN","THAT AREA IS OUT OF BOUNDS."<"NOT CLIMB OVER"F"WALK ON"P"BRIDGE."Z"CROSS THE CREEK","BY" d"IF YOU GO THAT HE CREEK!","GARDEN.""THE","AWAY."@"WRONG PLACE.""AT THE STEM.","PICK A","IS","THAT IS","IN THE MIDDLE","NEAR THE""IS CLOSEST","HORSE.","TRYING TO","WRONG COLOUR.","FLOWER""GARDEN""TO","PLUMS","PLUMS.","COLLECT YOUR",CAREFUL - YOU'LL FALL IN THE SEA.","COLLECTED","SOME"r"AND WERE NOT BITTEN BY THE","NOT CLOSE ENOUGH","CRAB.""CAUGHT A","(AND DIDN'T GET BITTEN!)","BULLRUSHES.""YOU CAN'T","BULLRUSHES","PICK ONE""PICKED A","CAREFUL! YOU'LL FALL IN TANDFUL OF"%"ROCK PILE WHERE THE"2$"LIVE."t."ROCKS.","ROCK PILE.","MANAGED","TO CATCH A LIZARD TO PUT" 8"YOU CAN'T COLLECT A"B"ROCKS"L"BEACH."V"THERE IS NO"`"PADDOCK."j"BEWARE OF THE CRAB!"t"MOVE BACK"5~""UNDER THE","TREE.","APPLES.","TO PICK ONE UP."q"GO","FOUND AN APPLE","AND PUT IT","BE","TO COLLECT","TREE" "ON THE GROUND","BE ABLE TO""PAT THE","SHEEP.","LOOSE WOOL""BARN","ENTER THROUGH THE","DOOR.","DOOR!","BARN." "TOOK A HCCESSFUL! YOU","FOUND SOME"C"AND THEY ARE NOW","IN YOUR BAG."w"AND IT IS NOW","TADPOLES.","YOU MUST","BANK.""TO WHERE THE TADPOLES ARE SWIMMING." "CAUGHT A TADPOLE IN YOUR JAR,""MOVE CLOSER","TO THE" ,"THEY ARE"0f"HORSE TAIL HAIR"#p"NORTH"5z"NORTH-EAST"j"EAST","SOUTH-EAST","SOUTH","SOUTH-WEST","WEST""NORTH-WEST","YOU ARE","TOO FAR","OF THE","YOU CAN'T COLLECT ANY""YET.","TREES.","TREES","AT PRESENT.""GET CLOSER","YOU HAVE BEEN SUUNT INITIALIZATION PROGRAM"*K1Y:D$4 5020;KL* SUBSTRINGS{4"BARK","TWIGS","LEAVES","TADPOLE","APPLE">"WOOL","HAY","STRAW","LIZARD","ROCK"H"SAND","CRAB","BULLRUSH","RED FLOWER","VIOLET FLOWER"R"BLUE FLOWER"\"PLUM"TSb COLLECTED BY PLAYER I7l OC%(0) IS NOT USED=vcKI%(19): KEY BOARD INPUT BUFFERiI1:J1:K1: TEMPORARY VARIABLESU1:SP%(" ")INITIALIZE SUB-STRINGSY183:NO. OF SUBSTRINGS IN S$S$(Y):"SCAVENGER HRS MADE,PLAYER IO%(4,4)C ARRAY OF OBJECTS WHICH PLAYERS Y HAVE TO COLLECTy& FIRST INDEX IS FOR PLAYER0 AGAIN O%(0,I) IS NOT USED: O%(I,J)=JTH OBJECT TO BED COLLECTED BY PLAYER INOC%(4)X OC%(I) IS NUMBER OF OBJECB 103,1:104,64: START PROGRAM ABOVE HI-RES GRAPHICS SCREEN 2O 16384,0d (4);"RUN BOOT"j 'k 1000071011,69: MAKE RESET REBOOT THE DISKC :::f(4);"BLOAD PIC.LOGO1,A$2000"16304,0:16300,0:16297,0:16302,0Z400:X0: SET Z FOR TIME WAIT#XX1:Y(16384)(Y127100-XZ100235 d16368,0   QUı" SO801205< 768,SO:769,3:770:M SO801205g 768,SO:769,3:770:m s~QUı$SO15:768,30:769,10:770:.BGQUıLI50:J100V768,129:769,I:770:768,103:769,I:770:768,86:7T%(K)ZLK:K18D K)N KL:T%(K)U:/ : LZFb MO%(I,L):O%(I,L)O%(J,L):O%(J,L)Mi Lo u  L((1)2):L1İ3200 H R C1U(S$(OB))\ C2((S$(OB),C1,U))p (S$(OB),C1U,C2);" ";s C1C1C2u C1z  VVU:V:U:L0: 1 XA4YA5I0:F XA6YA7I1:[ XA8YA9I2:e I3:k { OB5J0: OB9J1: OB14J2: J3:  K((U)(HILOU))LO T%(K)U3020 T%(K)U: 0 KLO18: T),SI,U)) TKC1TKOB- TKC2Ğ:2660B JU:LT(S$(TK))Y I((S$(TK),J,U))u( LILLL0:VVU:V:U2 JJU:(S$(TK),J,I);< LLI:JJIF JLTİ2690:2590P Z SI(M$(T))İ2690d SIn :  LLLĺ" ";:LLU: HTFZRK1920,1960,2010/\TFUī22208fTF0@pJYVzK((T$(T),I,U))`IIUiTFZK1920,1960,2010TFUTTUTTL  V21:V:1:958 L0:LL40 C1255:C2254 SIU(M$(T))  TK((M$( 2060T((T$(T),U)).TF0TTU4:VJ((T$(T),I,U))TFUbIIU:hJ((T$(T),I,U))TFUIIU1960TFUTF0:1920 TTLTUU LT*K((T$(T),U))4I2>JX80X110Y137T4:/X29X69Y149T5:HY(X2)134.5T5:_Y136YX217T5ektOBT}TF0TLT%(TU):TUT%(T)TUTLTUT%(TU)T171780X268X254ī1780Y119T82:TF1:Y131T85:TF1:1430'sX124X135Y90Y110T4:<xY86Y91T3:QY80Y83T3:sX134X149Y90Y106T7:Y40Y81T8:Y32Y41YX114T8X103Y83T2:X114Y86Y91T3:X105Y110Y138T4:X243T4 'X68X79Y29T3:AX83X98Y29T7:[X68X84Y29T3:j Y331330X68X84Y36T3:X83Y43T8:(X90T8:2Y78T2<PY1061390ZX197T6:dX148X188T6:nX153  L VTU17009 jXA0XA1YA2YA3TU:M ~XA4YA51280a XA6YA71360u XA8YA91460 Y110Y1061230 X197T6: X146X188T6: X124X147T4: XY257ı Y116Y110T4:Y115YXѺ(CH%); v440 # *CTCTU0 4CT10ıT >CTZ:U:Z:2P%(CP,Z),P%(CP,U)_ HSWSWe Rk  24:4:"PRESS THE SPACE BAR TO CONTINUE.";  :(32);::(8);:CH%0 16368,0 FL1İ800 CH%(16384) CH%160950): CH%13ī550 KI$""F IUāJUIU:KI$KI$(KI%(J)):R " ";:p &UPUCH%16KI$(CH%): 0CH%8ī600 :IU440 DIIU::" ";:(8)(8); N440 XCH%32ī440 ]IUCH%32ī440 bILNī440 lKI%(I)CH%:IIU:500 10000 11000& NX0454 50,128:D AA1ĺ"S"J P X IU^ | CH%0::(SP%);::(8); 16368,0 FLUİ800 CH%(16384):CH%128ī470 CH%CH%128:CH%96CH%123CH%CH%32 UBUCH%SP%KI$(SP%. E$(0)"N":E$(1)"NE":E$(2)"E":E$(3)"SE"\ E$(4)"S":E$(5)"SW":E$(6)"W":E$(7)"NW" !L$"----------------------------------------" "D$(13)(4) #NX2 &CS0 + - 216302,0 <Q(8191) xNX2140 4500:5000 5cA 105,182 106,126' 107,174108,127A109,212N110,132[111,122h112,137u175,182176,126(4);"BLOAD VARIABLES"U1:Z0:F420000 A011:A1268:A225:A3154:A4120:A581:A6119:A7108:A8120:A980                     MESSAGE STRINGS ---------------------o+ EACH STRING CONSISTS OF 1 BYTE POINTERS TO SUBSTRINGS IN S$ ARRAY.+ SPECIAL CODES:+ 255 = PRINT SUBSTRING POINTED TO BY CURRENT OBJECT NO. "OB"+ 254 = SWITCH ON INVERSE,l A2115:NO. OF 144,88,0"* 3,223,243,1,144,89,08* 2,242,1,144,90,0R* 2,242,3,143,155,91,0i* "T$ INITIALIZED."* T%(18): USED FOR RANDOMIZING OBJECTS AND LATER TO POINT TO THE FIRST COLLECT TEST STRING FOR EACH OBJECT.* &+ --------------------- M$ -154,3,143,155,78,0()T 1,154,1,144,79,0>)^ 2,169,1,144,80,0X)h 2,169,3,143,155,81,0r)r 3,153,170,1,144,73,0)| PLUM TESTS) 1,254,1,119,83,0) 1,254,3,118,132,84,0) 1,254,2,131,86,0) HAIR TESTS) 1,224,3,143,155,88,0* 1,234,1,71,0( 2,139,3,143,155,72,08( 3,122,140,1,144,73,0N( 2,139,1,144,73,0g( VIOLET FLOWER TESTS( 1,135,3,143,155,75,0( 1,135,1,144,76,0(" 2,154,3,143,155,77,0(, 3,134,155,1,144,73,0(6 2,154,1,144,73,0(@ BLUE FLOWER TESTS)J 1,150,62,0'x 1,28,1,137,63,05' 3,27,67,1,137,64,0N' 2,66,3,136,150,62,0c' 2,66,1,137,65,0w' BULLRUSH TESTS' 1,83,3,124,138,67,0' 1,83,1,125,68,0' 3,82,106,1,125,69,0' RED FLOWER TESTS' 1,123,3,143,155,71,0( 1,123,1,144,& 2,34,3,102,116,52,0,& 2,34,2,115,53,0D& 3,10,35,1,103,54,0\& 3,10,35,2,115,55,0l&( SAND TESTS&2 3,10,27,1,130,57,0&< 2,27,1,130,58,0&F 2,27,3,129,138,59,0&P 2,27,2,137,59,0&Z 3,10,27,2,141,60,0&d CRAB TESTS'n 1,28,3,136,232,245,1,42,40,0&% 2,244,1,42,41,0>% 2,244,3,41,54,42,0S% 2,244,2,54,43,0f% LIZARDS TESTS{% 2,34,1,103,45,0% 2,34,3,102,116,46,0% 2,34,2,115,47,0% 3,10,35,1,103,48,0% 3,10,35,2,115,49,0% ROCK TESTS% 2,34,1,103,51,00$ WOOL TESTS*$$ 1,120,3,24,29,30,0?$. 1,120,2,28,31,0X$8 3,119,155,2,28,32,0m$B 2,154,2,28,33,0$L 2,154,3,24,29,34,0$V HAY & STRAW TESTS$` 1,233,1,42,36,0$j 1,233,3,41,54,37,0$t 1,233,2,53,38,0$~ 3,232,245,2,53,39,0% 3,5,1,60,17,0"#1,85,3,59,71,18,09#3,84,91,1,60,19,0K# APPLE TESTS`#1,183,1,51,21,0x#1,183,3,50,63,22,0#1,183,2,62,23,0#3,182,207,2,62,24,0#3,182,207,1,51,25,0#2,206,1,51,26,0# 2,206,3,50,63,27,0$ 2,206,2,62,28,,0"42,45,3,55,63,10,0-">2,45,1,55,11,0D"H3,11,46,2,62,13,0["R3,11,46,1,55,15,0v"\TWIGS AND LEAVES TEST"f2,45,2,62,9,0"p2,45,3,55,63,10,0"z2,45,1,55,11,0"3,11,46,1,55,12,0"3,11,46,2,62,13,0" TADPOLE TESTS # 1,8.S MEANS "IF COORD > NO.1 AND < NO.2"+!T!A180: NO. OF POSITION TEST STRINGS`!T$(A1)l!I1A1!12:"INITIALIZING T$(";::I;::")"!T$(I)""!K!K02070!T$(I)T$(I)(K)! 2030!I!  BARK TESTS"*2,45,2,62,9HEN ATTEMPTING TO COLLECT AN OBJECT. ONE OF 3 DIFFER-k N ENT TESTS MAY BE ENCODED FOR EACH COORDINATE: X 1 FOLLOWED BY NO. MEANS "IF COORDINATE < NO." b 2 FOLLOWED BY NO. MEANS "IF COORDINATE > NO."%!l 3 FOLLOWED BY 2 NO.""PILE""ACROSS"*"FENCE."<"WRONG SIDE"I!"BARK."O&+--------------- T$: POSITION TEST STRINGS FOR COLLECT TESTS ----------0: EACH STRING REPRESENTS A TEST TO BE PERFORMED ON THE PLAYER'S X & Y6 D COORDINATES W20::(4);"RUN S. HUNT"E SPACE BAR SO THE ":"PROGRAM WILL INCLUDE SOUND."pA<24:4:"PLEASE WAIT...";AF20::(4);"RUN S. HUNT")$ (4);"BLOAD PIC.SHTS1,A$2000"P 16304,0:16300,0:16297,0:16302,0i 8191,0: SOUND FLAGqI$I$" "70I$"Q"158191,1: NO SOUND FLAGF20::(4);"RUN S. HUNT"CE BAR SO THE ":"PROGRAM WILL INCLUDE SOUND." F b*b**b*b*b~[ZYXXVvTwSIQPONIIMLKIzIH{G{GRj}ES}DS|CBAB>C@?> <;;: 9 #s7 #g6"s5"ft4"*AC@"*ABD*ABD*AB@"*AB*AC@"*AB$%?7'"*<=>>*<=>"*<=>>."*<=>$6;7'"*51:4".43*51:4"*51:43*51:4".43*51:4"./30;12$-('*#,)*#/+)$%('!"*81!$%&'!"!";1  !" lbk/lmfonbgiaj*foe./obbgiahb$_7'*foebk/bd`./a$_ 7']"*^e]"*^e[\^$Y Z7' "*X* "W/ $TU VXSR/NQ./ "*5/NNO b$| 7'HL HL M"L IL IL $JK'I1HI1HFGI1HFG$E7'@"*ABbgbbabk/*f b]jb j g/I b X1H bI*5b@bB*5b@bB9*8q=>;jDq*8+*1!/I*1!/I*1!/I$v}bw7'W*<{bwW/wy".zW/wx$v;7's0;12W/s0;12r"*tu12s0;12W/rWqfp"*foe./oj9*889**9999;jDD;jj;;q*8++q*8q*8q*88q**qqq*1!/II*1!/*1!/*1!//*1!!1*c*5b9ub*>9*8q==9*8qq9*8bbbaabb*f b]j*f b]jj*f b]*f b]]*f bb*f *f *f*ff**b jb jb jb jjb b b b bbb g/II g/ g/ g// g g gg b XX b  b  b b bb 99r;1:byr;1:byyr;1:bbr;1:r;1::r;1r;11r;;rrrrbabk/llbabk//babkkbabbabbabbbaabbbabgbbabgbbbabgbabggbabbabbabbbaabbbabk/babk//babkkbabbabbaopqoosprrqsrv}bww$v}bb$v}}$vv$$W*<{bwW*<{bwwW*<{bbW*<{{W*<<W**WWW1***cc*5b*5bb*5*55**9ub*<9ub*<9ub*<<9ub**9ub9ubb9uu999 ً֋΋Ƌ {skc[SM D ;73-(# ۊ Ҋ Ȋ  ~ uoia[ RJ > 2 &  ׉ ͉ É ~|)~xsmgb\WQKF@:5/*$ ܌׌ьԀ-MctЌ̌ȌÌ  |wr ifb V LE ; 1 '   ɏ ~nkc^XR E@9"    ؎ЎˎŎ  TQysnhc]WRLFA;60*% ݍ׍ҍ͍Ǎ qke_M93, !ߒ Ӓ ʒ " {`OI @'    $Бȑđ  { pi _QJC@:3 &!  ސvcNG,  ӏ /S/ەוѕʕŕ  xr gb WQ FA 6.&     wq$M/ #  ٓ Γ˓  ~J0JKU Y}lD{XAzByÀ.A1 A2fEPЀ1π;                     44,33,47,19,29,73,0C9&142,254,255,42,143,49,144,33,47,19,29,73,0r90254,145,138,146,113,147,42,56,148,25,43,09:152,254,5,153,154,59,106,68,09D57,254,6,42,56,151,113,61,62,09N140,254,7,42,53,149,98,64,150,98,66,0:X140,254,8,42,53,149,988 27,87,47,119,175,120,0=827,19,29,121,34,46,122,176,0X827,87,47,119,175,31,0}827,87,31,42,60,123,98,119,176,0836,118,125,98,119,175,55,39,08HELP MESSAGES8142,254,255,42,143,49,144,33,47,19,29,73,09142,254,255,42,143,49,17,113,102,255,31,0%7PLUM MESSAGES<727,87,47,114,31,0_727,28,26,29,115,48,59,49,50,07 27,25,29,114,34,42,116,17,117,49,17,50,0727,87,47,115,48,59,49,50,0727,28,24,29,115,48,59,49,50,0736,118,17,59,55,39,07HAIR MESSAGES36,95,255,55,39,076@98,15,103,105,29,97,104,98,178,0b6J42,102,111,101,46,47,111,157,98,174,06T98,15,103,105,29,97,27,106,173,06^ 98,16,107,47,108,27,109,102,111,29,110,06h42,102,111,101,46,47,111,106,108,06r27,20,29,112,34,07|27,89,05 BULLRUSH MESSAGES:527,28,25,29,91,92,94,31,0Z527,20,29,93,34,42,94,101,0z527,19,29,93,34,42,94,101,0536,95,13,55,39,05FLOWERS MESSAGES596,46,47,97,05"98,14,107,47,164,27,157,98,100,05, 42,102,111,101,171,066157,98,170,0.4x27,20,29,11,34,42,53,47,78,0B481,46,47,172,0U483,82,47,78,0n436,84,85,11,86,88,04CRAB MESSAGES4 27,87,47,12,31,04 27,26,29,12,34,04 27,28,19,29,88,42,171,0427,20,29,11,34,42,171,0536,89,12,90,55,374,75,39,03ROCK MESSAGES<3(27,28,20,29,73,76,10,31,0[3227,28,21,29,73,76,10,31,0{3< 27,22,29,77,34,76,10,31,03F 27,28,19,29,72,76,10,31,03P27,28,23,29,72,76,10,31,03Z36,139,124,10,55,39,03dSAND MESSAGES 4n27,19,29,78,79,11,42,65,67,0)227,22,29,64,34,42,65,66,0@236,69,255,55,39,0U2LIZARD MESSAGESr227,28,20,29,70,158,71,0227,28,21,29,73,158,159,49,72,02 27,28,22,29,70,158,71,0227,19,29,73,158,159,49,72,02  27,23,29,73,158,159,49,72,0 336,27,21,29,177,34,42,60,61,62,031j36,37,63,55,39,0O1tHAY AND STRAW MESSAGESn1~27,26,29,64,34,42,65,66,0~142,65,67,0127,24,29,64,34,42,65,66,0127,28,23,29,68,42,65,66,0127,28,19,29,68,42,65,66,0127,20,29,64,34,42,65,66,0 249,58,52,0'027,21,29,141,34,46,52,0M027,22,29,141,34,42,53,49,58,52,0c0$36,54,59,55,39,0v0.WOOL MESSAGES0827,25,29,255,34,42,60,61,62,00B27,28,24,29,62,46,00L27,28,23,29,177,34,42,60,61,62,00V27,28,22,29,62,42,60,61,62,01`44,0/ 36,45,40,39,0,/ APPLE MESSAGESX/ 27,26,29,141,34,46,47,51,48,59,49,50,0}/ 27,28,25,29,51,42,53,49,58,52,0/ 27,24,29,141,34,46,52,0/ 27,28,23,29,51,42,53,49,58,52,0/ 27,19,29,141,34,42,53,49,58,52,0 027,28,20,29,51,42,53,138,59,49,32,0..f 27,23,29,33,34,30,255,31,0E.p 36,37,255,38,39,0c.z DIFFERENT BARK MESSAGES. 27,19,29,33,34,42,56,49,33,140,183,0. 36,37,255,40,39,0. TADPOLES MESSAGES. 27,28,26,29,41,0. 27,28,25,29,41,42,35,47,43,0/ 42,35, 42,130,131,98,129,0%- 132,133,0A- 42,127,98,181,42,134,0S- 136,98,135,0b-* 132,137,0-4 BARK, LEAVES & TWIGS MESSAGES-> 27,28,22,29,32,30,255,31,0-H 27,21,29,33,34,30,255,31,0-R 27,28,20,29,32,30,255,31,0.\ 27,19,29,33,34,255,MESSAGES IN M$,v M$(A2)&, I1A2P, 13:"INITIALIZING M$(";::I;::")"], M$(I)""d, Ks, K0ī3270, M$(I)M$(I)(K), 3230, I, MESSAGE STRINGS (M$), MOVE MESSAGES, 126,0, 42,127,98,181,0, 42,128,98,129,0-P P7%KI; $ d-6. ;'-<'-<'? XI-.- $e$<86$$-6>$7 HAS A LIST OF"::"THINGS TO FIND."R::"THERE IS A RACE TO SEE WHO CAN COLLECT"::"ALL THE THINGS ON THEIR LIST IN THE":R"LEAST NUMBER OF MOVES."R FL0:900RR :R*"TO PLAY THIS GAME YOU NEED TO UNDERSTAND"S4"COMPASS DIRECT3,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0PQ:pQ(12):"******************"Q(12):"* SCAVENGER HUNT *"Q(12):"******************"Q::"SCAVENGER HUNT IS A GAME YOU PLAY WITH"$R:"OTHERS WHERE EVERYONEw.3w.173,48,192,136,208,5,206,1,3,240,9,202Vw/208,245,174,0,3,76,2,3,96,0,0pw N ERROR ROUTINEw*N(222)255Ħw4N$(OB),C1,U))(FS(S$(OB),C1U,C2);" ";5FXC1C1C2=F]C1CFbmF SUBROUTINE TO PRINT ALL SUBSTRINGS:|FD$;"PR#1"FOB1182FOB;". ";F5700FFFC"TEST ";T;": ";&E(T$(T))056108EI1(T$(T))RE((T$(T),I,1));",";XEaE"0"gEE PRINT ALL TEST STRINGSED$;"PR#1"EU1ET180E&5550E0TE:ED PRINT SUBSTRING SUBROUTINEEIC1U(S$(OB)) FNC2((S" PRINT ALL MESSAGES%D,D$;"PR#1"1D6T1A2;D@5490YDJ5180: MESSAGE FORMATTERaDT:hD^TnDhDr"MESSAGE NO. ";T;": ";D|I1(M$(T))DI(M$(T))ĺ((M$(T),I,U));",";DID"0"DD PRINT SPECIFIED TEST STRINGELILLL0:VVU:,CJJU:(S$(TK),J,I);?D$;"WRITE MEMPTRS"G?J10V?I105112`?$JJ1y?.J;"POKE";I;",";(I)?8I?BI175?L"19";"POKE";I;",";(I)?VII1?`"20";"POKE";I;",";(I)?jD$;"CLOSE"?tX(115)256(116): HIMEM+@~Y T$>"5. EXIT"'>:A$::I(A$)?>I1I5ĺ"":4700_>I4810,5770,5390,5630,4800i>4660>:: END PROGRAM HERE.> SAVE VARIABLES IN A BINARY FILE:>"FREE SPACE=";(0);"BYTES">D$;"OPEN MEMPTRS">D$;"DELETE MEMPTRS"?RAM:=>D$(4)=HD$;"PR#0"N=R:"SCAVENGER HUNT INITIALIZATION PROGRAM"g=\5:"CHOOSE TASK:":=f"1. CREATE VARIABLES & MEMPTRS FILES"=p"2. PRINT SUBSTRINGS ARRAY S$"=z"3. PRINT MESSAGE STRINGS ARRAY M$">"4. PRINT TEST STRINGS ARRA27,28,99,0#<27,148,182,29,164,01<42,134,0<A%(3,3): CONTAINS OUT OF AREA MESSAGE POINTERS FOR DIFFERENT COMBINATIONS OF AREAS< I03<J03:A%(I,J):J,I< 0,111,112,113,111,0,114,115<*112,111,0,114,113,115,114,0=4 MAIN PROG64,0.;165,98,97,98,254,15,103,157,98,174,0T;165,98,97,98,254,16,107,47,108,0;254,114,138,169,59,49,17,58,157,98,121,170,0;57,166,254,18,117,98,167,42,60,168,176,0; AREA MESSAGES;42,53,180,98,129,0;27,148,182,29,181,0 < ,64,150,98,66,08:b254,158,159,49,72,156,9,157,98,73,0a:l156,254,10,157,98,10,179,26,29,88,0:v254,11,103,148,160,47,23,29,73,0:98,254,12,161,148,160,106,155,29,164,0:42,102,254,13,162,98,93,163,106,164,0;165,98,97,98,254,14,107,47,1U*U*EЂ U`@@eY*ժժժՀ`Њ@@( Q*Ѐp((D׀਱ǁT  ԪժЀЪՊP"P T@ @P*U Q*T( `@ ԪժժժժժժժժՀ T*U@|OՀp TܪP(! UԐժժժ D|?xժժժՂ`Ъ(PժժՊ"~?U*U*+ЂP@C0UU*ժժժՀ"a(@Њ@@ Q*Ѐ|T"D Հ਱  ԪՊЈՊ T TQ@`@T*U A** bpԪժժժժժժժժՀ(QԀU@_Up? ܪ@ TՀժp} ԪժժՂ`ՀժժժՊ"~$U*U"E*P@ay@@UU ժժ q Њ@@ EЀ| P T(@ ԪՊ@  @A@`AT*U *(D*?ԪժժժժժժժժՀU ЀT*_ U@E ܪժD**UԄժՠժ`~@ЪժժՂ`ՂժժժՊ"fT*U*U"@ py@@8$U U*ժժ*d" FЊ@@(Ѐ}T TP @*ԪЈՊ @@`@T UP Ѐ @* (!0Ԫժժժժժ*" 0@ժժժՀ @*x  ߪժ*@ D€ժT`                !U*~@C>0`a|C|xpA*AU*|?x|pa|C@aa|p|?xCCapap|?|?|0xp>x U@8x@(||`~@0~ 8xU@?@a`p|?|pp U A(|?x?|pa|CaCaa?P*`?xT*p U *|CP*AT*x?x|pa|CCaax`?x?xCCapap|?|?|0xp@?x~? U`?8xp(xp(U A?8xp(U`Caap?|?|pp? U (x?x?|pa|CaCaaP*A@A?xT*`?(U (x~C?P*P @ P*q?x@|pa|CCaa p@pCCapap|?|?|0xp`@?x|(pA?8xp~? Upp? U`?8xp(UpCaap?|?|pp( Up?x?|pa|CaCaaT*@`?x P*A`~?@`x@a p|GP @*`?xC|pa|CCaCa? a`CCapap|?|?|0xpp?`?xx@(x`?8xp| U`pH Up?8xp*xCaap?x?|?|pp                ժժժתժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժվժժת߯ժ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uժתժժժժժժժժժժժժժժժժ߾ժկժժժժժժժժժժժժժժժժժժժժժժժժժժժתժժժժժժժժժժժժ߾ժկժժժժժժժѨŢŢՊŨŪŢժժժժժժժժժժժժ߾ժժժժտժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ߾ժժժժժժժժъŢŪѪшŨըժĪĪժժժժժժժվժߪվתկժժժժժժժժժժժժժժժժժժժժժ*Uj]:UjUnUj]*w:W+]ju:w.w:u*WkU:WnU;]*U*UժժժժժժժպժժկժժժժѢрĢŀĢŢժժժժժժժժժ*U*U*U*U*U*U*U*U*U*U*U*U:U*U*U*U*U*U*U*Uժժժתժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ׾ժժת߯ժժժժժժժժժժժժժժժժժժժժ*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*Uժתժժժժժժժժժժժժժժժժ߾ժկժժժժժժժժժժժժժժժժժժժժժժժժժժժתժժժժժժժժժժժժ߾ժկժժժժժժժŢŢЊŀĊŢժժժժժժժժժժժժ߾ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ߾ժժժժժժժժժժժŢŪѪшŨժĪժժժժժժժվժߪתկժժժժժժժժժժժժժժժժժժժժժ*Uj};UjUnUj]*w:W+]ju:w.w:u*WkU:WnU;]*U*UժժժժժժժժժժկժժժժѢѪĢŨĢŢժժժժժժժժժ*UjW>U}o_]~w:{_j?w~w?u?_U:Un+]*U*Uժժժתժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ׾ժժת߯կժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ߾ժկժժժժժժժժՊժժժժժՊժժժժժժժժժժժժתժժժժժժժժժժժժ߾ժկժժժժժժժըŢŢъŨĊŢժժժժժժժժժժժժ߾ժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժ߾ժժժժժժժժժժժшŢŪѪшŨŨժĪĢժժժժժժծվժߪתկժժժժժժժժժժժժժժժժժժժժժ*UjU:Ujuo_~}{w?k_ju:w~w:uj_U:WnU;]*U*Uժ߯ժժѢѪĢŨĢŢժժժժժժժժժ*UjU:Uj]nUk].w:W;]ju:w.u?u*WkU:UnU+]*U*Uժժժתժժժժժժժժժժժժ߾ժկժժժժժժժժժժժժժժժժժժբժժժժժժժժժժ߾ժժת߯կժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժժկժժժժժժժժՊժժժժժՊժժժժժժժժժժժժתժժժժժժժժժժժժ߾ժկժժժժժժժըŢŢъŨĊŢժժժժժժժ@ժժժժժ߾ժժժժժժժժժժՊժժժժժժժժժժժժժժժHժժժժժ߾ժժժժժժժժժժժшŢŪѪшŨŨĪĢժժժ                0:9003`16304,0:16300,0:16297,0:16301,0A`21:958p`1:"THIS IS A PLAN OF THE AREA WHERE YOU"`"WILL BE HUNTING FOR THE THINGS ON"`"YOUR LIST."`:I018:T%(I):` 1,6,6,11,14,22,27,27,35,40,45,50,55,58,63,68,73,76,81+$_BJ04:H:OBO%(I,J):3400::K_LH(H20)((H20)40)40:I2V14R_VI^_`::L$m_jCS16310_t24:4:"PLEASE WAIT...";:22_~D$;"BLOAD PIC.SH3T,A$2000"_CS1_D$;"BLOAD MAN2":232,1:233,8_1:0:3_23:1:958`FL3)1^3270^^:,^NP16170[^2:"HERE IS YOUR SCAVENGER HUNT LIST...."c^L$q^7:J04^12:OBO%(1,J):3400:^J^6240^2:"HERE ARE YOUR SCAVENGER HUNT LISTS...."^$L$^.V5:H1:I1NP_8V:H::P$(I)::] 4]I1:J2:3270:I1:J3:3270:I2:J3:3270C] NP46080\]4LO1:3100:O%(4,0)Kx]HK((1)4)5:O%(4,1)K]\LO9:3100:O%(4,2)K]pLO14:3100:O%(4,3)K]O%(4,0)36040]O%(4,4)4:6050]O%(4,4)((1)4)]^I3:J((1)#\(O%(2,2)10)(O%(2,4)10)5820K\KO%(2,2):O%(2,2)O%(3,2):O%(3,2)Kk\LO14:HI18:3000:O%(3,4)K\(O%(3,3)16)(O%(3,4)16)5900\O%(1,3)165880\KO%(3,3):O%(3,3)O%(2,3):O%(2,3)K:5900\]KO%(3,3):O%(3,3)O%(1,3):O%(1,3)KJ)Z:J,I[IU18:T%(I)Z:6[&I13:LO1:J14J[0TL5:J2TL4t[:HILOTL1:3000:O%(I,J1)K:LOLOTL}[DJ,I[XLO5:3100:O%(1,4)K[b(O%(1,2)6)(O%(1,4)6)5770[vKO%(1,1):O%(1,1)O%(2,1):O%(2,1)K[LO9:HI13:3000:O%(2,4)K ZIZF:JZ3:P%(I,J)0:J,I/ZNX25630=Z::(10)LZNP15610xZ"WAIT A MINUTE WHILE YOUR NEW LIST IS"Z:"WORKED OUT.......":5630Z"WAIT A MINUTE WHILE YOUR NEW LISTS ARE"Z:"WORKED OUT......."Z [IUF:JZF:O%(I,3YP10:"PLEASE TELL ME THE NAME OF EACH PLAYER."DYZV13:K1NPYdV:4:"WHO IS PLAYER ";K;"? ";:UP0:UB0:FL0:LN19:400:P$(K)KI$:YnVV2:KYx22:"WAIT A MINUTE WHILE YOUR SCAVENGER HUNT"Y:"LISTS ARE WORKED OUT......."YY|T PLAY WITH THAT MANY PEOPLE!"GX13:"TRY AGAIN.":I11000:I:5020nX11:"PLEASE TELL ME YOUR NAME.":X(8:"-->";:UP0:UB0:FL0:LN19:400:P$(NP)KI$:X222:"WAIT A MINUTE WHILE YOUR SCAVENGER HUNT"X<:"LIST IS WORKED OUT......."YF IS A GAME FOR UP TO"-W:"4 PLAYERS."::ZW"HOW MANY PEOPLE WILL BE PLAYING? -->";yWUP0:UB0:FL0:LN1:400:WNP(KI$)WNP15150WNP1NP45200W3510:11WNP45130W"YOU MUST TYPE 1, 2, 3 OR 4.":5140X "YOU CAN'OUGH TO IT, 5 POINTS ARE":)V$"ADDED."1V.:[V8"THE WINNER IS THE PLAYER WHO HAS":VB"COLLECTED ALL FIVE THINGS ON HIS OR HER"::"LIST AND HAS THE ";:::"LOWEST";::" SCORE."VLFL0:900VVV`::VV:3W"SCAVENGER HUNTT PLACE TO COLLECT"::U"SOMETHING, YOU MUST MOVE."::HUFL0:900NUVU:U"YOUR SCORE IS WORKED OUT LIKE THIS:"U:U"EACH TIME YOU MOVE, 5 POINTS ARE ADDED.":U"IF YOU TRY TO COLLECT SOMETHING WHEN YOU"V"AREN'T CLOSE ENW) SOUTH-WEST":TzFL0:900TT:::"EACH TIME IT IS YOUR TURN, YOU HAVE TO":T"DECIDE WHETHER YOU WILL MOVE, OR COLLECT"T"SOMETHING."T:T"TO COLLECT SOMETHING YOU MUST BE IN THE"T:"RIGHT PLACE."::U"TO GET TO THE RIGHЀU"D"NX21F-(KI$"S")(KI$"D")İ3510:116109F-:?F-EF-PF-NX0:jF-(7):(5):"GOODBYE!"F-:(5):"HOPE YOU ENJOYED PLAYING"F-:(15):"SCAVENGER HUNT."F-I18::IF.F.I770792:J:I,J:F.G.173,48,192,136,208,5,KI$"Y"11600"E<-KI$"N"ī117203EF-3510:113609EP-?EZ-iEd-(6):(5):"DO YOU WANT TO PLAY WITH"En-:(10):"(S) SAME PLAYERS?"Ex-:(10):"(D) DIFFERENT PLAYERS?"E-::(20):"-->";E-UP0:UB0:FL0:LN1:400:E-KI$"S"NX1 F-KI$ LIKE TO GO?"4o$"CHOOSE A DISTANCE FROM 1 TO 40."Xo$17:24:"HOW MANY STEPS? -->";uo$UB0:FL0:UP0:NL2:400o$DT(KI$)o$DT1DT40İ3510:9410o%4110:3710o%3910:XXNYYN9490o%o&%1:21:"WOULD YOU LIKE TO MOVE AGAIN?"pICH WAY DO YOU WANT TO MOVE?"Ln$"(N)NORTH (S)SOUTH (E)EAST (W)WEST "rn$"(NE)NORTH-EAST (NW)NORTH-WEST"n$"(SE)SOUTH-EAST (SW)SOUTH-WEST -->";n$FL0:UB0:UP0:LN2:400n$4000n$DX7İ3510:9330 o$:22:"HOW MANY STEPS WOULD YOU30 m #2500+m#KK1:K0FL1:900:9020`m(#24:1:"PRESS THE SPACE BAR FOR THE NEXT ONE.";nm2#FL1:920xm<#:YN~mF#m,$m6$:CS2m@$D$;"BLOAD PIC.HELP2,A$2000"mT$1:0:3m^$X220:Y90:2X,Y:DX8mh$XSX:YSYmr$21:1:958n|$"WH"(3)SEE YOUR SCORE (4)PLAY THE GAME-->";El~"UP0:UB0:LN1:FL1:400Rl"I(KI$)kl"I1I4İ3510:8780zl"SW0İ830l"I4ıl"I8890,9260,9750:8770l"l"6500l"FL1:900:l"YN04:OBO%(CP,YN)l"OB18ī9020m#TOB92:SW0İ8:FL1:920k k4! k>!8750&k!2k!J1NPIk!2P%(J,0),P%(J,1)Rk!J:Xk."ak8"SP1gkB"xkL"21:1:958kV""WHAT SORT OF HELP DO YOU WANT?"k`""(1)GET HELP WITH WHERE TO FIND THINGS"kj""(2)GET HELP WITH DIRECTION AND DISTANCE"(lt"P$(CP);","9j"YOU HAVE COLLECTED EVERYTHING! YOU MADE"jP%(CP,2);" MOVE";:AAP%(CP,2):200:", ";P%(CP,3);" MISTAKE";:AAP%(CP,3):200:". YOUR SCORE = ";(P%(CP,2)P%(CP,3))5jNP1FL1:900: k 24:3:"PRESS THE SPACE BAR FOR NEXT PLAYER.";T:3510:2500'i^P%(CP,3)P%(CP,3)15ihFL1:900@irSP1:Fi|\i3600:3600:3600fi2500iO%(CP,DX)O%(CP,DX)18iI0iJ04:O%(CP,J)18II1iJiI58190iFL1:900 jO%(CP,0)O%(CP,0)18:21:1:958:"WELL DONE, ";:FL1:900:h9hOBO%(CP,DX):XP%(CP,0):YP%(CP,1)Ih2730:2790]hIJTOB:7990khTA%(I,J)uh3500h1:20:958h"YOU CAN'T COLLECT ";::3400::hV22:2520h""MAKE ANOTHER DECISION."h,8030h61100h@TF08060i>"; gxUP0:UB0:FL1:LN1:400/g}SW0İ830VgDX(KI$)1:DX0DX4İ3510:7770ngO%(CP,DX)187880g21:1:958:"YOU CHOSE ";::OBO%(CP,DX)18:3400::g"BUT YOU ALREADY HAVE THAT IN YOUR BAG!"g"MAKE ANOTHER DECISION." hSP11:23:"YOU MUST GO BACK AND TRY AGAIN.":fSW0İ830TfDXDX4:DX7DXDX8dfXNXS:YNYSnf3710xf3910fXXNYYN7430fP%(CP,3)P%(CP,3)1f$FL1:900f8SP1:fFfZSP0fd6500gn"WHICH ONE ARE YOU COLLECTING? --SP%(CP,1):XXS:YYS#e*SW0İ830-e441105e>T0>eHSTUHeR3710Re\3910^efSTSTUsepSTFİ1100:STUezTZ7350eXXNYYN7260e1100:TZ7350eP%(CP,2)P%(CP,2)1eP%(CP,0)X:P%(CP,1)Yeee3510e2500+fNCE FROM 1 TO 40.":d"IF YOU CHANGE YOUR MIND, TYPE 0."pd23:1::"(H)HELP";::958:23:"HOW FAR? -->";dFL1:LN2:UB0:UP0:400dKI$"H"7170d8500:7090dKI$"0"SP1:d DT(KI$)dDT1DT40İ3510:7130e XSP%(CP,0):Y-EAST (NW)NORTH-WEST ";:::"(H)HELP";Wc:"(SE)SOUTH-EAST (SW)SOUTH-WEST -->";tcFL1:LN2:UP0:UB0:400cKI$"H"İ8500:7010c4010cDX7İ3510:7010c21:1:958c"HOW FAR DO YOU WANT TO GO (IN STEPS)?"d"CHOOSE A DISTAbOB186570 bKK1:6580/bOBOB18:;b3400:RbI0I2I4ī6610bbDX22:6620rbDX1:I4ĺ{bI:bbXbb1:21:958:"IN WHICH DIRECTION DO YOU WANT TO MOVE?"bl"(N)NORTH (S)SOUTH (E)EAST (W)WEST":)cv"(NE)NORTHa 24:4:"PRESS THE SPACE BAR TO BEGIN.";9aFL0:920EaI1NPza(P%(I,0)160(15I):P%(I,1)90:2P%(I,0),P%(I,1)a2Ia<21:958aFadanDX22:K0ax21:1:958:"YOUR LIST INCLUDES: ";aI04:OBO%(CP,I)bDX:"(";I1;")";206,1,3,240,9,2024G/208,245,174,0,3,76,2,3,96,0,0:G NLG*N(222)255ĦRG4Nժժժժժժժ՗ժժժժժժժժԪՈĨժժՊĪժժժժժժժժժժժժĪժժժժժժժժժժժժժժժժժժժժժժժ  770: N.NBNGQUı+NLI50:J100NV768,129:769,I:770:768,103:769,I:770:768,86:769,I:770:768,64:769,J:770N`N~DX3730,3740,3750,3760,3770,3780,3790NM0:N1:NM1:N1:NM1:N0:NM1:N1:NM0:N1: OMMR C1U(S$(OB))-M\ C2((S$(OB),C1,U))IMp (S$(OB),C1U,C2);" ";VMs C1C1C2^Mu C1dMz jM uM QUıM SO801205M 768,SO:769,3:770:M SO801205M 768,SO:769,3:770:M MMQUıN$SO15:768,30:769,10: L J3:L +L K((U)(HILOU))LO=L T%(K)U3020KL T%(K)U:QL ^L0 KLO18tL: T%(K)ZLK:K18{LD KLN KL:T%(K)U:L L LZFL MO%(I,L):O%(I,L)O%(J,L):O%(J,L)ML LL L L L((1)2):L1İ3200L MH JIKF JLTİ2690:2590KP 6KZ SI(M$(T))İ2690>Kd SIFKn :LK dK LLLĺ" ";:LLU:zK VVU:V:U:L0:K K XA4YA5I0:K XA6YA7I1:K XA8YA9I2:K I3:K K OB5J0:K OB9J1:L OB14J2:LJ J "J V21:V:1:9580J L0:LL40BJ C1255:C2254UJ SIU(M$(T))mJ TK((M$(T),SI,U))~J TKC1TKOBJ TKC2Ğ:2660J JU:LT(S$(TK))J I((S$(TK),J,U))J( LILLL0:VVU:V:UJ2 JJU:(S$(TK),J,I);K< LLI:JI1960ITFUTF0:1920#I)I 8ITTLTUU@I LTTI*K((T$(T),U))\I4I2dI>JXmIHTFZIRK1920,1960,2010I\TFUī2220IfTF0IpJYIzK((T$(T),I,U))IIIUITFZIK1920,1960,2010ITFUTTUITJTUTLTUT%(TU)HT1717806HX268X254ī1780MHY119T82:TF1:dHY131T85:TF1:nH2060HT((T$(T),U))HTF0TTUHHHJ((T$(T),I,U))TFUHIIU:HHJ((T$(T),I,U))TFUHIIUHHGX90Y83T2:/GX114Y86Y91T3:KGX124Y90Y111T4:hGX105Y110Y138T4:~GX80Y137T4:GX29X69Y149T5:GYX120T5:GY136YX217T5GGGOBTGTF0GTLT%(TU):TUT%(T)HTY331330FX68Y40T8:3FX83Y43T8:CF(X90T8:QF2Y70T2WF<fFPY911390wFZX197T6:FdX148X188T6:FnX1531430FxY86Y91T3:FY80Y83T3:FY40Y81T8:FY31Y41YX114T8F1700$EjXA0XA1YA2YA3TU:8E~XA4YA51280LEXA6YA71360`EXA8YA91460uEY110Y911220EX197T6:EX146X189T6:EX120T4:EXY257ıEY141T4:EYX243T4EEX68Y29T7: F D*CTCTUD4CT10ı?D>CTZ:U:Z:2P%(CP,Z),P%(CP,U)JDHSWSWPDRVDD24:4:"PRESS THE SPACE BAR TO CONTINUE.";DD:(32);::(8);:CH%0D16368,0DFL1İ800DCH%(16384)DCH%160950DDLEVTU):CCH%13ī550 CKI$""FCIUāJUIU:KI$KI$(KI%(J)):RC" ";:pC&UPUCH%16KI$(CH%):C0CH%8ī600C:IU440CDIIU::" ";:(8)(8);CN440CXCH%32ī440CbILNī440ClKI%(I)CH%:IIU:(CH%);Cv440D 500B10000B11000&BNX0454B50,128:DBAA1ĺ"S"JBPBXBIU^B|BCH%0::(SP%);::(8);B16368,0BFLUİ800BCH%(16384):CH%128ī470BCH%CH%128:CH%96CH%123CH%CH%32CUBUCH%SP%KI$(SP%.AE$(0)"N":E$(1)"NE":E$(2)"E":E$(3)"SE"\AE$(4)"S":E$(5)"SW":E$(6)"W":E$(7)"NW"A!L$"----------------------------------------"A"D$(13)(4)A#NX2A&CS0A+A-A216302,0A<Q(8191)AxNX2140A4500:5000B5>@ 105,182@ 106,126'@ 107,174@108,127A@109,212N@110,132[@111,122h@112,137u@175,182@176,126@(4);"BLOAD VARIABLES"@U1:Z0:F4@20000AA011:A1268:A225:A3154:A4120:A581:A6119:A7101:A8120:A980             }}@    @ A21  b  1#C*U*U*U*U*U*U*U*p~   @0   @    @ A "  p`Ca      @`  C  @ @@ @ " "   @ B @A(    p@ `C0 c@ @@ @  "p~ P"p  @ @8Bx @@(                KEYBOARD'FL1İ800: FLASH THE MANOCH%(16384): LOOK FOR KEY PRESS~CH%160950: 160 (=32+128) IS SPACE BAR---------------------------------------------------------------------L POSITION CHECKER SUBROUTINEVTU1700-----------------------------H SUBROUTINE LOOK FOR SPACE BAR PRESSx24:4:"PRESS THE SPACE BAR TO CONTINUE."; WAIT FOR SPACE BAR PRESS WITHOUT STANDARD MESSAGE:(32);::(8);:CH%0: FLASH CURSOR & REPOSITION16368,0: RESET SUB ROUTINE FLASH THE MAN:*CTCTU: CT IS A COUNTERd4CT10ı: ONLY FLASH EVERY 10TH TIME>CTZ:U:Z:2P%(CP,Z),P%(CP,U)HSWSW: SW INDICATES IF MAN IS ON SCREEN (SW=1) OR OFF (SW=-1)R\----------------------------------------2ī440: IGNORE NONPRINTING CHAR5]IUCH%32ī440[bILNī440: IGNORE EXTRA CHAR'SlKI%(I)CH%:IIU:(CH%);: ACCEPT VALID CHARACTERv440: GET NEXT CHAR ---------------------------------------------------------------------  )):" ";:H&UPUCH%16KI$(CH%):: ACCEPT CTRL-P IF WANTEDj0CH%8ī600: 8 IS BACKSPACE:IU440: NO CHARS ACCEPTED - START AGAINDIIU::" ";:(8)(8);: OBLITERATE CHAR & MOVE CURSOR BACKN440: GET NEXT CHAR XCH%3H%CH%128:CH%96CH%123CH%CH%32: TREAT LOWER CASEpUBUCH%SP%KI$(SP%):: ACCEPT SPACE BAR PRESSCH%13ī550: 13 IS CARRIAGE RETURNKI$"": CARRIAGE RETURN FOUND - CONSTRUCT RETURN STRING IN KI$IUāJUIU:KI$KI$(KI%(JFOR RETURN OF STRINGIU6 GET A CHARACTER rCH%0::(SP%);::(8);: FLASH CURSOR AND REPOSITION16368,0: CLEAR KEYBOARDFLUİ800: FLASH THE MANCH%(16384):CH%128ī470: CHECK FOR KEY PRESS. IF NONE TRY AGAIN.8C----------------[---------------------------------------------------------------------{ SUBROUTINE GET A STRING UP=1 TO USE CTRL-P UB=1 TO USE SPACE BAR FL=1 TO FLASH MAN LN IS MAX STRING LENGTH KI% STORES STRING KI$ IS IF REPLAY WITH SAME PLAYERS THEN SKIP INITIALIZATIONb4500:5000: RULES AND INITIALIZE GAME}5500: CHOOSE OBJECTS10000: PLAY THE GAME11000: PRINT SCORESNX045----------------------------------------------------- - 216302,0@ <Q(8191): QUIET GAME FLAG: 1 = NO MUSIC Z--------------------------------------------------------------------- _--------------------------------------------------------------------- d MAIN PROGRAM: n6xNX2140:(2)"E":E$(3)"SE"@ E$(4)"S":E$(5)"SW":E$(6)"W":E$(7)"NW"r !L$"----------------------------------------" "D$(13)(4): DOS COMMAND #NX2: NEXT GAME FLAG &CS0: CURRENTLY LOADED GRAPHICS SCREEN (0=NONE; 1=GAME SCREEN; 2=HELP) +110,132 111,122$ 112,1371 175,182> 176,126Z (4);"BLOAD VARIABLES"  CONSTANTS USED TO SPEED EXECUTION U1:Z0:F4 20000 A011:A1268:A225:A3154:A4120:A581:A6119:A7101:A8120:A980 E$(0)"N":E$(1)"NE":E$ -p ------------------------------------------------------------------------v POINTERS REQUIRED TO ACCESS VARIABLES INITIALIZED BY "INIT DAT": 105,182 106,126 107,17 108,127 109,212 ETER ALLITT -  RON LEVITAN -  KATHERINE POUWELS -"  DAVID SCOTT oO------------------------------------------------------------------------ PROGRAM "S. HUNT" - SCAVENGER HUNT GAME -FILE REQUIRED: "VARIABLES" (BINARY) 22 NOV. 1983 -8  PROGRAMMERS: P                !!! ! ! ! ! !!!!!!!!!""" " " " " """""""""               ECT-NEXT9&& RETURNS K, NEXT FREE OBJECT STARTING AT LOF&0 KLO18p&: T%(K)ZLK:K18: FALL THROUGH LOOPw&D K&N KL:T%(K)U:: MARK AS CHOSEN&X ---------------------------------------------------------------------& SUBROUTINE:SWAP' T6% RETURNS K, A RANDOM OBJECT FROM RANGE LO TO HIQ% K((U)(HILOU))LO% T%(K)U3020: IF ALREADY CHOSEN TRY AGAIN% T%(K)U:: MARK AS CHOSEN% ---------------------------------------------------------------------& SUBROUTINE:SEL--------------------------------------------------------------c$ FIND AREA OF OBJECT SUBROUTINEs$ OB5J0:$ OB9J1:$ OB14J2:$ J3:$ ---------------------------------------------------------------------% SUBROUTINE:SELECGE FORMATTER:%# LLLĺ" ";:LLU:;# VVU:V:U:L0:# ---------------------------------------------------------------------# FIND PLAYER'S AREA SUBROUTINE# XA4YA5I0:# XA6YA7I1:# XA8YA9I2:# I3:>$ -------0:VVU:V:U("2 JJU:(S$(TK),J,I);8"< LLI:JJIN"F JLTİ2690:2590T"P y"Z SI(M$(T))İ2690: PRINT SPACE"d SI"n :"x --------------------------------------------------------------------- # PRINT A SPACE SUBROUTINE USED BY MESSAUBROUTINE TO FORMAT MESSAGES STORED IN M$:?! V21:V:1:958[! L0:LL40: LINE LENGTHm! C1255:C2254! SIU(M$(T))! TK((M$(T),SI,U))! TKC1TKOB! TKC2Ğ:2660: NEXT SI! JU:LT(S$(TK))! I((S$(TK),J,U))"( LILLLCK Y COORDINATE3 zK((T$(T),I,U)): Y TEST TYPEU IIU: POINT TO Y TEST VALUE^ TFZt K1920,1960,2010 TFUTTU: FALL THROUGH LOOP T TL   ---------------------------------------------------------------------*! SKERTTLTUUE LT: HOLDS LAST VALUE OF T WHEN LOOP FINISHESg*K((T$(T),U)): X TEST TYPE4I2: POINT TO FIRST TEST VALUE>JX: CHECK X COORDINTEHTFZRK1920,1960,2010\TFUī2220: SKIP TO NEXT TESTfTF0 pJY:CHE---------------------------------------------------------------d SUBROUTINE TEST3: > AND < TESTn1960TFUTF0:1920: TEST1---------------------------------------------------------------------  MAIN SUBROUTINE POSITION CHECENCODED IN T$(T):v6 SUBROUTINE TEST1: < TESTRJ((T$(T),I,U))TFU^IIU:--------------------------------------------------------------------- SUBROUTINE TEST2: > TESTJ((T$(T),I,U))TFUIIU?------2060: POSITION CHECKQT((T$(T),U)): POINT TO MESSAGE FOR FAILED TESTTF0TTU: DEFAULT MESSAGE (FOR VALID COLLECT)---------------------------------------------------------------------l POSITION CHECKER - EXECUTES TEST LLECT OBT: SAVE OBJECT NO.<TF0: TEST FAILED FLAGTLT%(TU):TUT%(T): UPPER & LOWER POINTERS FOR RANGE OF TESTSTUTLTUT%(TU)T171780: EXTRA PLUM TESTS:X268X254ī1780Y119T82:TF1:Y131T85:TF1:83T2:#X114Y86Y91T3:@X105Y110Y138T4:VX80Y137T4:qX29X69Y149T5:YX120T5:Y136YX217T5--------------------------------------------------------------------- CHECKS FOR CO<F AREA 2 TESTS:)PY911390EUX124X149Y90T4:VZX197T6:mdX148X188T6:}nX1531430xY86Y91T3:Y80Y83T3:Y40Y81T8:Y32Y41YX114T8 AREA 3 TESTS:X103YX146X188T6:,X124X147T4:=X120T4:LXY257ıcY116Y110T4:zY115YX243T4 AREA 1 TESTS:X68Y29T7: Y331330X68Y40T8:X83Y43T8:(X90T8:2Y70T2: GO TO COLLECT CHECK,` BOUNDARY TESTS:KjXA0XA1YA2YA3TU:[t FIND AREA~~XA4YA51280: AREA 1 TESTSXA6YA71360: AREA 2 TESTSXA8YA91460: AREA 3 TESTS AREA 4 TESTS:Y110Y911220X197T6:------------------------6 INITIALIZE GAME36<6:3f6"SCAVENGER HUNT IS A GAME FOR UP TO"~6:"4 PLAYERS."::6"HOW MANY PEOPLE WILL BE PLAYING? -->";6UP0:UB0:FL0:LN1:400:6NP(KI$)6NP151506NP1NP45200 7ED." 5.:658"THE WINNER IS THE PLAYER WHO HAS":5B"COLLECTED ALL FIVE THINGS ON HIS OR HER"::"LIST AND HAS THE ";:::"LOWEST";::" SCORE."5LFL0:900: WAIT FOR SPACE BAR5V5`::6j----------------------------------------------YOUR TURN, YOU HAVE TO":I3"DECIDE WHETHER YOU WILL MOVE, OR COLLECT"[3"SOMETHING."c3:3"TO COLLECT SOMETHING YOU MUST BE IN THE"3:"RIGHT PLACE."::3"TO GET TO THE RIGHT PLACE TO COLLECT":3"SOMETHING, YOU MUST MOVE."::"ARE:"::72R(3):"(N) NORTH (NE) NORTH-EAST":d2\(3):"(S) SOUTH (NW) NORTH-WEST":2f(3):"(E) EAST (SE) SOUTH-EAST":2p(3):"(W) WEST (SW) SOUTH-WEST":2zFL0:900: WAIT FOR SPACE BAR 3:::"EACH TIME IT IS GS ON THEIR LIST IN THE":81"LEAST NUMBER OF MOVES."[1 FL0:900: WAIT FOR SPACE BARa1i1 :1*"TO PLAY THIS GAME YOU NEED TO UNDERSTAND"14"COMPASS DIRECTIONS AND HOW TO USE THEM.":1>"THE COMPASS DIRECTIONS YOU WILL BE USING" 2H********")0(12):"* SCAVENGER HUNT *"I0(12):"******************"{0::"SCAVENGER HUNT IS A GAME YOU PLAY WITH"0:"OTHERS WHERE EVERYONE HAS A LIST OF"::"THINGS TO FIND."1::"THERE IS A RACE TO SEE WHO CAN COLLECT"::"ALL THE THIN RULES!/STORE DATA FOR MUSIC/770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202/782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0/: 0(12):"**********XSAX% .,DX5DX7XNXSAX%9.6DX1DX7YNYSAX%R.@DX3DX5YNYSAX%\.J4220r.TXNXSDT(2DX2).^YNYSDT(DX21).hDX0XNXS.rDX6YNYS.|.---------------------------------------------------------------------/ &-KI$E$(I)KI$E$(I)" "DXI:I8--I3-~----------------------------------------------------------------------- CALCULATE END OF MOVE COORDINATES SUBROUTINE:-AX%DT(2):AX%0AX%1-DX0DX2DX4DX6ī4180."DX1DX3XN-----------------------------------@,< TAKE A STEP SUBROUTINEK,F2X,YU,PXXM_,ZYYNj,d2X,Yp,n,x---------------------------------------------------------------------, CONVERT DIRECTION INPUT TO INTEGER SUBROUTINE:-DX8:I07769,J:770+`7+tSUBROUTINE TO SET MOVE DIRECTION:b+~DX3730,3740,3750,3760,3770,3780,3790q+M0:N1:+M1:N1:+M1:N0:+M1:N1:+M0:N1:+M1:N1:+M1:N0:+M1:N1:#,----------------------------------SIC&*$SO15:768,30:769,10:770:,*.w*8---------------------------------------------------------------------*B NEXT PLAYER MUSIC SUBROUTINE*GQUı*LI50:J100 +V768,129:769,I:770:768,103:769,I:770:768,86:769,I:770:768,64:C SUBROUTINE:#) QUı: NO MUSIC4) SO801205N) 768,SO:769,3:770:_) SO801205y) 768,SO:769,3:770:) ) ---------------------------------------------------------------------) COLLECT MUSIC SUBROUTINE*QUı: NO MU----------------------------@(H SUBROUTINE PRINT OBJECT NAME:T(R C1U(S$(OB))m(\ C2((S$(OB),C1,U))(p (S$(OB),C1U,C2);" ";(s C1C1C2(u C1(z ( --------------------------------------------------------------------- ) ERROR MUSI SWAPS LISTS FOR PLAYERS I & J*' LZFR' MO%(I,L):O%(I,L)O%(J,L):O%(J,L)MY' L_' ' SWAPS LISTS FOR PLAYERS I & J WITH PROBABILITY 0.5' SUBROUTINE:R-SWAP' L((1)2):L1İ3200' ( -----------------------------------------F21:958LF1:"THIS IS A ";:::"PLAN VIEW";::" OF THE AREA WHERE"yF"YOU WILL BE HUNTING FOR THE THINGS ON"F"YOUR LIST."F INITIALIZE COLLECT TEST POINTERS:F:I018:T%(I):G 1,6,6,11,14,22,27,27,35,40,45,50,55,58,63,68,73.";:225E~D$;"BLOAD PIC.SH3T,A$2000": GAME SCREENXECS1: SET CURRENT SCREEN FLAGED$;"BLOAD MAN2":232,1:233,8: SHAPE TABLE FOR MANE1:0:3E23:1:958EFL0:900: SPACE BAR INPUT E16304,0:16300,0:16297,0:16301,0 .V5:H1:I1NP(D8V:H::P$(I)::KDBJ04:H:OBO%(I,J):3400::rDLH(H20)((H20)40)40:I2V14yDVID`::L$: DOTTED LINEDjCS16310: SKIP LOADING OF SCREEN IF IT HAS BEEN LOADED IN A PREVIOUS GAMEEt24:4:"PLEASE WAIT..OW CHOSEN - DISPLAY OBJECT LISTS(C:7CNP16170fC2:"HERE IS YOUR SCAVENGER HUNT LIST...."|CL$: DOTTED LINEC7:J04C12:OBO%(1,J):3400:CJC6240C2:"HERE ARE YOUR SCAVENGER HUNT LISTS...."C$L$: DOTTED LINED AREA 4!BpLO14:3100:O%(4,3)KgBz CHOOSE 5TH OBJECT FROM AREA 1 - ENSURE NOT IN SAME GROUP AS 1ST{BO%(4,0)36040BO%(4,4)4:6050BO%(4,4)((1)4)B RANDOMIZE 4TH PLAYER WITH 1ST 3BI3:J((1)3)1B3270 C ALL OBJECTS NREA 18A4LO1:3100:O%(4,0)K: NEXT FREE OBJECT CHOSENfA> CHOOSE 2ND OBJECT AT RANDOM FROM AREA 2AHK((1)4)5:O%(4,1)KAR CHOOSE 3RD OBJECT - NEXT FREE OBJECT IN AREA 3A\LO9:3100:O%(4,2)KBf CHOOSE 4TH OBJECT - NEXT FREE OBJECT FROM3,3):O%(3,3)O%(2,3):O%(2,3)K:5900C@ OK TO SWAP WITH PLAYER 1k@KO%(3,3):O%(3,3)O%(1,3):O%(1,3)K@  RANDOMIZE PLAYERS 1,2 AND 3@I1:J2:3270:I1:J3:3270:I2:J3:3270@ NP46080A* CHOOSE OBJECTS FOR PLAYER 4 - 1ST OBJECT FROM A:O%(2,2)O%(3,2):O%(3,2)K=? 3'S 5TH OBJECT FROM AREA 4 w?LO14:HI18:3000:O%(3,4)K: OBJECT CHOSEN AT RANDOM?(O%(3,3)16)(O%(3,4)16)5900? SWAP 3'S OBJECTS --IN SAME GROUP?O%(1,3)165880? OK TO SWAP WITH PLAYER 2$@KO%( SWAP 1'S OBJECTS -- IN SAME GROUPJ>vKO%(1,1):O%(1,1)O%(2,1):O%(2,1)Kn> 2'S 5TH OBJECT FROM AREA 3 >LO9:HI13:3000:O%(2,4)K: OBJECT CHOSEN AT RANDOM>(O%(2,2)10)(O%(2,4)10)5820> SWAP 2'S OBJECTS --IN SAME GROUP?KO%(2,2)0TL5:J2TL4: TL IS NO. OF OBJECTS CURRENT AREAy=:HILOTL1:3000:O%(I,J1)K:LOLOTL: OBJECT CHOSEN AT RANDOM=DJ,I=N 1'S 5TH OBJECT FROM AREA 2 =XLO5:3100:O%(1,4)K: NEXT FREE OBJECT CHOSEN=b(O%(1,2)6)(O%(1,4)6)5770">l-<"WAIT A MINUTE WHILE YOUR NEW LISTS ARE"H<:"WORKED OUT......."f< INITIALIZE OBJECT LISTS<IUF:JZF:O%(I,J)Z:J,I<IU18:T%(I)Z:: INITIALIZE AVAILABILITY ARRAY< CHOOSE 4 OBJECTS FOR 1ST 3 PLAYERS<&I13:LO1:J145=T RANDOM;U;IZF:JZ3:P%(I,J)0:J,I: INITIALIZE POSITION AND SCORE ARRAY;NX25630: IF NEW PLAYERS, SKIP MESSAGES FOR SAME PLAYERS;::(10);NP15610;"WAIT A MINUTE WHILE YOUR NEW LIST IS";:"WORKED OUT.......":56309gK15230.9hNM1K1:NM$P$(NM)52289iV2:4:"SAME NAME AS PLAYER ";NM;", ":4)"PLEASE ENTER MORE INFORMATION":V:22(P$(K)):UPZ:UBZ:FLZ:LN18(P$(K)):400:KI$""52259jNM$P$(K)" "KI$::958:NMZ9lNM9mP$(K)NM$:nVVWAIT A MINUTE WHILE YOUR SCAVENGER HUNT"K8<:"LIST IS WORKED OUT......."Q8F8P10:"PLEASE TELL ME THE NAME OF EACH PLAYER."8ZV13:K1NP8dV:4:958:"WHO IS PLAYER ";K;"? ";:UPZ:UBZ:FLZ:LN19:400:KI$""52209fP$(K)KI$:NM$P$(K):3510:117NP45130B7"YOU MUST TYPE 1, 2, 3 OR 4.":5140o7 "YOU CAN'T PLAY WITH THAT MANY PEOPLE!"713:"TRY AGAIN.":I11000:I:5020711:"PLEASE TELL ME YOUR NAME.":7(8:"-->";:UP0:UB0:FL0:LN19:400:P$(NP)KI$:(8222:"