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

end;

close(f);

end;

readln;

menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);

end;

begin

textmode(co40);

window(1,1,40,25);

clrscr;

st1:='novaya basa';

st2:='udalit basu';

st3:='poisk v base';

st4:='prosmotr ';

st5:='exit';

menu(15,6,27,16,0,14,st1,st2,st3,st4,st5);

x1:=13;y1:=6;y2:=6;

i:=1;

repeat

repeat

newreadkey(a1,b);

strelka(y2,i,x1,y1,6,b);

until a1=#13;

case i of

1:zap;

2:udal;

3:poisk;

4:prosm;

5:halt;