1 /****^  ***********************************************************
 2         *                                                         *
 3         * Copyright, (C) Honeywell Bull Inc., 1987                *
 4         *                                                         *
 5         * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6         *                                                         *
 7         * Copyright (c) 1972 by Massachusetts Institute of        *
 8         * Technology and Honeywell Information Systems, Inc.      *
 9         *                                                         *
10         *********************************************************** */
11 
12 /* Modified '83 by Keith Loepere for (get set)_bce_command */
13 
14 flagbox_mgr: proc;
15 
16 /* format: style4,indattr,ifthenstmt,ifthen,idind33,^indcomtxt */
17 
18 dcl  addr                             builtin;
19 dcl  string                           builtin;
20 
21 set: entry (turnon, turnoff);
22 
23 dcl  turnon                           bit (36);
24 dcl  turnoff                          bit (36);
25 
26           fgbxp = addr (flagbox$);
27 
28           string (fgbx.flags) = string (fgbx.flags) & ^turnoff;
29           string (fgbx.flags) = string (fgbx.flags) | turnon;
30           return;
31 
32 get: entry (sws);
33 
34 dcl  sws                              bit (36);
35 
36           fgbxp = addr (flagbox$);
37           sws = string (fgbx.flags);
38           return;
39 
40 set_bce_command:
41      entry (bce_command);
42 
43 dcl  bce_command                      char (128);
44 
45           fgbxp = addr (flagbox$);
46           fgbx.return_to_bce_command = bce_command;
47           return;
48 
49 get_bce_command:
50      entry (bce_command);
51 
52           fgbxp = addr (flagbox$);
53           bce_command = fgbx.return_to_bce_command;
54           return;
55 %page; %include flagbox;
56      end flagbox_mgr;