'set novalue on'  /* force KEXX and its way of SIGNAL ON NOVALUE  */

/* Usage:         [MACRO] GERMAN                                  */
/* Purpose:       DEFINEs GERMAN.KML on top of INITIAL.KML, which */
/*                allows me to keep the KEYB GR definitions apart */
/*                from more generally useful keys.  Of course one */
/*                INITIAL.KML directly DEFINEd by INITIAL.KEX for */
/*                all key definitions is much simpler, but I need */
/*                configurations for different keyboards.         */
/* See also:      GERMAN.KML, INITIAL.KML                         */
/* Requires:      Kedit 5.0               (Frank Ellermann, 2000) */

/* macro    see GERMAN.KML for most recent definitions            */
/* A-[      'dmsg KEYB GR 26: ��'                                 */
/* A-;      'dmsg KEYB GR 39: ��'                                 */
/* A-'      'dmsg KEYB GR 40: �A'                                 */
/* A-,      'dmsg KEYB GR 51: ,;'                                 */
/* A-.      'dmsg KEYB GR 52: .:'                                 */
/* A-/      'dmsg KEYB GR 53: -_'                                 */
/* C-[      'macro ascii 27'  ; 'dmsg KEYB GR 26: ��'             */
/* C-\      'macro ascii 28'  ; "dmsg KEYB GR 43: #'"             */
/* C-]      'macro ascii 29'  ; 'dmsg KEYB GR 27: +* ~'           */
/* C-U      'macro ascii 21'                                      */
/*           if lastkey.3() = 4 then 'dmsg KEYB GR 4: 3' d2c(21)  */
/* A-2      'text �'    ; 'dmsg KEYB GR 3: 2" �'                  */
/* A-3      'text �'    ; 'dmsg KEYB GR 4: 3  �'                  */
/* A-7      'macro S-[' ; 'dmsg KEYB GR 8: 7/ {'                  */
/* A-8      'macro ['   ; 'dmsg KEYB GR 9: 8( ['                  */
/* A-9      'macro ]'   ; 'dmsg KEYB GR 10: 9) ]'                 */
/* A-0      'macro S-]' ; 'dmsg KEYB GR 11: 0= }'                 */
/* A--      'macro \'   ; 'dmsg KEYB GR 12: �? \'                 */
/* A-E      'text �'    ; 'dmsg KEYB GR 18: eE � [CP 850 Euro]'   */
/* A-Q      'macro S-2' ; 'dmsg KEYB GR 16: qQ @'                 */
/* C-Q      'dmsg C-Q reserved for OS/2 KwikInf instead of A-Q'   */
/* A-]      'macro S-`' ; 'dmsg KEYB GR 27: +* ~'                 */
/* A-M      'text �'    ; 'dmsg KEYB GR 50: mM �'                 */
/* A-T      'mov block' ; if rc = 0 then 'reset block'            */
/* A-`      'macro S-6' ; 'dmsg KEYB GR 41: ^�'                   */
/* A-\      "macro '"   ; "dmsg KEYB GR 43: #'"                   */
/* A-=      'macro `'   ; "dmsg KEYB GR 13: '`"                   */
/* A-Slash  'text �'    ; 'dmsg KEYB GR 164: �'                   */
/* S-Del    'text ,'    ; 'dmsg KEYB GR 83: ,'                    */
/* ,        if lastkey.3() = 83  then 'macro S-Del'               */
/*                               else 'text' lastkey.2()          */
/* C-F8  /* not shown here: updated INITIAL.KML help key C-F8  */ */
/* C-F10 /* not shown here: updated INITIAL.KML help key C-F10 */ */

   'define INITIAL.KML'
   if rc = 0 then 'define GERMAN.KML'
   exit rc