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