Might try this:

code:

---

break on

$file1 = "dirlist.txt"
$file2 = "dirlist2.txt"

if open (1, "$file1" ) = 0

 $x = readline (1)

 while @error = 0

  if open ( 2, "$file2" ) = 0

   $y = readline (2)

   while @error=0

    if $x = $y

     ?"$x and $y are the same"

    endif

    $y = readline (2)

   loop

   $nul = close (2)

  endif

  $x = readline (1)

 loop

 $nul = close (1)

endif

exit

---

Shawn.

Removed redundant close(2)...

Shawn...

[This message has been edited by Shawn (edited 11 September 2000).]