anchor.diff:  // 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;
  
positive.code:   CloseFile(f);
  end;
  
  end.
  
  
negative.code: {$mode objfpc}{$H+}
  
  // disable to remove debugging output
  {$Define DEBUG}
  
  interface
  
  uses
    Classes, SysUtils, fpg_base;
  
  const
   { TODO -oGraeme : Should this change to LineEnding (platfrom dependant) }
  