ZXTape! 0Created with Ramsoft MakeTZXschool A ''t ) 0:0:0:  53999 "" # 65000 %""65001 (z$=" Fun School 2" 22y=20:x=20:col=15:9000(# <z$="For ages under 6" 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 A 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 BRTA  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 A KKSgK; Hard work by Alan Mellor, 1988.  65001 skill=1 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 v90102#:big x"y=y+16+8*(j=4) 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% 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 (j*j)+(500*j) Load next menu  590N  y=014416 z$:x=0:col=6  z$"*"big y &0:0:19,0; z$=:z$=13 "" !z$" "540 & N"This program is" O"on the other" P"side of the tape","*" Q"Turn tape over," R"REWIND,and press" S"ENTER to load.","*" T"SPACE to return" U "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 ""   Title block 1000,"shape snap" 2000,"find the mole" 3000 ,"teddy count" 4000,"write a letter" 0,"pick a letter" 0,"spell a word" 0,"colour train" 0,"teddy's picnic" Shape Snape skill>4skill=4 Jmaxsk=4:cw=0:zline=1000:zy=176:zcol=15 oval=1810:pillar=1522:blob=1722:isoss=1582.:square=1510:rectangle=1540:star=1660|:triangle=1600@:circle=1740 0:0:6: z$=" shape snap " )col=97a:y=4:x=0:big *23672x\,0:23673y\,0  ct=0 skill>21200 'range=5+4*(skill=2) LLevel ONE shape picker Qa=(*range) Vb=a `>.2~Lb=(*range) j y=64@ t x=80P ~1490+a  x=176 1490+b  1300 Level 2 LETTERS a=(*26) lcl1=(*6)+1 lcl2=lcl1:b=a >.2~Lb=(*26) 7balcl2=(*6)+1:lcl1=lcl21216 @z$=(97a+a-32 *((skill=4)*(>.5)*(ab))) 'y=72H:x=80P:col=lcl1:big @z$=(97a+b-32 *((skill=4)*(>.5)*(ab))) (y=72H:x=144:col=lcl2:big *z=13:.08}# =,20:z 1:0 (z$= -z$=""1480 2z$" "1400x 3 Match ? 6a=b1350F 7ty=136:x=112p:grafad=cross:col=250:nsprite:sound=(asubs+15):ct=ct-1:1450 <Got it right! F=y=128:x=24:grafad=tick:col=68D:nsprite K0col=67C:x=480:z$="Well Done!":big Lsound=(asubs+12 ) Py=152:x=96`:jump Uct=ct+1 Z 1450 xNo match }a=b13357 Right, but no teddy >y=136:x=112p:grafad=tick:col=68D:nsprite ct=ct+1 sound=(asubs+12 ) Fa=621:a,0;" ":a <23672x\+256*23673y\<50001040 Another go... Hskill=skill+(skill<4)*(ct>2)-(skill>1)*(ct<-1) more Grafs subs col=2:triangle col=6:square col=4:circle col=5:star col=7:rectangle col=3:pillar col=1:oval col=3:blob col=4:isoss  Square zh=5:zw=zh  1550 Tall Rectangle zh=5:zw=2  1550 Rectangle zh=5:zw=9 (z=(y/8)̺(y/8)+zh-1 2z,(x/8-zw/2);col;" "(zw) "z , -Isoceles (wow!) tri. .wsf=.5 / 1605E 6UP triangle @ wsf=1 Ez=039' J'col;x-(z*wsf/2),175-y-z Tcol;z*wsf,0 ^z h r Star |zh=y:y=y-5 z=039' #col;x-(z/2),125}-y+z col;z,0 z  1600@ y=zh  Small circle  rds=8  1745  Circle rds=20 z=0rds-1 zh=(rds*rds-z*z) col;x+z,155-y+zh col;0,-zh-zh col;x-z,155-y+zh col;0,-zh-zh z   Ellipse z=030 zh=(900-z*z) &!col;x-z,155-y+zh/2 0col;0,-(zh) :!col;x+z,155-y+zh/2 Dcol;0,-(zh) Nz X Mole Hill  0:0::2981 Jmaxsk=0:zy=176:zcol=69E:cw=0:zline=2025 z="a""m"-1 j:z,j z *23672x\,0:23673y\,0 0:4:0: 9y=07:y,0;5;31;" ":y >x=24:y=0:col=46.:z$="find the mole":big 4 Try 9s(5,2) @"2950 +10 *(*4) Hj=15 Mx,y Ox=x+(*3)-1 Py=y+(*3)-1 W s(j,1)=x:s(j,2)=y \hill=j a$col="12367"((*5)+1) f 2800 kj pk=(*5)+1 u1:0 wz$=""2540 zz$= z$<"1"z$>"5"2165u z$=k2500 z$,111101=,1111011{,1111010z i255,255,255,111100<,10111101,10111101,111100<,111100< e0,192,240,248,1111100|,10111100,11011110,1011110^ r1111100|,255,255,11111101,1111110~,10101110,1110111w,11111011 ^1111110~,11010111,11010111,255,254,0,1,255 g111110>,255,255,127,255,11110101,11101110,11011111 M4,2,34",64@,8,4,160,4,0 E128,32 ,4,0,64@,0,2,0 Teddy Count Jzy=176:zcol=70F:cw=0:maxsk=3:zline=3000 Rsetteddies=a3:teddydance=a3+3:lineup=a3+6:moveintoline=a3+9 cls3=3900< ct=0 0:0:6: col=0 skill>3skill=3 Tj=04:1;1;7-3*(j>1);31;" ":j z$="teddy count" y=0:x=32 :big  n=110 9howmany=(*3*skill)+1:64000,howmany j=set teddies %k=1100d:j=teddy dance x$= x$""k=101e k j=line up+move into line Two guesses guess=1 bcol=68D:z$="How":y=112p:x=144:big:z$="Many?":col=5:y=128:big .y=160:x=144:length=(howmany) %grafad=space:col=79O:nsprite *(x$<"1"x$>"9")x$""x$=:3057 x$=""more 3y=160:x=144:z$=x$:col=0:big =z$=" ":y=112p:x=144:big:y=128:big x$=howmany3115+ :right WRONG! x$="" *x=152+length*16:y=160 grafad=cross col=186:nsprite "sound=(asubs+15):brr brr 0guess=33500 :3150N :next go 'guess=13550 :3095  3600 @col=25:z$="No,try again!":x=32 :y=112p:big 1:200 !&col=6:z$=" ":big "*x=152+length*16:y=160 #(col=6:grafad=space:nsprite &-guess=guess+1:3045 :try again! *RIGHT!!! +*x=152+16*length:y=160 0grafad=tick 5col=68D:nsprite :sound=(asubs+12 ):zap ?Hcol=69E:z$=howmany+" is RIGHT! ":y=160:x=32 :big Dy=112p:x=480:jump F=y=20:x=4+ct*24:grafad=tick:nsprite Ict=ct+1 Ncls3 Sn T End Bit Xcls3 ]?z$="Out of 10 goes":y=480:x=0:col=86V:big b;z$="You scored":y=72H:x=0:col=86V:big g4z$=ct:y=72H:x=176:col=79O:big hEct=0sound=(asubs+15):502:3200 :end game lct=10 x=32 :y=96`:col=231:z$="WELL DONE !":big:sound=(asubs+12 ):x=0:y=144:jump m%ct<10 j=1200:j qcls3 v_64000,ct:j=set teddies:n=1100d+30*(10 -ct):j=teddy dance:n {Cskill=skill+(skill<3ct>6)-(skill>1ct<3) more tz$="There "+("was "howmany=1)+("were "howmany>1)+howmany:col=70F:y=112p:x=0:big fz$="tedd"+("y."howmany=1)+("ies."howmany>1):col=70F:y=128:x=0:big 1:250: .j=024*howmany-2424 d64005,70F:64001,j:64002,40(:64000,1:k=(asubs+6) m64002,568:64000,0:64003,160:64004,237:k=(asubs+6) +.01z# =,30:k=110 :k j  .j=0howmany*24-2424 p64000,j/24+491:64001,j:64002,80P:64005,15:k=(asubs+3) +.01z# =,31:k=125:k j $ <Local CLS! Acj=521:j,0;0;6;0;" ":j: teddy=60800 Hmaxsk=0:cw=0:zy=4:zcol=41):zline=4000 0:0:6: @col=502:z$=" write a letter ":y=4:x=0:big Init Bit! &yt=0:xt=0:text coords! t$(16,7) " txc=5 hMain Typing Loop |(y=(yt+1)*24:x=xt*16 Flash loop (grafad=teddy:col=0:nsprite -a=110 :z$=:z$""4280 a 0col=0:z$=t$(xt+1,yt+1):big 0a=110 :z$=:z$=""a:4230 Key Pressed! .05|L,12 ;z$=""txc=txc+1-7*(txc=7):4230 !z$=13 44000:enter z$=74800:copy z$=""more "z$=12 4500:delete 2z$>7z$<12 4600:cursor key t$(xt+1,yt+1)=z$ col=txc:big Nudge Cursor 5xt=(xt+(xt<15))*((xt<15)+(yt=6))  yt=yt+xt  4200h 0 Enter 50z$=t$(xt+1,yt+1):col=0:big :xt=xt*(yt=6) Dyt=yt+(yt<6) N 4200h  Delete 0z$=t$(xt+1,yt+1):col=0:big  yt=yt-xt .xt=xt+(16*(xt)-1)*(yt+1) yt=yt+(yt=-1) t$(xt+1,yt+1)=" "  4200h Curse a key  :xd=(((z$=9 )*(xt<15))-((z$=8)*(xt))) ;yd=(((z$=10 )*(yt<6))-((z$=11 )*(yt)))  0z$=t$(xt+1,yt+1):col=0:big *xt=xt+xd:yt=yt+yd 4 4200h Blank bear & Copy! z$=t$(xt+1,yt+1) col=0:big   4200h #( #)Common Subs Block! #* #- #.Hi to all hackers! #/If you sort out how #0my toolkit works,its #14yours!! Try its vars at 64000 on for a starter! #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=6:grafad=bigted1:fours:col=6: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=480 %(z$=(j-1)+".":col=68D:big %x=x+40( %$z$=u$(j*6-5j*6) %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$="New word ":col=5:big %,col=15:length=6 %- x=144 %. alphainput %02u$(word*6+1word*6+6)=x$ %2z$=x$ %3y=word*16+16 %4 x=88X %5col=71G:big %8 9502% '  ' 10 ' 10 kilsubaxsyxohatxwa<#nkZ1.shape snap CMA '_+'Õëü.!+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  ;7|~w80>~ x0p`0 ;7|~w80>~ ???~|88xp|>88` @p`@@@p@@@  8` p ` @p` p `@@@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@FFOOOOFFFͭ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===o=@:(22r222v22<2xW O xW xW