anchor.diff:  {
     fpGUI  -  Free Pascal GUI Toolkit
   
  -  Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this
  +  Copyright (C) 2001 - Aaron Lawrence (aaronl@consultant.com)
  +  Copyright (C) 2006 - 2015 See the file AUTHORS.txt, included in this
     distribution, for details of the copyright.
   
     See the file COPYING.modifiedLGPL, included in this distribution,
  
positive.code: //      this takes one of the INF bitmap blocks
  //      and decompresses it using LZW algorithms.
  
  procedure LZWDecompressBlock( pbInput: pByte;
                                number_bytes: LongWord;
                                pbOutput: PBYTE;
                                Var bytesOut: LongWord;
                                Var FinalCode: byte );
  var
    nextAvailableCode: LongWord;
    currentCode: LongWord;
  
negative.code:  * Variables renamed etc to make things clearer.
   */
  *)
  // -- Stuff for LZW decompression --
  const INIT_BITS = 9;
  const MAX_BITS = 12;
  const HASHING_SHIFT = MAX_BITS - 8;
  
  {if MAX_BITS == 15
  