greatings by Rick_Lett

[pistol350]

Code Select Expand


' 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