global ser;
global sample_period;
pkg load instrument-control

##if (isempty(instrfind) ~= 1)
##        o = instrfind;
##        ser = o(1);
##        delete(ser);
##        %fclose(instrfind);
##        %freeserial(instrfind);
##end
%ser=serial('COM5', 'BaudRate', 115200);
ser=serial('/dev/ttyACM0', 115200);
fopen(ser);

srate = 1/sample_period;
fprintf(ser, 'START:%d\n',srate);