





















3
%   Purpose: Flag (global variable) handling.
%   Needs  : no other files.

:- public
	flag/2,			%  initialise a flag.
	flag/3.			%  change a flag.

:- mode
	check_valid_flag_name(+),
	flag(+, +),
	flag(+, ?, ?).

/*  Flags are stored in the data base keyed under the Flag itself with
    the information packaged into a compound term as follows:

	Flag -->		'$flag'(Flag, CurrentValue)

    If you only access flags t
























































































































































































































































































































