
(*:Version: Mathematica 2.0 *)

(*:Name: Utilities`Language` *)

(*:Title: Tools for the Support of International Characters *)

(*:Author: Wolfram Research, Inc. *)

(*:History:
	Original Version by C. Tom Wickham-Jones (Wolfram Research),
	May, 1991.
*)

(* :Summary:
	This package adds definitions for $Letters and $StringOrder
	which are appropriate for a number of European languages
	which can be represented by 8-bit characters in the the
	ISOLatin1 standard.  These are arranged for a variety
	of different font encodings such as ISOLatin1, Macintosh
	and DOS.
	It also defines the function CharacterTable which displays
	a table of octal codes and their corresponding codes.
*)

(*:Requirements: None *)

(* :Warning:
	Whatever characters are entered are stored internally as
	entered.  When they are written out they are written out
	as entered unless explicitly changed with a StringConversion..
	Thus problems may arise from writing files with one version
	of Mathematica and reading them into another.
	If $Language is undefined or a language which is unsupported
	then english will be used.  If the font encoding is uncertain
	then ISOLatin1 will be used.
*)
 
(*:Sources *)

BeginPackage["Utilities`Language`"];

CharacterTable::usage = "CharacterTable[] displays a table of octal codes
and their corresponding representations for characters with the eighth bit
set. CharacterTable[ opts] passes opts to
TableForm." 

Begin["`Private`"]

(* First CharacterTable *)
CharacterRow[i_] :=
	 Prepend[
                Table[ FromCharacterCode[ 8 i + j], {j,0,7}],
                BaseForm[i,8]
        ]

CharacterTable[ opts___] :=
	TableForm[
                Prepend[
                        Table[ CharacterRow[i], {i,16,31}],
                        Prepend[ Table[BaseForm[i,8],{i,0,7}], " "]
                ],
	opts,
        TableAlignments -> {Left, Top}, TableSpacing -> {2,4}]


Switch[ $Language,
	"French",
		MacLetters =
			{{"a", "A"}, {"\210", "\313"}, {"\211", "\345"},
			{"b", "B"}, {"c", "C"}, {"\215", "\202"},
			{"d", "D"}, {"e", "E"}, {"\216", "\203"},
 			{"\217", "\351"}, {"\220", "\346"},
			{"f", "F"}, {"g", "G"}, {"h", "H"},
			{"i", "I"}, {"\224", "\353"},
			{"j", "J"}, {"k", "K"}, {"l", "L"},
			{"m", "M"}, {"n", "N"},
			{"o", "O"}, {"\231", "\357"}, {"p", "P"},
			{"q", "Q"}, {"r", "R"}, {"s", "S"}, {"t", "T"},
			{"u", "U"}, {"\236", "\363"},
			{"v", "V"}, {"w", "W"}, {"x", "X"},
			{"y", "Y"}, {"z", "Z"}};
		MacOrder =
			{{"a", "A"}, {"\210", "\313"}, {"\211", "\345"},
			{"b", "B"}, {"c", "C"}, {"\215", "\202"},
			{"d", "D"}, {"e", "E"}, {"\216", "\203"},
			{"\217", "\351"}, {"\220", "\346"},
 			{"f", "F"}, {"g", "G"}, {"h", "H"},
			{"i", "I"}, {"\224", "\353"}, {"j", "J"},
 			{"k", "K"}, {"l", "L"}, {"m", "M"}, {"n", "N"}, 
			{"o", "O"}, {"\231", "\357"},
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, 
			{"s", "S"}, {"t", "T"}, {"u", "U"},
 			{"\236", "\363"}, {"v", "V"}, {"w", "W"}, 
			{"x", "X"}, {"y", "Y"}, {"z", "Z"},
 			"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"};
 		ISOLetters =
			{{"a", "A"}, {"\340", "\300"}, {"\342", "\302"}, 
			{"b", "B"}, {"c", "C"}, {"\347", "\307"}, 
			{"d", "D"}, {"e", "E"}, {"\350", "\310"},
			{"\351", "\311"}, {"\352", "\312"}, {"f", "F"},
			{"g", "G"}, {"h", "H"}, {"i", "I"}, {"\356", "\316"}, 
			{"j", "J"}, {"k", "K"}, {"l", "L"}, {"m", "M"}, {"n", "N"}, 
			{"o", "O"}, {"\364", "\324"}, {"p", "P"}, {"q", "Q"},
			{"r", "R"}, {"s", "S"}, {"t", "T"}, {"u", "U"}, {"\373", "\333"}, 
			{"v", "V"}, {"w", "W"}, {"x", "X"}, {"y", "Y"},
			{"z", "Z"} };
		ISOOrder =
			{{"a", "A"}, {"\340", "\300"}, {"\342", "\302"}, {"b", "B"}, 
			{"c", "C"}, {"\347", "\307"}, {"d", "D"}, {"e", "E"}, 
 			{"\351", "\311"}, {"\350", "\310"}, {"\352", "\312"}, 
 			{"f", "F"}, {"g", "G"}, {"h", "H"}, {"i", "I"},
 			{"\356", "\316"}, {"j", "J"}, {"k", "K"}, {"l", "L"},
 			{"m", "M"}, {"n", "N"}, {"o", "O"}, {"\364", "\324"},
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, {"s", "S"},
 			{"t", "T"}, {"u", "U"}, {"\373", "\333"}, {"v", "V"},
 			{"w", "W"}, {"x", "X"}, {"y", "Y"}, {"z", "Z"}, 
 			"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"},
 	"German",
 		MacLetters = 
 			{{"a", "A"}, {"\212", "\200"},
  			{"b", "B"}, {"c", "C"}, {"d", "D"},
  			{"e", "E"}, {"f", "F"}, {"g", "G"},
 			{"h", "H"}, {"i", "I"}, {"j", "J"}, 
 			{"k", "K"}, {"l", "L"}, {"m", "M"},
  			{"n", "N"}, {"o", "O"}, {"\232", "\205"},
  			{"p", "P"}, {"q", "Q"}, {"r", "R"},
  			{"s", "S"}, "\247",{"t", "T"},
  			{"u", "U"}, {"\237", "\206"},
  			{"v", "V"}, {"w", "W"}, {"x", "X"},
  			{"y", "Y"}, {"z", "Z"}} ;
		MacOrder =
			{{"a", "A"}, {"\212", "\200"}, {"b", "B"},
			{"c", "C"}, {"d", "D"}, {"e", "E"},
 			{"f", "F"}, {"g", "G"}, {"h", "H"}, {"j", "J"},
 			{"k", "K"}, {"l", "L"},{"m", "M"},
 			{"n", "N"}, {"o", "O"}, {"\232", "\205"}, 
 			{"p", "P"}, {"q", "Q"},
 			{"r", "R"}, {"s", "S"}, "\247", {"t", "T"}, 
 			{"u", "U"}, {"\237", "\206"},
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
 			{"y", "Y"}, {"z", "Z"},
 			"0", "1", "2", "3", "4", "5", "6", "7","8", "9"};
 		ISOLetters =
 			{ {"a", "A"}, {"\344", "\304"},
  			{"b", "B"}, {"c", "C"}, {"d", "D"}, 
  			{"e", "E"}, {"f", "F"}, {"g", "G"},
  			{"h", "H"}, {"i", "I"}, {"j", "J"}, 
  			{"k", "K"}, {"l", "L"}, {"m", "M"},
  			{"n", "N"},{"o", "O"}, {"\366", "\326"},
  			{"p", "P"}, {"q", "Q"}, {"r", "R"},
  			{"s", "S"}, "\337",{"t", "T"},
  			{"u", "U"}, {"\374", "\334"},
  			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
  			{"y", "Y"}, {"z", "Z"} };
		ISOOrder =
			{{"a", "A"}, {"\344", "\304"}, {"b", "B"}, 
			{"c", "C"}, {"d", "D"}, {"e", "E"},
 			{"f", "F"}, {"g", "G"}, {"h", "H"}, 
 			{"j", "J"}, {"k", "K"}, {"l", "L"},
 			{"m", "M"}, {"n", "N"}, {"o", "O"}, 
 			{"\366", "\326"}, {"p", "P"}, {"q", "Q"},
 			{"r", "R"}, {"s", "S"}, "\337", 
 			{"t", "T"}, {"u", "U"}, {"\374", "\334"},
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
 			{"y", "Y"}, {"z", "Z"},
 			"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"},

 	"Danish",	
 		MacLetters =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, 
			{"d", "D"}, {"e", "E"}, {"f", "F"}, 
  			{"g", "G"}, {"h", "H"}, {"i", "I"}, 
  			{"j", "J"}, {"k", "K"}, {"l", "L"}, 
  			{"m", "M"}, {"n", "N"}, {"o", "O"}, 
  			{"p", "P"}, {"q", "Q"}, {"r", "R"}, 
  			{"s", "S"}, {"t", "T"}, {"u", "U"}, 
  			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
  			{"y", "Y"}, {"z", "Z"}, {"\276", "\256"}, 
  			{"\277", "\257"},{"\214", "\201"}};		
		MacOrder =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, 
			{"d", "D"}, {"e", "E"}, {"f", "F"}, 
 			{"g", "G"}, {"h", "H"}, {"i", "I"}, 
 			{"j", "J"}, {"k", "K"}, {"l", "L"}, 
 			{"m", "M"}, {"n", "N"}, {"o", "O"}, 
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, 
 			{"s", "S"}, {"t", "T"}, {"u", "U"}, 
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
 			{"y", "Y"}, {"z", "Z"}, {"\276", "\256"}, 
 			{"\277", "\257"},{"\214", "\201"},
 			"0", "1", "2", "3", "4", "5", "6", "7", 
 			"8", "9"};
 		ISOLetters =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, 
			{"d", "D"}, {"e", "E"}, {"f", "F"}, 
  			{"g", "G"}, {"h", "H"}, {"i", "I"}, 
  			{"j", "J"}, {"k", "K"}, {"l", "L"}, 
  			{"m", "M"}, {"n", "N"}, {"o", "O"}, 
  			{"p", "P"}, {"q", "Q"}, {"r", "R"}, 
  			{"s", "S"}, {"t", "T"}, {"u", "U"}, 
  			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
  			{"y", "Y"}, {"z", "Z"}, {"\346", "\306"}, 
  			{"\370", "\330"},{"\345", "\305"}};		
		ISOOrder =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, 
			{"d", "D"}, {"e", "E"}, {"f", "F"}, 
 			{"g", "G"}, {"h", "H"}, {"i", "I"}, 
 			{"j", "J"}, {"k", "K"}, {"l", "L"}, 
 			{"m", "M"}, {"n", "N"}, {"o", "O"}, 
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, 
 			{"s", "S"}, {"t", "T"}, {"u", "U"}, 
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
 			{"y", "Y"}, {"z", "Z"}, {"\346", "\306"}, 
 			{"\370", "\330"},{"\345", "\305"},
 			"0", "1", "2", "3", "4", "5", "6", "7", 
 			"8", "9"},
 	"Norwegian",
 			MacLetters =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, 
			{"d", "D"}, {"e", "E"}, {"f", "F"}, 
  			{"g", "G"}, {"h", "H"}, {"i", "I"}, 
  			{"j", "J"}, {"k", "K"}, {"l", "L"}, 
  			{"m", "M"}, {"n", "N"}, {"o", "O"}, 
  			{"p", "P"}, {"q", "Q"}, {"r", "R"}, 
  			{"s", "S"}, {"t", "T"}, {"u", "U"}, 
  			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
  			{"y", "Y"}, {"z", "Z"}, {"\276", "\256"}, 
  			{"\277", "\257"},{"\214", "\201"}};		
		MacOrder =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, 
			{"d", "D"}, {"e", "E"}, {"f", "F"}, 
 			{"g", "G"}, {"h", "H"}, {"i", "I"}, 
 			{"j", "J"}, {"k", "K"}, {"l", "L"}, 
 			{"m", "M"}, {"n", "N"}, {"o", "O"}, 
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, 
 			{"s", "S"}, {"t", "T"}, {"u", "U"}, 
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
 			{"y", "Y"}, {"z", "Z"}, {"\276", "\256"}, 
 			{"\277", "\257"},{"\214", "\201"},
 			"0", "1", "2", "3", "4", "5", "6", "7","8", "9"};
 		ISOLetters =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, 
			{"d", "D"}, {"e", "E"}, {"f", "F"}, 
  			{"g", "G"}, {"h", "H"}, {"i", "I"}, 
  			{"j", "J"}, {"k", "K"}, {"l", "L"}, 
  			{"m", "M"}, {"n", "N"}, {"o", "O"}, 
  			{"p", "P"}, {"q", "Q"}, {"r", "R"}, 
  			{"s", "S"}, {"t", "T"}, {"u", "U"}, 
  			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
  			{"y", "Y"}, {"z", "Z"}, {"\346", "\306"}, 
  			{"\370", "\330"},{"\345", "\305"}};		
		ISOOrder =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, 
			{"d", "D"}, {"e", "E"}, {"f", "F"}, 
 			{"g", "G"}, {"h", "H"}, {"i", "I"}, 
 			{"j", "J"}, {"k", "K"}, {"l", "L"}, 
 			{"m", "M"}, {"n", "N"}, {"o", "O"}, 
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, 
 			{"s", "S"}, {"t", "T"}, {"u", "U"}, 
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, 
 			{"y", "Y"}, {"z", "Z"}, {"\346", "\306"}, 
 			{"\370", "\330"},{"\345", "\305"},
 			"0", "1", "2", "3", "4", "5", "6", "7","8", "9"},
 	"Swedish",
 		MacLetters =
			{ {"a", "A"}, {"b", "B"}, {"c", "C"}, {"d", "D"}, 
			{"e", "E"}, {"f", "F"}, {"g", "G"}, {"h", "H"}, 
			{"i", "I"}, {"j", "J"}, {"k", "K"}, {"l", "L"}, 
  			{"m", "M"}, {"n", "N"}, {"o", "O"}, {"p", "P"}, 
  			{"q", "Q"}, {"r", "R"}, {"s", "S"}, {"t", "T"}, 
  			{"u", "U"}, {"v", "V"}, {"w", "W"}, {"x", "X"}, 
  			{"y", "Y"}, {"z", "Z"}, {"\214", "\201"}, 
  			{"\212", "\200"},{"\232", "\205"}};
		MacOrder =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, {"d", "D"}, 
			{"e", "E"}, {"f", "F"}, {"g", "G"}, {"h", "H"}, 
			{"i", "I"}, {"j", "J"}, {"k", "K"}, {"l", "L"}, 
 			{"m", "M"}, {"n", "N"}, {"o", "O"}, {"p", "P"}, 
 			{"q", "Q"}, {"r", "R"},{"s", "S"}, {"t", "T"}, 
 			{"u", "U"}, {"v", "V"}, {"w", "W"}, {"x", "X"}, 
 			{"y", "Y"}, {"z", "Z"}, {"\214", "\201"}, 
 			{"\212", "\200"},{"\232", "\205"},
 			"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"};
		ISOLetters =
			{ {"a", "A"}, {"b", "B"}, {"c", "C"}, {"d", "D"}, 
			{"e", "E"}, {"f", "F"}, {"g", "G"}, {"h", "H"}, 
			{"i", "I"}, {"j", "J"}, {"k", "K"}, {"l", "L"}, 
  			{"m", "M"}, {"n", "N"}, {"o", "O"}, {"p", "P"}, 
  			{"q", "Q"}, {"r", "R"}, {"s", "S"}, {"t", "T"}, 
  			{"u", "U"}, {"v", "V"}, {"w", "W"}, {"x", "X"}, 
  			{"y", "Y"}, {"z", "Z"}, {"\345", "\305"}, 
 			{"\344", "\304"}, {"\366", "\326"}};
		ISOOrder =
			{{"a", "A"}, {"b", "B"}, {"c", "C"}, {"d", "D"}, 
			{"e", "E"}, {"f", "F"}, {"g", "G"}, {"h", "H"}, 
			{"i", "I"}, {"j", "J"}, {"k", "K"}, {"l", "L"}, 
 			{"m", "M"}, {"n", "N"}, {"o", "O"}, {"p", "P"}, 
 			{"q", "Q"}, {"r", "R"},{"s", "S"}, {"t", "T"}, 
 			{"u", "U"}, {"v", "V"}, {"w", "W"}, {"x", "X"}, 
 			{"y", "Y"}, {"z", "Z"}, {"\345", "\305"}, 
 			{"\344", "\304"}, {"\366", "\326"},
 			"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"},
 	"Spanish",
 		MacLetters =
			{ {"a", "A"}, {"\207", "\347"}, 
			{"b", "B"}, {"c", "C"}, {"d", "D"}, 
			{"e", "E"}, {"\216", "\203"}, 
			{"f", "F"}, {"g", "G"}, {"h", "H"}, 
			{"i", "I"}, {"\222", "\352"}, 
			{"j", "J"}, {"k", "K"}, {"l", "L"}, {"m", "M"}, 
			{"n", "N"}, {"\226", "\204"},
			{"o", "O"}, {"\227", "\356"},
			{"p", "P"}, {"q", "Q"}, {"r", "R"}, {"s", "S"}, 
			{"t", "T"},{"u", "U"}, {"\234", "\362"}, 
			{"v", "V"}, {"w", "W"}, {"x", "X"}, {"y", "Y"}, {"z", "Z"} };
		MacOrder =
			{{"a", "A"}, {"\207", "\347"}, 
 			{"b", "B"}, {"c", "C"}, {"d", "D"}, 
 			{"e", "E"}, {"\216", "\203"},  
 			{"f", "F"}, {"g", "G"}, {"h", "H"}, 
 			{"i", "I"}, {"\222", "\352"}, 
 			{"j", "J"}, {"k", "K"}, {"l", "L"}, {"m", "M"}, 
 			{"n", "N"}, {"\226", "\204"},
 			{"o", "O"}, {"\227", "\356"}, 
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, {"s", "S"}, {"t", "T"}, 
 			{"u", "U"}, {"\234", "\362"}, 
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, {"y", "Y"}, {"z", "Z"}, 
 			"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"};
 		ISOLetters =
			{{"a", "A"}, {"\341", "\301"}, 
			{"b", "B"}, {"c", "C"}, {"d", "D"}, 
			{"e", "E"}, {"\351", "\311"}, 
			{"f", "F"}, {"g", "G"}, {"h", "H"}, 
			{"i", "I"}, {"\355", "\315"}, 
			{"j", "J"}, {"k", "K"}, {"l", "L"}, {"m", "M"}, 
			{"n", "N"}, {"\361", "\321"},
			{"o", "O"}, {"\363", "\323"},
			{"p", "P"}, {"q", "Q"}, {"r", "R"}, {"s", "S"}, {"t", "T"}, 
			{"u", "U"}, {"\372", "\332"}, 
			{"v", "V"}, {"w", "W"}, {"x", "X"}, {"y", "Y"}, {"z", "Z"}};
		ISOOrder =
			{{"a", "A"}, {"\341", "\301"}, 
 			{"b", "B"}, {"c", "C"}, {"d", "D"}, 
 			{"e", "E"}, {"\351", "\311"},  
 			{"f", "F"}, {"g", "G"}, {"h", "H"}, 
 			{"i", "I"}, {"\355", "\315"}, 
 			{"j", "J"}, {"k", "K"}, {"l", "L"}, {"m", "M"}, 
 			{"n", "N"}, {"\361", "\321"},
 			{"o", "O"}, {"\363", "\323"}, 
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, {"s", "S"}, 
 			{"t", "T"}, {"u", "U"}, {"\372", "\332"}, 
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, {"y", "Y"}, {"z", "Z"}, 
 			"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"},
	"Italian",
		MacLetters = 
			{ {"a", "A"}, {"\210", "\313"}, 
			{"b", "B"}, {"c", "C"}, {"d", "D"}, 
			{"e", "E"}, {"\217", "\351"}, 
			{"f", "F"}, {"g", "G"}, {"h", "H"}, 
			{"i", "I"}, {"\223", "\355"}, 
			{"j", "J"}, {"k", "K"}, {"l", "L"}, {"m", "M"}, {"n", "N"}, 
			{"o", "O"}, {"\230", "\361"},
			{"p", "P"}, {"q", "Q"}, {"r", "R"}, {"s", "S"}, {"t", "T"}, 
			{"u", "U"}, {"\235", "\364"}, {"v", "V"}, 
			{"w", "W"}, {"x", "X"}, {"y", "Y"}, {"z", "Z"} };
		MacOrder =
			{{"a", "A"}, {"\210", "\313"}, 
 			{"b", "B"}, {"c", "C"}, {"d", "D"}, 
 			{"e", "E"}, {"\217", "\351"},  
 			{"f", "F"}, {"g", "G"}, {"h", "H"}, 
 			{"i", "I"}, {"\223", "\355"}, 
 			{"j", "J"}, {"k", "K"}, {"l", "L"}, {"m", "M"}, 
 			{"n", "N"},{"o", "O"}, {"\230", "\361"}, 
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, {"s", "S"}, {"t", "T"}, 
 			{"u", "U"}, {"\235", "\364"}, 
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, {"y", "Y"}, {"z", "Z"}, 
 			"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"};
 		ISOLetters = 
 			{ {"a", "A"}, {"\340", "\300"}, {"b", "B"}, 
			{"c", "C"}, {"d", "D"}, {"e", "E"}, {"\350", "\310"}, 
			{"f", "F"}, {"g", "G"}, {"h", "H"}, 
			{"i", "I"}, {"\354", "\314"}, {"j", "J"}, 
			{"k", "K"}, {"l", "L"}, {"m", "M"}, {"n", "N"}, 
			{"o", "O"}, {"\362", "\322"},{"p", "P"}, 
			{"q", "Q"}, {"r", "R"}, {"s", "S"}, {"t", "T"}, 
			{"u", "U"}, {"\371", "\331"}, {"v", "V"}, 
			{"w", "W"}, {"x", "X"}, {"y", "Y"}, {"z", "Z"} };
		ISOOrder =
			{{"a", "A"}, {"\340", "\300"}, {"b", "B"}, 
			{"c", "C"}, {"d", "D"}, {"e", "E"}, {"\350", "\310"},  
 			{"f", "F"}, {"g", "G"}, {"h", "H"}, 
			 {"i", "I"}, {"\354", "\314"}, 
 			{"j", "J"}, {"k", "K"}, {"l", "L"}, {"m", "M"}, 
 			{"n", "N"}, {"o", "O"}, {"\362", "\322"}, 
 			{"p", "P"}, {"q", "Q"}, {"r", "R"}, {"s", "S"}, 
 			{"t", "T"},	{"u", "U"}, {"\371", "\331"}, 
 			{"v", "V"}, {"w", "W"}, {"x", "X"}, {"y", "Y"}, {"z", "Z"}, 
 			"0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}, 			
 	$Language,
		MacLetters = $Letters; MacOrder = $StringOrder;
 		ISOLetters = $Letters; ISOOrder = $StringOrder;
]
 
Switch[ $OperatingSystem, 
	"MacOS",	$Letters = MacLetters; $StringOrder = MacOrder,
	$OperatingSystem, $Letters = ISOLetters; $StringOrder = ISOOrder
	]

Remove[ MacLetters, MacOrder, ISOLetters, ISOOrder]

End[]
 
EndPackage[]

 
