**TI92P*chem.cRreacting Z '() Prgm Local a,h,i,o,p,r,s setMode("Exact/Approx","APPROXIMATE") Lbl top Dialog Title "Thermodynamic Reactions" DropDown "Find:",{"Reactants","Products","Activation Energy","Energy In","Energy Out","Net H"},s EndDlog if ok=0 goto prge If s=1 Goto react If s=2 Goto produ If s=3 Goto act If s=4 Goto enin If s=5 Goto eno If s=6 Goto net Lbl react Dialog DropDown "Solve With:",{"Prdct & H","Act. E & E In"},s EndDlog if ok=0 goto top If s=1 Goto rpn If s=2 Goto rai Lbl rpn Dialog Title "Input Variables" Request "P",p Request "H",h EndDlog if ok=0 goto react expr(p)p expr(h)h p-hr Dialog Title "Value of Reactants" Text string(r) EndDlog Goto prge Lbl rai Dialog Title "Input Variables" Request "AE",a Request "EI",i EndDlog if ok=0 goto react expr(a)a expr(i)i a-ir Dialog Title "Value of Reactants" Text string(r) EndDlog Goto prge Lbl produ Dialog DropDown "Solve With:",{"Rctnts & H","Act. E & E Out"},s EndDlog if ok=0 goto top If s=1 Goto prh If s=2 Goto pao Lbl pao Dialog Title "Input Variables" Request "AE",a Request "EO",o EndDlog if ok=0 goto produ expr(a)a expr(o)o a-op Dialog Title "Value of Products" Text string(p) EndDlog Goto prge Lbl prh Dialog Title "Input Variables" Request "R",r Request "H",h EndDlog if ok=0 goto produ expr(r)r expr(h)h r+hp Dialog Title "Value of Products" Text string(p) EndDlog Goto prge Lbl act Dialog DropDown "Solve With:",{"Prdcts & E Out","Rctnts & E In"},s EndDlog if ok=0 goto top If s=1 Goto apo If s=2 Goto ari Lbl apo Dialog Title "Input Variables" Request "P",p Request "EO",o EndDlog if ok=0 goto act expr(p)p expr(o)o p+oa Dialog Title "Activation Energy" Text string(a) EndDlog Goto prge Lbl ari Dialog Title "Input Variables" Request "R",r Request "EI",i EndDlog if ok=0 goto act expr(r)r expr(i)i r+ia Dialog Title "Activation Energy" Text string(a) EndDlog Goto prge Lbl enin Dialog DropDown "Solve With:",{"Act. E & Rctnts","H & E Out"},s EndDlog if ok=0 goto top If s=1 Goto iar If s=2 Goto iho Lbl iar Dialog Title "Input Variables" Request "AE",a Request "R",r EndDlog if ok=0 goto enin expr(a)a expr(r)r a-ri Dialog Title "Energy In" Text string(i) EndDlog Goto prge Lbl iho Dialog Title "Input Variables" Request "H",h Request "EO",o EndDlog if ok=0 goto enin expr(h)h expr(o)o h+oi Dialog Title "Energy In" Text string(o) EndDlog Goto prge Lbl eno Dialog DropDown "Solve With:",{"Act. E & Prdcts","E In & H"},s EndDlog if ok=0 goto top If s=1 Goto oap If s=2 Goto oih Lbl oap Dialog Title "Input Variables" Request "AE",a Request "P",p EndDlog if ok=0 goto eno expr(a)a expr(p)p a-po Dialog Title "Energy Out" Text string(o) EndDlog Goto prge Lbl oih Dialog Title "Input Variables" Request "EI",i Request "H",h EndDlog if ok=0 goto eno expr(i)i expr(h)h i-ho Dialog Title "Energy Out" Text string(o) EndDlog Goto prge Lbl net Dialog DropDown "Solve With:",{"E In & E Out","Prdcts & Rctnts"},s EndDlog if ok=0 goto top If s=1 Goto nio If s=2 Goto npre Lbl nio Dialog Title "Input Variables" Request "EI",i Request "EO",o EndDlog if ok=0 goto net expr(i)i expr(o)o i-oh Dialog Title "Net H" Text string(h) EndDlog Goto prge Lbl npre Dialog Title "Input Variables" Request "P",p Request "R",r EndDlog if ok=0 goto net expr(p)p expr(r)r p-rh Dialog Title "Net H" Text string(h) EndDlog Goto prge Lbl prge setMode("Exact/Approx","AUTO") EndPrgm5