function writestr(File, str)
%WRITESTR Write a string to a text file
%S=writestr(File,str)
%
% Write a string in a ascii file.
%
% Claudio  5.10.95

%
% Copyright (c) 1995 by Claudio Rivetti and Mark Young
% claudio@alice.uoregon.edu,    mark@alice.uoregon.edu
%


fid=fopen(File, 'w+');

for i=1:size(str,1)
  fprintf(fid, '%s\n', str(i,:));
end

fclose(fid);

return