GLOBAL X, YWHILE KEY(1) = 0 INC X, KEY(205) - KEY(203) INC Y, KEY(208) - KEY(200) FILLRECT X, Y, X + 20, Y + 20, 0xffffff SHOWSCREENWEND