WINDEV PROCEDURE calcul cle cnas

PROCEDURE Cnas(NSS is string)

//var
sCle is string
I, X1, X2, N are int

X1 	= 0
X2 	= 0
FOR I = 1 TO 10
	N  = Val(NSS[I])
	IF IsOdd(I) THEN
		X2 = X2 + N * 2
	ELSE
		X1 = X1 + N
	END
	sCle = NumToString(99 - (X1 + X2),"02d")
END

RESULT sCle