anchor.diff:    if not OpenDevice() then exit;
     if not SetSPISpeed(0) then exit;
     EnterProgMode25(hUSBdev);
  +  LockControl();
   
     cycles := 128;
   
  
positive.code: 
  procedure TMainForm.MenuHWCH341AClick(Sender: TObject);
  begin
    CH341 := true;
  end;
  
  procedure TMainForm.MenuHWUSBASPClick(Sender: TObject);
  begin
    CH341 := false;
  end;
  
  procedure TMainForm.MenuItemBenchmarkClick(Sender: TObject);
  
negative.code:         if OptVal = 'ch341a' then
          begin
            MainForm.MenuHWCH341A.Checked := true;
            SelectHW(HW_CH341A);
          end;
        end;
  
  