#Include "windows.bi"


ScreenRes 800, 600, 32, 2

Dim Background As Any Ptr
Dim mysprite    As Any Ptr
Dim x As Integer, mx As Integer, my As Integer
Declare Function test () As Integer


mysprite = ImageCreate(128, 128)

BLoad "test.bmp", mysprite

'Schleife
Do
    x = x + 1

    GetMouse mx, my


    Put(x, 100), mysprite, PSet
    Put(mx, my), mysprite, PSet

    Sleep 1

    ScreenSync
    Cls

Loop Until InKey = Chr(27)





ImageDestroy mysprite