function out=HOTPLATEshutFAN
    Message = "4000000";
    writeserial(HOTPLATEinfo.Handle,Message);
    sleep(50)
    Data = readserial(HOTPLATEinfo.Handle,HOTPLATEinfo.Data_Size);
    out = 1;
endfunction
