Clipper/FiveWin - Digito Verificador

Estimados tengo que calcular el Digito Verificador de los codigos de barras que genera el programa, antes de imprimir.
Alguien tiene alguna rutina armada o algun ejemplo de como hacerlo.?
Muchas gracias, Alberto.-

FUNCTION CheckDigitEan(tcCodigo)
LOCAL lnSuma, lnI, lnPos
STORE 0 TO lnSuma, lnPos
FOR lnI = LEN(tcCodigo) TO 1 STEP -1
lnPos = lnPos + 1
lnSuma = lnSuma + (VAL(SUBSTR(tcCodigo,lnI,1)) * IIF(MOD(lnPos,2)=0,1,3))
ENDFOR
RETURN tcCodigo + TRANSFORM(MOD(10-MOD(lnSuma,10),10))
ENDFUNC