anchor.diff:    PC.SetFunction('LogPrint', @Script_LogPrint);
     PC.SetFunction('ProgressBar', @Script_ProgressBar);
     PC.SetFunction('IntToHex', @Script_IntToHex);
  +
  +  PC.SetFunction('ReadToEditor', @Script_ReadToEditor);
  +  PC.SetFunction('WriteFromEditor', @Script_WriteFromEditor);
   
     PC.SetFunction('CreateByteArray', @Script_CreateByteArray);
     PC.SetFunction('GetArrayItem', @Script_GetArrayItem);
  
positive.code:   if A.Count < 1 then Exit(false);
  
    speed := TPVar(A.Items[0])^.Value;
    if speed = _SPI_SPEED_MAX then
      if AsProgrammer.Current_HW = CHW_AVRISP then speed := 0
        else speed := 13;
    if EnterProgMode25(SetSPISpeed(speed)) then
      R.Value := True
    else
  
negative.code:   PC.SetFunction('SPIWrite', @Script_SPIWrite);
    PC.SetFunction('SPIReadToEditor', @Script_SPIReadToEditor);
    PC.SetFunction('SPIWriteFromEditor', @Script_SPIWriteFromEditor);
  
    PC.SetFunction('I2CEnterProgMode', @Script_I2CEnterProgMode);
    PC.SetFunction('I2CExitProgMode', @Script_I2CExitProgMode);
    PC.SetFunction('I2CReadWrite', @Script_I2CReadWrite);
    PC.SetFunction('I2CIsBusy', @Script_I2CIsBusy);
  
  end;
  
  