ZXTape! 0Created with Ramsoft MakeTZXhcflcm  "HCFLCM" HCFLCM   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`AHCFLCMlogo @  ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file X&VX 9898& Kn$()=n$(z1):n(i$)#)=(n$(z-(z-1))i$)z1:j$(32 )  8000@ end=0:date=0 end100d bxc=9 :yc=10 :yc1=1:pc=5:10 ,10 ;"Same Person?":lbox:lyn: qy140 d1:1::8 e 8600! nendyc=12 :xc=4:yc1=3:pc=6:9 :lbox:yc=yc+2:yc-2,xc;"Please ENTER your name:":len=15:lnm end1:1::8:yc=3:yc1=1:xc=1:pc=4:lbox:3,15-.5*(8+n$());8;0;"Hello, ";n$() P:yc=8-2*end:xc=1:pc=6:yc1=7+2*end:lbox :yc,xc;6;"Do you want:-";yc+2,xc;"1 HIGHEST COMMON FACTOR ";"or"end;yc+4,xc;"2 LOWEST COMMON MULTIPLE";"?"end;" or"end;yc+6,xc;"3 TO FINISH."end z17,0;31;yc+6+2*end,xc;6;"Type 1";" or"end;","end;" 2";" or 3"end r="3"19,0;"If you answer 'YES' to the followng question the program will be erased from memory": -0:("1")*("2")*("3")161 end(="3")170 c=:c=37000X [c=16;0;1;1;yc+2,xc;" " [c=26;0;1;1;yc+4,xc;" " ] yc=18:yc1=1:pc=5:lbox:yc,xc+4;5;"Instructions? (Y/N)" 0end=1:1000+2000*(c-1)  0  A.Cowley Sept.1982 !lyn:i$="yn":i$=i$(2-qy) 6:6:0: ;H=0:b(4):c(3):w(2):f(8) f(1)=2:f(2)=3:f(3)=5:f(4)=7:f(5)=11 :f(6)=13 :f(7)=17:f(8)=19 $i$="y"1700 .)i$="n":t=0:u=0:v=0 8 H=0 Bj=(*6)+1:j L 0: V6i$"y"0,5;" WHAT IS THE HCF OF:-" `Ab(1)=(*7)+2:b(1)=71120` jJi=24:b(i)=(*18)+2:b(i)=161130j tRi:b(2)=b(3)b(2)=b(4)b(3)=b(4)1130j ~23608 :2260  23608 :i$="y"1810 D2,9 ;c(1);",";c(2);" and ";c(3);" ?" 519,5;"Do you want Help?(Y/N)" 4lyn:19,4;" " 4qy0,0:2,0:1260  1270 Fi=421:i,0;" ":i H=113302 H=1:1430 78,0;" ENTER  your answer " j4,0;" ";21,0;" "  $a$:a$=""űa$>41290  ]z=1̱a$:z=z+10 *(1-(a$(z)"0")*(a$(z)"9")):z:z>a$+11290   a$=a$ 58,0;" " &8,0;" Your answer: ";a$ (a$=ans1400x 2R15,0;" SORRY  correct answer is ";ans:t=t-1:v=v+1 <23608 :.5,-10 :1.5@,-20:H=1lcr:0:16,1;"SINCE: ";:1970:7777a:1360P F820,1;"I'll show you why":lcr:1810 Ph23608 ::"H.C.F. of ";c(1);",";c(2);" and ";c(3);"?":"Your answer (wrong) ";a$ ZD"Correct answer is: ";ans:::"________________________________" dH=11450 n 1450 x+15,1;1;" WELL DONE !" u=u+1:t=t+1 f.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :1450  1830& H=11270 lcr: 9 ,1;"So far,you have ";:1:" ";u;" ";:0:" correct";11 ,13 ;"and ";:1:" ";v;" ";:0:" incorrect" 215,1;" More?(Y/N) " lyn q$="yn"(1+qn)  2050 qn1530  10808 )0:7:7::2500 $"" 615,0;"" i=114 "/i,0;"";i,31;"":i:2510 ,'2,9 ;"CERTIFICATE " 6F5,8;"NAME: ";n$((n$-((n$>17)*(n$-17)))) J%7,5;"PROGRAM: ""HCF""" T 9 ,5;"CORRECT: ";u ^#11 ,3;"INCORRECT: ";v hu+v=01670 r;13 ,2;"PERCENTAGE: ";(100d*u/(u+v));"%" |2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0  D:lcr:1:1::8:yc=20:xc=6:yc1=1:pc=1:6:lbox:9  20 M7:0:7::0,4;" Highest Common Factor " 4,1;"The Highest Common Factor is";6,1;"the highest number that";8,1;"divides each of two or more";10 ,1;"numbers exactly." lcr )a=(*3)+4:a:0:a: A3,3;" FOR EXAMPLE :- ";6,0;"12 is the H.C.F. of 24,36 and 60":30:10 ,3;" BECAUSE ":10 :13 ,1;"24 divided by 12 is exactly 2":10 :15,1;"36 divided by 12 is exactly 3":10 :17,1;"60 divided by 12 is exactly 5" lcr !a=(*4):a:7:a: 0,0;" TO FIND THE H.C.F. :-";4,3;"We must split the numbers";6,2;"into their prime factors.";10 ,3;"Prime factors can be any of";12 ,3;"the prime numbers:-";15,3;"2,3,5,7,11,13,17,19 ... etc." lcr 5ں(*3)+5:(*6)+1:0 :1120` m:1,1;" FIND THE H.C.F. OF ";3,1;c(1);",";c(2);" AND ";c(3) zi$="n"195,142:0,32 :1,25;"Your";2,25;"answer:";3,25;a$ &L0,142:255,0:0,139:255,0 0_10 :5,9 ;"PRIME NUMBERS";6,1;"2 3 5 7 11 13 17 19 ...." :i$="y"150 D!j=13:fact=1 N214-j,1;c(j);14-j,4;"=" Xw(2)=6 b 2320 l 2370B vc(j)=11930 k<9 1890b lcr j:h17777a RH=1i=36:i,0;" ":i: 15,1;"SO THAT:"; j=1:c(1)=ans  2320 " X ";w(1);  c(1)11980 O15+(H=1),10 ;" ";17,1;"IS COMMON TO ALL THREE" 1:19,8;" hcf = ";ans;" ":70F,10 :60<,0:70F,8:60<,0:0  i$="y"lcr  2500 :0:6:6::1;6;1;" GET THE TRAIN TO ";1,0;" THE END OF THE LINE ":0  79 ;3,0;"With five correct answers" t<0t=0  Q0;0;13 ,0;,,,,,,,,"________________________________"; *30;0;0;17,26;"" 4Ai=1(t*4+((t=0)*2))-(t=5)1 >[0:15,i;" ";16,i;" ";17,i;"__";1;"" H&(i/2)=(i/2)2150f R14,i+6;0;7;6;"";:2:7;8;8;"";" ";:5:8;8;" ":2 \14,i+6;0;7;6;"";:2:7;8;8;"";" ";:5:8;8;" " f i:1 p 1+((t5)*30) z t50:2250 502,120x:-30,0:0,-30:30,0:60<,90Z:0,30:20,0:0,-15:-20,0:20,-15 90Z,90Z:10 ,30:10 ,-30:95_,105i:10 ,0:120x,90Z:20,0:0,15:-20,0:0,15:20,0 150,90Z:0,30:170,90Z:0,30:150,105i:20,0:200,90Z:3,0:0,3:-3,0:0,-2 ]200,100d:0,20:3,0:0,-20:-3,0  2900T  t=0 %2510 :8:lcr:0: ;ans=1:fact=0:g(10 ):i=13 j=13 C(((c(j)/f(i)))*f(i))-c(j)=0c(j)=c(j)/f(i):j:2300 0(((c(j)/f(i)))*f(i))-c(j)02310 ;ans=ans*f(i):fact=fact+1:g(fact)=f(i):2270 i: k=18 c(j)=1 $G(((c(j)/f(k)))*f(k))-c(j)=0c(j)=c(j)/f(k):w(1)=f(k): .k: 86i=13:c(i)=b(1)*b(i+1):i: B9w(2)614-j,w(2)+1;"X " Lk*24+(k>4)*8*(k-5)-8,112p:((w(2)+3-3*(w(2)=6)))*8-20*k-8*(k>4)*(k-6),-((14-j)*8-68D) Vpaper=(22528X/8):s$=(32 +(w(1)=g(fact))*14)+"":14-j,w(2)+2-3*(w(2)=6);paper;s$;w(1);paper;s$:fact=fact+(w(1)=g(fact)) `<w(2)=w(2)+4-3*(w(2)=6) jR10 :x=713 -j:x,0;" ":x t 023675{\,176:23676|\,254: /23675{\,88X:23676|\,255: T12 ,11 ,12 ,11 ,12 ,7,10 ,8,5,-12 ,-7,-4,0,5,7,-8,-5,0,4,7,8,0,5,8 Y12 ,11 ,12 ,11 ,12 ,7,10 ,8,5,-12 ,-7,-4,0,5,7,-8,-5,0,8,7,5 [key=12 ^h2900T :z1=.75@:z=144,:z2:z1/10 ,z2+key:z:z2:z1/3.33333UUGZ,z2+key:  A.Cowley Sept.1982 beep=5000 lyn &0:9 :6:6: qy3870 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  H=0 j=(*6)+1:j: &Nj=13:i=(*14+3*(j>1))+1:b(j)=a(i):j 04j=12:c(j)=b(1)*b(j+1):j :"c(3)=b(1)*b(1) DOc(1)=c(2)c(1)=c(3)c(2)=c(3)3110& N.0,5;" WHAT IS THE LCM OF:-" X1ANS=b(1)*b(1)*b(2)*b(3) bD2,9 ;c(1);",";c(2);" and ";c(3);" ?" l521,0;" NEED help? (Y/N) " lyn qy3240 qn3270 Zi=8+4*(H=1)20:i,0;" ":i H=13330 H=1:3460 97,0;" ENTER  your answer " j4,0;" ";21,0;" " $a$:a$=""űa$>43290 ]z=1̱a$:z=z+10 *(1-(a$(z)"0")*(a$(z)"9")):z:z>a$+13290 a$=a$ 57,0;" " &7,0;" Your answer: ";a$ a$=ANS3420\ K9 +4*(H=1),0;" SORRY  correct answer is ";ANS C.5,-10 :1.5@,-20:t=t-1:v=v+1 \:"L.C.M. of ";c(1);",";c(2);" and ";c(3);"?":"Your answer (wrong) ";a$ |i=12:b(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) 4[i:13 -2*H,(c(3)<10 );c(3);" = ";b(1);" x ";b(1) >D"Correct answer is: ";ANS:::"________________________________" HH=13530 R 3450z \+14,1;1;" WELL DONE !" fu=u+1:t=t+1 pf.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 :3630. z10 ,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=03530 3270 ,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)3580 =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." .lcr: 89 ,1;"So far, you have ";:1:" ";u;" ";:0:" correct";11 ,14;"and ";:1:" ";v;" ";:0:" incorrect" B/13 ,9 ;" More?(Y/N) " Llyn V!q$="yn"(1+qn):4050 `q$="n"3700t j 3090 t0:7:7: ~$"" 614,0;"" i=113 #i,0;"";i,31;"":i (2,9 ;" CERTIFICATE " F5,8;"NAME: ";n$((n$-((n$>17)*(n$-17)))) &7,4;" PROGRAM: ""LCM"""  9 ,5;"CORRECT: ";u #11 ,3;"INCORRECT: ";v u+v=03830 ;13 ,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0   lcr:1:1:  20 :0,13 ;"""LCM""" (12,5;" Lowest Common Multiple " 24,1;"The Lowest Common Multiple is the smallest number that is exactly divisible by each of two or more given numbers." <)9 ,1;" For example:-" F111 ,1;"60 is the LCM of 4,6 and 10" P 4030 Z1,1;" IN ORDER TO FIND  the LCM of two or more numbers, we must first break those numbers down into their prime factors." dX7,1;" THEN  the LCM is the number that contains all their factors" n 4030 x6"  FOR EXAMPLE:-",," Find the LCM of 4,6 and 10" Y3,2;"4 = 2 x 2";5,2;"6 = 2 x 3";7,1;"10 = 2 x 5" 49 ,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"  lcr:: &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 " 4580 ,z>4.54700\ 6z=tt546604 @&y=y-1:z=5.504370 J)ss=1:tim=.0125zL:4640  T y=y+1 ^x+1,y;" " h 4630 r y=y+1 |x+1,y;" "  4620   x,y;" "  y=y+1  4610 w=12 9tim,ss:ss=13 :4:x,y;" ";x+1,y;""  y=y+1  4610 w $4:x+1,y+1;" " *tim,ss:x,y+1;"";:0:""  6-t  x,y;" " z  t=0 15,31;" " & 5 0&4:14,25;"" :.15,23;" ";:0:"" D 502 N?14,25;" " Xx=13 :4560 b4,4,2,4,2,11 ,2,9 ,2,11 ,3,6,1,7,2,6,6,4 l4,11 ,2,14,4,16,2,14,2,11 ,2,13 ,2,9 ,4,11 v2,16,4,16,2,14,4,11 ,2,9 ,3,11 ,1,9 ,2,7,4,6 2,2,4,4,2,11 ,4,9 ,2,7,2,6,2,4,2,2,6,4  4450b +w=135#:x:y:x/10 ,y:w x=12 1-1  4560 x+4,25;" ":x (100d:7:7:0:  д0:x,26;"":1:x+1,25;"":5:3:x+2,25;"";:0:"";:5:6:"":2:x+3,25;""  !4:x+1,y;""; 0:""  4:x+1,y;""  4:x,y;"" 4:x,y+1;""  #4:x+1,y+1;"" *tim,ss:ss=ss+1: >N0:q=240-1:.01z# =,q:q:x+1,y;"" H 502 R7:7:0:: \w=17 f70:.01z# =,480:x+1,y+6;"" p#3:x+1,y+6;"" zw  ":ss=ss+1:.025{L,ss: W X"MENU" Y{19,0;9 ;" If you answer 'YES' to the followng question the program will be erased from memory" Z.#1;9 ;" ARE YOU SURE?(Y/N)" [=""7003[ \ ="y" ]="n":120x ^ 7003[ aj=13:fact=0:m(10 ):i=532 :s$=(14-j,i):s$=".".1}L,25:fact=fact+1:m(fact)=i:s$=(14-j,i+2):m(fact)=i+.1}L*(s$"."):i=i+3:g(fact+1)=0i=32 : bi:i=1fact:14-j,m(i)+1;1;1;paper-1+3*(paper=5);1;1;" "(1+(m(fact)ɺm(fact))):i cj: N4170J,4200h,4230,4260,4280,4300,4330 @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:nc=23678~\-(yc1)-(yc1+2)*8: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):.001wn*236099\,34.4 :z=z+1:z79950&:p$()=("~usr"+p$) &p1=65535-p0:oldb=(23624H\/8):d=1dr:23750\,6:1:"m";d;p$:"m";d;p$():23750\,1:6:*"m";d;p$9970&:*"m";d;p$()p0+1,p1:23750\,2:5:*"m";d;p$:*"m";d;p$():d:23750\,0:oldb: &*"m";1;p$():3 ' "":"" `boframnyc natc/eceeX   tuvhn<A334 xy>lQy# I Stuartpp;usr `꼀T*>>~~< x~<??0033 3300?? 33333333<~~0x0px>^~/F?8|b?|z8~~<x0<~goooooo~< fractions X "FRACTIONS" kFRACTIONS   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 FRACTIONSlogo @  ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file Pr&p Rrgn$()=n$(z1):n(i$) )=(n$(z-(z-1))i$)z1:p(x=(x)=(x/10 ):j$(32 )  8000@ Box=85004! start=0 date=0 (&0:4:4::8 Fstartyc=12 :xc=6:yc1=1:pc=5:lbox:yc,xc;"Same Person?":lyn::start=qy:70F+10 *qn+20*qy P2800 : Ziyc=3:yc1=1:pc=7:lbox:3,15-.5*(8+n$());"HELLO, ";n$() djyc=8-start:xc=1:yc1=7+2*start:pc=5:lbox:yc,xc;"Please choose from:-" nyc=yc+2:yc,xc;" 1 ADDITION and SUBTRACTION";yc+2,xc;" 2 MULTIPLICATION and DIVISION";yc+4,xc;" 3 To end the program"start x[yc+4+2*start,xc;"Type 1";"2"start;", 23"start;28 G0:zob=-480:(zob1zob2+start)140 zob=318,0;" If you answer YES to the following question this program will be erased from Memory":160 nyc+2*(zob-1),xc+1;1;1;28+3*(zob=2)-6*(zob=3) 180 %#1;" ARE YOU SURE?(Y/N)" ="Y"Ŧ="y" ="n"Ŧ="N":100d 161 start=1 ,-1000+2000*(zob+(zob=3)) Myc=20:yc1=1:pc=7:lbox:yc,xc;" Instructions?(Y/N)" lyn:q$="yn"(1+qn) q$="y"q$="Y"2160p ,h=0:t=0:u=0:v=0 'o$=" " 2a(15):b(3):w(2):t$(2) $Pi=14:a(i)=2:a(i+4)=2:a(i+8)=3:i .?a(13 )=5:a(14)=5:a(15)=7 8 :H=0 B)j=(*4)+4:j:j:9 : L:j=13:i=(*15)+1:b(j)=a(i):j VFb(1)=2b(2)=2b(3)=21100L `#b(1)=b(3)1100L j.i=12:j=(*2):t$(i)="+" tj=1t$(i)="-" ~i 2t$(1)="-"t$(2)="-"t$(1)="+" 3t$(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" 1" -";4,1+(b(1)>9 );"-"; " ";s$(1);" -"; %b(1)*b(2)>9 "-"; " ";s$(2);" -"; $b(2)*b(3)>9 "-" W5,1;b(1);" ";b(1)*b(2);" ";b(2)*b(3) w(1)=(b(2)+1)*b(3)-2*b(3)*(s$(1)="-")+b(1)-2*b(1)*(s$(2)="-") n=w(1) -w(2)=b(1)*b(2)*b(3)  d=w(2)  2110> u11 ,0;" ENTER  the numerator (top) now",,,,"(or H for help)"h;18,0;o$;o$;o$;o$ $q$:q$=""űq$>71440 q$="h"q$="H"1920 +m$=q$:5500|:z=211440  q$=m$ E7,0,,,,,,,," NOW  key in the denominator ",,,,,, r$:r$>71480: r$=""1480 E:m$=r$:5500|:r$>4z=21űr$>51480:  r$=m$  z=721:6010z 0,62>:100d,0:0,26:-100d,0:11 ,1;"YOUR";12 ,0;"ANSWER" ;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$ +q$=w(1)r$=w(2)1750 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,0;" Since:- " "18,0;o$;o$ ,17,0+(b(2)*b(3)<10 )+(d>99c);b(2)*b(3);18,4;s$(1);17,6+(b(3)<10 )+(d>99c);b(3);18,9 ;s$(2);17,11 +(b(1)<10 )+(d>99c);b(1) 6G18,14;"=";17,16+(n<10 )+(d>99c);n @18,0+(d>99c);"--";18,6+(d>99c);"--";18,11 +(d>99c);"--";18,16+(d>99c);"--" JS19,0;d;19,6;d;19,11 ;d;19,16;d Tnw(1)18,20;"=";17,22+(w(1)<10 );w(1);18,23;"-";18,23-(w(2)>9 );"-";19,22+(w(2)<10 );w(2) ^q$="h"q$="H"1790 hr$="h"r$="H"1790 rv=v+1:t=t-1 |).5,-10 :1.5@,-20  err=1 :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) 4::"________________________________":1790 +16,1;1;" WELL DONE !"  err=0 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  errlcr: V15,1,0;"Correct so far ";u;18,6," Incorrect ";v !21,17;"More?(Y/N)" >err127,0:0,568:128,0 =""1820 &!q$=:q$"y"q$"n"1820 0 2380L :q$="y"10808 D 1940 Nv7,0;"Change the denominator of each fraction to ";b(1)*b(2)*b(3),,,,,,,,,,,, X21,0;o$ b200:13302 l615,0;" THEN:-";21,0;o$ v97,0;o$;18,0;o$;o$:1580, H=11440 H=1:1870N 0:7:7: $"" 614,0;"" i=113 #i,0;"";i,31;"":i (2,9 ;" CERTIFICATE " F5,8;"NAME: ";n$((n$-((n$>17)*(n$-17)))) 17,4;" PROGRAM:""Fractions (+/-)"""  9 ,5;"CORRECT: ";u #11 ,3;"INCORRECT: ";v u+v=02070  ;13 ,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0   *lcr 4 40( >9k=12:i=14:j=12 Hf((w(j)/a(2*i+7-(i=1))))*a(2*i+7-(i=1))-w(j)02150f Rj \Bj=12:w(j)=w(j)/a(2*i+7-(i=1)):j fi:k: p^:0,1;"FRACTIONS (3 pages) PAGE 1":0,164:255,0 zS2,2;" Addition and Subtraction ";3,8;" of Fractions " 5,1;"1 1 2" =" -, - and - are examples of 3 6 5 fractions." C10 ,0;"The top number of each fraction is called the" %13 ,8;" NUMERATOR " _15,0;"And the bottom number is called the";17,8;" DENOMINATOR "  23608 M0,25;"PAGE 2"," IN ORDER  to add or subtract fractions," Q"we must first find the L.C.M. (Lowest Common Multiple) of the denominators." ?6,0;"For example:-";8,6;"1 1 2" 5" 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" (23608 :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" $lcr .:1030 8lcr B: L&0:7:7:9 : V95:1,8;" HIT THE BULLSEYE ":7 `*3,1;"5 correct answers win" jx=15 t204,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 ض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 2520 x=1513 y:z y/10 ,z (x 2 502 < F Zz$="" dy$= n'y$=0ůy$>1642660d xy$=13 y$=12 2730 z$=z$+y$ 2760 0:2660d z$=02720 z$=z$((z$-1)) 2710 z$>15 *16,xc;" " 216,(17-((z$+1)/2));z$ 2720 Box:yc=12 :xc=4:yc1=3:pc=1:9 :lbox:yc,xc;"Please ENTER your name":yc=yc+2:len=15:lnm n$ " 0: Myc=20:yc1=1:pc=7:lbox:yc,xc;" Instructions?(Y/N)" lyn qy4200h 4yc,xc;31-xc;yc,xc;" Please Wait." Sh=0:t=0:u=0:v=0:o$=" " 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 &23672x\ +:j=16:i=(*16)+1:b(j)=a(i):j 0 s$="x" : s$=s$(1+(*2))+"" Na3160X :ff=w(1):gg=w(2):3280 :3230 -120x*(x(4)=1) XPw(1)=b(1)*b(2):w(2)=b(3)*b(4):41506 b)i=12:w(i+2)=w(i):i l0i=1+(s$=""):w(i)=b(3)*b(5) vFi=i+1-2*(s$=""):w(i)=b(1)*b(6):41506 (w(4)=1w(4)=2 (w(2)=1w(2)=2  )j=(*4)+4:j:j:9 : [0,0;"  SIMPLIFY (AND EXPRESS YOUR   ANSWER IN ITS LOWEST TERMS) " Jkk1=ff:kk2=gg:7200 :پ23624H\/8:5020:5040 $yc=4:xc=0:7300 J9 :z=35:z,0;1;31:z:3400H 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):41506 0x(3)=w(1):x(4)=w(2): H7,0;o$;21,0;o$;11 ,0;" ENTER  the numerator (top) now ";o$;13 ,0;"(or H for"(h2);" more"(h=1);" help)"(h2) Iq$:q$>73401I M9m$=q$:5500|:z=21q$"h"q$"H"3400H Q'z=21q$"h"q$"H"3400H : R5q$="h"q$="H"11 ,0;o$,,,,:4950V Sq$=""3400H W q$=m$ \g11 ,0;" NOW  key in the denominator ",,,,;13 ,0;" " fr$:r$>73430f gJm$=r$:5500|:r$4r$=""z=21űr$>7:3430f p.21,0;o$;11 ,0;o$;o$ r$=m$:13 ,0;o$ ~0,62>:90Z,0:0,26:-90Z,0:11 ,1;"YOUR";12 ,0;"ANSWER" p11 ,7+(q$<2Ʊr$>2)+(q$<2Ʊr$>1)+(q$<3Ʊq$>1Ʊr$>2);q$ w12 ,7;"";12 ,8;""(q$>1űr$>1);12 ,9 ;""(q$>2űr$>2) d13 ,7+(q$>2Ʊr$<2)+(q$>2Ʊr$<3)+(q$>1Ʊr$<2);r$ +q$=x(3)r$=x(4)3680` 2err=1:11 ,15;" BAD LUCK " =12 ,16;"Correct";13 ,15;"answer is" ԡ11 ,29-p(x(3));x(3);13 ,29-p(x(4));x(4):kk1=x(3):kk2=x(4):yc=12 :xc=25:7300 q$="h"q$="H"3620$ 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) (:"________________________________": :h>115,0;" Since:- ":4110 $O15,0;" Since:- ":kk1=x(1):kk2=x(2):7200  .M17,2-p(w(3));w(3);17,4+k1;x(1) 8c19,2-p(w(4));پ23624H\/8;w(4);19,4+k2;x(2) BKyc=18:xc=0:7300:yc+1,xc;1;o$(7) L 3950n V 3710~ `L6,0;"":err=0:18,0;1;"WELL DONE !" ju=u+1:t=t+1 tZ.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 ~ errlcr: zzz=14:zzz,16;0;"So far,you have ";zzz+2,20;u;" correct";zzz+4,13 ,"and ";v;" incorrect":err255,18:-131,0:0,480:131,0  21,0,"More?(Y/N)" lyn  4490 qn3780  3090 0:7:7: $"" 614,0;"" i=113 #i,0;"";i,31;"":i (2,9 ;" CERTIFICATE " F5,8;"NAME: ";n$((n$-((n$>17)*(n$-17)))) 17,4;" PROGRAM:""Fractions (x/)"""  9 ,5;"CORRECT: ";u (#11 ,3;"INCORRECT: ";v 2u+v=03910F <;13 ,2;"PERCENTAGE: ";(100d*u/(u+v));"%" F2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0 P Zlcr d 40( n18,7;"=" xs$="x"4010 }17,11 -p(w(3));w(3);:kk1=x(2):kk2=x(1):7200 :17,13 +k1;x(2) eپ23624H\/8;19,11 -p(w(4));w(4);19,13 +k2;x(1) xc=9 :7300 18,17;"=" n=9 *(s$="") w(1)=w(3) 4w(2)=x(2)*(s$="x")+x(1)*(s$="")  41506 V17,11 +n;w(1);19,15+n-(w(2)>9 );w(2) 4w(1)=x(1)*(s$="x")+x(2)*(s$="") w(2)=w(4) 20:41506 V19,11 +n;w(2);17,15-(w(1)>9 )+n;w(1)  80P R17,13 +n;"x";18,11 +n;"";19,13 +n;"x"  xc=0  F100d:q$="h"q$="H"18,18+n;"= ?":3400H v18,18+n;"=";18,20+n;"";18,n+21-(x(4)<10 x(3)<10 );"" 17,n+20+(x(3)<10 x(4)>9 );x(3);19,20+n+(x(3)>9 x(4)<10 );x(4) "q$="h"q$="H"3710 , 3670V 69k=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)04190^ Jj TNj=12:w(j)=w(j)/a(2*i+7-(i=1)-(i=5)):j ^i:k: h9:0,1;"FRACTIONS (4 pages) PAGE 1" r&0,164:255,0 |U2,2;"Multiplication and Division ";3,8;" of Fractions " 5,4;"1 2" X6,4;"- and - are examples of";7,4;"6 5 fractions." C10 ,0;"The top number of each fraction is called the" %13 ,8;" NUMERATOR " _15,0;"And the bottom number is called the";17,7;" DENOMINATOR "  4470v T0,25;"PAGE 2";3,0;" IN ORDER  to multiply fractions" K5,0;"we multiply the numerators to give the new numerator" P9 ,0;"and we multiply the denominatorsto give the new denominator" 13 ,0;" FOR EXAMPLE:-";15,1;"2 2 4";16,1;"- x - = --";17,1;"3 5 15" (4470v: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" &(4470v:0,25;"PAGE 4" 0H2,0;"In order to DIVIDE one fraction by another fraction" :m5,0;"for example:-";7,1;"1 . 3";8,1;"- - -";9 ,1;"5 . 4" DS11 ,0;"we turn the second fraction upside-down and then multiply" N314,0;" So our example becomes:-" X^15,1;"1 4 4";16,1;"- x - = --";17,1;"5 3 15" bNyc=20:yc1=1:pc=7:lbox:yc,xc+5;" Please Wait" l :3040  lcr:: w0:7:7:0::1:"BOWLING ALLEY":0:23675{\,216:23676|\,254 G4,0;"Knock down all";6,0;"five pins to win" t<0t=0 2:x=2 y=22262  4770 y  x=4 y=23252  4770 y s0:172,145:-30,-145,-/8:225,145:30,-145,/8 !1:21,24;""  x=206-1 )x,24;"";x+1,24;" "  ,13 -(x/2-(2*(t=0))) *x=10 t=0 4x >2:x=1t H4690R+10 *x:x R 502: \04,23;" ";5,22;"": f04,25;" ";5,25;"": p02,26;" ";3,26;"": z02,22;" ";3,21;"": N1:0:2,22;"STRIKE":0:3,24;" " 1:y=15:x=820:1:x,22;"STRIKE":0:x-1,22;" ":x:y:4840  x,y;"";x+1,y;"": x=185U x  x=1502 x   t=0 a1,6,3,9 ,2,6,1,7,3,9 ,2,6 b1,7,3,9 ,2,6,1,11 ,3,9 ,2,6 1,6,2,7,1,7,1,4,1,4,1,4,1,7,1,7,1,7 1,4,1,4,1,4,1,9 ,1,9 ,1,9 ,1,9 ,1,11 ,1,9 ,3,6,2,2  4850 $i=132 .le:pi 8le/7,pi Bi L Vh=23400H [*7,0;o$;21,0;o$ `"h=1h=2:3630. j h=1 ts$="x"5060 ~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:3310 C3,2-p(w(3));w(3);3,4+k1;ff  C5,2-p(w(4));w(4);5,4+k2;gg  r3,13 ;"CANCEL FIRST.Then";4,13 ;"multiply the two";5,13 ;"top nos. together"  3160X @1:5020:0:150:300,:5020 s3,13 ;"Next, multiply the";4,13 ;"the two bottom ";5,13 ;"numbers together " M1:5040:0:200:5040:3280 :3310 z$="" y$=  'y$=0ůy$>1645120 y$=13 y$=12 5190F ( z$=z$+y$ 2 5220d <0:5120 Fz$=05180< Pz$=z$((z$-1)) Z 51702 dz$>18 n?6:20,0;" " x220,(17-((z$+1)/2));z$  5180< |m$=" "z=21: z=1̱m$ 4m$(z)=" "z"9"z=20 z: pz=821 zz,0;o$:z: Xnyc+6,xc;"ENTER c":23662n\,98b:23663o\,27:23664p\,1:10000' bIyc+4,xc;1;0;8;8;31:120x    k$="000102100001201000" *3k1=(k$(1+2*p(kk1)+6*p(kk2))) 43k2=(k$(2+2*p(kk1)+6*p(kk2))) > z=xcxc+6:o$(1)=(yc-1,z):o$(2)=(yc+1,z):yc,z;""((o$(1)" ")+(o$(2)" ")):z:o$(2)=" ":yc,xc+3;s$xc9 xc25;"x"xc=9 (yc+1,xc;1;o$(7): @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:nc=23678~\-(yc1)-(yc1+2)*8: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 c=18 :c-1,0;" ":c:Box:0,174-64@:255,0:8600! &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):.001wn*236099\,34.4 :z=z+1:z79950&:p$()=("~usr"+p$)(10 ) &p1=65535-p0:oldb=(23624H\/8):d=1dr:23750\,6:1:"m";d;p$:"m";d;p$():23750\,1:6:*"m";d;p$9970&:*"m";d;p$()p0+1,p1:23750\,2:5:*"m";d;p$:*"m";d;p$():d:23750\,0:oldb: &*"m";1;p$():3 ' "":"" bofram# nyc o4!tarat c 'e `I StuartohtuvO N P +- >S+-di>M12R12r lQy$usr `b>><~~<<<<<~~~~~<88||>>??~??0033 3300?? 33333333  HH  >>??~??0033 3300?? 33333333  HH