Курсовая работа: База даних по приватним підприємствам регіону

newreadkey(e,d);

if d=80 then

pu:=pu+1;

if d=72 then

pu:=pu-1;

if pu=5 then

pu:=1;

if pu=0 then

pu:=4;

case pu of

1: begin

if e=#13 then

dal;

rrr(st1,st2,st3,st4);

window (1,1,40,25);

prig(6,3,14,29);

end;

2: begin

if e=#13 then

voz;

rrr(st1,st2,st3,st4);

window (1,1,40,25);

prig(6,9,14,29);

end;

3: begin

if e=#13 then

viv;

rrr(st1,st2,st3,st4);

window (1,1,40,25);