anchor.diff:    PC.SetFunction('GetArrayItem', @Script_GetArrayItem);
     PC.SetFunction('SetArrayItem', @Script_SetArrayItem);
   
  -  PC.SetFunction('SetSPISpeed', @Script_SetSPISpeed);
  -  PC.SetFunction('EnterProgModeSPI', @Script_EnterProgModeSPI);
  -  PC.SetFunction('ExitProgModeSPI', @Script_ExitProgModeSPI);
  +  PC.SetFunction('SPISetSpeed', @Script_SPISetSpeed);
  +  PC.SetFunction('SPIEnterProgMode', @Script_SPIEnterProgMode);
  +  PC.SetFunction('SPIExitProgMode', @Script_SPIExitProgMode);
     PC.SetFunction('SPIRead', @Script_SPIRead);
     PC.SetFunction('SPIWrite', @Script_SPIWrite);
     PC.SetFunction('SPIReadToEditor', @Script_SPIReadToEditor);
  
positive.code:   Result := true;
  end;
  
  {Script EnterProgModeSPI();
   Инициализирует состояние пинов для SPI и устанавливает скорость}
  function Script_EnterProgModeSPI(Sender:TObject; var A:TVarList) : boolean;
  begin
    EnterProgMode25(hUSBdev);
    Result := true;
  end;
  
  {Script ExitProgModeSPI();
   Отключает пины SPI}
  function Script_ExitProgModeSPI(Sender:TObject; var A:TVarList) : boolean;
  begin
    ExitProgMode25(hUSBdev);
    Result := true;
  
negative.code:   Result := true;
  end;
  
  {Script SPISetSpeed(speed): boolean;
   Устанавливает частоту SPI
   Если частота не установлена возвращает false
   Игнорируется для CH341}
  function Script_SPISetSpeed(Sender:TObject; var A:TVarList; var R:TVar) : boolean;
  var speed: byte;
  begin
    if A.Count < 1 then Exit(false);
  