EXTENDED CPC DSK File Disk-Info RealSpectrum*Track-Info N Track-Info  N ESCAPE }ghijklmnz{|}~A  SCHOOL A c CODE2A E!"#$%&'()U12 2B *-./0123456789:;U12 BAK+,DEFGH^fopqrstCODE 8=>?@ABCU12 2B c= <dMain Menu easubs=62976 i0:0:6: Mash code links a3=60928 asubs=62976 Common basic sub labels input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nsprite=9350$ mazedraw=9440$ fours=9405$ tune=9390$ jump=9375$ more=9475% defaultwords=9530:% pickword=9550N% Graphics labels bigted1=60416 bigted2=60544 tick=60288 cross=60256` space=57200p tree=60320 ,Clear MC vars 6j=(asubs+39') @ 8e3@  "code": Ez=021:z,0;0;7;31;" ":z: @ Escape B0:0:7: Ccls4=4895 E9z$="Escape":col=67C:y=176:x=80PLUS3DOS"qpWoca=65000 *a>0a<665000,0 skill=1 asubs=62976 maxsk=5  a>0a<6147  100d 664000,0:z=011 :=""more (Fz3=64018+16*z:z$:u=015:z4=z$(u+1) 2z4z3+u,z4:64001,u*16:64002,z*16:64005,g(z4,2):z4=g(z4,1):64004,(z4/256):64003,z4-256*64004:j=(asubs+6) <u:z: i0:0:6: j 990 l y=0 mEz$="fun school 2":x=32 :col=68D:90102#:y=24 nj=18 pk,z$ r0z$=j+"."+z$+" "(14-z$) tcol=14:x=0 v90102#:big x"y=y+16+8*(j=0) zj z$= z$=""600X:100d a$=:a=a$PLUS3DOS poo!a=65000 *a>0a<665000,0 skill=1 asubs=62976 maxsk=5  a>0a<6147  100d 664000,0:z=011 :=""more (Fz3=64018+16*z:z$:u=015:z4=z$(u+1) 2z4z3+u,z4:64001,u*16:64002,z*16:64005Track-Info  N ,g(z4,2):z4=g(z4,1):64004,(z4/256):64003,z4-256*64004:j=(asubs+6) <u:z: i0:0:6: j 990 l y=0 mEz$="fun school 2":x=32 :col=68D:90102#:y=24 nj=18 pk,z$ r0z$=j+"."+z$+" "(14-z$) tcol=14:x=0 v90102#:big x"y=y+16+8*(j=0) zj z$= z$=""600X:100d a$=:a=a$PLUS3DOSXX 0:0:0:  "pic.bin" 65000,0  "u12.2a" 12.2a" ? `.yD- :H\???`͞͞bk % yb- yk͂͢A F{DO~#o&~#Y( ,w-~wAj,,w-~w-~wq{_w,w,(w--q&o)))< "͂"*~#"bj))0*r,s-q"$|} o| "(14-z$) tcol=14:x=0 v 90102# x0y=y+16+8*((j=0)+(j=0)) zj z$= z$=""600X:100d a a<1a>8140 $a<565000,a:"u12.2a" .01z# =,30 Mash code links a3=60928 asubs=62976 Common basic sub labels input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nsprite=9350$ mazedraw=94-480 a<1a>8140 Na>565000,a:1;20,10 ;"LOADING...":"u12.2b" .01z# =,30 a3=60928 asubs=62976 input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nsprite=9350$ mazedraw=30 fours=9405$ tune=9390$ jump=9375$ more=9475% defaultwords=9530:% pickword=9550N% spflg=0 bigted1=60416 bigted2=60544 tick=60288 cross=60256` space=57200p 6j=(asubs+39')  990+a  j:jj L590N::y=014416:z$:x=0:col=5:big y &0:0:19,0; z$=:z$=13 "" z$" "520  N"This program is","on the other","side of the tape","","Turn tape over,","REWIND,and press","ENTER to load.","","SPACE to return","to menu." b0:0: lNz$="Press 1 to "+maxsk+" to":y=0:x=0:col=6:90102# v:z$="set difficulty":y=24:col=6:90102# z$= z$<"1"z$>maxsk640  skill=z$ z$="level "+z$+" selected" 1y=64@:x=0:col=68D:90102# j=1400:j   "code2a"   6000p,"Build a Bridge" 3000 ,"Unicorn Quest" 2000,"Guardians" 7e3X,"MysteryMachine" 1010,"Souvenirs" 0,"Logic Doors" 0,"Code Boxes" 1000,"Escape" 41;20,10 ;"LOADING...":"escape" I65000,5:1;20,10 ;"LOADING...":"u12.2b" Imaxsk=4:cw=1:zline=2003:zy=0:zcol=70F: 2943 :default words 'jumble=2950 :g(1,2) =g(1,1)=59200@:g(1,2)=59; 0:0:0: ,2999 :j="a""b"-1:k:j,k:j skill>maxskskill=maxsk guessleft=3 q$="":l=0 j=16 k=(*10 ) k=l2025 l=k  q$=q$+k j 50:6:0: 9 2900T ; maze draw >@z$=" Guardians ":col=22:x=0:y=0:big @j=64210 Axd=-24 C+y=32 :x=96`:2800 :guard Dx=168:2800 E%xd=24:y=80P:2800 Fx=96`:2800 G3xd=-24:y=144:x=96`:2800 Hx=168:2800 Maj,208:j+1,144:j+2,208:j+3,160:j+4,255 R f$="111111" W*64370r,0:64014,1 \+64006,0:64007,480 a64005,5 fj=(a3+18) g64015,0 kpflag=-1 64005,5 j=(a3+15)  =""more þ640152205 j=64015 64015,0 %j=pflagj=pflag+1Track-Info  N 2205 &guard=((j-1)/2)+1 guard>62400` pflag=2*guard-1 f$(guard)="0"2200 *.002xn,60<:.002xn,502 'skill=42550 :2245 2940| +skill t=0̰q$(guard):w$:t t=12 jumble {y=5+6*(guard>2)+8*(guard>4):x=12 +9 *(guard=2guard=3guard=6) ?8;8;y,x;z$(3);y+1,x;z$(4)  yr=y:xr=x @z$="Word= ":y=0:x=0:col=70F:big 3x=88X:col=15:length=w$:alpha input x$=w$2500 :right '.05|L,0:.1}L,-12 t sound=(asubs+15) guessleft=guessleft-1 guessleft21004  2700 esound=(asubs+12 ) j o<y=480:x=32 :z$="Well Done!":col=41):big t=y=144:x=0:col=6:z$="Your keyword":big y<y=160:x=0:col=5:z$="is: LETTER":big ~y=88X:x=96`:jump j=1500:j 2700 sound=(asubs+12 ) @z$=" Guardians ":col=22:x=0:y=0:big f$(guard)="0" j=(a3+24):rub robot Ey=yr-1yr+2:y,xr-1;5;0;" ":y 64005,5 j=(a3+18) 2200 j=q$(guard)*10 +1 w$=u$(jj+9 ) .w$(w$)=" "w$=w$(̱w$-1):2553  more Hj,x+xd:j+1,y:j+2,x+xd:j+3,y+16:j=j+4 py=(y/8) px=(x/8) py,px+1;6;"";py+1,px-1;6;"";6;0;" ";0;6;"";py+2,px;6;0;" ";py+3,px;0;6;" "  U"0000000000000000" V"1111111111111111" W"0000000000000011" X"0000000000000011" Y"1111111111110011" Z"1100000000000011" ["1100000000000011" \"1100111111111111" ]"1100111111111000" ^"1100000000000000" _"1100000000000000" `"1111111111111000" }G"tree","hole","book","hair","nose","trip","hand","fish","wool","coin" ~Q"paper","apple","zebra","river","train","track","clock","crisp","chair","daisy" ["flower","school","branch","square","button","jacket","donkey","pencil","rubber","rabbit" a$=" ":z$="" j=1̱w$ k=(*w$)+1 a$(k)="."2956 z$=z$+w$(k):a$(k)="." j z$=w$jumble  p11000,111100<,100100$,111100<,1111110~,1100110f,11011011,255 Lworm=59168 :bird=59136:apple=59104:unicorn=59040 dzline=3000 :zcol=71G:zy=176:cw=0:maxsk=3:skill>maxskskill=maxsk side=3880( j=(asubs+39') j=64210 x=16224208 y=72H13632 j,x:j+1,y:j=j+2 y:x j,255 g(3,2) <g(1,1)=60320:g(1,2)=4 =g(2,1)=60352:g(2,2)=66B <g(3,1)=60384:g(3,2)=3 *64370r,0:64014,1 !0:0:6: & 3900< + maze draw ,@x=0:y=0:col=22:z$=" Unicorn Quest ":big 0 f$="111" 1grafad=unicorn:col=71G:y=32 :x=208:nsprite:grafad=grafad+32 :x=x+16:col=71G:nsprite 5grafad=apple:x=16 :#y=72H:col=68D:nsprite ?4grafad=worm:y=104h:col=6:nsprite D4grafad=bird:y=136:col=7:nsprite I+64006,0:64007,32 N64005,5 Sj=(a3+18) Xchecked=0 ]pflag=0 bRHStotal=0 l,23673y\,255:23672x\,0 nfire=0 o7fxd=16:fyd=0:fry=176:frx=0 qVtimer=800 *(skill=1)+4000*(skill=2)+180*(skill=3) 64005,5 j=(a3+15) =""more R23672x\+256*23673y\>timer3700t:fire=5133375/ .checked64006=1283350 " "3205 pflag3300 side z$="2"3200 .01z# =,0 z$="1"3260 x=224 f$(pflag)="3" RHStotal=RHStotal+1 3275 x=16 fTrack-Info  N $(pflag)="1" checked=0 Cj=apple*(pflag=1)+worm*(pflag=2)+bird*(pflag=3) Mcol=4*(pflag=1)+6*(pflag=2)+7*(pflag=3) y=40(+32 *pflag pflag=0 64001,x 64002,y k=(j/256) j=j-256*k 64003,j:64004,k 64005,col j=(a3+21) RHStotal=33500 3200 þ640153200 .01z# =,20 pflag=64015 %pflag=pflag-3*(pflag>3) 64001,64016 64002,64017 64000,1 j=(a3+21) 64000,0 side #z$="3"RHStotal=RHStotal-1 checked=0 f$(pflag)="."  3200 dead=0 y1=106j gf$(1)=f$(2)y1=74J:y=104h:grafad=worm:col=6:dead=1:3400H %Zf$(3)=f$(2)y=136:grafad=bird:col=7:dead=1:3400H *$deadchecked=1:3200 9sound=(asubs+15) >more Hj=(grafad/256) J(x=16+208*(f$(2)="3") Mk=grafad-256*j O64005,col R64003,k:64004,j W64001,x:64002,y \y=yy1-2 a.001wn,60< f64000,1 kj=(asubs+6) p,64000,0:64002,y-2 uj=(asubs+6) zy  sound=(asubs+12 ) :y=515:1;y,5;25;" ":y :y=480:x=480:col=6:z$="Well Done":big y=88X:x=112p:jump :y=515:1;y,5;25;" ":y 5x=480:y=480:col=5:z$="Your":big 8x=480:y=72H:col=5:z$="keyword":big 9x=480:y=96`:col=5:z$="is APPLE":big 1:400 more tfire=fire+1:64001,frx:64002,fry:64005,150:j=(asubs+9 ):23672x\,0:23673y\,0:64005,5 ufrx=frx+fxd:fry=fry+fyd v9frx=240fry=176fxd=0:fyd=-16 w8frx=240fry=16fxd=-16:fyd=0 x.frxfry=16fyd=16:fxd=0 y )rz$=("1"ƾ64006<64@)+("2"ƾ64006>63?ƾ64006<192)+("3"ƾ64006>191): ="0000000000000000" >"1111110000111111" ?"0000010000100000" @"0003010000102000" A"0003011001102000" B"0003001001002000" C"0003001001002000" D"0003301111022000" E"0003300110022000" F"0003330110222000" G"0003330000222000" H"3333333002222222" q8rotate=6400:drop=64502:plottem=6850 ra4=55664p sIzy=176:zcol=14:zline=6e3p:cw=0:maxsk=3 tskill>maxskskill=maxsk u&1:1:0:6: zs(7,3) |Sz=13*(skill=1)+5*(skill=2)+7*(skill=3)  shape=z 6970:+shape  x1,y1,angle s(z,1)=x1 s(z,2)=y1 s(z,3)=angle y=155-y1:x=x1+20  64006,x1:64007,y1 j=a4:sub1A  plottem 64000,z j=(a4+3):1B z >y=0:x=16:col=6:z$="Build a Bridge":big a$="0000000" R6050*(skill<2)+6060*(skill=2)+6070*(skill>2) b$="1110000" J0;4;5,13 ;"";10 ,13 ;"" j=69 :1;0;6;j,0;13 ;4;"";6;j,18;4;"";6;31;:j xmin=84T:xmax=132 ymin=20:ymax=68D  6100 b$="1111100" A3;5,13 ;"";12 ,13 ;"" j=611 :1;0;6;j,0;13 ;3;"";6;j,18;3;"";6;31;:j xmin=84T:xmax=132 ymin=20:ymax=84T  6100 b$="1111111" I5;5,11 ;"";10 ,11 ;"" j=69 :1;0;6;j,0;11 ;5;"";6;j,20;5;"";6;31;:j xmin=68D:xmax=140 ymin=20:ymax=68D  6100 =+64005,13 :64370r,0 >-64006,120x:64007,24 ?j=(a3+18) Gj=(a3+15) LzTrack-Info  N $=:z$=""more Mz$" "6215G Qx=64006 Ry=64007 VSz=17*(skill=3)+5*(skill=2)+3*(skill=1) [kx>s(z,1)+8xs(z,2)+8y0):ctrspd=8:ctr=-1  k=13 rotate:6300 k=199more k=32 drop x1=x1+spd*(j=2)*(x1<208)-spd*(j=4)*(x1>8):y1=y1+spd*(j=3)*(y1<144)-spd*(j=1)*(y1>16)  64006,x1:64007,y1 j=(a4+9 ):move sub3  6300 sound=(asubs+12 ) skill=skill+(skill<3) Az$=" Well Done! ":y=0:x=0:col=250:big (x=xmin+28:y=ymin+28:jump 0:0: z$="Your keyword is:":y=40(:col=68D:x=0:big:z$="BRIDGE":x=480:col=71G:y=64@:big:j=1200:j more angle=s(z,3)  -angle=angle+1-8*(angle=7) s(z,3)=angle x=x1+20 y=155-y1 :j=(a4+12 ):pick up BG/Clr window for rotate sub4A # plottem (64000,shape -2j=(a4+15):Lift spr_data/Restore BG sub4B .64000,shape 0 25x1>xminx1yminy1s(shape,2)=y1 ?s(shape,3)=angle @64006,x1 A64007,y1 Fj=(a4+12 ):sub4A Gx=x1+20 Hy=155-y1 K plottem P64000,shape Uj=(a4+15):sub4B Za$(shape)="0" _62008:Get_init d364478sound=(asubs+15):6300 ia$(shape)="1" ss(shape,1)=x1 xs(shape,2)=y1 }(a$="1110011"skill=26355 a$b$62008  6355 6890+10 *shape  8 c=angle/4* s=c c=c d k=-(d/2)  j=1d  zy1,zy2  xa=x+k*c-zy1*s:ya=y+k*s+zy1*c  xb=x+k*c-zy2*s:yb=y+k*s+zy2*c xa,ya:(xb-xa),(yb-ya)  k=k+1 j   24 (-16,15,-15,15,-14,15,-13 ,15,-12 ,15,-11 ,15,-10 ,15,-9 ,15,-8,15,-7,15,-6,15,-5,15,-4,15,-3,15,-2,15,-1,15 0,15,2,15,4,15,6,15,8,15,10 ,15,12 ,15,14,15  29 -9 ,-9 ,-9 ,-8,-9 ,-7,-9 ,-6,-9 ,-5,-9 ,-4,-9 ,-3,-9 ,-2,-9 ,-1,-9 ,0,-9 ,1,-9 ,2,-9 ,3 -9 ,4,-9 ,5,-9 ,5,-9 ,5,-9 ,6,-9 ,6,-9 ,6,-9 ,7,-9 ,7,-9 ,7,-9 ,8,-9 ,8,-9 ,8,-9 ,9 ,-9 ,9 ,-9 ,9  14  -8,-7,-8,-5,-7,-3,-7,-1,-7,1,-6,3,-6,5,-6,7,-5,7,-5,7,-5,7,-4,7,-4,7,-4,7  14 -6,10 ,-7,10 ,-8,10 ,-9 ,10 ,-10 ,10 ,-10 ,10 ,-10 ,10 ,-9 ,10 ,-9 ,10 ,-9 ,10 ,-8,10 ,-8,10 ,-8,10 ,-7,10 ,-7,10  14 -6,5,-6,4,-6,3,-6,2,-6,1,-6,1,-6,1,-6,2,-6,2,-6,2,-6,3,-6,3,-6,3,-6,4,-6,4 ' 29 (-3,3,-3,3,-3,3,-3,3,-2,3,-2,3,-1,3,-1,3,0,3,0,3,1,3,1,3,2,3Track-Info  N ,2,3,2,3,2,3,2,3,2,3,1,3,1,3,-1,3,-1,3,-3,3,-3,3,-3,3,-3,3,-3,3,-3,3,-3,3 1 29 2-6,1,-6,1,-6,1,-6,1,-6,2,-6,2,-6,3,-6,3,-6,4,-6,4,-6,5,-6,5,-6,6,-6,6,-6,6,-6,6,-6,6,-6,6,-6,4,-6,4,-6,2,-6,2,-6,1,-6,1,-6,1,-6,1,-6,1,-6,1,-6,1 ;24,24,5 <24,80P,0 =64@,136,6 >108l,136,3 ?192,136,7 @192,80P,1 A192,24,2 YJgreek=57408@:dial=58720`:key=58880:button=58656 Zezline=7004\:zcol=71G:zy=0:cw=7700:maxsk=2:skill>maxskskill=maxsk [7431:7600 ]6:6:7: b?z$="Mystery Machine":x=4:y=0:col=15:big g 7900 l 7800x v 7200   byeskill=17300  byemore skill>17400 -rightsound=(asubs+15):7080 sound=(asubs+12 )  ;y=0:x=480:col=23:z$="Well Done!":big =z$="Your keyword":y=64@:x=0:col=491:big =col=480:y=88X:x=0:z$="is: SWITCH":big  x=112p:y=144:jump more  ! bye=0 %j64015,0:64006,0:64007,80P:64370r,0:64005,0 *j=(a3+18) /'64005,0:j=(a3+15) 1=13 ƾ64015 5=""bye=1: 7" "7215/ 9:64007<80Pž64007>1517215/ :/py=((64007+7)/16)-5 ;'px=((64006+7)/16) <,a$(16*py+px+1)=" "7215/ >.01z# =,20 ?j=(a3+24) C""7235C Gz$=:z$=""7239G Hz$=" "7261] I+z$<"A"(z$>"Z"z$<"a")z$>"z"7235C Mb$=a$(16*py+px+1) R'j=04:k=015 Wra$(16*j+k+1)=b$y=16*j+80P:x=16*k:col=15:big:a$(16*j+k+1)=z$ \k:j ]'64000,0:j=(a3+18) a 7215/ z$="" item=0 j=64015  pflag=j *.001wn,60<:.002xn,502  z$=z$+j  7860 item=item+1 item=57400 '64005,0:j=(a3+15) =""bye=1: a64007>64@64008,0:64009 ,254:j=(a3+27):7330 /þ64015(13 Ʀ" ")7330  64015=pflag7330 j=1̱z$ !z$(j)<"3"z$(j)>"6"7360 764015>2ƾ64015<77330 j  7305 !64015=z$(j)7330 j  7305  skill>1right=(u$=a$): right=1 Tz$(2)"12"z$(4)"78"z$(3)<"3"z$(3)>"6"right=0  "turn green key" "pull blue lever"  "turn yellow dial"  "pull green lever"  "push blue button" u$(80P) j=165A16 z$:u$(jj+15)=z$ j   >col=480:y=0:x=0:z$="Current Instr.":big 5j=1:x=0:y=480112p16 #z$=u$(jj+15) (col=491:big -j=j+16:y 2=y=176:col=15:x=0:z$="Change(1,5 or n)" 7big <z$=:z$="n" =z$<"1"z$>"5"7740< >j=z$*16 A)z$="(max length 15) ":col=6:big FVspflg=1:length=15:y=152:col=15:alphainput:spflg=0 K!u$(j-15j)=x$:7700 } 7431 a$(80P) j=04 Hskill=maxskz$=u$(16*j+116*j+16):7821 z$ k=0̱z$-1 z$(k+1)=" "7850 5a$(16*j+k+1)=(z$(k+1)-32 ) 5grafad=greek+32 *(z$(k+1)-97a) 3col=15:x=k*16:y=j*16+80P  nsprite k:j  Track-Info  N k=(a3+24):rub robot 7862+2*j Ty=32 :x=184:col=0:grafad=key-32 :nsprite:7880 |8;7;6,5;" ";7,5;" ";1;8,4;"";9 ,4;"":7880 Qgrafad=dial-32 :y=24:x=128:col=0:nsprite:7880 ŀ8;7;6,27;" ";7,27;" ";8,28;4;"";9 ,28;"":7880 Fcol=0:y=32 :x=568:grafad=button-32 :nsprite k=(a3+18)  ,79906:j="a""c"-1:k:j,k:j Z2;6;7,2;"";2;7;29;6;2;"" Z2;6;8,1;"";2;7;30;6;2;"" Z2;6;9 ,0;"";2;7;31;6;2;"" Bj=26:j,3;0;7;28;" ":j ?j=10 21:j,0;1;" ";31;" ":j Agrafad=dial:y=24:x=112p:col=70F:nsprite Jgrafad=dial+32 :y=24:x=128:col=70F:nsprite Jgrafad=dial+64@:y=40(:x=112p:col=70F:nsprite Jgrafad=dial+96`:y=40(:x=128:col=70F:nsprite Q0;4;4,22;"";5,22;0;4;"" ?grafad=key:y=32 :x=184:col=4:nsprite Agrafad=button:col=5:y=32 :x=568:nsprite =8;1;6,5;"";7,5;"" ?8;4;6,27;"";7,27;"" j=64210  7981- .k:j,k:k255j=j+1:7964 , .184,32 ,36$,480,112p,24,128,24,112p,32 ,128,32 ,212,480,568,32 / 255 50ptr,x:ptr+1,y:ptr=ptr+2:nsprite 7H1,3,7,15,31,63?,127,255 8Q128,192,224,240,248,252,254,255 #764002,y #8 whatxwas=x #964005,col:col=0 #<z=1̱z$ #A64000,z$(z) #F64001,x #K'x=x+16+0*(asubs+3) #Pz #Rx=what x was #U #_numflag=1 #dinput #ifigure=("0"+x$) #m #pnumflag=0 #|.blank=57200p:teddy=60800 #} whatxwas2=x #~Pc2=col:c4=64@*(col/64@):c3=6+c4+8*((col-c4)/8) #(.07}\(,12 :.07}\(,12 # x$(length) #place=1 #"xend=x+16*(length-1) #grafad=blank #x=xxend16 #col=c2:nsprite #x # x=whatxwas2 #grafad=teddy #+col=c3*(xxend)+6*(x>xend):nsprite #-z=120:z$=:z$""9200# #z #=x>xendx$(place)=" "grafad=blank:nsprite:9155# #col=c2:z$=x$(place):big #0z=115:z$=:z$=""z:9130# #z$=13 9305Y$ #z$=12 9275;$ #z$=""more #x>xend9130# #z$"0"z$"9"9250"$ #num flag9130# $spflgz$=" "9250"$ $-z$<"A"(z$>"Z"(z$<"a"z$>"z"))9130# $"x$(place)=z$ $$.07}\(,12 $' col=c2:big $,place=place+(place1) $<x$(place)=" " $@grafad=blank $E nsprite $Ox=x-16*(x>whatxwas2) $T .07}\(,12 :9130# $Yplace=1:z$=" " $^x=whatxwas2xend16 $cx$(place)=" "col=c2:big $hplace=place+1:x $jbig $m.07}\(,12 $r x=whatxwas2 $| $ghi=(grafad/256) $64005,0 $64000,1 $64001,x:64002,y $364003,grafad-256*ghi:64004,ghi $"0,0*(asubs+6) $U64005,col:col=0:64000,0:0,0*(asubs+6) $ $fz=13:col=5:grafad=bigted1:fours:col=5:grafad=bigted2:fours:z $tune $grafad=space:fours $ $tune $note:note=99c $.1}L,note:9395$ $16,16,13 ,14,14,18,16,16,13 ,9 ,9 ,13 ,11 ,11 ,13 ,14,14,11 ,16,16,13 ,9 ,9 $ 99c $64001,x:64002,y $ghi=(grafTrack-Info  N ad/256) $364003,grafad-ghi*256:64004,ghi $M64005,0:64000,1:0,0*(asubs+18) $64005,col:col=0 $64000,0 $#0,0*(asubs+18) $ %z$="Another Go Y/N ?" %x=0:y=zy:col=zcol %big %z$= % z$=""cw9486%:zline % z$=""maxsk600X:zline % z$="Y"z$="y"zline % z$"n"z$"N"9480% %  %cw>1cw %0:0: %>z$="Current words:":y=0:x=0:col=70F:big % y=16 %j=110 % x=32 %(z$=(j-1)+".":col=68D:big %x=x+40( %&z$=u$(j*10 -9 j*10 ) %col=71G:big %y=y+16 %j %Bz$="Are these OK Y/N":y=176:x=0:col=15:big % z$= %!z$="y"z$="Y" %"z$"n"z$"N"9504 % %$*z$="Change: 0 to 9 ?":col=69E:big %&z$= %(z$<"0"z$>"9"9510&% %) word=z$ %*)z$="Word: ":col=5:big %,col=15:length=10 %- x=80P %. alphainput %05u$(word*10 +1word*10 +10 )=x$ %2z$=x$ %3y=word*16+16 %4 x=72H %5col=71G:big %8 9502% %<u$(100d) %>j=191[10 %@z$ %Bu$(jj+9 )=z$ %Dj %F %P"j=(*10 )*10 +1 %Rw$=u$(jj+9 ) %S.w$(w$)=" "w$=w$(̱w$-1):9555S% %T akilsubaxsyPLUS3DOS"!h NÕëü.!+2[8>2t[8گ2&[S ͕:G28x2&:G[ 2t[S 8x2&[ 2t[8>2t[8گ2&[&{2(~#ng:ٷ(G)r# {2( G72/2""(**V#":ٷ *r#"G::*٦w#":ٷ *~#"*w#"*G{V#":*ٲw#" :ٷ( *:٦w"ž2{2""(**V#":ٷ( G{:Ẃ S:ٷā"*~G~w#"!~w{2""(**V#":ٷ( G{:W*z/w#" :ٷ(*{/w":&o)))DM)))T]) ) [͕[8[tvà!w~2~2͔:2:2!z"ޯ22: :!s> _!/":޷(*X"!*!ޯ2S6[s!`":޷ !*X"!*>2S2:s'G:޸ "![*K~ "!$~ ~:(:D_:DW :ރ_:ނWS!4:s !":s('ޯZ2y:sG:޸0v(2v>:(8~(2>2+:(8$n( 2<2v: ~(>22:(X͔͔X: KtB !w wB *t ~O! ~2#~2?^?z*a?}!w^V͔ !ݾ {ݾ KtB :wo>0>2:xg>0>2!߼ { !:ރ_:ނWccccc!}|aa||x`@ 0 0 0 0 0 0 0 0 0 0x|ngca``v`>`=qaa88p`=qaaaaaaq=88pp`0````````````````````` x0 0?x880 0 p````0??00??00??00?>vv> 0880 0 p``AAAAAAA`p09 ??@ ???? `p09 8>?|p080p <x8`````00680 p8 7 gPp0 88{   8p17??{7Track-Info N         ?wwky xvꀻݽ~כ*@5ZK/wS~րZy w{{W   Xkk ރ[]w`v{m \bbʢb\@  @@Yڥ@@@ {}{8}}{TDD TTT!! ?s?Im"Im <~"<~"% >0~@@@@<`????? O0@@8|l;33377wc_?8g#&?~j8j8jB@U99?U@`@@@@@@<~???????<~8px߀`0?&(p7=.8 @KP (A}}}8ψόφ  @y@y<||<|N^^DD^^L 8}}99}}99}}8' AC##<@@p#HHp!A#???g ?????G3`???G3? @???G3 p|>>|>||>p  `@q;t"``n  Px  D! 5q ?;333??000000?φ?h{3@ |%)x000000000>??;333??000000?φ?x{030 8p``80`%IAx88 MFbE@@@pMFbE@@@@p````@ ````}JREFb@@@@p}JREFb@@@p````@ ````d&JRý Z.͙.N"/S1C3*/[1K3...!5:Gͭ8>wͭy8>(wv>2!5:Gnf",F}8 w}wF|(8 0ww~=(w~ w[,F^V 2+!5F͐ 6Rw!+4: ɯ2.>2v2+!5nf",~ 8~OG͐}8%w66͢F 6jRw@p;w V~NG͢}8$w[,!^V6!.4"p[,~ wF^V!+4:b!+| :.!WX'60ͭwͭwͭw~ O~ ~( > 8>@>wN! oXgWOR}0D 8P8xy(DOxyиy ?ɸ:+ 8 O:+ >(>P[v\c.zRR_R0#"v\}!x2+͐_͢W: J͌:G: ͻ:G: v[ l[S !:r(*!F~ w22 xW >2xO >2xW >2 xW>2 :G:(822:G: Ȁ82 2:  : : : : G: ????W>2 : ($z W_: (9=01>2 ): Z: (=0{_ zW>2 J! ~(22 * "!K ~:(!5* "5ww: w: : (wwvvl~(_w~Ww!S ~ wF~ Sɯ222<2;![~< 0%8 ~08~2~2:;2##!;4{ <ůGyOBz { lůGyOB { !<ůGyOBz { !lůGyOB .[S !!<.[ l*[:O[!2!<.[ l<Track-Info N         ú-:ITÃ/qÂGÏ I[:.:O[*ͺ[:͢:H\??? `.yD- :H\???`͞͞bk % yb- yk͂͢A F{DO~#o&~#Y( ,w-~wAj,,w-~w-~wq{_w,w,(w--q&o)))< "͂"*~#"bj))0*r,s-q"$|} o|gz7gzgzk===o=P:(22r222v22<2xW O xW xW ~j8j8jB@U99?U@`@@@@@@<~???????<~8px߀`0?&(p7=.8 @KP (A}}}8ψόφ  @y@y<||PLUS3DOSqpoPa=65000 *a>4a<9 65000,0 skill=1 asubs=62976 maxsk=5  a>4a<9 147 dMain Menu i0:0:6: j 990 l y=0 mEz$="fun school 2":x=32 :col=68D:90102#:y=24 nj=18 pk,z$ r0z$=j+"."+z$+" "(14-z$) tcol=14:x=0 v 90102# x0y=y+16+8*((j=0)+(j=0)) zj z$= z$=""600X:100d a$=:a=a$-480 a<1a>8140 Na<565000,a:1;20,10 ;"LOADING...":"u12.2a" .01z# =,30 Mash code links a3=60928 asubs=62976 Common basic sub labels input=9084|# big=90102# alphainput=9070n# nu-480 a<1a>8140 Na>565000,a:1;20,10 ;"LOADING...":"u12.2b" .01z# =,30 a3=60928 asubs=62976 input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nsprite=9350$ mazedraw=30 fours=9405$ tune=9390$ jump=9375$ more=9475% defaultwords=9530:% pickword=9550N% spflg=0 bigted1=60416 bigted2=60544 tick=60288 cross=60256` space=57200p 6j=(asubs+39')  990+a  j:jj L590N::y=014416:z$:x=0:col=5:big y &0:0:19,0; z$=:z$=13 "" z$" "520  N"This program is","on the other","side of the tape","","Turn tape over,","REWIND,and press","ENTER to load.","","SPACE to return","to menu." b0:0: lNz$="Press 1 to "+maxsk+" to":y=0:x=0:col=6:90102# v:z$="set difficulty":y=24:col=6:90102# z$= z$<"1"z$>maxsk640  skill=z$ z$="level "+z$+" selected" 1y=64@:x=0:col=68D:90102# j=1400:j   "code2a"   6000p,"Build a Bridge" 3000 ,"Unicorn Quest" 2000,"Guardians" 7e3X,"MysteryMachine" 0,"Souvenirs" 0,"Logic Doors" 0,"Code Boxes" 1000,"Escape" 41;20,10 ;"LOADING...":"escape" Imaxsk=4:cw=1:zline=2003:zy=0:zcol=70F: 2943 :default words 'jumble=2950 :g(1,2) =g(1,1)=59200@:g(1,2)=59; 0:0:0: ,2999 :j="a""b"-1:k:j,k:j skill>maxskskill=maxsk guessleft=3 q$="":l=0 j=16Track-Info N         mberinput=9050Z# nsprite=9350$ mazedraw=9440$ fours=9405$ tune=9390$ jump=9375$ more=9475% defaultwords=9530:% pickword=9550N% Graphics labels bigted1=60416 bigted2=60544 tick=60288 cross=60256` space=57200p ,Clear MC vars 6j=(asubs+39') Run Prog-at last!  990+a j jj Load next menu 590N:520  595S  :y=0  Cz$:z$"*"col=68D:x=0:big:y=y+16:525  &0:0:19,0; z$= !z$=13 "" &z$" "540 0 N"This program is","on the other","side of the tape","","Turn tape over,","REWIND,and press","ENTER to load.","","SPACE to return","to menu." O"*" Su"To load this","program,insert","tape,REWIND,and","press","","ENTER to load","","or SPACE to","return to menu.","*" XSet skill b0:0: lNz$="Press 1 to "+maxsk+" to":y=0:x=0:col=6:90102# v:z$="set difficulty":y=24:col=6:90102# z$= z$<"1"z$>maxsk640  skill=z$ z$="level "+z$+" selected" 1y=64@:x=0:col=68D:90102# j=1400:j  Auto loader  "code2b"   0,"Build a Bridge" 0,"Unicorn Quest" 0,"Guardians" 0,"MysteryMachine" 5000,"Souvenirs" 4000,"Logic Doors" 6000p,"Code Boxes" 1000,"Escape" 41;20,10 ;"LOADING...":"escape" Logic Doors cls4=4895 czcol=41):zy=176:zline=4e3:cw=0:maxsk=2:skill>maxskskill=maxsk showkey=4600 0:0:7: >z$="Logic Doors":col=68D:y=176:x=40(:big ,4970j:j="a""j"-1:k:j,k:j Game init kc1=2:kc2=5  n$="4123" room=1 door=1 4990~+room r$,d$ Set up MAP  4988| )j:j64018+j,1:4042 Set up P_LIST  4985y j=64210 3x,y:xj,x:j+1,y:j=j+2:4048  j,255 *64370r,0:64014,1 Key map init 9k$="00000000000034002300103000200000040020000000500045" Room init 4700\:droom Init walker grfs 64005,5 64015,0 64006,120x 64007,160 j=(a3+18) Check for Win Room room44000 Walk round room 64005,5 j=(a3+15)  z$= !z$=""more "*z$=" "4300:4125:drop all $Hz$>"0"z$<"6"(kc1kc2)4350:4125:pick up key if there 'j=64015 ,j4126 0Sort out new room 1Ad=(j<3)+2*(j>2j<6)+3*(j>5) 21=lft 2=mdl 3=rgt 5Check can go thru' 6!d$(d)>"0"d$(d)<"9"4200h ; No! @64008,-64008 E64009 ,-64009 Jj=(a3+27) O 4125 gCheck keys hskill=14203k i j=d$(d) jjkc1jkc24155; kj=(a3+24):rub robot lGet new room details m door=n$(d) nGet abs door no r room=r$(d) w4990~+room |r$,d$ &door<14100:frame init  n$="4123" j=1door-1 r$=r$(2)+r$(1) d$=d$(2)+d$(1) n$=n$(2)+n$(1) j  4100 Drop all! kc1 .01z# =,20  keycode=kc1 j=(a3+24) 4800:dkey 64005,5 j=(a3+18) k$(room*5+kc1)="1"  kc1=0 kc2showkey  keycode=kc2 j=(a3+24) 4800:dkey 64005,5 j=(a3+18) k$(room*5+kc2)="1"  kc2=0  showkey Pick up key ðk$(room*5+z$) Key exists! kc1kc2=z$ kc1kc1=z$ k$(room*5+z$)="0"  .01z# =,20  j=(a3+24) j=5+3*z$ 518,j;" ";19,j;" ";20,j;" " 64005,5 j=(a3+18)  showkey 0Got there! 2sound=(asubs+12 ) 5;z$="Well Done!":y=0:x=480:col=67C:big :Az$="Your keyword is:":x=0:yTrack-Info N         =480:col=70F:big ?6z$="KEY":x=104h:y=72H:col=79O:big D x=112p:y=112p:jump Another go ? more Show keys znf=0:zky=0  zkx=11 9kc1zky,zkx;" ";zky+1,zkx;" ":  keycode=kc1:4805 %zkx=zkx+5 */kc2zky,zkx;" ";zky+1,zkx;" ": 4keycode=kc2:4805 \Draw room+any keys acls4 b showkey f 7 k'0,175:64@,-31 lL127,0:0,-96`:-128,0:0,96` m(191,144:64@,31 n%16,0:480,480 o'240,0:-480,480 pUnravel door gens rk=13 s 4750 tk uk=5*room+1 v$k$(k)keycode=k$(k):4800 w k=k+1 x$k<5*room+64726v z Draw door  ðd$(k)  j=d$(k) Vc1=2*(j=1j=9 )+6*(j=2j=3j=5)+(j=4) Vc2=2*(j=2j=5j=9 )+6*(j=1j=4)+(j=3) )c3=c1*(j<5j=9 )+(j=5)  z=15+2*(k2) Ax=2*(k=1)+13 *(k=2)+26*(k=3) !y=8-2*(k2)z -k2y,x;c1;" ";c2;" ";c3;" ":y 0k=2y,x;c1;" ";c2;" ";c3;" ":y: k=34770 e4,2;c1;0;"";c2;"";5,2;c1;" ";c2;" ";c2;0;"";c3;"" 21,2;0;c1;"";20,2;"";c2;"";19,2;c1;"";c2;"";18,2;c1;"";c2;"";c3;"": W4,28;0;c2;"";c3;"";5,26;c1;"";c2;"";c3;"" 18,26;0;c1;"";c2;"";c3;"";19,27;c2;"";c3;"";20,28;c2;"";c3;"";21,29;"": Draw key 8znf=1:zky=18:zkx=5+3*keycode  j=keycode Vc1=2*(j=1j=9 )+6*(j=2j=3j=5)+(j=4) Vc2=2*(j=2j=5j=9 )+6*(j=1j=4)+(j=3) )c3=c1*(j<5j=9 )+(j=5) 40;1;zky,zkx;c1;"";c2;"";c3;"" Cznfcol=15:x=40(+j*24:y=152:z$=j:big  partial cls  <j=021:j,0;0;31;" ":j: j UDG kQ192,240,252,255,255,255,255,255 lI0,0,0,0,192,240,252,255 mE0,0,0,0,3,15,63?,255 nM3,15,63?,255,255,255,255,255 oQ255,254,252,248,240,224,192,128 pH255,127,63?,31,15,7,3,1 qa0,1111110~,255,255,1100110f,1100110f,1100110f,0 rE0,0,255,255,0,0,0,0 sy1110008,1111100|,11101100,11000110,1101110n,1111100|,1111100|,1110008 xP_List square coords y16,160,32 ,144,104h,112p,120x,112p,136,112p,208,144,224,160 z0,0 {Block disps |102f,103g,104h,105i,115s,116t,117u,122z,123{,124|,130,141,145,158,160,175,0 }Room/door map ~"xx85","0090" "x3xx","0500" "x53x","0490" "2641","3599" "37xx","4900" "xx62","0029" "5873","9249" "69x4","9902" "0x96","1029" "8xx7","9005" Souvenirs cls5=5650 "flg2=5598:flag=5700D azline=5e3:zcol=41):zy=0:cw=0:maxsk=4:skill>maxskskill=maxsk 0:0:6: ;z$="Souvenirs":col=491:y=0:x=112p:big 8720":draw map 5660:ferry  e(3) s(8,2)  5990f a$="ABUFGHIS" j=18 s(j,1),s(j,2)  x=s(j,1):y=s(j,2) col=15:z$=a$(j) big j Graf walker init )64006,s(3,1)-12  64007,s(3,2) 64210,255 64370r,0 64005Track-Info N         ,69E skill=maxsk5530 j=(a3+18) Qcash=30*(skill=1)+25*(skill=2)+20*(skill=3) z$="`"+cash -col=71G:y=160:x=104h:big guessleft=3 country=3 y=19:x=26:flag f$="00000000"  p(3)  Frame 9y=480:x=136:col=69E:z$="Press:":big +y=72H:col=68D:z$="ABUFG":big -y=96`:col=68D:z$="HI or S":big Which place z$=:z$=""more z$>"S"z$=(z$-32 )  z$<"A"z$>"U"5125 Detailed check j=18 z$=a$(j)5150 j:5125 Neighbours? Xb$="GIS UFGH BFH BUIS ABFHSBUG AFS AFGI "(country*5-4country*5) # k=1 (b$(k)=z$5200P 2*b$(k)" "kɱb$k=k+1:5160( 7'.01z# =,0:.2~L,-12 < 5125 Pcheck not revisiting Rf$(j)="1"51757 TValid move... U country=j _+64009 ,0:64005,69E dox=64006 ix=s(country,1)-12 nxd=2*(x-ox) s64008,xd w Walk x x.64006xj=(a3+27):5240x }oy=64007 y=s(country,2) yd=2*(y-oy) 64008,0 64009 ,yd .64007yj=(a3+27):5265 Arrived! cls5 y=19:x=26:flag 4country=35400:back in ole' blighty! 5895+5*country %e(1),e(2),e(3),c$ exrate=e(skill) x=128:y=16 j=13  z$,p(j) col=3+j:big y=y+16 ?x=144:col=67C:z$=c$((c$>1)+1):big )x=192:col=7:z$=p(j):big x=128:y=y+16 j sy=112p:x=128:col=69E:z$="`1="+exrate:big:z$=c$:y=128:x=176:col=69E:big  Buy z$= z$=""more z$<"1"z$>"3"5305 .01z# =,20 cash=cash-p(z$)/exrate 2cash<05500|:run out of greenbacks! Flag 'visited' f$(country)="1" cls5  z$=" " -y=160:x=120x:col=71G:big #z$=((100d*cash)/100d) col=71G:big  5100 Check for Win "f$="11011111"54306 #cls5 $6z$="Not":col=23:y=480:x=136:big &:z$="visited":col=23:y=72H:x=136:big (6z$="all":col=23:y=96`:x=136:big *:z$="places":col=23:y=120x:x=136:big +sound=(asubs+15) , 5600 5Check cash 6cash10 5450J 7cls5 86z$="Too":col=23:y=480:x=136:big :7z$="much":col=23:y=72H:x=136:big <8z$="money":col=23:y=96`:x=136:big >8z$="left":col=23:y=120x:x=136:big ?sound=(asubs+15) @ 5600 I WON! J7z$="Well":y=480:x=152:col=22:big L7z$="Done":y=68D:x=152:col=22:big Nsound=(asubs+12 ) Py=96`:x=168:jump T0:6: Y=z$="Your keyword":col=15:y=480:x=0:big ^?z$="is: PASSPORT":col=71G:y=72H:x=0:big cj=1500:j h 5600 | No Cash cls5 ;z$="You have":y=480:col=23:x=128:big :z$="RUN OUT":y=72H:col=23:x=136:big ;z$="of money":y=96`:col=23:x=128:big sound=(asubs+15)  5600 New game <64006,0:64007,0:j=(a3+18) country=1:y=2 /x=18:flg2:country=75535 +country=country+1:x=26:flg2 2y=y+5:country=country+1:5532 Bz$=" Press 1 to 7 ":col=68D:y=176:x=0:big z$=:z$=""more z$<"1"z$>"7"5537  country=z$ *64005,5:64009 ,0 Fx=s(country,1)-12 :64008,2*(x-64006) C64006xj=(a3+27):.001wn,60<:5542 64008,0 864009 ,2*(s(country,2)-64007) T64007s(country,2)j=(a3+27):.001wn,60<:5545 y=19:x=26:flag 'j=1200:""5537 j:5536Track-Info  N   cj=x:k=y:x=x*8:y=y*8+24:col=15:z$=country:big:x=j:y=k:5715S  Again more Partial cls @j=219:j,16;0;" ":j 7j=2021:0;j,26;" ":j  Ferry lines '58:,114r:18,-4 '58:,113q:18,-4 &59;,102f:8,-1  &59;,101e:8,-1 !&36$,96`:5,-10 "&37%,96`:5,-10 # DDraw flag+name Iz$="Austria Belgium England France Germany Holland Italy Switzerland "(country*16-15country*16) N?j=x:k=y:y=176:x=0:col=41):big:x=j:y=k Oskill=maxsk PDraw flag graff S z$=" " T-7:j=8*x:k=175-8*y U5700D+20*country VXj,k-23:0,23:47/,0:0,-23:-47/,0 W X Austria YDy,x;2;z$;y+1,x;7;z$;y+2,x;2;z$ Z l Belgium m$c1=0:c2=6:c3=2 n!z=yy+2:z,x;c1;" ":z p)z=yy+2:z,x+2;c2;" ":z r)z=yy+2:z,x+4;c3;" ":z t  England -7:1:z=yy+2:z,x;z$:z !j+1,k:46.,-22 j,k:47/,-23 !j,k-1:46.,-22  up diag !j,k-23:46.,22 !j,k-23:47/,23 !j,k-22:46.,22 Vrt <z=j+22j+24:z,k-23:0,23:z Hrztl 3z=k-12 k-11 :j,z:47/,0:z Yes,I KNOW we've got red in there,but  come on! Its only a humble  speccy!   France $c1=1:c2=7:c3=2  5742n  Germany 3y+1,x;2;z$;y+2,x;6;z$   Holland Dy,x;2;z$;y+1,x;7;z$;y+2,x;5;z$   Italy $c1=4:c2=7:c3=2  5742n  Swiss M2;7;y,x;" ";y+1,x;" ";y+2,x;" "   Item data  %20,15,19.2,"Shlg" "Doll",100d "Cow Bell",40( "Chalet",160 #502,40(,48.7B,"Fr" "Doll",200 "Badge",502 "House",300PLUS3DOSX  0 0 0 0 0 0 0 0 0 0x|ngca``v`>`=qaa88p`=qaaaaaaq=88pp`0````````````````````` x0 0?x880 0 p````0??00??00??00?>vv> 0880 0 p``AAAAAAA`p09 ??@ ???? `p09 8>?|p080p <x8`````00680 p8 7 gPp0 88{   8p17??{7?wwky xvꀻݽ~כ*@5ZK/wS~րZy w{{W   Xkk ރ[]w`v{m \bbʢb\@  @@Yڥ@@@ {}{8}}{TDD TTT!! ?Track-Info  N s?Im"Im <~"<~"% >0~@@@@<`????? O0@@8|l;33377wc_?8g#&?~j8j8jB@U99?U@`@@@@@@<~???????<~8px߀`0?&(p7=.8 @KP (A}}}8ψόφ  @y@y<||<|N^^DD^^L 8}}99}}99}}8' AC##<@@p#HHp!A#???g ?????G3`???G3? @???G3 p|>>|>||>p  `@q;t"``n  Px  D! 5q ?;333??000000?φ?h{3@ |%)x000000000>??;333??000000?φ?x{030 8p``80`%IAx88 MFbE@@@pMFbE@@@@p````@ ````}JREFb@@@@p}JREFb@@@p````@ ````d&JRý Z.͙.N"/S1C3*/[1K3...!5:Gͭ8>wͭy8>(wv>2!5:Gnf",F}8 w}wF|(8 0ww~=(w~ w[,F^V 2+!5F͐ 6Rw!+4: ɯ2.>2v2+!5nf",~ 8~OG͐}8%w66͢F 6jRw@p;w V~NG͢}8$w[,!^V6!.4"p[,~ wF^V!+4:b!+| :.!WX'6!0ͭwͭwͭw~ O~ ~( > 8>@>wN! oXgWOR}0D 8P8xy(DOxyиy ?ɸ:+ 8 O:+ >(>P[v\c.zRR_R0#"v\}!x2+͐_͢W: J͌:G: ͻ:G: v[ l[S !:r(*!F~ w22 xW >2xO >2xW >2 xW>2 :G:(822:G: Ȁ82 2:  : : : : G: ????W>2 : ($z W_: (9=01>2 ): Z: (=0{_ zW>2 J! ~(22 * "!K ~:(!5* "5ww: w: : (wwvvl~(_w~Ww!S ~ wF~ Sɯ222<2;![~< 0%8 ~08~2~2:;2##!;4{ <ůGyOBz { lůGyOB { !<ůGyOBz { !lůGyOB .[S !!<.[ l*[:O[!2!<.[ l<ú-:ITÃ/qÂGÏ I[:.:O[*ͺ[:͢:H\??? `.yD- :H\???`͞͞bk % yb- yk͂͢A F{DO~#o&~#Y( ,w-~wAj,,w-~w-~wq{_w,w,(w--q&o)))< "͂"*~#"bj))0*r,s-q"$|} o|gz7gzgzk===o0?X:(22r222v22<2xW O xW xW e~j8j8jB@ k=(*10 ) k=l2025 l=k  q$=q$+k j 50:6:0: 9 2900T ; maze draw >@z$=" Guardians ":col=22:x=0:y=0:big @j=64210 Axd=-24 C+y=32 :x=96`:2800 :guard Dx=168:2800 E%xd=24:y=80P:2800 Fx=96`:2800 G3xd=-24:y=144:x=96`:2800 Hx=168:2800 Maj,208:j+1,144:j+2,208:j+3,160:j+4,255 R f$="111111" W*64370r,0:64014,1 \+64006,0:64007,480 a64005,5 fj=(a3+18) g64015,0 kpflag=-1 64005,5 j=(a3+15)  =""more þ640152205 j=64015 64015,0 %j=pflagj=pflag+12205 &guard=((j-1)/2)+1 guard>62400` pflag=2*guard-1 f$(guard)="0"2200 *.002xn,60<:.002xn,502 'skill=42550 :2245 2940| +skill t=0̰q$(guard):w$:t t=12 jumble {y=5+6*(guard>2)+8*(guard>4):x=12 +9 *(guard=2guard=3guard=6) ?8;8;y,x;z$(3);y+1,x;z$(4)  yr=y:xr=x @z$="Word= ":y=0:x=0:col=70F:big 3x=88X:col=15:length=w$:alpha input x$=w$2500 :right '.05|L,0:.1}L,-12 t sound=(asubs+15) guessleft=guessleft-1 guessleft21004  2700 esound=(asubs+12 ) j o<y=480:x=32 :z$="Well Done!":col=41):big t=y=144:x=0:col=6:z$="Your keyword":big y<y=160:x=0:col=5:z$="is: LETTER":big ~y=88X:x=96`:jump j=1500:j 2700 sound=(asubs+12 ) @z$=" Guardians ":col=22:x=0:y=0:big f$(guard)="0" j=(a3+24):rub robot Ey=yr-1yr+2:y,xr-1;5;0;" ":y 64005,5 j=(a3+18) 2200 j=q$(guard)*10 +1 w$=u$(jj+9 ) .w$(w$)=" "w$=w$(̱w$-1):2553  more Hj,x+xd:j+1,y:j+2,x+xd:j+3,y+16:j=j+4 py=(y/8) px=(x/8) py,px+1;6;"";py+1,px-1;6;"";6;0;" ";0;6;"";py+2,px;6;0;" ";py+3,px;0;6;" "  U"0000000000000000" V"1111111111111111" W"0000000000000011" X"0000000000000011" Y"1111111111110011" Z"1100000000000011" ["1100000000000011" \"1100111111111111" ]"1100111111111000" ^"1100000000000000" _"1100000000000000" `"1111111111111000" }G"tree","hole","book","hair","nose","trip","hand","fish","wool","coin" ~Q"paper","apple","zebra","river","train","track","clock","crisp","chair","daisy" ["flower","school","branch","square","button","jacket","donkey","pencil","rubber","rabbit" a$=" ":z$="" j=1̱w$ k=(*w$)+1 a$(k)="."2956 z$=z$+w$(k):a$(k)="." j z$=w$jumble  p11000,111100<,100100$,111100<,1111110~,1100110f,11011011,255 Lworm=59168 :bird=59136:apple=59104:unicorn=59040 dzline=3000 :zcol=71G:zy=176:cw=0:maxsk=3:skill>maxskskill=maxsk side=3880( j=(asubs+39') j=64210 x=16224208 y=72H13632 j,x:j+1,y:j=j+2 y:x j,255 g(3,2) <g(1,1)=60320:g(1,2Track-Info  N )=4 =g(2,1)=60352:g(2,2)=66B <g(3,1)=60384:g(3,2)=3 *64370r,0:64014,1 !0:0:6: & 3900< + maze draw ,@x=0:y=0:col=22:z$=" Unicorn Quest ":big 0 f$="111" 1grafad=unicorn:col=71G:y=32 :x=208:nsprite:grafad=grafad+32 :x=x+16:col=71G:nsprite 5grafad=apple:x=16 :#y=72H:col=68D:nsprite ?4grafad=worm:y=104h:col=6:nsprite D4grafad=bird:y=136:col=7:nsprite I+64006,0:64007,32 N64005,5 Sj=(a3+18) Xchecked=0 ]pflag=0 bRHStotal=0 l,23673y\,255:23672x\,0 nfire=0 o7fxd=16:fyd=0:fry=176:frx=0 qVtimer=800 *(skill=1)+4000*(skill=2)+180*(skill=3) PLUS3DOS''MÕëü.!+2[8>2t[8گ2&[S ͕:G28x2&:G[ 2t[S 8x2&[ 2t[8>2t[8گ2&[&{2(~#ng:ٷ(G)r# {2( G72/2""(**V#":ٷ *r#"G::*٦w#":ٷ *~#"*w#"*G{V#":*ٲw#" :ٷ( *:٦w"ž2{2""(**V#":ٷ( G{:Ẃ S:ٷā"*~G~w#"!~w{2""(**V#":ٷ( G{:W*z/w#" :ٷ(*{/w":&o)))DM)))T]) ) [͕[8[tvà!w~2~2͔:2:2!z"ޯ22: :!s> _!/":޷(*X"!*!ޯ2S6[s!`":޷ !*X"!*>2S2:s'G:޸ "![*K~ "!$~ ~:(:D_:DW :ރ_:ނWS!4:s !":s('ޯZ2y:sG:޸0v(2v>:(8~(2>2+:(8$n( 2<2v: ~(>22:(X͔͔X: KtB !w wB *t ~O! ~2#~2?^?z*a?}!w^V͔ !ݾ {ݾ KtB :wo>0>2:xg>0>2!߼ { !:ރ_:ނWccccc!}|aa||x`@ 0 0 0 0 0 0 0 0 0 0x|ngcTrack-Info  N a``v`>`=qaa88p`=qaaaaaaq=88pp`0````````````````````` x0 0?x880 0 p````0??00??00??00?>vv> 0880 0 p``AAAAAAA`p09 ??@ ???? `p09 8>?|p080p <x8`````00680 p8 7 gPp0 88{   8p17??{7?wwky xvꀻݽ~כ*@5ZK/wS~րZy w{{W   Xkk ރ[]w`v{m \bbʢb\@  @@Yڥ@@@ {}{8}}{TDD TTT!! ?s?Im"Im <~"<~"% >0~@@@@<`????? O0@@8|l;33377wc_?8g#&?~j8j8jB@U99?U@`@@@@@@<~???????<~8px߀`0?&(p7=.8 @KP (A}}}8ψόφ  @y@y<||<|N^^DD^^L 8}}99}}99}}8' AC##<@@p#HHp!A#???g ?????G3`???G3? @???G3 p|>>|>||>p  `@q;t"``n  Px  D! 5q ?;333??000000?φ?h{3@ |%)x000000000>??;333??000000?φ?x{030 8p``80`%IAx88 MFbE@@@pMFbE@@@@p````@ ````}JREFb@@@@p}JREFb@@@p````@ ````d&JRý Z.͙.N"/S1C3*/[1K3...!5:Gͭ8>wͭy8>(wv>2!5:Gnf",F}8 w}wF|(8 0ww~=(w~ w[,F^V 2+!5F͐ 6Rw!+4: ɯ2.>2v2+!5nf",~ 8~OG͐}8%w66͢F 6jRw@p;w V~NG͢}8$w[,!^V6!.4"p[,~ wF^V!+4:b!+| :.!WX'6!0??00?? 0 0 FBAͭwͭwͭw~ O~ ~( > 8>@>wN! oXgWOR}0D 8P8xy(DOxyиy ?ɸ:+ 8 O:+ >(>P[v\c.zRR_R0#"v\}!x2+͐_͢W: J͌:G: ͻ:G: v[ l[S !:r(*!F~ w22 xW >2xO >2Track-Info  N xW >2 xW>2 :G:(822:G: Ȁ82 2:  : : : : G: ????W>2 : ($z W_: (9=01>2 ): Z: (=0{_ zW>2 J! ~(22 * "!K ~:(!5* "5ww: w: : (wwvvl~(_w~Ww!S ~ wF~ Sɯ222<2;![~< 0%8 ~08~2~2:;2##!;4{ <ůGyOBz { lůGyOB { !<ůGyOBz { !lůGyOB .[S !!<.[ l*[:O[!2!<.[ l<ú-:ITÃ/qÂGÏ I[:.:O[*ͺ[:͢:H\??? `.yD- :H\???`͞͞bk % yb- yk͂͢A F{DO~#o&~#Y( ,w-~wAj,,w-~w-~wq{_w,w,(w--q&o)))< "͂"*~#"bj))0*r,s-q"$|} o|gz7gzgzk===o0?P:(22r222v22<2xW O xW xW ~j8j8jB@U99?U@`@@@@@@<~, England-no items $10 ,9.5,9.37,"Fr" "Tower",502 "Pate",30 "Wine",60<  #3,3.5`,3.48^Q,"DM" !"Sausage",3 ""Flag",6 #"Doll",12 %"4,3.5`,3.72nz,"G" &"Clogs",24 '"Tulips",4 ("Doll",16 *)2000,1900l,2124L,"Lire" +"Old Coin",4000 ,"Gondola",8000@ -"Flag",2000 /#2,1.5@,1.93w =p,"Fr" 0"Clock",20 1"Watch",16 2"Cow Bell",12 fLetter coords g104h,96` h64@,72H i40(,568 j480,96` k104h,568 l80P,568 m88X,120x n88X,96` pCode boxes q,6990N:j="a""h"-1:k:j,k:j rdcw=0:maxsk=3:zline=6005u:zcol=41):zy=160:skill>maxskskill=maxsk shard1=6600 ugoes=10 v ct=0 z0:6:0: ;z$="Code Boxes":col=15:y=4:x=480:big Draw box ,13 ,10 ;2;"" 514,10 ;2;6;" " 515,10 ;2;6;" " ,16,10 ;2;"" J11 ,8;1;4;" ";1;0;"" J12 ,9 ;1;4;" ";1;0;"" 4;12 ,8;"";13 ,8;"";14,8;"";15,8;4;0;"";16,9 ;"" a$=""  Frame Pick random bin no b$="" j=1skill+1 b$=b$+(+.5) j a$=b$6105 a$=b$ dec=(""+b$) Show number z$=b$ ,y=112p:x=88X:col=480:big 9z$="How Many":y=144:x=0:col=5:big 3z$="in the box ?":y=160:col=68D:big  =""more Three tries t=13  length=dec x=200:col=23  numberinput figure=dec6300:right '.07}\(,0:.3,-12 $%t=26800:draw objects )t 8 Wrong! 9Pgrafad=cross:y=160:x=208+16*length:col=250:nsprite =sound=(asubs+15) B$grafad=space:col=6:nsprite G 6400  Right Ngrafad=tick:col=68D:y=160:x=208+16*length:nsprite sound=(asubs+12Track-Info  N  ) >64000,1:j=(asubs+6):64000,0 ct=ct+4-t fall thru to 6400 Next box 5j=410 :j,8;" ":j e0;20,25;" ";21,25;" ";1;11 ,11 ;" " goes=goes-1  goes6100 ct<20:6500d hard1 right6500d Magic word  #;z$="Well done!":y=0:x=480:col=23:big (<z$="Your keyword":y=88X:x=0:col=6:big -0z$="is: BINARY":y=112p:col=5:big 2y=144:x=0:jump d Again fmore  Hard Qn  =z$="Now try THIS!":col=70F:y=0:x=0:big 6b$="1":j=14:b$=b$+((+.5)):j dec=(""+b$) 3z$=b$:col=105i:y=90Z:x=76L:big Bz$="How many is that":y=144:x=0:col=68D:big Dlength=2:col=15:y=160:x=96`:numberinput figure=dec6700, "sound=(asubs+15) $Nz$="The answer is "+dec:y=144:x=0:col=67C:right=x:big ,>grafad=tick:col=68D:y=160:x=136:nsprite 1sound=(asubs+12 ) 6502:right=1:  Open box py=12 :px=9 j=(*3) 0z$=(""j)+(""j=1)+(" "j=2)  k=1 j=b$1-1 ðb$(j)6865  z=1k py-z,px+j+j;z$ z k=k+k j  N Udg OQ128,192,224,240,248,252,254,255 PH255,127,63?,31,15,7,3,1 QY0,31,1101000h,11000111,1101000h,31,0,0 RG0,254,1,255,1,254,0,0 SX1110000p,1110000p,240,1011100\,7,0,0,0 TK0,0,0,0,128,192,1100000,0 Ua11000,1100110f,129,255,171,255,1100110f,11000 " map "8:8 " 8733" "x:y "x,y " zx1:zy1 "&zx1=9000(#x:y:x,y:zx1:zy1: "zx1=9999' " zx1-x,zy1-y "x=zx1:y=zy1:8725" "0,120x,8,120x,5,126~,8,136,17,122z,15,120x,16,104h,0,96` "9000(#,9000(#,16,160,43+,154,40(,144,59;,112p,535,105i,59;,102f "20,91[,32 ,104h,21,106j,24,120x,30,120x,29,126~,18,128,24,144,14,141,16,160 " 9000(#,9000(#,32 ,480,16,568,0,16,40(,0,568,16,64@,480,32 ,480 "!43+,59;,32 ,80P,568,96`,96`,80P,88X,72H,72H,64@,64@,480 ""72H,568,98b,39',104h,16,109m,37%,120x,39',104h,480,88X,62>,96`,64@,72H,64@,9000(#,9000(#,96`,64@,128,68D "#c9000(#,9000(#,88X,72H,125},83S,112p,96`,128,104h "$9000(#,9000(#,568,96`,72H,104h,88X,96`,80P,88X,88X,96`,90Z,112p,80P,115s,72H,104h,80P,115s,112p,128,128,128,9999',9999' #( #)Common Subs Block! #* #- #2Big Alphabet #764002,y #8 whatxwas=x #964005,col:col=0 #<z=1̱z$ #A64000,z$(z) #F64001,x #K'x=x+16+0*(asubs+3) #Pz #Rx=what x was #U #ZInput Number #_numflag=1 #dinput #ifigure=("0"+x$) #m #nInput Alpha #pnumflag=0 #xINPUT Alpha/Num #yinputs y,x..cursor #zlength..Max no.chars #{numflag..1=no alphas #|.blank=57200p:teddy=60800 #} whatxwas2=x #~Pc2=col:c4=64@*(col/64@):c3=6+c4+8*((col-c4)/8) #(.07}\(,12 :.07}\(,12 # x$(length) #place=1 #*Put up blanks* #"xend=x+16*(length-1) #grafad=blank #x=xxend16 #col=c2:nsprite #x #flash curTrack-Info  N sor and #wait for key press # x=whatxwas2 #grafad=teddy #+col=c3*(xxend)+6*(x>xend):nsprite #-z=120:z$=:z$""9200# #z #=x>xendx$(place)=" "grafad=blank:nsprite:9155# #col=c2:z$=x$(place):big #0z=115:z$=:z$=""z:9130# #Key pressed-suss which #!z$=13 9305Y$:enter #"z$=12 9275;$:delete #z$=""more #x>xend9130# #z$"0"z$"9"9250"$ #num flag9130# $-z$<"A"(z$>"Z"(z$<"a"z$>"z"))9130# $!Character is kocher! $"x$(place)=z$ $$.07}\(,12 $' col=c2:big $,place=place+(place1) $<x$(place)=" " $@grafad=blank $E nsprite $Ox=x-16*(x>whatxwas2) $T .07}\(,12 :9130# $W** ENTER pressed ** $XRemove blanks $Yplace=1:z$=" " $^x=whatxwas2xend16 $cx$(place)=" "col=c2:big $hplace=place+1:x $jbig $m.07}\(,12 $r x=whatxwas2 $| $}nSprite Patch $~n-knocks out b/g $ghi=(grafad/256) $64005,0 $64000,1 $64001,x:64002,y $364003,grafad-256*ghi:64004,ghi $"0,0*(asubs+6) $U64005,col:col=0:64000,0:0,0*(asubs+6) $ $JUMP--jumping 32 ted $plus nipper tune! $IP y,x of ted only $fz=13:col=5:grafad=bigted1:fours:col=5:grafad=bigted2:fours:z $tune $grafad=space:fours $ $Nipper Tune! $tune $note:note=99c $.1}L,note:9395$ $16,16,13 ,14,14,18,16,16,13 ,9 ,9 ,13 ,11 ,11 ,13 ,14,14,11 ,16,16,13 ,9 ,9 $ 99c $FOURS..32 sq sprite $64001,x:64002,y $ghi=(grafad/256) $364003,grafad-ghi*256:64004,ghi $M64005,0:64000,1:0,0*(asubs+18) $64005,col:col=0 $64000,0 $#0,0*(asubs+18) $ $ Maze Draw and  $data block set-up $ from data lines $z=011 $z$ $u=1̱z$ $z3=64017+u+16*z $ z3,z$(u) $jz$(u)"0"x=u*16-16:y=z*16:grafad=g(z$(u),1):col=g(z$(u),2):nsprite $u:z $ %Another go %z$="Another Go Y/N ?" %x=0:y=zy:col=zcol %big %z$= % z$=""cw9486%:zline % z$=""maxsk600X:zline % z$="Y"z$="y"zline % z$"n"z$"N"9480% %  %Change words %0:0: %>z$="Current words:":y=0:x=0:col=70F:big % y=16 %j=110 % x=32 %(z$=(j-1)+".":col=68D:big %x=x+40( %&z$=u$(j*10 -9 j*10 ) %col=71G:big %y=y+16 %j %Bz$="Are these OK Y/N":y=176:x=0:col=15:big % z$= %!z$="y"z$="Y" %"z$"n"z$"N"9504 % %$*z$="Change: 0 to 9 ?":col=69E:big %&z$= %(z$<"0"z$>"9"9510&% %) word=z$ %*)z$="Word: ":col=5:big %,col=15:length=10 %- x=80P %. alphainput %05u$(word*10 +1word*10 +10 )=x$ %2z$=x$ %3y=word*16+16 %4 x=72H %5col=71G:big %8 9502% %:Default user words %<u$(100d) %>j=191[10 %@z$ %Bu$(jj+9 )=z$ %Dj %F %NPick user word in w$ %P"j=(*10 )*10 +1 %Rw$=u$(jj+9 ) %S.w$(w$)=" "w$=w$(̱w$-1):9555S% %T akilsubaxsnpu|#i2#lphainpun#umberinpuZ#sprit64005,5 j=(a3+15) =""more R23672x\+256*23673y\>timer3700t:fire=5133375/ .checked64006=1283350 " "3205 pflag3300 side z$="2"3200 .01z# =,0 z$="1"3260 x=224 f$(pflag)="3" RHStotal=RHStotal+1 3275 x=16 f$(pflag)="1" checked=0 Cj=apple*(pflag=1)+worm*(pflag=2Track-Info  N )+bird*(pflag=3) Mcol=4*(pflag=1)+6*(pflag=2)+7*(pflag=3) y=40(+32 *pflag pflag=0 64001,x 64002,y k=(j/256) j=j-256*k 64003,j:64004,k 64005,col j=(a3+21) RHStotal=33500 3200 þ640153200 .01z# =,20 pflag=64015 %pflag=pflag-3*(pflag>3) 64001,64016PLUS3DOS@?Ea`0?a0w ?@a`0w8a0w? Pa`0w8a0w8?)Pa`0w8a0w8ka`?wa0w8߀? Pa`?w`0?ـcZa`~0 ?a`?w?`~0?ـ` ?` a`~0?a0w?`~0??ـ` ?p ??fs?||"(??z88??>?X@p(T?pPD ?p pAs?p? P>Track-Info  N p  ???w?xc;c?>??wýxc;c????kx3({<p??~??{< ???_v9ñ0 `1p?P???n?v??w ǝ`a1p???g<w `a1p?c????g<w?xcp ;c0?88::::88;;;;;;;;;;;;88999 998:((((((((((((((((((((((((9:((((((((((((((((((((((((  :(((((((((((((((((((((((( (((((((((((((((((((((((( ;;;;;;;;;;;;9 :  ;;;;::::888;;;;;;88889 ;;;;;;::88888;;;88888899 ;;;;;;;;;;;;888888::::888888;;;;;;;;;;;;;;;;888888::::888888;;;;;;;;;;;;;;;;988888::::88888<<###;;;;;;;;;;; 9988888::88888<< ##'##;;;;;;;; 9998888888888<<####''##;;;;;;  98888888888<<####''##;;;;; 988::::::88<#########;; 9::::::::::<#########;9 9::::::::::<########<8999 0000000000000000#####<<8899 0000000000000000####<<888899 90000000000000000<<<<<88888999999000000000000000088<<88888888888888::::::::::::8888888888?fs 64002,64017 64000,1 j=(a3+21) 64000,0 side #z$="3"RHStotal=RHStotal-1 checked=0 f$(pflag)="."  3200 dead=0 y1=106j gf$(1)=f$(2)y1=74J:y=104h:grafad=worm:col=6:dead=1:3400H %Zf$(3)=f$(2)y=136:grafad=bird:col=7:dead=1:3400H *$deadchecked=1:3200 9sound=(asubs+15) >more Hj=(grafad/256) J(x=16+208*(f$(2)="3") Mk=grafad-256*j O64005,col R64003,k:64004,j W64001,x:64002,y \y=yy1-2 a.001wn,60< f64000,1 kj=(asubs+6) p,64000,0:64002,y-2 uj=(asubs+6) zy  sound=(asubs+12 ) :y=515:1;y,5;25;" ":y :y=480:x=480:col=6:P:big F,8925":j="a""h"-1:k:j,k:j GIcw=0:maxsk=0:zline=8e3@:zcol=491:zy=176 Kroom=1 L n$="4123" Odoor=1 T8900"+room Yr$,d$ ]Set up MAP ^ 8920" c)j:j64018+j,1:8035c gSet up P_LIST hj=64210 j 8922" m3x,y:xj,x:j+1,y:j=j+2:8045m r j,255 vHazard statusflags wk$="0000100111010011" {Walkerflag init Track-Info  N |64370r,0 64014,1 Room Init  8700! room8260D :won! Init walker grafs 64005,5 64015,0 64006,120x 64007,160 j=(a3+18) Walk round 64005,5 j=(a3+15)  =""more þ640158125 Sort new room out j=64015 #d=3-(j<6)-(j<3) Check door will open d$(d)="1"8200 No-One way/not exist 64008,-64008 64009 ,-64009 j=(a3+27)  8125 Go thre'get room data j=(a3+24)  door=n$(d) room=r$(d)-97a 8900"+room !r$,d$ & n$="4123" +j=1door-1 0d$=d$(2)+d$(1) 5n$=n$(2)+n$(1) :r$=r$(2)+r$(1) ?j @ 8100 D Won!! FK103g,480:0,64@:41),0:0,-64@ I<z$="WELL DONE!":y=0:x=480:col=250:big Ngrafad=bigted1 S-y=95_:col=5:x=108l:fours \.2~L,7:.1}L,7:.1}L,7:.6,7:.15~,5:.15~,7:.15~,9 :.15~,7:.15~,5 ].2~L,7:.1}L,7:.1}L,7:.2~L,7:.15~,4:.15~,5:.2~L,7:.1}L,7:.1}L,7:.6,9 by=95_:x=108l:jump !*Nuther go !,more !. !4 river !54:1 !6f=12 16 !8/f,0;" " !9f !; 1 !<f=511 !=/f,0;" " !>f !?0:0 !A 2 !Bf=85U96` !C)39',84T:-39',f-84T !Df !Ff=80P84T !G0,f:64@,0 !Hf !Jf=84T87W !K(39',84T:63?,f-84T !Lf !Mf=80P87W !N143,80P !O-80P,f-80P !Pf !Qf=80P84T !R151,80P !S104h,f-80P !Tf !V 1 !W'f=480+40(88X+40( !Xf,40(:80P,30 !Yf !Zf=0480+33! ![4169,71G:-169+f,-36$+3 !]f !df=169175 !ef,71G:-24,8 !ff !hf=169208 !i*151,79O:f-151,-8 !kf !l617,0;" " !o7:7:1 !pf=57 !qf,0;" " !rf !sf=104h112p !t-119w,112p:-119w,104h-f !uf !xf=112p119w !y,159,112p:-502,f-112p !zf !|f=120x135 !}-255,135:-143,120x-f !f ! 0 !ry=88X:x=96`:grafad=tree:col=96`:nsprite:y=112p:x=32 :col=96`:nsprite: ! customs ! 6 !610 ,0;" " !611 ,0;" " ! 2 !f=813 !f,8;" " !f ! 7 !f=9 12 !f,9 ;" " !f !4z$="CUSTOMS":col=568:x=72H:y=80P !big !key hole ! 4 !f=516 !f,11 ;" " !f ! 7 !6,11 ;"" !7,11 ;"" !8,11 ;"" !13 ,11 ;"" !14,11 ;"" !15,11 ;"" !f=05 !139,92\,f !f !f=133145 !+139,92\:f-139,-16 !f ! ! light ! 2 !(121y,135:0,-24 !(120x,135:0,-24 !f=96`143 !,119w,112p:f-119w,-32 !f ! 6 !)103g,72H:-16,-16 !(135,72H:16,-16 !'119w,72H:0,-16 !122z,75K,3: !pillar box !2:1 !f=516 !f,12 ;" " !f !)2:0:5,11 ;"" !5,18;"" ! 2 !f=13 16 !!0:f,11 ;"" !f ! 0 !8,13 ;" " ! 0 !&90Z,127:64@Track-Info  N ,0 !%90Z,72H:64@,0 !7:2 !'x=104h:y=80P:col=16 !z$="PO":big ! 0 !0:6 ! !Apple Tree !$6:0,14;" " !1,15;" " !2,15;" " !3,10 ;" " !4,9 ;" " !5,15;"" !6,15;"" !7,16;"" !8,15;"" !9 ,15;"" !10 ,15;"" !11 ,14;"" !12 ,13 ;"" !13 ,15;"" !14,13 ;" " !4;1;4,11 ;" ";5,9 ;"";1,14;"";1,19;"";2,20;"" ! 7 ! ! Binary !<z$="How can 1011":y=480:x=0:col=6:big !;z$="be eleven ?":y=72H:x=0:col=6:big ! !Draw Room "cls4 "k$(room+1)8800`" "'0,175:64@,-31 " L127,0:0,-96`:-128,0:0,96` "(191,144:64@,31 "%16,0:480,480 "'240,0:-480,480 "Unravel door data "$j=d$(1) "&j8750.":middle door "(k=2+2*(j=1) "*;4,2;k;0;"";5,2;"" ",-j=617:j,2;k;" ":j "-kk;0;18,2;"";19,2;"";20,2;"";21,2;"" ".j=d$(2) "/j87553":right door "0k=2+2*(j=1) "2/j=815:k;j,13 ;" ":j "3j=d$(3) "4j "6k=2+2*(j=1) "8=4,28;k;0;"";5,26;"" ":.j=617:k;j,26;" ":j ""A"x$(j)<"Z"x$(j)=(x$(j)+32 ) "vj "}od=(room>3)+(room>6)+(room>7)+(room>8)+(room>10 )+(room>13 )+(room>14) "~ix$"passportbridge letter apple key binary switch "(d*8-7d*8)8890" "Right answer "sound=(asubs+12 ) "k$(room+1)="9" "cls4 " 8710" "Fail/wroz$="Well Done":big y=88X:x=112p:jump :y=515:1;y,5;25;" ":y 5x=480:y=480:col=5:z$="Your":big 8x=480:y=72H:col=5:z$="keyword":big 9x=480:y=96`:col=5:z$="is APPLE":big 1:400 more tfire=fire+1:64001,frx:64002,fry:64005,150:j=(asubs+9 ):23672x\,0:23673y\,0:64005,5 ufrx=frx+fxd:fry=fry+fyd v9frx=240fry=176fxd=0:fyd=-16 w8frx=240fry=16fxd=-16:fyd=0 x.frxfry=16fyd=16:fxd=0 y )rz$=("1"ƾ64006<64@)+("2"ƾ64006>63?ƾ64006<192)+("3"ƾ64006>191): ="0000000000000000" >"1111110000111111" ?"0000010000100000" @"0003010000102000" A"0003011001102000" B"0003001001002000" C"0003001001002000" D"0003301111022000" E"0003300110022000" F"0003330110222000" G"0003330000222000" H"3333333002222222" q8rotate=6400:drop=64502:plottem=6850 ra4=55664p sIzy=176:zcol=14:zline=6e3p:cw=0:maxsk=3 tskill>maxskskill=maxsk u&1:1:0:6: zs(7,3) |Sz=13*(skill=1)+5*(skill=2)+7*(skill=3)  shape=z 6970:+shape  x1,y1,angle s(z,1)=x1 s(z,2)=Track-Info  N y1 s(z,3)=angle y=155-y1:x=x1+20  64006,x1:64007,y1 j=a4:sub1A  plottem 64000,z j=(a4+3):1B z >y=0:x=16:col=6:z$="Build a Bridge":big a$="0000000" R6050*(skill<2)+6060*(skill=2)+6070*(skill>2) b$="1110000" J0;4;5,13 ;"";10 ,13 ;"" j=69 :1;0;6;j,0;13 ;4;"";6;j,18;4;"";6;31;:j xmin=84T:xmax=132 ymin=20:ymax=68D  6100 b$="1111100" A3;5,13 ;"";12 ,13 ;"" j=611 :1;0;6;j,0;13 ;3;"";6;j,18;3;"";6;31;:j xmin=84T:xmax=132 ymin=20:ymax=84T  6100 b$="1111111" I5;5,11 ;"";10 ,11 ;"" j=69 :1;0;6;j,0;11 ;5;"";6;j,20;5;"";6;31;:j xmin=68D:xmax=140 ymin=20:ymax=68D  6100 =+64005,13 :64370r,0 >-64006,120x:64007,24 ?j=(a3+18) Gj=(a3+15) Lz$=:z$=""more Mz$" "6215G Qx=64006 Ry=64007 VSz=17*(skill=3)+5*(skill=2)+3*(skill=1) [kx>s(z,1)+8xs(z,2)+8y0):ctrspd=8:ctr=-1  k=13 rotate:6300 k=199more k=32 drop x1=x1+spd*(j=2)*(x1<208)-spd*(j=4)*(x1>8):y1=y1+spd*(j=3)*(y1<144)-spd*(j=1)*(y1>16)  64006,x1:64007,y1 j=(a4+9 ):move sub3  6300 sound=(asubs+12 ) skill=skill+(skill<3) Az$=" Well Done! ":y=0:x=0:col=250:big (x=xmin+28:y=ymin+28:jump 0:0: z$="Your keyword is:":y=40(:col=68D:x=0:big:z$="BRIDGE":x=480:col=71G:y=64@:big:j=1200:j more angle=s(z,3)  -angle=angle+1-8*(angle=7) s(z,3)=angle x=x1+20 y=155-y1 :j=(a4+12 ):pick up BG/Clr window for rotate sub4A # plottem (64000,shape -2j=(a4+15):Lift spr_data/Restore BG sub4B .64000,shape 0 25x1>xminx1yminy1s(shape,2)=y1 ?s(shape,3)=angle @64006,x1 A64007,y1 Fj=(a4+12 ):sub4A Gx=x1+20 Hy=155-y1 K plottem P64000,shape Uj=(a4+15):sub4B Za$(shape)="0" _62008:Get_init d364478sound=(asubs+15):6300 ia$(shape)="1" ss(shape,1)=x1 xs(shape,2)=y1 }(a$="1110011"skill=26355 a$b$62008  6355 6890+10 *shape  8 c=angle/4* s=c c=c d k=-(d/2)  j=1d  zy1,zy2  xa=x+k*c-zy1*s:ya=y+k*s+zy1*c  xb=x+k*c-zy2*s:yb=y+k*s+zy2*c xa,ya:(xb-xa),(yb-ya)  k=k+1 j   24 (-16,15,-15,15,-14,15,-13 ,15,-12 ,15,-11 ,15,-10 ,15,-9 ,15,-8,15,-7,15,-6,15,-5,15,-4,15,-3,15,-2,15,-1,15 0,15,2,15,4,15,6,15,8,15,10 ,15,12 ,15,14,15  29 -9 ,-9 ,-9 ,-8,-9 ,-7,-9 ,-6,-9 ,-5,-9 ,-4,Track-Info  N -9 ,-3,-9 ,-2,-9 ,-1,-9 ,0,-9 ,1,-9 ,2,-9 ,3 -9 ,4,-9 ,5,-9 ,5,-9 ,5,-9 ,6,-9 ,6,-9 ,6,-9 ,7,-9 ,7,-9 ,7,-9 ,8,-9 ,8,-9 ,8,-9 ,9 ,-9 ,9 ,-9 ,9  14  -8,-7,-8,-5,-7,-3,-7,-1,-7,1,-6,3,-6,5,-6,7,-5,7,-5,7,-5,7,-4,7,-4,7,-4,7  14 -6,10 ,-7,10 ,-8,10 ,-9 ,10 ,-10 ,10 ,-10 ,10 ,-10 ,10 ,-9 ,10 ,-9 ,10 ,-9 ,10 ,-8,10 ,-8,10 ,-8,10 ,-7,10 ,-7,10  14 -6,5,-6,4,-6,3,-6,2,-6,1,-6,1,-6,1,-6,2,-6,2,-6,2,-6,3,-6,3,-6,3,-6,4,-6,4 ' 29 (-3,3,-3,3,-3,3,-3,3,-2,3,-2,3,-1,3,-1,3,0,3,0,3,1,3,1,3,2,3,2,3,2,3,2,3,2,3,2,3,1,3,1,3,-1,3,-1,3,-3,3,-3,3,-3,3,-3,3,-3,3,-3,3,-3,3 1 29 2-6,1,-6,1,-6,1,-6,1,-6,2,-6,2,-6,3,-6,3,-6,4,-6,4,-6,5,-6,5,-6,6,-6,6,-6,6,-6,6,-6,6,-6,6,-6,4,-6,4,-6,2,-6,2,-6,1,-6,1,-6,1,-6,1,-6,1,-6,1,-6,1 ;24,24,5 <24,80P,0 =64@,136,6 >108l,136,3 ?192,136,7 @192,80P,1 A192,24,2 YJgreek=57408@:dial=58720`:key=58880:button=58656 Zezline=7004\:zcol=71G:zy=0:cw=7700:maxsk=2:skill>maxskskill=maxsk [7431:7600 ]6:6:7: b?z$="Mystery Machine":x=4:y=0:col=15:big g 7900 l 7800x v 7200   byeskill=17300  byemore skill>17400 -rightsound=(asubs+15):7080 sound=(asubs+12 )  ;y=0:x=480:col=23:z$="Well Done!":big =z$="Your keyword":y=64@:x=0:col=491:big =col=480:y=88X:x=0:z$="is: SWITCH":big  x=112p:y=144:jump more  ! bye=0 %j64015,0:64006,0:64007,80P:64370r,0:64005,0 *j=(a3+18) /'64005,0:j=(a3+15) 1=13 ƾ64015 5=""bye=1: 7" "7215/ 9:64007<80Pž64007>1517215/ :/py=((64007+7)/16)-5 ;'px=((64006+7)/16) <,a$(16*py+px+1)=" "7215/ >.01z# =,20 ?j=(a3+24) C""7235C Gz$=:z$=""7239G Hz$=" "7261] I+z$<"A"(z$>"Z"z$<"a")z$>"z"7235C Mb$=a$(16*py+px+1) R'j=04:k=015 Wra$(16*j+k+1)=b$y=16*j+80P:x=16*k:col=15:big:a$(16*j+k+1)=z$ \k:j ]'64000,0:j=(a3+18) a 7215/ z$="" item=0 j=64015  pflag=j *.001wn,60<:.002xn,502  z$=z$+j  7860 item=item+1 item=57400 '64005,0:j=(a3+15) =""bye=1: a64007>64@64008,0:64009 ,254:j=(a3+27):7330 /þ64015(13 Ʀ" ")7330  64015=pflag7330 j=1̱z$Track-Info  N  !z$(j)<"3"z$(j)>"6"7360 764015>2ƾ64015<77330 j  7305 !64015=z$(j)7330 j  7305  skill>1right=(u$=a$): right=1 Tz$(2)"12"z$(4)"78"z$(3)<"3"z$(3)>"6"right=0  "turn green key" "pull blue lever"  "turn yellow dial"  "pull green lever"  "push blue button" u$(80P) j=165A16 z$:u$(jjng keyword "@z$="Wrong keyword":x=24:y=128:col=67C:big " 8808h" "Door/room map ""xxxx","0900" ""xxcx","0910" ""xgxx","9190" ""cxxx","1900" ""xxfa","0911" ""xxgb","9911" ""xxhx","9919" ""xlxd","9101" ""xmxe","0191" ""ixkf","1911" ""xxxg","9991" ""kpxx","1109" ""xxnx","0019" ""xxxj","9091" ""nxxk","1091" ""oxxx","1009" "Map block disps "٩102f,103g,104h,105i,115s,116t,117u,122z,123{,124|,130,141,145,158,160,175,0 "P_LIST box coords "ۛ16,160,32 ,144,104h,112p,120x,112p,136,112p,208,144,224,160,0,0 "UDG data "Q192,240,252,255,255,255,255,255 "I0,0,0,0,192,240,252,255 "E0,0,0,0,3,15,63?,255 "M3,15,63?,255,255,255,255,255 "Q255,254,252,248,240,224,192,128 "H255,127,63?,31,15,7,3,1 "l6,111100<,1110110v,1101111o,11101111,255,1111110~,111100< #( #)Common Subs Block! #* #- #2Big Alphabet #764002,y #8 whatxwas=x #964005,col:col=0 #<z=1̱z$ #A64000,z$(z) #F64001,x #K'x=x+16+0*(asubs+3) #Pz #Rx=what x was #U #ZInput Number #_numflag=1 #dinput #ifigure=("0"+x$) #m #nInput Alpha #pnumflag=0 #xINPUT Alpha/Num #yinputs y,x..cursor #zlength..Max no.chars #{numflag..1=no alphas #|.blank=57200p:teddy=60800 #} whatxwas2=x #~Pc2=col:c4=64@*(col/64@):c3=6+c4+8*((col-c4)/8) #(.07}\(,12 :.07}\(,12 # x$(length) #place=1 #*Put up blanks* #"xend=x+16*(length-1) #grafad=blank #x=xxend16 #col=c2:nsprite #x #flash cursor and #wait for key press # x=whatxwas2 #grafad=teddy #+col=c3*(xxend)+6*(x>xend):nsprite #-z=120:z$=:z$""9200# #z #=x>xendx$(place)=" "grafad=blank:nsprite:9155# #col=c2:z$=x$(place):big #0z=115:z$=:z$=""z:9130# #Key pressed-suss which #!z$=13 9305Y$:enter #"z$=12 9275;$:delete #x>xend9130# #z$"0"z$"9"9250"$ #num flag9130# $-z$<"A"(z$>"Z"(z$<"a"z$>"z"))9130# $!Character is kocher! $"x$(place)=z$ $$.07}\(,12 $' col=c2:big $,place=place+(place1) $<x$(place)=" " $@grafad=blank $E nsprite $Ox=x-16*(x>whatxwas2) $T .07}\(,12 :9130# $W** ENTER pressed ** $XRemove blanks $Yplace=1:z$=" " $^x=whatxwas2xend16 $cx$(place)=" "col=c2:big $hplace=place+1:x $jbig $m.07}\(,12 $r x=whatxwas2 $| $}nSprite Patch $~n-knocks out b/g $ghi=(grafad/256) $64005,0 $64000,1 $64001,x:64002,y $364003,grafad-256*ghi:64004,ghi $"0,0*(asubs+6) $U64005,col:col=0:64000,0:0,0*(asubs+6) $ $JUMP--jumping 32 ted $plus nipper tune! $IP y,x of ted only $fz=13:col=5:grafad=bigted1:fours:col=5:grafad=bigted2:fours:z $tune $grafad=space:fours $ $Nipper Tune! $tune $note:note=99c $.1}L,note:9395$ $Track-Info  N 16,16,13 ,14,14,18,16,16,13 ,9 ,9 ,13 ,11 ,11 ,13 ,14,14,11 ,16,16,13 ,9 ,9 $ 99c $FOURS..32 sq sprite $64001,x:64002,y $ghi=(grafad/256) $364003,grafad-ghi*256:64004,ghi $M64005,0:64000,1:0,0*(asubs+18) $64005,col:col=0 $64000,0 $#0,0*(asubs+18) $ $ Maze Draw and  $data block set-up $ from data lines $z=011 $z$ $u=1̱z$ $z3=64017+u+16*z $ z3,z$(u) $jz$(u)"0"x=u*16-16:y=z*16:grafad=g(z$(u),1):col=g(z$(u),2):nsprite $u:z $ %Another go %z$="Another Go Y/N ?" %x=0:y=zy:col=zcol %big %z$= % z$=""cw9486%:zline % z$=""maxsk600X:zline % z$="Y"z$="y"zline % z$"n"z$"N"9480% % "u12.2a" %Change words %0:0: %>z$="Current words:":y=0:x=0:col=70F:big % y=16 %j=110 % x=32 %(z$=(j-1)+".":col=68D:big %x=x+40( %&z$=u$(j*10 -9 j*10 ) %col=71G:big %y=y+16 %j %Bz$="Are these OK Y/N":y=176:x=0:col=15:big % z$= %!z$="y"z$="Y" %"z$"n"z$"N"9504 % %$*z$="Change: 0 to 9 ?":col=69E:big %&z$= %(z$<"0"z$>"9"9510&% %) word=z$ %*)z$="Word: ":col=5:big %,col=15:length=10 %- x=80P %. alphainput %05u$(word*10 +1word*10 +10 )=x$ %2z$=x$ %3y=word*16+16 %4 x=72H %5col=71G:big %8 9502% %:Default user words %<u$(100d) %>j=191[10 %@z$ %Bu$(jj+9 )=z$ %Dj %F %NPick user word in w$ %P"j=(*10 )*10 +1 %Rw$=u$(jj+9 ) %S.w$(w$)=" "w$=w$(̱w$-1):9555S% %T subnpu|#i2#lphainpun#umberinpuZ#sprit$azedra$our$un$um$or%efaultword:%ickworN%igtedigtedicros`pacpreFlsoyxhatxwaP<#k<axslin@co1ooooK0000100111010011ZEscapeN4123RxxcxD0910 :.07}\(,12 # x$(length) #place=1 #*Put up blanks* #"xend=x+16*(length-1) #grafad=blank #x=xxend16 #col=c2:nsprite #x #flash cursor and #wait for key press # x=whatxwas2 #grafad=teddy #+col=c3*(xxend)+6*(x>xend):nsprite #-z=120:z$=:z$""9200# #z #=x>xendx$(place)=" "grafad=blank:nsprite:9155# #col=c2:z$=x$(place+15)=z$ j   >col=480:y=0:x=0:z$="Current Instr.":big 5j=1:x=0:y=480112p16 #z$=u$(jj+15) (col=491:big -j=j+16:y 2=y=176:col=15:x=0:z$="Change(1,5 or n)" 7big <z$=:z$="n" =z$<"1"z$>"5"7740< >j=z$*16 A)z$="(max length 15) ":col=6:big FVspflg=1:length=15:y=152:col=15:alphainput:spflg=0 K!u$(j-15j)=x$:7700 } 7431 a$(80P) j=04 Hskill=maxskz$=u$(16*j+116*j+16):7821 z$ k=0̱z$-1 z$(k+1)=" "7850 5a$(16*j+k+1)=(z$(k+1)-32 ) 5grafad=greek+32 *(z$(k+1)-97a) 3col=15:x=k*16:y=j*16+80P  nsprite k:j  k=(a3+24):rub robot 7862+2*j Ty=32 :x=184:col=0:grafad=key-32 :nsprite:7880 |8;7;6,5;" ";7,5;" ";1;8,4;"";9 ,4;"":7880 Qgrafad=dial-32 :y=24:x=128:col=0:nsprite:7880 ŀ8;7;6,27;" ";7,27;" ";8,28;4;"";9 ,28;"":7880 Fcol=0:y=32 :x=568:grafad=button-32 :nsprite k=(a3+18) Track-Info  N  ,79906:j="a""c"-1:k:j,k:j Z2;6;7,2;"";2;7;29;6;2;"" Z2;6;8,1;"";2;7;30;6;2;"" Z2;6;9 ,0;"";2;7;31;6;2;"" Bj=26:j,3;0;7;28;" ":j ?j=10 21:j,0;1;" ";31;" ":j Agrafad=dial:y=24:x=112p:col=70F:nsprite Jgrafad=dial+32 :y=24:x=128:col=70F:nsprite Jgrafad=dial+64@:y=40(:x=112p:col=70F:nsprite Jgrafad=dial+96`:y=40(:x=128:col=70F:nsprite Q0;4;4,22;"";5,22;0;4;"" ?grafad=key:y=32 :x=184:col=4:nsprite Agrafad=button:col=5:y=32 :x=568:nsprite =8;1;6,5;"";7,5;"" ?8;4;6,27;"";7,27;"" j=64210  7981- .k:j,k:k255j=j+1:7964 , .184,32 ,36$,480,112p,24,128,24,112p,32 ,128,32 ,212,480,568,32 / 255 50ptr,x:ptr+1,y:ptr=ptr+2:nsprite 7H1,3,7,15,31,63?,127,255 8Q128,192,224,240,248,252,254,255 #764002,y #8 whatxwas=x #964005,col:col=0 #<z=1̱z$ #A64000,z$(z) #F64001,x #K'x=x+16+0*(asubs+3) #Pz #Rx=what x was #U #_numflag=1 #dinput #ifigure=("0"+x$) #m #pnumflag=0 #|.blank=57200p:teddy=60800 #} whatxwas2=x #~Pc2=col:c4=64@*(col/64@):c3=6+c4+8*((col-c4)/8) #(.07}\(,12 :.07}\(,12 # x$(length) #place=1 #"xend=x+16*(length-1) #grafad=blank #x=xxend16 #col=c2:nsprite #x # x=whatxwas2 #grafad=teddy #+col=c3*(xxend)+6*(x>xend):nsprite #-z=120:z$=:z$""9200# #z #=x>xendx$(place)=" "grafad=blank:nsprite:9155# #col=c2:z$=x$(place):big #0z=115:z$=:z$=""z:9130# #z$=13 9305Y$ #z$=12 9275;$ #z$=""more #x>xend9130# #z$"0"z$"9"9250"$ #num flag9130# $spflgz$=" "9250"$ $-z$<"A"(z$>"Z"(z$<"a"z$>"z"))9130# $"x$(place)=z$ $$.07}\(,12 $' col=c2:big $,place=place+(place1) $<x$(place)=" " $@grafad=blank $E nsprite $Ox=x-16*(x>whatxwas2) $T .07}\(,12 :9130# $Yplace=1:z$=" " $^x=whatxwas2xend16 $cx$(place)=" "col=c2:big $hplace=place+1:x $jbig $m.07}\(,12 $r x=whatxwas2 $| $ghi=(grafad/256) $64005,0 $64000,1 $64001,x:64002,y $364003,grafad-256*ghi:64004,ghi $"0,0*(asubs+6) $U64005,col:col=0:64000,0:0,0*(asubs+6) $ $fz=13:col=5:grafad=bigted1:fours:col=5:grafad=bigted2:fours:z $tune $grafad=space:fours $ $tune $note:note=99c $.1}L,note:9395$ $16,16,13 ,14,14,18,16,16,13 ,9 ,9 ,13 ,11 ,11 ,13 ,14,14,11 ,16,16,13 ,9 ,9 $ 99c $64001,x:64002,y $ghi=(grafad/256) $364003,grafad-ghi*256:64004,ghi $M64005,0:64000,1:0,0*(asubs+18) $64005,col:col=0 $64000,0 $#0,0*(asubs+18) $ %z$="Another Go Y/N ?" %x=0:y=zy:col=zcol %big %z$= % z$=""cw9486%:zline % z$=""maxsk600X:zline % z$="Y"z$="y"zline % z$"n"z$"N"9480% %  %cw>1cw %0:0: %>z$="Current words:":y=0:x=0:col=70F:big % y=16 %Track-Info  N j=110 % x=32 %(z$=(j-1)+".":col=68D:big %x=x+40( %&z$=u$(j*10 -9 j*10 ) %col=71G:big %y=y+16 %j %Bz$="Are these OK Y/N":y=176:x=0:col=15:big % z$= %!z$="y"z$="Y" %"z$"n"z$"N"9504 % %$*z$="Change: 0 to 9 ?":col=69E:big %&z$= %(z$<"0"z$>"9"9510&% %) word=z$ %*)z$="Word: ":col=5:big %,col=15:length=10 %- x=80P %. alphainput %05u$(word*10 +1word*10 +10 )=x$ %2z$=x$ %3y=word*16+16 %4 x=72H %5col=71G:big %8 9502% %<u$(100d) %>j=191[10 %@z$ %Bu$(jj+9 )=z$ %Dj %F %P"j=(*10 )*10 +1 %Rw$=u$(jj+9 ) %S.w$(w$)=" "w$=w$(̱w$-1):9555S% %T akilsubaxsyx0ohatxwa<#nkpZ1.Bui$azedra$our$un$um$or%efaultword:%ickworN%igtedigtedicros`pacpllsco)linhowkeZ Logic Doorsoyx(hatxwa( <#k) #(.07}\(,12 :.07}\(,12 # x$(length) #place=1 #*Put up blanks* #"xend=x+16*(length-1) #grafad=blank #x=xxend16 #col=c2:nsprite #x #flash cur Y"dress","jacket","jumper","anorak","sandal","shirt","trousers","socks","blouse","scarf"  "Clothes" 5 UDGs 6P255,1110101u,32 ,10101,8,5,2,1 8Y255,10101110,4,10101000,16,160,64@,128 :G255,85U,0,85U,0,85U,0,85U ;F0,85U,0,85U,0,85U,0,255 xend9130# #z$"0"z$"9"9250"$ #num flag9130# $-z$<"A"(z$>"Z"(z$<"a"z$>"z"))9130# $!Character is kocher! $"x$(place)=z$ $$.07}\(,12 $' col=c2:big $,place=place+(place1) $<x$(place)=" " $@grafad=blank $E nsprite $Ox=x-16*(x>whatxwas2) $T .07}\(,12 :9130# $W** ENTER prePLUS3DOS"qpWoa=65000 *a>0a<665000,0 skill=1 asubs=62976 maxsk=5  a>0a<6147  100d 664000,0:z=011 :=""more (Fz3=64018+16*z:z$:u=015:z4=z$(u+1) 2z4z3+u,z4:64001,u*16:64002,z*16:64005Track-Info N         ,g(z4,2):z4=g(z4,1):64004,(z4/256):64003,z4-256*64004:j=(asubs+6) <u:z: i0:0:6: j 990 l y=0 mEz$="fun school 2":x=32 :col=68D:90102#:y=24 nj=18 pk,z$ r0z$=j+"."+z$+" "(14-z$) tcol=14:x=0 v90102#:big x"y=y+16+8*(j=0) zj z$= z$=""600X:100d a$=:a=a$-480 a<1a>8140 Na>565000,a:1;20,10 ;"LOADING...":"u12.2b" .01z# =,30 a3=60928 asubs=62976 input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nsprite=9350$ mazedraw=30 fours=9405$ tune=9390$ jump=9375$ more=9475% defaultwords=9530:% pickword=9550N% spflg=0 bigted1=60416 bigted2=60544 tick=60288 cross=60256` space=57200p 6j=(asubs+39')  990+a  j:jj L590N::y=014416:z$:x=0:col=5:big y &0:0:19,0; z$=:z$=13 "" z$" "520  N"This program is","on the other","side of the tape","","Turn tape over,","REWIND,and press","ENTER to load.","","SPACE to return","to menu." b0:0: lNz$="Press 1 to "+maxsk+" to":y=0:x=0:col=6:90102# v:z$="set difficulty":y=24:col=6:90102# z$= z$<"1"z$>maxsk640  skill=z$ z$="level "+z$+" selected" 1y=64@:x=0:col=68D:90102# j=1400:j   "code2a"   6000p,"Build a Bridge" 3000 ,"Unicorn Quest" 2000,"Guardians" 7e3X,"MysteryMachine" 1010,"Souvenirs" 0,"Logic Doors" 0,"Code Boxes" 1000,"Escape" 41;20,10 ;"LOADING...":"escape" I65000,5:1;20,10 ;"LOADING...":"u12.2b" Imaxsk=4:cw=1:zline=2003:zy=0:zcol=70F: 2943 :default words 'jumble=2950 :g(1,2) =g(1,1)=59200@:g(1,2)=59; 0:0:0: ,2999 :j="a""b"-1:k:j,k:j skill>maxskskill=maxsk guessleft=3 q$="":l=0 j=16 k=(*10 ) k=l2025 l=k  q$=q$+k j 50:6:0: 9 2900T ; maze draw >@z$=" Guardians ":col=22:x=0:y=0:big @j=64210 Axd=-24 C+y=32 :x=96`:2800 :guard Dx=168:2800 E%xd=24:y=80P:2800 Fx=96`:2800 G3xd=-24:y=144:x=96`:2800 Hx=168:2800 Maj,208:j+1,144:j+2,208:j+3,160:j+4,255 R f$="111111" W*64370r,0:64014,1 \+64006,0:64007,480 a64005,5 fj=(a3+18) g64015,0 kpflag=-1 64005,5 j=(a3+15)  =""more þ640152205 j=64015 64015,0 %j=pflagj=pflag+12205 &guard=((j-1)/2)+1 guard>62400` pflag=2*guard-1 f$(guard)="0"2200 *.002xn,60<:.002xn,502 'skill=42550 :2245 2940| +skill t=0̰q$(guard):w$:t t=12 jumble {y=5+6*(guard>2)+8*(guard>4):x=12 +9 *(guard=2guard=3guard=6) ?8;8;y,x;z$(3);y+1,x;z$(4)  yr=y:xr=x @z$="Word= ":y=0:x=0:col=70F:big 3x=88X:col=15:length=w$:alpha input x$=w$2500 :right '.05|L,0:.1}L,-12 t sound=(asubs+15) guessleft=guessleft-1 guessleft21004  2700 esound=(asubs+12 ) j o<y=480:x=32 :z$="Well Done!":col=41):big t=y=144:x=0:col=6:z$="Your keyword":big y<y=160Track-Info ! N!!!!!!!!! :x=0:col=5:z$="is: LETTER":big ~y=88X:x=96`:jump j=1500:j 2700 sound=(asubs+12 ) @z$=" Guardians ":col=22:x=0:y=0:big f$(guard)="0" j=(a3+24):rub robot Ey=yr-1yr+2:y,xr-1;5;0;" ":y 64005,5 j=(a3+18) 2200 j=q$(guard)*10 +1 w$=u$(jj+9 ) .w$(w$)=" "w$=w$(̱w$-1):2553  more Hj,x+xd:j+1,y:j+2,x+xd:j+3,y+16:j=j+4 py=(y/8) px=(x/8) py,px+1;6;"";py+1,px-1;6;"";6;0;" ";0;6;"";py+2,px;6;0;" ";py+3,px;0;6;" "  U"0000000000000000" V"1111111111111111" W"0000000000000011" X"0000000000000011" Y"1111111111110011" Z"1100000000000011" ["1100000000000011" \"1100111111111111" ]"1100111111111000" ^"1100000000000000" _"1100000000000000" `"1111111111111000" }G"tree","hole","book","hair","nose","trip","hand","fish","wool","coin" ~Q"paper","apple","zebra","river","train","track","clock","crisp","chair","daisy" ["flower","school","branch","square","button","jacket","donkey","pencil","rubber","rabbit" a$=" ":z$="" j=1̱w$ k=(*w$)+1 a$(k)="."2956 z$=z$+w$(k):a$(k)="." j z$=w$jumble  p11000,111100<,100100$,111100<,1111110~,1100110f,11011011,255 Lworm=59168 :bird=59136:apple=59104:unicorn=59040 dzline=3000 :zcol=71G:zy=176:cw=0:maxsk=3:skill>maxskskill=maxsk side=3880( j=(asubs+39') j=64210 x=16224208 y=72H13632 j,x:j+1,y:j=j+2 y:x j,255 g(3,2) <g(1,1)=60320:g(1,2)=4 =g(2,1)=60352:g(2,2)=66B <g(3,1)=60384:g(3,2)=3 *64370r,0:64014,1 !0:0:6: & 3900< + maze draw ,@x=0:y=0:col=22:z$=" Unicorn Quest ":big 0 f$="111" 1grafad=unicorn:col=71G:y=32 :x=208:nsprite:grafad=grafad+32 :x=x+16:col=71G:nsprite 5grafad=apple:x=16 :#y=72H:col=68D:nsprite ?4grafad=worm:y=104h:col=6:nsprite D4grafad=bird:y=136:col=7:nsprite I+64006,0:64007,32 N64005,5 Sj=(a3+18) Xchecked=0 ]pflag=0 bRHStotal=0 l,23673y\,255:23672x\,0 nfire=0 o7fxd=16:fyd=0:fry=176:frx=0 qVtimer=800 *(skill=1)+4000*(skill=2)+180*(skill=3) 64005,5 j=(a3+15) =""more R23672x\+256*23673y\>timer3700t:fire=5133375/ .checked64006=1283350 " "3205 pflag3300 side z$="2"3200 .01z# =,0 z$="1"3260 x=224 f$(pflag)="3" RHStotal=RHStotal+1 3275 x=16 f$(pflag)="1" checked=0 Cj=apple*(pflag=1)+worm*(pflag=2)+bird*(pflag=3) Mcol=4*(pflag=1)+6*(pflag=2)+7*(pflag=3) y=40(+32 *pflag pflag=0 64001,x 64002,y k=(j/256) j=j-256*k 64003,j:64004,k 64005,col j=(a3+21) RHStotal=33500 3200 þ640153200 .01z# =,20 pflag=64015 %pflag=pflag-3*(pflag>3) 64001,64016 64002,64017 64000,1 j=(a3+21) 64000,0 side #z$="3"RHStotal=RHStotal-1 checked=0 f$(pflag)="."  3200 dead=0 y1=106j gf$(1)=f$(2)y1=74J:y=104h:grafad=worm:col=6:dead=1:3400H %Zf$(3)=f$(2)y=136:grafad=bird:col=7:dead=1Track-Info " N""""""""" :3400H *$deadchecked=1:3200 9sound=(asubs+15) >more Hj=(grafad/256) J(x=16+208*(f$(2)="3") Mk=grafad-256*j O64005,col R64003,k:64004,j W64001,x:64002,y \y=yy1-2 a.001wn,60< f64000,1 kj=(asubs+6) p,64000,0:64002,y-2 uj=(asubs+6) zy  sound=(asubs+12 ) :y=515:1;y,5;25;" ":y :y=480:x=480:col=6:z$="Well Done":big y=88X:x=112p:jump :y=515:1;y,5;25;" ":y 5x=480:y=480:col=5:z$="Your":big 8x=480:y=72H:col=5:z$="keyword":big 9x=480:y=96`:col=5:z$="is APPLE":big 1:400 more tfire=fire+1:64001,frx:64002,fry:64005,150:j=(asubs+9 ):23672x\,0:23673y\,0:64005,5 ufrx=frx+fxd:fry=fry+fyd v9frx=240fry=176fxd=0:fyd=-16 w8frx=240fry=16fxd=-16:fyd=0 x.frxfry=16fyd=16:fxd=0 y )rz$=("1"ƾ64006<64@)+("2"ƾ64006>63?ƾ64006<192)+("3"ƾ64006>191): ="0000000000000000" >"1111110000111111" ?"0000010000100000" @"0003010000102000" A"0003011001102000" B"0003001001002000" C"0003001001002000" D"0003301111022000" E"0003300110022000" F"0003330110222000" G"0003330000222000" H"3333333002222222" q8rotate=6400:drop=64502:plottem=6850 ra4=55664p sIzy=176:zcol=14:zline=6e3p:cw=0:maxsk=3 tskill>maxskskill=maxsk u&1:1:0:6: zs(7,3) |Sz=13*(skill=1)+5*(skill=2)+7*(skill=3)  shape=z 6970:+shape  x1,y1,angle s(z,1)=x1 s(z,2)=y1 s(z,3)=angle y=155-y1:x=x1+20  64006,x1:64007,y1 j=a4:sub1A  plottem 64000,z j=(a4+3):1B z >y=0:x=16:col=6:z$="Build a Bridge":big a$="0000000" R6050*(skill<2)+6060*(skill=2)+6070*(skill>2) b$="1110000" J0;4;5,13 ;"";10 ,13 ;"" j=69 :1;0;6;j,0;13 ;4;"";6;j,18;4;"";6;31;:j xmin=84T:xmax=132 ymin=20:ymax=68D  6100 b$="1111100" A3;5,13 ;"";12 ,13 ;"" j=611 :1;0;6;j,0;13 ;3;"";6;j,18;3;"";6;31;:j xmin=84T:xmax=132 ymin=20:ymax=84T  6100 b$="1111111" I5;5,11 ;"";10 ,11 ;"" j=69 :1;0;6;j,0;11 ;5;"";6;j,20;5;"";6;31;:j xmin=68D:xmax=140 ymin=20:ymax=68D  6100 =+64005,13 :64370r,0 >-64006,120x:64007,24 ?j=(a3+18) Gj=(a3+15) Lz$=:z$=""more Mz$" "6215G Qx=64006 Ry=64007 VSz=17*(skill=3)+5*(skill=2)+3*(skill=1) [kx>s(z,1)+8xs(z,2)+8y0):ctrspd=8:ctr=-1  k=13 rotate:6300 k=199more k=32 drop x1=x1+spd*(j=2)*(x1<208)-spd*(j=4)*(x1>8):y1=y1+spd*(j=3)*(y1<144)-spd*(j=1)*(y1>16)  64006,x1:64007,y1 j=(a4+9 ):move sub3  6300 soundTrack-Info # N######### =(asubs+12 ) skill=skill+(skill<3) Az$=" Well Done! ":y=0:x=0:col=250:big (x=xmin+28:y=ymin+28:jump 0:0: z$="Your keyword is:":y=40(:col=68D:x=0:big:z$="BRIDGE":x=480:col=71G:y=64@:big:j=1200:j more angle=s(z,3)  -angle=angle+1-8*(angle=7) s(z,3)=angle x=x1+20 y=155-y1 :j=(a4+12 ):pick up BG/Clr window for rotate sub4A # plottem (64000,shape -2j=(a4+15):Lift spr_data/Restore BG sub4B .64000,shape 0 25x1>xminx1yminy1s(shape,2)=y1 ?s(shape,3)=angle @64006,x1 A64007,y1 Fj=(a4+12 ):sub4A Gx=x1+20 Hy=155-y1 K plottem P64000,shape Uj=(a4+15):sub4B Za$(shape)="0" _62008:Get_init d364478sound=(asubs+15):6300 ia$(shape)="1" ss(shape,1)=x1 xs(shape,2)=y1 }(a$="1110011"skill=26355 a$b$62008  6355 6890+10 *shape  8 c=angle/4* s=c c=c d k=-(d/2)  j=1d  zy1,zy2  xa=x+k*c-zy1*s:ya=y+k*s+zy1*c  xb=x+k*c-zy2*s:yb=y+k*s+zy2*c xa,ya:(xb-xa),(yb-ya)  k=k+1 j   24 (-16,15,-15,15,-14,15,-13 ,15,-12 ,15,-11 ,15,-10 ,15,-9 ,15,-8,15,-7,15,-6,15,-5,15,-4,15,-3,15,-2,15,-1,15 0,15,2,15,4,15,6,15,8,15,10 ,15,12 ,15,14,15  29 -9 ,-9 ,-9 ,-8,-9 ,-7,-9 ,-6,-9 ,-5,-9 ,-4,-9 ,-3,-9 ,-2,-9 ,-1,-9 ,0,-9 ,1,-9 ,2,-9 ,3 -9 ,4,-9 ,5,-9 ,5,-9 ,5,-9 ,6,-9 ,6,-9 ,6,-9 ,7,-9 ,7,-9 ,7,-9 ,8,-9 ,8,-9 ,8,-9 ,9 ,-9 ,9 ,-9 ,9  14  -8,-7,-8,-5,-7,-3,-7,-1,-7,1,-6,3,-6,5,-6,7,-5,7,-5,7,-5,7,-4,7,-4,7,-4,7  14 -6,10 ,-7,10 ,-8,10 ,-9 ,10 ,-10 ,10 ,-10 ,10 ,-10 ,10 ,-9 ,10 ,-9 ,10 ,-9 ,10 ,-8,10 ,-8,10 ,-8,10 ,-7,10 ,-7,10  14 -6,5,-6,4,-6,3,-6,2,-6,1,-6,1,-6,1,-6,2,-6,2,-6,2,-6,3,-6,3,-6,3,-6,4,-6,4 ' 29 (-3,3,-3,3,-3,3,-3,3,-2,3,-2,3,-1,3,-1,3,0,3,0,3,1,3,1,3,2,3,2,3,2,3,2,3,2,3,2,3,1,3,1,3,-1,3,-1,3,-3,3,-3,3,-3,3,-3,3,-3,3,-3,3,-3,3 1 29 2-6,1,-6,1,-6,1,-6,1,-6,2,-6,2,-6,3,-6,3,-6,4,-6,4,-6,5,-6,5,-6,6,-6,6,-6,6,-6,6,-6,6,-6,6,-6,4,-6,4,-6,2,-6,2,-6,1,-6,1,-6,1,-6,1,-6,1,-6,1,-6,1 ;24,24,5 <24,80P,0 =64@,136,6 >108l,136,3 ?192,136,7 @192,80P,1 A192,24,2 YJgreek=57408Track-Info $ N$$$$$$$$$ @:dial=58720`:key=58880:button=58656 Zezline=7004\:zcol=71G:zy=0:cw=7700:maxsk=2:skill>maxskskill=maxsk [7431:7600 ]6:6:7: b?z$="Mystery Machine":x=4:y=0:col=15:big g 7900 l 7800x v 7200   byeskill=17300  byemore skill>17400 -rightsound=(asubs+15):7080 sound=(asubs+12 )  ;y=0:x=480:col=23:z$="Well Done!":big =z$="Your keyword":y=64@:x=0:col=491:big =col=480:y=88X:x=0:z$="is: SWITCH":big  x=112p:y=144:jump more  ! bye=0 %j64015,0:64006,0:64007,80P:64370r,0:64005,0 *j=(a3+18) /'64005,0:j=(a3+15) 1=13 ƾ64015 5=""bye=1: 7" "7215/ 9:64007<80Pž64007>1517215/ :/py=((64007+7)/16)-5 ;'px=((64006+7)/16) <,a$(16*py+px+1)=" "7215/ >.01z# =,20 ?j=(a3+24) C""7235C Gz$=:z$=""7239G Hz$=" "7261] I+z$<"A"(z$>"Z"z$<"a")z$>"z"7235C Mb$=a$(16*py+px+1) R'j=04:k=015 Wra$(16*j+k+1)=b$y=16*j+80P:x=16*k:col=15:big:a$(16*j+k+1)=z$ \k:j ]'64000,0:j=(a3+18) a 7215/ z$="" item=0 j=64015  pflag=j *.001wn,60<:.002xn,502  z$=z$+j  7860 item=item+1 item=57400 '64005,0:j=(a3+15) =""bye=1: a64007>64@64008,0:64009 ,254:j=(a3+27):7330 /þ64015(13 Ʀ" ")7330  64015=pflag7330 j=1̱z$ !z$(j)<"3"z$(j)>"6"7360 764015>2ƾ64015<77330 j  7305 !64015=z$(j)7330 j  7305  skill>1right=(u$=a$): right=1 Tz$(2)"12"z$(4)"78"z$(3)<"3"z$(3)>"6"right=0  "turn green key" "pull blue lever"  "turn yellow dial"  "pull green lever"  "push blue button" u$(80P) j=165A16 z$:u$(jj+15)=z$ j   >col=480:y=0:x=0:z$="Current Instr.":big 5j=1:x=0:y=480112p16 #z$=u$(jj+15) (col=491:big -j=j+16:y 2=y=176:col=15:x=0:z$="Change(1,5 or n)" 7big <z$=:z$="n" =z$<"1"z$>"5"7740< >j=z$*16 A)z$="(max length 15) ":col=6:big FVspflg=1:length=15:y=152:col=15:alphainput:spflg=0 K!u$(j-15j)=x$:7700 } 7431 a$(80P) j=04 Hskill=maxskz$=u$(16*j+116*j+16):7821 z$ k=0̱z$-1 z$(k+1)=" "7850 5a$(16*j+k+1)=(z$(k+1)-32 ) 5grafad=greek+32 *(z$(k+1)-97a) 3col=15:x=k*16:y=j*16+80P  nsprite k:j  k=(a3+24):rub robot 7862+2*j Ty=32 :x=184:col=0:grafad=key-32 :nsprite:7880 |8;7;6,5;" ";7,5;" ";1;8,4;"";9 ,4;"":7880 Qgrafad=dial-32 :y=24:x=128:col=0:nsprite:7880 ŀ8;7;6,27;" ";7,27;" ";8,28;4;"";9 ,28;"":7880 Fcol=0:y=32 :x=568:grafad=button-32 :nsprite k=(a3+18)  ,79906:j="a""c"-1:k:j,k:j Z2;6;7,2;"";2;7;29;6;2;"" Z2;6;8,1;"";2;7;30;6;2;"" Z2;6;9 ,0;"";2;7;31;6;2;"" Bj=26:j,3;0;7;28;" ":j ?j=10 21:j,0Track-Info % N%%%%%%%%% ;1;" ";31;" ":j Agrafad=dial:y=24:x=112p:col=70F:nsprite Jgrafad=dial+32 :y=24:x=128:col=70F:nsprite Jgrafad=dial+64@:y=40(:x=112p:col=70F:nsprite Jgrafad=dial+96`:y=40(:x=128:col=70F:nsprite Q0;4;4,22;"";5,22;0;4;"" ?grafad=key:y=32 :x=184:col=4:nsprite Agrafad=button:col=5:y=32 :x=568:nsprite =8;1;6,5;"";7,5;"" ?8;4;6,27;"";7,27;"" j=64210  7981- .k:j,k:k255j=j+1:7964 , .184,32 ,36$,480,112p,24,128,24,112p,32 ,128,32 ,212,480,568,32 / 255 50ptr,x:ptr+1,y:ptr=ptr+2:nsprite 7H1,3,7,15,31,63?,127,255 8Q128,192,224,240,248,252,254,255 #764002,y #8 whatxwas=x #964005,col:col=0 #<z=1̱z$ #A64000,z$(z) #F64001,x #K'x=x+16+0*(asubs+3) #Pz #Rx=what x was #U #_numflag=1 #dinput #ifigure=("0"+x$) #m #pnumflag=0 #|.blank=57200p:teddy=60800 #} whatxwas2=x #~Pc2=col:c4=64@*(col/64@):c3=6+c4+8*((col-c4)/8) #(.07}\(,12 :.07}\(,12 # x$(length) #place=1 #"xend=x+16*(length-1) #grafad=blank #x=xxend16 #col=c2:nsprite #x # x=whatxwas2 #grafad=teddy #+col=c3*(xxend)+6*(x>xend):nsprite #-z=120:z$=:z$""9200# #z #=x>xendx$(place)=" "grafad=blank:nsprite:9155# #col=c2:z$=x$(place):big #0z=115:z$=:z$=""z:9130# #z$=13 9305Y$ #z$=12 9275;$ #z$=""more #x>xend9130# #z$"0"z$"9"9250"$ #num flag9130# $spflgz$=" "9250"$ $-z$<"A"(z$>"Z"(z$<"a"z$>"z"))9130# $"x$(place)=z$ $$.07}\(,12 $' col=c2:big $,place=place+(place1) $<x$(place)=" " $@grafad=blank $E nsprite $Ox=x-16*(x>whatxwas2) $T .07}\(,12 :9130# $Yplace=1:z$=" " $^x=whatxwas2xend16 $cx$(place)=" "col=c2:big $hplace=place+1:x $jbig $m.07}\(,12 $r x=whatxwas2 $| $ghi=(grafad/256) $64005,0 $64000,1 $64001,x:64002,y $364003,grafad-256*ghi:64004,ghi $"0,0*(asubs+6) $U64005,col:col=0:64000,0:0,0*(asubs+6) $ $fz=13:col=5:grafad=bigted1:fours:col=5:grafad=bigted2:fours:z $tune $grafad=space:fours $ $tune $note:note=99c $.1}L,note:9395$ $16,16,13 ,14,14,18,16,16,13 ,9 ,9 ,13 ,11 ,11 ,13 ,14,14,11 ,16,16,13 ,9 ,9 $ 99c $64001,x:64002,y $ghi=(grafad/256) $364003,grafad-ghi*256:64004,ghi $M64005,0:64000,1:0,0*(asubs+18) $64005,col:col=0 $64000,0 $#0,0*(asubs+18) $ %z$="Another Go Y/N ?" %x=0:y=zy:col=zcol %big %z$= % z$=""cw9486%:zline % z$=""maxsk600X:zline % z$="Y"z$="y"zline % z$"n"z$"N"9480% %  %cw>1cw %0:0: %>z$="Current words:":y=0:x=0:col=70F:big % y=16 %j=110 % x=32 %(z$=(j-1)+".":col=68D:big %x=x+40( %&z$=u$(j*10 -9 j*10 ) %col=71G:big %y=y+16 %j %Bz$="Are these OK Y/N":y=176:x=0:col=15:big % z$= %!z$="y"z$="Y" %"z$"n"z$"N"9504 % %$*z$="Change: 0 to 9 ?":col=69E:big %&z$= %(z$<"0"z$>"9"9510&% %) word=z$ %*)z$="Track-Info & N&&&&&&&&& Word: ":col=5:big %,col=15:length=10 %- x=80P %. alphainput %05u$(word*10 +1word*10 +10 )=x$ %2z$=x$ %3y=word*16+16 %4 x=72H %5col=71G:big %8 9502% %<u$(100d) %>j=191[10 %@z$ %Bu$(jj+9 )=z$ %Dj %F %P"j=(*10 )*10 +1 %Rw$=u$(jj+9 ) %S.w$(w$)=" "w$=w$(̱w$-1):9555S% %T akilsubaxsyxohatxwa<#nkZA5npu|#i2#lphainpun#umberinpuZ#sprit$azedraour$un$um$or%efaultword:%ickworN%pfligtedigtedicros`pacp ,36$,480,112p,24,128,24,112p,32 ,128,32 ,212,480,568,32 / 255 50ptr,x:ptr+1,y:ptr=ptr+2:nsprite 7H1,3z$(u),1):col=g(z$(u),2):nsprite "u:z " "Another go "z$="Another Go Y/N ?" "x=0:y=zy:col=zcol "big "z$= "z$=""cw8989#:zline "!z$=""maxsk1639g:zline "z$="Y"z$="y"zline # z$"n"z$"N"8929" # #Change words #'0:0: #1>z$="Current words:":y=0:x=0:col=70F:big #; y=16 #Ej=110 #O x=32 #Y(z$=(j-1)+".":col=68D:big #cx=x+40( #m&z$=u$(j*10 -9 j*10 ) #wcol=71G:big #y=y+16 #j #Bz$="Are these OK Y/N":y=176:x=0:col=15:big #z$= #z$="y"z$="Y" #z$"n"z$"N"9119# #*z$="Change: 0 to 9 ?":col=69E:big #z$= #z$<"0"z$>"9"9159# # word=z$ #)z$="Word: ":col=5:big #col=15:length=10 # x=80P $ alphainput $ 5u$(word*10 +1word*10 +10 )=x$ $z$=x$ $!y=word*16+16 $+ x=72H $5col=71G:big $? 9109# $IDefault user words $Su$(100d) $]j=191[10 $gz$ $qu$(jj+9 )=z$ ${j $ $Pick user word in w$ $"j=(*10 )*10 +1 $w$=u$(jj+9 ) $.w$(w$)=" "w$=w$(̱w$-1):9389$ $ kilsubaxsyZ fun school 2xPohatxwa  <#pha numflag=0 INPUT Alpha/Num  nM3,15,63?,255,255,255,255,255 oQ255,254,252,248,240,224,192,128 pH255,127,63?,31,15,7,3,1 qa0,1111110~,255,255,1100110f,1100110f,1100110f,0 rE0,0,255,255,0,0,0,0 sy1110008,1111100|,11101100,11000110,1101110n,1111100|,1111100|,1110008 xP_List square coords y16,160,32 ,144,104h,112p,120x,112p,136,112p,208,144,224,160 z0,0 {Block disps |102f,103g,104h,105i,115s,116t,117u,122z,123{,124|,130,141,145,158,160,175,0 }Room/door map ~"xx85","0090" "x3xx","0500" "x53x","0490" "2641","3599" "37xx","4900" "xx62","0029" "5873","9249" "69x4","9902" "0x96","1029" "8xx7","9005" Souvenirs cls5=5650 "flg2=5598:flag=5700D azline=5e3:zcol=41):zy=0:cw=0:maxsk=4:skill>maxskskill=maxsk 0:0:6: ;z$="Souvenirs":col=491:y=0:x=112p:big 8720":draw map 5660:ferry  e(3) s(8,2)  5990f a$="ABUFGHIS" j=18 s(j,1),s(j,2)  x=s(j,1):y=s(j,2) col=15:z$=a$(j) big j Graf walker init )64006,s(3,1)-12  64007,s(3,2) 64210,255 64370r,0 64005,69E skill=maxsk5530 j=(a3+18) Qcash=30*(skill=1)+25*(skill=2)+20*(skill=3) z$="`"+cash -col=71G:y=160:Track-Info ' N''''''''' x=104h:big guessleft=3 country=3 y=19:x=26:flag f$="00000000"  p(3)  Frame 9y=480:x=136:col=69E:z$="Press:":big +y=72H:col=68D:z$="ABUFG":big -y=96`:col=68D:z$="HI or S":big Which place z$=:z$=""more z$>"S"z$=(z$-32 )  z$<"A"z$>"U"5125 Detailed check j=18 z$=a$(j)5150 j:5125 Neighbours? Xb$="GIS UFGH BFH BUIS ABFHSBUG AFS AFGI "(country*5-4country*5) # k=1 (b$(k)=z$5200P 2*b$(k)" "kɱb$k=k+1:5160( 7'.01z# =,0:.2~L,-12 < 5125 Pcheck not revisiting Rf$(j)="1"51757 TValid move... U country=j _+64009 ,0:64005,69E dox=64006 ix=s(country,1)-12 nxd=2*(x-ox) s64008,xd w Walk x x.64006xj=(a3+27):5240x }oy=64007 y=s(country,2) yd=2*(y-oy) 64008,0 64009 ,yd .64007yj=(a3+27):5265 Arrived! cls5 y=19:x=26:flag 4country=35400:back in ole' blighty! 5895+5*country %e(1),e(2),e(3),c$ exrate=e(skill) x=128:y=16 j=13  z$,p(j) col=3+j:big y=y+16 ?x=144:col=67C:z$=c$((c$>1)+1):big )x=192:col=7:z$=p(j):big x=128:y=y+16 j sy=112p:x=128:col=69E:z$="`1="+exrate:big:z$=c$:y=128:x=176:col=69E:big  Buy z$= z$=""more z$<"1"z$>"3"5305 .01z# =,20 cash=cash-p(z$)/exrate 2cash<05500|:run out of greenbacks! Flag 'visited' f$(country)="1" cls5  z$=" " -y=160:x=120x:col=71G:big #z$=((100d*cash)/100d) col=71G:big  5100 Check for Win "f$="11011111"54306 #cls5 $6z$="Not":col=23:y=480:x=136:big &:z$="visited":col=23:y=72H:x=136:big (6z$="all":col=23:y=96`:x=136:big *:z$="places":col=23:y=120x:x=136:big +sound=(asubs+15) , 5600 5Check cash 6cash10 5450J 7cls5 86z$="Too":col=23:y=480:x=136:big :7z$="much":col=23:y=72H:x=136:big <8z$="money":col=23:y=96`:x=136:big >8z$="left":col=23:y=120x:x=136:big ?sound=(asubs+15) @ 5600 I WON! J7z$="Well":y=480:x=152:col=22:big L7z$="Done":y=68D:x=152:col=22:big Nsound=(asubs+12 ) Py=96`:x=168:jump T0:6: Y=z$="Your keyword":col=15:y=480:x=0:big ^?z$="is: PASSPORT":col=71G:y=72H:x=0:big cj=1500:j h 5600 | No Cash cls5 ;z$="You have":y=480:col=23:x=128:big :z$="RUN OUT":y=72H:col=23:x=136:big ;z$="of money":y=96`:col=23:x=128:big sound=(asubs+15)  5600 New game <64006,0:64007,0:j=(a3+18) country=1:y=2 /x=18:flg2:country=75535 +country=country+1:x=26:flg2 2y=y+5:country=country+1:5532 Bz$=" Press 1 to 7 ":col=68D:y=176:x=0:big z$=:z$=""more z$<"1"z$>"7"5537  country=z$ *64005,5:64009 ,0 Fx=s(country,1)-12 :64008,2*(x-64006) C64006xTrack-Info (N''''''''' Track-Info )N'''''''''