* В следующем примере содержимое memo-поля notes копируется в файл
* TEST.TXT. Затем содержимое файла TEST.TXT присоединяется к
* содержимому memo-поля. Наконец, содержимое файла TEST.TXT
* замещает текущее содержимое memo-поля.

CLOSE DATABASES

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

USE employee && Open Employee table

WAIT WINDOW 'Employee notes memo field - press ESC' NOWAIT

MODIFY MEMO notes NOEDIT && Open the notes memo field

COPY MEMO notes TO test.txt && Create test file from memo field

WAIT WINDOW 'TEST.TXT text file - press ESC' NOWAIT

MODIFY FILE test.txt NOEDIT && Open the text file

WAIT WINDOW 'Employee notes now appended - press ESC' NOWAIT

APPEND MEMO notes FROM test.txt && Add contents of text file

MODIFY MEMO notes NOEDIT && Display memo field again

WAIT WINDOW 'Overwrite Employee notes- press ESC' NOWAIT

APPEND MEMO notes FROM test.txt OVERWRITE && Replace notes

MODIFY MEMO notes NOEDIT NOWAIT

DELETE FILE test.txt