here's my code:
Code:
Code:
:AxesOff
:GridOff
:
:ClrDraw
:
:Lbl 00
:
:Menu("Charge?","+1",P1,"+2",P2,"+3",P3,"+4",P4,"Home",99,"Info",91
:
:Lbl P1
:Text(1,1,"+1"
:Text(7,1,"Copper(I)--Cu"
:Text(14,1,"**Silver--Ag"
:Text(21,1,"** indicates charge doesn't"
:Text(28,1,"change"
:Text(35,1,"Roman Numerals indicate"
:Text(42,1,"charge"
:
:Pause
:Goto 00
:
:Lbl P2
:Text(1,1,"+2"
:Text(7,1,"**Cadmium--Cd"
:Text(14,1,"Chromium(II)--Cr"
:Text(21,1,"Cobalt(II)--Co"
:Text(28,1,"Copper(II)--Cu"
:Text(35,1,"Iron(II)--Fe"
:Text(42,1,"Lead(II)--Pb"
:Text(49,1,"Manganese(II)--Mn"
:Text(56,1,"Mercury(II)--Hg"
:Text(60,1,"More"
:
:Pause
:ClrDraw
:
:Text(1,1,"+2"
:Text(7,1,"Nickel(II)--Ni"
:Text(14,1,"Tin(II)--Sn"
:Text(21,1,"Vanadium(II)--V"
:Text(28,1,"**Zinc--Zn"
:Text(35,1,"** indicates charge doesn't"
:Text(42,1,"change"
:Text(49,1,"Roman Numerals indicate"
:Text(56,1,"charge"
:
:
:Pause
:Goto 00
:
:Lbl P3
:Text(1,1,"+3"
:Text(7,1,"Chromium(III)--Cr"
:Text(14,1,"Iron(III)--Fe"
:Text(21,1,"Lead(III)--Pb"
:Text(28,1,"Vanadium(III)--V"
:Text(35,1,"Roman Numerals indicate"
:Text(42,1,"charge"
:
:Pause
:Goto 00
:
:Lbl P4
:Text(1,1,"+4"
:Text(7,1,"Lead(IV)--Pb"
:Text(14,1,"Vanadium(IV)--V"
:Text(21,1,"Tin(IV)--Sn"
:Text(35,1,"Roman Numerals indicate"
:Text(42,1,"charge"
:
:Pause
:Goto 00
:
the domain err is under P2 Sectio