10 REM IN MY LIFE
12 REM BY THE BEATLES
14 REM GREG SUSONG  -  06/12/83
20 ONERRORGOTO40
30 DIMNT(39):GOSUB80:GOTO50
40 MENU
50 READA,B
60 SOUNDNT(A),B*25
70 GOTO50
79 'LOAD PITCH VALUES
80 FORN=1TO12:READNT(N):NT(N+12)=NT(N)*2:NT(N+24)=NT(N)*4:NEXT:NT(37)=13284:NT(38)=14064:NT(39)=14912:RETURN
81 DATA 1660,1758,1864,1975,2092,2216
82 DATA 2348,2484,2636,2793,2959,3134
90 DATA 29,.5,27,.5,22,1,24,1,22,1
100 DATA 20,1,17,.5,20,1.5,0,1,22,.5
110 DATA 20,.5,22,1.5,20,.25,22,.25,24,1.5
120 DATA 28,.5,29,.5,20,1,20,1.5,29,.5
130 DATA 27,.5,22,1,24,1,22,1,20,1
140 DATA 17,.5,20,1.5,0,1,22,.5,20,.5
150 DATA 22,1.5,20,.25,22,.25,24,1.5,28,.5
160 DATA 29,1,20,.5,20,1.5,24,.5,22,.5
170 DATA 20,.5,22,.5,22,.5,24,.5,24,.5
180 DATA 27,.5,27,.5,24,.5,20,.5,22,1.5
190 DATA 0,1.5,20,.5,19,.5,20,.5,22,.5
200 DATA 24,1.5,0,.5,27,.5,29,.5,20,.5
210 DATA 20,.5,20,1.5,24,.5,22,.5,20,.5
220 DATA 22,.5,22,.5,24,.5,24,.5,27,.5
230 DATA 27,.5,24,.5,20,.5,22,1.5,0,1.5
240 DATA 29,.5,20,.5,22,1,24,.25,22,.25
250 DATA 24,1,0,.5,28,.5,29,1,20,.5
260 DATA 20,1.5,0,1,20,1,12,1,20,.5
270 DATA 19,.5,17,.5,13,2.5,0,1,29,.5
280 DATA 27,.5,22,1,24,1,22,1,20,1
290 DATA 17,.5,20,1.5,0,1,22,.5,20,.5
300 DATA 22,1.5,20,.25,22,.25,24,1.5,28,.5
310 DATA 29,.5,20,1,20,1.5,29,.5,27,.5
320 DATA 22,1,24,1,22,1,20,1,17,.5
330 DATA 20,1.5,0,1,22,.5,20,.5,22,1.5
340 DATA 20,.25,22,.25,24,1.5,28,.5,29,1
350 DATA 20,.5,20,1.5,24,.5,22,.5,20,.5
360 DATA 22,.5,22,.5,24,.5,24,.5,27,.5
370 DATA 27,.5,24,.5,20,.5,22,1.5,0,1.5
380 DATA 20,.5,19,.5,20,.5,22,.5,24,1.5
390 DATA 0,.5,27,.5,29,.5,20,.5,20,.5
400 DATA 20,1.5,24,.5,22,.5,20,.5,22,.5
410 DATA 22,.5,24,.5,24,.5,27,.5,27,.5
420 DATA 24,.5,20,.5,22,1.5,0,1.5,29,.5
430 DATA 20,.5,22,1,24,.25,22,.25,24,1
440 DATA 0,.5,28,.5,29,1,20,.5,20,1.5
450 DATA 0,1,20,1,12,1,20,.5,19,.5
460 DATA 17,.5,13,2.5,0,1,0,1,24,.5
470 DATA 22,.5,20,.5,22,.5,22,.5,24,.5
480 DATA 24,.5,27,.5,27,.5,24,.5,20,.5
490 DATA 22,1.5,0,1.5,20,.5,19,.5,20,.5
500 DATA 22,.5,24,1.5,0,.5,27,.5,29,.5
510 DATA 20,.5,20,.5,20,1.5,24,.5,22,.5
520 DATA 20,.5,22,.5,22,.5,24,.5,24,.5
530 DATA 27,.5,27,.5,24,.5,20,.5,22,1.5
540 DATA 0,1.5,29,.5,20,.5,22,1,24,.25
550 DATA 22,.25,24,1,0,.5,28,.5,29,1
560 DATA 20,.5,20,1.5,0,1,20,1,12,1
570 DATA 20,.5,19,.5,17,.5,13,3,0,1.5
580 DATA 29,.5,22,1.5,24,.25,22,.25,24,.5
590 DATA 28,.5,29,.5,20,.5,20,4,20,1
600 DATA 12,1,20,.5,19,.5,17,.5,13,2.5
610 DATA 13,.5,15,.5,13,1,12,4,