ZXTape! 0Created with Ramsoft MakeTZXMOLE L N "MOLE" (1:1:7:49999O  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x4A$=" CHEMISTRY ":L=9 :C=2:9180# 0:1 140 &N=50000P50047:B:N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 m33!,0,64@,17,0,200,1,0,27,237,176,201 m33!,0,200,17,0,64@,1,9 ,27,237,176,201 621,0;" " 50000P :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #("DOUBLE HEIGHT" #<&n=5005050129:b:n,b:n #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201 #"DOUBLE WIDTH" #&n=5015050241A:b:n,b:n #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ț16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201 # #$23729\,9 :n=1̱a$ #23728\,c # l,c;a$(n) #50150 #350050:23728\,c+1:50050 #c=c+2:n $ (bGIZ PA CHEMISTRY ,Mole " )"50012\:70F "Mole" E 1984 MERCURIAN PULP   PRODUCTS/CONTRACT BOOKS  B7:1:W$=" MOLE ":c=6:L=13 :4000 "9"270 " n:r=r$ ':10 ,10 +(R<100d)+(R<10 );8;R ,r=a(q)1000:340T 6#g=g+1:g>1330J @318,4;" NO.Try again ":270 J"g<42000:270 T221,0;"Mass of 1 MOLE=";a(q);"g" ^[.5,12 :#1;1,0;" Another one? Press  Y  or  N  " c-23658j\,8:w$=:w$=""355c hw$="N"500 rw$"Y"350^ |50036t n$(q,1)=" ":240 {1,10 :#1;0,0;" Do you have formulae that need analysing? Press  Y  or  N  " -23658j\,8:w$=:w$=""505 w$="N"750 w$"Y"500 66::1,2;" FORMULA ANALYSER " ON=021:N,22;5-(n<3);" ":N:8 &1,23;"Ar Value" 07N=116:N+3,23;A$(N);M(N):N :z12 ,2;" Please type your ";13 ,2;" formula below. ";14,2;" Use the elements " DW15,2;" listed here. ";16,2;" [ENTER] to end. " N@q=17:k$="":j$="":c=2:c$(17)=" " X>23658j\,0:17,c;"L ":.05|L,0 bi$=:i$=""610b l0i$"0"i$"9"i$=((i$)+96`):650 vi$"A"i$"Z"650 {i$=13 700 Ei$=12 c>2c=c-1:j$=j$(̱j$-1):600X i$<"a"i$>"z"600X 17,c;i$:c=c+1  j$=j$+i$ ""670  600X c$(17)=j$:2010 Hf=010 ,2;" Unknown Element ":2,30 Z#1;1,0;" Do you want another ?  Y   N  ":.5,0 -23658j\,8:W$=:W$=""725 w$="Y"530 w$"N"720 B1:50012\:21,8;" END OF PROGRAM":  #k$+j$<11 k$=k$+j$:j$="" *  n=0a(q):16,10 +(n<100d)+(n<10 );n:.002xn,0:n:16,10 +(n<100d);a(q) 1,7: /1,1;n$(q);3,1;c$(q) +l=5:z=2:x=1:r$=c$(q) &n=1̱r$:n=12030 r$(n)<"a"2040 n:21004 q$=r$(n-1):r$=r$(n) %q$(q$)>"z"2200:2070 2.5,15:l,z;q$;"+";:z=z+q$+1  d$(x)=q$:x=x+1 $z>18z=2:l=l+1  r$(1)>" "2020 4$L,z-1;" ";7,2; >9et=0:L=L+2:Z=1:t=1x-1 HCf=0:n=116:d$(t)=a$(n)f=1:2140\ Rn:f2150f W f=0 \.5,8:N+3,23;4;A$(N);M(N):L,Z;m(n);"+":Z=Z+(M(N))+1:Z>18Z=1:L=L+1 a et=et+m(n) f(t:q<17L,Z-1;"=?": pl,z-1;"=";et: It=1̯q$(q$)-144:.5,15:d$(x)=q$(̱q$-1) 2x=x+1:l,z;q$(̱q$-1);"+";:z=z+q$ $z>18z=2:l=l+1 t: T21,0;" PROGRAM READY - PRESS ANY KEY ":1,0:0 4:0:4: ‰0,10 ;"";1,10 ;" ";2,10 ;" ";3,10 ;"" 76:W$="MOLE":L=1:C=12 :4000 k12 ,3;" 1  THE MOLE TESTS ";16,3;" 2  FORMULA ANALYSIS " 68:W$="":L=9 :C=23:4000 .W$="":L=11 :C=23:4000 *n=22935Y22940Y:n,480:n \#1;0,0;" Please press  1  or  2  ":.5,0 w$=:w$=""3070 ,ch=0:w$="2"ch=1:3100 w$"1"3060 " ": G23729\,L:n=1̱W$:L,c;W$(n):23728\,c:50150 C50050:23728\,c+1:50050:c=c+2:n  M(23730\+256*23731\)-(23653e\+256*23654f\) cl nbegqzx >fKJMgPSOI QOR W MOLE 8H C N O Na Mg Al P S Cl K Ca Fe Cu Zn Pb S Bfffffffff fff_~͈O333ï NaOH MgO CaCO HCl AlO ZnSO CuSO NaPO NaCO CaO KNO PbO NaOH NaNO CaCl FeCl %Sodium Hydroxide Magnesium Oxide Calcium Carbonate Hydrogen Chloride Aluminium Oxide Zinc Sulphate Copper Sulphate Sodium Phosphate Sodium Carbonate Calcium Oxide Potassiom Nitrate Lead(IV) Oxide Sodium Hydroxide Sodium Nitrate Calcium Chloride Iron(II) Chloride S(!333H333f!j`fffJ333o333(U^333}A GP H2S K OM "H2S" (1:1:7:49999O  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x4A$=" CHEMISTRY ":L=9 :C=2:9180# 0:1 140 &N=50000P50047:B:N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 m33!,0,64@,17,0,200,1,0,27,237,176,201 m33!,0,200,17,0,64@,1,9 ,27,237,176,201 621,0;" " 50000P :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #("DOUBLE HEIGHT" #<&n=5005050129:b:n,b:n #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201 #"DOUBLE WIDTH" #&n=5015050241A:b:n,b:n #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ț16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201 # #$23729\,9 :n=1̱a$ #23728\,c # l,c;a$(n) #50150 #350050:23728\,c+1:50050 #c=c+2:n $ (bGIZ PA CHEMISTRY h2s v4 R->?&x41:Z=50012\ "h2s" E 1984 MERCURIAN PULP   PRODUCTS/CONTRACT BOOKS  C7:1:a$=" H2S!! ":c=6:L=13 :9000(# (21,0;"  ":Z=50000P:21,0;" PLEASE STOP THE TAPE AND WAIT " 2 =N=121:G$:R=07:B:G$+R,B:R:N "A",3,7,15,15,15,7,3,7,"B",192,224,224,240,224,224,192,224 "C",15,31,31,31,31,31,31,31,"D",240,248,255,255,255,127,152,248 "E",31,31,31,15,14,28,62>,62>,"F",248,248,248,120x,123{,63?,62>,28 "G",31,31,31,28,28,28,31,31,"H",248,248,248,112p,112p,112p,120x,120x "I",3,7,7,15,7,7,3,7,"J",192,224,240,240,240,224,192,224 ȥ"K",15,31,255,255,255,254,25,31,"L",240,248,248,248,248,248,248,248 ң"M",31,31,31,31,222,252,124|,568,"N",248,248,248,240,112p,568,124|,124| נ"O",31,31,31,28,28,28,124|,124|,"P",248,248,248,568,568,568,248,248 ܛ"q",31,31,31,14,30,30,0,0,"r",248,248,248,112p,120x,120x,0,0 "s",15,31,63?,63?,63?,63?,31,31,"t",240,248,252,252,252,252,248,248 S"U",60<,110n,199,253,227,223,110n,60< RM$(3,4,2):N=13:E=14:M$(N,E):E:N ="","","","","","","","","","","","" !K$(7):C(9 ,2) 1N=19 :C(N,1),C(N,2):N 3,8,3,14,3,20,3,26,11 ,2,11 ,8,11 ,14,11 ,20,18,20 .h(40(,2):an=/2:x=2 "<n=140(:h(n,1)=an*x:h(n,2)=an*x '"an=an+/7:x=x+.73333:n ,*"Hydrogen & Oxygen from acified water" 12,"6171" 6#"Hydrogen from steam & Magnesium" ;7,"31435181828384" @1"Oxygen from Hydrogen Peroxide & a catalyst" E8,"1121838182233224" J@"Hydrogen Chloride gas from rock salt & conc. sulphuric acid" O6,"211183128213" T*"Salt crystals from sandy sea water" Y8,"1241515242111484" ^"Pure water from tap water" c!10 ,"11112251425281828384" h "Coffee, white with 2 sugars." m%12 ,"124151524211843344725362" E4,"1 Flasks","2 Filter Funnels","3 Beakers","4 Petrie Dishes" H4,"1 Tap Funnels","2 Condensers","3 Beehive Shelves","4 Troughs" 83,"1 Test Tubes","2 Gas Jars","3 Cups & Saucers" E4,"1 Filter Papers","2 Gauzes","3 Rockwool","4 Ground Coffee" 63,"1 Bunsen Burners","2 Tripods","3 Teaspoons" "2,"1 Voltameter","2 Sugar" '2,"1 Batteries","2 Milk Powder" K4,"1 Glass tubing","2 Rubber Tubing","3 Assorted Bungs","4 Matches" Z21,0;"  Press  any key  to start ":1,0:0  .z=(*7):k$(z+1)="x"510 )k$(z+1)="x":300,+10 *z *e$(13 ,2):0:7: p0,0;" Your task is to prepare,in bulk":j$:5;" ";j$ ?en,t$:t=1en:e$(t)=t$(t*2-1t*2):t &5,1;"Go round the Laboratory ";7,1;"collecting the equipment that";9 ,1;"you will need." +111 ,1;"It's all there - somewhere!" 013 ,1;"Keep looking in the cupboards";15,1;"but watch out - one of them";17,1;"is a fume cupboard,full of H2S" 5:19,0;"If you open it, run to the DOOR!" :pp=0:#1;0,0;"  Do you know what to look for? Press  Y  or  N  ":1,0 <-23658j\,8:a$=:a$=""572< >a$="N"2000:580D @a$"Y"570: B@" ":#1;1,4;"  ONE MOMENT PLEASE " DU"123456789","135792468","369147258","483726195","214685397","641275938","486139572" N="847591623","543912876","329467185","795368214","968723451" X8580D:z=(*12 )+1:n=1z:c$:n bn=c$(9 ) v"sl=c(n,1):sc=c(n,2) ei(40(,2):n=140(:i(n,1)=sl+h(n,1):i(n,2)=sc+h(n,2) ,i(n,1)<0i(n,1)=0 ,i(n,2)<0i(n,2)=0 .i(n,2)>30i(n,2)=30 .i(n,1)>18i(n,1)=18 n c#1;1,0;" Press  any key  to start work ":1,10 :0 !Y=4:X=4:W=1 1an=/2:s$(20,21):cn=1 5ld=1:hs=0:2:7:0: ," EXIT " 8"          " 8"   o   o   o   o  " 8"          " 8"          " $n=13::n )#" " .2"         " 82"  o   o   o   o  " B2"         " L2"         " Vn=13::n `)4;" MOVE " j&4;"   " t*4;" 7    o " ~.4;" 5  8    " *4;" 6    " 0" OPEN CUPBOARD C  GOT IT ALL G  " Z=50024h  hg=0 +hghs>11550:z=50024h hg=(hg=0) #hs=1ƥ>.9ffffhs=2 g8:Y,X;M$(W,1);Y+1,X;M$(W,2);Y+2,X;M$(W,3+ld):ld=(ld=0) &.01z# =,0:.01z# =,5 %hsƾ23673y\415906 &y=1hs1800:1005 hsa$=:1260 A$=:A$=""1250 4a$="c"a$="C"1310:2:z=50036t A$="G"A$="g"1600@ 1Y1=Y+(A$="6")*(Y<18)-(A$="7")*(Y>1) 1X1=X+(A$="8")*(X<30)-(A$="5")*(X>0) (y1,x1)=3115906 /(Y1+2,X1+1)5681250  Y=Y1:X=X1 A$="5"W=2  A$="8"W=1 a$="7"a$="6"w=3 Z=50036t:1200 `n=19 :y=c(n,1)(x-c(n,2)>-1x-c(n,2)<3)1320( #n: ()q=19 :c$(q)=n13302 -q 2/390+10 *q:q=9 1500: <74::2,7;" CUPBOARD No.";q;" " F`in:t=1in:t$:4+2*t,3;" ";t$(1);" ";t$(2);" ":t K,16,3;" 0  Nothing " P$18,5;" Any use ?" Ud.5,0:#1;1,3;" Please press a  number  ":1,10 Z.23658j\,0:a$=:a$=""1370Z _ a$="0" da$<"1"a$>in1370Z x618,1;" " %a$<"1"a$>(in+1)1365U i$=q+a$(1) @f=0:t=113 :e$(t)=i$e$(t)=" ":f=1 Et:390+10 *q:a:a=1̰a$:s$(cn):a:cn=cn+1 Vf=018,1;" You don't really need that ! ":1,-10 :21,0;"Anything else while you're here?"  1365U ,hs=1:sl=y:sc=x:5:0: 61:a$="H2S":L=8:C=12 :9000(# X12 ,2;"IT WILL ESCAPE ANY MOMENT.";16,5;"HEAD FOR THE DOOR!!" :N=110 :.3,20:.3,30 ""1545  n  23673y\,0:0: '*i(hs,1),i(hs,2);"" ,(hs=hs+1-(41)hs=40(): 6E1,20::a$="GASSED!!":l=2:c=8:9000(# :EN=20-40(-1:.02{# =,N:.02{# =,N+20:N <2,-40(:1610J @ J@4,2;"Your job was to produce";5,1;j$ OZ8,0;5;" You needed....";6;8,16;"You collected.." Q7pp=-3:pn=9 :5:2040:7 T0e=0:n=1en:e$(n)" "e=1 Yn ^9pn=9 :n=1cn:s$(n,1)=" "1645m h=6;pn,16;s$(n,318):pn=pn+1 mn r2E2;"and that's not enough.":1670 wPcn>en+12;"which is more than you need.":1850::1670 |72;"and that is all that you need.":1850: 4k=0:n=17:k$(n)" "k=1 n:k=01750 }1,0:#1;0,0;" Do you want another task? Press  Y  or  N  " .23658j\,8:a$=:a$=""1685 a$="N"1720 a$="Y"500  1680 G1:z=50012\:21,8;" END OF PROGRAM ": /1;"I have run out of new problems" }1,0:#1;0,0;" Do you want to start again? Press  Y  or  N  " .23658j\,8:a$=:a$=""1765 a$="N"1720  a$="Y"k$(7):500  1760 ?hs=0:a$="MADE IT !!":l=5:c=2:9000(# ]1,20:21,0;" Press  any key  to carry on ":0 ""1820 &=""1830& 0 :A2:a$="CONGRATULATIONS":L=2:C=1:9000(# Dk.2~L,0:.4L,5:.2~L,0:.4L,5:.2~L,0:1,5 N 0: Az$(16):F$(13 ,2):3:7:1: $N=113 :F$(N)=E$(N):N )1,8;" THE EXPERIMENT " '3,1;6;0;J$ ?PN=7:5,1;" YOU WILL NEED THESE THINGS..." ,N=113 :F$(N)=" "2065 I(390+10 *F$(N,1)):X:T=1̰F$(N,2):P$:T  APN,3+pp;P$(3);z$(18-p$):PN=PN+1:N pp 25*N:: #(23729\,l:n=1̱a$ #223728\,c #< l,c;a$(n) #Fz=50150 #P7z=50050:23728\,c+1:z=50050 #Zc=c+2:n #d #23729\,l:n=1̱a$ #23728\,c # l,c;a$(n) #z=50050 #c=c+1:n # zcl ("b<+xY yw  (fk  JCoffee, white with 2 sugars.  124151524211843344725362 C 968723451( -dZ/#Ѓ*؂zcу涁wH{Tl˙)4 g€Oм1 % ; % bPM΄l˃d1$3XB0gxxs15RjbXy @>X7 aCsin9Q[ө1 Bunsen Burners 2 Tripods 3 Teaspoons 2 Sugar 2 Milk Powder 3 Cups & Saucers 1 Filter Papers 2 Gauzes 4 Ground Coffee 4 Matches 1 Flasks 2 Filter Funnels T4 Petrie DishesI12P2 SugarA H2S!! GU  _     (ȁAߟ REACTIVITYR  T "REACTIVITY" (1:1:7:49999O  30 #821,0;" PLEASE WAIT " (<N=19 :G$:R=07:B:G$+R,B:R:N 2"A",28,34",33!,28,62>,63?,63?,31,"B",0,0,0,128,64@,32 ,144,200 7"C",15,7,3,1,0,0,0,0,"D",228,242,250,252,254,126~,62>,28 <~"E",0,480,60<,63?,60<,480,0,0,"F",63?,63?,63?,63?,513,33!,0,0,"G",63?,63?,63?,31,31,31,0,0,"H",255,255,255,255,255,255,0,0,"I",255,255,254,252,248,224,0,0 F@C=0242:0,C;"";1,C;"":C PL=2162:L,0;"";L+1,0;"";L,30-(4L=2)-(2L=4);"";L+1,30-(4L=2)-(2L=4);"":L ZBC=0302:18,C;"";19,C;"":C dq3,20;"";4,20;"";5,3;"LONGMAN SOFTWARE ";6,20;"" n9000(#:9000(# x4A$=" CHEMISTRY ":L=9 :C=2:9180# 0:1 140 &N=50000P50047:B:N,B:N m33!,0,64@,17,0,228,1,0,27,237,176,201 m33!,0,228,17,0,64@,1,9 ,27,237,176,201 m33!,0,64@,17,0,200,1,0,27,237,176,201 m33!,0,200,17,0,64@,1,9 ,27,237,176,201 621,0;" " 50000P :21,0;" SEARCHING AND LOADING " &7:1:20,0; ""  #("DOUBLE HEIGHT" #<&n=5005050129:b:n,b:n #F237,75K,176,92\,121y,254,32 ,568,1,201,120x,254,21,568,1,201,205,158,14,197,6,0,9 ,193 #P229,229,120x,60<,205,158,14,6,0,9 ,209,1,0,7,9 ,235,9 ,229,6,4,126~,18,21,18,21,37%,16,248 #Z209,6,4,126~,18,21,18,21,37%,16,248,225,124|,15,15,15,230,3,246,88X,103g,126~,1,32 ,0,9 ,119w,201 #"DOUBLE WIDTH" #&n=5015050241A:b:n,b:n #237,75K,176,92\,121y,254,31,568,1,201,120x,254,22,568,1,201,205,158,14,6,0,9 ,229,14 #8,126~,35#,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246 #Ț16,237,43+,546,0,6,4,15,568,6,203,14,203,14,24,8,203,14,203,14,203,254,203,246,16,237,36$,13 ,32 ,203,225,124|,15,15,15,230,3,246,88X,103g,126~,35#,119w,201 # #$23729\,9 :n=1̱a$ #23728\,c # l,c;a$(n) #50150 #350050:23728\,c+1:50050 #c=c+2:n $ (bGIZ PA CHEMISTRY ;*Reactivity<7 I4F]f>750012\:502 "Reactivity" E 1984 MERCURIAN PULP   PRODUCTS/CONTRACT BOOKS  C21,0;1;" " (F7:1:A$="REACTIVITY":L=13 :C=4:9100# -50000P 2K21,0;" PLEASE STOP THE TAPE ":1,0 "6"295' @a$="1"2000:230 EA$="2"2500 :230 J+EX=0:a$="3"EX=1:600X Ta$="4"400:230 ^a$="5"800 :230 ha$"6"295' rE1:50012\:21,8;" END OF PROGRAM ": n=12 z=(*11 )+1 m$(z,1)="H "410 In=2m$(z,1)=s$(1,1,1,2)410 ds$(n,1,1)=m$(z,1):s$(n,1,2)=m$(z,2):s$(n,1,3)=z z=(*4)+1 @n=2i$(z,1)=s$(1,2,1)440 ds$(n,2,1)=i$(z,1):s$(n,2,2)=i$(z,2):s$(n,2,3)=z n  3000 q=1:3080 Q" ":#1;1,0;"Press  A  for another  E  to end" 1,10 ,23658j\,8:a$=:=""510 a$="A"400 a$="E"230  510 XX600X:n=12:i=12:t=12:s$(n,i,t):t:i:n b&"Na","1","CO","2","Fe","2","Cl","1" l/sw=1:q=0:3000 :3080 vD#1;1,2;" Press  any key  to go on " %1,0:0:230  :2,2;"This part of the program lets";4,2;"you define your own salts";6,2;"and tells you the results." *a8,2;"ENTER each salt in 2 stages";10 ,2;"- the METAL,then the RADICAL" 4+12 ,2;" Available METALS" >5n=111 :n10 " ";m$(n,1); Cn H%'2;" Available RADICALS" R2" ";:n=14:i$(n,1);" ";:n \n=12 f_.5,2:23658j\,0:0,0;("Metal for salt ";n;" : ");a$ ka$=1a$=a$+" " pg=0:t=115:a$=m$(t,1)g=1:s$(n,1,1)=a$:s$(n,1,2)=m$(t,2):s$(n,1,3)=t zt:g=0870f ^.5,5:0,0;("Radical for salt ";n;" : ");a$:a$=""900 a$=2a$=a$+" " La$(3)>"0"a$(3)"5"a$=a$(2)+(144+a$(3)) g=0:t=14:a$=i$(t,1)g=1:s$(n,2,1)=a$:s$(n,2,2)=i$(t,2):s$(n,2,3)=t t:g=0900 n #3000 :q=1:3080 D21,0;"Press  A  for another  E  to end" 1,0:0 ="a"Ŧ="A"800  ="e"Ŧ="E"230  960  5:7:0: ڇX=024816:X,40(:0,480+(32 (X<33!X>144))+(16(X<17x>232)):X &255,40(:0,96` }Y=40(88X16:0,Y:502,0:n=13:524+n*4,y:n:189,0:Y _Y=104h120x16:0,Y:32 ,0:159,Y:96`,0:Y L0,136:16,0:239,136:16,0 iN=12:226-N,42*-N:T=14:0,16:-16,0:T:N  71,1;" PERIODIC TABLE (compressed) " D8,7;" METALS ";4,20;"NON-METALS"  kPC=0:2080 :m(11 ,2):n=111 :m(n,1),m(n,2):2300:n *11 ,0,9 ,0,11 ,2,9 ,2,9 ,20,11 ,18,11 ,10 ,15,22,5,0,11 ,16,13 ,16 4Mw$=z$+"** METALS produce POSITIVE ions ** NON-METALS give NEGATIVE ions **" >Bw$=w$+" This program looks at the relative REACTIVITY of ions. " R8w$=w$+"** The metals that are used are shown above.**" \Iw$=w$+" The numbers indicate their positions in a REACTIVITY SERIES.**" a W$=W$+Z$ fN=1:PC=6 zVT=1̱W$-32 :#1;1,0;6;0;W$(TT+31)  10 T |#1;0,0;" Do you want to see that again? Press  Y  or  N  ":.5,0 .23658j\,8:a$=:a$=""2210 a$="Y"2000 a$"N"2200  mm(n,1),m(n,2);9 ;PC;m$(n,1);m(n,1)+1,m(n,2);n;(" "n<10 ) 9.2~L,10 :Pc=Pc-1+(7Pc=0): 3:7:0: f1,6;" REACTIVITY SERIES ";3,2;" METALS   RADICALS " ;N=111 :N+4,1;E$(N):502:N ;N=14:N+4,21;R$(N):502:N 5,12 ;" HIGH ";7,14;"";9 ,14;"";11 ,14;"";13 ,14;"";15,12 ;" LOW " iW$=Z$+"*** In an IONIC SOLUTION low order IONS will be replaced by those higher in the series ***"+Z$ fw$=w$+"*** The series shown here include only those metals and radicals used in this program ***"+Z$ n=1̱w$-31 K#1;1,0;6;0;w$(nn+31):10 :n N502:20,0;" Press R  to repeat G  to go on " #1,0 (.23658j\,8:a$=:A$=""2600( 2a$="R"2570 <a$="G"2640P F 2600( P  iv(4,2):n=14:v(n,1)=1:v(n,2)=1:n:n=12 1x=s$(n,1,2)/s$(n,2,2) /(x-0.5)<.1}Lv(n,1)=2 1(x-0.33()<.05|Lv(n,1)=3 1(x-0.25~)<.05|Lv(n,1)=4 !x=2v(n,2)=2 9x=1.5@v(n,1)=2:v(n,2)=3 F(x-.75@)<.05|Lv(n,1)=3:v(n,2)=4 F(x-.67+)<.05|Lv(n,1)=3:v(n,2)=2 G(x-1.33*=p)<.05|Lv(n,1)=3:v(n,2)=4 !x=3v(n,2)=3 !x=4v(n,2)=4 n:  7: !+1,8;" ORIGINAL SALTS " &^9 :z=1:4000:3,4;1;p$(3);2;P$(4) +qsol=0 0Vz=2:4000:3,18;3;p$(3);5;P$(4) 5qsol=0 :"q=13300 :q=0 D-5,2;" IONS & VALENCIES " N9 :7,2;1;s$(1,1,1);S$(1,1,2,1);"+";7;" ";2;s$(1,2,1);S$(1,2,2,1);"-" X7,16;3;s$(2,1,1);S$(2,1,2,1);"+";7;" ";5;s$(2,2,1);S$(2,2,2,1);"-" bsw=03220 l%9 ,10 ;" NEW SALTS " vyx$=s$(1,1,1):s$(1,1,1)=s$(2,1,1):s$(2,1,1)=x$ yx$=s$(1,1,2):s$(1,1,2)=s$(2,1,2):s$(2,1,2)=x$ 3000 cz=1:4000:11 ,5;1;p$(3);2+(3SW);P$(4) dz=2:4000:11 ,20;3;p$(3);5-(3SW);P$(4) EX=03270 d13 ,1;"If both salts are soluble,the";15,1;"most reactive metal ion will" T17,1;"bond with the most reactive";19,1;"non-metal ion." >sw21,1;" This would happen with these."  jSW13 ,1;"The original salts have both";15,1;"decomposed to form new salts.": c13 ,1;"No new salts would be formed ";15,1;"in a solutiom of these two."  sw=0 s$(1,1,3)>s$(2,1,3)ưs$(1,2,3)>s$(2,2,3)sw=0:3340 s$(1,1,3) HO1,0:0,0;" Correct.ENTER to carry on.";a$ R  p$=s$(z,1,1) Hv(z,1)>1p$(3)=(v(z,1)+144):p$=p$+" " =v(z,2)>1s$(z,2,1)"Cl "p$=p$+"(" p$=p$+s$(z,2,1) =v(z,2)>1s$(z,2,1)"Cl "p$=p$+")" 7v(z,2)>1p$=p$+(v(z,2)+144)  q=0  sol=0 Rs$(z,1,1)="Na "s$(z,1,1)="K "sol=1:4190^ 6s$(z,2,1)="NO"sol=1:4190^ ps$(z,2,1)="Cl "(s$(z,1,1)"Ag "s$(z,1,1)"Pb ")sol=1:4190^ ps$(z,2,1)="SO"(s$(z,1,1)"Ca "s$(z,1,1)"Pb ")sol=1:4190^ ^#w$="insoluble":solw$="soluble" hZ#1;1,0;" Is ";p$;" soluble ? Y   N  ":.5,2 m.23658j\,8:A$=:a$=""4205m rsola$="Y"4240 | sol=0a$="N"4240 [1,-10 :#1;0,0;" Wrong!! It is ";W$;". ":4250 O1,0:#1;0,0;" Correct. It is ";w$;". " I#1;1,0;" Press  ENTER  to go on ": a$=:a$=""4252 a$13 4250  " ":sol o13 ,0;" We can't make an ionic solution";15,0;" with this.Let's find another. "  @ "!n=047/:b:a+n,b:n "33!,0,64@,17,0,228,1,0,27,237,176,201,33!,0,228,17,0,64@,1,9 ,27,237,176,201 "33!,0,64@,17,0,200,1,0,27,237,176,201,33!,0,200,17,0,64@,1,9 ,27,237,176,201 #' "dbsize"" # #n=1̱a$ #23729\,l:23728\,c # l,c;a$(n) #50150 #350050:23728\,c+1:50050 #c=c+2:n # #n=1̱a$ #23729\,l:23728\,c $ l,c;a$(n) $50050:C=C+1:N $ $Tn=1̱a$ $^23729\,l:23728\,c $h l,c;a$(n) $r50150:C=C+2:N $| <b8oxs        XqzgWsolubleX1 -PK NOA REACTIVITYl cGH# s Potassium Sodium Calcium Magnesium Aluminium Zinc Iron Lead Hydrogen Copper Silver - Nitrate Chloride Carbonate Sulphate CK 1 Na1 Ca2 Mg2 Al3 Zn2 Fe3 Pb2 H 1 Cu2 Ag1 +NO1 Cl 1 CO2 SO2 -