sub DigitOnly()
  dim key
  key=window.event.keyCode
  
  if ((key<48 and key<>13and key<>27) or ( key>57 and key<>144))then
   window.event.keyCode=0
	
  else
     select case chr(key)
        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 = 1637
        case "6"     : window.event.KeyCode = 1638
        case "7"     : window.event.KeyCode = 1639
        case "8"     : window.event.KeyCode = 1640
        case "9"     : window.event.KeyCode = 1641
        case "10"    : window.event.KeyCode = 1642
      end select

    end if

    window.event.returnValue=TRUE

end sub


 sub FKeyPress()

    dim key
    key=window.event.keyCode
    if key>127 then exit sub

  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'1603

        case "'"     : window.event.keyCode =  1711

        case "g","G" : window.event.keyCode =  1604

        case "l","L" : window.event.keyCode =  1605

        case "k","K" : window.event.keyCode =  1606

        case ","     : window.event.keyCode =  1608

        case "i","I" : window.event.keyCode =  1607

       ' case "d"     : window.event.keyCode =  1610

        case "D","d"    : window.event.keyCode = 1740 '1609

        case "m","M" : window.event.keyCode =  1574
        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 = 1637
        case "6"     : window.event.KeyCode = 1638
        case "7"     : window.event.KeyCode = 1639
        case "8"     : window.event.KeyCode = 1640
        case "9"     : window.event.KeyCode = 1641
        case "10"    : window.event.KeyCode = 1642
      end select
    window.event.returnValue=TRUE

  end sub



sub FKeyDown()

    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


sub FKeyPress()

    dim key
    key=window.event.keyCode

    if key>127 then exit sub

    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 '1603

        case "'"     : window.event.keyCode =  1711

        case "g","G" : window.event.keyCode =  1604

        case "l","L" : window.event.keyCode =  1605

        case "k","K" : window.event.keyCode =  1606

        case ","     : window.event.keyCode =  1608

        case "i","I" : window.event.keyCode =  1607

        'case "d"     : window.event.keyCode =  1610

        case "D" ,"d"    : window.event.keyCode = 1740 '1609

        case "m","M" : window.event.keyCode =  1574
        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 = 1637
        case "6"     : window.event.KeyCode = 1638
        case "7"     : window.event.KeyCode = 1639
        case "8"     : window.event.KeyCode = 1640
        case "9"     : window.event.KeyCode = 1641
        case "10"    : window.event.KeyCode = 1642
      end select
    window.event.returnValue=TRUE


  end sub