sums ))+ :"" :21,0;:"" SHOPPING @ ?|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 Y! [! va=2:b=7:i=021:i,2;a;b;1;"STOP THE TAPE PRESS ANY KEY":c=a:a=b:b=c:i =n=3045-:.01z# =,n:n:=""6:3  "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( ,r$(1)="n"r$(1)="N"20,5;"Goodbye ";n$:80P::12 ,8;1;"START THE TAPE":"" 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  abc.-pzGrlabels E va=2:b=7:i=021:i,2;a;b;1;"STOP THE TAPE PRESS ANY KEY":c=a:a=b:b=c:i =n=3045-:.01z# =,n:n:=""6:3  "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  >150::12 ,8;1;"START THE TAPE":""  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: abc(2GN/grocer ^ va=2:b=7:i=021:i,2;a;b;1;"STOP THE TAPE PRESS ANY KEY":c=a:a=b:b=c:i =n=3045-:.01z# =,n:n:=""6:3  "GROCER" >>  MACBRIDE 1983 << ( <=N=121:g$:r=07:B:g$+r,B:r:N F"a",16,84T,254,254,254,254,254,108l,"b",60<,86V,171,213,171,213,106j,60<,"c",6,15,31,30,60<,112p,96`,128 P"d",0,1,15,63?,63?,31,31,15,"e",124|,254,254,254,255,248,231,159,"f",0,0,0,0,0,192,192,239 Z"g",15,7,7,3,3,6,27,119w,"h",191,191,184,123{,156,0,128,192,"i",240,71G,123{,129,2,26,4,8 d"j",3,7,7,7,3,3,3,7,"k",255,255,255,255,255,193,190,127,"l",128,192,192,224,224,224,224,96` n"m",6,5,15,28,228,4,4,2,"n",255,255,255,195,24,24,66B,60<,"o",160,208,248,47/,32 ,32 ,32 ,64@ x"p",0,0,3,7,7,7,7,6,"q",63?,225,222,191,191,127,195,219,"r",0,224,224,96`,96`,160,160,96` "S",6,6,30,62>,254,254,63?,7,"T",24,0,66B,60<,0,0,0,0,"U",96`,120x,126~,127,127,127,254,128 :21,0;" Press any key to go on. " .5,25:0 2000 :2:7:0: ^10 ,8;" Who's there ?":"Type name then  ENTER ";n$:n$=""141 +n$>90Zn$(1)=(n$-32 ) n$>12 n$=n$(12 ) R:21,(24-n$)/2;" Hello ";n$;"":n=1200:n &bl=16:bc=10 :bx=0 1,7;"":2,7;"P.GREEN GROCERS":3,7;"" BL=1721:C=031:L,C;5;" ":C:L 16,0;"" SN=51-1:C=1N:10 +N,C-1;4;"":C:N L80P,40(:-4,24:568,0:-4,-24 ?X=84T124|4:X,40(:0,24:X >Y=44,60<4:80P,Y:480,0:Y cX=88X120x32 :X,64@:8,0,-2:-8,0,-4:X 1000 K200,40(:8,16:16,0:8,-16 14,24;"" X204,64@:-10 ,32 :44,,0,-1:-10 ,-32  %19,0;5;z$;z$;z$ /197,87W:38&,0,-1 81100L:502:1200:502:1000 "*O=(*3):X=(*d*2)+1 $!p=7:o=1p=6 &#in=2:o=0in=4 '/bx+x>d*5+(5d=3)500 ,PN=1X:13 ,26-d+n;p;in;(144+O):.8L,7:N 6I7,20;"How many on";8,20;"the scales?" E g=0 J)"   ENTER  the answer ";a$ KJz=1̱a$:a$(z)<480ůa$(z)>579z=20:z:330J Lz O!18,0;5;z$ Q)11 ,26;6;a$(1) Tsa$(1)=x22906zY,40(:n=13:1200:25:1100L:25:n:360h Ylg=g+1:g>2t=13:.5,20:t:11 ,26;1;x: 330J ^n=13:1100L:25:1000:25:n:1,-10 :18,10 -n$/2;"Try again ";n$;" ":330J hE7,20;" ";8,20;" " k!11 ,26;7;" " mn=1x:t=13:13 ,26-d+n;p;in;(144+o):.2~L,10 :13 ,26-d+n;" ":.2~L,12 :t rt=13:bl,bc;" ":.2~L,-5:bl,bc;p;in;(144+o):.2~L,-9 :t:bc=bc+1:bc=16bc=10 :bl=bl-1 |n =bx=bx+x:17,3;" How many in the basket?"  g=0 )"   ENTER  the answer ";a$ Jz=1̱a$:a$(z)<480ůa$(z)>579z=20:z:400 z a$=bx18,0;5;z$:n=13:1200:25:1100L:25:n:1300:440 `g=g+1:g>218,8-n$/2;" There are ";bx;" ";n$;" ":395 n=13:1000:25:1100L:25:n:1,-10 :18,(20-n$)/2;"Try again ";n$;"":400 617,3;" "  260 n=1200:n  7: 23,15;"":4,15;"" x5,9 ;" More Sums ? ";6,9 ;" ";7,14-n$/2;" ";n$;" " U10 ,7;"Press  Y  for Yes":12 ,7;"Press  N  for No" &m="y"Ŧ="Y"16,7-n$/2;" Here they come ";n$;" ":n=1200:n:143 0V="n"Ŧ="N"16,7-n$/2;" Come again soon ";n$;" ":580D : 550& D>150::12 ,8;1;"START THE TAPE":"" 412 ,12 ;"":13 ,12 ;""  L612 ,12 ;"":13 ,12 ;"": 412 ,12 ;"":13 ,12 ;""  -1300:n=113 :t,p:t,p:n .3,7,.3,7,.6,4,.6,7,.6,4,.6,0,.3,2,.3,4,.6,5,.6,2,.6,7,.6,4,.6,0 ( +z$(32 ):2:6:0: F1,9 ;"AT THE GROCERS":2,9 ;"" V4,2;"This is a simple counting and":6,2;"adding program." 28,2;"How hard should the sums be ?" 710 ,2;"For TOTALS up to 5 Press  1 " 712 ,2;"For TOTALS up to 10 Press  2 "  714,2;"For TOTALS up to 20 Press  3 " .0:<491ů>5132070  <d=:20,10 ;" THANK YOU":1,0 *n=1100d:n 4 7: >56,6;"Right or Wrong ?":1100L Hw14,6;"This means right":100d:n=13:1200:25:1100L:25:n RF1,0:14,6;"This means wrong":100d \Bn=13:1000:25:1100L:25:n f1,-10 pE21,0;" Press any key to go on ":0: abc<<GUVwhich k va=2:b=7:i=021:i,2;a;b;1;"STOP THE TAPE PRESS ANY KEY":c=a:a=b:b=c:i =n=3045-:.01z# =,n:n:=""6:3  "WHICH?"  >>  MACBRIDE 1983 << 2:N=119:G$ <R=07:B FG$+R,B:R:N P"A",0,0,0,1,1,1,1,0,"B",0,60<,124|,254,254,254,255,252,"C",0,0,0,128,128,128,0,128 R"D",0,4,5,7,0,0,1,3,"E",250,248,240,193,63?,255,223,189,"F",96`,480,32 ,64@,128,128,128,192 T"G",3,3,3,1,0,0,0,0,"H",126~,127,255,239,247,251,252,255,"I",192,224,248,232,248,224,224,224 V"J",255,255,255,123{,121y,121y,124|,124|,"K",224,224,224,224,224,248,248,224 X"L",0,0,0,142,126~,127,63?,63?,"M",63?,31,31,15,14,28,28,28,"N",128,192,192,192,32 ,0,0,0 Z"O",255,255,255,125},249,241,253,125},"P",224,224,224,224,224,224,240,240 \"Q",192,224,255,232,248,224,224,224,"R",0,0,192,32 ,32 ,63?,63?,63? ^P"T",63?,63?,63?,63?,63?,113q,113q,113q dC21,0;" Press any key to go on. ":0 i 3000 n6:7:0: xF1,8;"WHICH BASKET ?":2,8;"" N3,1;"In this program you will move Paddington on the screen." 26,1;"Move him with the ARROW keys." 8,14;" 7 ":11 ,14;"":12 ,14;"":13 ,7;" 5   8 " 814,14;" ":18,14;" 6 " t19,1;"Try moving him now then ..":21,0;" Press  P  for the Program. " ~120x,92\:0,3:-3,0:6,6:6,-6:-3,0:0,-3 ~120x,46.:0,-3:-3,0:6,-6:6,6:-3,0:0,3 ~150,72H:3,0:0,3:6,-6:-6,-6:0,3:-3,0 }96`,72H:-3,0:0,3:-6,-6:6,-6:0,3:3,0 /P=0:L=11 :C=14:2000 1,10 :21,0;" Who's there ? ":0,0;" Please  ENTER  your name ";n$:n$=""190 +n$>90Zn$(1)=(n$-32 ) n$>12 n$=n$(12 ) S5:7:0::18,(24-N$)/2;"Hello ";n$;" " e=0:620l 3sc=0:g=16:5:7: 20,1;"In Paddington's basket are :-" gx1=(*9 )+1:x2=((*10 )+1-x1):x2=x2+(x2=0):x3=(*10 )+1 x2+x1>10 x2=10 -x1 x=x1:h=2x=x+x2 h=3x=x+x3 &p$=x1+" Bun":x1>1p$=p$+"s" Ah>1p$=p$+" "+(x-x1)+" Pencil":x-x1>1p$=p$+"s" +1,1;6;"10 Apples ";p$ 32,1;"Move Paddington to his basket." S280:B(4,4):T=14:N=13:B(T,N):N:T "g5,10 ,1,9 ,10 ,2,13 ,10 ,1,17,10 ,2 ,+R=(*4)+1:T=14 6)T=RB(T,4)=10 +X:330J @RB(T,4)=10 +X+(*7)-3:B(T,4)=10 +X320@ JT T<gl=20:go=0:L=15:C=0:P=1: ^Ay=23119w32 :502,y:180,0:y hT=14:B(T,1),B(T,2);B(T,3);"";B(T,4):B(T,1)+1,B(T,2);B(T,3);"":T k.5,20 m 2005 r""370r |=""380| )gl+1,12 ;" "  c<7c>8365m =L=B(R,1)-2900:sc=sc+1:430 (gl-l)>3(L+1)/4=((L+1)/4)L+1,12 ;"Not this one !":go=go+1:1,-12 :gl=l:go=2420  365m [1,-17:1,-12 :b(r,1)-1,12 ;" This is his !" e=g:600X g 2:6: s$="more of the same" 7h<3sce-1s$="harder ones":h=h+1 7h>1sc100d::10 ,8;1;"START THE TAPE":"" D 580D X>20,0;" Press  E  to end the program " lQ.5,25:21,0;" Press  ENTER  to go on " ve(="E"Ŧ="e")460 =13  630v z$(9 ):z$=n$ r$="Thank you "+z$ 7910:c=725:p:.353333,p-5 hL,C;" ":L+1,C;" ":L+2,C;6;r$(c-6);7;"";B(R,3);"" hL+3,C;" ";B(R,3);"":C/2=(C/2)L+3,C;" ";B(R,3);"" c:.353333,-5: -5,0,0,4,2,4,2,0,0,4,2,2,-5,0,2,4,2,2,2 0:="P"Ŧ="p" HL,C;" ":L+1,C;" ":L+2,C;" ":L+3,C;" " 3C=C+(="8")-(="5"):C=C+(C<1)-(C>28) 3L=L+(="6")-(="7"):L=L+(L<3)-(L>17)  p=1c>7c=7 tL,C;"":L+1,C;"":L+2,C;"":L+3,C;" ":C/2=(C/2)L+3,C;" " .2~L,10  P=1  2000 7:0: F1,8;"WHICH BASKET ?":2,8;"" Š4,0;"This program is about adding on":6,0;"from 10. Pick the type of sum":8,0;"that you want:-" ̟10 ,1;" 1  10 + one number":12 ,1;" 2  10 + 2 numbers (total - 20)":14,1;" 3  10 + 2 numbers (any total)." 518,1;"Press the key to pick.":0 %<491ů>5133030 DH=:20,10 ;"THANK YOU":n=1100d:n: abq <GThplNPexP1 BunU      hw ^  P RThank you P Bdoubles A va=2:b=7:i=021:i,2;a;b;1;"STOP THE TAPE PRESS ANY KEY":c=a:a=b:b=c:i =n=3045-:.01z# =,n:n:=""6:3  "DOUBLES" >>  MACBRIDE 1983 << (:N=113 :G$ -R=07:B 2 G$+R,B <R:N F"A",568,122z,126~,124|,255,62>,124|,126~,"B",126~,127,127,126~,126~,126~,108l,108l K"C",108l,124|,124|,254,124|,568,124|,254,"D",254,254,254,254,254,254,108l,108l P"E",28,94^,126~,62>,255,124|,62>,126~,"F",126~,254,254,126~,126~,126~,546,546 U"G",480,120x,124|,120x,480,120x,120x,127,"H",120x,120x,120x,40(,40(,72H,136,204 Z"I",28,62>,62>,28,8,62>,127,127,"J",127,127,93],20,20,20,20,546 _"K",12 ,30,62>,30,12 ,30,30,254,"L",30,30,30,20,20,18,17,513 `O"M",0,60<,126~,126~,126~,126~,60<,0 aC21,0;" Press any key to go on ":0 c 1500 d+z$(32 ):4:7:0: i^100d:T=35:N=117:L,C:L,C;T;" ":L+1,C;T;" ":N jLT:9 ,7;6;" ":10 ,7;6;" " k^557,104h:480,0:0,-17:-480,0:0,17 x&17,5,17,11 ,17,17,17,23,15,27,9 ,27,5,25,5,19,5,13 ,5,7,7,3,13 ,3,13 ,9 ,13 ,15,13 ,21,9 ,23,9 ,17 '17,7,17,13 ,17,19,17,25,13 ,27,7,27,5,23,5,17,5,11 ,5,5,9 ,3,13 ,5,13 ,11 ,13 ,17,13 ,23,9 ,21,9 ,15 '17,9 ,17,15,17,21,17,27,11 ,27,5,27,5,21,5,15,5,9 ,5,3,11 ,3,13 ,7,13 ,13 ,13 ,19,11 ,23,9 ,19,9 ,13 39',23:193,0:0,113q:-209,0:0,-81Q:177,0:0,491:-95_,0 39',24:0,16:176,0:0,79O:-175,0:0,-47/:144,0:0,15:-79O,0 :8 9 ,8;"SHOP" ]190:A(6,3):N=16:A(N,1),A(N,2),A(N,3):N Ș17,27,2,5,27,3,5,3,4,13 ,3,1,13 ,23,2,9 ,23,3 DN,BL,BC,BD,PL,PC,PD ;1,17,3,1,17,3,1 G1000:25:1010:39',24:0,16 C0:20,0;"Double next throw on blue square" /x=4:1800:2000:1900l 0Q$=N$:DT=PT:pn=1:700:600X  2000:1900l E0:SP=1Q$=S$:DT=BT:pn=2:700:300, xBT=1DN=DN*2:X=44,:1800:DC=6:2000+5*DN:3,10 ;"DOUBLE SCORE" -1,10 ;"Paddington got ";dn;" " " 1000 ,600X:250 X0L=04:L,5;z$(26):L b)40(,136:192,0: F1,10 ;" ";Q$;"'s go":3,10 ;"How many ?" QDT=1dn=dn*2:3,10 ;"Double it ";q$:.5,10  go=0 2.5,25:" ENTER the score ";m$ Jz=1̱M$:m$(z)<480ům$(z)>579z=10 :z:720 Z:go=go+1 'm$=DN1000+(10 q$=n$): kgo>23,10 ;" Score ";dn;" ":1,-10 :1010-(10 pn=2): GDT=1DC=6:X=44,:1800:2000+5*DN @3,10 ;"Try again ";q$:1,25:720   *L=BL:C=BC:D=BD:SW=0:1020 L=PL:C=PC:D=PD:SW=7 DT=0:N=1DN BT=16:L=A(T,1)C=A(T,2)D=A(T,3) T ?8:L,C+(SW=7);" ":L+1,C+(SW=7);" " -C=C+(2D=1)-(2D=3) $-L=L-(2D=2)+(2D=4) .SW:L,C+(SW=7);(142+(6SW=7)+2*D-(4D=4)):L+1,C+(SW=7);(143+(6SW=7)+2*D-(4D=4)) 3AL=9 C>7C<13 0:2500 +SW*10 8)DT=0:(L,C)=40(DT=1 =.5,SW*2:N B1SW=7PL=L:PC=C:PD=D:PT=DT:1110V LBL=L:BC=C:BD=D:BT=DT V7:0: 7:0: :0,12 ;"DOUBLES":1,12 ;"" [5,3;"A game for 2 players or":7,3;"1 player and the computer." 3,1;"Race Paddington to the shop.":11 ,3;"The dice counts double if ":13 ,3;"you are on a blue square." "1 player or 2 ?";a$ )a$(1)="1"sp=0:1580, )a$(1)="2"sp=1:1580, " 1540 ,)"Player's name ";n$:n$=""1580, -+n$>90Zn$(1)=(n$-32 ) . n$>12 n$=n$(12 ) 1sp=0 6)"Second Player ";s$:s$=""15906 7+s$>90Zs$(1)=(s$-32 ) 8 s$>12 s$=s$(12 ) @ k7:0:x,171:32 ,0:0,-32 :-32 ,0:0,32 : lHDN=(*6)+1:2000+10 *DN:.5,DN*5: i0:DC=1:T=13:N=16:2000+10 *N:.2~L,N*3:N T: 91,DC;" ";2,DC;" ";3,DC;" ": 91,DC;" ";2,DC;" ";3,DC;" ": 91,DC;" ";2,DC;" ";3,DC;" ": 91,DC;" ";2,DC;" ";3,DC;"": 91,DC;" ";2,DC;" ";3,DC;"":  91,DC;" ";2,DC;" ";3,DC;"": ?SP=111 ,7;" ";S$;" WINS ":2520 )11 ,7;"PADDINGTON WINS" ت.6,12 :.2~L,7:.2~L,7:.2~L,7:.6,8:.6,7:d=132 :d:.6,11 :.6,12 3000 b11 ,7;" ";N$;" WINS ":d=13:.2~L,7:.4L,12 :d "Another game ?(Y/N)";r$ ,r$(1)="y"r$(1)="Y"100d -r$(1)="n"r$(1)="N"3035 3000 20,0;z$ Zsp=020,5-n$/2;"Thank you for playing ";n$;"":3060 620,0;" Goodbye ";n$;" and ";s$;" " ;21,0;" Press  R  to run again ": ="r"Ŧ="R"  3070 abc-GMA1NJoe# l_   dx,