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

var number : real
var count:int:=0
var x, y, mx, my : int

put "please enter how amny circles you would like?"
get number

loop
count+=1
randint (x,1,maxx)
randint (y,1,360)
drawfilloval (x,y,20,20,1)
exit when count=number
end loop