ZXTape! 2 Building Elements Weaversoft Pat Bennett1984English Educational7.95 ROM LoaderOriginal3TZXed Andrew Barker. Tape loaned from Andrew Blood.atoms1  Atoms1 -  Pat Bennett 1984 23659k\,0:23730\,241:23731\,248:j=180P:64699+j,x$(j):j:64700:23659k\,2 2&1:1:6:1: <310 ,5;"Loading ATOMS1 bytes":1 d"" n06:10 ,20;"program":1 x64700:"" &57;"Rewind tape and start again":100d: QP SP! [=\s#r!' s#r!::\<( ( d!B\6#6#[::\<>2:\vatoms1 c ml >$< >66<  >|<<   >H<   > Z<   >m<    ><       P![~#"[o<&)))K6\ >2[: [2 [: [2[> 2[~#"[2[:[= 2:[= :[G: [O: [ 2 [*[Ó2[: [G: [2 [*[ð2[: [G: [2[: [O4:[<2[ :[<2[ :[@ :\G:\G:[o:[g>Xg:\w:[G@gxgxo:[Go!,xO F![F(// P! [=\s#r!' s#r!::\<( ( d!B\6#6#[::\<>2:\vW P P32]32]-])]-]%MN N\GWq !v>>BB<DHpHDB@@@@@~BfZBBBBbRJFB/`:ΨBatoms1 b ^<#m\Ay^x(x)=x-23677}\ y(ylϩ)=y-23678~\  ATOMS1   Pat Bennett 1983  [w$=" ":tot=0:pro=0:ele=0:neu=0  #j=07:a:"p"+j,a:j O60<,102f,231,129,129,231,102f,60< (#j=07:a:"n"+j,a:j 2O60<,126~,255,255,255,255,126~,60< <#j=07:a:"e"+j,a:j FD0,0,0,24,60<,24,0,0 P d.e=0ht:e+st,0;7;w$:e: n l,c;z$ x >#1;0,0;" Press any key to continue " q$=:q$=""135 ""136 q$="m"2000 #1;0,0;w$: Jerr=0:e=1̱q$:q$(e)>579ůq$(e)<480err=1 e: .9 ,5;7;3;"NUCLEUS" W11 ,1;7;3;"PROTONS NEUTRONS";11 ,22;"ELECTRONS" 8,79O:127,0:0,-480:-127,0:0,480:67C,79O:0,-480 ^176,79O:72H,0:0,-480:-72H,0:0,480 \87W,7:0,18:82R,0:0,-18:-82R,0 500: 135 !q$="p"q$="n"q$="e"260  250 6pro=pro+(q$="p"):neu=neu+(q$="n"):ele=ele+(q$="e") 4pro>20ele>20neu>201000  #st=0:ht=7:100d 500:charge t=1900:timer 6600X+20*(q$="n")+40(*(q$="e"):print ,kan=pro+(pro=0):c$(an)=proưc$(an)=eleưd$(an)-c$(an)=neutot=tot+1:3010 :400 @+(pro-ele)>23040 :700 J 250 ^(#1;" CORRECT!":502: k=01 3010 +10 *k:l,c,z$ 7100d:110n:k=10,22;q$ q$:q$=""420 #145:err=1420 :q$=c$(pro)*(k=0)+d$(pro)*(k=1)470 3050 :l,c,z$:110n q$:q$=""445 #145:err=1445 :q$=c$(pro)*(k=0)+d$(pro)*(k=1)470 1500:1200 k T3030 :l,c,z$:110n:0,21;c$(pro);1,19;d$(pro) 5,9 ;n$(pro) 7135:100d:3000 :l,c,z$:110n:  Charge }19,11 ;7*(proele);7-5*(pro>ele)-2*(pro 2050 Test nuclear numbers j:10 ,0;" A TEST ON 5 DIFFERENT ISOTOPES!";15,7;"Can you stand it?":2800 tot=0 j=15 5:7: 2900T y4,82R:0,18:66B,0:0,-18:-66B,0:10 ,1;"PROTONS" }84T,82R:0,18:82R,0:0,-18:-82R,0:10 ,11 ;"ELECTRONS" }180,82R:0,18:74J,0:0,-18:-74J,0:10 ,23;"NEUTRONS" Yu$="pne":e=13:r=(*3+1):v$=u$(e):u$(e)=u$(r):u$(r)=v$:e k=13 .l=(u$(k)="e")*96`+(u$(k)="n")*184 ( 4000 2$q$:q$>3q$=""26102 7/137:145:err=126102 <1:1:6:xs=2:ys=2:yy=96`:xx=24+(u$(k)="e")*88X+(u$(k)="n")*184-8*(q$=3):p$=q$:9000(#:7:0:0 Fjq$=a$*(u$(k)="e"u$(k)="p")+(m$-a$)*(u$(k)="n")tot=tot+1:4300:4200h:2650Z P4300:4100 Zk _ 130 dj i 100d n:xs=2:ys=3:xx=8:yy=32 :p$="YOU HAVE SCORED ":9000(#:xx=112p:yy=64@:p$=tot:9000(# x7xx=480:yy=96`:p$="OUT OF 15!":9000(# 130:2000 Select five for test /s$(546):e=1546:s$(e)=e:e 0 Pe=15:e$=s$(e):s=(*546+1):s$(e)=s$(s):s$(s)=e$:e  TWrite large symbol ^7000X+s$(j) h b$,y$,a$,m$ ry=9 -m$-y$/2 |P0,y;" MASS";1,y;"NUMBER";6,y;"ATOMIC";7,y;"NUMBER" Oxx=8*(y+8):yy=0:xs=2:ys=2:p$=m$:9000(# yy=480:p$=a$:9000(# \xs=4:ys=4:yy=16:xx=8*(y+7+2*m$):p$=y$:9000(#  0,0,"Build up the atom of an element by adding PROTONS (press P), NEUTRONS (press N) and ELECTRONS (press E) " x1,0," You have found an ELEMENT ! Tell me its ATOMIC NUMBER. " ̔0,0," ATOMIC NUMBER = Correct ! Now tell me its MASS NUMBER. " ִ0,0," ATOMIC NUMBER = MASS NUMBER = Correct ! This particular element is " T3,0," Don't forget that atoms must be electrically neutral. " T4,0," NOT CORRECT ! Try again. " Building blocks 6:7:0: S14,7;"ATOMS ARE MADE OF";16,4;"EVEN SMALLER PARTICLES!" 619,0;"Press ENTER to learn about them." ""3500 Atoms picture 0:j=(*7) $st=0:ht=10 :100d 3807-j  x1,y1,r1,a1:a1=a1+63730 x1,y1,r1:a1 7000X+s$(7-j):b$ *9 ,13 -b$/2;b$;" atom" *80P:3240 c:1,3;5;"What kind of atom would you";2,6;"like to think about?" pj=17:7000X+s$(j):b$:3+2*j,4;b$;3+2*j,21;"Press ";j j 135:q$=""3530 %q$<1Űq$>73530 03800+q$:x1,y1,r1,a1:a1=a1+63730 "7000X+s$(q$):b$,y$,a$,m$ :3550 :3580 x1,y1,r1:a1 ,9 ,13 -b$/2;b$;" atom": >502:11 ,1;"Atoms contain two electrically" *12 ,6;"charged particles - " [14,10 ;"PROTONS - ";16,4;"and ELECTRONS - ":100d j=13 ht=3:st=18:100d:19,0;" How many electrons are there";20,8-b$/2;"in an atom of ";b$;"?" $4q$:137:145:err=13620$ )""3625) .q$=a$100d:18,1;5;"Not correct. Count them again!":j:100d:19,0;"There are ";a$;" electrons () in a"'b$;" atom - count them!":130:36353 0 350^ 3j=13 8w100d:19,0;" How many PROTONS are there ";20,8-b$/2;"in an atom of ";b$;"?" B4q$:137:145:err=136408 G""3655G Lq$=a$100d:18,1;5;"Not correct. Count them again!":j:100d:19,0;"There are ";a$;" protons () in a"'b$;" atom - count them!":130:3670V Q 350^ V:3700t:j=01:z$:3*j,0;z$:z$="0.00000000000000000016 coulombs.":3*j,0:k=1̱z$:٥*3;z$(k);:.01z# =,k*2:k `j tE" The charge on an electron is "," The charge on a proton is also" ~c502:8,3;"For short, this is called";9 ,4;"1 ATOMIC UNIT or 1 a.u." 502:11 ,3;"As electrons and protons are";12 ,6;"OPPOSITELY CHARGED,";13 ,1;"there must be EQUAL NUMBERS of";14,5;"them in a neutral atom." 502:17,0;"The third type of particle found"'"in atoms is called a NEUTRON ()"'"which does not have any charge.":130 S:xs=2:ys=3:xx=16:yy=8:p$="- ELECTRONS -":9000(# 8xx=32 :yy=32 :p$="+ PROTONS +":9000(# |10 ,2;"The number of protons in the";11 ,6;"atoms of an element";12 ,9 ;"is called the" ;xx=24:yy=116t:p$="ATOMIC NUMBER":9000(# K19,9 ;"and is a very";20,6;"important quantity."  130 :3550 [12 ,3;"What is the atomic number";14,12 -b$/2;"of ";b$;"?" 4q$:136:145:err=13785 q$=a$st=12 :100d:12 ,10 ;"Not correct.";13 ,6;"There are ";a$;" protons";14,8-b$/2;"in an atom of ";b$;",";15,1;"so that is the atomic number.":130:3900< &123{,147,17,0 '123{,147,21,524 (123{,144,23,122z (123{,143,26,198 (127,143,26,286 (126~,140,29,392 (123{,140,32 ,517  350^ <.:0,4;"The mass of a proton is" A^z$="0.0000000000000000000000017 g.":j=1̱z$:1,j;z$(j):.01z# =,2*j:j F502:3,1;"A neutron weighs the same as a";4,0;"proton, so this weight is called";6,6;"1 ATOMIC MASS UNIT";7,10 ;"or 1 a.m.u." K502:9 ,0;"Electrons are 2000 times lighter";10 ,1;"than protons and neutrons, so";11 ,0;"the mass of an atom depends only";12 ,2;"on the number of protons and";13 ,5;"electrons in the atom." PV15,0;"This is another important number";16,11 ;"called the" U9xx=40(:yy=140:p$="MASS NUMBER":9000(# Z130::3550 _Y13 ,5;"What is the mass number";14,13 -b$/2;"of ";b$;"?" d4q$:137:145:err=13940d iq$=m$13 ,4;" Not correct. ";14,0;" The mass number of ";15,12 -b$/2;b$;" is ";m$;".";17,2;"Add up the numbers of protons";18,10 ;"and neutrons.":3955s n18,12 ;"CORRECT!" sK20,4;"Look at another element?";21,10 ;"Press y" x135:q$="y"3500 :6,3;"Would you like to know more";8,3;"about how protons,neutrons";10 ,3;"and electrons are arranged";12 ,11 ;"in atoms?";18,10 ;"Press y or n." 135:q$="y"44000  2000  Print ?  4050 e=19 :ll,cc ll,l/8+cc;" ":e  Қ15,2,14,3,14,4,15,5,16,5,17,4,17,3,18,3,20,3  Print cross e=110 Re+l+8,0:480,480:e+l+8,480:480,-480 "e , h Print tick re=110 |=e+l+8,10 :10 ,-10 :20,480 e  Window for ticks `e=18:13 +e,1+11 *(u$(k)="e")+23*(u$(k)="n");" ":e  0 atoms 56:7:0: :V5;1,5;"Which element would you";2,10 ;"like to see?" Dsj=110 :4+j,2;2*j-1;" ";n$(2*j-1),2*j;" ";n$(2*j):j N218,2;"ENTER the appropriate number" Xq$:q$=""4440X Z$145:err=14440X ])n=q$:n<1n>204440X b&0:6:0:1: c128,88X d2,29;"^";0,0;n$(n);1,0;"atom";17,0;"Number";18,2;"of";19,0;"electrons";20,2;"= ?";0,21;"The NUCLEUS" e8140,88X:95_,0:0,64@ fR502:z$=" containing ||v":j=418:j,29;z$(j-3):j gS19,22;c$(n);" protons";20,21;d$(n)-c$(n);" neutrons" h-130:10 ,17;" " j$4570:tot=0:l=0 l a,b,p1,p2 a=a+3*l:b=b+3*l  128+a*p1,88X+b*p2  p=02*ͧ/10 P6-(tot+3)/8:x(128+a*(p+p1)),y(88X+b*(p+p2)) p tot=tot+1:l=l=0 ="m"0:2000 :20,4;tot:h=tottot+5:.01z# =,h:h tot=n4530 l=14480  4460l @1;7;20,4;tot;19,22;tot =#1;" See another element? y/n":0:135 q$="y"44000 0:2000 #10 ,10 ,0,0 #30,30,0,0 #40(,20,0,0 %25,40(,/4,0 %25,40(,0,/4 #60<,60<,0,0 #45-,70F,0,0 %557,557,0,/4 %557,557,/4,0 #84T,84T,0,0 Isotopes g$(8):g$=" 5 81034" j=14 -7000X+g$(2*j-12*j) b$,q$,a$,m$,p$ q6:7:0::"All atoms of ";b$;" will"'"react with atoms of other"'"elements in the same way." 9k=110 :3+k,11 ;"":k 0130:k=02:k,0;w$:k F0,0;"But not all atoms of ";b$'"are exactly the same !" 100d:h=1 (k=110 :e=110 Ch>(.5+p$)3+k,10 +e;6;"":5130  13+k,10 +e;4;"":h=h+1  e:k k=01 B4,21*k;"A ";4+2*k;"";0;" atom" (5,21*k;"contains";6,21*k;a$;" protons";7,21*k;a$;" electrons";8,4+21*k;"and";9 ,21*k;m$-a$;" neutrons." 2 b$,q$,a$,m$ <k A 150 Fb11 ,21;"These atoms";12 ,24;"are";13 ,22;1;"HEAVIER!" P 130 ZS16,0;"The different sorts of atoms in"'"the same element are called" dOxs=3:ys=3:xx=24:yy=152:p$="ISOTOPES!":9000(# n 130 x'k=1621:k,0;w$:k -7000X+g$(2*j-12*j) b$,z$,z$,m$,p$,b$,z$,z$,a$,y$ S15,0;"Let's work out the average mass of all the atoms in ";b$;" :-" z$=m$+"x"+p$+" + "+a$+"x"+y$ v100d:18,0;z$;19,0;"----------------------"(̱z$);20,z$/2-2;"100" ,ram=((m$*p$+a$*y$)/10 )/10 !19,z$+2;"= ";ram 1130:k=414:k,0;w$:k 5;6,0;"The average mass of all of the atoms of ";b$;" is called the";9 ,6;1;"RELATIVE ATOMIC MASS";11 ,12 -b$/2;0;"of ";b$;"." x5:1:xs=2:ys=2:yy=144:xx=32 +8*z$:p$=ram:9000(#:0:7 j130:0,0;1;;"PRESS 'm' FOR THE MENU Any other key for new element " 502:130 q$="m"2000 fj k 5000 pIsotope database zX7::1,8;"ISOTOPE DATABASE";2,8;"________________"'''' *j=120:" ";j;" ";n$(j),:j >g$(20):6050:j=120:q:g$(j)=q:j 1,3,5,7,8,10 ,12 ,14,17,18,21,22,25,26,29,30,34",36$,39',42* L18,6;"Enter element number";21,10 ;"'m' for menu" q$:q$=""6070 /137:145:err=16070 &q$>20Űq$<16070 $line=7000X+g$(q$):line:b$ |k=1::z$="Isotopes of "+b$:l=1:c=15-z$/2:110n:2,c;"----------------------"(̱z$) line:b$,y$,a$,m$,o$,q$ ;4+2*k,4;b$;" ";m$;21;"Press ";k 3q$=b$line=line+1:k=k+1:6090 k=116,2;"There is only one naturally occurring isotope of ";18,15-b$/2;b$:6140 J18,6;"Which isotope do you wish to investigate?" /135:145:err=16140 q$="0"6140 q$>k6140  62008  6000p 8:line-k+q$:b$,y$,a$,m$,o$ B 2930r LIz$="This isotope of "+b$:l=10 :c=15-z$/2:110n V~11 ,12 ;"contains ";12 ,0;a$;" protons, ";a$;" electrons, and";13 ,8;m$-a$;" neutrons." [Jz$=o$+"% of the atoms of":l=16:c=15-z$/2:110n `Iz$=b$+" consist of this":l=17:c=15-z$/2:110n e18,12 ;"isotope." j3#1;"See another isotope of "'b$;"? y/n " o 135 t)q$="y"line=line-k+1:6085 ~7#1;"See isotopes of another"'"element? y/n "  135  q$="y"  2000 XTest data Y!"hydrogen","H","1","1","99.984" Z "hydrogen","H","1","2","0.016" [ "helium","He","2","3","0.0001" \!"helium","He","2","4","99.9999" ]"lithium","Li","3","6","7.3" ^"lithium","Li","3","7","92.7" _ "beryllium","Be","4","9","100" `"boron","B","5","10","18.83" a"boron","B","5","11","81.17" b"carbon","C","6","12","98.9" c"carbon","C","6","13","1.1" d!"nitrogen","N","7","14","99.62" e "nitrogen","N","7","15","0.38" f "oxygen","O","8","16","99.758" g"oxygen","O","8","17","0.039" h"oxygen","O","8","18","0.203" i"fluorine","F","9","19","100" j"neon","Ne","10","20","90.51" k"neon","Ne","10","21","0.28" l"neon","Ne","10","22","9.21" m"sodium","Na","11","23","100" n#"magnesium","Mg","12","24","78.6" o$"magnesium","Mg","12","25","10.11" p$"magnesium","Mg","12","26","11.29" q""aluminium","Al","13","27","100" r""silicon","Si","14","28","92.18" s!"silicon","Si","14","29","4.71" t!"silicon","Si","14","30","3.11" u""phosphorus","P","15","31","100" v!"sulphur","S","16","32","95.06" w!"sulphur","S","16","33","0.742" x!"sulphur","S","16","34","4.182" y!"sulphur","S","16","36","0.016" z""chlorine","Cl","17","35","75.4" {""chlorine","Cl","17","37","24.6" |"argon","Ar","18","36","0.35" }"argon","Ar","18","38","0.08" ~ "argon","Ar","18","40","99.57" #"potassium","K","19","39","93.26" #"potassium","K","19","40","0.011" #"potassium","K","19","41","6.729" ""calcium","Ca","20","40","96.92" !"calcium","Ca","20","42","0.64" ""calcium","Ca","20","43","0.129" !"calcium","Ca","20","44","2.13" ""calcium","Ca","20","46","0.003" ""calcium","Ca","20","48","0.178" "iron","Fe","25","56","91.64" !"copper","Cu","29","63","68.94" "zinc","Zn","30","64","48.89" ""silver","Ag","47","107","51.92" "gold","Au","79","197","100" #"mercury","Hg","80","202","29.54"  "lead","Pb","82","208","52.27" #(Big characters #2i=23306 [:i,xx:i+1,yy:i+2,xs:i+3,ys:i+4,8:i=i+4:w=p$:n=1w:i+n,p$(n):n:i+w+1,255:w=64400: #<+64700:5:6:0: #A110 ,2;"Please wait - loading data." #FQn$(20,10 ):c$(20,3):d$(20,3):g$(20) #P09060d#:j=120:q:g$(j)=q:j #Z@j=120:7000X+g$(j):n$(j),q$,c$(j),d$(j):j #d1,4,6,7,9 ,10 ,12 ,14,17,18,21,22,25,26,29,30,34",38&,39',42* #<9110#:s$(7):e=17:q:s$(e)=q:e #=5,7,9 ,10 ,14,18,23 # 10 &&6:1:1:1: &K2,8;"BUILDING ELEMENTS";3,8;"_________________" &'6,7;" Pat Bennett 1984" &+12 ,6;"A WEAVERSOFT PRODUCT." & 200:0:2000  q* dorlea {lYMgA12M25rZ 0.00000000000000000016 coulombs. V  W  hydrogen helium lithium beryllium boron carbon nitrogen oxygen fluorine neon sodium magnesium aluminium silicon phosphorussulphur A1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 A1 4 7 9 11 12 14 16 19 20 23 24 27 28 31 32  "&'*B magnesiumQ