Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement