0 'HUNGRY.BA  GREG SUSONG  06/11/83
1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
2 'HUNGRY LIKE THE WOLF BY DURAN DURAN
20 ONERRORGOTO40
30 GOSUB80:GOTO50
40 END
50 READA,B
60 SOUNDNT(A),B*20
70 GOTO50
79 'LOAD PITCH VALUES
80 DIMNT(39):FORN=1TO39:READNT(N):NEXT
81 RETURN
82 DATA 1660,1758,1864,1975,2092,2216
83 DATA 2348,2484,2636,2793,2959,3134
84 DATA 3321,3516,3718,3728,4184,4433
85 DATA 4697,4976,5272,5586,5919,6269
86 DATA 6642,7032,7456,7900,8368,8866
87 DATA 9394,9952,10544,11172,11836
88 DATA 12538,13284,14064,14912
90 DATA 0,.5,15,.5,15,.5,15,.5,15,.5
100 DATA 23,1.5,22,.5,23,.5,22,.5,20,2.5
110 DATA 0,.5,15,.5,15,.5,15,.5,15,.5
120 DATA 23,1.5,22,.5,23,.5,22,.5,20,1.16
130 DATA 15,.66,15,.66,15,.66,17,.66,17,.66
140 DATA 17,.66,18,.66,18,.66,18,.66,20,.66
150 DATA 20,.66,20,.66,22,.66,20,1.66,20,1.5
160 DATA 0,4,0,.5,15,.5,15,.5,15,.5
170 DATA 15,.5,23,1.5,22,.5,23,.5,22,.5
180 DATA 20,2.5,0,.5,15,.5,15,.5,15,.5
190 DATA 15,.5,23,.5,23,.5,23,.5,22,.5
200 DATA 23,.5,22,.5,20,1.18,15,.66,15,.66
210 DATA 15,.66,17,.66,17,.66,17,.66,18,.66
220 DATA 18,.66,18,.66,20,.66,20,.66,20,.66
230 DATA 22,.66,20,1.66,20,3,0,4,0,1
240 DATA 0,.5,24,.5,15,.5,15,.5,15,.5
250 DATA 17,2.5,17,.5,17,.5,17,.5,19,1.5
260 DATA 19,1,19,1,19,1,19,2.5,15,.5
270 DATA 15,.5,15,.5,15,2,24,.5,15,.5
280 DATA 15,.5,15,.5,17,2,17,1,17,1
290 DATA 19,1.5,19,.5,19,1,19,1,17,2.5
300 DATA 15,.5,15,.5,15,.5,15,2,24,.5
310 DATA 15,.5,15,.5,15,.5,17,2.5,17,.5
320 DATA 17,.5,17,.5,19,1,19,1,19,1
330 DATA 19,1,19,2.5,15,.5,15,.5,15,.5
340 DATA 15,2,24,.5,15,.5,15,.5,15,.5
350 DATA 17,2,17,1,17,1.5,19,1,19,.5
360 DATA 19,1,19,1,17,4.5,0,4,15,.5
370 DATA 15,.5,15,.5,15,.5,23,1.5,22,.5
380 DATA 23,.5,22,.5,20,2.5,0,.5,15,.5
390 DATA 15,.5,15,.5,15,.5,23,1.5,22,.5
400 DATA 23,.5,22,.5,20,1.18,15,.66,15,.66
410 DATA 15,.66,17,.66,17,.66,17,.66,18,.66
420 DATA 18,.66,18,.66,20,.66,20,.66,20,.66
430 DATA 22,.66,20,1.68,20,3,0,4,0,.5
440 DATA 15,1,15,.5,15,.5,23,.5,23,.5
450 DATA 23,.5,22,.5,23,.5,22,.5,20,2.5
460 DATA 0,.5,15,.5,15,.5,15,.5,15,.5
470 DATA 23,.5,23,.5,23,.5,22,.5,23,.5
480 DATA 22,.5,20,1.18,15,.66,15,.66,15,.66
490 DATA 17,.66,17,.66,17,.66,18,.66,18,.66
500 DATA 18,.66,20,.66,20,.66,20,.66,22,.66
510 DATA 20,1.68,20,3,0,4,0,1.5,24,.5
520 DATA 15,.5,15,.5,15,.5,17,2.5,17,.5
530 DATA 17,.5,17,.5,19,1,19,1,19,1
540 DATA 19,1,19,2,24,.5,15,.5,15,.5
550 DATA 15,.5,15,2,24,.5,15,.5,15,.5
560 DATA 15,.5,17,2,17,1,17,1,19,1.5
570 DATA 19,.5,19,1,19,1,17,2.5,15,.5
580 DATA 15,.5,15,.5,15,2,24,.5,15,.5
590 DATA 15,.5,15,.5,17,2,24,.5,17,.5
600 DATA 17,.5,17,.5,19,1,19,1,19,1
610 DATA 19,1,19,2.5,15,.5,15,.5,15,.5
620 DATA 15,2,24,.5,15,.5,15,.5,15,.5
630 DATA 17,2,17,1,17,1.5,19,1,19,.5
640 DATA 19,1,19,1,17,4.5