 cd /Volumes/DVP/argo/iridium/300034012170570
 dlis = dir('0570_*.hex')
f1= fopen('full_list1.hex','w')
for n=1: length(dlis)
    f2 = fopen(dlis(n).name);
    for skip=1:3
        line = fgetl(f2);
    end
    m = findstr(line,'.');
    file_no = line(m-3:m-1);
    line = fgetl(f2);
    fprintf(f1,'%s %s %s\n',line,dlis(n).name,file_no);
    while ~feof(f2)
        line = fgetl(f2);
        fprintf(f1,'%s\n',line);
    end
    fclose(f2);
end
fclose(f1);
