Module Module1
    Sub Main()
        Dim OldValue As Byte = &B11010110  ' Example 8-bit integer value with some markers detected
        Dim mask As Byte = &B00001000      ' Mask to set bit at position 3 (BNP marker) to 1
        Dim NewValue As Byte = OldValue Or mask ' Bitwise OR operation to ensure marker is set
        Console.WriteLine("Original Value: " & Convert.ToString(OldValue, 2).PadLeft(8, "0"c))
        Console.WriteLine("Result After Bitwise OR: " & Convert.ToString(NewValue, 2).PadLeft(8, "0"c))
    End Sub
End Module