home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MUSIC.ZIP / MUSIC.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1989-05-19  |  7.4 KB  |  209 lines
  1. PROGRAM music;
  2.  
  3. uses crt;
  4.  
  5.  
  6. const s = 50; o = 100; q = 200; tq = 300; h = 400; th = 500; w = 800;
  7.  
  8.         { sixteenth,eighth,quarter,half,whole }
  9.  
  10.   lC =  262; lD = 294; lE = 330; lF = 350; lG = 392; lA = 440; lB = 494;
  11.   lCs=  277; lDs= 311;           lFs= 370; lGs= 415; lAs= 466;
  12.  
  13.   C  =  523; D  = 587; E  = 659; F  = 698; G  = 784; A  = 880; B  = 988;
  14.   Cs =  554; Ds = 622;           Fs = 740; Gs = 830; As = 932;
  15.  
  16.   hC = 1046;     { two octaves }     { constants for Play procedure }
  17.  
  18. var
  19. count:integer;
  20.  
  21. {--------------------------------------------------------------------}
  22. procedure Play (Note, Value:integer );
  23.  
  24. begin  sound (Note);
  25.   Delay (Value);
  26.   NoSound;
  27.   Delay (20);
  28. end;
  29.  
  30. {====================================================================}
  31. procedure LittleLamb;
  32.  
  33. begin
  34.      Play (E,q); Play (D,q); Play (C,q);
  35.      Play (D,q); Play (E,q); Play (E,q);
  36.      Play (E,h);
  37.  
  38.      Play (D,q); Play (D,q); Play (D,h);
  39.  
  40.      Play (E,q); Play (G,q); Play (G,h);
  41.  
  42.      Play (E,q); Play (D,q); Play (C,q);
  43.      Play (D,q); Play (E,q); Play (E,q);
  44.      Play (E,h);
  45.  
  46.      Play (D,q); Play (D,q); Play (E,q);
  47.      Play (D,q);
  48.  
  49.      Play (C,h);
  50.  
  51. end;
  52. {----------------------------------------------------------------------------}
  53. procedure TwinkleStar;
  54.  
  55. begin
  56.      Play (C,q); Play (C,q); Play (E,q); Play (E,q);
  57.      Play (G,q); Play (G,q); Play (E,h);
  58.  
  59.      Play (F,q);  Play (F,q);  Play (D,q);  Play (D,q);
  60.      Play (lB,q); Play (lB,q); Play (lG,h);
  61.  
  62. end;
  63. {----------------------------------------------------------------------------}
  64. procedure LondonBridge;
  65.  
  66. begin
  67.      Play (D,tq); Play (E,o);  Play (D,q); Play (C,q);
  68.      Play (lB,q); Play (C,q);  Play (D,h);
  69.      Play (lA,q); Play (lB,q); Play (C,h);
  70.      Play (lB,q); Play (C,q);  Play (D,q);
  71.      Play (D,tq); Play (E,o);  Play (D,q); Play (C,q);
  72.      Play (lB,q); Play (C,q);  Play (D,h);
  73.      Play (lA,h); Play (D,h);  Play (lB,q); Play (lG,tq);
  74.  
  75. end;
  76. {----------------------------------------------------------------------------}
  77. procedure PopGoesWeasel;
  78.  
  79. begin
  80.       Play (lA,o);
  81.       Play (lD,q);   Play (lD,o);  Play (lE,q); Play (lE,o);
  82.       Play (lFs,q);  Play (lFs,o); Play (lD,q); Play (lA,o);
  83.       Play (lD,q);   Play (lD,o);  Play (lE,q); Play (lE,o);
  84.       Play (lFs,tq); Play (lD,tq);
  85.       Play (lD,tq);  Play (lE,q);  Play (lE,o);
  86.       Play (lFs,q);  Play (lFs,o); Play (lD,tq);
  87.       Play (B,tq);   Play (lE,q);  Play (lG,o);
  88.       Play (lFs,tq); Play (lD,q);
  89.  
  90. end;
  91. {----------------------------------------------------------------------------}
  92. procedure FarmerInDell;
  93.  
  94. begin
  95.      Play (lC,o);
  96.      Play (lF,q);  Play (lF,o); Play (lF,q); Play (lF,o);
  97.      Play (lF,th); Play (lG,o);
  98.      Play (lA,q);  Play (lA,o); Play (lA,q); Play (lA,o);
  99.      Play (lA,th); Delay (120);
  100.      Play (C,tq);  Play (C,q);  Play (D,o);
  101.      Play (C,q);   Play (lA,o); Play (lF,q); Play (lG,o);
  102.      Play (lA,q);  Play (lA,o); Play (lG,q); Play (lG,o);
  103.      Play (lF,th);
  104. end;
  105. {----------------------------------------------------------------------------}
  106. procedure ThisOldMan;
  107.  
  108. begin
  109.       Play (D,q);  Play (lB,q); Play (D,h);
  110.       Play (D,q);  Play (lB,q); Play (D,h);
  111.       Play (E,q);  Play (D,q);  Play (C,q);  Play (lB,q);
  112.       Play (lA,q); Play (lB,q); Play (C,h);
  113.       Play (D,q);  Play (lG,q); Play (lG,o); Play (lG,o); Play (lG,q);
  114.       Play (lG,o); Play (lA,o); Play (lB,o); Play (C,o);  Play (D,h);
  115.       Play (D,q);  Play (lA,q); Play (lA,q); Play (C,q);
  116.       Play (lB,q); Play (lA,q); Play (lG,q); Delay (220);
  117.  
  118. end;
  119. {----------------------------------------------------------------------------}
  120. procedure EeensySpider;
  121.  
  122. begin
  123.       Play (lF,q);  Play (lF,o);  Play (lF,q); Play (lG,o);
  124.       Play (lA,tq); Play (lA,q);  Play (lA,o);
  125.       Play (lG,q);  Play (lF,o);  Play (lG,q); Play (lA,o);
  126.       Play (lF,tq); Delay (320);
  127.       Play (lA,tq); Play (lA,q);  Play (lAs,o);
  128.       Play (C,tq);  Play (C,tq);
  129.       Play (lAs,q); Play (lA,o);  Play (lAs,q); Play (C,o);
  130.       Play (lA,tq); Delay (320);
  131.       Play (lF,tq); Play (lF,q);  Play (lG,o);
  132.       Play (lA,tq); Play (lA,q);  Play (lA,o);
  133.       Play (lG,q);  Play (lF,o);  Play (lG,q);  Play (lA,o);
  134.       Play (lF,tq); Play (lC,q);  Play (lC,o);
  135.       Play (lF,q);  Play (lF,o);  Play (lF,q);  Play (lG,o);
  136.       Play (lA,tq); Play (lA,q);  Play (lA,o);
  137.       Play (lG,q);  Play (lF,o);  Play (lG,q);  Play (lA,o);
  138.       Play (lF,tq); Delay (320);
  139.  
  140. end;
  141. {---------------------------------------------------------------------------}
  142. procedure InAndOut;
  143.  
  144. begin
  145.         Play (lG,q);
  146.         Play (lD,q);  Play (lG,q);  Play (lB,tq);  Play (C,o);
  147.         Play (lB,q);  Play (lA,h);  Play (lA,q);
  148.         Play (lD,q);  Play (lFs,q); Play (lA,tq);  Play (lB,o);
  149.         Play (lA,q);  Play (lG,h);  Play (lG,q);
  150.         Play (lD,q);  Play (lG,q);  Play (lB,tq);  Play (c,o);
  151.         Play (lB,q);  Play (lA,h);  Play (lA,q);
  152.         Play (D,q);   Play (D,q);   Play (C,q);    Play (lA,q);
  153.         Play (lG,th);
  154. end;
  155. {----------------------------------------------------------------------------}
  156. procedure MulberryBush;
  157.  
  158. begin
  159.       Play (lF,o);  Play (lF,o); Play (lF,o); Play (lF,q); Play (lA,o);
  160.       Play (C,o);   Play (C,o);  Play (lA,o); Play (lF,q); Play (lF,o);
  161.       Play (lG,o);  Play (lG,o); Play (lG,o); Play (lG,q); Play (lG,o);
  162.       Play (lE,o);  Play (lE,o); Play (lD,o); Play (lC,tq);
  163.       Play (lF,o);  Play (lF,o); Play (lF,o); Play (lF,q); Play (lA,o);
  164.       Play (C,o);   Play (C,o);  Play (lA,o); Play (lF,q); Play (lF,o);
  165.       Play (lG,q);  Play (lG,o); Play (lC,o); Play (lD,o); Play (lE,o);
  166.       Play (lF,tq); Play (lF,tq);
  167.  
  168. end;
  169. {----------------------------------------------------------------------------}
  170. procedure StarWars;
  171.  
  172. begin
  173.       Play (C,h);  Play (G,h);  Play (F,s);   Play (E,s);  Play (D,s);
  174.       Play (hC,h); Play (G,h);  Play (F,s);   Play (E,s);  Play (D,s);
  175.       Play (hC,h); Play (G,h);  Play (F,s);   Play (E,s);  Play (F,s);
  176.       Play (D,h);  Play (lG,s); Play (lG,s);  Play (lG,s); Play (C,h);
  177.       Play (G,h);  Play (F,s);  Play (E,s);   Play (D,s);  Play (hC,h);
  178.       Play (G,h);  Play (F,s);  Play (E,s);   Play (D,s);  Play (hC,h);
  179.       Play (G,h);  Play (As,s); Play (A,s);   Play (As,s); Play (G,h);
  180.       Play (G,h);  Play (lG,h); Play (lG,s);  Play (lA,th);Play (lA,o);
  181.       Play (F,o);  Play (E,o);  Play (D,o);   Play (C,o);  Play (C,s);
  182.       Play (D,s);  Play (E,s);  Play (D,s);   Play (lA,o); Play (lB,q);
  183.       Play (lG,tq);Play (lG,s); Play (lA,th); Play (lA,o); Play (F,o);
  184.       Play (E,o);  Play (D,o);  Play (C,o);   Play (G,o);  Play (D,th);
  185.       Play (lG,tq);Play (lG,s); Play (lA,th); Play (lA,o); Play (F,o);
  186.       Play (E,o);  Play (D,o);  Play (C,o);   Play (C,s);  Play (D,s);
  187.       Play (E,s);  Play (D,s);  Play (lA,o);  Play (lB,q); Play (G,tq);
  188.       Play (G,s);  Play (hC,tq);Play (As,s);  Play (Gs,tq);Play (G,s);
  189.       Play (F,tq); Play (Ds,s); Play (D,tq);  Play (C,tq); Play (G,h);
  190.       Play (G,tq); Play (G,s);  Play (G,s);   Play (G,s);  Play (G,s);
  191.       Play (hC,o); Play (C,s);  Play (C,s);   Play (C,s);  Play (C,th);
  192. end;
  193. {----------------------------------------------------------------------------}
  194.  
  195. begin
  196.           LittleLamb;
  197.           LondonBridge;
  198.           PopGoesWeasel;
  199.           FarmerInDell;
  200.           ThisOldMan;
  201.           EeensySpider;
  202.           InAndOut;
  203.           MulberryBush;
  204.           StarWars;
  205. end.
  206.  
  207.  
  208.  
  209.