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

}