ZXTape! 0Created with Ramsoft MakeTZXpolygon FT "" w#1;4;0;0;" Main program is loading ":20,1;:4:0:4 ""  @$<@B<B@<<<@@88D8B<@8(BBB H@@@@@@@@<DDDB 0DxB<  x(xB DD>BB@(@Z <<<<8@???????????? @| @ BD 8@8 D@BD<0@xD<1:5:0:1:q=11;"": Opk=3000 +5*(*14):f=1q-1:s(f)=pk2005 ;f:pk:z$=" ":m$:n=m$:n=ln2005 s(q)=pk:ln=n:m$:ki=m$:f=021:3;f,16;z$:f:f=120:5;f,0;z$:f:100d 0,167:0,-159:127,8:0,159:q=12;7;1;21,0;"SHAPE NUMBER:";6;" ";2;" ":0 36;0;1;21,14;q: 3500 :z$=" ":f=212 :6;f,19;z$:f:6;3,19;" How many ";5,19;" sides ";7,19;" has this ";9 ,19;" polygon ";11 ,19;" got ? " s151,159:0,-88X,-.1}L:81Q,0:0,89Y,-.1}L:-81Q,0  f=1519:4;1;f,19;z$:f:4;1;16,19;" It has ";18,19;" sides. " V2063:d$="pdddd":9400$:"151","55","0","-40","81","0","0","41","-81","0" U#0;6;0;" Please KEY IN your answer. ":8000@:30 Pz$=" ":f=212 :2+2*(aw=n);f,19;z$:f 3awn6;3,20;" NO ! ";5,20;" It has ";7,20;" NOT ";9 ,20;" got ";11 ,20;aw;" sides.";16,20;" Try ";18,20;" again. ":sc=sc-1:so*.3,-5:so*.6,-10 :502:2050   3;7;3,19;"WELL DONE!";6;0;5,19;" It has ";7,19;" got ";9 ,19;" ";aw;" sides.";3;7;11 ,19;"WELL DONE!" !?9400$:"151","159","0","-88","81","0","0","89","-81","0" %\1;3;7;16,19;"WELL DONE!";18,19;"WELL DONE!" **sof=120:f/100d,f:f / 100d: 7q3500 :f=021:3;1;f,16;" ":f:1:z$=" " H4;1;1,18;z$;2,18;" Which kind ";3,18;z$;4,18;" of polygon ";5,18;z$;6,18;" is this ? ";7,18;z$ M143,167:0,-568,-.1}L:97a,0:0,579,-.1}L:-97a,0:z$=17+6+" "+z$+17+0 \7;;9 ,16;z$;10 ,16;"a)";1;" Triangle. ";11 ,16;z$;12 ,16;"b)";1;" Quadrilateral";13 ,16;z$;14,16;"c)";1;" Pentagon. ";15,16;z$;16,16;"d)";1;" Hexagon. ";17,16;z$;18,16;"e)";1;" Heptagon. ";19,16;z$;20,16;"f)";1;" Octagon. ";21,16;z$ p]0:#0;4;0;1;" PRESS a,b,c,d,e or f. ":8100 z=""2170z ^cz=:cz<65Acz>102f(cz>70Fcz<97a).4L*so,-10 :2170z 9.1}Lso,20:"":cz>90Zcz=cz-94^: cz=cz-62>: sy$=" ":f=021:3;1;f,16;y$:f:z$=" ":cz=n2230 2;7;5,19;z$;6,19;" SORRY! ";7,19;z$;8,19;" You are ";9 ,19;z$;10 ,19;" Wrong. ";11 ,19;z$ K2221:9400$:"151","135","0","-56","81","0","0","57","-81","0" <sc=sc-1:.3so,-5:.6so,-10 6:0;14,16;y$;15,16;" This is NOT ";16,16;y$;17,16;n$(cz,217);18,16;y$ L214,46.:28,0:214,44,:28,0 d#0;6;1;" PRESS any key to try again. ":0:"":21004:2200 1;3,19;z$;4,19;" WELL ";5,19;z$;6,19;" DONE ! ";7,19;z$;8,19;" You are ";9 ,19;z$;10 ,19;" Correct. ";11 ,19;z$ s151,151:0,-72H,-.1}L:81Q,0:0,73I,-.1}L:-81Q,0 f=120:f/100dso,f+10 :f:1;14,16;y$;15,16;" This shape IS ";16,16;y$;17,16;n$(n,217);18,16;y$ u2:232,46.:18,0:232,44,:18,0:0:5:5960H: E3500 :1:f=021:3;f,16;y$:f z$=" ":4;1,17;z$;2,17;" Which kind ";3,17;z$;4,17;" of Triangle ";5,17;z$;6,17;" is it ? ";7,17;z$ M2271:9400$:"135","167","0","-56","113","0","0","57","-113","0" }6;9 ,17;z$;10 ,17;" Pick out the ";11 ,17;z$;12 ,17;" CORRECT word." -z$=17+6+z$+17+4 13 ,17;z$;14,17;"1)Equilateral.";15,17;z$;16,17;"2)Scalene. ";17,17;z$;18,17;"3)Isosceles. ";19,17;z$;20,17;"4)Right-Angled";21,17;z$ K#0;1;7;" PRESS 1 , 2 , 3 or 4 . ":8100 =""2300 Jcz=-491:cz<0cz>3so*.4L,-10 :2300 Y.1}Lso,20:f=021:3;f,16;y$:f:z$=" " ,czki(cz=1ki=3)2350. 6;1,18;z$;2,18;" WELL DONE !";3,18;z$;4,18;" You are ";5,18;z$;6,18;" Correct. ";7,18;z$ O"":2328 :9400$:"143","167","0","-56","97","0","0","57","-97","0" Pf=0.2~L.01z# =:.05|Lso,100d*f:f:z$=z$+" ":4 9 ,17;z$;10 ,17;" It is a ";11 ,17;z$:cz=0cz=210 ,27;"n" ".g$=17+4:h$=17+6 $12 ,17;(" "+h$+"Equilateral"+g$+" "cz=0)+(" "+h$+"Isosceles"+g$+" "cz=2)+(" "+h$+"Scalene"+g$+" "cz=1)+(" "+h$+"Right-Angled"+g$+" "cz=3) &]13 ,17;z$;14,17;" "+h$+"Triangle"+g$+" ";15,17;z$ (cz=016,17;" because ALL ";17,17;z$;18,17;" the sides ";19,17;z$;20,17;" are EQUAL. ";21,17;z$ *cz=116,17;" because NONE ";17,17;z$;18,17;" of its sides ";19,17;z$;20,17;" are equal. ";21,17;z$ +cz=216,17;" because 2 ";17,17;z$;18,17;" of the sides ";19,17;z$;20,17;" are EQUAL. ";21,17;z$ ,cz=316,17;" because one ";17,17;z$;18,17;" angle is a ";19,17;z$;20,17;" RIGHT ANGLE. ";21,17;z$ -f135,103g:0,-103g:248,0:0,103g:5960H:5: /z$=" ":2;7;1,19;z$;2,19;" SORRY! ";3,19;z$;4,19;" You are ";5,19;z$;6,19;" Wrong. ";7,19;z$ 1so*.3,-5:so*.6,-10 :23531 :9400$:sc=sc-1:"151","167","0","-56","81","0","0","57","-81","0" 26:0:0:z$=z$+" ":10 ,17;z$;11 ,17;" It is not a ";12 ,17;z$:cz=0cz=211 ,29;"n" 813 ,17;(" Equilateral "cz=0)+(" Isosceles "cz=2)+(" Scalene "cz=1)+(" Right-Angled "cz=3);14,17;z$;15,17;" Triangle. ";16,17;z$ ?g5:2:190,79O:26,0:190,77M:26,0:0 Ln"":1:#0;6;1;1;" Press ANY key to try again. ":0:"":2250 j\3500 :1:f=021:3;f,16;y$:f:z$=" " tm1;7;1;0,16;z$;1,16;" Which kind of ";2,16;z$;3,16;" quadrilateral ";4,16;z$;5,16;" is it ? ";6,16;z$;17,16;z$;18,16;" Select the ";19,16;z$;20,16;" BEST word. ";21,16;z$ \150,6:6;34",0:150,4:6;34",0 6;0;8,16;z$;1;9 ,16;"1)Rectangle. ";0;10 ,16;"2)Square. ";1;11 ,16;"3)Parallelogram." 6;0;12 ,16;"4)Rhombus. ";1;13 ,16;"5)Trapezium. ";0;14,16;"6)Irregular. ";1;15,16;z$ ?#0;6;1;" PRESS 1, 2, 3, 4, 5 or 6 . " =""2460 Jcz=-491:cz<0cz>5so*.4L,-10 :2460 J.1}Lso,20:"":f=021:3;f,16;y$:f czki2550 z$=" ":6;0,17;z$;1,17;" WELL DONE ! ";2,17;z$;3,17;" You are ";4,17;z$;5,17;" Correct. ";6,17;z$ 2:149,158:90Z,0:149,156:90Z,0:0:sof=0.2~L.01z# =:.05|L,100d*f:f w4:f=721:f,17;z$:f:8,17;" It is a ":cz=58,27;"n" .g$=17+4:h$=17+6 10 ,17;(" "+h$+"Square"+g$+" "cz=1)+(" "+h$+"Irregular"+g$+" "cz=5)+(" "+h$+"Rectangle"+g$+" "cz=0)+(" "+h$+"Parallelogram"+g$cz=2)+(" "+h$+"Rhombus"+g$+" "cz=3)+(" "+h$+"Trapezium"+g$+" "cz=4) cz=112 ,17;" BECAUSE all ";14,17;" its sides are";16,17;" EQUAL & all ";18,17;" angles are ";20,17;" 90 degrees. " cz=512 ,17;" quadrilateral";14,17;" BECAUSE its ";16,17;" sides or ";18,17;" angles are ";20,17;" NOT EQUAL. " cz=012 ,17;" AS opposite ";14,17;" sides are ";16,17;" EQUAL & all ";18,17;" angles are ";20,17;" 90 degrees. " cz=212 ,17;" AS OPPOSITE ";14,17;" sides are ";16,17;" EQUAL in ";18,17;" Length and ";20,17;" PARALLEL. " cz=312 ,17;" AS OPPOSITE ";14,17;" sides are ";16,17;" PARALLEL and ";18,17;" ALL sides ";20,17;" are EQUAL. " cz=412 ,17;" Because ";14,17;" ONLY ONE " ;16,17;" pair of ";18,17;" sides are ";20,17;" PARALLEL. " c5:135,0:0,175:248,0:0,175:5960H: -so*.3,-5:so*.5,-10 sc=sc-1:2;7;0,16;z$;1,16;(" 'Square' "cz=1)+(" 'Irregular' "cz=5)+(" 'Rectangle' "cz=0)+(" 'Parallelogram'"cz=2)+(" 'Rhombus' "cz=3)+(" 'Trapezium' "cz=4) 2;7;2,16;z$;3,16;" is NOT the ";4,16;z$;5,16;" name for this ";6,16;z$;7,16;n$(4,418)+" ";8,16;z$ pf=11 19:6;f,16;z$:f:6;14,22;"TRY";16,21;"AGAIN." tw$=22+3+28+17+2+16+7+"BEST"+17+6+16+0 .p$=" BUT it has a ":s$=" special name. " cz=0ki=1w$;12 ,16;" It is a kind ";14,16;" of Rectangle ";16,16;p$;18,16;s$ cz=3ki=1w$;12 ,16;" It is a kind ";14,16;" of Rhombus ";16,16;p$;18,16;s$ cz=2(ki=3ki=1ki=0)w$;12 ,16;" It is a kind of";14,16;" parallelogram ";16,16;p$;18,16;s$ cz=5ki1w$;12 ,16;" It is an ";14,16;" irregular shape";16,16;p$;18,16;s$ 7:2576 :9400$:0:9400$:"128","175","127","0","0","-71","-127","0","0","70","128","87","127","0","0","-71","-127","0","0","70" e"":#0;6;1;1;" Press ANY key to try again. ":0:"":2400` )"3","0","15","40","115","40","65","134" )"3","1","20","40","77","40","110","130" )"3","2","25","30","105","30","65","140" *"3","3","20","30","110","30","110","150" 5"4","0","20","60","110","60","110","120","20","120" 5"4","1","20","50","110","50","110","140","20","140" 4"4","2","10","70","80","70","110","120","40","120" 4"4","3","34","50","110","50","90","130","14","130" 4"4","4","15","50","110","50","85","120","60","120" 4"4","5","10","50","120","50","80","140","40","120" ="5","1","31","40","89","40","107","96","60","130","12","96" H"6","1","39","38","90","38","115","80","90","123","39","123","15","80" T"7","1","60","130","100","111","109","69","83","35","37","35","12","69","21","111" _"8","1","50","50","80","50","101","71","101","101","80","122","50","122","29","101","29","71" 1;2;7;0,0;" YOUR SCORE:";6;0;(" "sc<10 )+" ";sc;2;" ":sc<1q=5:4090  R9900&:q=0: dc=1:300,:500:5000:4500 ,sc=20:ln=1:q=15 02000:2050:21004:2200 n=32250 n=42400` "":q 0j=j+1:4600:dc=2:300, nw=14030 8200 :4020 5:0:0::f=414:6;f,4;" ":f:6;7,11 ;"What is";11 ,6;"your name please ?" z26,502:0,98b:204,0:0,-98b:-204,0:19,3;"I am " xpn=19:cn=9 :8100:85004!::11 ,(25-i$(1))/2;"Hello ";i$(1);" !" Fsof=-12 -1:g=ff+36$12 :.05|L,g:g:f f=11 0-1:f,(25-i$(1))/2;"Hello ";i$(1);" !":g=f+24f-12 -12 :.05|Lso,g:g:f,0;" ":f 4:4:1::z$=" ":f=13:3;f,8;z$:f:3;7;2,10 ;"Polygon Quiz." 6:63?,168:129,0:0,-25:-129,0:0,24:67C,165:122z,0:0,-19:-122z,0:0,18:0 Kf=515:5;f,2;" ":f 5;7,3;" In this quiz you have ";9 ,3;" 20 points to start with.";11 ,3;" But you lose a point for ";13 ,3;" every incorrect answer." r6:15,136:225,0:0,-89Y:-226,0:0,88X:0 L#0;1;6;" Press any key to start work. ":0:""  `6:3::f=15:4;f,1;" ":f 1;6;2,(30-i$(1))/2;" ";i$(1);" ";4,2;" Your score is ";sc;" out of 20.";6;7,10 ;" " f=818:6;f,10 ;(" EXCELLENT ! "sc=20)+(" VERY Good ! "(sc19sc17))+(" Good work "(sc16sc14))+(" Quite good "(sc13 sc10 ))+(" Keep trying "sc<10 ) w.1}Lso,2*f-20+sc-(3*fsc<11 ):f:6;19,10 ;" ":9800H& t79O,120x:105i,0:0,-104h,.1}L:-105i,0:0,103g,.1}L <300,::q$(1,18):q$(1)=i$(1)  Ft$=q$(1)+" "+(" "sc<10 )+sc+" / 20.":t=j:8300l :  ft=1 Hz$=" ":df=0:lm=1:400 1;3;7;2,1;z$;3,1;" How many sides do you ";4,1;z$;5,1;" want your POLYGON to have ? ";6,1;z$ 1:8,160:240,0,.03{u\:0,-41):-240,0,.03{u\:0,40(:0:z$=" " 6;1;9 ,7;z$;10 ,7;" Press any number ";11 ,7;z$;12 ,7;" from '3' to '8'. ";13 ,7;z$ ft=01;5;16,7;z$;17,7;" OR, Press '1' to ";18,7;z$;19,7;" do the quiz NOW! ";20,7;z$ }1:557,104h:145,0,.05|L:0,-41):-145,0,.05|L:0,41) ft=0557,480:145,0,.05|L:0,-41):-145,0,.05|L:0,41) [sof=040(5:.1}L,f:f:f=40(0-5:.1}L,f:f =""5140 (?n=-480:n=1ft=0.5*so,30:: 78n<3n>8so*.4L,-10 :5140 <0.5*so,30::5000+100d*n _5990f:1;1,3;" An Equilateral Triangle. ":dt=5380:5900  ì5,1;" All 3 sides";7,1;" are equal.":150:11 ,1;" All 3 angles ";13 ,1;" are equal";15,1;" to 60 ." dz66B,546,1.6L:502:166,130:8,0,1:116t,30:-3,10 ,1:224,30:3,10 ,-1 _5960H:1;1,5;" A right-angled Triangle. ":dt=5382:5900  |5,18;"One of the";7,18;"angles";9 ,18;"is equal to";11 ,18;"90 degrees." R502:7:33!,24:0,9 :-9 ,0:0 ]5960H:1;1,5;" An Isosceles Triangle. ":dt=5385 :5900  ]5,17;"Two sides";7,17;"have the";9 ,17;"same length." L150:14,17;"Two angles";16,17;"are equal." _47/,20:-3,7,1.3&fff:113q,20:3,7,-1.3&fff Z5960H:1;1,3;" A Scalene Triangle. ":dt=5387 :5900  i15,3;"All the sides and angles";17,3;"are different.":5960H:5100 #"106","30","170","140","234","30" !"23","23","23","153","153","23"  !"40","20","120","20","80","140"  ""40","90","195","90","138","130" P5990f:1;1,4;" A Square. ":dt=5475c:5900  !W3,18;" All 4";5,18;" sides are";7,18;" equal." #150:12 ,18;" All 4";14,18;" angles";16,18;" equal 90 .":219,46.,1.6L &100d:7:32 ,40(:0,8:-8,0:111o,40(:0,8:8,0:111o,135:0,-8:8,0:32 ,135:0,-8:-8,0:0 )S5960H:1;1,8;" A Rectangle. ":dt=5477e:5900  115,3;"Opposite sides are equal.":502:18,3;"Each angle is equal to 90 . ":226,30,1.6L 4100d:7:72H,80P:0,8:-8,0:167,80P:0,8:8,0:167,143:0,-8:8,0:72H,143:0,-8:-8,0:0 6W5960H:1;1,7;" A Parallelogram. ":dt=5480h:5900  :14,6;"Opposite sides are";16,6;"equal and parallel.":502:19,3;"Opposite angles are equal." ;1100d:70F,80P:-6,7,1:190,139:6,-6,1:502:164,80P:9 ,9 ,-1.3&fff:166,80P:6,6,-1:95_,139:-7,-4,-1:97a,139:-9 ,-6,-1.3&fff @Q5960H:1;1,2;" A Rhombus. ":dt=5485m:5900  DW5,2;"Opposite";7,2;"sides are";9 ,2;"parallel." Fc100d:15,2;"Opposite";17,2;"angles are";19,2;"equal." G+111o,70F:-8,8,1:228,165:7,-8,1:502:148,165:-10 ,-8,-1:150,165:-15,-10 ,-1:193,70F:10 ,8,-1:191,70F:12 ,10 ,-1 Jh150:15,17;"ALL sides";17,17;"have";19,17;"equal length." OS5960H:1;1,5;" A Trapezium. ":dt=5490r:5900  Q~6,2;"ONLY one pair";8,2;"of opposite ";10 ,2;"sides are";12 ,2;"PARALLEL." [z5960H:1;1,2;" An irregular quadrilateral. ":dt=5497y:5900 :5960H:5100 c-"23","39","120","39","120","136","23","136" e-"63","79","176","79","176","144","63","144" h-"60","80","170","80","200","140","90","140" m/"100","70","200","70","240","165","140","165" r/"120","40","230","40","200","140","160","140" y,"54","30","230","30","170","140","75","76" f5990f:1;1,2;" A Regular Pentagon. ":dt=5570:5900 :5925% 23,76L:5,16,1.8ffff:502,20:-13 ,11 ,1.8ffff:99c,20:13 ,11 ,-1.8ffff:126~,76L:-5,16,-1.8ffff:67C,119w:16,0,1.8ffff 5960H:5100 6"19","86","40","20","109","20","130","86","74","126" Y5990f:1;1,2;" A Regular Hexagon. ":dt=5670&:5900  u5,19;"All the";7,19;"sides";9 ,19;"are the";11 ,19;"same length." 150:14,19;"All angles";16,19;"are the";18,19;"same (120 ).":227,30,1.6L *59;,30:-14,11 ,1.5@:101e,30:14,11 ,-1.5@:131,72H:0,18,-1.7Y:101e,130:14,-11 ,1.5@:59;,130:-14,-11 ,-1.5@:29,72H:0,18,1.7Y 5960H:5100 &B"23","80","50","30","110","30","137","80","110","130","50","130" I?5990f:1;1,3;" A Regular Heptagon. " N?dt=5770:5900 :5925%:5960H:5100 M"20","70","51","30","100","30","130","68","120","115","78","137","33","117" Y5990f:1;1,2;" A Regular Octagon. ":dt=5870:5900  C5925%:16,30;" ";18,18;"( 135 )." 6187,31,1.6L:5960H:5100 W"20","107","20","60","50","25","95","25","125","60","125","107","95","142","50","142" 9f=13:7*(f=2*(f/2)):dt 100d:f:9800H&: *b5,18;"All ";n;" sides";7,18;"are the same";9 ,18;"length." /W150:14,18;"All ";n;" angles";16,18;"are the same.": IX100d:#1;7;;" Press any key to continue. ":0:q=0 J"":8100: gDft=0 :fh=1:z$=" ":9800H& i5;1;2,4;z$;3,4;" A Polygon with ";n;" sides ";4,4;z$;5,4;" is called.... ";6,4;z$ j1:31,160:193,0,.03{u\:0,-41):-193,0,.04|# =:0,40(:0 k8f=9 11 :1;6;f,4;z$:f l/1;6;fh;10 ,8;n$(n) m/fh=1100d:fh=0:5996l un=45;1;14,4;z$;15,4;" The 4 angles of a ";16,4;z$;17,4;" Quadrilateral ALWAYS ";18,4;z$;19,4;" add up to 360 degrees. ";20,4;z$ zn=35;1;14,4;z$;15,4;" The 3 angles of a ";16,4;z$;17,4;" Triangle ALWAYS add up ";18,4;z$;19,4;" to 180 degrees. ";20,4;z$ n=3n=41:31,64@:193,0,.04|# =:0,-579:-193,0,.04|# =:0,568:0 6n>418,6;"Here is an example..." 5960H: F68100:1:4:aw=0:pv=0 O""8015O TE=""1;6;1;18,20;"*":8020T Yz$=:cz=z$-480 Z<(cz<2cz>9 )so*.4L,-10 :8015O [;aw=z$:18,20;aw:so*.1}L,20:"": so30: <.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: &4:0:4:0: !z$=" " `5;5,3;z$;6,3;" Choose WORK OR RESULTS. ";7,3;z$ &W1:23,136:208,0:23,111o:208,0 +15,80P:97a,0:15,39':97a,0:135,80P:105i,0:135,39':105i,0 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$ B z$=z$+" " D6;12 ,17;z$;13 ,17;" Press 'r' ";14,17;z$;15,17;" for RESULTS.";16,17;z$ F 8100 G""8263G I=""8265I Kc$= Sc$="w"c$="W" X2c$"r"c$"R".2~L*so,-20:8263G ]: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}L,-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 !z pn,cn;w$ !=lw=1"":#0;"0 for rubout ENTER if Finished" !<lw>21lw=21: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! " 8900" "%f=07:z:"a"+f,z:f: "F127,63?,31,15,7,3,1,0 #2 8900" #Ajf=2264:1;6,f;"":g=710 :g,f;"":g:11 ,f;"":f #F1;6,16;"";10 ,14;"";10 ,18;"";0;9 ,14;"";9 ,18;"";8,4;"";8,8;"";9 ,8;"";10 ,8;"";7,16;"";8,16;"";10 ,16;"";10 ,20;"";8,20;"";10 ,24;"";9 ,24;"";8,24;"";8,28;"";9 ,28;"";10 ,28;"";11 ,28;"" #Z79050Z#:16,127:n=6:9950& #_"23","0","7","-7","0","-24","-15","0","0","-15","-7","0","23","0","7","-7","0","-39","-23","0","7","0","7","-7","0","-32","15","0","-7","7","-7","0" #a"7","0","7","-7","0","-15","8","0","7","0","7","-7","0","-39","-23","0","23","0","7","-7","0","-39","-23","0","23","0","7","-7","0","-39","-23","0" #b&"23","0","7","-7","0","-39","-7","0" #d480,127:n=4:9950&:80P,127:n=6:9950&:112p,127:n=4:9950&:128,127:n=4:9950& #in144,127:n=4:9950&:176,127:9950&:208,127:9950& #l#d$="pdpdpdpdpdpdpdpd":9400$ #m"23","120","23","0","55","120","23","0","87","120","7","0","119","120","7","0","135","120","7","0","151","120","23","0","183","120","23","0","215","120","23","0" #s32 ,111o:9350$:64@,95_:9350$:160,111o:9350$:192,95_:9350$ #t$d$="pddpdpdpppdpdppdd":9400$ #v"88","81","21","0","0","7","120","88","15","0","112","95","16","0","119","96","127","112","152","88","15","0","144","95","16","0","151","96","216","81","8","0","0","7" #}Pf=125:a=(*250)+3:b=(*15)+65A:a,b:f #f=125:a=(*250)+3:b=(*8)+128:a,b:f:100d,106j:10 ,97a:247,102f:40(,93]: $%0,-7:7,0: $<ld=d$:f=1ld:a$,b$:a=a$:b=b$::d$(f)="p"a,b $d$(f)="d"a,b $f: &M&9805M&:d$="pdddd":9400$: &R3"1","1","253","0","0","173","-253","0","0","-173" & &,f=1n:a$,b$:a=a$:b=b$:a,b:f: / Ε jqZ $aYbD pdpdpdpdpdpdA89B0 findx Wz "" #1;4;1;0;" Main program is loading ":20,1;:4:1:4:1 ""  @@<@@@@@@@@0@@@B<B@<<<@@@@@@ ?@@@@??@(@@?@@@88D8B<@8(BBB@@@@@@@@@@@@@@@$@@@@<DDDB 0DxB< @@@ @@@@ @@@@@"@@@@x(xB DD>B@@@@@@@@@@@@!@@@@B@(@Z <<<@@@@@@@@@@@ @@@@@<8@@@@@@@@@@@?@@@?@@@ @@@ @@@ @@@ @@@@@ @@?@ @@?@ @@@? ?@?@???@@| @ @ @@@@ @@@@ @@@ @@@@BD 8@8 D@ @@ @ @@ @ @@@ @@ @@BD<0@xD<579.1}L*sound,-10 :65A P1100L:d=d$::5;0,0;" Level ";d;" Question. ":pn=20:cn=25:d<9 cn=15 Z _&9100#:flag=1:9570b% y=(*5*d)+1:r(1)=(*4*d)+1:r(2)=(*3*d)+1:r(3)=(*2*d)+1 cp(1)=(*7)+4:p(2)=(*7)+4:p(3)=(*7)+4 ec(1)=(*6)+1:c(2)=(*6)+1:c(3)=(*6)+1: @*x=y:lim=2:d=9 lim=3 Ed<3lim=1 Ji=1lim Oc(i)=1x=x+r(i) T9c(i)=2x=x-r(i):x<0d<79580l% Yc(i)=3x=x*p(i) ^c(i)=4x=x*2 cc(i)=5x=x*3 h7c(i)=6x=x/2:xxd<79580l% m q(i)=x:i |"x>99cd<69580l% }x>9999580l% ~"x>502d<49580l%  35:x=y:lim=2:d=9 lim=3 d<3lim=1 4i=1lim:lin=3+4*i:col=17 7c(i)=1lin,col;x+" + "+r(i)+" = "+(x+r(i)) 7c(i)=2lin,col;x+" - "+r(i)+" = "+(x-r(i)) 7c(i)=3lin,col;x+" X "+p(i)+" = "+(x*p(i)) 2c(i)=4lin,col;x+" X 2 = "+(x*2) 2c(i)=5lin,col;x+" X 3 = "+(x*3) 2c(i)=6lin,col;x+" 2 = "+(x/2) x=q(i):i:4: 2,2;"I have thought of a number.":80P:4,9 ;("FIRST..."d3)+("IF..."d<3):80P:6,2;"I "; $i=1lim:i=1i$=" it" i=2i$=" the answer" xi=2(c(1)=c(2))(c(1)=4c(1)=5c(1)=6)d9 i$=" it again" Nc(i)=1"add "+r(i)+" to"+i$+("."((i=2d9 )i=3)) -c(i)=2"take away "+r(i)+" from"+i$ !+c(i)=3"multiply "+i$+" by "+p(i) &Cc(i)=4"double"+i$+("."((i=2d9 )i=3)) +Cc(i)=5"treble"+i$+("."((i=2d9 )i=3)) 0Bc(i)=6"halve"+i$+("."((i=2d9 )i=3)) 2 80P 5(i=1d3)(d=9 i3)8+4*(i=2),9 ;"THEN...":80P:10 +4*(i=2),2;"I "; ?Ni:12 +4*(d=9 )-4*(d<3),9 ;"THIS GIVES ";x I80P:z$=" ":5;14+3*(d=9 ),0;z$;" What number did I think of ";z$;" at the start ? ";z$+(z$+z$+z$d<9 );6;20,8+10 *(d=9 );"It was = " S:1100L:#0;" ENTER Your Answer NOW ! ": bz$=" ":f=14+3*(d=9 )21:f,0;z$:f cy=ans5;16+3*(d=9 ),7;" ";ans;" is CORRECT !!":"":5000: .5*sound,-5:.5*sound,-7:6;16+3*(d=9 ),5;"HARD LUCK. It was ";y;".":(ans-y)<218+3*(d=9 ),4;" ";ans;" WAS CLOSE THOUGH !" Q(ans-y)220+(d=9 ),4;"(You thought it was ";ans;".)"  400: *5800 :f=015:row:"a"+f,row:f: 4E0,0,24,0,126~,0,24,0 9M85U,170,85U,170,85U,170,85U,170 "6:ans=0:pv=0 ""1015 8=""1;1;pn,cn+5;"*":1020 z$=:cz=z$ h(cz<480cz13 )(cz>579cz114rcz82R).1}L*sound,-20:1015  =.05|L+.05|L*sound,20-25*(sound=0) &cz=82Rcz=114r10808 cz=13 1090B vz=z$ #vz=0pv=01015 ans=10 *ans+vz $pn,cn+4-pv;ans )pv=pv+1 +=pv=1"":#0;"R for rubout ENTER if Finished" .Mpv>2.3*(sound=1),-20:pn,cn;"= ":1010 3 1015 8pv=01010 ;<ans=(ans/10 ):pn,cn+4-pv;" ":pv=pv-1 =$ans0pn,cn+5-pv;ans @ 1015 BTans=0.3*(sound=1),-20:pn,cn+2;" ":1010 D 4 G Nsound=0 Q<.33(1120` V>.51125e [C.1}L,5:.1}L,3:.2~L,10 :15: `E.1}L,15:.1}L,13 :.2~L,20:15: eE.1}L,25:.1}L,23:.2~L,30:15: /1100L:6400:1100L:100d Df=120:5;f,16;" HELLO !":f:1100L _20:f=201-1:6;1;f,24;"HELLO !":f:1100L L20:f=120:5;f,1;"HELLO !":f:1100L _20:f=201-1:1;6;f,8;" HELLO !":f:1100L 502:sound=1f=120:6:6;"":.05|L,f/5:5:5;"":.05|L,20-f/5:f   3:1:6: {f=0202:1;f,0;"Find the number.Find the number.Find the number.Find the number.":f 5000:: P4:0:2:0:0::z$=" " 5;3,3;z$;4,3;" Do You want sound cues ";5,3;z$;6,3;" during this program ? ";7,3;z$ W1:23,152:208,0:23,111o:208,0 15,80P:97a,0:15,39':97a,0:135,80P:105i,0:135,39':105i,0 S124|,111o:40(,-40(:124|,111o:-40(,-40( 0:z$=" " 6;12 ,2;z$;13 ,2;" Press 'y' ";14,2;z$;15,2;" for YES. ";16,2;z$  z$=z$+" " Œ6;12 ,17;z$;13 ,17;" Press 'n' ";14,17;z$;15,17;" for NO. ";16,17;z$ ""1480 =""1482 k$= k$="y"k$="Y"sound=1 k$="n"k$="N"sound=0 )k$"y"k$"Y"k$"n"k$"N"1482  2;7;0,0;" PROGRAM OUTLINE. ":120x:2,2;"I will think of a number." 120x:5,2;"Then I will give You";7,2;"some information.":120x:10 ,2;"You can then try to work out";12 ,2;"the number I thought of." `120x:15,2;"You can choose from";17,2;"9 levels of difficulty." S120x:5;1;21,0;" Press any key to continue. "  0: J:z$=" ":5;5,3;z$;6,3;" Do You want another go ? ";7,3;z$ ^W1:23,136:208,0:23,111o:208,0 c15,80P:97a,0:15,39':97a,0:135,80P:105i,0:135,39':105i,0 ho124|,111o:40(,-40(:124|,111o:-40(,-40(:0:z$=" " w6;12 ,2;z$;13 ,2;" Press 'y' ";14,2;z$;15,2;" for YES. ";16,2;z$ z z$=z$+" " |6;12 ,17;z$;13 ,17;" Press 'n' ";14,17;z$;15,17;" for NO. ";16,17;z$ ~ 1100L ""1663 =""1665 k$= k$="y"k$="Y" k$"n"k$"N"1663 e:7;7,5;"PROGRAM has finished.";10 ,4;"PRESS any key to RESTART." i6:23,128:218,0:0,-480:-218,0:0,480  0:1100L:0: sound=0200: 15015:<.33(t=.1}L:5030 %t=.2~L:>.5t=.07}\( (<.33(bch=-10 :5045 (bch=6:>.5bch=-20 Tf=143+:a:b:b=b+bch:b=568b=30b=40(t*502:f  a*t,b:f: ӏ.73333,7,.73333,12 ,.73333,16,2,19,2,19,2,19,2,19,2,11 ,2,11 ,2,12 ,2,12 ,2,17,2,17,2,16,2,16,.73333,14,.73333,12 ,.73333,11 ,.73333,9 ,.73333,7,.73333,7,.73333,12 ,.73333,16 _2,19,2,19,2,19,2,19,2,11 ,2,11 ,2,12 ,2,12 ,2,14,2,14,2,11 ,.75@,9 ,.75@,11 ,4,12 ,502,502,502,502,.75@,14,.75@,11 ,.75@,7,4,19 [4:6:6:0:0::6500d:z$=" ":4:6420 .f=18:x:y:1;x,y;z$:f (7,7,7,22,10 ,2,10 ,7,13 ,7,13 ,12 ,13 ,17,13 ,22 2N64502:g=110 :x:y:f=xx+5:1;f,y;" ":f:g F7,2,8,2,7,5,8,5,7,7,7,12 ,7,17,7,22,7,25,7,29 P^1;13 ,29;" ";6;0;12 ,29;" ":0:7: nA0:1:1::"" b=120:b,0;"";b,31;"":b:"":0:5:7:0: #ZZflag=1:"":#1;6;1;1;"'P' Print. Any other key - go on" #]=""9053]# #^="P":9053]# #d"":1600@::9570b% #Xc(3):p(3):q(3):r(3):4:0:4:0:: $c $1;4,cc;"";5,cc;" ";6,cc;" ";7,cc;" ";8,cc;" ";9 ,cc;" ";10 ,cc;" ";0;11 ,cc;"": %&aflag=0:9900&:9100#:800 :1450:1400x:1500:1200 %b 30 %lD100d:300,:500:1000:700:9000(# & &f=1nb:a:b:a,b:f: la*oZ K