home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
club100
/
mus
/
anthem.ba
next >
Wrap
Text File
|
2006-10-19
|
2KB
|
36 lines
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