API tools faq
paste
Advertisement
Guest User

periodic table

a guest
Sep 2nd, 2012
134
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 21.32 KB | None | 0 0
raw download clone embed print report
  1. :Lbl 0
  2. :Output(1,1,"***************** ** PERIODIEK ** SYSTEEM ** DER ** ELEMENTEN ** *****************")
  3. :Pause
  4. :Lbl 1
  5. :ClrHome
  6. :Menu(" MENU ","ATOOMNUMMER",2,"SYMBOOL",3,"LIJST",5,"EXIT",4)
  7. :
  8. :Lbl 2
  9. :Output(1,1,"ATOOMNUMMER FUNCTIE NIET BESCHIKBAAR! ")
  10. :Pause
  11. :Goto 1
  12. :
  13. :Lbl 3
  14. :Output(3,1," LET OP: ACHTER DE DICHTHEID MOET ALTIJD x103 KG M-3
  15. :Input "SYMBOOL:",Str1
  16. :If Str1="H":Then
  17. :Disp "1 H LIJST 1","WATERSTOF","ATOOMMASSA:"," 1.008","KOOKPUNT: 20.3K","SMELTPUNT: 14K","DICHTHEID:"," 8.4E{-}5
  18. :Pause
  19. :Goto 1
  20. :Else
  21. :If Str1="HE":Then
  22. :Output(1,1,"2 HE LIJST 1HELIUM ATOOMMASSA: 4.003KOOKPUNT: 4.2KSMELTPUNT: 1.5KDICHTHEID: 1.7E-4")
  23. :Pause
  24. :Goto 1
  25. :Else
  26. :If Str1="LI":Then
  27. :Output(1,1,"3 LI LIJST 1LITHIUM ATOOMMASSA: 6.941KOOKPUNT: 1615KSMELTPUNT: 454KDICHTHEID: 0.53")
  28. :Pause
  29. :Goto 1
  30. :Else
  31. :If Str1="BE":Then
  32. :Output(1,1,"4 BE LIJST 1BERYLLIUM ATOOMMASSA: 9.012KOOKPUNT: 2744KSMELTPUNT: 1560KDICHTHEID: 1.85")
  33. :Pause
  34. :Goto 1
  35. :Else
  36. :If Str1="B":Then
  37. :Output(1,1,"5 B LIJST 1BOOR ATOOMMASSA: 10.81KOOKPUNT: 4273KSMELTPUNT: 2348KDICHTHEID: 2.4")
  38. :Pause
  39. :Goto 1
  40. :Else
  41. :If Str1="C":Then
  42. :Output(1,1,"6 C LIJST 1KOOLSTOF ATOOMMASSA: 12.01KOOKPUNT: 4098KSMELTPUNT: 3823KDICHTHEID: 2.1")
  43. :Pause
  44. :Goto 1
  45. :Else
  46. :If Str1="N":Then
  47. :Output(1,1,"7 N LIJST 1STIKSTOF ATOOMMASSA: 14.01KOOKPUNT: 77KSMELTPUNT: 63KDICHTHEID: 1.17E-3")
  48. :Pause
  49. :Goto 1
  50. :Else
  51. :If Str1="O":Then
  52. :Output(1,1,"8 O LIJST 1ZUURSTOF ATOOMMASSA: 16.00KOOKPUNT: 90KSMELTPUNT: 54KDICHTHEID: 1.33E-3")
  53. :Pause
  54. :Goto 1
  55. :Else
  56. :If Str1="F":Then
  57. :Output(1,1,"9 F LIJST 2FLUOR ATOOMMASSA: 19.00KOOKPUNT: 85KSMELTPUNT: 54KDICHTHEID: 1.58E-3")
  58. :Pause
  59. :Goto 1
  60. :Else
  61. :If Str1="NE":Then
  62. :Output(1,1,"10 NE LIJST 2NEON ATOOMMASSA: 20.18KOOKPUNT: 27KSMELTPUNT: 25KDICHTHEID: 8.4E-4")
  63. :Pause
  64. :Goto 1
  65. :Else
  66. :If Str1="NA":Then
  67. :Output(1,1,"11 NA LIJST 2NATRIUM ATOOMMASSA: 22.99KOOKPUNT: 1156KSMELTPUNT: 371KDICHTHEID: 0.97")
  68. :Pause
  69. :Goto 1
  70. :Else
  71. :If Str1="MG":Then
  72. :Output(1,1,"12 MG LIJST 2MAGNESIUM ATOOMMASSA: 24.31KOOKPUNT: 1363KSMELTPUNT: 923KDICHTHEID: 1.74")
  73. :Pause
  74. :Goto 1
  75. :Else
  76. :If Str1="AL":Then
  77. :Output(1,1,"13 AL LIJST 2ALUMINIUM ATOOMMASSA: 26.98KOOKPUNT: 2792KSMELTPUNT: 933KDICHTHEID: 2.70")
  78. :Pause
  79. :Goto 1
  80. :Else
  81. :If Str1="SI":Then
  82. :Output(1,1,"14 SI LIJST 2SILICIUM ATOOMMASSA: 28.09KOOKPUNT: 3538KSMELTPUNT: 1687KDICHTHEID: 2.4")
  83. :Pause
  84. :Goto 1
  85. :Else
  86. :If Str1="P":Then
  87. :Output(1,1,"15 P LIJST 2FOSFOR ATOOMMASSA: 30.97KOOKPUNT: 554KSMELTPUNT: 317KDICHTHEID: 1.82")
  88. :Pause
  89. :Goto 1
  90. :Else
  91. :If Str1="S":Then
  92. :Output(1,1,"16 S LIJST 2ZWAVEL ATOOMMASSA: 32.06KOOKPUNT: 718KSMELTPUNT: 388KDICHTHEID: 1.96")
  93. :Pause
  94. :Goto 1
  95. :Else
  96. :If Str1="CL":Then
  97. :Output(1,1,"17 CL LIJST 3CHLOOR ATOOMMASSA: 35.45KOOKPUNT: 239KSMELTPUNT: 172KDICHTHEID: 2.99E-3")
  98. :Pause
  99. :Goto 1
  100. :Else
  101. :If Str1="AR":Then
  102. :Output(1,1,"18 AR LIJST 3ARGON ATOOMMASSA: 39.95KOOKPUNT: 87KSMELTPUNT: 84KDICHTHEID: 1.66E-3")
  103. :Pause
  104. :Goto 1
  105. :Else
  106. :If Str1="K":Then
  107. :Output(1,1,"19 K LIJST 3KALIUM ATOOMMASSA: 39.10KOOKPUNT: 1032KSMELTPUNT: 336KDICHTHEID: 0.86")
  108. :Pause
  109. :Goto 1
  110. :Else
  111. :If Str1="CA":Then
  112. :Output(1,1,"20 CA LIJST 3CALCIUM ATOOMMASSA: 40.08KOOKPUNT: 1757KSMELTPUNT: 1115KDICHTHEID: 1.55")
  113. :Pause
  114. :Goto 1
  115. :Else
  116. :If Str1="SC":Then
  117. :Output(1,1,"21 SC LIJST 3SCANDIUM ATOOMMASSA: 44.96KOOKPUNT: 3103KSMELTPUNT: 1814KDICHTHEID: 2.99")
  118. :Pause
  119. :Goto 1
  120. :Else
  121. :If Str1="TI":Then
  122. :Output(1,1,"22 TI LIJST 3TITAAN ATOOMMASSA: 47.90KOOKPUNT: 3560KSMELTPUNT: 1941KDICHTHEID: 4.54")
  123. :Pause
  124. :Goto 1
  125. :Else
  126. :If Str1="V":Then
  127. :Output(1,1,"23 V LIJST 3VANADIUM ATOOMMASSA: 50.94KOOKPUNT: 3680KSMELTPUNT: 2183KDICHTHEID: 6.1")
  128. :Pause
  129. :Goto 1
  130. :Else
  131. :If Str1="CR":Then
  132. :Output(1,1,"24 CR LIJST 3CHROOM ATOOMMASSA: 52.00KOOKPUNT: 2944KSMELTPUNT: 2180KDICHTHEID: 7.19")
  133. :Pause
  134. :Goto 1
  135. :Else
  136. :If Str1="MN":Then
  137. :Output(1,1,"25 MN LIJST 4MANGAAN ATOOMMASSA: 54.94KOOKPUNT: 2334KSMELTPUNT: 1519KDICHTHEID: 7.3")
  138. :Pause
  139. :Goto 1
  140. :Else
  141. :If Str1="FE":Then
  142. :Output(1,1,"26 FE LIJST 4IJZER ATOOMMASSA: 55.85KOOKPUNT: 3134KSMELTPUNT: 1811KDICHTHEID: 7.87")
  143. :Pause
  144. :Goto 1
  145. :Else
  146. :If Str1="CO":Then
  147. :Output(1,1,"27 CO LIJST 4KOBALT ATOOMMASSA: 58.93KOOKPUNT: 3200KSMELTPUNT: 1768KDICHTHEID: 8.9")
  148. :Pause
  149. :Goto 1
  150. :Else
  151. :If Str1="NI":Then
  152. :Output(1,1,"28 NI LIJST 4NIKKEL ATOOMMASSA: 58.71KOOKPUNT: 3186KSMELTPUNT: 1728KDICHTHEID: 8.90")
  153. :Pause
  154. :Goto 1
  155. :Else
  156. :If Str1="CU":Then
  157. :Output(1,1,"29 CU LIJST 4KOPER ATOOMMASSA: 63.55KOOKPUNT: 2835KSMELTPUNT: 1357KDICHTHEID: 8.96")
  158. :Pause
  159. :Goto 1
  160. :Else
  161. :If Str1="ZN":Then
  162. :Output(1,1,"30 ZN LIJST 4ZINK ATOOMMASSA: 65.38KOOKPUNT: 1180KSMELTPUNT: 693KDICHTHEID: 7.2")
  163. :Pause
  164. :Goto 1
  165. :Else
  166. :If Str1="GA":Then
  167. :Output(1,1,"31 GA LIJST 4GALLIUM ATOOMMASSA: 69.72KOOKPUNT: 2477KSMELTPUNT 303KDICHTHEID: 5.9")
  168. :Pause
  169. :Goto 1
  170. :Else
  171. :If Str1="GE":Then
  172. :Output(1,1,"32 GE LIJST 4GERMANIUM ATOOMMASSA: 72.59KOOKPUNT: 3106KSMELTPUNT: 1211KDICHTHEID: 5.3")
  173. :Pause
  174. :Goto 1
  175. :Else
  176. :If Str1="AS":Then
  177. :Output(1,1,"33 AS LIJST 5ARSEEN ATOOMMASSA: 74.92KOOKPUNT: 1090KSMELTPUNT: 887KDICHTHEID: 5.7")
  178. :Pause
  179. :Goto 1
  180. :Else
  181. :If Str1="SE":Then
  182. :Output(1,1,"34 SE LIJST 5SELEEN ATOOMMASSA: 78.96KOOKPUNT: 958KSMELTPUNT: 494KDICHTHEID: 4.79")
  183. :Pause
  184. :Goto 1
  185. :Else
  186. :If Str1="BR":Then
  187. :Output(1,1,"35 BR LIJST 5BROOM ATOOMMASSA: 79.90KOOKPUNT: 332KSMELTPUNT: 226KDICHTHEID: 3.12")
  188. :Pause
  189. :Goto 1
  190. :Else
  191. :If Str1="KR":Then
  192. :Output(1,1,"36 KR LIJST 5KRYPTON ATOOMMASSA: 83.80KOOKPUNT: 120KSMELTPUNT: 116KDICHTHEID: 3.49E-3")
  193. :Pause
  194. :Goto 1
  195. :Else
  196. :If Str1="RB":Then
  197. :Output(1,1,"37 RB LIJST 5RUBIDIUM ATOOMMASSA: 85.47KOOKPUNT: 961KSMELTPUNT: 312KDICHTHEID: 1.53")
  198. :Pause
  199. :Goto 1
  200. :Else
  201. :If Str1="SR":Then
  202. :Output(1,1,"38 SR LIJST 5STRONTIUM ATOOMMASSA: 87.62KOOKPUNT: 1654KSMELTPUNT: 1042KDICHTHEID: 2.54")
  203. :Pause
  204. :Goto 1
  205. :Else
  206. :If Str1="Y":Then
  207. :Output(1,1,"39 Y LIJST 5YTTRIUM ATOOMMASSA: 88.91KOOKPUNT: 3537KSMELTPUNT: 1796KDICHTHEID: 4.5")
  208. :Pause
  209. :Goto 1
  210. :Else
  211. :If Str1="ZR":Then
  212. :Output(1,1,"40 ZR LIJST 5ZIRKONIUM ATOOMMASSA: 91.22KOOKPUNT: 4473KSMELTPUNT: 2125KDICHTHEID: 6.51")
  213. :Pause
  214. :Goto 1
  215. :Else
  216. :If Str1="NB":Then
  217. :Output(1,1,"41 NB LIJST 6NIOBIUM ATOOMMASSA: 92.91KOOKPUNT: 5031KSMELTPUNT: 2740KDICHTHEID: 8.57")
  218. :Pause
  219. :Goto 1
  220. :Else
  221. :If Str1="MO":Then
  222. :Output(1,1,"42 MO LIJST 6MOLYBDEEN ATOOMMASSA: 95.94KOOKPUNT: 4912KSMELTPUNT: 2896KDICHTHEID: 10.2")
  223. :Pause
  224. :Goto 1
  225. :Else
  226. :If Str1="TC":Then
  227. :Output(1,1,"43 TC LIJST 6TECHNETIUM ATOOMMASSA: 97KOOKPUNT: 4538KSMELTPUNT: 2430KDICHTHEID: 11.5")
  228. :Pause
  229. :Goto 1
  230. :Else
  231. :If Str1="RU":Then
  232. :Output(1,1,"44 RU LIJST 6RUTHENIUM ATOOMMASSA: 101.07KOOKPUNT: 4423KSMELTPUNT: 2607KDICHTHEID: 12.4")
  233. :Pause
  234. :Goto 1
  235. :Else
  236. :If Str1="RH":Then
  237. :Output(1,1,"45 RH LIJST 6RHODIUM ATOOMMASSA: 102.91KOOKPUNT: 3968KSMELTPUNT: 2237KDICHTHEID: 12.4")
  238. :Pause
  239. :Goto 1
  240. :Else
  241. :If Str1="PD":Then
  242. :Output(1,1,"46 PD LIJST 6PALLADIUM ATOOMMASSA: 106.4KOOKPUNT: 4098KSMELTPUNT: 2042KDICHTHEID: 12.0")
  243. :Pause
  244. :Goto 1
  245. :Else
  246. :If Str1="AG":Then
  247. :Output(1,1,"47 AG LIJST 6ZILVER ATOOMMASSA: 107.87KOOKPUNT: 2435KSMELTPUNT: 1235KDICHTHEID: 10.5")
  248. :Pause
  249. :Goto 1
  250. :Else
  251. :If Str1="CD":Then
  252. :Output(1,1,"48 CD LIJST 6CADMIUM ATOOMMASSA: 112.40KOOKPUNT: 1040KSMELTPUNT: 594KDICHTHEID: 8.65")
  253. :Pause
  254. :Goto 1
  255. :Else
  256. :If Str1="IN":Then
  257. :Output(1,1,"49 IN LIJST 7INDIUM ATOOMMASSA: 114.82KOOKPUNT: 2345KSMELTPUNT: 430KDICHTHEID: 7.31")
  258. :Pause
  259. :Goto 1
  260. :Else
  261. :If Str1="SN":Then
  262. :Output(1,1,"50 SN LIJST 7TIN ATOOMMASSA: 118.69KOOKPUNT: 2875KSMELTPUNT: 505KDICHTHEID: 7.31")
  263. :Pause
  264. :Goto 1
  265. :Else
  266. :If Str1="SB":Then
  267. :Output(1,1,"51 SB LIJST 7ANTIMOON ATOOMMASSA: 121.75KOOKPUNT: 1860KSMELTPUNT: 904KDICHTHEID: 6.69")
  268. :Pause
  269. :Goto 1
  270. :Else
  271. :If Str1="TE":Then
  272. :Output(1,1,"52 TE LIJST 7TELLUUR ATOOMMASSA: 127.60KOOKPUNT: 1261KSMELTPUNT: 723KDICHTHEID: 6.24")
  273. :Pause
  274. :Goto 1
  275. :Else
  276. :If Str1="I":Then
  277. :Output(1,1,"53 I LIJST 7JOOD ATOOMMASSA: 126.90KOOKPUNT: 458KSMELTPUNT: 387KDICHTHEID: 4.93")
  278. :Pause
  279. :Goto 1
  280. :Else
  281. :If Str1="XE":Then
  282. :Output(1,1,"54 XE LIJST 7XENON ATOOMMASSA: 131.30KOOKPUNT: 165KSMELTPUNT: 161KDICHTHEID: 5.49E-3")
  283. :Pause
  284. :Goto 1
  285. :Else
  286. :If Str1="CS":Then
  287. :Output(1,1,"55 CS LIJST 7CESIUM ATOOMMASSA: 132.91KOOKPUNT: 944KSMELTPUNT: 302KDICHTHEID: 1.87")
  288. :Pause
  289. :Goto 1
  290. :Else
  291. :If Str1="BA":Then
  292. :Output(1,1,"56 BA LIJST 7BARIUM ATOOMMASSA: 137.34KOOKPUNT: 2170KSMELTPUNT: 1000KDICHTHEID: 3.5")
  293. :Pause
  294. :Goto 1
  295. :Else
  296. :If Str1="LA":Then
  297. :Output(1,1,"57 LA LIJST 8LANTHAAN ATOOMMASSA: 138.91KOOKPUNT: 3728KSMELTPUNT: 1193KDICHTHEID: 6.15")
  298. :Pause
  299. :Goto 1
  300. :Else
  301. :If Str1="CE":Then
  302. :Output(1,1,"58 CE LIJST 8CERIUM ATOOMMASSA: 140.12KOOKPUNT: 3699KSMELTPUNT: 1077KDICHTHEID: 6.71")
  303. :Pause
  304. :Goto 1
  305. :Else
  306. :If Str1="PR":Then
  307. :Output(1,1,"59 PR LIJST 8PRASEODYMIUM ATOOMMASSA: 140.91KOOKPUNT: 3785KSMELTPUNT: 1208KDICHTHEID: 6.78")
  308. :Pause
  309. :Goto 1
  310. :Else
  311. :If Str1="ND":Then
  312. :Output(1,1,"60 ND LIJST 8NEODYMIUM ATOOMMASSA: 144.24KOOKPUNT: 3300KSMELTPUNT: 1293KDICHTHEID: 8.4E-4")
  313. :Pause
  314. :Goto 1
  315. :Else
  316. :If Str1="PM":Then
  317. :Output(1,1,"61 PM LIJST 8PROMETIUM ATOOMMASSA: 145KOOKPUNT: 3003KSMELTPUNT: 1341KDICHTHEID: 7.22")
  318. :Pause
  319. :Goto 1
  320. :Else
  321. :If Str1="SM":Then
  322. :Output(1,1,"62 SM LIJST 8SAMARIUM ATOOMMASSA: 150.35KOOKPUNT: 2064KSMELTPUNT: 1345KDICHTHEID: 7.53")
  323. :Pause
  324. :Goto 1
  325. :Else
  326. :If Str1="EU":Then
  327. :Output(1,1,"63 EU LIJST 9EUROPIUM ATOOMMASSA: 151.96KOOKPUNT: 1870KSMELTPUNT: 1099KDICHTHEID: 5.25")
  328. :Pause
  329. :Goto 1
  330. :Else
  331. :If Str1="GD":Then
  332. :Output(1,1,"64 GD LIJST 9GADOLINIUM ATOOMMASSA: 157.25KOOKPUNT: 3534KSMELTPUNT: 1585KDICHTHEID: 7.87")
  333. :Pause
  334. :Goto 1
  335. :Else
  336. :If Str1="TB":Then
  337. :Output(1,1,"65 TB LIJST 9TERBIUM ATOOMMASSA: 158.93KOOKPUNT: 3396KSMELTPUNT: 1629KDICHTHEID: 8.27")
  338. :Pause
  339. :Goto 1
  340. :Else
  341. :If Str1="DY":Then
  342. :Output(1,1,"66 DY LIJST 9DYSPROSIUM ATOOMMASSA: 162.50KOOKPUNT: 2835KSMELTPUNT: 1681KDICHTHEID: 8.53")
  343. :Pause
  344. :Goto 1
  345. :Else
  346. :If Str1="HO":Then
  347. :Output(1,1,"67 HO LIJST 9HOLMIUM ATOOMMASSA: 164.93KOOKPUNT: 2968KSMELTPUNT: 1738KDICHTHEID: 8.80")
  348. :Pause
  349. :Goto 1
  350. :Else
  351. :If Str1="ER":Then
  352. :Output(1,1,"68 ER LIJST 9ERBIUM ATOOMMASSA: 168.26KOOKPUNT: 3136KSMELTPUNT: 1802KDICHTHEID: 9.04")
  353. :Pause
  354. :Goto 1
  355. :Else
  356. :If Str1="TM":Then
  357. :Output(1,1,"69 TM LIJST 9THULIUM ATOOMMASSA: 168.93KOOKPUNT: 2220KSMELTPUNT: 1818KDICHTHEID: 9.33")
  358. :Pause
  359. :Goto 1
  360. :Else
  361. :If Str1="YB":Then
  362. :Output(1,1,"70 YB LIJST 9YTTERBIUM ATOOMMASSA: 173.04KOOKPUNT: 1467KSMELTPUNT: 1097KDICHTHEID: 6.97")
  363. :Pause
  364. :Goto 1
  365. :Else
  366. :If Str1="LU":Then
  367. :Output(1,1,"71 LU LIJST 9LUTETIUM ATOOMMASSA: 174.97KOOKPUNT: 3668KSMELTPUNT: 1928KDICHTHEID: 9.84")
  368. :Pause
  369. :Goto 1
  370. :Else
  371. :If Str1="HF":Then
  372. :Output(1,1,"72 HF LIJST 10HAFNIUM ATOOMMASSA: 178.49KOOKPUNT: 4776KSMELTPUNT: 2506KDICHTHEID: 13.3")
  373. :Pause
  374. :Goto 1
  375. :Else
  376. :If Str1="TA":Then
  377. :Output(1,1,"73 TA LIJST 10TANTAAL ATOOMMASSA: 180.95KOOKPUNT: 5731KSMELTPUNT: 3269KDICHTHEID: 16.7")
  378. :Pause
  379. :Goto 1
  380. :Else
  381. :If Str1="W":Then
  382. :Output(1,1,"74 W LIJST 10WOLFRAAM ATOOMMASSA: 183.85KOOKPUNT: 5828KSMELTPUNT: 3695KDICHTHEID: 19.3")
  383. :Pause
  384. :Goto 1
  385. :Else
  386. :If Str1="RE":Then
  387. :Output(1,1,"75 RE LIJST 10RENIUM ATOOMMASSA: 168.2KOOKPUNT: 5969KSMELTPUNT: 3459KDICHTHEID: 21.0")
  388. :Pause
  389. :Goto 1
  390. :Else
  391. :If Str1="OS":Then
  392. :Output(1,1,"76 OS LIJST 10OSMIUM ATOOMMASSA: 190.2KOOKPUNT: 5285KSMELTPUNT: 3306KDICHTHEID: 22.6")
  393. :Pause
  394. :Goto 1
  395. :Else
  396. :If Str1="IR":Then
  397. :Output(1,1,"77 IR LIJST 10IRIDIUM ATOOMMASSA: 192.2KOOKPUNT: 4701KSMELTPUNT: 2719KDICHTHEID: 22.6")
  398. :Pause
  399. :Goto 1
  400. :Else
  401. :If Str1="PT":Then
  402. :Output(1,1,"78 PT LIJST 10PLATINA ATOOMMASSA: 195.09KOOKPUNT: 4098KSMELTPUNT: 2042KDICHTHEID: 21.5")
  403. :Pause
  404. :Goto 1
  405. :Else
  406. :If Str1="AU":Then
  407. :Output(1,1,"79 AU LIJST 10GOUD ATOOMMASSA: 196.97KOOKPUNT: 3129KSMELTPUNT: 1337KDICHTHEID: 19.3")
  408. :Pause
  409. :Goto 1
  410. :Else
  411. :If Str1="HG":Then
  412. :Output(1,1,"80 HG LIJST 11KWIK ATOOMMASSA: 200.59KOOKPUNT: 630KSMELTPUNT: 234KDICHTHEID: 13.546")
  413. :Pause
  414. :Goto 1
  415. :Else
  416. :If Str1="TL":Then
  417. :Output(1,1,"81 TL LIJST 11THALLIUM ATOOMMASSA: 204.37KOOKPUNT: 1746KSMELTPUNT: 577KDICHTHEID: 11.9")
  418. :Pause
  419. :Goto 1
  420. :Else
  421. :If Str1="PB":Then
  422. :Output(1,1,"82 PB LIJST 11LOOD ATOOMMASSA: 126.90KOOKPUNT: 2022KSMELTPUNT: 601KDICHTHEID: 11.3")
  423. :Pause
  424. :Goto 1
  425. :Else
  426. :If Str1="BI":Then
  427. :Output(1,1,"83 BI LIJST 11BISMUT ATOOMMASSA: 208.98KOOKPUNT: 1837KSMELTPUNT: 545KDICHTHEID: 9.80")
  428. :Pause
  429. :Goto 1
  430. :Else
  431. :If Str1="PO":Then
  432. :Output(1,1,"84 PO LIJST 11POLONIUM ATOOMMASSA: 209KOOKPUNT: 1235KSMELTPUNT: 527KDICHTHEID: 9.4")
  433. :Pause
  434. :Goto 1
  435. :Else
  436. :If Str1="AT":Then
  437. :Output(1,1,"85 AT LIJST 11ASTAAT ATOOMMASSA: 210KOOKPUNT: 610KSMELTPUNT: 575KDICHTHEID: -")
  438. :Pause
  439. :Goto 1
  440. :Else
  441. :If Str1="RN":Then
  442. :Output(1,1,"86 RN LIJST 11RADON ATOOMMASSA: 222KOOKPUNT: 211KSMELTPUNT: 202KDICHTHEID: 9.07E-3")
  443. :Pause
  444. :Goto 1
  445. :Else
  446. :If Str1="FR":Then
  447. :Output(1,1,"87 FR LIJST 11FRANCIUM ATOOMMASSA: 223KOOKPUNT: 950KSMELTPUNT: 300KDICHTHEID: -")
  448. :Pause
  449. :Goto 1
  450. :Else
  451. :If Str1="RA":Then
  452. :Output(1,1,"88 RA LIJST 12RADIUM ATOOMMASSA: 226KOOKPUNT: 1413KSMELTPUNT: 973KDICHTHEID: 5.5")
  453. :Pause
  454. :Goto 1
  455. :Else
  456. :If Str1="AC":Then
  457. :Output(1,1,"89 AC LIJST 12ACTINIUM ATOOMMASSA: 227KOOKPUNT: 3500KSMELTPUNT: 1324KDICHTHEID: 10.1")
  458. :Pause
  459. :Goto 1
  460. :Else
  461. :If Str1="TH":Then
  462. :Output(1,1,"90 TH LIJST 12THORIUM ATOOMMASSA: 232.04KOOKPUNT: 4800KSMELTPUNT: 2000KDICHTHEID: 11.8")
  463. :Pause
  464. :Goto 1
  465. :Else
  466. :If Str1="PA":Then
  467. :Output(1,1,"91 PA LIJST 12PROTACTINIUM ATOOMMASSA: 231KOOKPUNT: 4400KSMELTPUNT: 1800KDICHTHEID: 15.4")
  468. :Pause
  469. :Goto 1
  470. :Else
  471. :If Str1="U":Then
  472. :Output(1,1,"92 U LIJST 12URAAN ATOOMMASSA: 238KOOKPUNT: 4200KSMELTPUNT: 1400KDICHTHEID: 19.1")
  473. :Pause
  474. :Goto 1
  475. :Else
  476. :If Str1="NP":Then
  477. :Output(1,1,"93 NP LIJST 12NEPTUNIUM ATOOMMASSA: 237KOOKPUNT: 4200KSMELTPUNT: 9100KDICHTHEID: 20.5")
  478. :Pause
  479. :Goto 1
  480. :Else
  481. :If Str1="PU":Then
  482. :Output(1,1,"94 PU LIJST 12PLUTONIUM ATOOMMASSA: 244KOOKPUNT: 3600KSMELTPUNT: 9100KDICHTHEID: 19.9")
  483. :Pause
  484. :Goto 1
  485. :Else
  486. :If Str1="AM":Then
  487. :Output(1,1,"95 AM LIJST 13AMERICIUM ATOOMMASSA: 243KOOKPUNT: 2900KSMELTPUNT: 1400KDICHTHEID: 13.8")
  488. :Pause
  489. :Goto 1
  490. :Else
  491. :If Str1="CM":Then
  492. :Output(1,1,"96 CM LIJST 13CURIUM ATOOMMASSA: 247KOOKPUNT: 3400KSMELTPUNT: 1600KDICHTHEID: 13.5")
  493. :Pause
  494. :Goto 1
  495. :Else
  496. :If Str1="BK":Then
  497. :Output(1,1,"97 BK LIJST 13BERKELIUM ATOOMMASSA: 247KOOKPUNT: 2900KSMELTPUNT: 1300KDICHTHEID: 14.8")
  498. :Pause
  499. :Goto 1
  500. :Else
  501. :If Str1="CF":Then
  502. :Output(1,1,"98 CF LIJST 13CALIFORNIUM ATOOMMASSA: 251KOOKPUNT: 1700KSMELTPUNT: 1200KDICHTHEID: 9.3")
  503. :Pause
  504. :Goto 1
  505. :Else
  506. :If Str1="ES":Then
  507. :Output(1,1,"99 ES LIJST 13EINSTEINIUM ATOOMMASSA: 252KOOKPUNT: 1800KSMELTPUNT: 1100KDICHTHEID: 8.8")
  508. :Pause
  509. :Goto 1
  510. :Else
  511. :If Str1="FM":Then
  512. :Output(1,1,"100 FM LIJST 13FERMIUM ATOOMMASSA: 257KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  513. :Pause
  514. :Goto 1
  515. :Else
  516. :If Str1="MD":Then
  517. :Output(1,1,"101 MD LIJST 14MENDELEVIUM ATOOMMASSA: 257KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  518. :Pause
  519. :Goto 1
  520. :Else
  521. :If Str1="NO":Then
  522. :Output(1,1,"102 NO LIJST 14NOBELLIUM ATOOMMASSA: 255KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  523. :Pause
  524. :Goto 1
  525. :Else
  526. :If Str1="LR":Then
  527. :Output(1,1,"103 LR LIJST 14LAWRENCIUM ATOOMMASSA: 257KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  528. :Pause
  529. :Goto 1
  530. :Else
  531. :If Str1="RF":Then
  532. :Output(1,1,"104 RF LIJST 14RUTHERFORDIUM ATOOMMASSA: 259KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  533. :Pause
  534. :Goto 1
  535. :Else
  536. :If Str1="DB":Then
  537. :Output(1,1,"105 DB LIJST 14DUBNIUM ATOOMMASSA: 262KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  538. :Pause
  539. :Goto 1
  540. :Else
  541. :If Str1="SG":Then
  542. :Output(1,1,"106 SG LIJST 15SEABORGIUM ATOOMMASSA: 263KOOKPUNT: -SMELTPUNT" -DICHTHEID: -")
  543. :Pause
  544. :Goto 1
  545. :Else
  546. :If Str1="BH":Then
  547. :Output(1,1,"107 BH LIJST 15BOHRIUM ATOOMMASSA: 264KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  548. :Pause
  549. :Goto 1
  550. :Else
  551. :If Str1="HS":Then
  552. :Output(1,1,"108 HS LIJST 15HASSIUM ATOOMMASSA: 265KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  553. :Pause
  554. :Goto 1
  555. :Else
  556. :If Str1="MT":Then
  557. :Output(1,1,"109 MT LIJST 15MEITNERIUM ATOOMMASSA: 268KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  558. :Pause
  559. :Goto 1
  560. :Else
  561. :If Str1="DS":Then
  562. :Output(1,1,"110 DS LIJST 15DARMSTADTIUM ATOOMMASSA: 271KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  563. :Pause
  564. :Goto 1
  565. :Else
  566. :If Str1="RG":Then
  567. :Output(1,1,"111 RG LIJST 15ROENTGENIUM ATOOMMASSA: 272KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
  568. :Pause
  569. :Goto 1
  570. :End
  571. :
  572. :Lbl 4
  573. :DelVar A:DelVar B:DelVarC:DelVar D:DelVar E:DelVar F:DelVar G:DelVar H:DelVar I:DelVar J:DelVar K:DelVar L:DelVar M:DelVar N:DelVar O:DelVar P:DelVar Q:DelVar R:DelVar S:DelVar
  574.  
  575. T:DelVar U:DelVar V:DelVar W:DelVar X:DelVar Y:DelVar Z
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!