dim mode
  mode=1
  sub PCAKeyPress()
    dim key
    key=window.event.keyCode
    if key>127 then exit sub
    if (mode=1) then
      select case chr(key)
        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 "g","G" : window.event.keyCode =  1604
        case "l","L" : window.event.keyCode =  1605
        case "k","K" : window.event.keyCode =  1606
        case "i","I" : window.event.keyCode =  1607
        case "d","D" : window.event.keyCode =  1610
        case "m","M" : window.event.keyCode =  1574
        case "H"     : window.event.keyCode =  1570
        case "h"     : window.event.keyCode =  1575
        case ";"     : window.event.keyCode =  1603
        case "'"     : window.event.keyCode =  1711
        case "<"     : window.event.keyCode =  44
        case ","     : window.event.keyCode =  1608
      end select
    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
        window.defaultStatus = "Farsi (ISN.ir)"
      else
        mode=0
        window.defaultStatus = "English (ISN.ir)"
      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