home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / pcmag / vol8n18.arc / BIRTHDAY.BAS < prev    next >
BASIC Source File  |  1989-07-06  |  693b  |  24 lines
  1. LA0151FA.XYW
  2.  
  3.  
  4.  
  5. ' *********** BIRTHDAY.BAS **************
  6.  
  7. 100 CLS
  8. 110 Person$ = "Vickie"
  9. 120 Birthday$ = "06-12-1989"
  10. 130 IF Birthday$ <> DATE$ THEN SYSTEM
  11. 140 PRINT TAB(5); "Happy birthday to you . . ."
  12. 150 PLAY "o3 c8 c8 d c f e2"
  13. 160 PRINT TAB(10); "Happy birthday to you . . ."
  14. 170 PLAY "c8 c8 d c g f2"
  15. 180 PRINT TAB(15); "Happy birthday dear "; Person$; " . . ."
  16. 190 PLAY "c8 c8 o4 c o3 a f e d2"
  17. 200 PRINT TAB(20); "Happy birthday to YOU!!"
  18. 210 PLAY "t90 b-8 b-8 a f g f2"
  19.  
  20.  
  21.  
  22.  
  23. «BB»«PT7»«AL0»«LM0»«RM67»«LS2»«MDBO»Figure A:«MDNM» When this little BASIC program is run it will play "Happy Birthday." Place it in someone's autoexec file on that person's birthday.
  24.