listing = ls('/cdrom/NH0001/*.ENR');

fid = fopen('NH0001.scn', 'w');

dday = [];
heading = [];

while 1,
   [file, listing] = strtok(listing);
   if isempty(file), break; end

   d = read_os(file, 'ts');
   if isempty(d.error),

      dday = [dday; d.dday];
      heading = [heading; d.heading];
   end
end

fclose(fid)

