Here you go...
Sync On: Sync Rate 60
Backdrop On
Color Backdrop 0
NumSpheres=5
FirstObjNum=1
For N=1 To NumSpheres
Make Object Sphere N,3
Position Object N,N*6,0,0
Next N
Position Camera 18,10,-20
Point Camera 18,0,0
Do
Mx=MouseX(): My=MouseY(): Mc=MouseClick()
ObjNum = PICK OBJECT(Mx, My, FirstObjNum, NumSpheres)
If Mc=1 And ObjNum<>0
For N=1 To NumSpheres
Color Object N,RGB(255,255,255)
Next N
Color Object ObjNum,RGB(255,0,0)
Endif
Sync
Text 0,0,"Mouse Over Object: "+Str$(ObjNum)+" "
Center Text 320,460,"Click On A Sphere!"
Loop
TDK_Man