anchor.diff:    CloseFile(f);
   end;
   
  +function IsDigit(const AChar: TfpgChar): boolean;
  +begin
  +  Result := TCharacter.IsDigit(AChar);
  +end;
  +
  +function IsAlpha(const AChar: TfpgChar): boolean;
  +begin
  +  Result := TCharacter.IsLetter(AChar);
  +end;
  +
   end.
   
  
positive.code: {$mode objfpc}{$H+}
  
  // disable to remove debugging output
  {.$Define DEBUG}
  
  interface
  
  uses
    Classes, SysUtils;
  
  const
   { TODO -oGraeme : Should this change to LineEnding (platfrom dependant) }
  
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;
  