FoxPro/Visual FoxPro - reforma a cuit

gracias , pero lo reforme y tome como base lo tuyo , y lo transcribo por si alguien lo necesita
@ 20,1 SAY \"NUMERO CUIT.........:\" GET CUIT
read
ccuit1=trim(cuit)
cA=VAL(SUBSTR(cCuit1,1,1))
cB=VAL(SUBSTR(cCuit1,2,1))
c1=VAL(SUBSTR(cCuit1,3,1))
c2=VAL(SUBSTR(cCuit1,4,1))
c3=VAL(SUBSTR(cCuit1,5,1))
c4=VAL(SUBSTR(cCuit1,6,1))
c5=VAL(SUBSTR(cCuit1,7,1))
c6=VAL(SUBSTR(cCuit1,8,1))
c7=VAL(SUBSTR(cCuit1,9,1))
c8=VAL(SUBSTR(cCuit1,10,1))
C9=(SUBSTR(CCUIT1,11,1))
nSuma=(cA*5)+(cB*4)+(c1*3)+(c2*2)+(c3*7)+(c4*6)+(c5*5)+(c6*4)+(c7*3)+(c8*2)
nResto=MOD(nSuma,11)
IF nResto=0
cVeri=\"0\"
ELSE
IF (11-nResto) < 10
cVeri=STR(11-nResto,1)
ELSE
cVeri=\"9\"
ENDIF
ENDIF
ASD=CCUIT1+CVERI
@ 20,1 SAY \"NUMERO CUIT..........:\"+ASD