Отображает список доступных для рассмотрения тем. Выбрав этот пункт в меню появится окно с названием основных устройств персонального компьютера. . Используя клавиши "вверх","вниз" и "enter" вы можете выбрать устройство, которое вас интересует.

- Руководство пользователя

Без комментариев.

- Выход

Используя этот пункт вы можете выйти из программы.

Приложение В

Листинг программы

USES GRAPH,CRT;

var

ch: char;

s,k,r: integer;

st: string;

com: char;

OldPattern: FillPatternType;

procedure init; {iniciiryet grafiky}

var gd,gm: integer;

begin

gd: =Detect;

initgraph(gd,gm,'');

if GraphResult <> grok then

begin

writeln ('ОШИБКА! ГРАФИЧЕСКИЙ РЕЖИМ НЕ ИНИЦИАЛИЗИРОВАЛСЯ'); {PROVERKA NA INICIACIY}

END;

end;

PROCEDURE MAINMENU(i: integer);

var

m: integer;

begin

CLEARDEVICE; {O4ISTKA EKRANA}

{----------------------РИСУЕМ ДИСКЕТУ--------------------------------------}