* Пример 1 демонстрирует результаты увеличения размера одномерного
* массива. (Заметьте, что если эти команды введены из окна команд,
* массив будет принадлежать типу PUBLIC, но если скопировать эти
* команды в программу и выполнить ее, массив будет типа PRIVATE.)

* Если число элементов в массиве уменьшается, эти элементы и
* содержащиеся в них данные удаляются. Когда одномерный массив
* превращается в двумерный, содержимое исходного одномерного
* массива копируется в новый массив так, что все элементы заносятся в
* одну строку.

* В Примере 2 одномерный массив преобразуется в двумерный.
* Содержимое элементов одномерного массива копируется в первую
* строку нового массива, за ней идет вторая строка и т.д. Дополнительные
* элементы инициализируются значением "ложь" (.F.).

* Когда двумерный массив преобразуется в одномерный, содержимое
* исходного двумерного массива копируется в новый массив по строкам.
* Первый элемент первой строки становится первым элементом
* одномерного массива, второй элемент первой строки становится вторым
* элементом и т.д.

* Для удаления и вставки элементов, строк и столбцов массивов
* используйте функции ADEL( ) и AINS( ). Для передачи данных между
* табличными записями и массивами используйте команды APPEND FROM
* ARRAY, COPY TO ARRAY, SCATTER и GATHER.

* В Примере 3 создается двумерный массив, который загружается
* информацией. На экран выводятся элементы массива и их содержимое.

* Example 1

DIMENSION marray(2)

STORE 'A' TO marray(1)

STORE 'B' TO marray(2)

CLEAR

DISPLAY MEMORY LIKE marray

DIMENSION marray(4)

DISPLAY MEMORY LIKE marray

* Example 2

DIMENSION marrayone(4)

STORE 'E' TO marrayone(1)

STORE 'F' TO marrayone(2)

STORE 'G' TO marrayone(3)

STORE 'H' TO marrayone(4)

CLEAR

DISPLAY MEMORY LIKE marrayone

DIMENSION marrayone(2,3)

DISPLAY MEMORY LIKE marrayone

* Example 3

DIMENSION sample(2,3)

STORE 'Goodbye' TO sample(1,2)

STORE 'Hello' TO sample(2,2)

STORE 99 TO sample(6)

STORE .T. TO sample(1)

CLEAR

DISPLAY MEMORY LIKE sample