function out = HOTPLATEreset
    
    Message = "0000000";
    writeserial(HOTPLATEinfo.Handle,Message);
    sleep(50);
    Data = readserial(HOTPLATEinfo.Handle,HOTPLATEinfo.Data_Size);
    
    if Data == "" then
        disp("Is empty");
    else
        List = strsplit(Data,"*") 
        TMPright = strtod(List(1))/10;
        TMPleft = strtod(List(2))/10;
        TMP = [TMPright,TMPleft];
        disp(TMP);
    end
    
    Data = readserial(HOTPLATEinfo.Handle,HOTPLATEinfo.Data_Size);
    
    
    while Data <> "" then
        Data = readserial(HOTPLATEinfo.Handle,HOTPLATEinfo.Data_Size);
        sleep(50);
    end
    disp("Serial is flushed, everything''s fine");

    Message = "2000000";
    writeserial(HOTPLATEinfo.Handle,Message);
    out = 1
endfunction
