fr 2 88\8 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"Ʀ"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