anchor.diff:      procedure   MainFormDestroy(Sender: TObject);
       procedure   miFileQuitClicked(Sender: TObject);
       procedure   miFileOpenClicked(Sender: TObject);
  +    procedure   miFileOpenAdditionalFileClicked(Sender: TObject);
       procedure   miFileOpenSpecialClicked(Sender: TObject);
       procedure   miFileCloseClicked(Sender: TObject);
       procedure   miConfigureClicked(Sender: TObject);
  
positive.code: 
  procedure TMainForm.miFileOpenClicked(Sender: TObject);
  begin
    FileOpen;
  end;
  
  procedure TMainForm.miFileOpenSpecialClicked(Sender: TObject);
  var
    s: TfpgString;
  begin
    if fpgInputQuery('Open Special...', 'Enter environment variable to open', s) then
    begin
      if s <> '' then
        OpenFile(s, '', True);
  
negative.code:     Name := 'miFile';
      SetPosition(292, 96, 132, 20);
      AddMenuItem('Open...', '', @miFileOpenClicked);
      AddMenuItem('Open additional file...', '', @miFileOpenAdditionalFileClicked);
      AddMenuItem('Open Special...', '', @miFileOpenSpecialClicked);
      AddMenuItem('Save current Topic to IPF...', '', @miFileSaveTopicAsIPF);
      AddMenuItem('Close', '', @miFileCloseClicked);
  