bsclose

function bsclose
%  	Author: Isaac Noh
%   Copyright 2008-2009 The MathWorks, Inc.
%   Version: 1.1


u1 = guidata(gcbo);
if ~isempty(u1)
    fclose(u1);
    delete(u1);
    clear u1;
end
clear readPort
delete(gcf);