function at_stordat


try
   str = getfname('\\tsunami.shore.mbari.org\oasis\eqpac\pete\realtimeprc\ftp_nasa\stor*.ftp');
   [r c] = size(str);
   for i = 1:r
      delete(['\\tsunami.shore.mbari.org\oasis\eqpac\pete\realtimeprc\ftp_nasa\' deblank(str(i,:))]);
   end
catch
end

%=================
% Create 70XX.ftp
%=================
satlan_prc;

%====================================================
% Create Stordat Quality Control plots and web pages
%====================================================
delete('d:\www\bog\stor*.html');
delete('d:\www\bog\images\stordat\*.gif');

s = at_stordat_qc;
at_stordat_html1(s);

%================================================================
% Combine All HF and PTT data from a single location into a file
%================================================================
%at_stordat_combine;