PUBLIC avtors

@ 3, 4 GET avtor_2 ;
       PICTURE "@^" ;
       FROM avtors ;
       SIZE 2, 21 ;
       DEFAULT 1;
       COLOR SCHEME 5,6

+---------------------------------+
¦        @ ... GET - Списки       ¦
+---------------------------------+
@ <ряд, колонка> GET <пер> | <поле>
        [FUNCTION <вырC1>]
        | [PICTURE <вырC2>]
        FROM <массив>
        [RANGE <вырN1> [, <вырN2>]]
        | POPUP <вертикальное меню>
        [DEFAULT <выраж>]
        [SIZE <вырN3>, <вырN4>]
        [ENABLE | DISABLE]
        [MESSAGE <вырC3>]
        [VALID <вырL1>]
        [WHEN <вырL2>]
        [COLOR SCHEME <вырN5>
        | COLOR <список пар цветов>]
...
FROM <массив>
Строит список из элементов  массива. Массив может быть  одно- или двумерным. Если 
массив одномерный, первый элемент  массива будет являться первым элементом списка, 
второй - вторым и т. д.
Если массив  двумерный, для  создания списка  используются только элементы  первой   
колонки  массива. Первый элемент массива становится первым элементом списка, второй 
элемент массива в этой же колонке становится вторым элементом списка и т. д.

+---------------------------------+
¦  @ ... GET - Вертикальные меню  ¦
+---------------------------------+
@ <ряд, колонка> GET <пер>
        FUNCTION <вырC1>
        | PICTURE <вырC2>
        [DEFAULT <выраж>]
        [FROM <массив>]
        [RANGE <вырN1> [, <вырN2>]]
        [SIZE <вырN3>, <вырN4>]
        [ENABLE | DISABLE]
        [MESSAGE <вырC3>]
        [VALID <вырL1>]
        [WHEN <вырL2>]
        [COLOR SCHEME <вырN5>
        | COLOR <список пар цветов>]

-----------------------------------
Cоздает вертикальное меню.
-----------------------------------
...
FROM <массив>
Создает вертикальное меню, исходя из значений элементов  массива. 
Если фраза FROM <массив> включена, все другие опции, определенные во фразах PICTURE
или  FUNCTION игнорируются. но символ  ^ должен по-прежнему присутствовать во фразах
PICTURE или FUNCTION. Массив может быть одно- или  двумерным. Если массив двумерный,  
элементы только  первой  колонки  массива  используются для создания опций 
вертикального  меню.  Первый  элемент  массива  становится первой опцией  
вертикального меню, второй элемент в первой колонке массива - второй опцией и т.д.

+---------------------------------+
¦         Пример программы        ¦
+---------------------------------+
SET TALK OFF
DEFINE WINDOW popupex FROM 7, 16 TO 16,63 ;
        FLOAT DOUBLE COLOR SCHEME 5
CLOSE ALL
USE customer
DIMENSION dbftags(256)
dbftags(1) = 'Запись #'
FOR i = 2 to 256
        IF empty(tag(i-1))
                i = i - 1
                DIMENSION dbftags(i)
                EXIT
        ELSE
                dbftags(i) = tag(i-1)
        ENDIF
ENDFOR
dbforder = 'Запись #'

ACTIVATE WINDOW popupex
@ 3,7 GET dbforder PICTURE '@^' FROM dbftags SIZE 3,14
@ 0,2 TO 7,43
@ 0,5 SAY ' Заказчик Просмотр Порядок: '
@ 2,27 GET okcancel PICTURE '@*VT \!OK;\?Cancel' ;
        SIZE 1, 10, 2 DEFAULT 0
READ CYCLE
RELEASE WINDOW popupex

IF okcancel = 1
        IF dbforder = "Запись #"
                SET ORDER TO
        ELSE
                SET ORDER TO (dbforder)
        ENDIF
        WAIT WINDOW 'Упорядочить '+dbforder NOWAIT
        BROWSE WIDTH 10 NOWAIT
ELSE
        WAIT WINDOW 'Неупорядочен' NOWAIT
        CLOSE ALL
ENDIF