function out = chstr(in)
 for i=0:9
  tmp = int2str(i);
  in = in(find(in ~= tmp));
 end
 if isempty(in)
  out = 0;
 elseif strcmp(in,'.')
  out = 0;
 elseif strcmp(in,'e+')
  out = 0;
 elseif strcmp(in,'e-')
  out = 0;
 elseif strcmp(in,'.e+')
  out = 0;
 elseif strcmp(in,'.e-')
  out = 0;
 else
  out = 1;
 end
%
% Copyright MUSYN INC 1991,  All Rights Reserved
