8 lines
240 B
Text
8 lines
240 B
Text
Sub Test(a as Integer, b as Integer)
|
|
WriteLine("And " & a And b)
|
|
WriteLine("Or " & a Or b)
|
|
WriteLine("Xor " & a Xor b)
|
|
WriteLine("Not " & Not a)
|
|
WriteLine("Left Shift " & a << 2)
|
|
WriteLine("Right Shift " & a >> 2)
|
|
End Sub
|