initial commit moved from svn

2022-10-24 22:07:20 +02:00
parent b2caa19213
commit 0e96f4f5e4
229 changed files with 20039 additions and 0 deletions
--- a/ustrings.pas
+++ b/ustrings.pas
@@ -0,0 +1,534 @@
+{
+********************************************************************************
+
+YaPeTaVi - Yet another Periodic Table Viewer
+Copyright (C) 2009-2012 Geoffray Levasseur <geoffray.levasseurbrandin@numericable.fr>.
+All rights reserved.
+http://www.geoffray-levasseur.org/
+
+This program is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free Software
+Foundation; either version 3 of the License, or (at your option) any later
+version.
+
+This program is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
+PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License along with
+this program; if not, write to the Free Software Foundation, Inc., 59 Temple
+Place - Suite 330, Boston, MA  02111-1307, USA.
+
+********************************************************************************
+
+Description:
+  Resources strings definitions (needed for i18n translation)
+
+}
+
+unit uStrings;
+
+{$mode objfpc}{$H+}
+
+interface
+
+const
+  dbgOk = 'Ok';
+  dbgFail = 'Failed';
+  dbgStatOk = '.';
+  dbgStatWarn = '!';
+
+  //file extention
+  sFilterExt = '.yflt';
+
+resourcestring
+  //global
+  rsUnknown = 'Unknown';
+  rsNone = 'None';
+  rsYes = 'Yes';
+  rsNo = 'No';
+  rsNoRadioactivity = 'No particular radioactivity';
+  rsBlock = ', block ';
+  rsFromDistro = 'from your distribution';
+  rsWikipediaAddr = 'http://en.wikipedia.org/wiki/';
+  rsError = 'Error';
+  rsFirst = ' (first)';
+  rsSecond = ' (second)';
+  rsThird = ' (third)';
+  rsImpossible = 'Not possible to ionise any further';
+  rsUnknoxElecDist = 'Unknow electronic configuration and distribution';
+  //units
+  rsUgstrom = 'ugstrom (u)';
+  rsKelvin = 'Kelvin (K)';
+  rsElectroVolt = 'electrovolt (eV)';
+  rsPicoMeter = 'picometer (pm)';
+  rsKiloJouleByVolt = 'kilojoule on mole (kJ.mol-1)';
+  rsPaulingScale = 'Pauling scale';
+  //column list caption
+  rsName = 'Name';
+  rsDiscoveryDate = 'Discovery';
+  rsMass = 'Mass';
+  rsMeltingPoint = 'Melting point';
+  rsBoilingPoint = 'Boiling point';
+  rsElectronicAffinity = 'Electronic affinity';
+  rsCovalentRadius = 'Covalent radius';
+  rsVanDerWaalsRadius = 'Van Der Waals radius';
+  rsFirstIonisationEnergy = 'First ionisation energy';
+  rsSecondIonisationEnergy = 'Second ionisation energy';
+  rsThirdIonisationEnergy = 'Third ionisation energy';
+  rsElectronegativity = 'Electronegativity';
+  //legend strings
+  rsUnknowVal = 'Unknow value';
+  rsMaxMass = 'Maximum mass';
+  rsMinMass = 'Minimum mass';
+  rsMassDetails = 'Mass are repesented with a gradient of the values in ' +
+    'ugstrom (u).';
+  rsMaxDate = 'Maximum date';
+  rsMinDate = 'Minimum date';
+  rsKnownFromAntiq = 'Known from antiquity';
+  rsDateDetails = 'Dates are repesented with a gradient ' +
+    'symbolising discovery years.';
+  rsMaxMeltingPt = 'Maximum melting point';
+  rsMinMeltingPt = 'Minimum melting point';
+  rsMeltingPtDetails = 'Melting points are repesented with a ' +
+    'gradient of the values in Kelvin (K).';
+  rsMaxBoilingPt = 'Maximum boiling point';
+  rsMinBoilingPt = 'Minimum boiling point';
+  rsBoilingPtDetails = 'Boiling points are repesented with a ' +
+    'gradient of the values in Kelvin (K).';
+  rsMaxElecAffinity = 'Maximum electronic affinity';
+  rsMinElecAffinity = 'Maximum electronic affinity';
+  rsElecAffinityDetails = 'Electronic affinities are repesented ' +
+    'with a gradient of the values in Electrovolt (eV).';
+  rsMaxCovalentRd = 'Maximum covalent radius';
+  rsMinCovalentRd = 'Minimum covalent radius';
+  rsCovalentRdDetails = 'Covalent radius are repesented ' +
+    'with a gradient of the values in picometer (pm).';
+  rsMaxVanDerWaalsRd = 'Maximum Van Der Waals radius';
+  rsMinVanDerWaalsRd = 'Minimum Van Der Waals radius';
+  rsVanDerWaalsRdDetails = 'Van Der Waals radius are repesented ' +
+    'with a gradient of the values in picometer (pm).';
+  rsMaxFIE = 'Maximum first ionisation energy';
+  rsMinFIE = 'Minimum first ionisation energy';
+  rsFIEDetails = 'First ionisation energies are repesented ' +
+    'with a gradient of the values in kilojoule by mole (kJ/mol).';
+  rsMaxSIE = 'Maximum second ionisation energy';
+  rsMinSIE = 'Minimum second ionisation energy';
+  rsSIEDetails = 'Second ionisation energies are repesented ' +
+    'with a gradient of the values in kilojoule by mole (kJ/mol).';
+  rsMaxTIE = 'Maximum third ionisation energy';
+  rsMinTIE = 'Minimum third ionisation energy';
+  rsTIEDetails = 'Third ionisation energies are repesented ' +
+    'with a gradient of the values in kilojoule by mole (kJ/mol).';
+  rsMaxElectroneg = 'Maximum electronegativity';
+  rsMinElectroneg = 'Minimum electronegativity';
+  rsElectronegDetails = 'Electronegativities are repesented ' +
+    'with a gradient of the values.';
+  //date and time
+  rsYears = 'years';
+  rsDays = 'days';
+  rsHours = 'hours';
+  rsMins = 'minutes';
+  rsSecs = 'seconds';
+  //atom class, types and families
+  rsLanthanids = ' (L = Lanthanids)';
+  rsActinids = ' (A = Actinids)';
+  rsAlcaline = 'Alkaline';
+  rsRareEarth = 'Rare earth';
+  rsNonMetal = 'Non-metal';
+  rsAlkalieMetal = 'Alkalie metal';
+  rsOtherMetal = 'Other metal';
+  rsHalogen = 'Halogen';
+  rsTransMetal = 'Transition metal';
+  rsNobleGas = 'Noble gas';
+  rsMetalloid = 'Metalloid';
+  //strings for historical part
+  rsDiscoInBy = 'This element was discovered in the year %d by %s.';
+  rsDiscoInByUnknow = 'This element was discovered in the year %d  but the ' +
+      'name of the discoverer is unknown. In most of the case this is ' +
+      'meaning that the element was discovered by sovietic scientists.';
+  rsDiscoAntiq = 'This element was known by ancient cultures from antiquity.';
+  //atom names and etymology
+  rsH = 'Hydrogen';
+  rsHUse = '';
+  rsHAspect = '';
+  rsHEtymo = 'Greek "hydro" and "gennao" for "forms water"';
+  rsHWiki = 'http://en.wikipedia.org/wiki/Hydrogen';
+  rsHe = 'Helium';
+  rsHeUse = '';
+  rsHeAspect = '';
+  rsHeEtymo = 'Greek "helios" for "sun"';
+  rsHeWiki = 'http://en.wikipedia.org/wiki/Helium';
+  rsLi = 'Lithium';
+  rsLiEtymo = 'Greek "lithos" for "stone"';
+  rsLiWiki = 'http://en.wikipedia.org/wiki/Lithium';
+  rsBe = 'Beryllium';
+  rsBeEtymo = 'Greek "beryllos" for "light-green stone"';
+  rsBeWiki = 'http://en.wikipedia.org/wiki/Beryllium';
+  rsB = 'Boron';
+  rsBEtymo = 'Boron means "Bor(ax) + (carb)on". It is found in borax and ' +
+    'behaves a lot like carbon';
+  rsBWiki = 'http://en.wikipedia.org/wiki/Boron';
+  rsC = 'Carbon';
+  rsCEtymo = 'Latin "carboneum" for carbon';
+  rsCWiki = 'http://en.wikipedia.org/wiki/Carbon';
+  rsN = 'Nitrogen';
+  rsNEtymo = 'Latin "nitrogenium" for "forms salpeter"';
+  rsNWiki = 'http://en.wikipedia.org/wiki/Nitrogen';
+  rsO = 'Oxygen';
+  rsOEtymo = 'Latin "oxygenium" for "forms acids"';
+  rsOWiki = 'http://en.wikipedia.org/wiki/Oxygen';
+  rsF = 'Fluorine';
+  rsFEtymo = 'Latin "fluere" for "floats"';
+  rsFWiki = 'http://en.wikipedia.org/wiki/Fluorine';
+  rsNe = 'Neon';
+  rsNeEtymo = 'Greek "neo" for "new"';
+  rsNeWiki = 'http://en.wikipedia.org/wiki/Neon';
+  rsNa = 'Sodium';
+  rsNaEtymo = 'Arabic "natrun" for "soda"';
+  rsNaWiki = 'http://en.wikipedia.org/wiki/Sodium';
+  rsMg = 'Magnesium';
+  rsMgEtymo = 'Named after the city Magnesia';
+  rsMgWiki = 'http://en.wikipedia.org/wiki/Magnesium';
+  rsAl = 'Aluminium';
+  rsAlEtymo = 'Latin "alumen"';
+  rsAlWiki = 'http://en.wikipedia.org/wiki/Aluminium';
+  rsSi = 'Silicon';
+  rsSiEtymo = 'Latin "silex"';
+  rsSiWiki = 'http://en.wikipedia.org/wiki/Silicon';
+  rsP = 'Phosphorus';
+  rsPEtymo = 'Greek "phosphoros" for "carries light"';
+  rsPWiki = 'http://en.wikipedia.org/wiki/Phosphorus';
+  rsS = 'Sulfur';
+  rsSEtymo = 'Sanskrit "sweb" for "to sleep"';
+  rsSWiki = 'http://en.wikipedia.org/wiki/Sulfur';
+  rsCl = 'Chlorine';
+  rsClEtymo = 'Greek "chloros" for "yellow-green"';
+  rsClWiki = 'http://en.wikipedia.org/wiki/Chlorine';
+  rsAr = 'Argon';
+  rsArEtymo = 'Greek "aergon" for "inactive"';
+  rsArWiki = 'http://en.wikipedia.org/wiki/Argon';
+  rsK = 'Potassium';
+  rsKEtymo = 'Arabic "al qaily" for "potash"';
+  rsKWiki = 'http://en.wikipedia.org/wiki/Potassium';
+  rsCa = 'Calcium';
+  rsCaEtymo = 'Latin "calx" for "lime"';
+  rsCaWiki = 'http://en.wikipedia.org/wiki/Calcium';
+  rsSc = 'Scandium';
+  rsScEtymo = 'Named because it was found in scandinavia';
+  rsScWiki = 'http://en.wikipedia.org/wiki/Scandium';
+  rsTi = 'Titanium';
+  rsTiEtymo = 'Greek "titans" were the giants of the greek mythology';
+  rsTiWiki = 'http://en.wikipedia.org/wiki/Titanium';
+  rsV = 'Vanadium';
+  rsVEtymo = 'From Vanadis, an other name for the nordic goddess Freyja';
+  rsVWiki = 'http://en.wikipedia.org/wiki/Vanadium';
+  rsCr = 'Chromium';
+  rsCrEtymo = 'Greek "chroma" for "color"';
+  rsCrWiki = 'http://en.wikipedia.org/wiki/Chromium';
+  rsMn = 'Manganese';
+  rsMnEtymo = 'It was discovered near a town named Magnesia in black earth. ' +
+    'Thus, it was named "magnesia nigra", or for short, Manganese';
+  rsMnWiki = 'http://en.wikipedia.org/wiki/Manganese';
+  rsFe = 'Iron';
+  rsFeEtymo = 'Latin "ferrun" for "iron"';
+  rsFeWiki = 'http://en.wikipedia.org/wiki/Iron';
+  rsCo = 'Cobalt';
+  rsCoEtymo = 'Named after the German word "kobold" for "goblin"';
+  rsCoWiki = 'http://en.wikipedia.org/wiki/Cobalt';
+  rsNi = 'Nickel';
+  rsNiEtymo = '"Nickel" was the name of a mountin goblin';
+  rsNiWiki = 'http://en.wikipedia.org/wiki/Nickel';
+  rsCu = 'Copper';
+  rsCuEtymo = 'Greek "cupprum" for "cypres"';
+  rsCuWiki = 'http://en.wikipedia.org/wiki/Copper';
+  rsZn = 'Zinc';
+  rsZnEtymo = 'German "zinking" for "rough"';
+  rsZnWiki = 'http://en.wikipedia.org/wiki/Zinc';
+  rsGa = 'Gallium';
+  rsGaEtymo = '"Gallia" is an old name for France';
+  rsGaWiki = 'http://en.wikipedia.org/wiki/Gallium';
+  rsGe = 'Gernamium';
+  rsGeEtymo = 'Latin "germania" for "Germany"';
+  rsGeWiki = 'http://en.wikipedia.org/wiki/Gernamium';
+  rsAs = 'Arsenic';
+  rsAsEtymo = 'Greek "arsenikos" for "male" or "bold"';
+  rsAsWiki = 'http://en.wikipedia.org/wiki/Arsenic';
+  rsSe = 'Selenium';
+  rsSeEtymo = 'Greek "selena" for "moon"';
+  rsSeWiki = 'http://en.wikipedia.org/wiki/Selenium';
+  rsBr = 'Bromine';
+  rsBrEtymo = 'Greek "bromos" for "smell badly"';
+  rsBrWiki = 'http://en.wikipedia.org/wiki/Bromine';
+  rsKr = 'Krypton';
+  rsKrEtymo = 'Greek "kryptos" for "hyden"';
+  rsKrWiki = 'http://en.wikipedia.org/wiki/Krypton';
+  rsRb = 'Rubidium';
+  rsRbEtymo = 'Latin "rubidus" for "dark red"';
+  rsRbWiki = 'http://en.wikipedia.org/wiki/Rubidium';
+  rsSr = 'Strontium';
+  rsSrEtymo = 'Named after the mineral Strontianit';
+  rsSrWiki = 'http://en.wikipedia.org/wiki/Strontium';
+  rsY = 'Yttrium';
+  rsYEtymo = 'Named after the small town of Ytterby near Stockholm in Sweden. '+
+    'Terbium. Ytterbium and Gadolinium are also named after this town.';
+  rsYWiki = 'http://en.wikipedia.org/wiki/Yttrium';
+  rsZr = 'Zirconium';
+  rsZrEtymo = 'Named after the mineral zircon';
+  rsZrWiki = 'http://en.wikipedia.org/wiki/Zirconium';
+  rsNb = 'Niobium';
+  rsNbEtymo = 'Named after Niobe, the daughter of the greek god Tantalus';
+  rsNbWiki = 'http://en.wikipedia.org/wiki/Niobium';
+  rsMo = 'Molybdenum';
+  rsMoEtymo = 'From Greek roots meaning "like Platinum" cause it was ' +
+    'difficult to distinguish it from Platinum';
+  rsMoWiki = 'http://en.wikipedia.org/wiki/Molybdenum';
+  rsTc = 'Technetium';
+  rsTcEtymo = 'Greek "techmetos" for "artificial"';
+  rsTcWiki = 'http://en.wikipedia.org/wiki/Technetium';
+  rsRu = 'Ruthenium';
+  rsRuEtymo = 'From Ruthenia, an old name for Russia';
+  rsRuWiki = 'http://en.wikipedia.org/wiki/Ruthenium';
+  rsRh = 'Rhodium';
+  rsRhEtymo = 'Greek "rhodeos" for "red like a rose"';
+  rsRhWiki = 'http://en.wikipedia.org/wiki/Rhodium';
+  rsPd = 'Palladium';
+  rsPdEtymo = 'Named after the asteroid Pallas';
+  rsPdWiki = 'http://en.wikipedia.org/wiki/Palladium';
+  rsAg = 'Silver';
+  rsAgEtymo = 'Latin "argentum" for "silver"';
+  rsAgWiki = 'http://en.wikipedia.org/wiki/Silver';
+  rsCd = 'Cadmium';
+  rsCdEtymo = 'Greek "kadmia" for "galmei" meaning "zinc carbonate"';
+  rsCdWiki = 'http://en.wikipedia.org/wiki/Cadmium';
+  rsIn = 'Indium';
+  rsInEtymo = 'Named after "indigo" because of its blue spectrum';
+  rsInWiki = 'http://en.wikipedia.org/wiki/Indium';
+  rsSn = 'Tin';
+  rsSnEtymo = 'Latin "stannum" for "tin"';
+  rsSnWiki = 'http://en.wikipedia.org/wiki/Tin';
+  rsSb = 'Antimony';
+  rsSbEtymo = 'Arabic "anthos ammonos" for "blossom of the god Ammon"';
+  rsSbWiki = 'http://en.wikipedia.org/wiki/Antimony';
+  rsTe = 'Tellurium';
+  rsTeEtymo = 'Latin "tellus" or "telluris" for "planet earth"';
+  rsTeWiki = 'http://en.wikipedia.org/wiki/Tellurium';
+  rsI = 'Iodine';
+  rsIEtymo = 'Greek "ioeides" for "violet"';
+  rsIWiki = 'http://en.wikipedia.org/wiki/Iodine';
+  rsXe = 'Xenon';
+  rsXeEtymo = 'Greek "xenos" for "foreigner"';
+  rsXeWiki = 'http://en.wikipedia.org/wiki/Xenon';
+  rsCs = 'Caesium';
+  rsCsEtymo = 'Latin "caesus" for "heaven blue"';
+  rsCsWiki = 'http://en.wikipedia.org/wiki/Caesium';
+  rsBa = 'Barium';
+  rsBaEtymo = 'Greek "barys" for "heavy"';
+  rsBaWiki = 'http://en.wikipedia.org/wiki/Barium';
+  rsLa = 'Lanthanum';
+  rsLaEtymo = 'Greek "lanthnein" for "hidden". The Lanthanoids are also ' +
+    'called the rare earth elements';
+  rsLaWiki = 'http://en.wikipedia.org/wiki/Lanthanium';
+  rsCe = 'Cerium';
+  rsCeEtymo = 'Named after the planetoid Ceres';
+  rsCeWiki = 'http://en.wikipedia.org/wiki/Cerium';
+  rsPr = 'Praseodymium';
+  rsPrEtymo = 'Greek "prsinos didymos" for "green twin"';
+  rsPrWiki = 'http://en.wikipedia.org/wiki/Praseodymium';
+  rsNd = 'Neodymium';
+  rsNdEtymo = 'Greek "neos didymos" for "new twin"';
+  rsNdWiki = 'http://en.wikipedia.org/wiki/Neodymium';
+  rsPm = 'Promethium';
+  rsPmEtymo = 'Named after the greek Prometheus. Prometheus stole the fire ' +
+    'from the gods and gave it to manking';
+  rsPmWiki = 'http://en.wikipedia.org/wiki/Promethium';
+  rsSm = 'Samarium';
+  rsSmEtymo = 'Named after the mineral Samarskit';
+  rsSmWiki = 'http://en.wikipedia.org/wiki/Samarium';
+  rsEu = 'Europium';
+  rsEuEtymo = 'Named after Europe';
+  rsEuWiki = 'http://en.wikipedia.org/wiki/Europium';
+  rsGd = 'Gadolinium';
+  rsGdEtymo = 'Named after the Finnish chemist Johan Gadolin';
+  rsGdWiki = 'http://en.wikipedia.org/wiki/Gadolinium';
+  rsTb = 'Terbium';
+  rsTbEtymo = 'Named after the Swedish town of Ytterby';
+  rsTbWiki = 'http://en.wikipedia.org/wiki/Terbium';
+  rsDy = 'Dysprosium';
+  rsDyEtymo = 'Greek "dysprositor" fo "difficult to reach"';
+  rsDyWiki = 'http://en.wikipedia.org/wiki/Dysprosium';
+  rsHo = 'Holmium';
+  rsHoEtymo = 'Latin "holmia" for the old name of Stockholm';
+  rsHoWiki = 'http://en.wikipedia.org/wiki/Holmium';
+  rsEr = 'Erbium';
+  rsErEtymo = 'Named after the Swedish town of Ytterby';
+  rsErWiki = 'http://en.wikipedia.org/wiki/Erbium';
+  rsTm = 'Thulium';
+  rsTmEtymo = 'Named after the old name of Scandinavia, "Thule"';
+  rsTmWiki = 'http://en.wikipedia.org/wiki/Thulium';
+  rsYb = 'Ytterbium';
+  rsYbEtymo = 'Named after the Swedish town of Ytterby';
+  rsYbWiki = 'http://en.wikipedia.org/wiki/Ytterbium';
+  rsLu = 'Lutetium';
+  rsLuEtymo = 'Named after the Roman name "Lutetia" for "Paris"';
+  rsLuWiki = 'http://en.wikipedia.org/wiki/Lutetium';
+  rsHf = 'Hafnium';
+  rsHfEtymo = 'Named after the old name of Kopenhagen, "Hafnia"';
+  rsHfWiki = 'http://en.wikipedia.org/wiki/Hafnium';
+  rsTa = 'Tantalum';
+  rsTaEtymo = 'Named after the Greek myth of Tantalos';
+  rsTaWiki = 'http://en.wikipedia.org/wiki/Tantalum';
+  rsW = 'Tungsten';
+  rsWEtymo = '"tung sten" mean "heavy stone" in Swedish. The old name (and ' +
+    'thus the "W" symbol) was Wolfram, named after a mineral';
+  rsWWiki = 'http://en.wikipedia.org/wiki/Tungsten';
+  rsRe = 'Rhenium';
+  rsReEtymo = 'Named after the German river Rhine';
+  rsReWiki = 'http://en.wikipedia.org/wiki/Rhenium';
+  rsOs = 'Osmium';
+  rsOsEtymo = 'Greek for "smell". Its oxides smell strongly like radishes';
+  rsOsWiki = 'http://en.wikipedia.org/wiki/Osium';
+  rsIr = 'Iridium';
+  rsIrEtymo = 'Greek "iris" for "rainbow"';
+  rsIrWiki = 'http://en.wikipedia.org/wiki/Iridium';
+  rsPt = 'Platinum';
+  rsPtEtymo = 'Spanish "platina" for "small silver"';
+  rsPtWiki = 'http://en.wikipedia.org/wiki/Platinum';
+  rsAu = 'Gold';
+  rsAuEtymo = 'Latin "aurum". Named after Aurora, the goddess of sunrise';
+  rsAuWiki = 'http://en.wikipedia.org/wiki/Gold';
+  rsHg = 'Mercury';
+  rsHgEtymo = 'Graeco-Latin "hydrargyrum" for "liquid silver"';
+  rsHgWiki = 'http://en.wikipedia.org/wiki/Mercury';
+  rsTl = 'Thallium';
+  rsTlEtymo = 'Greek "tallos" for "young twig"';
+  rsTlWiki = 'http://en.wikipedia.org/wiki/Thallium';
+  rsPb = 'Lead';
+  rsPbEtymo = 'Latin "plumbum" for "lead"';
+  rsPbWiki = 'http://en.wikipedia.org/wiki/Lead';
+  rsBi = 'Bismuth';
+  rsBiEtymo = 'The old name of Bisnuth was "Wismut" for "white mass"';
+  rsBiWiki = 'http://en.wikipedia.org/wiki/Bismuth';
+  rsPo = 'Polonium';
+  rsPoEtymo = 'Named after Poland to honor Marie Curie';
+  rsPoWiki = 'http://en.wikipedia.org/wiki/Polonium';
+  rsAt = 'Astatine';
+  rsAtEtymo = 'Greek "astator" for "changing"';
+  rsAtWiki = 'http://en.wikipedia.org/wiki/Astatine';
+  rsRn = 'Radon';
+  rsRnEtymo = 'Named after Radium. It ends by "on" to make it clear that it ' +
+    'is a noble gas';
+  rsRnWiki = 'http://en.wikipedia.org/wiki/Radon';
+  rsFr = 'Francium';
+  rsFrEtymo = 'Named after France to honor Marguerite Perey';
+  rsFrWiki = 'http://en.wikipedia.org/wiki/Francium';
+  rsRa = 'Radium';
+  rsRaEtymo = 'Latin "radius" for "beam", as it is radioactive';
+  rsRaWiki = 'http://en.wikipedia.org/wiki/Radium';
+  rsAc = 'Actinium';
+  rsAcEtymo = 'Greek "aktis" for "beam", as it is radioactive';
+  rsAcWiki = 'http://en.wikipedia.org/wiki/Actinium';
+  rsTh = 'Thorium';
+  rsThEtymo = 'Named after the nordic god of thunder: Thor.';
+  rsThWiki = 'http://en.wikipedia.org/wiki/Thorium';
+  rsPa = 'Protactinium';
+  rsPaEtymo = 'Greek "protos" for "ancester. Protactinium is before Actinium ' +
+    'in the periodic table.';
+  rsPaWiki = 'http://en.wikipedia.org/wiki/Protactinium';
+  rsU = 'Uranium';
+  rsUEtymo = 'Greek "ouranos" for "heaven". Named after the planet Uranus.';
+  rsUWiki = 'http://en.wikipedia.org/wiki/Uranium';
+  rsNp = 'Neptunium';
+  rsNpEtymo = 'Named after the planet Neptune';
+  rsNpWiki = 'http://en.wikipedia.org/wiki/Neptunium';
+  rsPu = 'Plutonium';
+  rsPuEtymo = 'Named after the planet Pluto';
+  rsPuWiki = 'http://en.wikipedia.org/wiki/Plutonium';
+  rsAm = 'Americium';
+  rsAmEtymo = 'Named after America. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsAmWiki = 'http://en.wikipedia.org/wiki/Americium';
+  rsCm = 'Curium';
+  rsCmEtymo = 'Named after Pierre and Marie Curie. '+
+    'This element is artificial and cannot be found at natural state.';
+  rsCmWiki = 'http://en.wikipedia.org/wiki/Curium';
+  rsBk = 'Berkelium';
+  rsBkEtymo = 'Named after the town of Berkeley where it was discovered. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsBkWiki = 'http://en.wikipedia.org/wiki/Berkelium';
+  rsCf = 'Californium';
+  rsCfEtymo = 'Named after the US-State of California. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsCfWiki = 'http://en.wikipedia.org/wiki/Californium';
+  rsEs = 'Einsteinium';
+  rsEsEtymo = 'Named after Albert Einstein. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsEsWiki = 'http://en.wikipedia.org/wiki/Einsteinium';
+  rsFm = 'Fermium';
+  rsFmEtymo = 'Named after Enrico Fermi. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsFmWiki = 'http://en.wikipedia.org/wiki/Fermium';
+  rsMd = 'Mendelevium';
+  rsMdEtymo = 'Named after Dmitry Ivanovitch Mendeleev. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsMdWiki = 'http://en.wikipedia.org/wiki/Mendelevium';
+  rsNob = 'Nobelium';
+  rsNoEtymo = 'Named after Alfred Nobel. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsNoWiki = 'http://en.wikipedia.org/wiki/Nobelium';
+  rsLr = 'Lawrencium';
+  rsLrEtymo = 'Named after Ernest Orlando Lawrence. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsLrWiki = 'http://en.wikipedia.org/wiki/Lawrencium';
+  rsRf = 'Rutherfordium';
+  rsRfEtymo = 'Named after Ernest Rutherford. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsRfWiki = 'http://en.wikipedia.org/wiki/Rutherfordium';
+  rsDb = 'Dubnium';
+  rsDbEtymo = 'Named after the Russian town of Dubna. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsDbWiki = 'http://en.wikipedia.org/wiki/Dubnium';
+  rsSg = 'Seaborgium';
+  rsSgEtymo = 'Named after Glenn Theodore Seaborg. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsSgWiki = 'http://en.wikipedia.org/wiki/Seaborgium';
+  rsBh = 'Bohrium';
+  rsBhEtymo = 'Named after Niels Bohr. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsBhWiki = 'http://en.wikipedia.org/wiki/Bohrium';
+  rsHs = 'Hassium';
+  rsHsEtymo = 'Latin "hassia" for the German county of Hessen where many ' +
+    'elements have been discovered. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsHsWiki = 'http://en.wikipedia.org/wiki/Hassium';
+  rsMt = 'Meitnerium';
+  rsMtEtymo = 'Named after Lise Meitner. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsMtWiki = 'http://en.wikipedia.org/wiki/Meitnerium';
+  rsDs = 'Darmstadtium';
+  rsDsEtymo = 'Named after the German city of Darmstadt where many elements ' +
+    'have been discovered. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsDsWiki = 'http://en.wikipedia.org/wiki/Darmstadtium';
+  rsRg = 'Roentgenium';
+  rsRgEtymo = 'Named after Wilhelm Conrad Rontgen. ' +
+    'This element is artificial and cannot be found at natural state.';
+  rsRgWiki = 'http://en.wikipedia.org/wiki/Roentgenium';
+  rsCn = 'Copernicium';
+  rsCnEtymo = 'Named after Nicolas Copernic. ';
+  rsCnWiki = 'http://en.wikipedia.org/wiki/Copernicium';
+
+  //error messages
+  erSolveFileConflict = '*** Please correct that either by erasing the file ' +
+    'or moving it elsewhere before running YaPeTaVi again.';
+
+  erSyntaxError = 'Syntax error while parsing the string at pos #%d.';
+  erWrongEnvironmentVar = 'The environment variable "%s" given at pos #%d ' +
+    'do not exists or is not initialized.';
+  erOpenUrl = 'Unable to start the web browser. Please check your system ' +
+    'configuration.';
+
+implementation
+
+end.
+