home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / music3.ba < prev    next >
Text File  |  2006-10-19  |  4KB  |  71 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 BEEP:CLS:CLEAR'FEB 2,1985 STAN KENDALL  'MUSIC3' <MU-31> 4 SONGS
  3. 2 '1945 WASHINGTON AVE * WILMETTE, IL           60091
  4. 20 LINE(10,5)-(230,55),1,BF
  5. 21 LINE(7,3)-(232,58),1,B
  6. 30 PRINT@46," MUSIC ,MUSIC <MU-31> 'MUSIC'"
  7. 32 PRINT@124," <S> SUNRISE,SUNSET <B>BORNFREE "
  8. 36 PRINT@164," <C> CABARET     <M> MATCHMAKER "
  9. 40 PRINT@243," Press Letter in < >       <Q>uit "
  10. 65 FORZ=10000TO1000STEP-200:SOUNDZ,3:NEXT:GOSUB100
  11. 70 K$=INKEY$
  12. 75 IFK$="S"ORK$="s"THENRESTORE200:GOTO200
  13. 80 IFK$="B"ORK$="b"THENRESTORE300:GOTO300
  14. 84 IFK$="C"ORK$="c"THENRESTORE400:GOTO400
  15. 86 IFK$="M"ORK$="m"THENRESTORE500:GOTO500
  16. 94 IFK$="Q"ORK$="q"THENMENU
  17. 98 GOTO70
  18. 100 DIMP(36)
  19. 110 FORI=1TO26:READP(I):NEXTI:RETURN
  20. 120 DATA 12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642,6269
  21. 130 DATA 5918,5586,5272,4976,4697,4433,4184,3950,3718,3516,3321,3134,2959,
  22. 200 FOR I=1 TO 123:READS,L:SOUND P(S),L:NEXT I
  23. 202 FOR T=1TO999:NEXT:GOTO70
  24. 215 DATA13,20,18,20,21,20,20,10,18,10,17,20,20,20,18,60,13,60
  25. 225 DATA13,20,18,20,21,20,20,10,18,10,17,20,20,20,18,140
  26. 235 DATA18,20,23,20,26,20,25,10,23,10,22,20,25,20,23,60,18,60,20,60,20,60,21,80
  27. 240 DATA13,20,18,20,21,20,20,10,18,10,17,20,20,20,18,60,13,60
  28. 245 DATA13,20,18,20,21,20,20,10,18,10,17,20,20,20,18,120
  29. 250 DATA18,20,23,20,26,20,25,10,23,10,22,20,25,20,23,60,24,60,25,120
  30. 255 DATA0,40,21,20,23,40,21,20,20,20,0,40,21,20,23,40,21,20,20,20
  31. 260 DATA0,40,21,20,23,40,21,20,23,20,25,120
  32. 265 DATA26,20,26,20,26,20,26,10,25,10,23,20,26,20,25,60,21,60
  33. 270 DATA23,20,23,20,23,20,23,10,21,10,20,20,23,20,21,60,22,60
  34. 275 DATA0,40,21,20,23,40,21,20,20,20,0,40,21,20,23,40,21,20,20,20
  35. 280 DATA0,40,21,20,23,40,21,20,23,20,25,120
  36. 285 DATA26,20,26,20,26,20,26,10,25,10,23,20,26,20,25,60,21,60
  37. 290 DATA23,20,23,20,23,20,23,10,21,10,20,20,21,20,18,120
  38. 300 FOR I=1 TO 81:READS,L:SOUND P(S),L:NEXT I
  39. 302 FOR T=1TO999:NEXT:GOTO70
  40. 310 DATA 18,40,13,60,13,20,15,20,13,20,11,20,10,40,6,60
  41. 320 DATA13,20,15,20,13,10,11,10,17,40,13,20,10,20,11,20,11,20,11,10,10,10,8,20,6,120
  42. 330 DATA18,40,13,60,13,20,15,20,13,10,11,10
  43. 340 DATA10,40,6,60,13,20,15,20,13,10,11,10,17,40,13,20,10,20
  44. 350 DATA13,20,13,20,13,20,15,10,13,10,17,120
  45. 360 DATA20,20,15,60,15,20,17,10,15,10,13,10,10,40,18,60
  46. 370 DATA18,20,20,20,15,10,18,10,20,30,18,10,20,30,18,10,20,30,18,10,20,30,18,10,20,120,18,40,13,60
  47. 380 DATA13,20,15,20,13,10,11,10,10,40,6,60,13,20,15,20,13,10,11,10
  48. 390 DATA17,40,13,20,10,20,18,40,18,40,18,60
  49. 400 FOR I=1 TO 70:READS,L:SOUND P(S),L:NEXT I
  50. 402 FOR T=1TO999:NEXTT:GOTO70
  51. 410 DATA1,20,3,40,6,20,10,20,13,40,14,20,15,20,13,20,10,20,13,100,15,20,13,40,10,20,13,40,15,40,10,100
  52. 420 DATA15,20,18,40,15,20,18,40,15,40,17,20,13,40,10,100,10,20,13,40,10,20,13,40,3,40,10,100
  53. 430 DATA17,20,18,20,20,20,18,20,17,20,13,20,11,20,8,20,1,20,3,40,6,20
  54. 440 DATA10,20,13,40,14,20,15,20,13,20,10,20,13,80,14,20
  55. 450 DATA15,20,13,40,10,20,13,40,15,40,16,40,16,80
  56. 460 DATA15,20,18,40,15,20,18,40,15,40,17,20,20,40,13,100
  57. 470 DATA15,20,18,40,15,20,18,40,18,40,18,60
  58. 500 FOR I=1 TO 107:READS,L:SOUND P(S),L:NEXT I
  59. 502 FOR T=1TO999:NEXTT:GOTO70
  60. 510 DATA1,20,6,20,6,20,6,20,8,20,8,20,8,20,10,20,10,20,10,60
  61. 515 DATA8,20,10,20,10,20,10,60,8,20,10,20,10,20,10,60
  62. 520 DATA1,20,6,20,6,20,6,20,8,20,8,20,8,20,10,20,10,20,10,40,11,20
  63. 530 DATA13,20,11,20,11,20,6,40,1,20,6,120,6,40,6,20,14,20,14,60,14,20,13,20,11,20
  64. 535 DATA14,20,13,20,11,20,13,60,13,20,9,20,11,20,13,20,11,20,9,20
  65. 540 DATA13,40,13,20,11,60,11,60,11,20,9,20,8,20
  66. 545 DATA11,20,9,20,8,20,9,20,8,20,9,20,10,20,9,20,10,20
  67. 550 DATA11,40,13,20,14,60,1,20,6,20,6,20,6,20,8,20,8,20
  68. 560 DATA8,20,10,20,10,20,10,60,8,20,10,20,10,20,10,60
  69. 570 DATA8,20,10,20,10,20,10,60,1,20,6,20,6,20,6,20,8,20,8,20
  70. 580 DATA8,20,10,20,10,20,10,40,11,20,13,20,10,20,11,20,13,60,6,60,1,60,6,120
  71.