/*
 *  AVIM JavaScript Vietnamese Input Method Source File dated 27 - 11 - 2006
 *
 * 	Copyright ( C ) 2004 Hieu Tran Dang < lt2hieu2004 ( at ) users ( dot ) sf ( dot ) net >
 * 	Website : 	http : // hdang.co.uk
 * 				http : // hieu.acunett.com
 *
 * 	You are allowed to use this software in any way you want providing :
 * 		1. You must retain this copyright notice at all time
 * 		2. You must not claim that you or any other third party is the author
 * 		   of this software in any way.
 */
/*
Bản này đã sửa lỗi khi chạy cùng Google Adsense trên Internet Explorer.
http : // www.hn - ams.org / forum / showthread.php ? t = 18518 & page = 23#457

27.03.2007
http : // mangvn.org
 */
va = "email".split( ',' ) // Put the ID of the fields you DON'T want to let users type Vietnamese in, multiple fields allowed, separated by a comma (,)
method = 0 // Default input method, 0 = AUTO, 1 = TELEX, 2 = VNI, 3 = VIQR
on_off = 1 // Start H.I.M on
dockspell = 1 // Start H.I.M with spell checking on
dauCu = 1 // Start H.I.M with old way of marking accent ( o`a, o`e, u`y )
useCookie = 1 // Set this to 0 to NOT use cookies
radioID = "him_auto,him_telex,him_vni,him_viqr,him_viqr2,him_off,him_ckspell,him_daucu".split( "," )
var agt = navigator.userAgent.toLowerCase(), alphabet = "QWERTYUIOPASDFGHJKLZXCVBNM\ ", them, spellerr, setCookie, getCookie
var is_ie = ( ( agt.indexOf( "msie" ) != - 1 ) && ( agt.indexOf( "opera" ) == - 1 ) ), S, F, J, R, X, D, oc, sk, saveStr, wi, frame, is_opera = false, D2, isKHTML = false
var ver = 0, support = true, changed = false, uni, uni2, g, h, SFJRX, DAWEO, Z, AEO, moc, trang, kl = 0, tw5, range = null, doc, fID = document.getElementsByTagName( "iframe" )
skey = new Array( 97, 226, 259, 101, 234, 105, 111, 244, 417, 117, 432, 121, 65, 194, 258, 69, 202, 73, 79, 212, 416, 85, 431, 89 )
var skey2 = "a,a,a,e,e,i,o,o,o,u,u,y,A,A,A,E,E,I,O,O,O,U,U,Y".split( ',' ), A, E, O, whit = false, english = "ĐÂĂƠƯÊÔ", lowen = "đâăơưêô", ds1 = "d,D".split( "," ), db1 = new Array( 273, 272 )
os1 = "o,O,ơ,Ơ,ó,Ó,ò,Ò,ọ,Ọ,ỏ,Ỏ,õ,Õ,ớ,Ớ,ờ,Ờ,ợ,Ợ,ở,Ở,ỡ,Ỡ".split( "," ), ob1 = "ô,Ô,ô,Ô,ố,Ố,ồ,Ồ,ộ,Ộ,ổ,Ổ,ỗ,Ỗ,ố,Ố,ồ,Ồ,ộ,Ộ,ổ,Ổ,ỗ,Ỗ".split( "," )
mocs1 = "o,O,ô,Ô,u,U,ó,Ó,ò,Ò,ọ,Ọ,ỏ,Ỏ,õ,Õ,ú,Ú,ù,Ù,ụ,Ụ,ủ,Ủ,ũ,Ũ,ố,Ố,ồ,Ồ,ộ,Ộ,ổ,Ổ,ỗ,Ỗ".split( "," );
mocb1 = "ơ,Ơ,ơ,Ơ,ư,Ư,ớ,Ớ,ờ,Ờ,ợ,Ợ,ở,Ở,ỡ,Ỡ,ứ,Ứ,ừ,Ừ,ự,Ự,ử,Ử,ữ,Ữ,ớ,Ớ,ờ,Ờ,ợ,Ợ,ở,Ở,ỡ,Ỡ".split( "," )
trangs1 = "a,A,â,Â,á,Á,à,À,ạ,Ạ,ả,Ả,ã,Ã,ấ,Ấ,ầ,Ầ,ậ,Ậ,ẩ,Ẩ,ẫ,Ẫ".split( "," );
trangb1 = "ă,Ă,ă,Ă,ắ,Ắ,ằ,Ằ,ặ,Ặ,ẳ,Ẳ,ẵ,Ẵ,ắ,Ắ,ằ,Ằ,ặ,Ặ,ẳ,Ẳ,ẵ,Ẵ".split( "," )
as1 = "a,A,ă,Ă,á,Á,à,À,ạ,Ạ,ả,Ả,ã,Ã,ắ,Ắ,ằ,Ằ,ặ,Ặ,ẳ,Ẳ,ẵ,Ẵ,ế,Ế,ề,Ề,ệ,Ệ,ể,Ể,ễ,Ễ".split( "," );
ab1 = "â,Â,â,Â,ấ,Ấ,ầ,Ầ,ậ,Ậ,ẩ,Ẩ,ẫ,Ẫ,ấ,Ấ,ầ,Ầ,ậ,Ậ,ẩ,Ẩ,ẫ,Ẫ,é,É,è,È,ẹ,Ẹ,ẻ,Ẻ,ẽ,Ẽ".split( "," )
es1 = "e,E,é,É,è,È,ẹ,Ẹ,ẻ,Ẻ,ẽ,Ẽ".split( "," );
eb1 = "ê,Ê,ế,Ế,ề,Ề,ệ,Ệ,ể,Ể,ễ,Ễ".split( "," )
arA = "á,à,ả,ã,ạ,a,Á,À,Ả,Ã,Ạ,A".split( ',' );
mocrA = "ó,ò,ỏ,õ,ọ,o,ú,ù,ủ,ũ,ụ,u,Ó,Ò,Ỏ,Õ,Ọ,O,Ú,Ù,Ủ,Ũ,Ụ,U".split( ',' );
erA = "é,è,ẻ,ẽ,ẹ,e,É,È,Ẻ,Ẽ,Ẹ,E".split( ',' );
orA = "ó,ò,ỏ,õ,ọ,o,Ó,Ò,Ỏ,Õ,Ọ,O".split( ',' )
aA = "ấ,ầ,ẩ,ẫ,ậ,â,Ấ,Ầ,Ẩ,Ẫ,Ậ,Â".split( ',' );
mocA = "ớ,ờ,ở,ỡ,ợ,ơ,ứ,ừ,ử,ữ,ự,ư,Ớ,Ờ,Ở,Ỡ,Ợ,Ơ,Ứ,Ừ,Ử,Ữ,Ự,Ư".split( ',' );
trangA = "ắ,ằ,ẳ,ẵ,ặ,ă,Ắ,Ằ,Ẳ,Ẵ,Ặ,Ă".split( ',' );
eA = "ế,ề,ể,ễ,ệ,ê,Ế,Ề,Ể,Ễ,Ệ,Ê".split( ',' );
oA = "ố,ồ,ổ,ỗ,ộ,ô,Ố,Ồ,Ổ,Ỗ,Ộ,Ô".split( ',' )

function notWord( w )
{
   var str = "\ \r\n#,\\;.:-_()<>+-*/=?!\"$ % {}[]\'~|^\@\&\t"+fcc(160)
   return ( str.indexOf( w ) >= 0 )
}

//  ---------------------------------------

function nan( w )
{
   if ( ( isNaN( w ) ) || ( w == 'e' ) ) return true
   else return false
}

//  ---------------------------------------

function mozGetText( obj )
{
   var v, pos, w = "";
   g = 1
   v = ( obj.data ) ? obj.data : obj.value
   if( v.length <= 0 ) return false
   if( ! obj.data )
   {
      if( ! obj.setSelectionRange ) return false
      pos = obj.selectionStart
   }
   else pos = obj.pos
   if( obj.selectionStart != obj.selectionEnd ) return new Array( "", pos )
   while( 1 )
   {
      if( pos - g < 0 )
      break
      else if( notWord( v.substr( pos - g, 1 ) ) )
      {
         if( v.substr( pos - g, 1 ) == "\\" ) w = v.substr( pos - g, 1 ) + w; break }
         else w = v.substr( pos - g, 1 ) + w;
         g ++
      }
      return new Array( w, pos )
   }
   function start( obj, key )
   {
      var w = "";
      oc = obj;
      uni2 = false;
      fixed = false
      if( method == 0 )
      {
         uni = "D,A,E,O,W,W".split( ',' );
         uni2 = "9,6,6,6,7,8".split( ',' );
         D2 = "DAWEO6789"
      }
      else if( method == 1 )
      {
         uni = "D,A,E,O,W,W".split( ',' );
         D2 = "DAWEO"
      }
      else if( method == 2 )
      {
         uni = "9,6,6,6,7,8".split( ',' );
         D2 = "6789"
      }
      else if( method == 3 )
      {
         uni = "D,^,^,^,+,(".split( ',' );
         D2 = "D^+("
      }
      else if( method == 4 )
      {
         uni = "D,^,^,^,*,(".split( ',' );
         D2 = "D^*("
      }
      if( ! is_ie )
      {
         key = fcc( key.which )
         w = mozGetText( obj )
         if( ( ! w ) || ( obj.sel ) ) return
         main( w[0], key, w[1], uni )
         if( ! dockspell ) w = mozGetText( obj )
         if( ( w ) && ( uni2 ) && ( ! changed ) ) main( w[0], key, w[1], uni2 )
      }
      else
      {
         obj = ieGetText( obj )
         if( obj )
         {
            var sT = obj.cW.text
            w = main( obj.cW.text, key, 0, uni )
            if( ( uni2 ) && ( ( w == sT ) || ( typeof( w ) == 'undefined' ) ) ) w = main( obj.cW.text, key, 0, uni2 )
            if( w ) obj.cW.text = w
         }
      }
      if( D2.indexOf( up( key ) ) >= 0 )
      {
         if( ! is_ie )
         {
            w = mozGetText( obj )
            if( ! w ) return
            normC( w[0], key, w[1] )
         }
         else if( typeof( obj ) == "object" )
         {
            obj = ieGetText( obj )
            if( obj )
            {
               w = obj.cW.text
               if( ! changed )
               {
                  w += key;
                  changed = true
               }
               obj.cW.text = w
               w = normC( w, key, 0 )
               if( w )
               {
                  obj = ieGetText( obj );
                  obj.cW.text = w
               }
            }
         }
      }
   }
   function ieGetText( obj )
   {
      var caret = obj.document.selection.createRange(), w = ""
      if( caret.text ) caret.text = ""
      else
      {
         while( 1 )
         {
            caret.moveStart( "character", - 1 )
            if( w.length == caret.text.length )
            break
            w = caret.text
            if( notWord( w.charAt( 0 ) ) )
            {
               if( w.charCodeAt( 0 ) == 13 ) w = w.substr( 2 )
               else if( w.charAt( 0 ) != "\\" ) w = w.substr( 1 )
               break
            }
         }
      }
      if( w.length )
      {
         caret.collapse( false )
         caret.moveStart( "character", - w.length )
         obj.cW = caret.duplicate()
         return obj
      }
      else return false
   }
   function ie_replaceChar( w, pos, c )
   {
      var r = "", uc = 0
      if( isNaN( c ) ) uc = up( c )
      if( ( whit ) && ( up( w.substr( w.length - pos - 1, 1 ) ) == 'U' ) && ( pos != 1 ) && ( up( w.substr( w.length - pos - 2, 1 ) ) != 'Q' ) )
      {
         whit = false
         if( ( up( unV( fcc( c ) ) ) == "Ơ" ) || ( uc == "O" ) )
         {
            if( w.substr( w.length - pos - 1, 1 ) == 'u' ) r = fcc( 432 )
            else r = fcc( 431 )
         }
         if( uc == "O" )
         {
            if( c == "o" ) c = 417
            else c = 416
         }
      }
      if( ! isNaN( c ) )
      {
         changed = true;
         r += fcc( c )
         return w.substr( 0, w.length - pos - r.length + 1 ) + r + w.substr( w.length - pos + 1 )
      }
      else return w.substr( 0, w.length - pos ) + c + w.substr( w.length - pos + 1 )
   }
   function tr( k, w, by, sf, i )
   {
      var r, pos = findC( w, k, sf )
      if( pos )
      {
         if( pos[1] )
         {
            if( is_ie ) return ie_replaceChar( w, pos[0], pos[1] )
            else return replaceChar( oc, i - pos[0], pos[1] )
         }
         else
         {
            var c, pC = w.substr( w.length - pos, 1 ), cmp;
            r = sf
            for( g = 0; g < r.length; g ++ )
            {
               if( ( nan( r[g] ) ) || ( r[g] == "e" ) ) cmp = pC
               else cmp = pC.charCodeAt( 0 )
               if( cmp == r[g] )
               {
                  if( ! nan( by[g] ) ) c = by[g]
                  else c = by[g].charCodeAt( 0 )
                  if( is_ie ) return ie_replaceChar( w, pos, c )
                  else return replaceChar( oc, i - pos, c )
               }
            }
         }
      }
      return false
   }
   function main( w, k, i, a )
   {
      var uk = up( k ), bya = new Array( db1, ab1, eb1, ob1, mocb1, trangb1 ), got = false, t = "d,D,a,A,a,A,o,O,u,U,e,E,o,O".split( "," )
      var sfa = new Array( ds1, as1, es1, os1, mocs1, trangs1 ), by = new Array(), sf = new Array()
      if( ( method == 2 ) || ( ( method == 0 ) && ( a[0] == "9" ) ) )
      {
         DAWEO = "6789";
         SFJRX = "12534";
         S = "1";
         F = "2";
         J = "5";
         R = "3";
         X = "4";
         Z = "0";
         D = "9";
         FRX = "234";
         AEO = "6";
         moc = "7";
         trang = "8";
         them = "678";
         A = "^";
         E = "^";
         O = "^"
      }
      else if( method == 3 )
      {
         DAWEO = "^+(D";
         SFJRX = "'`.?~";
         S = "'";
         F = "`";
         J = ".";
         R = "?";
         X = "~";
         Z = "-";
         D = "D";
         FRX = "`?~";
         AEO = "^";
         moc = "+";
         trang = "(";
         them = "^+(";
         A = "^";
         E = "^";
         O = "^"
      }
      else if( method == 4 )
      {
         DAWEO = "^*(D";
         SFJRX = "'`.?~";
         S = "'";
         F = "`";
         J = ".";
         R = "?";
         X = "~";
         Z = "-";
         D = "D";
         FRX = "`?~";
         AEO = "^";
         moc = "*";
         trang = "(";
         them = "^*(";
         A = "^";
         E = "^";
         O = "^"
      }
      else if( ( method == 1 ) || ( ( method == 0 ) && ( a[0] == "D" ) ) )
      {
         SFJRX = "SFJRX";
         DAWEO = "DAWEO";
         D = 'D';
         S = 'S';
         F = 'F';
         J = 'J';
         R = 'R';
         X = 'X';
         Z = 'Z';
         FRX = "FRX";
         them = "AOEW";
         trang = "W";
         moc = "W";
         A = "A";
         E = "E";
         O = "O"
      }
      if( SFJRX.indexOf( uk ) >= 0 )
      {
         var ret = sr( w, k, i );
         got = true
         if( ret ) return ret
      }
      else if( uk == Z )
      {
         sf = repSign( null )
         for( h = 0; h < english.length; h ++ )
         {
            sf[sf.length] = lowen.charCodeAt( h )
            sf[sf.length] = english.charCodeAt( h )
         }
         for( h = 0; h < 5; h ++ ) for( g = 0; g < skey.length; g ++ ) by[by.length] = skey[g]
         for( h = 0; h < t.length; h ++ ) by[by.length] = t[h]
         got = true
      }
      else for( h = 0; h < a.length; h ++ ) if( a[h] == uk )
      {
         got = true;
         by = by.concat( bya[h] );
         sf = sf.concat( sfa[h] )
      }
      if( uk == moc ) whit = true;
      if( ! got ) return normC( w, k, i )
      return DAWEOZ( k, w, by, sf, i, uk )
   }
   function DAWEOZ( k, w, by, sf, i, uk )
   {
      if( ( DAWEO.indexOf( uk ) >= 0 ) || ( Z.indexOf( uk ) >= 0 ) ) return tr( k, w, by, sf, i )
   }
   function normC( w, k, i )
   {
      var uk = up( k ), u = repSign( null ), fS, c, j, space = ( k.charCodeAt( 0 ) == 32 ) ? true : false
      if( ( ! is_ie ) && ( space ) ) return
      for( j = 1; j <= w.length; j ++ )
      {
         for( h = 0; h < u.length; h ++ )
         {
            if( u[h] == w.charCodeAt( w.length - j ) )
            {
               if( h <= 23 ) fS = S
               else if( h <= 47 ) fS = F
               else if( h <= 71 ) fS = J
               else if( h <= 95 ) fS = R
               else fS = X
               c = skey[h % 24];
               if( ( alphabet.indexOf( uk ) < 0 ) && ( D2.indexOf( uk ) < 0 ) ) return w;
               w = unV( w )
               if( ( ! space ) && ( ! changed ) ) w += k
               if( ! is_ie )
               {
                  var sp = oc.selectionStart, pos = sp
                  if( ! changed )
                  {
                     var sst = oc.scrollTop;
                     pos += k.length
                     if( ! oc.data )
                     {
                        oc.value = oc.value.substr( 0, sp ) + k + oc.value.substr( oc.selectionEnd );
                        changed = true;
                        oc.scrollTop = sst
                     }
                     else
                     {
                        oc.insertData( oc.pos, k );
                        range.setEnd( oc, oc.pos + 1 );
                        oc.pos ++ ;
                        changed = true
                     }
                  }
                  if( ! oc.data ) oc.setSelectionRange( pos, pos )
                  if( ! ckspell( w, fS ) )
                  {
                     replaceChar( oc, i - j, c )
                     if( ! oc.data )
                     {
                        var a = new Array( D )
                        main( w, fS, pos, a )
                     }
                     else
                     {
                        var ww = mozGetText( oc )
                        var a = new Array( D )
                        main( ww[0], fS, ww[1], a )
                     }
                  }
               }
               else
               {
                  var ret = sr( w, fS, 0 )
                  if( ( space ) && ( ret ) ) ret += fcc( 32 )
                  if( ret ) return ret
               }
            }
         }
      }
   }
   function nospell( w, k )
   {
      return false
   }
   function ckspell( w, k )
   {
      w = unV( w );
      var exc = "UOU,IEU".split( ',' ), z, next = true, noE = "UU,UOU,UOI,IEU,AO,IA,AI,AY,AU,AO".split( ',' ), noBE = "YEU", test, a, b
      var check = true, noM = "UE,UYE,IU,EU,UY".split( ',' ), noMT = "AY,AU".split( ',' ), noT = "UA", t = - 1, notV2 = "IAO"
      var uw = up( w ), tw = uw, update = false, gi = "IO", noAOEW = "OE,OO,AO,EO,IA,AI".split( ',' ), noAOE = "OA"
      var notViet = "AA,AE,EE,OU,YY,YI,IY,EY,EA,EI,II,IO,YO,YA,OOO".split( ',' ), uk = up( k ), twE, uw2 = unV2( uw )
      var vSConsonant = "B,C,D,G,H,K,L,M,N,P,Q,R,S,T,V,X".split( ',' ), vDConsonant = "CH,GI,KH,NGH,GH,NG,NH,PH,QU,TH,TR".split( ',' )
      var vDConsonantE = "CH,NG,NH".split( ',' ), sConsonant = "C,P,T,CH".split( ',' ), vSConsonantE = "C,M,N,P,T".split( ',' )
      var noNHE = "O,U,IE,Ô,Ơ,Ư,IÊ,Ă,Â,UYE,UYÊ,UO,ƯƠ,ƯO,UƠ,UA,ƯA,OĂ,OE,OÊ".split( ',' ), oMoc = "UU,UOU".split( ',' )
      if( FRX.indexOf( uk ) >= 0 ) for( a = 0; a < sConsonant.length; a ++ ) if( uw.substr( uw.length - sConsonant[a].length, sConsonant[a].length ) == sConsonant[a] ) return true
      for( a = 0; a < uw.length; a ++ )
      {
         if( "FJZW1234567890".indexOf( uw.substr( a, 1 ) ) >= 0 ) return true
         for( b = 0; b < notViet.length; b ++ )
         {
            if( uw2.substr( a, notViet[b].length ) == notViet[b] )
            {
               for( z = 0; z < exc.length; z ++ ) if( uw2.indexOf( exc[z] ) >= 0 ) next = false
               if( ( next ) && ( ( gi.indexOf( notViet[b] ) < 0 ) || ( a <= 0 ) || ( uw2.substr( a - 1, 1 ) != 'G' ) ) ) return true
            }
         }
      }
      for( b = 0; b < vDConsonant.length; b ++ ) if( tw.indexOf( vDConsonant[b] ) == 0 )
      {
         tw = tw.substr( vDConsonant[b].length );
         update = true;
         t = b;
         break
      }
      if( ! update ) for( b = 0; b < vSConsonant.length; b ++ ) if( tw.indexOf( vSConsonant[b] ) == 0 )
      {
         tw = tw.substr( 1 );
         break
      }
      update = false;
      twE = tw
      for( b = 0; b < vDConsonantE.length; b ++ )
      {
         if( tw.substr( tw.length - vDConsonantE[b].length ) == vDConsonantE[b] )
         {
            tw = tw.substr( 0, tw.length - vDConsonantE[b].length )
            if( b == 2 )
            {
               for( z = 0; z < noNHE.length; z ++ ) if( tw == noNHE[z] ) return true
               if( ( uk == trang ) && ( ( tw == "OA" ) || ( tw == "A" ) ) ) return true
            }
            update = true;
            break
         }
      }
      if( ! update ) for( b = 0; b < vSConsonantE.length; b ++ ) if( tw.substr( tw.length - 1 ) == vSConsonantE[b] )
      {
         tw = tw.substr( 0, tw.length - 1 );
         break
      }
      if( tw )
      {
         for( a = 0; a < vDConsonant.length; a ++ )
         {
            for( b = 0; b < tw.length; b ++ )
            {
               if( tw.substr( b, vDConsonant[a].length ) == vDConsonant[a] ) return true
            }
         }
         for( a = 0; a < vSConsonant.length; a ++ )
         {
            if( tw.indexOf( vSConsonant[a] ) >= 0 ) return true
         }
      }
      test = tw.substr( 0, 1 )
      if( ( t == 3 ) && ( ( test == "A" ) || ( test == "O" ) || ( test == "U" ) || ( test == "Y" ) ) ) return true
      if( ( t == 5 ) && ( ( test == "E" ) || ( test == "I" ) || ( test == "Y" ) ) ) return true
      uw2 = unV2( tw )
      if( uw2 == notV2 ) return true
      if( tw != twE ) for( z = 0; z < noE.length; z ++ ) if( uw2 == noE[z] ) return true
      if( ( tw != uw ) && ( uw2 == noBE ) ) return true
      if( uk != moc ) for( z = 0; z < oMoc.length; z ++ ) if( tw == oMoc[z] ) return true
      if( ( uw2.indexOf( 'UYE' ) > 0 ) && ( uk == 'E' ) ) check = false
      if( ( them.indexOf( uk ) >= 0 ) && ( check ) )
      {
         for( a = 0; a < noAOEW.length; a ++ ) if( uw2.indexOf( noAOEW[a] ) >= 0 ) return true
         if( uk != trang ) if( uw2 == noAOE ) return true
         if( ( uk == trang ) && ( trang != 'W' ) ) if( uw2 == noT ) return true
         if( uk == moc ) for( a = 0; a < noM.length; a ++ ) if( uw2 == noM[a] ) return true
         if( ( uk == moc ) || ( uk == trang ) ) for( a = 0; a < noMT.length; a ++ ) if( uw2 == noMT[a] ) return true
      }
      tw5 = tw
      if( ( uw2.charCodeAt( 0 ) == 272 ) || ( uw2.charCodeAt( 0 ) == 273 ) )
      {
         if( uw2.length > 4 ) return true
      }
      else if( uw2.length > 3 ) return true
      return false
   }
   function DAWEOF( cc, k )
   {
      var ret = new Array(), kA = new Array( A, moc, trang, E, O ), z, a;
      ret[0] = g
      var ccA = new Array( aA, mocA, trangA, eA, oA ), ccrA = new Array( arA, mocrA, arA, erA, orA )
      for( a = 0; a < kA.length; a ++ ) if( k == kA[a] ) for( z = 0; z < ccA[a].length; z ++ ) if( cc == ccA[a][z] ) ret[1] = ccrA[a][z]
      if( ret[1] ) return ret
      else return false
   }
   function findC( w, k, sf )
   {
      if( ( ( method == 3 ) || ( method == 4 ) ) && ( w.substr( w.length - 1, 1 ) == "\\" ) ) return new Array( 1, k.charCodeAt( 0 ) )
      var str = "", res, cc = "", pc = "", tE = "", vowA = new Array(), s = "ÂĂÊÔƠƯêâăơôư", c = 0, dn = false, uw = up( w ), tv;
      spellerr( w, k )
      var DAWEOFA = aA.join() + eA.join() + mocA.join() + trangA.join() + oA.join() + english;
      DAWEOFA = up( DAWEOFA )
      for( g = 0; g < sf.length; g ++ )
      {
         if( nan( sf[g] ) ) str += sf[g]
         else str += fcc( sf[g] )
      }
      var uk = up( k ), i = w.length, uni_array = repSign( k ), w2 = up( unV2( unV( w ) ) ), dont = "ƯA,ƯU".split( ',' )
      if ( DAWEO.indexOf( uk ) >= 0 )
      {
         if( uk == moc )
         {
            if( ( w2.indexOf( "UU" ) >= 0 ) && ( tw5 != dont[1] ) )
            {
               if( w2.indexOf( "UU" ) == ( w.length - 2 ) ) res = 2
               else return false
            }
            else if( w2.indexOf( "UOU" ) >= 0 )
            {
               if( w2.indexOf( "UOU" ) == ( w.length - 3 ) ) res = 2
               else return false
            }
         }
         if( ! res )
         {
            for( g = 1; g <= w.length; g ++ )
            {
               cc = w.substr( w.length - g, 1 )
               pc = up( w.substr( w.length - g - 1, 1 ) )
               uc = up( cc )
               for( h = 0; h < dont.length; h ++ ) if( ( tw5 == dont[h] ) && ( tw5 == unV( pc + uc ) ) ) dn = true
               if( dn )
               {
                  dn = false;
                  continue
               }
               if( str.indexOf( uc ) >= 0 )
               {
                  if( ( ( uk == moc ) && ( unV( uc ) == "U" ) && ( up( unV( w.substr( w.length - g + 1, 1 ) ) ) == "A" ) ) || ( ( uk == trang ) && ( unV( uc ) == 'A' ) && ( unV( pc ) == 'U' ) ) )
                  {
                     if( unV( uc ) == "U" ) tv = 1
                     else tv = 2
                     ccc = up( w.substr( w.length - g - tv, 1 ) )
                     if( ccc != "Q" ) res = g + tv - 1
                     else if( uk == trang ) res = g
                     else if( moc != trang ) return false
                  }
                  else res = g
                  if( ( ! whit ) || ( uw.indexOf( "Ư" ) < 0 ) || ( uw.indexOf( "W" ) < 0 ) )
                  break
               }
               else if( DAWEOFA.indexOf( uc ) >= 0 )
               {
                  if( uk == D )
                  {
                     if( cc == "đ" ) res = new Array( g, 'd' )
                     else if( cc == "Đ" ) res = new Array( g, 'D' )
                  }
                  else res = DAWEOF( cc, uk )
                  if( res )
                  break
               }
            }
         }
      }
      if( ( uk != Z ) && ( DAWEO.indexOf( uk ) < 0 ) )
      {
         var tEC = retKC( uk );
         for ( g = 0; g < tEC.length; g ++ ) tE += fcc( tEC[g] )
      }
      for( g = 1; g <= w.length; g ++ )
      {
         if( DAWEO.indexOf( uk ) < 0 )
         {
            cc = up( w.substr( w.length - g, 1 ) )
            pc = up( w.substr( w.length - g - 1, 1 ) )
            if( str.indexOf( cc ) >= 0 )
            {
               if( cc == 'U' )
               {
                  if( pc != 'Q' )
                  {
                     c ++ ;
                     vowA[vowA.length] = g
                  }
               }
               else if( cc == 'I' )
               {
                  if( ( pc != 'G' ) || ( c <= 0 ) )
                  {
                     c ++ ;
                     vowA[vowA.length] = g
                  }
               }
               else
               {
                  c ++ ;
                  vowA[vowA.length] = g
               }
            }
            else if( uk != Z )
            {
               for( h = 0; h < uni_array.length; h ++ ) if( uni_array[h] == w.charCodeAt( w.length - g ) )
               {
                  if( spellerr( w, k ) ) return false
                  return new Array( g, tEC[h % 24] )
               }
               for( h = 0; h < tEC.length; h ++ ) if( tEC[h] == w.charCodeAt( w.length - g ) ) return new Array( g, fcc( skey[h] ) )
            }
         }
      }
      if( ( uk != Z ) && ( typeof( res ) != 'object' ) ) if( spellerr( w, k ) ) return false
      if( DAWEO.indexOf( uk ) < 0 )
      {
         for( g = 1; g <= w.length; g ++ )
         {
            if( ( uk != Z ) && ( s.indexOf( w.substr( w.length - g, 1 ) ) >= 0 ) ) return g
            else if( tE.indexOf( w.substr( w.length - g, 1 ) ) >= 0 )
            {
               for( h = 0; h < tEC.length; h ++ )
               {
                  if( w.substr( w.length - g, 1 ).charCodeAt( 0 ) == tEC[h] ) return new Array( g, fcc( skey[h] ) )
               }
            }
         }
      }
      if( res ) return res
      if( ( c == 1 ) || ( uk == Z ) ) return vowA[0]
      else if( c == 2 )
      {
         var v = 2
         if( w.substr( w.length - 1 ) == " " ) v = 3
         var ttt = up( w.substr( w.length - v, 2 ) )
         if( ( dauCu == 0 ) && ( ( ttt == "UY" ) || ( ttt == "OA" ) || ( ttt == "OE" ) ) ) return vowA[0]
         var c2 = 0, fdconsonant, sc = "BCD" + fcc( 272 ) + "GHKLMNPQRSTVX", dc = "CH,GI,KH,NGH,GH,NG,NH,PH,QU,TH,TR".split( ',' )
         for( h = 1; h <= w.length; h ++ )
         {
            fdconsonant = false
            for( g = 0; g < dc.length; g ++ )
            {
               if( up( w.substr( w.length - h - dc[g].length + 1, dc[g].length ) ).indexOf( dc[g] ) >= 0 )
               {
                  c2 ++ ;
                  fdconsonant = true
                  if( dc[g] != 'NGH' ) h ++
                  else h += 2
               }
            }
            if( ! fdconsonant )
            {
               if( sc.indexOf( up( w.substr( w.length - h, 1 ) ) ) >= 0 ) c2 ++
               else
               break
            }
         }
         if( ( c2 == 1 ) || ( c2 == 2 ) ) return vowA[0]
         else return vowA[1]
      }
      else if( c == 3 ) return vowA[1]
      else return false
   }
   function unV( w )
   {
      var u = repSign( null ), b, a
      for( a = 1; a <= w.length; a ++ )
      {
         for( b = 0; b < u.length; b ++ )
         {
            if( u[b] == w.charCodeAt( w.length - a ) )
            {
               w = w.substr( 0, w.length - a ) + fcc( skey[b % 24] ) + w.substr( w.length - a + 1 )
            }
         }
      }
      return w
   }
   function unV2( w )
   {
      var a, b
      for( a = 1; a <= w.length; a ++ )
      {
         for( b = 0; b < skey.length; b ++ )
         {
            if( skey[b] == w.charCodeAt( w.length - a ) ) w = w.substr( 0, w.length - a ) + skey2[b] + w.substr( w.length - a + 1 )
         }
      }
      return w
   }
   function repSign( k )
   {
      var t = new Array(), u = new Array(), a, b
      for( a = 0; a < 5; a ++ )
      {
         if( ( k == null ) || ( SFJRX.substr( a, 1 ) != up( k ) ) )
         {
            t = retKC( SFJRX.substr( a, 1 ) )
            for( b = 0; b < t.length; b ++ ) u[u.length] = t[b]
         }
      }
      return u
   }
   function sr( w, k, i )
   {
      var sf = getSF()
      pos = findC( w, k, sf )
      if( pos )
      {
         if( pos[1] )
         {
            if( ! is_ie ) replaceChar( oc, i - pos[0], pos[1] )
            else return ie_replaceChar( w, pos[0], pos[1] )
         }
         else
         {
            var c = retUni( w, k, pos )
            if ( ! is_ie ) replaceChar( oc, i - pos, c )
            else return ie_replaceChar( w, pos, c )
         }
      }
      return false
   }
   function retUni( w, k, pos )
   {
      var u = retKC( up( k ) ), uC, lC, c = w.charCodeAt( w.length - pos ), a
      for( a = 0; a < skey.length; a ++ ) if( skey[a] == c )
      {
         if( a < 12 )
         {
            lC = a;
            uC = a + 12
         }
         else
         {
            lC = a - 12;
            uC = a
         }
         t = fcc( c );
         if( t != up( t ) ) return u[lC]
         return u[uC]
      }
   }
   function replaceChar( o, pos, c )
   {
      var bb = false;
      if( ! nan( c ) )
      {
         var replaceBy = fcc( c ), wfix = up( unV( fcc( c ) ) );
         changed = true
      }
      else
      {
         var replaceBy = c;
         if( ( up( c ) == "O" ) && ( whit ) ) bb = true
      }
      if( ! o.data )
      {
         var savePos = o.selectionStart, sst = o.scrollTop
         if ( ( up( o.value.substr( pos - 1, 1 ) ) == 'U' ) && ( pos < savePos - 1 ) && ( up( o.value.substr( pos - 2, 1 ) ) != 'Q' ) )
         {
            if( ( wfix == "Ơ" ) || ( bb ) )
            {
               if ( o.value.substr( pos - 1, 1 ) == 'u' ) var r = fcc( 432 )
               else var r = fcc( 431 )
            }
            if( bb )
            {
               changed = true;
               if( c == "o" ) replaceBy = "ơ"
               else replaceBy = "Ơ"
            }
         }
         o.value = o.value.substr( 0, pos ) + replaceBy + o.value.substr( pos + 1 )
         if( r ) o.value = o.value.substr( 0, pos - 1 ) + r + o.value.substr( pos )
         o.setSelectionRange( savePos, savePos );
         o.scrollTop = sst
      }
      else
      {
         if ( ( up( o.data.substr( pos - 1, 1 ) ) == 'U' ) && ( pos < o.pos - 1 ) )
         {
            if( ( wfix == "Ơ" ) || ( bb ) )
            {
               if ( o.data.substr( pos - 1, 1 ) == 'u' ) var r = fcc( 432 )
               else var r = fcc( 431 )
            }
            if( bb )
            {
               changed = true;
               if( c == "o" ) replaceBy = "ơ"
               else replaceBy = "Ơ"
            }
         }
         o.deleteData( pos, 1 );
         o.insertData( pos, replaceBy )
         if( r )
         {
            o.deleteData( pos - 1, 1 );
            o.insertData( pos - 1, r )
         }
      }
      if( whit ) whit = false
   }
   function retKC( k )
   {
      if( k == S ) return new Array( 225, 7845, 7855, 233, 7871, 237, 243, 7889, 7899, 250, 7913, 253, 193, 7844, 7854, 201, 7870, 205, 211, 7888, 7898, 218, 7912, 221 )
      if( k == F ) return new Array( 224, 7847, 7857, 232, 7873, 236, 242, 7891, 7901, 249, 7915, 7923, 192, 7846, 7856, 200, 7872, 204, 210, 7890, 7900, 217, 7914, 7922 )
      if( k == J ) return new Array( 7841, 7853, 7863, 7865, 7879, 7883, 7885, 7897, 7907, 7909, 7921, 7925, 7840, 7852, 7862, 7864, 7878, 7882, 7884, 7896, 7906, 7908, 7920, 7924 )
      if( k == R ) return new Array( 7843, 7849, 7859, 7867, 7875, 7881, 7887, 7893, 7903, 7911, 7917, 7927, 7842, 7848, 7858, 7866, 7874, 7880, 7886, 7892, 7902, 7910, 7916, 7926 )
      if( k == X ) return new Array( 227, 7851, 7861, 7869, 7877, 297, 245, 7895, 7905, 361, 7919, 7929, 195, 7850, 7860, 7868, 7876, 296, 213, 7894, 7904, 360, 7918, 7928 )
   }
   function getEL( id )
   {
      return document.getElementById( id )
   }
   function getSF()
   {
      var sf = new Array(), x;
      for( x = 0; x < skey.length; x ++ ) sf[sf.length] = fcc( skey[x] );
      return sf
   }
   function statusMessage()
   {
      var str = 'Kiểu gõ: '
      if( on_off == 0 ) str += 'Tắt'
      else if( method == 1 ) str += 'TELEX'
      else if( method == 2 ) str += 'VNI'
      else if( method == 3 ) str += 'VIQR'
      else if( method == 4 ) str += 'VIQR*'
      else if( method == 0 ) str += 'Tự động'
      if( isKHTML ) str += " [Alt-F9]"
      else str += " [F9]"
      str += " | Chính tả: "
      str += ( dockspell == 0 ) ? "Tắt" : "Bật"
      if( isKHTML ) str += " [Alt-F8]"
      else str += " [F8]"
      str += " | Bỏ dấu: "
      str += ( dauCu == 1 ) ? "Cũ" : "Mới"
      if( isKHTML ) str += " [Alt-F7]"
      else str += " [F7]"
      str += " | Bật/Tắt [F12] - AVIM 2007"
      window.status = str
   }
   function updateInfo()
   {
      setCookie();
      if( support ) statusMessage()
   }
   function setMethod( m )
   {
      if( m == - 1 )
      {
         on_off = 0;
         if( getEL( radioID[5] ) ) getEL( radioID[5] ).checked = true
      }
      else
      {
         on_off = 1;
         method = m;
         if( getEL( radioID[m] ) ) getEL( radioID[m] ).checked = true
      }
      setSpell( dockspell );
      setDauCu( dauCu );
      updateInfo()
   }
   function setDauCu( box )
   {
      if( typeof( box ) == "number" )
      {
         dauCu = box;
         if( getEL( radioID[7] ) ) getEL( radioID[7] ).checked = box
      }
      else dauCu = ( box.checked ) ? 1 : 0
      updateInfo()
   }
   function setSpell( box )
   {
      if( typeof( box ) == "number" )
      {
         spellerr = ( box == 1 ) ? ckspell : nospell
         if( getEL( radioID[6] ) ) getEL( radioID[6] ).checked = box
      }
      else
      {
         if( box.checked )
         {
            spellerr = ckspell;
            dockspell = 1
         }
         else
         {
            spellerr = nospell;
            dockspell = 0
         }
      }
      updateInfo()
   }
   function onKeyDown( e )
   {
      if ( e == 'iframe' )
      {
         frame = findF();
         var key = frame.event.keyCode
      }
      else var key = ( ! is_ie ) ? e.which : window.event.keyCode
      if( ( key == 120 ) || ( key == 123 ) || ( key == 119 ) || ( key == 118 ) )
      {
         if( key == 120 )
         {
            on_off = 1;
            setMethod( ( ( method == 4 ) ? 0 : ++ method ) )
         }
         else if( key == 118 )
         {
            setDauCu( ( ( dauCu == 1 ) ? 0 : 1 ) )
         }
         else if( key == 119 )
         {
            dockspell = ( dockspell == 0 ) ? 1 : 0;
            setSpell( dockspell )
         }
         else if( key == 123 )
         {
            on_off = ( on_off == 0 ) ? 1 : 0
            if( on_off == 0 ) setMethod( - 1 )
            else setMethod( method )
         }
         updateInfo()
      }
   }
   function ifInit( w )
   {
      var sel = w.getSelection();
      w.focus()
      range = sel ? sel.getRangeAt( 0 ) : document.createRange()
   }
   function ifMoz( e )
   {
      if( ( e.ctrlKey ) || ( ( e.altKey ) && ( code != 92 ) && ( code != 126 ) ) ) return;
      ifInit( e.target.parentNode.wi )
      var code = e.which, node = range.endContainer;
      sk = fcc( code );
      saveStr = ""
      if( checkCode( code ) || ( ! range.startOffset ) || ( typeof( node.data ) == 'undefined' ) ) return;
      node.sel = false
      if( node.data )
      {
         saveStr = node.data.substr( range.endOffset )
         if( range.startOffset != range.endOffset ) node.sel = true
         node.deleteData( range.startOffset, node.data.length )
      }
      range.setEnd( node, range.endOffset )
      range.setStart( node, 0 )
      if( ! node.data ) return
      node.value = node.data;
      node.pos = node.data.length;
      node.which = code
      start( node, e )
      node.insertData( node.data.length, saveStr )
      range.setEnd( node, node.data.length - saveStr.length + kl )
      range.setStart( node, node.data.length - saveStr.length + kl );
      kl = 0
      if( changed )
      {
         changed = false;
         e.preventDefault()
      }
   }
   function FKeyPress()
   {
      var obj = findF()
      sk = fcc( obj.event.keyCode )
      if( checkCode( obj.event.keyCode ) || ( ( obj.event.ctrlKey ) && ( obj.event.keyCode != 92 ) && ( obj.event.keyCode != 126 ) ) ) return
      start( obj, fcc( obj.event.keyCode ) )
   }
   function checkCode( code )
   {
      if( ( ( on_off == 0 ) || ( ( code < 45 ) && ( code != 42 ) ) || ( code == 145 ) || ( code == 255 ) ) && ( code != 32 ) && ( code != 39 ) && ( code != 40 ) && ( code != 43 ) ) return true
   }
   function fcc( x )
   {
      return String.fromCharCode( x )
   }
   if( useCookie == 1 )
   {
      setCookie = doSetCookie;
      getCookie = doGetCookie
   }
   else
   {
      setCookie = noCookie;
      getCookie = noCookie
   }
   function noCookie()
   {
   }
   function doSetCookie()
   {
      var exp = new Date( 11245711156480 ).toGMTString()
      document.cookie = 'HIM_on_off=' + on_off + ';expires=' + exp
      document.cookie = 'HIM_method=' + method + ';expires=' + exp
      document.cookie = 'HIM_ckspell=' + dockspell + ';expires=' + exp
      document.cookie = 'HIM_daucu=' + dauCu + ';expires=' + exp
   }
   function doGetCookie()
   {
      var ck = document.cookie, res = /HIM_method/.test( ck )
      if( ( ! res ) || ( ck.indexOf( 'HIM_ckspell' ) < 0 ) )
      {
         setCookie();
         return
      }
      var p, ckA = ck.split( ';' )
      for( var i = 0; i < ckA.length; i ++ )
      {
         p = ckA[i].split( '=' );
         p[0] = p[0].replace( /^\s+/g, "" );
         p[1] = parseInt( p[1] )
         if( p[0] == 'HIM_on_off' ) on_off = p[1]
         else if( p[0] == 'HIM_method' ) method = p[1]
         else if( p[0] == 'HIM_ckspell' )
         {
            if( p[1] == 0 )
            {
               dockspell = 0;
               spellerr = nospell
            }
            else
            {
               dockspell = 1;
               spellerr = ckspell
            }
         }
         else if( p[0] == 'HIM_daucu' ) dauCu = parseInt( p[1] )
      }
   }
   if( ! is_ie )
   {
      if( agt.indexOf( "opera" ) >= 0 )
      {
         operaV = agt.split( " " )
         if( parseInt( operaV[operaV.length - 1] ) >= 8 ) is_opera = true
         else
         {
            operaV = operaV[0].split( "/" )
            if( parseInt( operaV[1] ) >= 8 ) is_opera = true
         }
      }
      else if( agt.indexOf( "khtml" ) >= 0 ) isKHTML = true
      else
      {
         ver = agt.substr( agt.indexOf( "rv:" ) + 3 )
         ver = parseFloat( ver.substr( 0, ver.indexOf( " " ) ) )
         if( agt.indexOf( "mozilla" ) < 0 ) ver = 0
      }
   }
   function up( w )
   {
      w = w.toUpperCase()
      if( isKHTML )
      {
         str = "êôơâăưếốớấắứềồờầằừễỗỡẫẵữệộợậặự", rep = "ÊÔƠÂĂƯẾỐỚẤẮỨỀỒỜẦẰỪỄỖỠẪẴỮỆỘỢẶỰ"
         for( z = 0; z < w.length; z ++ )
         {
            io = str.indexOf( w.substr( z, 1 ) )
            if( io >= 0 ) w = w.substr( 0, z ) + rep.substr( io, 1 ) + w.substr( z + 1 )
         }
      }
      return w
   }
   function findIgnore( el )
   {
      for( i = 0; i < va.length; i ++ ) if( ( el.id == va[i] ) && ( va[i].length > 0 ) ) return true
   }
   if( ( is_ie ) || ( ver >= 1.3 ) || ( is_opera ) || ( isKHTML ) )
   {
      getCookie()
      if( on_off == 0 ) setMethod( - 1 )
      else setMethod( method )
      setSpell( dockspell );
      setDauCu( dauCu );
      statusMessage()
   }
   else support = false
   document.onkeydown = function( e )
   {
      onKeyDown( e )
   }
   document.onkeypress = function( e )
   {
      if( ! support ) return
      if( ! is_ie )
      {
         var el = e.target, code = e.which;
         if( e.ctrlKey ) return;
         if( ( e.altKey ) && ( code != 92 ) && ( code != 126 ) ) return
      }
      else
      {
         var el = window.event.srcElement, code = window.event.keyCode;
         if( ( event.ctrlKey ) && ( code != 92 ) && ( code != 126 ) ) return
      }
      if( ( ( el.type != 'textarea' ) && ( el.type != 'text' ) ) || checkCode( code ) ) return
      sk = fcc( code );
      if ( findIgnore( el ) ) return
      if( ! is_ie ) start( el, e )
      else start( el, sk )
      if( changed )
      {
         changed = false;
         return false
      }
   }
   function findF()
   {
      for( g = 0; g < fID.length; g ++ )
      {
         if( findIgnore( fID[g] ) ) return;
         frame = document.frames[fID[g].id]
         if( ( typeof( frame ) != 'undefined' ) && ( frame.document ) && ( frame.event ) ) return frame
      }
   }
   function init()
   {
      if( ( support ) && ( ! is_opera ) && ( ! isKHTML ) )
      {
         for( g = 0; g < fID.length; g ++ )
         {
            if( is_ie )
            {
               if( findIgnore( fID[g] ) ) return;
               frame = document.frames[fID[g].id]
               if ( ( typeof( frame ) != 'undefined' ) && ( frame.document ) ) doc = frame.document
               if( ( doc ) && ( up( doc.designMode ) == "ON" ) )
               {
                  doc.onkeydown = function()
                  {
                     onKeyDown( 'iframe' )
                  }
                  doc.onkeypress = function()
                  {
                     FKeyPress();
                     if( changed )
                     {
                        changed = false;
                        return false
                     }
                  }
               }
            }
            else
            {
               if( findIgnore( fID[g] ) ) return;
               wi = fID[g].contentWindow;
               iframedit = wi.document;
               iframedit.wi = wi
               if( up( iframedit.designMode ) == "ON" )
               {
                  iframedit.addEventListener( "keypress", ifMoz, false )
                  iframedit.addEventListener( "keydown", onKeyDown, true )
               }
            }
         }
      }
   }
   function uglyF()
   {
      ugly = 50;
      while( ugly < 5000 )
      {
         setTimeout( "init()", ugly );
         ugly += 50
      }
   }
   uglyF();
   document.onmousedown = function( e )
   {
      uglyF()
   }