Модуль Stores:
## Код:
```
PROCEDURE (VAR rd: Reader) ReadInt* (OUT x: INTEGER), NEW;
    VAR le, be: ARRAY 4 OF BYTE;  (* little endian, big endian *)
  BEGIN
    rd.rider.ReadBytes(le, 0, 4);
    IF Kernel.littleEndian THEN
      x := SYSTEM.VAL(INTEGER, le)
    ELSE
      be[0] := le[3]; be[1] := le[2]; be[2] := le[1]; be[3] := le[0];
      x := SYSTEM.VAL(INTEGER, be)
    END
  END ReadInt;
```


## Код:
```
PROCEDURE (VAR wr: Writer) WriteInt* (x: INTEGER), NEW;
    TYPE a = ARRAY 4 OF BYTE;
    VAR le, be: a;  (* little endian, big endian *)
  BEGIN
    IF Kernel.littleEndian THEN
      le := SYSTEM.VAL(a, x)
    ELSE
      be := SYSTEM.VAL(a, x);
      le[0] := be[3]; le[1] := be[2]; le[2] := be[1]; le[3] := be[0]
    END;
    wr.rider.WriteBytes(le, 0, 4)
  END WriteInt;
```
