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

##############################################################################
###+-------------+############################################################
#+-| FIND_NEXT() |-----------------------------------+########################
#| +-------------+ Finds the next file in a sequence |########################
#+---------------------------------------------------+########################
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE system.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |----------------------------------+#############################
#|     FUNCTION LOGICAL find_next PROTOTYPE     |#############################
#+----------------------------------------------+#############################
##############################################################################
##############################################################################
#########+---| Description |----------------------------------------+#########
#########| This function finds the next file in a sequence started  |#########
#########| by the find_first() function.  The original search       |#########
#########| attribute and pattern specified by the find_first()      |#########
#########| remain in effect.                                        |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Display all .prg files in current directory.        |#########
#########|                                                          |#########
#########| IF find_first( "*.prg" , 0x20 )                          |#########
#########|     REPEAT                                               |#########
#########|         ? find_fstr()                                    |#########
#########|     UNTIL .NOT. find_next()                              |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Get a list of directory names into a database.      |#########
#########|                                                          |#########
#########| IF find_first( "*.*", 0x10 )                             |#########
#########|     REPEAT                                               |#########
#########|         APPEND BLANK                                     |#########
#########|         REPLACE f->dirname WITH find_fstr()              |#########
#########|     UNTIL .NOT. find_next()                              |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################