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