!ô > BLib.Shift 1.00 15Jan2024 ô Shift and Rotate integers 4ô Provides >> and << functionality on all BASICs (: 2(ô Shift Right: abcdefgh -> 0abcdefg <-ݤshr(A%)=((A%/2)-(A%€-(A%<0)))€&7FFFFFFF F: P(ô Shift Left: abcdefgh -> bcdefgh0 Z?ݤshl(A%)=((A%€&3FFFFFFF)*2)„(((A%€&40000000)>0)€&80000000) d: n(ô Rotate Right: abcdefgh -> habcdefg xDݤror(A%)=((A%/2)-(A%€-(A%<0))€&7FFFFFFF)„(((A%€1)>0)€&80000000) ‚: Œ(ô Rotate Left: abcdefgh -> bcdefgha –Hݤrol(A%)=((A%€&3FFFFFFF)*2)„(((A%€&40000000)<>0)€&80000000)„-(A%<0)  : ª2ô Shift Right Arthimetic: abcdefgh -> aabcdefg ´!ݤsra(A%)=(A%/2)-(A%€-(A%<0)) ¾: ÿ