csquotes () {
message="$Premsg 1a. Set a language for csquotes: $Pstmsg"
declare -a myarr=(\
	True  "autostyle=once" "Uses the document main language"\	  
	False "autostyle=true" "Adapts to current language"\	  
	False "austrian=quotes" " "\
	False "austrian=guillemets" " "\
	False "croatian=quotes" " "\
	False "croatian=guillemets" " "\
	False "croatian=guillemets*" " "\
	False "danish=quotes" " "\
	False "danish=guillemets" " "\
	False "danish=topquotes" " "\
	False "english=american" " "\
	False "english=british" " "\
	False "french=quotes" " "\
	False "french=quotes*" " "\
	False "french=guillemets" " "\
	False "french=guillemets*" " "\
	False "german=quotes" " "\
	False "german=guillemets" " "\
	False "german=swiss" " "\
	False "italian=guillemets" " "\
	False "italian=quotes" " "\
	False "norwegian=guillemets" " "\
	False "norwegian=quotes" " "\
	False "portuguese=portuguese" " "\
	False "portuguese=brazilian" " "\
	False "spanish=spanish" " "\
	False "spanish=mexican" " "\
	False "swedish=quotes" " "\
	False "swedish=guillemets" " "\
	False "swedish=guillemets*" " "\
		  		  );
	rundoselect
	Csquotes="\usepackage[$mychoice]{csquotes}\n"
	resetall
}