Sharp PC-E500/E500S Technikersoftware

ISOTOP.223

Stabile Isotope

ISOTOP.223 (17.488 Bytes)

10 ' ISOTOPE.223 (Isotope)
15 CLEAR
20 MERGE "G:COMN.00$"
30 GOSUB *CG
40 GOTO 10000
100 DATA &D2,H,&C2,@,1.0078250,99.985,@
101 DATA &D2,H,&C3,(,&D2,D,&C3,),@,2.0141018,0.0148,@
102 DATA &D3,He,&C4,@,3.0160293,1.38*10,&CB,&C5,@
103 DATA &D3,He,&C5,@,4.0026033,99.99986,@
104 DATA &D4,Li,&C7,@,6.015123,7.5,@
105 DATA &D4,Li,&C8,@,7.016005,92.5,@
106 DATA &D5,Be,&CA,@,9.012183,100,@
107 DATA &D6,B,&C2,&C1,@,10.012938,19.8,@
108 DATA &D6,B,&C2,&C2,@,11.009305,80.2,@
109 DATA &D7,C,&C2,&C3,@,12.0000000,98.89,@
110 DATA &D7,C,&C2,&C4,@,13.0033548,1.11,@
111 DATA &D8,N,&C2,&C5,@,14.0030740,99.63,@
112 DATA &D8,N,&C2,&C6,@,15.0001090,0.366,@
113 DATA &D9,O,&C2,&C7,@,15.9949146,99.76,@
114 DATA &D9,O,&C2,&C8,@,16.999131,0.038,@
115 DATA &D9,O,&C2,&C9,@,17.999159,0.204,@
116 DATA &DA,F,&C2,&CA,@,18.998403,100,@
117 DATA &D2,&D1,Ne,&C3,&C1,@,19.992439,90.51,@
118 DATA &D2,&D1,Ne,&C3,&C2,@,20.993845,0.27,@
119 DATA &D2,&D1,Ne,&C3,&C3,@,21.991384,9.22,@
120 DATA &D2,&D2,Na,&C3,&C4,@,22.989770,100,@
121 DATA &D2,&D3,Mg,&C3,&C5,@,23.985045,78.99,@
122 DATA &D2,&D3,Mg,&C3,&C6,@,24.985839,10.00,@
123 DATA &D2,&D3,Mg,&C3,&C7,@,25.982595,11.01,@
124 DATA &D2,&D4,Al,&C3,&C8,@,26.981541,100,@
125 DATA &D2,&D5,Si,&C3,&C9,@,27.976928,92.23,@
126 DATA &D2,&D5,Si,&C3,&CA,@,28.976496,4.67,@
127 DATA &D2,&D5,Si,&C4,&C1,@,29.973772,3.10,@
128 DATA &D2,&D6,P,&C4,&C2,@,30.973763,100,@
129 DATA &D2,&D7,S,&C4,&C3,@,31.972072,95.02,@
130 DATA &D2,&D7,S,&C4,&C4,@,32.971459,0.75,@
131 DATA &D2,&D7,S,&C4,&C5,@,33.967868,4.21,@
132 DATA &D2,&D7,S,&C4,&C7,@,35.967079,0.017,@
133 DATA &D2,&D8,Cl,&C4,&C6,@,34.9688527,75.77,@
134 DATA &D2,&D8,Cl,&C4,&C8,@,36.965903,24.23,@
135 DATA &D2,&D9,Ar,&C4,&C7,@,35.967546,0.337,@
136 DATA &D2,&D9,Ar,&C4,&C9,@,37.962732,0.063,@
137 DATA &D2,&D9,Ar,&C5,&C1,@,39.962383,99.60,@
138 DATA &D2,&DA,K,&C4,&CA,@,38.963708,93.26,@
139 DATA &D2,&DA,K,&C5,&C1,@,39.963999,0.0117,@
140 DATA &D2,&DA,K,&C5,&C2,@,40.961825,6.73,@
141 DATA &D3,&D1,Ca,&C5,&C1,@,39.962591,96.94,@
142 DATA &D3,&D1,Ca,&C5,&C3,@,41.95862,0.647,@
143 DATA &D3,&D1,Ca,&C5,&C4,@,42.95877,0.135,@
144 DATA &D3,&D1,Ca,&C5,&C5,@,43.95548,2.09,@
145 DATA &D3,&D1,Ca,&C5,&C7,@,45.95369,0.0035,@
146 DATA &D3,&D1,Ca,&C5,&C9,@,47.95253,0.187,@
147 DATA &D3,&D2,Sc,&C5,&C6,@,44.95591,100,@
148 DATA &D3,&D3,Ti,&C5,&C7,@,45.95263,8.2,@
149 DATA &D3,&D3,Ti,&C5,&C8,@,46.95176,7.4,@
150 DATA &D3,&D3,Ti,&C5,&C9,@,47.94795,73.7,@
151 DATA &D3,&D3,Ti,&C5,&CA,@,48.94787,5.4,@
152 DATA &D3,&D3,Ti,&C6,&C1,@,49.94479,5.2,@
153 DATA &D3,&D4,V,&C6,&C1,@,49.94716,0.250,@
154 DATA &D3,&D4,V,&C6,&C2,@,50.94396,99.750,@
155 DATA &D3,&D5,Cr,&C6,&C1,@,49.94605,4.35,@
156 DATA &D3,&D5,Cr,&C6,&C3,@,51.94051,83.79,@
157 DATA &D3,&D5,Cr,&C6,&C4,@,52.94065,9.50,@
158 DATA &D3,&D5,Cr,&C6,&C5,@,53.93888,2.36,@
159 DATA &D3,&D6,Mn,&C6,&C6,@,54.93805,100,@
160 DATA &D3,&D7,Fe,&C6,&C5,@,53.93961,5.8,@
161 DATA &D3,&D7,Fe,&C6,&C7,@,55.93494,91.8,@
162 DATA &D3,&D7,Fe,&C6,&C8,@,56.93540,2.15,@
163 DATA &D3,&D7,Fe,&C6,&C9,@,57.93328,0.29,@
164 DATA &D3,&D8,Co,&C6,&CA,@,58.93320,100,@
165 DATA &D3,&D9,Ni,&C6,&C9,@,57.93535,68.3,@
166 DATA &D3,&D9,Ni,&C7,&C1,@,59.93079,26.1,@
167 DATA &D3,&D9,Ni,&C7,&C2,@,60.93106,1.13,@
168 DATA &D3,&D9,Ni,&C7,&C3,@,61.92835,3.59,@
169 DATA &D3,&D9,Ni,&C7,&C5,@,63.92797,0.91,@
170 DATA &D3,&DA,Cu,&C7,&C4,@,62.92960,69.2,@
171 DATA &D3,&DA,Cu,&C7,&C6,@,64.92779,30.8,@
172 DATA &D4,&D1,Zn,&C7,&C5,@,63.92915,48.6,@
173 DATA &D4,&D1,Zn,&C7,&C7,@,65.92604,27.9,@
174 DATA &D4,&D1,Zn,&C7,&C8,@,66.92713,4.10,@
175 DATA &D4,&D1,Zn,&C7,&C9,@,67.92485,18.8,@
176 DATA &D4,&D1,Zn,&C8,&C1,@,69.92532,0.62,@
177 DATA &D4,&D2,Ga,&C7,&CA,@,68.92558,60.1,@
178 DATA &D4,&D2,Ga,&C8,&C2,@,70.92470,39.9,@
179 DATA &D4,&D3,Ge,&C8,&C1,@,69.92425,20.5,@
180 DATA &D4,&D3,Ge,&C8,&C3,@,71.92208,27.4,@
181 DATA &D4,&D3,Ge,&C8,&C4,@,72.92346,7.8,@
182 DATA &D4,&D3,Ge,&C8,&C5,@,73.92118,36.5,@
183 DATA &D4,&D3,Ge,&C8,&C7,@,75.92140,7.8,@
184 DATA &D4,&D4,As,&C8,&C6,@,74.92160,100,@
185 DATA &D4,&D5,Se,&C8,&C5,@,73.92248,0.87,@
186 DATA &D4,&D5,Se,&C8,&C7,@,75.91921,9.0,@
187 DATA &D4,&D5,Se,&C8,&C8,@,76.91991,7.6,@
188 DATA &D4,&D5,Se,&C8,&C9,@,77.91730,23.5,@
189 DATA &D4,&D5,Se,&C9,&C1,@,79.91652,49.8,@
190 DATA &D4,&D5,Se,&C9,&C3,@,81.91671,9.2,@
191 DATA &D4,&D6,Br,&C8,&CA,@,78.91834,50.69,@
192 DATA &D4,&D6,Br,&C9,&C2,@,80.91629,49.31,@
193 DATA &D4,&D7,Kr,&C8,&C9,@,77.92040,0.356,@
194 DATA &D4,&D7,Kr,&C9,&C1,@,79.9164,2.27,@
195 DATA &D4,&D7,Kr,&C9,&C3,@,81.91348,11.6,@
196 DATA &D4,&D7,Kr,&C9,&C4,@,82.91413,11.5,@
197 DATA &D4,&D7,Kr,&C9,&C5,@,83.91151,57.0,@
198 DATA &D4,&D7,Kr,&C9,&C7,@,85.91061,17.3,@
199 DATA &D4,&D8,Rb,&C9,&C6,@,84.91180,72.17,@
200 DATA &D4,&D8,Rb,&C9,&C8,@,86.90918,27.83,@
201 DATA &D4,&D9,Sr,&C9,&C5,@,83.91343,0.56,@
202 DATA &D4,&D9,Sr,&C9,&C7,@,85.90927,9.8,@
203 DATA &D4,&D9,Sr,&C9,&C8,@,86.90889,7.0,@
204 DATA &D4,&D9,Sr,&C9,&C9,@,87.90562,82.6,@
205 DATA &D4,&DA,Y,&C9,&CA,@,88.90586,100,@
206 DATA &D5,&D1,Zr,&CA,&C1,@,89.90471,51.5,@
207 DATA &D5,&D1,Zr,&CA,&C2,@,90.90564,11.2,@
208 DATA &D5,&D1,Zr,&CA,&C3,@,91.90504,17.1,@
209 DATA &D5,&D1,Zr,&CA,&C5,@,93.90632,17.4,@
210 DATA &D5,&D1,Zr,&CA,&C7,@,95.90827,2.80,@
211 DATA &D5,&D2,Nb,&CA,&C4,@,92.90638,100,@
212 DATA &D5,&D3,Mo,&CA,&C3,@,91.90681,14.8,@
213 DATA &D5,&D3,Mo,&CA,&C5,@,93.90509,9.3,@
214 DATA &D5,&D3,Mo,&CA,&C6,@,94.90584,15.9,@
215 DATA &D5,&D3,Mo,&CA,&C7,@,95.90468,16.7,@
216 DATA &D5,&D3,Mo,&CA,&C8,@,96.90602,9.6,@
217 DATA &D5,&D3,Mo,&CA,&C9,@,97.90541,24.1,@
218 DATA &D5,&D3,Mo,&C2,&C1,&C1,@,99.90747,9.6,@
219 DATA &D5,&D5,Ru,&CA,&C7,@,95.90760,5.5,@
220 DATA &D5,&D5,Ru,&CA,&C9,@,97.90529,1.86,@
221 DATA &D5,&D5,Ru,&CA,&CA,@,98.90594,12.7,@
222 DATA &D5,&D5,Ru,&C2,&C1,&C1,@,99.90422,12.6,@
223 DATA &D5,&D5,Ru,&C2,&C1,&C2,@,100.90558,17.0,@
224 DATA &D5,&D5,Ru,&C2,&C1,&C3,@,101.90435,31.6,@
225 DATA &D5,&D5,Ru,&C2,&C1,&C5,@,103.90542,18.7,@
226 DATA &D5,&D6,Rh,&C2,&C1,&C4,@,102.90550,100,@
227 DATA &D5,&D7,Pd,&C2,&C1,&C3,@,101.9056,1.0,@
228 DATA &D5,&D7,Pd,&C2,&C1,&C5,@,103.90403,11.0,@
229 DATA &D5,&D7,Pd,&C2,&C1,&C6,@,104.90508,22.2,@
230 DATA &D5,&D7,Pd,&C2,&C1,&C7,@,105.90348,27.3,@
231 DATA &D5,&D7,Pd,&C2,&C1,&C9,@,107.90389,26.7,@
232 DATA &D5,&D7,Pd,&C2,&C2,&C1,@,109.90517,11.8,@
233 DATA &D5,&D8,Ag,&C2,&C1,&C8,@,106.90510,51.83,@
234 DATA &D5,&D8,Ag,&C2,&C1,&CA,@,108.90475,48.17,@
235 DATA &D5,&D9,Cd,&C2,&C1,&C7,@,105.90646,1.25,@
236 DATA &D5,&D9,Cd,&C2,&C1,&C9,@,107.90419,0.89,@
237 DATA &D5,&D9,Cd,&C2,&C2,&C1,@,109.90301,12.5,@
238 DATA &D5,&D9,Cd,&C2,&C2,&C2,@,110.90418,12.8,@
239 DATA &D5,&D9,Cd,&C2,&C2,&C3,@,111.90276,24.1,@
240 DATA &D5,&D9,Cd,&C2,&C2,&C4,@,112.90440,12.2,@
241 DATA &D5,&D9,Cd,&C2,&C2,&C5,@,113.90336,28.7,@
242 DATA &D5,&D9,Cd,&C2,&C2,&C7,@,115.90476,7.5,@
243 DATA &D5,&DA,In,&C2,&C2,&C4,@,112.90406,4.3,@
244 DATA &D5,&DA,In,&C2,&C2,&C6,@,114.90388,95.7,@
245 DATA &D6,&D1,Sn,&C2,&C2,&C3,@,111.90482,1.01,@
246 DATA &D6,&D1,Sn,&C2,&C2,&C5,@,113.90278,0.67,@
247 DATA &D6,&D1,Sn,&C2,&C2,&C6,@,114.90334,0.38,@
248 DATA &D6,&D1,Sn,&C2,&C2,&C7,@,115.90174,14.8,@
249 DATA &D6,&D1,Sn,&C2,&C2,&C8,@,116.90295,7.75,@
250 DATA &D6,&D1,Sn,&C2,&C2,&C9,@,117.90161,24.3,@
251 DATA &D6,&D1,Sn,&C2,&C2,&CA,@,118.90331,8.6,@
252 DATA &D6,&D1,Sn,&C2,&C3,&C1,@,119.90220,32.4,@
253 DATA &D6,&D1,Sn,&C2,&C3,&C3,@,121.90344,4.56,@
254 DATA &D6,&D1,Sn,&C2,&C3,&C5,@,123.90527,5.64,@
255 DATA &D6,&D2,Sb,&C2,&C3,&C2,@,120.90382,57.3,@
256 DATA &D6,&D2,Sb,&C2,&C3,&C4,@,122.90422,42.7,@
257 DATA &D6,&D3,Te,&C2,&C3,&C1,@,119.9040,0.091,@
258 DATA &D6,&D3,Te,&C2,&C3,&C3,@,121.90306,2.5,@
259 DATA &D6,&D3,Te,&C2,&C3,&C4,@,122.90428,0.89,@
260 DATA &D6,&D3,Te,&C2,&C3,&C5,@,123.90283,4.6,@
261 DATA &D6,&D3,Te,&C2,&C3,&C6,@,124.90444,7.0,@
262 DATA &D6,&D3,Te,&C2,&C3,&C7,@,125.90331,18.7,@
263 DATA &D6,&D3,Te,&C2,&C3,&C9,@,127.90446,31.7,@
264 DATA &D6,&D3,Te,&C2,&C4,&C1,@,129.90623,34.5,@
265 DATA &D6,&D4,I,&C2,&C3,&C8,@,126.90448,100,@
266 DATA &D6,&D5,Xe,&C2,&C3,&C5,@,123.906,0.096,@
267 DATA &D6,&D5,Xe,&C2,&C3,&C7,@,125.90428,0.090,@
268 DATA &D6,&D5,Xe,&C2,&C3,&C9,@,127.90353,1.92,@
269 DATA &D6,&D5,Xe,&C2,&C3,&CA,@,128.90478,26.4,@
270 DATA &D6,&D5,Xe,&C2,&C4,&C1,@,129.90351,4.1,@
271 DATA &D6,&D5,Xe,&C2,&C4,&C2,@,130.90508,21.2,@
272 DATA &D6,&D5,Xe,&C2,&C4,&C3,@,131.90415,26.9,@
273 DATA &D6,&D5,Xe,&C2,&C4,&C5,@,133.90540,10.4,@
274 DATA &D6,&D5,Xe,&C2,&C4,&C7,@,135.90722,8.9,@
275 DATA &D6,&D6,Cs,&C2,&C4,&C4,@,132.90543,100,@
276 DATA &D6,&D7,Ba,&C2,&C4,&C1,@,129.9063,0.106,@
277 DATA &D6,&D7,Ba,&C2,&C4,&C3,@,131.9050,0.101,@
278 DATA &D6,&D7,Ba,&C2,&C4,&C5,@,133.90449,2.42,@
279 DATA &D6,&D7,Ba,&C2,&C4,&C6,@,134.90567,6.59,@
280 DATA &D6,&D7,Ba,&C2,&C4,&C7,@,135.90456,7.85,@
281 DATA &D6,&D7,Ba,&C2,&C4,&C8,@,136.90582,11.2,@
282 DATA &D6,&D7,Ba,&C2,&C4,&C9,@,137.90524,71.7,@
283 DATA &D6,&D8,La,&C2,&C4,&C9,@,137.90711,0.089,@
284 DATA &D6,&D8,La,&C2,&C4,&CA,@,138.90636,99.911,@
285 DATA &D6,&D9,Ce,&C2,&C4,&C7,@,135.9071,0.190,@
286 DATA &D6,&D9,Ce,&C2,&C4,&C9,@,137.9060,0.254,@
287 DATA &D6,&D9,Ce,&C2,&C5,&C1,@,139.90544,88.5,@
288 DATA &D6,&D9,Ce,&C2,&C5,&C3,@,141.90925,11.1,@
289 DATA &D6,&DA,Pr,&C2,&C5,&C2,@,140.90766,100,@
290 DATA &D7,&D1,Nd,&C2,&C5,&C3,@,141.90773,27.2,@
291 DATA &D7,&D1,Nd,&C2,&C5,&C4,@,142.90982,12.2,@
292 DATA &D7,&D1,Nd,&C2,&C5,&C5,@,143.91010,23.8,@
293 DATA &D7,&D1,Nd,&C2,&C5,&C6,@,144.91258,8.3,@
294 DATA &D7,&D1,Nd,&C2,&C5,&C7,@,145.91313,17.2,@
295 DATA &D7,&D1,Nd,&C2,&C5,&C9,@,147.91690,5.7,@
296 DATA &D7,&D1,Nd,&C2,&C6,&C1,@,149.92090,5.6,@
297 DATA &D7,&D3,Sm,&C2,&C5,&C5,@,143.91201,3.1,@
298 DATA &D7,&D3,Sm,&C2,&C5,&C8,@,146.91491,15.1,@
299 DATA &D7,&D3,Sm,&C2,&C5,&C9,@,147.91483,11.3,@
300 DATA &D7,&D3,Sm,&C2,&C5,&CA,@,148.91719,13.9,@
301 DATA &D7,&D3,Sm,&C2,&C6,&C1,@,149.91729,7.4,@
302 DATA &D7,&D3,Sm,&C2,&C6,&C3,@,151.91974,26.6,@
303 DATA &D7,&D3,Sm,&C2,&C6,&C5,@,153.92222,22.6,@
304 DATA &D7,&D4,Eu,&C2,&C6,&C2,@,150.91986,47.9,@
305 DATA &D7,&D4,Eu,&C2,&C6,&C4,@,152.92124,52.1,@
306 DATA &D7,&D5,Gd,&C2,&C6,&C3,@,151.91980,0.20,@
307 DATA &D7,&D5,Gd,&C2,&C6,&C5,@,153.92088,2.1,@
308 DATA &D7,&D5,Gd,&C2,&C6,&C6,@,154.92263,14.8,@
309 DATA &D7,&D5,Gd,&C2,&C6,&C7,@,155.92213,20.6,@
310 DATA &D7,&D5,Gd,&C2,&C6,&C8,@,156.92397,15.7,@
311 DATA &D7,&D5,Gd,&C2,&C6,&C9,@,157.92411,24.8,@
312 DATA &D7,&D5,Gd,&C2,&C7,&C1,@,159.92706,21.8,@
313 DATA &D7,&D6,Tb,&C2,&C6,&CA,@,158.92535,100,@
314 DATA &D7,&D7,Dy,&C2,&C6,&C7,@,155.92429,0.057,@
315 DATA &D7,&D7,Dy,&C2,&C6,&C9,@,157.92441,0.100,@
316 DATA &D7,&D7,Dy,&C2,&C7,&C1,@,159.92520,2.3,@
317 DATA &D7,&D7,Dy,&C2,&C7,&C2,@,160.92694,19.0,@
318 DATA &D7,&D7,Dy,&C2,&C7,&C3,@,161.92681,25.5,@
319 DATA &D7,&D7,Dy,&C2,&C7,&C4,@,162.92874,24.9,@
320 DATA &D7,&D7,Dy,&C2,&C7,&C5,@,163.92918,28.1,@
321 DATA &D7,&D8,Ho,&C2,&C7,&C6,@,164.93033,100,@
322 DATA &D7,&D9,Er,&C2,&C7,&C3,@,161.92879,0.14,@
323 DATA &D7,&D9,Er,&C2,&C7,&C5,@,163.92921,1.56,@
324 DATA &D7,&D9,Er,&C2,&C7,&C7,@,165.93031,33.4,@
325 DATA &D7,&D9,Er,&C2,&C7,&C8,@,166.93206,22.9,@
326 DATA &D7,&D9,Er,&C2,&C7,&C9,@,167.93238,27.1,@
327 DATA &D7,&D9,Er,&C2,&C8,&C1,@,169.93548,14.9,@
328 DATA &D7,&DA,Tm,&C2,&C7,&CA,@,168.93423,100,@
329 DATA &D8,&D1,Yb,&C2,&C7,&C9,@,167.93391,0.135,@
330 DATA &D8,&D1,Yb,&C2,&C8,&C1,@,169.93477,3.1,@
331 DATA &D8,&D1,Yb,&C2,&C8,&C2,@,170.93634,14.4,@
332 DATA &D8,&D1,Yb,&C2,&C8,&C3,@,171.93639,21.9,@
333 DATA &D8,&D1,Yb,&C2,&C8,&C4,@,172.93822,16.2,@
334 DATA &D8,&D1,Yb,&C2,&C8,&C5,@,173.93887,31.6,@
335 DATA &D8,&D1,Yb,&C2,&C8,&C7,@,175.94258,12.6,@
336 DATA &D8,&D2,Lu,&C2,&C8,&C6,@,174.94079,97.39,@
337 DATA &D8,&D2,Lu,&C2,&C8,&C7,@,175.94269,2.61,@
338 DATA &D8,&D3,Hf,&C2,&C8,&C5,@,173.94007,0.16,@
339 DATA &D8,&D3,Hf,&C2,&C8,&C7,@,175.94142,5.2,@
340 DATA &D8,&D3,Hf,&C2,&C8,&C8,@,176.94323,18.6,@
341 DATA &D8,&D3,Hf,&C2,&C8,&C9,@,177.94371,27.1,@
342 DATA &D8,&D3,Hf,&C2,&C8,&CA,@,178.94583,13.7,@
343 DATA &D8,&D3,Hf,&C2,&C9,&C1,@,179.94656,35.2,@
344 DATA &D8,&D4,Ta,&C2,&C9,&C1,@,179.9475,0.0123,@
345 DATA &D8,&D4,Ta,&C2,&C9,&C2,@,180.94801,99.9877,@
346 DATA &D8,&D5,W,&C2,&C9,&C1,@,179.94673,0.13,@
347 DATA &D8,&D5,W,&C2,&C9,&C3,@,181.94823,26.3,@
348 DATA &D8,&D5,W,&C2,&C9,&C4,@,182.95025,14.3,@
349 DATA &D8,&D5,W,&C2,&C9,&C5,@,183.95095,30.7,@
350 DATA &D8,&D5,W,&C2,&C9,&C7,@,185.95438,28.6,@
351 DATA &D8,&D6,Re,&C2,&C9,&C6,@,184.95298,37.40,@
352 DATA &D8,&D6,Re,&C2,&C9,&C8,@,186.95577,62.60,@
353 DATA &D8,&D7,Os,&C2,&C9,&C5,@,183.95251,0.018,@
354 DATA &D8,&D7,Os,&C2,&C9,&C7,@,185.95385,1.6,@
355 DATA &D8,&D7,Os,&C2,&C9,&C8,@,186.95576,1.6,@
356 DATA &D8,&D7,Os,&C2,&C9,&C9,@,187.95585,13.3,@
357 DATA &D8,&D7,Os,&C2,&C9,&CA,@,188.95816,16.1,@
358 DATA &D8,&D7,Os,&C2,&CA,&C1,@,189.95846,26.4,@
359 DATA &D8,&D7,Os,&C2,&CA,&C3,@,191.96149,41.0,@
360 DATA &D8,&D8,Ir,&C2,&CA,&C2,@,190.96060,37.3,@
361 DATA &D8,&D8,Ir,&C2,&CA,&C4,@,192.96294,62.7,@
362 DATA &D8,&D9,Pt,&C2,&CA,&C1,@,189.9599,0.013,@
363 DATA &D8,&D9,Pt,&C2,&CA,&C3,@,191.96105,0.78,@
364 DATA &D8,&D9,Pt,&C2,&CA,&C5,@,193.96268,32.9,@
365 DATA &D8,&D9,Pt,&C2,&CA,&C6,@,194.96479,33.8,@
366 DATA &D8,&D9,Pt,&C2,&CA,&C7,@,195.96495,25.3,@
367 DATA &D8,&D9,Pt,&C2,&CA,&C9,@,197.9679,7.2,@
368 DATA &D8,&DA,Au,&C2,&CA,&C8,@,196.96656,100,@
369 DATA &D9,&D1,Hg,&C2,&CA,&C7,@,195.9658,0.15,@
370 DATA &D9,&D1,Hg,&C2,&CA,&C9,@,197.96676,10.0,@
371 DATA &D9,&D1,Hg,&C2,&CA,&CA,@,198.96827,16.8,@
372 DATA &D9,&D1,Hg,&C3,&C1,&C1,@,199.96832,23.1,@
373 DATA &D9,&D1,Hg,&C3,&C1,&C2,@,200.97029,13.2,@
374 DATA &D9,&D1,Hg,&C3,&C1,&C3,@,201.97063,29.8,@
375 DATA &D9,&D1,Hg,&C3,&C1,&C5,@,203.97348,6.9,@
376 DATA &D9,&D2,Tl,&C3,&C1,&C4,@,202.97234,29.5,@
377 DATA &D9,&D2,Tl,&C3,&C1,&C6,@,204.97441,70.5,@
378 DATA &D9,&D3,Pb,&C3,&C1,&C5,@,203.97304,1.42,@
379 DATA &D9,&D3,Pb,&C3,&C1,&C7,@,205.97446,24.1,@
380 DATA &D9,&D3,Pb,&C3,&C1,&C8,@,206.97589,22.1,@
381 DATA &D9,&D3,Pb,&C3,&C1,&C9,@,207.97664,52.3,@
382 DATA &D9,&D4,Bi,&C3,&C1,&CA,@,208.98039,100,@
383 DATA &DA,&D1,Th,&C3,&C4,&C3,@,232.03805,100,@
384 DATA &DA,&D3,U,&C3,&C4,&C5,@,234.04095,0.0054,@
385 DATA &DA,&D3,U,&C3,&C4,&C6,@,235.04393,0.720,@
386 DATA &DA,&D3,U,&C3,&C4,&C9,@,238.05079,99.275,@
400 '-- For search table
401 DATA H,100
402 DATA He,102
403 DATA Li,104
404 DATA Be,106
405 DATA B,107
406 DATA C,109
407 DATA N,111
408 DATA O,113
409 DATA F,116
410 DATA Ne,117
411 DATA Na,120
412 DATA Mg,121
413 DATA Al,124
414 DATA Si,125
415 DATA P,128
416 DATA S,129
417 DATA Cl,133
418 DATA Ar,135
419 DATA K,138
420 DATA Ca,141
421 DATA Sc,147
422 DATA Ti,148
423 DATA V,153
424 DATA Cr,155
425 DATA Mn,159
426 DATA Fe,160
427 DATA Co,164
428 DATA Ni,165
429 DATA Cu,170
430 DATA Zn,172
431 DATA Ga,177
432 DATA Ge,179
433 DATA As,184
434 DATA Se,185
435 DATA Br,191
436 DATA Kr,193
437 DATA Rb,199
438 DATA Sr,201
439 DATA Y,205
440 DATA Zr,206
441 DATA Nb,211
442 DATA Mo,212
443 DATA Ru,219
444 DATA Rh,226
445 DATA Pd,227
446 DATA Ag,233
447 DATA Cd,235
448 DATA In,243
449 DATA Sn,245
450 DATA Sb,255
451 DATA Te,257
452 DATA I,265
453 DATA Xe,266
454 DATA Cs,275
455 DATA Ba,276
456 DATA La,283
457 DATA Ce,285
458 DATA Pr,289
459 DATA Nd,290
460 DATA Sm,297
461 DATA Eu,304
462 DATA Gd,306
463 DATA Tb,313
464 DATA Dy,314
465 DATA Ho,321
466 DATA Er,322
467 DATA Tm,328
468 DATA Yb,329
469 DATA Lu,336
470 DATA Hf,338
471 DATA Ta,344
472 DATA W,346
473 DATA Re,351
474 DATA Os,353
475 DATA Ir,360
476 DATA Pt,362
477 DATA Au,368
478 DATA Hg,369
479 DATA Tl,376
480 DATA Pb,378
481 DATA Bi,382
482 DATA Th,383
483 DATA U,384
10000 QMSG$="*  STABLE ISOTOPE  *"
10020 QDI=100:QDM=386:QSI=401:QSM=483
10030 CLS :LOCATE 9,0:PRINT QMSG$:Q4$=""
10040 LOCATE 4,2:PRINT "Atomic Symbol= ";:INPUT Q4$
10050 IF Q4$="" THEN R6=QDI:GOTO 10160 ELSE QLN=LEN Q4$
10060 IF QLN=1 THEN 10100 ELSE IF QLN>=3 THEN 10460
10070 QK1$=LEFT$ (Q4$,1):QK2$=RIGHT$ (Q4$,1)
10080 IF QK2$<"A" OR QK2$>"Z" THEN 10100
10090 Q4$=QK1$+CHR$ (ASC QK2$+&20)
10100 R6=0:RESTORE QSI
10110 FOR QI=QSI TO QSM
10120 READ QS1$,QS2$
10130 IF Q4$=QS1THEN R6=VAL QS2$:QI=QSM
10140 NEXT
10150 IF R6=0 THEN 10460
10160 CLS :PRINT "  : isotope |    mass   | abundance "
10170 RESTORE R6
10180 FOR QJ=0 TO 2
10190 QW1$="":QW2$="":QW3$="":P2$=""
10200 READ P2$
10210 IF P2$="@" THEN 10240
10220 QCK$=LEFT$ (P2$,1):IF QCK$="&" THEN QCK=VAL P2$:P2$=CHR$ QCK
10230 QW1$=QW1$+P2$ : GOTO 10200
10240 READ QW2$
10250 READ P2$
10260 IF P2$="@" THEN 10290
10270 QCK$=LEFT$ (P2$,1):IF QCK$="&" THEN QCK=VAL P2$:P2$=CHR$ QCK
10280 QW3$=QW3$+P2$:GOTO 10250
10290 QLT=LEN QW1$:QWK$=LEFT$ (QCL$,8-QLT)
10300 LOCATE 0,QJ+&1:PRINT "    ";QW1$;QWK$
10310 QLT=LEN QW2$:QWK$=LEFT$ (QCL$,12-QLT)
10320 LOCATE 12,QJ+&1:PRINT "| ";QW2$;QWK$
10330 QLT=LEN QW3$:QWK$=LEFT$ (QCL$,9-QLT)
10340 LOCATE 24,QJ+&1:PRINT "|  ";QW3$;QWK$
10350 LOCATE 36,QJ+&1:PRINT "%"
10360 NEXT
10370 Q4$=INKEY$ &1:P1=ASC Q4$
10380 IF P1=&4 THEN R6=R6-1:GOTO 10430
10390 IF P1=&5 THEN R6=R6+1:GOTO 10430
10400 IF P1=&E THEN R6=R6+10:GOTO 10430
10410 IF P1=&F THEN R6=R6-10:GOTO 10430
10420 IF P1=&D THEN 10030
10430 IF R6>QDM-2 THEN R6=QDM-2
10440 IF R6<QDI THEN R6=QDI
10450 GOTO 10170
10460 CLS :LOCATE 9,0:PRINT QMSG$:LOCATE 11,3:PRINT "Symbol not found"
10470 GOSUB *REK:GOTO 10030

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net