*********** *****************} p> procedure ramka; {вивести рамку} p> const p> a = # 186; b = # 187; c = # 188; d = # 200; e = # 201; f = # 205; p> {T} p> var i, j: integer; p> begin p> hiddencursor; p> gotoxy (x1, y1); p> write (e); p> for i: = (x1 +1) to (x2-1) do write (f); p> write (b); p> for i: = (y1 +1) to (y2-1) do p> begin p> gotoxy (x1, i); p> write (a); p> gotoxy (x2, i); p> write (a); p> end; p> gotoxy (x1, y2); p> write (d); p> for i: = (x1 +1) to (x2-1) do write (f); p> write (c); p> hiddencursor; p> end; p> {****************************************** *****************} p> procedure colorwind; {зробити вікно з рамкою} p> begin p> window (v1, v2, v3, v4); p> textbackground (fon); p> clrscr; p> textcolor (text); p> ramka (1,1, v3-v1, v4-v2); p> end; p> {****************************************** *****************} p> begin p> end. p> p> Додаток 4. p> p> Інструкція користувача. p> p> Запустити на виконання файл 'fauna.exe', який p> повинен знаходиться в одному каталозі з файлом 'egavga.bgi'. p> На екрані з'явитися основне горизонтальне меню, з трьома пунктами: 'Start', 'Option', 'Quit'. p> Активізація графічного режиму і запуск відображення на екран відбудеться при натисканні клавіш 's' або 'S'. p> Вихід з програми можна здійснити клавішами 'q' або 'Q'. p> Активізація меню 'Option' відбудеться при натисканні клавіш 'O' або 'o'. У цьому меню з'явитися три пункти - 'Herbivorous', 'Beast of prey', 'Environment'. При натисканні 'H' або 'h' будуть задаватися параметри травоїдних. При натисканні 'B' або 'b' будуть задаватися параметри хижаків. При натисканні 'E' або 'e' будуть задаватися параметри навколишнього середовища. При введенні параметрів хижаків, травоїдних і навколишнього середовища треба слідувати підказкам з'являтимуться внизу екрану. p> При натисканні клавіші 'Esc' відбудеться вихід в DOS з p> будь-якого місця програми.
<
