anchor.diff:    RomF.WriteBuffer(DataArr[0], BufferLen);
     RomF.Position := 0;
     MainForm.KHexEditor.LoadFromStream(RomF);
  -
  -  Result := true;
  -end;
  -
  -//cs, size, position
  +  Result := true;
  +end;
  +
  +{Script SPIWriteFromEditor(cs, size, position): integer;
  + Записывает данные из редактора размером size с позиции position
  + Параметры:
  +   cs если cs=1 отпускать Chip Select после записи данных
  +   size размер данных в байтах
  +   position позиция в редакторе
  + Возвращает количество записанных байт}
   function Script_SPIWriteFromEditor(Sender:TObject; var A:TVarList; var R: TVar) : boolean;
   var
     DataArr: array of byte;
  
positive.code: 
  uses main, scriptedit;
  
  function ParseScriptText(Script: TStrings; SectionName: string; var ScriptText: TStrings ): Boolean;
  var
    st: string;
  
negative.code:   Result := true;
  end;
  
  {Script SetSPISpeed(speed): boolean;
   Устанавливает частоту SPI
   Если частота не установлена возвращает false
   Игнорируется для CH341}
  function Script_SetSPISpeed(Sender:TObject; var A:TVarList; var R:TVar) : boolean;
  var speed: byte;
  begin
  