1 ' MENUETT
2 '   By Ludwig van Beethoven
3 '   Prog. by Eiji Miura  [71216,1564]
4 '        and Tassi Law
5 '   January 6, 1984
6 '------------------------------------
10 CLS:PRINT@136,"Menuett":CLEAR:DEFINTA-Z:DIMS(61):RESTORE20:FORI=1TO61:READA:S(I)=A:NEXT:RESTORE23:FORG=1TO311:READA,B,C
11 IFA=-1THENIFQ=1THENNEXTELSERESTORE23:Q=1:NEXT
12 IFA=-2THENIFW=1THENNEXTELSERESTORE28:W=1:NEXT
13 IFA=-3THENIFE=1THENNEXTELSERESTORE25:E=1:NEXT
14 IFA=-4THENIFR=1THENNEXTELSERESTORE31:R=1:NEXT
15 IFA=-5THENIFY=1THENNEXTELSERESTORE37:Y=1:NEXT
16 IFA=-6THENIFU=1THENNEXTELSERESTORE39:U=1:NEXT
17 IFA=-7THENIF(F=0ORF=2)THENF=1:NEXTELSEF=2:RESTORE30:NEXT
18 IFA=-8THENIFO=1THENRESTORE43:NEXTELSEO=1:NEXT
19 FORT=1TOC:SOUNDS(A),1:SOUNDS(B),1:NEXTT,G:MENU
20 DATA12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642,6269,5918,5586,5272,4968,4696,4433,4184,3950
21 DATA3718,3516,3321,3134,2959,2793,2636,2484,2348,2216,2092,1975,1864,1758,1660,1567,1479,1396,1318,1244,1174,1108
22 DATA1046,987,932,879,830,783,739,698,659,622,587,554,523,493,466,439,415,0
23 DATA29,29,6,30,30,2,32,20,6,31,20,2,32,25,6,31,25,2,32,29,6,31,29,2,32,32
24 DATA16,34,34,6,29,29,2,30,30,16,32,20,6,27,20,2,29,17,8,61,61,8
25 DATA25,25,6,27,27,2,29,25,6,28,28,2,29,25,6,28,28,2,29,25,6,28,28,2
26 DATA29,17,16,-7,0,0,27,27,4,25,25,4,25,25,4,24,24,4,24,20,4,27,27,4
27 DATA25,25,4,22,22,4,20,8,8,61,61,4,-1,0,0
28 DATA32,29,4,37,37,4,37,37,4,36,36,4,37,37,4
29 DATA39,39,16,37,37,2,36,36,2,34,34,2,32,32,2,30,30,8,29,29,8,34,34,6,30,30,2,29,29,8,27,27,4,61,61,2,-3,0,0
30 DATA30,30,6,26,26,2,27,27,16,29,29,6,24,24,2,25,25,8,-2,0,0
31 DATA32,39,4,31,28,4,32,39,4,29,29,4,32,32,4,25,25,4,29,29,4
32 DATA20,20,4,29,29,4,27,27,4,30,30,4,24,24,4,27,27,4,20,20,4,24,24,4
33 DATA25,25,4,24,24,4,25,25,4,27,27,4,29,29,4,30,30,4,32,32,4,31,31,4
34 DATA32,32,4,31,31,4,32,32,4,30,30,4,29,29,4,28,28,4,29,29,4,30,30,4
35 DATA29,29,4,27,27,4,25,25,4,29,29,4,27,27,4,25,25,4,24,24,4,27,27,4
36 DATA22,22,4,24,24,4,25,25,4,22,22,4,19,19,4,15,15,4,20,8,4,61,61,2,-4,0,0
37 DATA32,39,4,31,28,4,32,39,4,34,34,4,30,30,4,27,27,4,29,29,4,27,27,4,29,29,4
38 DATA30,30,4,27,27,4,24,24,4,-5,0,0
39 DATA32,39,4,31,28,4,32,39,4
40 DATA29,29,4,32,32,4,25,25,4,29,29,4,20,20,4,37,37,4,34,34,4,37,37,4
41 DATA30,30,4,34,34,4,27,27,4,30,30,4,24,24,4,27,27,4,20,20,4,22,22,4
42 DATA23,23,4,24,24,4,27,20,2,27,22,2,27,23,2,27,24,2,-8,0,0,25,25,4,-6,0,0
43 DATA25,8,12