10 'This module was last updated 17-Sep-2000
10 'The official archive for PERIOD is http://nemesis.lonestar.org
10CLEAR200:CNT%=112:CR$=CHR$(13)+CHR$(10):DIMELE$(CNT%):RESTORE840:CLS
20PRINT"Periodic Table Utility":PRINT"Version is 1(7) 7-Sep-2000 M100"
30PRINT"Original Model 100 version, 1982":PRINT"Copr. 1982,1983,2000 Frank Durda IV"
40PRINT"Ref: CRC Chemistry Ref, 52nd Edition":PRINT"Sargent-Welch Chemistry Tables 1980"
50PRINT"Press <f1> or ?<Enter> for Help"
60KEY1,"Help"+CHR$(13):EL$="Element"
70FORT1%=1TOCNT%:READELE$(T1%):NEXTT1%
80LINEINPUT"Element? ";A$
90IFLEN(A$)=0THEN80ELSEA$=LEFT$(A$,15)
100IFA$="?"THEN220ELSEGOSUB440:IFB$="Help"THEN220
110GOSUB440:IFB$="Menu"THENMENU
120A=VAL(A$):A%=A:IFA=0THEN280ELSEIFA<0THEN80
130IFA%<>AORINSTR(1,A$,".")>0ORA%>CNT%THEN150
140NM%=A%:SH$=ELE$(NM%):GOSUB350:GOTO80
150C$=STR$(A):C%=INSTR(1,C$,"."):IFC%=0THEND%=0ELSED%=LEN(MID$(C$,C%+1,20))
160GOSUB270:FORNM%=1TOCNT%
170SH$=ELE$(NM%):PP%=0:GOSUB570:GOSUB570
180B=VAL(A$):IFB=0THENA$=MID$(A$,2,10):GOTO180
190B=INT(B*10^D%)/10^D%:IFA=BTHENGOSUB350:GOTO80
200NEXTNM%
210PRINT"Can't find that element":GOTO80
220CLS:PRINT"Command Formats Are:":PRINT"26     Displays ";EL$;" number 26"
230PRINT"55.8   Displays the ";EL$;" with an":PRINT"       Atomic Weight of Approx 55.8"
240PRINT"XENON  Displays the Element XENON":PRINT"W      Displays Element with that"
250PRINT"       abbreviation (Tungsten)":PRINT"Press any key to continue";
260A$=INKEY$:IFA$=""THEN260ELSEPRINTCHR$(13);"<f8>   Returns to main menu":GOTO80
270PRINT@263,"Searching...":RETURN
280GOSUB270:IFLEN(A$)<3THEN330ELSEGOSUB440
290FORNM%=1TOCNT%:SH$=ELE$(NM%):C$=MID$(SH$,3,INSTR(3,SH$,"/")-3)
300T1%=INSTR(1,C$,B$):T2%=INSTR(1,C$,"("+B$)
310IFT1%=1ORT2%>0THENGOSUB350:GOTO80
320NEXTNM%:GOTO210
330GOSUB440:B$=LEFT$(B$+" ",2):FORNM%=1TOCNT%
340SH$=ELE$(NM%):IFLEFT$(SH$,2)=B$THENGOSUB350:GOTO80ELSENEXTNM%:GOTO290
350PP%=0:GOSUB570:CLS:PRINTLEFT$(A$,2);" ";NM%;" ";MID$(A$,3,30);"  ";:GOSUB570
360PRINTA$:PRINT"Electron Distribution   Crystal"
370PRINT"K  L  M  N  O  P  Q";TAB(23);"Structure":GOSUB570:GOSUB480
380PRINT"Electronegativity ";:GOSUB570
390IFA$=""THENPRINT"---"ELSEPRINTA$
400GOSUB570:CR%=VAL(A$):IFCR%>0THENGOSUB590ELSET$="":PRINT@183,"Not Known":LINE(134,9)-(134,37),1
410GOSUB570:Y$="":Z%=INSTR(1,A$,"@"):IFZ%>0THENY$=MID$(A$,Z%+1,40):A$=LEFT$(A$,Z%-1)
420PRINT@200,;:IFVAL(LEFT$(A$,1))>0THENPRINT"Discovered in ";A$ELSEPRINTA$
430IFLEN(Y$)>0THENPRINTY$
440B%=ASC(LEFT$(A$,1)):IFB%>96THENB%=B%-32
450B$=CHR$(B%):IFLEN(A$)=1THENRETURNELSEFORT1%=2TOLEN(A$)
460B%=ASC(MID$(A$,T1%,1)):IFB%<96THENB%=B%+32
470B$=B$+CHR$(B%):NEXTT1%:RETURN
480T1%=0:S%=0:D$="":Q$=""
490T1%=T1%+1:T2%=T1%:T1%=INSTR(T1%,A$,",")
500IFT1%>0THENX$=MID$(A$,T2%,T1%-T2%):Q$=Q$+LEFT$(X$+"  ",3):S%=S%+VAL(X$):GOTO490ELSEX$=MID$(A$,T2%):Q$=Q$+LEFT$(X$+"  ",3):S%=S%+VAL(X$)
510R%=NM%-S%:IFR%>1THEND$="2  ":ELSE560
520IFR%=2THEN560ELSED$=D$+"8  "
530IFR%=10THEN560ELSED$=D$+"18 "
540IFR%=28THEN560ELSED$=D$+"32 "
550IFR%=60THEN560ELSED$=D$+"32 "
560PRINTLEFT$(D$+Q$+"-  -  -  -  -  -",20):RETURN
570PP%=PP%+1:LP%=PP%:PP%=INSTR(PP%,SH$,"/"):IFPP%=0THENA$=MID$(SH$,LP%)ELSEA$=MID$(SH$,LP%,PP%-LP%)
580RETURN
590RESTORE760
600XF%=203:YF%=10:T$="":X$="":X1%=0
610READT1%,T2%,T3%,X$
620FORT4%=1TOT2%+1:READT8%,T9%:IFT1%=CR%ANDT4%=1THENT$=X$
630IFT1%<>CR%ORT4%=1THEN690
640IFT8%<0THENREADT6%,T7%:T8%=ABS(T8%):VB%=-1:T4%=T4%+1ELSEVB%=0
650X1%=(T6%*4)+XF%:X2%=(T8%*4)+XF%:Y1%=(T7%*4)+YF%:Y2%=(T9%*4)+YF%
660LINE(X1%,Y1%)-(X2%,Y2%),1:IFVB%THEN700
670X3%=((T6%+T3%)*4)+XF%:X4%=((T8%+T3%)*4)+XF%:Y3%=((T7%+7)*4)+YF%:Y4%=((T9%+7)*4)+YF%
680LINE(X3%,Y3%)-(X4%,Y4%),1:LINE(X1%,Y1%)-(X3%,Y3%),1
690T6%=T8%:T7%=T9%
700NEXTT4%:IFX1%=0THEN610
710T1%=143:T2%=1
720T3%=INSTR(T2%,X$,"/")
730IFT3%=0THENPRINT@T1%,MID$(X$,T2%,12);:LINE(134,9)-(134,37),1:RETURN
740IFT3%-T2%=0THEN750ELSEPRINT@T1%,MID$(X$,T2%,T3%-T2%);
750T1%=T1%+40:T2%=T3%+1:GOTO720
760DATA1,4,,"/  Cubic",3,,9,,7,2,1,2,3,
770DATA2,12,,"Cubic, Face/ Centered",3,,9,,7,2,1,2,3,,-4,5,4,6,-4,6,5,6,-5,6,5,5,-5,5,4,5
780DATA3,12,,"Cubic, Body/ Centered",3,,9,,7,2,1,2,3,,-3,,7,9,-9,,1,9,-3,7,7,2,-9,7,1,2
790DATA4,6,,"/ Hexagonal",1,1,4,,7,,8,1,5,2,2,2,1,1
800DATA5,4,-3,"/Rhombohedral",5,1,7,-1,8,2,6,4,5,1
810DATA6,4,,"/ Tetragonal",4,,8,,6,2,2,2,4,
820DATA7,4,,"/Orthorhombic",3,,8,,7,1,2,1,3,
830DATA8,4,2," /Monoclinic",1,,6,0,5,2,,2,1,
840DATA"H Hydrogen/1.0079/1/2.2/4/1766 by Cavendish"
850DATA"HeHelium/4.0026/2//1/1868 by Janssen"
860DATA"LiLithium/6.941/1/.98/3/1817 by Arfvedson"
870DATA"BeBeryllium/9.01218/2/1.57/4/1798 by Vauquelin"
880DATA"B Boron/10.81/3/2.04/5/1808 by Davy"
890DATA"C Carbon/12.011/4/2.55/4/Prehistoric Discovery"
900DATA"N Nitrogen/14.0067/5/3.04/4/1772 by Rutherford"
910DATA"O Oxygen/15.9994/6/3.44/8/1771 by Scheele"
920DATA"F Fluorine/18.998403/7/3.98/8/1771 by Scheele.@Isolated by Moisson in 1886"
930DATA"NeNeon/20.179/8//2/1898 by@Ramsay & Travers"
940DATA"NaSodium/22.98977/1/.93/3/1807 by Davy"
950DATA"MgMagnesium/24.305/2/1.31/4/1755@by Black"
960DATA"AlAluminum/26.98154/3/1.61/2/1825@by Oerstead"
970DATA"SiSilicon/28.0855/4/1.9/2/1824@by Berzelius"
980DATA"P Phosphorus/30.97376/5/2.19/8/1669@by Brand"
990DATA"S Sulfur/32.06/6/2.58/7/Refered to in Genesis@as Brimstone"
1000DATA"ClChlorine/35.453/7/3.16/7/1774@by Scheele"
1010DATA"ArArgon/39.948/8//2/1894@by Rayleigh & Ramsay"
1020DATA"K Potassium/39.0983/8,1/.82/3/1807@by Davy"
1030DATA"CaCalcium/40.08/8,2/1/2/1808@by Davy"
1040DATA"ScScandium/44.9559/9,2/1.36/4/1876@by Nilson"
1050DATA"TiTitanium/47.90/10,2/1.54/4/1791@by Gregor"
1060DATA"V Vanadium/50.9415/11,2/1.63/3/1801@by del Rio"
1070DATA"CrChromium/51.996/13,1/1.66/3/1790@by Vauquelin"
1080DATA"MnManganese/54.9380/13,2/1.55/3/1770 by Kaim.@Isolated by Gahn in 1774"
1090DATA"FeIron/55.847/14,2/1.83/3/Mentioned in Genesis@Tubal-Cain worked Iron"
1100DATA"CoCobalt/58.9332/15,2/1.88/4/1735@by Brandt"
1110DATA"NiNickel/58.70/16,2/1.91/2/China used in coins, 235BC.@Purified in 1751 by Cronstedt"
1120DATA"CuCopper/63.546/18,1/1.9/2/Prehistoric Discovery"
1130DATA"ZnZinc/65.38/18,2/1.65/4/Prehistoric Discovery"
1140DATA"GaGallium/69.72/18,3/1.81/7/1875 by@Lecoq de Boisbaudran"
1150DATA"GeGermanium/72.59/18,4/2.01/2/1886@by Winkler"
1160DATA"AsArsenic/74.9216/18,5/2.18/5/1250@by Albertus Magnus"
1170DATA"SeSelenium/78.96/18,6/2.55/4/1817@by Berzelius"
1180DATA"BrBromine/79.904/18,7/2.96/7/1826@by Balard"
1190DATA"KrKrypton/83.80/18,8//2/1898 by@Ramsay & Travers"
1200DATA"RbRubidium/85.4678/8,1/.82/3/1861 by@Bunsen & Kirchoff"
1210DATA"SrStrontium/87.62/8,2/.95/2/1790 by Crawford.@Metal form 1807 by Davy"
1220DATA"Y Yttrium/88.9059/9,2/1.22/4/1794@by Gadolin"
1230DATA"ZrZirconium/91.22/10,2/1.33/4/1789@by Klaproth"
1240DATA"NbNiobium (Columbium)/92.9064/12,1/1.6/3/1801@by Hatchett"
1250DATA"MoMolybdenum/95.94/13,1/2.16/3/1778@by Scheele"
1260DATA"TcTechnetium (Masurium)/(98)/14,1/1.9/4/1937 by@Perrier & Segr`e"
1270DATA"RuRuthenium/101.07/15,1/2.2/4/1827 by@Berzelius & Osann"
1280DATA"RhRhodium/102.9055/16,1/2.28/2/1803-4@by Wollaston"
1290DATA"PdPalladium/106.4/18/2.2/2/1803@by Wollaston"
1300DATA"AgSilver/107.868/18,1/1.93/2/Mentioned in Genesis"
1310DATA"CdCadmium/112.41/18,2/1.69/4/1817@by Strohmeyer"
1320DATA"InIndium/114.82/18,3/1.78/6/1863 by@Reich & Richter"
1330DATA"SnTin/118.69/18,4/1.96/6/Known to the ancients"
1340DATA"SbAntimony/121.75/18,5/2.05/5/Known as a metal in@the early 17th century"
1350DATA"TeTellurium/127.60/18,6/2.1/4/1782 by@Baron von Reichenstein"
1360DATA"I Iodine/126.9045/18,7/2.66/7/1811@by Courtois"
1370DATA"XeXenon/131.30/18,8//2/1898 by@Ramsay & Travers"
1380DATA"CsCesium/132.9054/18,8,1/.79/3/1860 by@Bunsen & Kirchhoff"
1390DATA"BaBarium/137.33/18,8,2/.89/3/1774 by Scheele.@Pure metal 1808 by Davy"
1400DATA"LaLanthanum/138.9055/18,9,2/1.1/4/1839@by Mosander"
1410DATA"CeCerium/140.12/20,8,2/1.12/2/1803 by@Klaproth, Berzelius & Hisinger"
1420DATA"PrPraseodymium/140.9077/21,8,2/1.13/4/1885@by von Welsbach"
1430DATA"NdNeodymium/144.24/22,8,2/1.14/4/1885@by von Welsbach"
1440DATA"PmPromethium/(145)/23,8,2/1.13/4/1926 by Harris,@Hopkins, Rolla and Fernando."
1450DATA"SmSamarium/150.4/24,8,2/1.17/5/1879@by Lecoq de Boisbaudran"
1460DATA"EuEuropium/151.96/25,8,2/1.2/3/1901@by Demarcay"
1470DATA"GdGadolinium/157.25/25,9,2/1.2/4/1880 by@Marignac & Lecoq de Boisbaudran"
1480DATA"TbTerbium/158.9254/27,8,2/1.2/4/1843@by Mosander"
1490DATA"DyDysprosium/162.50/28,8,2/1.22/4/1886 by@Lecoq de Boisbaudran"
1500DATA"HoHolmium/164.9304/29,8,2/1.23/4/1878 by@Per Cleve"
1510DATA"ErErbium/167.26/30,8,2/1.24/4/1842 by@Mosander"
1520DATA"TmThulium/168.9342/31,8,2/1.25/4/1879@by Cleve"
1530DATA"YbYtterbium/173.04/8,2/1.1/2/1878@by Marignac"
1540DATA"LuLutetium/174.967/9,2/1.27/4/1907 by@Urbain, von Welsbach & James"
1550DATA"HfHafnium/178.49/10,2/1.3/4/1923 by@D. Coster & G. von Hevesey"
1560DATA"TaTantalum/180.9479/11,2/1.5/3/1802@by Ekeberg"
1570DATA"W Tungsten (Wolfram)/183.85/12,2/2.36/3/1779@by Peter Woulfe"
1580DATA"ReRhenium/186.207/13,2/1.9/4/1925 by@Noddack, Tacke & Berg"
1590DATA"OsOsmium/190.2/14,2/2.2/4/1803@by Tennant"
1600DATA"IrIridium/192.22/15,2/2.2/2/1803@by Tennant"
1610DATA"PtPlatinum/195.09/17,1/2.28/2/1735 by@Ulloa & 1741 by Wood"
1620DATA"AuGold/196.9665/18,1/2.54/2/Known and valued@from earliest times"
1630DATA"HgMercury/200.59/18,2/2/5/Known to ancient@Chinese & Hindus"
1640DATA"TlThallium/204.37/18,3/2.04/4/1861@by Crookes"
1650DATA"PbLead/207.2/18,4/2.33/2/Long known;@Mentioned in Exodus"
1660DATA"BiBismuth/208.9804/18,5/2.02/5/1753 by@Claude Geoffroy the Younger"
1670DATA"PoPolonium/(209)/18,6/2/8/1898@by Mme. Curie"
1680DATA"AtAstatine/(210)/18,7/2.2//1940 by@D.R. Corson, K.R. Mackenzie & E. Segr"
1690DATA"RnRadon (Niton)/(222)/18,8//2/1900@by Dorn"
1700DATA"FrFrancium/(223.0197)/18,8,1/.7/3/1939 by@Mlle. Marguerite Perey"
1710DATA"RaRadium/226.0254/18,8,2/.9/3/1898 by@M. and Mme. Curie"
1720DATA"AcActinium/227.0278/18,9,2/1.1/2/1899 by@Andre Debierne & 1902 by F. Giesel"
1730DATA"ThThorium/232.03804/18,10,2/1.3/2/1828@by Berzelius"
1740DATA"PaProtactinium/231.0359/20,9,2/1.5/7/1913@by K. Fajans & O. H. Gohring"
1750DATA"U Uranium/238.029/21,9,2/1.38/7/Found in glass dated@about 79AD. Isolated in 1841 by Peligot"
1760DATA"NpNeptunium/237.0482/23,8,2/1.36/7/1940@by McMillan & Abelson"
1770DATA"PuPlutonium/(244)/24,8,2/1.28/8/1940 by@Seaborg, McMillan, Kennedy & Wahl"
1780DATA"AmAmericium/(243)/25,8,2/1.3/4/1944 by@Seaborg, James, Morgan & Ghiorso"
1790DATA"CmCurium/(247)/25,9,2/1.3//1944 by@Seaborg, James & Ghiorso"
1800DATA"BkBerkelium/(247)/26,9,2/1.3//1949 by@Thompson, Ghiorso & Seaborg"
1810DATA"CfCalifornium/(251)/29,8,2/1.3//1950 by@Thompson, Street, Ghiorso & Seaborg"
1820DATA"EsEinsteinium/(252)/29,8,2/1.3//1952 in@debris of first H-bomb explosion"
1830DATA"FmFermium/(257)/30,8,2/1.3//1952 in@debris of first H-bomb explosion"
1840DATA"MdMendelevium/(258)/31,8,2/1.3//1955 by@Ghiorso, Harvey, Choppin & Thompson"
1850DATA"NoNobelium/(259)/8,2/1.3//1958 by@Ghiorso, Sikkeland, Walton & Seaborg"
1860DATA"LrLawrencium/(260)/9,2///1961 by@Ghiorso, Sikkeland, Larsh & Latimer"
1870DATA"RfRutherfordium/(261)/10,2///1964 by Berkeley & Dubna."
1880DATA"DbDubnium/(262)/11,2///1970 by Ghiorso"
1890DATA"SgSeaborgium/(263)/12,2///by Ghiorso"
1900DATA"BhBohrium/(264)/13,2///1981 by@Armbruster and Munzenberg"
1910DATA"HsHassium/(265)/14,2///1983 by@Armbruster and Munzenberg"
1920DATA"MtMeitnerium/(266)/15,2///1984 by@Armbruster and Munzenberg"
1930DATA"--Element 110/(269)/17,1///1994 by Hofmann, Ninov,@Hessberger and others"
1940DATA"--Element 111/(272)/18,1///1994 by Hofmann, Ninov,@Hessberger and others"
1950DATA"--Element 112/(277)/18,2///Single atom made in 1996 by@Armbruster and Munzenberg"