code:

---

$array=dirlist('path2dir\*.*)
for each $file in $array
  open(1,$file)
  for $a=1 to 3
    $line=readline(1)
  next
  close(1)
  ? $line
next

---

code:

---

$FileName = Dir("C:\novellclient\*.*")
While $FileName <> "" and @ERROR = 0
 $nul=open (1,"C:\novellclient\"+$filename)
 for $a=1 to 3
 $line=readline(1)
 next
 $nul=close(1)
 ? $line
 $FileName = Dir() ; retrieve next file
Loop

---

code:

---

 $directory="C:\novellclient\"
 $filename = Dir($directory+"*.*")
 IF (Len($filename) <> 0)
       WHILE ($filename <> "") AND (@error = 0)
             IF GetFileAttr($directory+$filename) & 16
                   IF ($filename <> ".") AND ($filename <> "..")
                         ? "entry skipped. '"+LCASE($directory+$filename)+"' is directory"
                   ENDIF
             ELSE
                   IF (Open(1,$directory+$filename) = 0)
                         FOR $i=1 TO 3
                               $line=readline(1)
                         NEXT
                         IF Close(1)
                         ENDIF
                         ? "file '"+LCASE($directory+$filename)+"' -> "+$line
                   ENDIF
             ENDIF
             $filename=Dir() ; retrieve next file
       LOOP
 ELSE
       ? "no files found"
 ENDIF

---