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

##############################################################################
###+-----------+##############################################################
#+-| DELETED() |-------------------------------------------------------+######
#| +-----------+ Returns TRUE if current record is marked for deletion |######
#+---------------------------------------------------------------------+######
##############################################################################
##############################################################################
#+--| Summary |------------------+############################################
#|     #INCLUDE database.hdr     |############################################
#+-------------------------------+############################################
##############################################################################
##############################################################################
#+--| Syntax |--------------------------------+###############################
#|     FUNCTION LOGICAL deleted PROTOTYPE     |###############################
#+--------------------------------------------+###############################
##############################################################################
##############################################################################
############+---| Description |-----------------------------------+###########
############| The deleted() function returns TRUE if the current  |###########
############| record is marked for deletion in the current alias. |###########
############+-----------------------------------------------------+###########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Records are deleted using the DELETE command.       |#########
#########|                                                          |#########
#########| DELETE                                                   |#########
#########| ? deleted()                 && prints .T.                |#########
#########| RECALL                                                   |#########
#########| ? deleted()                 && prints .F.                |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Verify records to be deleted before packing.        |#########
#########|                                                          |#########
#########| GOTO TOP                                                 |#########
#########| DO WHILE .NOT. eof()                                     |#########
#########|     IF deleted()                                         |#########
#########|         ? book->title                                    |#########
#########|         WAIT "Are you sure? " TO yes_no                  |#########
#########|         IF yes_no $ "Nn"                                 |#########
#########|             RECALL                                       |#########
#########|         ENDIF                                            |#########
#########|     ENDIF                                                |#########
#########| ENDDO                                                    |#########
#########| PACK                                                     |#########
#########+----------------------------------------------------------+#########
##############################################################################