1 ' The Star Spangled Banner
2 '   Programmed by Eiji Miura
3 '                 [71216,1564]
4 '   August 5, 1984
5 ' Thanks to Tassi Law for the help
6 ' --------------------------------
7 ' Change value of Y & X in line 10
8 ' to change pitch and length.
9 ' --------------------------------
10 CLS:RESTORE:X=1:Y=3.5:PRINT@128,"The Star Spangled Banner"
11 ONERRORGOTO25
12 READA,B
13 IFA=-2ANDZ=1THENGOTO12
14 IFA=-2ANDZ=0THENRESTORE:Z=1:GOTO12
15 A=A*X:B=B*Y:SOUNDA,B:GOTO12
16 DATA6269,4,7456,4,9394,8,7456,8,6269,8,4697,16,3718,4,4184,4,4697,8,7456,8,6642,8,6269,16,6269,4,6269,4,3718,12
17 DATA4184,4,4697,8,4968,16,5586,4,4968,4,4697,8,4697,8,6269,8,7456,8,9394,8,0,1,-2,0
18 DATA3718,4,3718,4,3718,8,3516,8,3134,8,3134,16,3516,4,3718,4,4184,8,3718,8,3516,8,3516,16,3516,8,3718,12,4184,4
19 DATA4697,8,4968,16,5586,4,4968,4,4697,8,7456,8,6642,8,6269,16,0,1
20 DATA6269,6,6269,2,4697,8,4697,8,4697,4,4968,4,5586,8,5586,8,5586,6,5586,2,4184,8,3516,4,3718,4,4184,4,4697,4
21 DATA4697,8,4968,16,0,6,6269,4,6269,4,4697,12,4184,4,3718,4,3516,4,3134,16,0,8,4697,4,4184,4
22 DATA3718,12,3516,4,4184,12,4697,4,4697,16
25 IFERR=4THENMENU