10 'BUD.BA by Tom Haskins Jul/88
20 'CLUB 100 Library 415/939-1246 bbs
30 CLS:PRINT:A$="You've Said It All":GOSUB400
40 PRINT:A$="By Steve Karmen":GOSUB400
50 PRINT:A$="Arranged for Model 100 by Tom Haskins":GOSUB400
60 READ A,B
65 IF A=0THENEND
70 SOUND A,B
75 GOTO60
400 PRINTTAB((40-(LEN(A$)))/2)A$:RETURN
500 FOR I = 1 TO X:READ A,B:SOUND A,B:NEXT I:RETURN
1000 DATA 7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,14,5586,7,6269,14,6269,7
1010 DATA 2,70,7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,7,5586,21,6269,14,6269,14,3728,7,3728,7,2,42
1020 DATA 7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,14,5586,7,6269,14,6269,7
1030 DATA 2,70,7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,7,5586,21,6269,14,6269,14,3728,7,3728,7,2,42
1040 DATA 7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,14,5586,7,6269,14,6269,7
1050 DATA 2,70,7456,14,7032,14,6269,14,5586,14,2,56,5586,14,4976,14,4697,14,4184,14,4697,14,4697,14,4976,14,4976,14,5586,7,5586,21,6269,14,6269,14,3728,7,3728,7
1060 DATA 2,42,3728,14,3516,14,3728,14,3728,7,4184,14,4184,49,4184,14,3728,14,3516,14,3516,7,3728,14,3728,49,3728,14,3516,14,3728,14,3134,7,3516,14,3516,49
1070 DATA 4184,14,3728,14,3516,14,3516,7,3728,14,3728,49,3728,14,3516,14,3134,14,2793,56,2793,14,3134,14
1080 DATA 2,42,2793,14,3516,7,4184,21,4697,14
2000 DATA 0,0
                                            