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:       S := IntToStr(I);
        if not F.SectionExists(S) then
        begin
          F.WriteInteger(S, 'X', Player.X);
          F.WriteInteger(S, 'Y', Player.Y);
          F.WriteInteger(S, 'Z', Ord(Map.Deep));
          Exit;
        end;
      end;
  
negative.code: 
  { TCorpses }
  
  procedure TCorpses.Save(Index, AX, AY, AZ: Byte);
  var
    F: TIniFile;
    S: string;
  begin
    F := TIniFile.Create(GetPath() + 'morgue.thi');
    try
      S := IntToStr(Index);
      F.WriteInteger(S, 'X', AX);
      F.WriteInteger(S, 'Y', AY);
      F.WriteInteger(S, 'Z', AZ);
    finally
      F.Free;
    end;
  end;
  
  procedure TCorpses.Append;
  var
    F: TIniFile;
  