Начальный курс программирования на языке Форт


ПРОГРАММИСТУ О СТРУКТУРЕ ПРИКЛАДНОЙ ПРОГРАММЫ - часть 7


Затем замените выражение блока 243

ABORT" Переполнение файла"

на следующее:

IF ." Переполнение файла" QUIT THEN

а в блоке 240 замените каждое вхождение выражения ' >BODY на [COMPILE] '. Наконец, загрузите необходимые дополнительные команды, указанные в примечании 3.

2. Для пользователей систем полифорта. Перед загрузкой программы работы с файлами убедитесь, что вы сначала скомпилировали следующее определение:

: >BODY ;

и загрузили все необходимые определения, указанные в примечании 3.

3. Для пользователей систем, в которых нет следующих слов. Загрузите, если нужно, приведенные ниже определения (после того, как осуществится загрузка определений, указанных в примечаниях 1,2):-1 CONSTANT TRUE : ASCII ( -- с) BL WORD 1+ С@ COMPILE LITERAL ; IMMEDIATE : \ IN @ 64 / 1+ 64 * IN ! ; : -TEXT ( a1 # a2 - ?) 2DUP + SWAP DO DROP 2+ DUP 2- @ I @ - DUP IF DUP ABS / LEAVE THEN 2 +LOOP SWAP DROP ; : TEXT ( c) PAD 80 BLANK WORD СОUNT PAD SWAP CMOVE ;

561 LIST 0 HELP описание директив ФАЙЛОВОЙ СИСТЕМЫ. 1 внести - пополнит базу данных. Данные вводятся в четыре поля текущей записи 2 следите за правильным использованием запятых и пробелов. 3 Использование: внести Рэйзер,Дан,диктор,555-1212 4 удалить - заполнение пробелами текущей записи и обновление дискового буфера 5 изменить - размещение входного текста в заданном поле текущей записи. 6 Использование: изменить работа программист 7 найти - поиск входного фрагмента в памяти и индикация его наличия или отсут 8 ствия. Использование: найти имя Дан 9 дать - выдача данных из указанного поля текущей записи. 10 Использование: дать телефон 11 еще - выдача следующего найденного фрагмента за ЗАПИСЬ# 12 все - выдача всех искомых полей вазы данных 13 пара - поиск записи по содержимому двух полей. 14 Использование: пара работа диктор,телефон 535-9876 13 фио - поиск по имени и фамилии. Использование: фио Рэйзер,Дан

562 LIST 0 Текст в коде ASCII запоминается на диск в очередную запись длиной в одну 1 строку, на которую указывает ЗАПИСЬ», с возможность» доступа к 2 четырем полям этой записи по именам полей.


Начало  Назад  Вперед



Книжный магазин