pro sources ; Bo, May 24, 1994. ; pattern for the files spawn, 'ls /l/tmp/lars_c/video/datafinal/sources/source?', one spawn, "wc source? | awk '{print $1}' -", wc1 spawn, 'ls /l/tmp/lars_c/video/datafinal/sources/source??', two spawn, "wc source?? | awk '{print $1}' -", wc2 t1 = size(one) t2 = size(two) len1 = t1(1) len2 = t2(1) reads, wc1, lines, words, chars, name print, 'Converting ascii source files to explorer format' print for i=0, len1-1 do begin reads, wc1(i), ndataf ndata = fix(ndataf) print, 'file: ', one(i), ' ndata: ', ndata if (ndata gt 1) then ascii_to_bin, one(i), one(i), ndata, $ 0.0, 10.0, 0.0, 360.0, -90.0, 90.0 endfor for i=0, len2-1 do begin reads, wc2(i), ndataf ndata = fix(ndataf) print, 'file: ', two(i), ' ndata: ', ndata if (ndata gt 1) then ascii_to_bin, two(i), two(i), ndata, $ 0.0, 10.0, 0.0, 360.0, -90.0, 90.0 endfor end