EXTENDED CPC DSK File Disk-Info CPDRead v3.24*Track-Info  N Track-Info  N U6 BAK U6 BAKt\]^_`abcdgmPIC BIN7 U6 2A +,-/012345678CODE2B =#$%&'()*U6 2A 9:;<SCHOOL  U6 2B !".=>?@IJKLMNOPSU6 2B uTUVWXYZ[efhijklU6 BAK>?@fCODE2A PABCDEFGHQRU6 BAK !".IJKLMNOPSTUVU6 BAKuWXYZ[\]^_`abcdeSCHOOL BAKgPLUS3DOSyeyva=65000 *a>4a<9 65000,0 skill=1 asubs=62976 maxsk=5  a>4a<9 147  100d Lz4=(asubs+39'):64000,0:z=011 :=""more #Az3=64018+16*z:z$:u=015:z4=u+1 (z$(z4)"0"z3+u,z$(z4):64001,u*16:64002,z*16:z5=g(z$(z4),1):64005,g(z$(z4),2):64004,(z5/256):64003,z5-256*64004:j=(asubs+6) 2u: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<1a>8140 #a<565000,a:"u6.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=30 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 (j*j)+(500*j) Load next menu  590N  y=014416 col=5:x=0 z$:z$"*"big  y &0:0:19,0; z$=:z$=13 "" z$" "530 & 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# Track-Info  N j=1400:j  Auto loader  "code2B"    Title block 0,"shape snap" 0,"find the mole" 0,"teddy count" 0,"write a letter" 6000p,"pick a letter" 7000X,"spell a word" 5000,"colour train" 8000@,"teddy's picnic" Colour Train %first=64375w:last=64372t `stop=64476:shuntd=64477:speed=64371s:close=64374v:fwdbwd=64475 "cti=56432PLUS3DOS@?Ea`0?a0ww770?@a`0w8a0w?w07w700pPa`0w8a0w8070?)Pa`0w8a0w8ka`?wa0w867? Pa`?w`0?6`766`Za`~0 ?a`?w?`~0?6`77`?` a`~0?a0w?`~0??w770?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?fsp:ctc=cti+3 %track=5800:drwtrk=5750v 0:0:6: laststn=0 stg1=0:stg2=0 Izcol=41):zy=176:zline=5e3:cw=0:maxsk=0 &stg1=59424 :stg2=stg1+32 s(5,4) ,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 *23673y\,0:23672x\,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 k=(*6) s(laststn,4)=k Get off question call j=140(:j j=0k-1 23659k\,1 y,j+x;7;"" 23659k\,2 .01z# =,42*  15 j Get on question here! Time out here 6Track-Info  N 23672x\+256*23673y\>7000Xmore 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 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$=" colour 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) /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" pPick a letter q6910:default words r0:0:6: snmrt=0 tIzcol=579:zy=96`:zline=6002r:cw=1:maxsk=4 vcls6=6810:l$="" xskill>4skill=4 zz$=" pick a letter " #col=32 :y=4:x=y:big   Py=514:1;6;0;y,1;" ";30;" ":y j=64210:k=97a y=48072H24 x=1623224Track-Info  N  z$=k col=79O:big ,j,x:j+1,y:j=j+2:k=k+1 x:y x=48016824 col=79O:z$=k:big ,j,x:j+1,y:j=j+2:k=k+1 x *23673y\,0:23672x\,0   Pick a random word  go=1 9skill=1w$=((*26)+97a):6125 skill=2j=6900 skill=3j=6910 %skill=4pickword:6125 j !k=1̺(*10 )+1 w$ k w$=l$6091 l$=w$ 2z$=w$:col=68D:y=144:x=8:big   Draw blanks.P_LIST. j=64262 k=1̱w$ x=112p+16*k  'j,x:j+1,144:j=j+2  p5;x+1,15:5;14,0:5;x+1,15:5;14,0 k  j,255   Letter Pickup-init. $64370r,0:pflag=0  64005,0 $@64006,112p:64007,144:k=(a3+18) ) ct=0 * g$(w$) 6 7 8Main selection loop B%j=(a3+15):=" "6215G CK23672x\+256*23673y\>7500L6500d:Time Out! D =""6520x:Escape! EJ=13 pflag64370r,0:pflag=0:.01z# =,0 F 6210B Gpflag6250j HCarrying nothing-  L3(64015)>26þ640156210B Mpickup letter Qpflag=64015 V?64370r,1:Use alternate sprite instead of bear [#64000,96`+64015 \@k=(asubs+30):make a sprite of double height letter ]f64003,82R:64004,251:Alternative grafad to use as sprite instead of bear `.05|L,20 e 6210B jAlready got letter o#64015<276210B tj=(64015)-26 ug$(j)" "6210B vww$(j)(96`+pflag)sound=(asubs+15):pflag=0:64370r,0:64005,0:6210B yg$(j)=(96`+pflag) zL64370r,0:pflag=0:reset alt_flag,and basic handshake ~664005,(*7)+1:Colour letter! _64001,64016:64002,64017:Set xy to xy of detected prize square  64000,0:draw! .k=(a3+21):Put down letter,chn_bg   ct=ct+1 ctɱw$6210B Check if guess right #j=(a3+24):rub out ted g$=w$6400 Can't spell!! Qy=144:x=136+16*w$:grafad=cross:col=250:nsprite sound=(asubs+15) >y=176:x=8:col=94^:z$=g$+" is wrong":big 1:100d Set up for a clue,and another go! rub out last go Acol=6:y=176:x=0:z$=" ":big V6;18,16;" ";19,16;" " go=go+1 go<46175 cls6 nmrt=nmrt-1  6090 Spelled it right! :col=252:y=176:x=80P:z$="RIGHT!":big  sound=(asubs+12 ) cls6 -x=112p:y=128:col=6:jump #nmrt=nmrt+1 (cls6 )8y=176:x=80P:col=6:z$=" ":big - 6090 d TIMEOUT fskill=46520x i+nmrt>4skill=skill+(skill<4) n,nmrt<-2skill=skill-(skill>1) x3:6: more Local Cls Fy=1521:y,0;0;6;31;" ":y: >"cat","hat","car","bat","cup","door","jug","bed","bag","sun" G"house","moon","frog","girl","boy","star","tree","fork","hand","shop" X Spell ZIzcol=31:zy=88X:cw=0:maxsk=0:zline=7000X ]0:0:6: g9z$=" spell a word ":col=491:y=4:x=y:big l init m*23673y\,0:23672x\,0 q l=0 vPick word {w=(*10 )+1 |l=w7035{ }l=w Set 1st try given=1 Draw frame (7615*(w=10 ))+(7530j*(w=1))+(7556*(w=2))+(7580*(w=3))+(7665*(w=4))+(7701*(w=5))+(77302*(w=6))+(7770Z*(w=7))+(7901*(w=8))+(7941*(w=9 )) k=1̱w$ x=129+16*k `x,15Track-Info  N :1;4;14,0:x,14:1;4;14,0 k Type in guess H(23672x\+256*23673y\)>7500L7400:time out =""7405  length=w$ x=144:y=144 col=87W  alpha input Is this Right? x$=w$7200 :right Not a chance! x=152+16*w$ y=144:col=250 grafad=cross  nsprite z$=x$+" is wrong" ,y=176:x=16:col=68D:big sound=(asubs+15) 1:100d z$=" "  col=6 big  U0;6;18,18;" ";19,18;" " Give us a clue! k=1given '21,16+k+k;7;w$(k) k ,given=given+1:given>w$7450  7090  You got it! % z$="RIGHT!" *(col=244:x=128:y=72H /big 4sound=(asubs+12 ) 9z$=" ":col=6 >big @x=152:y=88X Cjump HYy=421:0;7;0;0;y,0;" ";31;" ":y R 7035{ Timed out 3:7: more Give word 4x=144:y=152:col=15:z$=w$:big j=1200:j  7240H K i DOOR j 4 kx=310 ly=618 my,x;143 ny o x:1 p"x=4:y=7:7550~ qy=14:7550~ rx=8:7550~ sy=7:7550~ t 7 uf=14 v80P,71G,f wf y 0 z83S,74J { 0 | w$="door": } panel ~f=03 y+f,x;143;143 f   hat  7 f=112 17,f;143 f  1 y=816 x=310 y,x;143 x y  w$="hat":  bed  2 f=10 17 .f,0;143;f,13 ;143 f 817,0;139;" ";135 9 ,0;"O" 9 ,13 ;"O"  1 y=12 14 x=112 y,x;143 x y  2 f=112 15,f;143:f -1:8,535:96`,0 -8,513:96`,0:0  7 511 ,10 ;143;143;143 %80P,88X:23,0 %80P,89Y:23,0 %81Q,90Z:21,0 %84T,91[:15,0 $87W,92\:9 ,0  w$="bed":  bat  7 f=17 12 ,f;143 f  1 f=05 63?,73I+f f f=03 62>,74J+f f 61=,75K 61=,76L  0 f=07 11 ,f;140 13 ,f;131 f 12 ,0;143  1 f=04 0,68D+f 0,79O+f f f=02 1,68D+f 1,81Q+f f 2,68D 2,83S  0  6 f=813 12 ,f;143 f  w$="bat":  car  2 y=12 14 x=013 y,x;143 x y y=9 11 x=37 y,x;143 x y f=84T88X  f,79O:-24,24 f f=812 f,79O:16,24 f  r15,1;135;143;143;139;" ";135;143;143;139  H16,2;131;131;" ";131;131  $20,43+:7,0  $84T,43+:7,0  w$="car":  cup  7 y=715 x=110 y,x;143 x y  2 f=29 16,f;143  f !16,1;135 "16,10 ;139 # 7720( $ w$="cup": ' handle ()7,12 ;137;134 )-8,11 ;137;" ";133 *9 ,13 ;133 +10 ,13 ;137 ,*11 ,12 ;Track-Info  N 132;130 -*12 ,11 ;132;130 .13 ,11 ;137 /14,11 ;130 0 1 jug 2 5 4f=824 5 f,119w 616,-40( 7f 9;2:18,3;135;" ";139 :f=49 ;18,f;143 <f = 7720( A 5 By=717 Cx=310 Ey,x;143 Fx Gy I w$="jug": Y cat Z%6:86V,80P,16 [;524,60<,28: front leg next \;29,74J:-19,25:15,-34" ]'69E,82R:10 ,-16 ^'68D,82R:11 ,-17 _'67C,82R:12 ,-18 `'70F,82R:10 ,-16 a&78N,502:2,-16 b5,-4 c-7,0 e&74J,44,:5,-14 fback leg i%43+,491:11 ,0 j'546,491:-7,-16 k%47/,36$:9 ,-4 l-12 ,0 m$42*,35#:4,9 p%82R,70F:10 ,0 q2,2 r%82R,70F:-2,2 s$87W,70F:0,4 u nose x$86V,75K:2,0 y$85U,76L:4,0 z$85U,77M:4,0 {$84T,78N:6,0 80P,84T,3 93],84T,3 $80P,81Q:0,5 $93],81Q:0,5 677M,93]:1,8:5,-5 690Z,96`:4,5:2,-9  w$="cat":  sun  6 568,72H,24 %80P,72H:24,0 '82R,480:16,-16 &568,480:0,-24 (32 ,480:-16,-16 &32 ,72H:-24,0 (32 PLUS3DOSL0LK; Hard work by Alan Mellor, 1988. 2a=65000 7*a>0a<565000,0 <skill=1 Aasubs=62976 Fmaxsk=5 K a>0a<5145 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 Ma>465000,a:1;20,10 ;"LOADING...":"u6.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=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+a 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  "code2a"   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 pTrack-Info  N icnic" 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 PLUS3DOSWW 0:0:0:  "pic.bin" 65000,0  "u6.2a" u6.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| 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<1a>8140 #a>465000,a:"u6.2b" .01z# =,30 Mash code links a3=60928 asubs=62976 Common basic sub labels input=9084|# big=90102# alphainput=9070n# numberinput=9050Z# nPLUS3DOSzy w^a=65000 *a>4a<9 65000,0 skill=1 asubs=62976 maxsk=5  a>4a<9 147  100d Lz4=(asubs+39'):64000,0:z=011 :=""more #Az3=64018+16*z:z$:u=015:z4=u+1 (z$(z4)"0"z3+u,z$(z4):64001,u*16:64002,z*16:z5=g(z$(z4),1):64005,g(z$(z4),2):64004,(z5/256):64003,z5-256*64004:j=(asubs+6) 2u: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<1a>8140 Ma<565000,a:1;20,10 ;"LOADING...":"u6.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=30 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 (j*j)+(500*j) Load next menu  590N  y=014416 col=5:x=0 z$:z$"*"big  y &0:0:19PLUS3DOS0pbvà!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`@Track-Info  N          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'60@ ͭwͭwͭw~ O~ ~( > 8>@>wN! oXgWOR}0D 8P8xy(DOxyиy ?ɸ:+ 8 O:+ >(>P[v\c.zRR_R0#"v\}!x2+͐_͢W: Track-Info  N         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===oh?@:(22r222v22<2xW O xW xW o@(R U99?U@`@@@@@@<~???????<~8px߀`0?&(p7=.8 @KP (A}}}8ψόφ  @y@y<||'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-1Track-Info  N          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=20,0; z$=:z$=13 "" z$" "530 & 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  "code2B"    Title block 0,"shape snap" 0,"find the mole" 0,"teddy count" 0,"write a letter" 6000p,"pick a letter" 7000X,"spell a word" 5000,"colour train" 8000@,"teddy's picnic" Colour Train %first=64375w:last=64372t `stop=64476:shuntd=64477:speed=64371s:close=643725 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$Track-Info  N         ,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! Track-Info  N         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) $364003Track-Info  N ,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% ' akilsubaxsy(xohatxwa<#nkZ2.find the mole +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 #+84T,3 $80P,81Q:0,5 $93],81Q:0,5 677M,93]:1,8:5,-5 690Z,96`:4,5:2,-9  w$="cat":  sun  6 568,72H,24 %80P,72H:24,0 '82R,480:16,-16 &568,480:0,-24 (32 ,480:-16,-16 &32 ,72H:-24,0 (32 4v:fwdbwd=64475 "cti=56432p:ctc=cti+3 %track=5800:drwtrk=5750v 0:0:6: laststn=0 stg1=0:stg2=0 Izcol=41):zy=176:zline=5e3:cw=0:maxsk=0 &stg1=59424 :stg2=stg1+32 s(5,4) ,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 *23673y\,0:23672x\,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 k=(*6) s(laststn,4)=k Get off question call j=140(:j j=0k-1 23659k\,1 y,j+x;7;"" 23659k\,2 .01z# =,42*  15 j Get on question here! Time out here 623672x\+256*23673y\>7000Xmore 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 vChoose station/draw x+k=(*stn)+1:k=laststn5752x z laststn=k |j=1stn ~m=first+s(j,3) m>31m,(m)-32 Track-Info  N ,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):nspri5820 =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) /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/,1PLUS3DOS''Õëü.!+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[tTrack-Info  N và!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:GTrack-Info  N 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 >2 /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" pPick a letter q6910:default words r0:0:6: snmrt=0 tIzcol=579:zy=96`:zline=6002r:cw=1:maxsk=4 vcls6=6810:l$="" xskill>4skill=4 zz$=" pick a letter " #col=32 :y=4:x=y:big   Py=514:1;6;0;y,1;" ";30;" ":y j=64210:k=97a y=48072H24 x=1623224 z$=k col=79O:big ,j,x:j+1,y:j=j+2:k=k+1 x:y x=48016824 col=79O:z$=k:big ,j,x:j+1,y:j=j+2:k=k+1 x *23673y\,0:23672x\,0   Pick a random word  go=1 9skill=1w$=((*26)+97a):6125 skill=2j=6900 skill=3j=6910 %skill=4pickword:6125 j !k=1̺(*10 )+1 w$ k w$=l$6091 l$=w$ 2z$=w$:col=68D:y=144:x=8:big   Draw blanks.P_LIST. j=64262 k=1̱w$ x=112p+16*k  'j,x:j+1,144:j=j+2  p5;x+1,15:5;14,0:5;x+1,15:5;14,0 k  j,255   Letter Pickup-init. $64370r,0:pflag=0  64005,0 $@64006,112p:64007,144:k=(a3+18) ) ct=0 * g$(w$) 6 7 8Main selection loop B%j=(a3+15):=" "6215G CK23672x\+256*23673y\>7500L6500d:Time Out! D =""6520x:Escape! EJ=13 pflag64370r,0:pflag=0:.01z# =,0 F 6210B Gpflag6250j HCarrying nothing-  L3(64015)>26Track-Info  N þ640156210B Mpickup letter Qpflag=64015 V?64370r,1:Use alternate sprite instead of bear [#64000,96`+64015 \@k=(asubs+30):make a sprite of double height letter ]f64003,82R:64004,251:Alternative grafad to use as sprite instead of bear `.05|L,20 e 6210B jAlready got letter o#64015<276210B tj=(64015)-26 ug$(j)" "6210B vww$(j)(96`+pflag)sound=(asubs+15):pflag=0:64370r,0:64005,0:6210B yg$(j)=(96`+pflag) zL64370r,0:pflag=0:reset alt_flag,and basic handshake ~664005,(*7)+1:Colour letter! _64001,64016:64002,64017:Set xy to xy of detected prize square  64000,0:draw! .k=(a3+21):Put down letter,chn_bg   ct=ct+1 ctɱw$6210B Check if guess right #j=(a3+24):rub out ted g$=w$6400 Can't spell!! Qy=144:x=136+16*w$:grafad=cross:col=250:nsprite sound=(asubs+15) >y=176:x=8:col=94^:z$=g$+" is wrong":big 1:100d Set up for a clue,and another go! rub out last go Acol=6:y=176:x=0:z$=" ":big V6;18,16;" ";19,16;" " go=go+1 go<46175 cls6 nmrt=nmrt-1  6090 Spelled it right! :col=252:y=176:x=80P:z$="RIGHT!":big  sound=(asubs+12 ) cls6 -x=112p:y=128:col=6:jump #nmrt=nmrt+1 (cls6 )8y=176:x=80P:col=6:z$=" ":big - 6090 d TIMEOUT fskill=46520x i+nmrt>4skill=skill+(skill<4) n,nmrt<-2skill=skill-(skill>1) x3:6: more Local Cls Fy=1521:y,0;0;6;31;" ":y: >"cat","hat","car","bat","cup","door","jug","bed","bag","sun" G"house","moon","frog","girl","boy","star","tree","fork","hand","shop" X Spell ZIzcol=31:zy=88X:cw=0:maxsk=0:zline=7000X ]0:0:6: g9z$=" spell a word ":col=491:y=4:x=y:big l init m*23673y\,0:23672x\,0 q l=0 vPick word {w=(*10 )+1 |l=w7035{ }l=w Set 1st try given=1 Draw frame (7615*(w=10 ))+(7530j*(w=1))+(7556*(w=2))+(7580*(w=3))+(7665*(w=4))+(7701*(w=5))+(77302*(w=6))+(7770Z*(w=7))+(7901*(w=8))+(7941*(w=9 )) k=1̱w$ x=129+16*k `x,15:1;4;14,0:x,14:1;4;14,0 k Type in guess H(23672x\+256*23673y\)>7500L7400:time out =""7405  length=w$ x=144:y=144 col=87W  alpha input Is this Right? x$=w$7200 :right Not a chance! x=152+16*w$ y=144:col=250 grafad=cross  nsprite z$=x$+" is wrong" ,y=176:x=16:col=68D:big sound=(asubs+15) 1:100d z$=" "  col=6 big  U0;6;18,18;" ";19,18;" " Give us a clue! k=1given '21,16+k+k;7;w$(k) k ,given=given+1:given>w$7450  7090  You got it! % z$="RIGHT!" *(col=244:x=128:y=72H /big 4sound=(asubs+12 ) 9z$=" ":col=6 >big @x=152:y=88X Cjump HYy=421:0;7;0;0;y,0;" ";31;" ":y R 7035{ Timed out 3:7: more Give word 4x=144:y=152:col=15:z$=w$:big j=1200:j  7240H K i DOOR j 4 kx=310 ly=618 my,x;143 ny o x:1Track-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===oɀ?FP:(22r222v22<2xW O xW xW ~j8j8jB@U99?U@`@@@@@@<~ p"x=4:y=7:7550~ qy=14:7550~ rx=8:7550~ sy=7:7550~ t 7 uf=14 v80P,71G,f wf y 0 z83S,74J { 0 | w$="door": } panel ~f=03 y+f,x;143;143 f   hat  7 f=112 17,f;143 f  1 y=816 x=310 y,x;143 x y  w$="hat":  bed  2 f=10 17 .f,0;143;f,13 ;143 f 817,0;139;" ";135 9 ,0;"O" 9 ,13 ;"O"  1 y=12 14 x=112 y,x;143 x y  2 f=112 15,f;143:f -1:8,535:96`,0 -8,513:96`,0:0  7 511 ,10 ;143;143;143 %80P,88X:23,0 %80P,89Y:23,0 %81Q,90Z:21,0 %84T,91[:15,0 $87W,92\:9 ,0  w$="bed":  bat  7 f=17 12 ,f;143 f  1 f=05 63?,73I+f f f=03 62>,74J+f f 61=,75K 61=,76L  0 f=07 11 ,f;140 13 ,f;131 f 12 ,0;143  1 f=04 0,68D+f 0,79O+f f f=02 1,68D+f 1,81Q+f f 2,68D 2,83S  0  6 f=813 12 ,f;143 f  w$="bat":  car  2 y=12 14 x=013 y,x;143 x y y=9 11 x=37 y,x;143 x y f=84T88X  f,79O:-24,24 f f=812 f,79O:16,24 f  r15,1;135;143;143;139;" ";135;143;143;139  H16,2;131;131;" ";131;131  $20,43+:7Track-Info  N ,0  $84T,43+:7,0  w$="car":  cup  7 y=715 x=110 y,x;143 x y  2 f=29 16,f;143  f !16,1;135 "16,10 ;139 # 7720( $ w$="cup": ' handle ()7,12 ;137;134 )-8,11 ;137;" ";133 *9 ,13 ;133 +10 ,13 ;137 ,*11 ,12 ;132;130 -*12 ,11 ;132;130 .13 ,11 ;137 /14,11 ;130 0 1 jug 2 5 4f=824 5 f,119w 616,-40( 7f 9;2:18,3;135;" ";139 :f=49 ;18,f;143 <f = 7720( A 5 By=717 Cx=310 Ey,x;143 Fx Gy I w$="jug": Y cat Z%6:86V,80P,16 [;524,60<,28: front leg next \;29,74J:-19,25:15,-34" ]'69E,82R:10 ,-16 ^'68D,82R:11 ,-17 _'67C,82R:12 ,-18 `'70F,82R:10 ,-16 a&78N,502:2,-16 b5,-4 c-7,0 e&74J,44,:5,-14 fback leg i%43+,491:11 ,0 j'546,491:-7,-16 k%47/,36$:9 ,-4 l-12 ,0 m$42*,35#:4,9 p%82R,70F:10 ,0 q2,2 r%82R,70F:-2,2 s$87W,70F:0,4 u nose x$86V,75K:2,0 y$85U,76L:4,0 z$85U,77M:4,0 {$84T,78N:6,0 80P,84T,3 93],84T,3 $80P,81Q:0,5 $93],81Q:0,5 677M,93]:1,8:5,-5 690Z,96`:4,5:2,-9  w$="cat":  sun  6 568,72H,24 %80P,72H:24,0 '82R,480:16,-16 &568,480:0,-24 (32 ,480:-16,-16 &32 ,72H:-24,0 (32 ,104h:-16,16 &568,102f:0,24 '82R,104h:16,16 44,,86V,4 46.,84T,2 46.,84T,1 46.,84T 67C,86V,4 68D,84T,2 68D,84T,1 68D,84T  1 480,86V  0 f=05 568,72H,f f 043+,67C:67C-41),0, @43+,67C:67C-41),0,*3/5  w$="sun":  bag  2 y=11 17 x=210  y,x;" "  x  y  0  6 816,88X:71G,0,-2*/3 817,88X:69E,0,-2*/3 818,88X:67C,0,-2*/3 16,88X .-2+568-16,568-88X -2+87W-568,88X-568  w$="bag": @Teddy bears Picnic! Alastj=0 BHzline=8e3@:zy=88X:zcol=31:cw=0:maxsk=4 Cskill>4skill=4 E1col=0:0:6:1:0 Jset up graphic array Og(9 ,2) Pg(1,1)=60320:g(1,2)=68D:g(2,1)=60352:g(2,2)=5:g(3,1)=60384:g(3,2)=6 Q ct=0 R*23673y\,0:23672x\,0 T setup Y)skill=1j=8800`":8032` ^=j=8800`"+20*(*2)+40(*(skill-2) _j=lastj8030^ ` lastj=j a cj:maze draw hSet up P_LIST j 8990# kj=8880"8980# mj=64210 rx:j,x wJx255y,grafad,col:j+1,y:j=j+2:nsprite:8050r |Maze drawn + memorized *64006,0:64007,0 *64370r,0Track-Info  N :64005,0 *64014,1:64015,0 set xy,alt_flg OFF no colouring,leeway ON reset ON_P_SQ X22560 X,78N:22561!X,78N:22528X,78N:22529X,78N *j=(a3+18):Draw ted for 1st time! *23673y\,0:23672x\,0 Walk teddy about! LIf you're reading this,you must be really bored with playing maze games! j=(a3+15) 86401585004!:got to picanic baasket yogi! a$= a$=""8135 <23672x\+256*23673y\<7500L8105 TIMEOUT! Cskill=skill-(ct<3skill>1)+(ct>4skill<3) 3:7: more !4Got There! !9Oy=516:y,5;0;6;" ":y !>=z$="WELL DONE!":y=480:x=480:col=239:big !Csound=(asubs+12 ) !Hy=72H:x=112p:jump !Mct=ct+1 !R 1:100d:8025Y "`=j=8820t"+20*(*2)+40(*(skill-2) "a"0000120013223100" "b"0000330011000101" "c"2300120012031103" "d"1100000000000000" "e"1300000121210010" "f"0111000001110011" "g"0003000000210000" "h"1101000300010100" "i"2100001110000100" "j"2111000100011100" "k"2100000100000000" "l"2201310123110000" "t Maze 2 "u"0000000012321232" "v"0000000033123312" "w"3013130000000000" "x"3020220000000000" "y"2010112213121300" "z"1000210000333300" "{"1320000003000000" "|"2221010103000000" "}"0003020103002233" "~"0333020111002200" ""0133210001000000" ""0000000323000000" " Maze 3 ""0000000000000000" ""1332102203130220" ""3000101102030220" ""3010102302030330" ""1030002101000100" ""3032212303020321" ""3012332101112111" ""1022000001000000" ""3022013231033300" ""3033000000011100" ""1011332223123000" ""3000000000001000" " Maze 4 ""0000000000000000" ""133313302232201,104h:-16,16 &568,102f:0,24 '82R,104h:16,16 44,,86V,4 46.,84T,2 46.,84T,1 46.,84T 67C,86V,4 68D,84T,2 68D,84T,1 68D,84T  1 480,86V  0 f=05 568,72H,f f 043+,67C:67C-41),0, @43+,67C:67C-41),0,*3/5  w$="sun":  bag  2 y=11 17 x=210  y,x;" "  x  y  0  6 816,88X:71G,0,-2*/3 817,88X:69E,0,-2*/3 818,88X:67C,0,-2*/3 16,88X .-2+568-16,568-88X -2+87W-568,88X-568  w$="bag": @Teddy bears Picnic! Alastj=0 BHzline=8e3@:zy=88X:zcol=31:cw=0:maxsk=4 Cskill>4skill=4 E1col=0:0:6:1:0 Jset up graphic array Og(9 ,2) Pg(1,1)=60320:g(1,2)=68D:g(2,1)=60352:g(2,2)=5:g(3,1)=60384:g(3,2)=6 Q ct=0 R*23673y\,0:23672x\,0 T setup Y)skill=1j=8800`":8032` ^=j=8800`"+20*(*2)+40(*(skill-2) _j=lastj8030^ ` lastj=j a cj:maze draw hSet up P_LIST j 8990# kj=8880"8980# mj=64210 rx:j,x wJx255y,grafad,col:j+1,y:j=j+2:nsprite:8050r |Maze drawn + memorized *64006,0:64007,0 *64370r,0:64005,0 *64014,1:64015,0 set xy,alt_flg OFF no colouring,leeway ON reset ON_P_SQ X22560 X,78N:22561!X,78N:22528X,78N:22529X,78N *j=(a3+18):Draw ted for 1st time! *23673y\,0:23672x\,0 Walk teddy about! LIf you're reading this,you must be really bored with playing maze games! j=(a3+15) 86401585004!:got to picanic baasket yogi! a$= a$=""8135 Track-Info  N <23672x\+256*23673y\<7500L8105 TIMEOUT! Cskill=skill-(ct<3skill>1)+(ct>4skill<3) 3:7: more !4Got There! !9Oy=516:y,5;0;6;" ":y !>=z$="WELL DONE!":y=480:x=480:col=239:big !Csound=(asubs+12 ) !Hy=72H:x=112p:jump !Mct=ct+1 !R 1:100d:8025Y "`=j=8820t"+20*(*2)+40(*(skill-2) "a"0000120013223100" "b"0000330011000101" "c"2300120012031103" "d"1100000000000000" "e"1300000121210010" "f"0111000001110011" "g"0003000000210000" "h"1101000300010100" "i"2100001110000100" "j"2111000100011100" "k"2100000100000000" "l"2201310123110000" "t Maze 2 "u"0000000012321232" "v"0000000033123312" "w"3013130000000000" "x"3020220000000000" "y"2010112213121300" "z"1000210000333300" "{"1320000003000000" "|"2221010103000000" "}"0003020103002233" "~"0333020111002200" ""0133210001000000" ""0000000323000000" " Maze 3 ""0000000000000000" ""1332102203130220" ""3000101102030220" ""3010102302030330" ""1030002101000100" ""3032212303020321" ""3012332101112111" ""1022000001000000" ""3022013231033300" ""3033000000011100" ""1011332223123000" ""3000000000001000" " Maze 4 ""0000000000000000" ""1333133022322011" ""0020212022222031" ""0000010000000021" ""1000000300111322" ""1133003330011331" ""2100033233000000" ""3101003330010000" ""1103300300210212" ""1100110001310300" ""1310031313131000" ""1331000000000000" " Maze 5 ""0001113111310333" ""2200000003130333" ""1331222200000003" ""3100000222111300" ""2201000000121210" ""1203000130300010" ""3001113100301030" ""1022033133101020" ""0000000000002000" ""3221032213333200" ""0000000000000200" ""2222033113302200" " maze 6 ""0012320030000323" ""2022300110220033" ""1023003300022021" ""0000012031033000" ""0312000020013020" ""0332112300210020" ""0000110000002010" ""0220100033302010" ""0200300000302220" ""0222031100300200" ""0000000000002000" ""3312332122132000" #Picnic for maze 5! #(64@,64@,60064,58: #(80P,64@,60096,58: #(96`,64@,60128,58: #(64@,80P,60160,58: #(80P,80P,60192 ,58: #(96`,80P,60224@,58: # 255 #Picnic grafs data #*208,160,60064,79O # *224,160,60096,79O #!*240,160,60128,79O #"*208,176,60160,79O ##*224,176,60192 ,79O #$*240,176,60224@,79O #% 255 #( #)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=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) $ %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=68D1" ""0020212022222031" ""0000010000000021" ""1000000300111322" ""1133003330011331" ""2100033233000000" ""3101003330010000" ""1103300300210212" ""1100110001310300" ""1310031313131000" ""1331000000000000" " Maze 5 ""0001113111310333" ""2200000003130333" ""1331222200000003" ""3100000222111300" ""2201000000121210" ""1203000130300010" ""3001113100301030" ""1022033133101020" ""0000000000002000" ""3221032213333200" ""0000000000000200" ""2222033113302200" " maze 6 ""0012320030000323" ""2022300110220033" ""1023003300022021" ""0000012031033000" ""0312000020013020" ""0332112300210020" ""0000110000002010" ""0220100033302010" ""0200300000302220" ""0222031100300200" ""0000000000002000" ""3312332122132000" #Picnic for maze 5! #(64@,64@,60064,58: #(80P,64@,60096,58: #(96`,64@,60128,58: #(64@,80P,60160,58: #(80P,80P,60192 ,58: #(96`,80P,60224@,58: # 255 #Picnic grafs data #*208,160,60064,79O # *224,160,60096,79O #!*240,160,60128,79O #"*208,176,60160,79O ##*224,176,60192 ,79O #$*240,176,60224@,79O #% 255 #( #)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: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 Track-Info  N )=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 %Qw$=u$(jj+9 ) %R.w$(w$)=" "w$=w$(̱w$-1):9554R% %S akilsubaxsnpu|#i2#lphainpun#umberinpuZ#sprit$azedraour$un$u #~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=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) $ %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 %Qw$=u$(jj+9 ) %R.w$(w$)=" "w$=w$(̱w$-1):9554R% %S akilsubaxsnpu|#i2#lphainpun#umberinpuZ#sprTrack-Info  N it$azedraour$un$um$or%efaultword:%ickworN%igtedigtedicros`pacp`_irswasttohuntpeeslosvwdbwtptsracrwtrvaststtg tg@co)linirklis k"Z colour train yxohatxwa <#4=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)=" "gm$or%efaultword:%ickworN%igtedigtedicros`pacp`_irswasttohuntpeeslosvwdbwtptsracrwtrvaststtg tg@co)linirklis k"Z colour train yxohatxwa <#4=64@*(col/64@):rncoZanother go y/n ?(,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 :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) $ %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) %>Track-Info  N j=191[10 %@z$ %Bu$(jj+9 )=z$ %Dj %F %NPick user word in w$ %P"j=(*10 )*10 +1 %Qw$=u$(jj+9 ) %R.w$(w$)=" "w$=w$(̱w$-1):9554R% %S kilsubaxsyx@ohatxwa<#`_k"npu|#i2#lphainpun#umberinpuZ#sprit$azedraour$un$um$or%efaultword:%ickworN%igtedigtedicros`pacpirswasttohuntpeeslosvwdbwtptsracrwtrvaststtg tg@co)linirklis Z colour train col:c4=64@*(col/64@):c3=6+c4+8*((col-c4)/8) #(.07}\(,12 :.07}\(,12 # x$(length) #place=1 #*Put up blanks* #"xenTrack-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&&&&&&&&& Track-Info ' N'''''''''