To make it work in DarkBasic Classic (I'm using 1.13) you have to change line 2
Here is the working code
make object sphere 1,100
set object 1,1,0,0
ghost object on 1
set point light 0,0,0,200
make object cube 2,100
position camera 0,0,-500
point camera 0,0,0
do
position object 2,cos(r#)*400,0,sin(r#)*400 : r#=r#+0.1
loop
Still unsure if this effect is what you are after but here it is.
Quote: "SET OBJECT Object Number, Wireframe, Transparency, Cull, Filter"
Quote: "SET OBJECT
This command sets the internal properties of a specified 3D object number. You must specify a 3D Object Number between 1 and 65535. When the wireframe flag is set to 0, the object only shows it's wireframe form. When the transparency flag is set to 0, all parts of the object colored black are not drawn to the screen. When the cull flag is set to 0, the object will draw polygons normally hidden due to the direction the polygon faces. The Filter Flag activates and deactivates texture filtering, which controls the smoothing effect of the texture as it is mapped to the object. The Light Flag activates and deactivates the objects sensitivity to any lights in the scene. The Fog Flag activates and deactivates the objects sensitivity to fog in the scene. The Ambient Flag activates and deactivates the objects sensitivity to ambient light in the scene. The object number and flag values should be specified using integer values."
I only used the first four flags of the seven and only because DB forced me to use them.
The quotes are from the Help File; version 1.13 revision.
Wasting CPU Cycles since the 286 was a hot machine.