//frame
c=n+1;
loop(n,exec2(assign(megabuf(c),megabuf(c-1)),c=c-1));
c=n+1;
loop(n,exec2(assign(megabuf(n*2+c),megabuf(n*2+c-1)),c=c-1));
c=n+1;
loop(n,exec2(assign(megabuf(n*4+c),megabuf(c)),c=c-1));
c=n+1;
loop(n,exec2(assign(megabuf(n*6+c),megabuf(n*2+c)),c=c-1));
assign(megabuf(c),getkbmouse(1));
assign(megabuf(n*2+c),getkbmouse(2));

//point
am2=above(c,3);
am1=above(c,2);
ap1=above(n,c);
ap2=above(n,c+1);
assign(megabuf(c),
         (am2*megabuf(n*4+c-2)+
  (am1+1-am2)*megabuf(n*4+c-1)+
              megabuf(n*4+c)+
  (ap1+1-ap2)*megabuf(n*4+c+1)+ap2*megabuf(n*4+c+2))*0.2);
assign(megabuf(n+2*c),          (am2*megabuf(n*6+c-2)+
  (am1+1-am2)*megabuf(n*6+c-1)+
              megabuf(n*6+c)+
  (ap1+1-ap2)*megabuf(n*6+c+1)+
          ap2*megabuf(n*6+c+2))*0.2);
x=megabuf(c);
y=megabuf(n*2+c);
c=c+1;