home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 429.NOTES.CON < prev    next >
Text File  |  1989-08-29  |  1KB  |  60 lines
  1. const
  2.   OneAndAHalfNote    = 1500;
  3.   WholeNote          = 1000;
  4.   SevenEigthNote     = 876;
  5.   ThreeQuarterNote   = 750;
  6.   HalfNote           = 500;
  7.   ThreeEigthNote     = 375;
  8.   QuarterNote        = 250;
  9.   EigthNote          = 125;
  10.   SixteenthNote      = 68;
  11.  
  12.   Rest      = 0;
  13.   LowC      = 131;
  14.   LowCSharp = 139;
  15.   LowD      = 147;
  16.   LowDSharp = 156;
  17.   LowE      = 165;
  18.   LowF      = 175;
  19.   LowFSharp = 185;
  20.   LowG      = 196;
  21.   LowGSharp = 208;
  22.   LowA      = 220;
  23.   LowASharp = 233;
  24.   LowB      = 247;
  25.   MidC      = 262;
  26.   MidCSharp = 277;
  27.   MidD      = 294;
  28.   MidDSharp = 311;
  29.   MidE      = 330;
  30.   MidF      = 349;
  31.   MidFSharp = 370;
  32.   MidG      = 392;
  33.   MidGSharp = 415;
  34.   MidA      = 440;
  35.   MidASharp = 466;
  36.   MidB      = 494;
  37.   HighC     = 523;
  38.   HighCSharp= 554;
  39.   HighD     = 587;
  40.   HighDSharp= 622;
  41.   HighE     = 659;
  42.   HighF     = 698;
  43.   HighFSharp= 740;
  44.   HighG     = 784;
  45.   HighGSharp= 830;
  46.   HighA     = 880;
  47.   HighASharp= 932;
  48.   HighB     = 988;
  49.  
  50.  
  51. procedure PlayNote (    Note,
  52.                         Duration:
  53.                           integer);
  54.  
  55. begin
  56.   sound (Note);                                                 {non-standard}
  57.   delay (Duration);                                             {non-standard}
  58.   nosound                                                       {non-standard}
  59. end;
  60.