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

##############################################################################
###+-------------+############################################################
#+-| PICK_INIT() |----------------------------------------------+#############
#| +-------------+ Returns a handle to an initialized pick list |#############
#+--------------------------------------------------------------+#############
##############################################################################
##############################################################################
#+--| Summary |--------------+################################################
#|     #INCLUDE pick.hdr     |################################################
#+---------------------------+################################################
##############################################################################
##############################################################################
#+--| Syntax |-------------------------------+################################
#|     FUNCTION LONG pick_init PROTOTYPE     |################################
#+-------------------------------------------+################################
##############################################################################
##############################################################################
########+---| Description |-------------------------------------------+#######
########| This function returns a handle to an initialized pick list. |#######
########| This routine allocates space required to manage a pick list |#######
########| The returned handle must be initialized to a LONG variable. |#######
########| The handle must be used with all succeeding functions that  |#######
########| access the pick list.                                       |#######
########+-------------------------------------------------------------+#######
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Initialize a pick list prior to adding any          |#########
#########| *    strings to the list.                                |#########
#########|                                                          |#########
#########| a = pick_init()                                          |#########
#########| FOR i = 1 to 10                                          |#########
#########|     pick_add( z, "Department "+i_str( r ))               |#########
#########| NEXT                                                     |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    If you have more than one pick list, use an         |#########
#########| *    array to manage the lists.                          |#########
#########|                                                          |#########
#########| VARDEF                                                   |#########
#########|     LONG     pick[ 10 ]                                  |#########
#########| ENDDEF                                                   |#########
#########|                                                          |#########
#########|     {...}                                                |#########
#########|                                                          |#########
#########|     FOR r = 0 TO 9                                       |#########
#########|         pick[ r ] = pick_init()                          |#########
#########|     NEXT                                                 |#########
#########+----------------------------------------------------------+#########
##############################################################################