EXTENDED CPC DSK File Disk-Info CPDRead v3.24*Track-Info  N Track-Info  N PIC BIN7 !+./U8 2B  U8 2A ,01RSTUVWXYZ[\]U8 2B ?CODE2A H"#$%&'()*U8 BAK-23456789:;<=>U8 BAKh?@ABCDEQijklmSCHOOL U8 2A h^_`abcdefghnoCODE2B WFGHIJKLMNOPU8A QU8B RU8 BAKjabcdefghijklmuSCHOOL BAKqPLUS3DOS@?Ea`0?a0wa?@a`0w8a0w?aPa`0w8a0w8y?)Pa`0w8a0w8PLUS3DOS_^]a=65000 *a>4a<9 65000,0 skill=1 asubs=62976 maxsk=5  a>4a<9 147 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$=" STEP "600X:100d a$=:a=a$-480 a<1a>8140 Na<565000,a:1 ;20,10 ;"LOADING...":"u8.2a" .01z# =,30 a3=60928 asubs=62976 input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nsprite=9350$ fours=9405$ tune=9390$ jump=9375$ more=9475% defaultwords=9530:% pickword=9550N% bigted1=60416 bigted2=60544 tick=60288 cross=60256` space=57200p 6j=(asubs+39')  990+a j (j*j)+(500*j)  590N  y=014416 z$:x=0:col=70F  z$"*"big y &0:0:19,0; z$=:z$=13 "" !z$" "540 & NTrack-Info  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   "code2B"  PLUS3DOSs@srJa=65000 *a>0a<565000,0 skill=1 asubs=62976 maxsk=5 a>0a<5147  100d ij=(asubs+39'):j=64018:k=64210:64000,0:z=011 :=""more (*z$:u=015:e$=z$(u+1) -(e$="1"z<11 j,1:90Z 02e$="0"64005,14:z4=stone:80P 2ce$="2"64005,15:k,16*u:k+1,16*z:k=k+2:z4=robot:80P 4He$>"2"64005,76L:z4=lily1+32 *e$-96`:80P 6pj,1:64005,14:64001,u*16:64002,z*16:z4=(asubs+9 ):90Z P64001,u*16:64002,z*16:64004,(z4/256):64003,z4-256*64004:z4=(asubs+6) Zj=j+1:u:z: d 0,"Number train" 0,"Shopping" 0,"Caterpillar" 0,"Maths Maze" 3000 ,"Treasure Hunt" 1000,"Bounce" 4000,"Packing" 8000@,"Number Jump" map=53801) Jzline=1000:cw=0:maxsk=5:zy=176:zcol=14 apple=3  Capy=(*8)+1:apx=(*(14+apy+apy))+9 -apy  bye=0  1900l  byemore  1800  apy,apx;4;1;"" 8guessleft=4 Lx=16:xd=0 VD20,x;6;"";21,x-xd;5;""(xd+2) _=" "1180 ` =""more a%j=(asubs+42*):j1119_ g$20,x;" ";21,x-xd;" " j2x=x-(j=4x>5)+(j=2x<26) o6xd=xd-(j=3xd>-1)+(j=1xd<1) t 1110V y=20:yd=-1 21,x-xd;" " (z=1200:=""1600@ x=apxy=apy1500 'z>180j=1z-180:j  xa=x:ya=y x=x+xd:y=y+yd y>211400x j=map+32 *y+x ;þj8;1;ya,xa;"";y,x;"":z:1235 .01z# =,30:j=j k=((yd=1)xd)+2*((yd=1)(xd=-1))+3*((yd)(xd=-1))+4*((yd=-1)(xd=-1))+5*((yd=-1)xd)+6*((yd=-1)(xd=1))+7*((yd)(xd=1))+8*((yd=1)(xd=1)) &k=2*(e$(k+j*8-8)) xd=x$(k-1k) yd=y$(k-1k)  x=xa:y=ya '8;1;ya,xa;"";y,x;"" z y,x;1;""  1406~ }ya,xa;1;"" '.05|L,0:.5,-12 guessleft=guessleft-1 guessleft1100L sound=(asubs+15) skill=skill-(skill>1)  1525  y,x;" " sound=(asubs+12 ) <y=64@:x=480:z$="Well Done!":col=41):big y=32 :x=112p:jump 1skill=skill+(skill<5)*(guessleft>2) apple=apple-1 apple1030 Jmore  skill=1  D1780+24*(skill=2)+skill*10 *(skill>2)  x=(*12 )+8  16,x;5;"" 1z=map+x+512map+x+515:z,1:z (apy=5:apx=(*24)+4  x=(*21)+4 7,x;6;"" 1z=map+224+xmap+227+x:z,1:z 7apy=5:x>7x<13 ƥ>.5apx=x: 3x>15x<21ƥ>.5apx=x+3: <apx=(*20)+6:xapxapx.5c=map+437:x=13 17:x,34"-x;1;2;"":c,4:c+1,3:c=c+31:x::c-31,19:c-154,17:  c=map+430:x=1418:x-1Track-Info  N ,x;6;"":c,5:c+1,6:c=c+33!:x::c-32 ,18:c-165,16: ' 1810 ( 1820 m,1942:j="a""l"-1:k:j,k:j oC:z$=" Bounce ":y=176:x=16:col=14:big qj=53000 r 3 v7;"" w06;"";6;24;3;"" x05;"";6;25;3;"" y04;"";6;26;3;"" z03;"";6;27;3;"" {02;"";6;28;3;"" |j=18 }.2;"";6;29;3;"" ~j 02;"";6;28;3;"" 03;"";6;27;3;"" 04;"";6;26;3;"" 5;"";6;25;3;""'5;"";6;25;3;""'4;"";6;26;3;""'3;"";6;27;3;""'2;"";6;28;3;"" 7e$="547218365876143256187234367812545678321476581234" x$=" 0-1-1-1 0 1 1 1" y$=" 1 1 0-1-1-1 0 1"  M255,255,0,206,206,206,0,255 M255,255,0,206,206,206,0,255 X17,254,1000100D,1001000H,240,32 ,64@,128 W10001000,127,100010",10010,15,4,2,1 W128,192,32 ,16,248,100100$,100010",255 H1,3,4,12 ,31,491,113q,255 S0,11100,126~,255,255,126~,11100,0 R192,240,1111100|,127,31,60<,24,24 I8,8,28,28,62>,62>,127,127 J3,15,30,254,252,60<,24,24 l6,111100<,1110110v,1101111o,11101111,255,1111110~,111100< `y=021:x=031:y,x;".":i=(map+32 *y+x):iy,x;(480+i) x:y )x=0:y=0:1;y,x;"" j1;y,x;"":y=y+(="m"y<21)-(="k"y):x=x+(="x"x<31)-(="z"x):y,x;1;"" !z$=:z$<"1"z$>"7"2010 k=z$:k=7k=255 ;map+32 *y+x,k:y,x;z$;1;y,x;"":2010 -land="58592":palm="59296":sand="58400" czline=3000 :cw=0:zy=176:zcol=6:maxsk=2:skill>maxskskill=maxsk 0:1:6: @col=41):x=0:y=0:z$=" Treasure Hunt ":big 3900< 3800:island fx=8:fy=4 5trx=(*15)+1:try=(*9 )+1 trx=fxtry=fy3025 3900<+try z$ %z$(trx)<"b"z$(trx)>"d"3025 264006,16*fx:64007,16*fy ,64005,176:64370r,0 j=(a3+18) glastd=((((64006/16-trx))^2+((64007/16-try))^2))/1.41435K !Az$="Letter ":col=6:y=176:x=0:big &(x=104h:col=14:z$="_":big +z$=:z$=""more ,+z$"A"z$"O"d=z$-64@:31200 -z$<"a"z$>"o"3115+ .d=z$-96` 0col=15:big 5,z$="Number":x=128:col=6:big :(z$="_":col=14:x=224:big ?!z$=:z$<"1"z$>"9"3135? Dc=z$ Icol=15:big N3900<+c Sz$ X6z$(d)<"b"z$(d)>"d".05|L,-12 :3100 ]skill=1j=(a3+24):64005,23:64002,64007:64001,64006:j=(asubs+9 )+(a3+18) a64005,480 b6xd=4:(trx-64006)<40(xd=2 g6yd=4:(try-64007)<40(yd=2 k@64008,xd*(16*d-64006):64009 ,0 l7j=(a3+27):64006d*163180l p@64008,0:64009 ,yd*(16*c-64007) q7j=(a3+27):64007c*163185q T64006=16*trxƾ64007=16*try3400H :Nail on the head! cj=((((64006/16-trx))^2+((64007/16-try))^2))/1.41435K col=5 j>lastd.05|L,7:.05|L,5:.05|L,3:.05|L,2:.05|L,0Track-Info  N :z$="Colder":3250 d.05|L,12 :.05|L,14:.05|L,16:.05|L,17:.05|L,19 col=66B:z$="Warmer" #j<3col=67C:z$="Hot" (j<2col=70F:z$="Very Hot" )z$=" "+z$+" "(12 -z$) lastd=j y=176:x=0:big 1:250 3100 Msound=(asubs+12 ) RDy=515:y,5;0;" ":y W;z$="Well Done":y=480:x=480:col=41):big \Cgrafad=59232`:y=104h:x=88X:col=6:nsprite aDy=104h:x=104h:col=6:grafad=59264:nsprite fy=88X:x=136:jump qmore  j=1 c=1614416  =""more 7col=23:y=c:x=0:z$=j:j=j+1:big a$ x=1624016 k=a$(x/16)-97a k3860 *k=1grafad=land:col=480 Uk>1k<4grafad=palm+32 *(k-2):col=524-(k=2) ?k>3col=14:k>9 col=491:k=k-6  1k>3grafad=sand+32 *(k-4)  nsprite x c col=23:x=0:y=c #z$=" abcdefghijklmno" (big - ="bbglaakilkihdbe" >"fbbgiihbpbbbcbp" ?"mfbdbbbbpbbbben" @"khbcbbbbgbdbbbl" A"mbbbbbbdbbcbbbb" B"aaknbdbcbbbbbbb" C"aajbbcbbbbbbbbe" D"aamnmfblkbbbbbp" E"aaaaamonmnmbben" q8rotate=6400:drop=64502:plottem=6850 ra4=55664p sIzy=176:zcol=14:zline=6e3p:cw=0:maxsk=3 tskill>maxskskill=maxsk u&0:0:0:6: v&i=-13 :o=-16:h=15 zs(5,3) |z=15 }g(skill=1z>2)(skill=2(z<2z>3))(skill=3z<4)6040  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 7y=0:x=72H:col=6:z$="Packing":big  a$="00000" R6050*(skill<2)+6060*(skill=2)+6070*(skill>2)  b$="11000" S0;4;1;5,13 ;"";10 ,13 ;"" Ij=69 :1;j,13 ;4;"";j,18;"":j xmin=84T:xmax=132 ymin=20:ymax=68D  6100  b$="01100" J3;1;5,13 ;"";12 ,13 ;"" Jj=611 :j,13 ;1;3;"";j,18;"":j xmin=84T:xmax=132 ymin=20:ymax=84T  6100  b$="00011"  6052 =*64005,4:64370r,0 >-64006,120x:64007,24 ?j=(a3+18) Gj=(a3+15) Lz$=:z$=""more Mz$" "6215G Qx=64006 Ry=64007 Vz=15 Wg(skill=1z>2)(skill=2(z<2z>3))(skill=3z<4)6240` [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 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 .64Track-Info  N 000,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   Shape 1  16 Ao,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h  16 Ao,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h  32  Ao,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h  Ao,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h,o,h  26 i,-13 ,i,-12 ,i,-11 ,i,-10 ,i,-9 ,i,-8,i,-7,i,-6,i,-5,i,-4,i,-3,i,-2,i,-1,i,0,i,1,i,2,i,3,i,4,i,5,i,6,i,7,i,8,i,9 ,i,10 ,i,11 ,i,12  26 i,-13 ,i,-12 ,i,-11 ,i,-10 ,i,-9 ,i,-8,i,-7,i,-6,i,-5,i,-4,i,-3,i,-2,i,-1,i,0,i,1,i,2,i,3,i,4,i,5,i,6,i,7,i,8,i,9 ,i,10 ,i,11 ,i,12 ;24,24,0 <192,24,0 =104h,136,0 >192,88X,0 ?24,88X,3 @ 0: Atedgr=60672 BIzline=8000@:zcol=6:zy=176:cw=0:maxsk=4 Cskill>4skill=4 E ct=0 Jlastp=0 L 8990# Oj="a""e"-1 Tk:j,k Yj ^*23672x\,0:23673y\,0  go=0 x$="" 9j=(*5)*10 +8900":j=lastp8115  lastp=j j z$  z$=z$+"00"  d=1 lc=2*(skill=1)+3*(skill=2)+4*(skill=3)+((7.5p+))*(skill=4) p>.5c=10 *(skill=1)+5*(skill=2)+6*(skill=3)+9 *(skill=4)  tmstbl=c j=124  k=(*(99c/c)+1)*c  x$=x$+" " Ej=z$(dd+1)x$(j+j-1j+j)=k:d=d+2:8160 -x$(j+j-1j+j)=(k+(*skill)+1) j j=1̱z$-32 k=z$(jj+1)-1 .x=40(+32 *(k-(k/6)*6) "y=24+40(*(k/6) "64209+j,x:64210+j,y j:y=24 j=jj+62 664209+j,8:64210+j,y:y=y+40( j 64209+j,255 0:1:4: Jz$=(tmstbl)+"x Number Jump ":col=67C:y=176:x=0:big y=2175:4;1;y,4;" ";y+3,4;" ":y j=22528X23200Z32 :j,28:j+1,28:j+2,28:j+29,28:j+30,28:j+31,28:j j=1:y=2414440(:x=32 19232 :z$=x$(jj+1):col=39':big:j=j+2:x:y +64006,8:64007,64@ *64370r,1:64005,0 j=(a3+18) *64015,0:64005,0 j=(asubs+42*)  =""more `j8220 *(j=4)+82400 *(j=2)+8260D *(j=3)+8280X *(j=1)  8205 #64006<32 8205 !xd=252:j=tedgr+192 82422 0xd=4:j=tedgr+64@ 264008,0 3D64003,j-256*(j/256):64004,(j/256) 4-64007<4808252< :squashed 564009 ,252 6(k=14:j=(a3+27):k 7%64008,xd:64009 ,0 8(k=18:j=(a3+27):k 9*64008,0:64009 ,2 :(k=18:j=(a3+27):k ;8300l :STrack-Info  N quash <64009 ,254 =(k=14:j=(a3+27):k >%64008,xd:64009 ,0 ?(k=18:j=(a3+27):k @*64009 ,1:64008,0 A(k=18:j=(a3+27):k B 8300l D$64007>1358200 Ej=tedgr+128 FD64003,j-256*(j/256):64004,(j/256) G,64008,0:64009 ,252 H(k=12:j=(a3+27):k I64009 ,4 J)k=112 :j=(a3+27):k K 8300l X#64007<4808200 YP64003,tedgr-256*(tedgr/256):64004,(tedgr/256) Z,64008,0:64009 ,252 [)k=112 :j=(a3+27):k \64009 ,4 ](k=12:j=(a3+27):k ^ Drop thru' l+þ640158330 :Check for bank n#64006<40(8200 qUj=12:.001wn,20:.001wn,40(:.001wn,60<:j v x=64016:y=64017 w'64005,0:k=(a3+24) x 8315{ yN64005,23:j=(a3+18):8200 :CHG_BG_COL+grafs by INIT {2j=22495W+32 *(y/8)+(x/8) kk=03:j+k,491:j+k+32 ,23:j+k+64@,23:j+k+96`,491:k: +64006<2248400 :wrong :y=515:y,5;0;26;" ":y <z$="Well Done!":col=23:y=480:x=480:big x=112p:y=80P:jump ct=ct+1 <23672x\+256*23673y\<5500|8100 more sound=(asubs+15) 2x=8+64006:y=167-64007 0j=162-1:1;x,y,j:j go=go+1 go<38180 '.07}\(,0:.5,-12 $85004!:j=1200:j 8100 !9lastp !>z$ !? z$=z$+"00" !Cðz$(2) !Dj=z$(2)-1 !Gk=(j/6) !Hy=24+k*40( !M#x=40(+(j-k*6)*32 !R 8315{ !Wz$=z$(3) !\ 8515C! ""0102050608091011" ""0910111214151920" "$"01030405070911121314151719202324" ""07081112141517212223" ""010205060811141617202122" #O254,248,224,192,192,128,128,0 #D127,31,7,3,3,1,1,0 # D0,1,1,3,3,7,31,127 #!O0,128,128,192,192,224,248,254 #( #)Common Subs Block! #* #- #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 $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=4:grafad=bigted1:fours:col=4: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% %  %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$="CTrack-Info  N hange: 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 akilsubaxsnpu|#i2#lphainpun#umberinpuZ#sprit$our$un$um$or%efaultword:%ickworN%igtedigtedicros`pacpma)lincopplppyk58330 :Check for bank n#64006<40(8200 qUj=12:.001wn,20:.001wnPLUS3DOSWW 0:0:0:  "pic.bin" 65000,0  "u8.2a" u8.2a" U6B  U6A BAK.U6 2B s>?@fghijklmnopqCODE2A PABCDEFGHQRU6 2A STUVWXYZ[\]^_`abU6 2A cde="0"64005,14:z4=stone:80P 2ce$="2"64005,15:k,16*u:k+1,16*z:k=k+2:z4=robot:80P 4He$>"2"64005,76L:z4=lily1+32 *e$-96`:80P 6pj,1:64005,14:64001,u*16:64002,z*16:z4=(asubs+9 ):90Z P64001,u*16:64002,z*16:64004,(z4/256):64003,z4-256*64004:z4=(asubs+6) Zj=j+1:u:z: dka`?wa0w8`p? Pa`?w`0?qZa`~0 ?a`?w?`~0?ya?` a`~0?a0w?`~0?PLUS3DOSs=srAa=65000 *a>0a<565000,0 skill=1 asubs=62976 maxsk=5 a>0a<5147  100d ij=(asubs+39'):j=64018:k=64210:64000,0:z=011 :=""more (*z$:u=015:e$=z$(u+1) -(e$="1"z<11 j,1:90Z 02e$="0"64005,14:z4=stone:80P 2ce$="2"64005,15:k,16*u:k+1,16*z:k=k+2:z4=robot:80P 4He$>"2"64005,76L:z4=lily1+32 *e$-96`:80P 6pj,1:64005,14:64001,u*16:64002,z*16:z4=(asubs+9 ):90Z P64001,u*16:64002,z*16:64004,(z4/256):64003,z4-256*64004:z4=(asubs+6) Zj=j+1:u:z: 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 v90102#:big x"y=y+16+8*(j=0) zj z$= z$=""600X:100d a$=:a=a$-480 " a<1 a>8140 Ja>465000,a:1;20,10 ;"LOADING":"u8Track-Info  N .2b" .01z# =,30 Mash code links a3=60928 asubs=62976 Common basic sub labels input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nsprite=9350$ mazedraw=30 fours=9405$ tune=9390$ jump=9375$ more=9475% defaultwords=9530:% pickword=9550N% Graphics labels bigted1=60416 bigted2=60544 tick=60288 ?ya?p ??fs?||"(??z88??>?X@p(T?pPD ?p pAs?p? P>PLUS3DOS#(#Õëü.!+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͔͔XTrack-Info  N         : KtB !w wB *t ~O! ~2#~2??}*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 <~9_?<~`? ?:  <`08\0p0000000< ?<~9_?<~`? ?:  00@`08\0p0  `'s#@@p`'s#@@@@ppx ` 's#@@p` 's#@@@@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'60Track-Info  N         ͭ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 ~j8j8jB@U99?U@`@@@@@p  ???w?xc;c?>??wýxc;c????kx3({<p??~??Main 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 v90102#:big x"y=y+16+8*(j=0) zj z$= z$=""600X:100d a$=:a=a$-480 " a<1 a>8140 Ma>465000,a:1;20,10 ;"LOADING...":"u8.2b" .01z# =,30 Mash code links a3=60928 asubs=62976 Common basic sub labels input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nsprite=9350$ mazedraw=30 fours=9405$ tune=9390$ jump=9375$ more=9475% defaultwords=9530:% pickword=9550N% Graphics labels bigted1=60416 bigted2=60544 tick=60288Track-Info  N         cross=60256` space=57200p ,Clear MC vars 6j=(asubs+39') Run Prog-at last!  990+a j (j*j)+(500*j) Load next menu  590N  y=014416 z$:x=0:col=68D  z$"*"big y &0:0:19,0; z$=:z$=13 "" !z$" "540 & 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." 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  "code2A"   Title block 5000,"Number Train" 20{< ???_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 cross=60256` space=57200p ,Clear MC vars 6j=(asubs+39') Run Prog-at last!  990+a j (j*j)+(500*j) Load next menu  590N  y=014416 z$:x=0:col=68D  z$"*"big y &0:0:19,0; z$=:z$=13 "" !z$" "540 & 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." 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  "code2A"   Title block 5000,"Number Train" 2000,"Shopping" 7000X,"Caterpillar" 3000 ,"Maths Maze" 0,"Treasure Hunt" 0,"Bounce" 0,"Packing" 0,"Number Jump" shopping window1=59712@ Izline=2e3:zcol=58::zy=176:cw=0:maxsk=0 0:0:6: 9z$="Shopping":x=64@:y=4:col=23:big Draw shop outlines Dj=1621:1;1;j,0;31;" ":j j=0Track-Info  N         3 k=1921:0;4;k,j*8+1;" ";1;3;k,j*8;"";k,j*8+3;"":k .1;3;18,j*8;"" j Set up MAP space j=6416264193  j,1 j #j=64178641904 j,0:j+1,0 j MAP done...now P_LIST j=64210 x=820064@  'j,x:j+1,160:j=j+2  x:j,255  I00,"Shopping" 7000X,"Caterpillar" 3000 ,"Maths Maze" 0,"Treasure Hunt" 0,"Bounce" 0,"Packing" 0,"Number Jump" shopping window1=59712@ Izline=2e3:zcol=58::zy=176:cw=0:maxsk=0 0:0:6: 9z$="Shopping":x=64@:y=4:col=23:big Draw shop outlines Dj=1621:1;1;j,0;31;" ":j j=03 k=1921:0;4;k,j*8+1;" ";1;3;k,j*8;"";k,j*8+3;"":k .1;3;18,j*8;"" j Set up MAP space j=6416264193  j,1 j #j=64178641904 j,0:j+1,0 j MAP done...now P_LIST j=64210 x=820064@  'j,x:j+1,160:j=j+2  x:j,255  Init one offs  lastl=0 *23672x\,0:23673y\,0 Pick a shopping list 'list=2900T +(*5)*20 list=lastl2070  lastl=list List to TV list  y=32 :x=80P %j=16 *%z$:z$=z$+" "(11 -z$) /col=579:big 0y=y+16 1j 3Draw in Shop fronts 4y=152:x=32 9a$ >j=14 C k=a$(j) H)grafad=window1+64@*(k-1) Mcol=67C+j N nsprite Ocol=67C+j Pgrafad=grafad+32 Qx=x+16 R nsprite WBz$=" PETS FOOD SHOES SWEETS TOYS "(k*6-5k*6) \;17,j*8-7;7;((+1.5@));z$ ax=x+480 bj eGet buying order fa$ jInit frog walker k.64006,104h:64007,176 l^ x and y start p*64370r,0:64014,1 r^ AltSpr OFF,leeway ON u+64015,0:64005,68D v^ PRZ_NO wiped,COLOUR zj=(a3+18) pflag=0:item=1 cokup=0 Highlight 'x=80P:y=16*(item+1) col=491:2800 Walk about shops 64005,68D j=(a3+15)  =""more j=64015 j=pflag2201  pflag=j j2201 Enter new shop &j=a$(item)2231:guess right Wrong!!! Mcol=502:grafad=cross:y=16*(item+1):x=240:nsprite sound=(asubs+15) Ax=80P:y=16*(item+1):col=568:2800 cokup=1  2255 RIGHT!!! sound=(asubs+12 ) 'x=80P:y=16*(item+1) col=58::2800  x=240 col=60<:grafad=tick  nsprite item=item+1 item<72190 Bought out shops!  cokupmore ;j=415:j,10 ;7;31;" ":j <y=480:x=88X:col=491:z$="Well Done!":big y=80P:x=152 jump Another go more Colour band 2c=22528X+(y/8)*32 +(x/8) 2d=021:c+d,col:c+d+32 ,col:d  T List 1 U="apple","carrot","cat food","chocolate","kitten","slippers" V"1324" W "331412" h List 2 i<"beans","bird seed","shoe lace","sugar","tea","teddy bear" j"2351" k "142113" | List 3 }8"banana","doll","model car","peas","potatoes","rabbit" ~"5214"  "211223" List 4 >"fish food","fruit gums","game","goldfish","orange","tomato" "1524" "142133" List 5 1"boot","bread","butter","dog food","jam","milk" "3215" "122322" Frog Maze 9robot=60032:stone=58368:lily1=58240 dzline=3000 :cw=0:maxsk=4:zy=176:zcol=58::skill>maxskskill=maxsk ct=0 *23672x\,0:23673y\,0 Track-Info  N         lastm=0 $d=3800+(*5)*20 d=lastm3015 lastm=d d Draw maze 3900< Start frog up *64006,0:64007,0 leewayON,altsprOFF *64014,1:64370r,0 j=(a3+18) Walk round maze +64005,12 :64015,0 !j=(a3+15) " =""more & j=64015:j3105! 'j>73500 :end (s(j)3105! +Guard block 0.01z# =,20 5*skill<43130: +skill*10 : Level 4 ; dr=99c <>.63171c =>.53172d >d=(*6)+4 ?c=(*9 )+1 @ 3173e D Level 2 E dr=9 F>.53171c G 3172d N Level 3 O dr=18 P<.33171c Q<.33172d Rd=(*6)+1 Sc=(+2.5 ) T 3173e X Level 4 Y dr=27 Z<.33171c [<.33172d \H<.3d=(*9 )+1:c=(*2)+2:3173e ] 3174f b Add c=d=(*dr)+1:c=(*d):z$=(d-c)+" + "+c:3200 d6d=(*dr):c=(*dr):z$=(d+c)+" - "+c:3200 ez$=d+" * "+c:3200 f>d=(*5)+1:c=(+2.5 ):z$=(c*d)+" / "+c Guess it,sunshine! d=z$:z$=z$+" =" ^0,0;0;" " &col=(*4)+3:go=1 y=0:x=32 :big 2y=0:x=192:length=d:col=87W number input Check answer figure=d3300 Gx=200+16*length:col=250:grafad=cross:nsprite sound=(asubs+15) (col=6:grafad=space:nsprite ct=ct-1 gogo=0:3215 2 wrong,back to top d=lastm 3030 RIGHT! Pcol=68D:x=200+16*length:y=0:grafad=tick:nsprite sound=(asubs+12 ) 3700t Redraw Stone 64005,14 64001,64016 64002,64017 064003,stone-256*(stone/256) 64004,(stone/256) s(j)=1 j=(a3+21) ct=ct+2  3102 Done it! Ey=516:y,5;0;" ":y <z$="Well Done!":y=480:x=480:col=67C:big y=80P:x=112p:jump <23672x\+256*23673y\<7500L3015 Kskill=skill+((skill<4)*(ct>9 ))-((skill>1)*(ct<0)) Another go.. more tRedraw top line yk=64018 { y=0 ~x=024016 col=8:grafad=space %þkcol=14:grafad=stone  nsprite k=k+1:x  Maze 1 data "0011110000000100" "1000010111012101" "0011010010010101" "0111111001110200" "0010001101111010" "1020101100010010" "1101121001011110" "1001101011010200" "1111101001010111" "0000001100010111" "0111111001110134" "0000000211110056" 224,160 Maze 2 data "0000000011000000" "1111111011011110" "1100001020010010" "1101011111111020" "1101011003411101" "1001000215611100" "0211111111101110" "0110000000001200" "0110000110001010" "0110000110001010" "0011110110100010" "1000002002011100" 144,64@  Maze 3 "0000000001111111" "0111111101020341" "0101000001011561" "0101211111000110" "0101011111110110" "0101010000002100" "0101010111111101" "0101010002000001"  "0101011110111111"  "0001200110000110"  "1111010111110000"  "0000010020002111"  208,16  Maze 4 "0011111110111111" "1001110000002000" "1120110111110110" "1100010010010100" "1101001011010110" "1101101000010211" "0001201111021000" "0110011000100110" "0100111010110110" "1001100010100110" "1011101010101034"  "1000021010201056" !224,160 ( Maze 5 )"0001000000000000" *"1100011011111110" +"1111111011110020" ,"1111341011010111" -"1111561011012000" ."0021101011010110" /"0100001011010110" 0"0110111000010110" 1"0021111111110110" 2"1101200010000120" 3"1101011011111101" 4"1100011Track-Info  N 000000021" 564@,480 <0:1:6: A s(7) F 30 xx,y yTell walker where z finish is ! }k,x:k+1,y #k+2,x+16:k+3,y #k+4,x:k+5,y+16 ,k+6,x+16:k+7,y+16 k+8,255  Colour Train %first=64375w:last=64372t `stop=64476:shuntd=64477:speed=64371s:close=64374v:fwdbwd=64475 "cti=56432p:ctc=cti+3 %track=5800:drwtrk=5750v 0:0:6: laststn=0 stg1=0:stg2=0 czcol=41):zy=176:zline=5e3:cw=0:maxsk=3:skill>maxskskill=maxsk &stg1=59424 :stg2=stg1+32  s(5,4):n(5) ,1=x ,2=y ,4=passno ,3=addr in track list  of b5 approach flag trklist=5900  udg stick-man ,5999o:j="a""b"-1:k:j,k:j *23672x\,0:23673y\,0 Track set up track  go=0 j=cti  Each Go drwtrk PTrain chuff UAspeed,trnspd:close,0:fwdbwd,0:64005,trncol Y =""more Zj=ctc:" "5209Y ^At correct station? _.þclosesound=(asubs+15):5210Z cRight,shunt to station dsound=(asubs+12 ) efwdbwd,shuntd iþstopj=ctc:5225i mPassengers on/off n1:clear kb bfr s!x=(s(laststn,1)/8) x)y=(s(laststn,2)/8)+2 }/j=s(laststn,4)-10-1 .01z# =,502 23659k\,1  y,j+x;" " 23659k\,2  8 j Get off question call  5400 j=140(:j 1j=pasno*(skill=1)+5*(skill>1) psngr=(*j) s(laststn,4)=psngr j=0psngr-1 23659k\,1 y,j+x;7;"" 23659k\,2 .01z# =,42*  15 j Get on question here!  5500| Time out here 723672x\+256*23673y\>15000:more go=go+1 +go<3trklist=5960H5150 <col=233:x=0:y=0:z$=" WELL DONE! "  big y=72H:x=112p:jump /trklist=trklist+30*(trklist<5960H)  5105  On Qn yyz=y:xyz=x:jyz=j:kyz=k ?z$=" ":y=0:x=0:col=6:big "`col=5:grafad=59360:nsprite:x=16:col=5:grafad=59392:nsprite ,*z$=" + ":col=7:x=32 :big 1`grafad=stg1:x=112p:col=6:nsprite:grafad=stg2:col=6:x=128:nsprite 2'x=176:z$="=":col=5:big 6<pasno=n(laststn):z$=pasno:x=32 :col=68D:big ;j=s(laststn,4) <_skill>1k=(20-pasno)*(skill=2)+(100d-pasno)*(skill=3):j=(*k) @'x=144:col=68D:z$=j:big Epasno=pasno+j:length=pasno Ok=12 Tcol=15:x=192 Y numberinput ^figure=pasno5490r `3x=240:col=250:grafad=cross:nsprite bsound=(asubs+15) d>64005,6:64000,1:j=(asubs+6) ek gy=yyz:x=xyz:j=jyz:k=kyz: rIgrafad=tick:x=240:col=4:nsprite:sound=(asubs+12 ) s>64005,6:64000,1:j=(asubs+6) t 5479g 5y=0:z$=" - ":col=7:x=32 :big j=(*pasno) skill=1j=psngr *x=32 :z$=pasno:col=71G:big 1pasno=pasno-j:length=pasno:n(laststn)=pasno 4x=144:z$=" ":big:z$=j:col=5:big k=12 (x=192:col=15:numberinput figure=pasno5550 grafad=cross:x=240:col=250:nsprite:sound=(asubs+15):64005,6:64000,1:j=(asubs+6) k Cz$=pasno:col=71G:x=192:big:j=1150:j  5560 Ix=240:col=4:grafad=tick:nsprite:sound=(asubs+12 ) 5z$=" Number Train ":col=41):x=0:big vChoose station/draw x+k=(*stn)+1:k=laststn5752x z laststn=k |j=1stn ~m=first+s(j,3) m>31m,(m)-32 #j=km,32 +m:trncol=c$(j) =col=c$(j):x=s(j,1):y=s(j,2):grafad=stg1  nsprite 6Track-Info  N col=c$(j):x=s(j,1)+16:grafad=stg2  nsprite 23659k\,1 hs(j,4)(s(j,2)/8)+2,(s(j,1)/8);7;""(s(j,4)) 23659k\,2 j  Draw track B:z$=" Number Train ":y=0:x=0:col=41):big  trklist trnspd j=first-3 x:x=9995820 =y,z:j=j+3:j,x:j+1,y:j+2,z:5810 &hi=(j/256):lo=j-256*hi last,lo:last+1,hi Set colour of  stations+pass.no. stn c$="":z$="......" j=1stn (s(j,1),s(j,2),s(j,3) s(j,4)=(*6) jk=(6-s(j,4))*(skill=1)+20*(skill=2)+100d*(skill=3):n(j)=(*k) /k=(*5)+2:z$(k)"."5855 c$=c$+k:z$(k)="+" j   1st no is train speed  Track 1 list  #2,64@,63?,0 U114r,63?,0,148,63?,128,158,63?,64@ S192,63?,2,224,95_,5,208,111o,1 X196,111o,1,164,111o,129,154,111o,65A V108l,111o,1,76L,111o,129,66B,111o,65A 6480,111o,3,32 ,95_,4  999  3 U112p,64@,5,168,112p,23,80P,112p,32 *Track 2 list +|8,224,143,1,158,143,1,124|,143,129,114r,143,65A ,p546,143,1,24,143,3,16,135,131,10 ,129,67C -m8,127,4,24,111o,0,112p,111o,4,144,79O,0 .m224,79O,4,240,63?,3,224,47/,1,204,47/,1 /q182,47/,129,172,47/,65A,120x,47/,1,92\,47/,129 0i82R,47/,65A,24,47/,5,8,63?,2,24,79O,0 1p112p,79O,2,144,111o,0,224,111o,2,240,127,5 2999,4 3p160,480,47/,96`,480,568,128,144,5,24,144,14 HTrack 3 List I{10 ,216,111o,1,135,111o,1,104h,111o,5,103g,112p,69E Jl94^,121y,133,88X,127,3,8,47/,4,24,31,0 Km26,31,0,546,31,64@,64@,31,128,106j,31,0 Lp134,31,64@,144,31,128,232,31,2,248,47/,5 Mk216,79O,1,104h,79O,3,88X,63?,5,8,143,2 Np24,159,0,26,159,0,546,159,64@,64@,159,128 Ot218,159,0,230,159,64@,232,159,4,242,149,132 P'248,143,3,999 Q5,104h,112p,5,24,32 ,26,104h,32 ,35#,24,160,65A,200,160,74J oG28,8,28,42*,8,20,34",34" XCaterpillar Y/7941:default words:cater1=58912 Zczline=7e3X:zy=176:zcol=14:cw=1:maxsk=4:skill>maxskskill=maxsk ]0:0:6 c,79906:j="a""h"-1:k:j,k:j d ct=5 g*23672x\,0:23673y\,0 llastw=0 Draw cherry :7800x 'skill=47700:7110 'c=7900+20*(*3):c .w=(*10 )+1:w=lastw7106  lastw=w j=1w:w$:j g$(w$):c+2:s$  Blanks  7750F "x=1616*w$16 ^x+1,31:5;14,0:x+1,30:5;14,0 x Start up caterpillar y=64@:x=catx )grafad=cater1:col=4:nsprite <col=4:grafad=grafad+32 :x=x+16:nsprite <col=4:grafad=grafad+32 :x=x+16:nsprite Track-Info  N Draw basket >6;18,25;"";19,26;"" j=1ct |y=17-(j>5)-(j>8)-(j>11 ):x=24+j-4*(j>5)-3*(j>8)-2*(j>11 ) y,x;1;2;"" j 1z$=s$:y=4:x=40(:col=78N:big ct7290z pile=0 !a$="abcdefghijklmnopqrstuvwxyz" guessleft=11 -skill Hz$=".........."(guessleft):y=176:x=0:col=71G:big  Guess the word %k=0:j=3 &#z$=:j=j-1:j7500L 'z$=""7206& )z$=""more *k=z$ /k<97ak=k+32 4$k<97ak>122z7205% 8Check unused 9 a$(k-96`)="."7205% >.01z# =,20 Ca$(k-96`)="." Hz$=k LCheck in word Mj=1̱w$ Rw$(j)z$j:7300 V Right W y=128 Y j=j̱w$ \4w$(j)=z$x=16*j:col=6:g$(j)=z$:big aj e 7327 fg$w$7205% jYes,all OK ksound=(asubs+12 ) l 7600 z<23672x\+256*23673y\<7500L7100 {Another go |Rskill<4skill=skill+(ct>3skill<4)-(ct<3skill>1) }more Not there .05|L,-12 guessleft7400 *col=14+8*(guessleft<3) y=176:x=pile:big pile=pile+16 guessleft=guessleft-1  7205% Move cater /grafad=space:y=64@:x=catx:nsprite grafad=cater1 x=x+8:catx=x col=4:nsprite <x=x+16:grafad=grafad+32 :col=4:nsprite <x=x+16:grafad=grafad+32 :col=4:nsprite Hard luck! sound=(asubs+15) One less apple ct=ct-1  ctmore  7100 L Chomp Qcj=10 :y=64@:x=catx+32 :col=4:grafad=59008-k:k=32 -k:nsprite Munch cherry grafad=59552:y=64@:x=192:col=66B:nsprite:j=110 :.001wn,60<-j-j:.001wn,502:j grafad=59520:y=64@:x=192:col=66B:nsprite:y=480:col=66B:nsprite:j=110 :.001wn,60<-j-j:.001wn,502:j  Usr word  pickword j=lastw7705 # lastw=j (s$="User words" * g$(w$) - FSet catx K!z$="abcdefghijklmnopqrstuvwxyz" Pcatx=144 UPLUS3DOSx+*πf!0)Track-Info  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??{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@`@@@@@@<~?Track-Info  N ??????<~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 <~9_?<~`? ?:  <`08\0p0000000< ?<~9_?<~`? ?:  00@`08\0p0  `'s#@@p`'s#@@@@ppx ` 's#@@p` 's#@@@@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'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<ú-: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 ~j8j8jB@U99?U@`@@@@@@<~?Track-Info  N k=1̱w$ Zz=w$(k)-96` _z$(z)="."k: d z$(z)="." icatx=catx-8 nk: x Cherry yDgrafad=59584:col=66B:y=480:x=192:nsprite zDgrafad=59616:col=66B:y=480:x=208:nsprite {Dgrafad=59648:col=66B:y=64@:x=192:nsprite |Dgrafad=59680 :col=66B:y=64@:x=208:nsprite  lvl 1 F"cat","dog","sheep","goat","horse","cow","bird","frog","fish","duck"  "Animals" L2 V"potato","bacon","apple","orange","beans","jelly","cheese","bread","butter","carrot" "Food" L3 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 ;F0nit one offs  lastl=0 *23672x\,0:23673y\,0 Pick a shopping list 'list=2900T +(*5)*20 list=lastl2070  lastl=list List to TV list  y=32 :x=80P %j=16 *%z$:z$=z$+" "(11 -z$) /col=579:big 0y=y+16 1j 3Draw in Shop fronts 4y=152:x=32 9a$ >j=14 C k=a$(j) H)grafad=window1+64@*(k-1) Mcol=67C+j N nsprite Ocol=67C+j Pgrafad=grafad+32 Qx=x+16 R nsprite WBz$=" PETS FOOD SHOES SWEETS TOYS "(k*6-5k*6) \;17,j*8-7;7;((+1.5@));z$ ax=x+480 bj eGet buying order fa$ jInit frog walker k.64006,104h:64007,176 l^ x and y start p*64370r,0:64014,1 r^ AltSpr OFF,leeway ON u+64015,0:64005,68D v^ PRZ_NO wiped,COLOUR zj=(a3+18) pflag=0:item=1 cokup=0 Highlight 'x=80P:y=16*(item+1) col=491:2800 Walk about shops 64005,68D j=(a3+15)  =""more j=64015 j=pflag2201  pflag=j j2201 Enter new shop &j=a$(item)2231:guess right Wrong!!! Mcol=502:grafad=cross:y=16*(item+1):x=240:nsprite sound=(asubs+15) Ax=80P:y=16*(item+1):col=568:2800 cokup=1  2255 RIGHT!!! sound=(asubs+12 ) 'x=80P:y=16*(item+1) col=58::2800  x=240 col=60<:grafad=tick  nsprite item=item+1 item<72190 Bought out shops!  cokupmore ;j=415:j,10 ;7;31;" ":j <y=480:x=88X:col=491:z$="Well Done!":big y=80P:x=152 jump Another go more Colour band 2c=22528X+(y/8)*32 +(x/8) 2d=021:c+d,col:c+d+32 ,col:d  T List 1 U="apple","carrot","cat food","chocolate","kitten","slippers" V"1324" W "331412" h List 2 i<"beans","bird seed","shoe lace","sugar","tea","teddy bear" j"2351" k "142113" | List 3 }8"banana","doll","model car","peas","potatoes","rabbit" ~"5214"  "211223" List 4 >"fish food","fruit gums","game","goldfish","orange","tomato" "1524" "142133" List 5 1"boot","bread","butter","dog food","jam","milk" "3215" "122322" Frog Maze 9robot=60032:stone=58368:lily1=58240 dzline=3000 :cw=0:maxsk=4:zy=176:zcol=58::skill>maxskskill=maxsk ct=0 *23672x\,0:23673y\,0 lastm=0 $d=3800+(*5)*20 d=lastm3015 lastm=d d Draw maze 3900< Start frog up *64006,0:64007,0 leewayON,altsprOFF *64014,1:64370r,0 j=(a3+18) Walk round maze +64005,12 :64015,0 !j=(a3+15) " =""more & j=64015:j3105! 'j>73500 :end (s(j)3105! +GuTrack-Info  N ard block 0.01z# =,20 5*skill<43130: +skill*10 : Level 4 ; dr=99c <>.63171c =>.53172d >d=(*6)+4 ?c=(*9 )+1 @ 3173e D Level 2 E dr=9 F>.53171c G 3172d N Level 3 O dr=18 P<.33171c Q<.33172d Rd=(*6)+1 Sc=(+2.5 ) T 3173e X Level 4 Y dr=27 Z<.33171c [<.33172d \H<.3d=(*9 )+1:c=(*2)+2:3173e ] 3174f b Add c=d=(*dr)+1:c=(*d):z$=(d-c)+" + "+c:3200 d6d=(*dr):c=(*dr):z$=(d+c)+" - "+c:3200 ez$=d+" * "+c:3200 f>d=(*5)+1:c=(+2.5 ):z$=(c*d)+" / "+c Guess it,sunshine! d=z$:z$=z$+" =" ^0,0;0;" " &col=(*4)+3:go=1 y=0:x=32 :big 2y=0:x=192:length=d:col=87W number input Check answer figure=d3300 Gx=200+16*length:col=250:grafad=cross:nsprite sound=(asubs+15) (col=6:grafad=space:nsprite ct=ct-1 gogo=0:3215 2 wrong,back to top d=lastm 3030 RIGHT! Pcol=68D:x=200+16*length:y=0:grafad=tick:nsprite sound=(asubs+12 ) 3700t Redraw Stone 64005,14 64001,64016 64002,64017 064003,stone-256*(stone/256) 64004,(stone/256) s(j)=1 j=(a3+21) ct=ct+2  3102 Done it! Ey=516:y,5;0;" ":y <z$="Well Done!":y=480:x=480:col=67C:big y=80P:x=112p:jump <23672x\+256*23673y\<7500L3015 Kskill=skill+((skill<4)*(ct>9 ))-((skill>1)*(ct<0)) Another go.. more tRedraw top line yk=64018 { y=0 ~x=024016 col=8:grafad=space %þkcol=14:grafad=stone  nsprite k=k+1:x  Maze 1 data "0011110000000100" "1000010111012101" "0011010010010101" "0111111001110200" "0010001101111010" "1020101100010010" "1101121001011110" "1001101011010200" "1111101001010111" "0000001100010111" "0111111001110134" "0000000211110056" 224,160 Maze 2 data "0000000011000000" "1111111011011110" "1100001020010010" "1101011111111020" "1101011003411101" "1001000215611100" "0211111111101110" "0110000000001200" "0110000110001010" "0110000110001010" "0011110110100010" "1000002002011100" 144,64@  Maze 3 "0000000001111111" "0111111101020341" "0101000001011561" "0101211111000110" "0101011111110110" "0101010000002100" "0101010111111101" "0101010002000001"  "0101011110111111"  "0001200110000110"  "1111010111110000"  "0000010020002111"  208,16  Maze 4 "0011111110111111" "1001110000002000" "1120110111110110" "1100010010010100" "1101001011010110" "1101101000010211" "0001201111021000" "0110011000100110" "0100111010110110" "1001100010100110" "1011101010101034"  "1000021010201056" !224,160 ( Maze 5 )"0001000000000000" *"1100011011111110" +"1111111011110020" ,"1111341011010111" -"1111561011012000" ."0021101011010110" /"0100001011010110" 0"0110111000010110" 1"0021111111110110" 2"1101200010000120" 3"1101011011111101" 4"1100011000000021" 564@,480 <0:1:6: A s(7) F 30 xx,y yTell walker where z finish is ! }k,x:k+1,y #k+2,x+16:k+3,y #k+4,x:k+5,y+16 ,k+6,x+16:k+7,y+16 k+8,255  Colour Train %first=64375w:last=64372t `stop=64476:shuntd=64477:speed=64371s:close=64374v:fwdbwd=64475 "cti=56432p:Track-Info  N ctc=cti+3 %track=5800:drwtrk=5750v 0:0:6: laststn=0 stg1=0:stg2=0 czcol=41):zy=176:zline=5e3:cw=0:maxsk=3:skill>maxskskill=maxsk &stg1=59424 :stg2=stg1+32  s(5,4):n(5) ,1=x ,2=y ,4=passno ,3=addr in track list  of b5 approach flag trklist=5900  udg stick-man ,5999o:j="a""b"-1:k:j,k:j *23672x\,0:23673y\,0 Track set up track  go=0 j=cti  Each Go drwtrk PTrain chuff UAspeed,trnspd:close,0:fwdbwd,0:64005,trncol Y =""more Zj=ctc:" "5209Y ^At correct station? _.þclosesound=(asubs+15):5210Z cRight,shunt to station dsound=(asubs+12 ) efwdbwd,shuntd iþstopj=ctc:5225i mPassengers on/off n1:clear kb bfr s!x=(s(laststn,1)/8) x)y=(s(laststn,2)/8)+2 }/j=s(laststn,4)-10-1 .01z# =,502 23659k\,1  y,j+x;" " 23659k\,2  8 j Get off question call  5400 j=140(:j 1j=pasno*(skill=1)+5*(skill>1) psngr=(*j) s(laststn,4)=psngr j=0psngr-1 23659k\,1 y,j+x;7;"" 23659k\,2 .01z# =,42*  15 j Get on question here!  5500| Time out here 723672x\+256*23673y\>15000:more go=go+1 +go<3trklist=5960H5150 <col=233:x=0:y=0:z$=" WELL DONE! "  big y=72H:x=112p:jump /trklist=trklist+30*(trklist<5960H)  5105  On Qn yyz=y:xyz=x:jyz=j:kyz=k ?z$=" ":y=0:x=0:col=6:big "`col=5:grafad=59360:nsprite:x=16:col=5:grafad=59392:nsprite ,*z$=" + ":col=7:x=32 :big 1`grafad=stg1:x=112p:col=6:nsprite:grafad=stg2:col=6:x=128:nsprite 2'x=176:z$="=":col=5:big 6<pasno=n(laststn):z$=pasno:x=32 :col=68D:big ;j=s(laststn,4) <_skill>1k=(20-pasno)*(skill=2)+(100d-pasno)*(skill=3):j=(*k) @'x=144:col=68D:z$=j:big Epasno=pasno+j:length=pasno Ok=12 Tcol=15:x=192 Y numberinput ^figure=pasno5490r `3x=240:col=250:grafad=cross:nsprite bsound=(asubs+15) d>64005,6:64000,1:j=(asubs+6) ek gy=yyz:x=xyz:j=jyz:k=kyz: rIgrafad=tick:x=240:col=4:nsprite:sound=(asubs+12 ) s>64005,6:64000,1:j=(asubs+6) t 5479g 5y=0:z$=" - ":col=7:x=32 :big j=(*pasno) skill=1j=psngr *x=32 :z$=pasno:col=71G:big 1pasno=pasno-j:length=pasno:n(laststn)=pasno 4x=144:z$=" ":big:z$=j:col=5:big k=12 (x=192:col=15:numberinput figure=pasno5550 grafad=cross:x=240:col=250:nsprite:sound=(asubs+15):64005,6:64000,1:j=(asubs+6) k Cz$=pasno:col=71G:x=192:big:j=1150:j  5560 Ix=240:col=4:grafad=tick:nsprite:sound=(asubs+12 ) 5z$=" Number Train ":col=41):x=0:big vChoose station/draw x+k=(*stn)+1:k=laststn5752x z laststn=k |j=1stn ~m=first+s(j,3) m>31m,(m)-32 #j=km,32 +m:trncol=c$(j) =col=c$(j):x=s(j,1):y=s(j,2):grafad=stg1  nsprite 6col=c$(j):x=s(j,1)+16:grafad=stg2  nsprite 23659k\,1 hs(j,4)(s(j,2)/8)+2,(s(j,1)/8);7;""(s(j,4)) 23659k\,2 j  Draw track B:z$=" Number Train ":y=0:x=0:col=41):big  trklist trnspd j=first-3 x:x=9995820 =y,z:j=j+3:j,x:j+1,y:j+2,z:5810 &hi=(j/256):lo=j-256*Track-Info  N hi last,lo:last+1,hi Set colour of  stations+pass.no. stn c$="":z$="......" j=1stn (s(j,1),s(j,2),s(j,3) s(j,4)=(*6) jk=(6-s(j,4))*(skill=1)+20*(skill=2)+100d*(skill=3):n(j)=(*k) /k=(*5)+2:z$(k)"."5855 c$=c$+k:z$(k)="+" j   1st no is train speed  Track 1 list  #2,64@,63?,0 U114r,63?,0,148,63?,128,158,63?,64@ S192,63?,2,224,95_,5,208,111o,1 X196,111o,1,164,111o,129,154,111o,65A V108l,111o,1,76L,111o,129,66B,111o,65A 6480,111o,3,32 ,95_,4  999  3 U112p,64@,5,168,112p,23,80P,112p,32 *Track 2 list +|8,224,143,1,158,143,1,124|,143,129,114r,143,65A ,p546,143,1,24,143,3,16,135,131,10 ,129,67C -m8,127,4,24,111o,0,112p,111o,4,144,79O,0 .m224,79O,4,240,63?,3,224,47/,1,204,47/,1 /q182,47/,129,172,47/,65A,120x,47/,1,92\,47/,129 0i82R,47/,65A,24,47/,5,8,63?,2,24,79O,0 1p112p,79O,2,144,111o,0,224,111o,2,240,127,5 2999,4 3p160,480,47/,96`,480,568,128,144,5,24,144,14 HTrack 3 List I{10 ,216,111o,1,135,111o,1,104h,111o,5,103g,112p,69E Jl94^,121y,133,88X,127,3,8,47/,4,24,31,0 Km26,31,0,546,31,64@,64@,31,128,106j,31,0 Lp134,31,64@,144,31,128,232,31,2,248,47/,5 Mk216,79O,1,104h,79O,3,88X,63?,5,8,143,2 Np24,159,0,26,159,0,546,159,64@,64@,159,128 Ot218,159,0,230,159,64@,232,159,4,242,149,132 P'248,143,3,999 Q5,104h,112p,5,24,32 ,26,104h,32 ,35#,24,160,65A,200,160,74J oG28,8,28,42*,8,20,34",34" XCaterpillar Y/7941:default words:cater1=58912 Zczline=7e3X:zy=176:zcol=14:cw=1:maxsk=4:skill>maxskskill=maxsk ]0:0:6 c,79906:j="a""h"-1:k:j,k:j d ct=5 g*23672x\,0:23673y\,0 llastw=0 Draw cherry :7800x 'skill=47700:7110 'c=7900+20*(*3):c .w=(*10 )+1:w=lastw7106  lastw=w j=1w:w$:j g$(w$):c+2:s$  Blanks  7750F "x=1616*w$16 ^x+1,31:5;14,0:x+1,30:5;14,0 x Start up caterpillar y=64@:x=catx )grafad=cater1:col=4:nsprite <col=4:grafad=grafad+32 :x=x+16:nsprite <col=4:grafad=grafad+32 :x=x+16:nsprite Draw basket >6;18,25;"";19,26;"" j=1ct |y=17-(j>5)-(j>8)-(j>11 ):x=24+j-4*(j>5)-3*(j>8)-2*(j>11 ) y,x;1;2;"" j 1z$=s$:y=4:x=40(:col=78N:big ct7290z pile=0 !a$="abcdefghijklmnopqrstuvwxyz" guessleft=11 -skill Hz$=".........."(guessleft):y=176:x=0:col=71G:big  GTrack-Info  N uess the word %k=0:j=3 &#z$=:j=j-1:j7500L 'z$=""7206& )z$=""more *k=z$ /k<97ak=k+32 4$k<97ak>122z7205% 8Check unused 9 a$(k-96`)="."7205% >.01z# =,20 Ca$(k-96`)="." Hz$=k LCheck in word Mj=1̱w$ Rw$(j)z$j:7300 V Right W y=128 Y j=j̱w$ \4w$(j)=z$x=16*j:col=6:g$(j)=z$:big aj e 7327 fg$w$7205% jYes,all OK ksound=(asubs+12 ) l 7600 z<23672x\+256*23673y\<7500L7100 {Another go |Rskill<4skill=skill+(ct>3skill<4)-(ct<3skill>1) }more Not there .05|L,-12 guessleft7400 *col=14+8*(guessleft<3) y=176:x=pile:big pile=pile+16 guessleft=guessleft-1  7205% Move cater /grafad=space:y=64@:x=catx:nsprite grafad=cater1 x=x+8:catx=x col=4:nsprite <x=x+16:grafad=grafad+32 :col=4:nsprite <x=x+16:grafad=grafad+32 :col=4:nsprite Hard luck! sound=(asubs+15) One less apple ct=ct-1  ctmore  7100 L Chomp Qcj=10 :y=64@:x=catx+32 :col=4:grafad=59008-k:k=32 -k:nsprite Munch cherry grafad=59552:y=64@:x=192:col=66B:nsprite:j=110 :.001wn,60<-j-j:.001wn,502:j grafad=59520:y=64@:x=192:col=66B:nsprite:y=480:col=66B:nsprite:j=110 :.001wn,60<-j-j:.001wn,502:j  Usr word  pickword j=lastw7705 # lastw=j (s$="User words" * g$(w$) - FSet catx K!z$="abcdefghijklmnopqrstuvwxyz" Pcatx=144 Uk=1̱w$ Zz=w$(k)-96` _z$(z)="."k: d z$(z)="." icatx=catx-8 nk: x Cherry yDgrafad=59584:col=66B:y=480:x=192:nsprite zDgrafad=59616:col=66B:y=480:x=208:nsprite {Dgrafad=59648:col=66B:y=64@:x=192:nsprite |Dgrafad=59680 :col=66B:y=64@:x=208:nsprite  lvl 1 F"cat","dog","sheep","goat","horse","cow","bird","frog","fish","duck"  "Animals" L2 V"potato","bacon","apple","orange","beans","jelly","cheese","bread","butter","carrot" "Food" L3 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 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$=:zTrack-Info  N $=""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=4:grafad=bigted1:fours:col=4:grafad=bigted2:fours:z $tune $grafad=space:fours $ $Nipper Tune! $tune $note:note=99c $.1}L,note:9395$ $16,16,,85U,0,85U,0,85U,0,255 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 #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=4:grafad=bigted1:fours:col=4:grafad=bigted2:fours:z $tune $grafad=space:fours $ $Nipper Tune! $tune $note:note=99c $.1}L,note:9395$ $16,16,13Track-Info  N  ,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) $ %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 akilsubaxsy8xpohatxwa<#nkXZ3.Caterpillar =x #964005,col:col=0 #<z=1̱z$ #A6400013 ,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) $ %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 akilsubaxsy8xpohatxwa<#nkXZ3.Caterpillar =x #964005,col:col=0 #<z=1̱z$ #A640:%ickworN%igtedigtedicros`pacpj+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*((colTrack-Info  N 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 akilsubaxsyx`ohatxwa<#nkZ1.Number Train =x #964005,col:col=0 #<z=1̱z$ #A64000,z$(z) #F64001,x #K'x=x+16ickworN%igtedigtedicros`pacpirswasttohuntpeeslosvwdbwtptsracrwtrvaststtg tg@co)linirklis Z Number Train rnsp(col-c4)/8) #(.07}\(,12 :.07}\(,12 # x$(length) #place=130# $-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=4:grafad=bigted1:fours:col=4: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) $ %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 ,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 #pTrack-Info  N ilylin co:astd&k (Z0111111001110200E0pha/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=1Track-Info  N Track-Info  N Track-Info  N Track-Info  N Track-Info  N         Track-Info ! N!!!!!!!!! Track-Info " N""""""""" Track-Info # N######### Track-Info $ N$$$$$$$$$ Track-Info % N%%%%%%%%% Track-Info & N&&&&&&&&& Track-Info ' N'''''''''