FoxPro/Visual FoxPro - generar y verificar números de Cuil y Cuit Validos

Hola!! Alguien tiene el codigo de como generar y verificar números de Cuil y Cuit Validos para la Argentina. Por favor, lo necesito para un parcial. Muchasssssssss Graciasssss

******************
procedure cuilver
**************************
Xcampo = LEFT(nro,2) + SUBSTR(nro,4,8) + RIGHT(nro,1)
Xcoef = "5432765432"
Ret = .T.
Suma = 0
FOR X = 1 to 10
Suma = Suma + VAL(SUBSTR(XCampo,X,1)) * VAL(SUBSTR(XCoef,X,1))
NEXT
Resto = INT(suma % 11)
Digito_Ver = VAL(RIGHT(Xcampo,1))
IF Resto > 1
Resto = 11 - Resto
ENDIF
IF Resto <> Digito_Ver
WAIT WINDO NOWAIT 'El numero de CUIT NO ES CORRECTO !!, por favor verifique'
CUI=0
RETURN .F.
ELSE
DEACTIVA WIND prin
RETURN .T.
ENDIF

Te lo envio via mail tambien. espero te sirva