ZXTape! 2 Mathskills II - Side BGriffin Software1984English Educational9.99 UKPNoneOriginal ReleaseTZXed by Andrew Barkerpercentagel"PERCENTAGE" PERCENTAGE  N0:0:0::236099\,502:0:0:0 q$="y"x -z$="  " K12 ,10 ;1;4;"PLEASE WAIT";0;0 "" .a=07:a,0;1;z$:a (H12 ,6;4;1;" LOADING PROGRAM ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" Z&  Qyx=A PERCENTAGElogo @  ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file @>&=$,B>Kn$()=n$(z1):n(i$))=(n$(z-(z-1))i$)z1:j$(32 ) c6:6:0:4::12 ,0;0;j$;18,0;0;j$  8000@ (p0 2m$="" < 200 Z&9 :j=6:6:6 dpc=6:lf2 n4yc=8:xc=4:yc1=4:1:lbox x 8 Klen=15:yc=yc+3:yc-3,xc;"Please ENTER your name":lnm *yc-3,xc;"Hello, ";n$();26 [m$=""yc-1,xc;"Now ENTER the date,";yc,xc;"please (in any form).";26:m$ m$>15űm$<2ům$<40(ům$>122z1,-10 :18,4;"THAT IS NOT THE DATE !!!":1,-20:18,4;" ":m$="":220 oyc1=1:yc-3,xc;"Name: ";n$;yc-1,xc;26;yc,xc;26:lbox:yc,xc;"Date: ";m$ 9 yc=16 Cpc=0:4:lbox:9 :yc,xc;"Instructions? y or n" ""1010 =""1020 %="y"Ŧ="Y"1370Z:1040  "n"Ʀ"N"1010 (a$="":t=0:u=0:v=0  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 8y=(*4)+1 Bj1=(*3)+4:j1:8:j1:9 :lf2:yc=3:xc=3:yc1=2-(y=3):pc=1:lbox:6:8 L1i=12:b(i)=(*9 )+1:i VA90Z*y+1950-60<*(y=1)-10 *(y=4) ` 1760 j18,9 ;0;"You have ";18,18+(u<10 );1;u;0;" correct";19,14;"and ";19,18+(v<10 );1;v;0;" incorrect" t!21,19;"More? y/n" ~=""1150~ /q$=:q$"n"q$"N"q$"Y"q$"y"1150~  15906 q$="n"q$="N"1200 q$="y"q$="Y"1070.  1150~ 0:7:7: z=25:z=z+2*(z=2):z,37%+z:255-2*z,0:0,135-2*z:2*z-255,0:0,2*z-135:z i=116 .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=01340< (;15,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 22,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0 <#:251=255200 F 8:20,0;j$:yc=19:xc=6:yc1=1:pc=1:6:lbox:9 :yc,xc;"Another go (y/n)?":0:="n"Ŧ="N"yc,xc;"END PROGRAM";31-xc:23662n\,80P:23663o\,5:23664p\,1:10000' K(="Y"Ŧ="y")1350F Plyc,xc;"Same Person(y/n)?":0:q$=:1350F-1340<*(q$="n"q$="N")-350^*(q$="Y"q$="y") ZC0:lf2:1,1;"""PERCENTAGES"" (4 pages) PAGE 1" d`2,2;" Percentages are fractions ";3,4;" with denominator 100 " n19 ,1;"19 percent is written as 19%" x12 ,11 ;"19" H13 ,1;"So 19% = --- (or 19/100)";14,10 ;"100"  1570" j1,25;"PAGE 2",2,1;" Fractions  can be expressed as percentages." 16,1;"Multiply the fraction by 100" ^10 ,1;"For example: 3 X 100 = 60",11 ,15;"-",12 ,15;"5" O16,15;"3",18,15;"5",17,12 ;"So - = 60%"  1570" O1,25;"PAGE 3",2,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"  1570" m1,25;"PAGE 4";2,1;" To express  11 as a";3,1;" 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" 6 21,1;" Press  ENTER to start "  1580, "+ 21,1;" Press  ENTER " ,l0:6:yc=2:xc=2:yc1=18:pc=6:over=0:lbox:9 :8: 6 @W5:1:0::z=11  21:z,0;4;j$:z:8 J01,12 ;" SCORE A GOAL " T+3,8;"5 correct answers win" Y 7000X ^1i=18:0;13+i,26;"";7+i,19;""i<8 h0;7+i,19+i;""i8 :i m214,0:0;-80P,80P:-134,0:134,80P:0,28:8,17;"";9 ,17;"" rt<0t=0 | 2380L t=51690  502:  t=0 90Z,30:-10 ,0:0,-20:10 ,0:0,7:-3,0:116t,30:-10 ,0:0,-20:10 ,0:0,20 d150,10 :-10 ,20:-10 ,-20:147,17:-12 ,0 9165,30:0,-20:10 ,0 5000:1680 .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  1680 `18,20;6;0;1;"or ENTER h";19,20;"for help." b$ kb$="h"bh=1:90Z*(1+y)+1930-20*(y=4)-10 *(y=3):1770 Gbh=0:b$>(3+(y=1)*3)űb$=01770 zz3=0:err=0:z3=0:z=1̱b$:z3=z3+(b$(z)="/"):zz3=z*(b$(z)="/")+zz3*(b$(z)"/"):err=((b$(z)>"9"b$(z)<"0")((b$(z)="/")(z>1)(z10 -bh,1;" Put ";b(1)*b(2);" over 100"," and cancel if possible";", so:"b$"h":b$="h":WAS 2000 H313 ,2;" CORRECT ANSWER IS  ";a$: R&b=(*7)+3:WAS 3000 \i=(*3)+1 fVa=b(b)-1-2*(i=2)*(b(b)>2)-6*(i=3)*(b(b)>5) p{yc,xc+5;"EXPRESS ";" "a<10 ;" "b(b)<10 ;a;"/";b(b);yc+1,xc+5;"as a percentage":9 z lp1=b(b) U12 ,8;"ENTER your answer";13 ,8;"without the % sign" a$=(a*100d/b(b)): A10 -2*bh,8;"MULTIPLY BY 100 ":WAS 3000 `12 -2*bh,8;"So ";a;"/";b(b);" X 100 = ";(a*100d/b(b))+"%"bh;"?"bh: >b=(*4)+3:j=(*5)+1:WAS 4000 'j*b(12 -b)=100d2220 i=(*5)+1 @yc,xc;"What is ";i*b(b);"% of ";j*b(12 -b);" ?":9  a$=(i*j) /12 ,7;"ENTER your answer": 10 -4*bh,2;"EXPRESS ";i*b(b);"% as a fraction,";12 -4*bh,2;" so:";:9 :WAS 4000 " ";i*b(b);"% of ";j*b(12 -b);" = ";14-4*bh,2;" (";i*b(b);"/100) X ";j*b(12 -b);" = ";(i*j)bh;" ?"bh: Di=(*8)+3:j=( *(11 -i))+1:WAS 5000 b(i)*j=100d2300 b(1)>b(i)2300 myc,xc+4;" EXPRESS ";b(1)*j;" as a";yc+1,xc+4;" percentage of ";b(i)*j:9 $Z1;13 ,7;"ENTER your answer";14,7;"without the % sign" .#a$=(b(1)*100d/b(i)): 810 -3*bh,2;"PUT:-";" ";b(1)*j;" over ";b(i)*j;12 -3*bh,1;" and multiply by 100":WAS 5000 B~14-3*bh,2;"giving us: ";b(1)*j;"/";b(i)*j;" X 100 = ";(b(1)*100d/b(i))+"%"bh;"?"bh: L9ink=2:ink:13 ,1;" ";:0:"" V%ink:14,1;" " `15,1;" " j'0:16,1;"  " t16,5;"" ~0,0;6;"";1,0;"";2,0;"":a9=12.50H:z=3*/22*ͧ/8:a9=12.5H-a9:6;25*z,175+25*z:6;(25-a9)*z,(25-a9)*z:z ink:15,1;" " '0:16,1;"  " 5 -ink:14,1;" ";:0:"" -ink:15,1;" ";:0:" " 5 bi=54+t*4:(t*4+4)/7:16,i;1;"":i:20  5,14,1,11 ,5,7,1,7,2,9 ,1,9 ,2,9 ,1,9 ,3,11 ,3,7 2,12 ,1,12 ,2,12 ,1,12 ,2,11 ,1,11 ,2,11 ,1,11 ,2,9 ,1,11 ,2,9 ,1,7,3,6,3,2 2,7,1,7,2,7,1,7,2,7,1,7,2,7,1,7,2,9 ,1,9 ,2,9 ,1,9 ,3,11 ,3,7 2,12 ,1,12 ,2,12 ,1,12 ,2,11 ,1,12 ,11 ,14,1,14,2,14,1,12 ,2,11 ,1,9 ,3,11 ,3,7 B5000:z=1524:time,note:time/15,note:z  p0znum=b$(zz3-1):zden=b$(zz3+1) zflt=0:z=27:z=z+(z=4)+(z=6):z4=z:flt=flt+((znum=z4*(znum/z4))(zden=z4*(zden/z4))):z:flt=flt:  d0znum=b$(zz3-1):zden=b$(zz3+1) X61259K: Yz=1592163:z,111o-546/579*(z-159):16,0:6,-6,(-3):16,-480:z bX216,579:16,0:6,-6,(-3):16,-480 lz=1811972:z,106j-3*(z-181):159-23677}\,0:z,106j-3*(z-181) v%0,((z-179)=4*(((z-179)/4)))*(568-23678~\):23678~\,106j-3*(z-181):568,-568:215-23677}\,0:23677}\,(z+568):0,((z-179)=4*(((z-179)/4)))*(1-23678~\):z z=1591795:z,111o-2*(z=179):0,2*(z=179)-557:z+568,579-2*(z=179):0,2*(z=179)-568:z  @LIBRARY ROUTINES |>lbox=8070:lframe=8065:j$(32 ):8091 Nlframe=0:yc=1:xc=1:yc1=20:lframepc::8 1mc=(8*xc-9 )(xc>1):mc,176-8*(yc-1)-(yc=1):255-2*mc,0:nc=23678~\-(yc1+2)*8-1+(23678~\=175):0,(nc+nc)/2-23678~\:2*mc-255,0:0,16+8*yc1-(yc+yc120) _lframez=yc-1yc+yc1:z,xc-1;1;pc;j$(32 -2*(xc-1)):z lframe=8065: lnm=8110:8141 n$="":n$(len):z=1 &z1=(n(".")ƨn(" ")ƨn("-")):yc,xc+z-1;1;"L"z1;"C"z1:0:i$=:((i$>"z")(i$<"A")((i$>"Z")(i$<"a")))((i$=" "ƨn("-")ƨn(" "))((i$=".")ƨn(".")ƨn("-")ƨn(" "))((i$="-")ƨn(i$)ƨn(".")ƨn(" "))((i$=12 )(i$=13 ))(z>i$-11 ))8115 i$>13 n$(z)=(i$-32 *(z1i$>"Z")):yc,xc+z-1;n$(z):.04|# =,34.4 :z=z+1:zMusr >8;& !HKpp88888bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbpp88888ddddddddddddddddddddddddddddddddp88p88p88&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&pp88888p88FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFpp88888p88pp88888p888p88888p888bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbp888ddddddddddddddddddddddddddddddddp8888888&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&88FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF88!HXBѪBBBBBBNBUpBNWTxB0rBqwpBBBwwrB+wwt?B9U<B;}U\BU?BW]WB^BBBB*BNWB.UWB_B.U_UVGB*BwwBB*wwBwwu BC@BB`WUUpBSWU껠BBBW]W~WUTBU~BT7z꺀*PwwtB;B7PB4WUPWUBPB @ JB@BBWU@ WWBU@Bww@ jBuBw@BB]W[CUUB[p8?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file a&_Ha=n$()=n$(z1):n(i$))=(n$(z-(z-1))i$)z1  8000@ j$(32 ) 65353I !200:65355K,64@ start=0:date=0 d28000@:pc=6:2:6:lframe nstart170 xbyc=11 :xc=4:yc1=1:pc=6:4:lbox:2:yc,xc;"Same Person?": ""130 :0:q$=:(q$="Y"q$="y"q$="n"q$="N")140 5010 )q$="y"q$="Y"start=2:250 Ȏyc=3:xc=4:len=15:pc=7:yc1=4:2:lbox:yc=yc+3:3,4;"ENTER your name, please":lnm 03,4;"Hello, ";n$();"!";27 `dateyc,xc;"Please ENTER the date":m$:m$>10 ům$<40(ům$>122z220 -date=1:yc,xc;"Date: ";m$;27 Hyc-3,xc;"Name: ";yc-3,11 ;n$;" ":yc1=1:lbox yc=12 -5/2*start:yc1=7+start:pc=0:2:lbox:9 :yc,xc;"Do you want:-";yc+2,xc+3;"1 SETS";yc+4,xc+3;"2 VENN DIAGRAMS";"?"start;yc+6,xc+3;"3 To Finish?"start Oyc+6+start,xc;"Type 1";" or 2"start;", 2 or 3"start ""260 ?0:q$=:q$<"1"q$>(502+start/2)270 xyc+2*q$,xc;1;"";1;0;6;27;yc+4+start,xc+18-2*start;"?" "2000*q$-1000  5020 $=""1060$ .="y"1510 8"n"1060$ B!t=0:u=0:v=0 L7b(4):c$(2,4):e$(4,29) V `j=(*3)+4:1:pc=6-j+4*(j=4):2*(j-4+(j=6)+4*(j=3)):j-4*(j=6)+4*(j=3):lframe j5050:9 ty=(*4)+1 ~2i=12:b(i)=(*12 )+1:i #b(1)b(2)1150~ By*160+2150f-502*(y=3)-20*(y=4)  2050 100d:241,22:-99c,0:0,35#:99c,0:0,-35#:z=1518:z,18;1;j$(12 ):z |15,18;1;"So far,";16,21;"you have:";17,18;" "(u<10 );u;" ";"correct &" 918,19-(u>10 );1;V;" incorrect" #20,18;"More? (y/n)" q$= q$"n"q$"y"1220 =""1210  1790 q$="n"q$="N"1260  1110V 0:7:7:  5060 .2,9 ;" CERTIFICATE " (W5,2;" NAME:  ";n$((n$-((n$>17)*(n$-17)))) 2W7,2;" DATE:  ";m$((m$-((m$>17)*(m$-17)))) <49 ,2;" PROGRAM:  ""sets""" F!11 ,5;"CORRECT: ";u P#13 ,3;"INCORRECT: ";v Zu+v=01400x d;15,2;"PERCENTAGE: ";(100d*u/(u+v));"%" n2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0 x !20,0;"ENTER" #start=2:0:100d WHAT IS THIS??????? 3: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" "9 ,9 ;"A = {2,4,6,8}" \12 ,1;" and  the set B of vowels is:-";14,9 ;"B = {a,e,i,o,u}"  1770 "80,25;"PAGE 2",2,1;"Subsets:" ,Q6,1;"If set A = {2,4,6,8}",7,1;"and set B = {2,6,8}" 6:10 ,0;" THEN  we say B is a subset of A" @B14,1;"since the members of B are all members of A" J 1770 TI0,25;"PAGE 3",2,1;"The intersection of sets:" ^?4,1;"If set A = {3,7,8}"," and set B = {1,7,8}" hY8,1;" THEN  the intersection of";10 ,1;"A and B is: {7,8}" rB12 ,1;"since 7 and 8 are common to both A and B" |915,1;"We denote A intersection B by AB" 418,1;"So in our example, AB = {7,8}"  1770 F0,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::1090B + 20,1;" Press  ENTER "  0:: &0:7:7:9 : 95:1,8;" HIT THE BULLSEYE ":7 *3,1;"5 correct answers win" x=15 &204,75K,x*8 0x :t<0t=0 Dx=118 N12 ,x;" " Xx=14+t75K:: bx l912 ,19;" ";12 ,20;" " v t=0 :3:1:10 ,0;"BULLSEYE!":0 4,4,2,4,2,4,2,11 ,2,11 ,4,11 ,4,4,2,4,2,4,4,11 ,4,11 4,16,2,14,2,16,2,14,2,11 ,4,7,2,9 ,4,7,2,9 ,8,11 4,16,2,14,2,16,2,14,2,11 ,4,7,2,9 ,4,7,2,9 ,2,11 ,2,7,4,4 "2,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  1930 x=1513 y:z y/10 ,z x  502   i=(*4)+1  j=14 i>4i=1  i=1k=j *,j+7,1;j;". {";e$(i,20) 4 i=i+1 >j H)13 ,1;" Press  key 1-4" R=""2130R \q$= f'q$<491ůq$>5242130R kXz=822:zz2=((7+q$,z)="}"):zz2=zz2*z:z=z+(zz2)*(283-z):z pL7+q$,1;1;(q$=k);(q$=k);1;j$(zz2):5 zq$=k2280 913 ,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)2640P F9d$=(b(2)-b(1))+","+b(1):2650Z P-d$=b(1)+","+(b(2)-b(1)) ZAe$(2)=d$+","+b(2)+","+(b(1)+b(2))+"}" de$(3)=d$+"}" nGe$(4)=(b(2)-b(1))+","+(b(2)+b(1))+"}" x5,0;"": +b(2)=2*b(1)1150~ Z1,1;"If set A = {";b(1);",";b(2);",";b(1)+b(2);"}" #2,1;"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);"}" {4,1;"  then which one of the sets ";5,1;" listed below is ":7000X  2690 :WAS 5000 )5,22;"AuB ?" !6,17;"(A union B)" 5,0;"" +b(2)>2*b(1)2830 9d$=(b(2)-b(1))+","+b(1):2840 -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))+"}" 6Ve$(4)=d$+","+(b(1)+b(2))+","+(2*b(1)+b(2))+"}" @ 5020 3670V ,t=0:u=0:v=0:h=0 b(3):c(4) ="y"4170J ="n"h=1:3070 3040 y=(*2)+1 bb=(*3)+5 (bb:7-bb:9 :pc=7-bb 32-(bb=5):lframe:5050:9 &2i=13:b(i)=(*10 )+1:i 0Ob(1)=b(2)b(1)=b(3)b(2)=b(3)3110& :y*120x+4380 ? 4495 Dh=04390& N h=1 Xi=(*4)+1 bj=14 li>4i=1 v i=kq=j =13 +j,2;(j+96`);". ";c(i):i=i+1:j -18,1;" Press  key a-d" =""3220 q$= (q$<97aůq$>100d3220 q$=q+96`13 +q$-96`,2;1;1;1;" ";10 ,23;0;" ":3310 ric=i+q$-97a:14,2;" ";15,2;1;q$;". ";c(ic-4*(ic>4));" " u16,2;" ";17,1;"SORRY,CORRECT";18,1;"ANSWER IS ";(96`+q);".";" " V=V+1:T=T-1 ).5,-10 :1.5@,-20 1:3335 j18+(k4),1;"WELL DONE!!";25:k418,1;25;" " U=U+1:T=T+1 Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 (1:6:2*(7-bb)+2-5*(bb=5) k=120,1;"since ";j$((b(1)<10 )+(b(2)<10 )+((b(1)+b(2))<10 ));b(1);"+";b(2);"=";b(1)+b(2) 3k=220,1;"since ";b(2);"+";b(3);"=";b(2)+b(3); k=220,1;"since ";j$((b(3)<10 )+(b(2)<10 )+((b(3)+b(2))<10 ));b(2);"+";b(3);"=";b(3)+b(2) ]k=320,1;"since ";j$(1+(b(2)<10 ));"HnR=";b(2) *k=419,1;"since:-";14;" ";20,1;" ";20,3+(b(1)<10 )+(b(2)<10 )+(b(3)<10 );"HuR=";b(1);"+";b(2);"+";b(3) /"0:0:9 :7-bb 4:q$q+96`::"________________________________": >m5,7;b(1);5,10 +(b(2)<10 );b(2);5,15;b(3) H200:241,22:-99c,0:0,35#:99c,0:0,-35#:z=1518:z,18;1;j$(12 ):z R|15,18;1;"So far,";16,21;"you have:";17,18;" "(u<10 );u;" ";"correct &" \918,19-(u>10 );1;V;" incorrect" f"20,20;" More? y/n" p""3440p z=""3450z a$= 3700t a$="n"3500 3070 5060 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=036408 $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 8 B"20,0;"ENTER " L#0:start=2:100d Ve$(4,19) `ne$(1)="hockey?":e$(2)="rounders?":e$(3)="both games?":e$(4)="at least one sport?" j ty4:4::480,0:40(,120x:143,0:40(,119w:23675{\,128: ~&"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):3960x i PZZ=0:w(5):ta=0:ya=(*5)+1:I=15 W(I)=17:I  4140, i=(*5)+1 ,ta=5-tw(i)=9 iya3810 :i=yaw(i)=9 ta5-(t+(t=0))3810 w(i)<9 3810  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 2ZZ0X=X-1 < 3960x FZZ=0:i=ya4140, Pw(ya)<9 3940d Z 3810 d61t>1;7,0;" YOU WERE " n 4000 xHz,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 T54110 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,7,2,9 ,2,14,2,12 ,2,11 ,2,9 ,2,11 ,8,12  4030 I=134":Z:X  Z/9 ,X I 7:7: t=5t=0 "23675{\,88X: ,(4,14;" =YOUR HORSE" 6L22-((3*YA)-1),W(YA)+YA+3-(w(ya)<17);"" @ J%:"VENN DIAGRAMS (3 pages) PAGE 1" TY2,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:-" h;70F:m=557:n=105i:4460l:4495 r"21,21;"Press ENTER" |#q$::0,25;"PAGE 2" E"Intersection of two sets";2,3;"and union of two sets" 1m=95_:n=105i:4460l:4495 w7,15;"/";8,15;"//";9 ,14;"///";10 ,14;"///";11 ,15;"//" 12 ,15;"/" G18,0;"The shaded area represents AnB","A intersection B" I21,21;"Press ENTER":q$:21,21;" " J18,0;" NOW  the shaded area shows AuB A union B " )i=712 :j=10 12 i,j;"/";i,j+8;"/" j:i b6,12 ;"//";6,17;"///";13 ,11 ;"///";13 ,17;"///" i=12 yi+8,9 ;"/";i+6,13 ;"/";i+10 ,13 ;"/";i+7,21;"/";i+9 ,21;"/" i O6,14;"/";13 ,14;"/";21,21;"Press ENTER" 9q$::0,0;"PAGE 3":y=1:3110& &-13 ,0;" In this example:- " 0]15,0;b(1)+b(2);" (= ";;b(1);" + ";b(2);") play hockey" :&b(2);" play both games (HuR)" D"b(3);" play rounders only" Nb(1)+b(2)+b(3);" (= ";b(1);" + ";b(2);" + ";b(3);") play at least one sport (HnR)" X/21,0;"Press ENTER to start":q$ b#y=1:h=1::3080 lCIRCLE WAS HERE vn-65A+10 *(n=70F),m-45-:173-10 *(n=70F),0:0,90Z-8*(n=70F):10 *(n=70F)-173,0:0,8*(n=70F)-90Z j(143-m)/8,(n-35#)/9 ;"A";(143-m)/8,(n-35#)/9 +14;"B"  Rn,m,35#-4*(n=70F): n+39',m,35#-4*(n=70F): %m=128:n=70F:4460l .2,4;" H";2,17;"R " U1,23;"H=set of";2,23;"Hockey";3,23;"players" W5,23;"R=set of";6,23;"Rounders";7,23;"players" h=24630 m5,7;b(1);5,10 +(b(2)<10 );b(2);5,15;b(3)  h=0 k=(*4)+1 12 ,1;"How many people";13 -(k=4),1+(k=4)*16;"play ";13 ,1+(k<4)*5;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:4500 h9 ,23;"S=Set of":1:10 ,23;" 30 ":0:11 ,23;"people"  /2,21;"S":k=(*4)+1 *=6,20;30-b(1)-b(2)-b(3) 4(k15,7;b(1) >?k35,10 +(b(2)<10 );b(2) H3k=1k=35,15;b(3) R!k=15,7;"x" \"k=35,11 ;"x" f,k=2k=45,15;"x" p 4580 z 23662n\,141:23663o\,19:23664p\,1:yc+8,xc;"END PROGRAM ";19,6;1;" ENTER c to":10000' tyc+6,xc;0;" ";1;9 ;" ?";19,4;0;j$(24):255 @1:yc,xc;"Same Person?":lbox:0:start=0: )yc=yc+7:yc1=1:pc=1:2:yc-1,xc-1;j$(26):lbox:9 :yc,xc-1;" Instructions? (y/n)";29;yc+1,xc-1;"__________________________";yc-1,xc-1;j$(26);yc+2,1;6;j$(30)start: z=13:z,z:0,175-2*z:255-2*z,0:0,2*z-175:2*z-255,0:z: Ĵz=05:z,175-z:255-2*z,0:0,2*z-143:2*z-255,0:0,143-2*z:z=z+2*(z=1):z: XHz=45:5;8;z,31;"";z,0;"":z b @LIBRARY ROUTINES |>lbox=8070:lframe=8065:j$(32 ):8091 Nlframe=0:yc=1:xc=1:yc1=20:lframepc::8 mc=(8*xc-9 )(xc>1):mc,176-8*(yc-1)-(yc=1):255-2*mc,0:0,(yc+yc120)-16-8*yc1:2*mc-255,0:0,16+8*yc1-(yc+yc120) _lframez=yc-1yc+yc1:z,xc-1;1;pc;j$(32 -2*(xc-1)):z lframe=8065: lnm=8110:8141 n$="":n$(len):z=1 &z1=(n(".")ƨn(" ")ƨn("-")):yc,xc+z-1;1;"L"z1;"C"z1:0:i$=:((i$>"z")(i$<"A")((i$>"Z")(i$<"a")))((i$=" "ƨn("-")ƨn(" "))((i$=".")ƨn(".")ƨn("-")ƨn(" "))((i$="-")ƨn(i$)ƨn(".")ƨn(" "))((i$=12 )(i$=13 ))(z>i$-11 ))8115 i$>13 n$(z)=(i$-32 *(z1i$>"Z")):yc,xc+z-1;n$(z):.05|L,34.4 :z=z+1:z  ??0033