home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / mus / love-s.ba < prev    next >
Text File  |  2006-10-19  |  6KB  |  115 lines

  1. 0 'Club 100 library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 1 CLS:BEEP:'MEDLE2' <MU-38> 8/85
  3. 2 ' * STAN KENDALL * [ 70136,3066 ]
  4. 3 ' 1945 WASHINGTON AVE * WILMETTE, IL           60091
  5. 9 CLEAR:GOSUB 90
  6. 10 CALL17001:PRINT"..........SONGS SONGS SONGS.............":CALL17006
  7. 20 PRINT@50,"'LOVE-S'    <MU-38>"
  8. 30 PRINT"  1-WHAT NOW MY LOVE 2-ANNIVERSERY SONG"
  9. 40 PRINT"  3-SEPTEMBER SONG   4-SECRET LOVE"
  10. 50 PRINT"  5-GLORY of LOVE    6-MY PRAYER"
  11. 55 PRINT"  7-RED SAILS/SUNSET 8-AUTUMN/NEW YORK"
  12. 60 CALL17001:PRINT" <ENTER> during song -> This Menu":CALL17006
  13. 65 PRINT@306,"  9-M100 MENU";
  14. 70 G=VAL(INKEY$):IF G=0THEN 70
  15. 71 IFG=1THEN RESTORE 100:GOTO100
  16. 72 IFG=2THEN RESTORE 2000:GOTO2000
  17. 73 IFG=3THEN RESTORE 3000:GOTO3000
  18. 74 IFG=4THEN RESTORE 4000:GOTO4000
  19. 75 IFG=5THEN RESTORE 5000:GOTO5000
  20. 76 IFG=6THEN RESTORE 6000:GOTO6000
  21. 77 IFG=7THEN RESTORE 7000:GOTO7000
  22. 78 IFG=8THEN RESTORE 8000:GOTO8000
  23. 79 IFG=9THEN MENU
  24. 85 IF INKEY$=CHR$(13)THEN MENU
  25. 90 DIM Z(28)
  26. 91 FOR N=1 TO 28:READ Z(N):NEXT N
  27. 92 DATA 12538,11836,11172,10544,9952,9394,8866,8368,7900,7456,7032,6642
  28. 93 DATA 6269,5918,5586,5272,4976,4697,4433,4184,3950,3718,3516,3321,3134
  29. 94 DATA2959,2793,2636
  30. 95 RETURN
  31. 100 FORN=1TO 80:READS,L:SOUND Z(S),L
  32. 110 IF INKEY$=CHR$(13)THEN GOTO 70
  33. 120 NEXT N:GOTO70
  34. 600 DATA13,20,13,20,17,20,17,120,13,20,13,20,17,20,18,40,17,80,13,20,13,20,13,20,15,100,17,10,15,10,13,20,15,20
  35. 610 DATA17,120,13,20,13,20,17,20,17,120,13,20,13,20,17,20,18,40,17,80,13,10,13,10,15,100,17,10,15,10,13,20,15,20
  36. 620 DATA17,120,13,20,13,20,22,20,22,100,11,20,11,20,20,20
  37. 630 DATA20,40,13,20,13,20,18,20,18,60,17,10,18,10,20,60,18,20
  38. 640 DATA20,120,13,20,13,20,21,20,21,100,12,20,11,20,20,20
  39. 650 DATA20,120,13,20,13,20,18,20,18,100,16,40
  40. 660 DATA15,90,13,20,13,20,17,20,17,120
  41. 670 DATA13,20,13,20,18,40,17,80,13,20,13,20,13,20,15,120,15,40,17,120
  42. 2000 FORN=1TO 81:READS,L:SOUND Z(S),L
  43. 2010 IF INKEY$=CHR$(13)THEN GOTO 70
  44. 2020 NEXT N:GOTO70
  45. 2100 DATA8,80,12,20,13,20,15,80,12,20,8,20,17,80
  46. 2110 DATA15,20,13,20,20,80,20,20,22,80,20,20,18,20
  47. 2120 DATA20,80,18,20,17,20,15,80,17,20,15,20,13,80
  48. 2130 DATA8,20,8,80,12,20,13,20,15,80,12,20,8,20
  49. 2140 DATA17,80,15,20,13,20,20,80,20,20,22,80
  50. 2150 DATA20,20,18,20,20,80,18,20,17,20,15,80,17,20,15,20,13,60
  51. 2160 DATA25,20,25,20,25,20,25,20,25,20,25,20,25,20,25,30,24,13,25,60,21,20,22,20,22,20
  52. 2170 DATA22,20,22,20,22,20,22,20,12,20,19,10,20,40,20,20,18,20,18,20,18,20,18,20,18,20,18,20
  53. 2180 DATA18,20,17,20,17,20,13,40,25,20,22,20,18,20,15,20,17,40,15,20,13,80
  54. 3000 FORN=1TO 79:READS,L:SOUND Z(S),L
  55. 3010 IF INKEY$=CHR$(13)THEN GOTO 70
  56. 3020 NEXT N:GOTO70
  57. 3100 DATA11,20,15,20,22,20,20,20,20,20,20,60,11,20,11,10,16,10,21,20,18,40,18,60
  58. 3110 DATA15,10,15,10,18,20,23,20,25,100,13,20,13,20,11,10,13,10,15,40,15,60
  59. 3120 DATA11,10,11,10,15,20,22,20,20,40,20,60,11,10,11,10,16,20,21,20,18,100
  60. 3130 DATA15,20,18,10,18,10,23,20,25,100,13,10,15,10,17,20,17,20,15,120
  61. 3140 DATA23,20,23,20,25,20,23,10,22,10,23,100,23,20,23,20,27,30,23,10,23,100
  62. 3150 DATA23,20,25,40,23,100,23,20,27,40,23,100,11,20,16,20,22,20,20,20,20,20,20,60,11,20,16,20,21,20,18,80
  63. 3160 DATA15,20,18,20,23,20,25,60,20,20,23,40,23,40,23,100
  64. 4000 FORN=1TO 67:READS,L:SOUND Z(S),L
  65. 4010 IF INKEY$=CHR$(13)THEN GOTO 70
  66. 4020 NEXT N:GOTO70
  67. 4100 DATA18,60,17,20,15,20,11,20,13,20,15,20,6,140
  68. 4110 DATA6,20,11,60,13,20,15,20,17,20,18,20,20,20,13,160
  69. 4120 DATA17,60,15,20,13,20,10,20,11,20,13,20,6,140
  70. 4130 DATA6,20,10,60,11,20,13,20,15,20,11,20,10,20,11,160
  71. 4140 DATA23,60,22,20,20,20,16,20,18,20,20,20,22,60,18,20,13,80
  72. 4150 DATA21,60,20,20,18,20,15,20,17,20,18,20,20,60,11,30,21,60,11,20
  73. 4160 DATA18,60,17,20,15,20,11,20,13,20,15,20,6,140,8,20
  74. 4170 DATA8,20,13,10,15,10,17,20,20,20,18,20,6,20,13,20,15,20,11,140
  75. 5000 FORN=1TO 123:READS,L:SOUND Z(S),L
  76. 5010 IF INKEY$=CHR$(13)THEN GOTO 70
  77. 5020 NEXT N:GOTO70
  78. 5100 DATA8,5,10,5,8,5,17,30,13,10,10,10,8,30,18,30,15,10,11,10,8,30
  79. 5110 DATA20,5,20,30,20,5,20,20,20,20,20,30,18,10,13,10,10,30,17,30,16,5,17,30,16,5,13,20
  80. 5120 DATA15,30,14,5,15,30,14,5,11,20,13,100,8,5,10,30,8,5
  81. 5130 DATA17,30,13,10,10,10,8,30,18,30,15,10,11,10,8,30,20,5,20,30,20,5,20,20,20,20
  82. 5140 DATA20,30,18,10,13,10,10,30,17,30,16,5,17,30,16,5,13,30,15,30,14,5,15,30,14,5,11,20
  83. 5150 DATA13,140,13,20,18,30,17,10,18,30,20,10
  84. 5160 DATA22,15,20,5,18,35,13,5,18,11,22,5,20,20,20,20,22,20,19,20,20,60,13,20
  85. 5170 DATA18,30,17,10,18,30,20,10,21,15,20,5,18,60,17,5,17,10,17,5,17,20,13,20
  86. 5180 DATA15,35,8,5,10,30,8,5,17,30,13,10,10,10,8,30,18,30,15,10,11,10,8,30
  87. 5190 DATA20,5,20,30,20,5,20,20,20,20,20,30,18,10,13,10,10,30,17,15,16,5,17,15,16,5,13,20
  88. 5200 DATA15,15,14,5,15,15,14,5,11,20,13,140
  89. 6000 FORN=1TO 129:READS,L:SOUND Z(S),L
  90. 6010 IF INKEY$=CHR$(13)THEN GOTO 70
  91. 6020 NEXT N:GOTO70
  92. 6100 DATA6,20,15,100,15,20,18,20,15,20,13,20,11,30,13,10,8,90
  93. 6110 DATA11,20,13,20,15,20,13,20,11,10,9,90,11,20,13,20,15,20,13,20,11,20,6,90
  94. 7000 FORN=1TO 90:READS,L:SOUND Z(S),L
  95. 7010 IF INKEY$=CHR$(13)THEN GOTO 70
  96. 7020 NEXT N:GOTO70
  97. 7100 DATA17,20,17,20,18,20,17,20,20,20,20,60,13,20,13,20,15,20,13,20
  98. 7110 DATA17,80,8,20,8,20,10,20,8,20,15,20,15,60,15,20,15,20,13,20,11,20
  99. 7120 DATA13,80,17,20,17,20,18,20,17,20,20,20,20,60,13,20,13,20,15,20,13,20
  100. 7130 DATA17,80,8,20,8,20,10,20,8,20,15,20,15,60,15,20,15,20,13,20,11,20
  101. 7140 DATA13,80,15,40,13,20,15,20,13,20,10,20,8,60,15,20,15,20,13,20,10,20
  102. 7150 DATA13,80,15,40,13,20,15,20,13,20,10,20,8,60,17,10,17,10,17,10,17,10,15,20,13,10
  103. 7160 DATA15,80,17,20,17,20,18,20,17,20,20,20,20,60
  104. 7170 DATA13,20,13,20,15,20,13,20,17,80,8,20,8,20,10,20,8,20,15,20,15,60
  105. 7180 DATA15,20,15,20,13,20,11,20,13,40
  106. 8000 FORN=1TO 108:READS,L:SOUND Z(S),L
  107. 8010 IF INKEY$=CHR$(13)THEN GOTO 70
  108. 8020 NEXT N:GOTO70
  109. 8100 DATA17,30,15,10,13,20,10,20,8,60,10,20,13,20,18,20,22,20,22,40,20,20,22,60,17,100
  110. 8120 DATA17,30,15,10,13,20,10,20,8,60,10,20,13,20,18,20,22,20,22,40,20,20,22,60,17,100
  111. 8130 DATA20,20,20,40,17,20,15,60,13,20,16,20,17,40,13,20,12,60,9,20,12,20,7,40,8,20,11,100
  112. 8140 DATA13,40,15,10,10,20,12,10,15,80,19,40,15,80
  113. 8150 DATA17,30,16,10,14,20,10,20,8,60,10,20,13,20,18,20,22,20,22,40,20,20,22,60,17,120
  114. 8160 DATA22,30,20,10,18,20,15,20,13,60,16,20,18,20,20,20,23,20,24,20,20,20,23,160
  115.