shl mit 8 Bit

[BerndS]

Eine weiter Möglicheit wäre es, das oberste bit vor dem shl zu entfernen.
B := (B and $7F) shl 1;