dim mode
mode=1
sub PeykKeyDown()
	if (window.event.shiftKey and window.event.altKey) then
		if (mode=0) then
			mode=1
			window.defaultStatus = "Farsi Mode"
		else
			mode=0
			window.defaultStatus = "English Mode"
		end if
		window.event.returnValue=FALSE
		exit sub
	end if
window.event.returnValue=TRUE
end sub
 'Keyboard Mapping to Unicode characters
sub PeykKeyPress()
dim key
key=window.event.keyCode
if key>127 then exit sub
if (mode=1) then
select case chr(key)
case "Q","q" : window.event.keyCode = 1603 '
case "w" : window.event.keyCode = 1589 '?
case "W" : window.event.keyCode = 1590 '?
case "e","E" : window.event.keyCode = 1602 '??
case "r","R" : window.event.keyCode = 1601 '??
case "t","T" : window.event.keyCode = 1594 '?? 
case "y","Y" : window.event.keyCode = 1593 '??
case "u","U" : window.event.keyCode = 1670 '??
case "i","I" : window.event.keyCode = 1580 '?? 
case "o","O" : window.event.keyCode = 1582 '??
case "p","P" : window.event.keyCode = 1581 '??
case "a","A" : window.event.keyCode = 1588 '??
case "s","S" : window.event.keyCode = 1587 '??
case "d" : window.event.keyCode = 1610 '? ?
case "D" : window.event.keyCode = 1609 '??
case "f","F" : window.event.keyCode = 1662 '??
case "g","G" : window.event.keyCode = 1604 '??
case "h" : window.event.keyCode = 1575 '??
case "H" : window.event.keyCode = 1570 '??
case "j" : window.event.keyCode = 1578 '??
case "J" : window.event.keyCode = 1579 '??
case "k","K" : window.event.keyCode = 1606 '??
case "l","L" : window.event.keyCode = 1605 '??
case "z","Z" : window.event.keyCode = 1711 '??
case "x" : window.event.keyCode = 1591 '??
case "X" : window.event.keyCode = 1592 '??
case "c" : window.event.keyCode = 1585 '??
case "C" : window.event.keyCode = 1688 '??
case "v" : window.event.keyCode = 1586'?? 
case "V" :window.event.keycode = 1574 '
case "b" : window.event.keyCode = 1583 '??
case "B" : window.event.keyCode = 1584 '??
case "n","N" : window.event.keyCode = 1576 ' ? ?
case "m","M" : window.event.keyCode = 1607 '??
case "," : window.event.keyCode = 1608 '??
case "0":window.event.keyCode = 1632
case "1":window.event.keyCode = 1633
case "2":window.event.keyCode = 1634
case "3":window.event.keyCode = 1635
case "4":window.event.keyCode = 1636
case "5":window.event.keyCode = 1781
case "6":window.event.keyCode = 1638
case "7":window.event.keyCode = 1639
case "8":window.event.keyCode = 1640
case "9":window.event.keyCode = 1641
end select
end if
window.event.returnValue=TRUE
end sub

sub MapPress(byval button)
dim FlagNewChar
	if window.event.shiftKey=true and button=1575 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button-5)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button-5)
		end if

	elseif window.event.shiftKey=true and button<>1575 and button<>1610 and button<>1585 and button<>1586 and 	button<>1632 and button<>1633 and button<>1634 and button<>1635 and button<>1781 and button<>1641 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button+1)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button+1)
		end if

	elseif window.event.shiftKey=true and button=1610 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button-1)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button-1)
		end if
	
	elseif window.event.shiftkey=true and button=1585 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button+103)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button+103)
		end if
	
	elseif window.event.shiftkey=true and button=1586 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button-12)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button-12)
		end if

	elseif window.event.shiftkey=true and button=1632 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button-1591)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button-1591)
		end if

	elseif window.event.shiftkey=true and button=1633 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button-1600)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button-1600)
		end if

	elseif window.event.shiftkey=true and button=1634 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button-1570)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button-1570)
		end if

	elseif window.event.shiftkey=true and button=1635 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button-68)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button-68)
		end if

	elseif window.event.shiftkey=true and button=1781 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button-139)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button-139)
		end if

	elseif window.event.shiftkey=true and button=1641 then
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button-1601)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button-1601)
		end if

	else
		if flagNewChar then
			document.Keypad.Comments.value=chrw(button)
			FlagNewchar=false
		else
			document.Keypad.Comments.value=document.Keypad.Comments.value & chrw(button)
		end if
	end if





end sub