anchor.diff:    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;
   end;
   
  -//inc, (max, pos)
  +{Script ProgressBar(inc, max, pos);
  + Устанавливает состояние ProgressBar
  + Параметры:
  +   inc насколько увиличить позицию
  + Необязательные параметры:
  +   max максимальная позиция ProgressBar
  +   pos устанавливает конкретную позицию ProgressBar}
   function Script_ProgressBar(Sender:TObject; var A:TVarList) : boolean;
   begin
   
  
positive.code: 
  uses main, scriptedit;
  
  function ParseScriptText(Script: TStrings; SectionName: string; var ScriptText: TStrings ): Boolean;
  var
    st: string;
  
negative.code:   LogPrint(STR_TIME + TimeToStr(Time() - TimeCounter));
  end;
  
  {Выполняет секцию скрипта из файла
   Если файл или секция отсутствует то возвращает false}
  function RunScriptFromFile(ScriptFile: string; Section: string): boolean;
  var
    ScriptText, ParsedScriptText: TStrings;
  