(********************************************************************************

Name         : Breaks.DEF
Version      : 1.0
Purpose      : user break detect
Authors      : cn/jr/ms/red
Modified     : 13.3.86  10:00  ms
State        : untested
Requirements : 

********************************************************************************)

DEFINITION MODULE Breaks;

TYPE BreakFlags = (breakC, breakD, breakE, breakF);

PROCEDURE DetectBreak(flag: BreakFlags): BOOLEAN;
(* DetectBreak returns TRUE if the requested break flag is set.
   The tested flag is always cleared!                            *)

END Breaks.