home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / HYPERBOOK2.DMS / in.adf / Applications / Elements.hb (.txt) < prev    next >
Encoding:
HyperBook  |  1990-10-07  |  19.8 KB  |  115 lines
  1. CL = 'Periodic Table'()
  2. E = left(getname(initiator()),3,' ')
  3. I = searchitems(L,E)
  4. T = substr(getitemtext(I),4)
  5. lf = '0a'x
  6. parse var T name ',' weight
  7. A = lf
  8. A = A || 'Element       ' name '(' || trim(E) || ')' || lf
  9. A = A || 'Atomic number ' sequencenumber(I) || lf
  10. A = A || 'Atomic weight ' weight || lf
  11. call inform(A)
  12. ShowElement
  13. "Periodic Table"
  14. H  Hydrogen,1.0079
  15. He Helium,4.00260
  16. Li Lithium,6.941
  17. Be Beryllium,9.01218
  18. B  Boron,10.81
  19. C  Carbon,12.011
  20. N  Nitrogen,14.0067
  21. O  Oxygen,15.9994
  22. F  Fluorine,18.998403
  23. Ne Neon,20.179
  24. Na Sodium,22.98977
  25. Mg Magnesium,24.305
  26. Al Aluminum,26.98154
  27. Si Silicon,28.0855
  28. P  Phosphorus,30.97376
  29. S  Sulphur,32.06
  30. Cl Chlorine,35.453
  31. Ar Argon,39.948
  32. K  Potassium,39.0983
  33. Ca Calcium,40.08
  34. Sc Scandium,44.9559
  35. Ti Titanium,47.90
  36. V  Vanadium,50.9415
  37. Cr Chromium,51.996
  38. Mn Manganese,54.9380
  39. Fe Iron,55.847
  40. Co Cobalt,58.9332
  41. Ni Nickel,58.70
  42. Cu Copper,63.546
  43. Zn Zinc,65.38
  44. Ga Gallium,69.72
  45. Ge Germanium,72.59
  46. As Arsenic,74.9216
  47. Se Selenium,78.96
  48. Br Bromine,79.904
  49. Kr Krypton,83.80
  50. Rb Rubidium,85.4678
  51. Sr Strontium,87.62
  52. Y  Yttrium,88.9059
  53. Zr Zirconium,91.22
  54. Nb Niobium,92.9064
  55. Mo Molybenum,95.94
  56. Tc Technetium,(98)
  57. Ru Ruthenium,101.07
  58. Rh Rhodium,102.9055
  59. Pd Palladium,106.4
  60. Ag Silver,107.868
  61. Cd Cadmium,112.41
  62. In Indium,114.82
  63. Sn Tin,118.69
  64. Sb Antimony,121.75
  65. Te Tellurium,127.60
  66. I  Iodine,126.9045
  67. Xe Xenon,131.30
  68. Cs Cesium,132.9054
  69. Ba Barium,137.33
  70. La Lanthanum,138.9055
  71. Ce Cerium,140.12
  72. Pr Praseodymium,140.9077
  73. Nd Neodymium,144.24
  74. Pm Promethium,(145)
  75. Sm Samarium,150.4
  76. Eu Europium,151.96
  77. Gd Gadolinium,157.25
  78. Tb Terbium,158.9254
  79. Dy Dysprosium,162.50
  80. Ho Holmium,164.9304
  81. Er Erbium,167.26
  82. Tm Thulium,168.9342
  83. Yb Ytterbium,173.04
  84. Lu Lutetium,174.967
  85. Hf Hafnium,178.49
  86. Ta Tantalum,180.9479
  87. W  Tungsten,183.85
  88. Re Rhenium,186.207
  89. Os Osmium,190.2
  90. Ir Iridium,192.22
  91. Pt Platinum,195.09
  92. Au Gold,196.9665
  93. Hg Mercury,200.59
  94. Tl Thallium,204.37
  95. Pb Lead,207.2
  96. Bi Bismuth,208.9804
  97. Po Polonium,(209)
  98. At Astatine,(210)
  99. Rn Radon,(222)
  100. Fr Francium,(223)
  101. Ra Radium,226.0254
  102. Ac Actinium,227.0278
  103. Th Thorium,232.0381
  104. Pa Protactinium,231.0359
  105. U  Uranium,238.029
  106. Np Neptunium,237.0482
  107. Pu Plutonium,(244)
  108. Note1
  109. AHA!'s Periodic Table
  110. of the Elements
  111. "The Elements"
  112. h:wbstuff/dpaint
  113. TransEdit -k1
  114. diamond.font
  115.