10 'ANTHEM.BA by Tom Haskins Mar/88 15 'CLUB 100 Library - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 20 CLS:PRINT:A$="The National Anthem":GOSUB400 30 A$="The Star Spangled Banner":GOSUB400 40 PRINT:A$="Words and Music By Francis Scott Key":GOSUB400 50 PRINT:A$="Arranged for Model 100 by Tom Haskins":GOSUB400:FOR I = 1 TO 1000:NEXT I:CLS 60 X=6:FORJ=1TO3:GOSUB500:NEXTJ 70 X=7:GOSUB500 80 X=6:FORJ=1TO3:GOSUB500:NEXTJ 90 X=7:GOSUB500 100 X=6:GOSUB500:GOSUB500 110 X=5:GOSUB500 120 X=6:GOSUB500:GOSUB500 130 X=10:GOSUB500 140 X=7:GOSUB500 150 X=6:GOSUB500 160 CLS:END 400 PRINTTAB((40-(LEN(A$)))/2)A$:RETURN 500 READA$:PRINT@121,A$:FOR I = 1 TO X:READ A,B:SOUND A,B:NEXT I:RETURN 1000 DATA "O say can you see...",7032,30,8368,10,10544,40,8368,40,7032,40,5272,80 1010 DATA "by the dawn's early light...",4184,30,4697,10,5272,40,8368,40,7456,40,7032,80 1020 DATA "What so proudly we hailed...",7032,20,7032,20,4184,60,4697,20,5272,40,5586,80 1030 DATA "at the twilight's last gleaming?",6269,30,5586,10,5272,40,5272,40,7032,40,8368,40,10544,40 1040 DATA "Whose broad stripes and bright stars...",7032,30,8368,10,10544,40,8368,40,7032,40,5272,80 1050 DATA "thru the perilous fight... ",4184,30,4697,10,5272,40,8368,40,7456,40,7032,80 1060 DATA "O'er the ramparts we watched,",7032,20,7032,20,4184,60,4697,20,5272,40,5586,80 1070 DATA "were so gallantly streaming? ",6269,30,5586,10,5272,40,5272,40,7032,40,8368,40,10544,40 1080 DATA "And the rocket's red glare...",4184,20,4184,20,4184,40,3950,40,3516,40,3516,80 1090 DATA "the bombs bursting in air...",3950,20,4184,20,4697,40,4184,40,3950,40,3950,80 1100 DATA "Gave proof thro' the night...",3950,40,4184,60,4697,20,5272,40,5586,80 1110 DATA "that our flag was still there.",6269,30,5586,10,5272,40,8368,40,7456,40,7032,80 1120 DATA "O_ say, does that... " ,7032,20,7031,20,5272,40,5272,40,5272,20,5586,20 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 1140 DATA "O'er the land_ of the free... ",7032,20,7032,20,5272,60,4697,20,4184,20,3950,20,3516,120 1150 DATA "and the home of the brave? ",5272,20,4697,20,4184,60,3950,20,4697,40,5272,80