anchor.diff:    TCorpses = class
     private
       FCorpse: array [0..CorpseMax - 1] of TCorpse;
  +    procedure Save(Index, AX, AY, AZ: Byte);
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code: 
  { TCorpses }
  
  procedure TCorpses.Append;
  var
    F: TIniFile;
  
negative.code:       S := IntToStr(I);
        if not F.SectionExists(S) then
        begin
          Save(I, Player.X, Player.Y, Ord(Map.Deep));
          Exit;
        end;
      end;
  