ZXTape! 0Created with Ramsoft MakeTZXCOMPOUNDS   N0:0:0::236099\,502:0:0:0 q$="y"x -z$="  " K12 ,10 ;1;4;"PLEASE WAIT";0;0 "" .a=07:a,0;1;z$:a (H12 ,6;4;1;" LOADING PROGRAM ";:0 -*18,5;" " .13 ,0; / 0 2 "file" <*:15,0;"Leave tape running" F"" P*15,0;"Stop and rewind tape" R"clear (y/n) ?";q$ Tq$="y""address ? ";x ZJ17,0;"Type in file name in ";1;"UPPER CASE";0 n"Filename",a$ o015,0;"Recording " p517,0;" " x a$10 "logo"16384@,2304  '10 ,5;"Load main program" )12 ,5;"SAVE""file"" LINE 2" Z&  QnA COMPOUNDSalogo @  ??80?߀????>?#|?~???|?|~?8???1???<???????<?0~|??~?~|?|~?>??#???8??????1???????~<?|??|~?|?|~?|?|~???9??>?? ?????8<0p??>?x?~file :m8C:cop=6140:ff=0 2 "Compounds" 7John McMullan <ZX Spectrum 48K 8p$(4,12 ):s(4):q$(4,24) X'w$=" " bp=6800  50:0:6::7300:7400  7000X  $i=14:s(i)=0:i i=1q:j=1p ,corr=0:points=100d:2000 ` 21004 epoints0="":20,0;w$;21,0;w$:6000p:4550:1700 .6:0,20:255,0 c5;20,3;"Which test? (Press 1 - 9)";21,5;"or Press 0 for a list." _#1;0,0;"Press A to Answer, G to give up,I for instructions, H for help." ""1250 t$= t$=""1260  "t$>90Zt$=(t$-32 ) Xtest=t$-480:t$"A"t$"G"t$"H"t$"I"(test>9 test<0)1250  6810 .t$="A"4200h:corr=11700 #!t$="A"corr=01200 %/t$="A"points04550:1700 (Rt$="G"="":20,0;w$:21,0;w$:4500:1700 < t$="H"4600:1120` P t$="I"7500L:1120` Z&test=07600:1120` d 2200 corr=01200 j iq85004!:6000p i  85004! l 6000p  700  end of game  m$="":n$="" m=(*11 +1) n=(*5+1)  9000(#:k=1m:m$:k  90102#:k=1n:n$:k c$=m$+" "+n$:a$=m$+n$   4:p$(j);0,15;"Score:";s(j);2,0;"Question:";i;2,15;"Points Left:";points,"________________________________" f corr=0 '9100#:k=1test:z$:pt:k  62008 +points-pt<023608 :2350. Btest<9 5;8,0;test;8,2;z$ 2200+test*200 1points=points-pt:2,27;points;" " . 8E10 ,0;"You haven't enough points","left for test ";test V _ solubility `s$="soluble" j5m$="sodium"m$="potassium"n$="nitrate"2550 t=m$="lead"m$="silver"n$="oxide"n$="hydroxide"2540 (m$="calcium"n$="sulphate"2540 2550 s$="insoluble" t$"1" -10 ,0;"The compound is ";s$;"."  'colour ('10 ,0;"The compound is "; 2+m=7n2"brown.":2780 2"carbon dioxide gas is formed.":2980 :n=2m<3"oxygen gas is formed.":2980 Ln=2m>2"oxygen gas and brown fumes are formed.":2980 T?n=3m=10 "the compound turns white.":2980 ^Nn=4m>6"There is a slight smell of chlorine.":2980 h?m=9 n=5"the compound turns yellow.":2980 rdm=6n=5"the compound turns yellow but turns back to white on cooling.":2980 ?n>2m=11 "the compound turns black.":2980 ""there is no apparent reaction."  acid <10 ,0;"When acid is added to the","compound "; +n=1"fizzing is seen.":3180l 7n>4"it dissolves to form a salt.":3180l $"there is no apparent","reaction." l pH 10 ,0; Vm<4(n=1n>4)"The compound turns damp pH paperblue.":33804 a(n>1n<5)(n=4n=6)"The compound turns damp pH paperred.":33804 <"The compound has little or no effect on damp pH paper." 4 Gflame H^(m>3m<9 )m=11 10 ,0;"The flame is not coloured.":3580 \'10 ,0;"The flame turns "; fm=1"lilac." pm=2"yellow." zm=3"red." m=9 "white/blue." m=10 "green."  BaCl2  2400` hs$="insoluble"10 ,0;"No reaction is possible as the compound is insoluble.":3780 .`10 ,0;"When a barium chloride solution is added to a solution of the compound "; 89n=3"a white precipitate is formed.":3780 BDm=9 m=11 "a white precipitate is formed.":3780 LCn=1n>4"a white precipitate is formed.":3780 t"there is no reaction."  zinc  2400` hs$="insoluble"10 ,0;"No reaction is possible as the compound is insoluble.":3980 P10 ,0;"When zinc metal is added to a solution of the compound "; :m>6m<9 "a black powder forms.":3980  1m=10 "a brown powder forms.":3980 1m=11 "a black powder forms.":3980 <$"there","is no apparent reaction."  list >9000(#:k=111 :x$:6+k,0;x$:k 2k=16:x$:6+k,15;x$:k  hR62008:10 ,0;"OK have a guess-";12 ,0;"What is it?" | 5000 z$=a$4300 z$a$44000   62008 Uff=0:10 ,0;"Correct- it was";11 ,16-(c$)/2;c$ `6750^:s(j)=s(j)+points:0,21;s(j);" ";2,15;" " corr=1:6000p  0 62008 :wff=0:10 ,0;"No it wasn't";11 ,16-(a$)/2;z$(pt-1);" ";z$(pt):6700, Dz$8n$="oxide"z$(z$-8)="hydroxide"4470v l,z$(z$-n$+1)=n$n$;" is correct." v8points=points-20:2,27;points;" " *corr=0:points>06000p  62008:6700,:#1;0,0;" ":8,0;"Too bad- you gave up";10 ,0;"The compound was-";11 ,16-(c$)/2;c$ %2,15;" " corr=-1:6000p  ƛ62008:6700,:8,0;"Too bad-",,"you've run out of points";12 ,0;"The compound was-";13 ,16-(c$)/2;c$ %2,15;" " corr=-1:6000p  ::7:1;" HELP ": ="The test results will help you identify the compound.",,, 6000p:  _1;" Solubility ":,,"Sodium and Potassium compoundsand Nitrates are always soluble." n"Lead and Silver compounds areusually insoluble. Most Carbona-tes ,Hydroxides and Oxides areinsoluble."  ,,1;" Colour ":,,"The compounds of some metals","have distinctive colours-",:::"Brown: iron(iii) compounds.","Green: iron(ii) compounds.","Blue : copper compounds." *6000p: 41;"The Effect of Heat on Compound":,,"Some compounds decompose when","they are heated. In particular","the compounds of less reactive","metals decompose the most." >,,"Nitrates form oxygen and","sometimes brown fumes of","nitrogen dioxide.",'"Most carbonates form carbon","dioxide.",,"Some chlorides give off","chlorine",,"Silver compounds tend to","decompose to form silver","metal or silver oxide." C6000p: H,,1;" The Effect of Nitric Acid":,,"Carbonates form carbon dioxide","gas fizzing is seen with acids.","Oxides and Hydroxides dissolve","in acids to form salts." R~'1;" pH ":'"Soluble carbonates and hydroxid-es are alkaline. Some iron(iii)and aluminium compounds areacidic." \6000p: f1;" Flame Tests ":,,"The compounds of some metals","will cause a flame to become","coloured.",,,,"Yellow:","Sodium","Lilac:","Potassium","Red:","Calcium","Green:","Copper","Blue/White:","Lead" k6000p: p1;" The Effect of "'" Barium Chloride ":,,"Barium chloride solution is","added to a solution of the","compound." z,,"The following compounds give a","white precipitate-":::" Sulphates":" Silver and Lead compounds":" Carbonates and Hydroxides" 6000p: 1;" The Effect of Zinc Metal ":,,"When zinc powder is added to thesalt solutions of less reactivemetals a displacement reactionoccurs." q,,"For instance, if zinc is addedto copper sulphate then browncopper powder and zinc sulphateare formed." 6000p::6 $ 0,0;" ":ff=0:len=0:z$="":14,5;w$:14,5;"_";8; ""5020  x$="":x$=:x$=""5030 /(x$=13 ůx$=12 )z$=""5020 Ox$=12ff=0z$=z$(̱z$-1):9;" ";8;8;" ";8;"_";8;:bp:len=len-1:5020 x$=12 5000 %x$=13 ff=15200P W:x$=13 14,5;"_";w$:15,5;w$:ff=0:5000 <:x$=" "ff=0pt=z$+1:ff=1:5140 #x$>"@"x$<"["x$=(x$+32 ) x$="8"x$="(":5120 x$="9"x$=")":5120 x$="("x$=")"5120 x$<"a"x$>"z"5020  z$=z$+x$ 'bp:x$;"_";8;:len=len+1 ((len>20x$=13 :5040 2 5020 < P p@ff=0:9 ;21,31;1;"*":15 z=""6000p ).1}L,12 :21,0;w$  ""6100 (k=1150:""k=200 k: U20,7;"PRESS 'C'COPY";21,1;"OR ANY OTHER KEY TO CONTINUE" =""6141 T="c"20,0;w$;21,0;w$:#1;" COPYING":   8&k=718:k,0;w$:k L V$17,0;w$;w$;w$;w$;w$:   ,,k=61-1:.02{# =,k:k 6 ^%k=12 18:.02{# =,k:k h .1}L,12 : (.1}L,12 :.1}L,14: b410 ,0;"How many people are playing? "; l23624H\,6:r$= vr$=""7020l 3r$>524ůr$<491űr$>17020l p=r$:bp:;5;p: p=1"What is your name? "; $p>1"What are their names?"  i=1p kp=1"Enter your name :";r$:r$=""űr$>15űr$<2ůr$>122zůr$<65A7090 p=17101 ci=1"Player 1:";r$:r$=""űr$>15űr$<2ůr$>122zůr$<65A7100 ci=2"Player 2:";r$:r$=""űr$<2űr$>15ůr$>122zůr$<65A7100 ci=3"Player 3:";r$:r$=""űr$<2űr$>15ůr$>122zůr$<65A7100 ci=4"Player 4:";r$:r$=""űr$>15űr$<2ůr$>122zůr$<65A7100 -r$>96`r$(1)=((r$)-32 ) Np=1bp:8800`":p$(i)=r$:5;"Hello ";r$;" !"::7150 <:8800`":p$(i)=r$:bp:5;"Player ";i;":";p$(i) :i: 0"How many questions ?:";r$:r$=""7150 r$>27150 9r$(1)>579ůr$(1)<4807150  =r$=2r$(2)>579ůr$<4807150 )q=r$:q<1q>10 7150 0bp:6:"Number of questions ";5;q  4: +.2~L,12 :.2~L,13 :.2~L,12 :.2~L,13 :.5,15:5;18,2;" ";19,2;" ";20,2;" ";21,2;" " )c=115:dd=3582 :c: 713 ,0;"Do you need instructions (Y/N)?" r$=:r$=""7410 Sr$="Y"r$="y"13 ,31;"Y":bp:7500L:7300:7430 ;r$="N"r$="n"13 ,31;"N":bp:7430 bp:7410  62008  L1:1;" INSTRUCTIONS ": VA"In this program you must try toidentify an unknown compound." `O,,"To help, you can ask for theresults of chemical tests on thecompound." j,,"You start each round with 100points. Everytime you ask fortest results, you lose some ofthese points. The idea is toidentify the compound withoutlosing too many points." o6000p:7600 B" When entering an answer"," spellings are important." I'" To type brackets ""("" & "")"",","you need only press ""8""""9""." M,," To delete mistakes, hold down"," CAPS SHIFT and press DELETE." 6000p:  0:"These are the tests and commandsavailable-" a9100#:k=19 :x$,x:5;3+k,0;k;".";3+k,4;x$:k Z,,"'A' Enter Answer.","'H' Get Help.",,"'I' Instructions.","'G' Give up and see answer." cop:  !4: !>X7,0;1;" *Scoreboard* ":iq+1,,"After question ";i !C i>qi=q !H k=1p !Rsc=((s(k)/i)+.5) !\;10 +k,0;k;": ";p$(k);sc;10 +k,20; !f}("Well done!"sc>80P)+("Good"(sc80Psc>502))+("Fair"(sc502sc>20))+("Get help!!"sc20) !k:,,"(Scores out of 100)" " "` Name slicer "jv=1̱r$ "tr$(v)=" "8830~" "yv "~r$=r$(v-1): #(o"potassium","sodium","calcium","aluminium","magnesium","zinc","iron(iii)","iron(ii)","lead","copper","silver" #2A"carbonate","nitrate","sulphate","chloride","oxide","hydroxide" #"Solubility of Compound",10 ,"Colour of the Compound",10 ,"The Effect of Heat",15,"The Effect of Nitric Acid",15,"pH of the Compound",10 #"Flame Test on Compound",15,"Adding Barium Chloride Soln.",15,"Adding Zinc Powder",15,"List of Metals & groups",0 &"file"1: '"": o!8xpj"qorointmnMiron(ii)NchlorideCiron(ii) chlorideAiron(ii)chlorideeseT7ZAdding Barium Chloride Soln.Ssoluble5 e W XList of Metals & groupsRd