Imports System
Public Class Program
Public Shared Sub Main()
Dim pattern As Short = 3072
Dim result1, result2, result3, result4, result5 As Short
Console.WriteLine(Convert.ToString(pattern, 2).PadLeft(16, "0"c))
result1 = pattern >> 0
result2 = pattern >> 4
result3 = pattern >> 9
result4 = pattern >> 14
result5 = pattern >> -1
Console.WriteLine(Convert.ToString(result1, 2).PadLeft(16, "0"c) & " " & result1)
Console.WriteLine(Convert.ToString(result2, 2).PadLeft(16, "0"c) & " " & result2)
Console.WriteLine(Convert.ToString(result3, 2).PadLeft(16, "0"c) & " " & result3)
Console.WriteLine(Convert.ToString(result4, 2).PadLeft(16, "0"c) & " " & result4)
Console.WriteLine(Convert.ToString(result5, 2).PadLeft(16, "0"c) & " " & result5)
End Sub
End Class
' run:
'
' 0000110000000000
' 0000110000000000 3072
' 0000000011000000 192
' 0000000000000110 6
' 0000000000000000 0
' 0000000000000000 0
'
