#!/bin/csh
set files = ( s8230 s7500 s6730 s6000 s5230 s4500 \
              s3730 s3000 s2230 s1500 s0730 s0000 \
              n0000 n0730 n1500 n2230 n3000 n3730 \
              n4500 n5230 n6000 n6730 n7500 n8230 )

@ i = 1
while ($i < $#files)
    echo ""
    rm -f J
    set f1 = $files[$i]
    acut -c1-16 $f1.dat > J
    if ($?f0) then
	echo "#...Compare $f0/$f1"
	(cat J; acut -c1-16 $f0.dat) | sort | uniq -d
    endif
    set f0 = $f1
    @ i += 1
    set f1 = $files[$i]
    echo "#...Compare $f0/$f1"
    (cat J; acut -c1-16 $f1.dat) | sort | uniq -d
end