Convert Integer to binary << Back

No need for any fancy library to do base conversion...

Use UI

Function IntToBinary Global Integer i Returns String
	String sResult
	If (i < 0) Function_Return ""
	Move "" to sResult
	Repeat
		Move (String(Mod(i, 2)) + sResult) to sResult
		Move (i / 2) to i
	Until (i = 0)
	Function_Return sResult
End_Function