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:
: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
At the end of your program, after Lbl 4.

DelVar ADelVar B etc for all the variables, and remove the Stop, since the program would end after all the DelVar commands.

Also, your 'If θ=H/HE/LI etc will not work at all, you can't use strings in this manner. You need to utilize a Str variable. So if you choose Str5, it would look more like If Str5="H" and things like that. You might also get rid of the outputs and change them to something like

Disp "1 H","LIJST 1WATERSTOF","ATOOMMASSA:","1.008KOOKPUNT:","20.3KSMELTPUNT:","14KDICHTHEID:","8.4E-5

You might plug that into the first one and see if that gives you a look like you were looking for with the outputs.

Make those changes and get back with us on your results. Smile
It would be even better if you crammed all those strings into a string variable, then simply pulled out a substring based on which element was selected. Even better, have a delimited string for element names, a list for atomic weights, etc.
With Disp I can't use the lowest line.
Shouldn't there be a colon between DelVar A and DelVar B?
this is how it is now:
http://pastebin.com/TfJsm8MH

Edit by Kerm: Changed this one to a Pastebin.
As you know, I'm working hard to shrink this down. Right now I'm creating a formula to convert the element number to the list number. I'll post results soon.
KermMartian wrote:
It would be even better if you crammed all those strings into a string variable, then simply pulled out a substring based on which element was selected. Even better, have a delimited string for element names, a list for atomic weights, etc.


Was just trying to work him into his own program in small progressions, help him do his own work and help him understand what it was he was doing. Smile We'd have gotten to that part, eventually.
007901 wrote:
With Disp I can't use the lowest line.
Shouldn't there be a colon between DelVar A and DelVar B?
Nope, DelVar is a special command in that it doesn't need a colon afterwards before the next command begins. Also, I should note that your first program has a ton of memory leaks, which occur if you Goto out of an If/Then/End, For/End, While/End, or Repeat/End construct.
http://pastebin.com/raw.php?i=Y3SwG1kd

With the exclusion of LIJST and the inclusion of atomic number inputs, this imitates your program's interface down to the pixel. I won't spend an additional hour writing an essay on how it works, but I'll answer any questions in plenty of detail.

For instance, about the Repeat loop: there are three appearances of "RN" in Str2, but only one starts at an odd-numbered index; the other two are each composed of two halves of separate elements. The condition forces a landing at the correct position to derive the corresponding atomic number.

I then used a "feedback" loop that parses two major strings by playing-back the same commands but with two different inputs; in fact, I did this in two different places. The comma at the end of Str1 is not a typo. Hopefully these all hint at the fact that there is method to my madness. Maybe you can try your hand at one of the other methods used in the program to breathe new life into your LIJST section?
Quote:
Maybe you can try your hand at one of the other methods used in the program to breathe new life into your LIJST section?
I think I make the LIJST section a different program.

Code:
:Input "SYMBOOL:",Str3
:If 1=length(Str3
:Str3+" →Str3
:0
:Repeat fPart(.5Ans
:inString(Str2,Str3,Ans+1
:End
How can there be a 0 without command or something like that?

I think there will be more questions later, but I'll keep it short this time.
0 primes the Ans variable that gets used in the loop. (The calculator uses Ans to retain the value of the most recent operation which can be stored to any type of variable.) This allows me to use the line inString(Str2,Str3,Ans+1 repeatedly; the Ans+1 begins the search anew, starting at one point ahead of where it last landed (where the new point of arrival becomes the new Ans), and this will keep updating itself until the loop's requirement is met per the odd-index rule in my last post.

Code:
"H HELIBEB C N O F NENAMGALSIP S CLARK CASCTIV CRMNFECONICUZNGAGEASSEBRKRRBSRY ZRNBMOTCRURHPDAGCDINSNSBTEI XECSBALACEPRNDPMSMEUGDTBDYHOERTMYBLUHFTAW REOSIRPTAUHGTLPBBIPOATRNFRRAACTHPAU NPPUAMCMBKCFESFMMDNOLRRFDBSGBHHSMTDSRG→Str2
It's a lookup table where each entry is accessed via 2X–1 (with X an atomic number), as handled in the output section with the sub( command; explicitly, it takes Str2, jumps to position 2X–1, then extracts from there a string of length 2.

Per my last post, Str2 may also be hired to find X given an abbreviation (Str3).
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement