EXTENDED CPC DSK File Disk-Info CPDRead v3.24*Track-Info  N Track-Info  N DISK EB a EC EDITOR SB1  !"#SB1 $%&'()*+,-./0123SB1 4SB2 56789:;<=>?@ABCDSB2 EFGHIJKLMNOPQRSTSB2 USC1 'VWXYZSC2 '[\]^_SPELLS1 `SPELLS2 aSS1 7bcdefghSS2 7ijklmnoPLUS3DOS \ 5:5:0: `557,128:145,0:0,-579:-145,0:0,579 N201,127:0,-579:568,70F:145,0 f1;6,7;" HENRIETTA'S ";7,7;" BOOK of SPELLS " (+8,7;" " 2+9 ,7;" 1: 7-10 years " <,10 ,7;" 2: 11-14+ years " F,11 ,7;" 3: Editor " P,12 ,7;" " Z=1;15,7;" Select 1, 2 or 3 " di$=:=""100d n{i$="1"1;1;9 ,7;" ":15,7,,:.1}L,0:"spells1" x|i$="2"1;1;10 ,7;" ":15,7,,:.1}L,1:"spells2" {i$="3"1;1;11 ,7;" ":15,7,,:.1}L,2:"editor" 100d IPLUS3DOS}0/'( 5:5:0: d;h$="":m=1:ct=1:block=(m-1)*100d  81;0,0;" WORD-LIST EDITOR " m2500 :m=65,0;" 1 :Level";5,10 ;" Magic Words ":2010 \5,0;" 1 :Level";7;5,10 ;" ";m+4;" letter words " Q7Track-Info  N ,0;" 2 :View complete level";9 ,0;" 3 :Edit single word";11 ,0;" 4 :Edit whole level";13 ,0;" 5 :Step backwards through level";15,0;" 6 :Step forwards through level";17,0;" 7 :Save/Load word-block";19,0;" 8 :Help Page"  i$=:i$=""2060  Ai$="5"ct>1ct=ct-1:.05|L,0:2500 Ni$="6"m<6ct<100dct=ct+1:.05|L,10 :2500 Mi$="6"m=6ct<30ct=ct+1:.05|L,10 :2500 (i$="1".05|L,10 :5500| (i$="2".05|L,10 :3000 (i$="3".05|L,10 :6000p (i$="4".05|L,10 :7000X (i$="7".05|L,10 :4000  (i$="8".05|L,10 :8000@ 3 2060  ~2,0;" CURRENT WORD  ";1;0;7;2,15;7;0;" ";w$(block+ct): m=63500 &f=block+1::7;0,0;" Level ";m;" Word List Page 1 ":g=221:4;g,0;w$(f):f=f+1:g:g=221:2;7;g,11 ;w$(f):f=f+1:g:g=221:6;0;g,22;w$(f):f=f+1:g •#0;"  Press any key ":0:.05|L,0::7;0,0;" Level ";m;" Word List Page 2 " ̈g=221:4;g,0;w$(f):f=f+1:g:g=221:2;7;g,11 ;w$(f):f=f+1:g ]#0;"  Press any key ":0:.05|L,0:2000 Zf=block+1::7;1;0,0;" Magic Words " ?g=317:4;g,4;w$(f):f=f+1:g Ig=317:2;7;g,18;w$(f):f=f+1:g \#0;"  Press any key  ":0:.05|L,0:2000  83,0;" R:- RETURN TO MENU " 97,0;" S:- SAVE CURRENT WORD-LIST " 811 ,0;" L:- LOAD NEW WORD-LIST " I18,1;"SELECT:  R   S   L " '="s".05|L,10 :4900$ &="l".05|L,0:4800 '="r".05|L,20:2000  4530  10,0;" LOAD NEW WORD-LIST " f3,0;"1. Enter the name of the word- list you wish to LOAD and press ." b7,0;"2. Press any key and load in new word-list from your data tape."  5000 21,0,, 6;16,0,,;16,0;" Searching for ";v$;" on tape.";17,0;" If no word-list of this name is found then press and re-load. "  v$w$()  w$(531)="TERMINATED"21,0;" WORD-LIST LOADED CORRECTLY ":f=1300,:f:2000 w$(531)"TERMINATED"21,0;" ERROR: LOAD IN WORD-LIST AGAIN ":f=1300,:f:4800 %(w$(531)="TERMINATED"4930B )B16,0;" WORD LIST ERROR: CHECK WORDS " 3f=1300,:f = 2000 B7:0,0;" SAVE CURRENT WORD-LIST " L3,0;"1. Your word-list must be saved to tape, so insert blank tape into cassette and set up for recording." Qh8,0;"2. Enter the name you wish this word-list to be called and press ." TO12 ,0;"3. Press any key and save your new word-list to tape." V15,0;"4. Make a note of your new word- list's name and use this tape in conjunction with Henrietta's Book of Spells." ` 5000 ~ v$w$() b20,0;" Word-list now SAVED & may be used in future games. " $f=1300,:f:2000 h$=""  aa=7 /21,0;" Name of word-list:  " f=1aa:h$=h$+"-":f v$="":21,22;h$ i$=:i$=""5060 #i$=13 .05|L,0: /i$=12 .05|L,-10 :5050 (i$<32 ůi$>122z5060 Tv$122z6060 Tk$(V#^SE\#^#V#"U\"]\W6 r (͋(*  H͂Š84Ç* \##ʹ3͔ 8 0Oo&N#F#F 0K 0:O:1:8vF -!^#V#F z( +r+sz̭~ v###^#V* [RR8 * r+s+" N###^#V+r+s (0,O{ ©yo&!̓_xy (0O{ ©yo&ˆ!ˆvN  (̓ ©!'B8K:vCB\2D\̓ ©!'B8C*=\s#r..̓,( C͸>8{,©C͸0̓ ©!'B_o&i`nTrack-Info  N 6#6#}ˎw#s#r#s#r+++++r+s{=\ø6v!p"!76>G^*\#"!y" !" " {=\z> z ;s=\SB\2D\õ˺v* " vN::\26vv!u7"_\" \Ͱ!*E\":G\2*"B\6 õ[*\#R S\S\S}\SB\+~2D\"+V+^vV M* |(E T8<T85{=\[E\:G\< ~ [B\:D\3s=\"B\6 v!!y[ R(Z#^#V" KBB8A{=\i`KE\:G\< ~ KB\:D\wͿK}\ͿK\ͿK\Ϳ#"#q#p ~*B\n:D\( G~x°*\[#R   R"DOS00'MPLUS3DOS!59999_:5:5:5::9 ,8;" EDITOR LOADING ";11 ,8;" PLEASE WAIT ":"ec":"eb" PLUS3DOS7'l a1=a1+.25~:hr=(a1/3600):min=((a1-hr*3600)/60<):sec=(a1-hr*3600-min*60<):min>59;min=min-60< x1;0;7;vc,hc;" ";("0"hr<10 );hr;":";("0"min<10 );min;":";("0"sec<10 );sec;" ": trt=61103: (trt=61296p: "16","11";"" j$="":v="16" i$=:10 (i$=81Q.5,-20:open 9i$="0".2~L,35#:6000p+(stage*100d) &&i$=13 .05|L,0:sue 0i$=12 Ʊj$>0j$=j$(1(j$-1)):.05|L,0:end:v,11 ;:start:j$;" ";:end:8;" ":520 :'i$<97aůi$>122z520 D j$>(level-1)520 N.05|L,10 :v,(11 +j$);" ":v,(11 +j$);:start:j$=j$+i$:i$;:end:f=13:f:"":520 clue=-:h$="COMPLETE ":vc="21":hc="11":u$="aeiou":ll=-:sue="1500":stage=/:hv="9":hh="26":gh="4":wh="4" wgraphic="4":"9790":"8","28";"";"5","26";"";"6","26";"";"9","26";"";"10","26";""  graphic="5":"9790":"8000" h"8","gh";"";"9","gh";"";"10","gh";"";"4","wh";"";"5","wh";"";"6","wh";"" F"6","6";"";"10","6";"" ""7","4";"";"11","4";"" 0w=/̰"10":f:ܧ/;ڧ-;ٰ"7";"21","29";w w>1f=/̰"300":f 3f="16"̰"17":f,;" ":f $f=1(level*2)+1:12 ,2+f;" ";13 ,2+f;" ";14,2+f;" ":f .Gf=1(level*2)2:14,3+f;"":f QB1;7;19,3;" here are your consonants " VLf=/̰"100":f:o=(*100d)+(1+vocab):e$=w$(o)(1level) `f=1level ed=15 je$(ff)=u$(dd)1150~ td yB12 ,2+(f*2);:start:e$(ff):end:.03{u\,f ~f clue=1 5ܧ/;ڰ"7";"19","3";" now complete the word " x%"16","3";:start:"answer:":end "500" >v,(11 +j$);" ";"19",;" " j$e$"1600":"1800":w "1600":"1700":w @Gend:12 ,4;:start:l=1level:e$(ll);" ";:l:end Jclue=1 Track-Info  N T 85004!:graphic=5:9790>&:f=14:.01z# =,f*5:8,gh;" ";9 ,gh;" ";10 ,gh;" ";11 ,gh;" ":gh=gh+1:f gh="24"m(1)=/:"8","28";" ";ۧ/;ڰ"7";"8","26";m$(e(1)e(1)):f="45"̰"30"-1:.03{u\,f:.03{u\,30:f:8800`":open  f=14:.01z# =,f*-5:4,wh;" ";5,wh;" ";6,wh;" ";7,wh;" ":wh=wh+1:f ]wh="24"end:.73333,-15:.73333,-20:.73333,-25:8810j":open & nclue=-:h$=" JUMBLES ":vc="21":hc="11":sue="2300":stage="2":ll=-:hv="12":hh="27":box="16" ؃graphic="4":"9790":"14","26";"";"15","26";"";"hv","hh";"";hv+/,"hh";"":graphic="3":"9790":"8000" "7","3";"";"8","3";"";"9","3";"";"8","5";"";"7","27";"";"8","27";"";"9","27";"";"10","2";" " 5x=/̰"20":ܧ/;ڧ-;ٰ"7";"21","29";x:ax=/ x>1f=/̰"200":f ;o=(*100d)+(1+vocab):e$=w$(o)(1level)  f=1(level*2)+1:12 ,2+f;" ";13 ,2+f;" ";14,2+f;" ":f:f=2(level*2)2:14,2+f;"":f:f="16"̰"17":f,"10";" ":f p(level):g(level+1):f=1level+1:g(f)=f:f:c=1:b=level1-1:a=(*b)+1:p(c)=g(a):p(1)=12070  -d=ab:g(d)=g(d+1):d:c=c+1:b '#"16",;:start:"answer:":end ,12 ,4;:s$="":f=1level:.05|L,f*5:start:e$(p(f));" ";:s$=s$+e$(p(f)):end:f:clue=1 /6ܧ/;ڰ"7";٧-;"19","5";" What is this word? " 4"500" ="19","5";" ";v,(11 +j$);" " {j$e$f=130:f:.1}L,-10 :f=130:f:.5,-20:"5640":"2800":x:"2830" "5640":"2700":x:"2830" 7f=1level:p(f)=f:f:2700 :x:2830  85004!:u=/̺:.1}L,20:box=box-1:7,2;" ";8,2;"";9 ,2;" ";8,box;"":f=110 :f:7,2;" ";8,2;" ";9 ,2;" " box=5m(2)=1:ll=1:5640:1;7;8,5;m$(e(2)e(2)):f=45-30-1:.03{u\,f:.03{u\,30:f:8800`":open f=/̰"30":f:u: u=13:.1}L,-20:7,27;" ";8,27;"";9 ,27;" ";8,box;"":f=120:f:7,27;" ";8,27;" ";9 ,27;" ":box=box+1 box=26x=21ll=1:5640:ll=0:end:.4L,-15:.4L,-20:.4L,-25:.4L,-30:8810j":open f=/̰"30":f:u: ̕clue=-:h$=" FLASH ":vc="21":hc="11":ll=-:sue="3200":stage=:sv="5":sh="26":hv="9":hh="26":gv="8":gh="3":wv="4":wh="3" graphic="1":"9790":"gv","gh";"";gv+/,"gh";"";gv+2,"gh";"";"wv","wh";"";wv+/,"wh";"";wv+2,"wh";"" graphic="3":"9790":"8000" graphic="4":"9790":"sv","sh";"";sv+/,sh-1;"";"hv","hh";"";hv+/,"hh";"":f=711 4:f,2;" ":f hx=/̰"10":ܧ/;ڧ-;ٰ"7";"21","29";x:o=(*100d)+(1+vocab):e$=w$(o)(1level) !6f="16"̰"17":f,;" ":f &f=1(level*2)+1:12 ,2+f;" ";13 ,2+f;" ";14,2+f;" ":f:f=2(level*2)2:14,2+f;"":f 05ܧ/;ڰ"7";٧-;"19","5";" Here is your word " :if=2(level*2)2:12 ,2+f;:start:w$(o,f/2):end:f:clue=1 ?1f=/̰"20":.05|L,(*40()+1:f Dyf=2(level*2)2:12 ,2+f;" ";13 ,2+f;" ":f:clue=1 I5ܧ/;ڰ"7";٧-;"19","6";" What was the word ? " NE"18","5";"16",;:start:"answer:":end:"16","11";"" X"500" v,(11 +j$);" ";"19","5";" ":j$e$.Track-Info  N 4L,-20:.4L,-30:.4L,-40(:3800:3900<:3250 A85004!:graphic=4:9790>&:3700t:3900< f=/̰"250":f:x tdhh=hh-4:sv+1,sh-1;" ";hv,hh;" ";hv+1,hh-1;" " ~hh=6m(3)=1:1;7;hv+1,5;m$(e(3)e(3)):f=45-30-1:.03{u\,f:.03{u\,30:f:8800`":open  fsh=sh-4:hv+1,hh-1;" ";sv,sh;" ";sv+1,sh-1;" " ssh=6end:.4L,-15:.4L,-20:.4L,-25:.4L,-30:8810j":open  1f=/̰"200":f <3.2~L,"15":ܧ/;ڧ-;ٰ"7";"21","29";"x" @;o=(*100d)+(1+vocab):u$=w$(o)(1level) JLf="5"̰"11":f,"20";" ":f:f="18"̰"19":f,"16";" ":f Tf=1(level*2)+1:14,5+f;" ";15,5+f;" ";16,5+f;" ":f:clue=1 ^Gf=1(level*2)2:16,6+f;"":f cN"18","5";" Letters  ";ܧ/;"20","7";" Choose a letter " m]f$(/)="abcdefghijklmnopqrstuvwxyz":tl=-:fl=-:xx="5":yy="14":uv="18":uh="16" ri$= tf=/̰"3":f:10 w9i$="0".2~L,35#:6000p+(stage*100d) y(i$=81Q.5,-20:open |(i$<97aůi$>122z4210r *f$(1,i$-96`)="."4210r f$(1,i$-96`)="." f=1level:i$=u$(ff).05|L,20:yy,xx+(f*2);:start:i$:end:r$(f)=i$:fl=1:tl=tl+1:tl=level4500 f flfl=0:4210r ].05|L,-20:uv,uh;:start:i$;:end:ee:ee=ee+1:ee=431144000 uh=uh+1:4210r )172,135:0,-8: 172,118v,8: *172,110n:0,-15: +172,95_:-10 ,-15: *172,95_:10 ,-15: *172,102f:-10 ,0: )172,102f:10 ,0: 169,120x,2: 175,120x,2: )172,117u:0,-2: (170,113q:4,0: 0V20,7;" ":f=-8-38&-10 :.5,f:f 5Yf=1level:14,(f*2)+5;:start:u$(ff):end:f:clue=1 :f="10"̧/-1::.02{# =,f:f:wv=wv-2:gu=gu+"16":wv,"26";"";wv+"1","26";"";wv+"2","26";"";wv+"3","26";" ";wv+"4","26";" ";wv+"5","26";" ":209,gu:15,0 Dwv=/"4800" Nee="4300":x:"4800" *"20","7";" ":"8500" f=/̰"10":.02{# =,f:f:pv=pv-2:fu=fu+"16":pv,"4";"";pv+"1","4";"";pv+"2","4";"";pv+"3","4";" ";pv+"4","4";" ";pv+"5","4";" ":32 ,fu:15,0 pv=/"4700" ee="4300":x:"4700" \m(4)=1:ۧ/;ڰ"7";,"6";m$(e(4)e(4)):,"16";" ":f="45"̰"30"-1:.03{u\,f:.03{u\,"30":f:"8800":open 4end:,"16";" ":"8810":open clue=-:h$=" CRACK-IT ":vc="21":hc="11":ll=-:y$(1,5):d$="skate":sue="5600":stage="5":hv="7":hh="25":gv="8":gh="2":wv="8":wh="19" graphic="4":"9790":"9","24";"";"10","24";"Track-Info  N ";"hv","hh";"";hv+1,"hh";"":graphic="3":"9790":"8000" /,"11";"" "gv","gh";"";gv+/,"gh";"";gv+2,"gh";"";"wv","wh";"";wv+/,"wh";"";wv+2,"wh";"";"11","2";" " 4,10 ;"";5,9 ;"";6,8;"";7,7;"";8,6;"";9 ,5;"";10 ,4;"" f=1(level*2)+1:12 ,2+f;" ";13 ,2+f;" ";14,2+f;" ":f Gf=1(level*2)2:14,3+f;"":f Bܧ/;ڰ"2";ٰ"7";"18","2";" abcdefghijklmnopqrstuvwxyz ":end aw=/̰"10":ܧ/;ڧ-;ٰ"7";"21","29";w;ڰ"5";"13","23";" ";"14","23";" " P ran=/ ZNo=(*100d)+(1+vocab):e$=w$(o)(1level):v$(1,level) dFf=1level:cd=e$(ff):cd=cd-ran:cd<97acd=cd+26 xvv$(1,f)=cd:.03{u\,f*5:12 ,2+(f*2);:start:v$(1,f):end:f:clue=1 }Hf=15:dd=d$(ff):dd=dd-ran:dd<97add=dd+26 ~y$(1,f)=dd:f 1;12 ,23;" CLUE: ";7;0;13 ,23;" ";y$(1);" ";14,23;" ";d$;" " #"16",;:start:"answer:":end =ܧ/;ڰ"7";"20","6";" What is the word ? ":.5,- "500" ;v,(11 +j$);" ";"20","6";" " *j$=e$a=12::5700D:a |j$e$.5,-10 :.5,-20:.5,-30:g=110 :g:g=12:5800:g  Wend:12 ,4;:start:l=1level:e$(ll);" ";:l:end:clue=1  stage="2" f=/̰"150":f !_f=1(level*2):12 ,2+f;" ";13 ,2+f;" ":f 00f="16"̰"17":f,"11";" ":f :w D85004!:.05|L,20:gv=gv-1:gv,gh;" ";gv+1,gh;" ";gv+2,gh;" ";gv+3,gh;" ":gh=gh+1 Xgv=1m(5)=1:1,11 ;" ";1;7;2,11 ;m$(e(5)e(5)):f=45-30-1:.03{u\,f:.03{u\,30:f:8800`":open b .05|L,0:wv=wv-1:wh=wh-1:wv,wh;" ";wv+1,wh;" ";wv+2,wh;" ";wv+3,wh+1;" " f=/̰"75":f ~wv=1w=11 end:.4L,-15:.4L,-20:.4L,-25:.4L,-30:8810j":open  o p * clues Sver="12":hor="2":clue=1:"6700":"1600":"6800":"1120":clue=-: 8Sver="12":hor="2":clue=1:"6700":"5642":"6800":"2092":clue=-: Jver="12":hor="2":clue=1:"6700":"3130":"6800":clue=-: >ver="14":hor="5":clue=1:"6700":"4405":"6800"  Uf=1level:14,(f*2)+5;:start:r$(ff):end:f:clue=-: dSver="12":hor="2":clue=1:"6700":"5642":"6800":"5220":clue=-: clue=1:"6700" Of=15:6,10 +(f*2);:start:m$((f)(f)):end:f %f=/̰"50":f:"7030":clue=-: ,a1=a1+120x 6ۧ/;ܧ/;ڰ"7";٧-;vc,hc;" ";("0"hr<10 );hr;":";("0"min<10 );min;":";("0"sec<10 );sec;" ":f=/̰"20":.02{# =,20:f:10 : of=/̰"50":f:f=1(level*2)+1:ver,hor+f;" ";ver+1,hor+f;" ":f: X\h$=" CREATURE ":clue=-:ace=/:twit=-:wr=-::graphic=:9790>&:8000@ bf"2","4";:start:"Re-arrange these letters":end:"4","6";:start:"to find the creature":end lWf="6"̰"7":f,"10";" ":f:"8","10";" " s("10","7";" Press '0' for help " vaf=15:6,10 +(f*2);:start:m$(e(f)e(f)):end:f:clue=1 {f=12 13 :f,10 ;" ":f:14,10 ;" ";12 ,12 ;"" 18,5;"";19,5;"";20,5;"";18,21;"";19,21;"";20,21;"" graphic=4:9790>&:18,9 ;"";19,9 ;"";20,9 ;"";19,24;"";20,24;"" j$="":v=12 i$=:10 'i$="0".2~L,35Track-Info  N         #:6600 9i$=13 Ʊj$=5.05|L,0:7200  i$=12 Ʊj$>0j$=j$(1(j$-1)):.05|L,0:end:v,14+(j$*2);" ":v,12 +(j$*2);:start:" ":end:v,12 +(j$*2);"":7070 (i$<97aůi$>122z7070 j$>47070 й.05|L,10 :v,12 +(j$*2);" ";v,12 +(j$*2);:start:j$=j$+i$:i$:end:f=13:f:v,12 +(j$*2);"":7070 "12","22";" "  j$=m$7500L %wr=wr+1:wr=1.5,-15:.5,-30:16,3;" Wrong... One more chance ":12 ,10 ;"  ";13 ,10 ;" ":7060 *Rtwit=1:16,3;" ";12 ,22;" ";12 ,12 ;:start:l=/5:m$(ll);" ";:.5,-(l*8):l:end:f=1200:f:7630:x$=" Morgana says ~A frog, poor Henry shall remain... Unless you care to try again... Hee hee hee~":8870":9791?& Lq"16",;" ":hv="18":hh="9":l=/̺:85004!:l:graphic=4:9790>& V}"17","8";" ";"18","8";" ";"19","8";" ";"20","8";" ":f=/̰"50":f `f=39'8-1:.05|L,f:.05|L,39':(f/5):0;5;64@,f:0;5;32 ,0:f:5 jgraphic=6:9790>&:ܧ/;"17","8";" ";"18","8";" ";"19","8";" ";"20","8";" " wf="2"̺:ڰ"2";ٰ"7";f,"5";" ":f:2,4;:start:" Henry's Hall Of Fame ":end twit=1"7655" 1score=a1:f=b$+110 :b$=b$+".":f ،f=15:score59;min=min-60<  4+(f*2),6;:start:a$(f);" ";("0"hr<10 );hr;":";("0"min<10 );min;":";("0"sec<10 );sec:end:f twit=1 xx$=" Henrietta says... ~Thank you so much "+b$+", for helping me to save Henry. If you press any key, you can listen to the world famous symphony - Henry's Concerto. ~":8875" ,trt=61305y 6$trt=61317:=""79906 ?f=/̰"50":f:"9791" J0,0;"     " TAܧ/;ڧ-;ٰ"7";-,-;" CASTLE SPELLALOT ";-,"32"-h$;h$ ^f=318:f,0;"";f,30;"":f:19,0;"    " c)ace=/vc="21":hc="11":10 : e2stage<"5"/,"6";" Press '0' for help " fHstage="5"/,"17";" Press '0' ";"2","17";" for help " h1;0;7;21,0;" Level:";level-4;" ":10 :1;0;7;21,23;" Word: ": !>graphic=4:9790>&:f=12:hv-1,hh;"";hv,hh;"";hv+1,hh;" ":.03{u\,-28:g=13:g:hv-1,hh;" ";hv,hh;"";hv+1,hh;"":.03{u\,-28:g=110 :g:f:graphic=3:9790>&: "bhx$=" Henrietta says... ~Well done, you have found the letter "+m$(e(stage)e(stage))+"~":8870" "j*num=(*4)+1:8810j"+num "kx$=" Morgana says... ~I'm so pretty... Pretty horrible... Frog's legs , Bat's wings... What a bellyfull... Hee hee hee.~":8870" "lx$=" Morgana says... ~I like children... Just like you... Coated in batter... And served with stew... Hee hee hee.~":8870" "mx$=" Morgana says... ~Look into my cauldron... What do you see... Little boys and girls... Getting ready for tea... Hee hee hee.~":8870" "nx$=" Morgana says... ~Children... They're so soft and sweet... But I prefer them sour... When I'm ready to eat... Hee hee hee.~":8870" "0x$=x$+" Press any key to continue, "+b$+" - " "1#0;" Track-Info  N          " "ïtrt=61831 ".05|L,20: &>}addr=620000+(graphic-1)*152:23675{\,addr-256*(addr/256):23676|\,(addr/256): &?"5":ڰ"5":٧-: &@f=-̧/:"f","7";" ":f:-,"8";:"30":"Load New Words ?":"40":"4","10";" YES   NO " &A="n"ק/,"10":"9812" &B="y".05|L,-:"4","8";"  YES  ";"6","8";" ARE YOU SURE ? ";"8","10";" YES   NO ":"9796" &C "9793" &Df=/̰"10":f &E="n".05|L,-:"9791" &F="y"9800H& &G "9797" &H.05|L,"6":"6",-;" Type in the name of your word- list, press and load in your new selection from tape. ":f=9 12 :f,0,,:f &I%"12",-;" Word-List Name:  " &Jb$="":"12","18";"-------" &Ki$=:i$="""9803" &L*i$=13 .05|L,0:"9809" &M,i$=12 .05|L,-10 :"9802" &Ni$<"32"ůi$>"122""9803" &OEb$<"7"b$=b$+i$:"12","18";b$:.05|L,"10":f=/̰"5":f &P "9803" &Qڰ"6";"16",-,,;"16",-;" Searching for ";b$;" on tape.";"17",-;" If no word-list of this name is found, then press and re-load. " &S b$w$() &Tmw$(531)"TERMINATED""21",-;" ERROR: LOAD IN NEW WORDS AGAIN ":f=/̰"200":f:"9791" &U:clue=-:open="9860" &Ve(5):j(6):f=16:j(f)=f:f:c=1:b=51-1:a=(*b)+1:e(c)=j(a):e(1)=19814V& &W-d=ab:j(d)=j(d+1):d:c=c+1:b &Xzm(5):mm=(*30)+"501":m$=w$(mm)(15):start="30":end="40":graphic=/:"9790":stage=- &Zace=-:a1=-.25~ &[w:2;7;2,1;" ";3,1;" ":2,2;:start:"The Cast" &\8:"Morgana"::"Henrietta"::"Henry"::"Cedric":end &]Jgraphic=1:9790>&:5,10 ;"";6,8;" ";7,10 ;"";9 ,12 ;"";10 ,10 ;" ";11 ,12 ;"":graphic=4:9790>&:14,6;" ";15,8;"";18,7;" ";19,9 ;"":graphic=2:9790>& &^J0,16;" " &`Ea=219:a,16;" ":a &b120,16;"" &c4,19;:start:"Henrietta's":end:6,22;:start:"Book":end:8,23;:start:"of":end:10 ,21;:start:"Spells":end &du3;7;"13","19";"7-10 years";"17","18";" T.R.Tulloch";"18","24";"&";"19","20";"Scetlander" &f>#0;"  Press any key ":trt=60700 &h$trt=60712(:=""9832h& &jggraphic=1:9790>&::start:"Henrietta's Book of Spells":end:"" &kv" Following their earlier adventures, Henry and Henrietta have now been married happily for two weeks." &l~" However, almost inevitably,Henry's inquisitive nature led him to Castle Spellalot - home of Morgana the Morbid!" &m" There followed a briefexchange of views, where points were raised and opinions freely expressed. As a result, Henry isnow a fat frog!" &nx" Help Henrietta find theletters which make a magic word and restore Henry to his former good-looking self." &p*"21",-;" Type in your name " &q"b$="":"21","20";"----------" &ri$=:i$="""9842" &si$=13 "9850" &t,i$=12 .05|L,-10 :"9841" &ui$<"32"ůi$>"122""9842" &vFb$<"10"b$=b$+i$:"21","20";b$:.05|L,"10":f=/̰"5":f &w "9842" &zTb$(1)>96`Ưb$(1)<123{b$(1)=(b$(1)-32 ) &|F.05|L,-:"21",-;"Select length of words:(5 to 9) " &}i$=:i$<"5"i$>"9""9853" &~I.05|L,0:level=i$:ڰ"2";ٰ"7";"21","23";level;" letters" &1f=/̰"10":f:vocab=(level-5)*100d &Mx$=" Press any key to open the book "+b$+" - If you dare !!! ":"8875" &<f="40"̰"30"-1:.03{u\,"f":.03{u\,"30":f & &Qpop=0:graphic=2:9790>&:0,15;"" &1,0;"":a=219:a,0;" Track-Info  N          ":a &:20,0;"" &126~,167:0,-159:2,1;:start:"This book":end:4,1;:start:"belongs to":end &#6,1;:start:b$:end &14,97a:7;83S,0:7;0,-11 :7;-83S,0:7;0,11 &vc="10":hc="2":"10" &2;7;14,1;" CAPS/SHIFT";15,1;"pressed with";17,1;"Q:Quit Chapter";18,1;"N:New Game" &2,16;:start:"Contents":end:2;7;2,26;"Magic";3,25;"Letters";6,16;"Complete";9 ,16;"Jumbles";12 ,16;"Flash";15,16;"Hang-Up";18,16;"Crack-It" &zf=13232 -24:220,f:16,0:0,-16:-16,0:0,16:f &if=15:m(f)=11;7;0;(f*3)+3,28;m$(e(f)e(f)) &f &m(1)=1m(2)=1m(3)=1m(4)=1m(5)=1x$=" Using the magic letters, you must now spell the name of a creature that lives in Morgana's garden...":8870":7000X &:ܧ/;"21",-;" move bar : play " &!my="6":ch=/:i$="":"9891" &4i$=:i$" "i$13 i$78N9884& &mx=my &i$=78N9950& &3i$=13 .05|L,10 ::ch*1000 &Ki$=" "my=my+3:ch=ch+1:my>18my=6:ch=1 &_m(ch)=1pop=1:ch=ch+1:my=my+3:my>18my=6:ch=1 &&pop=1pop=0:9895& &J.05|L,20:1;2;7;mx,16;" " &B1;1;7;my,16;" ":9884& & & *new game &Z.05|L,0:"21",-;"  New Game ?   Y   N  " &="y"ק/,"5":"9791" &Y="n".05|L,"10":ܧ/;"21",-;" move bar : play ":"9884" & "9960" 'trt=63866z 'IGNORE BREAK ' ON ERROR GOTO 9791 ' ,:"23606","24":"23607","245":"9791" 7 .................................................. arrow apron alley apple alarm ankle amber bully brush brick block beach broom break cruel chair crown cabin chest chalk cloud drown drive daisy dream dance drink dress earth elbow empty enjoy frost flour field flame fence fight fruit grape gravy glass glove group heart hurry happy heavy honey house jelly knife knock lemon light large laugh magic match metal money mouth music nurse noise punch paint plane party penny prize paste quick robot round river ruler salad sword spade scarf shake shape sleep slate taste train table thick thumb truck uncle verse wrist waste watch water wheel young zebra advice afraid amount animal badger ballet beauty belong cactus camera centre colour defeat danger decide digest edible effort either employ famine family female friend garden gentle garage gossip hollow handle health honest icicle import insect injury jacket jungle jumble junior kennel kettle knight kitten lawyer length lesson listen muscle magnet manage meadow middle nimble narrow nature needle notice object occupy office orange puzzle parade pencil phrase picnic quaint quarry quench quaver rodent ramble reason rotate rumour system salmon school search signal tunnel tablet tennis throat toilet umpire unique urgent useful vacant vacuum vanish vapour walnut warren weapon winter yellow zodiac academy address average apology arrange balcony bicycle between bonfire buffalo cabinet cabbage canteen caravan collect deliver diagram diamond dunTrack-Info  N         geon drought dentist fashion feature forward furnish general garbage gallery genuine garment husband harvest hostage hammock isolate invalid include jealous journey justice knuckle kitchen lantern library luggage leisure leather measles mermaid message measure majesty novelty nursery naughty neglect nourish observe officer orchard opinion pendant prepare padlock plumber poverty passage quarrel quarter quality reflect romance release routine regular session sheriff skipper segment shallow soldier surgery tremble trigger tantrum theatre tragedy thunder uniform vinegar valiant variety verdict victory without weather whisper whistle whimper yoghurt affluent announce asteroid approach audition antelope bracelet barbecue brochure bachelor boundary business currency carousel carriage charcoal collapse carnival dominate delicate dynamite dissolve domestic dandruff enormous exchange epilogue elephant electric familiar fraction function flattery fortress garrison graphite gruesome gorgeous generous hesitate hospital heptagon hedgehog inspired ignorant illusion infinite junction juvenile jeopardy kangaroo lavender lollipop language literate location luscious mountain material marzipan multiply migraine national nitrogen nuisance occasion omelette operator organism persuade platform peculiar physical parallel question relation ridicule reckless register receiver reindeer squirrel sabotage shepherd scramble tentacle toboggan trousers transfer thorough umbrella ultimate universe violence vicinity volatile vacation wardrobe withdraw wishbone auxiliary advantage aeroplane architect asparagus butterfly barometer barricade beautiful behaviour culminate captivate celebrate champagne coastline duplicate deficient delicious dimension dormitory eccentric education efficient equipment favourite flammable frequency furniture gymnastic gentleman generator geography gratitude harmonica hibernate holocaust hydraulic identical illogical incentive indignant jewellery knowledge librarian limousine liquorice lifeguard lubricate machinery magnitude moustache manoeuvre margarine moonlight municipal negotiate narrative necessity neighbour nocturnal nostalgia obedience obnoxious officiate orchestra punctuate publicity permanent parachute paragraph penetrate prosecute quotation retaliate reservoir rebellion recipient redundant reinforce religious speculate sacrifice sanctuary satirical satellite sensitive tarantula tarpaulin technique telegraph turquoise upholster vaccinate valentine vegetable venerable vengeance voluntary wonderful xylophone whale shark eagle horse zebra skunk camel koala panda otter mouse tiger hyena snail sheep moose robin raven chick corgi flies cobra bison goose llama adder stork heron sloth snake TERMINATEDly female friend garden gentle garage gossip hollow handle health honest icicle import insect injury jacket jungle jumble junior kennel kettle knight kitten lawyer length lesson listen muscle magnet manage meadow middle nimble narrow nature needle notice object occupy office orange puzzle parade pencil phrase picnic qPLUS3DOSʃJ'nE a1=a1+.25~:hr=(a1/3600):min=((a1-hr*3600)/60<):sec=(a1-hr*3600-min*60<):min>59;min=min-60< x1;0;7;vc,hc;" ";("0"hr<10 );hr;":";("0"min<10 );min;":";("0"sec<10 );sec;" ": trt=61103: (trt=61296p: "16","11";"" j$="":v="16" i$=:10 (i$=81Q.5,-20:open 9i$="0".2~L,35#:6000p+(stage*100d) &&i$=13 .05|L,0:sue 0i$=12 Ʊj$>0j$=j$(1(j$-1)):.05|L,0:end:v,11 ;:start:j$;" ";:end:8;" ":520 :'i$<97aůi$>122z520 D j$>(level-1)520 N.05|L,10 :v,(11 +j$);" ":v,(11 +j$);:start:j$=j$+i$:i$;:end:f=13:f:"Track-Info  N         ":520 clue=-:h$="COMPLETE ":vc="21":hc="11":u$="aeiou":ll=-:sue="1500":stage=/:hv="9":hh="26":gh="4":wh="4" wgraphic="4":"9790":"8","28";"";"5","26";"";"6","26";"";"9","26";"";"10","26";""  graphic="5":"9790":"8000" h"8","gh";"";"9","gh";"";"10","gh";"";"4","wh";"";"5","wh";"";"6","wh";"" F"6","6";"";"10","6";"" ""7","4";"";"11","4";"" 0w=/̰"10":f:ܧ/;ڧ-;ٰ"7";"21","29";w w>1f=/̰"300":f 3f="16"̰"17":f,;" ":f !"p$="":f=/level:p$=p$+" ":f $f=1(level*2)+1:12 ,2+f;" ";13 ,2+f;" ";14,2+f;" ":f .Gf=1(level*2)2:14,3+f;"":f QB1;7;19,3;" here are your consonants " VLf=/̰"100":f:o=(*100d)+(1+vocab):e$=w$(o)(1level) `f=1level ed=15 je$(f)=u$(d)1150~ td yMp$(f)=e$(f):12 ,2+(f*2);:start:e$(f):end:.03{u\,f ~f clue=1 5ܧ/;ڰ"7";"19","3";" now complete the word " x%"16","3";:start:"answer:":end "500" >v,(11 +j$);" ";"19",;" " j$e$"1600":"1800":w "1600":"1700":w @Gend:12 ,4;:start:l=1level:e$(ll);" ";:l:end Jclue=1 T 85004!:graphic=5:9790>&:f=14:.01z# =,f*5:8,gh;" ";9 ,gh;" ";10 ,gh;" ";11 ,gh;" ":gh=gh+1:f gh="24"m(1)=/:"8","28";" ";ۧ/;ڰ"7";"8","26";m$(e(1)e(1)):f="45"̰"30"-1:.03{u\,f:.03{u\,30:f:8800`":open  f=14:.01z# =,f*-5:4,wh;" ";5,wh;" ";6,wh;" ";7,wh;" ":wh=wh+1:f ]wh="24"end:.73333,-15:.73333,-20:.73333,-25:8810j":open & nclue=-:h$=" JUMBLES ":vc="21":hc="11":sue="2300":stage="2":ll=-:hv="12":hh="27":box="16" ؃graphic="4":"9790":"14","26";"";"15","26";"";"hv","hh";"";hv+/,"hh";"":graphic="3":"9790":"8000" "7","3";"";"8","3";"";"9","3";"";"8","5";"";"7","27";"";"8","27";"";"9","27";"";"10","2";" " 5x=/̰"20":ܧ/;ڧ-;ٰ"7";"21","29";x:ax=/ x>1f=/̰"200":f ;o=(*100d)+(1+vocab):e$=w$(o)(1level)  f=1(level*2)+1:12 ,2+f;" ";13 ,2+f;" ";14,2+f;" ":f:f=2(level*2)2:14,2+f;"":f:f="16"̰"17":f,"10";" ":f p(level):g(level+1):f=1level+1:g(f)=f:f:c=1:b=level1-1:a=(*b)+1:p(c)=g(a):p(1)=12070  -d=ab:g(d)=g(d+1):d:c=c+1:b '#"16",;:start:"answer:":end ,12 ,4;:s$="":f=1level:.05|L,f*5:start:e$(p(f));" ";:s$=s$+e$(p(f)):end:f:clue=1 /6ܧ/;ڰ"7";٧-;"19","5";" What is this word? " 4"500" ="19","5";" ";v,(11 +j$);" " {j$e$f=130:f:.1}L,-10 :f=130:f:.5,-20:"5640":"2800":x:"2830" "5640":"2700":x:"2830" 7f=1level:p(f)=f:f:2700 :x:2830  85004!:u=/̺:.1}L,20:box=box-1:7,2;" ";8,2;"";9 ,2;" ";8,box;"":f=110 :f:7,2;" ";8,2;" ";9 ,2;" " box=5m(2)=1:ll=1:5640:1;7;8,5;m$(e(2)e(2)):f=45-30-1:.03{u\,f:.03{u\,30:f:8800`":open f=/̰"30":f:u: u=13:.1}L,-20:7,27;" ";8,27;"";9 ,27;" ";8,box;"":f=120:f:7,27;" ";8,27;" ";9 ,27;" ":box=box+1 box=26x=21ll=1:5640:ll=0:end:.4L,Track-Info  N -15:.4L,-20:.4L,-25:.4L,-30:8810j":open f=/̰"30":f:u: ̕clue=-:h$=" FLASH ":vc="21":hc="11":ll=-:sue="3200":stage=:sv="5":sh="26":hv="9":hh="26":gv="8":gh="3":wv="4":wh="3" graphic="1":"9790":"gv","gh";"";gv+/,"gh";"";gv+2,"gh";"";"wv","wh";"";wv+/,"wh";"";wv+2,"wh";"" graphic="3":"9790":"8000" graphic="4":"9790":"sv","sh";"";sv+/,sh-1;"";"hv","hh";"";hv+/,"hh";"":f=711 4:f,2;" ":f hx=/̰"10":ܧ/;ڧ-;ٰ"7";"21","29";x:o=(*100d)+(1+vocab):e$=w$(o)(1level) !6f="16"̰"17":f,;" ":f &f=1(level*2)+1:12 ,2+f;" ";13 ,2+f;" ";14,2+f;" ":f:f=2(level*2)2:14,2+f;"":f 05ܧ/;ڰ"7";٧-;"19","5";" Here is your word " :if=2(level*2)2:12 ,2+f;:start:w$(o,f/2):end:f:clue=1 ?1f=/̰"10":.05|L,(*40()+1:f Dyf=2(level*2)2:12 ,2+f;" ";13 ,2+f;" ":f:clue=1 I5ܧ/;ڰ"7";٧-;"19","6";" What was the word ? " NE"18","5";"16",;:start:"answer:":end:"16","11";"" X"500" v,(11 +j$);" ";"19","5";" ":j$e$.4L,-20:.4L,-30:.4L,-40(:3800:3900<:3250 A85004!:graphic=4:9790>&:3700t:3900< f=/̰"250":f:x tdhh=hh-4:sv+1,sh-1;" ";hv,hh;" ";hv+1,hh-1;" " ~hh=6m(3)=1:1;7;hv+1,5;m$(e(3)e(3)):f=45-30-1:.03{u\,f:.03{u\,30:f:8800`":open  fsh=sh-4:hv+1,hh-1;" ";sv,sh;" ";sv+1,sh-1;" " ssh=6end:.4L,-15:.4L,-20:.4L,-25:.4L,-30:8810j":open  1f=/̰"200":f <3.2~L,"15":ܧ/;ڧ-;ٰ"7";"21","29";"x" @;o=(*100d)+(1+vocab):u$=w$(o)(1level) JLf="5"̰"11":f,"20";" ":f:f="18"̰"19":f,"16";" ":f Tf=1(level*2)+1:14,5+f;" ";15,5+f;" ";16,5+f;" ":f:clue=1 ^Gf=1(level*2)2:16,6+f;"":f cN"18","5";" Letters  ";ܧ/;"20","7";" Choose a letter " m]f$(/)="abcdefghijklmnopqrstuvwxyz":tl=-:fl=-:xx="5":yy="14":uv="18":uh="16" ri$= tf=/̰"3":f:10 w9i$="0".2~L,35#:6000p+(stage*100d) y(i$=81Q.5,-20:open |(i$<97aůi$>122z4210r *f$(1,i$-96`)="."4210r f$(1,i$-96`)="." f=1level:i$=u$(ff).05|L,20:yy,xx+(f*2);:start:i$:end:r$(f)=i$:fl=1:tl=tl+1:tl=level4500 f flfl=0:4210r ].05|L,-20:uv,uh;:start:i$;:end:ee:ee=ee+1:ee=431144000 uh=uh+1:4210r )172,135:0,-8: 172,118v,8: *Track-Info  N 172,110n:0,-15: +172,95_:-10 ,-15: *172,95_:10 ,-15: *172,102f:-10 ,0: )172,102f:10 ,0: 169,120x,2: 175,120x,2: )172,117u:0,-2: (170,113q:4,0: 0V20,7;" ":f=-8-38&-10 :.5,f:f 5Yf=1level:14,(f*2)+5;:start:u$(ff):end:f:clue=1 :f="10"̧/-1::.02{# =,f:f:wv=wv-2:gu=gu+"16":wv,"26";"";wv+"1","26";"";wv+"2","26";"";wv+"3","26";" ";wv+"4","26";" ";wv+"5","26";" ":209,gu:15,0 Dwv=/"4800" Nee="4300":x:"4800" *"20","7";" ":"8500" f=/̰"10":.02{# =,f:f:pv=pv-2:fu=fu+"16":pv,"4";"";pv+"1","4";"";pv+"2","4";"";pv+"3","4";" ";pv+"4","4";" ";pv+"5","4";" ":32 ,fu:15,0 pv=/"4700" ee="4300":x:"4700" \m(4)=1:ۧ/;ڰ"7";,"6";m$(e(4)e(4)):,"16";" ":f="45"̰"30"-1:.03{u\,f:.03{u\,"30":f:"8800":open 4end:,"16";" ":"8810":open clue=-:h$=" CRACK-IT ":vc="21":hc="11":ll=-:y$(1,5):d$="skate":sue="5600":stage="5":hv="7":hh="25":gv="8":gh="2":wv="8":wh="19" graphic="4":"9790":"9","24";"";"10","24";"";"hv","hh";"";hv+1,"hh";"":graphic="3":"9790":"8000" /,"11";"" "gv","gh";"";gv+/,"gh";"";gv+2,"gh";"";"wv","wh";"";wv+/,"wh";"";wv+2,"wh";"";"11","2";" " 4,10 ;"";5,9 ;"";6,8;"";7,7;"";8,6;"";9 ,5;"";10 ,4;"" f=1(level*2)+1:12 ,2+f;" ";13 ,2+f;" ";14,2+f;" ":f Gf=1(level*2)2:14,3+f;"":f Bܧ/;ڰ"2";ٰ"7";"18","2";" abcdefghijklmnopqrstuvwxyz ":end aw=/̰"10":ܧ/;ڧ-;ٰ"7";"21","29";w;ڰ"5";"13","23";" ";"14","23";" " Pran=(*"3")+/ ZNo=(*100d)+(1+vocab):e$=w$(o)(1level):v$(1,level) _ug=- dFf=1level:cd=e$(ff):cd=cd-ran:cd<97acd=cd+26 xvv$(1,f)=cd:.03{u\,f*5:12 ,2+(f*2);:start:v$(1,f):end:f:clue=1 }Hf=15:dd=d$(ff):dd=dd-ran:dd<97add=dd+26 ~y$(1,f)=dd:f 1;12 ,23;" CLUE: ";7;0;13 ,23;" ";y$(1);" ";14,23;" ";d$;" " #"16",;:start:"answer:":end =ܧ/;ڰ"7";"20","6";" What is the word ? ":.5,- "500" ;v,(11 +j$);" ";"20","6";" " *j$=e$a=12::5700D:a |j$e$.5,-10 :.5,-20:.5,-30:g=110 :g:g=12:5800:g  Wend:12 ,4;:start:l=1level:e$(ll);" ";:l:end:clue=1  stage="2" f=/̰"150":f !_f=1(level*2):12 ,2+f;" ";13 ,2+f;" ":f 00f="16"̰"17":f,"11";" ":f :w D85004!:.05|L,20:gv=gv-1:gv,gh;" ";gv+1,gh;" ";gv+2,gh;" ";gv+3,gh;" ":gh=gh+1 Xgv=1m(5)=1:1,11 ;" ";1;7;2,11 ;m$(e(5)e(5)):f=45-30-1:.03{u\,f:.03{u\,30:f:8800`":open b .05|L,0:wv=wv-1:wh=wh-1:wv,wh;" ";wv+1,wh;" ";wv+2,wh;" ";wv+3,wh+1;" " f=/̰"75":f ~wv=1w=11 end:.4L,-15:.4L,-20:.4L,-25:.4L,-30:8810j":open  o !f=1level:p$(f)" "f:  clue=/:a1=a1+"30":"6710" rf=1level:p$(f)=" "12 ,2+(f*2);:start:e$(f):end:p$(f)=e$(f):.03{u\,f:"6130" f  clue=-: 8ax>level-1 =a1=a1+"15":"6710" Be=1level:p(e)=axs$="":g=p(Track-Info  N ax):p(ax)=ax:p(e)=g:c=1:f=2(level*2)2:12 ,2+f;:.05|L,c*5:start:e$(p(c)):s$=s$+e$(p(c)):c=c+1:end:f Le:ax=ax+1:clue=-: Jver="12":hor="2":clue=1:"6700":"3130":"6800":clue=-:  clue=/:a1=a1+"30":"6710"  /f=1level:r$(f)=" "i$=u$(f):"6430" f  clue=-: d ug=level n clue=/:a1=a1+"15":"6710" xZug=ug+1:12 ,2+(ug*2);:start:e$(ug):end:.03{u\,ug*3  clue=-: clue=/:"6700" Of=15:6,10 +(f*2);:start:m$((f)(f)):end:f "7030":clue=-: ,a1=a1+"120" 6ۧ/;ܧ/;ڰ"7";٧-;vc,hc;" ";("0"hr<10 );hr;":";("0"min<10 );min;":";("0"sec<10 );sec;" ":f=/̰"20":.02{# =,20:f:10 : of=/̰"30":f:f=1(level*2)+1:ver,hor+f;" ";ver+1,hor+f;" ":f: X\h$=" CREATURE ":clue=-:ace=/:twit=-:wr=-::graphic=:9790>&:8000@ bf"2","4";:start:"Re-arrange these letters":end:"4","6";:start:"to find the creature":end lWf="6"̰"7":f,"10";" ":f:"8","10";" " s("10","7";" Press '0' for help " vaf=15:6,10 +(f*2);:start:m$(e(f)e(f)):end:f:clue=1 {f=12 13 :f,10 ;" ":f:14,10 ;" ";12 ,12 ;"" 18,5;"";19,5;"";20,5;"";18,21;"";19,21;"";20,21;"" graphic=4:9790>&:18,9 ;"";19,9 ;"";20,9 ;"";19,24;"";20,24;"" j$="":v=12 i$=:10 'i$="0".2~L,35#:6600 9i$=13 Ʊj$=5.05|L,0:7200  i$=12 Ʊj$>0j$=j$(1;"" f=1(level*2)+1:12 ,2+f;" ";13 ,2+f;" ";14,2+f;" ":f Gf=1(level*2)2:14,3+f;"":f Bܧ/;ڰ"2";ٰ"7";"18","2";" abcdefghijklmnopqrstuvwxyz ":end aw=/̰"10":ܧ/;ڧ-;ٰ"7";"21","29";w;ڰ"5";"13","23";" ";"14","23";" " Pran=(*"3")+/ ZNo=(*100d)+(1+vocab):e$=w$(o)(1level):v$(1,level).5,-15:.5,-30:16,3;" Wrong... One more chance ":12 ,10 ;"  ";13 ,10 ;" ":7060 *Rtwit=1:16,3;" ";12 ,22;" ";12 ,12 ;:start:l=/5:m$(ll);" ";:.5,-(l*8):l:end:f=1200:f:7630:x$=" Morgana says ~A frog, poor Henry shall remain... Unless you care to try again... Hee hee hee~":8870":9791?& Lq"16",;" ":hv="18":hh="9":l=/̺:85004!:l:graphic=4:9790>& V}"17","8";" ";"18","8";" ";"19","8";" ";"20","8";" ":f=/̰"50":f `f=39'8-1:.05|L,f:.05|L,39':(f/5):0;5;64@,f:0;5;32 ,0:f:5 jgraphic=6:9790>&:ܧ/;"17","8";" ";"18","8";" ";"19","8";" ";"20","8";" " wf="2"̺:ڰ"2";ٰ"7";f,"5";" ":f:2,4;:start:" Henry's Hall Of Fame ":end twit=1"7655" 1score=a1:f=b$+110 :b$=b$+".":f ،f=15:score59;min=min-60<  4+(f*2),6;:start:a$(f);" ";("0"hr<10 );hr;":";("0"min<10 );min;":";("0"sec<10 );sec:end:f twit=1 xx$=" Henrietta says... ~Thank you so much "+b$+", for helping me to save Henry. If you press any key, you can listen to the world famous symphony - Henry's Concerto. ~":8875" ,trt=61305y 6$Track-Info  N trt=61317:=""79906 ?f=/̰"50":f:"9791" J0,0;"     " TAܧ/;ڧ-;ٰ"7";-,-;" CASTLE SPELLALOT ";-,"32"-h$;h$ ^f=318:f,0;"";f,30;"":f:19,0;"    " c)ace=/vc="21":hc="11":10 : e2stage<"5"/,"6";" Press '0' for help " fHstage="5"/,"17";" Press '0' ";"2","17";" for help " h1;0;7;21,0;" Level:";level-4;" ":10 :1;0;7;21,23;" Word: ": !>graphic=4:9790>&:f=12:hv-1,hh;"";hv,hh;"";hv+1,hh;" ":.03{u\,-28:g=13:g:hv-1,hh;" ";hv,hh;"";hv+1,hh;"":.03{u\,-28:g=110 :g:f:graphic=3:9790>&: "bhx$=" Henrietta says... ~Well done, you have found the letter "+m$(e(stage)e(stage))+"~":8870" "j*num=(*4)+1:8810j"+num "kx$=" Morgana says... ~I'm so pretty... Pretty horrible... Frog's legs , Bat's wings... What a bellyfull... Hee hee hee.~":8870" "lx$=" Morgana says... ~I like children... Just like you... Coated in batter... And served with stew... Hee hee hee.~":8870" "mx$=" Morgana says... ~Look into my cauldron... What do you see... Little boys and girls... Getting ready for tea... Hee hee hee.~":8870" "nx$=" Morgana says... ~Children... They're so soft and sweet... But I prefer them sour... When I'm ready to eat... Hee hee hee.~":8870" "0x$=x$+" Press any key to continue, "+b$+" - " "1#0;" " "ïtrt=61831 ".05|L,20: &>}addr=620000+(graphic-1)*152:23675{\,addr-256*(addr/256):23676|\,(addr/256): &?"5":ڰ"5":٧-: &@f=-̧/:"f","7";" ":f:-,"8";:"30":"Load New Words ?":"40":"4","10";" YES   NO " &A="n"ק/,"10":"9812" &B="y".05|L,-:"4","8";"  YES  ";"6","8";" ARE YOU SURE ? ";"8","10";" YES   NO ":"9796" &C "9793" &Df=/̰"10":f &E="n".05|L,-:"9791" &F="y""9800" &G "9797" &H.05|L,"6":"6",-;" Type in the name of your word- list, press and load in your new selection from tape. ":f="9"̰"12":f,-,,:f &I$"12",-;" Word-List Name: " &Jb$="":"12","18";"-------" &Ki$=:i$="""9803" &L*i$=13 .05|L,0:"9809" &M,i$=12 .05|L,-10 :"9802" &Ni$<"32"ůi$>"122""9803" &OEb$<"7"b$=b$+i$:"12","18";b$:.05|L,"10":f=/̰"5":f &P "9803" &Qڰ"6";"16",-,,;"16",-;" Searching for ";b$;" on tape.";"17",-;" If no word-list of this name is found, then press and re-load. " &S b$w$() &Tqw$(531)"TERMINATED""21",-;" ERROR: LOAD IN NEW WORDS AGAIN ":f=/̰"200":f:"9791" &X:clue=-:open="9860" &Ye(5):j(6):f=16:j(f)=f:f:c=1:b=51-1:a=(*b)+1:e(c)=j(a):e(1)=19817Y& &Z-d=ab:j(d)=j(d+1):d:c=c+1:b &[zm(5):mm=(*30)+"501":m$=w$(mm)(15):start="30":end="40":graphic=/:"9790":stage=- &\ace=-:a1=-.25~ &]w:2;7;2,1;" ";3,1;" ":2,2;:start:"The Cast" &^8:"Morgana"::"Henrietta"::"Henry"::"Cedric":end &_Jgraphic=1:9790>&:5,10 ;"";6,8;" ";7,10 ;"";9 ,12 ;"";10 ,10 ;" ";11 ,12 ;"":graphic=4:9790>&:14,6;" ";15,8;"";18,7;" ";19,9 ;"":graphic=2:9790>& &aJ0,16;" " &bEa=219:a,16;" ":a &c120,16;"" &d4,19;:start:"Henrietta's":end:6,22;:start:"Book":end:8Track-Info  N ,23;:start:"of":end:10 ,21;:start:"Spells":end &e13 ,18;"11-14+ years";17,18;" T.R.Tulloch";18,24;"&";19,20;"Scetlander" &f>#0;"  Press any key ":trt=60700 &h$trt=60712(:=""9832h& &jggraphic=1:9790>&::start:"Henrietta's Book of Spells":end:"" &kr" Following their earlier adventures, Henry and Henrietta have been married happily for two weeks." &l~" However, almost inevitably,Henry's inquisitive nature led him to Castle Spellalot - home of Morgana the Morbid!" &m" There followed a briefexchange of views, where points were raised and opinions freely expressed. As a result, Henry isnow a fat frog!" &nx" Help Henrietta find the letters which make a magic word and restore Henry to his former good-looking self." &p*"21",-;" Type in your name " &q"b$="":"21","20";"----------" &ri$=:i$="""9842" &si$=13 "9848" &t,i$=12 .05|L,-10 :"9841" &ui$<"32"ůi$>"122""9842" &vFb$<"10"b$=b$+i$:"21","20";b$:.05|L,"10":f=/̰"5":f &w "9842" &xTb$(1)>96`Ưb$(1)<123{b$(1)=(b$(1)-32 ) &zF.05|L,-:"21",-;"Select length of words:(5 to 9) " &{i$=:i$<"5"i$>"9""9851" &|I.05|L,0:level=i$:ڰ"2";ٰ"7";"21","23";level;" letters" &~1f=/̰"10":f:vocab=(level-5)*100d &Mx$=" Press any key to open the book "+b$+" - If you dare !!! ":"8875" &<f="40"̰"30"-1:.03{u\,"f":.03{u\,"30":f & &Qpop=0:graphic=2:9790>&:0,15;"" &1,0;"":a=219:a,0;" ":a &:20,0;"" &126~,167:0,-159:2,1;:start:"This book":end:4,1;:start:"belongs to":end &#6,1;:start:b$:end &14,97a:7;83S,0:7;0,-11 :7;-83S,0:7;0,11 &vc="10":hc="2":"10" &2;7;14,1;" CAPS/SHIFT";15,1;"pressed with";17,1;"Q:Quit Chapter";18,1;"N:New Game" &2,16;:start:"Contents":end:2;7;2,26;"Magic";3,25;"Letters";6,16;"Complete";9 ,16;"Jumbles";12 ,16;"Flash";15,16;"Hang-Up";18,16;"Crack-It" &zf=13232 -24:220,f:16,0:0,-16:-16,0:0,16:f &if=15:m(f)=11;7;0;(f*3)+3,28;m$(e(f)e(f)) &f &m(1)=1m(2)=1m(3)=1m(4)=1m(5)=1x$=" Using the magic letters, you must now spell the name of a creature that lives in Morgana's garden...":8870":7000X &:ܧ/;"21",-;" move bar : play " &!my="6":ch=/:i$="":"9891" &4i$=:i$" "i$13 i$78N9884& &mx=my &i$=78N9950& &3i$=13 .05|L,10 ::ch*1000 &Ki$=" "my=my+3:ch=ch+1:my>18my=6:ch=1 &_m(ch)=1pop=1:ch=ch+1:my=my+3:my>18my=6:ch=1 &&pop=1pop=0:9895& &J.05|L,20:1;2;7;mx,16;" " &B1;1;7;my,16;" ":9884& & &Z.05|L,0:"21",-;"  New Game ?   Y   N  " &="y"ק/,"5":"9791" &Y="n".05|L,"10":ܧ/;"21",-;" move bar : play ":"9884" & "9960" 'trt=63866z 'IGNORE BREAK ' ON ERROR GOTO 9791 ' ,:"23606","24":"23607","245":"9791" 7 .................................................. arrow apron alley apple alarm ankle amber bully brush brick block beach broom break cruel chair crown cabin chest chalk cloud drown drive daisy dreaTrack-Info  N m dance drink dress earth elbow empty enjoy frost flour field flame fence fight fruit grape gravy glass glove group heart hurry happy heavy honey house jelly knife knock lemon light large laugh magic match metal money mouth music nurse noise punch paint plane party penny prize paste quick robot round river ruler salad sword spade scarf shake shape sleep slate taste train table thick thumb truck uncle verse wrist waste watch water wheel young zebra advice afraid amount animal badger ballet beauty belong cactus camera centre colour defeat danger decide digest edible effort either employ famine family female friend garden gentle garage gossip hollow handle health honest icicle import insect injury jacket jungle jumble junior kennel kettle knight kitten lawyer length lesson listen muscle magnet manage meadow middle nimble narrow nature needle notice object occupy office orange puzzle parade pencil phrase picnic quaint quarry quench quaver rodent ramble reason rotate rumour system salmon school search signal tunnel tablet tennis throat toilet umpire unique urgent useful vacant vacuum vanish vapour walnut warren weapon winter yellow zodiac academy address average apology arrange balcony bicycle between bonfire buffalo cabinet cabbage canteen caravan collect deliver diagram diamond dungeon drought dentist fashion feature forward furnish general garbage gallery genuine garment husband harvest hostage hammock isolate invalid include jealous journey justice knuckle kitchen lantern library luggage leisure leather measles mermaid message measure majesty novelty nursery naughty neglect nourish observe officer orchard opinion pendant prepare padlock plumber poverty passage quarrel quarter quality reflect romance release routine regular session sheriff skipper segment shallow soldier surgery tremble trigger tantrum theatre tragedy thunder uniform vinegar valiant variety verdict victory without weather whisper whistle whimper yoghurt affluent announce asteroid approach audition antelope bracelet barbecue brochure bachelor boundary business currency carousel carriage charcoal collapse carnival dominate delicate dynamite dissolve domestic dandruff enormous exchange epilogue elephant electric familiar fraction function flattery fortress garrison graphite gruesome gorgeous generous hesitate hospital heptagon hedgehog inspired ignorant illusion infinite junction juvenile jeopardy kangaroo lavender lollipop language literate location luscious mountain material marzipan multiply migraine national nitrogen nuisance occasion omelette operator organism persuade platform peculiar physical parallel question relation ridicule reckless register receiver reindeer squirrel sabotage shepherd scramble tentacle toboggan trousers transfer thorough umbrella ultimate universe violence vicinity volatile vacation wardrobe withdraw wishbone auxiliary advantage aeroplane architect asparagus butterfly barometer barricade beautiful behaviour culminate captivate celebrate champagne coastline duplicate deficient delicious dimension dormitory eccentric education efficient equipment favourite flammable frequency furniture gymnastic gentleman generator geography gratitude harmonica hibernate holocaust hydraulic identical illogical incentive indignant jewellery knowledge librarian limousine liquorice lifeguard lubricate machinery magnitude moustache manoeuvre margarine moonlight municipal negotiate narrative necessity neighbour nocturnal nostalgia obedience obnoxious officiate orchestra punctuate publicity permanent parachute paragraph penetrate prosecute quotation retaliate reservoir rebellion recipient redundant reinforce religious speculate sacrifice sanctuary satirical satellite seTrack-Info  N nsitive tarantula tarpaulin technique telegraph turquoise upholster vaccinate valentine vegetable venerable vengeance voluntary wonderful xylophone whale shark eagle horse zebra skunk camel koala panda otter mouse tiger hyena snail sheep moose robin raven chick corgi flies cobra bison goose llama adder stork heron sloth snake TERMINATEDly female friend garden gentle garage PLUS3DOSdq!%"7!g";c͎>))/&qh^#V@(r+s~ _!f.#^#V++!7@24!;@25!4M&!5M|= z=(B:?O:6:6b \-l £adam(-ʱ £:?/O!... yrlf`[VQLHD@=9630-+(&$"   ))" ))))) $ " ))))) $ " %$" %$" '%$"'%$")))))@$ ))))))))))))) ) ) ) ) ) ) ) )))))@k >;;!*Q\s#rOF(  *\K\ 88'0 :k\ ͈ ͈ ! ֥_ b>?K6\!;\ˆ &o))) y!(= :k\ ͈ ͈ ! >w$w$=  >w$w$= #C\"\*Q\6#6 !"!"͎>^#V@(r+s~ _!Mf.#^#V++!͝2!͝2!ͪڃ!ͪ|= z=(B:O::b \-$l adam(- :/O!... 8yrlf`[VQLHD@=9630-+(&$"  ))))))))))))       !!@))) )))) ))))))))###$$$!$$$#)$$$#)###$$$!$$##!!!#$&@>2\#N#F4>>>>#>>>~:\ x *K\>Xn #^#V#v #~(~( :\ x !O > + BBBBB< vj@ܬ!bp,KQjh 7?@p?xvjda0<ܬL sij,NV@ @@`p;;l~pf[l7l7t̴lؾl?@WU* UUUUD8Dt;;l~pf[l7l7ƫl̴lؾlt '@z%Cq=y|v;y|'C? Ē*2 >^=pH@PPp ~~D"~~t>>,??,?/{~vfb2  >AIc*UU*(L]1"~JHI`  >>t~~U*  ?^@d>~ܾ>w`ș@pĒ*2 >^=pH@PPp ~~D"D"t86Y&"84('2A("Q/ `666666 ?go{s>< ?>c>`>cc> >`~cc> >c>cc>>cc?>0  ??  >c -U^ >cccc~c~cc~>c``c>|fccf|`~```~```>c`oc>ccccc? ?cc>flxlfc`````cwccccs{ogc>cccc>~cc~``>cc{o>~cc~fc>`>c>ccccc>cccc6cckk6c66cf< 0 `0 xx<~3|00<>f>00>33>ff>60<00>ff><``|fff8<60<88<600002vkkc|ffffff>|f```<`<|`x``f<ffff<ff<<ckk6f<<~ 0~ 8  xx<>cc>!!͈,0 ͍,8;-͙#~ (,( !8͈,8 Ͳ(8#ʹ3O~# 8 0"]\70afteeverdisablenablresumLon error goton break sto^on break gosurignore breamdrogosu͸8 ^#V!" vV" !̓ ©i`'R8 Ϳ4  (.:(!Oy(X(bVD (:( *U\>(V#^SE\#^#V#"U\"]\W6 r (͋(*  H͂Š84Ç* \##ʹ3͔ 8 0Oo&N#F#F 0K 0:O:1:8vF -!^#V#F z( +r+sz̭~ v###^#V* [RR8 * r+s+" N###^#V+r+s (0,O{ ©yo&!̓_xy (0O{ ©yo&ˆ!ˆvN  (̓ ©!'B8K:vCB\2D\̓ ©!'B8C*=\s#rTrack-Info  N ..̓,( C͸>8{,©C͸0̓ ©!'B_o&i`n6#6#}ˎw#s#r#s#r+++++r+s{=\ø6v!p"!76>G^*\#"!y" !" " {=\z> z ;s=\SB\2D\õ˺v* " vN::\26vv!u7"_\" \Ͱ!*E\":G\2*"B\6 õ[*\#R S\S\S}\SB\+~2D\"+V+^vV M* |(E T8<T85{=\[E\:G\< ~ [B\:D\3s=\"B\6 v!!y[ R(Z#^#V" KBB8A{=\i`KE\:G\< ~ KB\:D\wͿK}\ͿK\ͿK\Ϳ#"#q#p ~*B\n:D\( G~x°*\[#R   R"\|8|8:M P P P 3|8MTT \Wq !`v>>BB<DHpHDB@@@@@~BfZBBBBbRJFB))/&qh^#V@(r+s~ _!f.#^#V++!7@24!;@25!4M&!5M|= z=(B:?O:6:6b \-l £adam(-ʱ £:?/O!... yrlf`[VQLHD@=9630-+(&$"   ))" ))))) $ " ))))) $ " %$" %$" '%$"'%$")))))@$ ))))))))))))) ) ) ) ) ) ) ) )))))@k >;;!*Q\s#rOF(  *\K\ 88'0 :k\ ͈ ͈ ! ֥_ b>?K6\!;\ˆ &o))) y!(= :k\ ͈ ͈ ! >w$w$=  >w$w$= #C\"\*Q\6#6 !"!"͎>^#V@(r+s~ _!Mf.#^#V++!͝2!͝2!ͪڃ!ͪ|= z=(B:O::b \-$l adam(- :/O!... 8yrlf`[VQLHD@=9630-+(&$"  ))))))))))))       !!@))) )))) ))))))))###$$$!$$$#)$$$#)###$$$!$$##!!!#$&@>2\#N#F4>>>>#>>>~:\ x *K\>Xn #^#V#v #~(~( :\ x !O > + BBBBB< vj@ܬ!bp,KQjh 7?@p?xvjda0<ܬL sij,NV@ @@`p;;l~pf[l7l7t̴lؾl?@WU* UUUUD8Dt;;l~pf[l7l7ƫl̴lؾlt '@z%Cq=y|v;y|'C? Ē*2 >^=pH@PPp ~~D"~~t>>,??,?/{~vfb2  >AIc*UU*(L]1"~JHI`  >>t~~U*  ?^@d>~ܾ>w`ș@pĒ*2 >^=pH@PPp ~~D"D"t86Y&"84('2A("Q/ `666666 ?go{s>< ?>c>`>cc> >`~cc> >c>cc>>cc?>0  ??  >c -U^ >cccc~c~cc~>c``c>|fccf|`~```~```>c`oc>ccccc? ?cc>flxlfc`````cwccccs{ogc>cccc>~cc~``>cc{o>~cc~fc>`>c>ccccc>cccc6cckk6c66cf< 0 `0 xx<~3|00<>f>00>33>ff>60<00>ff><``|fff8<60<88<600002vkkc|ffffff>|f```<`<|`x``f<ffff<ff<<ckk6f<<~ 0~ 8  xx<>cc>!!͈,0 ͍,8;-͙#~ (,( !8͈,8 Ͳ(8#ʹ3O~# 8 0"]\70afteeverdisablenablresumLon error goton break sto^on break gosurignore breamdrogosu͸8 ^#V!" vV" !̓ ©i`'R8 Ϳ4  (.:(!Track-Info  N Oy(X(bVD (:( *U\>(V#^SE\#^#V#"U\"]\W6 r (͋(*  H͂Š84Ç* \##ʹ3͔ 8 0Oo&N#F#F 0K 0:O:1:8vF -!^#V#F z( +r+sz̭~ v###^#V* [RR8 * r+s+" N###^#V+r+s (0,O{ ©yo&!̓_xy (0O{ ©yo&ˆ!ˆvN  (̓ ©!'B8K:vCB\2D\̓ ©!'B8C*=\s#r..̓,( C͸>8{,©C͸0̓ ©!'B_o&i`n6#6#}ˎw#s#r#s#r+++++r+s{=\ø6v!p"!76>G^*\#"!y" !" " {=\z> z ;s=\SB\2D\õ˺v* " vN::\26vv!u7"_\" \Ͱ!*E\":G\2*"B\6 õ[*\#R S\S\S}\SB\+~2D\"+V+^vV M* |(E T8<T85{=\[E\:G\< ~ [B\:D\3s=\"B\6 v!!y[ R(Z#^#V" KBB8A{=\i`KE\:G\< ~ KB\:D\wͿK}\ͿK\ͿK\Ϳ#"#q#p ~*B\n:D\( G~x°*\[#R   R"\|8|8:M P P P 3|8MTT \Wq !`v>>BB<DHpHDB@@@@@~BfZBBBBbRJFB0` l 033313c>02d?<<~~<|~f`fn``a o?<<1``??0a l 033313c>02d?<<~~<|~f`ff``a300 ?3>330a l 033313c>02dff`ff``af`ff``aTrack-Info  N 0300 ?3>330a o?????0?>}ff`ff``aff`ff``a `000?>0`300 ?3>330a g?>09`f`ff``a|<`ff~` `00?>0` o?00133?0` g?>09`f`fd``a<<`ff~` `00 ?~0` o>00133>0`00` o>00133>0`000x1 χ ffc` a0<33a`1  031333`` 1 03g` 3096` $pfffcg ` 3033`0 $ LJfffff` 303031 $1 6gf`` 343300`333130c $I <""<I <""<I B @DDD@ I B @DDD@ @ $<< 0` l 033313c>02d?<<~~<|~f`fn``a o?<<1``??0a l 033313c>02d?<<~~<|~f`ff``a300 ?3>330a l 033313c>02dff`ff``af`ff``a0300 ?3>330a o?????0?>}ff`ff``aff`ff``a `000?>0`300 ?3>330a g?>09`f`ff``a|<`ff~` `00?>0` o?00133?0` g?>09`f`fd``a<<`ff~` `00 ?~0` o>00133>0`00` o>00133>0`00``c@  ffc` a0<33a`@ 031333` 1 0Track-Info  N `3g` 3096` $@ LJfffcg ` 3033`0 $``a@ fffff` 303031 $``ca χ6gf`` 343300`333130c $I <""<I <""<I B @DDD@ I B @DDD@ @ $<<