-- SoundGenerator.mesa (last edited by: McJones on: January 21, 1981 5:45 PM)
SoundGenerator: DEFINITIONS =
BEGIN
Beep: PROCEDURE [frequency: CARDINAL ← 1000, duration: CARDINAL ← 500];
-- Sound a tone with the given frequency (specified in Hertz)
-- and duration (specified in milliseconds).
-- The procedure is synchronous: it does not return until the beep
-- has been generated (fork a process if this doesn’t suit you).
-- NOTE: Both frequency and duration are APPROXIMATE.
END.
January 21, 1981 5:45 PMMcJonesCreated file