* UP.UP.bitdepth + UP.UP.bitdepth - 1) DIV UP.UP.bitdepth;

* UP.UP.bitdepth + 8 - 1) DIV 8;

            Log.String("DONE-EOF: err="); Log.Bool(idat.Error()); Log.Ln;
            END;
            IF idat.crcIsWrong THEN img := NIL END
            (*  this leads to break reading of PNG images from MS Paint    TODO
            IF idat.Error() OR idat.crcIsWrong THEN img := NIL END
            *)
         END
      END DecodeImage;

   PROCEDURE (inf: Inflater) PutByte (bt: SHORTCHAR), NEW;
   BEGIN
      inf.dict[inf.dictEnd] := bt;
      inf.dictEnd := (inf.dictEnd + 1) MOD LEN(inf.dict);
      IF inf.mode = ZLib THEN
         INC(inf.a32s1, ORD(bt));
         INC(inf.a32s2, inf.a32s1);
         IF (inf.a32s1 < 0) OR (inf.a32s2 < 0) THEN
            DEC(inf.a32s2, inf.a32s1);
            DEC(inf.a32s1, ORD(bt));
            inf.a32s1 := inf.a32s1 MOD AdlerBase;
            inf.a32s2 := inf.a32s2 MOD AdlerBase;
            INC(inf.a32s1, ORD(bt));
            INC(inf.a32s2, inf.a32s1)
         END
      END;
      INC(inf.totalUnpacked)
   END PutByte;