Cristobal, Trata convirtiendo el valor decimal primero a Hexadecimal con la funcion de Harbour NumToHex(nDecimal), luego usa la funcion siguiente: HexToBinary(cHex) FUNCTION HexToBinary(cHex) LOCAL nLenBin, nX, nPos, cBinNumber, cCharHex, cBinBase aHexBinary := { {"0...