DEFINITION MODULE Spkr; (* * REPERTOIRE * Release 1.6 * By Charles Bradford and Cole Brecheen * (c) Copyright 1985-1992 PMI * Green Bay, Wisconsin * All rights reserved * (414) 468-6040 * * $Header: D:/logfiles/defs/spkr.dev 1.4 30 Dec 1990 18:04:46 coleb $ * *) TYPE SoundTypes = (Beep, Warble); SoundLevels = (Low, Normal, High, RealHigh); SoundTimes = (Short, Medium, Long); PROCEDURE Delay(pause : CARDINAL); PROCEDURE StartNoise(infreq : CARDINAL); PROCEDURE StopNoise(); PROCEDURE TimedNoise(thefreq, thetime : CARDINAL); PROCEDURE Noise(kind : SoundTypes; pitch : SoundLevels; duration : SoundTimes); PROCEDURE Init(); END Spkr.