Hello,
before I die:
include "asm.inc"
include "bass.inc"
Window 320,240,1
setframes 10
InitBass
color 255,255,255
Text 10,10,10,"Loading...."
Redraw
Wait 200
p1 = LoadSprite "bmp/xmasx3.bmp",3
s1 = LoadSound "bmp/jinglebe.mp3"
PlaySound s1
Cls 255,255,255
int z
while Key(27)=0
Sprite p1,0,0,320,240,z
z +=1
iF z=3 then z=0
Sync
wend
FreeBass
WinEnd
.