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

##############################################################################
###+---------+################################################################
#+-| FOUND() |--------------------------------------------+###################
#| +---------+ Returns current status of the found() flag |###################
#+--------------------------------------------------------+###################
##############################################################################
##############################################################################
#+--| Summary |------------------+############################################
#|     #INCLUDE database.hdr     |############################################
#+-------------------------------+############################################
##############################################################################
##############################################################################
#+--| Syntax |------------------------------+#################################
#|     FUNCTION LOGICAL found PROTOTYPE     |#################################
#+------------------------------------------+#################################
##############################################################################
##############################################################################
##########+---| Description |--------------------------------------+##########
##########| The found() flag is set to TRUE if a search from the   |##########
##########| CONTINUE, FIND, LOCATE or SEEK commands is successful. |##########
##########| The found() function returns the current status of     |##########
##########| the found() flag.                                      |##########
##########+--------------------------------------------------------+##########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Search for a customer and, if found, edit           |#########
#########| *    the customer record.                                |#########
#########|                                                          |#########
#########| PROCEDURE find_customer                                  |#########
#########|     PARAMETERS CHAR cust_name(30)                        |#########
#########|                                                          |#########
#########|     SEEK cust_name                                       |#########
#########|     IF found()                                           |#########
#########|          EDIT                                            |#########
#########|     ENDIF                                                |#########
#########| ENDPRO                                                   |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    For unindexed databases, use the LOCATE command.    |#########
#########| *    In this case, LOCATE each customer who purchased    |#########
#########| *    an RCA tape deck.                                   |#########
#########|                                                          |#########
#########| LOCATE ALL FOR "rcatapedeck" $ squish( c->p )            |#########
#########|     DO WHILE found()                                     |#########
#########|        DO process_record                                 |#########
#########|        CONTINUE                                          |#########
#########|     ENDIF                                                |#########
#########+----------------------------------------------------------+#########
##############################################################################