function handle = streamer(fig,TitleString)

%  STREAMER  Titles for an entire figure.

% 	     STREAMER('text') adds text at the top of the current figure,

% 	     going across subplots.

%        STREAMER(fig,'text') adds it to the specified figure.

%

% changed default to fontsize 14 and fontweight bold   GK

% 

% 	     See also XLABEL, YLABEL, ZLABEL, TEXT, TITLE.

%

%	Keith Rogers 11/30/93

% Copyright (c) by Keith Rogers 1995

% 

% Mods:

%	11/94 adapted to 4.2

%   06/95 clean up, added alternate figure option.

if(nargin<2)

	TitleString = fig;

	fig = gcf;

end

ax = gca;

sibs = get(fig, 'Children');

for i = 1:max(size(sibs))

	if(strcmp(get(sibs(i),'Type'),'axes'))

		if(strcmp(get(sibs(i),'Tag'),'Streamer'))

				StreamerHand = sibs(i);

		end

	end

end

if (exist('StreamerHand')~=2)

	figure(fig);

	StreamerHand = axes('Units','normalized',...

						'Position',[.1 .9 .8 .05],...

						'Box','off',...

						'Visible','off',...

						'Tag','Streamer');

	handle = get(gca,'Title');

	set(handle,'Visible','On');

else

	handle = get(gca,'Title');

	axes(StreamerHand);

end

title(TitleString);

axes(ax);

set(handle,'fontweight','bold','fontsize',16);