View.Set ("graphics:max,max")

var y:int:=0
 

for x: 1 .. 506 by 50

    y := y+50

    drawfillstar (x,y,x+40,y+40,black)

end for