pro lang_def

xquestion,a,text='What language do you want?',	$
	sel=['English','Russian'],prompt='Language choice'

a=a eq 'Russian'

a=strtrim(fix(a),2)

	CASE !version.OS OF

'windows':	Delim='\'

'Win32':	Delim='\'

ELSE:		Delim='/'

	ENDCASE

file=getenv('gr_prg')+Delim+'sources'+Delim+'language.def'

openw,lun,file,/get_lun
writeu,lun,a
free_lun,lun
flush,lun

	end