Начальный курс программирования на языке Форт
ИНСТРУМЕНТАЛЬНЫЕ СРЕДСТВА РАБОТЫ С БЛОКАМИ
Мы знаем, что слово LIST инициирует печать только одного блока. Введем несколько слов, имеющихся в большинстве Форт-систем, для вывода группы блоков и для доступа к блокам.
Слово TRIAD выводит группу из трех смежных блоков, начиная с блока, номер которого делится на три без остатка. Например,
выражение 30 TRIAD
обеспечит вывод блоков с номерами 30, 31 и 32. (Обращение к TRIAD с аргументами 31 и 32 приведет к выдаче той же самой триады блоков.)
Слово SHOW выводит группу блоков со смежными номерами. Например, выражение 30 38 SHOW
приведет к выводу трех триад блоков, начинающихся с номеров 30, 33 и 36 соответственно.
Эти слова применяются для вывода листингов прикладных программ на печатающее устройство. Каким образом осуществляется вывод? К сожалению, все Форт-системы реализуют его по-разному. Перед работой вы должны ознакомиться с документацией по своей системе. Можем предложить в качестве типовых примеров следующие выражения:
- В мультизадачной системе, как правило, вы должны ввести
PRINT 17 TRIAD
Слово PRINT (ПЕЧАТЬ) передает остаток строки, содержащей эту команду, задаче вывода на печатающее устройство, а выполнение терминальной задачи продолжается обычным путем.
- В однозадачных системах указанные выше слова переназначают вывод на периферийные устройства (не задачи). В подобной системе вы можете ввести такое выражение:
PRINTER 17 LIST CONSOLE
В результате вывод назначается на печатающее устройство, блок распечатывается, после чего вывод снова назначается на дисплей. Вы можете промоделировать синтаксис, принятый в мультизадачной системе, следующим образом: : PRINT PRINTER INTERPRET CONSOLE ;
В ряде систем слово SHOW автоматически назначает вывод на печатающее устройство, а после завершения вывода возвращает назначение на дисплей.
Еще одним важным словом является INDEX (КАТАЛОГ), которое распечатывает в блоках из заданного диапазона только строки комментария (нулевые). Например, выражение 30 38 INDEX
инициирует вывод комментария, содержащегося в блоках с 30-го по 38-й включительно.
