SYMMETRY 6 68 20:0::"":0,0;"":"" SY @6m6lmm6mmm6lmm6mmm 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`lmlB<@Dff@BD@BBDbB<(ZZ|B(@BBBR@BB@|@B~BJNBBB@D@BBDFB<BB~B~B<symmetry 'Iܯ  SYMMETRY  `wait=7300:yesno=7100:enter=7000X:instructions=5000:title=6000p 23658j\,8:caps on da(8,2):points nHd(8,2):n=18:m=12:d(n,m):m:n x0,7,5,5,7,0,5,-5,0,-7,-5,-5,-7,0,-5,5 f(4,2) 4n=14:m=12:f(n,m):m:n E1,1,-1,1,1,-1,-1,-1 #a$="":ink=0:paper=7 )6000p:title page+instructions Vn=18:a(n,1)=128:a(n,2)=88X:n:start positions a$="" 5:0,11 ;:Z$="SYMMETRY":V=32000} &''"please choose colours from below" "1 blue paper white ink" "2 red paper white ink" $"3 white paper blue ink" ."4 white paper red ink" 8"5 yellow paper black ink" B"6 green paper black ink" L!z$=:z$>"6"z$<"1"1100L V$z$="1"paper=1:ink=7 `$z$="2"paper=2:ink=7 j$z$="3"paper=7:ink=1 t$z$="4"paper=7:ink=2 ~$z$="5"paper=6:ink=0 $z$="6"paper=4:ink=0 z$ wait U'"do you want A) rotational symmetry or B) line symmetry" 3#1;1,4;"PRESS A OR B"; !z$=:z$"A"z$"B"1190 $"":z$:rot=0+(z$="A"):wait Mn=1100d:n::0,11 ;:Z$="Symmetry":v=32000}  ''''"what order of symmetry ?" ."A) order 2"'"B) order 4"'("C) order 8"rot) \#1;1,4;"PRESS ";("A , B OR C"ROT);("A OR B"ROT); /z$=:z$<"A"z$>"C"(z$="C"rot)1240 "":z$="A"order=2 z$="B"order=4 z$="C"order=8  z$:wait  w'"finally do you"'"A) want the computer to draw the shape as you do or"'"B) want it to draw the shape at the end" 3#1;1,4;"PRESS A OR B"; !z$=:z$"A"z$"B"1300 "":now=0+(z$="A") xKpaper:ink::#1;1,0;" press S to stop " *z$=:(z$<"1"z$>"8")z$"S"1500 a$=a$+z$:z$="S"1600@ 5z=z$:now3000 -(1000rot):1500 a(1,1),a(1,2):a(1,1)=a(1,1)+d(z,1):a(1,2)=a(1,2)+d(z,2):a(1,1)<0a(1,1)>255a(1,2)<0a(1,2)>175.2~L,0:a$=a$(̱a$-1):a(1,1)=a(1,1)-d(z,1):a(1,2)=a(1,2)-d(z,2):1500 'd(z,1),d(z,2):1500 ? then @enter:NOW4100:DONE J-:#1;1,6;"Drawing shape" TVn=18:a(n,1)=128:a(n,2)=88X:n:start positions YVn=18:a(n,1)=128:a(n,2)=88X:n:start positions ^>m=1̱a$-1:z=a$(m):3000 -(1000rot) hm renter:4100:DONE rotations #n=18(8/order) +zz=z+n-1:zz>8zz=zz-8 a(n,1),a(n,2) a(n,1)=a(n,1)+d(zz,1):a(n,2)=a(n,2)+d(zz,2):a(n,1)>255a(n,1)<0a(n,2)<0a(n,2)>1754000 d(zz,1),d(zz,2) n  reflections 4n=12+(2order4):reflect a(n,1),a(n,2) a(n,1)=a(n,1)+f(n,1)*d(z,1):a(n,2)=a(n,2)+f(n,2)*d(z,2):a(n,1)>255a(n,1)<0a(n,2)<0a(n,2)>1754000 5f(n,1)*d(z,1),f(n,2)*d(z,2) n  @#1;1,0;" out of screen. press ENTER " enter+10 7:0::5,0;"Do you want to see this again ?"'"press Y or N":yesno:i$="Y"now=0:paper:ink::1600@ hswait:10 ,0;"Do you want to"'"try another design ?"'"press Y or N":yesno:i$="Y"1000 jwait:15,0;"Do you want to"'"run the program again"'"press Y or N":yesno:i$="Y" ':'''"O.K. then"''"goodbye........": instructions 7:0:7: $0,7;"S Y M M E T R Y" 52,0;"This program enables you to draw" "symmetrical patterns on the"  "screen."  '" You draw one line and the" ""computer will draw in the rest" "'" Before you start there are"  "several choices you can make" $"about the shape you wish to draw" #'" You can choose the colours ," "decide on line symmetry or" $"rotational symmetry , and choose"  ""how many lines of symmetry you"  "want the computer to give to"  "shape" (enter < F32,0;"You can also have the computer" P""fill in the other lines as you" Z"draw them or draw the whole" d"shape at the end." &''''"You can draw using the keys :-" " 812"'" 7 3"'" 654" +''"It's a good idea to jot these"'"down."  otitle page p{7:0:7::5,11 ;:Z$="Symmetry":v=32000}:16,9 ;" Scisoft 1983":enter zF:5,0;"Do you want instructions"'"press Y or N" yesno:i$="Y"instructions  enter: W enter X9#1;1,4;"Press ENTER to continue" b""7010b l13 7020l v.1}L,12 :"":  yesno !i$=:i$"Y"i$"N"7100   wait ""7300  '31999|:7:1:0:0:0:0:7::5,5;1;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":"": '["symmetry"9998':"symmetry"32000},200:"symmetry""a",22*8 aiesnnteXnstructionitlpUU-AnapeZSymmetryv|symmetry }Io3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.Cookesymmetry XIͲ<~~<<$B~~~B$$BUUUUUUUժժUUUBfZBBBBbRJFBcn=12:d(n)=2+(*(3+(2level>2)+(4level>4))):n H.n=12:n(n)=(1+*d(n)):n R9n(1)=n(2)d(1)=d(2)2110> 15,0;"Which is bigger";17,5;"A ";n(1);"/";d(1);19,5;"B ";n(2);"/";d(2);21,5;"C They are both the same" :#1;1,7;"Press A , B or C" loop=1  loop=delay*28000@  loop=delay*48100  loop=delay*68200 $;i$=:loop=loop+1:i$"A"i$"B"i$"C"2310 .G.1}L,24:"":#1;1,4;"your answer is ";i$ ` loopf(2)a$="A":z$=n$(n(1))+" "+d$(d(1),n(1))+" is bigger" _f(1)5level=5 Z.1}L,24:enter: see score 3:7:3::n=70-1:n;0,0;" " .1}L,24-6*n:n a7,2;:Z$=N$:slow:9 ,2;:z$="Your score is "+score+" out of 5":slow z$=("Perfect !!! Well done."score=5)+("Very good score!"score=4)+("Well done. Not a bad score. "score=3)+("Not bad at all !"score=2)+("I think you can do better !"score=1)+("Oh dear. Perhaps you had better"++13 +"start again."score=0) &12 ,0;:slow 0n=1200:n :T17,0;"Do you want to play Fractions"'"again ? (press Y or N)" D-again=0:yesno:i$="Y"again=1 N V\  Winstructions Xy:0,8;:z$="Fractions":v=32000}:5,0;"Please type in your name"'"then press ENTER" bn$:23658j\,8:8,0;"Hello ";n$;''''"Do you want instructions"'"on how to play fractions ?"'"(press Y or N)" lyesno:i$="Y"7100 vS#1;1,1;"Press ENTER to start the game":(enter+10 ): F:0,2;:z$="Instructions for Fractions":v=32000} e5,0;:z$="In this program the computer"+13 +"will give you five questions":slow _delay:8,0;:z$="In each question you will see"+13 +"two fractions.":slow `delay:11 ,0;:z$="You must say which of the two"+13 +"is the BIGGER.":slow xdelay:14,0;:z$="The computer will draw a grid"+13 +"to help you if you are stuck.":slow:delay: ?box 1 and 2 (num1 /denom2 @n=12:513,159-36$*n:c(n);152,0:c(n);0,16:c(n);-152,0:c(n);0,-16:n J  grid n=12:4*n-1,3;d$(d(n),2):m=1d(n)-1:c(n);524+m*(150/d(n)),159-36$*n:c(n);0,16:m:n  fill it in n=12:4*n-1,3;n$(n(n));" ";d$(d(n),n(n)):m=160174:1;c(n);524,m-36$*n:1;c(n);150*(n(n)/d(n)),0:m:n  #' #(~4:0:4::5,10 ;:z$="Fractions":v=32000}:16,9 ;" Scisoft 1983":enter: # enter #:#1;1,4;"Press ENTER to continue"; #""9110# #13 9120# #.1}L,12 :"": # yesno #""9200# #!i$=:i$"Y"i$"N"9210# $ $Sslow print routine $TTn=1̱z$:z$(n)13 z$(n);"";8;:.01z# =,6:9320h$ $^" ";z$(n);:.1}L,12 $h3:n:" ";: $ clear $Jn=1521:n,0;" ";:n: '31999|:7:1:0:0:0:0:7::5,5;1;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":"": '^"fractions"9998':"fractions"32000},200:"fractions""a",22*8 eescor lalea$loT$esn#nstructionXitl(#nte#    ela<eveZ Fractionsv)fractions }H'3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.Cookefractions XHf~@|@@@>BB<DHpHDB@@@@@~BfZBBBBbRJFBn$:23658j\,8:8,0;"Hello there ";n$''"Do you want instructions for"'"name that shape ?"'"press Y or N" !Hyesno:i$="Y"8600! !R enter: !N:1,8;:z$="Name that Shape":v=32000}:7,0; !^z$="In this program the computer"+13 +"will draw a shape on the"+13 +"screen."+13 +13 :slow:z$="You are given three names"+13 +"for the shape and you must"+13 +"choose which you think is"+13 +"the right one."+13 +13 +"After five shapes the computer"+13 +"will give you a score.":slow: #(0:6:0::5,8;:z$="Name that Shape":v=32000}:16,9 ;" Scisoft 1983":enter: # enter #:#1;1,4;"Press ENTER to continue"; #""9110# #13 9120# #.1}L,12 : #slowprint #Kn=1̱z$:z$(n)=13 " ";z$(n);:.1}L,12 :9220$ #1z$(n);"";8;:.02{# =,6:4 $ n:" ";: $S clear $TJn=1521:n,0;" ";:n: $!i$=:i$"Y"i$"N"9400$ $""9410$ $ '31999|:7:1:0:0:0:0:7::5,5;1;"STILL LOADING";7,5;"LEAVE TAPE RUNNING":"":"": 'R"shape"9998':"shape"32000},200:"shape""a",22*8 esn$am4!leaT$oquestiolo#itl(#nte#ZName that Shapevshape }3*K\~Z`  #~( #^#V#}P:\G>!2}:\G>2}#N#F#x~f}# x o&)))<:}O:}G y >2}xg'''''o@w$<By P.W.Cookeshape Xy<~~<<$B~~~B$$BUUUUUUUժժUUUBfZBBBBbRJFB