Курсовая работа: База даних по обліку вогнепальної зброї
window(12,6,14,14);
textbackground(0);
clrscr;
window(1,1,40,25);
textcolor(2);
case b of
72: begin
if i>1 then
begin
i:=i-1;
xx:=xx-2;
gotoxy(x1,xx);
write('=>');
exit;
end;
if i=1 then
begin
i:=5;
xx:=y1+8;
gotoxy(x1,xx);
write('=>');
end;
end;
80: begin
if i<5 then
begin
i:=i+1;
xx:=xx+2;
gotoxy(x1,xx);