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

;---Завершение формирования выходного документа---

@pk("{ins}{leftarrow}{esc}"),

@beep,

@prompt("Справка сформирована",30),

@nextkey(5),

@eraseprompt

MAINMENU.[Печать]:

;---Подготовка принтера к печати---

@prompt("Подготовте принтер, нажмите RETURN.")

@nextkey,

@eraseprompt,

;---Печать выходного документа---

@local(p),

@pk("{ins}"),p:=7,

@while(p>0,

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

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

;---Завершение печати выходного документа---

@pk("{ins}"),p:=7,

@while(p>0,

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

@pk("{esc}")

MAINMENU.[Выход]:

;---Удаление фреймов [base], [tabl], [printdoc]---

@delete("base"),

@delete("tabl"),

@delete("printdoc"),

;---Выход из меню---

@eraseprompt,