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

##############################################################################
###+--------+#################################################################
#+-| RECALL |------------------------------------------------+################
#| +--------+ The RECALL command restores records marked for |################
#|            deletion in the current or selected alias      |################
#+-----------------------------------------------------------+################
##############################################################################
##############################################################################
#+--| Syntax |---------------------------------------------------+############
#|     [!<Alias>] RECALL [Scope][WHILE<L-exp>] [FOR <L-exp>]     |############
#+---------------------------------------------------------------+############
##############################################################################
##############################################################################
########+---| Description |-------------------------------------------+#######
########| The default scope for RECALL is RECORD recno().  If the SET |#######
########| DELETE flag is ON, then scope ALL, REST, NEXT <Long-exp>    |#######
########| cannot be used; scope RECORD <Ulong-exp> must be used.      |#######
########| ----------------------------------------------------------- |#######
########| Records removed from the alias by the PACK or ZAP commands  |#######
########| cannot be reinstated by RECALL.                             |#######
########+-------------------------------------------------------------+#######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Restore records marked for deletion.                |#########
#########|                                                          |#########
#########| !photos RECALL NEXT get_long()                           |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    These records will not be recalled because          |#########
#########| *    the SET DELETE ON command filters all               |#########
#########| *    deleted records from the RECALL command.            |#########
#########|                                                          |#########
#########| SET DELETE ON                                            |#########
#########| !drives RECALL ALL                                       |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 3 |-------------------------------------------+#########
#########| *    Insert all deleted records into a pick list         |#########
#########| *    so an operator can select which records are         |#########
#########| *    to be recalled.                                     |#########
#########|                                                          |#########
#########| d = pick_init()            && initialize pick list       |#########
#########| DO WHILE .NOT. eof()                                     |#########
#########|     IF deleted()                                         |#########
#########|         pick_add( d, i_val(recno())+" "+z->movie)        |#########
#########|     ENDIF                                                |#########
#########| ENDDO                                                    |#########
#########|                                                          |#########
#########| *--- deleted records are in pick list...                 |#########
#########|                                                          |#########
#########| @ 0,0 SAY "Press Esc to Abort"                           |#########
#########| REPEAT                                                   |#########
#########|     pick_list( d,1,1,24,30, pval, .F.,.F. )              |#########
#########|                                                          |#########
#########|     IF pval = &K_ENTER     && did user press enter?      |#########
#########|         RECALL RECORD i_str( pick_str( pval ))           |#########
#########|     ENDIF                                                |#########
#########|                                                          |#########
#########| UNTIL pval = 0                                           |#########
#########+----------------------------------------------------------+#########
##############################################################################