rotate Example
10 INTEGER X,Y
20 X=100
30 Msg("Original bits")
40 See(X)
50 PRINT
60 Y=ROTATE(X,5)
70 Msg("ROTATE shifts the bits with wrap-around")
80 See(Y)
90 END
100 SUB See(INTEGER X)
110 FOR Loop=15 TO 0 STEP -1
120 Temp=BIT(X,Loop)
130 PRINT Temp;
140 NEXT Loop
150 SUBEND
160 SUB Msg(Str$)
170 PRINT Str$
180 SUBEND