ZXTape! 0Created with Ramsoft MakeTZX ORGANISM ? ? A ;0:0:0::"":0,0;"":"" logo @A& 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`lml<<>~B<~<|<B<@B@bB@(BBBBb@f@BBDbB<@|R@|BB@BRB|N~JB@B~BJNBB@FB@BDBBFBB@BBDFB<<>~B<~>B<xPROGRAM 3 r='r=NT t= tr$(x,y)=(b$(y)x=2)+(c$(y)x=3)+(d$(y)x=4)+(e$(y)x=5)+(f$(y)x=6) b$(x)=(n$(x)inv)+(j$(x)inv):n$(x)=("Fish"x=1)+("Amphibians"x=2)+("Reptiles"x=3)+("Birds"x=4)+("Mammals"x=5):j$(x)=("Protozoa"x=1)+("Coelenterates"x=2)+("Platyhelminths"x=3)+("Nematodes"x=4)+("Annelids"x=5)+("Crustaceans"x=6)+("Myriapods"x=7)+("Insects"x=8)+("Arachnids"x=9 )+("Molluscs"x=10 )+("Echinoderms"x=11 ) uc$(x)=(o$(x)inv)+(k$(x)inv):o$(x)=("Scales"x=1)+("Smooth"x=2)+("Feathers"x=3)+("Hair"x=4):k$(x)=("One Cell"x=1)+("Two layers"x=2)+("Flat worm"x=3)+("Threadworms"x=4)+("Segmented worms"x=5)+("Jointed limbs"x=6)+("Soft bodies,chalky shell"x=7)+("5 Rayed shape"x=8) f$(x)=("Stationary"x=1)+("Walk"x=2)+("Slide"x=3)+("Swim"x=4)+("Jump"x=5)+("Fly"x=6)+("Crawl"x=7)+("Hop"x=8) d$(x)=(p$(x)inv)+(l$(x)inv):p$(x)=("Greater than 1000"x=1)+("100 to 1000"x=2)+("10 to 100"x=3)+("1 to 10"x=4)+("none"x=5):l$(x)=("Water"x=1)+("Blood"x=2)+("Sea water"x=3)+("Intestines"x=4)+("Liver"x=5)+("Plants"x=6)+("Sand"x=7)+("Earth"x=8)+("Land"x=9 )+("Body surface"x=10 ) {e$(x)=("Parasite"x=1inv)+("Varies"x=1inv)+("Saprophyte"x=2inv)+("Constant"x=2inv) "x$(x)=("Animal"x=1)+("Group"x=2)+("Main form of movement"x=6)+("Structure"invx=3)+("Outer covering"x=3inv)+("Habitat"x=4inv)+("No of eggs laid"x=4inv)+("Parasite/Saprophyte"x=5inv)+("Temperature control"x=5inv) %a$(x,y)=22+x+y AZ$(a,a$ư)=22+a+º((40(-a$)/2)+a$ tr$(x,y)=(b$(y)x=2)+(c$(y)x=3)+(d$(y)x=4)+(e$(y)x=5)+(f$(y)x=6) B23658j\,8:236066\,86V:236077\,247 (9900&: set up Z4:0:4::7:0:n=04:n,0;31;" ";:n:0,136:255,0:0,39':-255,0:0,-39':4:0 cmain menu dD8000@:8010J:z$="MAIN MENU":1,10 ;:v=pr2 n7,2;"Press :=-" x110 ,2;"A To look at Invertebrates" /13 ,2;"B To look at Vertebrates" !16,2;"C For help" Amin=1:max=3:sy=10 :step=3:8900" 8000@:8010J : )z=385004!:100d: help : inv=(z=1)  inver/vert menu Bz$=("IN"inv)+"VERTEBRATE MENU":1,8-(inv);:v=pr2 7,2;"Press :=-" G10 ,2;"A To find all details about";5;"an animal" ,13 ,2;"B To list all animals" 016,2;"C To search for an animal" &/19,2;"D To return to main menu" 0Amin=1:max=4:sy=10 :step=3:8900" :z=4100d D8000@:8010J N: X1000*z bB"":#1;0,0;" Press ENTER to go back to menu " l""620l v13 630v #8000@:8010J:500 FIND 1 ANIMAL 27,2;"Find out about which animal ?"  8020T 621,0;31;" ";15,2;I$ <#1;0,0;" Is this O.K. ? (press Y or N)" !z$=:z$"Y"z$"N"1040 :"":z$="N"15,2;31;" ";:1000 L@z$=a$(1,1)+"Print : "+i$:7:v=pr:4 VQ#1;0,0;0;1;" Searching "; `)8010J:9000(#+(500inv) j>a$,b$,c$:a$="""":11 ,7;"Animal not found": ta$i$1130j ~*8800`":decode b$ in b1 b2 b3 b4 b5 8850":decode c$ z$=z$(7,a$)+a$(10 ,2)+x$(2)+a$(10 ,20)+x$(6)+a$(11 ,4)+b$(b1)+a$(11 ,26)+f$ v=pr z$=a$(14,2)+x$(4)+a$(14,21)+x$(5)+a$(15,4)+d$(b3)+a$(15,26)+e$(b4) v=pr 5z$=z$(18,x$(3))+Z$(19,c$(b2)) z$=z$(18,x$(6))+z$(19,f$) v=pr  #]z$=z$(7,a$)+a$(10 ,5)+"Group"+a$(10 ,26)+"Structure"+a$(11 ,5)+g$(b1)+a$(11 ,26)+s$(b2)+a$(14,5)+"Movement"+a$(14,26)+"Habitat"+a$(15,5)+m$(b3)+a$(15,26)+h$(b4)+a$(18,11 )+"Parasite/Saprophyte"+a$(19,15)+p$(b5)  LIST /7,2;"Do you want a list of :-" 210 ,2;"A Name only, or Name and..." gn=26:8+2*n,2;(64@+N);" ";("Whether "n=5inv);x$(n):n Amin=1:max=6:sy=10 :step=2:8900"  8010J Hz$=a$(1,1)+"List : Name":z1z$=z$+" and "+x$(z)  5z$=z$+a$(5,0):7:v=pr:4  9000(#+(500inv) *line=7:X$=X$(Z) 4a$,b$,c$:a$="" >5z$="Name : "+a$+13 :v=pr:line=line+1 H^z=28800`":z$=" "+x$+" "+b$(b1)+13 +13 :v=pr:line=line+2 I^z=38800`":z$=" "+x$+" "+c$(b2)+13 +13 :v=pr:line=line+2 J^z=48800`":z$=" "+x$+" "+d$(b3)+13 +13 :v=pr:line=line+2 K^z=58800`":z$=" "+x$+" "+e$(b4)+13 +13 :v=pr:line=line+2 Rfz=68850":z$=" Main means of movt. "+f$+13 +13 :v=pr:line=line+2 \ line<22Ʀ=""21004 fd#1;0,0;0;" List Paused. Press S to stop ENTER to continue" p""2160p z'z$=:z$"S"z$13 2170z "":z$=13 2090*   SEARCH Pcondition=1:and=0:or=1:l(2):o(2):t(2) 07,2;"Do you want to search by :-" &Tn=15:8+2*n,2;(64@+n);" ";x$(n+1):n 0Amin=1:max=5:sy=10 :step=2:8900" :)z=z+1:t(condition)=z: search by D 8010J N^6,0;"Search by ";x$(t(condition));8,2;x$(t(condition));" is ..." Xmax=s(t(condition),inv+1):n=1max:9 +n,2;(64@+n);" ";R$(z,n):(c$(n)z=2);(d$(n)z=3);(e$(n)z=4);(f$(n)z=5) b7N:min=1:sy=10 :step=1:8900" l(condition)=z:Z$=A$(1+(2condition=2),1)+x$(t(condition))+" is "+r$(t(condition),l(condition)):7:v=pr:4:condition=23250 h8010J:8,2;"Do you want to use another";10 ,2;"condition (Press Y or N)" !z$=:z$"Y"z$"N"3220 z$="N"3300 +condition=2:8010J:3100 8010J:7,0;"Do you want the computer to";8,0;"show the animal :-";10 ,2;"A If either condition is true";12 ,2;"B If both conditions are true":sy=10 :min=1:max=2:step=2:8900" =and=1:or=0:z=1or=1:and=0 Hz$=a$(2,3)+("and"and)+("or"or):7:v=pr:4 I8010J:Z$=A$(5,0):V=PR:9000(#+(500INV) Ha$,b$,c$:a$="" J""3600 M4.006yD,12 :#1;0;"Check ";a$ Rc=1condition \>o(c)=0:t(c)=2b$(2)=l(c)o(c)=1 f7t(c)=3b$(34)=l(c)o(c)=1 p7t(c)=4b$(56)=l(c)o(c)=1 z7t(c)=5b$(78)=l(c)o(c)=1 +t(c)=6c$(l(c))="1"o(c)=1: c:"" J(o(1)o(2)or)((o(1)o(2))and)3400H #z$="Found : "+a$+13 :v=pr io(1)t(1)6z$=" "+x$(t(1))+" "+r$(t(1),l(1))+13 :v=pr io(2)t(2)6z$=" "+x$(t(2))+" "+r$(t(2),l(2))+13 :v=pr ʁ(t(1)=6O(1)=1)(t(2)=6O(2)=1)8850":z$=" Movt. "+f$+13 :v=pr 3400H i"":#1;0;0,0;" Search Paused Press S to stop Enter to continue " ""3610 $'z$=:z$"S"z$13 3620$ ."":z$="S" 8 3405M >0:0 ? @<n=13:n,1;7;30;" ";:n: J&L$(544 ):5,0;L$: T'i$="":21,0;">";i$;"_ "; ^""8030^ hz$=:z$=""8040h m,z$=13 21,0;i$;" ";: r&z$=12 Ʊi$=08030^ |Oz$=12 i$=i$(̱i$-1):21,0;">";i$;"_ ";:8030^ /i$>0z$"A"z$"Z"z$=(z$+32 ) Ez$" "z$""Ʊi$<30i$=i$+z$:21,0;">";i$;"_";  8030^ !3  help  !4'1,13 ;:Z$="HELP":V=pr2 !>6,2;"This program is a 'DATABASE'."''"It contains information on over"'"seventy well known vertebrates"'"(animals with backbones) and"'"invertebrates (animals without"'"backbones)." !H'" The program helps you to find"'"information about these animals"'"using the three options on the"'"Invertebrate and Vertebrate"'"menu's." !Renter:8010J !\6,2;"Option A allows you to find"'"all the information on a"'"particular animal in the"'"computer."''"For example ,to find all the"'"information in the machine on" !f"owls type B from the main menu"'"to get to vertebrates, then"'"select option A on the vetebrate"'"menu and type in 'Owl'."'"The computer will search through"'"and display the owl's group,"'"outer covering, no of eggs laid,"'"temperature control and main"'"method of movement." !penter:8010J !z6,2;"Option B lets you see a list"'"of all the animals the computer"'"has stored in the database."''" Option C on the vertebrate and"'"invertebrate menu's lets you"'"use the computer to hunt for"'"all the animals with a certain" !b"feature."'"For example all the animals"'"that are stationary or all the"'"animals with scales." !enter:8010J !6,2;"The best way to find out"'"about the program is to"'"experiment and get used to the"'"way it works."''" Each choice is explained as"'"you work through." ! ENTER: "_ decode b$ "`_b1=b$(2):b2=b$(34):b3=b$(56):b4=b$(78): "?f$="":n=18:c$(n)="1"f$=f$+("/"f$"")+f$(n) "n: "Y"":#1;0,10 ;0;"Press ";(64@+min);" to ";(64@+max) """8910" "9z$=:z$<(64@+MIN)z$>(64@+MAX)8920" "Mz=z$-64@:n=minmax:sy+(n-min)*step,2;(z=n);(64@+N):n """:#1;0,0;0;" Press ENTER to confirm or";1,4;(64@+min);" to ";(64@+max);" to choose again" """8950" #Hz$=:z$13 (z$<(64@+min)z$>(64@+max))8960# # (z$=13 "":.01z# =,12 : #Rz=z$+64@:n=minmax:sy+(n-min)*step,2;(64@+N):n:8900" #' #(*** the data *** #) "Amoeba","01010102","00010000" #*$"Paramecium","01010102","00010000" #+!"Euglena","01010102","00010000" #,*"Malaria parasite","01010201","00010000" #2"Hydra","02020102","10000000" #3$"Jelly fish","02020302","00010000" #4%"Sea anemone","02020302","10000000" #5"Coral","02020302","10000000" #<#"Planarian","03030102","00100000" #=""Tapeworm","03030401","10000000" #>%"Liver fluke","03030501","10000000" #F""Hookworm","04040401","10000000" #G!"Eelworm","04040601","00010000" #P!"Lugworm","05050702","00100000" #Q#"Earthworm","05050802","00100000" #R"Leech","05050101","00100000" #Z$"Water flea","06060102","00010000" #[""Barnacle","06060302","10000000" #\$"Wood louse","06060902","00000010" #] "Shrimp","06060102","00010000" #^"Crab","06060302","00000010" #d#"Centipede","07060902","00000010" #e#"Millepede","07060902","00000010" #n$"Silverfish","08060902","00000010" #o "Locust","08060902","00000100" #p%"Grasshopper","08060902","00000001" #q#"Cockroach","08060902","00000010" #r "Earwig","08060902","00000010" #s#"Dragonfly","08060902","00000100" #t""Greenfly","08060902","00000100" #u"Lice","08061002","00000010" #v "Beetle","08060902","00000010" #w#"Butterfly","08060902","00000100" #x"Moth","08060902","00000100" #y"Bee","08060902","00000100" #z"Ant","08060902","00000010" #{"Fly","08060902","00000100" # "Spider","09060902","00000010" #"Mite","09061001","00000010" #"Tick","09061001","00000010" #""Scorpion","09060902","00000010" #"Snail","10070902","00100000" # "Limpet","10070302","10000000" # "Oyster","10070302","10000000" # "Mussel","10070102","10000000" #!"Octopus","10070302","00010000" #""Starfish","11080302","00000010" #$"Sea urchin","11080302","10000000" #&"Sea cucumber","11080302","00000010" # "","","" % other data %"Skate","01010101","00010000" %"Shark","01010101","00010000" % "Salmon","01010101","00010000" %"Roach","01010101","00010000" % !"Herring","01010101","00010000" %! "Plaice","01010101","00010000" %&"Frog","02020201","00011000" %'"Toad","02020201","00011000" %("Newt","02020201","01010000" %)$"Salamander","02020201","01010000" %0 "Lizard","03010301","01000000" %1"Snake","03010301","00100000" %2#"Crocodile","03010301","01010000" %3 "Turtle","03010301","01010000" %:"Duck","04030402","00000100" %;"Owl","04030402","00000100" %<"Gull","04030402","00000100" %="Finch","04030402","00000100" %>"Robin","04030402","00000100" %?!"Penguin","04030402","01010000" %D""Hedgehog","05040502","01000000" %E"Bat","05040502","00000100" %F"Cow","05040502","01000000" %G"Rat","05040502","01000000" %H"Camel","05040502","01000000" %I"Seal","05040502","01010000" %J""Elephant","05040502","01000000" %K"Ape","05040502","01000000" %L"Whale","05020502","00010000" %M"Man","05040502","01000000" % "","","" &set up + title &4:0:4::7,12 ;:z$="ANIMALS":V=620033:12 ,10 ;"A Database";17,9 ;" 1984" &Ts(6,2):9950&:m=12:n=16:s(n,m):n:m &cinv=1:pr=620000:pr2=620033:sc=620066:query=620099:enter=9980& & enter: & &10,5,4,5,2,8 &30,11 ,8,10 ,2,8 &B"":#1;0,5;0;"Press ENTER to continue" '""9985' '13 9990' ' .1}L,0:"": ' "":"":"OK": '7:7:0:0:0:0:7:61999/:5,4;1;1;"STILL LOADING ORGANISM..";7,10 ;"PLEASE WAIT.":"":V=65110V: organism 0H yÀu :\ 2\:\=2\>2\ :\u<2\>2\ *6\o&))):\???OG:\'''8o???g@yo|gOx( 9;=~^(/w#~^(/w+ y :\G:\o&)))))x???o|gX:\Oqx(#q:\(2\>2\:\u<2\*K\~Z`  #~( #^#V#:\2\!\:\ >2\FP#N#F#x~ ym#~2\ #~'W'2\ m ym ym#~W:\2\ m ym#~'''W:\ǂ2\ m ym# ~mm ym# ~mm ym# ~mm9# x>2\FP:\G>!2:\G>2#N#F#x~ͱ# x o&)))<:O:G y >2xg'''''o@w$<o 2H\2\W!Xr# x x $$(~((~(|P||hh XX(*D:   (|(| | @8LTTd8088D8@|8DD8(H||@xD88@xDD8| 8D8DD88DD<8 <<8D8TL\@88DD|DDxDxDDx8D@@D8pHDDHp|@x@@||@x@@@8D@LD8DD|DDD88DD8HP`PHD@@@@@|DlTDDDDdTTLD8DDDD8xDDx@@8DDDT8xDDxHD8@8D8|DDDDD8DDDD(DDDDT(D((DDD(| @|@ pp8T$p |8 G^>>VG!;\::\(3:(>2\>2:H\8G???2H\> 2\>2>Z~~<8pp8<~~Z>c`>c>~cc~```<<~cc~ccc>ccccc`````c~c`|`ccs{ogcXd@FBXd@FB ' {Bz {P\P Xd@FA PLANT >\d>\J@\d 50900 e.5,3;"PLEASE WAIT STILL LOADING" f236099\,100d i""50944,145929 j n45,8;0;6;"STOP THE TAPE" x 8200 MENU=0 ,a$(5,64@):H$(7,16) c$(5,4) s$(7,16) o$(7,6) ,2COPY=8000@:THERM=7000X:v=16384@ 6Pt()=((65536*23674z\+256*23673y\+23672x\)/502)  7:7:1: k(10 ):l(10 ) menu=0 58005,229 s$(6)="000000" QB=0:li=1:perc=0:unlock=0:HOLD=0:food=0:plant=0:WATER=0:KEY=0:QUEEN=0:CASKET=0 therm %19,24;1;"00 00" A5,9 ;"PLANT";19,0;" Scisoft Ltd 1984" copy L5:5:1: Qmenu=0 V#5,13 ;7;"MENU" `$8,6;"1. Instructions" j&11 ,6;"2. Play the game" t$14,6;"3. Growth test" ~%17,6;"4. Growth graph" $m=18:k(m)=6:m copy  7:  time=t()  dig=t() leaf=0:fl=0 9i$(1)<491i$(1)>5241160 menu=(i$(1)) (menu+1)*1000  1100L 6:0:6: *1,9 ;7;"INSTRUCTIONS" 3,0;"The object of the game is to find the hidden male plant in Mystery Mansion in order to pollinate a rare South African female plant . If the plant flowers before pollination then the resulting seeds will be sterile and the species will dieout." :;"The growth of the plant is shownon entering each room. You must use your initiative and scientific knowledge to keep theplant alive whilst continuing the search. Unfavourable conditions will cause leaves to fall and reduce the time to findthe male plant ." copy  :::;"Be careful not to bang into the walls as the building is very old and brings rubble down on top of you which could seal yourexit. Beware of the blue room itis too dark to see where you aregoing!" :"One last warning - on finding the plant it needs to be pollinated. You may not be able to do this especially if you have not entered a certain room." n:"Good luck you have 60 minutes tofind the male plant . Plants grow very quickly in Mystery Mansion."  copy 1100L J:58005,199:5,1;"Please wait - Hiding objects" v(6):w(6) r(8) $m=17:r(m)=0:m Km=16:v(m)=(*12 )+3:W(M)=(*25)+3 I((V(M)*32 )+W(M)+57088)+1/8<23006 M 7 g=(*12 )+3 h=(*25)+3 x=16:y=16 -p=((((x*32 )+y)+22528X))/8 z=p 58005,199:therm ޗm=16:v(m),w(m);(((v(m)*32 )+w(m)+57088)+1)/8;9 ;"*":m:x,y;p;"":(G,H)/8<13022 4t()-dig>599WŨt()-time>599W7400 m=16 m =""3053 ?j$=:pɺzp>.9ffffj$""r(p+1)=03200 0x=16y=16j$5573039 x,y;p;" " (j$=535p=(x,y-1)/8 (j$=568p=(x,y+1)/8 (j$=546p=(x+1,y)/8 (j$=557p=(x-1,y)/8 p<.2~L3053 j$=557x=x-1 j$=546x=x+1 j$=568y=y+1 j$=535y=y-1 g=xh=y6800 (X,Y)="*"85004! x,y;p;li;"" p<.2~L3039  3040 r(p+1)=1 PAP=P 7:7:1: 58005,229 therm )1,7;p;9 ;" ROOM ": perc=perc+1 7800x (p*100d)+8900" (p*100d)+5900  m=15 c$(m)=m+((*1000)) m j$="n" n=14 5c$(n,2)>c$(n+1,2)9800H& n j$="y"3227 1  m=15 D1;m;".";0;" ";a$((c$(m,1)),322) )a$((c$(m,1)),32 546) m 0 z=p 4t()-time>600XŨt()-dig>600X7400 dig=t() W(t()-time)<100d19,24;1;"00 0";(((t()-time)/10 )) W(t()-time)>99.9G19,24;1;"00 ";(((t()-time)/10 )) 7700 (p*100d)+59415 58005,229  3037  7:1:7: right=0 *5,10 ;7;"Growth Test" ::"The object of this game is to estimate the growth of the plantfrom the initial stalk. At firstthe height is shown on the rule but this is removed if you get three questions right." copy 58005,229 therm %19,24;1;"00 00" g=15 right38300l z=1:ch=0 k(z)=(*10 )+1 19,28;g n=1k(z) Tch=014-n,26;0;(157+ch);4;(160+ch) Tch=114-n,25;4;(160+ch);0;(157+ch) ch=ch n )5,0;7;"What is the" +7,0;7;"height shown?" >0,0;6;" Key in height then ENTER. " copy+5 "m=1̱i$ ,-i$(m)<480i$(m)>5794140, 6m 715,0;7;" " 817,0;7;" " @0k(z)=i$15,2;7;"CORRECT" Jk(z)=i$right=right+1 T.k(z)ɰi$15,2;7;"WRONG" ^copy c15,2;" " dm=1k(z) e%14-m,25;7;" " fm hg r4:4:0: |/5,4;7;"Growth Test Score" -10 ,4;6;"RIGHT: ";right 513 ,4;6;"WRONG: ";5-right copy  7:7:  ch=0 +5,10 ;7;"Growth Graph" ::"The object of the game is to note down the growth of the plant from it's original height and then by using the cursor keys 5 & 6 to plot height against time." copy 58005,229:therm %19,24;1;"00 00" z=15  ch=0 k(z)=(*5) %z>1k(z)=k(z)+k((z)-1) k(z)10 k(z)=10 19,28;z-1 n=1k(z) Tch=014-n,26;0;(157+ch);4;(160+ch) Tch=114-n,25;4;(160+ch);0;(157+ch) ch=ch n e2,0;7;"Note down on paper"::7;"a) The height":7;"b) The time." 115,0;7;"Reading Number: ";z ,19,10 ;7;"Time (hours)" copy <z P7:7: SM6;" Press P to plot the height. Cursor keys to move position. " U 3,0;"Height (cm)" Zm=12 0-2 d18-m,4;m nm xm=04 20,8+4*m;m m "21,9 ;"Time (hours)" M568,20:0,116t:0,-116t:160,0 m=15 !x=18:y=4+m*4 x,y;7;"" ""5343 =""5344 j$= /j$=80Pj$=112px,y;2;"" -j$=80Pj$=112pl(m)=18-x (j$=80Pj$=112p5380 'j$<546j$>5575343 x,y;7;" " j$=557x=x-1 x<5x=5 j$=546x=x+1 x>18x=18 x,y;7;""  5343 m m=15 k(m)l(m)1 "/18-k(m),4+m*4;4;"" ' 0 ,m 6?1,0;5;" Correct plots shown in green. " @copy n o 1100L p*2,0;"There is great danger" r"of your plant's leaves" t"turning yellow. There are 5" v"switches painted with" x"luminous paint and" y "labelled:" ":5;6;"Key 1 to 5"   k(z)4fl=1  *2,0;"You see various types" "of soil to put plant in." "Choose which type." ":5;6;"Key 1 to 5"    6k(z)3fl=1 7 8(2,0;"Your plant requires" :"Calcium and nitrogen." <"You see the following" L"Solutions." N"Choose one of them." ]":5;6;"Key 1 to 5" ` o k(Z)4fl=1  *2,0;"You begin with a seed" "which before you can" "start your search must" "germinate. Which of" "these conditions are" "needed for germination?" ":5;6;"Key 1 to 5"   k(z)3fl=1  )2,0;"You see a number of " "cabinets to put plant" "in. They are labelled" "as shown below." %"Choose on of the" &"cabinets. Key 1 to 5." ( 7 bk(Z)1fl=1 c d(2,0;"You see five boxes." f"The contents of which" h"may help to keep plant" j"alive. They are" l "labelled:" ":5;6;"Key 1 to 5"   4k(Z)=1k(z)=3k(z)=5fl=1  ,2,0;"You see jars containing" "one of the following." "Your plant will need" "one of these jars when" "you have found the male"  "plant!" ":5;6;"Key 1 to 5"   *4k(Z)=2k(z)=3k(z)=5fl=1 +  5:5:1:  8800`" i$="Y"3030  ch=0 n=-73 leaf<1leaf=1 ach=0leaf>013 -n,26;0;(157+ch);4;(160+ch) ach=1leaf>013 -n,25;4;(160+ch);0;(157+ch) ch=ch n ak(7)>1fl=1CASKET<1WATER<1QUEEN<1QB<16835  7,26;3;"" :8,25;3;"";6;"";3;""  9 ,26;3;"" fl=1k(7)>1casket<1water<1queen<1qb<120,0;"You have completed ";perc*10 ;"%"'"of this adventure." ~k(7)>16,0;"You have been unable":"to pollinate the plant":"and hence the seeds are":"sterile." bfl=111 ,0;"Growth conditions were":"unsuitable and it has":"not flowered." copy  1000 W b58000   i$:i$=""7200  *K21,0;7;" ";:i1=0:i2=0:n=1̱i$ >d(i$(n)<" "i$(n)>"")i$(n)""(i$(n)"."i2)21,0;"Someone is playing!":7200  C'i$<491i$>5357200  H 0:7:0: g5,0;" Your plant has not been pollinated. Better luck next time." L:;" You have completed ";perc*10 ;"%"'" of this adventure." 1:6;" ": ak(1)<4k(1)=5"You made a poor choice in order to reverse etiolation." k(2)=1k(2)=5"Your choice of soil would resultin poor water retention for yourplant. Plants cannot survive without water." Lk(2)=2"Your choice of a clay soil wouldcause poor drainage." |k(2)=4"Some plants e.g. Rhododendrons prefer slightly acid soils but bad luck this rare plant does not." jk(3)<4K(3)=5"You did not provide your plant with the nutrients it required." k(5)=2"Soda lime absorbs carbon dioxidefrom the air - plants require carbon dioxide for photosynthesis." k(5)=3k(5)=4"Oxygen, nitrogen and hydrogen gases are not required by plantswhich are carrying out photo- synthesis." k(5)=5"Your choice of sulphur dioxide was a poor one. This gas kills plants and is the cause of acid rain that is killing trees in Europe." k(6)=1k(6)=3k(6)=5"Your choice of organism was a poor one since it would kill theplant." 6k(7)=2"Aphids (greenfly) kill plants." .k(7)=3"Nematodes kill plants."  ?k(7)=4"Earthworms do not pollinate plants."  ?k(7)=4"Pesticides do not pollinate plants." .copy 858005,199 :therm <g,h;4;"" =N21,0;"The position of the ";4;"";7;" is shown " >copy K 130 ""7700 =""7701 q$= ('q$<491q$>5357700 Zk(z)=c$((q$),1) d22650=25ž22920=577400 w x(ch=0:leaf=(t()-time)/60< leaf10 leaf=10 [k(4)=1k(4)=2k(4)=4k(4)=5leaf=0 mk(1)=1k(1)=2k(1)=3k(1)=5leaf=leaf-(t()-dig)/10 mk(2)=1k(2)=2k(2)=4k(2)=5leaf=leaf-(t()-dig)/20 bk(3)=1k(3)=2k(3)=3k(3)=5time=time-300, <k(5)>1k(5)<5time=time-300, )k(5)=5time=time-600X Ok(6)=1k(6)=3k(6)=5time=time-600X 4k(6)=4leaf=leaf-(t()-dig)/20 <k(7)=2k(7)=3time=time-600X leaf<0leaf=0 zp p=4leaf=0 n=0leaf ach=0leaf>013 -n,26;0;(157+ch);4;(160+ch) ach=1leaf>013 -n,25;4;(160+ch);0;(157+ch) ch=ch n 6leaf<0leaf=0 ? @Umenu<30,0;0;4;" Press key 1-5 then ENTER. " AUmenu30,0;0;4;" Press key 0-9 then ENTER. " Ei$:i$=""8005E JK21,0;7;" ";:i1=0:i2=0:n=1̱i$ ^d(i$(n)<" "i$(n)>"")i$(n)""(i$(n)"."i2)21,0;"Someone is playing!":8005E bmenu>28036d c'i$<491i$>5358000@ d'i$<480i$>5798000@ h m=18 Q$ D=07 & E:Q$+D,E 0D :M D lx=110 v#2+x,30;6;" " x  !4 !9o=(*6)+1 !:s$(6,o)="1"85059! !;:9991'+o !<60;6;" You see before you a number of " !=60;6;"objects. What do you want to do?" !>>m=15:s$(M):6+m,0;m;". ";s$(M):m !Ht16,0;4;0;"KEYWORDS";7;" TAKE OPEN FEED CLOSE LOCK UNLOCK " !RP23658j\,8:"Type in keyword then press ENTER";i$:i$=""8005E !\g21,0;7;" ";:i1=0:i2=0:n=1̱i$ !fd(i$(n)<" "i$(n)>"")i$(n)""(i$(n)"."i2)21,0;"Someone is playing!":8005E !nLI$="TAKE"I$="FEED"I$="OPEN"I$="CLOSE"I$="LOCK"I$="UNLOCK"8560p! !o 8530R! !pMI$"FEED"20,0;" ";I$;" WHAT?" !qXI$="FEED"20,0;" ";I$;" PLANT WITH WHAT?" !zP23658j\,8:"Select 1 to 5 then press ENTER ";K$:K$=""8570z! !g21,0;7;" ";:i1=0:i2=0:n=1̱K$ !d(K$(n)<"1"K$(n)>"5")K$(n)""(K$(n)"."i2)21,0;"Someone is playing!":8005E !!I$="TAKE"I$="FEED"8720" !II$="CLOSE"I$="OPEN"I$="LOCK"I$="UNLOCK""You can't ";i$;" ";s$(k$) """8705" "=""8706" "8I$="CLOSE"I$="OPEN"I$="LOCK"I$="UNLOCK"8507;! "I$="TAKE"H$(O)=S$(K$) "-i$="FEED"O=6ưK$>37400 "0i$="FEED"O=6ưK$>3plant=1 "?i$="FEED"O<6ưK$2"Plants don't need ";s$(k$) "@i$="FEED"O=6k$"2""Green plants die without water. " "/i$="FEED"O=6ưK$=2food=1 "-;"Press any key then ENTER. ";i$:i$=""8749-" ".g21,0;7;" ";:i1=0:i2=0:n=1̱i$ "8d(i$(n)<" "i$(n)>"")i$(n)""(i$(n)"."i2)21,0;"Someone is playing!":8749-" "Cs$(6,o)="1" "Fm=16 "Hv(m)=xw(m)=yv(m)=0 "I#v(m)=0w(m)=yw(m)=0 "Lm "NP=PAP "P58000 "R9h$(o,4)="Glow"h$(o,4)="Torc"li=9 "V 3038 "` y=0 "a "b 7 "d y=y+1 "e1,0;4;"Congratulations you have found the male plant . To complete the adventure the next four commands must be in the correct order. COMMAND : ";Y;" " "g/10 ,0;"You have collected from :" "jjm=16:11 +m,2;"Site ";M;". ";H$(M):h$(m)=""11 +m,10 ;"Nothing":m "k=h$(m)=""h$(m,1)=" "11 +m,10 ;"Nothing" "lM "tt20,0;4;0;"KEYWORDS";7;" TAKE OPEN FEED CLOSE LOCK UNLOCK " "~=23658j\,8:"Type in keyword then press ENTER";i$ "I$=""8830~" "g21,0;7;" ";:i1=0:i2=0:n=1̱i$ "d(i$(n)<" "i$(n)>"")i$(n)""(i$(n)"."i2)21,0;"Someone is playing!":8830~" "LI$="FEED"I$="TAKE"I$="OPEN"I$="CLOSE"I$="LOCK"I$="UNLOCK"8860" " 8830~" "#I$="FEED""Feed plant with what" "kI$="TAKE"KEY<1QUEEN<1CASKET<120,0;"I see nothing to ";i$;" " "?I$="TAKE"KEY<1QUEEN<1CASKET<1100d "@I$="TAKE"KEY<1QUEEN<1CASKET<18801a" "*I$"FEED"21,0;I$;" what?" "P23658j\,8:"Select 1 to 6 then press ENTER ";K$:K$=""8870" "g21,0;7;" ";:i1=0:i2=0:n=1̱K$ "Z(K$(n)<"1"K$(n)>"6")(K$(n)""i2)21,0;"Someone is playing!":8870" ")y=1i$="FEED"perc=perc+.4L "+y=2i$="UNLOCK"perc=perc+.4L ")y=3i$="OPEN"perc=perc+.4L ")y=4i$="TAKE"perc=perc+.4L "AY=1I$="FEED"H$(6,5)="Water"WATER=1 "EY=2I$="UNLOCK"H$(2,6)="Casket"CASKET=1 ">Y=3I$="OPEN"H$(K$,6)="Casket"QUEEN=1 "FY=4I$="TAKE"H$(2,12 )="Casket + Bee"QB=1 "DY=3I$="OPEN"H$(K$,6)="Casket"H$(K$)="Queen Bee" "4I$="FEED""You feed the plant ";H$(K$,12 ) "I$="FEED"8985# "FI$="UNLOCK"H$(1,6)"Silver""You do not have a key!!" "7I$="UNLOCK"H$(1,6)"Silver"8985# "EI$="UNLOCK"H$(2,6)="Casket""You unlock the casket." ";I$="UNLOCK"H$(2,6)="Casket"unlock=1 "SI$="UNLOCK"H$(2,4)="Yale"H$(2,6)="Casket"8985# "Ounlock=1i$="OPEN"k$="2""You see inside the casket a Queen Bee." "Gunlock=1i$="OPEN"k$="2"h$(2,12 )="Casket + Bee" "-unlock=1i$="OPEN"k$="2"8985# #*20,0;"I see nothing to ";i$ #H"Do you want to return to the mapof the house? Y for yes N for no";i$ #i$=""8990# # g21,0;7;" ";:i1=0:i2=0:n=1̱i$ #!]i$(n)""(i$(n)"N"i2)(i$(n)"Y"i2)21,0;"Someone is playing!":8990# #" ##i$="N"y<48804d" #&23658j\,0 #' #( a$(1)="11Carbon dioxide" #-a$(2)="12Water" #2a$(3)="13Air" #7a$(4)="14Light" #<a$(5)="15Fertilizer" #F #6a$(1)="21Soil with a lot of sand" #6a$(2)="22Soil with a lot of clay" #7a$(3)="23Soil with a lot of humus" #6a$(4)="24Soil with a lot of acid" #8a$(5)="25Soil with a lot of gravel" # ##a$(1)="31Potassium nitrate" #$a$(2)="32Magnesium sulphate" ##a$(3)="33Calcium phosphate" #!a$(4)="34Calcium nitrate" $ a$(5)="35Sodium nitrate" $ $T@a$(1)="41Water, warmth & carbon dioxide" $Y a$(2)="42Water & oxygen" $^8a$(3)="43Water, warmth & oxygen" $c9a$(4)="44Water & carbon dioxide" $h a$(5)="45Water & warmth" $r $ a$(1)="51Carbon dioxide" $!a$(2)="52Air + Soda Lime" $#a$(3)="53Oxygen & Nitrogen" $:a$(4)="54Nitrogen & Hydrogen" $!a$(5)="55Sulphur dioxide" $ %%a$(1)="61Dodder - a parasite" %!:a$(2)="62Nitrogen-fixing bacteria" %&<a$(3)="63Wild oats - a competitor" %+a$(4)="64Earthworms" %0a$(5)="65Guinea pigs" %: %a$(1)="71Bees" %a$(2)="72Aphids" % a$(3)="73Nematode worms" %a$(4)="74Earthworms" %a$(5)="75Pesticide" % &H t$=c$(n) &Rc$(n)=c$(n+1) &\c$(n+1)=t$ &fj$="y" &p '_"N",12 ,14,7,3,3,3,6,12 ,"O",28,568,112p,224,224,96`,112p,568,"P",24,60<,126~,255,255,126~,60<,24,"Q",0,0,568,248,124|,126~,31,7,"R",0,0,28,31,62>,126~,248,224,"S",8,28,62>,62>,62>,62>,28,8,"T",0,0,24,60<,60<,24,0,0,"U",0,0,60<,126~,255,126~,60<,0 '>"Thermometer","Silver key","Chicken wire","Candle","Workers" ' ;"Ammeter","Yale lock","Casket","Light bulb","Butterflies" ' 6"Voltmeter","Chain","Maggots","Glow worms","Beehive" ' 5"Metre rule","Bolt","Wasps","Torch","Wicker basket" ' 9"Gas meter","Oil lamp","Drones","Tin opener","Shoe box" ' 6"Golden syrup","Water","HP sauce","Vinegar","Saline" graphics 99Q9/}D | (  =!"%9"=!")="%8888888888888888888888888888888888888888888888888888888888888888888888((((((00000000088888888((((((00000000088888888((((((000000000088888888((((((00000000088888888(000000000888880000000008888000000000888808888 8888 8888 8888 8888 8888 88888 88888888888888 8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888!@w# }}}}AyEEEAAQEE}}AE}EEyEEE}}}88}A}} AA }Q 8Q} 8}A 8}}} ???#  #99999999999999999999???????????99999999999999999?????????????0009999999999999999999999???????0009999999999999999999999???????0009999999999999999999999???????000999999999999999999999999?????000999999999999999999999999?????0009999999999999999999999???????0009999999999999999999999???????000999999999999999999999999?????0009999999999999???????9999?????0009999999999999???????9999?????0009999999999999999999999???????0009999999999999999999999???????000999999999999999999999999??8?9999999999999999999999999999?:::9999999999999999999999999999?:::99999999999999999999999999999:::99999999999999999999999999? 9?????999999999999999999? ??8?? 99?????99999999999999999? 99????????????????????????????????  8p`p8<~~<8|~>~>>>><<<~~<'