
DIM a as UByte = 0
DIM result as UInteger

LET result = (0x7FFF >> 0)
LET result = (0x7FFF >> a)

LET result = (0x7FFF << 0)
LET result = (0x7FFF << a)

LET result = (-512 >> 0)
LET result = (-512 >> a)

LET result = (-512 << 0)
LET result = (-512 << a)
