<> <> <> <> <> <> DIRECTORY Imager USING [Context], MusicDefs USING [ScorePTR]; Screen: CEDAR DEFINITIONS = BEGIN ScorePTR: TYPE ~ MusicDefs.ScorePTR; commands: CommandProcs; CommandProcs: TYPE = RECORD[ play: PROC[score: ScorePTR], -- may raise Piece.Overflow listen: PROC[score: ScorePTR], -- may raise Piece.Overflow redbug: PROC[score: ScorePTR], yellowbug: PROC[score: ScorePTR], bluebug: PROC[score: ScorePTR], -- may raise Piece.Overflow keyboard: PROC[score: ScorePTR], -- may raise Piece.Overflow scroll: PROC[score: ScorePTR, by: INTEGER], thumb: PROC[score: ScorePTR], display: PROC[score: ScorePTR, erase: BOOL], fileIn: PROC[fileName: STRING] RETURNS[score: ScorePTR], fileOut: PROC[score: ScorePTR, fileName: STRING], hardcopy: PROC[score: ScorePTR, s: STRING], initialize: PROC[context: Imager.Context] RETURNS[score: ScorePTR], count: CARDINAL ]; InvertListen: PROC; InvertPlay: PROC; DisplayMessage: PROC[s: STRING]; END.