ZXTape! 0Created with Ramsoft MakeTZXSUMS ) )+ :"" :21,0;:"" SHOPPING @I?|B<B<B>BB|?BBDDbBBb@@BBBBbBf$BB?BBBBR@BR<<~BBBR@ZBB?|~BBJNBJBB||JNB>B|@BDDFBBFBBBB@@FBB$B@@Bxx>B<B<B>B<@????|?@A??|yC?@0A|>g!ЀA@??B@< !?$ ?!$ ?>A??A` @ @ @ @a @   00000000000000000000000000000000000000000000000000000000000000000888888888888888888888888888888000000000000000000000000000000000000000002222222222222222000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000011020000000000000000200000000111020000000000000000201102000000000000000020110200000000000000002010200000000000000002010200000000000000002222222222222222000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888888888888888888888888888888888888888888888888888888888888888SUMS ! j*! "SUMS" >>  MACBRIDE 1983 << (6000p:950 -at$(4,6):35#:n=14:t$(n):n:" Add +","Take -","Sets x","Share" 2&0:6:7:9 : <)7:2,13 ;" SUMS " Fd5,1;"Pick the type of sums that you";7,1;"want and pick your own level." PU10 ,1;"The level changes to suit you";12 ,1;"as you go on." Z 900 d"Name please ";N$ n;pc=6:r=1:m$="HELLO":700::890z B2,3;"What type of ";4,3;"sum,";n$;" ?" _n=14:n*2+4,3;t$(n,5);"(";t$(n,6);")......";n:n %600X:a$>"4"a$<"1"160 T=a$(1) 3r=1:m$="THANK YOU":700::880p G2,3;"What level do";4,3;"you want ";n$;" ?" i8,3;"Pick a number";10 ,3;"between 1 (easy)";12 ,3;"and 6 (hard)." %600X:a$>"6"a$<"1"220 V=A$ !s=0:r=0:700 |i1=5+v ;i=1i1:g=0:px=(*3):qx=(*3) 1000*T <I"9"600X lq: sw=1:m$="Look at this"  r=1 Z18,28;"":pc:17,28-m$;m$;18,28-N$;N$:7 %.5,m$:502:r=1  950: \35,22;6;"SCORE";7;" ";S f43,22;6;"LEVEL";7;" ";v p?1,22;6;"TYPE";7;" ";t$(t,5) 16,29;"";17,28;"";18,28;" ";19,29;"";20,28;2;"": E21,0;" Press any key to go on ":0: sw=0:1400x (r=0:q$=A+" add "+b:550& `C=A+B1500: j g>1f=a+b:1600@:  690 |P=1A:9 +(p>15),P*2-(30p>15);1;(156+px):.5,p*2-5:P ~Q=1B:12 +(q>15),Q*2-(30q>15);2;(156+qx):.5,q*2-10 :Q *m$=" Count them ":695:1020 xa=((*(V*V)/2)+v) B=((*(V*V)/2)+v) b>a1400x  Ks=s+1:pc=5:m$=" VERY GOOD ":.4L,20:695 %sw=0V=V+1-(v=6)  @Fr=1:pc=2:m$=" ANSWER = "+F+" ":695:950 JV=V-1+(v=1): #r=0:sw=0:1400x #Q$=A+" take away "+b:550& >C=A-B1500: H g>1f=a-b:1600@: f 690 z~p=1a:12 +(p>15),p*2-(30p>15);2;(156+px):.5,p*2-10 :p z1,0:p=1b:12 +(p>15),p*2-(30p>15);" ":.5,p*2-10 :p +m$="How many left":695:2030 3500 !q$=A+" sets of "+B:550& C=A*B1500:  g>1F=A*B:1600@: & 690 :P=1B:Q=1A DPP*2+2,Q*2;(156+px);:Q:" ";a:.5,p*2:P *m$=" Count them ":695:3040 XA=((*9 )+V/2):B=(*V)+2:V<3B=2+(3V>1) b>a3500 !a<5v<63500 r=0:sw=0:  3500 'q$=(A*B)+" shared by "+B:550& C=A1500: g>1f=a:1600@: sw=1:690 p=1A:q=1B "Jp+2,q*2;(156+px);:q:" ";b*p:1,p*2:p @+m$="How many rows":695:4030 $2:7: .#2,8;"APPLE CATCHING" 8Y5,2;"Move Paddington to catch the";7,2;"apples as they fall." B310 ,2;" 5  moves him to the left" L412 ,2;" 8  moves him to the right" V 950 az$(32 ):2::4:0,2;z$(26);1,1;z$(28) V2,2;" ";2,7;" ";2,16;z$(11 ) c3,3;" ";3,7;" ";3,17;" ";3,24;" " H4,6;" ";4,10 ;" ";4,18;" " 15,5;" ";5,21;" " ,6,6;" ";6,22;" " )l=319:l,13 ;" ":l 9l=2021:c=031:l,c;" ":c:l !a(10 ):n=110  8 3a(n)=(*23)+2:n=15120 ;t=1n-1:a(n)=a(t)t=10 :t:5100 t:as=0:am=0 1,a(n);157:n  #l=1:c=25:5800 ,z=*300,/(as+1):d=1z:d 3r=(*10 )+1:a(r)=05140 Kt=110 :1,a(r);"":.05|L,20:l,a(r);" ":t ("l,a(r);" ":l+1,a(r);"" -""5700D:51702 0.1}L,40(-3*l 24L=L+1:L=17c=a(r)+15200P 3Nl>13 a(r)ca(r)c+214,A(R)+1;"OUCH!":5250 4l=205250 7""5700D:5180< :.1}L,40(-3*l F).1}L,40(-3*l:5150 P)t=14:.5,12 :t Zas=as+1:5300 Nam=am+1:1,-10 :L,A(R);" ";14,A(R)+1;" " as+am>9 5350 %a(r)=0:l=1:5135 421,5;" You caught ";as;" apples." ("More sums ";n$;"?");r$ "+r$(1)="y"r$(1)="Y"40( ,Rr$(1)="n"r$(1)="N"20,5;"Goodbye ";n$:5420, 6 5400 Dc=c+(="8")-(="5") Nc=c+(c<3)-(c>26) 0:15,c;" ";16,c-1;" ";17,c-2;" ";18,c;" ":2:c/2=(c/2)19,c-1;" ":  19,c-1;" ": p$6000p:T=118:G$ zR=07:B  G$+R,B R:T "A",0,0,16,0,254,0,16,0,"B",0,1,35#,39',47/,63?,63?,223,"C",0,224,240,248,252,252,252,252 "D",1,3,3,0,0,0,0,0,"E",191,7,227,227,63?,63?,127,127,"F",249,250,252,240,248,252,254,254 ="G",96`,158,159,191,255,127,31,7,"H",255,255,255,255,254,254,254,254,"I",254,254,254,254,254,254,254,254,"J",0,0,0,0,0,1,3,3 "K",126~,126~,126~,126~,126~,254,254,254,"L",252,252,252,126~,126~,126~,252,248 "M",0,24,60<,66B,137,219,255,126~,"N",16,84T,254,254,254,254,254,108l,"O",60<,86V,171,213,171,213,106j,60< "p",0,131,130,254,130,130,130,254,"q",0,0,0,15,15,7,7,3,"r",126~,254,248,248,240,240,225,195  pzb Add +Take -Sets xShareNfredbvsgac f Q32 shared by 4A8M Try another GrH LABELS ) )+ :"" :21,0;:"" SHOPPING @I?|B<B<B>BB|?BBDDbBBb@@BBBBbBf$BB?BBBBR@BR<<~BBBR@ZBB?|~BBJNBJBB||JNB>B|@BDDFBBFBBBB@@FBB$B@@Bxx>B<B<B>B<@????|?@A??|yC?@0A|>g!ЀA@??B@< !?$ ?!$ ?>A??A` @ @ @ @a @   00000000000000000000000000000000000000000000000000000000000000000888888888888888888888888888888000000000000000000000000000000000000000002222222222222222000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000000000200000000000000002000000000000002000000000000000020000000000000020000000000000000200000000011020000000000000000200000000111020000000000000000201102000000000000000020110200000000000000002010200000000000000002010200000000000000002222222222222222000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000008888888888888888888888888888888888888888888888888888888888888888LABELS z r)| "LABELS" >>  MACBRIDE 1983 <<  (#0::N=114:G$ 2R=07:B 7G$+R,B:R:N <"A",0,25,30,14,7,4,8,8,"B",0,238,17,16,8,136,224,240,"C",0,224,16,136,136,132,4,4 A"D",16,16,16,16,16,16,8,8,"E",248,188,158,31,15,7,0,0,"F",2,2,2,2,2,2,4,4 F"G",4,4,2,31,31,31,31,31,"H",0,0,0,255,255,255,255,255,"I",4,8,8,252,252,252,252,252 P"J",0,24,60<,66B,137,219,255,126~,"K",16,84T,254,254,254,254,254,108l,"L",60<,86V,171,213,171,213,106j,60< U"M",255,249,249,249,255,248,248,248,"N",15,15,15,15,31,127,255,243 Z 4000 d5:7:9 : n%X=80P:Y=148:3500 3,13 ;"LABELS" 0" Please  ENTER  your name ";n$ +n$>90Zn$(1)=(n$-32 ) n$>11 n$=n$(12 ) m$="Hello "+n$:3000 *u$(32 ):19,0;u$;u$;u$ :l=517:l,1;6;u$(30):l W8:6,2;"Help Paddington to fill in";8,2;"his labels." b10 ,2;"You do the first each time.";12 ,2;"Paddington will do the rest." T14,2;"You must keep count of the";16,2;"labels for him." "10 or 20 labels ?";a$ a$"10"a$"20"171 +t=a$:sc=0:mi=0:mp=0 m$="Thank you "+n$:3000 4000 \180:I$(10 ,8):j$(10 ,8):N=110 :I$(N):j$(n):N "bun","bun","apple","appel","orange","oringe","mug","mug","boot","boot","packet","pakkit","hat","hat","suitcase","suitkase","sandwich","sandwich","flower","floure" 7:4: )X1=245:Y1=175:N=1T Rx=x1:y=y1:2000:Y1=Y1-24:Y1<8Y1=175:X1=X1-20 N s199,7:18,0:0,10 :-18,0:0,-10 :20,25;T 9R1=(*10 )+1:I$(R1,1)=" "260 'R2=(*T/5)+2:R2>TR2=T R1>5300, 42+(2R1=2):7-(R1=3) Hn=1R2:3,1+4*n;(152+r1):n:320@ ,x=32 :y=130 68n=1r2:1500+100d*r1:x=x+30:n @7:0:16,125}:20+32 *r2,0:0,40(:-(20+32 *r2),0:0,-40( ^<e=9 :N=18:I$(R1,N)=" "E=N:N=8 h N:W$=I$(R1,1E-1) i i$(r1)="" jd=125:d m;y1=y1+24:y1>175y1=31:x1=x1+20 n 1900l:.5,-10 r$X=24:Y=18:3500 |+N=1̱W$:19,4+N;".":N ]12 ,3;6;" Please fill in ";13 ,3;6;"the first label." x$="" 1n=1̱w$:19,4+n;1;"L" ""402 =""404 19,4+n;:c= 5x$=x$+(c+(32 c<96`)):.5,10 n `w$=x$12 ,3;"That looks right ";13 ,3;n$;u$(17-n$):500 z$=j$(r1,1̱w$)  mi=mi+1 1,0:1,0:12 ,3;5;"Paddington thinks";13 ,3;5;"it is ";z$;" " w$z$mp=mp+1:d=1100d:d:q=13:.2~L,0:.2~L,25:q:15,3;6;"You are both wrong.";16,3;6;"It is spelt ";w$ x2=40(:y2=136 .d=1200:d:n=1r2-1 1700:.5,20  1900l:.5,-10 $x=24:y=18:3500 m$=w$:3000 &n 01700:.5,20 5.12 ,3;t;" take away ";r2;" " :!13 ,3;u$(20) ?t=t-r2:g=0 B 25 D""How many labels left ?";a$ NJn=1̱a$:a$(n)<480ůa$(n)>579n=20:n:580D Xn:g=g+1 bDa$=tsc=sc+1:m$="That's right "+n$:3000 :700 l6g<2m$="Try again "+n$:3000 :580D v(m$="There are "+t+" left":3000 :21,3;"Press any key to go on.":0 t>0190 1:6: 22,2;"You got ";sc;" sums right ";n$ 65,2;"You made ";mi;" spelling mistakes" 57,2;"Paddington spelt ";mp;" wrongly." .14,1;"Like some more ";n$;" ?" %"Yes or no ?";r$:r$=""760 .r$(1)="y"r$(1)="Y":171 ,r$(1)"n"r$(1)"N"760 m$="Goodbye "+n$:3000  780  7l=1821:l,3;" ":l 4x=x2:y=y2:2000:2050:x2=x2+32  lex=x1:y=y1:1:2000:0:y1=y1+24:y1>175y1=31:x1=x1+20 v `X,Y:5,-7:0,-14:-10 ,0:0,14:5,7 X,Y-8,1: Id=210 2:x-2,y-(8+d):4,0:d   4X+10 ,Y+5:5,2:0,24:-16,0:-5,-2:16,0:0,-24:-16,0:0,24 >X+10 ,Y+29:5,2:X+1,Y+15,4:X-4,Y+23:d=13:2,3:2,-3:d: X,Y+8:0,12 :10 ,0,1:1,-12 :7,-3,2.5 :-24,1,1:7,3,2.5 :8,-1,-4: X,Y+22:18,0:0,-18:-24,0:0,18:6,0:12 ,0,-2.5 X-1,Y+10 :0,9 :0,-4,-4.5:X+7,Y+10 :0,9 :0,-4,-4.5:0,-5,-4.5: `RZ=14:X,Y+15-3*Z:16,0:12 ,6:z j0,11 :-16,0,1.2:-12 ,-6:0,-11 :d=12:x,y+15-(6+d):16,0:12 ,6:d: ďx+8,y:-10 ,12 ,1:10 ,-12 ,1:10 ,12 ,1:-10 ,-12 ,1:0,20 Κz=-444:x+8+z,y+24,2:z:z=-2+24:w=21276:x+z+8,y+w,2:w:z: C=1̱M$ W19,4+c;M$(C);"";20,4+C;" ";21,4+C;" " p=m$(c)-90Z .5,p:C D=1200:D Q19,4+c;" ";20,4+C;" ";21,4+C;" "  dX,Y:16,12 :64@,0:0,-24:-64@,0:-16,12 .x+10 ,y,1:X+10 ,Y,2: X21,0;" Press any key to go on ":.5,25:0: (2bxHyNFred  p # tU bun apple orange mug suitcase flower U bun appel oringe mug boot pakkit hat suitkasesandwichfloure  e hg` WsandwichXallsortsZsandwichA0Rn0M Goodbye FredGNL