ZXTape! 2 Maths Part I - Side BScisoft1983English Educational6.00 ROM LoaderOriginal*TZXed by Steve Broad Infoseek ID = 0019354PLANE - -| / )0::"":0,0;"":"" PL @ m6lmm6mmm6lmm6mmm mammammm mammammm6lmm6mmm6lmm6mm` ma lal` ma lalmm`6mmmmmm`6mmmm` ma lal` ma lalm amlaml` ma lalmmammlm amlamlm `mlalmmamml` alalm `mlal` ma lal` alalm amlaml` ma lalm6l`mmlm amlaml ` lalm6l`mml` alaml ` lalm mamlal` alamlm `mlamlm mamlalm6l`lmlm `mlaml` ma lalm6l`lmlBB<fBB@B@Bb@@BBDbBZB~<B@BR|@BBBR@B~B|@~J@@B~BJNBBBB@@BF@@BBDFBBBB<@~BB~~B<8888888888888888888888888888888888888888888888888888888888888888ZPROG1 F*) H*5:5:1:  5 ,110;"SCISOFT" F=0 G=0  *14`,5 ;"EDUCATIONAL PROGRAMS"  100d  9000(# 0:4:0: n=15 m=15 7480+(n*30.5t),88X+(m*4),40( m n 59 ,6;1;" M A T H S "  150: 5:5:1:  6,9 ;"MATHEMATICS" 1,,,,1;"PLANE SHAPES: AREA AND PERIMETER" 21,0;" 1983"  200  -37`,1;"PLEASE TYPE IN YOUR NAME, THEN" 2,,8;"PRESS ENTER." 7Z$ 8Z$=""557 :Z$>18557 < A:2,3;1;"HELLO ";0;6;Z$ F$,,,," YOU WILL NOW BE GIVEN SOME" K!,," MATHS PROBLEMS TO SOLVE." U1,,,,,,1;"AFTER YOU HAVE ANSWERED 10 YOU" Z-,,1;" WILL BE GIVEN A SCORE. " _921,2;6;"PRESS ANY KEY TO CONTINUE." d""100H i=""105R n s-4;"PLEASE NOTE THAT IN THIS PROGRAM" C4,1;1;"1.";0;" THE VALUE FOR (GREEK" 56,0;"LETTER) SHOULD BE TAKEN AS 22/7." E9 ,1;1;"2.";0;" ANSWERS NEED BE GIVEN TO" ,,"ONE DECIMAL PLACE ONLY." H14,1;1;"3.";0;" ANSWERS WITHIN 0.1 WILL BE" ,,"CONSIDERED CORRECT." 821,2;6;"PRESS ANY KEY TO CONTINUE" ""160 =""165%   SC=0 I=110  :H=0 /X=((*13 )+1)*100d+900 A=(*20)+1 B=(*20)+1 C=(*20)+1 D=(*20)+1  H=H+1 H>1X  X-10 0:0: J=27 J ]80P,30:80P,0:0,80P:-80P,0:0,-80P "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I U5,2;"WHAT IS THE AREA OF A SQUARE";7,7;"WITH SIDE ";A;"?"  7000X  ANS=A*A  6000p  4000 B0:0: DJ=27:J E]80P,30:80P,0:0,80P:-80P,0:0,-80P J"20:J:40(::0 K1:5:5: L*3,11 ;4;"QUESTION ";I [5,2;"WHAT IS THE PERIMETER OF A ";7,4;"SQUARE WITH SIDE ";A;"?"  7000X ANS=4*A  6000p  4000 0:0: J=27:J ^100d,30:40(,0:0,80P:-40(,0:0,-80P "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I ~5,2;"WHAT IS THE PERIMETER OF A ";6,5;"RECTANGLE, LENGTH ";A;7,7;"AND BREADTH ";B;"?"  7000X ANS=2*(A+B)  6000p  4000  0:0:  J=27:J  ^100d,30:40(,0:0,80P:-40(,0:0,-80P "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I Pi5,0;"WHAT IS THE AREA OF A RECTANGLE, ";7,4;"LENGTH ";A;" AND BREADTH ";B;"?" U 7000X X ANS=A*B Z 6000p d 4000 n0:0: pJ=27:J qO100d,30:40(,0:-20,80P:-20,-80P v"20:J:40(::0 w1:5:5: x*3,11 ;4;"QUESTION ";I i5,1;"WHAT IS THE AREA OF A TRIANGLE ";7,2;"WITH HEIGHT ";A;" AND BASE ";B;"?"  7000X ANS=A*B/2  6000p  4000 0:0: J=27:J O100d,30:40(,0:-20,80P:-20,-80P "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I A+BCA+CBB+CA912 5,2;"WHAT IS THE PERIMETER OF A ";6,2;"TRIANGLE WITH SIDES ";A;",";B;7,10 ;" AND ";C;"?"  7000X  ANS=A+B+C " 6000p , 4000 60:0: 8J=27:J 9`80P,30:60<,0:30,80P:-60<,0:-30,-80P >"20:J:40(::0 ?1:5:5: @*3,11 ;4;"QUESTION ";I |5,2;"WHAT IS THE PERIMETER OF A ";6,3;"PARALLELOGRAM WITH SIDES ";7,8;A;",";B;",";A;" AND ";B;"?"  7000X ANS=2*(A+B)  6000p  4000 0:0: J=27:J `80P,30:60<,0:30,80P:-60<,0:-30,-80P "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I 5,6;"WHAT IS THE AREA OF A ";6,4;"PARALLELOGRAM WITH BASE ";A;7,3;"AND PERPENDICULAR HEIGHT ";B;"?"  7000X  ANS=A*B  6000p  4000 0:0: J=27:J a80P,30:80P,0:-10 ,80P:-20,0:-502,-80P "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I D5,3;"WHAT IS THE PERIMETER OF A ";6,5;"TRAPEZIUM WITH SIDES ";7,8;A;",";B;",";C;" AND ";D;"?" I 7000X L ANS=A+B+C+D N 6000p X 4000 b0:0: dJ=27:J ea80P,30:80P,0:-10 ,80P:-20,0:-502,-80P j"20:J:40(::0 k1:5:5: l*3,11 ;4;"QUESTION ";I 5,6;"WHAT IS THE AREA OF A ";6,2;"TRAPEZIUM WITH PARALLEL SIDES";7,6;"OF LENGTH ";A;" AND ";B;8,2;" AND PERPENDICULAR HEIGHT ";D;"?"  7000X ANS=(A+B)*D/2  6000p  4000 0:0: J=27:J 130,80P,70F "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I  A=A*7  c5,1;"WHAT IS THE AREA OF A CIRCLE OF ";7,5;"RADIUS ";A;" (=22/7) ";"?"  7000X ANS=22*A*A/7  6000p  4000 *0:0: ,J=27:J -130,80P,70F 2"20:J:40(::0 31:5:5: 4*3,11 ;4;"QUESTION ";I k A=A*7 pj5,1;"WHAT IS THE CIRCUMFERENCE OF A";7,1;"CIRCLE OF RADIUS ";A;" (=22/7)";"?" u 7000X xANS=44,*A/7 z 6000p  4000 0:0: J=27:J N100d,30:40(,0:-60<,80P:20,-80P "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I A+BCA+CBB+CA912 {5,5;"WHAT IS THE AREA OF A ";6,4;"TRIANGLE WITH SIDES ";A;",";B;7,10 ;" AND ";C;"?"  7000X S=(A+B+C)/2 ANS=(S*(S-A)*(S-B)*(S-C))  6000p  4000 I  <7,2;1;"DEAR ";0;6;Z$;"," 710 ,2;"YOU HAVE SCORED ";SC;" OUT OF 10"; , 250 P 8000z x19,5;Z$ 221(,2;"THIS IS YOUR PROGRESS REPORT" ""5300 =""5301  5 pJ$ zJ$=""6000p 'J$>579ůJ$=32 6000p J=J$  ANS=(ANS*100d)/100d J=ANS6045 !(J-ANS)<.099}J6045 <14,2;0;2;"SORRY YOU ARE WRONG"; )16,2;"THE ANSWER IS ";ANS;  6050 .14,2;4;"YOU ARE RIGHT "; 216,2;1;"THE ANSWER IS ";ANS; SC=SC+1 820,2;6;"PRESS ENTER TO CONTINUE."; Q$   X?12 ,0;4;"" Y @ J-7;"PLANE SHAPES: AREA AND PERIMETER" K 4 r*5,5;" " s#5 ;" " t#5 ;" " u"5 ;" " v"5 ;" " w"5 ;" " x"5 ;" " y"5 ;" " z"5 ;" " | 1 &,,"WELL DONE YOU ARE LIKELY TO PASS"  100d SC9  2 5 ,220;"L " 6,22;"L " 7,22;"L " 8,22;"L " 9 ,22;"L " 10 ,22;"L " 11 ,22;"L " 12 ,22;"L " 13 ,22;"LLLLL" &,,"YOU ARE NEARLY AT THE PASS LEVEL" & 100H vSC7` 5 ,17;" I " 6,17;" I " 7,17;" I " 8,17;" I " 9 ,17;" I " 10 ,17;" I " 11 ,17;" I " 12 ,17;" I " 13 ,17;" I " &,," YOU STILL HAVE SOME WORK TO DO " 100H SC5 !5 ,110;"AAAAA" !6,11 ;"A A" !7,11 ;"A A" !8,11 ;"AAAAA" !9 ,11 ;"A A" !10 ,11 ;"A A" !11 ,11 ;"A A" ! 12 ,11 ;"A A" ! 13 ,11 ;"A A" ! %,," COME ON YOU CAN DO BETTER " ! 100H !4SC3@ !f5 ,5 ;"FFFFF" !g5 ;"F " !h5 ;"F " !i5 ;"FFF " !j5 ;"F " !k5 ;"F " !l5 ;"F " !m5 ;"F " !n5 ;"F " !p%,," THIS RESULT IS VERY VERY POOR " !z 100H !5:1: ! #(J"M",0,0,2,124|,36$,36$,36$,0 #<a$ #Fa=07 #P b:a$+a,b #Za #n fgF#bZa hxcdAMSOLID 373 35:5:1:  5 ,110;"SCISOFT" F=0 G=0  *14`,5 ;"EDUCATIONAL PROGRAMS"  100d  9000(# 0:6:0: n=15 m=15 7480+(n*30.5t),88X+(m*4),40( m n 59 ,6;1;" M A T H S "  150: 5:5:1:  6,9 ;"MATHEMATICS" 0,,,,1;"SOLIDS: VOLUME AND SURFACE AREA" 21,0;" 1983"  200  -37`,1;"PLEASE TYPE IN YOUR NAME, THEN" 2,,8;"PRESS ENTER." 7Z$ 8Z$=""557 :Z$>18557 < A:2,3;1;"HELLO ";0;6;Z$ F$,,,," YOU WILL NOW BE GIVEN SOME" K!,," MATHS PROBLEMS TO SOLVE." U1,,,,,,1;"AFTER YOU HAVE ANSWERED 10 YOU" Z-,,1;" WILL BE GIVEN A SCORE. " _921,2;6;"PRESS ANY KEY TO CONTINUE." d""100H i=""105R n s-4;"PLEASE NOTE THAT IN THIS PROGRAM" C4,1;1;"1.";0;" THE VALUE FOR (GREEK" 46,0;"LETTER SHOULD BE TAKEN AS 22/7." E9 ,1;1;"2.";0;" ANSWERS NEED BE GIVEN TO" ,,"ONE DECIMAL PLACE ONLY." H14,1;1;"3.";0;" ANSWERS WITHIN 0.1 WILL BE" ,,"CONSIDERED CORRECT." 821,2;6;"PRESS ANY KEY TO CONTINUE" ""160 =""165%   SC=0 I=110  :H=0 /X=((*14)+1)*100d+900 A=(*11 )+1 B=(*11 )+1 C=(*20)+1 D=(*20)+1  H=H+1 H>1X  X-10 0:0: J=27:J ]80P,30:80P,0:0,80P:-80P,0:0,-80P ^130,80P:80P,0:0,80P:-80P,0:0,-80P &80P,30:502,502 '160,30:502,502 (160,110n:502,502 '80P,110n:502,502 "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I \5,1;"WHAT IS THE VOLUME OF A CUBE";7,4;"WITH SIDE LENGTH ";A;"?"  7000X  ANS=A*A*A  6000p  4000 B0:0: CJ=27:J D]80P,30:80P,0:0,80P:-80P,0:0,-80P E^130,80P:80P,0:0,80P:-80P,0:0,-80P F&80P,30:502,502 G'160,30:502,502 H(160,110n:502,502 I'80P,110n:502,502 J"20:J:40(::0 K1:5:5: L*3,11 ;4;"QUESTION ";I b5,1;"WHAT IS THE SURFACE AREA OF A";7,3;"CUBE WITH SIDE LENGTH ";A;"?"  7000X ANS=6*A*A  6000p  4000 0:0: J=27:J ]80P,30:80P,0:0,40(:-80P,0:0,-40( ^120x,70F:80P,0:0,40(:-80P,0:0,-40( &80P,30:40(,40( '160,30:40(,40( '160,70F:40(,40( &80P,70F:40(,40( "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I 5,4;"WHAT IS THE VOLUME OF A ";7,1;"CUBOID WITH SIDE LENGTHS ";A;", ";B;9 ,12 ;"AND ";C;"?"  7000X  ANS=A*B*C  6000p  4000  0:0:  J=27:J  ]80P,30:80P,0:0,40(:-80P,0:0,-40(  ^120x,70F:80P,0:0,40(:-80P,0:0,-40( &80P,30:40(,40( '160,30:40(,40( '160,70F:40(,40( &80P,70F:40(,40( "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I P5,1;"WHAT IS THE SURFACE AREA OF A";7,1;"CUBOID OF SIDE LENGTHS ";A;", ";B;9 ,12 ;"AND ";C;"?" U 7000X XANS=2*(A*B+A*C+B*C) Z 6000p d 4000 n0:0: pJ=27:J qN70F,20:40(,0:-20,80P:-20,-80P rO140,90Z:40(,0:-20,80P:-20,-80P st70F,20:70F,70F:110n,20:70F,70F:90Z,100d:70F,70F v"20:J:40(::0 w1:5:5: x*3,11 ;4;"QUESTION ";I 5,1;"WHAT IS THE VOLUME OF A PRISM";7,1;"WITH LENGTH ";A;" AND AREA OF END";9 ,12 ;"SECTION ";B;"?"  7000X  ANS=A*B  6000p  4000 0:0: J=27:J N70F,20:40(,0:-20,80P:-20,-80P O140,60<:40(,0:-20,80P:-20,-80P t70F,20:70F,40(:110n,20:70F,40(:90Z,100d:70F,40( "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I 7(7*A/22)<(7*B/44,)912 5,1;"WHAT IS THE SURFACE AREA OF A ";6,1;"PRISM WITH AREA OF END FACE ";A;",";7,5;"PERIMETER OF END FACE ";B;8,10 ;"AND LENGTH ";C;"?"  7000X  ANS=2*A+B*C " 6000p , 4000 60:0: 8J=27:J 9:75K,502,30:175,100d,30 :N70F,80P:100d,502:80P,20:100d,502 >"20:J:40(::0 ?1:5:5: @*3,11 ;4;"QUESTION ";I |5,1;"WHAT IS THE VOLUME OF A RIGHT";7,2;"CIRCULAR CYLINDER WITH BASE ";9 ,4;"RADIUS ";A;" AND HEIGHT ";B;"?"  7000X ANS=A*A*B*22/7  6000p  4000 0:0: J=27:J :75K,502,30:175,100d,30 N70F,80P:100d,502:80P,20:100d,502 "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I 5,1;"WHAT IS THE SURFACE AREA OF A";7,1;"RIGHT CIRCULAR CYLINDER WITH ";9 ,1;"BASE RADIUS ";A;" AND HEIGHT ";B;"?"  7000X /ANS=44,*A*A/7+44,*A*B/7  6000p  4000 0:0:  6 5K=140(4:120x,70F,K:K 40(::0 1:5:5: *3,11 ;4;"QUESTION ";I DZ5,1;"WHAT IS THE VOLUME OF A SPHERE ";7,8;"WITH RADIUS ";A;"?" I 7000X LANS=88X*A*A*A/21 N 6000p X 4000 b0:0: d 6 e5K=140(4:120x,70F,K:K j40(::0 k1:5:5: l*3,11 ;4;"QUESTION ";I b5,1;"WHAT IS THE SURFACE AREA OF A ";7,5;"SPHERE WITH RADIUS ";A;"?"  7000X ANS=A*A*88X/7  6000p  4000 0:0: J=27:J Y100d,502,30:87W,78N:108l,26:-72H,-74J "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I B579ůJ$=32 6000p J=J$  ANS=(ANS*100d)/100d J=ANS6045 !(J-ANS)<.099}J6045 <14,2;0;2;"SORRY YOU ARE WRONG"; )16,2;"THE ANSWER IS ";ANS;  6050 .14,2;4;"YOU ARE RIGHT "; 216,2;1;"THE ANSWER IS ";ANS; SC=SC+1 820,2;6;"PRESS ENTER TO CONTINUE."; Q$   X?12 ,0;4;"" Y @ J,7;"SOLIDS: VOLUME AND SURFACE AREA" K 4 r*5,5;" " s#5 ;" " t#5 ;" " u"5 ;" " v"5 ;" " w"5 ;" " x"5 ;" " y"5 ;" " z"5 ;" " | 1 &,,"WELL DONE YOU ARE LIKELY TO PASS"  100d SC9  2 5 ,220;"L " 6,22;"L " 7,22;"L " 8,22;"L " 9 ,22;"L " 10 ,22;"L " 11 ,22;"L " 12 ,22;"L " 13 ,22;"LLLLL" &,,"YOU ARE NEARLY AT THE PASS LEVEL" & 100H vSC7` 5 ,17;" I " 6,17;" I " 7,17;" I " 8,17;" I " 9 ,17;" I " 10 ,17;" I " 11 ,17;" I " 12 ,17;" I " 13 ,17;" I " &,," YOU STILL HAVE SOME WORK TO DO " 100H SC5 !5 ,110;"AAAAA" !6,11 ;"A A" !7,11 ;"A A" !8,11 ;"AAAAA" !9 ,11 ;"A A" !10 ,11 ;"A A" !11 ,11 ;"A A" ! 12 ,11 ;"A A" ! 13 ,11 ;"A A" ! %,," COME ON YOU CAN DO BETTER " ! 100H !4SC3@ !f5 ,5 ;"FFFFF" !g5 ;"F " !h5 ;"F " !i5 ;"FFF " !j5 ;"F " !k5 ;"F " !l5 ;"F " !m5 ;"F " !n5 ;"F " !p%,," THIS RESULT IS VERY VERY POOR " !z 100H !5:1: ! #(J"M",0,0,2,124|,36$,36$,36$,0 #<a$ #Fa=07 #P b:a$+a,b #Za #n fgF#bZK hx4cd)(en,J7QAMhGEN 0/705:5:1:  5 ,110;"SCISOFT" F=0 G=0  *14`,5 ;"EDUCATIONAL PROGRAMS"  100d  9000(# 0:3:0: n=15 m=15 7480+(n*30.5t),88X+(m*4),40( m n 59 ,6;1;" M A T H S "  150: 5:5:1:  6,9 ;"MATHEMATICS" 1,,,,1;" VOLUMES AND AREAS: GENERAL " 21,0;" 1983"  200  -37`,1;"PLEASE TYPE IN YOUR NAME, THEN" 2,,8;"PRESS ENTER." 7Z$ 8Z$=""557 :Z$>18557 < A:2,3;1;"HELLO ";0;6;Z$ F$,,,," YOU WILL NOW BE GIVEN SOME" K!,," MATHS PROBLEMS TO SOLVE." U1,,,,,,1;"AFTER YOU HAVE ANSWERED 10 YOU" Z-,,1;" WILL BE GIVEN A SCORE. " _921,2;6;"PRESS ANY KEY TO CONTINUE." d""100H i=""105R n s-4;"PLEASE NOTE THAT IN THIS PROGRAM" C2,1;1;"1.";0;" THE VALUE FOR (GREEK" 54,0;"LETTER) SHOULD BE TAKEN AS 22/7." E7,1;1;"2.";0;" ANSWERS NEED BE GIVEN TO" ,,"ONE DECIMAL PLACE ONLY." H12 ,1;1;"3.";0;" ANSWERS WITHIN 0.1 WILL BE" ,,"CONSIDERED CORRECT." m17,1;1;"4.";0;" UNITS SHOULD NOT BE USED BUT",,"DO NOT FORGET THEM IN THE EXAM." 821,2;6;"PRESS ANY KEY TO CONTINUE" ""160 =""165%   SC=0 I=110  /X=((*10 )+1)*100d+900 A=(*11 )+1 B=(*11 )+1 C=(*20)+1 D=(*20)+1  X-10 0:0:  6: 5K=140(4:120x,70F,K:K (100d:1:5:5: *3,11 ;4;"QUESTION ";I A=A*B 7,0;"CALCULATE THE RADIUS OF A SPHERE";8,4;"WITH SURFACE AREA ";A;"cm.";10 ,4;"GIVE YOUR ANSWER IN cm."  7000X ANS=(A*7/88X)  6000p  4000 B0:0: DJ=27:J E]80P,30:80P,0:0,40(:-80P,0:0,-40( F^130,80P:80P,0:0,40(:-80P,0:0,-40( G80P,30:502,502:160,30:502,502:160,70F:502,502:80P,70F:502,502 J"20:J:40(::0 K1:5:5: L*3,11 ;4;"QUESTION ";I 5,0;"THE EDGES OF A RECTANGULAR BLOCK";6,0;"ARE ";A;"m, ";B;"cm AND ";C;"cm.";8,0;"FIND ITS VOLUME IN cm."  7000X ANS=100d*A*B*C  6000p  4000 0:0: J=27:J N80P,30:80P,0:-80P,140:0,-140 "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I  A>BB=B+A 5,2;"IN A TRIANGLE ABC, AB=";A;"cm,";6,2;"AC=";B;"cm AND ANGLE B IS 90.";9 ,2;"CALCULATE THE AREA OF THE";10 ,2;"TRIANGLE IN cm."  7000X ANS=(B*B-A*A)*A/2  6000p  4000  0:0: J=27:J 100d,30:40(,0:0,80P:-40(,0:0,-80P:140,110n:-40(,0, "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I PM4,0;"A CONTAINER CONSISTS OF A CYLIN-";5,0;"DRICAL PART OF INTERNAL RADIUS";6,0;A;"cm AND INTERNAL HEIGHT ";B;"cm";7,0;"WITH A HEMISPHERICAL TOP OF";8,0;"INTERNAL RADIUS ";A;"cm.";10 ,0;"WHAT IS THE CAPACITY OF THE";11 ,0;"CONTAINER IN cm.?" U 7000X XANS=A*A*B*22/7 Y!ANS=ANS+44,*A*A*A/21 Z 6000p d 4000 n0:0: pJ=27:J qN70F,20:40(,0:-20,80P:-20,-80P rO140,60<:40(,0:-20,80P:-20,-80P st70F,20:70F,40(:110n,20:70F,40(:90Z,100d:70F,40( v"20:J:40(::0 w1:5:5: x*3,11 ;4;"QUESTION ";I  C=6*C "5,0;"A SOLID TRIANGULAR PRISM HAS";6,0;"BASE WIDTH ";A;"cm, HEIGHT ";B;"cm AND";7,0;"LENGTH ";C;"cm. IT IS RECAST INTO";8,0;"A CYLINDRICAL BAR OF LENGTH ";9 ,0;D;"cm.";" FIND THE RADIUS OF THE BAR";10 ,0;"IN cm."  7000X ANS=7*A*B*C/44,/D  ANS=(ANS)  6000p  4000 0:0: J=27:J ^100d,30:40(,0:0,80P:-40(,0:0,-80P 120x,70F,30 "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I &5,0;"A CIRCLE AND RECTANGLE HAVE THE";6,0;"SAME AREA. THE CIRCLE HAS RADIUS";7,0;A;"cm AND THE LENGTH OF THE RECT- ";8,0;"ANGLE IS EQUAL TO THE DIAMETER";9 ,0;"OF THE CIRCLE. FIND THE WIDTH OF";10 ,0;"THE RECTANGLE."  7000X  ANS=11 *A/7 " 6000p , 4000 60:0: 8J=27:J 9Y100d,502,30:87W,78N:108l,26:-72H,-74J >"20:J:40(::0 ?1:5:5: @*3,11 ;4;"QUESTION ";I rB=B*C |5,0;"A CONE OF PERPENDICULAR HEIGHT";6,0;A;"cm HAS A VOLUME OF ";B;"cm.";7,0;"WHAT IS THE RADIUS OF THE BASE?"  7000X ANS=B*21/A/22  ANS=(ANS)  6000p  4000 0:0: J=27:J ]80P,30:80P,0:0,80P:-80P,0:0,-80P ^130,80P:80P,0:0,80P:-80P,0:0,-80P 80P,30:502,502:160,30:502,502:160,110n:502,502:80P,110n:502,502 ^105i,557:40(,0:0,40(:-40(,0:0,-40( ]80P,30:40(,0:0,40(:-40(,0:0,-40( 80P,30:25,25:120x,30:25,25:120x,70F:25,25:80P,70F:25,25 "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I  ABB=B+A 5,0;"A SOLID CUBE OF SIDE ";A;"cm IS";6,0;"CUT FROM A SOLID CUBE OF SIDE ";7,0;B;"cm. WHAT VOLUME REMAINS?"  7000X ANS=B*B*B-A*A*A  6000p  4000 0:0: J=27:J ]80P,30:80P,0:0,80P:-80P,0:0,-80P ^130,80P:80P,0:0,80P:-80P,0:0,-80P 80P,30:502,502:160,30:502,502:160,110n:502,502:80P,110n:502,502 ;120x,70F,20:170,120x,20 N115s,90Z:502,502:125},502:502,502 "20:J:40(::0 1:5:5: *3,11 ;4;"QUESTION ";I : BAA=A+B D5,0;"A CUBE OF SIDE ";A;"cm HAS A";6,0;"CYLINDRICAL HOLE OF DIAMETER ";7,0;B;"cm DRILLED THROUGH IT.";9 ,0;"WHAT VOLUME REMAINS?" I 7000X L#ANS=A*A*A-22*A*B*B/28 N 6000p X 4000 b0:0: dJ=27:J e_60<,30:120x,0:0,40(:-120x,0:0,-40( f>1:M=1617:M,8;"":M j"20:J:40(::0 k1:5:5: l*3,11 ;4;"QUESTION ";I A=A*1000 5,0;A;" LITRES OF WATER ARE POURED";6,0;"INTO A TANK OF LENGTH ";B;"m";7,0;"AND WIDTH ";C;"m.";9 ,0;"FIND ITS DEPTH IN cm."  7000X A=A*1000 ANS=A/B/C/10000'  6000p  4000 I  <7,2;1;"DEAR ";0;6;Z$;"," 710 ,2;"YOU HAVE SCORED ";SC;" OUT OF 10"; , 250 P 8000z x19,5;Z$ 221(,2;"THIS IS YOUR PROGRESS REPORT" ""5300 =""5301  25 pJ$ zJ$=""6000p 'J$>579ůJ$=32 6000p J=J$  ANS=(ANS*100d)/100d J=ANS6045 !(J-ANS)<.099}J6045 <14,2;0;2;"SORRY YOU ARE WRONG"; )16,2;"THE ANSWER IS ";ANS;  6050 .14,2;4;"YOU ARE RIGHT "; 216,2;1;"THE ANSWER IS ";ANS; SC=SC+1 820,2;6;"PRESS ENTER TO CONTINUE."; Q$   X?12 ,0;4;"" Y @ J-7;" VOLUMES AND AREAS: GENERAL " K 4 r*5,5;" " s#5 ;" " t#5 ;" " u"5 ;" " v"5 ;" " w"5 ;" " x"5 ;" " y"5 ;" " z"5 ;" " | 1 &,,"WELL DONE YOU ARE LIKELY TO PASS"  100d SC9  2 5 ,220;"L " 6,22;"L " 7,22;"L " 8,22;"L " 9 ,22;"L " 10 ,22;"L " 11 ,22;"L " 12 ,22;"L " 13 ,22;"LLLLL" &,,"YOU ARE NEARLY AT THE PASS LEVEL" & 100H vSC7` 5 ,17;" I " 6,17;" I " 7,17;" I " 8,17;" I " 9 ,17;" I " 10 ,17;" I " 11 ,17;" I " 12 ,17;" I " 13 ,17;" I " &,," YOU STILL HAVE SOME WORK TO DO " 100H SC5 !5 ,110;"AAAAA" !6,11 ;"A A" !7,11 ;"A A" !8,11 ;"AAAAA" !9 ,11 ;"A A" !10 ,11 ;"A A" !11 ,11 ;"A A" ! 12 ,11 ;"A A" ! 13 ,11 ;"A A" ! %,," COME ON YOU CAN DO BETTER " ! 100H !4SC3@ !f5 ,5 ;"FFFFF" !g5 ;"F " !h5 ;"F " !i5 ;"FFF " !j5 ;"F " !k5 ;"F " !l5 ;"F " !m5 ;"F " !n5 ;"F " !p%,," THIS RESULT IS VERY VERY POOR " !z 100H !5:1: ! #(("L",0,112p,80P,112p,0,0,0,0,"K",112p,16,480,16,112p,0,0,0,"J",32 ,80P,16,32 ,112p,0,0,0,"M",0,0,2,124|,36$,36$,36$,0 #2X=14 #<A$ #FA=07 #P B:A$+A,B #ZA #dX #n fg2#F#b cd8n0 )(J1QZaAMW