\START92\ \COMMENT= \NAME=chemslv \FILE=CHEMSLV.89F (chemeq,varlist) Func \(C)\chemeq,varlist:Func Local vl2,i1,s1,t1,expres getType(t1)\->\t1 string(varlist)\->\s1 getvars(chemeq)\->\varlist {}\->\vl2 For i1,1,dim(varlist) If inString(s1,string(varlist[i1]))=0 varlist[i1]\->\vl2[dim(vl2)+1] EndFor true\->\expres For i1,1,dim(vl2) expres and getvart2(chemeq,vl2[i1],vl2)\->\expres EndFor expr(when(t1="NONE","solve",when(t1="AUC","r\e'\sol",when(t1="KEIN","L\o..\se",when(t1="NES","risolvi",when(t1="NING","soluc",when(t1="NENH","calcula",when(t1="GEEN","losOp",when(t1="NINC","megold",when(t1="TOMT","L\o..\s",when(t1="EI","ratk",when(t1="NIC","rozwi\a`\z","l\o/\s")))))))))))&"(expres,"&s1&")")\->\expres Return expres EndFunc \STOP92\