fr 1 7--?9- ROSE SOFTWARE Sept.1982  5 57999:23613=\+256*23614>\,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