BEEPQQ

Portability Subroutine: Sounds the speaker at the specified frequency for the specified duration in milliseconds.

Module

USE IFPORT

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)