` -------------------------------------------------------------------------
  #CONSTANT DLL_User32  3
  LOAD DLL "User32.dll",DLL_User32
` -------------------------------------------------------------------------

`        --------------------------------------------------------------------------------------------------------------------
FUNCTION Beep(Freq,Duration)       : ` Does not return control to its caller until the sound finishes.
            Result = CALL DLL(DLL_Kernal32,"Beep",Freq,Duration)

ENDFUNCTION Result
FUNCTION MessageBeep_Simple()      : ` The sound type is identified by an entry in the registry.

            Result = CALL DLL(DLL_User32,"MessageBeep",-1)

ENDFUNCTION Result
FUNCTION MessageBeep_Asterisk()    : ` The sound type is identified by an entry in the registry.
            Result = CALL DLL(DLL_User32,"MessageBeep",0x00000040)

ENDFUNCTION Result
FUNCTION MessageBeep_Exclamation() : ` The sound type is identified by an entry in the registry.
            Result = CALL DLL(DLL_User32,"MessageBeep",0x00000030)

ENDFUNCTION Result
FUNCTION MessageBeep_Hand()        : ` The sound type is identified by an entry in the registry.
            Result = CALL DLL(DLL_User32,"MessageBeep",0x00000010)

ENDFUNCTION Result
FUNCTION MessageBeep_Question()    : ` The sound type is identified by an entry in the registry.
            Result = CALL DLL(DLL_User32,"MessageBeep",0x00000020)

ENDFUNCTION Result
FUNCTION MessageBeep_OK()          : ` The sound type is identified by an entry in the registry.
            Result = CALL DLL(DLL_User32,"MessageBeep",0x00000000)

ENDFUNCTION Result
`        --------------------------------------------------------------------------------------------------------------------