ZXTape! 0Created with Ramsoft MakeTZXtables I "" #1;4;1;0;" Main program is loading ":4:1:20,1;:4:1:4:1 ""  @W@<@@@@@@@@B<B@<<<@@@?@@@@?@@@88D8B<@8(BBB@@@@@@@@@@@@ @@@<DDDB 0DxB< @@@   @@@@@@x(xB DD>B@@@@@@@@@@B@(@Z <<<@@@@@@@@@<8@"@@@@@@@@@@@@@@@ @@?@???@???@@@ `@| @ @@@ @@@A@@BD 8@8 D@@ @@@ @@@@BD<0@xD<5023,5;"PROGRAM IS FULL UP !";5,5;"Press any key for results.";10 ,1;"You should print the results,";12 ,5;"break into the program,";14,5;"and RUN the program again.":t=t-1:0:2000:9615% 93:::z$="DIVISION":flag=1z$=" TABLES " f=14:5;1;1;" "+z$+" TEST. " Sso.1}L,10 *f:.1}L,10 *f-2:.2~L,10 *f+5 f '900:200:ngo=1: <1250:900:1100L:200:1150~: 1:5:3::z$=" ":1;6;4,2;z$;5,2;" What is your NAME please ? ";6,2;z$ `15,144:225,0:0,-25:-225,0:0,24 "Jpn=14:cn=10 :1;4;14,4;" I am ": cf=1500:f:1::900:6;0;10 ,2;" ^ ";11 ,2;" CLOCK ":1800: 'TCH=0t1=(*11 )+2 "tch0flag=2t1=tch $i<6t2=(*5)+2 $i6t2=(*6)+7 !:a(i)=t1*t2:flag=2tt=t1:t1=a(i):a(i)=t2:t2=tt 5+p=1i-1:a(i)=a(p)525  7p: ?pn=i*2:i1pn,14-(t1>9 )-(t1>99c)-(t1>999);t1;pn,15;(" "flag=2)+(" X "flag=1);pn,19-(t2>9 );t2;pn,20;" = " I bm1900l:so=1.1}L,5+2*i:.1}L,3+2*i:.2~L,10 +2*i g v("":fgo=0:so=0645 {lp=41)1-5:.1}L,p:.1}L,p-2:p:p=641)5:.25~,p:p f=021:6;f,0;"*";f,31;"*":f:6;0,1;"``````````````````````````````";21,1;"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" `f=120:5;f,1;" ";6;1;f,26;" ":f Gmark=0:x=208:i=110 :y=167-16*i *a(i)=b(i)mark=mark+1:1000 a(i)b(i)1050 i:m$(t)=mark (mark<10 m$(t)=" "+m$(t,1) 7:0,12 ;x$(1);7,4;"MARK";10 ,6-(mark=10 );mark;13 ,5;"10":32 ,80P:32 ,0:32 ,79O:32 ,0 e3;480,79O,24:1;480,79O,22:0:1:6 .mark<53,1;" Oh Dear ! " Fmark>61:mark=10 3,1;" EXCELLENT!" .mark=9 3,1;" VERY GOOD." ;mark=7mark=83,1;" GOOD. "  0  Mmark>64,1;"";2,1;"" 4:0:17,1;" TIME TAKEN";19,1;" "+(" "q<100d);q;" secs. ":#0;6;1;"'P' Print. Any other key- go on.":1150~ =""792 ="P":792 "": *It$=x$(1)+p$+m$(t)+"/10. "+(" "q99c)+(" "q999)+q: 6u0::1150~:ngo=0:8,4;"Do you want another go ?";12 ,9 ;"PRESS Y or N..." :6:15,135:226,0,.1}L:0,-88X,.1}L:-226,0,.1}L:0,87W,.1}L:0 ;""827; >=""830> Rz="n"Ŧ="N"1150~::8,11 -lw/2;"CHEERIO , ";y$(1);12 ,8;"Have a nice day !": W"y"Ʀ"Y"827; fngo=1:1150~: z$="":5;0,0;z$;21,0;z$:f=120:5;f,0;"";f,31;"":f: 5t=t-1:fgo=0:ngo=0::9615% L2:x+2,y+5:2,-4:6,8:0: $2:x+3,y+2:6,6:x+3,y+8:6,-6:1;7;2*i,29+(a(i)<10 )-(a(i)>99c)-(a(i)>999);a(i):0: [jf=120:f<144;1;9 ;f,f+2;"Hello!":so.1}L,2*f jso.1}L,2*f of: so <.33(1165 >.51170 C.1}L,5:.1}L,3:.2~L,10 :15: E.1}L,15:.1}L,13 :.2~L,20:15: E.1}L,25:.1}L,23:.2~L,30:15: 1150~:6: f=6186:(4-3*(f=18));524,513,f:f:f=6186:(4-3*(f=18));204,123{,f:f 5;1;1;15,6;"*";6,25;"*":f=23.2~L:6;84T,20:6;112p,60<,/f:f E2:84T,20:112p,60<,/2:0:  0:4::1150~  5;5,6;" ";6,6;" Work or Results ? ";7,6;" " #1:47/,136:169,0:47/,111o:169,0:15,80P:97a,0:15,39':97a,0:135,80P:105i,0:135,39':105i,0 %\124|,111o:40(,-40(:124|,111o:-40(,-40(:0 'z$=" ":6;12 ,2;z$;13 ,2;" Press 'w' ";14,2;z$;15,2;" for WORK. ";16,2;z$ -6;12 ,17;z$+" ";13 ,17;" Press 'r' ";14,17;" "+z$;15,17;" for RESULTS.";16,17;" "+z$ 2=""13302 7%="r"Ŧ="R"2000:1300 <"w"Ʀ"W"13302 C Z21150~:0:2:4:0: _M1;5;1;3,1;" Choose which test you want! " dnz$=" ":1:124|,143:-32 ,-32 :124|,143:32 ,-32 n15,112p:89Y,0:15,71G:89Y,0:143,112p:89Y,0:143,71G:89Y,0 s15,112p:89Y,0:15,71G:89Y,0:143,112p:89Y,0:143,71G:89Y,0 xU8,143:232,0:8,152:232,0:0 8,2;6;1;z$;9 ,2;"Multiply(X)";8,18;z$;9 ,18;" Divide() ";10 ,2;z$;10 ,18;z$;11 ,2;" ";"Press 'm'";" ";11 ,18;" ";"Press 'd'";" ";12 ,2;z$;12 ,18;z$ flag=0 ""1425 =""1430 0z$=:z$=77Můz$=109mflag=1 *z$=68Důz$=100dflag=2 flag=01425 1150~:: m0:6:1:3::f=210 :4;f,4;" ":f 4;3,5;"Which particular table";5,5;"do you want to be";7,5;"tested on this time , ";5;9 ,15-i$(1)/2;i$(1);4;" ?" z$=" ":3;0;13 ,0;z$;21,0;z$:f=1420:5;f,0;z$:f flag=1pn=18:cn=9 :5;16,6;"Please test me on ";18,6;"the ";pn,cn+5;"times table." flag=2pn=18:cn=16:5;16,6;"Please test me on the";18,6;"divide by ";pn,cn+5;"table." ]0,8:255,0:0,568:-255,0:0,-557 1:31,160:193,0:0,-73I,.1}L:-192,0:0,72H,.1}L:0,72H:255,0:0,103g:-255,0:0,-103g:0 a#0;"Press the number of your choice.":8000@:t1=ans:1150~:4:4: z$=" " 6;8,4;z$;9 ,4;" O.K. I'll test you on ";10 ,4;z$;11 ,4;" the "+("divide by "flag=2);t1;(" times"flag=1)+" table."+(" "flag=1)+(" "t1<10 );12 ,4;z$ 2:31,112p:193,0,.05|L:0,-41):-193,0,.05|L:0,40(:1:1,1:253,0:0,173:-253,0:0,-172:0 Xtch=t1:p$=(" by "flag=2)+("x by "flag=1)+(" "tch<10 )+tch+".": HD1150~:1:1;"":z$=" " J#7;2,12 -lw/2;"Hello ";i$(1);" !";4;4,0;"################################";5;7,2;z$;8,2;" Do you want to be tested ";9 ,2;z$;10 ,2;" on any particular table ? ";11 ,2;z$ Kz$=" ":6;15,3;z$;16,3;" Press 'y' ";17,3;z$;18,3;" for YES. ";19,3;z$ O6;15,17;z$;16,17;" Press 'n' ";17,17;z$;18,17;" for NO. ";19,17;z$ P1:15,120x:217,0:15,79O:217,0:124|,79O:-23,-23:124|,79O:23,-23 R23,568:89Y,0:23,15:89Y,0:135,568:89Y,0:135,15:89Y,0:0 S""1619S T=""1620T VMz$=:cz=z$:cz89Ycz121ycz78Ncz110n1620T Y'cz=89Ycz=121ytch=1 ^'cz=78Ncz=110ntch=0 c1150~:5:: =4:4;"":z$=" " 6;2;7,0;z$;8,0;z$;8,12 -lw/2;"O.K. ";i$(1);;9 ,0;z$;10 ,0;" I'll test you ";11 ,0;z$;12 ,0;" on a mixture . ";13 ,0;z$ q2:0,119w:255,0:0,-568:-255,0:0,557:0 ,p$=" MIXT.":flag=1p$="x MIXT." 4:1: t=1r$(1)=t$: )t$r$(1)r=0:1750: t$r$(t-1)r$(t)=t$: r=1t-1 't$r$(r)t$9 )-(t1>99c)-(t1>999);t1;pn,15;(" "flag=2)+(" X "flag=1);pn,19-(t2>9 );t2;pn,20;" = " t0;0;7;14,2;" ";15,2;"Press 'r'";16,2;" ";17,2;"to rubout";18,2;" " uK#0;1;7;"Press ENTER to finish each sum. ":1826" v""1910v {6=""1;1;7;pn,26;"*":q z$=:cz=z$:fgo=1 e(cz<480cz13 )(cz>579cz114rcz82R).1}L*so,-20:1910v 9(.05|L+.05|L*so),20-25*(so=0) &cz=82Rcz=114r1970 cz=13 1980 vz=z$ #vz=0pv=01902n b(i)=10 *b(i)+vz pn,25-pv;b(i) pv=pv+1 p(pv>4flag=1)(pv>2flag=2).3*so,-20:pn,21;"= ":1902n  1910v pv=01902n ;b(i)=(b(i)/10 ):pn,26-pv;" ":pv=pv-1 $b(i)0pn,26-pv;b(i)  1910v Gb(i)=0.3*so,-20:pn,23;" ":1902n pn,26;" ": +5:6::1150~:o=2 9#o;1;4;"***********RESULTS**************" C#o;7;1;3;'"***NAME*******: TABLE :MARK:TIME" 'tot=0:tim=0:j=1t tm=r$(j,29) #o;7;1;(1j=2*(j/2));r$(j,14);4;0;r$(j,1522);6;r$(j,2328);7;r$(j,29) tot=tot+m$(j):tim=tim+tm:j B#o;3;1;1;" "  6#o;'" Average Mark :- ";(tot/t+0.5);"/10." 8#o;'" Average Time :- ";(tim/t+0.5);" secs." o=3'''' X"":#0;1;6;1;"'P' Print. Any other key- Go on.":1150~ =""2075 z$=:cz=z$  %cz=80Po=3::2015 %"":4:4:: 9<0:6:5::z$=" " <1;6;5,4;z$;6,4;" Here is a summary of ";7,4;z$;8,4;" what this program does.";9 ,4;z$ >2:31,136:193,0,.05|L:0,-41):-193,0,.05|L:0,40(:0 @B200::g=15:1150~:g1100d Hg=114,3;"This program will test you";17,3;"on your division or";20,3;"multiplication tables." Mg=214,3;"You choose the test you want";17,3;"X or from 2 to 99 ,";20,3;"or a mixture up to 12." Rg=314,3;"You will have 10 questions.";17,3;"A clock will show you ";20,3;"how long you take to do it." \g=414,3;"Your work will be marked";17,3;"AFTER the test is complete.";20,3;"The result will be stored." fg=514,3;"Try to improve your marks";17,3;"and the time you take !";6;20,0;" *** Practice every day ! *** " l5;"":f=111 :23692\,-1:21,31;" ";5;" ":20:f:g 100d::f=0202:9 ;ں(f/3)+1;f,0;" *** Practice every day ! *** ":g=10 11 .2~L:.01z# =*so,g+f:g:f !150:4:4:: J"5:ans=0:pv=0 O""8015O T8=""1;1;pn,cn+3;"*":8020T Yz$=:cz=z$ ^e(cz<480cz13 )(cz>579cz114rcz82R).1}L*so,-20:8015O c.1}L*so,20 h&cz=82Rcz=114r8080 mcz=13 8090 rvz=z$ t#vz=0pv=08015O wans=10 *ans+vz |pn,cn+2-pv;ans pv=pv+1 =pv=1"":#0;"R for rubout ENTER if Finished" Gpv>2.3*so,-20:5;pn,cn;" ":8010J  8015O pv=08010J Eans=(ans/10 ):5;pn,cn+2-pv;" ":pv=pv-1 $ans0pn,cn+3-pv;ans  8015O Rans<2.3*(so=1),-20:5;pn,cn;" ":8010J  4  !>1:4 !Cw$="" !Hlw=0:cap=0 !M""8525M! !R3=""1;1;pn,cn+lw;"*":8530R! !Wz$=:cz=z$ !\}(cz<65Acz32 cz13 cz480)(cz>90Zcz<97a)cz>123{.1}L*so,-20:8525M! !a.1}L*so,20 !fcz=4808600! !h1cap=1lw=0cap=0:8640! !j$cz=13 lw=08525M! !kcz=13 8620! !m$cz=32 lw=08525M! !pcz=32 cap=1 !uw$=w$+z$:lw=lw+1 !z pn,cn;w$ !=lw=1"":#0;"0 for rubout ENTER if Finished" !&lw>20lw=20:8620! ! 8525M! !cap=1cap=0 !lw=08605! !2(w$(lw)>64@Ưw$(lw)<91[)cap=1 !#w$=w$(lw-1):lw=lw-1 ! 3;pn,cn+lw+1;" " ! 8525M! !Ri$(1,lw):i$(1)=w$:x$(1)=i$(1):y$(1)=i$(1) !]3::4;pn,11 -lw/2;" Hello ";i$(1);" ! ":"":8650!:: !4(cz>96`cz<123{)cz=cz-32 :z$=cz ! 8554j! !m3:f=116:23692\,-1:3;1;21,31;" ":10 :f: #-1;6;1;4,1;" Press any key for RE-START. ";16,1;" Press any key for RE-START. " #2 0:: # $ 7: %X 100d %#t09900&:9615% %150:21004 %t01300 %1350F:200 %ngo=19660% %275:85004! % 1600@ %tch=01650r %tch=11500 %C350^:i=110 :525 :570::590N:i &-625q:800 :1700:8204 &>ngo=19620% &H9000(#:9602% & 5 5   i2 E2 tartggoZ $ area  "" #1;4;1;0;" Main program is loading ":20,1;:4:1:4:1 ""  @@<@@@@@@@@B<B@<<<@@@@@@@@88D8B<@8(BBB@@@@@@@@@@@@@<DDDB 0DxB< @@@@@ @@@x(xB DD>B@@@@@@@@@@@B@(@Z <<<@@@@@@@@<8@@@@@@@@ @@@ @@@@@@ @@@ @@????@@| @ @ @@ @@"@BD 8@8 D@  @@@@ @BD<0@xD<m=4+(j=4)x=x(1):y=y(1):135 x,y 5x(m)=x:y(m)=y:x+f,y+1:m=1160 )a=x(m-1):b=y(m-1):a-x,b-y m:f: U0:4:5:0::g$=" Triangle .":j=1g$=" Rectangle." j=4g$=" parallelogram" n(5):sk=0: 1:z=3116016:0,z:240,0:z:z=024016:z,32 :0,127:z:0: 1 5:5;"":69E,126~:100d,0:-30,40(:-70F,-40(:69E,116t:5,5:-5,-5:5,-5:-5,5:100d,0:-5,5:5,-5:-5,-5 @ 6;1;7,12 ;" Base.":206,126~:5,5:-5,-5:-5,5:5,-5:0,40(:5,-5:-5,5:-5,-5:5,5:6;1;3,23;"Height.":fz=1 T16;1;10 ,0;" The Area of a Triangle ";12 ,0;" is equal to ";0;7;14,0;" ";fz;2;14,12 ;" HALF of ";0;0;" ";16,0;" The Base X The Vertical Height." Y6;1;9 ,0;k$;11 ,0;k$;13 ,0;k$;7;0;15,0;k$;17,0;k$:0,104h:255,0:0,-72H:-255,0:0,72H c19,3;"Your teacher will explain";21,4;"why this formula works.":fz=1300,:fz=0:340T m{19,0;" Read the following example ";21,0;" and then answer the questions.":5960H:: ot=1:900:100d:250:0,0;" Here is an example.":8100:100d j=20;19,0;"Look at the ";6;"Base";5;" of the triangle";21,0;"You can see it is ";ba;" units long." j=40;19,0;" Look at ";6;"Base";5;" of parallelogram. ";21,0;"You can see it is ";ba;" units long. " ef=1ba:7;17,5+2*f;f:20:fba17,5+2*f;f /f:7;21,18;ba:5900  ¼0;19,0;"Now the ";6;"Height";5;" of "+("the triangle. "j=2)+("parallelogram."j=4);21,0;"You can see it is ";ht;" units high." ef=1ht:7;16-2*f,5;f:20:fht16-2*f,5;f /f:7;21,18;ht:5900  zj=22;7;19,0;"Area";6;0;" = half of Base X Height. = half of "; rj=42;7;19,0;"Area";6;0;" = Base X Height. = "; j=27;ba;6;" X ";7;ht;6;" ";21,0;k$;21,0;" = half of ";ba*ht;" = ";2;7;ar;" Sqs." j=47;ba;6;" X ";7;ht;6;" ";21,0;k$;21,0;" = ";2;7;" ";ar;" Squares. " F400:5900 :fl=2:8200 :fl=1405  5:1::f=414:6;f,4;" ":f:6;7,11 ;"What is";11 ,6;"your name please ?" 26,502:0,98b:204,0:0,-98b:-204,0:19,3;" I am ":pn=19:cn=9 :8100:85004! ?0::11 ,(24-i$(1))/2;"Hello ";i$(1);" !":sof=-12 -1:g=ff+36$12 :.05|L,g:g:f I#0;1;1;6;" Press any key to start work. ":0:"":f=11 0-1:f,(24-i$(1))/2;"Hello ";i$(1);" !":so5 NJg=f+24f-12 -12 :.05|L*so,g:g:f,0;k$:f: Y7;1;3-2*(ht=7),0;"Question ";t;".":j=40,0;"Find AREA of this parallelogram." [@j=20,0;"Find the AREA of this Triangle. " ]1;1;#0;" Enter your answer now. ":j=219,0;" AREA of Triangle = sqs. ":pn=19:cn=20 g[j=419,0;"AREA of Parallelogram = sqs.":pn=19:cn=22 j voaw=arsk=sk+1:1;1;6;0,0;"Well Done!";:" The area is ";aw;" sqs. " {Law=arsof=-12 -1:g=ff+36$12 :.05|L,g:g:f aw=2*arj=2.5so,-10 :.5so,-5:6;1;1;0,0;"You forgot to halve it.TRY AGAIN":200:9600% <awar1so,6:1so,3:7;2;0,0;" Hard luck. ";aw;" sqs. is wrong. "+(" "aw<10 );19,0;("Remember the Area of a Triangle = Half of Base X Height. "j=2)+(" The Area of a Parallelogram = Base X Height. "j=4) awarj=22;7;21,30;" ";21,0;" = Half of ";1;7;ba;7;2;" X ";1;7;ht;7;2;" = ";ar;" sqs."+(" "ar<10 ) awarj=42;7;21,0;" = ";1;7;ba;7;2;" X ";1;7;ht;7;2;" = ";ar;" sqs."+(" "ba<10 ) awarf=1ba:7;17,5+2*f;f:10 :17,5+2*f;f:f:7;17,5+2*ba;ba awarf=1ht:7;16-2*f,5;f:10 :16-2*f,5;f:f:7;16-2*ht,5;ht 8150:#1;"'P' Print. Any other key- Go on." =""685 ="P":685  h6:sk-(sk=1)::f=39 :5;f,1;" ":f 6;4,(30-i$(1))/2;" ";i$(1);" ";6,2;" You have scored ";sk;" out of 5.";8,10 ;(" EXCELLENT ! "sk=5)+(" Good work. "sk=4)+(" O.K. "sk=3)+(" Keep trying. "sk<3) 7:1,1:253,0:0,173:-253,0:0,-173:7,152:241,0:0,-579,.1}L:-241,0:0,568,.1}L:0 X300,:4:6::f=713 :5;f,2;" ":f:5;1;1;9 ,6;"Program has finished.";11 ,4;"PRESS any key to restart.":1:15,120x:225,0:0,-579,.1}L:-225,0:0,568,.1}L z4:1,1:253,0:0,173:-253,0:0,-173:0:0 Lq$(1,14):q$(1)=i$(1):j=3g$=" Irregular." Ot$=q$(1)+" "+sk+" / 5."+g$:t=cc:8300l :fl=1:sk=0: %6::8100 *f=1212:f,0;(" Finding the AREA of a"+g$(10 )j4)+(" The AREA of a"+g$j=4):.05|Lso,f-10 :f:so100d 4f=211-2:f,0;k$:.1}Lso,f:f:f=1212:f,0;(" Finding the AREA of a"+g$(10 )j4)+(" The AREA of a"+g$j=4):(.25~-f/100d)so,f-10 :f C1120x:5::2650Z :5;"": Rg=13:g=112 ,3;"This section will give you";15,3;"some practice at finding";18,3;"the area of";(" irregular"j=3);g$(((9 j=2)+(10 j=1)+(6j=3)+(14j=4)));"s." Wg=214,3;"One way to measure area";17,3;"is to count how many squares";20,3;"are inside the shape." Yg=3j=314,3;"Read the following example";17,3;"and then try the questions.":g:878n \g=314,3;"A quicker way to find out";17,3;"the area of some shapes";20,3;"is to learn a formula." fs8100:23692\,-1:f=111 :5;21,31;" ":25:f:100d:g mZ14,2;" Here is the formula for ";17,2;" the Area of a ";g$;"." n502:5960H:  900: m1=16*(*8+7):m2=16*(*5+6):m3=16*(*5+6):j=4m2=m1+16*((240-m1)/16*)+16 bba=(m1-480)/16:ht=(m3-480)/16:ar=ba*ht/2:j=4ar=2*ar (ar)-ar0910 ,t=5j=2ar<26910 ,t=5j=4ar<524910 ,t=1j=2ar>16910 ,t=1j=4ar>32 910 )f=1t-1:ar=n(f)910 f:n(t)=ar: W480,47/,m1-1,47/,m2-1,m3-1,m2-m1+480,m3-1 0:4::o=2 #o;1;6;" Area Test Results. " 3gt=0:z$="################################" ?#o;5'z$;1;" Name. Score . Shape. ";z$  Vf=1cc:#o;6;(f=2*(f/2));r$(f);:gt=gt+r$(f,16):f [#o;5;z$:#o;'" Average mark ";(10 *gt/cc)/10 ;" / 5.":o=3'''' $O8100:"":#0;6;1;"'P' Print. Any other key- Go on." .=""1070. 8="P"o=3:1010 B"": 5:0:4::z$=" ":6;4,2;z$;5,2;" Do you want to have sound ";6,2;z$;7,2;" cues during this program? ";8,2;z$ z$=" ":6;12 ,3;z$;13 ,3;" Press 'y' ";14,3;z$;15,3;" for YES. ";16,3;z$ 6;12 ,17;z$;13 ,17;" Press 'n' ";14,17;z$;15,17;" for NO. ";16,17;z$ I1:15,144:217,0:15,103g:217,0:124|,103g:-23,-23:124|,103g:23,-23:23,80P:89Y,0:23,39':89Y,0:135,80P:89Y,0:135,39':89Y,0:0 =""1555 Fcz=:cz89Ycz121ycz78Ncz110n1555 "2so=0:cz=89Ycz=121yso=1 ,: J3:1:0:1::z$=" ":7;1,11 ;z$;2,11 ;" AREA. ";3,11 ;z$:2:89Y,166:69E,0:0,-21:-69E,0:0,21:0 Qz$=" ":6;5,3;z$;6,3;" Which type of shape ";7,3;z$;8,3;" do you want to look at ? ";9 ,3;z$ V_1:23,136:209,0:23,95_:209,0:0 Y6:12 ,1;" For an odd shape .. Press 'o'";16,1;" For a rectangle ... Press 'r'";14,1;" For a parallelogram Press 'p'";18,1;" For a triangle .... Press 't'" m3:8100 w=""1655w |xcz=:cz79Ocz111ocz80Pcz112pcz82Rcz114rcz84Tcz116t1655w %cz=82Rcz=114rj=1 %cz=84Tcz=116tj=2 %cz=79Ocz=111oj=3 %cz=80Pcz=112pj=4  0: kso200: pr= ur>.5.2~L,0:.2~L,2:.2~L,4:.2~L,5:.2~L,7:.3,9 :.2~L,11 :.2~L,12 zr.5.2~L,20:.2~L,22:.2~L,24:.2~L,25:.3,27:.2~L,29:.2~L,31:.2~L,32  so200: %1,0:2,-7: a=024016:1;a,16:1;1;0,128:a:a=1614416:1;0,a:1;1;240,0:a: b2900T :b=2*b12*b2+1:1;1;b,2*a1;y$:b:2200: .u1;7;0,0;" Length of rectangle = ";1+a2-a1;" sqs. "+(" "(1+a2-a1)<10 ) 3b=1:a=2*a12*a22:7;2*b2+2,a;b:20:a2*a22*b2+2,a;b Bb=b+1:a:7;0;0,24;1+a2-a1:2750 :1;7;1,0;k$;" Width of rectangle = ";1+b2-b1;" sqs. " Lb=1:a=2*b22*b1-2:7;a,2*a1-1;b:20:a2*b1a,2*a1-1;b QNb=b+1:a:7;0;2,24;1+b2-b1:100d V1;7;21,0;" So the area is ";1+a2-a1;" X ";1+b2-b1;" = ";7;0;sl;1;7;" sqs."+(" " 1+a2-a1<10 ) [2800 : j1;7;1;0,0;"Number: ";t;2,0;" Area of ";s$;" =";2,26;"sqs ":#1;" Key in your answer now ! ":pn=2:cn=19:8000@: ~0,0;"Your ANSWER is..... ";aw;" SQUARES.":5;2,0;(" That's CORRECT ! "sl=aw) .aw=slsk=sk+1:2150f:2800 uawsl2,0;"The RIGHT answer is ";sl;" SQUARES. "+(" "sl<10 ):2180:j=12345) \j=3awsl6;21,0;" Count the squares again ! ":2800  \G0;6;2,0;"********** REMEMBER! ***********" _1;5,0;k$;6;0;" The AREA of a shape is the amount of SURFACE that the shape covers. ";1;k$ do14,0;" This is usually measured by counting SQUARES." f2g=1921:4;g,0;k$:g i\sog=15:o=.05|L:f=02.5:o,f:o=o-0.005y# =:f:g k200:2750 : u#3:3::7:72H,175:100d,0:0,-40(:-100d,0:0,40(:72H,125}:5,5:-5,-5:5,-5:-5,5:100d,0:-5,5:5,-5:-5,-5 x203,135:5,5:-5,-5:-5,5:5,-5:0,40(:5,-5:-5,5:-5,-5 y0:7;6,12 ;"length.";2,23;"width.":1;6;8,0;k$;" Here is the formula to find the area of a rectangle.... " }7;1;12 ,0;k$;" The AREA of a ";1;"RECTANGLE";0;" = length x width. ";k$ 0,112p:255,0:0,-72H:-255,0:0,72H:200:7;3;18,0;k$;" Read the following example ";k$;" and then try the questions! " 1200:2750 :6;"":4:: /t=1:4000:2300:2345) %4;0;0,0;"**********";1,0;"*Example*";2,0;"**********";0,9 ;0;6;" AREA = Length x Width ";1,9 ;" = ";1+a2-a1;" x ";1+b2-b1;" ";2,9 ;" = ";sl;" Sqs. " 6;0;21,0;"To check count all the squares !":2750 ::fl=2:8200 :fl=12700  `#1;1;5;1;1;" PRESS any key to CONTINUE. ":0:"": J100d:#1;4;0;"'P' Print. Any other key- Go on." =""2820 ="P":2820 1;"": ^8y$="":a=2*a12*a2+1:y$=y$+" ":a: 200:800 :2675s :2700 :500:t=15:4000:2300:2400` :2430~ :t:cc=cc+1:700:9900&:8200 :30 zn(5):ex=0:s$=" shape. ":ct=0:sk=0:g$=" shape. ":4:4:0:0:: ex=1:4::6;0,0;" Count up the squares as the shape grows. " t=1:6400:ex=0:6;0,0;" You can see that altogether there are ";sl;" squares. " 6;21,0;" So the area is ";sl;" squares. ":2800 ::fl=2:8200 :fl=13550 s 1:1;"": `a1=(*8)+1:a2=(*(12 -a1))+3+a1:t<5a2-a1>64020 %t>4a2-a1<64020 _b1=(*4)+2:b2=(*(8-b1))+2+b1:t>4b2-b1<54040 #t=1a2-a1=b2-b14020 Rn(t)=(1+a2-a1)*(1+b2-b1):g=1t-1:n(t)=n(g)4020 /g:sl=n(t):t<3sl>304020 -s$="RECTANGLE":a2-a1=b2-b1s$="SQUARE "  }1;6;2;;0,0;" Press any key to continue. ":0:8100:0,0;k$: Mb#0;6;1;1;;" Press any key to continue. ":0::8100: p3500 :800 :3550 :500:t=15:6400:2400` :2430~ :t:cc=cc+1:700:9900&:8200 :30 $1:1;"":ex=0 2 6700, F-6800:mt=0sl=ct:2200: P6900:tg=1 Z 6470F 1a(9 ,16):f=116:a(1,f)=1:a(9 ,f)=1:f:f=28:a(f,1)=1:a(f,16)=1:f Er1=10 +2*(*2):c1=14+2*(*3):tr=5+2*(t-1)+(*10 )+10 *(t=5):ex=1tr=5+(*5) Or=1+(r1-4)/2:c=1+c1/2:a(r,c)=1:1;1;r1,c1;" ";r1+1,c1;" ":ct=1:ex=11;1;r1,c1+1;"1" ] mt=4:f(4) ;a(r-1,c)=1f(1)=1:mt=mt-1 ;a(r,c+1)=1f(2)=1:mt=mt-1 ;a(r+1,c)=1f(3)=1:mt=mt-1 ;a(r,c-1)=1f(4)=1:mt=mt-1 mt=0 `pk=1+(*mt):g(mt):ff=0:f=14:f(f)=0ff=ff+1:g(ff)=f  f:ff=g(pk) ff=1r=r-1 ff=2c=c+1 ff=3r=r+1 ff=4c=c-1 a(r,c)=1: tg=0:ct=ct+1:;1;1;2+2*r,2*c-2;" ";2+2*r+1,2*c-2;" ":ex=11;1;2+2*r,2*c-1;ct &ct=trtg=1:2200:sl=tr ! X200:800 :7500L:400:500:t=15:900:100d:250:600X:8000@:620l:t:cc=cc+1:700:9900&:8200 :30 V5:5;"":69E,126~:100d,0:30,40(:-100d,0:-30,-40(:69E,116t:5,5:-5,-5:5,-5:-5,5:100d,0:-5,5:5,-5:-5,-5 j6;1;7,12 ;" Base.":214,126~:5,5:-5,-5:-5,5:5,-5:0,40(:5,-5:-5,5:-5,-5:5,5 t/6;1;3,24;"Height." ~6;1;10 ,0;" The Area of a Parallelogram ";12 ,0;" is equal to ";0;7;15,0;" The Base X The Vertical Height." 6;1;9 ,0;k$;11 ,0;k$;13 ,0;k$;7;0;14,0;k$;16,0;k$:0,104h:255,0:0,-64@:-255,0:0,64@ 18,3;"Your teacher will explain";20,4;"why this formula works.":200:18,0;" Read the following example ";20,0;" and then answer the questions." 5960H: J$8100:aw=0:pv=0 O""8015O T8=""1;1;pn,cn+5;"*":8020T Yz$=:cz=z$ ^e(cz<480cz13 )(cz>579cz114rcz82R).1}Lso,-20:8015O h&cz=82Rcz=114r8080 mcz=13 8090 oA.1}Lso,20:vz=z$:vz=0pv=08015O waw=10 *aw+vz |pn,cn+4-pv;aw pv=pv+1 =pv=1"":#0;"R for rubout ENTER if Finished" @pv>3.3so,-20:pn,cn;"= ":8010J  8015O pv=08010J :aw=(aw/10 ):pn,cn+4-pv;" ":pv=pv-1 "aw0pn,cn+5-pv;aw  8015O /aw=0pn,cn+2;" ":8010J !0;pn,cn+5;" ":""  so <.33(8120 >.58125 C.1}L,5:.1}L,3:.2~L,10 :15: E.1}L,15:.1}L,13 :.2~L,20:15: E.1}L,25:.1}L,23:.2~L,30:15: G4:0:4:0::z$=" " 5;5,3;z$;6,3;" Choose WORK OR "+("RESULTS"fl=1)+("EXAMPLE"fl=2)+". ";7,3;z$ &B1:23,136:208,0:23,111o:208,0:15,80P:97a,0:15,39':97a,0:135,80P:105i,0:135,39':105i,0:124|,111o:40(,-40(:124|,111o:-40(,-40( :0:z$=" ":6;12 ,2;z$;13 ,2;" Press 'w' ";14,2;z$;15,2;" for WORK. ";16,2;z$:z$=z$+" " Dfl=16;12 ,17;z$;13 ,17;" Press 'r' ";14,17;z$;15,17;" for RESULTS.";16,17;z$ Efl=26;12 ,17;z$;13 ,17;" Press 'e' ";14,17;z$;15,17;" for EXAMPLE.";16,17;z$ F 8100 G""8263G I=""8265I Sc$=:c$="w"c$="W" X=c$"r"c$"R"fl2.2~Lso,-20:8263G Z=c$"e"c$"E"fl1.2~Lso,-20:8263G \fl=2fl=1:: ]&fl=1:1000:8200 qt=1r$(1)=t$: v)t$r$(1)r=0:8350 : {t$r$(t-1)r$(t)=t$: r=1t-1 't$r$(r)t$90Zcz<97a)cz>123{.1}Lso,-20:8525M! !a.1}Lso,20 !fcz=4808600! !h/cp=1lw=0cp=0:8640! !kcz=13 8620! !m$cz=32 lw=08525M! !pcz=32 cp=1 !uw$=w$+z$:lw=lw+1 !z5;0;pn,cn;w$ !=lw=1"":#0;"0 for rubout ENTER if Finished" !<lw>20lw=20:i$(1,lw):i$(1)=w$: ! 8525M! !lw=08605! !cp=1cp=0 !1(w$(lw)>64@Ưw$(lw)<91[)cp=1 !#w$=w$(lw-1):lw=lw-1 !pn,cn+lw+1;" " ! 8525M! !lw=08525M! ! i$(1,lw):i$(1)=w$ !'5;0;pn,cn+lw;".":"": !4(cz>96`cz<123{)cz=cz-32 :z$=cz ! 8555k! ! %Nk200:800 :300,:400:500:t=15:900:100d:250 %a600X:8000@:620l:t:cc=cc+1:700:9900&:8200 :30 & &f=1nb:a,b:a,b:f:  K Z