\START92\
\COMMENT=
\NAME=getvart2
\FILE=GETVART2.89F
(expres,var,vl2)
Func
\(C)\expres,var,vl2:Func
Local temp,temp2,temp3,temp4
true\->\temp2
string(var)\->\temp3
For temp,1,dim(vl2)
vl2[temp]\->\temp4
If string(temp4)=temp3 Then 
temp2 and temp4=1\->\temp2
Else
temp2 and temp4=0\->\temp2
EndIf
EndFor
Return expres|temp2
EndFunc
\STOP92\