Graphics3D 800,600,32,2
SetBuffer BackBuffer()
Global a#=.1
box=CreateCube()
cam=CreateCamera()
lit=CreateLight()
PositionEntity cam,0,5,-2
PointEntity cam,box
Repeat
While Not KeyDown(1)
ScaleEntity box,a#,a#,a#
a#=a#+0.01
UpdateWorld()
RenderWorld()
Flip
Wend
Until KeyHit(1)