proIn = 56548965 >lnSum = 0 > FOR i = 1 TO 8 > lnDigit = VAL(SUBSTR(m.proIn, m.i, 1)) * VAL(SUBSTR("12121212", m.i, 1)) > IF lnDigit > 9 > lnDigit = INT(lnDigit/10) + lnDigit - 10 > ENDIF > lnSum = lnSum + lnDigit > NEXT > chkdig = 10*(INT(lnSum/10)+1) - lnSum > chkdig = IIF(chkdig = 10, "0", TRANSFORM(chkdig)) >??chkdig>