!  BEEP        SUBROUTINE  AUDIO       C.AUDIO     DCS         98.07.23
!+
! Subroutine BEEP (NOTE, OCT, LEVEL, DURATION)
!
! Program to make a beep in the control room
!
! Input:
!     NOTE     -- Integer: range: 1 - 12
!     OCT      -- Integer: Octive, range: 5 - 8
!     LEVEL    -- Integer: Loudness, range: 1 - 3
!     DURATION -- Integer: Duration of beep in msec.
!-


subroutine beep (note, oct, level, duration)

implicit none

integer note, oct, level, duration
!

call tone (note, oct, level)
call milli_sleep (duration)
call vxputnm ('AUDIO_OUTPUT', 1, 2, 0)

end