ZXTape! 0Created with Ramsoft MakeTZXareas X 9 & Z 2:6:6: Q128,192,224,240,248,252,254,255 H1,3,7,15,31,63?,127,255  20  y="a""c"-1:x:y,x:y (60<:57999 )c23613=\+256*23614>\,0:23613=\+1+256*23614>\,0: 2&a=65110V65128h:b:a,b:a 70c:c=c+65128h:a=65129ic:b:a,b:a ,9 ,237,71G,237,94^,201 Fk0,0,0,62>,62>,237,71G,237,86V,201,0,0 d47/,229,213,197,245,33!,0,64@,6,8,197,229,6,8,197,126~,229,245,1,31,0,84T,93],35#,237,176,241,18,225,193,36$,16,237,225,1,32 ,0,9 ,193,16,225,241,193,209,225,195,568,0 x65135o,72H }65137q,8 *1;5,9 ;"INTERMEDIATE" >1:19,7;"AREAS";19,15;"SETS" C18,2;"PERIMETERS";18,17;"VENN DIAGRAMS" G17,0;"SIMPLE EQUATIONS";17,21;"PERCENTAGES" #2;09 ,25;"" #2;10 ,25;" " '2;11 ,25;" " '2;12 ,25;"" #2;13 ,25;""  2 o68D,8*17+4:104h,0:0,-16:-104h,0:0,16 o65A,8*17+7:110n,0:0,-22:-110n,0:0,22  1 08,2;" " #09 ,2;"" 10 ,2;" "  2 09 ,7;" " 81;10 ,6;"";6;" " #11 ,6;""  4 12;10 ,10 ;"";6;""  ,2;11 ,11 ;6;" "  $6;12 ,10 ;" "  3 11 ,14;" " 12 ,14;"" 13 ,14;" "  5 13;12 ,18;"";6;"" 13;13 ,18;"";6;"" 14,18;"" % 2 _65135o,80P `65137q,8 a 65110V g 63? 65120` 2;20,6;" Rose Software 1984";9 ;21,1;"Program loading";1;21,18;" Please wait " T0,0;:6:6:"gr""a",168:0,0;:"a": 7bcfgr X<~~~~~|||||<80>8|||8|`````p??0033 3300?? 33333333a %$t"% ROSE SOFTWARE Sept.1982  5 *23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:6:9 :6:20,6;" ";21,0;" STOP TAPE & press ENTER ":0:5;21,4;" Please key in your name ":9900&  6  500 b$=" THE AREA OF A:- " Ho$=" ":t=0:u=0:v=0 ""15 =""18 q$=:q$="y"1715  600X 2j=(*4)+4:j:j:9 :1: ! h=0 '("WHAT IS THE AREA OF THIS FIGURE?" *(j=m:m=8j=(*7)+1 --l=(*9 )+1:j=775K 0mi=08:i+2,1;"|":i:1,1;"_":1:10 ,1;"_":0 36,0;l;" cm" 9"b=2*((*6)+1) <j=3b=l ?j=4b=l579 Bj=6b=2579 E011 ,10 +5*(j=6);b;" cm" Hk=l*b K+502*j+150+502*(j=7) Q(21,1;"NEED HELP? Press h" T:13 ,0;" KEY IN YOUR ANSWER (in sq.cms.)" Wq$ Zq$="h"190 ]q$>1487W ^q$=""87W _1j7(q$<491ůq$>579)87W `p13 ,0;" ";14,0;"Your answer ";q$:j7109m cq$=k+167136 gk=1q$=""136 j 110n mq$=k136 n215,0;"SORRY, CORRECT ANSWER IS ";K; o;j=715,25+(k1)+(k>9 );"" sv=v+1:t=t-1 v).5,-10 :1.5@,-20 xGi=1921:i,0;" ":i y016,0;" SINCE ";b$:1800 z:b$ {,1700:i=0j-1:a$:i:a$ |Ej=6"DIMENSIONS ";c;",";b;" and ";l;"cm (height)":127 }5j=7"DIMENSIONS ";l;"cm (radius)":127 ~*"DIMENSIONS ";b;"cm by ";l;"cm (height)" <"Your answer (wrong) ";q$;" (sq.cm)":j=7129 0"Correct answer is: ";k;" (sq.cm)":130 &"Correct answer is: ";k;" (sq.cm)" 3::"________________________________":148 .1;16,0;" WELL DONE " u=u+1:t=t+1 Z.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 18,0;o$;o$ 20,0;o$;o$ 721,0;"Press any key":0:700 :i=031:ٺ(*6);0,i;"#";21,i;"#":i:i=120:ٺ(*6);i,0;"#";i,31;"#":i:8,1;"So far you have ";u;" correct";10 ,13 ;"and ";v;" incorrect" -14,9 ;" More ?  y or n" =""156 q$=:q$"y"q$"n"156 q$="y"30 4:9 ,3;" Go back to menu?  y or n" ""167 =""168 q$=:q$="y"24 0:7:0:3::"";17,0;"" i=116 Ki,0;"";i,31;"":i:3;18,0;o$;o$;o$;o$ 82,9 ;" CERTIFICATE " 5,2;" NAME:  ";N$((N$-((N$>17)*(N$-17)))) _7,2;" DATE:  ";M$((M$-((M$>17)*(M$-17)))) =9 ,2;" PROGRAM:  ""AREAS""" !11 ,5;"CORRECT: ";U #13 ,3;"INCORRECT: ";V U+V=0181 715,2;"PERCENTAGE: ";(100d*U/(U+V)) 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0  #20,9 ;"Press any key" =""187  h=196` 621,0;" " :19-(j=5)-(j=6),0;b$:1800 h=1:84T O480,88X:100d,0:-70F,70F:-30,-70F k=k/2: N568,88X:100d,0:-100d,70F:0,-70F k=k/2: ,]568,88X:70F,0:0,70F:-70F,0:0,-70F 2 ^_480,88X:110n,0:0,70F:-110n,0:0,-70F g b480,88X:100d,0:502,70F:-100d,0:-502,-70F  b480,88X:160,0:-502,70F:-60<,0:-502,-70F "c=b-2-2*(b=12 ) 1,14;c;" cm" k=(b+c)/2*l: a=58012 0:0:6 6000p:z$=""506  n$=z$:n$: :21,0;" NOW today's date (in any form) "  6000p:z$=""522   m$=z$:m$:: 621,0;" Instructions? y or n "  9 : &72H,120x,40( )F6,9 ;l;" cm":1:6,9 ;"_____":0 ,~4,20;"Key in your";5,20;"answer as";6,20;"2,3,etc.";7,20;"using key" / k=l*l: X:0,8;" MENU FOR AREAS ";3,0;"Choice of:-";6,0;"1. Triangle",,"2. Right-angled triangle","3. Square",,"4. Rectangle",,"5. Parallelogram","6. Trapezium",,"7. Circle",,"8. Random selection" ^=17,6;" Press key 1 to 8 ":""606^ _=""607_ ` q$=:q$<"1"q$>"8"607_ a""609a d m=q$: S6:6:1::1;6;1;" WIN THE RACE ":0 79 ;2,0;"With five correct answers" t<0t=0 Z0;4;0;17,0;"";1 v6:2:17,25;"|";16,25;"|";15,25;"|" j=140(:j i=5*t+(t=0) k=1i2 w0:6:13 ,k-1;"";14,k-1;"";15,k-1;"";16,k-1;""  5 h13 ,k-1;" ";14,k-1;"";15,k-1;"";16,k-1;"" k=i-1k=i725 q3:13 ,k-1;" ";14,k-1;" ";15,k-1;" ";16,k-1;" " k j=25 11 +j,k;" ":j R13 ,k-1;" ";17,0;"":j=140(:j t=5736 j=1502:j   t=0 502,130:0,-502:25,25:25,-25:0,502:130,130:0,-502:150,80P:0,502:35#,-502:0,502:0 .5,2,.5,2,1,7,1,7,.5,2,.5,2,1,7,1,7,.5,9 ,.5,9 ,1,11 ,1,11 ,.5,9 ,.5,9 ,1,11 ,1,11 ,1,14,2,14,1,14,2,14,.5,14,.5,12 ,1,11 ,1,11 ,.5,11 ,.5,9 ,1,7,1,7 4740:i=128:z,y:z/2,y:i  "triangle = 1/2 base x perpendicular height","right-angled triangle = 1/2 base x height" R"square = length of one side x itself","rectangle = length x breadth" Z"parallelogram = base x perpendicular height" d"trapezium = 1/2 of the sum of the parallel sides x perpendicular height" #"circle = x radius x radius",""  2k=12:0,10 ;"""AREAS""" 2,0;b$: j=4*k-34*k j8j;")"  1800 j (20,0;"Press any key to "; j<7"continue" j>6"start" 0::k: .1700:i=0j-1:a$:i:a$: Ta=58012:"areas"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:21,0;" " B221,(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 aNkkkkkZjjjjjjY MjjjjjjB THE AREA OF A:- O tuvQyArectangle = length x breadthmperimetersX 9 toZ 2:6:6: Q128,192,224,240,248,252,254,255 H1,3,7,15,31,63?,127,255  20  y="a""c"-1:x:y,x:y (60<:57999 )c23613=\+256*23614>\,0:23613=\+1+256*23614>\,0: 2&a=65110V65128h:b:a,b:a 70c:c=c+65128h:a=65129ic:b:a,b:a ,9 ,237,71G,237,94^,201 Fk0,0,0,62>,62>,237,71G,237,86V,201,0,0 d47/,229,213,197,245,33!,0,64@,6,8,197,229,6,8,197,126~,229,245,1,31,0,84T,93],35#,237,176,241,18,225,193,36$,16,237,225,1,32 ,0,9 ,193,16,225,241,193,209,225,195,568,0 x65135o,72H }65137q,8 *1;5,9 ;"INTERMEDIATE" >1:19,7;"AREAS";19,15;"SETS" C18,2;"PERIMETERS";18,17;"VENN DIAGRAMS" G17,0;"SIMPLE EQUATIONS";17,21;"PERCENTAGES" #2;09 ,25;"" #2;10 ,25;" " '2;11 ,25;" " '2;12 ,25;"" #2;13 ,25;""  2 o68D,8*17+4:104h,0:0,-16:-104h,0:0,16 o65A,8*17+7:110n,0:0,-22:-110n,0:0,22  1 08,2;" " #09 ,2;"" 10 ,2;" "  2 09 ,7;" " 81;10 ,6;"";6;" " #11 ,6;""  4 12;10 ,10 ;"";6;""  ,2;11 ,11 ;6;" "  $6;12 ,10 ;" "  3 11 ,14;" " 12 ,14;"" 13 ,14;" "  5 13;12 ,18;"";6;"" 13;13 ,18;"";6;"" 14,18;"" % 2 _65135o,80P `65137q,8 a 65110V g 63? 65120` 2;20,6;" Rose Software 1984";9 ;21,1;"Program loading";1;21,18;" Please wait " T0,0;:6:6:"gr""a",168:0,0;:"p": 7bcwgr XM ```cccccccccccc```<~~<````p??0033 3300?? 33333333p +=*h  + A.COWLEY Sept.1982 6:6::5 *23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:6:9 :6:20,6;" ";21,0;" STOP TAPE & press ENTER ":0:5;21,4;" Please key in your name ":9900& 6:500 Ho$=" ":u=0:v=0:t=0 "b$(2,17):l(4) #b$(1)=" PERIMETER " #b$(2)=" CIRCUMFERENCE " ;a$=" THE CIRCUMFERENCE  OF A CIRCLE = 2 x x RADIUS" ""24 =""25 q$=:q$"y"q$"n"24 q$="y"600X ! 1000 $h=0:w=0 'j=(*5)+1 *Ti=12:l(i)=(*5)+1:l(i+2)=(*4)+6:i -E" WHAT IS THE";b$(1+(j=5));"OF THIS FIGURE?" 0502*j+200 2:16,0;" ENTER  your working ? y or n " 3%w016,8;"more" 6""546 7=""557 8#q$=:j=5q$="h"190 9q$"y"q$"n"546 :q$="y"200 ;616,0;" " <>20,0;" ENTER  YOUR ANSWER NOW(Omit cm)" =q$:q$=""61= >j=5q$="h"190 @7j5(q$(1)<"1"q$(1)>"9")61= Bq$>9 61= CAj=515,0;" " DGi=1621:i,0;" ":i E17,0;"Your answer ";q$:j=515,0;o$:i=25:i,25;" ";i+4,0;" ":i:17,30;"" Hj581Q Kq$=k+167116t N 100d Qq$=k116t d%" Sorry, correct answer is ";k; ej=5" " fv=v+1:t=t-1 g).5,-10 :1.5@,-20 h3:"PERIMETERS":"Your answer (wrong) ";q$;" (cm)" o9j=5"Correct answer is: ";k;" (cm)":115s p""Correct answer is: ";k;" (cm)" s3:"________________________________"::120x t(" Well done  " u u=u+1 v t=t+1 wZ.2~L,2:.2~L,2:.2~L,4:.2~L,4:.5,9 z 6;21,8;" Press any key ":0:700:6::i=031:ٺ(*6);0,i;"";21,i;"":i:i=120:ٺ(*6);i,0;"";i,31;"":i:9 ,2;"So far,you have ";u;" correct" {*11 ,14;"and ";v;" incorrect" |>6;15,9 ;" More? y or n ":""124| }=""125}  q$=:q$"y"q$"n"124| q$="y"30 3:7:9 : %2,6;" CERTIFICATE " #5,2;" Name: ";n$ #7,2;" Date: ";m$ +9 ,2;" Program: 'PERIMETERS'" "11 ,5;"Correct: ";u $13 ,3;"Incorrect: ";v u+v=0177 815,2;"Percentage: ";(100d*u/(u+v)) >1:0,0;"" 617,0;"" i=116 Ki,0;"";i,31;"":i:3;18,0;o$;o$;o$;o$ z=16:ٺ(*8):2,6;"*";2,22;"*":ٺ(*8):2,7;"*";2,23;"*":ٺ(*8):2,8;"*";2,24;"*":30:z 99 :2,6;"***";2,22;"***" ':21,8;" Press any key " =""187 ""188  h=168D =h=1:15,0;a$;" ":60< X20,0;" ";16,20;" " q$ j=5q$="h"190 #w+1+q$>92\w=0 917+(w/31),w-(w/31)*31;q$;" " w=w+1+q$ Aj=515,0;" " 502 h3,15;l(3);"cm";5,21;l(1);"cm";12 ,15;l(2);"cm" ei=411 :i,9 ;".":i:1:4,9 ;"-";11 ,9 ;"_":0 "8,9 ;l(4);"cm" 120x,80P:15,0:0,45-:25,0:0,15:-65A,0:0,-15:25,0:0,-45- %k=2*(l(3)+l(4)): ,E3,13 ;l(1);"cm";3,18;l(1);"cm" /ii=512 :i,10 ;"|":i:1:4,10 ;"_":12 ,10 ;"_":0 28,8;l(2)+l(4);"cm";14,13 ;"--";2*l(1)+l(3);"cm";14,19;"--" 510 ,21;"|";11 ,21;"|";l(2);"cm";12 ,21;"|":1:9 ,21;"_";12 ,21;"_":0 8104h,72H:15,0:0,25:30,0:0,-25:15,0:0,65A:-15,0:0,-25:-30,0:0,25:-15,0:0,-65A ;Xk=2*(l(3)+l(4))+4*(l(1)+l(2))+2*l(2): ^s2,15;l(1);"cm";7,22;l(1);"cm";14,11 ;"|...";l(4);"cm...|" a'i=312 :i,7;".":i da7,6;l(3);"cm";2,7;"_"::1:12 ,7;"_":0 g#k=2*(l(3)+l(4)) t120x,72H:20,0:0,30:30,0:0,20:-30,0:0,30:-20,0:0,-30:-30,0:0,-20:30,0:0,-30  'i=412 :i,8;".":i r3,13 ;l(1);"cm";11 ,21;l(2);"cm";14,12 ;"|..";l(3);"cm..|" `8,7;l(4);"cm":1:3,8;"_";12 ,8;"_":0 #k=2*(l(3)+l(4)) 104h,72H:60<,0:0,20:-40(,0:0,502:-20,0:0,-70F  160,104h,45- =7,21;l(3);"cm";8,20;"-----" z6,0;"Key in your";7,0;"answer as";8,0;"2,3 etc.";9 ,0;"using key" k=2*l(3) ^6;2,25;" Need ";3,25;" help? ";4,25;"ENTER h"  a=58012 0:6 6000p:z$=""506  n$=z$:n$: :21,0;" NOW today's date (in any form) "  6000p:z$=""524  m$=z$:m$:: :21,0;" Instructions? y or n "  0: X 1000 [#0,9 ;"""Perimeters""" ^Y3,0;" THE";b$(1);" OF A FIGURE MEANS THE DISTANCE ALL ROUND IT." a"6,0;"For example:-" d_80P,64@:100d,0:0,40(:-100d,0:0,-40( gG11 ,6;"5 cm":1:8,14;"10 cm":0 jJ17,0;"The perimeter of this rectangle is 10+5+10+5 = 30 cm" m.6;21,8;" Press any key " n=""622n p :120x,128,40( sG5,16;"5 cm":1:5,15;"_____":0 v_12 ,0;" THE";b$(1);;"OF A CIRCLE IS CALLED ITS ";b$(2);" " y15,0;a$ |Q18,0;"So the circumference of this circle = 2 x x 5 = 10 cm" 76;21,4;" Press any key to start " =""640 : 0:6:6: "0,8;" PLAY SNOOKER" *3,4;"5 correct answers win" t<0t=0 8,11 ;"COUNTER" Ŝ9 ,9 ;"0 1 2 3 4 5":x=(t+1)*16:10 ,7;" " @3:z=1x:63?+z,87W:0,-7:z P4:z=1820:z,0;" ":z $""  780   790 D7:17,10 ;"":2:17,11 +i;"" i=16  795 17,10 -i;" " i  790 !i=12*t+(t=0) ;7:17,9 +i;" ";17,i+10 ;""  795 i t<5763 i=2125 22:17,i;" ";17,i+1;""  795 i i=1719 22:i,26;" ";i+1,26;""  795 i  t=0 8,2,2,4,5,2,8,7,2,7,2,7,6,9 ,2,11 ,4,9 ,12 ,14,6,11 ,2,9 ,4,11 ,8,4,4,4,20,2,4,11 ,4,7,4,11 ,12 ,11 ,4,9 ,4,4,4,9 ,12 ,9 ,4,7,4,4,4,7,8,7,4,7,20,4 z=130 x:y:x/19,y:z '502:0:7:7: :  j=130  j  i=09 #2:0:17,i;"" i  j=115 j  ,(*5)+1:0:7:: Ya=58012:"perimeters"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:21,0;" " B221,(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 aNkZkY MkO uvt' PERIMETER  CIRCUMFERENCE A4 THE CIRCUMFERENCE  OF A CIRCLE = 2 x x RADIUSQ >simple eqsY : )d[ 2:6:6: Q128,192,224,240,248,252,254,255 H1,3,7,15,31,63?,127,255  20  y="a""c"-1:x:y,x:y (60<:57999 )c23613=\+256*23614>\,0:23613=\+1+256*23614>\,0: 2&a=65110V65128h:b:a,b:a 70c:c=c+65128h:a=65129ic:b:a,b:a ,9 ,237,71G,237,94^,201 Fk0,0,0,62>,62>,237,71G,237,86V,201,0,0 d47/,229,213,197,245,33!,0,64@,6,8,197,229,6,8,197,126~,229,245,1,31,0,84T,93],35#,237,176,241,18,225,193,36$,16,237,225,1,32 ,0,9 ,193,16,225,241,193,209,225,195,568,0 x65135o,72H }65137q,8 *1;5,9 ;"INTERMEDIATE" >1:19,7;"AREAS";19,15;"SETS" C18,2;"PERIMETERS";18,17;"VENN DIAGRAMS" G17,0;"SIMPLE EQUATIONS";17,21;"PERCENTAGES" #2;09 ,25;"" #2;10 ,25;" " '2;11 ,25;" " '2;12 ,25;"" #2;13 ,25;""  2 o68D,8*17+4:104h,0:0,-16:-104h,0:0,16 o65A,8*17+7:110n,0:0,-22:-110n,0:0,22  1 08,2;" " #09 ,2;"" 10 ,2;" "  2 09 ,7;" " 81;10 ,6;"";6;" " #11 ,6;""  4 12;10 ,10 ;"";6;""  ,2;11 ,11 ;6;" "  $6;12 ,10 ;" "  3 11 ,14;" " 12 ,14;"" 13 ,14;" "  5 13;12 ,18;"";6;"" 13;13 ,18;"";6;"" 14,18;"" % 2 _65135o,80P `65137q,8 a 65110V g 63? 65120` 2;20,6;" Rose Software 1984";9 ;21,1;"Program loading";1;21,18;" Please wait " U0,0;:6:6:"gr""a",168:0,0;:"se": 7bcgr X <~~0x0px>^~/F?8|b?|z8~~<x0<~goooooo~<se HHH ROSE SOFTWARE Sept.1982  5 *23613=\+256*23614>\,0:23613=\+1+256*23614>\,0:6:9 :6:20,6;" ";21,0;" STOP TAPE & press ENTER ":0:5;21,4;" Please key in your name ":9900&  6  500 b(3) Ho$=" ":u=0:t=0:v=0 a$= 0i=(*4)+4:1:i:i:9 !:h=0:e=(*2) $\i=13:b(i)=(*8)+2:i:e=1b(1)b(2)36$ 'y=(*9 )+1 *a$="y"600X -a$="y"a$="":30 0":680:c=030 150,0;" Find  the value of y when:-" 7i=79 996,0;" ENTER  your working ? y or n " <$i76,8;"more" ?.21,0;" NEED HELP?  ENTER h" B=""66B Kb$= N!b$="h":2000:160 Zb$="n"109m ["6,20;" " ]10 ,0;o$ `&q$:q$="h":2000:160 ci,0;q$ g""103g j i:513 m@10 ,0;" ENTER   your answer  NOW  " n21,0;o$ p6,0;o$ s9q$:q$>7(q$<46.ůq$>579)115s vL7,0;o$;o$;o$;o$;o$;o$;o$;12 ,0;"Your answer: ";q$ yq$=y133 |:14,0;" Bad luck, correct answer is: ";y }Ct=t-1:v=v+1:.5,-10 :1.5@,-20 ~Ve=0b(1);"y ";c$;" ";c;" = ";b(2);" - ";b(3);"y y=?" <e=1b(1);"y - ";b(2);"y = y ";c$;" ";c 5"Your answer (wrong) ";q$:"Correct answer is: ";y (:"________________________________": 921,0;" Press  ENTER and check with me" q$::2000:160 +14,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 821,19;"Press any key":0:700 0:6::i=031:ٺ(*6);0,i;"";21,i;"":i:i=120:ٺ(*6);i,0;"";i,31;"":i:4,1;"So far, you have ";u;" correct";7,14;"and ";v;" incorrect" -6;14,8;" More? y or n " ""165 =""166 q$=:q$"y"q$"n"165 q$="y"30 9 :3:7: &"" T17,0;"" i=116 Mi,0;"";i,31;"":i:3;18,0;o$;o$;o$;o$ .2,9 ;" CERTIFICATE " W5,2;" NAME:  ";n$((n$-((n$>17)*(n$-17)))) W7,2;" DATE:  ";m$((m$-((m$>17)*(m$-17)))) @9 ,2;" PROGRAM:  ""SIMPLE EQUATIONS""" !11 ,5;"CORRECT: ";u #13 ,3;"INCORRECT: ";v u+v=0245 ;15,2;"PERCENTAGE: ";(100d*u/(u+v));"%" 2,6;"***";2,22;"***":n=125:l=(*3):ٺ(*6)+1:2,6+l;"*";2,22+l;"*":n:0  #20,9 ;"Press any key" =""251 ""252  a=58012 0:6 6000p:z$=""509  n$=z$:n$:  <21,0;" NOW today's date (in any form) " %6000p:m$=z$:m$=""526 m$:: 621,0;" Instructions? y or n " ""531 =""534 # a$=:a$"y"a$"n"528 & 0: X0:0:x$="SIMPLE EQUATIONS":7:7::1,7;"""";x$;"""":64@,159:135,0:64@,156:135,0 YY12 ,6;" IS AN EXAMPLE OF A ";14,7;" SIMPLE EQUATION " Z&7,8;"2y - 14 = 11 - 3y" \; 20,0;" PRESS ANY KEY TO CONTINUE " ]ink=0:len=1 ^0610b _Yink=ink+1-(6*(ink=5)):len=len+1-(17*(len=17)):ink `1,7+len;x$(len) a 606^ b<5:5:0::1,7;"""";x$;"""" c&4,8;"2y - 14 = 11 - 3y" d7,3;" The idea ";9 ,5;"is to find what y equals";13 ,3;" To do this ";15,5;"we must collect all the y's";16,5;"on one side and all the";17,5;"numbers on the other" e?20,0;" PRESS ANY KEY TO CONTINUE ":0 f6:0:6: gY6,0;" REMEMBER THIS SIMPLE RULE:";2,8;"2y - 14 = 11 - 3y" j[9 ,0;"A term can be moved from one side of the equals sign to the other," md14,0;"AS LONG AS the  SIGN  in front";16,3;"of it is  CHANGED. " p;20,0;" PRESS ANY KEY TO CONTINUE":0 s1:7:1: v2,5;"2y - 14 = 11 - 3y";7,1;" Let's collect the y's on the ";9 ,13 ;" LEFT " y8502:13 ,4;"So we must move the - 3y" z_183,150:34",0:0,10 :-34",0:0,-10 |s7:200,149:-75K,0,-/2:125},144:0,5:5,0 };20,0;" PRESS ANY KEY TO CONTINUE":0 ~Ff=721:f,0;" ":f -8,5;"The sign must be changed" 30:2,23;" ":1:183,150:34",0:0,10 :-34",0:0,-10 -7:20:2,13 ;"+ 3y" s1:200,149:-75K,0,-/2:125},144:0,5:5,0 D7:20,0;" PRESS ANY KEY TO CONTINUE":0 5:0:1: Y8,0;"AND THE - 14 MUST ALSO BE MOVED";2,6;"2y - 14 + 3y = 11" 30:71G,150:34",0:0,10 :-34",0:0,-10 :88X,149:120x,0,/2:208,144:0,5:-5,0 20:71G,150:34",0:0,10 :-34",0:0,-10 :2,9 ;" " -15:0:2,24;"+ 14" 10 :5:71G,150:34",0:0,10 :-34",0:0,-10 :88X,149:120x,0,/2:208,144:0,5:-5,0 0:8,0;" SO WE GET ":11 ,7;"2y + 3y = 11 + 14":f=37:f,0;" ":f h21,19;"Press any key":0:21,19;" ":23692\,255 421,0:f=17::7:f 15:64@,134:20,-20:104h,134:-20,-20:0,-30:80P,88X:4,-4:4,4 #15:12 ,10 ;"5y" 15:124|,134:0,-502:120x,88X:4,-4:4,4:12 ,15;"=" 20:144,134:20,-20:184,134:-20,-20:0,-30:160,88X:4,-4:4,4 '15:12 ,20;25 615:18,6;" " W170:23692\,255:21,0:f=112 ::7:f <30:3,1;"NOW we divide both sides by 5" A30:9 ,4;"5y divided by 5 = ";:10 :"y" B30:11 ,4;"25 divided by 5 = ";:10 :"5" a30:15,0;"SO:- y = 5";17,4;"THIS IS THE ANSWER":30 /20,3;"DO YOU UNDERSTAND? y OR n" ="n"Ŧ="N"600X ="y"Ŧ="Y"  668 3e=0c=b(2)-y*(b(1)+b(3)) 0e=1c=y*(b(1)-b(2)-1)  c=0 $c$=(43++2*(c<0)) ]e=03,8;b(1);"y ";c$;" ";c;" = ";b(2);" - ";b(3);"y" Me=13,8;b(1);"y - ";b(2);"y = y ";c$;" ";c  &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  850R z>4.5885u z=tt5875k %y=y-1:z=5.50811+  869e  y=y+1 x+1,y;" "  866b  y=y+1 x+1,y;" "  863_  x,y;" "  y=y+1  860\ w=12  $4:x,y;" ";x+1,y;""  y=y+1  860\ w $4:x+1,y+1;" " "x,y+1;"";:0:"" " 6-t % x,y;" " (z + t=0 .15,31;" " 1 5 4&4:14,25;"" 7.15,23;" ";:0:"" : 502 =?14,25;" " @x=13 :846N C4,4,2,4,2,11 ,2,9 ,2,11 ,3,6,1,7,2,6,6,4 D4,11 ,2,14,4,16,2,14,2,11 ,2,13 ,2,9 ,4,11 E2,16,4,16,2,14,4,11 ,2,9 ,3,11 ,1,9 ,2,7,4,6 F2,2,4,4,2,11 ,4,9 ,2,7,2,6,2,4,2,2,6,4 G 835C H+w=135#:x:y:x/10 ,y:w IF0,0;o$;4,0;o$:x=12 0-1 J 846N Kx+4,25;" ":x L(100d:7:7:0: M N0:x,26;"":1:x+1,25;"":5:3:x+2,25;"";:0:"";:5:6:"":2:x+3,25;"" Q R!4:x+1,y;""; U0:"" X \4:x+1,y;"" _4:x,y;"" b4:x,y+1;"" e#4:x+1,y+1;"" h k 20 n!0:x+1,y;"" q 60< t7:7:0:: uw=17 x#0:x+1,y+6;"" {#3:x+1,y+6;"" ~w  w2:6:6::128,88X:30,30:30,-30,-:-30,-30,-:128,88X:30,-30:-30,-30,-:-30,30,-:128,88X:-30,-30:-30,30,-:30,30,-:128,88X:-30,30:30,30,-:30,-30,-: 80:pap=(*4+3):pap:pap:9 : be=01,5;b(1);"y ";c$;" ";c;" = ";b(2);" - ";b(3);"y" Qe=11,5;b(1);"y - ";b(2);"y = y ";c$;" ";c r20:10 ,1;" TRANSFER THE y'S TO THE LEFT ";12 ,5;" AND CHANGE THE SIGN " e=13000 ?pos=(21+((c)>9 )+((c)>99c))*8-1 c15:pos,158:34",0:0,10 :-34",0:0,-10 z15:pos+17,157:-75K,0,-/2:pos-58:,152:0,5:5,0 hpap:15:pos,158:34",0:0,10 :-34",0:0,-10 B9 :1,21+((c)>9 )+((c)>99c);" " P10 :1,12 +((c)>9 )+((c)>99c);"+ ";b(3);"y" 10 :pap:pos+17,157:-75K,0,-/2:pos-58:,152:0,5:5,0 R9 :40(:10 ,0;" NOW WE TRANSFER THE ";c$;" ";c;" " f=25:f,4;" ":f:40(:9 :63?,158:26+(8*(c>9 ))+(8*(c>99c)),0:0,10 :-(26+(8*(c>9 ))+(8*(c>99c))),0:0,-10  15:63?+((26+(8*(c>9 ))+(8*(c>99c)))/2),157:100d,0,/2:0,-5:0,5:-5,0 Q15:z=(c>9 )+(c>99c):f=810 +z:1,f;" ":f pap:15:63?,158:26+(8*(c>9 ))+(8*(c>99c)),0:0,10 :-(26+(8*(c>9 ))+(8*(c>99c))),0:0,-10 9 :10  ]1,21+(c>9 )+(c>99c);(c$+2-(4*(c$=45-)));" ";c %pap:15:63?+((26+(8*(c>9 ))+(8*(c>99c)))/2),157:100d,0,/2:0,-5:0,5:-5,0 *^15:pap:f=10 12 2:f,0;" ":f /79 :10 :10 ,10 ;"SO WE GET" 1u12 ,6;b(1);"y + ";b(3);"y = ";b(2);" ";(c$+2-(4*(c$=45-)));" ";c 4Ef=25:f,0;" ":f 6Q21,19;"Press any key":0:21,19;" " 9L23692\,150:21,0:f=110 ::7:f C15:568,150:20,-20:96`,150:-20,-20:0,-30:-4,4:4,-4:4,4:10 ,9 ;b(1)+b(3);"y" H20:116t,150:0,-502:-4,4:4,-4:4,4:10 ,14;"=" R15:pos=((32 +(4*(c>9 ))+(4*(c>99c))))/2:132,150:pos,-20:164+(4*(c>9 ))+(4*(c>99c)),150:-pos,-20:0,-30:-4,4:4,-4:4,4 WB15:10 ,18;b(2)+c-(2*c*(c$="+")) \t20:16,8;" y = ";(((b(2)+c-(2*c*(c$="+")))/(b(1)+b(3))));" " an95_,37%:42*,0:0,-3:-42*,0:0,-3:42*,0  160 d40(:156,162,9 :502:156,152:-40(,4,-/4 8118v,150:-1,6:7,0 915:1,13 ;"- y";1,19;" " y15:ٺ((0,0)/8):156,162,9 :156,152:-40(,4,-/4 A118v,150:-1,6:7,0:9 -21,19;"Press any key":0 p10 ,0;"  SO WE GET  ";12 ,0;" " n21,19;" ":20:20:10 ,0;" " ר46.,145:20,-20:0,-502:-6,6:6,-6:6,6:-6,-6:0,502:20,20 715:14,7;b(1)-b(2);"y" ߁15:122z,143:0,-70F:-6,6:6,-6:6,6:14,13 ;"- y" 15:140,143:0,-70F:-6,6:6,-6:6,6:14,17;"=" 15:190,143:0,-70F:-6,6:6,-6:6,6:-6,-6:14,23;(b(1)-b(2)-1)*y Q21,19;"Press any key":0:21,19;" " *23692\,255:21,0 "i=114::7:i 62>,145:30,-20:0,-502:-6,6:6,-6:6,6:-6,-6:0,502:30,20 @15:14,10 ;b(1)-b(2)-1;"y" 15:140,143:0,-70F:-6,6:6,-6:6,6:14,17;"=" 15:192,143:0,-70F:-6,6:6,-6:6,6:-6,-6:14,23;(b(1)-b(2)-1)*y 10 :17,10 ;" SO  y = ";y:120x,24:40(,0:0,-2:-40(,0:0,2 160 Ya=58012:"simple eqs"3:"gr""a",168:"sc"::0:5000 p0:0:z$="" uy$= zy$=06005u |y$>1646000p y$=13 y$=12 6100  z$=z$+y$  62008 0:6005u z$=06035 z$=z$((z$-1))  6030 8"z$>19z$=z$(19): =?6:21,0;" " B221,(17-((z$+1)/2));z$ G 6035 &1,0,27,17,82R,228,33!,0,64@,237,176,201,1,0,27,17,0,64@,33!,82R,228,237,176,201 & 9900& &a=124 &b &57999+a,b &a &a=58000 & 4 a