This code is Not mine !, I found it somewhere, and I think it can help you. You need red and blue glasses.
cheers.
REM Proyecto: Camara3D
REM Creado: 11/06/2008 15:03:49
REM
REM ***** Archivo de Código Fuente Principal *****
REM ***** Urbano Cabeza *****
Rem ***** Inicio del Programa *****
Sync On
Sync Rate 25
Rem Creamos un cubo en el centro de la pantalla.
Make Object Box 1,50,50,50
Rem y un prisma para que gire a su alrededor
Make Object Box 2,50,10,10
Rem Creamos la camara Estereoscopica y la posicionamos.
CrearCamaraEstereo()
PosicionCamaraEstereo(2,0,0,-200,0,0,0)
Rem bucle principal.
Do
Rem Movemos los objetos
Gosub Movimiento
Rem Visualizamos la pantalla en estero.
VisualizarEstereo()
Rem Actualizamos la pantalla.
Sync
Loop
Rem ***** Movimiento de los objetos en la escena. *****
Movimiento:
Rem Rotamos y movemos el cubo.
rx# = rx# + 1
rz# = rz# + .5
if rx#=>360 then rx#=0
if rz#=>360 then rz#=0
Rotate Object 1,rx#,0,rz#
pz# = 50*Cos(t#)
Position Object 1,0,0,pz#
Rem Rotamos el objeto 2.
ax#=100*cos(t#)
az#=100*sin(t#)
Position Object 2,ax#,0,az#
Rotate Object 2,ax#,az#,0
t# = t# + 1
if t#>=360 then t#=0
Return
Rem ***** Creacion de la camara. *****
Function CrearCamaraEstereo()
Rem Creamos Dos Camaras, separandolas con una pequeña distancia.
Rem Camara Izquierda.
Make Camera 1
Rem Camara Derecha.
Make Camera 2
EndFunction CrearCamaraEstereo
Rem Posicionamos la camara Estereoscopica.
Function PosicionCamaraEstereo(Distancia,PosCamX,PosCamY,PosCamZ,PosCamObjX,PosCamObjY,PosCamObjZ)
Rem Coloca,os las camaras en su sitio.
Position Camera 1,PosCamX-Distancia,PosCamY,PosCamZ
Position Camera 2,PosCamX+Distancia,PosCamY,PosCamZ
Rem Dirijimos las Camaras.
Point Camera 1,PosCamObjX,PosCamObjY,PosCamObjZ
Point Camera 2,PosCamObjX,PosCamObjY,PosCamObjZ
Rem Color de fondo.
Color Backdrop 1,RGB(0,0,0)
Color Backdrop 2,RGB(0,0,0)
EndFunction PosicionCamaraEstereo
Rem ***** Visualizacion en 3D (Estereoscopica) *****
Function VisualizarEstereo()
Rem Creamos el efecto de Estereoscopico con las dos camaras.
Rem Convertimos las camaras en imagenes.
Set Camera to Image 1,1,640,480
Set Camera to Image 2,2,640,480
Rem Convertimos las imagenes en Sprites para poder manipularalas.
Sprite 1,0,0,1
Sprite 2,0,0,2
Rem Selecionamos el canal Rojo de la camara 1(izquierda).
Set Sprite Diffuse 1,255,0,0
Rem Seleccionamos el canal Cian (Verde y Azul) de la camara 2(Derecha).
Set Sprite Diffuse 2,0,255,255
Rem damos transparencia a la camara 2.
Set Sprite Alpha 2,128
Rem las mezclamos en la pantalla para visualizarlas.
Paste Sprite 1,0,0
Paste Sprite 2,0,0
EndFunction VisualizarEstereo
RE-EDITED
Sorry, I forgot to say that is for Dbpro...I`m not sure it works on DBC
learning every day