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

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

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

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

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

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

procedure menu_pickto(n:byte);

var i:byte;

begin

textcolor(14);

for i:=1 to n do

begin

writeln('| | | | | |');

writeln(' \ \ \ / / /');

writeln(' | | | | | |');

writeln(' / / / \ \ \');

end;

end;

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

procedure menu_text(x1,y1,c1,c2,c3,c4:byte;s1,s2,s3,s4:string);

begin

gotoxy(x1,y1);

textcolor(c1);

write(s1);

gotoxy(x1,y1+4);