Sorry it was not the good CODE this is the good:
sync on
make object sphere 1,50
make object sphere 2,25
x1#=object position x(1)
y1#=object position y(1)
z1#=object position z(1)
rz#=0
ry#=45
move camera -100
touch=0
r=1
do
touch=0
if upkey()=1 then ry#=ry#+1
if rightkey()=1 then rz#=rz#+1
if inkey$()="r" and r=1 and touch=0 then r=0:touch=1
if inkey$()="r" and r=0 and touch=0 then r=1:touch=1
if r=1 then rz#=rz#+3
x#=turnx(x1#,y1#,z1#,ry#,rz#,50.0)
y#=turny(x1#,y1#,z1#,ry#,rz#,50.0)
z#=turnz(x1#,y1#,z1#,ry#,rz#,50.0)
position object 2,x#,y#,z#
sync
loop
function turnx(x#,y#,z#,ry#,rz#,dist#)
y#=Dist#*sin(rz#)+y#
xz#=dist#*cos(rz#)
z#=xz#*sin(ry#)+z#
x#=xz#*cos(ry#)+x#
endfunction x#
function turny(x#,y#,z#,ry#,rz#,dist#)
y#=Dist#*sin(rz#)+y#
xz#=dist#*cos(rz#)
z#=xz#*sin(ry#)+z#
x#=xz#*cos(ry#)+x#
endfunction y#
function turnz(x#,y#,z#,ry#,rz#,dist#)
y#=Dist#*sin(rz#)+y#
xz#=dist#*cos(rz#)
z#=xz#*sin(ry#)+z#
x#=xz#*cos(ry#)+x#
endfunction z#
Just past it in DB and run it...and try the touch "r" press it quickly to stop rotation or..to begin and..the upkey and right key for y and z rotation...but it is not finish..