[H@NON]

А вот еще вариант поздравлений=)))

filein = ReadFile("поздравления!.txt")

.label
While Not Eof(filein)
Print ReadLine$(filein)
Wend



if millisecs()>= ml+31536000 then
ml = millisecs()
goto label
endif