*betweeen **?lcBinString lnI = 0x000109C1 lcBin = Int2Bin(lnI) lcNib = Int2Nibble(lnI) lnBin = Bin2Int(lcBin) lnNib = Nibble2Int(lcNib) ?lnI,TRANSFORM(lnI,'@0') ?lcBin,lnBin,TRANSFORM(lnBin,'@0') ?lcNib,lnNib,TRANSFORM(lnNib,'@0') FUNCTION Nibble2Int AS INTEGER LPARAMETERS; tcString RETURN Bin2Int(CHRTR(tcString,' ','')) ENDFUNC &&Nibble2Int AS Integer FUNCTION Bin2Int AS INTEGER LPARAMETERS; tcString RETURN INT(VAL(STUFF(TRANSFORM(0h+Bin2Char(PADL(tcString,32,'0'))),2,1,'x'))) ENDFUNC &&Bin2Int AS Integer FUNCTION Int2Nibble AS STRING LPARAMETERS; tiInt RETURN STUFF(STUFF(STUFF(STUFF(STUFF(STUFF(STUFF(Int2Bin(tiInt),29,0,' '),25,0,' '),21,0,' '),17,0,' '),13,0,' '),09,0,' '),05,0,' ') ENDFUNC &&Int2Nibble AS STRING FUNCTION Int2Bin AS STRING LPARAMETERS; tiInt RETURN Char2Bin(EVALUATE(STUFF(TRANSFORM(tiInt,'@0'),2,1,'h'))) ENDFUNC &&Int2Bin AS STRING *and **FUNCTION Char2Bin AS STRINGAgnes