home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VSPASCAL.ZIP / SOUNDS < prev    next >
Encoding:
Text File  |  1990-06-28  |  527 b   |  30 lines
  1. PROGRAM SOUNDS; {let's see how the TONE procedure works}
  2. VAR
  3.   NOTE     : INTEGER;
  4.   DURATION : INTEGER;
  5.  
  6. BEGIN
  7.   DURATION := 500;
  8.   NOTE := 1;
  9.   TONE(NOTE,DURATION);
  10.   NOTE := 3;
  11.   TONE(NOTE,DURATION);
  12.   NOTE := 1;
  13.   TONE(NOTE,DURATION);
  14.   NOTE := 3;
  15.   TONE(NOTE,DURATION);
  16.   NOTE := 5;
  17.   TONE(NOTE,DURATION);
  18.   NOTE := 3;
  19.   TONE(NOTE,DURATION);
  20.   NOTE := 5;
  21.   TONE(NOTE,DURATION);
  22.   NOTE := 8;
  23.   TONE(NOTE,DURATION);
  24.   NOTE := 5;
  25.   TONE(NOTE,DURATION);
  26.   NOTE := 8;
  27.   TONE(NOTE,DURATION);
  28. END.
  29.  
  30.