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 ЧТЕНИЕ имя (ПАРА) ;