' Merry Christmas all
' From RICK_LETT and family
' Have a joyous Christmas
DEF w1:WINDOW
DECLARE "kernel32",Sleep(dwMilliseconds:INT),INT
WINDOW w1,0,0,350,350,@MINBOX|@SIZE,0,"Merry Christmas",main
setfont w1,"papyrus",30,200,@sfitalic
frontpen w1,rgb(0,255,0)
setwindowcolor w1,rgb(0,0,0)
print w1 ," PEACE"
rect w1,130,150,50,170,rgb(0,0,0),rgb(255,255,255)
starttimer w1,1
WAITUNTIL w1 = 0
END
SUB main
select @CLASS
case @IDCLOSEWINDOW
stoptimer w1
CLOSEWINDOW w1
case @idtimer
flik = rnd(40)-25
ellipse w1,147,130,12,flik,rgb(255,180,0),rgb(255,180,0)
sleep(18)
ellipse w1,147,125,12,flik,rgb(255,170,0),rgb(255,130,0)
endselect
RETURN