<> <> <> <> <> DIRECTORY Graphics; Screen: CEDAR DEFINITIONS = BEGIN screen: Graphics.Context; InvertListen: PROC; InvertPlay: PROC; DisplayMessage: PROC[s: STRING]; CommandProcs: TYPE = RECORD[ play: PROC, listen: PROC, redbug: PROC, yellowbug: PROC, bluebug: PROC, keyboard: PROC, scroll: PROC[y: INTEGER], thumb: PROC, display: PROC[redraw: BOOL], fileIn: PROC[s: STRING, append: BOOL], fileOut: PROC[s: STRING], hardcopy: PROC[s: STRING], initialize: PROC[Graphics.Context], count: CARDINAL ]; END.