Курсовая работа: Автоматизована реєстрація і облік автомобілей

write(s2);

gotoxy(x1,y1+8);

textcolor(c3);

write(s3);

gotoxy(x1,y1+12);

textcolor(c4);

write(s4);

end;

{-------------------}

procedure menu_vibor(x,y,c:byte);

begin

textcolor(c);

gotoxy(x,y);

write('_ _ _ _ _ _ _ _');

{window(x,y,x+15,y+2);

textbackground(5);

clrscr;}

gotoxy(x,y+3);

write('_ _ _ _ _ _ _ _');

end;

procedure pamka (x1,y1,x2,y2:integer);

var i,c:integer;

begin

textcolor(7);

gotoxy(x1,y1);

write(#201);

for i:=1 to x2-x1-1 do

begin

gotoxy(x1+i,y1);