home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / VSPASCAL.ZIP / SOUNDS2 < prev    next >
Encoding:
Text File  |  1985-08-08  |  640 b   |  28 lines
  1.  
  2. PROGRAM SOUNDS2; {uses sound generation}
  3.  
  4.  
  5. VAR
  6.   L:INTEGER;
  7.  
  8. PROCEDURE REST(DURATION:INTEGER);
  9. VAR N:INTEGER;
  10. BEGIN
  11.   FOR N := 1 TO DURATION DO ;
  12. END;
  13.  
  14. {------------------------------------------------}
  15. BEGIN
  16.   FOR L := 1 TO 8 DO TONE(L,500); REST(1000);
  17.   TONE(5,200); TONE(3,200);
  18.   TONE(1,300); REST(100); TONE(1,300); REST(100);
  19.   FOR L := 1 TO 4 DO TONE(L,200);
  20.   TONE(5,300); REST(100);
  21.   TONE(5,300); REST(100);
  22.   TONE(5,400); TONE(3,300); REST(100);
  23.   TONE(5,150); REST(50); TONE(5,300); REST(100);
  24.   TONE(5,200); TONE(6,400); TONE(7,400);
  25.   TONE(8,1000);
  26. END.
  28.