dim mode
  dim newmode
  mode=1
  sub PCAKeyPress()
    dim key
    key=window.event.keyCode
    if key>127 then exit sub
    if (mode=1) or (newmode=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 =  1705
        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 =  1610
        case "m","M" : window.event.keyCode =  1574
      end select
	'MSGBOX (window.event.keyCode)
    end if
    window.event.returnValue=TRUE
  end sub
 sub PCAKeyDown()
    if (window.event.shiftKey and window.event.altKey) then
      if (mode=0) then
        mode=1
        'Copyright Notice: Do not delete or change  the following message
        window.defaultStatus = "Farsi Mode - Hasht.com"
      else
        mode=0
        'Copyright Notice: Do not delete or change the followin message
        window.defaultStatus = "English Mode - Hasht.com"
      end if
      window.event.returnValue=FALSE
      exit sub
    end if
    window.event.returnValue=TRUE
  end sub  
sub PCAChange()
	key=window.event.keyCode
	if key = 145 then
		if (mode=1) then
			mode=0
		elseif (mode=0) then
			mode=1
		end if
	end if
end sub