anchor.diff:  var
     f: TextFile;
   begin
  -  {$IOChecks off}
     Assign(f, AFilename);
     Rewrite(f);
     if IOResult=0 then
     begin
  -    Writeln(f, AText);
  +    Write(f, AText);
       CloseFile(f);
     end;
   end;
  
positive.code: unit proc_globdata;
  
  {$mode objfpc}{$H+}
  
  interface
  
  
negative.code:   f: TextFile;
  begin
    Result:= '';
    Assign(f, AFilename);
    Reset(f);
    if IOResult=0 then
  