3курс / lab_яз_прог / lab2 / INIGRA

unit inigra;
interface
uses CRT,graph;
procedure ig;
procedure pausegraph;
procedure gudok;
procedure pause;

implementation
procedure pause;
var
sim:char;
begin
write('Џ г§ ');
sim:=readkey;
end;

procedure gudok;
begin
Sound(220); { Beep }
Delay(200); { For 200 ms }
NoSound; { Relief! }
end;

procedure pausegraph;
var
sim:char;
prizn:boolean;
begin
prizn:=true;
SetTextStyle(DefaultFont,0, 1);
outtextXY(560,460,'Pause');
while prizn do
begin
sim:=readkey;
prizn:=false;
end;
end;
procedure ig;
var
MAXX,MAXY,X,Y:INTEGER;
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;

begin
{ clrscr;}
grDriver := Detect;
InitGraph(grDriver, grMode,'c:\bp\bgi');
ErrCode := GraphResult;
if ErrCode <> grOk then
writeln('Ја д ­Ґ а Ў®в Ґв')else
cleardevice;
end;
begin
end.