Реферат: По решению прикладных задач на языке FRED

@setselection("resume.fw3"),

@pk("{return}{scroll-lock}{out}{return}{scroll-lock}"),

;---Установка а меню операции Новое:Пустой/Текст-Фрейм---

@prompt("Нажмите INS, установите ""Новое:Пустой/Текст-Фрейм"",нажмите ESC и F5"),

@suspend,

;---Завершение начальной установки---

@delete("resume")

MAINMENU.[Загрузка БД]:

;---Загрузка базы данных [base]---

@pk("{scroll-lock}"),

@setdrive("a:"),

@pk("{in}"),

@setselection("base.fw3"),

@pk("{return}{scroll-lock}{out}{return}{scroll-lock}"),

@position("base",1,1,80,10),

@reset(base,1)

MAINMENU.[Коррекция БД]:

;***Коррекция базы данных: Вставка, Изменение, Удаление записей***

MAINMENU.[Коррекция БД].[Вставка Записи]:

;---Подготовка операции Вставка---

@local(a,p,q,r),p:=7,

@pk("{ins}{home}"),

@while(p>0,

@list(@pk("{dnarrow}"),p:=p-1)),

@pk("{esc}"),

;---Вход в базу данных---

@setselection("base"),

@pk("{in}"),

r:=@get(base,5),