PERIODIC, a Periodic Table utility
Originally by ?, optimized by Joe Horn

This program was posted ages ago, and ran very slowly because it used a
loop to search through its lists.  I merely replaced the loop with the POS
function, which sped the program up by several orders of magnitiude.

PURPOSE: Given either the Atomic Symbol or the Atomic Number of any element,
output the Atomic Number, Full Name, Atomic Symbol, and Atomic Weight.

INSTRUCTIONS: Type an Atomic Symbol as a string (e.g. "Au") and press SYMB.
Or type an atomic number (e.g. 47) and press ANUM.  The output will fill the
bottom four stack levels.  If the search is not successful, 0 will be returned
to level 1.  The search is case sensitive (you must type "Au"; "AU" won't work,
nor will "au").

NOTES: The NAM variable is a list containing all the elements's names as
strings.  The ELM variable is a list containing all the elements' symbols and
weights as string/number pairs.  Both lists are in atomic number order, and may
be easily corrected or extended.

It's a sorry excuse for a Periodic Table, but hey, it's cheaper than HP's EQ
Card, and it's great during chem/physics exams...

-jkh-