0 'BACH6.BA GERALD FRINCKE
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 DIMA(51):T=6'TEMPO
3 K=0'key
4 FORX=1TO51:READA(X):NEXTX:READT$:CLS:PRINT@45,T$:PRINT@120,STRING$(40,95):LINE(0,32)-(239,33),1,BF
5 READN:IFN<0THENIFN<-50THEN7ELSED=T*10/ABS(N):GOTO5
6 PRINT@N+110,CHR$(176):SOUNDA(N+K),D:PRINT@N+110,"_":GOTO5
7 FORW=1TOD*6:NEXTW:IFN=-999THENCALL17001:PRINT@256," The End ":CALL17006:FORT=1TO500:NEXT:MENU
8 GOTO5:DATA 11172,10544,9952,9394,8866,8368,7900,7456,7032:DATA 6642,6269,5918,5586,5272,4968,4697:DATA 4433,4184,3950,3718,3516,3321,3134:DATA 2959,2793,2636,2484,2348,2216,2092,1975,1864,1758
9 DATA 1660,1567,1479,1396,1318,1244,1174,1108,1046,987:DATA 932,879,830,783,739,698,659,622:DATA"J.S. BACH, SONATA #6 IN G MAJOR":DATA -16,35,-80,-8,-80,-16,35,-80,-8,-80,35,-16,34,32,-8,30,28,27,35,25,34,23
10 DATA-16,35,34,35,37,39,41,42,-90,-8,-90,-16,42,-90,-8,-90,-8,42,-16,41,39,37,42,35,42,34,42,41,42,32,42,41,42,30,-90:DATA-16,25,22,18,-90,18,-90,-8,18,-16,27,23,18,-90,18,-90,-8,18,-16,28,25,18,-90,18,-90,-8,18
11 DATA-16,22,25,-8,28,-16,25,28,-8,34,-16,28,34,35,-90,-8,37,34,35,-90,-16,22:DATA25,28,27,25,23,35,-90,-8,25,22,23,-16,33,-90,33,-90,-8,33,27,-16,32,-90:DATA-8,37,34,35,25,-16,27,28,-8,30,28,-4,27,-32,25,27,25,27,25,27,25,27,-8
12 DATA23,-16,25,27,28,30,32,34,35,30,-8,39,-16,39,37,35,34,35,39,-8,30:DATA -16,30,33,32,30,32,28,-8,35,-16,35,33,32,30,32,35,-8,28,-16,28,27,25,23:DATA25,22,-8,28,-16,28,27,25,23,25,28,-8,22,-16,22,25,23,22,23
13 DATA18,23,27,30,27,-8,35,-32,27,28,27,28,-8,25,-4,23,-8,-90,25,30,32,-16,34:DATA30,34,37,-8,40,-4,-90,-8,23,27,30,-16,35,30,35,37,-8,39,-4,-90,-16,29,30
14 DATA32,34,-4,35,-16,32,29,-8,25,-4,35,-8,37,34,30,-16,30,27,29,34,32,30,29,27,25,29,32,29,37,32,29,32,25,29:DATA32,29,37,32,29,32,25,30,34,30,37,34,30,34,25,28,34,28,37,34,28,34,27,30,35,30,39,35,30,35,27,30,35
15 DATA30,39,35,30,35,28,32,35,32,39,35,32,35,28,32,35,32,39,35,32,35,25,28,32,28,37,32,28,32,25,28,32,28,37,32,28,32,27,31:DATA34,31,37,34,31,34,27,31,34,31,37,34,31,34,27,31,32,31,35,32,31,32,27,31,32,31,35,32,31,32,27,31,32,31
16 DATA34,32,31,32,25,31,32,31,34,32,31,32,-8,20,-16,32,-90,-8,-90,-4,32,-16:DATA30,28,27,32,25,32,23,27,-8,32,22,31,-16,20,19,20,22,23
17 DATA 25,27,28,30,32,33,32,35,33,32,30,33,32,30,28,-4,35,-8,35,-16,34,32,30,28,27,25,-8,27,23,-90,-16,32,29,25,-90,25,-90,-8,25:DATA-16,34,30,25,-90,25,-90,-8,25,-16,35,32,25,-90,25,-90,-8,25,-16,29,32,-8
18 DATA35,-16,32,29,-8,25,-16,29,32,34,-90,-8,35,32,34,-16,25,-90,025,-90,-8,25,34,-16,23:DATA-90,-8,35,32,34,-90,-16,22,20,23,22,20,18,30,-90,-8,35,32,34,29,25,-4:DATA30,-16,30,34,-8,37,-16,29,32,35,-90,-8,34,-16,37,35,34,32,30,29
19 DATA30,-90,-8,-90,-16,30,-90,-8,-90,30,-16,29,27,25,30,23,30,22,30,29,30,20,30,29,30,-4,18,-8,-90,-16,25,22,18,-90:DATA18,-90,-8,18,-16,27,23,18,-90,18,-90,-8,18,-16,28,25,18,-90,18,-90,-8,18,-16
20 DATA22,25,-8,28,-16,25,28,-8,34,-16,28,34,35,-90,-8,37,34,35,-90,-16,27,25,28,27,25:DATA23,35,-90,-8,25,22,23,-16,33,-90,33,-90,-8,33,27,-16,32,-90,-8,37,34,35,25,-16,27,28,-8,30,28:DATA-4,27,-32,25,27,25,27,25,27,25,27,-2,23,-90,-90,-999