Arrays of entities

Graphics3D 640,480 
SetBuffer BackBuffer() 
light=CreateLight()

Dim actors(10)
For n=0 To 9
 actors(n) = test_func(n)
Next
camera=CreateCamera()

;main---------
While Not KeyDown( 1 ) 
 PositionEntity camera,0,5,-20 
 PointEntity camera,actors(0)
RenderWorld 
Flip 
Wend 
End 

Function test_func(entity)
  entity=CreateSphere(8)
  PositionEntity entity,Rnd(-3,3),Rnd(-3,3),Rnd(-3,3)
  Return entity
End Function

Just in case someone stumbles on some of the
subtle errors above.... ;)