VPICK()         Database "pick-list" routine

Description:
  VPICK() allows the user to pick a record from a "pick-list" window.
  The "pick-list" window contains a subset of fields for each record in
  the database. VPICK() is non-screen destructive.


Syntax:     
  VPICK( <expN1>, <expN2>, <expN3>, <expC1>, <expC2>, <expC3>, <expL> )


Pass:       
  <expN1>  = Top row of window

  <expN2>  = Left column of window

  <expN3>  = Maximum number of lines in window

  <expC1>  = Macro string of field names to display on each line.  i.e.
  "FRST_NAME+[ ]+LAST_NAME"

  <expC2>  = Title for top of window

  <expC3>  = Footnote for bottom of window

  <expL>   = .T. if database is indexed, otherwise .F.


Return:     
  <expN>   = INKEY() value of last key pressed by user


Notes:      


Example:    
  c_FldList = "LAST_NAME+[ ]+FRST_NAME+[ ]+PHONE"
  DO WHILE .T.
     gn_StartRec = RECNO()  && What record to start on?
     n_Key = VPICK(5,5,12,c_FldList,"Title","Footnote")
     DO CASE
        CASE n_Key = 13   && [Return]
           EDITPROG()     && Edit current record
        CASE n_Key = 22   && [Insert]
           ADD_PROG()     && Add new record
        CASE n_Key = 27   && [Escape]
           EXIT
     ENDCASE
  ENDDO
  .
  .
  .


Usage: