function [err] = BK_SetFunction(sp,Function)

PACKET_LENGTH = 26;

LoadCmdPacket = zeros(1,PACKET_LENGTH);
LoadCmdPacket(1:4)  = [ hex2dec('aa') 00 hex2dec('5d') Function];

LoadCmdPacket(end) = rem(sum(LoadCmdPacket(1:end-1)),256);  %Compute checksum
fwrite(sp,LoadCmdPacket);
 A = fread(sp,PACKET_LENGTH);
 if(length(A) == PACKET_LENGTH)
   if(A(4) == hex2dec('80'))
     err = 0;
   else
     err = 1;
   end
 else
     err = 1;
 end
end
