0 'FIVE.BA - Author Unknown
1 'Club 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 CLS:DEFINTA-Z:PRINTCHR$(27)+"p";:PRINT"Five Easy Pieces":PRINTCHR$(27)+"q";:PRINT"Emperor Waltz               W":PRINT"Marching Through Georgia    G":PRINT"Fishers Hornpipe            H":PRINT"Arkansas Traveler           A
3 PRINT"Loure  (J. S. Bach)         L":PRINTCHR$(27)+"p";:PRINT"Menu                        M
4 A$=INKEY$:IFA$="W"ORA$="w"THENRESTORE26:GOTO11
5 IFA$="G"ORA$="g"THENRESTORE29:GOTO12
6 IFA$="H"ORA$="h"THENRESTORE33:GOTO13
7 IFA$="A"ORA$="a"THENRESTORE38:GOTO15
8 IFA$="L"ORA$="l"THENRESTORE43:GOTO18
9 IFA$="M"ORA$="m"THENMENU
10 GOTO4
11 FORI=1TO69:READA,B:SOUNDA,B:NEXT:GOTO2
12 FORI=1TO88:READA,B:SOUNDA,B:NEXT:GOTO2
13 FORI=1TO2:FORJ=1TO62:READA,B:SOUNDA,B:NEXT:IFI=1THENRESTORE33:NEXT
14 FORJ=1TO20:NEXT:FORJ=1TO59:READA,B:SOUNDA,B:NEXT:GOTO2
15 FORI=1TO2:FORJ=1TO44:READA,B:SOUNDA,B:NEXT:IFI=1THENRESTORE38
16 NEXT:FORJ=1TO20:NEXT:FORI=1TO2:FORJ=1TO54:READA,B:SOUNDA,B:NEXT:IFI=1THENRESTORE40
17 NEXT:RESTORE38:FORJ=1TO44:READA,B:SOUNDA,B:NEXT:GOTO2
18 FORK=1TO2:FORJ=1TO2:FORI=1TO56:READA,B:SOUNDA,B:NEXTI:IFJ=1THENRESTORE43
19 NEXTJ:FORJ=1TO2:FORI=1TO133:READA,B:SOUNDA,B:NEXTI:IFJ=1THENRESTORE57ELSERESTORE58
20 FORI=1TO10:READA,B:SOUNDA,B:NEXT:IFJ=1THENRESTORE45
21 NEXTJ:IFK=2THEN2
22 RESTORE51:FORJ=1TO2:FORI=1TO52:READA,B:SOUNDA,B:NEXTI:IFJ=1THENRESTORE51
23 NEXTJ:FORJ=1TO2:FORI=1TO106:READA,B:SOUNDA,B:NEXTI:IFJ=1THENRESTORE59ELSERESTORE60
24 FORI=1TO5:READA,B:SOUNDA,B:NEXT:IFJ=1THENRESTORE53
25 NEXTJ:RESTORE43:NEXTK
26 DATA 3728,20,3134,30,6269,10,3516,60,3728,20,6269,20,3728,20,4184,60,3516,20,2792,30,6269,10,3134,60,3516,20,6269,20,3516,20,3728,60,3728,20,3134,30,6269,10,3516,60,3728,20,5586,20,3728,20,4184,60,2792,20,2348,30,3134,10,2488,40,2792,20
27 DATA 3134,20,3516,20,4184,20,4696,60:DATA 2348,20,1864,40,1864,20,2488,40,2488,15,2092,5,2092,20,2092,20,2780,60,2488,20,2092,40,2092,20,2792,40,2780,15,2348,5,2348,20,2348,20,3134,60
28 DATA 2348,20,1864,40,1864,20,2488,40,2488,15,2092,5,2080,20,2080,20,2792,60,1758,20,1864,30,2488,10,2092,20,2348,30,2792,10,2792,40,3134,20,4696,40
29 DATA 2488,15,2792,5,3134,10,2792,10,2488,10,4194,10,4194,10,4194,10,3728,15,3320,5,3134,10,2792,10,3134,40,4968,15,4796,5,4194,10,4194,10,3728,10,4194,10,3728,10,3134,10,2792,15,2994,5,2792,10,2488,10,2792,40
30 DATA 3134,10,3134,10,2792,10,2488,10,2348,10,3728,10,3728,10,3728,10,4184,15,3134,5,3134,10,2792,10,2488,40,2792,20,2792,15,2792,5,2792,20,2488,10,2792,10,3134,40,3134,40
31 DATA 2488,10,2092,30,2488,10,2092,30,2488,10,3134,15,3134,5,3134,10,3728,10,3134,30,2488,10,2092,30,2488,10,2092,30,2488,10,2792,15,2792,5,2792,10,2488,10,2792,40
32 DATA 3134,10,3134,10,2792,10,2488,10,2348,10,3728,10,3728,10,3728,10,4184,10,3134,10,3134,10,2792,10,2488,40,2792,20,2792,15,2792,5,2792,20,2488,15,2792,5,3134,40,3134,10
33 DATA 3134,5,2793,6,2484,5,2348,8,3134,8,3718,8,3134,8,3516,8,2793,8,3134,8,3516,8,3718,8,4697,8,3718,8,4697,8,3516,8,2793,8,3134,8,3516,8,3718,8,4697,8,3718,8,4697,8,3516,8,4184,8,3516,8,4184,8
34 DATA 3718,8,4697,8,3718,8,4697,8,4184,20,3134,5,2793,6,2484,5,2348,8,3134,8,3718,8,3134,8,3516,8,2793,8,3134,8,3516,8,3718,8,4697,8,3718,8,4697,8,3516,8,2793,8,3134,8,3516,8,3718,8,3134,8,2348,8,1864,8,1864,8,2092,8,2348,8
35 DATA 2484,8,2348,16,1864,16,2348,16:DATA 2484,8,2348,8,2092,8,2484,8,3134,8,2484,8,2092,8,2484,8,1758,8,2092,8,1864,8,2348,8,3134,8,2348,8,1864,8,2348,8,1567,8,1864,8
36 DATA 2092,8,2484,8,3134,8,2484,8,2092,8,2484,8,1758,8,1864,8,2092,8,2348,8,2484,8,2793,8,3134,16,3134,16:DATA 2793,8,3516,8,4697,8,3516,8,2793,8,3516,8,2348,8,2793,8,3134,8,3718,8,4697,8,3718,8,3134,8,3718,8,2348,8,3134,8,2793,8,2348,8,2484,8,2793,8
37 DATA 3134,8,3516,8,3718,8,4184,8,4697,16,2348,24,2348,24
38 DATA 3134,12,2348,6,1864,6,2092,6,2348,6,2792,12,2792,12,3134,12,3134,12,2348,12,2348,12,2092,12,2092,12,1864,12,1864,12,2092,6,1864,6,2092,6,2348,6,2792,12,3134,12
39 DATA 2348,6,1864,6,2092,6,2348,6,2793,12,2793,12,3134,12,3134,12,2348,12,2348,12,1174,6,1244,6,1174,6,1567,6,1396,6,1174,6,1567,6,1758,6,1864,6,2348,6,2092,6,2484,6,2348,12
40 DATA 1864,6,1758,6,1567,6,1758,6,1864,6,1567,6,1758,6,1864,6,2092,6,1758,6,1864,6,2092,6,2348,6,1864,6,2092,6,2484,6,3134,12
41 DATA 2348,12,2348,12,2092,12,2092,12,1864,12,1864,12,2092,12,1864,6,1758,6,1567,6,1758,6,1864,6,1567,6,1758,6,1864,6,2092,6,1758,6
42 DATA 1864,6,2092,6,2348,6,1864,6,2092,6,2484,6,3134,12,2348,6,2484,6,2348,6,3134,6,2793,6,2348,6,3134,6,3516,6,3718,6,4697,6,4184,6,3134,6,4697,12
43 DATA 2484,8,2348,8,2092,16,3134,8,3321,8,3134,16,1567,16,1660,3,1567,3,1660,4,1567,3,1660,3,1864,8,1660,8,2092,16,2793,8,2484,8,2348,16,3321,8,3718,8,3321,16,2092,16,2348,8,2484,8,2793,8,2484,8,3134,16,1567,8,1660,8
44 DATA 1864,8,1660,8,1567,8,2092,8,2216,8,1660,8,1567,8,2484,8,2793,8,1660,8,1567,8,3134,8,3321,8,2793,8,2216,8,1864,8,1396,16,1660,8,2092,8,2793,16,2216,16,2092,16,0,4,5586,4,0,12,8368,4,0,12
45 DATA 1660,8,1567,8,1396,16,1660,8,2092,8,2348,16,1660,16
46 DATA 2484,8,2092,8,1567,8,1396,8,1244,16,1567,8,1975,8,1864,16,2348,8,1864,8,2793,8,1567,8,1660,8,1864,8,2484,8,1864,8,1975,8,2216,8,2484,16,1660,8,2484,8,1567,8,1864,8,1975,8,1864,8,1660,8,2484,8,1567,8,2484,8,1396,8,1660,8,1864,8,1660,8,1567,8
47 DATA 2484,8,1396,8,2348,8
48 DATA 2484,8,1244,8,1660,8,1567,8,2484,16,1864,8,1975,8,1864,16,4976,4,0,12,7456,4,0,12,1864,8,1660,8,1567,16,2216,8,2484,8,2216,16,2793,16,4184,8,2793,8,1567,8,1864,8,1660,16,2092,8,2348,8,2484,8,2092,8,1567,8,2484,8,2793,8,1174,8,1244,8,1567,8
49 DATA 1396,8,1567,8,1660,8,1864,8,2092,16,1660,8,1567,8,1396,8,1660,8,2092,8,1864,8,1660,8,2092,8,2793,8,2484,8,2348,8,2793,8,3321,8,3134,8,2793,8,3321,8,4184,8,2092
50 DATA 8,2484,8,3134,8,4184,8,2092,8,2484,8,3134,8,4184,8,1567,8,2092,8,2484,8,2348,8,2793,8:DATA 2484,8,3134,8,4184,8,2484,8:DATA 2793,8,2484,8,2348,8,3134,8,3321,8,2484,8,2348,8,3718,8,4184,8,2484,8,2348,8,4697,8,4976,8,4184,8,3321,8,2793,8
51 DATA 1567,8,1396,8,1318,16,1396,8,1567,8,1660,16,1567,16,1396,8,1567,8,1660,8,1975,8,2092,8,2348,8,2636,8,2793,8,3134,8,2092,8,2348,8,2636,8,2793,8,2348,8,2636,8,2793,8
52 DATA 3134,8,3321,8,3134,8,2793,8,2636,8,2348,8,2092,8,1975,8,1758,16,1975,8,2092,8,2348,16,2636,16,2793,8,2636,8,2348,8,2092,8,1975,8,1758,8,1567,8,1396,8,1318,16,1396,8,1567,8,1758,8,1975,8,2092,8,2348,8,2636,64
53 DATA 2636,8,2348,8,2092,16,2092,8,2348,8,2092,16,1864,16,1758,8,1864,8,1758,8,1567,8,1758,16,2348,16,2092,8,1758,8,1864,8,1758,8,1567,8,1758,8,1864,8,2092,8,2092,8,2216,8,2484,8,2216,8,2793,16,1396,8,1567,8
54 DATA 1396,16,2636,8,2793,8,2636,16,2092,16,1567,8,1660,8,1567,8,1396,8,1318,16,1396,16,1567,8,1758,8,1864,8,2092,8,1758,8,1864,8,2092,8,2216,8,2092,16,5586,4,0,12,8368,4,0,12,2092,8,1975,8
55 DATA 1758,16,1975,8,2092,8,2348,8,2484,8,2348,8,2092,8,1758,8,1975,8,2092,8,2348,8,1396,32,1396,8,1660,8,1567,8,1396,8,1318,8,1396,8,1567,8,1318,8,1396,8,1567,8,1660,8,1975,8,2092,8,2348,8,2636,8,2793,8
56 DATA 2636,8,2793,8,2348,8,2636,8,2092,8,2348,8,1975,8,2092,8,2092,8,3718,8,3321,8,3134,8,2793,8,2636,8,2348,8,2793,8,2348,8,2636,8,2793,8,3134,8,2636,8,2793,8,3134,8,3321,8
57 DATA 2092,16,2484,8,3134,8,4184,16,3321,16,3134,16,8368,4,0,12,12538,4,0,12
58 DATA 2092,16,2484,8,3134,8,4184,16,1660,16,1567,48,0,4,0,4,0,4,0,4
59 DATA 3134,16,8368,4,0,12,12538,4,0,12
60 DATA 3134,48,0,4,0,4,0,4,0,4