code:

---

 ;test.kix;
 $handle = FreeFileHandle()
 $infile = "c:\toto.txt"
 IF $handle > 0
    IF Open($handle,$infile) = 0
       $fileline = ReadLine($handle)
       WHILE @error = 0
          IF InStr($fileline,"disk")
             $poul=$fileline
             ?$poul 
          ENDIF
          $fileline = ReadLine($handle)
       LOOP
    Else
       "File open error "+@error+" "+@serror?
    EndIf
 Else
    "File handle error "+@error+" "+@serror?
 EndIf
 IF Close($handle) <> 0
    "File close error "+@error+" "+@serror?
 EndIf  

---