* Следующий пример демонстрирует, как пользоваться командами SET
* TEXTMERGE, SET TEXTMERGE DELIMITERS, TEXT ... ENDTEXT и системной
* переменной памяти _TEXT.

* Создается файл низкого уровня NAMES.TXT, и его возвращенный номер
* сохраняется в системной переменной памяти _TEXT. Если файл
* NAMES.TXT создать не удалось, происходит выход из программы.
* Открывается таблица customer, и имена первых 10 сотрудников
* выводятся в файл NAMES.TXT. В него записывается текст и результаты
* функций.

* Затем текстовый файл с именами сотрудников открывается с помощью
* команды MODIFY FILE.

CLEAR

CLOSE DATABASES

SET TALK OFF

SET TEXTMERGE ON && Enable embedding of expressions and functions

STORE FCREATE('names.txt') TO _TEXT && Create low-level file

IF _TEXT = -1 && Can't create low-level file then exit program

WAIT WINDOW 'Cannot create an output file; press a key to exit'

CANCEL

ENDIF

CLOSE DATABASES

OPEN DATABASE (HOME( ) + 'samples\data\testdata')

USE customer && Opens Customer table

TEXT

CONTACT NAMES

<<DATE( )>> <<TIME( )>>

ENDTEXT

WAIT WINDOW 'Press a key to generate the first ten names'

SCAN NEXT 10

TEXT

<<contact>>

ENDTEXT

ENDSCAN

CLOSE ALL && Close the text file and the table

MODIFY FILE names.txt

ERASE names.txt