global asterids_text
	dim asteroids_obj[50]
	asteroids_text=loadimage("asteroids\ast4.png")
	for t=1 to 50
		asteroids_obj[t]=loadobject("asteroids\ast4.x")
		setobjectimage(asteroids_obj[t],asteroids_text,0)
		setobjectposition(asteroids_obj[t],10000-random(0,20000),10000-random(0,20000),10000-random(0,20000))
	next t