Начальный курс программирования на языке Форт
данных по содержимому входного
Аля поиска в базе 3 данных по содержимому входного буфера применяется слово -TEXT. 4 Удачный поиск завершается выходом из цикла посредством EXIT и установкой 5 ЗАПИСЬ# на вывод содержимого поля, определяемого переменной ТИП. 6 Имя каждого поля содержит смещение относительно начала текущей 7 записи и счетчик (длину) в байтах. С помощью этих имен мы можем 8 в слове ПОЛЕ для доступа к данным выдавать виртуальные адреса. 9 Мы можем осуществлять доступ к полям заданной текущей записи «ЗАПИСЬ») 10 по имени поля, а затем работать в окрестности полученного адреса. 11 Значение ЗАПИСЬ# последовательно увеличивается. 12 ТИП содержит адрес интересуемого нас поля; используется для 13 входа в запись, на которую указывает ЗАПИСЬ# . 14 ЧТО является буфером, содержащим входной тест, по которому 15 осуществляется поиск в вазе данных.
563 LIST 0 ВВЕРХ устанавливает указатель записи в начало вазы данных. 1 ВНИЗ устанавливает указатель на следующую запись. 2 3 ПОДРОВНЯТЬ устанавливает счетчик для CMOVE в пределах длины 4 поля. 5 ЧТЕНИЕ заполняет буфер пробелами и заносит в него указанный 6 счетчик байтов. Ограничителем поля является знак "," я коде ASCII. 7 8 ЗАПИСЬ оператор, работающий с виртуальной памятью и 9 вырабатывавший адрес внутри дискового елочного буфера. Этот 10 адрес является началом текущей записи. 11 ПОЛЕ выбирает смешение и длину в одной из четырех переменных 12 для получения адреса и счетчика, необходимых при выводе информации. 13 14 ПОМЕСТИТЬ помечает символы, введенные с клавиатуры, в 15 обновляемый дисковый елочный буфер.
240 LIST 0 ( Простая файловая система ) DECIMAL 1 : HELP SCR @ 561 LIST SCR ! ; HELP 2 241 243 THRU 3 : внести ПУСТАЯ фамилия ПОМЕСТИТЬ имя ПОМЕСТИТЬ работа ПОМЕСТИТЬ 4 телефон ПОМЕСТИТЬ ; 5 : удалить ЗАПИСЬ /ЗАПИСЬ BLANK UPDATE ; 6 : изменить ' >BODY ПОМЕСТИТЬ ; 7 : найти ( поле текст) ' >BODY ЗАПОМНИТЬ ВВЕРХ -НАЙТИ IF
8 ОТСУТСТВУЕТ ELSE -ИМЯ THEN ; 9 10 : дать ( поле) ' >BODY .ПОЛЕ ; 11 : еще ВНИЗ -НАЙТИ IF . " Больше нет " ELSE .ИМЯ THEN 12 : все ВВЕРХ BEGIN CR -НАЙТИ NOT WHILE .ИМЯ ВНИЗ REPEAT ; 13 14 : пара ' >BODY ЗАПОМНИТЬ ' >BODY PAD 80 ЧТЕНИЕ имя (ПАРА) ; 15 : фио фамилия ЗАПОМНИТЬ PAD 80 ЧТЕНИЕ имя (ПАРА) ;
