start_session :-
	ask_usr(b_analysis),
	ask_usr(b_bld_spec),
	assert(user_level(novice)),		%%%%% demo fudge
	feedback(focus_enabled).

feedback(focus_enabled, novice) :-
	chat_usr([
		'These buttons switch the focus of discussion to',
		'the requested topic.  The relevent forms will be',
		'displayed below (existing ones will disappear).',
		'It is suggested that the analysis forms are filled',
		'in firstly in order to minimize specification of',
		'redundant information during building description.',
		 '']).

b_analysis(on) :-
	tell_usr(b_bld_spec,off),
	focus_concept(master, analysis),
	analysis(initialize).
b_analysis(off) :-
	defocus_concept(master).

b_bld_spec(on) :-
	tell_usr(b_analysis,off),
	focus_concept(master, bld_spec),
	bld_spec(initialize).
b_bld_spec(off) :-
	defocus_concept(master).
