function out=HOTPLATEseeTMP(varargin)
    
    readserial(HOTPLATEinfo.Handle,HOTPLATEinfo.Data_Size);
    if isempty(varargin) then
        Message = "3000000"
        writeserial(HOTPLATEinfo.Handle,Message);
        sleep(50);
        Data = readserial(HOTPLATEinfo.Handle,HOTPLATEinfo.Data_Size);
        List = strsplit(Data,"*") 
        TMPright = strtod(List(1))/10;
        TMPleft = strtod(List(2))/10;
        TMP = [TMPright,TMPleft];
        disp(TMP);
        sleep(50);
        Message = "2000000"
        writeserial(HOTPLATEinfo.Handle,Message);
    else
        Message = "3000000"
        writeserial(HOTPLATEinfo.Handle,Message);
        sleep(50);
        Data = readserial(HOTPLATEinfo.Handle,HOTPLATEinfo.Data_Size);
        List = strsplit(Data,"*") 
        TMPright = strtod(List(1))/10;
        TMPleft = strtod(List(2))/10;
        TMP = [TMPright,TMPleft];
        disp(TMP);
        sleep(varargin(1));
        Message = "2000000"
        writeserial(HOTPLATEinfo.Handle,Message);
    end
    
out = 1;

endfunction
