HAPPY BIRTHDAY

DECLARE SUB delay (duration!)
ls = 50
SCREEN 8
FOR o = 0 TO 1000
FOR i = 1 TO 15
PRINT
PRINT " HAPPY BIRTHDAY! "
LINE (2, 0)-(130,25), i, B, ls
COLOR i
delay .3
cls
ls = ls + 5
NEXT i
NEXT o
END
SUB delay (duration AS SINGLE)
tim = TIMER
DO
   LOOP UNTIL (TIMER - tim + 86400) - (INT((TIMER - tim + 86400) / 86400) * 86400) > duration
END SUB
Rem Happy birthday!!!!!
Rem © 1999-2017 AbdoSoft Corporation. All rights reserved.