program p;
local
c=14,d,s=5;
begin
load_fpg("p");
draw(5,c,9,0,x,y,x,y);
loop
x=mouse;
y=mouse.y;
d=mouse.right;
if (key(_z))
s=(s%50)+4;
end
if (key(_c))
c=(c+1)%255;
end
while(key(_c)|key(_z))
frame;
end
put_screen(0,2);
frame;
move_draw(1,c*(1-d)+1,15,x,y,x+s,y+s);
if(mouse.left|d)
screen_copy(0,0,2,0,0,320,200);
end
end
end |