home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / anthem.ba next >
Text File  |  2006-10-19  |  2KB  |  36 lines
  1. 10 'ANTHEM.BA by Tom Haskins Mar/88
  2. 15 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 20 CLS:PRINT:A$="The National Anthem":GOSUB400
  4. 30 A$="The Star Spangled Banner":GOSUB400
  5. 40 PRINT:A$="Words and Music By Francis Scott Key":GOSUB400
  6. 50 PRINT:A$="Arranged for Model 100 by Tom Haskins":GOSUB400:FOR I = 1 TO 1000:NEXT I:CLS
  7. 60 X=6:FORJ=1TO3:GOSUB500:NEXTJ
  8. 70 X=7:GOSUB500
  9. 80 X=6:FORJ=1TO3:GOSUB500:NEXTJ
  10. 90 X=7:GOSUB500
  11. 100 X=6:GOSUB500:GOSUB500
  12. 110 X=5:GOSUB500
  13. 120 X=6:GOSUB500:GOSUB500
  14. 130 X=10:GOSUB500
  15. 140 X=7:GOSUB500
  16. 150 X=6:GOSUB500
  17. 160 CLS:END
  18. 400 PRINTTAB((40-(LEN(A$)))/2)A$:RETURN
  19. 500 READA$:PRINT@121,A$:FOR I = 1 TO X:READ A,B:SOUND A,B:NEXT I:RETURN
  20. 1000 DATA "O say can you see...",7032,30,8368,10,10544,40,8368,40,7032,40,5272,80
  21. 1010 DATA "by the dawn's early light...",4184,30,4697,10,5272,40,8368,40,7456,40,7032,80
  22. 1020 DATA "What so proudly we hailed...",7032,20,7032,20,4184,60,4697,20,5272,40,5586,80
  23. 1030 DATA "at the twilight's last gleaming?",6269,30,5586,10,5272,40,5272,40,7032,40,8368,40,10544,40
  24. 1040 DATA "Whose broad stripes and bright stars...",7032,30,8368,10,10544,40,8368,40,7032,40,5272,80
  25. 1050 DATA "thru the perilous fight...             ",4184,30,4697,10,5272,40,8368,40,7456,40,7032,80
  26. 1060 DATA "O'er the ramparts we watched,",7032,20,7032,20,4184,60,4697,20,5272,40,5586,80
  27. 1070 DATA "were so gallantly streaming?   ",6269,30,5586,10,5272,40,5272,40,7032,40,8368,40,10544,40
  28. 1080 DATA "And the rocket's red glare...",4184,20,4184,20,4184,40,3950,40,3516,40,3516,80
  29. 1090 DATA "the bombs bursting in air...",3950,20,4184,20,4697,40,4184,40,3950,40,3950,80
  30. 1100 DATA "Gave proof thro' the night...",3950,40,4184,60,4697,20,5272,40,5586,80
  31. 1110 DATA "that our flag was still there.",6269,30,5586,10,5272,40,8368,40,7456,40,7032,80
  32. 1120 DATA "O_ say, does that...          " ,7032,20,7031,20,5272,40,5272,40,5272,20,5586,20
  33. 1130 DATA "Star Spangled Banner yet wave...",6269,40,6269,40,6269,40,4697,40,3950,20,4184,20,4697,20,5272,20,5272,40,5586,80
  34. 1140 DATA "O'er the land_ of the free...   ",7032,20,7032,20,5272,60,4697,20,4184,20,3950,20,3516,120
  35. 1150 DATA "and the home of the brave?    ",5272,20,4697,20,4184,60,3950,20,4697,40,5272,80
  36.