anchor.diff:              Break;
   
             FIsWhite := not FIsWhite;
  -          if FIsWhite then
  -            RunLength := FindWhiteCode
  -          else
  -            RunLength := FindBlackCode;
  +          RunLength:=FindRunLength;
             FillRun(RunLength);
             inc(fBitPos, RunLength);
   
  
positive.code:       FIsWhite := True;
        // decode one line
        repeat
          if FIsWhite then
            RunLength := FindWhiteCode
          else
            RunLength := FindBlackCode;
          //populating array for 2D compression (if needed)
          if ((FOptions and 1) <> 0) then begin
            inc(fBitPos, RunLength);
  
negative.code: 
    // main loop
    repeat
      RunLength:=FindRunLength;
      if RunLength > 0 then
        if FillRun(RunLength) then
          AdjustEOL;
  