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

##############################################################################
###+------------+#############################################################
#+-| PICK_CLEAR |--------------------------------------------+################
#| +------------+ Frees memory associated with the pick list |################
#+-----------------------------------------------------------+################
##############################################################################
##############################################################################
#+--| Summary |--------------+################################################
#|     #INCLUDE pick.hdr     |################################################
#+---------------------------+################################################
##############################################################################
##############################################################################
#+--| Syntax |----------------------------+###################################
#|     PROCEDURE pick_clear PROTOTYPE     |###################################
#|      PARAMETERS VALUE LONG plist       |###################################
#+----------------------------------------+###################################
##############################################################################
##############################################################################
#########+---| Description |-----------------------------------------+########
#########| This procedure frees memory associated with the pick list |########
#########| specified by plist.  Use pick_clear when a pick list is   |########
#########| no longer to be used.                                     |########
#########+-----------------------------------------------------------+########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Clear a pick list from memory after a user          |#########
#########| *    has selected his/her choice.                        |#########
#########|                                                          |#########
#########| z = pick_init( pck_lst,pr,pc,pr2,pc2,.F.,.F. )           |#########
#########| zchar = pick_str( pck_list,  z )                         |#########
#########| pick_clear( pck_lst )                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Clear a pick list prior to running an               |#########
#########| *    external program or indexing.                       |#########
#########|                                                          |#########
#########| ACCEPT "Do you wish to reindex? " TO yes_no              |#########
#########|                                                          |#########
#########|     IF yes_no $ "Yy"                                     |#########
#########|         pick_clear( list1 )                              |#########
#########|         pick_clear( list2 )                              |#########
#########|         REINDEX                                          |#########
#########|         DO init_lists                                    |#########
#########| ENDIF                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################