ZXTape! 2%Fun School 2 for the Over-8s - Side BDatabase Publications Ltd1989English EducationalNoneOriginal ReleaseTZXed by Fraser Rossschool B ))w+ 0:0:0:  53999 "" # 65000 % ""65001 (z$=" Fun School 2" 22y=20:x=20:col=15:9000(# <z$="For ages 8 to 12" F$y=64@:x=0:col=6 P 9000(# Z?21,0;5;" Database Educational Software" d=15,10 ;1;2;7;"Please Wait" n"" #(64002,y #264005,col #<z=1̱z$ #F64000,z$(z) #P64001,x #Z#x=x+16+0*62979 #dz #n B kú-: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ɘ=^H:(22r222v22<2xW O xW xW BRTB D OWW*@>2@:@C@@2@"@!! u[t\++ut++uhti++++uwtx*=\q#pe{=\!:\~1:822q\2`\~6!" \:D\*B\(:G\*E\<2p\"n\G' (x('2D\"B\>2G\!"E\v*=\6#6PROG B p~o~ p 65001 skill=1 dMain Menu easubs=62976 fmaxsk=5 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=4)+(j=0)) zj z$= z$=""600X:100d z$<"1"z$>"8"140 .01z# =,30 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 ,Clear MC vars 6j=(asubs+39') Run Prog-at last! 990+z$ 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 10 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 ""   0,"Build a Bridge" 0,"Guardians" 0,"Unicorn Quest" 0,"MysteryMachine" 4000,"Logic Doors" 5000,"Souvenirs" 6000p,"Code Boxes" 1000,"Escape"  1090B  :y=0 Fa=18:z$:col=68D:x=0:big:y=y+16:a &0:0:19,0; z$= z$=13 "" z$" "1040 $ 10 Bb"This program is","next on the tape","","Press ENTER to","load.","","SPACE to return","to menu." 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:y=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 64005,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:5536  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",300, 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+12 ) >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 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 #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 ' 10 ' 10 kilsubaxsyxohatxwa <#nknpu|#i2#lphainpun#umberinpuZ#sprit$azedra$our$un$um$or%efaultword:%ickworN%igtedigtedicros`pacp Z CMB ''Õëü.!+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??{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 >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===ox=P:(22r222v22<2xW O xW xW escape ))+ 0:0:0:  57000 "" # 65000 % ""65001 (z$=" Fun School 2" 22y=20:x=20:col=15:9000(# <z$="For ages 8 to 12" F$y=64@:x=0:col=6 P 9000(# Z?21,0;5;" Database Educational Software" d=15,10 ;1;2;7;"Please Wait" n"" #(64002,y #264005,col #<z=1̱z$ #F64000,z$(z) #P64001,x #Z#x=x+16+0*62979 #dz #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ɘ=^H:(22r222v22<2xW O xW xW brt  OWW*@>2@:@C@@2@"@!! u[t\++ut++uhti++++uwtx*=\q#pe{=\!:\~1:822q\2`\~6!" \:D\*B\(:G\*E\<2p\"n\G' (x('2D\"B\>2G\!"E\v*=\6#6PROG =7f !?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@,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/wrong 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$ $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% % 0 %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 ' 100d ' 100d subnpu|#i2#lphainpun#umberinpuZ#sprit$azedra$our$un$um$or%efaultword:%ickworN%igtedigtedicros`pacpre:"lsZEscapeoyxhatxwaPkaxslin@co1ooN4123ooRxxcxD0910K0000100111010011M XUQZ 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!! ?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