width = 512
height = 512
shades = 128
setdisplay(width, height, 32, 1)
paper(rgb(0, 0, 0))
cls
setautoback(25)
randomize()

for i=1 to shades
    r = rnd(255)
    g = rnd(255)
    b = rnd(255)
    ink(rgb(r, g, b))

    w = rnd(width / 4)
    h = rnd(height / 4)
    x = rnd(width - w)
    y = rnd(height - h)
    rectangle(x, y, w, h, 0)
next

waitkey(k_escape)