ascii_rows = 8;
ascii_cols = 7;
ascii_x[ascii_cols - 1] = 0;
ascii_y[ascii_rows - 1] = 0;
ascii_charmap[ascii_rows - 1, ascii_cols - 1] = 0;
for (var i = 0; i < ascii_cols; i++)
    ascii_x[i] = 60 + (i * 32);
for (var i = 0; i < (ascii_rows / 2); i++)
{
    ascii_y[i] = 75 + (i * 14);
    ascii_y[i + (ascii_rows / 2)] = 135 + (i * 14);
    for (var j = 0; j < 7; j++)
    {
        var index = (i * 7) + j;
        if (index < 26)
        {
            ascii_charmap[i, j] = chr(65 + index);
            ascii_charmap[i + (ascii_rows / 2), j] = chr(97 + index);
        }
        else
        {
            ascii_charmap[i, j] = "";
            ascii_charmap[i + (ascii_rows / 2), j] = "";
        }
    }
}
hiragana_chstr[0] = "あいうえおまみむめもぁぃぅぇぉ";
hiragana_chstr[1] = "かきくけこや　ゆ　よがぎぐげご";
hiragana_chstr[2] = "さしすせそらりるれろざじずぜぞ";
hiragana_chstr[3] = "たちつてとわをんー　だぢづでど";
hiragana_chstr[4] = "なにぬねのゃゅょっゎばびぶべぼ";
hiragana_chstr[5] = "はひふへほ　　　　　ぱぴぷぺぽ";
katakana_chstr[0] = "アイウエオマミムメモァィゥェォ";
katakana_chstr[1] = "カキクケコヤ　ユ　ヨガギグゲゴ";
katakana_chstr[2] = "サシスセソラリルレロザジズゼゾ";
katakana_chstr[3] = "タチツテトワヲンー　ダヂヅデド";
katakana_chstr[4] = "ナニヌネノャュョッヮバビブベボ";
katakana_chstr[5] = "ハヒフヘホヵヶヴ　　パピプペポ";
hiragana_rows = 6;
hiragana_cols = 15;
hiragana_x[hiragana_cols - 1] = 0;
hiragana_y[hiragana_rows - 1] = 0;
hiragana_charmap[hiragana_rows - 1, hiragana_cols - 1] = 0;
for (var i = 0; i < hiragana_cols; i++)
    hiragana_x[i] = 32 + (i * 16) + (floor(i / 5) * 8);
for (var i = 0; i < hiragana_rows; i++)
{
    hiragana_y[i] = 68 + (i * 16);
    for (var j = 0; j < hiragana_cols; j++)
    {
        var ch = string_char_at(hiragana_chstr[i], j + 1);
        if (ch == "　")
            ch = "";
        hiragana_charmap[i, j] = ch;
    }
}
katakana_rows = hiragana_rows;
katakana_cols = hiragana_cols;
katakana_x[katakana_cols - 1] = 0;
katakana_y[katakana_rows - 1] = 0;
katakana_charmap[katakana_rows - 1, katakana_cols - 1] = 0;
for (var i = 0; i < katakana_cols; i++)
    katakana_x[i] = hiragana_x[i];
for (var i = 0; i < katakana_rows; i++)
{
    katakana_y[i] = hiragana_y[i];
    for (var j = 0; j < katakana_cols; j++)
    {
        var ch = string_char_at(katakana_chstr[i], j + 1);
        if (ch == "　")
            ch = "";
        katakana_charmap[i, j] = ch;
    }
}
ja_ascii_rows = 6;
ja_ascii_cols = 9;
ja_ascii_x[ja_ascii_cols - 1] = 0;
ja_ascii_y[ja_ascii_rows - 1] = 0;
ja_ascii_charmap[ja_ascii_rows - 1, ja_ascii_cols - 1] = 0;
for (var i = 0; i < ja_ascii_cols; i++)
    ja_ascii_x[i] = 60 + (i * 23);
for (var i = 0; i < ja_ascii_rows; i++)
{
    ja_ascii_y[i] = 68 + (i * 16);
    var ch_base;
    if (i >= 3)
        ch_base = 97;
    else
        ch_base = 65;
    for (var j = 0; j < ja_ascii_cols; j++)
    {
        var ch = ch_base + ((i % 3) * 9) + j;
        if ((ch - ch_base) < 26)
            ja_ascii_charmap[i, j] = chr(ch);
        else
            ja_ascii_charmap[i, j] = "";
    }
}
if (global.language == "ja")
{
    selected_charmap = 1;
    rows = hiragana_rows;
    cols = hiragana_cols;
    xmap = hiragana_x;
    ymap = hiragana_y;
    charmap = hiragana_charmap;
}
else
{
    selected_charmap = 0;
    rows = ascii_rows;
    cols = ascii_cols;
    xmap = ascii_x;
    ymap = ascii_y;
    charmap = ascii_charmap;
}
selected_row = 0;
selected_col = 0;
selected3 = 0;
if (global.language == "ja")
{
    title_y = 20;
    name_y = 44;
    charset_y = 172;
    menu_y = 204;
    name_x = 118;
    charset_x0 = 32;
    charset_x1 = 118;
    charset_x2 = 202;
    menu_x0 = 55;
    menu_x1 = 125;
    menu_x2 = 205;
    if (truereset != 0)
    {
        continue_x = 35;
        reset_x = 160;
    }
    else
    {
        continue_x = 70;
        reset_x = 195;
    }
}
else
{
    title_y = 30;
    name_y = 55;
    charset_y = 999;
    menu_y = 200;
    name_x = 140;
    menu_x0 = 60;
    menu_x1 = 120;
    menu_x2 = 220;
    continue_x = 85;
    if (truereset != 0)
        reset_x = 175;
    else
        reset_x = 195;
}