Програмування Pascal, Детальна інформація

c:=t;

for xps:=x to x1 do

begin

for yps:=y to y1 do if getpixel (xps,yps) <>bk then putpixel (xps,yps,c);

c:=c+1;

if c=16 then c:=0;

if c=bk then c:=c+1;

end;

until keypressed;

for xps:=x to x1 do

begin

for yps:=y to y1 do

begin

pixcolor:=getpixel (xps,yps);

if pixcolor <>bk then putpixel (xps,yps,oc)

end;

end;

end;

{******************* Рамка курсора ****************}

procedure ramka;

var t:integer;

begin

setcolor (blue);

t:=lnum*40-5;

rectangle (25,t,165,t+36);

setcolor (12);

t:=pnum*40-5;

rectangle (25,t,165,t+36);

flash (50,t+13,140,t+23,black,white);

end;