Portability Subroutine: Sounds the speaker at the specified frequency for the specified duration in milliseconds.
CALL BEEPQQ (frequency,duration)
frequency |
(Input) INTEGER(4). Frequency of the tone in Hz.
|
duration |
(Input) INTEGER(4). Length of the beep in milliseconds.
|
BEEPQQ does not return until the sound terminates.
例
USE IFPORT
INTEGER(4) frequency, duration
frequency = 4000
duration = 1000
CALL BEEPQQ(frequency, duration)