http://www.cemetech.net/forum/viewtopic.php?p=189053

:Output(1,1,"*****************              **   PERIODIEK  **    SYSTEEM   **      DER     **   ELEMENTEN  **              *****************
:While 1
:Pause
:"WATERSTOF,HELIUM,LITHIUM,BERYLLIUM,BOOR,KOOLSTOF,STIKSTOF,ZUURSTOF,FLUOR,NEON,NATRIUM,MAGNESIUM,ALUMINIUM,SILICIUM,FOSFOR,ZWAVEL,CHLOOR,ARGON,KALIUM,CALCIUM,SCANDIUM,TITAAN,VANADIUM,CHROOM,MANGAAN,IJZER,KOBALT,NIKKEL,KOPER,ZINK,GALLIUM,GERMANIUM,ARSEEN,SELEEN,BROOM,KRYPTON,RUBIDIUM,STRONTIUM,YTTRIUM,ZIRKONIUM,NIOBIUM,MOLYBDEEN,TECHNETIUM,RUTHENIUM,RHODIUM,PALLADIUM,ZILVER,CADMIUM,INDIUM,TIN,ANTIMOON,TELLUUR,JOOD,XENON,CESIUM,BARIUM,LANTHAAN,CERIUM,PRASEODYMIUM,NEODYMIUM,PROMETIUM,SAMARIUM,EUROPIUM,GADOLINIUM,TERBIUM,DYSPROSIUM,HOLMIUM,ERBIUM,THULIUM,YTTERBIUM,LUTETIUM,HAFNIUM,TANTAAL,WOLFRAAM,RENIUM,OSMIUM,IRIDIUM,PLATINA,GOUD,KWIK,THALLIUM,LOOD,BISMUT,POLONIUM,ASTAAT,RADON,FRANCIUM,RADIUM,ACTINIUM,THORIUM,PROTACTINIUM,URAAN,NEPTUNIUM,PLUTONIUM,AMERICIUM,CURIUM,BERKELIUM,CALIFORNIUM,EINSTEINIUM,FERMIUM,MENDELEVIUM,NOBELLIUM,LAWRENCIUM,RUTHERFORDIUM,DUBNIUM,SEABORGIUM,BOHRIUM,HASSIUM,MEITNERIUM,DARMSTADTIUM,ROENTGENIUM,→Str1
:"H HELIBEB C N O F NENAMGALSIP S CLARK CASCTIV CRMNFECONICUZNGAGEASSEBRKRRBSRY ZRNBMOTCRURHPDAGCDINSNSBTEI XECSBALACEPRNDPMSMEUGDTBDYHOERTMYBLUHFTAW REOSIRPTAUHGTLPBBIPOATRNFRRAACTHPAU NPPUAMCMBKCFESFMMDNOLRRFDBSGBHHSMTDSRG→Str2
:ClrHome
:Menu("      MENU      ","ATOOMNUMMER",A,"SYMBOOL",S,"LIJST",L,"EXIT",X
:Lbl A
:Input "ATOOMNUMMER:",X
:Goto E
:Lbl S
:Output(3,2,"LET OP: ACHTER   DE DICHTHEID     MOET ALTIJD     x103 KG M-3
:Input "SYMBOOL:",Str3
:If 1=length(Str3
:Str3+" →Str3
:0
:Repeat fPart(.5Ans
:inString(Str2,Str3,Ans+1
:End
:.5Ans+.5→X
:Lbl E
:Str1
:For(A,0,1
:Ans→Str4
:0
:For(B,1,X
:Ans+1→C
:inString(Str4,",",Ans
:End
:sub(Str4,C,Ans-C→Str4
:If not(A
:Ans→Str5
:"8.4E-5,1.7E-4,0.53,1.85,2.4,2.1,1.17E-3,1.17E-3,1.33E-3,1.58E-3,8.4E-4,0.97,1.74,2.70,2.4,1.82,1.96,2.99E-3,1.66E-3,0.86,1.55,2.99,4.54,6.1,7.19,7.3,7.87,8.9,8.90,8.96,7.2,5.9,5.3,5.7,4.79,3.12,3.49E-3,1.53,2.54,4.5,6.51,8.57,10.2,11.5,12.4,12.4,12.0,10.5,8.65,7.31,7.31,6.69,6.24,4.93,5.49E-3,1.87,3.5,6.15,6.71,6.78,8.4E-4,7.22,7.53,5.25,7.87,8.27,8.53,8.80,9.04,9.33,6.97,9.84,13.3,16.7,19.3,21.0,22.6,22.6,21.5,19.3,13.546,11.9,11.3,9.80,9.4,-,9.07E-3,-,5.5,10.1,11.8,15.4,19.1,20.5,19.9,13.8,13.5,14.8,9.3,8.8,-,-,-,-,-,-,-,-,-,-,-,-,
:End
:ClrHome
:Disp int(8^-1(X+7+(X>57)+(X=63 or X=95)+sum(3(X>{95,101
:Output(1,9+(X<72),"LIJST
:Output(1,3+int(log(X)),sub(Str2,2X-1,2
:Output(1,1,X
:{1.008,4.003,6.941,9.012,10.81,12.01,14.01,16.00,19.00,20.18,22.99,24.31,26.98,28.09,30.97,32.06,35.45,39.95,39.10,40.08,44.96,47.90,50.94,52.00,54.94,55.85,58.93,58.71,63.55,65.38,69.72,72.59,74.92,78.96,79.90,83.80,85.47,87.62,88.91,91.22,92.91,95.94,97,101.07,102.91,106.4,107.87,112.40,114.82,118.69,121.75,127.60,126.90,131.30,132.91,137.34,138.91,140.12,140.91,144.24,145,150.35,151.96,157.25,158.93,162.50,164.93,168.26,168.93,173.04,174.97,178.49,180.95,183.85,168.2,190.2,192.2,195.09,196.97,200.59,204.37,126.90,208.98,209,210,222,223,226,227,232.04,231,238,237,244,243,247,247,251,252,257,257,255,257,259,262,263,264,265,268,271,272
:Disp Str5,"ATOOMMASSA:",Ans(X
:For(A,0,1
:"    -
:If X≤99
:sub("20.3 4.21615274442734098  77  90  85  271156136327923538 554 718 239  87103217573103356036802944233431343200318628351180247731061090 958 332 120 961165435374473503149124538442339684098243510402345287518601261 458 165 944217037283699378533003003206418703534339628352968313622201467366847765731582859695285470140983129 6301746202218371235 610 211 950141335004800440042004200360029003400290017001800  14 1.5 454156023483823  63  54  54  25 371 923 9331687 317 388 172  84 3361115181419412183218015191811176817281357 693 3031211 887 494 226 116 3121042179621252740289624302607223720421235 594 430 505 904 723 387 161 302100011931077120812931341134510991585162916811738180218181097192825063269369534593306271920421337 234 577 601 545 527 575 202 300 97313242000180014009100910014001600130012001100",396A+4X-3,4)+"K
:Disp sub("KOOKPUNT:  SMELTPUNT: ",11A+1,11)+Ans
:End
:Disp "DICHTHEID:
:Output(8,17-length(Str4),Str4
:End
:Lbl L
:Input "LIJST:",X
:Disp "NOT IMPLEMENTED!
:End
:Lbl X