PICKREADER()

  Short:
  ------
  PICKREADER() Creates specialized picklist reader block

  Returns:
  --------
  <bReader> => get reader block for GET

  Syntax:
  -------
  PICKREADER(aValues,[nTop,nLeft],[nBottom,nRight])

  Description:
  ------------
  Creates a get reader block that is a popup list from
  the array <aValues>.

  Implement by using the SEND keyword for your
  @Say..Get.. statements.

    i.e. @10,10 say blah get blahblah SEND reader:=PICKREADER(aValues)

  <aValues> is an array of values that are of the same
  type and length as the GET.

  [nTop,nLeft] optional top, left coordinates

  [nBottom,nRight] optional bottom/right coordinates

  Examples:
  ---------
   // while in the get V1, you will be presented with a picklist
   // of aValues.

   aValues := {"Section 1","Section 2","Section 3"}
   v1 := "Section 1"
   @10,10 get v1 send reader := pickreader(aValues,10,10)

   READ

  Source:
  -------
  S_READRS.PRG