... ChkSum( cCad ) LOCAL c, nLen, nSum1, nSum2 nLen := AT( "*", cCad ) nSum1 := HexToDec( Substr( cCad, nLen +1, 2 ) ) // el checksum esta apartir de "*" nSum2 := Asc( Substr( cCad, 1, 1 ) ) // cogemos el primer caracter a sumar FOR c := 2 TO nLen -1 nSum2 := nXor( nSum2, Asc( ...