0 'MULTIVOICE FOR MODEL100
1 'BLUES MUSIC
2 'BY GEORGE DUNSAY
3 'CIS (72325,614)
5 CLEAR
10 DIMS(60)
20 FORX=60TO1STEP-1:READS(X):NEXTX
30 DATA415,439,466,493,523,554,587,622,659,698,739,783,830,879,932,987,1046,1108,1174,1244,1318,1396,1479,1567
32 DATA1660,1758,1864,1975,2092,2216,2348,2484,2636,2793,2959,3134,3321,3516,3728,3950,4184,4433,4697,4976,5272,5586
34 DATA5918,6269,6642,7032,7456,7900,8368,8866,9394,9952,10544,11172,11836,12538
100 READ A,B,C:IFC=0THENEND
101 IFC=99THENV=A:ONBGOTO190,191,192
105 FORX=1TOC*V:SOUNDS(A),1:SOUNDS(B),1:NEXTX:GOTO100
150 DATA1.3,1,99,18,30,32,18,30,6,13,30,2,15,30,6,13,30,2,15,30,6,13,30,2,15,30,6,13,30,2
151 DATA6,16,37,0,16,1,6,16,2,8,16,6,6,16,2,9,16,6,6,16,2,9,16,6,6,16,2
152 DATA13,25,16,9,14,6,6,14,2,9,14,6,6,14,2
153 DATA13,25,12,6,13,4,9,14,6,6,14,2,8,13,8,6,18,16,6,23,16
154 DATA6,18,6,13,18,2,15,21,6,13,21,2,16,26,6,13,26,2,17,31,6,13,31,2,18,30,36
155 DATA13,18,2,15,18,6,13,18,2,15,18,6,13,18,2,15,17,6,13,17,2
156 DATA6,16,37,0,16,1,6,16,2,8,16,6,6,16,2,9,16,6,6,16,2,9,16,6,6,16,2
157 DATA13,25,16,9,14,6,6,14,2,9,14,6,6,14,2
158 DATA13,25,12,6,13,4,9,14,6,6,14,2,8,14,8,6,18,16,6,11,16,6,18,8,13,15,8,12,8,8,11,13,8
159 DATA10 ,18,16,15,19,4,13,19,8,11,20,20,17,25,4,15,25,8,13,18,20,18,22,4,17,22,8,15,23,20,20,32,4,18,32,8,17,25,19
160 DATA0,25,1,17,25,23,0,25,1,17,25,4,17,25,8,18,25,4,20,25,8,18,30,16,18,23,16,18,30,8,13,15,8,12,8,8,11,13,8,10,18,16
161 DATA15,19,4,13,19,8,11,20,20,17,25,4,15,25,8,13,18,20,18,22,4,17,22,8,15,23,20,20,32,4,18,32,8,17,25,19,0,25,1
162 DATA17,25,16,0,25,8,17,25,4,17,25,8,18,25,4,20,25,8,18,30,16,18,35,16,18,30,16
163 DATA17,30,4,18,30,4,20,30,4,21,30,4,22,34,16,20,29,4,17,29,4,20,29,4,17,22,20
164 DATA20,29,4,17,29,4,20,34,4,17,29,20,17,23,16,17,22,16,17,22,4,18,22,4,20,34,4,21,34,4,22,27,16
165 DATA19,27,4,15,27,4,19,27,4,15,27,20,19,27,4,15,27,4,19,27,4,15,27,20,15,20,16,15,25,8,13,15,8,12,8,8,11,13,8
166 DATA10,18,16,15,18,4,13,18,8,11,20,20,17,25,4,15,25,8,13,18,20,18,22,4,17,22,8,15,23,20
167 DATA20,32,4,18,32,8,17,25,20,17,25,16,0,25,8,17,25,4,17,25,8,18,25,4,20,25,8,18,30,16,18,35,16,6,30,8,10,30,8
168 DATA13,30,8,18,30,16
170 DATA.9,2,99,10,17,4,12,17,8,14,22,16,10,22,4,17,29,4,14,29,8,19,22,16,17,22,4,22,29,16
171 DATA17,29,4,14,29,8,10,22,28,0,22,8,10,22,4,12,22,8,13,22,16,10,22,4,17,27,4,13,27,8,19,27,16,15,27,4
172 DATA22,34,16,19,34,4,17,34,8,15,27,28,0,27,8
173 DATA8,15,4,10,15,8,12,20,16,8,12,4,15,29,4,12,29,8,17,22,16,15,22,4,20,27,16,15,27,4,12,27,8,8,20,12
174 DATA8,20,4,10,20,8,8,20,4,10,20,8,17,25,16,17,22,16,17,27,8,8,27,4,10,20,8,8,20,4,10,20,8,17,25,24,17,25,8
175 DATA15,24,16,15,29,8,0,29,8
176 DATA10,17,4,12,17,8,14,22,16,10,22,4,17,29,4,14,29,8,19,34,16,17,34,4,22,29,16,17,29,4,14,29,8,10,22,28,0,22,8
177 DATA10,22,4,12,22,8,13,22,16,10,22,4,17,27,4,13,27,8,19,27,16,17,27,4,22,34,16,19,34,4,17,22,8,15,27,20,0,27,20
178 DATA17,22,12,17,31,12,0,31,8,15,24,4,12,24,8,17,29,20,17,22,12,17,31,12,0,31,8,15,24,4,12,24,8,17,29,12
179 DATA0,29,8,8,13,4,10,13,8,13,24,8,17,24,12,20,35,4,21,35,8,22,34,8,17,34,12,15,27,16,20,32,4,17,32,8,13,25,24
190 CLS:PRINT@51,"BIRTH OF THE BLUES":GOTO100
191 CLS:PRINT@50,"SWEET GEORGIA BROWN":GOTO100
192 CLS:PRINT@51,"BLUES IN THE NIGHT":GOTO100
200 DATA1.5,3,99,11,35,4,15,27,3,16,27,3,11,27,3,15,27,4,16,27,16,11,26,4
201 DATA15,26,3,16,26,3,11,26,3,15,26,4,16,26,16,11,26,4
202 DATA15,24,3,16,24,3,11,24,3,15,24,4,16,23,20
203 DATA 8,16,28,4,16,4
204 DATA 11,21,3,9,21,3,4,21,3,11,21,4,9,21,16,4,21,4
205 DATA 11,21,3,9,21,3,4,21,3,11,21,4,9,21,20
206 DATA 0,0,4,16,28,4,14,30,4,13,30,4,11,23,4,13,23,4,7,23,4,8,28,32,11,28,4
207 DATA17,35,3,18,35,3,11,35,3,17,37,4,18,38,16,11,35,4
208 DATA19,28,3,18,28,3,19,28,3,16,30,6,0,0,1,16,30,2,14,23,3,13,23,3,14,23,3,11,23,6,0,0,1,11,23,2
209 DATA 15,27,4,15,28,23,13,28,3,11,28,3,4,16,32
210 DATA 20,40,12,23,40,4,19,40,6,16,40,2,13,28,6,11,28,2
211 DATA 19,33,12,23,33,4,19,28,6,16,28,2,13,33,6,11,28,2
212 DATA 19,27,4,20,28,24,11,28,4
213 DATA 15,28,3,16,28,3,11,28,3,15,28,4,16,28,20
214 DATA 19,33,12,23,33,4,19,28,6,16,28,2,13,33,6,11,33,2
215 DATA 21,30,12,23,30,4,21,35,6,19,35,2,16,30,6,12,30,2
216 DATA 19,27,4,20,28,24,11,28,4
217 DATA 15,28,3,16,28,3,11,28,3,15,28,4,16,28,16,11,28,4
218 DATA 22,35,3,23,35,3,11,23,3,22,37,4,23,38,16,11,35,4
219 DATA 19,30,3,18,30,3,19,30,3,16,30,6,0,0,1,16,30,2,14,23,3,13,23,3,14,23,3,11,23,6,0,0,1,11,23,2
220 DATA 15,27,4,16,28,20,0,0,1,16,28,3,13,28,3,11,28,3
221 DATA 4,16,20,11,28,4,13,28,4,16,28,4
222 DATA 18,33,12,16,33,4,18,33,12,16,33,4
223 DATA 22,30,12,19,30,4,22,30,6,19,30,2,22,30,6,23,30,2
224 DATA 16,31,12,14,31,4,16,31,12,14,31,4
225 DATA 19,30,16,19,25,8,19,30,8
226 DATA 14,25,12,13,25,4,14,25,12,13,25,4
227 DATA 18,28,20,16,30,4,18,30,4,0,0,1,18,30,4
228 DATA 18,35,32,18,30,16,0,23,16
229 DATA 18,33,12,16,33,4,18,33,12,16,33,4
230 DATA 21,30,12,19,30,4,21,30,6,19,30,2,21,35,6,23,35,2
231 DATA 16,31,12,14,31,4,16,31,12,14,31,4
232 DATA 19,37,24,19,30,8
233 DATA 14,25,12,13,25,4,14,25,12,13,25,4
234 DATA 18,28,20,16,30,4,18,30,4,20,30,4
235 DATA 20,35,16,20,37,16,20,35,16,20,30,8,0,0,3,11,23,3,16,35,3
236 DATA 14,28,27,13,28,3,21,28,3
237 DATA 19,30,16,19,35,12,11,23,4
238 DATA15,27,3,16,27,3,11,27,3,15,27,4,16,27,16,11,26,4
239 DATA15,26,3,16,26,3,11,26,3,15,26,4,16,26,16,11,26,4
240 DATA15,24,3,16,24,3,11,24,3,15,24,4,16,23,20
241 DATA 8,16,28,4,16,4
242 DATA 11,21,3,9,21,3,4,21,3,11,21,4,9,21,16,4,21,4
243 DATA 11,21,3,9,21,3,4,21,3,11,21,4,9,21,20
244 DATA 0,0,4,16,28,4,14,30,4,13,30,4,11,23,4,13,23,4,7,23,4,8,28,32,11,28,4
245 DATA17,35,3,18,35,3,11,35,3,17,37,4,18,38,16,11,35,4
246 DATA19,28,3,18,28,3,19,28,3,16,30,6,0,0,1,16,30,2,14,23,3,13,23,3,14,23,3,11,23,6,0,0,1,11,23,2
247 DATA 15,27,4,15,28,23,13,28,3,11,28,3,4,16,24,0,0,3,11,28,3,16,28,3
248 DATA 14,28,27,13,28,3,21,28,3
249 DATA 19,30,16,19,35,12,11,23,4
250 DATA 19,30,3,18,30,3,19,30,3,16,30,6,0,0,1,16,30,2,11,23,4,16,23,7,13,23,3,11,23,3
251 DATA 4,16,32,11,23,16,11,23,16,4,16,16,4,16,16
399 DATA 0,0,0