View.Set ("graphics:max,max")
var diameter:int
var numofcir:int
var x:int
var y:int
 
 
put "What is the diameter of the circle you want (in pixels)?"
get diameter
put "How many Circles do you want?"
get numofcir
 
cls
View.Set("graphics:max,max")
 
for: 1 .. numofcir
randint (x,1, maxx)
randint (y,1, 350)
 
drawfilloval (x,y,diameter,diameter,blue)
 
 
end for