function bmld_gui()

% by GUY, but modified by MPC 11/6/99 to use
% generic interface things

fig=createmadfig('bmld'); 
fig=createmadmenus(fig);
set(fig,'Name','Binaural Masking Level Difference (BMLD)');

% ud=get(fig,'UserData');
% a = figure('Units','normalized',...
% 'Position',[0.1 0.2 0.8 0.7],...
% 'Color',[0.8 0.8 0.8], ...
% 'DefaultAxesUnits','normal', ...
% 'DefaultUicontrolUnits','normal',...
% 'MenuBar','none', ...
% 'NumberTitle','off', ...
% 'Name','Binaural Masking Level Difference (BMLD)',...
% 'CloseRequestFcn','bmld close',...
% 'BackingStore','on',...
% 'Tag','bmld');


b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.7143    0.0390    0.2622    0.9091], ...
'Style','frame', ...
'Tag','Frame3');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.0294    0.5065    0.6654    0.4416], ...
'Style','frame', ...
'Tag','Frame1');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Position',[0.0489    0.7922    0.2348    0.0519], ...
'String',{'Tone','Noise','Nothing'}, ...
'Style','popupmenu', ...
'Tag','RightMenu1', ...
'Value',1);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Position',[0.0489    0.7273    0.2348    0.0519], ...
'String',{'Tone','Noise','Nothing'}, ...
'Style','popupmenu', ...
'Tag','RightMenu2', ...
'Value',2);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Position',[0.3229    0.7922    0.2348    0.0519], ...
'String',{'Tone','Noise','Nothing','Tone Pi','Noise Pi','Uncorrelated Noise'}, ...
'Style','popupmenu', ...
'Tag','LeftMenu1', ...
'Value',3);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Position',[0.3229    0.7273    0.2348    0.0519], ...
'String',{'Tone','Noise','Nothing','Tone Pi','Noise Pi','Uncorrelated Noise'}, ...
'Style','popupmenu', ...
'Tag','LeftMenu2', ...
'Value',3);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Callback','bmld intensity1changed', ...
'Position',[0.0489    0.6623    0.5088    0.0519], ...
'Style','slider', ...
'Tag','Slider1', ...
'Value',0.56);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.5577    0.6623    0.1272    0.0416], ...
'Style','text', ...
'Tag','IntensityText1');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Callback','bmld listen1', ...
'Position',[0.0489    0.5325    0.1742    0.1039], ...
'String','LISTEN', ...
'Tag','Pushbutton1');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.0489    0.8597    0.2348    0.0416], ...
'String','Right Ear', ...
'Style','text', ...
'Tag','StaticText1');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.3131    0.8597    0.2348    0.0416], ...
'String','Left Ear', ...
'Style','text', ...
'Tag','StaticText2');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'FontSize',20, ...
'Position',[0.2838    0.5325    0.3249    0.0805], ...
'String','CONDITION 1', ...
'Style','text', ...
'Tag','StaticText3');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.0294    0.0390    0.6654    0.4416], ...
'Style','frame', ...
'Tag','Frame2');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Callback','bmld listen2', ...
'Position',[0.0489    0.0649    0.1742    0.1039], ...
'String','LISTEN', ...
'Tag','Pushbutton2');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Callback','bmld intensity2changed', ...
'Position',[0.0489    0.1948    0.5088    0.0519], ...
'Style','slider', ...
'Tag','Slider2', ...
'Value',0.45);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.5577    0.1948    0.1272    0.0416], ...
'Style','text', ...
'Tag','IntensityText2');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Position',[0.0489    0.2597    0.2348    0.0519], ...
'String',{'Tone','Noise','Nothing'}, ...
'Style','popupmenu', ...
'Tag','RightMenu2a', ...
'Value',2);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Position',[0.0489    0.3247    0.2348    0.0519], ...
'String',{'Tone','Noise','Nothing'}, ...
'Style','popupmenu', ...
'Tag','RightMenu1a', ...
'Value',1);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Position',[0.3229    0.2597    0.2348    0.0519], ...
'String',{'Tone','Noise','Nothing','Tone Pi','Noise Pi','Uncorrelated Noise'}, ...
'Style','popupmenu', ...
'Tag','LeftMenu2a', ...
'Value',2);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Position',[0.3229    0.3247    0.2348    0.0519], ...
'String',{'Tone','Noise','Nothing','Tone Pi','Noise Pi','Uncorrelated Noise'}, ...
'Style','popupmenu', ...
'Tag','LeftMenu1a', ...
'Value',3);

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.0489    0.3948    0.2348    0.0416], ...
'String','Right Ear', ...
'Style','text', ...
'Tag','StaticText10');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.3229    0.3922    0.2348    0.0416], ...
'String','Left Ear', ...
'Style','text', ...
'Tag','StaticText11');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'FontSize',20, ...
'Position',[0.2838    0.0649    0.3249    0.0805], ...
'String','CONDITION 2', ...
'Style','text', ...
'Tag','StaticText31');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.8 0.8 0.8], ...
'Callback','bmld presetChanged', ...
'Position',[0.7319    0.8052    0.2309    0.0416], ...
'String',{'NoSo/NoSpi','NoSo/NpiSo','NmSm/NoSm','NmSm/NpiSm','NoSo/NuSo','NoSo/NuSpi'}, ...
'Style','popupmenu', ...
'Tag','PresetPopup', ...
'Value',3);

b = uicontrol('Parent',fig, ...
'FontSize',14, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'Position',[0.7671    0.8571    0.1644    0.0571], ...
'String','Presets', ...
'Style','text', ...
'Tag','StaticText41');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'FontSize',36, ...
'Position',[0.7339    0.1558    0.2329    0.1221], ...
'String','BMLD', ...
'Style','text', ...
'Tag','StaticTextTitle');

b = uicontrol('Parent',fig, ...
'BackgroundColor',[0.7 0.7 0.7], ...
'FontSize',24, ...
'Position',[0.7339    0.0649    0.2329    0.0779], ...
'String','0 dB', ...
'Style','text', ...
'Tag','bmldvalue');