ZXTape! 0Created with Ramsoft MakeTZXpercent W 8 7Y 2:6:6: Q128,192,224,240,248,252,254,255 H1,3,7,15,31,63?,127,255  20  y="a""c"-1:x:y,x:y (60<:57999 )b23613=\+256*23614>\,0:23613=\+1+256*23614>\,0 2&a=65110V65128h:b:a,b:a 70c:c=c+65128h:a=65129ic:b:a,b:a ,9 ,237,71G,237,94^,201 Fk0,0,0,62>,62>,237,71G,237,86V,201,0,0 d47/,229,213,197,245,33!,0,64@,6,8,197,229,6,8,197,126~,229,245,1,31,0,84T,93],35#,237,176,241,18,225,193,36$,16,237,225,1,32 ,0,9 ,193,16,225,241,193,209,225,195,568,0 x65135o,72H }65137q,8 *1;5,9 ;"INTERMEDIATE" >1:19,7;"AREAS";19,15;"SETS" C18,2;"PERIMETERS";18,17;"VENN DIAGRAMS" G17,0;"SIMPLE EQUATIONS";17,21;"PERCENTAGES" #2;09 ,25;"" #2;10 ,25;" " '2;11 ,25;" " '2;12 ,25;"" #2;13 ,25;""  2 o68D,8*17+4:104h,0:0,-16:-104h,0:0,16 o65A,8*17+7:110n,0:0,-22:-110n,0:0,22  1 08,2;" " #09 ,2;"" 10 ,2;" "  2 09 ,7;" " 81;10 ,6;"";6;" " #11 ,6;""  4 12;10 ,10 ;"";6;""  ,2;11 ,11 ;6;" "  $6;12 ,10 ;" "  3 11 ,14;" " 12 ,14;"" 13 ,14;" "  5 13;12 ,18;"";6;"" 13;13 ,18;"";6;"" 14,18;"" % 2 _65135o,80P `65137q,8 a 65110V g 63? 65120` 2;20,6;" Rose Software 1984";9 ;21,1;"Program loading";1;21,18;" Please wait " T0,0;:6:6:"gr""a",168:0,0;:"%": 7bcgr Xyp8??0033 3300?? 33333333??pppooOooO~~  )% . . !. A.Cowley August 1982  5 )23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:6:9 :6:20,6;" ";21,0;" STOP TAPE & press ENTER ":0:5;21,4;" Please key in your name ":9900& 6:500 (a$="":t=0:u=0:v=0 'o$=" "  b(10 ) b(3)=2:b(4)=4:b(5)=5:b(6)=10 :b(7)=20:b(8)=25:b(9 )=502:b(10 )=100d b7:7:9 ::i=04:3;i,0;o$;i+17,0;o$:i F2,12 ;" MENU ";19,8;" Press 1 to 5 ";6,1;"1. A percentage as a fraction";8,1;"2. A fraction as a percentage";10 ,1;"3. A percentage of a number";12 ,1;"4. One number as a percentage of another";15,1;"5. Random testing of 1-4 above" l$=:l$<"1"l$>"5"25 ]:i=812 :4;i,0;o$:i:10 ,5;" Instructions? y or n " q$=:q$"y"q$"n"27 ):q$="y"l$"5"580D+20*l$ 5q$="y"l$="5"i=600X66020:i:i  :h=0 !2j=(*4)+4:j:1:j:9 : $y=(*4)+1 %l$"5"y=l$ '1i=12:b(i)=(*9 )+1:i *y*1000+1000 - 900 921,0;"Press any key":0::700 0:6::i=031:ٺ(*6);0,i;"";21,i;"":i:i=120:ٺ(*6);i,0;"";i,31;"":i:9 :7,1;"So far, you have ";u;" correct";10 ,14;"and ";v;" incorrect" -7;15,9 ;" More? y or n " =""166 q$=:q$"y"q$"n"166 q$="y"30 y1:9 :1::6;11 ,0;o$;o$;o$;7;12 ,3;" Go back to menu? y or n " ""180 q$=:q$"y"q$"n"181 22+178*(q$="n") &0:0:3:7: $"" 617,0;"" i=116 Ki,0;"";i,31;"":i:3;18,0;o$;o$;o$;o$ .2,9 ;" CERTIFICATE " W5,2;" NAME:  ";n$((n$-((n$>17)*(n$-17)))) W7,2;" DATE:  ";m$((m$-((m$>17)*(m$-17)))) ;9 ,2;" PROGRAM:  ""Percentages""" !11 ,5;"CORRECT: ";u #13 ,3;"INCORRECT: ";v u+v=0245 ;15,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0  #20,9 ;"Press any key" =""251 ""252  /h1:10 +2*(y=2)+3*(y=3),0;"Key in your answer now":0: a=58012  6 6000p:z$=""506  n$=z$:n$:  <21,0;" NOW today's date (in any form) " 6000p:z$=""526 m$=z$:m$::  9 : X&:0,9 ;"""PERCENTAGES""" [`2,2;" Percentages are fractions ";3,4;" with denominator 100 " ^19 ,1;"19 percent is written as 19%" a12 ,11 ;"19" dH13 ,1;"So 19% = --- (or 19/100)";14,10 ;"100" e:20,9 ;"Press ";5;" ENTER ":691 g64,3;"Similarly 32% = 32";5,19;"---";6,19;"100";9 ,1;"But the fraction must be given in its lowest terms,so";13 ,7;"32% = 32 = 8";14,13 ;"---";14,19;"--";15,13 ;"100";15,19;"25":690 h lO2,1;" Fractions  can be expressed as percentages." o16,1;"Multiply the fraction by 100" r^10 ,1;"For example: 3 X 100 = 60",11 ,15;"-",12 ,15;"5" uO16,15;"3",18,15;"5",17,12 ;"So - = 60%" x 690: 42,1;"In order to find  20% of `5" V4,1;"express 20% as a fraction";7,1;" SO  20% of `5 =" i11 ,2;"20 X 5 = 1 X 5 = `1";12 ,1;"--- -";13 ,1;"100 5"  690: ?2,1;" To express  11 as a percentage of 25" p5,1;"put 11 over 25 and then multiply by 100";9 ,1;"giving us 11 X 100 = 44" ^10 ,12 ;"--";11 ,12 ;"25";15,1;" So  11 is 44% of 25" 7 20,1;" Press  ENTER  to start "  691 H 20,4;" Press  ENTER ";5;(" to start "l$"5") ""691 =""692 : 1:6:6: '1,8;" SCORE A GOAL " *3,1;"5 correct answers win" Mi=17:13 +i,31;"";7+i,24;"" 7+i,24+i;"" :i t<0t=0  9100# t5739  502:  t=0 90Z,80P:-10 ,0:0,-20:10 ,0:0,7:-3,0:116t,80P:-10 ,0:0,-20:10 ,0:0,20 d150,60<:-10 ,20:-10 ,-20:147,67C:-12 ,0 9165,80P:0,-20:10 ,0 .2~L,11 :.2~L,11 : .4L,11 :.2~L,11 :.2~L,11 :.4L,11 :.2~L,11 :.2~L,14:.2~L,7:.2~L,9 :.8L,11 :.2~L,12 :.2~L,12 :.2~L,12 :.2~L,12 .2~L,12 :.2~L,11 :.2~L,11 :.2~L,11 :.2~L,14:.2~L,12 :.2~L,11 :.2~L,9 :.8L,7  733 :" OR  enter h for help" b$ Iz=3-(y=3)5+(y=2)+(y=4):z,0;o$:z b$="h"h=0911 b$="h"h=2:917 Kb$<480ůb$>579űb$>8y*1000+1027:900 2z=310 +(y=3):z,0;o$:z J11 +(y=3),0;" Your answer: ";b$;" ":916 ""911 /y*1000+1050:h=1903 h=2917  b$=a$933 *10 +2*(y=2),0;o$ 413 ,0;" BAD LUCK  - check with me" Ct=t-1:v=v+1:.5,-10 :1.5@,-20 &y=1x$=lp1+"% as a fraction" .y=2x$=a+"/"+lp1+" as a percentage" 4y=3x$=(i*b(b))+"% of "+(j*b(12 -b)) 7y=4x$=(b(1)*j)+" as a % of "+(b(i)*j)  x$;" = ?" "Your answer (wrong) ";b$ "Correct answer is: ";a$ *::"________________________________": 9h=2(h=1b$"h")y*1000+1056 : $h=0y*1000+1050  +15,1;1;" WELL DONE !" ]8+2*(h=1)+2*(y>1)+(y>2)-3*(y=4),0;o$ u=u+1:t=t+1 \.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 : (b(1)=9 b(1)=2 (b(2)=9 b(2)=2 a=b(1)*b(2) <" EXPRESS  ";a;"% as a fraction in its lowest terms" lp1=a  b=100d Ci=12:(((a/2))*2)-a02018 a=a/2:b=b/2:i 0(((a/5))*5)-a02024 &a=a/5:b=b/5:2018 a$=a+"/"+b =3,0;" Key  in your answer as 4/5 etc."  Th=1b$="h"10 ,0;" ":2056 h=12056 15-8*(b$="h"),0;" Put ";b(1)*b(2);" over 100"," and cancel if possible":b$="h"h=0h=1:300,: 318,0;" CORRECT ANSWER IS  ";a$: b=(*7)+3 i=(*3)+1 Va=b(b)-1-2*(i=2)*(b(b)>2)-6*(i=3)*(b(b)>5) 0" EXPRESS  ";a;"/";b(b);" as a percentage" lp1=b(b) @3,0;" KEY  in your answer without the % sign" a$=(a*100d/b(b)): Th=1b$="h"10 ,0;" ":3056 h=13056 ,," MULTIPLY BY 100 " N,," ";a;"/";b(b);" X 100 = ";:b$="h"h=0h=1:"?":300,: a*100d/b(b): 0b=(*4)+3:j=(*5)+1 'j*b(12 -b)=100d4000 i=(*5)+1 6" WHAT IS  ";i*b(b);"% of ";j*b(12 -b);" ?"  a$=(i*j) /3,0;" KEY IN YOUR ANSWER ": Th=1b$="h"10 ,0;" ":4056 h=14056 /,," EXPRESS  ";i*b(b);"% as a fraction: " ؋,," ";i*b(b);"% of ";j*b(12 -b);" = ",,,,"(";i*b(b);"/100) X ";j*b(12 -b);" = ";:b$="h"h=0"?":h=1:300,: i*j: 6i=(*8)+3:j=( *(11 -i))+1 b(i)*j=100d5000 b(1)>b(i)5000 R" EXPRESS  ";b(1)*j;" as a percentage of ";1,1;b(i)*j @3,0;" KEY  in your answer without the % sign" #a$=(b(1)*100d/b(i)): Th=1b$="h"10 ,0;" ":5056 h=15056 o15-11 *(b$="h"),0;" PUT:-",,,," ";b(1)*j;" over ";b(i)*j;" and multiply by 100" W,,b(1)*j;"/";b(i)*j;" X 100 = ";:b$="h"h=0h=1:"?":300,: b(1)*100d/b(i): pz$="" uy$= z'y$=0ůy$>1646005u y$=13 y$=12 6100  z$=z$+y$  62008 0:6005u z$=06035 z$=z$((z$-1))  6030 8z$>18 =?6:21,0;" " B221,(17-((z$+1)/2));z$ G 6035 #02:13 ,0;" ";:0:"" #)2:14,0;" " #15,0;" " #'0:16,0;"  " #16,4;"O" # 25 ##2:15,0;" " #'0:16,0;"  " # 5 #16,4;"O" #12:14,0;" ";:0:"" #12:15,0;" ";:0:" " # 5 #Yi=44+t*5:(t*4+4)/7:16,i;" O":i:20 # & 6 &1,0,27,17,82R,228,33!,0,64@,237,176,201,1,0,27,17,0,64@,33!,82R,228,237,176,201 & 9905& &a=124 &b &57999+a,b &a &a=58000 & 4 aNlY"Zss"sets X 9 sZ 2:6:6: Q128,192,224,240,248,252,254,255 H1,3,7,15,31,63?,127,255  20  y="a""c"-1:x:y,x:y (60<:57999 )c23613=\+256*23614>\,0:23613=\+1+256*23614>\,0: 2&a=65110V65128h:b:a,b:a 70c:c=c+65128h:a=65129ic:b:a,b:a ,9 ,237,71G,237,94^,201 Fk0,0,0,62>,62>,237,71G,237,86V,201,0,0 d47/,229,213,197,245,33!,0,64@,6,8,197,229,6,8,197,126~,229,245,1,31,0,84T,93],35#,237,176,241,18,225,193,36$,16,237,225,1,32 ,0,9 ,193,16,225,241,193,209,225,195,568,0 x65135o,72H }65137q,8 *1;5,9 ;"INTERMEDIATE" >1:19,7;"AREAS";19,15;"SETS" C18,2;"PERIMETERS";18,17;"VENN DIAGRAMS" G17,0;"SIMPLE EQUATIONS";17,21;"PERCENTAGES" #2;09 ,25;"" #2;10 ,25;" " '2;11 ,25;" " '2;12 ,25;"" #2;13 ,25;""  2 o68D,8*17+4:104h,0:0,-16:-104h,0:0,16 o65A,8*17+7:110n,0:0,-22:-110n,0:0,22  1 08,2;" " #09 ,2;"" 10 ,2;" "  2 09 ,7;" " 81;10 ,6;"";6;" " #11 ,6;""  4 12;10 ,10 ;"";6;""  ,2;11 ,11 ;6;" "  $6;12 ,10 ;" "  3 11 ,14;" " 12 ,14;"" 13 ,14;" "  5 13;12 ,18;"";6;"" 13;13 ,18;"";6;"" 14,18;"" % 2 _65135o,80P `65137q,8 a 65110V g 63? 65120` 2;20,6;" Rose Software 1984";9 ;21,1;"Program loading";1;21,18;" Please wait " T0,0;:6:6:"gr""a",168:0,0;:"s": 7bctgr X4 8DDDD  HH  ??0033 3300?? 33333333BbRJFB\,0:23613=\+1+256*23614>\,0:6:9 :6:20,6;" ";21,0;" STOP TAPE & press ENTER ":0:5;21,4;" Please key in your name ":9900& 6:500 =""9 ="y"600X "n"9 Ho$=" ":t=0:u=0:v=0 7b(4):c$(2,4):e$(4,29)  !2j=(*4)+4:j:1:j:9 : $y=(*4)+1 '2i=12:b(i)=(*12 )+1:i (!b(1)b(2)39' *y*1000+1000 - 900 J21,0;" Press any key":0:0:0:700 7:6::i=031:ٺ(*6);0,i;"#";21,i;"#":i:i=120:ٺ(*6);i,0;"#";i,31;"#":i:7,1;"So far, you have ";u;" correct";9 ,14;"and ";v;" incorrect" -6;15,9 ;" More? y or n " =""166 q$=:q$"y"q$"n"166 q$="y"30 0:3:7: $"" 617,0;"" i=116 Ki,0;"";i,31;"":i:3;18,0;o$;o$;o$;o$ .2,9 ;" CERTIFICATE " W5,2;" NAME:  ";n$((n$-((n$>17)*(n$-17)))) W7,2;" DATE:  ";m$((m$-((m$>17)*(m$-17)))) 49 ,2;" PROGRAM:  ""sets""" !11 ,5;"CORRECT: ";u #13 ,3;"INCORRECT: ";v u+v=0245 ;15,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0 %:20,9 ;"Press any key" =""251 ""252  a=58012 '6:6000p:z$=""505  n$=z$:n$:  <21,0;" NOW today's date (in any form) " 6000p:z$=""526 m$=z$:m$:: 621,0;" Instructions? y or n "  9 : X3:0,6;"""SETS"" (4 pages) PAGE 1" [U2,2;" Any collection of things ";3,2;" is called a set" ^T6,1;"For example, the set A of even numbers less than 10 is written" a"9 ,9 ;"A = {2,4,6,8}" d\12 ,1;" and  the set B of vowels is:-";14,9 ;"B = {a,e,i,o,u}" e 690 g80,25;"PAGE 2",2,1;"Subsets:" iQ6,1;"If set A = {2,4,6,8}",7,1;"and set B = {2,6,8}" k:10 ,0;" THEN  we say B is a subset of A" mB14,1;"since the members of B are all members of A" o 690 qI0,25;"PAGE 3",2,1;"The intersection of sets:" s?4,1;"If set A = {3,7,8}"," and set B = {1,7,8}" uY8,1;" THEN  the intersection of";10 ,1;"A and B is: {7,8}" vB12 ,1;"since 7 and 8 are common to both A and B" w915,1;"We denote A intersection B by AB" x418,1;"So in our example, AB = {7,8}" y 690 zF0,25;"PAGE 4";2,1;"The union of two sets:" {24,1;"If set A = {Sue,Lee,Tom,Liz}" |d5,1;"and set b = {Sue,Lee,Pat}";7,1;" THEN THE UNION OF A AND B IS:" ~*9 ,1;"{Sue,Lee,Tom,Liz,Pat}" t12 ,1;"since the union of the 2 sets"," consists of all the members of"," A and all the members of B." /17,1;"We write A union B as AuB" 6 20,1;" Press  ENTER to start " 0::12 + 20,1;" Press  ENTER " 0:: &0:7:7:9 : 95:1,7;" HIT THE BULLSEYE ":7 *3,1;"5 correct answers win" x=15 204,75K,x*8 x t<0t=0 x=118 12 ,x;" " x=14+t75K:: x 912 ,19;" ";12 ,20;" "  t=0 :3:1:10 ,0;"BULLSEYE!":0 34,4,2,4,2,4,2,11,2,11,4,11,4,4,2,4,2,4,4,11,4,11 "3","7","3","7","1","7","1","4","1","12","1","7","1","4","1","0","3","5","3","5","1","5","1","2","1","4","1","5","1","4","1","2" 04,16,2,14,2,16,2,14,2,11,4,7,2,9,4,7,2,9,8,11 {"3","7","3","7","1","7","1","4","1","12","1","7","1","4","1","0","1","2","1","5","1","4","1","2","1","0","1","-1","5","0" 84,16,2,14,2,16,2,14,2,11,4,7,2,9,4,7,2,9,2,11,2,7,4,4 K2,4,1,4,1,4,2,4,2,7,2,4,1,4,1,4,2,4,2,7,2,4,1,4,1,4,2,4,2,7,12,4,4,7,8,4  736 x=131 y$:z$ װy$/9 ,z$ x  502   i=(*4)+1 j=14 i>4i=1 i=1k=j j;". {";e$(i)  i=i+1 j "  PRESS  key 1 to 4" =""915 q$= &q$<491ůq$>524915 >13 ,0;o$;o$;16,1;"YOUR ANSWER: ";q$ q$=k963 918,1;" BAD LUCK  correct ans.is no.";k Ct=t-1:v=v+1:.5,-10 :1.5@,-20 yy=1" THE MEMBERS OF A SET ARE ALL"," THE ";c$(lp1);" NUMBERS GREATER"," THAN ";lp2;" AND LESS THAN ";b(2) cy=2"Set A = {";b(1);",";b(2);",";b(3);",";b(4);"}":"Subset is ?" Ty>2"If set A = {";b(1);",";b(2);",";b(1)+b(2);"}" Vy>2"and set B = {";lp1;",";lp2;",";b(2);"}":y=3"Then AB = ?" y=4"Then AuB = ?" @"Your answer (wrong):-":"{";e$(1+4*(q$2*b(1)4036 9d$=(b(2)-b(1))+","+b(1):4039 -d$=b(1)+","+(b(2)-b(1)) Ae$(2)=d$+","+b(2)+","+(b(1)+b(2))+"}" e$(3)=d$+"}" Ge$(4)=(b(2)-b(1))+","+(b(2)+b(1))+"}" 5,0;"": )b(2)=2*b(1)39' I"If set A = {";b(1);",";b(2);",";b(1)+b(2);"}" "and set B = {"; qb(2)>2*b(1)b(1);",";b(2)-b(1);:lp1=b(1):lp2=b(2)-b(1) qb(2)<2*b(1)b(2)-b(1);",";b(1);:lp1=b(2)-b(1):lp2=b(1) ",";b(2);"}" l3,2;" then which one of the sets ";4,5;" listed below is "   4060 )4,22;"AuB ?" !5,17;"(A union B)" 5,0;"" +b(2)>2*b(1)5021 9d$=(b(2)-b(1))+","+b(1):5024 -d$=b(1)+","+(b(2)-b(1)) Ae$(1)=d$+","+b(2)+","+(b(1)+b(2))+"}" -e$(2)=b(1)+","+b(2)+"}" Ge$(3)=(b(2)-b(1))+","+(b(2)+b(1))+"}" Ve$(4)=d$+","+(b(1)+b(2))+","+(2*b(1)+b(2))+"}"  pz$="" uy$= z'y$=0ůy$>1646005u y$=13 y$=12 6100  z$=z$+y$  62008 0:6005u z$=06035 z$=z$((z$-1))  6030 8z$>18 =?6:21,0;" " B221,(17-((z$+1)/2));z$ G 6035 XSa=58012:"sets"3:"gr""a",168:"sc"::0:7000X & 6 &1,0,27,17,82R,228,33!,0,64@,237,176,201,1,0,27,17,0,64@,33!,82R,228,237,176,201 & 9905& &a=124 &b &57999+a,b &a &a=58000 & 4 aNkkZkkY MkkO tuv x  y12,130} 10,110} 5,130} 10,12,120,130,132} y'kQ venn diagsX 9 )Z 2:6:6: Q128,192,224,240,248,252,254,255 H1,3,7,15,31,63?,127,255  20  y="a""c"-1:x:y,x:y (60<:57999 )c23613=\+256*23614>\,0:23613=\+1+256*23614>\,0: 2&a=65110V65128h:b:a,b:a 70c:c=c+65128h:a=65129ic:b:a,b:a ,9 ,237,71G,237,94^,201 Fk0,0,0,62>,62>,237,71G,237,86V,201,0,0 d47/,229,213,197,245,33!,0,64@,6,8,197,229,6,8,197,126~,229,245,1,31,0,84T,93],35#,237,176,241,18,225,193,36$,16,237,225,1,32 ,0,9 ,193,16,225,241,193,209,225,195,568,0 x65135o,72H }65137q,8 *1;5,9 ;"INTERMEDIATE" >1:19,7;"AREAS";19,15;"SETS" C18,2;"PERIMETERS";18,17;"VENN DIAGRAMS" G17,0;"SIMPLE EQUATIONS";17,21;"PERCENTAGES" #2;09 ,25;"" #2;10 ,25;" " '2;11 ,25;" " '2;12 ,25;"" #2;13 ,25;""  2 o68D,8*17+4:104h,0:0,-16:-104h,0:0,16 o65A,8*17+7:110n,0:0,-22:-110n,0:0,22  1 08,2;" " #09 ,2;"" 10 ,2;" "  2 09 ,7;" " 81;10 ,6;"";6;" " #11 ,6;""  4 12;10 ,10 ;"";6;""  ,2;11 ,11 ;6;" "  $6;12 ,10 ;" "  3 11 ,14;" " 12 ,14;"" 13 ,14;" "  5 13;12 ,18;"";6;"" 13;13 ,18;"";6;"" 14,18;"" % 2 _65135o,80P `65137q,8 a 65110V g 63? 65120` 2;20,6;" Rose Software 1984";9 ;21,1;"Program loading";1;21,18;" Please wait " T0,0;:6:6:"gr""a",168:0,0;:"v": 7bcqgr XL ?<0?~@  `x  >  ? '$$$$$$$$$$$$$$' ?$$333333338DDDD v u)i(H w) A.Cowley Aug.82  5 *23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:6:9 :6:20,6;" ";21,0;" STOP TAPE & press ENTER ":0:5;21,4;" Please key in your name ":9900& 6:500 So$=" ":t=0:u=0:v=0:h=0 b(3):c(4) ="y"800  ="n"h=1:29  22 y=(*2)+1 bb=(*4)+4 bb:bb:9 $ '2i=13:b(i)=(*10 )+1:i 0Mb(1)=b(2)b(1)=b(3)b(2)=b(3)39' 3y*1000+1000 6h=0878n 9 h=1 ?i=(*4)+1 Bj=14 Ei>4i=1 H i=kq=j Kj;". ";c(i):i=i+1:j N" Press  key 1 to 4" Q=""81Q Tq$= W%q$<491ůq$>52481Q Z(18,0;" " [C15,18;"YOUR ANSWER:";16,20;"number ";q$ \`140,38&:100d,0:0,20:-100d,0:0,-20 lq$=q116t n919,0;" SORRY, CORRECT ANSWER IS NO.";q pV=V+1:T=T-1 q).5,-10 :1.5@,-20 r 121y t61:19,0;"WELL DONE!":0 vU=U+1:T=T+1 wZ.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 |[k=121,0;"since ";b(1);"+";b(2);"=";b(1)+b(2) [k=221,0;"since ";b(2);"+";b(3);"=";b(2)+b(3) 8k=321,0;"since HR = ";b(2) Vk=421,0;"since HuR = ";b(1);"+";b(2);"+";b(3) 1q$q::"________________________________": W6,7;b(1);6,11 ;b(2);6,15;b(3) "21,21;"Press ENTER" ""136 =""137 700:7:6: i=031:ٺ(*6);0,i;"";21,i;"":i:i=120:ٺ(*6);i,0;"";i,31;"":i:7,2;"So far,you have ";U;" correct" )9 ,14;"and ";V;" incorrect" -6;15,9 ;" More? y or n " ""144 =""145 a$=:a$"y"a$"n"144 a$="y"30 0:3:7: $"" 617,0;"" i=116 Ki,0;"";i,31;"":i:3;18,0;o$;o$;o$;o$ 82,9 ;" CERTIFICATE " 5,2;" NAME:  ";N$((N$-((N$>17)*(N$-17)))) _7,2;" DATE:  ";M$((M$-((M$>17)*(M$-17)))) E9 ,2;" PROGRAM:  ""Venn Diagrams""" !11 ,5;"CORRECT: ";U #13 ,3;"INCORRECT: ";V U+V=0184 715,2;"PERCENTAGE: ";(100d*U/(U+V)) 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0 %:20,9 ;"Press any key" =""188 ""189  a=58012 '6:6000p:z$=""505  n$=z$:n$:  :21,0;" NOW today's date (in any form) " 6000p:z$=""526 m$=z$:m$:: 621,0;" Instructions? y or n " e$(4,18) me$(1)="hockey?":e$(2)="rounders?":e$(3)="both games?":e$(4)="at least one sport" 0 9 : a4:4::480,0:40(,120x:143,0:40(,119w &"WIN THE HORSE RACE" /2,0;"with five correct answers "  zz=3 t<0t=0 i=15 ;z=22-(3*i):x=24-(6-i):747 i PZZ=0:w(5):ta=0:ya=(*5)+1:I=15 W(I)=17:I  790 i=(*5)+1 +ta=5-tw(i)=9 iya714 9i=yaw(i)=9 ta5-(t+(t=0))714 w(i)<9 714 w(i)=9 ta=ta+1 w(i)=w(i)-4 z=22-(3*i) ,x=w(i)+i+1:W(I)<9 ZZ=3 ZZ0X=X-1  747 ZZ=0:i=ya790 w(ya)<9 745  714 61t>1;7,0;" YOU WERE "  751 Hz,x;" ";z+1,x;" ";z+2,x+1;" " 4:zz0 Yz,x-1;" ";z+1,x-1;" ";z+2,x-1;" "  1t>0;1t=5;7;8,0;" ";6-(t+(t=0));("st"t=5);("nd"t=4);("rd"t=3);("th"t<3);" " T5100d T5780  2,7,3,16,1,14,2,12 ,2,14,2,12 ,2,9 ,2,7,8,4 2,7,3,16,1,14,2,12 ,2,12 ,2,11 ,2,12 ,10 ,14 2,7,3,16,1,14,2,12 ,2,14,2,12 ,2,9 ,2,7,8,4 2,12 ,2,11 ,2,11 ,2,11 ,2,11 ,2,9 ,2,11 ,8,12  756 I=134":Z:X  Z/9 ,X I  t=5t=0  (4,14;" =YOUR HORSE" L22-((3*YA)-1),W(YA)+YA+3-(w(ya)<17);""   .:7:"VENN DIAGRAMS (3 pages) PAGE 1" #Y2,0;" Venn diagrams are used to give us a picture of a set " &`5,0;"For example:-",,"Two intersecting sets A and B are shown as two circles:-" ).70F:m=557:n=105i:990 2"21,21;"Press ENTER" 5#q$::0,25;"PAGE 2" 8E"Intersection of two sets";2,3;"and union of two sets" ;$m=95_:n=105i:990 >w7,15;"/";8,15;"//";9 ,14;"///";10 ,14;"///";11 ,15;"//" A12 ,15;"/" DG18,0;"The shaded area represents AB","A intersection B" GI21,21;"Press ENTER":q$:21,21;" " JJ18,0;" NOW  the shaded area shows AuB A union B " M)i=712 :j=10 12 Pi,j;"/";i,j+8;"/" Sj:i Vb6,12 ;"//";6,17;"///";13 ,11 ;"///";13 ,17;"///" _i=12 byi+8,9 ;"/";i+6,13 ;"/";i+10 ,13 ;"/";i+7,21;"/";i+9 ,21;"/" ei hO6,14;"/";13 ,14;"/";21,21;"Press ENTER" k7q$::0,0;"PAGE 3":y=1:39' n-13 ,0;" In this example:- " q]15,0;b(1)+b(2);" (= ";;b(1);" + ";b(2);") play hockey" t&b(2);" play both games (HR)" w"b(3);" play rounders only" zb(1)+b(2)+b(3);" (= ";b(1);" + ";b(2);" + ";b(3);") play at least one sport (HuR)" }/21,0;"Press ENTER to start":q$ "y=1:h=1::39' &n,m,35#: n+40(,m,35# cn-65A,m-45-:170,0:0,90Z:-170,0:0,-90Z j(143-m)/8,(n-35#)/9 ;"A";(143-m)/8,(n-35#)/9 +14;"B"  $m=120x:n=70F:990 ,3,4;"H";3,18;"R" U0,24;"H=set of";1,24;"Hockey";2,24;"players" W4,24;"R=set of";5,24;"Rounders";6,24;"players" h=23006 W6,7;b(1);6,11 ;b(2);6,15;b(3)  h=0 k=(*4)+1 *13 ,0;"How many play ";e$(k) c(1)=b(1)+b(2):c(2)=b(2)+b(3):c(3)=b(2):c(4)=b(1)+b(2)+b(3):i=1  h=23060  h=2:2000 g8,24;"S=Set of":1:9 ,24;" 30 ":0:10 ,24;"people" .2,1;"S":k=(*4)+1 <6,1;30-b(1)-b(2)-b(3) (k16,7;b(1) )k36,11 ;b(2) 3k=1k=36,15;b(3) !k=16,7;"x" "k=36,11 ;"x" ,k=2k=46,15;"x" 2024  Ya=58012:"venn diags"3:"gr""a",168:"sc"::0:5000 pz$="" uy$= z'y$=0ůy$>1646005u y$=13 y$=12 6100  z$=z$+y$  62008 0:6005u z$=06035 z$=z$((z$-1))  6030 8z$>18 =?6:21,0;" " B221,(17-((z$+1)/2));z$ G 6035 & 6 &1,0,27,17,82R,228,33!,0,64@,237,176,201,1,0,27,17,0,64@,33!,82R,228,237,176,201 & 9905& &a=124 &b &57999+a,b &a &a=58000 & 4 aNlllllllZkkkkkkY MkkkkkkMhockey? rounders? both games? at least one sportO tuvh y'mxnFl