**TI92P*chemWoRhydroniu¥Z«() Prgm Local h,m,o,p,r setMode("Exact/Approx","APPROXIMATE") Dialog Title "Calculating pH with Hydronium Ions" Request "Mole Value",m Request "Hydronium Ratio",r EndDlog if ok=0 goto prge expr(m)m expr(r)r m*rh 1•­014/ho ­log(h)p Dialog Title "Calculating pH with Hydronium Ions" Text "[H3O]="&string(h) Text "[OH]="&string(o) Text "pH="&string(p) EndDlog lbl prge setMode("Exact/Approx","AUTO") EndPrgm äåÜQ‰