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

p:="y",

@while(@not(p<>"y"),

@list(q:=@value(@inputline("Введите номер записи")),

r:=@value(@inputline("Введите номер поля")),

@reset(base,q),s:=@get(base,r),

@if(@isnumeric(s),

@list(s:=@value(@inputline("Введите значение")),

@put(base,r,s)),

@list(s:=@inputline("Введите запись"),

@put(base,r,s))),

p:=@inputline("Изменять еще? ДА(у)\НЕТ(n)"))),

;--- Завершение изменения записей ---

@setselection("base"),@setformula(base,@sort(base.[ N],#ascend)),@base,

@reset(base,1),

@pk("{out}{return}")

MAINMENU.[Коррекция БД].[Сохранение БД]:

;---Запись базы данных на диск А ---

@setselection("base"),

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

@setdrive("a:"),

@pk("{in}{scroll-lock}{f8}{scroll-lock}{return}y{out}{return}{scroll-lock}")

MAINMENU.[Документ]:

;***Формирование выходного документа в таблице [tabl]***

;---Загрузка фреймов [tabl],[printdoc]---

@local(p,q,r,m),

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

@setdrive("a:"),@pk("{in}"),

@setselection("tabl.fw3"),@pk("{return}{scroll-lock}"),

@setselection("printdoc.fw3"),@pk("{return}{scroll-lock}"),