home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / mvoice.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  15 lines
  1. 0 ' MVOICE.BA - by Eiji Miura 
  2. 1 ' CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 '  January 6H1985
  4. 3 ' Thanks to George Dunsey for his
  5. 4 ' multi-voice music tutorial,
  6. 5 ' MLTMU.TXT.
  7. 6 ' ---------------------------------
  8. 7 CLEAR:CLS:DIMS(21):E$=CHR$(27):R$=E$+"p":N$=E$+"q":PRINT@85,R$" Name that tune... "N$:PRINT@170,"...and become FAMOUS!":S(11)=1567:S(12)=1396:S(13)=1244:S(14)=2092:S(15)=1864:S(16)=2636:S(17)=3718:S(18)=3516:S(19)=5272:S(20)=6269:S(21)=4968
  9. 8 S(1)=2793:S(2)=2484:S(3)=4184:S(4)=3134:S(6)=3321:S(7)=1660:S(8)=2216:S(9)=2348:FORG=1TO134:READA,B,C:D=S(A):E=S(B):FORT=1TOC*2:SOUNDD,1:SOUNDE,1:NEXTT,G:MENU:DATA2,4,4,6,7,4,2,4,4,3,3,4,9,1,4,2,2,4,1,6,4,3,3,4,14,2,4,11,11,4,15,9,4,1,1,4
  10. 9 DATA2,3,4,14,14,4,1,6,4,9,9,4,2,4,4,6,7,4,2,4,4,3,3,4,8,4,4,15,15,4,8,12,4,11,11,4:DATA7,14,4,1,1,4,15,4,4,8,8,4,14,6,4,1,1,4,3,3,4,9,9,4,2,4,4,6,7,4,2,4,4,3,3,4:DATA9,1,4,2,2,4,1,6,4,3,3,4,14,3,4,11,11,4,15,9,4,1,1,4,2,3,4,14,14,4,1,18,4,9,9,4
  11. 10 DATA2,18,4,18,18,4,2,18,4,14,14,4,16,8,4,7,7,4,14,6,4,2,2,4,8,17,4,15,15,4,14,6,4,8,8,4:DATA2,3,4,6,6,4,21,21,4,14,14,4,9,1,4,2,2,4,9,3,4,1,1,4,2,4,4,14,14,4,11,2,4,13,13,4
  12. 11 DATA13,9,4,13,13,4,12,8,4,11,11,4,11,14,4,7,7,4,12,12,4,14,14,4,9,1,4,2,9,4,9,3,4,1,1,4:DATA2,4,4,14,14,4,11,2,4,7,7,4,7,9,4,15,15,4,14,17,4,9,9,4,2,3,4,14,14,4,1,6,4,16,16,4
  13. 12 DATA2,4,4,6,7,4,2,4,4,3,3,4,9,1,4,2,2,4,1,6,4,3,3,4,14,2,4,11,11,4,15,9,4,1,1,4:DATA2,3,4,14,14,4,1,6,4,9,9,4,2,4,4,6,6,4,2,4,4,14,14,4,9,17,4,2,2,4,1,1,4,16,16,4
  14. 13 DATA2,3,4,11,11,4,1,3,2,11,1,2,1,3,2,11,1,2,3,9,2,9,12,6,11,2,4,3,4,3,3,4,20,20,4,13,14,4,11,2,4,3,3,8:'       and Tassi Law
  15.