function infoscrn(action);

if nargin==0,

figure;
set(gcf,...
    'MENUBAR', 'none',...
    'NUMBERTITLE', 'off',...
    'UNITS', 'normalized',...
    'NEXTPLOT', 'new',...
    'NAME', 'About Demonstration',...
    'COLORMAP', [],...
    'POSITION', [0.2 0.2 0.6 0.6]);

uicontrol('STYLE', 'frame',...
          'UNITS', 'normalized',...
          'BACKGROUNDCOLOR', 'blue',...
          'POSITION', [0 0 0.75 1]);               


uicontrol('STYLE', 'text',...
	  'UNITS', 'normalized',...
          'BACKGROUNDCOLOR', 'blue',...
          'FOREGROUNDCOLOR', 'cyan',...
	  'POSITION', [0.01 0.74 0.73 0.05],...
	  'STRING', 'This demonstration was developed by');

uicontrol('STYLE', 'text',...
	  'UNITS', 'normalized',...
          'BACKGROUNDCOLOR', 'blue',...
          'FOREGROUNDCOLOR', 'cyan',...
	  'POSITION', [0.01 0.68 0.73 0.05],...
	  'STRING', 'Christopher Hocker'); 

uicontrol('STYLE', 'text',...
	  'UNITS', 'normalized',...
          'BACKGROUNDCOLOR', 'blue',...
          'FOREGROUNDCOLOR', 'cyan',...
	  'POSITION', [0.01 0.62 0.73 0.05],...
	  'STRING', 'in a project directed by');

uicontrol('STYLE', 'text',...
	  'UNITS', 'normalized',...
          'BACKGROUNDCOLOR', 'blue',...
          'FOREGROUNDCOLOR', 'cyan',...
	  'POSITION', [0.01 0.56 0.73 0.05],...
	  'STRING', 'Wilson J. Rugh');

uicontrol('STYLE', 'text',...
	  'UNITS', 'normalized',...
          'BACKGROUNDCOLOR', 'blue',...
          'FOREGROUNDCOLOR', 'cyan',...
	  'POSITION', [0.01 0.50 0.73 0.05],...
	  'STRING', 'with the support of the National Science');

uicontrol('STYLE', 'text',...
	  'UNITS', 'normalized',...
          'BACKGROUNDCOLOR', 'blue',...
          'FOREGROUNDCOLOR', 'cyan',...
	  'POSITION', [0.01 0.44 0.73 0.05],...
	  'STRING', 'Foundation and the Kenan Fund at the');

uicontrol('STYLE', 'text',...
	  'UNITS', 'normalized',...
          'BACKGROUNDCOLOR', 'blue',...
          'FOREGROUNDCOLOR', 'cyan',...
	  'POSITION', [0.01 0.38 0.73 0.05],...
	  'STRING', 'Johns Hopkins University.');

uicontrol('STYLE', 'pushbutton',...
          'UNITS', 'normalized',...
          'POSITION', [0.77 0.03 0.21 0.11],...
          'STRING', 'Close',...
          'CALLBACK', 'close');

end
		   
