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 AROS_ENTRY(__startup static ULONG, Start,
  41            AROS_UFHA(char *, argstr, A0),
  42            AROS_UFHA(ULONG, argsize, D0),
  43            struct ExecBase *, SysBase)
  44 {
  45     AROS_USERFUNC_INIT
  46
  47     struct IntuitionBase *IntuitionBase;
  48
  49     IntuitionBase = (struct IntuitionBase *)OpenLibrary("intuition.library", 0);
  50     if (!IntuitionBase)
  51         return RETURN_FAIL;
  52
  53     DisplayBeep( NULL );
  54
  55     CloseLibrary(&IntuitionBase->LibNode);
  56     return RETURN_OK;
  57
  58     AROS_USERFUNC_EXIT
  59 }
  60