Опрос: Работает ли у вас эта прога?

[NeedForSpeert]

Как-то недавно я спрашивал про Graph, но к сожалению прога так и не запустилась, может проблема с компьютером? Незнаю. Новая прозьба: просто попробуйте запустить эту программу и напишите работает или нет? Спасибо.

Текст программы(Turbo Pascal):

Program graphika;
Uses crt, graph;
var GraphDriver, GraphMode : integer;
Begin
clrscr;
GraphDriver:=detect;
InitGraph(GraphDriver, GraphMode, '');
SetColor(4);
Rectangle(300,300,600,600);
SetFillStyle(8,10);
FloodFill(301,301,4);
Readln;
CloseGraph;
End.

[Игорь Акопян]

SetColor(4);

SetFillStyle(8,10);

а вот что это за константы в параметрах? может тупо яркости монитора не хватает

зы. не проверял, ТП не имею

[BBB]

Поди, BGI-файлы при запуске не находятся.
Старые, многими наступанные грабли.

[Oleg_Rus]

программа виснет на стадии подключения модуля. Никаких сообщений об ошибке не выводит.