home *** CD-ROM | disk | FTP | other *** search
/ Power Programming / powerprogramming1994.iso / progtool / pibterm / pibt41s4.arc / SOUNDBEL.MOD < prev    next >
Text File  |  1988-01-11  |  2KB  |  31 lines
  1. (*----------------------------------------------------------------------*)
  2. (*         Sound_Bell --- Sound terminal bell                           *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Sound_Bell;
  6.  
  7. (*----------------------------------------------------------------------*)
  8. (*                                                                      *)
  9. (*     Procedure:  Sound_Bell                                           *)
  10. (*                                                                      *)
  11. (*     Purpose:    Sounds terminal bell                                 *)
  12. (*                                                                      *)
  13. (*     Calling Sequence:                                                *)
  14. (*                                                                      *)
  15. (*        Sound_Bell;                                                   *)
  16. (*                                                                      *)
  17. (*     Remarks:                                                         *)
  18. (*                                                                      *)
  19. (*        This routine replaces the usual WRITE( ^G ) sequence which    *)
  20. (*        causes too many dropped characters.                           *)
  21. (*                                                                      *)
  22. (*----------------------------------------------------------------------*)
  23.  
  24. BEGIN (* Sound_Bell *)
  25.  
  26.    Sound( 900 );
  27.    Delay( 40 );
  28.    NoSound;
  29.  
  30. END   (* Sound_Bell *);
  31.