Курсовая работа: База даних по обліку вогнепальної зброї

write('Щ');

end;

procedure newreadkey (var a{‘зЁвлў Ґ¬л© Є®¤ бЁ¬ў®« }:char;

var b{ђ §иЁаҐ­л© Є®¤ Є« ўЁиЁ}:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

procedure menu(x1,y1,x2,y2,a,b:byte;st1,st2,st3,st4,st5:string);

begin

window(1,1,40,25);

clrscr;

window(x1,y1,x2,y2);

textbackground(a);

clrscr;

textcolor(b);

writeln(st1);writeln;

writeln(st2);writeln;

writeln(st3);writeln;

writeln(st4);writeln;

writeln(st5);writeln;

window(1,1,40,25);

textcolor (2);

gotoxy(x1-2,y1);

write('=>');

end;

procedure strelka(var xx,i:byte;x1,y1,a,b:byte);