%%%%%b_prj_manager(on) :-            /* ok to start project manager */

manage(initialize) :-		/* ok to start project manager */
	(managing ->
		true		/* only start it once */
	; 
		assert(managing),
		to_bb(application,start,anon_run,'manager')  /* ?? */
	),
	tell_usr(prj_status, ' starting...'),
	chat_usr([
		' ',
		'The ESP-r Project Manager is now running. This will give',
		'you access to all of the facilities of ESP-r.',
		' ']).

prj_complete(_Prj_return):-
	tell_usr(prj_status, _Prj_return).

appl_complete(_Prj_return):-
	tell_usr(prj_status, _Prj_return).


