Before I begin to introduce my question, you have to know that I'm not the best programmer. I know quite a few commands, but I think I don't know much about how to use a lot of commands.
I have made a periodic table-program with TI-Basic. My problem is: it is way too large. Maybe there are some commands I don't know of and are important to be efficacious with space.
You can help me. I know it.
ps. the text in the program is dutch.
Code:
I have made a periodic table-program with TI-Basic. My problem is: it is way too large. Maybe there are some commands I don't know of and are important to be efficacious with space.
You can help me. I know it.
ps. the text in the program is dutch.
Code:
:Lbl 0
:Output(1,1,"***************** ** PERIODIEK ** SYSTEEM ** DER ** ELEMENTEN ** *****************")
:Pause
:27→A:2→B:3→C:4→D:5→E:6→F:7→G:8→H:9→I:10→J:11→K:12→L:13→M:14→N:15→O:16→P:17→Q:18→R:19→S:20→T:21→U:22→V:23→W:24→X:25→Y:26→Z
:Lbl 1
:ClrHome
:Menu(" MENU ","ATOOMNUMMER",2,"SYMBOOL",3,"LIJST",5,"EXIT",4)
:
:Lbl 2
:Output(1,1,"ATOOMNUMMER FUNCTIE NIET BESCHIKBAAR! ")
:Pause
:Goto 1
:
:Lbl 3
:Output(3,1," LET OP: ACHTER DE DICHTHEID MOET ALTIJD x103 KG M-3
:Input "SYMBOOL:",θ
:If θ=H:Then
:Output(1,1,"1 H LIJST 1WATERSTOF ATOOMMASSA: 1.008KOOKPUNT: 20.3KSMELTPUNT: 14KDICHTHEID: 8.4E-5")
:Pause
:Goto 1
:Else
:If θ=HE:Then
:Output(1,1,"2 HE LIJST 1HELIUM ATOOMMASSA: 4.003KOOKPUNT: 4.2KSMELTPUNT: 1.5KDICHTHEID: 1.7E-4")
:Pause
:Goto 1
:Else
:If θ=LI:Then
:Output(1,1,"3 LI LIJST 1LITHIUM ATOOMMASSA: 6.941KOOKPUNT: 1615KSMELTPUNT: 454KDICHTHEID: 0.53")
:Pause
:Goto 1
:Else
:If θ=BE:Then
:Output(1,1,"4 BE LIJST 1BERYLLIUM ATOOMMASSA: 9.012KOOKPUNT: 2744KSMELTPUNT: 1560KDICHTHEID: 1.85")
:Pause
:Goto 1
:Else
:If θ=B:Then
:Output(1,1,"5 B LIJST 1BOOR ATOOMMASSA: 10.81KOOKPUNT: 4273KSMELTPUNT: 2348KDICHTHEID: 2.4")
:Pause
:Goto 1
:Else
:If θ=C:Then
:Output(1,1,"6 C LIJST 1KOOLSTOF ATOOMMASSA: 12.01KOOKPUNT: 4098KSMELTPUNT: 3823KDICHTHEID: 2.1")
:Pause
:Goto 1
:Else
:If θ=N:Then
:Output(1,1,"7 N LIJST 1STIKSTOF ATOOMMASSA: 14.01KOOKPUNT: 77KSMELTPUNT: 63KDICHTHEID: 1.17E-3")
:Pause
:Goto 1
:Else
:If θ=O:Then
:Output(1,1,"8 O LIJST 1ZUURSTOF ATOOMMASSA: 16.00KOOKPUNT: 90KSMELTPUNT: 54KDICHTHEID: 1.33E-3")
:Pause
:Goto 1
:Else
:If θ=F:Then
:Output(1,1,"9 F LIJST 2FLUOR ATOOMMASSA: 19.00KOOKPUNT: 85KSMELTPUNT: 54KDICHTHEID: 1.58E-3")
:Pause
:Goto 1
:Else
:If θ=NE:Then
:Output(1,1,"10 NE LIJST 2NEON ATOOMMASSA: 20.18KOOKPUNT: 27KSMELTPUNT: 25KDICHTHEID: 8.4E-4")
:Pause
:Goto 1
:Else
:If θ=NA:Then
:Output(1,1,"11 NA LIJST 2NATRIUM ATOOMMASSA: 22.99KOOKPUNT: 1156KSMELTPUNT: 371KDICHTHEID: 0.97")
:Pause
:Goto 1
:Else
:If θ=MG:Then
:Output(1,1,"12 MG LIJST 2MAGNESIUM ATOOMMASSA: 24.31KOOKPUNT: 1363KSMELTPUNT: 923KDICHTHEID: 1.74")
:Pause
:Goto 1
:Else
:If θ=AL:Then
:Output(1,1,"13 AL LIJST 2ALUMINIUM ATOOMMASSA: 26.98KOOKPUNT: 2792KSMELTPUNT: 933KDICHTHEID: 2.70")
:Pause
:Goto 1
:Else
:If θ=SI:Then
:Output(1,1,"14 SI LIJST 2SILICIUM ATOOMMASSA: 28.09KOOKPUNT: 3538KSMELTPUNT: 1687KDICHTHEID: 2.4")
:Pause
:Goto 1
:Else
:If θ=P:Then
:Output(1,1,"15 P LIJST 2FOSFOR ATOOMMASSA: 30.97KOOKPUNT: 554KSMELTPUNT: 317KDICHTHEID: 1.82")
:Pause
:Goto 1
:Else
:If θ=S:Then
:Output(1,1,"16 S LIJST 2ZWAVEL ATOOMMASSA: 32.06KOOKPUNT: 718KSMELTPUNT: 388KDICHTHEID: 1.96")
:Pause
:Goto 1
:Else
:If θ=CL:Then
:Output(1,1,"17 CL LIJST 3CHLOOR ATOOMMASSA: 35.45KOOKPUNT: 239KSMELTPUNT: 172KDICHTHEID: 2.99E-3")
:Pause
:Goto 1
:Else
:If θ=AR:Then
:Output(1,1,"18 AR LIJST 3ARGON ATOOMMASSA: 39.95KOOKPUNT: 87KSMELTPUNT: 84KDICHTHEID: 1.66E-3")
:Pause
:Goto 1
:Else
:If θ=K:Then
:Output(1,1,"19 K LIJST 3KALIUM ATOOMMASSA: 39.10KOOKPUNT: 1032KSMELTPUNT: 336KDICHTHEID: 0.86")
:Pause
:Goto 1
:Else
:If θ=CA:Then
:Output(1,1,"20 CA LIJST 3CALCIUM ATOOMMASSA: 40.08KOOKPUNT: 1757KSMELTPUNT: 1115KDICHTHEID: 1.55")
:Pause
:Goto 1
:Else
:If θ=SC:Then
:Output(1,1,"21 SC LIJST 3SCANDIUM ATOOMMASSA: 44.96KOOKPUNT: 3103KSMELTPUNT: 1814KDICHTHEID: 2.99")
:Pause
:Goto 1
:Else
:If θ=TI:Then
:Output(1,1,"22 TI LIJST 3TITAAN ATOOMMASSA: 47.90KOOKPUNT: 3560KSMELTPUNT: 1941KDICHTHEID: 4.54")
:Pause
:Goto 1
:Else
:If θ=V:Then
:Output(1,1,"23 V LIJST 3VANADIUM ATOOMMASSA: 50.94KOOKPUNT: 3680KSMELTPUNT: 2183KDICHTHEID: 6.1")
:Pause
:Goto 1
:Else
:If θ=CR:Then
:Output(1,1,"24 CR LIJST 3CHROOM ATOOMMASSA: 52.00KOOKPUNT: 2944KSMELTPUNT: 2180KDICHTHEID: 7.19")
:Pause
:Goto 1
:Else
:If θ=MN:Then
:Output(1,1,"25 MN LIJST 4MANGAAN ATOOMMASSA: 54.94KOOKPUNT: 2334KSMELTPUNT: 1519KDICHTHEID: 7.3")
:Pause
:Goto 1
:Else
:If θ=FE:Then
:Output(1,1,"26 FE LIJST 4IJZER ATOOMMASSA: 55.85KOOKPUNT: 3134KSMELTPUNT: 1811KDICHTHEID: 7.87")
:Pause
:Goto 1
:Else
:If θ=CO:Then
:Output(1,1,"27 CO LIJST 4KOBALT ATOOMMASSA: 58.93KOOKPUNT: 3200KSMELTPUNT: 1768KDICHTHEID: 8.9")
:Pause
:Goto 1
:Else
:If θ=NI:Then
:Output(1,1,"28 NI LIJST 4NIKKEL ATOOMMASSA: 58.71KOOKPUNT: 3186KSMELTPUNT: 1728KDICHTHEID: 8.90")
:Pause
:Goto 1
:Else
:If θ=CU:Then
:Output(1,1,"29 CU LIJST 4KOPER ATOOMMASSA: 63.55KOOKPUNT: 2835KSMELTPUNT: 1357KDICHTHEID: 8.96")
:Pause
:Goto 1
:Else
:If θ=ZN:Then
:Output(1,1,"30 ZN LIJST 4ZINK ATOOMMASSA: 65.38KOOKPUNT: 1180KSMELTPUNT: 693KDICHTHEID: 7.2")
:Pause
:Goto 1
:Else
:If θ=GA:Then
:Output(1,1,"31 GA LIJST 4GALLIUM ATOOMMASSA: 69.72KOOKPUNT: 2477KSMELTPUNT 303KDICHTHEID: 5.9")
:Pause
:Goto 1
:Else
:If θ=GE:Then
:Output(1,1,"32 GE LIJST 4GERMANIUM ATOOMMASSA: 72.59KOOKPUNT: 3106KSMELTPUNT: 1211KDICHTHEID: 5.3")
:Pause
:Goto 1
:Else
:If θ=AS:Then
:Output(1,1,"33 AS LIJST 5ARSEEN ATOOMMASSA: 74.92KOOKPUNT: 1090KSMELTPUNT: 887KDICHTHEID: 5.7")
:Pause
:Goto 1
:Else
:If θ=SE:Then
:Output(1,1,"34 SE LIJST 5SELEEN ATOOMMASSA: 78.96KOOKPUNT: 958KSMELTPUNT: 494KDICHTHEID: 4.79")
:Pause
:Goto 1
:Else
:If θ=BR:Then
:Output(1,1,"35 BR LIJST 5BROOM ATOOMMASSA: 79.90KOOKPUNT: 332KSMELTPUNT: 226KDICHTHEID: 3.12")
:Pause
:Goto 1
:Else
:If θ=KR:Then
:Output(1,1,"36 KR LIJST 5KRYPTON ATOOMMASSA: 83.80KOOKPUNT: 120KSMELTPUNT: 116KDICHTHEID: 3.49E-3")
:Pause
:Goto 1
:Else
:If θ=RB:Then
:Output(1,1,"37 RB LIJST 5RUBIDIUM ATOOMMASSA: 85.47KOOKPUNT: 961KSMELTPUNT: 312KDICHTHEID: 1.53")
:Pause
:Goto 1
:Else
:If θ=SR:Then
:Output(1,1,"38 SR LIJST 5STRONTIUM ATOOMMASSA: 87.62KOOKPUNT: 1654KSMELTPUNT: 1042KDICHTHEID: 2.54")
:Pause
:Goto 1
:Else
:If θ=Y:Then
:Output(1,1,"39 Y LIJST 5YTTRIUM ATOOMMASSA: 88.91KOOKPUNT: 3537KSMELTPUNT: 1796KDICHTHEID: 4.5")
:Pause
:Goto 1
:Else
:If θ=ZR:Then
:Output(1,1,"40 ZR LIJST 5ZIRKONIUM ATOOMMASSA: 91.22KOOKPUNT: 4473KSMELTPUNT: 2125KDICHTHEID: 6.51")
:Pause
:Goto 1
:Else
:If θ=NB:Then
:Output(1,1,"41 NB LIJST 6NIOBIUM ATOOMMASSA: 92.91KOOKPUNT: 5031KSMELTPUNT: 2740KDICHTHEID: 8.57")
:Pause
:Goto 1
:Else
:If θ=MO:Then
:Output(1,1,"42 MO LIJST 6MOLYBDEEN ATOOMMASSA: 95.94KOOKPUNT: 4912KSMELTPUNT: 2896KDICHTHEID: 10.2")
:Pause
:Goto 1
:Else
:If θ=TC:Then
:Output(1,1,"43 TC LIJST 6TECHNETIUM ATOOMMASSA: 97KOOKPUNT: 4538KSMELTPUNT: 2430KDICHTHEID: 11.5")
:Pause
:Goto 1
:Else
:If θ=RU:Then
:Output(1,1,"44 RU LIJST 6RUTHENIUM ATOOMMASSA: 101.07KOOKPUNT: 4423KSMELTPUNT: 2607KDICHTHEID: 12.4")
:Pause
:Goto 1
:Else
:If θ=RH:Then
:Output(1,1,"45 RH LIJST 6RHODIUM ATOOMMASSA: 102.91KOOKPUNT: 3968KSMELTPUNT: 2237KDICHTHEID: 12.4")
:Pause
:Goto 1
:Else
:If θ=PD:Then
:Output(1,1,"46 PD LIJST 6PALLADIUM ATOOMMASSA: 106.4KOOKPUNT: 4098KSMELTPUNT: 2042KDICHTHEID: 12.0")
:Pause
:Goto 1
:Else
:If θ=AG:Then
:Output(1,1,"47 AG LIJST 6ZILVER ATOOMMASSA: 107.87KOOKPUNT: 2435KSMELTPUNT: 1235KDICHTHEID: 10.5")
:Pause
:Goto 1
:Else
:If θ=CD:Then
:Output(1,1,"48 CD LIJST 6CADMIUM ATOOMMASSA: 112.40KOOKPUNT: 1040KSMELTPUNT: 594KDICHTHEID: 8.65")
:Pause
:Goto 1
:Else
:If θ=IN:Then
:Output(1,1,"49 IN LIJST 7INDIUM ATOOMMASSA: 114.82KOOKPUNT: 2345KSMELTPUNT: 430KDICHTHEID: 7.31")
:Pause
:Goto 1
:Else
:If θ=SN:Then
:Output(1,1,"50 SN LIJST 7TIN ATOOMMASSA: 118.69KOOKPUNT: 2875KSMELTPUNT: 505KDICHTHEID: 7.31")
:Pause
:Goto 1
:Else
:If θ=SB:Then
:Output(1,1,"51 SB LIJST 7ANTIMOON ATOOMMASSA: 121.75KOOKPUNT: 1860KSMELTPUNT: 904KDICHTHEID: 6.69")
:Pause
:Goto 1
:Else
:If θ=TE:Then
:Output(1,1,"52 TE LIJST 7TELLUUR ATOOMMASSA: 127.60KOOKPUNT: 1261KSMELTPUNT: 723KDICHTHEID: 6.24")
:Pause
:Goto 1
:Else
:If θ=I:Then
:Output(1,1,"53 I LIJST 7JOOD ATOOMMASSA: 126.90KOOKPUNT: 458KSMELTPUNT: 387KDICHTHEID: 4.93")
:Pause
:Goto 1
:Else
:If θ=XE:Then
:Output(1,1,"54 XE LIJST 7XENON ATOOMMASSA: 131.30KOOKPUNT: 165KSMELTPUNT: 161KDICHTHEID: 5.49E-3")
:Pause
:Goto 1
:Else
:If θ=CS:Then
:Output(1,1,"55 CS LIJST 7CESIUM ATOOMMASSA: 132.91KOOKPUNT: 944KSMELTPUNT: 302KDICHTHEID: 1.87")
:Pause
:Goto 1
:Else
:If θ=BA:Then
:Output(1,1,"56 BA LIJST 7BARIUM ATOOMMASSA: 137.34KOOKPUNT: 2170KSMELTPUNT: 1000KDICHTHEID: 3.5")
:Pause
:Goto 1
:Else
:If θ=LA:Then
:Output(1,1,"57 LA LIJST 8LANTHAAN ATOOMMASSA: 138.91KOOKPUNT: 3728KSMELTPUNT: 1193KDICHTHEID: 6.15")
:Pause
:Goto 1
:Else
:If θ=CE:Then
:Output(1,1,"58 CE LIJST 8CERIUM ATOOMMASSA: 140.12KOOKPUNT: 3699KSMELTPUNT: 1077KDICHTHEID: 6.71")
:Pause
:Goto 1
:Else
:If θ=PR:Then
:Output(1,1,"59 PR LIJST 8PRASEODYMIUM ATOOMMASSA: 140.91KOOKPUNT: 3785KSMELTPUNT: 1208KDICHTHEID: 6.78")
:Pause
:Goto 1
:Else
:If θ=ND:Then
:Output(1,1,"60 ND LIJST 8NEODYMIUM ATOOMMASSA: 144.24KOOKPUNT: 3300KSMELTPUNT: 1293KDICHTHEID: 8.4E-4")
:Pause
:Goto 1
:Else
:If θ=PM:Then
:Output(1,1,"61 PM LIJST 8PROMETIUM ATOOMMASSA: 145KOOKPUNT: 3003KSMELTPUNT: 1341KDICHTHEID: 7.22")
:Pause
:Goto 1
:Else
:If θ=SM:Then
:Output(1,1,"62 SM LIJST 8SAMARIUM ATOOMMASSA: 150.35KOOKPUNT: 2064KSMELTPUNT: 1345KDICHTHEID: 7.53")
:Pause
:Goto 1
:Else
:If θ=EU:Then
:Output(1,1,"63 EU LIJST 9EUROPIUM ATOOMMASSA: 151.96KOOKPUNT: 1870KSMELTPUNT: 1099KDICHTHEID: 5.25")
:Pause
:Goto 1
:Else
:If θ=GD:Then
:Output(1,1,"64 GD LIJST 9GADOLINIUM ATOOMMASSA: 157.25KOOKPUNT: 3534KSMELTPUNT: 1585KDICHTHEID: 7.87")
:Pause
:Goto 1
:Else
:If θ=TB:Then
:Output(1,1,"65 TB LIJST 9TERBIUM ATOOMMASSA: 158.93KOOKPUNT: 3396KSMELTPUNT: 1629KDICHTHEID: 8.27")
:Pause
:Goto 1
:Else
:If θ=DY:Then
:Output(1,1,"66 DY LIJST 9DYSPROSIUM ATOOMMASSA: 162.50KOOKPUNT: 2835KSMELTPUNT: 1681KDICHTHEID: 8.53")
:Pause
:Goto 1
:Else
:If θ=HO:Then
:Output(1,1,"67 HO LIJST 9HOLMIUM ATOOMMASSA: 164.93KOOKPUNT: 2968KSMELTPUNT: 1738KDICHTHEID: 8.80")
:Pause
:Goto 1
:Else
:If θ=ER:Then
:Output(1,1,"68 ER LIJST 9ERBIUM ATOOMMASSA: 168.26KOOKPUNT: 3136KSMELTPUNT: 1802KDICHTHEID: 9.04")
:Pause
:Goto 1
:Else
:If θ=TM:Then
:Output(1,1,"69 TM LIJST 9THULIUM ATOOMMASSA: 168.93KOOKPUNT: 2220KSMELTPUNT: 1818KDICHTHEID: 9.33")
:Pause
:Goto 1
:Else
:If θ=YB:Then
:Output(1,1,"70 YB LIJST 9YTTERBIUM ATOOMMASSA: 173.04KOOKPUNT: 1467KSMELTPUNT: 1097KDICHTHEID: 6.97")
:Pause
:Goto 1
:Else
:If θ=LU:Then
:Output(1,1,"71 LU LIJST 9LUTETIUM ATOOMMASSA: 174.97KOOKPUNT: 3668KSMELTPUNT: 1928KDICHTHEID: 9.84")
:Pause
:Goto 1
:Else
:If θ=HF:Then
:Output(1,1,"72 HF LIJST 10HAFNIUM ATOOMMASSA: 178.49KOOKPUNT: 4776KSMELTPUNT: 2506KDICHTHEID: 13.3")
:Pause
:Goto 1
:Else
:If θ=TA:Then
:Output(1,1,"73 TA LIJST 10TANTAAL ATOOMMASSA: 180.95KOOKPUNT: 5731KSMELTPUNT: 3269KDICHTHEID: 16.7")
:Pause
:Goto 1
:Else
:If θ=W:Then
:Output(1,1,"74 W LIJST 10WOLFRAAM ATOOMMASSA: 183.85KOOKPUNT: 5828KSMELTPUNT: 3695KDICHTHEID: 19.3")
:Pause
:Goto 1
:Else
:If θ=RE:Then
:Output(1,1,"75 RE LIJST 10RENIUM ATOOMMASSA: 168.2KOOKPUNT: 5969KSMELTPUNT: 3459KDICHTHEID: 21.0")
:Pause
:Goto 1
:Else
:If θ=OS:Then
:Output(1,1,"76 OS LIJST 10OSMIUM ATOOMMASSA: 190.2KOOKPUNT: 5285KSMELTPUNT: 3306KDICHTHEID: 22.6")
:Pause
:Goto 1
:Else
:If θ=IR:Then
:Output(1,1,"77 IR LIJST 10IRIDIUM ATOOMMASSA: 192.2KOOKPUNT: 4701KSMELTPUNT: 2719KDICHTHEID: 22.6")
:Pause
:Goto 1
:Else
:If θ=PT:Then
:Output(1,1,"78 PT LIJST 10PLATINA ATOOMMASSA: 195.09KOOKPUNT: 4098KSMELTPUNT: 2042KDICHTHEID: 21.5")
:Pause
:Goto 1
:Else
:If θ=AU:Then
:Output(1,1,"79 AU LIJST 10GOUD ATOOMMASSA: 196.97KOOKPUNT: 3129KSMELTPUNT: 1337KDICHTHEID: 19.3")
:Pause
:Goto 1
:Else
:If θ=HG:Then
:Output(1,1,"80 HG LIJST 11KWIK ATOOMMASSA: 200.59KOOKPUNT: 630KSMELTPUNT: 234KDICHTHEID: 13.546")
:Pause
:Goto 1
:Else
:If θ=TL:Then
:Output(1,1,"81 TL LIJST 11THALLIUM ATOOMMASSA: 204.37KOOKPUNT: 1746KSMELTPUNT: 577KDICHTHEID: 11.9")
:Pause
:Goto 1
:Else
:If θ=PB:Then
:Output(1,1,"82 PB LIJST 11LOOD ATOOMMASSA: 126.90KOOKPUNT: 2022KSMELTPUNT: 601KDICHTHEID: 11.3")
:Pause
:Goto 1
:Else
:If θ=BI:Then
:Output(1,1,"83 BI LIJST 11BISMUT ATOOMMASSA: 208.98KOOKPUNT: 1837KSMELTPUNT: 545KDICHTHEID: 9.80")
:Pause
:Goto 1
:Else
:If θ=PO:Then
:Output(1,1,"84 PO LIJST 11POLONIUM ATOOMMASSA: 209KOOKPUNT: 1235KSMELTPUNT: 527KDICHTHEID: 9.4")
:Pause
:Goto 1
:Else
:If θ=AT:Then
:Output(1,1,"85 AT LIJST 11ASTAAT ATOOMMASSA: 210KOOKPUNT: 610KSMELTPUNT: 575KDICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=RN:Then
:Output(1,1,"86 RN LIJST 11RADON ATOOMMASSA: 222KOOKPUNT: 211KSMELTPUNT: 202KDICHTHEID: 9.07E-3")
:Pause
:Goto 1
:Else
:If θ=FR:Then
:Output(1,1,"87 FR LIJST 11FRANCIUM ATOOMMASSA: 223KOOKPUNT: 950KSMELTPUNT: 300KDICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=RA:Then
:Output(1,1,"88 RA LIJST 12RADIUM ATOOMMASSA: 226KOOKPUNT: 1413KSMELTPUNT: 973KDICHTHEID: 5.5")
:Pause
:Goto 1
:Else
:If θ=AC:Then
:Output(1,1,"89 AC LIJST 12ACTINIUM ATOOMMASSA: 227KOOKPUNT: 3500KSMELTPUNT: 1324KDICHTHEID: 10.1")
:Pause
:Goto 1
:Else
:If θ=TH:Then
:Output(1,1,"90 TH LIJST 12THORIUM ATOOMMASSA: 232.04KOOKPUNT: 4800KSMELTPUNT: 2000KDICHTHEID: 11.8")
:Pause
:Goto 1
:Else
:If θ=PA:Then
:Output(1,1,"91 PA LIJST 12PROTACTINIUM ATOOMMASSA: 231KOOKPUNT: 4400KSMELTPUNT: 1800KDICHTHEID: 15.4")
:Pause
:Goto 1
:Else
:If θ=U:Then
:Output(1,1,"92 U LIJST 12URAAN ATOOMMASSA: 238KOOKPUNT: 4200KSMELTPUNT: 1400KDICHTHEID: 19.1")
:Pause
:Goto 1
:Else
:If θ=NP:Then
:Output(1,1,"93 NP LIJST 12NEPTUNIUM ATOOMMASSA: 237KOOKPUNT: 4200KSMELTPUNT: 9100KDICHTHEID: 20.5")
:Pause
:Goto 1
:Else
:If θ=PU:Then
:Output(1,1,"94 PU LIJST 12PLUTONIUM ATOOMMASSA: 244KOOKPUNT: 3600KSMELTPUNT: 9100KDICHTHEID: 19.9")
:Pause
:Goto 1
:Else
:If θ=AM:Then
:Output(1,1,"95 AM LIJST 13AMERICIUM ATOOMMASSA: 243KOOKPUNT: 2900KSMELTPUNT: 1400KDICHTHEID: 13.8")
:Pause
:Goto 1
:Else
:If θ=CM:Then
:Output(1,1,"96 CM LIJST 13CURIUM ATOOMMASSA: 247KOOKPUNT: 3400KSMELTPUNT: 1600KDICHTHEID: 13.5")
:Pause
:Goto 1
:Else
:If θ=BK:Then
:Output(1,1,"97 BK LIJST 13BERKELIUM ATOOMMASSA: 247KOOKPUNT: 2900KSMELTPUNT: 1300KDICHTHEID: 14.8")
:Pause
:Goto 1
:Else
:If θ=CF:Then
:Output(1,1,"98 CF LIJST 13CALIFORNIUM ATOOMMASSA: 251KOOKPUNT: 1700KSMELTPUNT: 1200KDICHTHEID: 9.3")
:Pause
:Goto 1
:Else
:If θ=ES:Then
:Output(1,1,"99 ES LIJST 13EINSTEINIUM ATOOMMASSA: 252KOOKPUNT: 1800KSMELTPUNT: 1100KDICHTHEID: 8.8")
:Pause
:Goto 1
:Else
:If θ=FM:Then
:Output(1,1,"100 FM LIJST 13FERMIUM ATOOMMASSA: 257KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=MD:Then
:Output(1,1,"101 MD LIJST 14MENDELEVIUM ATOOMMASSA: 257KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=NO:Then
:Output(1,1,"102 NO LIJST 14NOBELLIUM ATOOMMASSA: 255KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=LR:Then
:Output(1,1,"103 LR LIJST 14LAWRENCIUM ATOOMMASSA: 257KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=RF:Then
:Output(1,1,"104 RF LIJST 14RUTHERFORDIUM ATOOMMASSA: 259KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=DB:Then
:Output(1,1,"105 DB LIJST 14DUBNIUM ATOOMMASSA: 262KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=SG:Then
:Output(1,1,"106 SG LIJST 15SEABORGIUM ATOOMMASSA: 263KOOKPUNT: -SMELTPUNT" -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=BH:Then
:Output(1,1,"107 BH LIJST 15BOHRIUM ATOOMMASSA: 264KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=HS:Then
:Output(1,1,"108 HS LIJST 15HASSIUM ATOOMMASSA: 265KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=MT:Then
:Output(1,1,"109 MT LIJST 15MEITNERIUM ATOOMMASSA: 268KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=DS:Then
:Output(1,1,"110 DS LIJST 15DARMSTADTIUM ATOOMMASSA: 271KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:Else
:If θ=RG:Then
:Output(1,1,"111 RG LIJST 15ROENTGENIUM ATOOMMASSA: 272KOOKPUNT: -SMELTPUNT: -DICHTHEID: -")
:Pause
:Goto 1
:End
:
:
:Lbl 5
:Input "LIJST:",L
:If L=1:Then
:Output(1,1,"1 H WATERSTOF 2 HE HELIUM 3 LI LITHIUM 4 BE BERYLLIUM 5 B BOOR 6 C KOOLSTOF 7 N STIKSTOF 8 O ZUURSTOF ")
:Pause
:Goto 1
:Else
:If L=2:Then
:Output(1,1,"9 F FLUOR 10 NE NEON 11 NA NATRIUM 12 MG MAGNESIUM 13 AL ALUMINIUM 14 SI SILICIUM 15 P FOSFOR 16 S ZWAVEL ")
:Pause
:Goto 1
:Else
:If L=3:Then
:Output(1,1,"17 CL CHLOOR 18 AR ARGON 19 K KALIUM 20 CA CALCIUM 21 SC SCANDIUM 22 TI TITAAN 23 V VANADIUM 24 CR CHROOM ")
:Pause
:Goto 1
:Else
:If L=4:Then
:Output(1,1,"25 MN MANGAAN 26 FE IJZER 27 CO COBALT 28 NI NIKKEL 29 CU KOPER 30 ZN ZINK 31 GA GALLIUM 32 GE GERMANIUM ")
:Pause
:Goto 1
:Else
:If L=5:Then
:Output(1,1,"33 AS ARSEEN 34 SE SELEEN 35 BR BROOM 36 KR KRYPTON 37 RB RUBIDUM 38 SR STRONTIUM 39 Y YTTRIUM 40 ZR ZIRKONIUM ")
:Pause
:Goto 1
:Else
:If L=6:Then
:Output(1,1,"41 NB NIOBIUM 42 MO MOLYBDEEN 43 TC TECHNETIUM44 RU RUTHENIUM 45 RH RHODIUM 46 PD PALLADIUM 47 AG ZILVER 48 CD CADMIUM ")
:Pause
:Goto 1
:Else
:If L=7:Then
:Output(1,1,"49 IN INDIUM 50 SN TIN 51 SB ANTIMOON 52 TE TELLUUR 53 I JOOD 54 XE XENON 55 CS CESIUM 56 BA BARIUM ")
:Pause
:Goto 1
:Else
:If L=8:Then
:Output(1,1,"57 LA LANTHAAN 58 CE CERIUM 59 PR PRASEODYMIUM 60 ND NEODYMIUM 61 PM PROMETHIUM62 SM SAMARIUM 63 EU EUROPIUM ")
:Pause
:Goto 1
:Else
:If L=9:Then
:Output(1,1,"64 GD GADOLINIUM65 TB TERBIUM 66 DY DYSPROSIUM67 HO HOLMIUM 68 ER ERBIUM 69 TM THULIUM 70 YB YTTERBIUM 71 LU LUTETIUM ")
:Pause
:Goto 1
:Else
:If L=10:Then
:Output(1,1,"72 HF HAFNIUM 73 TA TANTAAL 74 W WOLFRAAM 75 RE RENIUM 76 OS OSMIUM 77 IR IRIDIUM 78 PT PLATINA 79 AU GOUD ")
:Pause
:Goto 1
:Else
:If L=11:Then
:Output(1,1,"80 HG KWIK 81 TL THALLIUM 82 PB LOOD 83 BI BISMUT 84 PO POLONIUM 85 AT ASTAAT 86 RN RADON 87 FR FRANCIUM ")
:Pause
:Goto 1
:Else
:If L=12:Then
:Output(1,1,"88 RA RADIUM 89 AC ACTINIUM 90 TH THORIUM 91 PA PROTACTINIUM 92 U URAAN 93 NP NEPTUNIUM 94 PU PLUTONIUM ")
:Pause
:Goto 1
:Else
:If L=13:Then
:Output(1,1,"95 AM AMERICIUM 96 CM CURIUM 97 BK BERKELIUM 98 CF CALIFORNIUM 99 ES EINSTEINIUM 100 FM FERMIUM ")
:Pause
:Goto 1
:Else
:If L=14:Then
:Output(1,1,"101 MD MENDELEVIUM 102 NO NOBELIUM 103 LR LAWRENCIUM 104 RF RUTHERFORDIUM 105 DB DUBNIUM ")
:Pause
:Goto 1
:Else
:If L=15:Then
:Output(1,1,"106 SB SEABORGIU107 BH BOHRIUM 108 HS HASSIUM 109 MT MEITNERIU110 DS DARMSTADTIUM 111 RG ROENTGENIUM")
:Pause
:Goto 1
:
:Lbl 4
:0→A:0→B:0→C:0→D:0→E:0→F:0→G:0→H:0→I:0→J:0→K:0→L:0→M:0→N:0→O:0→P:0→Q:0→R:0→S:0→T:0→U:0→V:0→W:0→X:0→Y:0→Z:0→θ
:Stop