10 REM FOR NO ONE
12 REM BY THE BEATLES
14 REM GREG SUSONG  -  06/12/83
20 ONERRORGOTO40
25 DIMNT(39):GOSUB80
30 GOTO50
40 MENU
50 READA,B
60 SOUNDNT(A),B*15
70 GOTO50
79 'LOAD PITCH VALUES
80 FORN=1TO39:READNT(N):NEXT
81 RETURN
82 DATA 1660,1758,1864,1975,2092,2216
83 DATA 2348,2484,2636,2793,2959,3134
84 DATA 3321,3516,3718,3728,4184,4433
85 DATA 4697,4976,5272,5586,5919,6269
86 DATA 6642,7032,7456,7900,8368,8866
87 DATA 9394,9952,10544,11172,11836
88 DATA 12538,13284,14064,14912
90 DATA 24,.5,24,1.5,24,1,0,1,24,.5
100 DATA 24,1.5,24,1,0,1,19,.5,19,1.5
110 DATA 19,.5,15,1.5,15,1,15,1,15,1
120 DATA 15,1,19,1,19,1,19,.5,19,1.5
130 DATA 24,1,24,1,24,1,24,1,24,.5
140 DATA 24,1.5,27,2.5,0,2,0,1,24,.5
150 DATA 24,1.5,24,1,0,1,24,.5,24,1.5
160 DATA 24,1,0,1,19,.5,19,1.5,19,.5
170 DATA 15,1.5,15,1,15,1,15,1,15,1
180 DATA 19,1,19,1,19,.5,19,1.5,24,1
190 DATA 24,1,24,1,24,1,24,.5,24,1.5
200 DATA 27,1.5,0,.5,27,1,26,.5,24,1.5
210 DATA 22,2,17,1,19,1,24,.5,22,3.5
220 DATA 0,1,22,1,17,1,15,1,14,1
230 DATA 15,1,17,1,18,.5,17,2.5,17,1
240 DATA 19,.5,24,1.5,22,3,0,1,22,1
250 DATA 17,1,15,1,14,1,15,1,17,1
260 DATA 18,.5,17,4.5,19,2,20,2,0,1
270 DATA 24,.5,24,1.5,24,1,0,1,24,.5
280 DATA 24,1.5,24,1,0,1,19,.5,19,1.5
290 DATA 19,.5,15,1.5,15,1,15,1,15,1
300 DATA 15,1,19,1,19,1,19,.5,19,1.5
310 DATA 24,1,24,1,24,1,24,1,24,.5
320 DATA 24,1.5,27,1.5,0,.5,27,1,26,.5
330 DATA 24,1.5,22,2,17,1,19,1,24,.5
340 DATA 22,3.5,0,1,22,1,17,1,15,1
350 DATA 14,1,15,1,17,1,18,.5,17,2.5
360 DATA 17,1,19,.5,24,1.5,22,3,0,1
370 DATA 22,1,17,1,15,1,14,1,15,1
380 DATA 17,1,18,.5,17,4.5,19,2,20,2
390 DATA 0,1,24,.5,24,1.5,24,1,0,1
400 DATA 24,.5,24,1.5,24,1,0,1,19,.5
410 DATA 19,1.5,19,.5,15,1.5,15,1,15,1
420 DATA 15,1,15,1,19,1,19,1,19,.5
430 DATA 19,1.5,24,1,24,1,24,1,24,1
440 DATA 24,.5,24,1.5,27,3,0,2,0,1
450 DATA 24,.5,24,1.5,24,1,0,1,24,.5
460 DATA 24,1.5,24,1,0,1,19,.5,19,1.5
470 DATA 19,.5,15,1.5,15,1,15,1,15,1
480 DATA 15,1,19,1,19,1,19,.5,19,1.5
490 DATA 24,1,24,1,24,1,24,1,24,.5
500 DATA 24,1.5,27,1.5,0,.5,27,1,26,.5
510 DATA 24,1.5,22,2,17,1,19,1,24,.5
520 DATA 22,3.5,0,1,22,1,17,1,15,1
530 DATA 14,1,15,1,17,1,18,.5,17,2.5
540 DATA 17,1,19,.5,24,1.5,22,3,0,1
550 DATA 22,1,17,1,15,1,14,1,15,1
560 DATA 17,1,18,.5,17,4.5,19,2,20,2
570 DATA