ZXTape! 0Created with Ramsoft MakeTZXBUG i iz k e0,0,0:"(1)"-1::"":"":REM REM REM REM :"":REM:10:"GERMAN":32000 logo @ & 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<@B@bB@(BBB@BBDbB<@|R@||B@@BBBR@@@J@@>BBN@B~BJNBB@FB@BBB@BBDFB<<>~B<~>|<<~B<CPROGRAM 1 \d\T \d 50900 e.5,3;"PLEASE WAIT STILL LOADING" f236099\,100d i""50944,145929 j n45,8;0;6;"STOP THE TAPE" x 8200 ,a$(5,64@):H$(7,17) 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" fl=0:close=0:LI=1:PERC=0:UNLOCK=0:HOLD=0:FOOD=0:PLANT=0:WATER=0:KEY=0:BOX=0:OPEN=0 therm %20,24;1;"00 00" @5,13 ;"BUG";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. Temperature test" ~*17,6;"4. Temperature graph" $m=18:k(m)=6:m copy 7:7:  time=t()  dig=t()  fl=0 9i$(1)<491i$(1)>5241160 menu=(i$(1)) (menu+1)*1000  1100L 6:0:6: *1,9 ;7;"INSTRUCTIONS" 4,0;"The object of the game is to find the hidden box in MysteryMansion. This box contains the necessary requirements to keep a rare South American bug alive." B:;"There is a thermometer in each room. You must quickly assess whether the temperature is changing and then to use your initiative and scientific knowledge to keep bug alive, whilst continuing the search. Bug prefers a temperature of 35C. It will die if the temper-ature reaches 30C or 40C." copy  3,0;"Bug will also die if it is inunfavourable conditions. If thisis likely, then get out of the room as fast as possible." :;"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!" {:"Good luck you have 60 minutes tofind the box but then time in Mystery Mansion has a habit of passing very quickly."  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:1:7: 58005,229 therm m=04 ,13 -m,26;3;1;"" m '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() dig=t() W(t()-time)<100d20,24;1;"00 0";(((t()-time)/10 )) W(t()-time)>99.9G20,24;1;"00 ";(((t()-time)/10 )) 7700 (p*100d)+59415 58005,229  3037  7:1:7: right=0 .5,7;7;"Temperature Test" ::"The object of this game is to estimate the temperature shown on the thermometer. At first thenumbers are shown but these are removed if you get the three questions right." copy g=15 58005,229 therm %20,24;1;"00 00" right38300l temp=(*10 ) m=0temp ,13 -m,26;3;1;"" m )5,0;7;"What is the" 07,0;7;"temperature shown?" >0,0;6;" Key in temperature then ENTER. " copy+5 "m=1̱i$ ,-i$(m)<480i$(m)>5798005E 6m 715,0;7;" " 817,0;7;" " @9temp+31=i$15,2;7;"CORRECT" J(temp+31=i$right=right+1 T7temp+31ɰi$15,2;7;"WRONG" ^copy hg r4:4:0: |45,4;7;"Temperature Test Score" -10 ,4;6;"RIGHT: ";right 513 ,4;6;"WRONG: ";5-right copy   /5,7;7;"Temperature Graph" ::"The object of the game is to note down the temperature shown on the thermometer and then by using the cursor keys 5 & 6 to plot temperature against time." copy 58005,229:therm %20,24;1;"00 00" z=110 k(z)=(*10 )+31 20,28;z-1 m=0(k(z)-31) ,13 -m,26;3;1;"" m j2,0;7;"Note down on paper"::7;"a) The temperature":7;"b) The time." 115,0;7;"Reading Number: ";z $20,18;7;"Time" copy  m=19 ,13 -m,26;7;1;"" m <z P7:7: S-6;"Press P to plot the temperature." U#3,0;"Temperature C" Zm=42*28-2 d47/-m,4;m nm xm=09 20,8+2*m;m m $21,9 ;"Time (minutes)" M568,20:0,116t:0,-116t:160,0 m=110 !x=18:y=6+m*2 x,y;7;"" ""5343 =""5344 j$= /j$=80Pj$=112px,y;2;"" -j$=80Pj$=112pl(m)=47/-x (j$=80Pj$=112p5380 'j$<546j$>5685343 x,y;7;" " j$=557x=x-1 x<5x=5 j$=546x=x+1 x>18x=18 x,y;7;""  5343 m m=110 k(m)l(m)1 "/47/-k(m),6+m*2;4;"" ' 0 ,m 6?1,0;5;" Correct plots shown in green. " @copy n o 1100L p*2,0;"Painted with luminous" r"paint you see five" t"switches. These will" v"switch on a device" x"which will produce" z"these rays." ":5;6;"Key 1 to 5"   k(z)3fl=1  *2,0;"You see a low voltage" "power supply and some" "copper wire. You will" "also need one of the." "following." ":5;6;"Key 1 to 5"    k(z)2fl=1 7 8*2,0;"You see the following" B"objects, choose one" D"to put bug in." L":5;6;"Key 1 to 5" ` j tk(z)>1fl=1  )2,0;"You see a copper tin" "to put your bug in" "and some quick drying" "paints. Choose which" "colour to paint the"  "tin.": ":5;6;"Key 1 to 5"   k(z)<5fl=1  *2,0;"You see some water," "alcohol, black paint" "and a fan." %":5;6;"Key 1 to 5" ( 7 <k(z)4fl=1 c d)2,0;"You are in a room in" f"which the air is" g"being removed. A" h"machine will make" j"gases given the" l"correct chemicals." ":5;6;"Key 1 to 5"   k(z)4fl=1  +2,0;"There is a radioactive" "source emitting beta" "rays. There are five" "containers to put bug" "in, choose which." ":5;6;"Key 1 to 5"   k(z)4fl=1 +  5:5:1:  8800`" i$="Y"3030 fl=1box<1open<1FOOD<1CLOSE<12,0;"You have completed ";perc*10 ;"% of this adventure." Lfl=1box<1open<1FOOD<1CLOSE<16837 16,31;"" g5,0;0;6;"Well done - you have completed this adventure. " 'n=16:m=029 16,m;2;" " m 16,31;"" 16,30;" ":n |H$(1,5)"Therm"19,0;"But you bug will not survive without adequate temperature control!"  6847 8"The conditions for your bug were not ideal." copy  130 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: I5,0;"Your bug is dead . Better luck next time." L:;"You have completed ";perc*10 ;"% of this adventure." 1:6;" ": k(4)<4k(4)>0"Your choice of paint was poor. Remember the darker the colour the more heat is lost by radiation." Ek(6)=2"You have made Carbon monoxide - a lethal gas!" fk(6)=1k(6)=3"You did not make oxygen. Try andfind out what gas you made." Gk(6)=5"You have made Hydrogen sulphide - a lethal gas!" Wk(3)=2"Copper is a good conductor and heat will be lost from the can." jk(3)=5"Aluminium (tin) foil is a good conductor and heat will be lost from the can." ok(3)=3k(3)=4"You could have chosen a better method of insulating the copper can." rk(5)=1"When alcohol evaporates it coolsit's surroundings including the bug. But what a way to go!"  \k(5)=2"When water evaporates it cools it's surroundings including the bug."  |k(5)=3"Turning on a fan causes movementof air which will cool the bug down making it uncomfortable forhim." Mk(5)=5"What has this bug done to you? Why dip him in paint!" k(7)<4k(6)>0"Your choice of radiation protec -tion was poor. Alpha particles cannot penetrate the sheets of cardboard, metal or plastic, whereas beta and gamma rays can.(This source is emitting beta rays)." bk(1)=5"Were you expecting your bug to dance to Radio 1 in order to keep warm!" Jk(1)=2k(1)=4"You made a poor choice of wave." ok(1)=1"If the cold does not kill bug then the gamma rays will! Gamma rays are highly lethal." .copy 858005,199 :therm < g,h;"" =621,0;"The position of the box is shown" >copy K 130 TZ<5ƨT()-DIG<60<8+((T()-DIG)/10 ),26;7;"" TZ=5ƨT()-DIG<308+((T()-DIG)/10 ),26;7;""  TZ=6ƨT()-DIG<309 -((T()-DIG)/10 ),26;3;"" !TZ=7ƨT()-DIG<60<9 -((T()-DIG)/10 ),26;3;"" 2E(t()-time)<100d20,28;(((t()-time)/10 )) 99.9G20,27;(((t()-time)/10 )) F6(t()-time)>599WŨt()-dig>599W7400 P=""7700 Uq$= V'q$<491q$>5357700 Zk(z)=c$((q$),1) d22650=25ž22970=577400 w x(ch=0:leaf=(T()-TIME)/60< LEAF10 LEAF=10 K(1)=3DIG=T() NK(1)=2K(1)=4K(1)=5DIG=T()-590N K(2)=2DIG=T() K(3)=1DIG=T() K(4)=5DIG=T() K(5)=4DIG=T() ;K(6)=1K(6)=3DIG=T()-300, (K(7)=4DIG=T()-575? )k(1)=1time=time-600X bk(2)=1k(2)=3k(2)=4k(2)=5time=time-200 <k(3)=2k(3)=5time=time-200 Uk(4)<5k(4)>0time=time-((k(4)*100d)-500) <k(5)<4k(5)>0time=time-200 )k(5)=5time=time-600X <k(6)=5k(6)=2time=time-600X <k(6)=1k(6)=3time=time-200 <k(7)=1k(7)=5time=time-600X <k(7)=2k(7)=3time=time-300, LEAF<0LEAF=0 ? @Umenu<30,0;1;6;" Press key 1-5 then ENTER. " AUmenu30,0;1;6;" 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@ h m=18 Q$ D=07 & E:Q$+D,E 0D :M D lx=111 v#2+x,27;7;" " 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$=""8530R! !\g21,0;7;" 0 ";: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?" !qVI$="FEED"20,0;" ";I$;" BUG 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!":8530R! !!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$=57400 "8i$="FEED"K$"4"O=6"Bugs don't need ";s$(k$) "Pi$="FEED"K$<"5"O<6S$(K$,4)"Gera""Bugs don't need ";s$(k$) "<i$="FEED"o=6ưk$4"Bugs die without water." "/i$="FEED"o=6ưk$4food=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 "REh$(1,5)="Match"h$(3,3)="Oil"li=9 "Sch$(2,5)="Light"h$(4,5)="Torch"h$(5,4)="Batt"li=9 "T(I$="FEED"k$="5"o<67400 "V 3038 "` y=0 "a "b 7 "c!H$(7)="Environmental box" "d y=y+1 "e:4;"Congratulations you have found the environmental box. To complete the adventure the next four commands must be in the correct order. COMMAND : ";Y;" " "g.8,0;"YOU HAVE COLLECTED FROM :" "jhM=17:9 +M,2;"Site ";M;". ";H$(M):H$(M)=""9 +M,10 ;"Nothing":M "k<h$(m)=""h$(m,1)=" "9 +m,10 ;"Nothing" "lm "tt20,0;4;0;"KEYWORDS";7;" TAKE OPEN FEED CLOSE LOCK UNLOCK " "~P23658j\,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$="TAKE"I$="FEED"I$="OPEO"I$="CLOSE"I$="LOCK"I$="UNLOCK"8860" " 8801a" ""I$="FEED""Feed bug with what?" "Bi$="TAKE"20,0;"I see nothing to ";i$;" " "i$="TAKE"502 "i$="TAKE"8801a" "*i$"FEED"21,0;i$;" what?" "P23658j\,8:"Select 1 to 7 then press ENTER ";k$:k$=""8870" "g21,0;7;" ";:i1=0:i2=0:n=1̱k$ "Z(k$(n)<"1"k$(n)>"7")(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$="CLOSE"PERC=PERC+.4L "i$"FEED"8900" "H$(1,3)="Cya"h$(2,3)="DDT"h$(3,3)="Sul"h$(4,3)="Cau"h$(5,3)="Ars"7400 "@Y=1I$="FEED"H$(6,5)="Geran"FOOD=1 "$Y=2I$="UNLOCK"BOX=1 "/Y=3I$="OPEN"box=1OPEN=1 "VOPEN=1BOX=1I$="OPEN""You open the box and place inside the bug" "0OPEN=1BOX=1I$="OPEN"8985# "(i$="CLOSE"open=1close=1 ".i$="FEED""You feed bug ";h$(k$,17) "i$="FEED"8985# "Fi$="UNLOCK"H$(2,6)"Golden""You do not have a key!!" "7i$="UNLOCK"H$(2,6)"Golten"8985# "5i$="UNLOCK""You unlock the environmental box." "i$="UNLOCK"unlock=1 "i$="UNLOCK"8985# "=i$="OPEN"unlock=1"You see nothing inside the box." "&i$="OPEN"unlock=18985# "close=18990# #*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)="11Gamma rays" #-a$(2)="12X-rays" #2 a$(3)="13Infra red rays" #7#a$(4)="14Ultra violet rays" #<a$(5)="15Radio waves" #F #a$(1)="2113A fuse" #6a$(2)="22Coil of resistance wire" #6a$(3)="23Coil of copper wire" #6a$(4)="24Coil of silver wire" #a$(5)="25Glass fibre" # #a$(1)="31Vacuum flask" #a$(2)="32Copper can" #Ba$(3)="33Copper can covered with polystyrene" #>a$(4)="34Copper can covered with a scarf" $?a$(5)="35Copper can covered with tin foil" $ $Ta$(1)="41Black" $Ya$(2)="42Dark blue" $^a$(3)="43Green" $ca$(4)="44Yellow" $ha$(5)="45White" $r $?a$(1)="51Dip bug in alcohol & turn on fan" $?a$(2)="52Dip bug in water & turn on fan" $a$(3)="53Turn on fan" $!a$(4)="54Leave bug alone" $"a$(5)="55Dip bug in paint" $ %Ba$(1)="61Ammonium chloride & Sodium nitrite" %!Ba$(2)="62Sodium methanoate & Sulphuric acid" %&Ea$(3)="63Calcium carbonate & Hydrochloric acid" %+Ca$(4)="64Hydrogen peroxide & Manganese oxide" %0Da$(5)="65Iron sulphide & Hydrochloric acid" %: %"a$(1)="71Cornflake packet" %&a$(2)="72Empty baked bean tin" %%a$(3)="73Empty cassette case" %Aa$(4)="74Large box of 3cm thick aluminium" %<a$(5)="75Large box of 10cm thick lead" % &H t$=c$(n) &Rc$(n)=c$(n+1) &\c$(n+1)=t$ &fj$="y" &p 'd"N",0,0,0,21,255,31,15,7,"O",0,0,64@,254,255,218,142,2,"P",255,129,133,133,133,129,129,255,"Q",0,0,0,7,15,31,255,21,"R",0,0,2,142,218,255,254,64@,"S",195,195,195,195,195,195,195,195,"T",0,0,24,60<,60<,24,0,0,"U",0,14,10 ,14,0,0,0,0 '7"Thermometer","Iron key","Matches","Candle","Cyanide" ' 3"Barometer","Golden key","Oil","Light bulb","DDT" ' 9"Sonometer","Lock","Heater","Oil lamp","Sulphuric acid" ' ?"Hydrometer","Bolt","Draught excluder","Torch","Caustic soda" ' >"Manometer","Burglar alarm","Battery","Glow worms","Arsenic" ' ="Honey","Mars bars","BBC pork pie","Geranium","BR sandwich" graphics 9h 9/}D | (  =!"%9"=!")="%8888888888888888888888888888888888888888888888888888888888888888888888((((((00000000088888888((((((00000000088888888((((((000000000088888888((((((00000000088888888(000000000888880000000008888000000000888808888 8888 8888 8888 8888 8888 88888 88888888888888 8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888!@w# "R)"R/"Rxxxx@<#HHH@<Hx0xf/| HHHf)xxx!(H"R!(H"R=p x@xx "Rx@@ #HϠp@8x HP@ =pHxxxx !(Kx# À #?????????????????????????????999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999???????9999999999999999999999999???????999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999? 9?????999999999999999999? ??8?? 999999999999999999999999? 99@ڎ@<< N ELEMENTS K'K$K ************************** * * * Elements * * * *  Sci soft 1984 * * * ************************** Program by Pete Cooke V=65110V %a$(x,y)=22+x+y b$(t)=("Name "t=1)+("Symbol "t=2)+("Atomic Weight "t=3)+("Group "t=4)+("Form "t=5)+("Number "t=6) gt$(t)=(a$t=1)+(b$t=2)+(c$t=3)+(d$t=4)+(e$t=5)+(f$t=6) +s$(c)=(g$c=1)+(h$c=2) oc$(l)=("Begins with "l=1)+("Ends with "l=2)+("Contains "l=3)+("Equals "l=4) Xd$(l)=("Less than "l=1)+("Greater than "l=2)+("Equals "l=3) Az$(a,a$)=22+a+º((40(-a$)/2)+a$ 23658j\,8: caps on (Cpr=620000:pr2=620033:sc=620066:enter=4900$ Z 9900& cmain menu dU5:0:5::8000@:1,10 ;:z$="MAIN MENU":v=pr2 n7,0;"Press :=-" xH10 ,2;"1 To find all details";5;"about an element" -13 ,2;"2 To list all elements" s15,2;"3 To search for an element's";5;"number,symbol,atomic weight";5;"group or form" !19,2;"4 For help" ;"":#1;0;0,5;"Press 1 2 3 or 4" ""170 z$=:z$<"1"z$>"4"200 az=z$:10 +(3z>1)+(2z>2)+(4z>3),2;1;z k"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 4 to choose again" ""230 /z$=:z$13 (z$<"1"z$>"4")240 z$13 120x choice made 8000@:8010J ,1000*z 6: @d"":#1;0,0;0;" Press ENTER to return to main menu" J""330J T13 340T ^ 100d 37,0;"Find out about which element ?"  8020T j$=""1010 .j$(1)=" "j$=j$(2):1020 .j$(j$)=" "j$=j$(̱j$-1):1020 V21,0;31;" ";15,2;31;" ";15,2;j$ $D#1;0,0;0;" Is this O.K. (press Y or N)" .!z$=:z$"Y"z$"N"1070. 8:z$="N""":15,2;31;" ";:1000 BPh$=j$:z$=a$(1,1)+"Find all about : "+h$:7:v=pr:5 LT8010J:#1;1,0;1;" Searching "; Vline=9001)# `7line:a$:a$h$a$""line=line+1:1120` j-a$=""20,0;h$;" not found": tb$,c$,d$,e$,f$ ~mz$=a$(7,16)+"Element"+z$(8,h$)+a$(11 ,5)+"Atomic number"+a$(11 ,26)+"Symbol"+a$(12 ,5)+(line-9000(#)+a$(12 ,26)+b$+a$(15,5)+"Atomic weight"+a$(15,26)+"Group"+a$(16,5)+c$+a$(16,26)+d$+a$(18,17)+"Form"+a$(19,17)+e$  v=pr:  list .7,0;"Do you want a list of :=-" /10 ,2;"1 Just the elements names" )12 ,2;"2 Names and symbols" /14,2;"3 Names and Atomic Weight" '16,2;"4 Names and group" &18,2;"5 Names and form"  /20,2;"6 Names and atomic number" ?"":#1;0,5;0;"Press 1 2 3 4 5 or 6"  ""2080  *!z$=:z$<"1"z$>"6"2090* 4z=z$:8+2*z,2;1;z:"":#1;0,0;" Press ENTER to confirm your choice or 1 to 6 to choose again" 9""21059 >.z$=:z$13 z$<"1"z$>"6"2110> Hz$13 2010  Rz$=a$(1,1)+"List : Element's name":z>1z$=z$+" and "+b$(z) Az$=z$+a$(5,0):7:v=pr:5:8010J line=9001)#:line km=18+(8z=1):a$,b$,c$,d$,e$:f$=(line-9000(#):line=line+1:a$="" Mz$="Element : "+a$+13 :z>1z$=z$+" "+b$(z)+t$(z)+13 v=pr .01z# =,12 :=""m e#1;0,0;0;" List Paused ENTER to continue S to stop " ""2290 "S"Ʀ13 2300  ="S" "":2240  search c7,2;"Search for an element by name, symbol,atomic weight,group, form or number" ^condition=1:t(2):l(2):o(2):g$="":h$="":or=1:and=0 210 ,0;"Do you want to search by :=-" ַ12 ,2;"1 Name";13 ,2;"2 Symbol";14,2;"3 Atomic weight";15,2;"4 Group";16,2;"5 Form";17,2;"6 Number" ?"":#1;0,2;0;"Press 1 2 3 4 5 or 6" ""3050 !z$=:z$<"1"z$>"6"3060 z=z$:11 +z,2;1;z;:"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 6 to choose again" ""3080 0z$=:z$13 (z$<"1"z$>"6")3090 z$13 3030 & 8010J 0t(condition)=z:5000+(200t(condition)>2)+(200t(condition)=4)+(400t(condition)=5):4 ways :condition=23200 DP10 ,0;"Do you want to use another condition ? (press Y or N)" N!z$=:z$"Y"z$"N"3150N X3z$="Y"condition=2:8010J:3020 +condition=1or=1:3300 R8010J:10 ,0;"Do you want the computer to show the element" g14,2;"1 If both conditions are true";16,2;"2 If either condition is true" 3#1;0,2;0;"Press 1 or 2" !z$=:z$<"1"z$>"2"3240 /z=z$:12 +2*z,2;1;z k"":#1;0,0;0;" Press ENTER to confirm your choice or 1 or 2 to choose again" ""3270 0z$=:z$13 (z$<"1"z$>"2")3280 z$13 3210 iand=(z=1):or=(z=2):z$=a$(2,6)+("and"and)+("or"or):7:v=pr:5 98010J:z$=a$(5,0):v=pr: all set up &line=9001)#:line: data pointer HDa$,b$,c$,d$,e$:f$=(line-9000(#):line=line+1:a$="" R'#1;1,0;"check ";a$ [c=1condition:(6000p+(200(t(c)=3t(c)=6))):o(c)=ok:c:"" (o(1)o(2)and)((o(1)o(2))or)z$="Found : "+a$+13 +((" "+b$(t(1))+t$(t(1))+13 )(t(1)>1o(1)))+((" "+b$(t(2))+t$(t(2))+13 )(t(2)>1o(2))):v=pr '.006yD,12 :=""3400H d#1;0,0;0;" List Paused ENTER to continue S to stop" ""3540 13 Ʀ"S"3550 ="S" "":3400H  HELP '1,13 ;:Z$="HELP":V=pr2 u6,2;"This program is called a"'"'DATABASE'."''"It contains information about"'"the chemical ELEMENTS." e'"The program helps you to find out about the elements using options 1 to 3 on the main menu." enter  8010J x6,2;" The program stores each"'"element's name,atomic number,"'"symbol,atomic weight,group and"'"state." ܽ''" If you just want to know all"'"about one element you would use"'"option 1 on the main menu."'"The program asks you for the"'"name of the element and then"'"prints out all the facts." enter  8010J 6,2;"Option 2 lets you see a list"'"of all the elements. You can"'"choose to list just their names"'"or the names and one of the"'"other pieces of information,"'"for example their names and"'"symbols." enter  8010J d6,2;"Option 3 lets you search for"'"an element or elements using"'"facts about them." "'" For example you could ask the"'"computer to find all the"'"elements in group 1 or all the"'"elements with atomic weight"'"greater than 50." ,enter 6 8010J @k6,2;"The best way to use the"'"program is to experiment and"'"get used to the way it works." J6'" Each choice is explained as"'"you work through." T $B"":#1;0,5;0;"Press ENTER to continue" .""4910. 813 49208 B"":   STRING 47,2;"Search by ";b$(t(1));" :" C9 ,0;"Which of these conditions do youwish to use :-" 12 ,2;"1 Begins with";14,2;"2 Ends with";16,2;"3 Contains";18,2;"4 Equals" ;"":#1;0,2;0;"Press 1 2 3 or 4" !z$=:z$<"1"z$>"4"5040 /z=z$:10 +2*z,2;1;z k"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 4 to choose again" ""5065 0z$=:z$13 (z$<"1"z$>"4")5070 z$13 5020 l(condition)=z C8010J:10 ,0;b$(t(condition));c$(l(condition)) 8020T:j$=""5120  J21,0;31;" ";15,2;34";j$;34" H"":#1;0,0;0;" Is this O.K. (press Y or N)" !z$=:z$"Y"z$"N"5150 (z$="N"5100 2condition=1g$=j$ <condition=2h$=j$ Fz$=a$(1+(2condition=2),1)+b$(t(condition))+c$(l(condition))+34"+s$(condition)+34":7:v=pr:5 K8010J: P47,2;"Search by ";b$(t(1));" :" ZC9 ,0;"Which of these conditions do youwish to use :-" dj12 ,2;"1 Is less than";14,2;"2 Is greater than";16,2;"3 Equals" n9"":#1;0,2;0;"Press 1 2 or 3" x!z$=:z$<"1"z$>"3"5240x /z=z$:10 +2*z,2;1;z k"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 3 to choose again" 0z$=:z$13 (z$<"1"z$>"3")5270 z$13 5220d l(condition)=z C8010J:10 ,0;b$(t(condition));d$(l(condition)) 8120:j$=""5320 621,0;31;" ";15,2;j$ H"":#1;0,0;0;" Is this O.K. (press Y or N)" !z$=:z$"Y"z$"N"5350 z$="N"5300 condition=1g$=j$ condition=2h$=j$ z$=a$(1+(2condition=2),1)+b$(t(condition))+d$(l(condition))+s$(condition):7:v=pr:5 8010J: COND=5 (GROUP) $7,2;"Search by Group" "B9 ,0;"Which group do you wish to search for :-" ,F#1;0,0;0;" Press 0,1,2,3,4,5,6,7,8,A or L" 6""54306 @1z$=:z$"A"z$"L"(z$<"0"z$>"8")5440@ J15,2;"Group ";z$ O0l(condition)=4:condition=1g$=z$ Qcondition=2h$=z$ TH"":#1;0,0;0;" Is this O.K. (press Y or N)" ^!z$=:z$"Y"z$"N"5470^ h5z$="N"15,2;31;" ":5420, r 8010J |yz$=a$(1+(2condition=2),1)+b$(t(condition))+"equals "+s$(condition):7:v=pr:5    FORM #7,2;"Search by Form" B9 ,0;"Which form do you wish to search for :-" W12 ,2;"1 Gas";14,2;"2 Liquid";16,2;"3 Solid" 0"":#1;0,3;"Press 1 2 or 3" ""5640 !z$=:z$<"1"z$>"3"5650 /z=z$:10 +2*z,2;1;z ?z$=("Gas"z=1)+("Liquid"z=2)+("Solid"z=3) 0l(condition)=4:condition=1g$=z$  condition=2h$=z$ &k"":#1;0,0;0;" Press ENTER to confirm your choice or 1 to 3 to choose again" 00z$=:z$13 (z$<"1"z$>"3")56800 :8010J:z$="" Dyz$=a$(1+(2condition=2),1)+b$(t(condition))+"equals "+s$(condition):7:v=pr:5 N oSEARCH STRING p5ok=0:p$=s$(c):q$=t$(t(c)):l1=p$:l2=q$ z.l(c)=1l2l1q$(l1)=p$ok=1: #l(c)=4q$=p$ok=1: Br$=(p$+32 )+p$(2):s$=(q$+32 )+q$(2) 7l(c)=2l2l1s$(l2-l1+1)=r$ok=1 l(c)3l2pok=1: V!l(c)=3q=pok=1: ` > ?subroutines @7:0:n=04:n,0;31;" ";:n:0,136:255,0:0,39':-255,0:0,-39':5: J8"":n=521:n,0;31;" ";:n: T@23658j\,8:j$="":c=1:21,0;">_"; ^""8030^ hz$=:z$=""8040h r*z$=13 1;21,c;"_": |$z$=12 c=18030^ fz$=12 j$=j$(c-2):c=c-1:21,0;">";j$;"_ ";21,c;:8030^ -z$"A"z$"Z"c>1z$=(z$+32 ) Rz$" "z$""Ʊz$<30j$=j$+z$:c=c+1:21,0;">";j$;"_";  8030^ 7j$="":c=1:pt=0:21,0;">_"; ""8130 z$=:z$=""8140 z$="M"z$="." *z$=13 1;21,c;"_": $z$=12 c=18130 oz$=12 pt=pt-(j$(j$)="."):j$=j$(c-2):c=c-1:21,0;">";j$;"_ ";:8130 y((z$"0"z$"9")(z$="."pt=0))Ʊz$<30j$=j$+z$:c=c+1:21,0;">";j$;"_":pt=pt+(z$=".") z$="."point=1  8130 #( the data ...... #)$"Hydrogen","H","1.00797","1","Gas" #*""Helium","He","4.0026","0","Gas" #+$"Lithium","Li","6.939","1","Solid" #,'"Beryllium","Be","9.0122","2","Solid" #-""Boron","B","10.811","3","Solid" #.$"Carbon","C","12.0112","4","Solid" #/$"Nitrogen","N","14.0067","5","Gas" #0!"Oxygen","O","15.994","6","Gas" #1$"Fluorine","F","18.9984","7","Gas" #2 "Neon","Ne","20.183","0","Gas" #3%"Sodium","Na","22.9898","1","Solid" #4'"Magnesium","Mg","24.312","2","Solid" #5("Aluminium","Al","26.9815","3","Solid" #6%"Silicon","Si","28.086","4","Solid" #7("Phosphorus","P","30.9738","5","Solid" #8$"Sulphur","S","32.064","6","Solid" #9$"Chlorine","Cl","35.453","7","Gas" #:!"Argon","Ar","39.948","0","Gas" #;&"Potassium","K","39.102","1","Solid" #<$"Calcium","Ca","40.08","2","Solid" #=&"Scandium","Sc","44.956","3","Solid" #>$"Titanium","Ti","47.9","4","Solid" #?%"Vanadium","V","50.942","5","Solid" #@&"Chromium","Cr","51.996","6","Solid" #A'"Manganese","Mn","54.938","7","Solid" #B""Iron","Fe","55.847","8","Solid" #C%"Cobalt","Co","58.9332","8","Solid" #D#"Nickel","Ni","58.71","8","Solid" #E#"Copper","Cu","63.54","1","Solid" #F!"Zinc","Zn","65.37","2","Solid" #G$"Gallium","Ga","69.72","3","Solid" #H&"Germanium","Ge","72.59","4","Solid" #I&"Arsenic","As","74.9216","5","Solid" #J%"Selenium","Se","78.96","6","Solid" #K&"Bromine","Br","79.909","7","Liquid" #L!"Krypton","Kr","83.8","0","Gas" #M%"Rubidium","Rb","85.47","1","Solid" #N&"Strontium","Sr","87.62","2","Solid" #O$"Yttrium","Y","88.905","3","Solid" #P&"Zirconium","Zr","91.22","4","Solid" #Q%"Niobium","Nb","92.906","5","Solid" #R'"Molybdenum","Mo","95.94","6","Solid" #S$"Technetium","Tc","99","7","Solid" #T'"Ruthenium","Ru","101.07","8","Solid" #U&"Rhodium","Rh","102.905","8","Solid" #V&"Palladium","Pd","106.4","8","Solid" #W$"Silver","Ag","107.87","1","Solid" #X$"Cadmium","Cd","112.4","2","Solid" #Y$"Indium","In","114.82","3","Solid" #Z!"Tin","Sn","118.69","4","Solid" #[&"Antimony","Sb","121.75","5","Solid" #\&"Tellurium","Te","127.6","6","Solid" #]$"Iodine","I","126.904","7","Solid" #^ "Xenon","Xe","131.3","0","Gas" #_&"Caesium","Cs","132.905","1","Solid" #`$"Barium","Ba","137.34","2","Solid" #a'"Lanthanum","La","138.91","3","Solid" #b$"Cerium","Ce","140.12","L","Solid" #c+"Praseodymium","Pr","140.907","L","Solid" #d'"Neodymium","Nd","144.24","L","Solid" #e%"Promethium","Pm","147","L","Solid" #f&"Samarium","Sm","150.35","L","Solid" #g&"Europium","Eu","151.96","L","Solid" #h("Gadolinium","Gd","157.25","L","Solid" #i&"Terbium","Tb","158.924","L","Solid" #j'"Dysprosium","Dy","162.6","L","Solid" #k%"Holmium","Ho","164.93","L","Solid" #l$"Erbium","Er","167.26","L","Solid" #m&"Thulium","Tm","168.934","L","Solid" #n'"Ytterbium","Yb","173.04","L","Solid" #o&"Lutetium","Lu","174.97","L","Solid" #p%"Hafnium","Hf","178.49","4","Solid" #q'"Tantalum","Ta","180.948","5","Solid" #r%"Tungsten","W","183.85","6","Solid" #s$"Rhenium","Re","186.2","7","Solid" #t#"Osmium","Os","190.2","8","Solid" #u$"Iridium","Ir","192.2","8","Solid" #v&"Platinum","Pt","195.09","8","Solid" #w#"Gold","Au","196.967","1","Solid" #x&"Mercury","Hg","200.59","2","Liquid" #y&"Thallium","Tl","204.37","3","Solid" #z""Lead","Pb","207.19","4","Solid" #{%"Bismuth","Bi","208.98","5","Solid" #|#"Polonium","Po","210","6","Solid" #}#"Astatine","At","210","7","Solid" #~"Radon","Rn","222","0","Gas" ##"Francium","Fr","223","1","Solid" #!"Radium","Ra","226","2","Solid" ##"Actinium","Ac","227","3","Solid" #&"Thorium","Th","232.038","A","Solid" #&"Proactinium","Pa","231","A","Solid" #$"Uranium","U","238.03","A","Solid" #$"Neptunium","Np","237","A","Solid" #$"Plutonium","Pu","242","A","Solid" #$"Americium","Am","243","A","Solid" #!"Curium","Cm","247","A","Solid" #$"Berkelium","Bk","247","A","Solid" #&"Californium","Cf","251","A","Solid" #&"Einsteinium","Es","254","A","Solid" #""Fermium","Fm","253","A","Solid" #'"Mendeleevium","Md","256","A","Solid" ##"Nobelium","No","254","A","Solid" #%"Lawrencium","Lw","257","A","Solid" #"","","","","","" &P5:5:0::7,12 ;:Z$="ELEMENTS":V=620033 &#16,10 ;" 1984" &>#1;0,5;0;"Press ENTER to continue" &13 9930& & ': ' LOADER ROUTINE ' : '61999/:7:1:0:0:0:0:7::5,4;1;" STILL LOADING ELEMENTS ";7,10 ;"PLEASE WAIT":7:"":236066\,86V:236077\,247:v=65110V: '<:"elements"9998':"elements"620000,3535 elements 0 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