home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TPBASIC.ZIP / BEEP.PAS next >
Encoding:
Pascal/Delphi Source File  |  1985-02-26  |  768 b   |  24 lines
  1. Procedure Beep ;
  2.  
  3.     (*
  4.         This procedure imitates the BEEP statement in MS-BASIC, including
  5.         the correct tone and length (800 Hz for .25 seconds).
  6.  
  7.         This procedure was written by Paul D. Guest and released
  8.         to the Public Domain by same without restrictions on use,
  9.         and with no monetary return expected or desired.  Please
  10.         direct comments or questions to the author via "The Indy
  11.         Connection" RBBS @ (317) 846-8675 (24 hrs,7 days/week --
  12.         Paul & Greg McLear, sysops).
  13.         (Enjoy! - pdg 2/85)
  14.  
  15.     *)
  16.  
  17. Begin (* Procedure Beep *)
  18.  
  19.     Sound ( 800 ) ;
  20.     Delay ( 250 ) ;
  21.     NoSonnd
  22.  
  23. End (* Procedure Beep *) ;
  24.