1 REM-----Take me out to the ball game  arr. by Rob Elliott
2 CLS
3 PRINT@124,"Take Me Out To The Ball Game"
4 PRINT@167,"arr. by Rob Elliott"
5 FOR I=1 TO 65
6 READ A,B
7 SOUND A,B
8 NEXT I
9 MENU
10 DATA 4697,15,0,5,2348,10,2793,10,3134,10,3718,10,3134,30,4184,30
11 DATA 4697,15,0,5,2348,10,2793,10,3134,10,3718,10,3134,60
12 DATA 2793,10,2959,10,2793,10,3718,10,3516,10,3134,10,2793,20,3516,10
13 DATA 4184,30,2793,20,2793,10,2793,10,2484,10,2348,10,2092,10,2484,10
14 DATA 2793,10,3134,10,3718,10,4184,10
15 DATA 4697,15,0,5,2348,10,2795,10,3134,10,3718,10,3134,30,4148,20,4148,10
16 DATA 4697,20,4148,10,3718,10,3516,10,3134,10,2793,40,2793,10,2484,10
17 DATA 2348,15,0,10,2348,15,0,10,2348,10,2484,10,2793,10,3134,10,3321,10,3134,10
18 DATA 2793,30,2484,30,2348,60