home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / medley.ba < prev    next >
Text File  |  2006-10-19  |  4KB  |  74 lines
  1. 0 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 BEEP:CLS:CLEAR'FEB 3,1985 STAN KENDALL   'MEDLEY' <MU-32> 4 SONGS
  3. 2 ' 1945 WASHINGTON AVE * WILMETTE, IL     60091
  4. 5 'Plays the first four songs in just    over three minutes and then keeps going until 'Q' or 'q' is pressed.
  5. 10 DEFINTA-Z:FORZ=1TO6
  6. 15 LINE(11-Z,6-Z)-(229+Z,54+Z),1,B
  7. 20 NEXT
  8. 30 PRINT@46,"MUSIC MEDLEY <MU-32> 'MEDLEY'"
  9. 32 PRINT@124,"SUNRISE,SUNSET           BORNFREE "
  10. 36 PRINT@164,"CABARET        LIGHT of the WORLD "
  11. 40 PRINT@244,"<Q>uit":PRINT@270,"<P>lay"
  12. 65 FORZ=10000TO1000STEP-200:SOUNDZ,3:NEXT:GOSUB100
  13. 70 K$=INKEY$
  14. 80 IFK$="P"ORK$="p"THENRESTORE200:GOTO200
  15. 90 IFK$="Q"ORK$="q"THENMENU
  16. 98 GOTO70
  17. 100 DIMP(26)
  18. 110 FORI=1TO26:READP(I):NEXTI:RETURN
  19. 120 DATA 12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642,6269
  20. 130 DATA 5918,5586,5272,4976,4697,4433,4184,3950,3718,3516,3321,3134,2959,
  21. 200 FOR I=1 TO 123:READS,L:SOUND P(S),L
  22. 202 A$=INKEY$:IFA$="Q"ORA$="q"THENMENU
  23. 204 NEXT I
  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
  39. 302 A$=INKEY$:IFA$="q"ORA$="Q"THENMENU
  40. 304 NEXT
  41. 310 DATA 18,40,13,60,13,20,15,20,13,20,11,20,10,40,6,60
  42. 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
  43. 330 DATA18,40,13,60,13,20,15,20,13,10,11,10
  44. 340 DATA10,40,6,60,13,20,15,20,13,10,11,10,17,40,13,20,10,20
  45. 350 DATA13,20,13,20,13,20,15,10,13,10,17,120
  46. 360 DATA20,20,15,60,15,20,17,10,15,10,13,10,10,40,18,60
  47. 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
  48. 380 DATA13,20,15,20,13,10,11,10,10,40,6,60,13,20,15,20,13,10,11,10
  49. 390 DATA17,40,13,20,10,20,18,40,18,40,18,60
  50. 400 FOR I=1 TO 70:READS,L:SOUND P(S),L
  51. 402 A$=INKEY$:IFA$="q"ORA$="Q"THENMENU
  52. 404 NEXT I
  53. 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
  54. 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
  55. 430 DATA17,20,18,20,20,20,18,20,17,20,13,20,11,20,8,20,1,20,3,40,6,20
  56. 440 DATA10,20,13,40,14,20,15,20,13,20,10,20,13,80,14,20
  57. 450 DATA15,20,13,40,10,20,13,40,15,40,16,40,16,80
  58. 460 DATA15,20,18,40,15,20,18,40,15,40,17,20,20,40,13,100
  59. 470 DATA15,20,18,40,15,20,18,40,18,40,18,60
  60. 500 FOR I=1 TO 62:READS,L:SOUND P(S),L
  61. 502 A$=INKEY$:IFA$="q"ORA$="Q"THENMENU
  62. 504 NEXT I
  63. 506 RESTORE200:GOTO200
  64. 510 DATA11,20,8,20,8,20,8,20,11,20,13,20,15,20,15,20,15,20
  65. 520 DATA13,20,11,20,8,20,8,20,8,20,8,20,6,20,8,100
  66. 530 DATA11,20,8,20,8,20,8,20,11,20,13,20,15,40,15,20
  67. 540 DATA15,20,13,20,11,20,8,20,8,20,8,20,6,20,8,100
  68. 550 DATA15,20,15,20,15,20,18,20,18,20,17,20,15,60,11,20
  69. 560 DATA13,20,15,60,15,20,11,20,13,20,15,100
  70. 570 DATA15,20,15,20,15,20,18,40,17,20,15,20,11,20,13,20
  71. 580 DATA15,20,11,20,13,20,15,60,11,40,10,20,8,100
  72. 599 '.................
  73. 600 'Could easily be programmed to play   each song randomly.
  74.