; Extended mode: automatic texture movement on an ordinary classic material.
Graphics3D 800,600,0,2
SetBuffer BackBuffer()
camera=CreateCamera():PositionEntity camera,0,3,-4:RotateEntity camera,25,0,0
CameraClsColor camera,18,23,31
light=CreateLight():RotateEntity light,55,-35,0
belt=CreateMesh():surface=CreateSurface(belt)
AddVertex surface,-2,0,0,0,0:AddVertex surface,2,0,0,1,0
AddVertex surface,2,0,7,1,4:AddVertex surface,-2,0,7,0,4
AddTriangle surface,0,2,1:AddTriangle surface,0,3,2:UpdateNormals belt
texture=CreateTexture(64,64,1)
SetBuffer TextureBuffer(texture):ClsColor 35,65,75:Cls
Color 220,175,55:Rect 0,0,64,12:Color 130,145,150:Rect 0,12,64,3
SetBuffer BackBuffer():EntityTexture belt,texture
speed#=.3:TextureScroll texture,0,speed
While Not KeyDown(1)
    If KeyHit(57) Then paused=Not paused:PauseTextureScroll texture,paused
    If KeyHit(200) Then speed=speed+.1:TextureScroll texture,0,speed
    If KeyHit(208) Then speed=speed-.1:TextureScroll texture,0,speed
    If KeyHit(19) Then PositionTexture texture,0,0
    RenderWorld
    Color 240,240,240
    Text 12,12,"Space: pause/resume | Up/Down: speed | R: reset offset | Esc: exit"
    Text 12,34,"Tiles/second: "+speed+"  Paused: "+paused
    Flip
Wend
End