pallet

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)