' Demoprogramm zum Spiegeln einer Variable Dim A As Byte Dim Vergl As Bit Dim Ausgabe As Byte Dim N As Byte A = 213 'A= B11010101 Ausgabe = 0 For N = 1 To 8 Vergl = A And 1 Rotate A , Right , 1 Rotate Ausgabe , Left , 1 Ausgabe = Ausgabe Or Vergl Next 'Ausgabe = B10101011 Rotate Ausgabe , Right , 4 'Swap nibble A = Ausgabe 'Ausgabe = B10111010 Do Loop End