Click above to get retro games delivered to your door ever month!

 findnext()          Find the next file in a sequence
------------------------------------------------------------------------------
 Declaration
   file.hdr

 Syntax
   func logical findnext extern

 Arguments
   None.

 Return
   A logical indicating if a matching file has been found.

 Description
   This function finds the next file in a sequence started by the findfirst()
   function. The original search attribute and pattern specified by
   findfirst() remain in effect.

   The function returns .t. if one more file could be found matching the
   criteria defined in the most recent findfirst() call. Otherwise, it
   returns .f..

 Example
   #define EXAMPLE_FILE
   #include example.hdr

   // Display all .prg files in current directory
   
   proc Test_findnext
   if findfirst( "*.prg" , FIND_ARCHIVE )
      repeat
         ? findfstr()
      until .not. findnext()
   endif
   endproc

   proc main
   Test_findnext()
   endproc