1 /* BEGIN INCLUDE FILE ... ssu_prompt_modes.incl.pl1 */
 2 /* Created:  15 February 1982 by G. Palter */
 3 
 4 /* Values for use in calls to ssu_$set_prompt_mode to control prompting by the subsystem listener */
 5 
 6 dcl  PROMPT bit (1) static options (constant) initial ("0"b);
 7 dcl  DONT_PROMPT bit (1) static options (constant) initial ("1"b);
 8 
 9 dcl  PROMPT_AFTER_NULL_LINES bit (2) static options (constant) initial ("01"b);
10 dcl  DONT_PROMPT_AFTER_NULL_LINES bit (2) static options (constant) initial ("00"b);
11 
12 dcl  PROMPT_IF_TYPEAHEAD bit (3) static options (constant) initial ("000"b);
13 dcl  DONT_PROMPT_IF_TYPEAHEAD bit (3) static options (constant) initial ("001"b);
14 
15 /* For example:
16       call ssu_$set_prompt_mode (sci_ptr, PROMPT | DONT_PROMPT_AFTER_NULL_LINES | DONT_PROMPT_IF_TYPEAHEAD); */
17 
18 /* END INCLUDE FILE ... ssu_prompt_modes.incl.pl1 */