Реферат: Разработка игровой программы

end;

Inline ($E4/$61/$8A/$E0/$0C/$80/ {вставка в машинных кодах}

$E6/$61/$86/$E0/$E6/$61/ {для правильной работы}

$B0/$20/$E6/$20); {обработчика прерывания}

end;

{----------------------------------------------------------------------------}

{процедура установки пользовательского прерывания}

procedure SetUserInt;

begin

GetIntVec($09,@OldInt9); {сохранение старого вектора}

SetIntVec($09,Addr(UserInt9)); {установка нового}

end;

{----------------------------------------------------------------------------}

{восстановление старого вектора}

procedure SetOldInt;

begin

SetIntVec($09,@OldInt9);

end;

{----------------------------------------------------------------------------}

{процедура инициализации графического режима}

procedure InitScreen;

var

GrMode, GrDriver :Integer;

GrPath :String;

begin

GrDriver:=VGA;

GrMode:=VGAHi;

GrPath:='E:\pl\bp\bgi';

InitGraph(GrDriver, GrMode, GrPath);