home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / dskutl / partitn.arc / SOUNDS.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1988-07-24  |  483 b   |  28 lines
  1. UNIT Sounds;
  2.  
  3. INTERFACE
  4. USES Crt;
  5. PROCEDURE Beep;
  6. PROCEDURE Bup;
  7. PROCEDURE Blat;
  8. PROCEDURE Tick;
  9.  
  10. IMPLEMENTATION
  11. PROCEDURE Beep;
  12. BEGIN Sound(800);  Delay(200); NoSound;  END;
  13.  
  14. PROCEDURE Bup;
  15. BEGIN Sound(100);  Delay(100);  Sound(50); Delay(200); NoSound;  END;
  16.  
  17. PROCEDURE Blat;
  18. VAR I:byte;
  19. BEGIN
  20. for I:=1 to 30 do
  21.     begin sound(2*i+60); delay(15); end;
  22. nosound;
  23. end {blat};
  24.  
  25. PROCEDURE Tick;
  26. BEGIN Sound(500); delay(10); nosound; END;
  27.  
  28. END {Unit Sounds}.