home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / mailpro / beeu.pas next >
Encoding:
Pascal/Delphi Source File  |  1988-08-23  |  220 b   |  17 lines
  1. unit BeeU;
  2.  
  3. interface
  4. uses Crt;
  5. procedure Beep( X: integer);          (* produces Beep for X half-seconds *)
  6.  
  7. implementation
  8. procedure Beep;
  9. begin
  10. X := X * 500;
  11. sound(880);
  12. delay(X);
  13. nosound;
  14. end;
  15.  
  16. end.
  17.