home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Graphics / Graphics.zip / os2apipm.zip / APIEXAM / PHIL / BEEP.ADB next >
Text File  |  1996-06-02  |  266b  |  12 lines
  1. -- with builtin; use builtin;
  2. with os2; use os2;
  3. with os2.bse; use os2.bse;
  4. procedure beep is
  5. frequency:ulong:=500;
  6. durat    :ulong:=1000;
  7. rc       :apiret;  --
  8. begin
  9. rc:=DosBeep(frequency, durat );
  10. -- put_edit("return cod is ",integer(rc),3);
  11. end beep;
  12.