anchor.diff:  
   procedure TMainForm.MenuHWCH341AClick(Sender: TObject);
   begin
  -  CH341 := true;
  +  SelectHW(HW_CH341A);
   end;
   
   procedure TMainForm.MenuHWUSBASPClick(Sender: TObject);
   begin
  -  CH341 := false;
  +  SelectHW(HW_USBASP);
   end;
   
   procedure TMainForm.MenuItemBenchmarkClick(Sender: TObject);
  
positive.code:   if not OpenDevice() then exit;
    if not SetSPISpeed(0) then exit;
    EnterProgMode25(hUSBdev);
  
    cycles := 128;
  
  
negative.code:   SPI_CMD_KB             = 2;
    SPI_CMD_95             = 3;
  
    HW_USBASP              = 0;
    HW_CH341A              = 1;
  
  
  var
    MainForm: TMainForm;
  