**TI92P*chembjRstp¥ZÃ() Prgm Local c,d,p,t,v setMode("Exact/Approx","APPROXIMATE") Lbl start Dialog Title "Volume at Standard Conditions" DropDown "",{"With V, P, & T","With V & P","With V & T"},c EndDlog if ok=0 goto prge If c=1 Goto vpt If c=2 Goto vp If c=3 Goto vt Lbl vpt Dialog Title "Input Variables" Request "V",v Request "P",p Request "T",t EndDlog if ok=0 goto start expr(v)v expr(p)p expr(t)t v*p*273/(t*760)d Dialog Title "Volume at Standard Conditions" Text string(d) EndDlog Goto prge Lbl vp Dialog Title "Input Variables" Request "V",v Request "P",p EndDlog if ok=0 goto start expr(v)v expr(p)p v*p/760d Dialog Title "Volume at Standard Conditions" Text string(d) EndDlog Goto prge Lbl vt Dialog Title "Input Variables" Request "V",v Request "T",t EndDlog if ok=0 goto start expr(v)v expr(t)t v*273/td Dialog Title "Volume at Standard Conditions" Text string(d) EndDlog Lbl prge setMode("Exact/Approx","AUTO") EndPrgm äå܉.