DIRECTORYRope USING [ROPE],Basics USING [UnsafeBlock];PlayOps: DEFINITIONS = {PlayTuneProc: TYPE = PROCEDURE [music: Rope.ROPE, file, random: BOOLEAN _ FALSE, beepProc: BeepProc _ NIL, chunkSize: CARDINAL _ 75];BeepProc: TYPE = PROC[beepFreq: CARDINAL, beepTime: CARDINAL, notify: BOOL_FALSE, pause: BOOL_FALSE]; --Hertz and millisecsPlayString: PlayTuneProc;PlayBlock: PROCEDURE [musicBlock: Basics.UnsafeBlock, random: BOOLEAN _ FALSE,beepProc: BeepProc, --callback proc provided by callerchunkSize: CARDINAL _ 75, quietFinish: BOOLEAN _ TRUE--wh: Window.Handle _ NIL--];}.  ò  PlayOps.mesaLast Edited by: Pier, May 4, 1984 11:58:31 am PDTLast Edited by: Swinehart, July 30, 1984 2:55:07 pm PDTWindow USING [Handle],music is either a rope of muscial characters encoded via the Play encoding or, if file=TRUE, the name of a file to read for such a musical encoding. If random=TRUE, music is a random text string to be interpreted as music. A beepProc is a callback procedure, provided by the caller who knows how to make noises. This will be better implemented soon.Ê/  ˜ Jšœ™Jšœ1™1J™7J˜ šÏk	˜	Jšœœ
™Jšœœœ˜Jšœœ˜J˜ —Jšœ	œ˜J˜ šÏnœœ	œ˜ Jšœœœœœœ˜eJ™ÝJ˜ —Jšžœœœœœ
œœ	œœÏc˜{J˜ Jšž
œ˜J˜ šž	œ	œ˜Jšœ(œœ˜8JšœŸ"˜6Jšœœœ˜5JšŸœ˜J˜ —Jšœ˜J˜ J˜ J˜ — …—    X  y  