Chemistry: Atoms, Mols, and Grams! Oh, my!

Converts all six ways. Just Pick your selection in the menu and instructions will appear.

-- Mols Conversion --

:Menu("Conversion","MOLS 2 GRAMS",1,"GRAMS 2 MOLS",2,"GRAMS 2 ATOMS",3,"ATOMS 2 :GRAMS",4,"MOLS 2 ATOMS",5,"ATOMS 2 MOLS",6)

:Input "CONVERT:",X

:Lbl 1

:Input "MOLS: ",K

:Input "MASS: ",M

:MK→A

:Disp A

:"MOL2G"

:Goto 99

:Lbl 2

:Input "GRAMS: ",G

:Input "MASS: ",M

:G(1/M)→A

:Disp A

:"G2MOLS"

:Goto 99

:Lbl 3

:Input "GRAMS: ",G

:Input "MASS: ",M

:(G(1/M)*(6.022*10²³))→A

:Disp A

:"G2ATOM"

:Goto 99

:Lbl 4

:Input "ATOMS: ",N

:Input "MASS: ",M

:M(1/(6.022*10²³))N→A

:Disp A

:"ATOM2G"

:Goto 99

:Lbl 5

:Input "MOLS: ",M

:M(6.022*10²³)→A

:Disp A

:"MOL2ATOM"

:Goto 99

:Lbl 6

:Input "ATOMS: ",B

:B(1/(6.022*10²³))→A

:Disp A

:"ATOM2MOL"

:Goto 99

:Lbl 99