Clipper/FiveWin - diferencias entre dos cadenas

existe alguna funcion de clipper, bien sea en librerias internas bien en externas, que me indique la cantidad de diferencias existentes entre dos cadenas de igual longitud?

ejemplo1:
cadena1: "banquero"
cadena2: "barquero"
diferencias: 1 (n-r)

ejemplo2
cadena1: "toledo"
cadena2: "torero"
diferencias: 2 (l-r, d-r)

saludos y gracias

ptda: tambien me interesaria saber si existe alguna version de las Norton Guides para windows

Function diferencias( cCadena1, cCadena2 )
Local aDiferencias := {}
Local nLargo := If( Len( cCadena1 )>Len(cCadena2), Len(cCadena1), Len(cCadena ) )
Local nContador := 1
cCadena1 := PadR( cCadena1, nLargo )
cCadena2 := PadR( cCadena2, nLargo )
Do while nContador <= nLargo
If SubStr( cCadena1, nContador, 1 ) <> SubStr( cCadena2, nContador, 1 )
Aadd( aDiferencias, SubStr( cCadena1,nContador, 1) + "-" + ;
SubStr( cCadena2,nContador, 1 ) )
EndIf
nContador ++
Return ( aDiferencias )
************************************************

La forma de utilizarla sería:
***********************************************
Funcion Main()
Local aMatriz := {}
....
aMatriz := Diferencias( "Toledo", "Torero" )
? "Cantidad de diferencias = " + Len( aMatriz )
AEval( aMatriz, { |x| QOut( x ) } )
....
Return nil

muchas gracias, Gustavo, mucho mas de lo que pedia, de veras, muchas gracias
saludos,

De nada. Lo único pruébalo bien porque lo hice en el momento y no lo ni siquiera compilado.
Saludos.
Gustavo.