home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / sound / mr_ed.prg next >
Text File  |  1988-05-19  |  3KB  |  243 lines
  1. * Mr_Ed.prg
  2.  
  3. * Frequency.
  4. c   =  130.81
  5. c_  =  138.59
  6. d   =  145.83
  7. d_  =  155.56
  8. e   =  164.81
  9. f   =  174.61
  10. f_  =  185.00
  11. g   =  196.00
  12. g_  =  207.65
  13. a   =  220.00
  14. a_  =  233.08
  15. b   =  245.94
  16. c1  =  261.63       && middle C
  17. c1_ =  277.18
  18. d1  =  293.66
  19. d1_ =  311.13
  20. e1  =  329.63
  21. f1  =  349.23
  22. f1_ =  369.99
  23. g1  =  392.00
  24. g1_ =  415.30
  25. a1  =  440.00
  26. a1_ =  466.16
  27. b1  =  493.88
  28.  
  29. g2  =  783.99
  30. g3  = 1568.00
  31. g4  = 3136.00
  32.  
  33. * Duration.
  34. speed = 1.45        && constant value for tempo
  35. * Note duration.
  36. wn  = 16 * speed    && whole note
  37. q3n = 12 * speed    && three quarters note
  38. e5n = 10 * speed    && five eighths note
  39. hn  =  8 * speed    && half note
  40. e3n =  6 * speed    && three eighths note
  41. qn  =  4 * speed    && quarter note
  42. s3n =  3 * speed    && three sixteenths note
  43. en  =  2 * speed    && eighth note
  44. sn  =  1 * speed    && sixteenth note
  45. * Rest duration.
  46. wr  = .8  * speed   && whole rest
  47. qr3 = .6  * speed   && quarter rest
  48. hr  = .4  * speed   && half rest
  49. qr  = .2  * speed   && quarter rest
  50. er  = .1  * speed   && eighth rest
  51. sr  = .05 * speed   && sixteenth rest
  52.  
  53. clear
  54.  
  55. * Song: "Mister Ed".
  56.  
  57. ? "                         Clipper plays Esber"
  58. ?
  59. INKEY(wr)
  60. ?
  61.  
  62. ? "Our "
  63. TONE(d1,en)
  64.  
  65. ?? "code "
  66. TONE(g1,en)
  67. ?? "is "
  68. TONE(f1_,en)
  69. ?? "our "
  70. TONE(e1,en)
  71. ?? "code, "
  72. TONE(d1,en)
  73. INKEY(er)
  74. ?? "of "
  75. TONE(e1,en)
  76.  
  77. ?? "course, "
  78. TONE(b,en)
  79. INKEY(er)
  80. ?? "of "
  81. TONE(d1,en)
  82. ?? "course."
  83. TONE(g,en)
  84. INKEY(er)
  85. ?
  86. ? "And "
  87. TONE(g,en)
  88.  
  89. ?? "no "
  90. TONE(f_,en)
  91. ?? "one "
  92. TONE(g,en)
  93. ?? "can "
  94. TONE(a,en)
  95. ?? "mess "
  96. TONE(b,en)
  97. ?? "with "
  98. TONE(c1,en)
  99. ?? "our "
  100. TONE(d1,en)
  101.  
  102. ?? "code, "
  103. TONE(e1,qn)
  104. ?? "of "
  105. TONE(d1,en)
  106. ?? "course."
  107. TONE(c1_,en)
  108. INKEY(er)
  109. ?
  110. ? "Un"
  111. TONE(d1,en)
  112.  
  113. ?? "less, "
  114. TONE(e1,qn)
  115. ?? "of "
  116. TONE(d1,en)
  117. ?? "course, "
  118. TONE(f1,en)
  119. INKEY(er)
  120. ?? "the "
  121. TONE(d1,en)
  122.  
  123. ?? "code "
  124. TONE(f1_,qn)
  125. ?? "is "
  126. TONE(d1,en)
  127. ?? "source,"
  128. TONE(g1,en)
  129. ?
  130. ? "and "
  131. TONE(d1,en)
  132. ?? "it "
  133. TONE(e1,en)
  134.  
  135. ?? "came "
  136. TONE(a1,qn)
  137. ?? "from "
  138. TONE(g1,en)
  139. ?? "Mis"
  140. TONE(f1_,qn)
  141. ?? "ter "
  142. TONE(a1,en)
  143.  
  144. ?? "Ed."
  145. TONE(g1,hn)
  146. INKEY(er)
  147.  
  148. * Second verse...
  149. ?
  150. ?
  151. ? "So, "
  152. TONE(d1,en)
  153.  
  154. ?? "go "
  155. TONE(g1,en)
  156. ?? "right "
  157. TONE(f1_,en)
  158. ?? "to "
  159. TONE(e1,en)
  160. ?? "Ed "
  161. TONE(d1,en)
  162. ?? "if "
  163. TONE(d1,en)
  164. ?? "you "
  165. TONE(e1,en)
  166.  
  167. ?? "want "
  168. TONE(b,en)
  169. INKEY(er)
  170. ?? "the "
  171. TONE(d1,en)
  172. ?? "source."
  173. TONE(g,en)
  174. INKEY(er)
  175. ?
  176. ? "And "
  177. TONE(g,en)
  178.  
  179. ?? "bring "
  180. TONE(f_,en)
  181. ?? "him "
  182. TONE(g,en)
  183. ?? "a "
  184. TONE(a,en)
  185. ?? "check "
  186. TONE(b,en)
  187. INKEY(er)
  188. * ? "/// "
  189. * TONE(c1,en)
  190. ?? "that "
  191. TONE(d1,en)
  192.  
  193. ?? "he'll "
  194. TONE(e1,qn)
  195. ?? "en"
  196. TONE(d1,en)
  197. ?? "dorse."
  198. TONE(c1_,en)
  199. INKEY(er)
  200. ?
  201. ? "Or "
  202. TONE(d1,en)
  203.  
  204. ?? "else "
  205. TONE(e1,qn)
  206. ?? "he'll "
  207. TONE(d1,en)
  208. ?? "say, "
  209. TONE(f1,en)
  210. INKEY(er)
  211. ?? ["You've ]
  212. TONE(d1,en)
  213.  
  214. ?? "made "
  215. TONE(f1_,qn)
  216. ?? "my "
  217. TONE(d1,en)
  218. ?? [day"] 
  219. TONE(g1,en)
  220. ?
  221. ? "He's "
  222. TONE(d1,en)
  223. ?? "the "
  224. TONE(e1,en)
  225.  
  226. ?? "fa"
  227. TONE(a1,qn)
  228. ?? "mous "
  229. TONE(g1,en)
  230. ?? "Mis"
  231. TONE(f1_,qn)
  232. ?? "ter "
  233. TONE(a1,en)
  234.  
  235. ?? "Ed."
  236. TONE(g1,hn)
  237. ?
  238. ?
  239. ?
  240.  
  241. * eof
  242.  
  243.