dim mode
  mode=1
  sub ParsiKeyDown()
    if (window.event.keyCode=123) 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
  sub ParsiKeyPress()
    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" : window.event.keyCode = 0145
        case "f" : window.event.keyCode = 1576
        case "`" : window.event.keyCode = 1662
        case "~" : window.event.keyCode = 1617
        case "J" : window.event.keyCode = 0148
        case "j" : window.event.keyCode = 1578
        case "E" : window.event.keyCode = 1615
        case "e" : window.event.keyCode = 1579
        case "[" : window.event.keyCode = 1580
        case "]" : window.event.keyCode = 1670
        case "P" : window.event.keyCode = 8205
        case "p" : window.event.keyCode = 1581
        case "O" : window.event.keyCode = 0247
        case "o" : window.event.keyCode = 1582
        case "N" : window.event.keyCode = 1573
        case "n" : window.event.keyCode = 1583
        case "B" : window.event.keyCode = 1571
        case "b" : window.event.keyCode = 1584
        case "V" : window.event.keyCode = 0139
        case "v" : window.event.keyCode = 1585
        case "C" : window.event.keyCode = 0155
        case "c" : window.event.keyCode = 1586
        case "\" : window.event.keyCode = 1688
        case "S" : window.event.keyCode = 1613
        case "s" : window.event.keyCode = 1587
        case "A" : window.event.keyCode = 1616
        case "a" : window.event.keyCode = 1588
        case "W" : window.event.keyCode = 1611
        case "w" : window.event.keyCode = 1589
        case "Q" : window.event.keyCode = 1614
        case "q" : window.event.keyCode = 1590
        case "X" : window.event.keyCode = 0171
        case "x" : window.event.keyCode = 1591
        case "Z" : window.event.keyCode = 0187
        case "z" : window.event.keyCode = 1592
        case "U" : window.event.keyCode = 1618
        case "u" : window.event.keyCode = 1593
        case "Y" : window.event.keyCode = 8206
        case "y" : window.event.keyCode = 1594
        case "T" : window.event.keyCode = 8207
        case "t" : window.event.keyCode = 1601
        case "R" : window.event.keyCode = 1612
        case "r" : window.event.keyCode = 1602
        case ";" : window.event.keyCode = 1603
        case "'" : window.event.keyCode = 1711
        case "G" : window.event.keyCode = 1604
        case "g" : window.event.keyCode = 1604
        case "l" : window.event.keyCode = 1605
        case "K" : window.event.keyCode = 0147
        case "k" : window.event.keyCode = 1606
        case "," : window.event.keyCode = 1608
        case "I" : window.event.keyCode = 1577
        case "i" : window.event.keyCode = 1607
        case "D" : window.event.keyCode = 1609
        case "d" : window.event.keyCode = 1610
        case "M" : window.event.keyCode = 1569
        case "m" : window.event.keyCode = 1574
        case "L" : window.event.keyCode = 1548
		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
	case "<" : window.event.keyCode = 1572
	case ">" : window.event.keyCode = 1548
	case "?" : window.event.keyCode = 1567
	case """" : window.event.keyCode = 1563
      end select
    end if
    window.event.returnValue=TRUE
  end sub