-- Author: John Maxwell
-- last modified: May 19, 1982 9: 14 am
-- Last Edited by: Maxwell, November 21, 1983 11:17 am

DIRECTORY
    Graphics USING [Context],
    MusicDefs;

Screen: DEFINITIONS = 

BEGIN OPEN MusicDefs;

commands: CommandProcs;
screen: Graphics.Context;
InvertListen: PROCEDURE;
InvertPlay: PROCEDURE;
DisplayMessage: PROCEDURE[s: STRING];

CommandProcs: TYPE = RECORD[
      play: PROCEDURE[score: ScorePTR], -- may raise Piece.Overflow
    listen: PROCEDURE[score: ScorePTR], -- may raise Piece.Overflow
    redbug: PROCEDURE[score: ScorePTR], 
 yellowbug: PROCEDURE[score: ScorePTR], 
   bluebug: PROCEDURE[score: ScorePTR], -- may raise Piece.Overflow
  keyboard: PROCEDURE[score: ScorePTR], -- may raise Piece.Overflow
    scroll: PROCEDURE[score: ScorePTR, by: INTEGER], 
     thumb: PROCEDURE[score: ScorePTR], 
   display: PROCEDURE[score: ScorePTR, erase: BOOLEAN], 
    fileIn: PROCEDURE[fileName: STRING] RETURNS[score: ScorePTR], 
   fileOut: PROCEDURE[score: ScorePTR, fileName: STRING], 
   hardcopy: PROCEDURE[score: ScorePTR, s: STRING], 
initialize: PROCEDURE[context: Graphics.Context] RETURNS[score: ScorePTR], 
     count: CARDINAL];

END.