workbench/c/Beep.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Beep
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME
  12         Beep
  13
  14     FORMAT
  15         Beep
  16
  17     SYNOPSIS
  18
  19     LOCATION
  20         C:
  21
  22     FUNCTION
  23         BEEP produces a beep via Intuition DisplayBeep(NULL).
  24
  25     EXAMPLE
  26
  27     SEE ALSO
  28
  29 ******************************************************************************/
  30
  31 #include <proto/exec.h>
  32 #include <dos/dos.h>
  33 #include <intuition/intuition.h>
  34 #include <intuition/intuitionbase.h>
  35 #include <proto/intuition.h>
  36 #include <intuition/screens.h>
  37
  38 const TEXT version[] = "$VER: Beep 41.2 (03.03.2011)";
  39
  40 __startup AROS_PROCH(Start, argstr, argsize, SysBase)
  41 {
  42     AROS_PROCFUNC_INIT
  43
  44     struct IntuitionBase *IntuitionBase;
  45
  46     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0);
  47     if (!IntuitionBase)
  48         return RETURN_FAIL;
  49
  50     DisplayBeep( NULL );
  51
  52     CloseLibrary(&IntuitionBase->LibNode);
  53     return RETURN_OK;
  54
  55     AROS_PROCFUNC_EXIT
  56 }
  57