104on109.mayu

   1 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
   2 # \91\8b\8eg\82¢\82Ì\97J\9fT - 104on109.mayu
   3 # Copyright (C) 1999-2005, TAGA Nayuta <nayuta@users.sourceforge.net>
   4 #
   5
   6 define KBD104on109
   7
   8 def subst ~S-*\94¼\8ap/\91S\8ap         = $GRAVE_ACCENT
   9 def subst  S-*\94¼\8ap/\91S\8ap         = $TILDE
  10 def subst  A-\94¼\8ap/\91S\8ap          = $ToggleIME
  11 def subst  S-*_2                = $COMMERCIAL_AT
  12 def subst  S-*_6                = $CIRCUMFLEX_ACCENT
  13 def subst  S-*_7                = $AMPERSAND
  14 def subst  S-*_8                = $ASTERISK
  15 def subst  S-*_9                = $LEFT_PARENTHESIS
  16 def subst  S-*_0                = $RIGHT_PARENTHESIS
  17 def subst  S-*Hyphen            = $LOW_LINE
  18 def subst ~S-*Caret             = $EQUALS_SIGN
  19 def subst  S-*Caret             = $PLUS_SIGN
  20 def subst ~S-*Atmark            = $LEFT_SQUARE_BRACKET
  21 def subst  S-*Atmark            = $LEFT_CURLY_BRACKET
  22 def subst ~S-*OpenBracket       = $RIGHT_SQUARE_BRACKET
  23 def subst  S-*OpenBracket       = $RIGHT_CURLY_BRACKET
  24 def subst ~S-*CloseBracket      = $REVERSE_SOLIDUS
  25 def subst  S-*CloseBracket      = $VERTICAL_LINE
  26 def subst  S-*Semicolon         = $COLON
  27 def subst ~S-*Colon             = $APOSTROPHE
  28 def subst  S-*Colon             = $QUOTATION_MARK
  29 def subst    *\96³\95Ï\8a·            = *Space
  30 def subst    *\95Ï\8a·              = *Space
  31 def subst    *\82Ð\82ç\82ª\82È          = *Space
  32 def subst    *\89p\90\94              = S-*\89p\90\94
  33 def subst *ReverseSolidus       = *RightShift
  34
  35 keymap Global
  36  mod shift += ReverseSolidus