>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