ZXTape! 2 %Spectrum Junior Education J1 - Side ACalpac Educational Software J.J. Warren1982English EducationalUnknownNoneOriginal'TZXed by Andrew Barker For Tony Barnettdraw ~' 9900& plot  J J Warren 1982   910 main program  (z;c;v;b;n;m;x,y 2 r80P <""60< F=""70F Pc$= Z;x=x+(c$="u")+(c$="j")+(c$="m")-(c$="t")-(c$="g")-(c$="b") d;y=y+(c$="t")+(c$="y")+(c$="u")-(c$="b")-(c$="n")-(c$="m") nx=x-(x>255)+(x<0) xy=y-(y>175)+(y<8) }t710 c$"a"40( L7:0:21,0;" ?  " set colours etc.  510 w$=a$ a$="s"r=0 a$="f"r=1 21,0; Zw$="x""INK colour? (0-7)":510:z=a$-480:z<0z>75600 Uw$="c""colour? (0-7)":510:c=a$-480:c<0c>75600 Rw$="v""? (0 or 1)":510:v=a$-480:v<0v>15600 Rw$="b""? (0 or 1)":510:b=a$-480:b<0b>15600 "Rw$="n""? (0 or 1)":510:n=a$-480:n<0n>15600 ,Rw$="m""? (0 or 1)":510:m=a$-480:m<0m>15600 w$="i"x1=x:y1=y:p1=(x,y):a1=(23200Z-32 *(y/8)+(x/8)):"INVISIBLE? (0 or 1)":510:t=a$-480:t<0t>15600:502  860\  w$="e"  w$="z"  40( !ENTER to continue  =21,0;"Press ENTER to continue.":510 a$=13  460 single key input  ""510 =""520 a$=  &attribute out of range  0$21,23;" RE-TYPE." N 245 !invisible   Ox2=x:y2=y:p2=(x,y):a2=(23200Z-32 *(y/8)+(x/8)) c$="a"140 z=a1-8*(a1/8) )p=16:1;z;x1,y1:p p1z;x1,y1 x1=x2:y1=y2:p1=p2:a1=a2  502 Rblank bottom line  \21,0;bc;b$ f 'b$=" " Bt=0:r=1:v=0:b=0:n=0:m=0 t21,0;"Choose your border colour. (0-7)":510:bc=a$-480:bc<0bc>7930 21,0;b$;21,0;6;"Choose your paper colour. (0-7)":510:c=a$-480:oc=c:c<0c>7940 21,0;b$;21,0;"Choose your ink colour. (0-7)":510:z=a$-480:z<0z>7950  bc:c:z: y"x coordinate? (0-255,then ENTER)";x::x<0x>25521,0;"x coordinate out of range":970  y"y coordinate? (8-175,then ENTER)";y::y<8y>17521,0;"y coordinate out of range":980  860\  40( &e$=" ":7:0::5:6;7;e$;" ";0;e$;" Educational Software ";e$ &&12 ,7;"Picture plotter." &E15,0;6;e$;"  1982 J J Warren ";e$ &C'" Press e for an explanation."'" Press ENTER to continue " &/510:a$=13 7::910 &a$"e"9940& & 7: &"Follow the screen instructions to select your initial colours and starting position."''"Draw lines by pressing one of the keys around the ""H"" (home) key." & ''" T Y U"''" \ | /"''" G - H - J"''" / | \"''" B N M":460:9 ,17;"Pressing J";10 ,17;"gives:";13 ,10 ;"->":d=1100d:d:160,68D:n=1502:1,0:n:460 &:"Pressing ""A"" at any time will give the prompt ? ."''"Pressing one of the bottom row keys will then have the"'"following effects:" &'" Z gives a copy of the screen if a printer is attached."''" X lets you change the ink colour (type 0 to 7)"''" C lets you change the paper colour (type 0 to 7)" &460::"After  ?  you may also press:"''" V flash"''" B bright"''" N over"''" M inverse"''" I invisible"''"Turn these on or off by typing:"''" 1 to turn on"''" 0 to turn off" &460::"Finally after  ?  you can type:"''" S slow - plots one point at a time. Used with OVER 1 this lets you rub out."''" F fast - for quick straight lines."''" E stops the program when you have had enough." '460::910 E A homophonesE_ 9900&  J J WARREN 1982 32020:s=0:rc=m:b$="---------------" q=1m:y(q)=q:q (%:n=08:1;e$:n 30:"Your answer was far too long."'''"Start the program again.":410:10 A15,0;e$;15,0;"No, ";i$;" was wrong." 410  c=11 u360h:11 ,0;"The right answer was ";6;q$(q,97a96`+q$(q,107k));7;"."  130 h.n=c21:n,0;e$:n: :21,0;" Press ENTER to continue. "  460 k$=13  420 ""460 =""470 k$=: / 1 4Rs=17,5;6;"";8,5;"":895 9 4 >Ds=2x,y:x,y:x,y,cu1:x,y,cu1:x,y,cu1:x,y,cu1:895 Hx,y,x1,y1,cu1,cu2 Rn=cu1cu2.3 \x,y:x1,y1,n fn 0:7: VT20,0;"Press ENTER to finish.";1;0,0;" " [ 2070 `n=17:x,y j91;2+*6;x,y;"";x+1,y;"" t0.1}L,*60< ~=13 1170 n:1115[ G360h:20,0;"Do you want another go?"'"Type y or n."  460 k$="y"10 k$"n"1180  r$>32 1520 r$:  i=0 i=32 1545  b$=r$(32 -i) .r$(33!-i)=" "b$=","b$="."1550 i=i+1:1525  i=0 r$(32 -i) r$=r$(33!-i) "r$(1)=" "r$=r$(2)  1510 8"a",1,1,3,194,243,81Q,127,14,"b",128,128,192,67C,207,138,254,112p,"c",2,3,13 ,12 ,568,40(,120x,96`,"d",64@,192,176,480,28,20,30,6 58:,120x,62>,24,-2.3333,111o,-8,1,58:,120x,-35#,32 ,.5,1.8ffff,59;,120x,35#,24,-1.7Y,-.73333  W111o,151,26,21,1,2.6&fff,111o,149,-16,-26,-2.6&fff,-1,160,128,14,28,1,2.5 ,160,127,-16,-20,-3,-1,218,130,-6,28,1,2.83333,218,129,4,-23,-3,-1 w2,7,1,12 ,5,15,3,17,4,24,6,22,3,29 $s=110 :800 :s: &:5:6;7;e$;" ";0;e$;" Educational Software ";e$ &11 ,0;n$ &e16,0;6;e$;"  J J Warren 1982 BSc ARCS Cert Ed ";e$ &>:n=14:s$:h=07:a:s$+h,a:h:n & 410 '7::10 я kI do not ____ how to make a cake. (no, know) know They had ____ water, and felt very thirsty. (no, know) no The ____ is an animal which looks like a rabbit. (hair, hare) hare The girl had long, brown ____. (hair, hare) hair The boat had a small red ____. (sail, sale) sail The shop had toys for ____. (sail, sale) sale After he cut his leg, he went very ____. (pale, pail) pale Jack and Jill fetched a ____ of water. (pale, pail) pail John ran fast and ____ the race. (one, won) won She had ____ cat and two dogs. (one, won) one The ball broke the ____ of glass. (pane, pain) pane Mary was in ____ from the bee sting. (pane, pain) pain Mark took the book ____ the teacher. (to, too, two) to He ate ____ many plums. (to, too, two) too The ____ boys were twins. (to, too, two) two The ____ fell off his horse. (knight, night) knight With no moon, it was a dark ____. (knight, night) night Kathy put the book over ____. (their, there) there They played with ____ toys. (their, there) their Please ____ your name in black ink. (write, right) write Which is your ____ hand? (write, right) right Mary tripped on the top ____. (stair, stare) stair The ____ of the tree swayed in the wind. (bough, bow) bough The ____ class went to the swimming pool. (whole, hole) whole The men dug a ____ in the road. (whole, hole) hole He ate an apple and a ____. (pair, pear) pear She wore a ____ of red socks. (pair, pear) pair The polar ____ has white fur. (bear, bare) bear The nettles stung his ____ legs. (bear, bare) bare Have you ____ the lion? (seen, scene) seen m E &&a   <zc i<xy9u uffffNZ Homophones - words which sound the same, but which have different meanings.IrightB R SdK dsub KM 9900& A J J Warren 1982   tens and units subtraction   710 s=0:r=0 :q=110 :n=521:n,0;b$:n #?r=0:c=0:7,0;5;"Question ";q (!x=(*79O+20):x$=x 2#y=(*(x-1)+1):y$=y < a$=(x-y) Fa$=1t$="0":u$=a$ P-a$=2t$=a$(1):u$=a$(2) Z"xt=x$(1):xu=x$(2) dy$=1yt=0:yu=y n/y$=2yt=y$(1):yu=y$(2) sprint subtraction sum  xs12 ,14;x;13 ,13 ;"-";(" "y<10 );y;14,14;"";15,15;"?" 1110V 15,15;" " Ti$=u$r=r+1:15,15;u$:.5,30:810*:320@ correct units  -1,-5:9 ,23;"Units" 2n=130190:n,76L:n,68D:n S502:12 ,25;xu;13 ,24;"-";yu;14,24;"" 1060$ `1:130,76L:60<,0:130,68D:60<,0:0 xuyu290" '18,15;"Take ten across." 612 ,15;7;xu;13 ,15;yu d=1150:d Fn=1424:11 ,n;"10":10 :11 ,n;" ":n 12 ,24;"1" d=1150:d m$="a"8,0;b$;18,0;b$;11 ,2;"this leaves ";xt-1;1;12 ,14;"":c=1 Rm$="b"18,0;b$;13 ,14;1;1;"":c=1  1060$ "W9 ,0;b$;11 ,2;" ";15,25;u$:1060$ ,Sn=2515-1:15,n+1;" ";15,n;u$:10 :n 6;n=02:12 +n,24;" ":n:25 ;accept tens  @15,14;"?" J 1110V Tji$=t$r=r+1:15,14;(" "t$="0")+(t$t$"0"):.5,30:810*:450 Ycorrect tens  ^1,-5 h:n=102f40(-1:n,76L:n,68D:n rv9 ,1;"Tens";12 ,3;xt;13 ,2;"-";;yt;14,2;"";15,14;" " w6m$="a"yu>xu12 ,3;6;xt-1 x6m$="b"yu>xu13 ,3;6;yt+1 |Ln=102f40(-1:1:n,76L:n,68D:0:n Pyu>xu18,0;6;"You used ten when subtracting the units."  1060$ :18,0;b$+b$;15,3;t$:1060$ In=313 :15,n;" ";15,n+1;t$:10 :n E9 ,0;b$:n=02:12 +n,2;" ":n  t$="0"15,14;" " 2s=s+r:r=218,9 ;"Well done." t7,20;s;" out of ";q*2;11 ,14;" ":m$="a"c=11;12 ,14;"" 3m$="b"c=113 ,14;1;""  1050 q print score  9n=521:n,0;b$:n:8,0; %s=20"Excellent.":5600 %s>17"Very good.":5600 %s>14"Well done.":5600  s>12 "Good.":5600 ps>8"You need more practice. Ask for help if there is something that you do not understand.":5600 &9"You need to ask for help before you have another try." 0E''"Your score was ";("only "(s>0s8));s;" out of 20." 51060$:8204 : s8 N<20,0;"Do you want another go?"'"Type y or n." X 1010 bi$="y"790 li$"n"600X v: initialisation  G"a",0,0,0,0,255,0,0,0 J"b",1,2,4,8,16,32 ,64@,128 L"c",0,60<,60<,60<,60<,60<,60<,60< G"d",255,0,0,0,0,0,0,0 N"e",7,15,7,255,255,127,63?,27 U"f",192,254,192,255,255,255,254,108l K"g",128,128,128,0,0,0,0,0  'b$=" " m:1,0;""';4;" ";7;" ";4;" ";1;b$;b$  25  tank crossing  *%2,2+s+r;1;"": 4En=08:m=37.73333:0.01z# =,m*m:m:n >+n=0s:1,n;" ":5:n Hs<20570: R3n=2022:1,n;" ":5:n \)n=05:.1}L,40(:n fn=1502:.005y# =,502:2:200,166:557,0:7:200,166:557,0:n:0 p 570: single key input  ""1010 =""1020 i$=  press ENTER to continue $.21,0;"Press ENTER to continue." . 1010 8i$13 1060$ B21,0;b$: Lsingle digit input  V 1010 `'i$<480ůi$>5791110V j &-:5:6;7;" ";0;" Educational Software " &712 ,0;" Tens and units subtraction. " &17,0;6;"  1982 J J Warren BSc ARCS Cert Ed " &>:n=17:s$:m=07:a:s$+m,a:m:n &B21,0;"Choose method by typing a or b. ":1010 &+i$="a"i$="b"m$=i$:7::10 & 9930& &&aSgflower C!E!+8930": J J Warren 1982 p=m:q=1m:y(q)=q:q <4w=1m:z=(*p+1):q=y(z):p=p-1 Pn=zp:y(n)=y(n+1):n U,a$=q$(q,65A64@+q$(q,75K)) Z0c=16:v:t=2:m=9 800  _ r$=q$(q,64@):1510 dD21,0;5;"Type missing word & press ENTER.":i$ i&i$>31:"Re-load program.": ni$a$240 s<n=16:.1}L,5*n:n:s=s+t:210 $n=160<:q$(q,n)"_"n Qr$=q$(q,n-1)+a$+q$(q,n+464@):19,0;:1510 u:c=16:v w: Ac=16:v:"Well done, ";6;i$;7;" was right." $n=160<:q$(q,n)"_"n \r$=q$(q,n-1)+a$+q$(q,n+464@):18,0;:1510:140 &.5,-20:i$=""260 ?c=19:v:19,0;"No, ";i$;" was wrong. ":u t=23106 qc=16:v:"The right answer was ";6;q$(q,65A64@+q$(q,75K));7;".":130 6t=1:c=19:v @|19,0;"Here is a hint: ";q$(q,65A);z$(3̯q$(q,75K));q$(q,64@+q$(q,75K)):100d hBn=c21:n,0;e$:n:16,0;: 721,0;5;"Press ENTER to continue." 460:k$=13  420 ""460 =""470 k$=: /W16,0;"Which letter shows:";18,15;"the ";a$;"?":460 4"k$>90Zk$=(k$-32 ) >k$<65Aůk$>73I20,0;5;"You must type one of the lettersshown on the picture. ":810* Hv:k$=q$(q,76L)n=16:.1}L,5*n:n:18,0;"Well done. Letter ";k$;" shows the"'a$:s=s+1:140 Ro.5,-20:16,0;"You were wrong."''"Letter ";q$(q,76L);" shows the ";a$:140 r$>32 1520 r$:  i=0 i=32 1545  Ab$=r$(32 -i):r$(33!-i)=" "b$=","b$="."1550 i=i+1:1525  i=0 Gr$(32 -i):r$=r$(33!-i):r$(1)=" "r$=r$(2)  1510 X:a="1":v:9020<# ,F"Now switch off your tape"'"recorder."''"Press ENTER to continue.": 6 6;"THE PARTS OF THE FLOWER.";7'"This program will help you to find out how the parts of a"'"flower enable a plant to produceseeds."'5;"Press the ENTER key to continue.": @u"The program is in three parts. The second and third parts will make sure that you have"'"understood the first.": JV"Many plants use flowers to form seeds."''"The seeds will grow into new"'"plants.": T"The ";6;"stamen";7;" is the male part of the flower."''"It makes a yellow powder called ";6;"pollen";:".": ^"The ";6;"carpel";:" is the female part of the flower."''"When it receives pollen from thestamen, seeds form in it.": hi"The pollen is carried from the male to the female parts of the flower by insects or by the"'"wind.": r14,7,"A":f:6;"Sepals.":"These form the outer layer of"'"the flower bud."''"They curl back when the flower comes out.": |~3,3,"B":f:6;"petals.":"These are the coloured outer"'"parts of the flower."''"They attract insects.": U"All of the petals of a single flower are called its ";6;"corolla";:".": p"The carpel (female part of the flower) has three sections:"'" the ovary"'" the stigma"'" the style.": w9 ,11 ,"C":f:6;"Ovary.":"This contains the female egg"'"cells which will develop into"'"seeds.": |2,12 ,"D":f:6;"Stigma.":"Pollen grains stick onto the"'"the stigma."''"This is called pollination.": "After pollination, a tube grows down through the style from the pollen grain to the ovary."''"Fertilisation occurs when the tube reaches the female cell.": N"The female cell can only grow into a seed if it has been"'"fertilised.": ˜6,12 ,"E":f:6;"Style.":"This joins the stigma to the"'"ovary."''"In some flowers the style is so short that it is hard to see.": ̇"Some flowers have several"'"carpels."''"The collective name for all of"'"the carpels of one flower is the";6;"pistil";:".": y"The stamen (male part of the"'"flower) has an anther at the"'"end of a filament."''"The picture shows four stamens.": 4,15,"F":f:6;"Anther.":"Pollen forms inside the anther."''"When the pollen is ready, the anther splits open.": ]7,16,"G":f:6;"Filament.":'"This is the stalk part of the stamen.": 13 ,12 ,"H":f:6;"Receptacle.":"This is a swelling in the stem at the base of the flower."''"It often grows large as the"'"seeds ripen.": P"We eat the swollen receptacles of plants like the apple and"'"strawberry.": 11 ,8,"I":f:6;"Nectary.":"Nectar is formed in nectaries atthe base of the petals."''"Nectar is a sweet liquid."'"Insects eat it.": {"The nectar attracts bees,"'"butterflies and other insects."''"Pollen from the anthers sticks to the insects' bodies.": o"Pollen is transferred to the"'"stigmas of other flowers when the insects visit them for"'"more nectar.": &"Not all flowers look like the one in the picture."''"Look at some flowers and see how many of the parts you can identify.": "3x,y,l$:x,y;1;" ":d=1200:d "x,y;l$;16,0;: "E:"Leave the tape recorder running until the picture is completed." " "flower" #(n:z$="----------":v=360h:u=410:c=16:f=8910":e$=" " #2a=-223:v #<%8000@+a*10 :420:a #ZEs=0:v:"Do you want to go through that again? Type y or n." #d460:k$="y"7000X #nk$"n"9050Z# #xtv:16,0;"In the next section you have to type in the correct letter for each part of the flower.":u #m=9 :10 #}v:16,0;"Your score was ";s;" out of 9.":s<5''"You need to read the descriptionagain.":u:7000X #[u:v:"In the final section you have totype in the missing word, and then press ENTER." #u:m=14:10 #vv:"Your final score was ";(s*100d/37%+.5);"%.":''"Press ENTER to restart.":420:7000X kThe ____ form the outer cover of the flower buds. sepals A The coloured ____ of the flower help to attract insects. petals B The ____ contains female cells which develop into seeds. ovary C Pollination occurs when pollen grains stick onto the ____. stigma D The ovary and the stigma are joined together by the ____. style E The ____ splits open to release pollen grains. anther F The anther is at the end of a stem called the ____. filament G The swollen ____ of the strawberry is good to eat. receptacle H The ____ makes a sweet liquid which is a food for insects. nectary I The petals of a flower make up its ____. corolla * The anther and the filament together make up the ____. stamen * The ovary, the stigma and the style are parts of the ____. carpel * All of the carpels of one flower make its ____. pistil * Fertilisation takes place when ____ grains reach the stigma. pollen * I mvhucf"2#hxys"sp <ztiZ ----------E LBK AfilamentB R I"aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa$flower @????????@?_??8D8D88D88?8x8@88x8x8888x88?x88xDD D@DD?DxD ?  DDDD@D0@0?DDDD?D(< D8Dx|w??ᇇ>1 ?88x88888h8x񇈌|88