function [Function, err] = BK_GetFunction(sp)

PACKET_LENGTH = 26;
LoadCmdPacket = zeros(1,PACKET_LENGTH);
LoadCmdPacket(1:3)  = [ hex2dec('aa') 00 hex2dec('5e')];
LoadCmdPacket(end) = rem(sum(LoadCmdPacket(1:end-1)),256);  %Compute checksum
fwrite(sp,LoadCmdPacket);
 A = fread(sp,PACKET_LENGTH);
Function = A(4);
err = 0;
 
 
end
