PROCEDURE (VAR rd: Reader) ReadChar* (OUT x: CHAR), NEW;
      VAR le: ARRAY 2 OF BYTE;   (* little endian, big endian *)
   BEGIN
      rd.rider.ReadBytes(le, 0, 2);
      x := CHR(le[0] MOD 256 + (le[1] MOD 256) * 256)
   END ReadChar;