Here's an example:
sync on
get image 1,0,0,256,256
create bitmap 1,256,256
set current bitmap 0
make object box 1,100,100,100
make object box 100,1000,1000,1000
scale object 100,-100,-100,-100
make object sphere 2,100
make object cone 3,40
make object sphere 4,200
make object sphere 5,200
make object cone 6,50
xrotate object 6,90
make light 1
make light 2
make camera 1
clear camera view 1, RGB( 255,0,0 )
point camera 1, 0,0,0
position camera 1, 30,30,30
position object 1, -10,0,0
position object 100,0,0,0
position object 3,100,0,300
position object 4,200,-100,-300
position object 5,300,200,0
do
a#=wrapvalue(a#+0.1)
set point light 1,cos(a#)*400,0,sin(a#)*400
color light 1,rgb(0,255,0)
set point light 2,cos(a#+180)*400,sin(a#+180)*400,0
color light 2,rgb(255,0,0)
set current camera 1
set camera to image 1, 1, 256,256
texture object 1, 1
control camera using arrowkeys 1,1,1
position camera 0,sin(a#)*500,0,cos(a#)*200
position object 2,sin(a#)*500,0,cos(a#)*200
position object 6,camera position x(1),camera position y(1),camera position z(1)
yrotate object 6,camera angle y(1)
point camera 0,-10,0,0
sync
loop
