valor m1; 
valor m2; 
valor m3; 

m1 = BC(XXX); 
m2 = valeve(998) + valeve(821) + valeve(826) - valeve(836); 
m3 = m1 - m2; 

vcalc = m3 * valvar(0)/100; 
vinf = valvar(0);