易语言无符号右移/逻辑右移模块

遇到需要用易语言写无符号右移找了很多例子，用负数测试的时候，发现结果不对。

s ＝ 右移 (x, y)
w ＝ 左移 (取字节集长度 (到字节集 (s)), 3)
d ＝ 位与 (s, 位取反 (左移 (-1, w － y)))

没办法继续找办法，现在发现个简单的办法，也可以实现，所以给大家分享下，也省得自己忘了。