bugs still exists in r10637!

[wangchong01]

Code:

EXPORT QQQQ()
BEGIN
 local i;
 for i from 0 to 319 do
  rect_p(i,0,i,239,#FF0000h+floor(i/320*256)*#1000000h);
 end;
 freeze;
END;