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:   DisplayedIndex := TStringList.Create;
    CurrentHistoryIndex := -1;
    FHistorySelection := False;
    { TODO -oGraeme : Make Debug a menu option }
    Debug := False;
  
  
negative.code: 
  procedure TMainForm.miFileOpenClicked(Sender: TObject);
  begin
    OpenAdditionalFile := False;
    FileOpen;
  end;
  
  procedure TMainForm.miFileOpenAdditionalFileClicked(Sender: TObject);
  begin
    OpenAdditionalFile := True;
    FileOpen;
    OpenAdditionalFile := False;
  end;
  
  procedure TMainForm.miFileOpenSpecialClicked(Sender: TObject);
  var
    s: TfpgString;
  begin
    OpenAdditionalFile := False;
    if fpgInputQuery('Open Special...', 'Enter Environment Variable or Directory Path to open', s) then
    begin
      if s <> '' then
        OpenFile(s, '', True);
  