function xptext(s1,s2,s3,s4,s5,s6,s7,s8,s9,s10,s11,s12)
%XPTEXT An EXPO helper function to create text in figure windows.
%   XTEXT(S1,S2,S3,S4,S5,S6,S7,S8,S9,S10,S11,S12) puts strings
%   into the text window in a fixed width font.

%   Mark W. Reichelt, 7-30-93
%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 5.4 $  $Date: 1997/11/21 23:27:47 $

cla reset
set(gca,'Box','on','XTick',[],'YTick',[],'Visible','on');

for i = 1:nargin
  eval(['text(0.03,' num2str(1-0.1*i) ',s' num2str(i) ...
         ',''FontName'',''8x13'');']);
end
