SoloCodigo

Hola a todos, estaba viendo en la pagina de Clarion Wiki y hay un ejemplo de Código para Verificar el Nº de CUIT (sacado de la documentacion del BIGSYS TEMPLATES y desarrollado por el Sr. Juan Carlos Rodríguez).
Este código me parecio muy interesante, asi que trate de probarlo en C55, pero sin ningun exito... Alguien tiene idea el embed donde debo ponerlo ???
El código es :
 
 CuitCliente='20-15433984-6'                    ! Paso Nº a variable
 IF Cuit(CuitCliente)=CuitCliente THEN    
! Cuit(CuitCliente) llama a una Funcion que no se donde debo ponerla
   MESSAGE('Digito verificador correcto')
 ELSE
   MESSAGE('Digito verificador incorrecto')
 END

! Declaro el Procedimiento Cuit
Cuit         PROCEDURE(cuit1)
cuit2        STRING(255)
digver       LONG
lon          LONG
fac          LONG
car          STRING(1)

! En que embed va este Código ????  
 CODE
 cuit2=cuit1
 digver=0
 fac=2
 lon=LEN(CLIP(cuit2))
 LOOP i#=lon-1 TO 1 BY -1
   car=SUB(cuit2,i#,1)
   IF car<'0' OR car>'9' THEN
     CYCLE
   ..
   digver=digver+(car*fac)
   fac+=1
   IF fac>7 THEN
     fac=2
   ..
 .
 digver=11-(digver%11)
 IF digver>9 THEN
   digver=0
 .
 cuit2=SUB(cuit2,1,lon-1) & FORMAT(digver,@n01)
 RETURN(cuit2)


Desde ya muchas gracias por la ayuda que me puedan brindar