If I understand what you mean, you could do something like that:
Rem Project: Dark Basic Pro Project
Rem Created: Friday, April 29, 2011
Rem ***** Main Source File *****
autocam off
Start()
do
control camera using arrowkeys 0,1,0.3
Object_Box(50,50,50)
Position_Object(0,50,50)
Rotate_Object(45,45,0)
Object_Box(50,50,50)
Position_Object(0,0,0)
Object_Box(50,70,50)
Position_Object(-80,0,0)
Rotate_Object(60,0,0)
Update()
loop
function Start()
global ActiveObj
global PosX#
global PosY#
global PosZ#
global AngX#
global AngY#
global AngZ#
endfunction
function Object_Box(Width#,Height#,Depth#)
inc ActiveObj
if object exist(ActiveObj)=0
ActiveObj=find_free_object()
make object box ActiveObj,Width#,Height#,Depth#
endif
scale object ActiveObj,Width#/object size x(ActiveObj)*100,Height#/object size y(ActiveObj)*100,Depth#/object size z(ActiveObj)*100
endfunction
function Position_Object(PosX#,PosY#,PosZ#)
position object ActiveObj,PosX#,PosY#,PosZ#
endfunction
function Rotate_Object(AngX#,AngY#,AngZ#)
rotate object ActiveObj,AngX#,AngY#,AngZ#
endfunction
function Update()
ActiveObj=0
endfunction
function Find_free_Object()
repeat
inc obj
until object exist(obj)=0
endfunction obj