r1 = 0
R2 = 0
vGuia = .T.
a = "123456789123"
FOR i = LEN(a) TO 1 STEP -1
IF vGuia = .T.
r1 = val(r1+substr(a,i,1))
MESSAGEBOX("Par"+r1)
vGuia = .F.
ELSE
r2 = val(r2+substr(a,i,1))
MESSAGEBOX("imPar"+r2)
vGuia = .t.
endif
ENDFOR
messagebox("Total Par "+ r1)
messagebox("Total Impar "+ r2)