[Oberon] Bit manipulation in Oberon-07

[Jörg]

> Is there any BITS-equivalent in Oberon-07?
No.

SYSTEM.VAL is the only short (endianness-dependent) version.

The long, portable, endianness independent version is:

(* convert INTEGER „i" to SET „s" *)
s := {}; FOR n := 0 TO 31 DO IF ODD(i) THEN INCL(s, n) END; i := i DIV 2 END;

Jörg