dim mode
  mode=1
  sub FarsiKeyDown()
    if (window.event.shiftKey and window.event.altKey) then
      if (mode=0) then
        mode=1
      else
        mode=0
      end if
      window.event.returnValue=FALSE
      exit sub
    end if
    window.event.returnValue=TRUE
  end sub

  ' Keyboard Mapping to Unicode characters
  sub FarsiKeyPress()
    dim key
    key=window.event.keyCode
    if key>127 then exit sub
    if (mode=1) then
      select case chr(key)
        case "H"     : window.event.keyCode =  1570
        case "h"     : window.event.keyCode =  1575
        case "f","F" : window.event.keyCode =  1576
        case "`"     : window.event.keyCode =  1662
        case "j","J" : window.event.keyCode =  1578
        case "e","E" : window.event.keyCode =  1579
        case "["     : window.event.keyCode =  1580
        case "]"     : window.event.keyCode =  1670
        case "p","P" : window.event.keyCode =  1581
        case "o","O" : window.event.keyCode =  1582
        case "n","N" : window.event.keyCode =  1583
        case "b","B" : window.event.keyCode =  1584
        case "v","V" : window.event.keyCode =  1585
        case "c","C" : window.event.keyCode =  1586
        case "\"     : window.event.keyCode =  1688
        case "s","S" : window.event.keyCode =  1587
        case "a","A" : window.event.keyCode =  1588
        case "w","W" : window.event.keyCode =  1589
        case "q","Q" : window.event.keyCode =  1590
        case "x","X" : window.event.keyCode =  1591
        case "z","Z" : window.event.keyCode =  1592
        case "u","U" : window.event.keyCode =  1593
        case "y","Y" : window.event.keyCode =  1594
        case "t","T" : window.event.keyCode =  1601
        case "r","R" : window.event.keyCode =  1602
        case ";"     : window.event.keyCode =  1603
        case "'"     : window.event.keyCode =  1711
        case "g","G" : window.event.keyCode =  1604
        case "l","L" : window.event.keyCode =  1605
        case "k"     : window.event.keyCode =  1606
        case "K"     : window.event.keyCode =  0161
        case ","     : window.event.keyCode =  1608
        case "i","I" : window.event.keyCode =  1607
        case "d"     : window.event.keyCode =  1610
        case "D"     : window.event.keyCode =  1609
        case "m","M" : window.event.keyCode =  1574
'        case "0"     : window.event.keyCode =  1776
'        case "1"     : window.event.keyCode =  1777
'        case "2"     : window.event.keyCode =  1778
'        case "3"     : window.event.keyCode =  1779
'        case "4"     : window.event.keyCode =  1780
'        case "5"     : window.event.keyCode =  1781
'        case "6"     : window.event.keyCode =  1782
'        case "7"     : window.event.keyCode =  1783
'        case "8"     : window.event.keyCode =  1784
'        case "9"     : window.event.keyCode =  1785
      end select
    end if
    window.event.returnValue=TRUE
  end sub

  ' Keyboard Mapping to Unicode characters
  sub FarsiNumKeyPress()
    dim key
    key=window.event.keyCode
    if key>127 then exit sub
    if (mode=1) then
      select case chr(key)
        case "0"     : window.event.keyCode =  key
        case "1"     : window.event.keyCode =  key
        case "2"     : window.event.keyCode =  key
        case "3"     : window.event.keyCode =  key
        case "4"     : window.event.keyCode =  key
        case "5"     : window.event.keyCode =  key
        case "6"     : window.event.keyCode =  key
        case "7"     : window.event.keyCode =  key
        case "8"     : window.event.keyCode =  key
        case "9"     : window.event.keyCode =  key
        case "."     : window.event.keyCode =  46
        case else    : window.event.keyCode =  0
      end select
    end if
    window.event.returnValue=TRUE
  end sub


  ' Keyboard Mapping to Unicode characters
  sub FarsiTelKeyPress()
    dim key
    key=window.event.keyCode
    if key>127 then exit sub
    if (mode=1) then
      select case chr(key)
        case "0"     : window.event.keyCode =  key
        case "1"     : window.event.keyCode =  key
        case "2"     : window.event.keyCode =  key
        case "3"     : window.event.keyCode =  key
        case "4"     : window.event.keyCode =  key
        case "5"     : window.event.keyCode =  key
        case "6"     : window.event.keyCode =  key
        case "7"     : window.event.keyCode =  key
        case "8"     : window.event.keyCode =  key
        case "9"     : window.event.keyCode =  key
        case "-"     : window.event.keyCode =  key
        case else    : window.event.keyCode =  0
      end select
    end if
    window.event.returnValue=TRUE
  end sub