10 REM WE CAN WORK IT OUT
12 REM THE BEATLES
14 REM GREG SUSONG  -  06/12/83
20 ONERRORGOTO40
30 GOTO50
40 END
50 READA,B
60 SOUNDA,B*25
70 GOTO50
80 DATA 6269,.25,6269,.25,6269,.5,6269,.5,5586,1
90 DATA 6269,1,0,.5,9952,.25,9952,.25,8368,.5
100 DATA 6269,.5,5586,.5,5586,.5,5586,.5,5586,.5
110 DATA 5586,.5,6269,.5,6269,.5,6269,.5,6269,2
120 DATA 0,.5,6269,.25,6269,.25,6269,.5,6269,.5
130 DATA 5586,1,6269,1,0,.5,9952,.25,9952,.25
140 DATA 8368,.5,6269,.5,5586,.5,5586,.5,5586,.5
150 DATA 5586,.5,5586,.5,6269,.5,6269,.5,6269,.5
160 DATA 6269,2,4184,.25,4697,.75,4697,.5,6269,.5
170 DATA 6269,2,4184,.25,4697,.75,4697,.5,6269,.5
180 DATA 6269,1,6642,1,0,.5,6269,.25,6269,.25
190 DATA 6269,.5,6269,.5,5586,1,6269,1,0,.5
200 DATA 9952,.25,9952,.25,8368,.5,6269,.5,5586,.5
210 DATA 5586,.5,5586,.5,5586,.5,5586,.5,6269,.5
220 DATA 6269,.5,6269,.5,6269,2,0,.5,6269,.25
230 DATA 6269,.25,6269,.5,6269,.5,5586,1,6269,1
240 DATA 0,.5,9952,.25,9952,.25,8368,.5,6269,.5
250 DATA 5586,.5,5586,.5,5586,.5,5586,.5,5586,.5
260 DATA 6269,.5,6269,.5,6269,.5,6269,2,4184,.25
270 DATA 4697,.75,4697,.5,6269,.5,6269,2,4184,.25
280 DATA 4697,.75,4697,.5,6269,.5,6269,1,6642,1
290 DATA 4976,1,4976,1,4976,.5,4976,1,4976,2
300 DATA 4976,.5,5586,.5,4976,1,4697,1.5,4976,1
310 DATA 5586,.5,6269,1,6642,2,6642,.5,4976,.66
320 DATA 4976,.66,4976,.66,5586,.66,6269,.66,6269,.66
330 DATA 6269,2,0,4,4976,1,4976,1,4976,.5
340 DATA 4976,1,4976,2,4976,.5,5586,.5,4976,1
350 DATA 4697,1.5,4976,1,5586,.5,6269,1,6642,2
360 DATA 6642,.5,4976,1,4976,1,5586,1.32,6269,.68
370 DATA 6269,1.32,6269,.68,6269,2,0,2,0,.5
380 DATA 6269,.25,6269,.25,6269,.5,6269,.5,5586,1
390 DATA 6269,1,0,.5,9952,.25,9952,.25,8368,.5
400 DATA 6269,.5,5586,.5,5586,.5,5586,.5,5586,.5
410 DATA 5586,.5,6269,.5,6269,.5,6269,.5,6269,2
420 DATA 0,.5,6269,.25,6269,.25,6269,.5,6269,.5
430 DATA 5586,1,6269,1,0,.5,9952,.25,9952,.25
440 DATA 8368,.5,6269,.5,5586,.5,5586,.5,5586,.5
450 DATA 5586,.5,5586,.5,6269,.5,6269,.5,6269,.5
460 DATA 6269,2,4184,.25,4697,.75,4697,.5,6269,.5
470 DATA 6269,2,4184,.25,4697,.75,4697,.5,6269,.5
480 DATA 6269,1,6642,1,