leo this one

View.Set ("graphics")

var x : int
var d : int
var d2 : int
var col : int
var col2 : int

randint (x, 0, maxx)

randint (col, 1, 25)
randint (col2, 1, 25)

drawbox (x, x, x * 2, x * 2, col)
loop
    randint (d, x, x * 2)
    randint (d2, x, x * 2)
    drawdot (d, d2, col2)
end loop