Thanks a lot.


>>How I covert a Char,Integer into a Binary
>>
>>for example : A = 65 --> 1000001
>
>Try this:
>

>? binary(65)
>
>Function binary(tnVal)
>Local lnMask, lcResult
>lnMask = 1
>lcResult = ''
>Do While lnMask <= tnVal
>	lcResult = IIf(BitAnd(lnMask, tnVal)!=0, '1', '0') + lcResult
>	lnMask = BitLShift(lnMask, 1)
>EndDo
>Return lcResult
>