Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!usc!elroy.jpl.nasa.gov!lll-winken!iggy.GW.Vitalink.COM!widener!msi.umn.edu!cs.umn.edu!uc!norge.unet.umn.edu!fin
From: fin@norge.unet.umn.edu (Craig A. Finseth)
Newsgroups: comp.sys.handhelds
Subject: Re: Periodic Table
Message-ID: <3956@uc.msc.umn.edu>
Date: 24 Apr 91 14:16:11 GMT
References: <1991Apr19.215621.2022@magnus.acs.ohio-state.edu>
Sender: news@uc.msc.umn.edu
Organization: Univ Netw Serv, Univ of Minn
Lines: 233

In article <1991Apr19.215621.2022@magnus.acs.ohio-state.edu> fseipel@magnus.acs.ohio-state.edu (Frank E Seipel) writes:
>{ from the Hewlett Packard calculator BBS (telnet hpcvbbs.hp.com) }:
>
>Item: 262 by _ryanh at hpcvbbs.UUCP
>Author: [Ryan Hill]
>  Subj: Chemistry
>  Keyw: atomic fmula weights and periodic table
>  Date: Thu Apr 18 1991 20:15
> Lines: 17
>
>This is a program that given an abbreviation, like Pb, will
>give the atomic number, weight, and full name like a periodic
>table.  I wish the search routine could be in machine language,
>but I couldn't do that.  If you can, please do.  Or, given a
	...

I tried downloading this last night and couln't.  After an hour or so
of hacking, I wound up with a re-written form.  It is several hundred
bytes smaller and runs faster.

Changes:

- Dropped the atomic numbers from the ELM list, as these are used as
an index into the list!

- Reworked the interfaces (e.g., you now enter atomic symbols in ""s, for
those of us who might have variable name conflicts).

- Used translation type 3 for the upload!

- Include checksum and size information.

I did not rewrite the "FORM" routine: I leave that as an excercise for
the reader.

SYMB		Accepts a name in quotes and returns the information on the
		element.
ANUM		Accepts an atomic number and returns the information on the
		element.
NAM		The 109 atomic names.
ELM		The 109 atomic properties as "symbol1 weight1 symbol2
		weight2..."

Craig A. Finseth			fin@unet.umn.edu [CAF13]
University Networking Services		+1 612 624 3375 desk
University of Minnesota			+1 612 625 0006 problems
130 Lind Hall, 207 Church St SE		+1 612 626 1002 FAX
Minneapolis MN 55455-0134, U.S.A.


Checksum: #10b9h
Size: 3579.5
------------------------------------------------------------
%%HP: T(3)A(D)F(.);
DIR
  SYMB
    \<< \-> S
      \<< 1 109
        FOR x 'ELM'
x 2 * 1 - GET
          IF S ==
          THEN x
ANUM 110 'x' STO
          END
        NEXT
      \>>
    \>>
  ANUM
    \<< \-> N
      \<< N "ATOMIC#"
\->TAG 'NAM' N GET
"NAME" \->TAG 'ELM' N
2 * 1 - GET
"SYMBOL" \->TAG 'ELM'
N 2 * GET "ATWT"
\->TAG
      \>>
    \>>
  NAM { "Hydrogen"
"Helium" "Lithium"
"Beryllium" "Boron"
"Carbon" "Nitrogen"
"Oxygen" "Flourine"
"Neon" "Sodium"
"Magnesium"
"Aluminum"
"Silicon"
"Phosphorous"
"Sulfur" "Chlorine"
"Argon" "Potassium"
"Calcium"
"Scandium"
"Titanium"
"Vanadium"
"Cromium"
"Manganese" "Iron"
"Cobalt" "Nickel"
"Copper" "Zinc"
"Gallium"
"Germanium"
"Arsenic"
"Selenium"
"Bromine" "Krypton"
"Rubidium"
"Strontium"
"Yttrium"
"Zirconium"
"Niobium"
"Molybdenum"
"Technetium"
"Ruthenium"
"Rhodium"
"Palladium"
"Silver" "Cadmium"
"Indium" "Tin"
"Antimony"
"Tellurium"
"Iodine" "Xenon"
"Cesium" "Barium"
"Lanthanum"
"Cerium"
"Praseodymeum"
"Neodymium"
"Promethium"
"Samarium"
"Europium"
"Gadolinium"
"Terbium"
"Dyprosium"
"Holmium" "Erbium"
"Thulium"
"Ytterbium"
"Lutetium"
"Hafneum"
"Tantalum"
"Tungsten"
"Rhenium" "Osmium"
"Iridium"
"Platinum" "Gold"
"Mercury"
"Thallium" "Lead"
"Bismuth"
"Polonium"
"Astatine" "Radon"
"Francium" "Radium"
"Actinium"
"Thorium"
"Protactinium"
"Uranium"
"Neptunium"
"Plutonium"
"Americium"
"Curium"
"Berkelium"
"Californium"
"Einsteinium"
"Fermium"
"Mendelevium"
"Nobilium"
"Lawrencium"
"Unknown" "Unknown"
"Unknown" "Unknown"
"" "Unknown" }
  ELM { "H" 1.0079
"He" 4.0026 "Li"
6.941 "Be" 9.0122
"B" 10.81 "C"
12.011 "N" 14.007
"O" 15.999 "F"
18.998 "Ne" 20.179
"Na" 22.99 "Mg"
24.305 "Al" 26.982
"Si" 28.086 "P"
30.974 "S" 32.06
"Cl" 35.453 "Ar"
39.948 "K" 39.098
"Ca" 40.08 "Sc"
44.956 "Ti" 47.9
"V" 50.941 "Cr"
51.996 "Mn" 54.938
"Fe" 55.847 "Co"
58.933 "Ni" 58.71
"Cu" 63.546 "Zn"
65.38 "Ga" 69.72
"Ge" 72.59 "As"
74.922 "Se" 78.96
"Br" 79.904 "Kr"
83.8 "Rb" 85.468
"Sr" 87.62 "Y"
88.906 "Zr" 91.22
"Nb" 92.906 "Mo"
95.94 "Tc" 97 "Ru"
101.07 "Rh" 102.91
"Pd" 106.4 "Ag"
107.87 "Cd" 112.41
"In" 114.82 "Sn"
118.69 "Sb" 121.75
"Te" 127.6 "I"
126.9 "Xe" 131.3
"Cs" 132.91 "Ba"
137.33 "La" 138.91
"Ce" 140.12 "Pr"
140.91 "Nd" 144.24
"Pm" 145 "Sm" 150.4
"Eu" 151.96 "Gd"
157.25 "Tb" 158.93
"Dy" 162.5 "Ho"
164.93 "Er" 167.26
"Tm" 168.93 "Yb"
173.04 "Lu" 174.97
"Hf" 178.49 "Ta"
180.95 "W" 183.85
"Re" 186.21 "Os"
190.2 "Ir" 192.22
"Pt" 195.09 "Au"
196.97 "Hg" 200.59
"Tl" 204.37 "Pb"
207.2 "Bi" 208.98
"Po" 209 "At" 210
"Rn" 222 "Fr" 223
"Ra" 226.03 "Ac"
227 "Th" 232.04
"Pa" 231.04 "U"
238.03 "Np" 237.05
"Pu" 244 "Am" 243
"Cm" 247 "Bk" 247
"Cf" 251 "Es" 254
"Fm" 257 "Md" 258
"No" 259 "Lr" 260
"Unk" 261 "Unk" 262
"Unk" 263 "Unk" 264
"Unk" 0 "Unk" 266 }
END