10 REM > BLib.Shift 1.00 15Jan2024

   20 REM Shift and Rotate integers

   30 REM Provides >> and << functionality on all BASICs

   40 :

   50 REM Shift Right:  abcdefgh -> 0abcdefg

   60 DEFFNshr(A%)=((A%/2)-(A%AND-(A%<0)))AND&7FFFFFFF

   70 :

   80 REM Shift Left:   abcdefgh -> bcdefgh0

   90 DEFFNshl(A%)=((A%AND&3FFFFFFF)*2)OR(((A%AND&40000000)>0)AND&80000000)

  100 :

  110 REM Rotate Right: abcdefgh -> habcdefg

  120 DEFFNror(A%)=((A%/2)-(A%AND-(A%<0))AND&7FFFFFFF)OR(((A%AND1)>0)AND&80000000)

  130 :

  140 REM Rotate Left:  abcdefgh -> bcdefgha

  150 DEFFNrol(A%)=((A%AND&3FFFFFFF)*2)OR(((A%AND&40000000)<>0)AND&80000000)OR-(A%<0)

  160 :

  170 REM Shift Right Arthimetic: abcdefgh -> aabcdefg

  180 DEFFNsra(A%)=(A%/2)-(A%AND-(A%<0))

  190 :