on mouseUp
pgcolorx "new",0,"512,384"
pgcolorx "new",1,"512,384"
pgcolorx "pastepict",0
pgcolorx "copybits",0,cd
repeat with i=0 to 192
pgcolorx "copybits",0,1,"0,"&i*4&",512,"&i*4+1,"0,"&i*4+1,"xor"
pgcolorx "copybits",0,1,"0,"&i*4+1&",512,"&i*4+2,"0,"&i*4+3,"notxor"
pgcolorx "copybits",0,1,"0,"&i*4+2&",512,"&i*4+3,"0,"&i*4+0,"xor"
pgcolorx "copybits",0,1,"0,"&i*4+3&",512,"&i*4+4,"0,"&i*4+2,"notxor"
end repeat
pgcolorx "copybits",1,cd
pgcolorx "copypict",1
end mouseUp