if you mean the text disappears only when positioning the object, thats because its trapped in the above function until repositioning has ended.
to fix it there are several methods you could use, in the example below during this repositioning you could use a gosub to ensure text is still being displayed.
Make Object Cube 1,10
Do
If MouseClick() = 1 Then PositionObjectWithMouse(Pick Object(MouseX(),MouseY(),1,10))
gosub printtext
Sync : Loop
printtext: text 10,10,STR$(timer())
return
Function PositionObjectWithMouse(Obj)
` Validate Entry
If Obj <= 0 Then ExitFunction 0
If Object Exist(Obj) = 0 Then ExitFunction 0
Repeat : until MouseClick() = 0
` Prepare
Hide Mouse
Temp = MouseMoveX()
Temp = MouseMoveY()
Temp = MouseMoveZ()
` Move Object
Repeat
xAng# = Object Angle X(Obj)
yAng# = Object Angle Y(Obj)
zAng# = Object Angle Z(Obj)
Rotate Object Obj,Camera Angle X(0),Camera Angle Y(0),Camera Angle Z(0)
xVal = MouseMoveX() : If xVal <> 0 Then Move Object Right Obj, xVal
yVal = MouseMoveY() : If yVal <> 0 Then Move Object Obj,-yVal
zVal = MouseMoveZ() : If zVal <> 0 Then Move Object Up Obj, zVal/10
Rotate Object Obj,xAng#,yAng#,zAng#
` Update Your System Here!!!
gosub printtext
` Exit Requirements
If MouseClick() = 1 Then ExitVal = 1
` End Loop
Sync : Until ExitVal = 1
Repeat : until MouseClick() = 0
Show Mouse
EndFunction 1
