for x : 0 .. 100 by 10 for y : 100 .. 300 by 10 drawfillbox (x + 6, y + 6, x - 1, y - 1, c) c := c + 1 end for elsif mb = 1 and mx > 0 and mx < 110 and my > 100 and my < 310 then c := whatdotcolour (mx, my)