ZXTape! 2 Intermediate Maths 1 - Side B Rose Software A. Cowley1982English EducationalUnknown ROM LoaderOriginal%TZXed by Andrew Barker For Gary Poole0Lowest Common Multiplelcm a&X&xAc& ROSE SOFTWARE Sept.1982 6:6::5 57999:23613=\+256*23614>\,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 ""9 =""12 ="y"600X 1a(17):b(3):c(3):w(5) Pi=14:a(i)=2:a(i+4)=2:a(i+8)=3:i ja(13 )=5:a(14)=5:a(15)=7:a(16)=11 :a(17)=2 !t=0:u=0:v=0 2o$=" ":H=0 !&j=(*6)+1:j:1: $Nj=13:i=(*14+3*(j>1))+1:b(j)=a(i):j '4j=12:c(j)=b(1)*b(j+1):j *"c(3)=b(1)*b(1) -Mc(1)=c(2)c(1)=c(3)c(2)=c(3)36$ 3.0,5;" WHAT IS THE LCM OF:-" 41ANS=b(1)*b(1)*b(2)*b(3) 5D2,9 ;c(1);",";c(2);" and ";c(3);" ?" 6i=57 7621,0;" NEED help? ENTER h " 954,0;"ENTER your working ? y or n " :$i54,6;"more" <""60< >=""62> @="h"78N B="n"96` D8,0;o$ E"4,19;" " Fq$:q$="h"78N Ki,0;q$:i:546 N:i=8+4*(H=1)20:i,0;o$:i PH=1111o RH=1:148 `?8,0;" ENTER  your answer  NOW  " c*4,0;o$;21,0;o$ d+a$:a$<480ůa$>579100d m:8,0;o$;8,0;" Your answer: ";a$ na$=ANS121y oK9 +4*(H=1),0;" SORRY  correct answer is ";ANS pC.5,-10 :1.5@,-20:t=t-1:v=v+1 q\:"L.C.M. of ";c(1);",";c(2);" and ";c(3);"?":"Your answer (wrong) ";a$ r|i=12:b(1)b(i+1)i+10 -2*H,(c(i)<10 );c(i);" = ";b(1);" x ";b(i+1) tib(1)>b(i+1)i+10 -2*H,(c(i)<10 );c(i);" = ";b(i+1);" x ";b(1) u[i:13 -2*H,(c(3)<10 );c(3);" = ";b(1);" x ";b(1) vD"Correct answer is: ";ANS:::"________________________________" wH=1169 x 146 y+14,1;1;" WELL DONE !" |u=u+1:t=t+1 e.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :193 10 ,1;"SINCE:-" i=12 ib(1)b(i+1)i+10 -2*H,(c(i)<10 );c(i);" = ";b(1);" x ";b(i+1) ib(1)>b(i+1)i+10 -2*H,(c(i)<10 );c(i);" = ";b(i+1);" x ";b(1) i X13 -2*H,(c(3)<10 );c(3);" = ";b(1);" x ";b(1) H=0169 96` ,15,0;" WE CAN SEE THAT:-" )i=24:w(i)=b(i-1):i =w(1)=b(1):j=13:k=13 w(k)w(k+1)184 =w(5)=w(k):w(k)=w(k+1):w(k+1)=w(5) k:j dj=15:16,0;w(1);" x ";w(2);" x ";w(3);" x ";w(4) 20 @j<516,0;" " ]10 :j:"contains all the factors,","giving ";:1:ANS;:0:" as the LCM." /21,18;"Press any key":0: ˜9 ,1;"So far, you have ";:1:" ";u;" ";:0:" correct";11 ,14;"and ";:1:" ";v;" ";:0:" incorrect" I16,1;"  MORE ?  y or n ":""195 =""196 q$=:700 q$="n"q$="N"200 30 B1:7:5::7;19,0;o$;o$;o$ 50,0;"" 618,0;"" i=117 #i,0;"";i,31;"":i X9 :1,9 ;"ROSE SOFTWARE";3,9 ;" CERTIFICATE " W6,2;" NAME:  ";n$((n$-((n$>17)*(n$-17)))) W8,2;" DATE:  ";m$((m$-((m$>17)*(m$-17)))) 410 ,2;" PROGRAM:  ""LCM""" !12 ,5;"CORRECT: ";u #14,3;"INCORRECT: ";v u+v=0239 ;16,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 3,6;"***";3,22;"***":n=125:l=(*3):ٺ(*5):3,6+l;"*";3,22+l;"*":n:0 9:7;20,9 ;"Press any key":0: fred=58012 0:6000p:n$=z$ n$:  620,0;" NOW today's date (in any form) " 6000p:m$=z$:m$:: 620,0;" Instructions? y or n "  0: X:0,13 ;"""LCM""" [12,5;" Lowest Common Multiple " ^5,1;"The Lowest Common Multiple is the smallest number that is exactly divisible by each of two or more given numbers." a*12 ,1;" For example:-" d114,1;"60 is the LCM of 4,6 and 10" g 690 j3,1;" IN ORDER TO FIND  the LCM of two or more numbers, we must first break those numbers down into their prime factors." mY12 ,1;" THEN  the LCM is the number that contains all their factors" p 690 s6"  FOR EXAMPLE:-",," Find the LCM of 4,6 and 10" vY3,2;"4 = 2 x 2";5,2;"6 = 2 x 3";7,1;"10 = 2 x 5" y49 ,1;" AND THEN WE CAN SEE THAT:-" |K11 ,1;"2 x 2 x 3 x 5 contains all the factors of 4,6 and 10" @14,1;"giving us 60 as the LCM of 4,6 and 10" 9 20,1;" Press  any key  to start "  693 - 20,1;" Press  any key "  0:: &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 HTw=135#:x:y:x/10 ,y:w:0,0;o$;4,0;o$ Ix=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 502 t7:7:0:: uw=17 x#0:x+1,y+6;"" {#3:x+1,y+6;"" ~w  Ra=58012:"lcm"3:"gr""a",168:"sc"::0:5000 pz$="" uy$= z'y$=0ůy$>1646005u y$=13 Ʊz$>0 y$=13 6005u y$=12 6100  z$=z$+y$  62008 0:6005u z$=06035 z$=z$((z$-1))  6030 8z$>18 =H0: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 reLgr XF <~~0x0px>^~/F?8|b?|z8~~<x0<~goooooo~<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:11 ,10 ;"Please wait":"gr""a":"sc":9900& 0o$=" ":6  500 ""9 =""10 ="y"600X !t=0:u=0:v=0 2s$(2):a(15):b(3):w(2) Pi=14:a(i)=2:a(i+4)=2:a(i+8)=3:i ?a(13 )=5:a(14)=5:a(15)=7  :H=0 !2j=(*4)+4:j:1:j:9 : $:j=13:i=(*15)+1:b(j)=a(i):j 'Db(1)=2b(2)=2b(3)=236$ *!b(1)=b(3)36$ -.i=12:j=(*2):s$(i)="+" 0j=1s$(i)="-" 3i 62s$(1)="-"s$(2)="-"s$(1)="+" 81s$(2)="-"b(3)9 );"1 ";3,6+(b(1)>9 )+(b(1)*b(2)>9 );"1 ";3,11 +(b(1)>9 )+(b(1)*b(2)>9 )+(b(2)*b(3)>9 );"1" B1" -";4,1+(b(1)>9 );"-"; E" ";s$(1);" -"; H%b(1)*b(2)>9 "-"; K" ";s$(2);" -"; N$b(2)*b(3)>9 "-" QW5,1;b(1);" ";b(1)*b(2);" ";b(2)*b(3) Tw(1)=(b(2)+1)*b(3)-2*b(3)*(s$(1)="-")+b(1)-2*b(1)*(s$(2)="-") Wn=w(1) Z-w(2)=b(1)*b(2)*b(3) [d=w(2) \ 400 ]i=810 _31:21,1;"NEED HELP ? ENTER h" `/7,0;"ENTER your working? y or n" a$i87,6;"more" b""98b c=""99c dq$= eq$="h"q$="H"198 fq$="n"q$="N"107k g77,18;" ";11 ,0;o$;o$ hq$:q$="h"q$="H"198 ji,0;q$:i:93] k11 ,0;" ENTER  the numerator (top) now ";7,0;o$;18,0;o$;o$;o$;o$ lq$:q$=""108l mq$="h"198 n2q$>4ůq$<480ůq$>579108l oB1:11 ,0;" NOW  key in the denominator " p7r$:r$>4ůr$<480ůr$>579112p q.21,0;o$;11 ,0;o$;o$ rr$="h"r$="H"198 s0,62>:100d,0:0,26:-100d,0:11 ,1;"YOUR";12 ,0;"ANSWER" t;11 ,11 -(q$>1)-(q$>2)-(q$>3);q$;12 ,11 ;"-";12 ,11 -(r$>1űq$>1);"-";12 ,11 -2*(r$>2űq$>2);"-";12 ,11 -3*(q$>3űr$>3);"-";13 ,11 -(r$>1)-(r$>2)-(r$>3);r$ v*q$=w(1)r$=w(2)163 |a11 ,15;" BAD LUCK ";12 ,16;"Correct";13 ,15;"answer is" 11 ,28+(w(2)>9 )+(w(2)>99c)-(w(1)>9 );w(1);12 ,28;"-";12 ,28+(w(2)>9 );"-";12 ,28+2*(w(2)>99c);"-";13 ,28;w(2) "15,1;" Since: " 18,0;o$;o$ 16,0+(b(2)*b(3)<10 )+(d>99c);b(2)*b(3);17,4;s$(1);16,6+(b(3)<10 )+(d>99c);b(3);17,9 ;s$(2);16,11 +(b(1)<10 )+(d>99c);b(1) G17,14;"=";16,16+(n<10 )+(d>99c);n 17,0+(d>99c);"--";17,6+(d>99c);"--";17,11 +(d>99c);"--";17,16+(d>99c);"--" S18,0;d;18,6;d;18,11 ;d;18,16;d nw(1)17,20;"=";16,22+(w(1)<10 );w(1);17,23;"-";17,23-(w(2)>9 );"-";18,22+(w(2)<10 );w(2) q$="h"q$="H"172 r$="h"r$="H"172 v=v+1:t=t-1 ).5,-10 :1.5@,-20 :0,1+(b(1)>9 );"1 ";0,6+(b(1)*b(2)>9 );"1 ";0,11 +(b(3)*b(2)>9 );"1" " -";0,1+(b(1)>9 );"- ";0,4;s$(1);" -";0,6+(b(1)*b(2)>9 );"-";0,9 ;s$(2);" -";0,11 +(b(3)*b(2)>9 );"-" n0,1;b(1);0,6;b(1)*b(2);0,11 ;b(2)*b(3): N"Your answer (wrong) ";0,24-(q$>1)-(q$>2)-(q$>3);q$:0,24;"-";0,24-(r$>1űq$>1);"-";0,24-2*(r$>2űq$>2);"-";0,24-3*(q$>3űr$>3);"-":0,24-(r$>1)-(r$>2)-(r$>3);r$ "Change the denominator of each fraction to ";b(1)*b(2)*b(3):"Correct answer ";0,16+(w(2)>9 )+(w(2)>99c)-(w(1)>9 w(2)>9 );w(1) 0,16;"-";0,16+(w(1)>9 w(2)>9 );"-";0,16+2*(w(1)>99cw(2)>99c);"-" q0,16+(w(1)>9 w(2)<9 )+(w(1)>99cw(2)<100d);w(2) 3::"________________________________":172 +16,1;1;" WELL DONE !" 18,0;o$;o$ u=u+1:t=t+1 Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 -7;21,19;"Press any key" ""173 =""174 700:9 :i=(*4)+2:i:i::8,5;0;"Correct so far ";u;11 ,10 ;"Incorrect ";v )15,6;" MORE ? y or n" =""178 q$=:q$"y"q$"n"178 q$="y"30 200 11 +7*(H=1),0;"Change the denominator of each fraction to ";b(1)*b(2)*b(3);" " 21,0;o$ .H=111 ,0;o$;o$:96` 615,0;" THEN:-";21,0;o$ 87,0;o$;18,0;o$;o$:133 H=1H=-1 H=H+1:193 B4:7:2::7;19,0;o$;o$;o$ 50,0;"" 618,0;"" i=117 #i,0;"";i,31;"":i X9 :1,9 ;"ROSE SOFTWARE";3,9 ;" CERTIFICATE " W6,2;" NAME:  ";n$((n$-((n$>17)*(n$-17)))) W8,2;" DATE:  ";m$((m$-((m$>17)*(m$-17)))) <10 ,2;" PROGRAM:  ""Fractions 1""" !12 ,5;"CORRECT: ";u #14,3;"INCORRECT: ";v u+v=0239 ;16,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 3,6;"***";3,22;"***":n=125:l=(*3):ٺ(*4)+4:3,6+l;"*";3,22+l;"*":n:0 9:7;20,9 ;"Press any key":0: 9k=12:i=14:j=12 e((w(j)/a(2*i+7-(i=1))))*a(2*i+7-(i=1))-w(j)0415 j Bj=12:w(j)=w(j)/a(2*i+7-(i=1)):j i:k: a=58012 T0:6:20,0;" ":6000p Tz$=""20,4;"Please key in your name":0:6000p:506  n$=z$:n$:  520,0;"NOW today's date (in any form) " $0:6000p:m$=z$:m$:: 620,0;" Instructions? y or n "  0: X8:0,1;"""FRACTIONS 1"" (3 pages) PAGE 1" [n5;2,0;o$;o$;2,3;"Addition and Subtraction";3,9 ;" of Fractions" ^5,1;"1 1 2" a=" -, - and - are examples of 3 6 5 fractions." dC10 ,0;"The top number of each fraction is called the" g%13 ,8;" NUMERATOR " j_15,0;"And the bottom number is called the";17,8;" DENOMINATOR " m 690 pM0,25;"PAGE 2"," IN ORDER  to add or subtract fractions," sQ"we must first find the L.C.M. (Lowest Common Multiple) of the denominators." v?6,0;"For example:-";8,6;"1 1 2" y5" ADD  - + - + -";10 ,6;"3 6 5" |V12 ,0;"The L.C.M. of 3,6 and 5 is 30","So we can re-write our example:-" ;15,6;"10 5 12"," ADD  -- + -- + --" b17,6;"30 30 30";19,10 ;"27",,"Giving us --";21,10 ;"30" '690:0,25;"PAGE 3" L2,1;" BUT  we must put our answer in its lowest terms" {6,1;" SO:-";9 ,1;"27";9 ,13 ;"9",," -- becomes --",," 30";11 ,12 ;"10" 9 20,1;" Press  any key  to start " 0::12 . 21,16;" Press  any key " =""691 : &0:7:7:9 : 95:1,8;" 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+t15:: x 912 ,19;" ";12 ,20;" "  t=0 :3:1:10 ,0;"BULLSEYE!":0 Q"2","6","2","9","2","9","2","6","1","6","1","6","2","9","2","9","2","6","2","6" A"2","7","2","7","2","4","1","4","1","4","2","7","2","7","4","4"  746 x=118 y$:z$ װy$/9 ,z$ x  502   Sa=58012:"fr 1"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 O agr X8DDDD  HH  ??0033 3300?? 33333333BbRJFBm >3(Ē%&L=+`e2JP)J$cz|_JJ JeR'RUJUUURҵiKUUUUUU@JJS3s%IRYTJRRL33O%))TRhg#04% ymGO* IIT)H)J*IA_*JJ UR)JUM2UZeU.USRT@M*IHЅQTUTJII3yNIJRTI?Ķ6I@0T߀x RfwY@J3$)TRg_|dJUJUURR|%*UUUP*U>>U*jU*UE$?yUJUT%%&g1RR&NF0[ْ@TOo *̔R)U)T풕JUTUTJT*VUPU,JT*VUPU)T좕JUJ*̔T1!b[lJ`)%&sRRTU*U$6yQU*UT*ʦU>>URҪjUUUJRt%JUU2)U)R7}_$JJ fsi@M3$(dڐqC ;oʷ%)I3II)TU*EIЅIRYTjZeUnUSRT@ YURIRUJ)R*H`_*JJ JITIH3L .da̘[JJRMyff/%%)TK*IRgse)RTUUUUUU)JVUUU@ eR7'SJh)J$1>cJR)&lS`j2RP #OVmSsge[@JTdRJJRʩh JRRT%J$)T,ߊwD>} ?`m(Ìኛ`l8sg2`n |<*cl0jQpE3`Rd @| Ll5Tn>Ç xB8888(8DxD8Dx8h8#?"UJ!)8x`BD@D0DD0DDDD DTDҘf̪) lJxx|x<8x0xDDDDD D\,0:23613=\+1+256*23614>\,0:11 ,10 ;"Please wait":"gr""a":"sc":9900& 0o$=" ":6  500 ""9 =""10 "y"Ʀ"n"9 ="y"600X ,h=0:t=0:u=0:v=0  16 1a(16):b(6):w(5):x(6) Qi=14:a(i)=2:a(i+4)=2:a(i+8)=3::i Ua(13 )=5:a(14)=5:a(15)=7:a(16)=11  h=0 !2j=(*4)+4:j:1:j:9 : $:j=16:i=(*16)+1:b(j)=a(i):j -j=(*2):s$="x" 0j=1s$="" 9 w(4)>9 );"";" ";s$;" "; Z,w(1)>9 w(2)>9 "" [960:92\:98b \f=w(1):g=w(2) `i=1+(s$=""):w(5)=w(1):x(1)=w(1):w(1)=w(i)*w(3):i=i+(i=1)-(i=2):x(2)=w(2):w(2)=w(i+4*(i=1))*w(4):400 a0x(3)=w(1):x(4)=w(2): bl=810 cg1:7,0;"ENTER your working ? y or n ";21,1;"NEED HELP ? PRESS h" d$l87,6;"more" e""101e f=""102f gq$=:q$="n"109m h11 ,0;o$;o$ iq$="h"900 jq$"y"101e k:7,19;" ":q$:q$="h"900 ll,0;q$:l:98b m7,0;o$;21,0;o$;11 ,0;" ENTER  the numerator (top) now ";o$:q$:q$>4ůq$<480ůq$>579109m n)q$="h"11 ,0;o$:900 oB1:11 ,0;" NOW  key in the denominator " p7r$:r$>4ůr$<480ůr$>579112p q.21,0;o$;11 ,0;o$;o$ r)r$="h"11 ,0;o$:900 s~0,62>:90Z,0:0,26:-90Z,0:11 ,1;"YOUR";12 ,0;"ANSWER" tp11 ,7+(q$<2Ʊr$>2)+(q$<2Ʊr$>1)+(q$<3Ʊq$>1Ʊr$>2);q$ u12 ,7;"";12 ,7+(q$>1űr$>1);"";12 ,7+2*(q$>2űr$>2);"" wd13 ,7+(q$>2Ʊr$<2)+(q$>2Ʊr$<3)+(q$>1Ʊr$<2);r$ x*q$=w(1)r$=w(2)163 |%11 ,15;" BAD LUCK " }=12 ,16;"Correct";13 ,15;"answer is" ~>w(2)=112 ,28;w(1):128 11 ,28+(w(1)<10 w(2)>9 )+(w(1)<10 w(2)>99c)+(w(1)<100dw(1)>9 w(2)>99c);w(1);12 ,28;"";12 ,28+(w(2)>9 w(1)>9 );"";12 ,28+2*(w(2)>99c);"";13 ,28+(w(1)>9 w(2)<10 );w(2) q$="h"q$="H"136 Cv=v+1:t=t-1:.5,-10 :1.5@,-20 0,0+(w(4)>9 w(3)<10 );w(3);0,6-(w(4)<10 w(3)<10 )+(g>9 f<10 );f "";0,0+(w(3)>9 w(4)>9 );"";0,3;s$;0,5+(w(3)>9 w(4)>9 );"";0,5+(f>9 g>9 )+(w(3)>9 w(4)>9 );"" 0,0+(w(3)>9 w(4)<10 );w(4);0,6-(w(4)<10 w(3)<10 )+(f>9 g<10 );g I:"Your answer ";q$;"/";r$:"Correct answer ";w(1);"/";w(2) (:"________________________________": "15,1;" Since: " 16,0+(w(3)<10 w(4)>9 );w(3);16,5+(x(1)<10 x(2)>9 );x(1) 17,0;"";17,0+(w(4)>9 w(3)>9 );"";17,3;s$;17,5;"";17,5+(x(2)>9 x(1)>9 );"" 18,0+(w(3)>9 w(4)<10 );w(4);18,5+(x(1)>9 x(2)<10 );x(2) 300, 172 +16,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 21,0;" Press any key":0::800 :5:9 :5::8,1;0;"So far,you have ";u;" correct";10 ,13 ;"and ";v;" incorrect" *15,1;"MORE ? y or n " =""178 q$=:q$"y"q$"n"178 q$="n"200 30 K0:9 :7:1::7;19,0;o$;o$;o$ 50,0;"" 618,0;"" i=117 #i,0;"";i,31;"":i O1,9 ;"ROSE SOFTWARE";3,9 ;" CERTIFICATE " W6,2;" NAME:  ";n$((n$-((n$>17)*(n$-17)))) W8,2;" DATE:  ";m$((m$-((m$>17)*(m$-17)))) <10 ,2;" PROGRAM:  ""Fractions 2""" !12 ,5;"CORRECT: ";u #14,3;"INCORRECT: ";v u+v=0239 ;16,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 3,6;"***";3,22;"***":n=125:l=(*3):ٺ(*5)+2:3,6+l;"*";3,22+l;"*":n:0 9:7;20,9 ;"Press any key":0: ,17,8;"=" /s$="x"327G 216,10 +(w(3)<10 w(4)>9 );w(3);16,14+(x(2)<10 x(1)>9 );x(2) 517,10 ;"";17,11 -(w(4)<10 );"";17,12 ;"x";17,14;"";17,15-(x(1)<10 );"" 8=18,10 ;w(4);18,14;x(1) ;17,17;"=" Gn=9 *(s$="") Jw(1)=w(3) M4w(2)=x(2)*(s$="x")+x(1)*(s$="") P 400 SA16,11 +n;w(1);18,15+n;w(2) V4w(1)=x(1)*(s$="x")+x(2)*(s$="") Yw(2)=w(4) \20:400 _A18,11 +n;w(2);16,15+n;w(1) bz17,11 +n;"";17,13 +n;"x";17,15+n;"";17,15+n+(w(1)>9 );"" iv17,18+n;"=";17,20+n;"";17,n+21-(x(4)<10 x(3)<10 );"" k16,n+20+(x(3)<10 x(4)>9 );x(3);18,20+n+(x(3)>9 x(4)<10 );x(4) nq$="h"q$="H"172 q 148 9k=12:i=15:j=12 }((w(j)/a(2*i+7-(i=1)-(i=5))))*a(2*i+7-(i=1)-(i=5))-w(j)0415 j Nj=12:w(j)=w(j)/a(2*i+7-(i=1)-(i=5)):j i:k: a=58012 T0:6:20,0;" ":6000p Tz$=""20,4;"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: X8:0,1;"""FRACTIONS 2"" (4 pages) PAGE 1" Y&0,164:255,0 [p7;2,0;o$;o$;2,2;"Multiplication and Division";3,9 ;"of Fractions" ^5,4;"1 2" aX6,4;"- and - are examples of";7,4;"6 5 fractions." dC10 ,0;"The top number of each fraction is called the" g%13 ,8;" NUMERATOR " j_15,0;"And the bottom number is called the";17,7;" DENOMINATOR " m 690 pT0,25;"PAGE 2";3,0;" IN ORDER  to multiply fractions" sK5,0;"we multiply the numerators to give the new numerator" vP9 ,0;"and we multiply the denominatorsto give the new denominator" y13 ,0;" FOR EXAMPLE:-";15,1;"2 2 4";16,1;"- x - = --";17,1;"3 5 15" '690:0,25;"PAGE 3" 43,0;"Let's look at another example:-" L5,1;"6 1";6,1;"- x -";7,1;"7 9" R9 ,0;" BEFORE WE MULTIPLY  WE CAN MAKE OUR TASK EASIER BY:-" h12 ,0;"DIVIDING THE 6 AND THE 9 BY 3";14,0;"And so re-writing our example as" ^16,1;"2 1 2";17,1;"- x - = --";18,1;"7 3 21" '690:0,25;"PAGE 4" H2,0;"In order to DIVIDE one fraction by another fraction" m5,0;"for example:-";7,1;"1 . 3";8,1;"- - -";9 ,1;"5 . 4" S11 ,0;"we turn the second fraction upside-down and then multiply" 314,0;" So our example becomes:-" ^16,1;"1 4 4";17,1;"- x - = --";18,1;"5 3 15" 9 20,1;" Press  any key  to start " 0::12 ) 21,16;" Press any key "  0::  I0:7:7:0::1:"BOWLING ALLEY":0 #G4,0;"Knock down all";6,0;"five pins to win" &t<0t=0 )2:x=2 ,y=22262 - 846N /y 2 x=4 8y=23252 : 846N ;y x=206-1 ?)x,24;"";x+1,24;" " @,13 -(x/2-(2*(t=0))) Ax=10 t=0 Bx D2:x=1t E838F+x:x F 502: G04,23;" ";5,22;"": H04,25;" ";5,25;"": I02,26;" ";3,26;"": J02,22;" ";3,21;"": KN1:0:2,22;"STRIKE":0:3,24;" " L1:y=15:x=820:1:x,22;"STRIKE":0:x-1,22;" ":x:y:870f M Nx,y;"";x+1,y;"": Wx=185U Xx Y \x=1502 ]x ^ f t=0 ia1,6,3,9 ,2,6,1,7,3,9 ,2,6 jb1,7,3,9 ,2,6,1,11 ,3,9 ,2,6 k1,6,2,7,1,7,1,4,1,4,1,4,1,7,1,7,1,7 l1,4,1,4,1,4,1,9 ,1,9 ,1,9 ,1,9 ,1,11 ,1,9 ,3,6,2,2 m 873i pi=132 sle:pi vle/7,pi yi | *7,0;o$;21,0;o$ h=1125}  h=1 s$="x"970 q3,13 ;"Turn the second";4,13 ;"fraction upside-";5,13 ;"down, and multiply" 90Z:90Z:68D,130:8,0:0,18,:-8,0:3,3:-3,-3:3,-3:68D,130:3,3:-3,-3:3,-3 90Z:99c 3,0+(w(4)>9 w(3)<10 );w(3);3,5-(w(4)<10 w(3)<10 )+(w(2)>9 w(1)<10 );w(1)  5,0+(w(3)>9 w(4)<10 );w(4);5,5-(w(4)<10 w(3)<10 )+(w(1)>9 w(2)<10 );w(2)  r3,13 ;"CANCEL FIRST.Then";4,13 ;"multiply the two";5,13 ;"top nos. together"  63? >1:950:0:150:300,:950 s3,13 ;"Next, multiply the";4,13 ;"the two bottom ";5,13 ;"numbers together " G1:960:0:200:960:92\:99c Sa=58012:"fr 2"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 O a gr X( <~~<<<<<~~~~~<88||>>????0033 3300?? 33333333~<rsc @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