ioes.ticalc

:"Lista de Ioes
Goto A
Lbl Z
DelVar K
Apagar desenho
ClrHome
Output(1,1," 
Função Ligada 
Eixos Lig 
Stop
Lbl A
Função Desligada 
Eixos Deslig
Apagar desenho
Texto(­1,6,10,"Lista de Ioes
Texto(30,20,"Programado   por
Texto(40,22,"André  Aparício
Pause 
Lbl B
Apagar desenho
Texto(1,4,"+ Ioes Positivos (Catioes)"
Texto(7,14,"1 : Monopositivos
Texto(14,14,"2 : Dipositivos
Texto(21,14,"3 : Tripositivos
Texto(28,14,"4 : Outros
Texto(35,4,"- Ioes Negativos (Anioes)"
Texto(42,14,"5 : Mononegativos
Texto(49,14,"6 : Dinegativos
Texto(56,14,"7 : Outros
Lbl C
DelVar K
While não(K
codeTouch→K
End
If K=45 ou K=105
Then
Goto Z
End
If K=92
Then
Apagar desenho
Texto(1,1,"Amónio  :  NH4(+)"
Texto(7,1,"Lítio  :  Li(+)"
Texto(13,1,"Cobre (I)  :  Cu(+)"
Texto(19,1,"Ouro (I)  :  Au(+)"
Texto(25,1,"Hidrónio  :  H30(+)"
Texto(31,1,"Potássio  :  K(+)"
Texto(37,1,"Prata  :  Ag(+)"
Texto(43,1,"Sódio  :  Na(+)"
Texto(49,1,"Hidrogénio  : H(+)"
Pause 
Goto B
End
If K=93
Then
Apagar desenho
Texto(1,1,"Bário  :  Ba(2+)"
Texto(7,1,"Cádmio  :  Cd(2+)"
Texto(13,1,"Cálcio  :  Ca(2+)"
Texto(19,1,"Chumbo  :  Pb(2+)"
Texto(25,1,"Cobalto (II)  :  Co(2+)"
Texto(31,1,"Cobre (II)  :  Cu(2+)"
Texto(37,1,"Estanho (II)  :  Sn(2+)"
Texto(43,1,"Magnésio  :  Mg(2+)"
Texto(49,1,"Manganésio (II)  : Mn(2+)"
Texto(55,1,"Mercúrio (I)  : Hg2(2+)"
Pause 
Apagar desenho
Texto(1,1,"Mercúrio (II)  :  Hg(2+)"
Texto(7,1,"Níquel (II)  :  Ni(2+)"
Texto(13,1,"Platina (II)  :  Pt(2+)"
Texto(19,1,"EstrSx₁ncio  :  Sr(2+)"
Texto(25,1,"Ferro (II)  :  Fe(2+)"
Texto(31,1,"Zinco  :  Zn(2+)"
Pause 
Goto B
End
If K=94
Then
Apagar desenho
Texto(1,1,"Alumínio  :  Al(3+)"
Texto(7,1,"Cobalto (III)  :  Co(3+)"
Texto(13,1,"Bismuto  :  Bi(3+)"
Texto(19,1,"Manganésio (III)  :  Mn(3+)"
Texto(25,1,"Crómio (III)  :  Cr(3+)"
Texto(31,1,"Níquel (III)  :  Ni(3+)"
Texto(37,1,"Ouro (III)  :  Au(3+)"
Texto(43,1,"Ferro (III)  :  Fe(3+)"
Pause 
Goto B
End
If K=82
Then
Apagar desenho
Texto(1,1,"Estanho (IV)  :  Sn(4+)"
Texto(7,1,"Vanádio (V)  :  V(5+)"
Pause 
Goto B
End
If K=83
Then
Apagar desenho
Texto(1,1,"Acetato  :  CH3CO2­
Texto(7,1,"Brometo  :  Br­
Texto(13,1,"Hidrogenocarbonato : HCO3­
Texto(19,1,"Cianato  :  CNO­
Texto(25,1,"Tiocianato  :  SCN­
Texto(31,1,"Cianeto  :  CN­
Texto(37,1,"Cloreto  :  Cl­
Texto(43,1,"Hipoclorito  :  ClO­
Texto(49,1,"Clorito : ClO2­
Texto(55,1,"Clorato : ClO3­
Pause 
Apagar desenho
Texto(1,1,"Perclorato  :  ClO4­
Texto(7,1,"Fluoreto  :  F­
Texto(13,1,"Hidrogenodifluoreto  :  HF2­
Texto(19,1,"Hidreto  :  H­
Texto(25,1,"Hidróxido  :  OH­
Texto(31,1,"Iodeto  :  I­
Texto(37,1,"Triodeto  :  I3­
Texto(43,1,"Hipoiodito  :  IO­
Texto(49,1,"Iodato : IO3­
Texto(55,1,"Nitrato : NO3­
Pause 
Apagar desenho
Texto(1,1,"Nitrito  :  NO2­
Texto(7,1,"Hidrogenossulfato  :  HSO4­
Texto(13,1,"Hidrogenossulfito  :  HSO3­
Texto(19,1,"Hidrogenossulfureto : HS­
Pause 
Goto B
End
If K=84
Then
Apagar desenho
Texto(1,1,"Carbonato  :  CO3(2-)"
Texto(7,1,"Cromato  :  CrO4(2-)"
Texto(13,1,"Dicromato :  Cr2O7(2-)"
Texto(19,1,"Oxalato  :  C2O4(2-)"
Texto(25,1,"Peróxido :  O2(2-)"
Texto(31,1,"Oxido  :  O(2-)"
Texto(37,1,"Sulfato  :  SO4(2-)"
Texto(43,1,"Sulfito  :  SO3(2-)"
Texto(49,1,"Sulfureto  :  S(2-)"
Pause 
Goto B
End
If K=72
Then
Apagar desenho
Texto(1,1,"Fosfato  :  PO4(3-)"
Texto(7,1,"Hexacianoferrato (II)  :  
Texto(13,1,"   Fe(CN)6(4-)"
Texto(19,1,"Hexacianoferrato (III) :  
Texto(25,1,"   Fe(CN)6(3-)"
Pause 
Goto B
Else
Goto C
End