anchor.diff:        Application.Terminate;
   end;
   
  +PROCEDURE TwinMain.btnExitClick(Sender: TObject);
  +BEGIN
  +      Application.Terminate;
  +end;
  +
   END.
   
  
positive.code: 
  USES
          Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
          modWinSize;
  
  TYPE
  
  		{ TwinMain }
  
          TwinMain = CLASS(TForm)
  							mnuWireExit: TMenuItem;
  							mnuWireSep1: TMenuItem;
  				mnuSorted3faze: TMenuItem;
  
negative.code: 				mnuWireSquare: TMenuItem;
  				mnuSorted1faze: TMenuItem;
  				mnuMain: TMainMenu;
  				PROCEDURE btnExitClick(Sender: TObject);
      PROCEDURE mnuWireExitClick(Sender: TObject);
      PROCEDURE mnuWireSquareClick(Sender: TObject);
          PRIVATE
                  { private declarations }
  