Graphics3D 800,600,0,2
SetBuffer BackBuffer()
camera=CreateCamera()
sprite=CreateSprite()

PositionEntity sprite,0,0,65
XS# = 0
YS# = 0
While Not KeyHit(1)

PositionEntity sprite,XS,YS,65
RenderWorld

mxm# = MouseX()
mym# = MouseY()
If mxm# > 15 Then mx# = mxm#
If mym# > 13 And mym# < 585 Then my# = mym#
If mx# <= 15 Then mx# = 15
If mym# <= 13 Then my# = 13
If mym# >= 585 Then my# = 585

HidePointer
Color 0,255,0
Oval mxm,mym,15,15

vmx# = 800 - mx# + NVX#
NVX# = vmx# * 0.9
X# = vmx# * 0.1
VX# = VXS# - X#
xr# = xr# - VX#

vmy# = 600 - my# + NVY#
Y# = vmy# * 0.1
NVY# = vmy# * 0.9
VY# = VYS# - Y#
yr# = yr# - Vy#

XS = XS -VX#*6
YS = YS -VY#*4

VXS# = X#
VYS# = Y#

Color 0,0,255
Rect Xr,Yr,15,15

Flip
Wend
End

Graphics3D 800,600,0,2
SetBuffer BackBuffer()
Origin 400,300

camera=CreateCamera()
sprite=CreateSprite()
PositionEntity camera,0,0,-400
ScaleSprite sprite,2,2
HidePointer



While Not KeyHit(1)
 mx=MouseX()-400
 my=MouseY()-300

 PositionEntity sprite,mx,-my,0
 RenderWorld

 Rect mx-4,my-4,9,9,0
 Flip
Wend
End

Graphics3D 800,600,0,2
SetBuffer BackBuffer()

camera=CreateCamera()
sprite=CreateSprite()
PositionEntity camera,400,-300,-400
ScaleSprite sprite,1.5,1.5
HidePointer



While Not KeyHit(1)
 mx=MouseX()
 my=MouseY()

 PositionEntity sprite,mx,-my,0
 RenderWorld

 Rect mx-4,my-4,9,9,0
 Flip
Wend
End