Untitled

for x : 150 .. 650 by 15       %bottom menu
    for y : 0 .. 55 by 15

        drawfillbox (x, y, x + 15, y + 15, col)
        col += 1
    end for

if mb = 1 and mx > 150 and my > 0 and mx < 960 and my < 65 then
        col := whatdotcolour (mx, my)
        drawfillbox (700, 0, 760, 60, col)
    end if