Imports System.Numerics
Imports System
Module Example
Public Sub Main()
Dim number As BigInteger = BigInteger.Parse("-9999")
Console.WriteLine("Shifting {0} right by:", number)
For ctr As Integer = 0 To 16
Dim newNumber As BigInteger = BigInteger.Divide(number, BigInteger.Pow(2, ctr))
If newNumber * ctr < 0 Then newNumber = newNumber - 1
Console.WriteLine(" {0,2} bits: {1,35} {2,30}",
ctr, newNumber, newNumber.ToString("X"))
Next
End Sub
End Module