SLEEPQQ

Portability Subroutine: Delays execution of the program for a specified duration.

Module

USE IFPORT

CALL SLEEPQQ (duration)

duration

(Input) INTEGER(4). Number of milliseconds the program is to sleep (delay program execution).

Example

 USE IFPORT
 INTEGER(4) delay, freq, duration
 delay    = 2000
 freq     = 4000
 duration = 1000
 CALL SLEEPQQ(delay)
 CALL BEEPQQ(freq, duration)
 END