:AxesOff
:GridOff
:
:ClrDraw
:
:Lbl 00
:
:Menu("Charge?","+1",P1,"+(-)2",P2,"+(-)3",P3,"+4",P4,"-1",N1,"Home",99,"Info",91
:
:Lbl P1
:Text(1,1,"+1"
:Text(7,1,"Copper(I)--Cu"
:Text(13,1,"**Silver--Ag"
:Text(19,1,"Lithium--Li"
:Text(25,1,"Sodium--Na"
:Text(31,1,"Potassium--K"
:Text(37,1,"Rubidium--Rb"
:Text(43,1,"Cesium--Cs"
:Text(49,1,"** ind. can change
:Text(55,1,"Roman numerals ind. charge
:
:Pause
:Goto 00
:
:Lbl P2
:Text(1,1,"+(-)2"
:Text(7,1,"**Cadmium--Cd"
:Text(13,1,"Chromium(II)--Cr"
:Text(19,1,"Cobalt(II)--Co"
:Text(25,1,"Copper(II)--Cu"
:Text(31,1,"Iron(II)--Fe"
:Text(37,1,"Lead(II)--Pb"
:Text(43,1,"Manganese(II)--Mn"
:Text(49,1,"Mercury(II)--Hg"
:Text(55,1,"More"
:
:Pause
:ClrDraw
:
:Text(1,1,"+(-)2"
:Text(7,1,"Nickel(II)--Ni"
:Text(13,1,"Tin(II)--Sn"
:Text(19,1,"Vanadium(II)--V"
:Text(25,1,"**Zinc--Zn"
:Text(31,1,"Magnesium--Mg"
:Text(37,1,"Calcium--Ca"
:Text(43,1,"Strontium--Sr
:Text(49,1,"Barium--Ba"
:Text(55,1,"More"
:
:Pause
:ClrDraw
:
:Text(1,1,"+(-)2"
:Text(7,1,"Oxide--O"
:Text(13,1,"Sulfide--S"
:Text(1,1,"** indicates charge doesn't"
:Text(7,1,"change"
:Text(13,1,"Roman Numerals indicate"
:Text(19,1,"charge"
:
:Pause
:Goto 00
:
:Lbl P3
:Text(1,1,"+(-)3"
:Text(7,1,"Chromium(III)--Cr"
:Text(13,1,"Iron(III)--Fe"
:Text(19,1,"Lead(III)--Pb"
:Text(25,1,"Vanadium(III)--V"
:Text(31,1,"Aluminum--Al"
:Text(37,1,"-3"
:Text(43,1,"Nitride--N"
:Text(49,1,"Roman Numerals indicate"
:Text(55,1,"charge"
:
:Pause
:Goto 00
:
:Lbl P4
:Text(1,1,"+4"
:Text(7,1,"Lead(IV)--Pb"
:Text(13,1,"Vanadium(IV)--V"
:Text(19,1,"Tin(IV)--Sn"
:Text(25,1,"Roman Numerals indicate"
:Text(31,1,"charge"
:
:Pause
:Goto 00
:
:Lbl N1
:Text(1,1,"-1"
:Text(7,1,"Fluoride--F"
:Text(13,1,"Chloride--Cl"
:Text(19,1,"Bromide--Br"
:Text(25,1,"Iodide--I
:
:Pause
:Goto 00
:
:Lbl 99
:AxesOn
:ClrDraw
:ClrHome
:Output(1,1," "
:Return
:
:Lbl 91
:ClrHome
:Disp "This is only"
:Disp "some common"
:Disp "Monatomic Ions"
:Disp "Use at own risk"
:
:Pause
:Goto 00
:
Generated by
SourceCoder, © 2005-2010
Cemetech