Unit Gersh; {Гершенович Игорь - Мой модуль}

INTERFACE

procedure Space;

procedure GraphBegin (dir : string);
{инициализация графики}

procedure BGI256 (Mode : word; dir : string);


IMPLEMENTATION

Uses Crt, Graph;

procedure Space;
var key : char;
Begin
     repeat
     key:=ReadKey;
     if key=#27 then halt;
     until key=' ';
end; {Sapce}

procedure GraphBegin;
var
gd, gm : integer;
begin
     gd:=detect;
     InitGraph(gd,gm,dir);
end; {GraphBegin}

procedure BGI256;
var gd, gm : integer;
begin
     gd:=InstallUserDriver('BGI256',nil);
     gm:=Mode;
     InitGraph(gd,gm,dir);
end; {BGI256}

END.