-
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007,
- 0007,0007,0007,0007,0007,0007,0007,0007
-};
-
-/*
- * Input mapping table-- if an entry is non-zero, when the
- * corresponding character is typed preceded by "\" the escape
- * sequence is replaced by the table value. Mostly used for
- * upper-case only terminals.
- */
-char maptab[] ={
- 000,000,000,000,000,000,000,000,
- 000,000,000,000,000,000,000,000,
- 000,000,000,000,000,000,000,000,
- 000,000,000,000,000,000,000,000,
- 000,'|',000,000,000,000,000,'`',
- '{','}',000,000,000,000,000,000,
- 000,000,000,000,000,000,000,000,
- 000,000,000,000,000,000,000,000,
- 000,000,000,000,000,000,000,000,
- 000,000,000,000,000,000,000,000,
- 000,000,000,000,000,000,000,000,
- 000,000,000,000,000,000,'~',000,
- 000,'A','B','C','D','E','F','G',
- 'H','I','J','K','L','M','N','O',
- 'P','Q','R','S','T','U','V','W',
- 'X','Y','Z',000,000,000,000,000,
+ 0001,0201,0201,0001,0201,0001,0001,0201, /* nul - bel */
+ 0202,0004,0003,0201,0005,0206,0201,0001, /* bs - si */
+ 0201,0001,0001,0201,0001,0201,0201,0001, /* dle - etb */
+ 0001,0201,0201,0001,0201,0001,0001,0201, /* can - us */
+ 0200,0000,0000,0200,0000,0200,0200,0000, /* sp - ' */
+ 0000,0200,0200,0000,0200,0000,0000,0200, /* ( - / */
+ 0100,0300,0300,0100,0300,0100,0100,0300, /* 0 - 7 */
+ 0300,0100,0000,0200,0000,0200,0200,0000, /* 8 - ? */
+ 0200,0100,0100,0300,0100,0300,0300,0100, /* @ - G */
+ 0100,0300,0300,0100,0300,0100,0100,0300, /* H - O */
+ 0100,0300,0300,0100,0300,0100,0100,0300, /* P - W */
+ 0300,0100,0100,0200,0000,0200,0200,0300, /* X - _ */
+ 0000,0300,0300,0100,0300,0100,0100,0300, /* ` - g */
+ 0300,0100,0100,0300,0100,0300,0300,0100, /* h - o */
+ 0300,0100,0100,0300,0100,0300,0300,0100, /* p - w */
+ 0100,0300,0300,0000,0200,0000,0000,0201, /* x - del */