10 REM ALL MY LOVING 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=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 23,1,24,1,26,2,24,1,23,1 100 DATA 21,1,19,2,17,1,16,2,16,1 110 DATA 17,1,19,1,24,2,19,1,19,2 120 DATA 19,1,21,1,23,2,26,1,28,1 130 DATA 26,6,23,1,24,1,26,2,24,1 140 DATA 23,1,21,2,19,1,17,1,16,2 150 DATA 16,1,17,1,19,1,24,2,19,.5 160 DATA 19,.5,19,2,19,1,21,1,23,1 170 DATA 24,2,26,1,28,6,23,1,24,1 180 DATA 26,2,24,1,23,1,21,1,19,2 190 DATA 17,1,16,2,16,1,17,1,19,1 200 DATA 24,2,19,1,19,2,19,1,21,1 210 DATA 23,2,26,1,28,1,26,6,23,1 220 DATA 24,1,26,2,24,1,23,1,21,2 230 DATA 19,1,17,1,16,2,16,1,17,1 240 DATA 19,1,24,2,19,.5,19,.5,19,2 250 DATA 19,1,21,1,23,1,24,2,26,1 260 DATA 28,5,0,1,16,1,17,1,19,1 270 DATA 24,3,24,1,26,1,28,1,26,1 280 DATA 24,5,0,1,16,1,17,1,19,1 290 DATA 24,3,24,1,26,1,28,1,28,1 300 DATA 28,5,