#Include "windows.bi"
#Include "test.bi"


ScreenRes 800, 600, 32, 2
'==============================================
'VARIABLES
'==============================================
DIM Background AS ANY PTR
DIM mysprite    AS ANY PTR
DIM x AS INTEGER, mx AS INTEGER, my AS INTEGER
'==============================================
'FUNCTIONS
'==============================================

'==============================================
'SUBS
'==============================================
DECLARE SUB testi ()




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

    If x > 500 Then testi()

    blub ()

    SLEEP 1



    SCREENSYNC
    Cls

Loop Until InKey = Chr(27)

Sub testi ()

    LOCATE 30, 20
    Print "Hallo"



End Sub






ImageDestroy mysprite