Graphics3D 640,480
SetBuffer BackBuffer()

Global cube.cube
Type cube
Field sprite
Field active
End Type

Cam=CreateCamera()
CameraClsMode Cam,0,1
CameraRange Cam,1,320
PositionEntity Cam,320,-240,320

cube.cube = New cube
cube\Sprite=CreateSprite()
ScaleSprite cube\Sprite,64,64
EntityColor cube\Sprite,255,0,0
PositionEntity cube\Sprite,320,-240,640
cube\active = True

While Not KeyDown(1)
Cls
RenderWorld()
Plot PosX,PosY
For cube.cube = Each cube
   If cube\active = True
      If KeyDown(200) Then MoveEntity cube\Sprite,0,1,0
      If KeyDown(208) Then MoveEntity cube\Sprite,0,-1,0
      If KeyDown(203) Then MoveEntity cube\Sprite,-1,0,0
      If KeyDown(205) Then MoveEntity cube\Sprite,1,0,0
      Text 0,0,"Position : "+EntityX(cube\Sprite)+"x"+-EntityY(cube\Sprite)
   End If
Next
If KeyHit(57) Then
   For cube.cube = Each cube
      cube\active = False
   Next
   cube.cube = New cube
   cube\Sprite=CreateSprite()
   ScaleSprite cube\Sprite,64,64
   EntityColor cube\Sprite,255,0,0
   PositionEntity cube\Sprite,320,-240,640
   cube\active = True
End If
Flip
Wend