anchor.diff:      for i := 0 to self.buf.length -1 do writeln(txt, buf[i]);
       close( txt );
       result := true; // TODO error checking
  -    message := filename + ' saved.';
  +    TellUser(filename + ' saved.');
     end;
   
   function TEditor.SaveAs( path : string ) : boolean;
  
positive.code:     position := 0;
      filename := '';
      dirty := true;
      message  := 'welcome to minneron.';
    end;
  
  { file methods }
  
negative.code:       close( txt );
        self.filename := path;
      end
      else TellUser('couldn''t load "' + path + '"');
    end; { TEditor.Load }
  
  function TEditor.Save : boolean;
  