Курсовая работа: Автоматизоване нарахування заробітної плати

procedure newreadkey (var a:char;var b:byte);

begin

b:=0;

a:=readkey;

if a=#0 then

b:=ord(readkey);

end;

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

procedure menu(s1,s2,s3,s4:string;x,y:byte);

begin

window(1,1,40,25);

textbackground(7);

clrscr;

window(10,5,30,16);

textbackground(7);

textcolor(2);

clrscr;

gotoxy(x,y);

write(s1);

gotoxy(x,y+3);

write(s2);

gotoxy(x,y+6);

write(s3);

gotoxy(x,y+9);

write(s4);

end;

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

procedure upravl(x1,y1,x2,y2,a,b,x,y:byte;s:string);

begin