10 'SONATA PROGRAMMED BY GERALD FRINCKE 20 DIM A(51) 30 T=6 'TEMPO 40 K=0: 'key 50 FOR X=1TO 51: READ A(X): NEXT X 60 READT$:CLS:PRINT@45,T$ 65 PRINT@120,STRING$(40,95) 67 LINE(0,32)-(239,33),1,BF 70 READ N:IF N<0 THEN IFN<-50THENGOTO100ELSED=T*10/ABS(N):GOTO70 80 PRINT@N+110,CHR$(176):SOUND A(N+K),D:PRINT@N+110,"_" 90 GOTO 70 100 FORW=1TOD*6:NEXT W 110 IF N=-999 THEN END 120 GOTO70 130 DATA 11172,10544,9952,9394,8866,8368,7900,7456,7032 140 DATA 6642,6269,5918,5586,5272,4968,4697 150 DATA 4433,4184,3950,3718,3516,3321,3134 160 DATA 2959,2793,2636,2484,2348,2216,2092,1975,1864,1758 170 DATA 1660,1567,1479,1396,1318,1244,1174,1108,1046,987 180 DATA 932,879,830,783,739,698,659,622 190 DATA"J.S. BACH, SONATA #6 IN G MAJOR" 200 DATA -16,35,-80,-8,-80,-16,35,-80,-8,-80,35,-16,34,32,-8,30,28,27,35,25,34,23 210 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 220 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 230 DATA-16,22,25,-8,28,-16,25,28,-8,34,-16,28,34,35,-90,-8,37,34,35,-90,-16,22,25,28,27,25,23,35,-90,-8,25,22,23,-16,33,-90,33,-90,-8,33,27,-16,32,-90 240 DATA-8,37,34,35,25,-16,27,28,-8,30,28,-4,27,-32,25,27,25,27,25,27,25,27,-8,23,-16,25,27,28,30,32,34,35,30,-8,39,-16,39,37,35,34,35,39,-8,30 250 DATA -16,30,33,32,30,32,28,-8,35,-16,35,33,32,30,32,35,-8,28,-16,28,27,25,23,25,22,-8,28,-16,28,27,25,23,25,28,-8,22,-16,22,25,23,22,23 260 DATA18,23,27,30,27,-8,35,-32,27,28,27,28,-8,25,-4,23,-8,-90,25,30,32,-16,34,30,34,37,-8,40,-4,-90,-8,23,27,30,-16,35,30,35,37,-8,39,-4,-90,-16,29,30 270 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 280 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 290 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 300 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 310 DATA34,32,31,32,25,31,32,31,34,32,31,32,-8,20,-16,32,-90,-8,-90,-4,32,-16,30,28,27,32,25,32,23,27,-8,32,22,31,-16,20,19,20,22,23 320 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 330 DATA-16,34,30,25,-90,25,-90,-8,25,-16,35,32,25,-90,25,-90,-8,25,-16,29,32,-8,35,-16,32,29,-8,25,-16,29,32,34,-90,-8,35,32,34,-16,25,-90,025,-90,-8,25,34,-16,23 340 DATA-90,-8,35,32,34,-90,-16,22,20,23,22,20,18,30,-90,-8,35,32,34,29,25,-4,30,-16,30,34,-8,37,-16,29,32,35,-90,-8,34,-16,37,35,34,32,30,29 350 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 360 DATA18,-90,-8,18,-16,27,23,18,-90,18,-90,-8,18,-16,28,25,18,-90,18,-90,-8,18,-16,22,25,-8,28,-16,25,28,-8,34,-16,28,34,35,-90,-8,37,34,35,-90,-16,27,25,28,27,25 370 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 380 DATA-4,27,-32,25,27,25,27,25,27,25,27,-2,23,-90,-90,-999