anchor.diff:    end;
   end;
   
  +//Выполняет скрипт
   procedure RunScript(ScriptText: TStrings);
   var
     TimeCounter: TDateTime;
  
positive.code:   Result := true;
  end;
  
  //cs, size, buffer..
  function Script_SPIRead(Sender:TObject; var A:TVarList; var R: TVar) : boolean;
  var
    i: integer;
    DataArr: array of byte;
  begin
  
    if A.Count < 3 then Exit(false);
  
    SetLength(DataArr, A.Count);
  
    R.Value := SPIRead(hUSBdev, TPVar(A.Items[0])^.Value, TPVar(A.Items[1])^.Value, DataArr[0]);
  
    for i := 0 to A.Count-3 do
    begin
      TPVar(A.Items[i+2])^.Value := DataArr[i];
    end;
  
negative.code: interface
  
  uses
    Classes, SysUtils, Variants, Dialogs, graphics,
    usbasp25, msgstr, PasCalc;
  
  procedure SetScriptFunctions(PC : TPasCalc);
  procedure SetScriptVars();
  