**TI92P*chemkinRmassstp¥Z¸() Prgm Local a,f,p,t,v,w setMode("Exact/Approx","APPROXIMATE") Dialog Title "Mass at STP" Request "Volume (in mL)",v Request "Pressure",p Request "Temperature",t Request "Mlculr Wt of Sbstnce",w EndDlog if ok=0 goto prge expr(v)v expr(p)p expr(t)t expr(w)w v*p*273/(t*760)a a/1000a w*a/(22.4)f Dialog Title "Mass at STP" Text "The mass at STP is: "&string(f) EndDlog lbl prge setMode("Exact/Approx","AUTO") EndPrgm äå܈