# ДЕМОНСТРАЦИЯ РЕЖИМА ИНТЕРПРЕТАТОРА В ПРОГРАММЕ DEMAGOG
# СОСТАВЛЕНИЕ СБОРНИКА ТЕКСТОВ
# ДОБАВЛЯЕМЫЕ ТЕКСТЫ МОГУТ БЫТЬ ЛЮБОГО ПОДДЕРЖИВАЕМОГО 
# В ПРОГРАММЕ ФОРМАТА: DOC, DOCX, HTM, HTML, SHTML, FB2, TXT
# ДЛЯ ВЫПОЛНЕНИЯ НАЖМИТЕ F2

STR nazvanie, files, f, d, delim
NUM next, i, n

nazvanie = InputBox('Составление сборника','Введите название','СБОРНИК ')

WNew(0,nazvanie)

# Подбор текстов прекращается, когда
# в очередном диалоге выбора нажата
# кнопка "Отмена" или клавиша Esc.
# В диалоге возможен множественный
# выбор файлов: Shift+ArrowDn и/или 
# Ctrl+LeftMouseClick.

delim = chr(13)+chr(10)+chr(13)+chr(10)+chr(13)+chr(10)

next = 1
DO next <> 0
    files = OpenDialog(1)
    split(files,'d','|')
    n = d.count
    IF n <> 0
        i = 1
        DO i <= n
            f = see(d.+i)
            WOpen(9,f)
            WAdd(0,9,delim)
            i = i+1
        OD
    ELSE 
        next = 0
    FI
OD

WNew(9,'')
ShowMessage('Готово! Результат в окне "0 - Статистика"')
