CREATESCREEN 0,0,500,25
USESCREEN 0
DRAWRECT 0,0,500,25,RGB(0,0,255)
PRINT "Merry Christmas",0,0,1
USESCREEN -1
CLEARSCREEN RGB(0,0,255)
GLOBAL info$,pos,posx,posy
posx=100+RND(100)
posy=100+RND(100)
REPEAT
info$ = PLATFORMINFO$("TIME")
pos = INSTR(info$, "2021-12-25")
IIF(RND(1), 1, -1)
posx=posx+RND(15)*IIF(RND(1), 1, -1)
posy=posy+RND(15)*IIF(RND(1), 1, -1)
DRAWSPRITE 0,posx,posy
SLEEP 500
SHOWSCREEN
UNTIL pos=-1

Merry Christmas to you
Qedo