le1 D2D*F2@32767:1;11 ,9 ;"PLEASE WAIT":"le1 A" le1 A p! r!%502:58:: A.Cowley 1983 %6:6::"sc":59; 2&0:6:6:2: 698b,126~:60<,-60<:98b,66B:60<,60<:30,-30,-:-30,-30,-:-30,-30,-:-30,30,-:-30,30,-:30,30,-:30,30,-:30,-30,-: :89 ,14;"ROSE";10 ,12 ;"SOFTWARE" ;'o$=" " 0);("+"b<0);" y= 1";8,5;("-"b>0);9 ,0;a;" ";b;" ";b:0,103g:8,0:16,103g:16,0:40(,103g:16,0 621,0;"Need help?  Press h":h=0 8050r:w$="y"224 h=1g=0224 q$="n"300, 200 g=1:7010b:14,0;"Rearrange the equation to:","y=";m;"x+1":w$="y"17,0;" SO  correct answer is: ";m:8090:221 218 O8,0;"y";("+"m<0);("-"m>0);m;"x-1=0 ?":215 ,g=0:h=2 /Eh1h3m=(*13 )-6:m<2303/ 0 8000@ 20,0;"TO ";0,3-3*(h=0)+-3*(h=5);"FIND THE";2,0;"EQUATION of";4,0;"a straight";6,0;"line ";:h3345Y 5t"with";8,0;"gradient ";m;10 ,0;"passing";12 ,0;"through(1,";m+1;")" 6h=0381} 8 h07010b:14,0;" PUT  the known values of x,y,m into the equation: y=mx+c";17,0;"GIVING: ";m+1;"=(";m;"x1)+c SO:c=1":h=1g=09000(#:7010b:0,0;" FIND THE  ":381} >H19,0;" THEN  the equation is: y=";m;"x+1":9000(# A4g=1w$="y"g=0:8090:387 Ph=4375w S!h=2h=4:302. Y"passing";8,0;"through ";:1:"(1,";m+1;")";10 ,4;"(0,1)":0:10 ,0;"and" Zh=5381} \7010b:13 ,0;"NOW the gradient=difference in y";14,17;"difference in x":138,63?:117u,0 _16,0;"=";:1:"(";m+1;"-1)";:0:"=";m;" (here)":1:17,1+(m<-1);"(1-0)":0:17,7+2*(m<-1);"1" e12 ,40(:32 +8*(m<-1),0:568+8*(m<-1),40(:8+8*(m<-1),0 hR16,18;" SO  m=";m:h=39000(#:7010b:381} k[19,0;" AND  one value of (x,y)=(0,1)":9000(#:7010b:3128 wJw$="":a$=""::k=(*2)+1:h=5*(k=2):303/ }Sp$="y="+m+"x+1":8100:g=1h=2+2*(k=2):3062 ~>w$="y"h=2+2*(k=2):7010b:3062 "h=17010b:3128 "h=37010b:348\ q$="y"375w ?502:0,14;" END ":9000(#:58: X(i=013 :i,0;c$:i: b)i=13 21:i,0;o$:i: @J:i=104h2488:j=72H1688:i,j:j:i C103g,119w:144,0:-3,3:3,-3:-3,-3:177,71G:0,97a:-3,-3:3,3:3,-3:0,21;"y";7,31;"x" J'i=1:j=-112 M,(j*9 *m+1)>68020T P6x(i)=j*9 :y(i)=j*9 *m+1:8030^ T5y(i)=j*6:m=0x(i)=0:8027[ Xx(i)=(j*6-1)/m ^i=i+1:j:x(1)*8+176,y(1)*8+120x:(x(2)-x(1))*8,(y(2)-y(1))*8: r2a$="":18,0;" Your answer  ?" uD0:q$=:q$="-"18,16;"-";:a$="-":8051s vq$="h"h=18050r wq$="h"h=0h=1: xq$<"0"q$>"9"8050r {]a$=a$+q$:21,0;o$;18,16;a$;19,0;"CORRECT ANSWER: ";m ~a$=m8087 6.5,-10 :1.5@,-20:v=v+1 !h=1h=38090 E21,0;" Like to see why?  y or n":=""8068 !w$=:w$"y"w$"n"8069 ""8071 )w$="y"h=1+2*(k=2): :8093 g.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :u=u+1 9000(#: t3,7;"TOTAL CORRECT: ";u;5,5;"TOTAL INCORRECT: ";v;16,8;" More?  y or n" !q$=:q$"y"q$"n"8096 h=0:g=0:w$="": `i=1520:h1h321,0;" NEED help? ENTER h " `14,0;" Enter  your working? y or n ":i1514,8;"more" q$= q$="h"8160 q$="n"8130 q$"y"8106 714,20;" ":q$:q$="h"8160 i,0;q$:i:8100 s21,0;o$;14,0;" ENTER  your answer  NOW  ":a$:a$>12 a$="RUBBISH" 7010b:15,1;"Your answer: ";a$:0,60<:128+8*a$,0:0,-16:-128-8*a$,0:0,16:17,0;"CORRECT ANSWER ";p$;19,0;"(same spaces please)":a$=p$8087: 8065:q$="n" h=2*k: "h=1h=3g=1: !h=1+2*(k=2): #(""9000(# #)A21,0;o$;21,9 ;"Press any key":0 #*=""9002*# #+""9003+# #. kh uvC   dO Dsc @A#idU#1LS@mSsge[@ '_V%&L=+`e2JPB@d1iD̓1*Tc̙gH-d IIT)HB8@88)<H< 3l;nʯd<ڐC< RfwY@J3$~0xD D0xJcij)"?bU`)o##[L *̔RBDx xLJ T;L<9Ll3TO_$L`1V2@%&sRRTBD@ @@3JfQE+`0TۀI68t@%)I3II)TB8 D< <gm0LXx;*j8sg2`mGO*RH`bw % JJRMyff/%%)TdҐ£@lÌ[@<>m >3(ĒJTdR)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% ymGO*l8sg2`)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@0T߀xjQpE3`)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@TOoLl5)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[lJ`)#?"UU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC ;oʷҘf̪U*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .da̘[F?K@K*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OVmSsge[@e!FbU@JJRʩh JRRT%J$)T,ߊwD>} ?`m(Ìኛ`TpÄn |<*cl0Rd @@~| Tn>Ç x@x88@@ 0);c;8,0;"are found";10 ,0;"by putting" yw7010b:14,0;"first";14,0;("PUT "h=1);14,6;"y=0 into the equation" |16,0;" THEN  we get: 0=";m;16,17+(m1);"x";("+"c>0);c;"  SO  x=";-c/m:h=1w$"y"9000(#:7010b:187 }F19,0;" ONE INTERCEPT IS:  (";-c/m;",0)":9000(# 7010b:14,0;"next";14,0;("PUT "h=1);14,4;": x=0 into the equation";16,0;"Giving y=";m;"x0";("+"c>0);c;16,18;" SO  y=";c:h=19000(#:7010b:187 I19,0;" THE OTHER INTERCEPT IS:  (0,";c;")":9000(# w$="y"8090:196 Kw$="":h=0:m=(*5)-2:m=0m=-1163 8c=((*7)-3)*2:c=0166 M:8000@:k=(*2)+1:d$="("+(-c/m)+",0)":e$="(0,"+c+")" 20,0;" For the ";2,0;"line y=";m;2,7+(m<0)+(m1);"x";("+"c>0);c;4,0;"ONE INTERCEPT";6,0;"is ";(d$k=1);(e$k=2);8,0;" What is ";10 ,0;"the other";12 ,0;"intercept?" Yp$=(d$k=2)+(e$k=1):8100:w$="y"7000X:7010b:109m h=1133-6*k q$="y"160 Fw$="":h=0:p$="5":w=3:z=1:x=7:y=4 Τm=.75@:c=-1.25 ::8000@:3*8+176,1*8+120x,2:7*8+176,4*8+120x,2 ԗ14,0;" To find  the distance between",,,"the two points (3,1) and(7,4)",,,"we use  Pythagoras' Theorem ":9000(#:7010b ׶0,0;"Points";1,0;" (7,4)";2,0;" and ";3,0;" (3,1)":3*8+176,128:32 ,0:0,24 7010b:14,0;"DIFFERENCE in x values squared =(";x;"-";w;")x(";x;"-";w;")=";(x-w)^2;17,0;"DIFFERENCE in y values squared =(";y;"-";z;")x(";y;"-";z;")=";(y-z)^2:h=19000(#:7010b:254 9000(#:7010b:14,0;" So  the distance between the two points is the square root of (";(x-w)^2;"+";(y-z)^2;")";18,0;"ANSWER: ";p$;" (cms.)":9000(#:w$="y"8090:260 k=(*3)+1:y=4:x=((*(6+(k^2)-(k=2)))-5+"860"(k)):m=.75@:k=1m=5/12 c=y-m*x:8000@:x*8+176,y*8+120x,2:w=x-16+4*k:z=y-"563"(k):w*8+176,z*8+120x,2 0,0;" What is ";2,0;"the distance";4,0;"between the";6,0;"points";8,0;"(";x;",";y;") and";10 ,0;"(";w;",";z;") ?" ap$=(14-(k^2)):f$="(omit cms.)":8100:260-42**(w$="y"h=1) q$="y"230 /Y350^:0,0;" TO FIND ":360h:360h:370r:380| JOh=0:w$="":350^:0,0;" WHAT IS ":360h:"?" M~f$="in the form: y=mx+c":p$="y="+m+"x"+("+"d>0)+d:8100:w$="y"370r:380|:8090:342V SCh=1370r:9000(#:21,0;o$:333M Vq$="y"330J Y?502:0,14;" END ":9000(#:58: ^0m=(*13 )-6:m<2350^ aMc=(*11 )-5:d=(*11 )-5:(c-d)<2353a b c=0d=0353a d9x=(*17)-8:y=m*x+d:y>6350^ fA:8000@:x*8+176,y*8+120x,2: h2,0;"the equation";4,0;"of the line";6,0;"parallel to";8,0;m;"x=";-c;"+y";10 ,0;"passing thro'";12 ,0;"(";x;",";y;")";: rF7010b:14,0;"THE gradient of the line is:";m: |16,0;" So  putting the values of x,y,minto y=mx+c we get:";19,5-(y<0);y;"=";m;"X";x;"+c";19,15;"SO c=";d:9000(#:7010b:16,0;"ANSWER IS: y=";m;"x";("+"d>0);d:9000(#: X(i=013 :i,0;c$:i: b)i=13 21:i,0;o$:i: @J:i=104h2488:j=72H1688:i,j:j:i C103g,119w:144,0:-3,3:3,-3:-3,-3:177,71G:0,97a:-3,-3:3,3:3,-3:0,21;"y";7,31;"x" J'i=1:j=-112 M&(j*9 *m+c)>68020T P0x(i)=j*9 :y(i)=j*9 *m+c:8030^ T5y(i)=j*6:m=0x(i)=0:8027[ Xx(i)=(j*6-c)/m ^i=i+1:j:x(1)*8+176,y(1)*8+120x:(x(2)-x(1))*8,(y(2)-y(1))*8: M.5,-10 :1.5@,-20:v=v+1:h=18090 E21,0;" Like to see why?  y or n":=""8068 !w$=:w$"y"w$"n"8069 ""8071  w$="y" :8093 g.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :u=u+1  9000(# :3,5;" TOTAL CORRECT : ";u;5,5;"TOTAL INCORRECT: ";v;16,8;" More?  y or n" !q$=:q$"y"q$"n"8096 h=0:w$="": Vi=1620:h121,0;" NEED help? ENTER h " `15,0;" Enter  your working? y or n ":i1615,8;"more" q$=:q$="h"8160 q$="n"8130 q$"y"8106 715,20;" ":q$:q$="h"8160 i,0;q$:i:8100 ‡21,0;o$;14,0;o$;o$;14,0;" ENTER  your answer  NOW ",f$:a$:a$>12 a$="RUBBISH" 7010b:15,1;"Your answer: ";a$:0,60<:128+8*a$,0:0,-16:-128-8*a$,0:0,16:17,0;"CORRECT ANSWER ";p$;19,0;"(same spaces please)":a$=p$8087: 8065:q$="n" h=2*k: h=1a$="h":8133  h=1: #(""9000(# #)A21,0;o$;21,9 ;"Press any key":0 #*=""9002*# #+""9003+# #. khuvC  @WFin the form eg:(3,2)mcJO \sc @A#idU#1LS@mSsge[@ '_V%&L=+`e2JPB@d1iD̓1*Tc̙gH-d IIT)HB8@88)<H< 3l;nʯd<ڐC< RfwY@J3$~0xD D0xJcij)"?bU`)o##[L *̔RBDx xLJ T;L<9Ll3TO_$L`1V2@%&sRRTBD@ @@3JfQE+`0TۀI68t@%)I3II)TB8 D< <gm0LXx;*j8sg2`mGO*RH`bw % JJRMyff/%%)TdҐ£@lÌ[@<>m >3(ĒJTdR)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% ymGO*l8sg2`)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@0T߀xjQpE3`)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@TOoLl5)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[lJ`)#?"UU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC ;oʷҘf̪U*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .da̘[F?K@K*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OVmSsge[@e!FbU@JJRʩh JRRT%J$)T,ߊwD>} ?`m(Ìኛ`TpÄn |<*cl0Rd @@~<| Tn>Ç x@x88@9 );a*(a-1);"-";(a-1)^2;"y";15,27;"=";a*(a-1)*x-(a-1)^2*y:9000(# 17,0;" Multiply  the",,"2nd equation by ";a;":";18,21-(a*a>9 );a*(a-1);"-";a*a;"y";18,27;"=";a*(a-1)*x-a*a*y:9000(# 159,24:96`,0:19,9 ;"SUBTRACT:";19,24;a*a-(a-1)^2;"y =";(a*a-(a-1)^2)*y;20,0;" SO  y=";y:9000(#:7010b: 14,0;" NOW  substitute the value y=";y;16,0;"into the 1st equation";18,0;" giving  ";a;"-(";a-1;" X ";y;")=";a*x-(a-1)*y;18,26;a;"=";a*x;20,0;" SO  =";x:9000(# 7010b:14,0;" CHECK  that =";x;" and y=";y;16,0;"satisfy the 2nd equation:";18,0;"(";a-1;" X ";x;")-(";a;" X ";y;")=";(a-1)*x-a*y;" ":9000(#: ~h=0:w$="":160:0,0;" SOLVE ":f$="in the form eg:=2":r$="x="+x:s$="y="+y:k=(*2) p400*k+170:8100:w$="y"400*k+180:400*k+200:8090:260 Rh=1400*k+180:f$="in the form eg:=2":p$="x="+x:236 700-470*(q$="y") L570::8100:w$="y"180:200:8090:260 :2,0;"the";4,0;"simultaneous";6,0;"equations:";8,0;a-1;"+";a;"y=";(a-1)*x+a*y;10 ,0;"and";12 ,0;a;"=";2*a;"y";("+"(a*(x-2*y)>0));a*(x-2*y): D7010b:14,0;" Multiply  the",,"1st equation by 2:";15,20-(2*a>9 );2*(a-1);"+";2*a;"y=";2*((a-1)*x+a*y):9000(# N17,0;" Re-arrange  the","2nd equation";18,20-(2*a>9 );a;"-";2*a;"y=";a*(x-2*y):9000(# S*159,24:96`,0:19,12 ;" ADD:";19,20-(2*a>9 )-((3*a-2)>9 );((3*a-2)(3*a-2)1);"";19,25;"=";x*(3*a-2);20,0;" SO  =";x:9000(#:7010b: X14,0;" NOW  substitute the value =";x;16,0;"into the 1st equation";18,0;" giving  (";a-1;" X ";x;")+";a;"y=";(a-1)*x+a*y;18,26;a;"y=";a*y;20,0;" SO  y=";y:9000(# [7010b:14,0;" CHECK  that =";x;" and y=";y;16,0;"satisfy the 2nd equation:";18,0;"(";a;" X ";x;")=(";2*a;" X ";y;")";("+"a*(x-2*y)>0);a*(x-2*y);" ":9000(#: :" TO";:tch=1 +h=0:w$="":x=(*11 )+5 xt=(*3)+3:a=(*4)+2:770:tch=1800 :8204:tch=0::706 ˦7010b:f$="as: y=mx+c ":r$="y="+t+"x+"+(a*(t-1)):s$="y=x+"+((x+a)*(t-1)):8100:w$="y"800 :8204:8090:730 !h=1800 :715  :900-194*(q$="y") " FIND THE TWO EQUATIONS ","given by:-";4,0;"In ";a;" years time,"," Peter  will be ";t;" times","older than  Karen ";8,0;" Peter  is ";(x+a)*(t-1);" years","older than  Karen " 11 ,0;"LET years =  Karen's  age","LET y years =  Peter's  age":r$="y="+t+"x+"+(a*t-a):s$="y=x+"+((x+a)*(t-1)-x):  7010b:14,0;" Write  the 1st equation as:","(y+";a;")=";t;" X (+";a;")  So  y=";t;"+";a*(t-1):9000(#: 417,0;" Write  the 2nd equation as:","y-=";(x+a)*(t-1);18,19;" So  y=+";(x+a)*(t-1):9000(#: _:502:0,14;" END ";20,2;"Press RUN & ENTER to re-start": X(i=013 :i,0;c$:i: b)i=13 21:i,0;o$:i: @J:i=104h2488:j=72H1688:i,j:j:i C103g,119w:144,0:-3,3:3,-3:-3,-3:177,71G:0,97a:-3,-3:3,3:3,-3:0,21;"y";7,31;"" J'i=1:j=-112 M&(j*9 *m+c)>68020T P0x(i)=j*9 :y(i)=j*9 *m+c:8030^ T5y(i)=j*6:m=0x(i)=0:8027[ Xx(i)=(j*6-c)/m ^i=i+1:j:x(1)*8+176,y(1)*8+120x:(x(2)-x(1))*8,(y(2)-y(1))*8: M.5,-10 :1.5@,-20:v=v+1:h=18090 E21,0;" Like to see why?  y or n":=""8068 !w$=:w$"y"w$"n"8069 ""8071  w$="y"  8093 g.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :u=u+1  9000(# x:3,6;" TOTAL CORRECT: ";u;5,6;"TOTAL INCORRECT: ";v;16,8;" More?  y or n" !q$=:q$"y"q$"n"8096 h=0:w$="": Vi=1620:h121,0;" NEED help? ENTER h " `15,0;" Enter  your working? y or n ":i1615,8;"more" q$=:q$="h"8160 q$="n"8130 q$"y"8106 715,20;" ":q$:q$="h"8160 i,0;q$:i:8100 –i=12:21,0;o$;14,0;o$;o$;14,0;" ENTER  no.";i;" answer  NOW ",f$:a$:a$>8a$="" i=1b$=a$ $f$(16)=""f$(16)="y" Yi:7010b:15,1;"Your answer:";18,0;"CORRECT ANSWER " ׷15,15;b$;15,24;a$;18,15;r$;18,24;s$:0,60<:255,0:0,-16:-255,0:0,16 'r$=b$s$=a$r$=a$s$=b$8087: 8065: h=1a$="h":8142  h=1: #(""9000(# #)A21,0;o$;21,9 ;"Press any key":0 #*=""9002*# #+""9003+# #.+.05|L,4:21,0;o$: BWh  C uvbxyam*c@JO Ugr ffHP`@sc @r#idU#1LS@mSsge[@ '_V%&L=+`e2JPB@d1iD̓1*Tc̙gH-d IIT)HB8@88)<H< 3l;nʯd<ڐC< RfwY@J3$~0xD D0xJcij)"?bU`)o##[L *̔RBDx xLJ T;L<9Ll3TO_$L`1V2@%&sRRTBD@ @@3JfQE+`0TۀI68t@%)I3II)TB8 D< <gm0LXx;*j8sg2`mGO*RH`bw % JJRMyff/%%)TdҐ£@lÌ[@<>m >3(ĒJTdR)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% ymGO*l8sg2`)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@0T߀xjQpE3`)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@TOoLl5)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[lJ`)#?"UU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC ;oʷҘf̪U*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .da̘[F?K@K*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OVmSsge[@e!FbU@JJRʩh JRRT%J$)T,ߊwD>} ?`m(Ìኛ`TpÄn |<*cl0Rd @<~| Tn>Ç x@hD88x88D8@0);q;"=";p+q:9000(#:h=17010b:7000X:121y N7000X:7010b:2,0;" Now  ";:n=3:160 6n=14:180:w$="y"8090:260 r=3:85004! 7010b:0,0;" By a process ";2,0;"of trial and";4,0;"error, we";6,0;"can ";:n=7:160:h=17010b:200 Cn=15:180:tch=0:w$="y"8090:260 100d t"re-write ";n,31;"":170:"=0 ";n+3,0;"as";n+5,0;"(";:r=3"3"; 7"";("+"p>0);p;")(";("+"q>0);q;")=0": @("3"r=3);"";:p+q*r=0("+"p*q>0);p*q;: 0("+"p+q*r>0);:(p+r*q)1p+r*q; p+r*q=-1"-"; "";("+"p*q>0);p*q;: n,0;" So either:  (";r;n,15-(r3);"";("+"p>0);p;")=0";n+2,7;" or:  (";("+"q>0);q;")=0" tn+4,0;" SOLUTION:-  =";-p*((((p/r)*100d+.5))/100d);" or =";-q:9000(#: 58100:(w$="y"h=1)r=1130 )(w$="y"h=1)r=3154 q$="y"100d ,rn=8::" If a quadratic equation ",,,"cannot be factorised",,," then  use the formula:":370r /n=6:15,0;" where  a+b+c=0",,,"is the equation to be solved":9000(#::" For example:  5+2-1=0":370r Gz3,0;" here  a=5,b=2,c=-1";11 ,0;" So  =-2+(2-4 X 5 X -1)";13 ,12 ;"2 X 5" J74J,78N:4,0:568,74J:152,0:15,0;"=-2+24";17,4;"10";16,15;"OR";15,22;"=-2-24";17,26;"10" M16,44,:480,0:192,44,:480,0:19,0;" Solution:  =0.29 or =-0.69":9000(#:900 rn,0;"=-b+b-4ac";n+2,5;"2a":34",166-8*n:4,0:480,177-8*n:-1,-2:1,2:480,0:16,162-8*n:80P,0: ?502:0,14;" END ":9000(#:58: X(i=013 :i,0;c$:i: b)i=13 21:i,0;o$:i: M.5,-10 :1.5@,-20:v=v+1:h=18090 E21,0;" Like to see why?  y or n":=""8068 !w$=:w$"y"w$"n"8069 ""8071  w$="y"  8093 g.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :u=u+1  9000(# v:3,7;"TOTAL CORRECT: ";u;5,5;"TOTAL INCORRECT: ";v;16,8;" More?  y or n" !q$=:q$"y"q$"n"8096 h=0:w$="": Vi=1620:h121,0;" NEED help? ENTER h " `15,0;" Enter  your working? y or n ":i1615,8;"more" q$=:q$="h"8160 q$="n"8130 q$"y"8106 715,20;" ":q$:q$="h"8160 i,0;q$:i:8100 i=12:21,0;o$;14,0;o$;o$;14,0;" ENTER  no.";i;" answer  NOW ","=? (no more than 2 dec.pl.)":a$:a$>6űa$=0a$=" " i=1b$=a$ Ίi:7010b:15,1;"Your answer:";18,0;" CORRECT ANS: ":x=-p*((((p/r)*100d+.5))/100d) 15,14;"=";b$;15,22;"or =";a$;18,14;"=";x;18,22;"or =";-q:0,60<:255,0:0,-16:-255,0:0,16 <i=1̱a$:a$(i)<45-ůa$(i)>5798154 ?i:i=1̱b$:b$(i)<45-ůb$(i)>5798154 ,i:x=b$-q=a$x=a$-q=b$8087: 8065: &h=1a$="h":b$="":8142  h=1: !4J:i=1442488:j=72H1688:i,j:j:i !7143,121y:104h,0:-3,3:3,-3:-3,-3:193,71G:0,97a:-3,-3:3,3:3,-3:0,23;"y";7,31;"" !@iy(14)=0:i=113 :x(i)=i-7:y(i)=f$:y(i)>y(14)y(14)=y(i) !B/:i:y(14)6y(14)=1 !C8y(14)>6y(14)=y(14)/6 !Fx(1)*8+192,(y(1)*8/y(14)+120x):i=112 :(x(i+1)-x(i))*8,(y(i+1)-y(i))*8/y(14):i: #(""9000(# #)A21,0;o$;21,9 ;"Press any key":0 #*=""9002*# #+""9003+# #.+.05|L,4:21,0;o$: cuv4!hpqrh4!nxB A QnD IC WFr*x(i)*x(i)+(p+r*q)*x(i)+p*qO gr X)ff$pp@psc @r#idU#1LS@mSsge[@ '_V%&L=+`e2JPB@d1iD̓1*Tc̙gH-d IIT)HB8@88)<H< 3l;nʯd<ڐC< RfwY@J3$~0xD D0xJcij)"?bU`)o##[L *̔RBDx xLJ T;L<9Ll3TO_$L`1V2@%&sRRTBD@ @@3JfQE+`0TۀI68t@%)I3II)TB8 D< <gm0LXx;*j8sg2`mGO*RH`bw % JJRMyff/%%)TdҐ£@lÌ[@<>m >3(ĒJTdR)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% ymGO*l8sg2`)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@0T߀xjQpE3`)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@TOoLl5)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[lJ`)#?"UU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC ;oʷҘf̪U*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .da̘[F?K@K*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OVmSsge[@e!FbU@JJRʩh JRRT%J$)T,ߊwD>} ?`m(Ìኛ`TpÄn |<*cl0Rd @<~| Tn>Ç xBD888@4+5 Inequalities  6-1>4+5 ":i Sji=110 :.1}L,3:.1}L,4:.2~L,6:i:0:6:6: dNz=6:w$="":h=0:qu=0:tch=1:f$="(key in eg: x>2 )" gHa=(*7)+3:b=(*7)+2:a"+x:8000@:1,0;" INEQUALITIES ";1,0;(" SOLVE:  "tch=0) lx0,168:63?+480*(tch0),0:0,159:63?+480*(tch0),0 mn=3:n,0;c$;n,1;("IF:"(tch=1h=1w$="y")):180+20*qu:tch=0h=0w$"y"133 n-190+20*qu:h=1133 p199+20*qu:9 +5*qu,2;"SO ";a-b;">";(a-b)*x;16,0;" GIVING: >";x;18,0;"(the shaded part on the diagram)":0,480:63?,0:0,39':63?,0:w$="y"8090:139 v$9000(#:tch=0130 y" SO we can treat inequalities much like equations ";4,0;" EXCEPT THAT  when you change",,,"the  sign  throughout an",,,"inequality";11 ,0;"you must also change",,,"the  direction  of the arrow" |L0,144:103g,0:0,135:103g,0 X16,0;"FOR EXAMPLE: if -2>4";18,11 ;"then 2<-4":9000(# ;tch=0:qu=(*2):h=0:w$="":103g 58100:w$="y"h=17010b:109m q$="y"130 300, Vn,0+6*(tch=1h=1w$="y");a;"-1>";b;"";("+"k>0);k: @n+3,0;"THEN ";a;"-";b;">1";("+"k>0);k:  Ln,0+6*(tch=1h=1w$="y");k;"-";a;"<";b;"(1-)": jn+3,0;"THEN ";k;"-";a;"<";b;"-";b;"";n+6,2;"SO ";-a;"+";b;"<";-k;"+";b: n+8,6;b-a;"<";(b-a)*x;n+10 ,0;" Change signs and reverse arrow:":0,175-(n+10 )*8:255,0:0,168-(n+10 )*8:255,0: Rn,0+6*(tch=1h=1w$="y");a*x-b;"<";a;"-";b;"<";a*z-b: ,)tch=1:f$="(key in eg: {-2,-1} )" /<w$="":h=0:qu=(*2):tch=1qu=0 5Op$="":a=(*7)+3:b=(*7)+2:a";x;11 ,6;z;">":h=1369q \0,568:176,0:0,47/:176,0:15,0;" The solution set is: ";17,0;p$:w$="y"8090:372t _;9000(#:tch=1qu=0qu=1:3095 htch=0:303/ q58100:w$="y"h=17010b:339S tq$="y"303/ d:502:0,14;" END ";21,9 ;" Press any key ":0:58: *7,0;"AND: is a -ve no.": >7,1;"SO: ";a*x-b;"+";b;"<";a;"<";a*z-b;"+";b:  0,0,102f,24,24,24,102f,0,1,1,2,2,4,36$,24,8,112p,16,112p,64@,112p,0,0,0 25000:i=023:a:"a"+i,a:i: p"ineq"3:"sc": X(i=013 :i,0;c$:i: b)i=13 21:i,0;o$:i: @J:i=1522488:j=72H1688:i,j:j:i C151,119w:96`,0:-3,3:3,-3:-3,-3:201,71G:0,97a:-3,-3:3,3:3,-3:0,24;"y";7,31;"" Gi=112 :x*8+200,64@+i*8:0,5:0,-3:(25+z)*8-1-x*8-200,8:i: M.5,-10 :1.5@,-20:v=v+1:h=18090 E21,0;" Like to see why?  y or n":=""8068 !w$=:w$"y"w$"n"8069 ""8071  w$="y"  8093 g.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :u=u+1  9000(# y:3,6;" TOTAL CORRECT: ";u;5,6;"TOTAL INCORRECT: ";v;16,8;" More? y or n" @480,136:143+8*(v>9 )+8*(v>99c),0:480,127:143+8*(v>9 )+8*(v>99c),0:480,152:143+8*(u>9 )+8*(u>99c),0:480,143:143+8*(u>9 )+8*(u>99c),0 L64@,480:103g,0:64@,39':103g,0 !q$=:q$"y"q$"n"8096 h=0:w$="": Vi=1620:h121,0;" NEED help? ENTER h " 0,568:568,0:0,47/:568,0:15,0;" Enter  your working? y or n ":i1615,8;"more" q$=:q$="h"8160 q$="n"8130 q$"y"8106 715,20;" ":q$:q$="h"8160 i,0;q$:i:8100 66:0,47/:568,0:9 Ç21,0;o$;14,0;o$;o$;14,0;" ENTER  your answer  NOW ",f$:a$:a$>15a$="RUBBISH" ]7010b:15,1;"Your answer: ";a$:0,60<:128+8*a$,0:0,-16:-128-8*a$,0:0,16:17,0;"CORRECT ANSWER ";p$;19,0;"(same spaces please)":0,40(:111o,0:0,31:111o,0:a$=p$8087: 8065: h=1a$="h":8133 ""8163  h=1: #(""9000(# #)A21,0;o$;21,9 ;"Press any key":0 #*=""9002*# #+""9003+# #.: O 9sc @ #idU#1LS@mSsge[@ '_V%&L=+`e2JPB@d1iD̓1*Tc̙gH-d IIT)HB8@88)<H< 3l;nʯd<ڐC< RfwY@J3$~0xD D0xJcij)"?bU`)o##[L *̔RBDx xLJ T;L<9Ll3TO_$L`1V2@%&sRRTBD@ @@3JfQE+`0TۀI68t@%)I3II)TB8 D< <gm0LXx;*j8sg2`mGO*RH`bw % JJRMyff/%%)TdҐ£@lÌ[@<>m >3(ĒJTdR)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% ymGO*l8sg2`)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@0T߀xjQpE3`)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@TOoLl5)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[lJ`)#?"UU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC ;oʷҘf̪U*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .da̘[F?K@K*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OVmSsge[@e!FbU@JJRʩh JRRT%J$)T,ߊwD>} ?`m(Ìኛ`TpÄn |<*cl0Rd @>| Tn>Ç xx8D<8< 8 8"s$="<");("<"s$=">");-p;" and ";s$;-q;19,5;"Let's calculate that:-":9000(# J7000X:7010b:n=3:160:h=1w$=""200 6180:9000(#:w$="y"8093:260 tch=0:100d 0,176-(n-1)*8:79O,0:0,167-(n-1)*8:79O,0:n-1,0;" Re-write ";n,31;"":170:s$;"0 ";n+3,0;"as";n+5,0;"(";:r=3"3"; <"";("+"p>0);p;")(";("+"q>0);q;")";s$;"0": @("3"r=3);"";:p+q*r=0("+"p*q>0);p*q;: 0("+"p+q*r>0);:(p+r*q)1p+r*q; p+r*q=-1"-"; "";("+"p*q>0);p*q;: 0,96`:103g,0:0,71G:103g,0:10 ,0;" ALWAYS DRAW ";11 ,0;" A SKETCH OF ";12 ,0;" THE CURVE ";15,0;"It cuts -axis at =";-p*((((p/r)*100d+.5))/100d);",=";-q m0,40(:72H,0:0,31:72H,0:17,0;"SOLUTION: "; m198:t$;" ";u$;19,0;"(function";s$;"0 ";("above"s$=">");("below"s$="<");" -axis)": Ɖt$=""+(">"s$="<")+("<"s$=">"):v$=(-p*((((p/r)*100d+.5))/100d)):u$=""+s$+-q:v$(1)="0"v$=v$(2) t$=t$+v$: )8100:w$="y"h=1145 q$="y"100d ?502:0,14;" END ":9000(#:58: 0,0,102f,24,24,24,102f,0,1,1,2,2,4,36$,24,8,112p,16,112p,64@,112p,0,0,0 25000:i=023:a:"a"+i,a:i: p"quad ineq":"quad ineq": X(i=013 :i,0;c$:i: b)i=13 21:i,0;o$:i: 6.5,-10 :1.5@,-20:v=v+1 E21,0;" Like to see why?  y or n":=""8068 !w$=:w$"y"w$"n"8069 ""8071  w$="y"  8093 g.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :u=u+1  9000(# }:3,6;" TOTAL CORRECT: ";u;5,6;"TOTAL INCORRECT: ";v;16,7;" More?  y or n " @480,136:143+8*(v>9 )+8*(v>99c),0:480,127:143+8*(v>9 )+8*(v>99c),0:480,152:143+8*(u>9 )+8*(u>99c),0:480,143:143+8*(u>9 )+8*(u>99c),0 L568,480:119w,0:568,39':119w,0 !q$=:q$"y"q$"n"8096 h=0:w$="": Vi=1620:h121,0;" NEED help? ENTER h " 0,568:557,0:0,47/:557,0:15,0;" Enter  your working? y or n ":i1615,8;"more" q$=:q$="h"8160 q$="n"8130 q$"y"8106 715,20;" ":q$:q$="h"8160 i,0;q$:i:8100 66:0,47/:568,0:9 i=12:21,0;o$;14,0;o$;o$;14,0;" ENTER  no.";i;" answer  NOW  as eg: x>-2 (no more than 2 dec.pl.)":a$:a$>8űa$=0a$=" " i=1b$=a$ i .7010b:14,1;"Your answer:" ~14,15;b$;" ";a$:0,68D:255,0:0,-16:-255,0:0,16 0,40(:111o,0:0,31:111o,0:17,0;"CORRECT ANSWER ";:194 Ut$="x"+t$(2):u$="x"+u$(2):(t$=b$u$=a$)(t$=a$u$=b$)8087: 8065: &h=1a$="h":b$="":8142  h=1: !4J:i=1442488:j=72H1688:i,j:j:i !7143,121y:104h,0:-3,3:3,-3:-3,-3:193,71G:0,97a:-3,-3:3,3:3,-3:0,23;"y";7,31;"" !@iy(14)=0:i=113 :x(i)=i-7:y(i)=f$:y(i)>y(14)y(14)=y(i) !B/:i:y(14)6y(14)=1 !C8y(14)>6y(14)=y(14)/6 !Fx(1)*8+192,(y(1)*8/y(14)+120x):i=112 :(x(i+1)-x(i))*8,(y(i+1)-y(i))*8/y(14):i: #(""9000(# #)A21,0;o$;21,9 ;"Press any key":0 #*=""9002*# #+""9003+# #.+.05|L,4:21,0;o$: areas .%(%A0% ROSE SOFTWARE Sept.1982  5 57999:23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:6:6:6::0;21,11 ;"Please wait";0,0;:"gr""a":"sc":9 :9900&  6  500 b$=" THE AREA OF A:- " Ho$=" ":t=0:u=0:v=0 ""15 =""18 q$=:q$="y"1715  600X 2j=(*4)+4:j:j:9 :1: ! h=0 '("WHAT IS THE AREA OF THIS FIGURE?" *(j=m:m=8j=(*7)+1 --l=(*9 )+1:j=775K 0mi=08:i+2,1;"|":i:1,1;"_":1:10 ,1;"_":0 36,0;l;" cm" 9"b=2*((*6)+1) <j=3b=l ?j=4b=l579 Bj=6b=2579 E011 ,10 +5*(j=6);b;" cm" Hk=l*b K+502*j+150+502*(j=7) Q(21,1;"NEED HELP? Press h" T:13 ,0;" KEY IN YOUR ANSWER (in sq.cms.)" Wq$ Zq$="h"190 ]q$>1487W ^q$=""87W _1j7(q$<491ůq$>579)87W `p13 ,0;" ";14,0;"Your answer ";q$:j7109m cq$=k+167136 gk=1q$=""136 j 110n mq$=k136 n215,0;"SORRY, CORRECT ANSWER IS ";K; o;j=715,25+(k1)+(k>9 );"" sv=v+1:t=t-1 v).5,-10 :1.5@,-20 xGi=1921:i,0;" ":i y016,0;" SINCE ";b$:1800 z:b$ {,1700:i=0j-1:a$:i:a$ |Ej=6"DIMENSIONS ";c;",";b;" and ";l;"cm (height)":127 }5j=7"DIMENSIONS ";l;"cm (radius)":127 ~*"DIMENSIONS ";b;"cm by ";l;"cm (height)" <"Your answer (wrong) ";q$;" (sq.cm)":j=7129 0"Correct answer is: ";k;" (sq.cm)":130 &"Correct answer is: ";k;" (sq.cm)" 3::"________________________________":148 .1;16,0;" WELL DONE " u=u+1:t=t+1 Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 18,0;o$;o$ 20,0;o$;o$ 721,0;"Press any key":0:700 :i=031:ٺ(*6);0,i;"#";21,i;"#":i:i=120:ٺ(*6);i,0;"#";i,31;"#":i:8,1;"So far you have ";u;" correct";10 ,13 ;"and ";v;" incorrect" -14,9 ;" More ?  y or n" =""156 q$=:q$"y"q$"n"156 q$="y"30 4:9 ,3;" Go back to menu?  y or n" ""167 =""168 q$=:q$="y"24 0:7:0:3::"";17,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)))) =9 ,2;" PROGRAM:  ""AREAS""" !11 ,5;"CORRECT: ";U #13 ,3;"INCORRECT: ";V U+V=0181 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" =""187  h=196` 621,0;" " :19-(j=5)-(j=6),0;b$:1800 h=1:84T O480,88X:100d,0:-70F,70F:-30,-70F k=k/2: N568,88X:100d,0:-100d,70F:0,-70F k=k/2: ,]568,88X:70F,0:0,70F:-70F,0:0,-70F 2 ^_480,88X:110n,0:0,70F:-110n,0:0,-70F g b480,88X:100d,0:502,70F:-100d,0:-502,-70F  b480,88X:160,0:-502,70F:-60<,0:-502,-70F "c=b-2-2*(b=12 ) 1,14;c;" cm" k=(b+c)/2*l: a=58012 ]0:0:6:20,0;" ":6000p Vz$=""20,5;"Please key in your name":0:6000p:506  n$=z$:n$: :20,0;" NOW Today's date (in any form) "  $0:6000p:m$=z$:m$:: 620,0;" Instructions? y or n "  0: &72H,120x,40( )F6,9 ;l;" cm":1:6,9 ;"_____":0 ,~4,20;"Key in your";5,20;"answer as";6,20;"2,3,etc.";7,20;"using key" / k=l*l: X:0,8;" MENU FOR AREAS ";3,0;"Choice of:-";6,0;"1. Triangle",,"2. Right-angled triangle","3. Square",,"4. Rectangle",,"5. Parallelogram","6. Trapezium",,"7. Circle",,"8. Random selection" ^=17,6;" Press key 1 to 8 ":""606^ _=""607_ ` q$=:q$<"1"q$>"8"607_ a""609a d m=q$: S6:6:1::1;6;1;" WIN THE RACE ":0 79 ;2,0;"With five correct answers" t<0t=0 Z0;4;0;17,0;"";1 v6:2:17,25;"|";16,25;"|";15,25;"|" j=140(:j i=5*t+(t=0) k=1i2 w0:6:13 ,k-1;"";14,k-1;"";15,k-1;"";16,k-1;""  5 h13 ,k-1;" ";14,k-1;"";15,k-1;"";16,k-1;"" k=i-1k=i725 q3:13 ,k-1;" ";14,k-1;" ";15,k-1;" ";16,k-1;" " k j=25 11 +j,k;" ":j R13 ,k-1;" ";17,0;"":j=140(:j t=5736 j=1502:j   t=0 502,130:0,-502:25,25:25,-25:0,502:130,130:0,-502:150,80P:0,502:35#,-502:0,502:0 .5,2,.5,2,1,7,1,7,.5,2,.5,2,1,7,1,7,.5,9 ,.5,9 ,1,11 ,1,11 ,.5,9 ,.5,9 ,1,11 ,1,11 ,1,14,2,14,1,14,2,14,.5,14,.5,12 ,1,11 ,1,11 ,.5,11 ,.5,9 ,1,7,1,7 4740:i=128:z,y:z/2,y:i  "triangle = 1/2 base x perpendicular height","right-angled triangle = 1/2 base x height" R"square = length of one side x itself","rectangle = length x breadth" Z"parallelogram = base x perpendicular height" d"trapezium = 1/2 of the sum of the parallel sides x perpendicular height" #"circle = x radius x radius",""  2k=12:0,10 ;"""AREAS""" 2,0;b$: j=4*k-34*k j8j;")"  1800 j (20,0;"Press any key to "; j<7"continue" j>6"start" 0::k: .1700:i=0j-1:a$:i:a$: Ta=58012:"areas"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:20,0;" " B220,(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 agr X<~~~~~|||||<80>8|||8|`````p??0033 3300?? 33333333sc @g#idU#1LS@mSsge[@B@d1iD̓1*Tc̙B8@88)<H< 3l;nʯ~0xD D0xJcij)"?bU`)oBDx xLJ T;L<9Ll3TO_BD@ @@3JfQE+`0TۀB8 D< <gm0LXx;*j8sg2`mGO*dҐ£@lÌ[@<>m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @| |TOoLl5Tn>Ç xB8888(8DxD8Dx8h8B8888D88J`)#?"UJ!)8x`BD@D0DD0DDDD DTDBD@DT0;oʷҘf̪) lJxx|x<8x0xDDDDD D\,0:23613=\+1+256*23614>\,0:6:6:6::0;21,11 ;"Please wait";0,0;"";:"gr""a":"sc":9 :9900& 6:500 Ho$=" ":u=0:v=0:t=0 "b$(2,17):l(4) #b$(1)=" PERIMETER " #b$(2)=" CIRCUMFERENCE " ;a$=" THE CIRCUMFERENCE  OF A CIRCLE = 2 x x RADIUS" ""24 =""25 q$=:q$"y"q$"n"24 q$="y"600X ! 1000 $h=0:w=0 'j=(*5)+1 *Ti=12:l(i)=(*5)+1:l(i+2)=(*4)+6:i -E" WHAT IS THE";b$(1+(j=5));"OF THIS FIGURE?" 0502*j+200 2:16,0;" ENTER  your working ? y or n " 3%w016,8;"more" 6""546 7=""557 8#q$=:j=5q$="h"190 9q$"y"q$"n"546 :q$="y"200 ;616,0;" " <>20,0;" ENTER  YOUR ANSWER NOW(Omit cm)" =q$:q$=""61= >j=5q$="h"190 @7j5(q$(1)<"1"q$(1)>"9")61= Bq$>9 61= CAj=515,0;" " DGi=1621:i,0;" ":i E17,0;"Your answer ";q$:j=515,0;o$:i=25:i,25;" ";i+4,0;" ":i:17,30;"" Hj581Q Kq$=k+167116t N 100d Qq$=k116t d%" Sorry, correct answer is ";k; ej=5" " fv=v+1:t=t-1 g).5,-10 :1.5@,-20 h3:"PERIMETERS":"Your answer (wrong) ";q$;" (cm)" o9j=5"Correct answer is: ";k;" (cm)":115s p""Correct answer is: ";k;" (cm)" s3:"________________________________"::120x t(" Well done  " u u=u+1 v t=t+1 wZ.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 z 6;21,8;" Press any key ":0:700:6::i=031:ٺ(*6);0,i;"";21,i;"":i:i=120:ٺ(*6);i,0;"";i,31;"":i:9 ,2;"So far,you have ";u;" correct" {*11 ,14;"and ";v;" incorrect" |>6;15,9 ;" More? y or n ":""124| }=""125}  q$=:q$"y"q$"n"124| q$="y"30 3:7:9 : %2,6;" CERTIFICATE " #5,2;" Name: ";n$ #7,2;" Date: ";m$ +9 ,2;" Program: 'PERIMETERS'" "11 ,5;"Correct: ";u $13 ,3;"Incorrect: ";v u+v=0177 815,2;"Percentage: ";(100d*u/(u+v)) >1:0,0;"" 617,0;"" i=116 Ki,0;"";i,31;"":i:3;18,0;o$;o$;o$;o$ z=16:ٺ(*8):2,6;"*";2,22;"*":ٺ(*8):2,7;"*";2,23;"*":ٺ(*8):2,8;"*";2,24;"*":30:z 99 :2,6;"***";2,22;"***" ':21,8;" Press any key " =""188  h=168D =h=1:15,0;a$;" ":60< X20,0;" ";16,20;" " q$ j=5q$="h"190 #w+1+q$>92\w=0 917+(w/31),w-(w/31)*31;q$;" " w=w+1+q$ Aj=515,0;" " 502 h3,15;l(3);"cm";5,21;l(1);"cm";12 ,15;l(2);"cm" ei=411 :i,9 ;".":i:1:4,9 ;"-";11 ,9 ;"_":0 "8,9 ;l(4);"cm" 120x,80P:15,0:0,45-:25,0:0,15:-65A,0:0,-15:25,0:0,-45- %k=2*(l(3)+l(4)): ,E3,13 ;l(1);"cm";3,18;l(1);"cm" /ii=512 :i,10 ;"|":i:1:4,10 ;"_":12 ,10 ;"_":0 28,8;l(2)+l(4);"cm";14,13 ;"--";2*l(1)+l(3);"cm";14,19;"--" 510 ,21;"|";11 ,21;"|";l(2);"cm";12 ,21;"|":1:9 ,21;"_";12 ,21;"_":0 8104h,72H:15,0:0,25:30,0:0,-25:15,0:0,65A:-15,0:0,-25:-30,0:0,25:-15,0:0,-65A ;Xk=2*(l(3)+l(4))+4*(l(1)+l(2))+2*l(2): ^s2,15;l(1);"cm";7,22;l(1);"cm";14,11 ;"|...";l(4);"cm...|" a'i=312 :i,7;".":i da7,6;l(3);"cm";2,7;"_"::1:12 ,7;"_":0 g#k=2*(l(3)+l(4)) t120x,72H:20,0:0,30:30,0:0,20:-30,0:0,30:-20,0:0,-30:-30,0:0,-20:30,0:0,-30  'i=412 :i,8;".":i r3,13 ;l(1);"cm";11 ,21;l(2);"cm";14,12 ;"|..";l(3);"cm..|" `8,7;l(4);"cm":1:3,8;"_";12 ,8;"_":0 #k=2*(l(3)+l(4)) 104h,72H:60<,0:0,20:-40(,0:0,502:-20,0:0,-70F  160,104h,45- =7,21;l(3);"cm";8,20;"-----" z6,0;"Key in your";7,0;"answer as";8,0;"2,3 etc.";9 ,0;"using key" k=2*l(3) ^6;2,25;" Need ";3,25;" help? ";4,25;"ENTER h"  a=58012 T0:6:20,0;" ":6000p Xz$=""20,5;"Please key in your name":0:6000p:506  n$=z$:n$: :20,0;" NOW today's date (in any form) " $0:6000p:m$=z$:m$:: :20,0;" Instructions? y or n "  0: X 1000 [#0,9 ;"""Perimeters""" ^Y3,0;" THE";b$(1);" OF A FIGURE MEANS THE DISTANCE ALL ROUND IT." a"6,0;"For example:-" d_80P,64@:100d,0:0,40(:-100d,0:0,-40( gG11 ,6;"5 cm":1:8,14;"10 cm":0 jJ17,0;"The perimeter of this rectangle is 10+5+10+5 = 30 cm" m.6;21,8;" Press any key " n=""622n p :120x,128,40( sG5,16;"5 cm":1:5,15;"_____":0 v_12 ,0;" THE";b$(1);;"OF A CIRCLE IS CALLED ITS ";b$(2);" " y15,0;a$ |Q18,0;"So the circumference of this circle = 2 x x 5 = 10 cm" 76;21,4;" Press any key to start " =""640 : 0:6:6: "0,8;" PLAY SNOOKER" *3,4;"5 correct answers win" t<0t=0 8,11 ;"COUNTER" Ŝ9 ,9 ;"0 1 2 3 4 5":x=(t+1)*16:10 ,7;" " @3:z=1x:63?+z,87W:0,-7:z P4:z=1820:z,0;" ":z $""  780   790 D7:17,10 ;"":2:17,11 +i;"" i=16  795 17,10 -i;" " i  790 !i=12*t+(t=0) ;7:17,9 +i;" ";17,i+10 ;""  795 i t<5763 i=2125 22:17,i;" ";17,i+1;""  795 i i=1719 22:i,26;" ";i+1,26;""  795 i  t=0 8,2,2,4,5,2,8,7,2,7,2,7,6,9 ,2,11 ,4,9 ,12 ,14,6,11 ,2,9 ,4,11 ,8,4,4,4,20,2,4,11 ,4,7,4,11 ,12 ,11 ,4,9 ,4,4,4,9 ,12 ,9 ,4,7,4,4,4,7,8,7,4,7,20,4 z=130 x:y:x/19,y:z '502:0:7:7: :  j=130  j  i=09 #2:0:17,i;"" i  j=115 j  ,(*5)+1:0:7:: Ya=58012:"perimeters"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:20,0;" " B220,(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 atxygr X```cccccccccccc```<~~<````p??0033 3300?? 33333333sc @g#idU#1LS@mSsge[@B@d1iD̓1*Tc̙B8@88)<H< 3l;nʯ~0xD D0xJcij)"?bU`)oBDx xLJ T;L<9Ll3TO_BD@ @@3JfQE+`0TۀB8 D< <gm0LXx;*j8sg2`mGO*dҐ£@lÌ[@<>m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @| |TOoLl5Tn>Ç xB8888(8DxD8Dx8h8B8888D88J`)#?"UJ!)8x`BD@D0DD0DDDD DTDBD@DT0;oʷҘf̪) lJxx|x<8x0xDDDDD D\,0:23613=\+1+256*23614>\,0:6:6:6::0;21,11 ;"Please wait";0,0;"";:"gr""a":"sc":9 :9900&  6  500 b(3) Ho$=" ":u=0:t=0:v=0 a$= 0i=(*4)+4:1:i:i:9 !:h=0:e=(*2) $\i=13:b(i)=(*8)+2:i:e=1b(1)b(2)36$ 'y=(*9 )+1 *a$="y"600X -a$="y"a$="":30 0":680:c=030 150,0;" Find  the value of y when:-" 7i=79 996,0;" ENTER  your working ? y or n " <$i76,8;"more" ?.21,0;" NEED HELP?  ENTER h" B=""66B Kb$= N!b$="h":2000:160 Zb$="n"109m ["6,20;" " ]10 ,0;o$ `&q$:q$="h":2000:160 ci,0;q$ g""103g j i:513 m@10 ,0;" ENTER   your answer  NOW  " n21,0;o$ p6,0;o$ s9q$:q$>7(q$<46.ůq$>579)115s vL7,0;o$;o$;o$;o$;o$;o$;o$;12 ,0;"Your answer: ";q$ yq$=y133 |:14,0;" Bad luck, correct answer is: ";y }Ct=t-1:v=v+1:.5,-10 :1.5@,-20 ~Ve=0b(1);"y ";c$;" ";c;" = ";b(2);" - ";b(3);"y y=?" <e=1b(1);"y - ";b(2);"y = y ";c$;" ";c 5"Your answer (wrong) ";q$:"Correct answer is: ";y (:"________________________________": 921,0;" Press  ENTER and check with me" q$::2000:160 +14,1;1;" WELL DONE !" u=u+1:t=t+1 Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 821,19;"Press any key":0:700 0:6::i=031:ٺ(*6);0,i;"";21,i;"":i:i=120:ٺ(*6);i,0;"";i,31;"":i:4,1;"So far, you have ";u;" correct";7,14;"and ";v;" incorrect" -6;14,8;" More? y or n " ""165 =""166 q$=:q$"y"q$"n"165 q$="y"30 9 :3:7: &"" T17,0;"" i=116 Mi,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:  ""SIMPLE EQUATIONS""" !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  a=58012 @0:6:20,4;" " [6000p:n$=z$:n$=""20,0;" Please key in your name ":510 n$:  <20,0;" NOW today's date (in any form) " .0:6000p:m$=z$:m$=""526 m$:: 620,0;" Instructions? y or n " ""531 =""534 # a$=:a$"y"a$"n"528 & 0: X0:0:x$="SIMPLE EQUATIONS":7:7::1,7;"""";x$;"""":64@,159:135,0:64@,156:135,0 YY12 ,6;" IS AN EXAMPLE OF A ";14,7;" SIMPLE EQUATION " Z&7,8;"2y - 14 = 11 - 3y" \; 20,0;" PRESS ANY KEY TO CONTINUE " ]ink=0:len=1 ^0610b _Yink=ink+1-(6*(ink=5)):len=len+1-(17*(len=17)):ink `1,7+len;x$(len) a 606^ b<5:5:0::1,7;"""";x$;"""" c&4,8;"2y - 14 = 11 - 3y" d7,3;" The idea ";9 ,5;"is to find what y equals";13 ,3;" To do this ";15,5;"we must collect all the y's";16,5;"on one side and all the";17,5;"numbers on the other" e?20,0;" PRESS ANY KEY TO CONTINUE ":0 f6:0:6: gY6,0;" REMEMBER THIS SIMPLE RULE:";2,8;"2y - 14 = 11 - 3y" j[9 ,0;"A term can be moved from one side of the equals sign to the other," md14,0;"AS LONG AS the  SIGN  in front";16,3;"of it is  CHANGED. " p;20,0;" PRESS ANY KEY TO CONTINUE":0 s1:7:1: v2,5;"2y - 14 = 11 - 3y";7,1;" Let's collect the y's on the ";9 ,13 ;" LEFT " y8502:13 ,4;"So we must move the - 3y" z_183,150:34",0:0,10 :-34",0:0,-10 |s7:200,149:-75K,0,-/2:125},144:0,5:5,0 };20,0;" PRESS ANY KEY TO CONTINUE":0 ~Ff=721:f,0;" ":f -8,5;"The sign must be changed" 30:2,23;" ":1:183,150:34",0:0,10 :-34",0:0,-10 -7:20:2,13 ;"+ 3y" s1:200,149:-75K,0,-/2:125},144:0,5:5,0 D7:20,0;" PRESS ANY KEY TO CONTINUE":0 5:0:1: Y8,0;"AND THE - 14 MUST ALSO BE MOVED";2,6;"2y - 14 + 3y = 11" 30:71G,150:34",0:0,10 :-34",0:0,-10 :88X,149:120x,0,/2:208,144:0,5:-5,0 20:71G,150:34",0:0,10 :-34",0:0,-10 :2,9 ;" " -15:0:2,24;"+ 14" 10 :5:71G,150:34",0:0,10 :-34",0:0,-10 :88X,149:120x,0,/2:208,144:0,5:-5,0 0:8,0;" SO WE GET ":11 ,7;"2y + 3y = 11 + 14":f=37:f,0;" ":f h21,19;"Press any key":0:21,19;" ":23692\,255 421,0:f=17::7:f 15:64@,134:20,-20:104h,134:-20,-20:0,-30:80P,88X:4,-4:4,4 #15:12 ,10 ;"5y" 15:124|,134:0,-502:120x,88X:4,-4:4,4:12 ,15;"=" 20:144,134:20,-20:184,134:-20,-20:0,-30:160,88X:4,-4:4,4 '15:12 ,20;25 615:18,6;" " W170:23692\,255:21,0:f=112 ::7:f <30:3,1;"NOW we divide both sides by 5" A30:9 ,4;"5y divided by 5 = ";:10 :"y" B30:11 ,4;"25 divided by 5 = ";:10 :"5" a30:15,0;"SO:- y = 5";17,4;"THIS IS THE ANSWER":30 /20,3;"DO YOU UNDERSTAND? y OR n" ="n"Ŧ="N"600X ="y"Ŧ="Y"  668 3e=0c=b(2)-y*(b(1)+b(3)) 0e=1c=y*(b(1)-b(2)-1)  c=0 $c$=(43++2*(c<0)) ]e=03,8;b(1);"y ";c$;" ";c;" = ";b(2);" - ";b(3);"y" Me=13,8;b(1);"y - ";b(2);"y = y ";c$;" ";c  &0:6:6:9 : 80,1;" DON'T LET THE CATERPILLAR DIE " -4,4;"FIVE CORRECT ANSWERS WIN" !15,27;"FOOD" t<0t=0  x=14 z=05.50.5 y=1+z*4  850R z>4.5885u z=tt5875k %y=y-1:z=5.50811+  869e  y=y+1 x+1,y;" "  866b  y=y+1 x+1,y;" "  863_  x,y;" "  y=y+1  860\ w=12  $4:x,y;" ";x+1,y;""  y=y+1  860\ w $4:x+1,y+1;" " "x,y+1;"";:0:"" " 6-t % x,y;" " (z + t=0 .15,31;" " 1 5 4&4:14,25;"" 7.15,23;" ";:0:"" : 502 =?14,25;" " @x=13 :846N C4,4,2,4,2,11 ,2,9 ,2,11 ,3,6,1,7,2,6,6,4 D4,11 ,2,14,4,16,2,14,2,11 ,2,13 ,2,9 ,4,11 E2,16,4,16,2,14,4,11 ,2,9 ,3,11 ,1,9 ,2,7,4,6 F2,2,4,4,2,11 ,4,9 ,2,7,2,6,2,4,2,2,6,4 G 835C H+w=135#:x:y:x/10 ,y:w IF0,0;o$;4,0;o$:x=12 0-1 J 846N Kx+4,25;" ":x L(100d:7:7:0: M N0:x,26;"":1:x+1,25;"":5:3:x+2,25;"";:0:"";:5:6:"":2:x+3,25;"" Q R!4:x+1,y;""; U0:"" X \4:x+1,y;"" _4:x,y;"" b4:x,y+1;"" e#4:x+1,y+1;"" h k 20 n!0:x+1,y;"" q 60< t7:7:0:: uw=17 x#0:x+1,y+6;"" {#3:x+1,y+6;"" ~w  w2:6:6::128,88X:30,30:30,-30,-:-30,-30,-:128,88X:30,-30:-30,-30,-:-30,30,-:128,88X:-30,-30:-30,30,-:30,30,-:128,88X:-30,30:30,30,-:30,-30,-: 80:pap=(*4+3):pap:pap:9 : be=01,5;b(1);"y ";c$;" ";c;" = ";b(2);" - ";b(3);"y" Qe=11,5;b(1);"y - ";b(2);"y = y ";c$;" ";c r20:10 ,1;" TRANSFER THE y'S TO THE LEFT ";12 ,5;" AND CHANGE THE SIGN " e=13000 ?pos=(21+((c)>9 )+((c)>99c))*8-1 c15:pos,158:34",0:0,10 :-34",0:0,-10 z15:pos+17,157:-75K,0,-/2:pos-58:,152:0,5:5,0 hpap:15:pos,158:34",0:0,10 :-34",0:0,-10 B9 :1,21+((c)>9 )+((c)>99c);" " P10 :1,12 +((c)>9 )+((c)>99c);"+ ";b(3);"y" 10 :pap:pos+17,157:-75K,0,-/2:pos-58:,152:0,5:5,0 R9 :40(:10 ,0;" NOW WE TRANSFER THE ";c$;" ";c;" " f=25:f,4;" ":f:40(:9 :63?,158:26+(8*(c>9 ))+(8*(c>99c)),0:0,10 :-(26+(8*(c>9 ))+(8*(c>99c))),0:0,-10  15:63?+((26+(8*(c>9 ))+(8*(c>99c)))/2),157:100d,0,/2:0,-5:0,5:-5,0 Q15:z=(c>9 )+(c>99c):f=810 +z:1,f;" ":f pap:15:63?,158:26+(8*(c>9 ))+(8*(c>99c)),0:0,10 :-(26+(8*(c>9 ))+(8*(c>99c))),0:0,-10 9 :10  ]1,21+(c>9 )+(c>99c);(c$+2-(4*(c$=45-)));" ";c %pap:15:63?+((26+(8*(c>9 ))+(8*(c>99c)))/2),157:100d,0,/2:0,-5:0,5:-5,0 *^15:pap:f=10 12 2:f,0;" ":f /79 :10 :10 ,10 ;"SO WE GET" 1u12 ,6;b(1);"y + ";b(3);"y = ";b(2);" ";(c$+2-(4*(c$=45-)));" ";c 4Ef=25:f,0;" ":f 6Q21,19;"Press any key":0:21,19;" " 9L23692\,150:21,0:f=110 ::7:f C15:568,150:20,-20:96`,150:-20,-20:0,-30:-4,4:4,-4:4,4:10 ,9 ;b(1)+b(3);"y" H20:116t,150:0,-502:-4,4:4,-4:4,4:10 ,14;"=" R15:pos=((32 +(4*(c>9 ))+(4*(c>99c))))/2:132,150:pos,-20:164+(4*(c>9 ))+(4*(c>99c)),150:-pos,-20:0,-30:-4,4:4,-4:4,4 WB15:10 ,18;b(2)+c-(2*c*(c$="+")) \t20:16,8;" y = ";(((b(2)+c-(2*c*(c$="+")))/(b(1)+b(3))));" " an95_,37%:42*,0:0,-3:-42*,0:0,-3:42*,0  160 d40(:156,162,9 :502:156,152:-40(,4,-/4 8118v,150:-1,6:7,0 915:1,13 ;"- y";1,19;" " y15:ٺ((0,0)/8):156,162,9 :156,152:-40(,4,-/4 A118v,150:-1,6:7,0:9 -21,19;"Press any key":0 p10 ,0;"  SO WE GET  ";12 ,0;" " n21,19;" ":20:20:10 ,0;" " ר46.,145:20,-20:0,-502:-6,6:6,-6:6,6:-6,-6:0,502:20,20 715:14,7;b(1)-b(2);"y" ߁15:122z,143:0,-70F:-6,6:6,-6:6,6:14,13 ;"- y" 15:140,143:0,-70F:-6,6:6,-6:6,6:14,17;"=" 15:190,143:0,-70F:-6,6:6,-6:6,6:-6,-6:14,23;(b(1)-b(2)-1)*y Q21,19;"Press any key":0:21,19;" " *23692\,255:21,0 "i=114::7:i 62>,145:30,-20:0,-502:-6,6:6,-6:6,6:-6,-6:0,502:30,20 @15:14,10 ;b(1)-b(2)-1;"y" 15:140,143:0,-70F:-6,6:6,-6:6,6:14,17;"=" 15:192,143:0,-70F:-6,6:6,-6:6,6:-6,-6:14,23;(b(1)-b(2)-1)*y 10 :17,10 ;" SO  y = ";y:120x,24:40(,0:0,-2:-40(,0:0,2 160 Ya=58012:"simple eqs"3:"gr""a",168:"sc"::0:5000 p0:0:z$="" uy$= zy$=06005u |y$>1646000p y$=13 y$=12 6100  z$=z$+y$  62008 0:6005u z$=06035 z$=z$((z$-1))  6030 8"z$>19z$=z$(19): =?6:20,0;" " B220,(17-((z$+1)/2));z$ G 6035 &1,0,27,17,82R,228,33!,0,64@,237,176,201,1,0,27,17,0,64@,33!,82R,228,237,176,201 & 9900& &a=124 &b &57999+a,b &a &a=58000 & 4 aO tI00y$#Hrgr X<~~0x0px>^~/F?8|b?|z8~~<x0<~goooooo~<sc @g#idU#1LS@mSsge[@Bd1iD̓1*Tc̙b888888D8D)<H< 3l;nʯR0 DD@DDDDD0xJcij)"?bU`)oJ xD8xxDDDLJ T;L<9Ll3TO_F @D@@m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @| |TOoLl5Tn>Ç xB8888(8DxD8Dx8h8B8888D88J`)#?"UJ!)8x`BD@D0DD0DDDD DTDBD@DT0;oʷҘf̪) lJxx|x<8x0xDDDDD D\,0:23613=\+1+256*23614>\,0:0:7:7::1:10 ,10 ;"PLEASE WAIT":0:7:"gr""a":0:6:6::"sc":9900& 6:500 ""8 =""9 ="y"600X (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  :h=0 !2j=(*4)+4:j:1:j:9 : $y=(*4)+1 '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 &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  /h1:10 +2*(y=2)+3*(y=3),0;"Key in your answer now":0: a=58012 T0:6:20,0;" ":6000p Xz$=""20,5;"Please key in your name":0:6000p:506  n$=z$:n$:  <20,0;" NOW today's date (in any form) " $0:6000p:m$=z$:m$:: 620,0;" Instructions? y or n "  0: X7:0,1;"""PERCENTAGES"" (4 pages) PAGE 1" [`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 690 gj0,25;"PAGE 2",2,1;" Fractions  can be expressed as percentages." i16,1;"Multiply the fraction by 100" k^10 ,1;"For example: 3 X 100 = 60",11 ,15;"-",12 ,15;"5" mO16,15;"3",18,15;"5",17,12 ;"So - = 60%" o 690 qO0,25;"PAGE 3",2,1;"In order to find  20% of `5" sV4,1;"express 20% as a fraction";7,1;" SO  20% of `5 =" ui11 ,2;"20 X 5 = 1 X 5 = `1";12 ,1;"--- -";13 ,1;"100 5" w 690 yZ0,25;"PAGE 4";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" 6 20,1;" Press  ENTER to start "  693 + 20,1;" Press  ENTER "  0:: 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:20,0;" " B220,(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 a&gr Xp8??0033 3300?? 33333333??pppooOooO~~  )sc @g#idU#1LS@mSsge[@B@d1iD̓1*Tc̙B8@88)<H< 3l;nʯ~0xD D0xJcij)"?bU`)oBDx xLJ T;L<9Ll3TO_BD@ @@3JfQE+`0TۀB8 D< <gm0LXx;*j8sg2`mGO*dҐ£@lÌ[@<>m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @| TOoLl5Tn>Ç xB8888(8DxD8Dx8h8J`)#?"UJ!)8x`BD@D0DD0DDDD DTD;oʷҘf̪) lJxx|x<8x0xDDDDD D\,0:23613=\+1+256*23614>\,0:0:7:7::1:10 ,10 ;"PLEASE WAIT":0:7:"gr""a":"sc":0: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  a=58012 T0:6:20,0;" ":6000p Xz$=""20,5;"Please key in your name":0:6000p:506  n$=z$:n$:  <20,0;" NOW today's date (in any form) " $0:6000p:m$=z$:m$:: 620,0;" Instructions? y or n "  0: 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:20,0;" " B220,(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 aDgr X8DDDD  HH  ??0033 3300?? 33333333BbRJFBm > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @| TOoLl5Tn>Ç xB8888(8DxD8Dx8h8J`)#?"UJ!)8x`BD@D0DD0DDDD DTD;oʷҘf̪) lJxx|x<8x0xDDDDD D\,0:23613=\+1+256*23614>\,0:0:7:7::1:10 ,10 ;"PLEASE WAIT":0:7:"gr""a":0:6:6::"sc":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" =""189  a=58012 T0:6:20,0;" ":6000p Xz$=""20,5;"Please key in your name":0:6000p:506  n$=z$:n$:  :20,0;" NOW Today's date (in any form) " $0:6000p:m$=z$:m$:: 620,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 0: 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" GH21,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" k6q$::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:20,0;" " B220,(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 a~gr X ?<0?~@  `x  >  ? '$$$$$$$$$$$$$$' ?$$333333338DDDD sc @g#idU#1LS@mSsge[@B@d1iD̓1*Tc̙B8@88)<H< 3l;nʯ~0xD D0xJcij)"?bU`)oBDx xLJ T;L<9Ll3TO_BD@ @@3JfQE+`0TۀB8 D< <gm0LXx;*j8sg2`mGO*dҐ£@lÌ[@<>m > '_V%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% gH-d IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@d<ڐC< RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@##[L *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[l$L`1V2@%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC I68t@%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .dRH`bw % JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OV3(ĒJTdRJJRʩh JRRT%J$)T,ߊwD>} ?`ymGO*l8sg2`n |<*cl00T߀xjQpE3`Rd @| TOoLl5Tn>Ç xB8888(8DxD8Dx8h8J`)#?"UJ!)8x`BD@D0DD0DDDD DTD;oʷҘf̪) lJxx|x<8x0xDDDDD D