**TI92P*chemkinRgtomè¥ZŽ() Prgm Local a,m,s,v setMode("Exact/Approx","APPROXIMATE") Dialog Title "Grams & Volume to Molarity" Request "Weight (in g)",m Request "Amount (in mL)",v Request "1 Mole Sbstnce= (g)",s EndDlog if ok=0 goto prge expr(m)m expr(v)v expr(s)s m/v/s*1000a Dialog Title "Answer" Text "You have a "&string(a)&" molar solution." EndDlog lbl prge setMode("Exact/Approx","AUTO") EndPrgm äåÜÝ|