Program Module2; {заголовок программы, имя программы - Module2}
Uses {начало раздела подключения модулей};
Graph; {подключение модуля Graph}
Begin {начало раздела описания логики программы)
End. {Конец раздела описания логики программы}
Чтобы графические объекты могли выводиться на экран, нужно перевести его в графический режим – инициализировать, запустив соответствующий драйвер. Для использования режима 640х480х16 предназначен стандартный драйвер Turbo Pascal, который имеет имя EgaVga.bgi и находится в подкаталоге BGI каталога, в который установлен Turbo Pascal.
Инициализация графического режима производится вызовом процедуры InitGraph, имеющей следующий вид:
InitGraph(<Номер драйвера>, <Номер режима>, <Путь к файлу драйвера>);
Программа, написанная на Turbo Pascal, может во время своего выполнения обращаться к нескольким драйверам (по очереди). Для этого автоматически создается так называемая таблица драйверов. Изначально в ней находятся только стандартные драйверы, в том числе и EgaVga.bgi. Программа также имеет доступ к функциям, подгружающим в таблицу другие драйверы. Данные функции описаны ниже, а пока нам достаточно знать, что драйвер EgaVga.bgi, используемый для установки нужного нам режима 640х480х16, уже занесен в таблицу.
