anchor.diff:  {$mode objfpc}{$H+}
   
   // disable to remove debugging output
  -{.$Define DEBUG}
  +{$Define DEBUG}
   
   interface
   
   uses
  -  Classes, SysUtils;
  +  Classes, SysUtils, fpg_base;
   
   const
    { TODO -oGraeme : Should this change to LineEnding (platfrom dependant) }
  
positive.code:   CloseFile(f);
  end;
  
  end.
  
  
negative.code: // Return AFilename's size in bytes
  function GetFileSize(const AFilename: string): integer;
  
  function IsDigit(const AChar: TfpgChar): boolean;
  function IsAlpha(const AChar: TfpgChar): boolean;
  
  
  implementation
  
  uses
    character // from utf8tools package (pulls in LCL requirement which we MUST change)
    ;
  
  
  Function ExtractNextValue( var S: string;
  