Graphics 1024,768
 
Local image:TImage = LoadImage("scene3.jpg")
 
image.pixmaps[0] = image.pixmaps[0].Convert(PF_I8)
 
While Not KeyHit(KEY_ESCAPE)
 
    Cls
    DrawImage(image,MouseX(),MouseY(),0)
    Flip(True)
Wend
image = Null
EndGraphics()
GCCollect()
End