Xmas

[Peter]

Hello,
before I die:

Code: [Select]

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

.

[Mike Lobanovsky]

Thanks a lot, Peter! Greetings to you too!