10 PROC_Initial

REM Customize colors:
REM -----------------
ALKALI_METAL_FOREGROUND=4
ALKALI_METAL_BACKGROUND=0

ALALINE_EARTH_FOREGROUND=6
ALALINE_EARTH_BACKGROUND=0

TRANSITION_METAL_FOREGROUND=14
TRANSITION_METAL_BACKGROUND=0
COLOR TRANSITION_METAL_FOREGROUND,128,64,0 REM Changes foreground color to orange-brown

BASIC_METAL_FOREGROUND=2
BASIC_METAL_BACKGROUND=0

NONMETAL_FOREGROUND=1
NONMETAL_BACKGROUND=0

SEMIMETAL_FOREGROUND=3
SEMIMETAL_BACKGROUND=0

HALOGEN_FOREGROUND=7
HALOGEN_BACKGROUND=1

NOBLE_GAS_FOREGROUND=5
NOBLE_GAS_BACKGROUND=0

LANTHANIDE_FOREGROUND=7
LANTHANIDE_BACKGROUND=0

ACTINIDE_FOREGROUND=15
ACTINIDE_BACKGROUND=0

RACTIVE_FOREGROUND=0
RACTIVE_BACKGROUND=3

PRINT ""
PRINT ""
PRINT "   .---.                                                               .---."
PRINT " 1 |  H|                                                               | He|"
PRINT "   |---+---.                                       .-------------------+---|"
PRINT " 2 | Li| Be|                                       |  B|  C|  N|  O|  F| Ne|"
PRINT "   |---+---|                   |----8B-----|       |---+---+---+---+---+---|"
PRINT " 3 | Na| Mg|3B  4B  5B  6B  7B V           V 1B 2B | Al| Si|  P|  S| Cl| Ar|"
PRINT "   |---+---+---------------------------------------+---+---+---+---+---+---|"
PRINT " 4 |  K| Ca| Sc| Ti|  V| Cr| Mn| Fe| Co| Ni| Cu| Zn| Ga| Ge| As| Se| Br| Kr|"
PRINT "   |---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|"
PRINT " 5 | Rb| Sr|  Y| Zr| Nb| Mo| Tc| Ru| Rh| Pd| Ag| Cd| In| Sn| Sb| Te|  I| Xe|"
PRINT "   |---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|"
PRINT " 6 | Cs| Ba|LAN| Hf| Ta|  W| Re| Os| Ir| Pt| Au| Hg| Tl| Pb| Bi| Po| At| Rn|"
PRINT "   |---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|"
PRINT " 7 | Fr| Ra|ACT| Rf| Db| Sg| Bh| Hs| Mt| Ds| Rg| Cn| Nh| Fl| Mc| Lv| Ts| Og|"
PRINT "   `-----------------------------------------------------------------------'"
PRINT ""
PRINT ""
PRINT ""
PRINT "               .-----------------------------------------------------------."
PRINT "    Lanthanide | La| Ce| Pr| Nd| Pm| Sm| Eu| Gd| Tb| Dy| Ho| Er| Tm| Yb| Lu|"
PRINT "               |---+---+---+---+---+---+---+---+---+---+---+---+---+---+---|"
PRINT "    Actinide   | Ac| Th| Pa|  U| Np| Pu| Am| Cm| Bk| Cf| Es| Fm| Md| No| Lr|"
PRINT "               `-----------------------------------------------------------'"
PRINT ""

REM #####[ Title and Credit ]#####
COLOUR 4
VDU31,12,1:PRINT"The Periodic Table of Elements for BBC BASIC V"
VDU31,30,2:PRINT"by TheOuterLinux"
COLOR 15
COLOR 128+4
VDU31,8,29:PRINT"      Licensed as GNU General Public License Version 3         "
VDU31,8,30:PRINT"For more software, please visit https://theouterlinux.gitlab.io"
COLOR 128+0
COLOR 15

REM #####[ Elements ]#####
REM Alkali Metal
COLOR ALKALI_METAL_FOREGROUND
COLOR 128+ALKALI_METAL_BACKGROUND
VDU31,2,17:PRINT"Alkali Metal"

REM Alaline Earth
COLOR ALALINE_EARTH_FOREGROUND
COLOR 128+ALALINE_EARTH_BACKGROUND
VDU31,15,17:PRINT"Alkaline Earth"

REM Transition Metal
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
VDU31,30,17:PRINT"Transition Metal"

REM Basic Metal
COLOR BASIC_METAL_FOREGROUND
COLOR 128+BASIC_METAL_BACKGROUND
VDU31,47,17:PRINT"Basic Metal"

REM Nonmetal
COLOR NONMETAL_FOREGROUND
COLOR 128+NONMETAL_BACKGROUND
VDU31,59,17:PRINT"Nonmetal"

REM Semimetal
COLOR SEMIMETAL_FOREGROUND
COLOR 128+SEMIMETAL_BACKGROUND
VDU31,68,17:PRINT"Semimetal"

REM Halogen
COLOR HALOGEN_FOREGROUND
COLOR 128+HALOGEN_BACKGROUND
VDU31,2,18:PRINT"Halogen"

REM Noble Gas
COLOR NOBLE_GAS_FOREGROUND
COLOR 128+NOBLE_GAS_BACKGROUND
VDU31,10,18:PRINT"Noble Gas"

REM Lanthanide
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
VDU31,20,18:PRINT"Lanthanide"

REM Actinide
COLOR ACTINIDE_FOREGROUND
COLOR 128+ACTINIDE_BACKGROUND
VDU31,31,18:PRINT"Actinide"

REM Radioactive
VDU 23,240,124,56,16,130,214,238,198,130
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
VDU31,40,18:PRINT" "+CHR$(240)+" Radioactive "+CHR$(240)+" "

REM 001 Hydrogen (H)
COLOR NONMETAL_FOREGROUND
COLOR 128+NONMETAL_BACKGROUND
VDU31,6,3:PRINT"H"

REM 002 Helium (He)
COLOR NOBLE_GAS_FOREGROUND
COLOR 128+NOBLE_GAS_BACKGROUND
PRINT TAB(73,3);"He"

REM 003 Lithium (Li)
COLOR ALKALI_METAL_FOREGROUND
COLOR 128+ALKALI_METAL_BACKGROUND
PRINT TAB(5,5);"Li"

REM 004 Beryllium (Be)
COLOR ALALINE_EARTH_FOREGROUND
COLOR 128+ALALINE_EARTH_BACKGROUND
PRINT TAB(9,5);"Be"

REM 005 Boron (B)
COLOR SEMIMETAL_FOREGROUND
COLOR 128+SEMIMETAL_BACKGROUND
PRINT TAB(54,5);"B"

REM 006 Carbon (C)
COLOR NONMETAL_FOREGROUND
COLOR 128+NONMETAL_BACKGROUND
PRINT TAB(58,5);"C"

REM 007 Nitrogen (N)
COLOR NONMETAL_FOREGROUND
COLOR 128+NONMETAL_BACKGROUND
PRINT TAB(62,5);"N"

REM 008 Oxygen (O)
COLOR NONMETAL_FOREGROUND
COLOR 128+NONMETAL_BACKGROUND
PRINT TAB(66,5);"O"

REM 009 Fluorine (F)
COLOR HALOGEN_FOREGROUND
COLOR 128+HALOGEN_BACKGROUND
PRINT TAB(70,5);"F"

REM 010 Neon (Ne)
COLOR NOBLE_GAS_FOREGROUND
COLOR 128+NOBLE_GAS_BACKGROUND
PRINT TAB(73,5);"Ne"

REM 011 Sodium (Na)
COLOR ALKALI_METAL_FOREGROUND
COLOR 128+ALKALI_METAL_BACKGROUND
PRINT TAB(5,7);"Na"

REM 012 Magnesium (Mg)
COLOR ALALINE_EARTH_FOREGROUND
COLOR 128+ALALINE_EARTH_BACKGROUND
PRINT TAB(9,7);"Mg"

REM 013 Aluminium (Al)
COLOR BASIC_METAL_FOREGROUND
COLOR 128+BASIC_METAL_BACKGROUND
PRINT TAB(53,7);"Al"

REM 014 Silicon (Si)
COLOR SEMIMETAL_FOREGROUND
COLOR 128+SEMIMETAL_BACKGROUND
PRINT TAB(57,7);"Si"

REM 015 Phosphorus (P)
COLOR NONMETAL_FOREGROUND
COLOR 128+NONMETAL_BACKGROUND
PRINT TAB(62,7);"P"

REM 016 Sulfur (S)
COLOR NONMETAL_FOREGROUND
COLOR 128+NONMETAL_BACKGROUND
PRINT TAB(66,7);"S"

REM 017 Chlorine (Cl)
COLOR HALOGEN_FOREGROUND
COLOR 128+HALOGEN_BACKGROUND
PRINT TAB(69,7);"Cl"

REM 018 Argon (Ar)
COLOR NOBLE_GAS_FOREGROUND
COLOR 128+NOBLE_GAS_BACKGROUND
PRINT TAB(73,7);"Ar"

REM 019 Potassium (K)
COLOR ALKALI_METAL_FOREGROUND
COLOR 128+ALKALI_METAL_BACKGROUND
PRINT TAB(6,9);"K"

REM 020 Calcium (Ca)
COLOR ALALINE_EARTH_FOREGROUND
COLOR 128+ALALINE_EARTH_BACKGROUND
PRINT TAB(9,9);"Ca"

REM 021 Scandium (Sc)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(13,9);"Sc"

REM 022 Titanium (Ti)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(17,9);"Ti"

REM 023 Vanadium (V)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(22,9);"V"

REM 024 Chromium (Cr)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(25,9);"Cr"

REM 025 Manganese (Mn)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(29,9)"Mn"

REM 026 Iron (Fe)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(33,9);"Fe"

REM 027 Cobalt (Co)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(37,9);"Co"

REM 028 Nickel (Ni)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(41,9);"Ni"

REM 029 Copper (Cu)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(45,9);"Cu"

REM 030 Zinc (Zn)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(49,9);"Zn"

REM 031 Gallium (Ga)
COLOR BASIC_METAL_FOREGROUND
COLOR 128+BASIC_METAL_BACKGROUND
PRINT TAB(53,9);"Ga"

REM 032 Germanium (Ge)
COLOR SEMIMETAL_FOREGROUND
COLOR 128+SEMIMETAL_BACKGROUND
PRINT TAB(57,9);"Ge"

REM 033 Arsenic (As)
COLOR SEMIMETAL_FOREGROUND
COLOR 128+SEMIMETAL_BACKGROUND
PRINT TAB(61,9);"As"

REM 034 Selenium (Se)
COLOR NONMETAL_FOREGROUND
COLOR 128+NONMETAL_BACKGROUND
PRINT TAB(65,9);"Se"

REM 035 Bromine (Br)
COLOR HALOGEN_FOREGROUND
COLOR 128+HALOGEN_BACKGROUND
PRINT TAB(69,9);"Br"

REM 036 Krypton (Kr)
COLOR NOBLE_GAS_FOREGROUND
COLOR 128+NOBLE_GAS_BACKGROUND
PRINT TAB(73,9);"Kr"

REM 037 Rubidium (Rb)
COLOR ALKALI_METAL_FOREGROUND
COLOR 128+ALKALI_METAL_BACKGROUND
PRINT TAB(5,11);"Rb"

REM 038 Strontium (Sr)
COLOR ALALINE_EARTH_FOREGROUND
COLOR 128+ALALINE_EARTH_BACKGROUND
PRINT TAB(9,11);"Sr"

REM 039 Yttrium (Y)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(14,11);"Y"

REM 040 Zirconium (Zr)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(17,11);"Zr"

REM 041 Niobium (Nb)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(21,11);"Nb"

REM 042 Molybdenum (Mo)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(25,11);"Mo"

REM 043 Technetium (Tc)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(29,11);"Tc"

REM 044 Ruthenium (Ru)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(33,11);"Ru"

REM 045 Rhodium (Rh)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(37,11);"Rh"

REM 046 Palladium (Pd)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(41,11);"Pd"

REM 047 Silver (Ag)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(45,11);"Ag"

REM 048 Cadmium (Cd)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(49,11);"Cd"

REM 049 Indium (In)
COLOR BASIC_METAL_FOREGROUND
COLOR 128+BASIC_METAL_BACKGROUND
PRINT TAB(53,11);"In"

REM 050 Tin (Sn)
COLOR BASIC_METAL_FOREGROUND
COLOR 128+BASIC_METAL_BACKGROUND
PRINT TAB(57,11);"Sn"

REM 051 Antimony (Sb)
COLOR SEMIMETAL_FOREGROUND
COLOR 128+SEMIMETAL_BACKGROUND
PRINT TAB(61,11);"Sb"

REM 052 Tellurium (Te)
COLOR SEMIMETAL_FOREGROUND
COLOR 128+SEMIMETAL_BACKGROUND
PRINT TAB(65,11);"Te"

REM 053 Iodine (I)
COLOR HALOGEN_FOREGROUND
COLOR 128+HALOGEN_BACKGROUND
PRINT TAB(70,11);"I"

REM 054 Xenon (Xe)
COLOR NOBLE_GAS_FOREGROUND
COLOR 128+NOBLE_GAS_BACKGROUND
PRINT TAB(73,11);"Xe"

REM 055 Caesium (Cs)
COLOR ALKALI_METAL_FOREGROUND
COLOR 128+ALKALI_METAL_BACKGROUND
PRINT TAB(5,13);"Cs"

REM 056 Barium (Ba)
COLOR ALALINE_EARTH_FOREGROUND
COLOR 128+ALALINE_EARTH_BACKGROUND
PRINT TAB(9,13);"Ba"

REM 057 Lanthanium (La)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(17,21);"La"

REM 058 Cerium (Ce)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(21,21);"Ce"

REM 059 Praseodymium (Pr)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(25,21);"Pr"

REM 060 Neodymium (Nd)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(29,21);"Nd"

REM 061 Promethium (Pm)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(33,21);"Pm"

REM 062 Samarium (Sm)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(37,21);"Sm"

REM 063 Europium (Eu)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(41,21);"Eu"

REM 064 Gadolinium (Gd)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(45,21);"Gd"

REM 065 Terbium (Tb)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(49,21);"Tb"

REM 066 Dysprosium (Dy)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(53,21);"Dy"

REM 067 Holmium (Ho)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(57,21);"Ho"

REM 068 Erbium (Er)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(61,21);"Er"

REM 069 Thulium (Tm)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(65,21);"Tm"

REM 070 Ytterbium (Yb)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(69,21);"Yb"

REM 071 Lutetium (Lu)
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(73,21);"Lu"

REM Lanthanide Group
COLOR LANTHANIDE_FOREGROUND
COLOR 128+LANTHANIDE_BACKGROUND
PRINT TAB(12,13);"LAN"

REM 072 Hafnium (Hf)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(17,13);"Hf"

REM 073 Tantalum (Ta)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(21,13);"Ta"

REM 074 Tungsten (W)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(26,13);"W"

REM 075 Rhenium (Re)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(29,13);"Re"

REM 076 Osmium (Os)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(33,13);"Os"

REM 077 Iridium (Ir)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(37,13);"Ir"

REM 078 Platinum (Pt)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(41,13);"Pt"

REM 079 Gold (Au)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(45,13);"Au"

REM 080 Mercury (Hg)
COLOR TRANSITION_METAL_FOREGROUND
COLOR 128+TRANSITION_METAL_BACKGROUND
PRINT TAB(49,13);"Hg"

REM 081 Thallium (Tl)
COLOR BASIC_METAL_FOREGROUND
COLOR 128+BASIC_METAL_BACKGROUND
PRINT TAB(53,13);"Tl"

REM 082 Lead (Pb)
COLOR BASIC_METAL_FOREGROUND
COLOR 128+BASIC_METAL_BACKGROUND
PRINT TAB(57,13);"Pb"

REM 083 Bismuth (bi)
COLOR BASIC_METAL_FOREGROUND
COLOR 128+BASIC_METAL_BACKGROUND
PRINT TAB(61,13);"Bi"

REM 084 Polonium (Po)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(65,13);"Po"

REM 085 Astatine (At)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(69,13);"At"

REM 086 Radon (Rn)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(73,13);"Rn"

REM 087 Francium (Fr)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(5,15);"Fr"

REM 088 Radium (Ra)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(9,15);"Ra"

REM 089 Actinium (Ac)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(17,23);"Ac"

REM 090 Thorium (Th)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(21,23);"Th"

REM 091 Proctactinium (Pa)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(25,23);"Pa"

REM 092 Uranium (U)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(30,23);"U"

REM 093 Neptunium (Np)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(33,23);"Np"

REM 094 Plutonium (Pu)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(37,23);"Pu"

REM 095 Americium (Am)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(41,23);"Am"

REM 096 Curium (Cm)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(45,23);"Cm"

REM 097 Berkelium (Bk)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(49,23);"Bk"

REM 098 Californium (Cf)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(53,23);"Cf"

REM 099 Einsteinium (Es)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(57,23);"Es"

REM 100 Fermium (Fm)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(61,23);"Fm"

REM 101 Mendelevium (Md)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(65,23);"Md"

REM 102 Nobelium (No)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(69,23);"No"

REM 103 Lawrencium (Lr)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(73,23);"Lr"

REM Actinide Group
COLOR ACTINIDE_FOREGROUND
COLOR 128+ACTINIDE_BACKGROUND
PRINT TAB(12,15);"ACT"

REM 104 Rutherfordium (Rf)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(17,15);"Rf"

REM 105 Dubnium (Db)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(21,15);"Db"

REM 106 Seaborgium (Sg)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(25,15);"Sg"

REM 107 Bohrium (Bh)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(29,15);"Bh"

REM 108 Hassium (Hs)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(33,15);"Hs"

REM 109 Meitnerium (Mt)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(37,15);"Mt"

REM 110 Darmstadtium (Ds)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(41,15);"Ds"

REM 111 Roentgenium (Rg)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(45,15);"Rg"

REM 112 Copernicium (Cn)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(49,15);"Cn"

REM 113 Nihonium (Nh)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(53,15);"Nh"

REM 114 Flerovium (Fl)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(57,15);"Fl"

REM 115 Moscovium (Mc)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(61,15);"Mc"

REM 116 Livermorium (Lv)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(65,15);"Lv"

REM 117 Tennessine (Ts)
COLOR RACTIVE_FOREGROUND
COLOR 128+RACTIVE_BACKGROUND
PRINT TAB(69,15);"Ts"

REM 118 Oganesson (Og)
PRINT TAB(73,15);"Og"
COLOR BASIC_METAL_FOREGROUND
COLOR 128+BASIC_METAL_BACKGROUND

INPUT TAB(4,26);"Element "; ELEMENT$

CASE ELEMENT$ OF
  WHEN "QUIT", "Quit", "quit", "EXIT", "exit", "Exit": PROC_Quit
  WHEN "Hydrogen", "HYDROGEN", "hydrogen", "H", "h", "1": PROC_Hydrogen
  WHEN "Helium", "HELIUM", "helium", "He", "HE", "he", "2": PROC_Helium
  WHEN "Lithium", "LITHIUM", "lithium", "Li", "LI", "li", "3": PROC_Lithium
  WHEN "Beryllium", "BERYLLIUM", "beryllium", "Be", "BE", "be", "4": PROC_Beryllium
  WHEN "Boron", "BORON", "boron", "B", "b", "5": PROC_Boron
  OTHERWISE: GOTO 10
ENDCASE

END

DEF PROC_Initial
  REM Simply used to clean the screen and colors
  MODE 12
  CLS REM Clear text
  CLG REM Clear graphics
  COLOR 15
  COLOR 128+0
ENDPROC

DEF PROC_KeyWait
  PRINT ""
  PRINT "Press ANY key to continue."
  IF GET$ <> "Q" THEN GOTO 10
  STOP
ENDPROC

DEF PROC_Quit
  MODE 0
  CLS
  CLG
  COLOR 15
  COLOR 128+0
ENDPROC

DEF PROC_Hydrogen
  PROC_Initial
  PRINT "Hydrogen (H)"
  PRINT "Name:                                   Hydrogen"
  PRINT "Symbol:                                 H"
  PRINT "Atomic Number:                          1"
  PRINT "Atomic Weight (u.m):                    1.00794"
  PRINT "Density (g/cm"+CHR$(179)+") :                       0.0708 (@ -253"+CHR$(176)+"C)"
  PRINT "Melting Point (K):                      14.01"
  PRINT "Boiling Point (K):                      20.28"
  PRINT "Atomic Radius (pm):                     79"
  PRINT "Covalent Radius (pm):                   32"
  PRINT "Ionic Radius (pm):                      154 (-1e)"
  PRINT "Atomic Volume (cm"+CHR$(179)+"/mol):                14.1"
  PRINT "Specific Heat (@20"+CHR$(176)+"C J/g mol):          14.267 (H-H)"
  PRINT "Fusion Heat (kJ/mol):                   0.117 (H-H)"
  PRINT "Evaporation Heat (kJ/mol):              0.904 (H-H)"
  PRINT "Thermal Conductivity (@25"+CHR$(176)+"C W/m K):     0.1815"
  PRINT "Debye temperature (K):                  110.00"
  PRINT "Pauling Negativity Number:              2.20"
  PRINT "First Ionizing Energy (kJ/mol):         1311.3"
  PRINT "Oxidation states:                       1, -1"
  PRINT "Electronic Configuration:               1s1"
  PRINT "Lattice structure:                      HEX"
  PRINT "Lattice constant ("+CHR$(197)+"):                   3.750"
  PRINT "Lattice c/a ratio:                      1.731"
  PRINT "Appearance:                             Colorless, odorless, tasteless gas"
  PRINT "Discovery date:                         1766 (England)"
  PRINT "Discovered by:                          Henry Cavendish"
  PRINT "Named after:                            Greek: hydro (water) & genes (generate)"
  PROC_KeyWait
ENDPROC

DEF PROC_Helium
  PROC_Initial
  PRINT "Name:                                   Helium"
  PRINT "Symbol:                                 He"
  PRINT "Atomic Number:                          2"
  PRINT "Atomic Weight (u.m):                    4.002602"
  PRINT "Density (g/cm"+CHR$(179)+") :                       0.147 (@ -270"+CHR$(176)+"C)"
  PRINT "Melting Point (K):                      0.95"
  PRINT "Boiling Point (K):                      4.216"
  PRINT "Atomic Radius (pm):                     0.0"
  PRINT "Covalent Radius (pm):                   n/a"
  PRINT "Ionic Radius (pm):                      93"
  PRINT "Atomic Volume (cm"+CHR$(179)+"/mol):                31.8"
  PRINT "Specific Heat (@20"+CHR$(176)+"C J/g mol):          5.188"
  PRINT "Fusion Heat (kJ/mol):                   n/a"
  PRINT "Evaporation Heat (kJ/mol):              0.08"
  PRINT "Thermal Conductivity (@25"+CHR$(176)+"C W/m K):     0.152"
  PRINT "Debye temperature (K):                  n/a"
  PRINT "Pauling Negativity Number:              n/a"
  PRINT "First Ionizing Energy (kJ/mol):         2361.3"
  PRINT "Oxidation states:                       n/a"
  PRINT "Electronic Configuration:               1s2"
  PRINT "Lattice structure:                      HEX"
  PRINT "Lattice constant ("+CHR$(197)+"):                   3.570"
  PRINT "Lattice c/a ratio:                      1.633"
  PRINT "Appearance:                             Inert, colorless, odorless, tasteless gas"
  PRINT "Discovery date:                         1895 (Scotland/Sweden)"
  PRINT "Discovered by:                          Sir William Ramsey, Nils Langet, P.T.Cleve"
  PRINT "Named after:                            Greek: helios (sun)."
  PROC_KeyWait
ENDPROC

DEF PROC_Lithium
  PROC_Initial
  PRINT "Lithium (Li)"
  PRINT "Name:                                   Lithium"
  PRINT "Symbol:                                 Li"
  PRINT "Atomic Number:                          3"
  PRINT "Atomic Weight (u.m):                    6.941"
  PRINT "Density (g/cm"+CHR$(179)+") :                       0.534"
  PRINT "Melting Point (K):                      453.69"
  PRINT "Boiling Point (K):                      1118.15"
  PRINT "Atomic Radius (pm):                     155"
  PRINT "Covalent Radius (pm):                   163"
  PRINT "Ionic Radius (pm):                      68 (+1e)"
  PRINT "Atomic Volume (cm"+CHR$(179)+"/mol):                13.1"
  PRINT "Specific Heat (@20"+CHR$(176)+"C J/g mol):          3.489"
  PRINT "Fusion Heat (kJ/mol):                   2.89"
  PRINT "Evaporation Heat (kJ/mol):              148"
  PRINT "Thermal Conductivity (@25"+CHR$(176)+"C W/m K):     84.8"
  PRINT "Debye temperature (K):                  400.00"
  PRINT "Pauling Negativity Number:              0.98"
  PRINT "First Ionizing Energy (kJ/mol):         519.9"
  PRINT "Oxidation states:                       1"
  PRINT "Electronic Configuration:               [He] 2s1"
  PRINT "Lattice structure:                      BCC"
  PRINT "Lattice constant ("+CHR$(197)+"):                   3.490"
  PRINT "Lattice c/a ratio:                      n/a"
  PRINT "Appearance:                             Soft, silvery-white metal"
  PRINT "Discovery date:                         1817 (Sweden)"
  PRINT "Discovered by:                          Johann Arfwedson"
  PRINT "Named after:                            Greek: lithos (stone)"
  PROC_KeyWait
ENDPROC

DEF PROC_Beryllium
  PROC_Initial
  PRINT "Beryllium (Be)"
  PRINT "Name:                                   Beryllium"
  PRINT "Symbol:                                 Be"
  PRINT "Atomic Number:                          4"
  PRINT "Atomic Weight (u.m):                    9.01218"
  PRINT "Density (g/cm"+CHR$(179)+") :                       1.848"
  PRINT "Melting Point (K):                      1551"
  PRINT "Boiling Point (K):                      3243"
  PRINT "Atomic Radius (pm):                     112"
  PRINT "Covalent Radius (pm):                   90"
  PRINT "Ionic Radius (pm):                      35 (+2e)"
  PRINT "Atomic Volume (cm"+CHR$(179)+"/mol):                5.0"
  PRINT "Specific Heat (@20"+CHR$(176)+"C J/g mol):          1.824"
  PRINT "Fusion Heat (kJ/mol):                   12.21"
  PRINT "Evaporation Heat (kJ/mol):              309"
  PRINT "Thermal Conductivity (@25"+CHR$(176)+"C W/m K):     201"
  PRINT "Debye temperature (K):                  1000.00"
  PRINT "Pauling Negativity Number:              1.57"
  PRINT "First Ionizing Energy (kJ/mol):         898.8"
  PRINT "Oxidation states:                       2"
  PRINT "Electronic Configuration:               [He] 2s2"
  PRINT "Lattice structure:                      HEX"
  PRINT "Lattice constant ("+CHR$(197)+"):                   2.290"
  PRINT "Lattice c/a ratio:                      1.567"
  PRINT "Appearance:                             Hard, brittle, steel-gray metal"
  PRINT "Discovery date:                         1798 (France)"
  PRINT "Discovered by:                          Louis-Nicholas Vauquelin"
  PRINT "Named after:                            Greek: beryllos, 'beryl' (a mineral)"
  PROC_KeyWait
ENDPROC

DEF PROC_Boron
  PROC_Initial
  PRINT "Boron (B)"
  PRINT "Name:                                   Boron"
  PRINT "Symbol:                                 B"
  PRINT "Atomic Number:                          5"
  PRINT "Atomic Weight (u.m):                    10.811"
  PRINT "Density (g/cm"+CHR$(179)+") :                       2.34"
  PRINT "Melting Point (K):                      2573"
  PRINT "Boiling Point (K):                      3931"
  PRINT "Atomic Radius (pm):                     98"
  PRINT "Covalent Radius (pm):                   82"
  PRINT "Ionic Radius (pm):                      23 (+3e)"
  PRINT "Atomic Volume (cm"+CHR$(179)+"/mol):                4.6"
  PRINT "Specific Heat (@20"+CHR$(176)+"C J/g mol):          1.025"
  PRINT "Fusion Heat (kJ/mol):                   23.60"
  PRINT "Evaporation Heat (kJ/mol):              504.5"
  PRINT "Thermal Conductivity (@25"+CHR$(176)+"C W/m K):     27.4"
  PRINT "Debye temperature (K):                  1250.00"
  PRINT "Pauling Negativity Number:              2.04"
  PRINT "First Ionizing Energy (kJ/mol):         800.2"
  PRINT "Oxidation states:                       3"
  PRINT "Electronic Configuration:               [He] 2s2 2p1"
  PRINT "Lattice structure:                      TET"
  PRINT "Lattice constant ("+CHR$(197)+"):                   8.730"
  PRINT "Lattice c/a ratio:                      0.576"
  PRINT "Appearance:                             Hard, brittle, lustrous black semimetal"
  PRINT "Discovery date:                         1808 (England/France)"
  PRINT "Discovered by:                          Sir H. Davy, J.L. Gay-Lussac, L.J. Thenard"
  PRINT "Named after:                            The Arabic and Persian words for borax"
  PROC_KeyWait
ENDPROC