Author Topic: Common Ion Table  (Read 5299 times)

0 Members and 1 Guest are viewing this topic.

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Common Ion Table
« on: November 26, 2010, 03:21:40 pm »
I've created an Ion Table for School Chemistry instead of using another one, made by Andre Aparicio.


Anyways, I haven't added negative ions yet, only 2 :P

It was made in TI-Basic, using mainly the Menu( function for the interface and Text( to display ions.
If you can, translate it to your language, since I allow it, in fact, I ask you to do it, and then just change the About (Sobre) to "Programmed by: David G./Translated by:yourname".

@aeTIos I said you could make your own ducht version of it when I finished it. You still can, but I decided to use TI Basic instead of Axe, but the code is very simple, you can still use it.

Original Code:

Code: [Select]
:Lbl 0
:ClrHome
:ClrDraw
:AxesOff
:Menu(" TABELA DE IOES  ","IOES POSITIVOS",1,"IOES NEGATIVOS",2,"SOBRE",3,"SAIR",4
:Lbl 3
:ClrDraw
:ClrHome
:Output(1,1,"PROGRAMADO POR:
:Output(2,1,"DAVID G.
:Pause
:Goto 0
:Lbl 4
:ClrDraw
:ClrHome
:AxesOn
:Stop
:Goto 0
:Lbl 1
:Menu(" IOES POSITIVOS ","PAGINA 1",5,"PAGINA 2",6,"PAGINA 3",7,"PAGINA 4",8,"MENU PRINCIPAL",9
:Lbl 5
:ClrDraw
:ClrHome
:Text(0,0,"Aluminio      Al(3+)
:Text(7,0,"Amonio        NH4(+)
:Text(14,0,"Bario        Ba(2+)
:Text(21,0,"Calci        Ca(2+)
:Text(28,0,"Chumbo       Pb(2+)
:Text(35,0,"Cobalto(II)  Co(2+)
:Text(42,0,"Cobalto(III) Co(3+)
:Text(49,0,"Cobre (I)    Cu(+)
:Text(56,0,"Cobre(II)    Cu(2+)
:Pause
:Goto 1
:Lbl 6
:ClrDraw
:ClrHome
:Text(0,0,"Cromio(III)   Cr(3+)
:Text(7,0,"Estanho(II)   Sn(2+)
:Text(14,0,"Estanho(IV)  Sn(4+)
:Text(21,0,"Estroncio    Sr(2+)
:Text(28,0,"Ferro        Fe(2+)
:Text(35,0,"Ferro        Fe(3+)
:Text(42,0,"Hidrogenio   H(+)
:Text(49,0,"Hidronio     H3O(+)
:Text(56,0,"Litio        Li(+)
:Pause
:Goto 1
:Lbl 7
:ClrDraw
:ClrHome
:Text(0,0,"Magnesio      Mg(2+)
:Text(7,0,"Manganesio(II)  Mn(2+)
:Text(14,0,"Manganesio(III)  Mn(3+)
:Text(21,0,"Mercurio(II)  Hg(2+)
:Text(28,0,"Niquel(II)   Ni(2+)
:Text(35,0,"Niquel(III)  Ni(3+)
:Text(42,0,"Ouro(I)      Au(+)
:Text(49,0,"Ouro(III)    Au(3+)
:Text(56,0,"Platina(II)   Pt(2+)
:Pause
:Goto 1
:Lbl 8
:ClrDraw
:ClrHome
:Text(0,0,"Potassio      K(+)
:Text(7,0,"Prata         Ag(+)
:Text(14,0,"Sodio        Na(+)
:Text(21,0,"Zinco        Zn(2+)
:Pause
:Goto 1
:Lbl 9
:Goto 0
:Lbl 2
:Menu(" IOES NEGATIVOS ","PAGINA 1",10,"PAGINA 2",11,"PAGINA 3",12,"PAGINA 4",13,"MENU PRINCIPAL",14
:Lbl 14
:Goto 0
:Lbl 10
:ClrDraw
:ClrHome
:Text(0,0,"Acetato       CH3CO2({-})
:Text(7,0,"Brometo       Br({-})
:Pause
:Goto 2
:Lbl 11
:ClrDraw
:ClrHome
:Text(0,0,"PAGINA 2
:Pause
:Goto 2
:Lbl 12
:ClrDraw
:ClrHome
:Text(0,0,"PAGINA 3
:Pause
:Goto 2
:Lbl 13
:ClrDraw
:ClrHome
:Text(0,0,"PAGINA 4
:Pause
:Goto 2
:Lbl 14
:Goto 2

SourceCoder optimized version (not THAT trustful for me)
Spoiler For Spoiler:
Optimized from 1623 bytes to 1580 bytes, saving 43 bytes or 2.7% of the original size.
Code: [Select]
:Lbl 0
:ClrHome
:ClrDraw
:AxesOff
:Menu(" TABELA DE IOES  ","IOES POSITIVOS",1,"IOES NEGATIVOS",2,"SOBRE",3,"SAIR",4
:Lbl 3
:ClrDraw
:ClrHome
:Output(1,1,"PROGRAMADO POR:
:Output(2,1,"DAVID G.
:Pause
:Goto 0
:Lbl 4
:ClrDraw
:ClrHome
:AxesOn
:Return
:Goto 0
:Lbl 1
:Menu(" IOES POSITIVOS ","PAGINA 1",5,"PAGINA 2",6,"PAGINA 3",7,"PAGINA 4",8,"MENU PRINCIPAL",9
:Lbl 5
:ClrDraw
:ClrHome
:Text(0,0,"Aluminio      Al(3+
:Text(7,0,"Amonio        NH4(+
:Text(14,0,"Bario        Ba(2+
:Text(21,0,"Calci        Ca(2+
:Text(28,0,"Chumbo       Pb(2+
:Text(35,0,"Cobalto(II)  Co(2+
:Text(42,0,"Cobalto(III) Co(3+
:Text(49,0,"Cobre (I)    Cu(+
:Text(56,0,"Cobre(II)    Cu(2+
:Pause
:Goto 1
:Lbl 6
:ClrDraw
:ClrHome
:Text(0,0,"Cromio(III)   Cr(3+
:Text(7,0,"Estanho(II)   Sn(2+
:Text(14,0,"Estanho(IV)  Sn(4+
:Text(21,0,"Estroncio    Sr(2+
:Text(28,0,"Ferro        Fe(2+
:Text(35,0,"Ferro        Fe(3+
:Text(42,0,"Hidrogenio   H(+
:Text(49,0,"Hidronio     H3O(+
:Text(56,0,"Litio        Li(+
:Pause
:Goto 1
:Lbl 7
:ClrDraw
:ClrHome
:Text(0,0,"Magnesio      Mg(2+
:Text(7,0,"Manganesio(II)  Mn(2+
:Text(14,0,"Manganesio(III)  Mn(3+
:Text(21,0,"Mercurio(II)  Hg(2+
:Text(28,0,"Niquel(II)   Ni(2+
:Text(35,0,"Niquel(III)  Ni(3+
:Text(42,0,"Ouro(I)      Au(+
:Text(49,0,"Ouro(III)    Au(3+
:Text(56,0,"Platina(II)   Pt(2+
:Pause
:Goto 1
:Lbl 8
:ClrDraw
:ClrHome
:Text(0,0,"Potassio      K(+
:Text(7,0,"Prata         Ag(+
:Text(14,0,"Sodio        Na(+
:Text(21,0,"Zinco        Zn(2+
:Pause
:Goto 1
:Lbl 9
:Goto 0
:Lbl 2
:Menu(" IOES NEGATIVOS ","PAGINA 1",10,"PAGINA 2",11,"PAGINA 3",12,"PAGINA 4",13,"MENU PRINCIPAL",14
:Lbl 14
:Goto 0
:Lbl 10
:ClrDraw
:ClrHome
:Text(0,0,"Acetato       CH3CO2({-}
:Text(7,0,"Brometo       Br({-}
:Pause
:Goto 2
:Lbl 11
:ClrDraw
:ClrHome
:Text(0,0,"PAGINA 2
:Pause
:Goto 2
:Lbl 12
:ClrDraw
:ClrHome
:Text(0,0,"PAGINA 3
:Pause
:Goto 2
:Lbl 13
:ClrDraw
:ClrHome
:Text(0,0,"PAGINA 4
:Pause
:Goto 2
:Lbl 14
:Goto 2

Screenie and Download of this Half Version attached.
« Last Edit: November 26, 2010, 03:22:31 pm by ScoutDavid »

Offline nemo

  • LV9 Veteran (Next: 1337)
  • *********
  • Posts: 1203
  • Rating: +95/-11
    • View Profile
Re: Common Ion Table
« Reply #1 on: November 26, 2010, 03:32:30 pm »
your teacher makes you memorize all of these?

my teacher taught us how to extract them off the periodic table.

also: some optimization:

Code: [Select]
:Text(0,0,"Alumnio      Al(3+)
:Text(7,0,"Amonio        NH4(+)
:Text(14,0,"Bario        Ba(2+)
:Text(21,0,"Calci        Ca(2+)
:Text(28,0,"Chumbo       Pb(2+)
:Text(35,0,"Cobalto(II)  Co(2+)
:Text(42,0,"Cobalto(III) Co(3+)
:Text(49,0,"Cobre (I)    Cu(+)
:Text(56,0,"Cobre(II)    Cu(2+)
to
Code: [Select]
For(Z,0,56,7
Text(Z,0,sub("Aluminio      Al(3+)   Amonio       NH4(+) Bario          Ba(2+) Calci          Ca(2+) Chumbo      Pb(2+)Cobalto(II)  Co(2+)Cobalto(III) Co(3+)Cobre (I)     Cu(+)Cobre(II)     Cu(2+)",Z/7*[size of each substring],[size of each substring]
End
« Last Edit: November 26, 2010, 03:38:53 pm by nemo »


Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Common Ion Table
« Reply #2 on: November 26, 2010, 03:51:18 pm »
technically, you could make one with an algorithm instead of brute datat.  ;)

 something like this:
Code: [Select]
:ClrHome
:Input "Group Number", N
:iPart(N->N
:If N>=3 and N<=12
:Then
:Input "Number of Valence e-",V
:Disp V
:Else
:N-2N(N!=1 and N!=2)

yeah, I think thats about it.  ;)
« Last Edit: November 26, 2010, 03:52:04 pm by yunhua98 »

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Common Ion Table
« Reply #3 on: November 26, 2010, 05:26:50 pm »
Thanks much all of them, especially this:

Code: [Select]
For(Z,0,56,7
Text(Z,0,sub("Aluminio      Al(3+)   Amonio       NH4(+) Bario          Ba(2+) Calci          Ca(2+) Chumbo      Pb(2+)Cobalto(II)  Co(2+)Cobalto(III) Co(3+)Cobre (I)     Cu(+)Cobre(II)     Cu(2+)",Z/7*[size of each substring],[size of each substring]
End

Offline jnesselr

  • King Graphmastur
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2270
  • Rating: +81/-20
  • TAO == epic
    • View Profile
Re: Common Ion Table
« Reply #4 on: November 26, 2010, 05:46:11 pm »
I just memorized all of them.  I found flash cards really helped.  I like those optimizations, nemo.

Also, good call for those transition elements, yunhua98. I wouldn't have thought of that.

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Common Ion Table
« Reply #5 on: November 26, 2010, 05:47:26 pm »
I just memorized all of them.  I found flash cards really helped.  I like those optimizations, nemo.

Also, good call for those transition elements, yunhua98. I wouldn't have thought of that.

Wha-a-a-a-a-a-a-a-t? Memorize-e-e-ed?

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Common Ion Table
« Reply #6 on: November 26, 2010, 05:47:36 pm »
I just memorized all of them.  I found flash cards really helped.  I like those optimizations, nemo.

Also, good call for those transition elements, yunhua98. I wouldn't have thought of that.
yeah, thanks, I had that taught me the hard way, those transition elements.  XD

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

ASHBAD_ALVIN

  • Guest
Re: Common Ion Table
« Reply #7 on: November 26, 2010, 05:48:57 pm »
well, if you want to see extreme memorization, talk to xeda to crank out some asm hex code ;)

and there's pages/100s of those.
« Last Edit: November 26, 2010, 05:49:08 pm by ASHBAD_ALVIN »

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Common Ion Table
« Reply #8 on: November 26, 2010, 05:51:11 pm »
well, if you want to see extreme memorization, talk to xeda to crank out some asm hex code ;)

and there's pages/100s of those.

I know, he makes games in HEX, which is incredibly weird
« Last Edit: November 26, 2010, 05:51:21 pm by ScoutDavid »

Offline yunhua98

  • You won't this read sentence right.
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2718
  • Rating: +214/-12
  • Go take a dive in the River Lethe.
    • View Profile
Re: Common Ion Table
« Reply #9 on: November 26, 2010, 05:51:26 pm »
oh, yeah, I still can't see how he does that, Photographic Memory?  :o

Spoiler For =====My Projects=====:
Minor setback due to code messing up.  On hold for Contest.
<hr>
On hold for Contest.


Spoiler For ===Staff Memberships===:






Have you seen any good news-worthy programs/events?  If so, PM me with an article to be included in the next issue of CGPN!
The Game is only a demo, the code that allows one to win hasn't been done.
To paraphrase Oedipus, Hamlet, Lear, and all those guys, "I wish I had known this some time ago."
Signature Last Updated: 12/26/11
<hr>

Offline calcdude84se

  • Needs Motivation
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2272
  • Rating: +78/-13
  • Wondering where their free time went...
    • View Profile
Re: Common Ion Table
« Reply #10 on: November 26, 2010, 07:10:17 pm »
He said that he was probably a "highly functioning autistic" somewhere or other.
"People think computers will keep them from making mistakes. They're wrong. With computers you make mistakes faster."
-Adam Osborne
Spoiler For "PartesOS links":
I'll put it online when it does something.

Offline jnesselr

  • King Graphmastur
  • LV11 Super Veteran (Next: 3000)
  • ***********
  • Posts: 2270
  • Rating: +81/-20
  • TAO == epic
    • View Profile
Re: Common Ion Table
« Reply #11 on: November 26, 2010, 11:02:26 pm »
I just memorized all of them.  I found flash cards really helped.  I like those optimizations, nemo.

Also, good call for those transition elements, yunhua98. I wouldn't have thought of that.

Wha-a-a-a-a-a-a-a-t? Memorize-e-e-ed?
Yeah, for those times when you're stranded in a desert trying to make crystals using the HCL in your stomach, and that Sodium hydroxide you happened to bring along to make salt and water!

Offline AngelFish

  • Is this my custom title?
  • Administrator
  • LV12 Extreme Poster (Next: 5000)
  • ************
  • Posts: 3242
  • Rating: +270/-27
  • I'm a Fishbot
    • View Profile
Re: Common Ion Table
« Reply #12 on: November 27, 2010, 12:58:09 am »
I've created an Ion Table for School Chemistry instead of using another one, made by Andre Aparicio.


Anyways, I haven't added negative ions yet, only 2 :P

It was made in TI-Basic, using mainly the Menu( function for the interface and Text( to display ions.
If you can, translate it to your language, since I allow it, in fact, I ask you to do it, and then just change the About (Sobre) to "Programmed by: David G./Translated by:yourname".

@aeTIos I said you could make your own ducht version of it when I finished it. You still can, but I decided to use TI Basic instead of Axe, but the code is very simple, you can still use it.

I was bored, so I translated it to English and added just a few Anions ;)

Hope it's okay

« Last Edit: November 27, 2010, 01:01:50 am by Qwerty.55 »
∂²Ψ    -(2m(V(x)-E)Ψ
---  = -------------
∂x²        ℏ²Ψ

SirCmpwn

  • Guest
Re: Common Ion Table
« Reply #13 on: November 27, 2010, 05:56:11 am »
Translated to bleep bloop:
Code: [Select]
:Lbl 0
:ClrHome
:ClrDraw
:AxesOff
:Menu(" BLEEP BLOOP BLEEP BLOOP BLEEP BLOOP  ","BLEEP BLOOP BLEEP BLOOP",1,"BLEEP BLOOP BLEEP BLOOP",2,"BLEEP BLOOP",3,"BLEEP BLOOP",4
:Lbl 3
:ClrDraw
:ClrHome
:Output(1,1,"BLEEP BLOOP:
:Output(2,1,"DAVID G.
:Output(3,1,"BLEEP BLOOP:
:Output(4,1,"Drew DeVault
:Pause
:Goto 0
:Lbl 4
:ClrDraw
:ClrHome
:AxesOn
:Stop
:Goto 0
:Lbl 1
:Menu(" BLEEP BLOOP BLEEP BLOOP ","BLEEP BLOOP 1",5,"BLEEP BLOOP 2",6,"BLEEP BLOOP 3",7,"BLEEP BLOOP 4",8,"BLEEP BLOOP BLEEP BLOOP",9
:Lbl 5
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP      Al(3+)
:Text(7,0,"BLEEP BLOOP        NH4(+)
:Text(14,0,"BLEEP BLOOP        Ba(2+)
:Text(21,0,"BLEEP BLOOP        Ca(2+)
:Text(28,0,"BLEEP BLOOP       Pb(2+)
:Text(35,0,"BLEEP BLOOP(II)  Co(2+)
:Text(42,0,"BLEEP BLOOP(III) Co(3+)
:Text(49,0,"BLEEP BLOOP(I)    Cu(+)
:Text(56,0,"BLEEP BLOOP(II)    Cu(2+)
:Pause
:Goto 1
:Lbl 6
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP(III)   Cr(3+)
:Text(7,0,"BLEEP BLOOP(II)   Sn(2+)
:Text(14,0,"BLEEP BLOOP(IV)  Sn(4+)
:Text(21,0,"BLEEP BLOOP    Sr(2+)
:Text(28,0,"BLEEP BLOOP        Fe(2+)
:Text(35,0,"BLEEP BLOOP        Fe(3+)
:Text(42,0,"BLEEP BLOOP   H(+)
:Text(49,0,"BLEEP BLOOP     H3O(+)
:Text(56,0,"BLEEP BLOOP        Li(+)
:Pause
:Goto 1
:Lbl 7
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP      Mg(2+)
:Text(7,0,"BLEEP BLOOP(II)  Mn(2+)
:Text(14,0,"BLEEP BLOOP(III)  Mn(3+)
:Text(21,0,"BLEEP BLOOP(II)  Hg(2+)
:Text(28,0,"BLEEP BLOOP(II)   Ni(2+)
:Text(35,0,"BLEEP BLOOP(III)  Ni(3+)
:Text(42,0,"BLEEP BLOOP(I)      Au(+)
:Text(49,0,"BLEEP BLOOP(III)    Au(3+)
:Text(56,0,"BLEEP BLOOP(II)   Pt(2+)
:Pause
:Goto 1
:Lbl 8
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP      K(+)
:Text(7,0,"BLEEP BLOOP         Ag(+)
:Text(14,0,"BLEEP BLOOP        Na(+)
:Text(21,0,"BLEEP BLOOP        Zn(2+)
:Pause
:Goto 1
:Lbl 9
:Goto 0
:Lbl 2
:Menu(" BLEEP BLOOP BLEEP BLOOP ","BLEEP BLOOP1",10,"BLEEP BLOOP2",11,"BLEEP BLOOP3",12,"BLEEP BLOOP4",13,"BLEEP BLOOP BLEEP BLOOP",14
:Lbl 14
:Goto 0
:Lbl 10
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP       CH3CO2({-})
:Text(7,0,"BLEEP BLOOP       Br({-})
:Pause
:Goto 2
:Lbl 11
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP 2
:Pause
:Goto 2
:Lbl 12
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP 3
:Pause
:Goto 2
:Lbl 13
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP 4
:Pause
:Goto 2
:Lbl 14
:Goto 2

Offline Munchor

  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 6199
  • Rating: +295/-121
  • Code Recycler
    • View Profile
Re: Common Ion Table
« Reply #14 on: November 27, 2010, 06:42:16 am »


This looks very good! Nice job, today I'll add the anions too in the PT Version of it.

Also, thanks SirCmpwn for translating to a globally understood language, BLeep Bloop:

Code: [Select]
:Lbl 0
:ClrHome
:ClrDraw
:AxesOff
:Menu(" BLEEP BLOOP BLEEP BLOOP BLEEP BLOOP  ","BLEEP BLOOP BLEEP BLOOP",1,"BLEEP BLOOP BLEEP BLOOP",2,"BLEEP BLOOP",3,"BLEEP BLOOP",4
:Lbl 3
:ClrDraw
:ClrHome
:Output(1,1,"BLEEP BLOOP:
:Output(2,1,"DAVID G.
:Output(3,1,"BLEEP BLOOP:
:Output(4,1,"Drew DeVault
:Pause
:Goto 0
:Lbl 4
:ClrDraw
:ClrHome
:AxesOn
:Stop
:Goto 0
:Lbl 1
:Menu(" BLEEP BLOOP BLEEP BLOOP ","BLEEP BLOOP 1",5,"BLEEP BLOOP 2",6,"BLEEP BLOOP 3",7,"BLEEP BLOOP 4",8,"BLEEP BLOOP BLEEP BLOOP",9
:Lbl 5
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP      Al(3+)
:Text(7,0,"BLEEP BLOOP        NH4(+)
:Text(14,0,"BLEEP BLOOP        Ba(2+)
:Text(21,0,"BLEEP BLOOP        Ca(2+)
:Text(28,0,"BLEEP BLOOP       Pb(2+)
:Text(35,0,"BLEEP BLOOP(II)  Co(2+)
:Text(42,0,"BLEEP BLOOP(III) Co(3+)
:Text(49,0,"BLEEP BLOOP(I)    Cu(+)
:Text(56,0,"BLEEP BLOOP(II)    Cu(2+)
:Pause
:Goto 1
:Lbl 6
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP(III)   Cr(3+)
:Text(7,0,"BLEEP BLOOP(II)   Sn(2+)
:Text(14,0,"BLEEP BLOOP(IV)  Sn(4+)
:Text(21,0,"BLEEP BLOOP    Sr(2+)
:Text(28,0,"BLEEP BLOOP        Fe(2+)
:Text(35,0,"BLEEP BLOOP        Fe(3+)
:Text(42,0,"BLEEP BLOOP   H(+)
:Text(49,0,"BLEEP BLOOP     H3O(+)
:Text(56,0,"BLEEP BLOOP        Li(+)
:Pause
:Goto 1
:Lbl 7
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP      Mg(2+)
:Text(7,0,"BLEEP BLOOP(II)  Mn(2+)
:Text(14,0,"BLEEP BLOOP(III)  Mn(3+)
:Text(21,0,"BLEEP BLOOP(II)  Hg(2+)
:Text(28,0,"BLEEP BLOOP(II)   Ni(2+)
:Text(35,0,"BLEEP BLOOP(III)  Ni(3+)
:Text(42,0,"BLEEP BLOOP(I)      Au(+)
:Text(49,0,"BLEEP BLOOP(III)    Au(3+)
:Text(56,0,"BLEEP BLOOP(II)   Pt(2+)
:Pause
:Goto 1
:Lbl 8
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP      K(+)
:Text(7,0,"BLEEP BLOOP         Ag(+)
:Text(14,0,"BLEEP BLOOP        Na(+)
:Text(21,0,"BLEEP BLOOP        Zn(2+)
:Pause
:Goto 1
:Lbl 9
:Goto 0
:Lbl 2
:Menu(" BLEEP BLOOP BLEEP BLOOP ","BLEEP BLOOP1",10,"BLEEP BLOOP2",11,"BLEEP BLOOP3",12,"BLEEP BLOOP4",13,"BLEEP BLOOP BLEEP BLOOP",14
:Lbl 14
:Goto 0
:Lbl 10
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP       CH3CO2({-})
:Text(7,0,"BLEEP BLOOP       Br({-})
:Pause
:Goto 2
:Lbl 11
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP 2
:Pause
:Goto 2
:Lbl 12
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP 3
:Pause
:Goto 2
:Lbl 13
:ClrDraw
:ClrHome
:Text(0,0,"BLEEP BLOOP 4
:Pause
:Goto 2
:Lbl 14
:Goto 2[/quote]

This is a very easy to understand code, I think