ScreenRes 800, 600, 32, 2

Dim Background As Any Ptr
Dim mysprite    As Any Ptr
Dim x As Integer

mysprite = ImageCreate(128, 128)

BLoad "test.bmp", mysprite



'Schleife
Do
    x = x + 1

    Put(x, 100), mysprite, PSet
    Put(150, 150), mysprite, PSet

    Sleep 1

    ScreenSync
    Cls

Loop Until x > 1000