jumble48k N/-P/(7:0:7:59999_ Fb$(10 ,6):c$(10 ,6):f(10 ):set=0 " 37% #Hi=18:z$:b$(i)=z$:i:i=18:z$:c$(i)=z$:i %B"lube","lleyow","ergen","htwie","uble","ruplep","locour","klcba" &B"blue","yellow","green","white","blue","purple","colour","black" ("" /.23675{\,232:23676|\,253 1:10 ,7;1;"Please STOP THE TAPE";21,0;0;"then press any key ":0::10 ,9 ;1;"thank you" < 9000(# F)7:0:7::8000@ Dscreen=0:next=0:again=0:f(10 ):set to 0 5000:6000p number=4*screen+1 7correct=0:set to zero at start of each balloon ~23300[:0,0;2;("Which word is in balloon ";number;" ? ");1,0;0;"type word ";i$ 520,0;" "  4000 "next=1350^ 6 4500 @Vcorrect=17000X:correct=0:400:end of each balloon routine Jcorrect=0i=15:1:23400h[:7:i:20,0;"wrong word - try again":250:for next input ^Ecorrect=0:after correct word has been dealt with in line 320 cynext=1ưi$4*screen+4ưi$4*screen+1f(i$)=0number=i$:next=0:250 f'next=1next=0:250 screen=1460  i=1 Pnumber+i=55500|:screen=1205:end of screen routine ?f(number+i)=0number=number+i:next=0:250 i=i+1:425  i=1 Gnumber+i=9 9500%:again=1again=0:203 ?f(number+i)=0number=number+i:next=0:250 i=i+1:470   1100L i=17  dur,note  dur,note i Lx.2~L,7,.1}L,2,.1}L,2,.2~L,4,.4L,2,.2~L,6,.2~L,7  5i$<491ůi$>579next=0:4200h Ai$=1i$1ưi$25next=1:4200h next=0:4200h h addsp=6-i$ i=1addsp:i$=i$+" ":i ?i$=c$(number)correct=1:f(number)=1:4700\ correct=0:4700\ \  40(,135,30 160,135,30 100d,105i,30 220,105i,30 C19,0;2;"" w3;568,36$:3;-11.213\(,69.38 ]:3;557,38&:3;557,37% 564@,36$:3;22.161G,42.38) |3;176,36$:3;-11.213\(,69.38 ]:3;175.5/,37%:3;175,38& ?3;184,36$:3;22.120,42.41) ؈18,7;"";17,7;"";16,7;"";18,22;"";17,22;"";16,22;"" P r count=0 j=14 #f(j)=1count=count+1 j Kcount=4screen=1:100d:5700D:all balloons filled P20,0;"Do you want to go to the next screen of balloons ? y or n " a$ 2a$="y"screen=1:next=0:5700D =a$="n"number=1:i=0:next=0:5700D  5570 DR20,0;" ": screen=16100 j2,4;2;1;"1";6,12 ;"2";2,19;"3";6,27;"4" 5,2;b$(1) 8,10 ;b$(2) 5,17;b$(3) 9 ,25;b$(4)  62008 j2,4;2;1;"5";6,12 ;"6";2,19;"7";6,27;"8" 5,2;b$(5) 8,10 ;b$(6) 5,17;b$(7) 9 ,25;b$(8) 8 l020,0;"you guessed the right word" vFfill in the balloon with a colour ; flash the border and make sounds number=1number=55,2;c$(number):startx=40(:starty=135:number=1steps=30:1:7100 &number=5:5:7100 number=2number=68,10 ;c$(number):startx=100d:starty=105i:number=26:7100:8,10 ;0;c$(number):7200  %number=63:7100 number=3number=75,17;c$(number):startx=160:starty=135:number=34:7100 number=77145 }number=4number=89 ,25;c$(number):startx=220:starty=105i:number=47147 %number=80:7100  steps=30:rad2=900 (.02{# =,0:steps=steps-1 Wsteps<01;startx-30,starty:1;60<,0:7145 3xl=(1/2*(rad2-steps*steps))-1 line=xl+xl:startl=startx-xl 2startl<0line=line+startl:startl=0 51;startl,starty+steps:1;line,0  starty-steps<080P A1;startl,starty-steps:1;line,0:7105  0  7160 Xi=111 :5:6:dur,note:dur,note:2:2:i:7 .1}L,7,.1}L,4,.2~L,0,.2~L,0,.1}L,0,.1}L,2,.1}L,4,.1}L,5,.2~L,7,.2~L,7,.2~L,7 520,0;" "   @  #*6:6 #-Bj=12:i=110 :.3,i-10 :i:j #/.23561 \,200:23562 \,200 #0236099\,100d:click #2f:1,2;2;"*** B A L L O O N S ***";2,7;2;"---------------" #579)9592x% %zj %|+ct=a$:ct<1ct>89592x% %~i=1ct %f20,0;"Which balloon number do you want to change -- 1 to 8 ":0,0;a$ %a$=""9600% %Fj=1̱a$:x$=a$(jj):(x$<480)(x$>579)9600% %j %7number=a$:number<1number>89600% %z20,0;"Type in new jumbled word - up to 6 letters long";21,16;" ":0,0;a$ %a$>69620% %b$(number)=a$ %P20,0;"Now type in the correct answer to your jumbled word ":a$ %a$>69630% %c$(number)=a$ %i %again=1 % &M20,0;"Do you want to save your jumbled words ? y or n" &a$ & a$="y"9790>& &%a$="n"9820\& &* 9755& &>:10 ,1;"put a blank cassette into your cassette recorder":20,0;"set cassette to record as in Sinclair manual, then " &H"data1"b$():"data2"c$() &\ &^:7,0;"We hope you enjoyed playing ";9 ,10 ;2;"Jumbled Words" &E15,0;"Type LOAD """" and press enter for next game" & & extra words &set=set+1 &set=19962& &set=29970& &set=39980& &set=49985' &set=59990' &set=69992' &set=79994 ' &:9967&:i=18:w$:b$(i)=w$:i &$i=18:w$:c$(i)=w$:i & 9998' &@"denrag","erte","lawl","shoue","odro","pishc","snbae","terbut" &@"garden","tree","wall","house","door","chips","beans","butter" &09975&:i=18:w$:b$(i)=w$:i &0i=18:w$:c$(i)=w$:i:9998' &?"phis","hsif","yclec","ttenki","oplepe","cksud","suome","woc" &?"ship","fish","cycle","kitten","people","ducks","mouse","cow" &`9983&:i=18:w$:b$(i)=w$:i:i=18:w$:c$(i)=w$:i:9998' &<"verir","eamrts","aterw","keal","olop","aes","nodp","knis" '<"river","stream","water","lake","pool","sea","pond","sink" '`9987':i=18:w$:b$(i)=w$:i:i=18:w$:c$(i)=w$:i:9998' '<"sahw","siks","trats","rstif","hsdi","ckil","shup","hcaer" '<"wash","kiss","start","first","dish","lick","push","reach" '`9991':i=18:w$:b$(i)=w$:i:i=18:w$:c$(i)=w$:i:9998' 'u"taoc","nottub","miws","nus","daor","ckab","dloc","pmats","coat","button","swim","sun","road","back","cold","stamp" '`9993 ':i=18:w$:b$(i)=w$:i:i=18:w$:c$(i)=w$:i:9998' ' w"epets","rast","gnol","raelc","niht","cheab","deis","nepo","steep","star","long","clear","thin","beach","side","open" ' `9995 ':i=18:w$:b$(i)=w$:i:i=18:w$:c$(i)=w$:i:9998' ' w"smu","yats","capse","gnos","wons","talem","dilos","rongw","sum","stay","space","song","snow","metal","solid","wrong" ' :extra sub A denragerte lawl shoue odro pishc snbae terbut A gardentree wall house door chips beans butter e&Zblackxcreeexgaiumbeorrecddstarttartiu~L̮otounIblack tepadgingtart?AyWbutter5 Nsound [#F9:H\???B˧C:H\???B˧C!O%:H\???FB˧F#C