SYNTAX        VHA_ARPICK(P1,P2,P3,P4,P5,P6,P7)

PURPOSE       Selects element from one-dimensional array

ARGUMENTS     P1 - NUMERIC
                 - MANDATORY
                 - upper line of window

              P2 - NUMERIC
                 - MANDATORY
                 - left column of window

              P3 - NUMERIC
                 - MANDATORY
                 - bottom line of window

              P4 - NUMERIC
                 - OPTIONAL
                 - DEFAULT: 0 (no border)
                 - kind of border of window
                   see VHA_BOX() for values

              P5 - ARRAY (character)
                 - MANDATORY
                 - one-dimensional array with elements to select from

              P6 - NUMERIC
                 - OPTIONAL
                 - DEFAULT: nil
                 - line on which position indicator appears

              P7 - NUMERIC
                 - OPTIONAL
                 - DEFAULT: 1
                 - elementnumber to start selection bar

RETURNS       NUMERIC