pro fc

cd=qgetfile('c:\c_tar.txt')
cl=qgetfile('c:\c_tar.lis')
n=N_Elements(cd)<N_Elements(cl)

dossize=LonArr(n)
linuxsize=dossize
dosname=StrArr(n)
linuxname=dosname
diff=BytArr(n)

For i=0,n-1 DO BEGIN
    cdi=cd(i)
    cli=cl(i)
    dossize(i)=Long(StrMid(cdi,14,9))
    linuxsize(i)=Long(StrMid(cli,14,16))
    dosname(i)=StrMid(cdi,42,StrLen(cdi)-42)
    linuxname(i)=StrMid(cli,49,StrLen(cli)-49)
    diff(i)=(dossize(i) NE linuxsize(i)) OR $
            (dosname(i) NE linuxname(i))
    ENDFOR

wdiff=Where(diff,ndiff)
Help,diff,ndiff
Stop

Return
END