Heres my normal test code
rem World3D Showcase
rem Standard Setup Code
sync on : sync rate 60 : backdrop on :autocam off : hide mouse
set ambient light 10
color ambient light 10
hide light 0
color light 0,10,10,10
if check display mode(1024,768,32)=1
set display mode 1024,768,32
else
if check display mode(1024,768,16)=1
set display mode 1024,768,16
endif
endif
set camera range 0.1,5000
position camera 0,0,0
rotate camera 0,45,0
rem Load BSP world
load bsp "","map02.bsp"
set bsp camera collision 1,0,1.5,1
set bsp collision threshhold 1,0.001
rem Main loop
desc$="BSP in One Command"
do
rem Control camera automatically
control camera using arrowkeys 0,0.4,3
rem Apply simple gravity to camera
position camera camera position x(),camera position y()-0.3,camera position z()
rem Show Framerate
text 20,screen height()-40,desc$
fps$="DBPro Fps: "+str$(screen fps())
text screen width()-20-text width(fps$),screen height()-40,fps$
rem Update screen
sync
rem End loop
loop