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,"ATOOMNUMMERFUNCTIENIETBESCHIKBAAR!")
: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,"1H     LIJST 1WATERSTOF    ATOOMMASSA:           1.008KOOKPUNT:20.3KSMELTPUNT:14KDICHTHEID:                8.4E-5")
:Pause
:Goto 1
:Else
:If θ=HE:Then
:Output(1,1,"2HE    LIJST 1HELIUM     ATOOMMASSA:           4.003KOOKPUNT:4.2KSMELTPUNT: 1.5KDICHTHEID:                1.7E-4")
:Pause
:Goto 1
:Else
:If θ=LI:Then
:Output(1,1,"3LI     LIJST 1LITHIUM     ATOOMMASSA: 6.941KOOKPUNT:1615KSMELTPUNT:454KDICHTHEID:                  0.53")
:Pause
:Goto 1
:Else
:If θ=BE:Then
:Output(1,1,"4BE    LIJST 1BERYLLIUM     ATOOMMASSA: 9.012KOOKPUNT: 2744KSMELTPUNT: 1560KDICHTHEID:                  1.85")
:Pause
:Goto 1
:Else
:If θ=B:Then           
:Output(1,1,"5B     LIJST 1BOOR            ATOOMMASSA: 10.81KOOKPUNT:4273KSMELTPUNT: 2348KDICHTHEID:                   2.4")
:Pause
:Goto 1
:Else
:If θ=C:Then           
:Output(1,1,"6C     LIJST 1KOOLSTOF    ATOOMMASSA:   12.01KOOKPUNT:4098KSMELTPUNT:3823KDICHTHEID:                   2.1")
:Pause
:Goto 1
:Else
:If θ=N:Then
:Output(1,1,"7N      LIJST 1STIKSTOF    ATOOMMASSA:  14.01KOOKPUNT: 77KSMELTPUNT:   63KDICHTHEID:               1.17E-3")
:Pause
:Goto 1
:Else
:If θ=O:Then
:Output(1,1,"8O     LIJST 1ZUURSTOF    ATOOMMASSA:16.00KOOKPUNT: 90KSMELTPUNT: 54KDICHTHEID:               1.33E-3")
:Pause
:Goto 1
:Else
:If θ=F:Then
:Output(1,1,"9F     LIJST 2FLUOR    ATOOMMASSA:19.00KOOKPUNT: 85KSMELTPUNT:   54KDICHTHEID:               1.58E-3")
:Pause
:Goto 1
:Else
:If θ=NE:Then
:Output(1,1,"10NE   LIJST 2NEON      ATOOMMASSA:20.18KOOKPUNT:27KSMELTPUNT:25KDICHTHEID:                8.4E-4")
:Pause
:Goto 1
:Else
:If θ=NA:Then
:Output(1,1,"11NA   LIJST 2NATRIUM       ATOOMMASSA:22.99KOOKPUNT:1156KSMELTPUNT:371KDICHTHEID:                  0.97")
:Pause
:Goto 1
:Else
:If θ=MG:Then
:Output(1,1,"12MG   LIJST 2MAGNESIUM      ATOOMMASSA:24.31KOOKPUNT:1363KSMELTPUNT: 923KDICHTHEID:                  1.74")
:Pause
:Goto 1
:Else
:If θ=AL:Then
:Output(1,1,"13AL   LIJST 2ALUMINIUM      ATOOMMASSA:26.98KOOKPUNT:2792KSMELTPUNT:933KDICHTHEID:                  2.70")
:Pause
:Goto 1
:Else
:If θ=SI:Then
:Output(1,1,"14SI   LIJST 2SILICIUM      ATOOMMASSA:28.09KOOKPUNT:3538KSMELTPUNT:1687KDICHTHEID:                   2.4")
:Pause
:Goto 1
:Else
:If θ=P:Then
:Output(1,1,"15P    LIJST 2FOSFOR     ATOOMMASSA:30.97KOOKPUNT:  554KSMELTPUNT: 317KDICHTHEID:                  1.82")
:Pause
:Goto 1
:Else
:If θ=S:Then
:Output(1,1,"16S    LIJST 2ZWAVEL     ATOOMMASSA:32.06KOOKPUNT:718KSMELTPUNT:388KDICHTHEID:                  1.96")
:Pause
:Goto 1
:Else
:If θ=CL:Then
:Output(1,1,"17CL    LIJST 3CHLOOR      ATOOMMASSA:35.45KOOKPUNT: 239KSMELTPUNT:172KDICHTHEID:               2.99E-3")
:Pause
:Goto 1
:Else
:If θ=AR:Then
:Output(1,1,"18AR   LIJST 3ARGON      ATOOMMASSA:39.95KOOKPUNT:87KSMELTPUNT:   84KDICHTHEID:               1.66E-3")
:Pause
:Goto 1
:Else
:If θ=K:Then
:Output(1,1,"19K    LIJST 3KALIUM     ATOOMMASSA:39.10KOOKPUNT: 1032KSMELTPUNT: 336KDICHTHEID:                  0.86")
:Pause
:Goto 1
:Else
:If θ=CA:Then
:Output(1,1,"20CA   LIJST 3CALCIUM      ATOOMMASSA:40.08KOOKPUNT:1757KSMELTPUNT:1115KDICHTHEID:                  1.55")
:Pause
:Goto 1
:Else
:If θ=SC:Then
:Output(1,1,"21SC   LIJST 3SCANDIUM      ATOOMMASSA:44.96KOOKPUNT:3103KSMELTPUNT:1814KDICHTHEID:                  2.99")
:Pause
:Goto 1
:Else
:If θ=TI:Then
:Output(1,1,"22TI   LIJST 3TITAAN      ATOOMMASSA:47.90KOOKPUNT: 3560KSMELTPUNT: 1941KDICHTHEID:                  4.54")
:Pause
:Goto 1
:Else
:If θ=V:Then
:Output(1,1,"23V    LIJST 3VANADIUM     ATOOMMASSA:50.94KOOKPUNT:3680KSMELTPUNT: 2183KDICHTHEID:                   6.1")
:Pause
:Goto 1
:Else
:If θ=CR:Then
:Output(1,1,"24CR   LIJST 3CHROOM      ATOOMMASSA:52.00KOOKPUNT:2944KSMELTPUNT:2180KDICHTHEID:                  7.19")
:Pause
:Goto 1
:Else
:If θ=MN:Then
:Output(1,1,"25MN   LIJST 4MANGAAN      ATOOMMASSA:54.94KOOKPUNT:2334KSMELTPUNT:1519KDICHTHEID:                   7.3")
:Pause
:Goto 1
:Else
:If θ=FE:Then
:Output(1,1,"26FE    LIJST 4IJZER     ATOOMMASSA:55.85KOOKPUNT:3134KSMELTPUNT:1811KDICHTHEID:                  7.87")
:Pause
:Goto 1
:Else
:If θ=CO:Then
:Output(1,1,"27CO   LIJST 4KOBALT      ATOOMMASSA:58.93KOOKPUNT:3200KSMELTPUNT:1768KDICHTHEID:                   8.9")
:Pause
:Goto 1
:Else
:If θ=NI:Then
:Output(1,1,"28NI   LIJST 4NIKKEL      ATOOMMASSA:58.71KOOKPUNT:3186KSMELTPUNT:1728KDICHTHEID:                  8.90")
:Pause
:Goto 1
:Else
:If θ=CU:Then
:Output(1,1,"29CU   LIJST 4KOPER      ATOOMMASSA:63.55KOOKPUNT:2835KSMELTPUNT:1357KDICHTHEID:                  8.96")
:Pause
:Goto 1
:Else
:If θ=ZN:Then
:Output(1,1,"30ZN   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:2477KSMELTPUNT303KDICHTHEID:                   5.9")
:Pause
:Goto 1
:Else
:If θ=GE:Then
:Output(1,1,"32GE   LIJST 4GERMANIUM      ATOOMMASSA:72.59KOOKPUNT:3106KSMELTPUNT:1211KDICHTHEID:                   5.3")
:Pause
:Goto 1
:Else
:If θ=AS:Then
:Output(1,1,"33AS   LIJST 5ARSEEN      ATOOMMASSA:74.92KOOKPUNT:  1090KSMELTPUNT:  887KDICHTHEID:                   5.7")
:Pause
:Goto 1
:Else
:If θ=SE:Then
:Output(1,1,"34SE   LIJST 5SELEEN      ATOOMMASSA:78.96KOOKPUNT:958KSMELTPUNT:494KDICHTHEID:                  4.79")
:Pause
:Goto 1
:Else
:If θ=BR:Then
:Output(1,1,"35BR   LIJST 5BROOM      ATOOMMASSA:79.90KOOKPUNT:332KSMELTPUNT:226KDICHTHEID:                  3.12")
:Pause
:Goto 1
:Else
:If θ=KR:Then
:Output(1,1,"36KR   LIJST 5KRYPTON      ATOOMMASSA: 83.80KOOKPUNT:120KSMELTPUNT:116KDICHTHEID:               3.49E-3")
:Pause
:Goto 1
:Else
:If θ=RB:Then
:Output(1,1,"37RB   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,"1HWATERSTOF2HEHELIUM3LILITHIUM4BEBERYLLIUM5BBOOR6CKOOLSTOF7NSTIKSTOF8OZUURSTOF")
:Pause
:Goto 1
:Else
:If L=2:Then
:Output(1,1,"9FFLUOR10NENEON11NANATRIUM12MGMAGNESIUM13ALALUMINIUM14SISILICIUM15PFOSFOR16SZWAVEL")
:Pause
:Goto 1
:Else
:If L=3:Then
:Output(1,1,"17CLCHLOOR18ARARGON19KKALIUM20CACALCIUM21SCSCANDIUM22TITITAAN23VVANADIUM24CRCHROOM")
:Pause
:Goto 1
:Else
:If L=4:Then
:Output(1,1,"25MNMANGAAN26FEIJZER27COCOBALT28NINIKKEL29CUKOPER30ZNZINK31GAGALLIUM32GEGERMANIUM")
:Pause
:Goto 1
:Else
:If L=5:Then
:Output(1,1,"33ASARSEEN34SESELEEN35BRBROOM36KRKRYPTON37RBRUBIDUM38SRSTRONTIUM39YYTTRIUM40ZRZIRKONIUM")
:Pause
:Goto 1
:Else
:If L=6:Then
:Output(1,1,"41NBNIOBIUM42MOMOLYBDEEN43TCTECHNETIUM44RURUTHENIUM45RHRHODIUM46PDPALLADIUM47AGZILVER48CDCADMIUM")
:Pause
:Goto 1
:Else
:If L=7:Then
:Output(1,1,"49ININDIUM50SNTIN51SBANTIMOON52TETELLUUR53IJOOD54XEXENON55CSCESIUM56BABARIUM")
:Pause
:Goto 1
:Else
:If L=8:Then
:Output(1,1,"57LALANTHAAN58CECERIUM59PRPRASEODYMIUM60NDNEODYMIUM61PMPROMETHIUM62SMSAMARIUM63EUEUROPIUM")
:Pause
:Goto 1
:Else
:If L=9:Then
:Output(1,1,"64GDGADOLINIUM65TBTERBIUM66DYDYSPROSIUM67HOHOLMIUM68ERERBIUM69TMTHULIUM70YBYTTERBIUM71LULUTETIUM ")
:Pause
:Goto 1
:Else
:If L=10:Then
:Output(1,1,"72HFHAFNIUM73TATANTAAL74WWOLFRAAM75RERENIUM76OSOSMIUM77IRIRIDIUM78PTPLATINA79AUGOUD")
:Pause
:Goto 1
:Else
:If L=11:Then
:Output(1,1,"80HGKWIK81TLTHALLIUM82PBLOOD83BIBISMUT84POPOLONIUM85ATASTAAT86RNRADON87FRFRANCIUM")
:Pause
:Goto 1
:Else
:If L=12:Then
:Output(1,1,"88RARADIUM89ACACTINIUM90THTHORIUM91PAPROTACTINIUM92UURAAN93NPNEPTUNIUM94PUPLUTONIUM")
:Pause
:Goto 1
:Else
:If L=13:Then
:Output(1,1,"95AMAMERICIUM96CMCURIUM97BKBERKELIUM98CFCALIFORNIUM99ESEINSTEINIUM100FMFERMIUM")
:Pause
:Goto 1
:Else
:If L=14:Then
:Output(1,1,"101MDMENDELEVIUM102NONOBELIUM103LRLAWRENCIUM104RFRUTHERFORDIUM105DBDUBNIUM")
:Pause
:Goto 1
:Else
:If L=15:Then
:Output(1,1,"106SBSEABORGIU107BHBOHRIUM108HSHASSIUM109MTMEITNERIU110DSDARMSTADTIUM111RGROENTGENIUM")
: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 2X1 (with X an atomic number), as handled in the output section with the sub( command; explicitly, it takes Str2, jumps to position 2X1, 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