MsgBox(0, "DecToBinaryString(2000)", DecToBinaryString(2) ) ; Returns 10
MsgBox(0, "DecToBinaryString(2000)", DecToBinaryString(15) ) ; Returns 1111
MsgBox(0, "DecToBinaryString(2000)", DecToBinaryString(32) ) ; Returns 1 0000
MsgBox(0, "DecToBinaryString(2000)", DecToBinaryString(129) ) ; Returns 1000 0001
MsgBox(0, "DecToBinaryString(2000)", DecToBinaryString(511) ) ; Returns 1 1111 1111
MsgBox(0, "DecToBinaryString(2000)", DecToBinaryString(2000) ) ; Returns 111 1101 0000

Func DecToBinaryString($s_X, $s_Infinite = 100)
    Local $i_Return, $d_Pi = 3.1415926535897932384626433832795

    For $n = 1 to $s_Infinite Step 1 ; Go from 1 into Infinity
		
        For $C = $s_x To 0 Step -1
			
			$d_Begin = Round(0.5 * Abs(Sin((1 / (2 ^ $n)) * $d_Pi * $C)))
			$d_End = Round((8 / 9) * (10 ^ $n) * 0.1)
			
            $i_Return += $d_Begin * $d_End
			
        Next
		
    Next

    Return String($i_Return)
EndFunc