; TileBlock Example
; -----------------

Graphics 640,480,0,2
SetBuffer BackBuffer()

star=LoadImage("media/star1.bmp")
player=LoadImage("media/player.bmp")

scroll#=0

While Not KeyDown(1)

    ; No Cls needed - TileBlock covers every pixel (the mask is ignored),
    ; so a scrolling tiled backdrop doubles as a fast screen clear
    scroll=scroll+1
    TileBlock star,0,scroll

    ; The ship cruises over the scrolling backdrop
    DrawImage player,MouseX(),MouseY()

    Text 0,0,"Move the mouse to fly   Esc: exit"
    Text 0,20,"TileBlock star,0,"+Floor(scroll)+" - tiles the screen, transparency ignored"

    Flip

Wend

End