(************** Content-type: application/mathematica **************
                     CreatedBy='Mathematica 5.1'

                    Mathematica-Compatible Notebook

This notebook can be used with any Mathematica-compatible
application, such as Mathematica, MathReader or Publicon. The data
for the notebook starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do
one of the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the
  application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing
the word CacheID, otherwise Mathematica-compatible applications may
try to use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
*******************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     36445,        937]*)
(*NotebookOutlinePosition[     37333,        968]*)
(*  CellTagsIndexPosition[     37245,        962]*)
(*WindowFrame->Normal*)



Notebook[{
Cell["WordMemory", "Subtitle"],

Cell[TextData[{
  "The last version of '",
  StyleBox["WordMemory.m'",
    FontFamily->"Courier New",
    FontWeight->"Bold"],
  " and the Norwegian and English dictionaries can be obtained here:\n",
  ButtonBox["http://draugen.nfh.uit.no/~arnee/Mathematica/WordMemory.m",
    ButtonData:>{
      URL[ "http://draugen.nfh.uit.no/~arnee/Mathematica/WordMemory.m"], 
      None},
    ButtonStyle->"Hyperlink"],
  "\n",
  ButtonBox["http://draugen.nfh.uit.no/~arnee/Mathematica/DictionaryEnglish.\
m",
    ButtonData:>{
      URL[ 
      "http://draugen.nfh.uit.no/~arnee/Mathematica/DictionaryEnglish.m"], 
      None},
    ButtonStyle->"Hyperlink"],
  "\n",
  ButtonBox["http://draugen.nfh.uit.no/~arnee/Mathematica/DictionaryNorwegian.\
m",
    ButtonData:>{
      URL[ 
      "http://draugen.nfh.uit.no/~arnee/Mathematica/DictionaryNorwegian.m"], 
      None},
    ButtonStyle->"Hyperlink"]
}], "Text",
  TextAlignment->Left,
  TextJustification->0],

Cell[CellGroupData[{

Cell["Package", "Section"],

Cell[BoxData[
    \(<< "\<Games`WordMemory`\>"\)], "InputOnly"],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(?WordMemory`*\)\)], "Input"],

Cell[BoxData[GridBox[{
        {
          StyleBox["WordMemory`",
            FontFamily->"Helvetica",
            FontSize->12,
            FontWeight->"Bold"]},
        {GridBox[{
              {
                ButtonBox[
                  StyleBox["AcceptedWords",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`AcceptedWords"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["MultiIntersection",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`MultiIntersection"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["ProposeWord",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`ProposeWord"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["UnusedVowels",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`UnusedVowels"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["AppendMyWord",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`AppendMyWord"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["MyAcceptedWords",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`MyAcceptedWords"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["RandomRelist",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`RandomRelist"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["UsedCharacters",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`UsedCharacters"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["CharacterMatch",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`CharacterMatch"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["MyCharacterMatch",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`MyCharacterMatch"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["Score",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  ButtonData:>{"Info3327228852-8085407", "WordMemory`Score"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["UsedConsonants",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`UsedConsonants"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["Consonants",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`Consonants"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["MyName",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  ButtonData:>{"Info3327228852-8085407", "WordMemory`MyName"},
                  
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["ScoreTable",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`ScoreTable"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["UsedVowels",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`UsedVowels"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["CurrentLanguage",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`CurrentLanguage"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["MyScore",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`MyScore"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["SelectedDictionary",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`SelectedDictionary"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["UsedWords",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`UsedWords"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["EnglishDictionary",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`EnglishDictionary"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["MyUsedWords",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`MyUsedWords"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["TableScore",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`TableScore"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["Vowels",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  ButtonData:>{"Info3327228852-8085407", "WordMemory`Vowels"},
                  
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["FindAcceptedWords",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`FindAcceptedWords"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["MyWord",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  ButtonData:>{"Info3327228852-8085407", "WordMemory`MyWord"},
                  
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["TableUnusedCharacters",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`TableUnusedCharacters"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["WebTransfer",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`WebTransfer"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["FindMyAcceptedWords",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`FindMyAcceptedWords"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["MyWordIntersection",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`MyWordIntersection"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["TableUsedCharacters",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`TableUsedCharacters"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["WordIntersection",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`WordIntersection"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["GameCompleted",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`GameCompleted"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["NewGame",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`NewGame"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["TopScore",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`TopScore"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["WordMemory",
                    "Hyperlink"],
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`WordMemory"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["GameLevel",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`GameLevel"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["no",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  ButtonData:>{"Info3327228852-8085407", "WordMemory`no"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["uk",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  ButtonData:>{"Info3327228852-8085407", "WordMemory`uk"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["WordMemoryLanguage",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`WordMemoryLanguage"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"]},
              {
                ButtonBox[
                  StyleBox["GameOver",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`GameOver"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["NorwegianDictionary",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`NorwegianDictionary"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["UnknownWord",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`UnknownWord"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], ""},
              {
                ButtonBox[
                  StyleBox["Hint",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  ButtonData:>{"Info3327228852-8085407", "WordMemory`Hint"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["ProposeMyWord",
                    "Hyperlink"],
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`ProposeMyWord"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], 
                ButtonBox[
                  StyleBox["UnusedConsonants",
                    "Hyperlink"],
                  
                  ButtonFunction:>(
                    Internal`PutInformation[ #, LongForm -> False]&),
                  ButtonEvaluator->Automatic,
                  
                  ButtonData:>{"Info3327228852-8085407", 
                    "WordMemory`UnusedConsonants"},
                  ButtonFrame->"None",
                  ButtonNote->"WordMemory`"], ""}
              },
            RowMinHeight->{1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1.05}]}
        },
      RowSpacings->{2, 3},
      ColumnsEqual->True]], "Print",
  CellMargins->{{20, Inherited}, {Inherited, Inherited}},
  ShowCellLabel->False,
  CellFrameMargins->{{Inherited, Inherited}, {14, 14}},
  Background->RGBColor[0.964706, 0.929412, 0.839216],
  ButtonBoxOptions->{Active->True},
  GridBoxOptions->{ColumnAlignments->{Left}}]
}, Open  ]],

Cell[BoxData[
    \(\(CurrentLanguage = uk;\)\)], "InputOnly"]
}, Closed]],

Cell[CellGroupData[{

Cell["Playing WordMemory", "Section"],

Cell[BoxData[
    \(\(NewGame;\)\)], "InputOnly"],

Cell[BoxData[
    \(\(MyName = "\<Me\>";\)\)], "InputOnly"],

Cell[CellGroupData[{

Cell[BoxData[
    \(WordMemory["\<bingo\>"] // TableForm\)], "Input"],

Cell[BoxData[
    InterpretationBox[GridBox[{
          {"\<\"Score Panel\"\>"},
          {
            TagBox[
              FrameBox[
                InterpretationBox[GridBox[{
                      {\("Computer\n'taxed'\nTotal:0\n--------"\), \("Me\n\
'?????'\nTotal:1\n--------"\)},
                      {GridBox[{
                            {"\<\"ohing\"\>", "0"}
                            },
                          RowSpacings->0.25,
                          ColumnSpacings->1,
                          RowAlignments->Baseline,
                          ColumnAlignments->{Left}], GridBox[{
                            {"\<\"bingo\"\>", "1"}
                            },
                          RowSpacings->0.25,
                          ColumnSpacings->1,
                          RowAlignments->Baseline,
                          ColumnAlignments->{Left}]}
                      },
                    RowSpacings->1,
                    ColumnSpacings->3,
                    RowAlignments->Baseline,
                    ColumnAlignments->{Center}],
                  
                  TableForm[ {{{{"ohing", 0}}, {{"bingo", 1}}}}, 
                    TableHeadings -> {None, {
                    "Computer\n'taxed'\nTotal:0\n--------", 
                    "Me\n'?????'\nTotal:1\n--------"}}]]],
              DisplayForm]},
          {"\<\"Your used characters\"\>"},
          {
            TagBox[
              FrameBox[
                InterpretationBox[GridBox[{
                      {GridBox[{
                            {"\<\"i\"\>", "\<\"o\"\>", "\<\"\"\>"},
                            {"\<\"b\"\>", "\<\"g\"\>", "\<\"n\"\>"}
                            },
                          RowSpacings->0.25,
                          ColumnSpacings->1,
                          RowAlignments->Baseline,
                          ColumnAlignments->{Left}]}
                      },
                    RowSpacings->1,
                    ColumnSpacings->3,
                    RowAlignments->Baseline,
                    ColumnAlignments->{Left}],
                  TableForm[ {{{{"i", "o"}, {"b", "g", "n"}}}}]]],
              DisplayForm]},
          {"\<\"Your unused characters\"\>"},
          {
            TagBox[
              FrameBox[
                InterpretationBox[GridBox[{
                      {GridBox[{
                            {"\<\"a\"\>", "\<\"e\"\>", "\<\"u\"\>", \
"\<\"y\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\
\"\>", "\<\"\"\>"},
                            {"\<\"c\"\>", "\<\"d\"\>", "\<\"f\"\>", \
"\<\"h\"\>", "\<\"j\"\>", "\<\"k\"\>", "\<\"l\"\>", "\<\"m\"\>", "\<\"p\"\>", \
"\<\"q\"\>", "\<\"r\"\>", "\<\"s\"\>", "\<\"t\"\>", "\<\"v\"\>", "\<\"w\"\>", \
"\<\"x\"\>", "\<\"z\"\>"}
                            },
                          RowSpacings->0.25,
                          ColumnSpacings->1,
                          RowAlignments->Baseline,
                          ColumnAlignments->{Left}]}
                      },
                    RowSpacings->1,
                    ColumnSpacings->3,
                    RowAlignments->Baseline,
                    ColumnAlignments->{Left}],
                  
                  TableForm[ {{{{"a", "e", "u", "y"}, {"c", "d", "f", "h", 
                    "j", "k", "l", "m", "p", "q", "r", "s", "t", "v", "w", 
                    "x", "z"}}}}]]],
              DisplayForm]}
          },
        RowSpacings->1,
        ColumnSpacings->3,
        RowAlignments->Baseline,
        ColumnAlignments->{Left}],
      TableForm[ {"Score Panel", 
        DisplayForm[ 
          FrameBox[ 
            
            TableForm[ {{{{"ohing", 0}}, {{"bingo", 1}}}}, TableHeadings -> {
              None, {"Computer\n'taxed'\nTotal:0\n--------", 
              "Me\n'?????'\nTotal:1\n--------"}}]]], "Your used characters", 
        DisplayForm[ 
          FrameBox[ 
            TableForm[ {{{{"i", "o"}, {"b", "g", "n"}}}}]]], 
        "Your unused characters", 
        DisplayForm[ 
          FrameBox[ 
            
            TableForm[ {{{{"a", "e", "u", "y"}, {"c", "d", "f", "h", "j", "k",
               "l", "m", "p", "q", "r", "s", "t", "v", "w", "x", 
              "z"}}}}]]]}]]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(?Hint\)\)], "Input"],

Cell[BoxData[
    \("Hint proposes a word at the given level (GameLevel),"\)], "Print",
  CellTags->"Info3327228856-2349335"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(WordMemory[Hint] // TableForm\)], "Input"],

Cell[BoxData[
    InterpretationBox[GridBox[{
          {"\<\"Score Panel\"\>"},
          {
            TagBox[
              FrameBox[
                InterpretationBox[GridBox[{
                      {\("Computer\n'taxed'\nTotal:12\n--------"\), \("Me\n\
'?????'\nTotal:18\n--------"\)},
                      {GridBox[{
                            {"\<\"ohing\"\>", "0"},
                            {"\<\"masse\"\>", "2"},
                            {"\<\"beset\"\>", "2"},
                            {"\<\"pasty\"\>", "2"},
                            {"\<\"babus\"\>", "1"},
                            {"\<\"perks\"\>", "1"},
                            {"\<\"exalt\"\>", "4"}
                            },
                          RowSpacings->0.25,
                          ColumnSpacings->1,
                          RowAlignments->Baseline,
                          ColumnAlignments->{Left}], GridBox[{
                            {"\<\"bingo\"\>", "1"},
                            {"\<\"pride\"\>", "1"},
                            {"\<\"heman\"\>", "2"},
                            {"\<\"weens\"\>", "1"},
                            {"\<\"gemmy\"\>", "3"},
                            {"\<\"agley\"\>", "1"},
                            {"\<\"comme\"\>", "9"}
                            },
                          RowSpacings->0.25,
                          ColumnSpacings->1,
                          RowAlignments->Baseline,
                          ColumnAlignments->{Left}]}
                      },
                    RowSpacings->1,
                    ColumnSpacings->3,
                    RowAlignments->Baseline,
                    ColumnAlignments->{Center}],
                  
                  TableForm[ {{{{"ohing", 0}, {"masse", 2}, {"beset", 2}, {
                    "pasty", 2}, {"babus", 1}, {"perks", 1}, {"exalt", 4}}, {{
                    "bingo", 1}, {"pride", 1}, {"heman", 2}, {"weens", 1}, {
                    "gemmy", 3}, {"agley", 1}, {"comme", 9}}}}, 
                    TableHeadings -> {None, {
                    "Computer\n'taxed'\nTotal:12\n--------", 
                    "Me\n'?????'\nTotal:18\n--------"}}]]],
              DisplayForm]},
          {"\<\"Your used characters\"\>"},
          {
            TagBox[
              FrameBox[
                InterpretationBox[GridBox[{
                      {GridBox[{
                            {"\<\"a\"\>", "\<\"e\"\>", "\<\"i\"\>", \
"\<\"o\"\>", "\<\"y\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\
\"\"\>", "\<\"\"\>", "\<\"\"\>"},
                            {"\<\"b\"\>", "\<\"c\"\>", "\<\"d\"\>", \
"\<\"g\"\>", "\<\"h\"\>", "\<\"l\"\>", "\<\"m\"\>", "\<\"n\"\>", "\<\"p\"\>", \
"\<\"r\"\>", "\<\"s\"\>", "\<\"w\"\>"}
                            },
                          RowSpacings->0.25,
                          ColumnSpacings->1,
                          RowAlignments->Baseline,
                          ColumnAlignments->{Left}]}
                      },
                    RowSpacings->1,
                    ColumnSpacings->3,
                    RowAlignments->Baseline,
                    ColumnAlignments->{Left}],
                  
                  TableForm[ {{{{"a", "e", "i", "o", "y"}, {"b", "c", "d", 
                    "g", "h", "l", "m", "n", "p", "r", "s", "w"}}}}]]],
              DisplayForm]},
          {"\<\"Your unused characters\"\>"},
          {
            TagBox[
              FrameBox[
                InterpretationBox[GridBox[{
                      {GridBox[{
                            {"\<\"u\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>"},
                            {"\<\"f\"\>", "\<\"j\"\>", "\<\"k\"\>", \
"\<\"q\"\>", "\<\"t\"\>", "\<\"v\"\>", "\<\"x\"\>", "\<\"z\"\>"}
                            },
                          RowSpacings->0.25,
                          ColumnSpacings->1,
                          RowAlignments->Baseline,
                          ColumnAlignments->{Left}]}
                      },
                    RowSpacings->1,
                    ColumnSpacings->3,
                    RowAlignments->Baseline,
                    ColumnAlignments->{Left}],
                  
                  TableForm[ {{{{"u"}, {"f", "j", "k", "q", "t", "v", "x", 
                    "z"}}}}]]],
              DisplayForm]},
          {"\<\"GAME OVER:  Congratulations! Correct word\"\>"}
          },
        RowSpacings->1,
        ColumnSpacings->3,
        RowAlignments->Baseline,
        ColumnAlignments->{Left}],
      TableForm[ {"Score Panel", 
        DisplayForm[ 
          FrameBox[ 
            
            TableForm[ {{{{"ohing", 0}, {"masse", 2}, {"beset", 2}, {"pasty", 
              2}, {"babus", 1}, {"perks", 1}, {"exalt", 4}}, {{"bingo", 1}, {
              "pride", 1}, {"heman", 2}, {"weens", 1}, {"gemmy", 3}, {"agley",
               1}, {"comme", 9}}}}, TableHeadings -> {None, {
              "Computer\n'taxed'\nTotal:12\n--------", 
              "Me\n'?????'\nTotal:18\n--------"}}]]], "Your used characters", 
        
        DisplayForm[ 
          FrameBox[ 
            
            TableForm[ {{{{"a", "e", "i", "o", "y"}, {"b", "c", "d", "g", "h",
               "l", "m", "n", "p", "r", "s", "w"}}}}]]], 
        "Your unused characters", 
        DisplayForm[ 
          FrameBox[ 
            
            TableForm[ {{{{"u"}, {"f", "j", "k", "q", "t", "v", "x", 
              "z"}}}}]]], 
        "GAME OVER:  Congratulations! Correct word"}]]], "Output"]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"5.1 for Microsoft Windows",
ScreenRectangle->{{0, 1400}, {0, 975}},
WindowToolbars->"EditBar",
WindowSize->{742, 740},
WindowMargins->{{6, Automatic}, {Automatic, 0}},
ShowSelection->True,
StyleDefinitions -> "DemoText.nb"
]

(*******************************************************************
Cached data follows.  If you edit this Notebook file directly, not
using Mathematica, you must remove the line containing CacheID at
the top of  the file.  The cache data will then be recreated when
you save this file from within Mathematica.
*******************************************************************)

(*CellTagsOutline
CellTagsIndex->{
  "Info3327228856-2349335"->{
    Cell[30620, 797, 125, 2, 25, "Print",
      CellTags->"Info3327228856-2349335"]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"Info3327228856-2349335", 37134, 955}
  }
*)

(*NotebookFileOutline
Notebook[{
Cell[1754, 51, 30, 0, 41, "Subtitle"],
Cell[1787, 53, 950, 29, 123, "Text"],

Cell[CellGroupData[{
Cell[2762, 86, 26, 0, 54, "Section"],
Cell[2791, 88, 63, 1, 48, "InputOnly"],

Cell[CellGroupData[{
Cell[2879, 93, 50, 1, 40, "Input"],
Cell[2932, 96, 22908, 568, 70, "Print"]
}, Open  ]],
Cell[25855, 667, 62, 1, 48, "InputOnly"]
}, Closed]],

Cell[CellGroupData[{
Cell[25954, 673, 37, 0, 34, "Section"],
Cell[25994, 675, 49, 1, 48, "InputOnly"],
Cell[26046, 678, 59, 1, 48, "InputOnly"],

Cell[CellGroupData[{
Cell[26130, 683, 69, 1, 40, "Input"],
Cell[26202, 686, 4336, 103, 266, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[30575, 794, 42, 1, 40, "Input"],
Cell[30620, 797, 125, 2, 25, "Print",
  CellTags->"Info3327228856-2349335"]
}, Open  ]],

Cell[CellGroupData[{
Cell[30782, 804, 62, 1, 40, "Input"],
Cell[30847, 807, 5570, 126, 354, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)



(*******************************************************************
End of Mathematica Notebook file.
*******************************************************************)