;OCL{{{  decription of this file
   ;
   ; This files contains all terminal dependend data.Modeori includes this file
   ; more than once in different environements. So extension should be made in
   ; the following way:
   ;OCL{{{  example
   ; @if-using ( terminal-flag )         ; indicating this terminal
   ;    @if-using ( term-alias )         ; modeori needs the aliases
   ;       ( terminal ( NAME )           ; NAME = value for TERM/ORIGAMITERM
   ;           ...                       ; list of aliases
   ;       )
   ;    @fi
   ;    @if-using ( term-alias )         ; modeori needs used keytypes
   ;       @use ( xxx-key ... )          ; use keys xxx, ...
   ;                                     ; xxx=del,
   ;                                     ;     esc-del
   ;                                     ;     backs
   ;                                     ;     ctrl-h
   ;                                     ;     fx
   ;                                     ;     cursor
   ;                                     ;     tab
   ;                                     ;     help
   ;                                     ;     home
   ;                                     ;     page
   ;                                     ;     clreol
   ;                                     ;     delline
   ;                                     ;     line
   ;                                     ;     misc
   ;                                     ;     keypad
   ;    @fi
   ;    @if-using ( use-xxx-key )        ; for each key class, which is
   ;       @if-using ( xxx )             ; supported
   ;          NAME
   ;       @fi
   ;    @fi
   ;       @use ( r-key )                ; if right block is used
   ;OCL}}}
   ; Adding terminals should also change the reference in the info file!
   ;OCL}}}
   ;OCL{{{  default aliases
   @if-using ( term-alias )
      ( alias space ( "  ) )
      ( alias return ( C-J ) )
      ( alias return ( C-M ) )
   @fi
   ;OCL}}}
   ;OCL{{{  terminal xterm
   @if-using ( xterm )
   ;OCL{{{  aliases
   @if-using ( term-alias )
      ( termalias xterm ( xterms ) )
      ( terminal ( xterm )
         ( alias backspace ( C-H ) )
         ( alias delete ( C-? ) )
         ( alias tab ( C-I ) )
         ( alias down ( C-[ "O "B ) )
         ( alias left ( C-[ "O "D ) )
         ( alias right ( C-[ "O "C ) )
         ( alias up ( C-[ "O "A ) )
         ( alias f1 ( $esc "f "1 ) )
         ( alias f1 ( C-[ "[ "1 "1 "~ ) )
         ( alias f2 ( $esc "f "2 ) )
         ( alias f2 ( C-[ "[ "1 "2 "~ ) )
         ( alias f3 ( $esc "f "3 ) )
         ( alias f3 ( C-[ "[ "1 "3 "~ ) )
         ( alias f4 ( $esc "f "4 ) )
         ( alias f4 ( C-[ "[ "1 "4 "~ ) )
         ( alias f5 ( $esc "f "5 ) )
         ( alias f6 ( $esc "f "6 ) )
         ( alias f7 ( $esc "f "7 ) )
         ( alias f8 ( $esc "f "8 ) )
         ( alias f9 ( $esc "f "9 ) )
         ( alias f10 ( $esc "f "0 ) )
      )
   @fi
   ;OCL}}}
   ;OCL{{{  used keys
   @if-using ( term-alias )
      @use ( del-key esc-del-key backs-key fx-key cursor-key tab-key )
   @fi
   @if-using
    ( use-del-key
      use-esc-del-key
      use-backs-key
      use-fx-key
      use-cursor-key
      use-tab-key
    )
      xterm
   @fi
   ;OCL}}}
   @fi
   ;OCL}}}
   ;OCL{{{  other terminals
   @if-using not( AMIGA )
      @if-using not( BASE )
         @if-using ( new-terminal )
            @include modeori-fun/autoterm
         @fi
      @fi
   @fi
   ;OCL}}}
   ;OCL{{{  terminals, using a slightly different format
   ; The entries for sun/SUN, AMIGA differ from  the  above
   ; mentioned format. This must be done, to:
   ;  - prevent redundancy
   ;  - special usage of the keypad!
   ;OCL{{{  sun keyboards, application mode on, edt-simulation
   @if-using ( SUNEDT )
   ;OCL{{{  aliases
   @if-using ( term-alias )
      ( terminal SUNEDT
         ( alias backspace ( C-H ) )
         ( alias delete ( C-? ) )
         ( alias tab ( C-I ) )
         ( alias down ( C-[ "[ "B ) )
         ( alias left ( C-[ "[ "D ) )
         ( alias right ( C-[ "[ "C ) )
         ( alias up ( C-[ "[ "A ) )
         ( alias f1 ( C-[ "[ "2 "2 "4 "z ) )
         ( alias f1 ( $esc "f "1 ) )
         ( alias f2 ( C-[ "[ "2 "2 "5 "z ) )
         ( alias f2 ( $esc "f "2 ) )
         ( alias f3 ( C-[ "[ "2 "2 "6 "z ) )
         ( alias f3 ( $esc "f "3 ) )
         ( alias f4 ( C-[ "[ "2 "2 "7 "z ) )
         ( alias f4 ( $esc "f "4 ) )
         ( alias f5 ( C-[ "[ "2 "2 "8 "z ) )
         ( alias f5 ( $esc "f "5 ) )
         ( alias f6 ( C-[ "[ "2 "2 "9 "z ) )
         ( alias f6 ( $esc "f "6 ) )
         ( alias f7 ( C-[ "[ "2 "3 "0 "z ) )
         ( alias f7 ( $esc "f "7 ) )
         ( alias f8 ( C-[ "[ "2 "3 "1 "z ) )
         ( alias f8 ( $esc "f "8 ) )
         ( alias f9 ( C-[ "[ "2 "3 "2 "z ) )
         ( alias f9 ( $esc "f "9 ) )
         ( alias f10 ( C-[ "[ "2 "3 "3 "z ) )
         ( alias f10 ( $esc "f "0 ) )
         ( alias DelLine ( C-[ "[ "2 "0 "8 "z ) )
         ( alias DelWord ( C-[ "[ "2 "0 "9 "z ) )
         ( alias DelChar ( C-[ "[ "2 "1 "0 "z ) )
         ( alias Gold    ( C-[ "[ "2 "1 "1 "z ) )
         ( alias Help    ( C-[ "[ "2 "1 "2 "z ) )
         ( alias Find    ( C-[ "[ "2 "1 "3 "z ) )
         ( alias Page    ( C-[ "[ "2 "1 "4 "z ) )
         ( alias Section ( C-[ "[ "2 "1 "5 "z ) )
         ( alias Append  ( C-[ "[ "2 "1 "6 "z ) )
         ( alias Advance ( C-[ "[ "2 "1 "7 "z ) )
         ( alias Backup  ( C-[ "[ "2 "1 "8 "z ) )
         ( alias Cut     ( C-[ "[ "2 "1 "9 "z ) )
         ( alias Word    ( C-[ "[ "2 "2 "0 "z ) )
         ( alias EOL     ( C-[ "[ "2 "2 "1 "z ) )
         ( alias Char    ( C-[ "[ "2 "2 "2 "z ) )
         ( alias SOL     ( $esc "[ "2 "z ) )
         ( alias Select  ( $esc "[ "2 "2 "3 "z ) )
      )
   @fi
   ;OCL}}}
   ;OCL{{{  used keys
   @if-using ( term-alias )
      @use ( del-key esc-del-key backs-key fx-key cursor-key tab-key edt-key )
   @fi
   @if-using
    ( use-del-key
      use-esc-del-key
      use-backs-key
      use-fx-key
      use-cursor-key
      use-tab-key
      use-edt-key
    )
      SUNEDT
   @fi
   ;OCL}}}
   @fi
   ;OCL}}}
   ;OCL{{{  sun keyboards, application mode on
   @if-using ( sun )
   ;OCL{{{  sun and SUN use the same tables!
   @if-using ( term-alias )
      ( termalias sun ( SUN ) )
   @fi
   ;OCL}}}
   ;OCL{{{  aliases
   @if-using ( term-alias )
      ( terminal sun
         ;OCL{{{  single key aliases
         ( alias backspace ( C-H ) )
         ( alias delete ( C-? ) )
         ( alias tab ( C-I ) )
         ( alias down ( C-[ "[ "B ) )
         ( alias left ( C-[ "[ "D ) )
         ( alias right ( C-[ "[ "C ) )
         ( alias up ( C-[ "[ "A ) )
         ( alias f1 ( C-[ "[ "2 "2 "4 "z ) )
         ( alias f1 ( $esc "f "1 ) )
         ( alias f2 ( C-[ "[ "2 "2 "5 "z ) )
         ( alias f2 ( $esc "f "2 ) )
         ( alias f3 ( C-[ "[ "2 "2 "6 "z ) )
         ( alias f3 ( $esc "f "3 ) )
         ( alias f4 ( C-[ "[ "2 "2 "7 "z ) )
         ( alias f4 ( $esc "f "4 ) )
         ( alias f5 ( C-[ "[ "2 "2 "8 "z ) )
         ( alias f5 ( $esc "f "5 ) )
         ( alias f6 ( C-[ "[ "2 "2 "9 "z ) )
         ( alias f6 ( $esc "f "6 ) )
         ( alias f7 ( C-[ "[ "2 "3 "0 "z ) )
         ( alias f7 ( $esc "f "7 ) )
         ( alias f8 ( C-[ "[ "2 "3 "1 "z ) )
         ( alias f8 ( $esc "f "8 ) )
         ( alias f9 ( C-[ "[ "2 "3 "2 "z ) )
         ( alias f9 ( $esc "f "9 ) )
         ( alias f10 ( C-[ "[ "2 "3 "3 "z ) )
         ( alias f10 ( $esc "f "0 ) )
         ( alias R1 ( C-[ "[ "2 "0 "8 "z ) )
         ( alias R2 ( C-[ "[ "2 "0 "9 "z ) )
         ( alias R3 ( C-[ "[ "2 "1 "0 "z ) )
         ( alias R4 ( C-[ "[ "2 "1 "1 "z ) )
         ( alias R5 ( C-[ "[ "2 "1 "2 "z ) )
         ( alias R6 ( C-[ "[ "2 "1 "3 "z ) )
         ( alias R7 ( C-[ "[ "2 "1 "4 "z ) )
         ( alias R8 ( C-[ "[ "2 "1 "5 "z ) )
         ( alias R9 ( C-[ "[ "2 "1 "6 "z ) )
         ( alias R10 ( C-[ "[ "2 "1 "7 "z ) )
         ( alias R11 ( C-[ "[ "2 "1 "8 "z ) )
         ( alias R12 ( C-[ "[ "2 "1 "9 "z ) )
         ( alias R13 ( C-[ "[ "2 "2 "0 "z ) )
         ( alias R13 ( $esc "[ "2 "z ) )
         ( alias R14 ( C-[ "[ "2 "2 "1 "z ) )
         ( alias R15 ( C-[ "[ "2 "2 "2 "z ) )
         ( alias L1 ( C-[ "[ "1 "9 "2 ) )
         ( alias L2 ( C-[ "[ "1 "9 "3 ) )
         ( alias L3 ( C-[ "[ "1 "9 "4 ) )
         ( alias L4 ( C-[ "[ "1 "9 "5 ) )
         ( alias L5 ( C-[ "[ "1 "9 "6 ) )
         ( alias L6 ( C-[ "[ "1 "9 "7 ) )
         ( alias L7 ( C-[ "[ "1 "9 "8 ) )
         ( alias L8 ( C-[ "[ "1 "9 "9 ) )
         ( alias L9 ( C-[ "[ "2 "0 "0 ) )
         ( alias L10 ( C-[ "[ "2 "0 "1 ) )
         ( alias help ( C-[ "[ "1 "9 "6 ) )
         ;OCL}}}
         ;OCL{{{  meta-key aliases
         ( alias R13/Meta-! ( $R13 "! ) )
         ( alias R13/Meta-? ( $R13 "? ) )
         ( alias R13/Meta-0 ( $R13 "0 ) )
         ( alias R13/Meta-1 ( $R13 "1 ) )
         ( alias R13/Meta-2 ( $R13 "2 ) )
         ( alias R13/Meta-3 ( $R13 "3 ) )
         ( alias R13/Meta-4 ( $R13 "4 ) )
         ( alias R13/Meta-5 ( $R13 "5 ) )
         ( alias R13/Meta-6 ( $R13 "6 ) )
         ( alias R13/Meta-7 ( $R13 "7 ) )
         ( alias R13/Meta-8 ( $R13 "8 ) )
         ( alias R13/Meta-9 ( $R13 "9 ) )
         ( alias R13/Meta-a ( $R13 "a ) )
         ( alias R13/Meta-b ( $R13 "b ) )
         ( alias R13/Meta-c ( $R13 "c ) )
         ( alias R13/Meta-d ( $R13 "d ) )
         ( alias R13/Meta-e ( $R13 "e ) )
         ( alias R13/Meta-f ( $R13 "f ) )
         ( alias R13/Meta-g ( $R13 "g ) )
         ( alias R13/Meta-h ( $R13 "h ) )
         ( alias R13/Meta-i ( $R13 "i ) )
         ( alias R13/Meta-j ( $R13 "j ) )
         ( alias R13/Meta-k ( $R13 "k ) )
         ( alias R13/Meta-l ( $R13 "l ) )
         ( alias R13/Meta-m ( $R13 "m ) )
         ( alias R13/Meta-n ( $R13 "n ) )
         ( alias R13/Meta-o ( $R13 "o ) )
         ( alias R13/Meta-p ( $R13 "p ) )
         ( alias R13/Meta-q ( $R13 "q ) )
         ( alias R13/Meta-r ( $R13 "r ) )
         ( alias R13/Meta-s ( $R13 "s ) )
         ( alias R13/Meta-t ( $R13 "t ) )
         ( alias R13/Meta-u ( $R13 "u ) )
         ( alias R13/Meta-v ( $R13 "v ) )
         ( alias R13/Meta-w ( $R13 "w ) )
         ( alias R13/Meta-x ( $R13 "x ) )
         ( alias R13/Meta-y ( $R13 "y ) )
         ( alias R13/Meta-z ( $R13 "z ) )
         ( alias R13/Meta-R1 ( $R13 $R1 ) )
         ( alias R13/Meta-R2 ( $R13 $R2 ) )
         ( alias R13/Meta-R3 ( $R13 $R3 ) )
         ( alias R13/Meta-R4 ( $R13 $R4 ) )
         ( alias R13/Meta-R5 ( $R13 $R5 ) )
         ( alias R13/Meta-R6 ( $R13 $R6 ) )
         ( alias R13/Meta-R7 ( $R13 $R7 ) )
         ( alias R13/Meta-R8 ( $R13 $R8 ) )
         ( alias R13/Meta-R9 ( $R13 $R9 ) )
         ( alias R13/Meta-R10 ( $R13 $R10 ) )
         ( alias R13/Meta-R11 ( $R13 $R11 ) )
         ( alias R13/Meta-R12 ( $R13 $R12 ) )
         ( alias R13/Meta-R13 ( $R13 $R13 ) )
         ( alias R13/Meta-R14 ( $R13 $R14 ) )
         ( alias R13/Meta-R15 ( $R13 $R15 ) )
         ( alias R13/Meta-left ( $R13 $left ) )
         ( alias R13/Meta-right ( $R13 $right ) )
         ( alias R13/Meta-up ( $R13 $up ) )
         ( alias R13/Meta-down ( $R13 $down ) )
         ;OCL}}}
         ;OCL{{{  unbind-keys
         ( alias unbind-unused-sequences ( $R13 * ) )
         ( alias unbind-unused-sequences ( C-[ "[ "2 * * "z ) )
         ( alias unbind-unused-sequences ( C-[ "[ "1 * * "z ) )
         ;OCL}}}
      )
   @fi
   ;OCL}}}
   ;OCL{{{  used keys
   @if-using ( term-alias )
      @use ( del-key esc-del-key backs-key fx-key cursor-key tab-key r-key l-key help-key )
   @fi
   @if-using
    ( use-del-key
      use-esc-del-key
      use-backs-key
      use-fx-key
      use-cursor-key
      use-tab-key
      use-r-key
      use-l-key
      use-help-key
      use-unbind-key
    )
      sun
   @fi
   ;OCL}}}
   @fi
   ;OCL}}}
   ;OCL{{{  linux console
   @if-using ( linux )
   ;OCL{{{  con80x25 and console use the same tables!
   @if-using ( term-alias )
      ( termalias con80x25 ( console ) )
   @fi
   ;OCL}}}
   ;OCL{{{  aliases
   @if-using ( term-alias )
      ( terminal con80x25
         ;OCL{{{  single key aliases
         ( alias backspace ( C-H ) )
         ( alias delete ( C-? ) )
         ( alias delete ( C-[ "[ "3 "~ ) )
         ( alias tab ( C-I ) )
         ( alias down ( C-[ "O "B ) )
         ( alias left ( C-[ "O "D ) )
         ( alias right ( C-[ "O "C ) )
         ( alias up ( C-[ "O "A ) )
         ( alias f1 ( $esc "f "1 ) )
         ( alias f2 ( $esc "f "2 ) )
         ( alias f3 ( $esc "f "3 ) )
         ( alias f4 ( $esc "f "4 ) )
         ( alias f5 ( $esc "f "5 ) )
         ( alias f6 ( $esc "f "6 ) )
         ( alias f7 ( $esc "f "7 ) )
         ( alias f8 ( $esc "f "8 ) )
         ( alias f9 ( $esc "f "9 ) )
         ( alias f10 ( $esc "f "0 ) )
         ( alias R1 ( C-[ "[ "O "Q ) )
         ( alias R2 ( C-[ "O "R ) )
         ( alias R3 ( C-[ "[ "O "S ) )
         ( alias R4 ( C-[ "O "w ) )
         ( alias R5 ( C-[ "O "x ) )
         ( alias R6 ( C-[ "O "y ) )
         ( alias R7 ( C-[ "O "t ) )
         ( alias R8 ( C-[ "O "u ) )
         ( alias R9 ( C-[ "O "v ) )
         ( alias R10 ( C-[ "O "q ) )
         ( alias R11 ( C-[ "O "r ) )
         ( alias R12 ( C-[ "O "s ) )
         ( alias R13 ( C-[ "O "p ) )
         ( alias R14 ( C-[ "O "n ) )
         ( alias R15 ( C-[ "O "M ) )
         ( alias home ( C-[ "[ "1 "~ ) )
         ( alias home-down ( C-[ "[ "4 "~ ) )
         ( alias previous-page ( C-[ "[ "5 "~ ) )
         ( alias next-page ( C-[ "[ "6 "~ ) )
         ( alias insert-char ( C-[ "[ "2 "~ ) )
         ;OCL}}}
         ;OCL{{{  meta-key aliases
         ( alias R13/Meta-! ( $R13 "! ) )
         ( alias R13/Meta-? ( $R13 "? ) )
         ( alias R13/Meta-0 ( $R13 "0 ) )
         ( alias R13/Meta-1 ( $R13 "1 ) )
         ( alias R13/Meta-2 ( $R13 "2 ) )
         ( alias R13/Meta-3 ( $R13 "3 ) )
         ( alias R13/Meta-4 ( $R13 "4 ) )
         ( alias R13/Meta-5 ( $R13 "5 ) )
         ( alias R13/Meta-6 ( $R13 "6 ) )
         ( alias R13/Meta-7 ( $R13 "7 ) )
         ( alias R13/Meta-8 ( $R13 "8 ) )
         ( alias R13/Meta-9 ( $R13 "9 ) )
         ( alias R13/Meta-a ( $R13 "a ) )
         ( alias R13/Meta-b ( $R13 "b ) )
         ( alias R13/Meta-c ( $R13 "c ) )
         ( alias R13/Meta-d ( $R13 "d ) )
         ( alias R13/Meta-e ( $R13 "e ) )
         ( alias R13/Meta-f ( $R13 "f ) )
         ( alias R13/Meta-g ( $R13 "g ) )
         ( alias R13/Meta-h ( $R13 "h ) )
         ( alias R13/Meta-i ( $R13 "i ) )
         ( alias R13/Meta-j ( $R13 "j ) )
         ( alias R13/Meta-k ( $R13 "k ) )
         ( alias R13/Meta-l ( $R13 "l ) )
         ( alias R13/Meta-m ( $R13 "m ) )
         ( alias R13/Meta-n ( $R13 "n ) )
         ( alias R13/Meta-o ( $R13 "o ) )
         ( alias R13/Meta-p ( $R13 "p ) )
         ( alias R13/Meta-q ( $R13 "q ) )
         ( alias R13/Meta-r ( $R13 "r ) )
         ( alias R13/Meta-s ( $R13 "s ) )
         ( alias R13/Meta-t ( $R13 "t ) )
         ( alias R13/Meta-u ( $R13 "u ) )
         ( alias R13/Meta-v ( $R13 "v ) )
         ( alias R13/Meta-w ( $R13 "w ) )
         ( alias R13/Meta-x ( $R13 "x ) )
         ( alias R13/Meta-y ( $R13 "y ) )
         ( alias R13/Meta-z ( $R13 "z ) )
         ( alias R13/Meta-R1 ( $R13 $R1 ) )
         ( alias R13/Meta-R2 ( $R13 $R2 ) )
         ( alias R13/Meta-R3 ( $R13 $R3 ) )
         ( alias R13/Meta-R4 ( $R13 $R4 ) )
         ( alias R13/Meta-R5 ( $R13 $R5 ) )
         ( alias R13/Meta-R6 ( $R13 $R6 ) )
         ( alias R13/Meta-R7 ( $R13 $R7 ) )
         ( alias R13/Meta-R8 ( $R13 $R8 ) )
         ( alias R13/Meta-R9 ( $R13 $R9 ) )
         ( alias R13/Meta-R10 ( $R13 $R10 ) )
         ( alias R13/Meta-R11 ( $R13 $R11 ) )
         ( alias R13/Meta-R12 ( $R13 $R12 ) )
         ( alias R13/Meta-R13 ( $R13 $R13 ) )
         ( alias R13/Meta-R14 ( $R13 $R14 ) )
         ( alias R13/Meta-R15 ( $R13 $R15 ) )
         ( alias R13/Meta-left ( $R13 $left ) )
         ( alias R13/Meta-right ( $R13 $right ) )
         ( alias R13/Meta-up ( $R13 $up ) )
         ( alias R13/Meta-down ( $R13 $down ) )
         ;OCL}}}
         ;OCL{{{  unbind-keys
         ( alias unbind-unused-sequences ( $R13 * ) )
         ;OCL}}}
      )
   @fi
   ;OCL}}}
   ;OCL{{{  used keys
   @if-using ( term-alias )
      @use ( del-key backs-key fx-key cursor-key tab-key r-key help-key misc-key )
   @fi
   @if-using
    ( use-del-key
      use-backs-key
      use-fx-key
      use-cursor-key
      use-tab-key
      use-r-key
      use-help-key
      use-misc-key
      use-unbind-key
    )
      con80x25
   @fi
   ;OCL}}}
   @fi
   ;OCL}}}
   ;OCL{{{  linux console, edt-simulation
   @if-using ( linuxEDT )
   ;OCL{{{  aliases
      @if-using ( term-alias )
         ( terminal con80x25EDT
           ;OCL{{{  single key aliases
           ( alias backspace ( C-H ) )
           ( alias delete ( C-? ) )
           ( alias delete ( C-[ "[ "3 "~ ) )
           ( alias tab ( C-I ) )
           ( alias down ( C-[ "O "B ) )
           ( alias left ( C-[ "O "D ) )
           ( alias right ( C-[ "O "C ) )
           ( alias up ( C-[ "O "A ) )
           ( alias f1 ( $esc "f "1 ) )
           ( alias f2 ( $esc "f "2 ) )
           ( alias f3 ( $esc "f "3 ) )
           ( alias f4 ( $esc "f "4 ) )
           ( alias f5 ( $esc "f "5 ) )
           ( alias f6 ( $esc "f "6 ) )
           ( alias f7 ( $esc "f "7 ) )
           ( alias f8 ( $esc "f "8 ) )
           ( alias f9 ( $esc "f "9 ) )
           ( alias f10 ( $esc "f "0 ) )
           ( alias DelLine ( C-[ "[ "O "Q ) )
           ( alias DelWord ( C-[ "O "R ) )
           ( alias DelChar ( C-[ "[ "O "S ) )
           ( alias Gold ( C-[ "O "w ) )
           ( alias Help ( C-[ "O "x ) )
           ( alias Find ( C-[ "O "y ) )
           ( alias Page ( C-[ "O "t ) )
           ( alias Section ( C-[ "O "u ) )
           ( alias Append ( C-[ "O "v ) )
           ( alias Advance ( C-[ "O "q ) )
           ( alias Backup ( C-[ "O "r ) )
           ( alias Cut ( C-[ "O "s ) )
           ( alias Word ( C-[ "O "p ) )
           ( alias EOL ( C-[ "O "n ) )
           ( alias Char ( C-[ "O "M ) )
           ( alias home ( C-[ "[ "1 "~ ) )
           ( alias home-down ( C-[ "[ "4 "~ ) )
           ( alias previous-page ( C-[ "[ "5 "~ ) )
           ( alias next-page ( C-[ "[ "6 "~ ) )
           ( alias insert-char ( C-[ "[ "2 "~ ) )
           ;OCL}}}
         )
      @fi
   ;OCL}}}
   ;OCL{{{  used keys
   @if-using ( term-alias )
      @use ( del-key backs-key fx-key cursor-key tab-key edt-key )
   @fi
   @if-using
    ( use-del-key
      use-backs-key
      use-fx-key
      use-cursor-key
      use-tab-key
      use-edt-key
    )
      con80x25EDT
   @fi
   ;OCL}}}
   @fi
   ;OCL}}}
   ;OCL{{{  amiga aliases
   @if-using ( AMIGA amiga )
   ;OCL{{{  aliases
   @if-using ( term-alias )
      ( terminal
         @if-using ( amiga ) amiga @fi
         @if-using not( amiga ) default @fi
         ;OCL{{{  single key aliases
         ;OCL{{{  internal aliases
         (alias csi  ( 0x9B ))
         (alias se   ( 0x7E ))
         (alias menu ( $csi "G ))
         (alias pak  ( 0x9c ))
         ;OCL}}}
         ;OCL{{{  keypad keys, named R1..R15,enter,tab for function usage
         ( alias return ( $csi "F "A "C )) ; Keypad enter
         ( alias R1 ( $csi "F "A "] ))     ; Keypad *
         ( alias R2 ( $csi "F "A "J ))     ; Keypad -
         ( alias R3 ( $csi "F "A "^ ))     ; Keypad +
         ( alias R4 ( $csi "F "A "Z ))     ; Keypad [{
         ( alias R5 ( $csi "F "A "[ ))     ; Keypad ]}
         ( alias R6 ( $csi "F "A "\ ))     ; Keypad /
         ( alias R7 ( $csi "F "A "= ))     ; Keypad 7
         ( alias R8 ( $csi "F "A "> ))     ; Keypad 8
         ( alias R9 ( $csi "F "A "? ))     ; Keypad 9
         ( alias R10 ( $csi "F "A "- ))    ; Keypad 4
         ( alias R11 ( $csi "F "A ". ))    ; Keypad 5
         ( alias R12 ( $csi "F "A "/ ))    ; Keypad 6
         ( alias R13 ( $csi "F "A C-] ))   ; Keypad 1
         ( alias R13 ( $csi "F "A C-O ))   ; Keypad 0
         ( alias R14 ( $csi "F "A C-^ ))   ; Keypad 2
         ( alias R15 ( $csi "F "A C-_ ))   ; Keypad 3
         ;OCL}}}
         ;OCL{{{  keypad keys, named KP-??? for keypad usage
         ( alias return ( $csi "F "B "C ))   ; Keypad enter
         ( alias KP-mult ( $csi "F "B "] ))  ; Keypad *
         ( alias KP-minus ( $csi "F "B "J )) ; Keypad -
         ( alias KP-add ( $csi "F "B "^ ))   ; Keypad +
         ( alias KP-[ ( $csi "F "B "Z ))     ; Keypad [{
         ( alias KP-] ( $csi "F "B "[ ))     ; Keypad ]}
         ( alias KP-div ( $csi "F "B "\ ))   ; Keypad /
         ( alias KP-7 ( $csi "F "B "= ))     ; Keypad 7
         ( alias KP-8 ( $csi "F "B "> ))     ; Keypad 8
         ( alias KP-9 ( $csi "F "B "? ))     ; Keypad 9
         ( alias KP-4 ( $csi "F "B "- ))     ; Keypad 4
         ( alias KP-5 ( $csi "F "B ". ))     ; Keypad 5
         ( alias KP-6 ( $csi "F "B "/ ))     ; Keypad 6
         ( alias KP-1 ( $csi "F "B C-J ))    ; Keypad 1
         ( alias KP-0 ( $csi "F "B C-O ))    ; Keypad 0
         ( alias KP-2 ( $csi "F "B C-^ ))    ; Keypad 2
         ( alias KP-3 ( $csi "F "B C-_ ))    ; Keypad 3
         ( alias KP-. ( $csi "F "B "< ))     ; Keypad .
         ;OCL}}}
         ;OCL{{{  keypad prev-page ...
         ( alias prev_page ( $csi "F "C "? ) )
         ( alias next_page ( $csi "F "C C-_ ) )
         ( alias home ( $csi "F "C "=  ) )
         ;OCL}}}
         ;OCL{{{  delete and backspace
         ( alias delete ( C-? ) )
         ( alias backspace ( C-H ) )
         ;OCL}}}
         ;OCL{{{  Help
         ( alias help ( $csi "? $se ) )
         ;OCL}}}
         ;OCL{{{  function keys
         (alias f1              ( $csi "0 $se ))
         (alias f1              ( $esc "f "1  ))
         (alias f2              ( $csi "1 $se ))
         (alias f2              ( $esc "f "2  ))
         (alias f3              ( $csi "2 $se ))
         (alias f3              ( $esc "f "3  ))
         (alias f4              ( $csi "3 $se ))
         (alias f4              ( $esc "f "4  ))
         (alias f5              ( $csi "4 $se ))
         (alias f5              ( $esc "f "5  ))
         (alias f6              ( $csi "5 $se ))
         (alias f6              ( $esc "f "6  ))
         (alias f7              ( $csi "6 $se ))
         (alias f7              ( $esc "f "7  ))
         (alias f8              ( $csi "7 $se ))
         (alias f8              ( $esc "f "8  ))
         (alias f9              ( $csi "8 $se ))
         (alias f9              ( $esc "f "9  ))
         (alias f10             ( $csi "9 $se ))
         (alias f10             ( $esc "f "0  ))
         ;OCL}}}
         ;OCL{{{  cursor keys
         (alias left            ( $csi "D ))
         (alias right           ( $csi "C ))
         (alias up              ( $csi "A ))
         (alias down            ( $csi "B ))
         ;OCL}}}
         ;OCL{{{  misc keys
         ;OCL}}}
         ;OCL{{{  tab
         ( alias tab ( C-I ) )
         ;OCL}}}
         ;OCL}}}
         ;OCL{{{  meta-key aliases
         ;OCL{{{  character alias
         ( alias R13/Meta-! ( $R13 "! ) )
         ( alias R13/Meta-? ( $R13 "? ) )
         ( alias R13/Meta-? ( $csi "I 0xb ) )
         ( alias R13/Meta-? ( $csi "Q 0xb ) )
         ( alias R13/Meta-0 ( $R13 "0 ) )
         ( alias R13/Meta-0 ( $csi "I 0xa ) )
         ( alias R13/Meta-0 ( $csi "Q 0xa ) )
         ( alias R13/Meta-1 ( $R13 "1 ) )
         ( alias R13/Meta-1 ( $csi "I 0x1 ) )
         ( alias R13/Meta-1 ( $csi "Q 0x1 ) )
         ( alias R13/Meta-2 ( $R13 "2 ) )
         ( alias R13/Meta-2 ( $csi "I 0x2 ) )
         ( alias R13/Meta-2 ( $csi "Q 0x2 ) )
         ( alias R13/Meta-3 ( $R13 "3 ) )
         ( alias R13/Meta-3 ( $csi "I $pak ) )
         ( alias R13/Meta-3 ( $csi "Q $pak ) )
         ( alias R13/Meta-4 ( $R13 "4 ) )
         ( alias R13/Meta-4 ( $csi "I 0x4 ) )
         ( alias R13/Meta-4 ( $csi "Q 0x4 ) )
         ( alias R13/Meta-5 ( $R13 "5 ) )
         ( alias R13/Meta-5 ( $csi "I 0x5 ) )
         ( alias R13/Meta-5 ( $csi "Q 0x5 ) )
         ( alias R13/Meta-6 ( $R13 "6 ) )
         ( alias R13/Meta-6 ( $csi "I 0x6 ) )
         ( alias R13/Meta-6 ( $csi "Q 0x6 ) )
         ( alias R13/Meta-7 ( $R13 "7 ) )
         ( alias R13/Meta-7 ( $csi "I 0x7 ) )
         ( alias R13/Meta-7 ( $csi "Q 0x7 ) )
         ( alias R13/Meta-8 ( $R13 "8 ) )
         ( alias R13/Meta-8 ( $csi "I 0x8 ) )
         ( alias R13/Meta-8 ( $csi "Q 0x8 ) )
         ( alias R13/Meta-9 ( $R13 "9 ) )
         ( alias R13/Meta-9 ( $csi "I 0x9 ) )
         ( alias R13/Meta-9 ( $csi "Q 0x9 ) )
         ( alias R13/Meta-a ( $R13 "a ) )
         ( alias R13/Meta-a ( $csi "I 0x20 ) )
         ( alias R13/Meta-a ( $csi "Q 0x20 ) )
         ( alias R13/Meta-b ( $R13 "b ) )
         ( alias R13/Meta-b ( $csi "I 0x35 ) )
         ( alias R13/Meta-b ( $csi "Q 0x35 ) )
         ( alias R13/Meta-c ( $R13 "c ) )
         ( alias R13/Meta-c ( $csi "I 0x33 ) )
         ( alias R13/Meta-c ( $csi "Q 0x33 ) )
         ( alias R13/Meta-d ( $R13 "d ) )
         ( alias R13/Meta-d ( $csi "I 0x22 ) )
         ( alias R13/Meta-d ( $csi "Q 0x22 ) )
         ( alias R13/Meta-e ( $R13 "e ) )
         ( alias R13/Meta-e ( $csi "I 0x12 ) )
         ( alias R13/Meta-e ( $csi "Q 0x12 ) )
         ( alias R13/Meta-f ( $R13 "f ) )
         ( alias R13/Meta-f ( $csi "I 0x23 ) )
         ( alias R13/Meta-f ( $csi "Q 0x23 ) )
         ( alias R13/Meta-g ( $R13 "g ) )
         ( alias R13/Meta-g ( $csi "I 0x24 ) )
         ( alias R13/Meta-g ( $csi "Q 0x24 ) )
         ( alias R13/Meta-h ( $R13 "h ) )
         ( alias R13/Meta-h ( $csi "I 0x25 ) )
         ( alias R13/Meta-h ( $csi "Q 0x25 ) )
         ( alias R13/Meta-i ( $R13 "i ) )
         ( alias R13/Meta-i ( $csi "I 0x17 ) )
         ( alias R13/Meta-i ( $csi "Q 0x17 ) )
         ( alias R13/Meta-j ( $R13 "j ) )
         ( alias R13/Meta-j ( $csi "I 0x26 ) )
         ( alias R13/Meta-j ( $csi "Q 0x26 ) )
         ( alias R13/Meta-k ( $R13 "k ) )
         ( alias R13/Meta-k ( $csi "I 0x27 ) )
         ( alias R13/Meta-k ( $csi "Q 0x27 ) )
         ( alias R13/Meta-l ( $R13 "l ) )
         ( alias R13/Meta-l ( $csi "I 0x28 ) )
         ( alias R13/Meta-l ( $csi "Q 0x28 ) )
         ( alias R13/Meta-m ( $R13 "m ) )
         ( alias R13/Meta-m ( $csi "I 0x37 ) )
         ( alias R13/Meta-m ( $csi "Q 0x37 ) )
         ( alias R13/Meta-n ( $R13 "n ) )
         ( alias R13/Meta-n ( $csi "I 0x36 ) )
         ( alias R13/Meta-n ( $csi "Q 0x36 ) )
         ( alias R13/Meta-o ( $R13 "o ) )
         ( alias R13/Meta-o ( $csi "I 0x18 ) )
         ( alias R13/Meta-o ( $csi "Q 0x18 ) )
         ( alias R13/Meta-p ( $R13 "p ) )
         ( alias R13/Meta-p ( $csi "I 0x19 ) )
         ( alias R13/Meta-p ( $csi "Q 0x19 ) )
         ( alias R13/Meta-q ( $R13 "q ) )
         ( alias R13/Meta-q ( $csi "I 0x10 ) )
         ( alias R13/Meta-q ( $csi "Q 0x10 ) )
         ( alias R13/Meta-r ( $R13 "r ) )
         ( alias R13/Meta-r ( $csi "I 0x13 ) )
         ( alias R13/Meta-r ( $csi "Q 0x13 ) )
         ( alias R13/Meta-s ( $R13 "s ) )
         ( alias R13/Meta-s ( $csi "I 0x21 ) )
         ( alias R13/Meta-s ( $csi "Q 0x21 ) )
         ( alias R13/Meta-t ( $R13 "t ) )
         ( alias R13/Meta-t ( $csi "I 0x14 ) )
         ( alias R13/Meta-t ( $csi "Q 0x14 ) )
         ( alias R13/Meta-u ( $R13 "u ) )
         ( alias R13/Meta-u ( $csi "I 0x16 ) )
         ( alias R13/Meta-u ( $csi "Q 0x16 ) )
         ( alias R13/Meta-v ( $R13 "v ) )
         ( alias R13/Meta-v ( $csi "I 0x34 ) )
         ( alias R13/Meta-v ( $csi "Q 0x34 ) )
         ( alias R13/Meta-w ( $R13 "w ) )
         ( alias R13/Meta-w ( $csi "I 0x11 ) )
         ( alias R13/Meta-w ( $csi "Q 0x11 ) )
         ( alias R13/Meta-x ( $R13 "x ) )
         ( alias R13/Meta-x ( $csi "I 0x32 ) )
         ( alias R13/Meta-x ( $csi "Q 0x32 ) )
         ( alias R13/Meta-y ( $R13 "y ) )
         ( alias R13/Meta-y ( $csi "I 0x30 ) )
         ( alias R13/Meta-y ( $csi "Q 0x30 ) )
         ( alias R13/Meta-z ( $R13 "z ) )
         ( alias R13/Meta-z ( $csi "I 0x15 ) )
         ( alias R13/Meta-z ( $csi "Q 0x15 ) )
         ;OCL}}}
         ;OCL{{{  keypad/cursor
         ( alias R13/Meta-R1 ( $R13 $R1 ) )
         ( alias R13/Meta-R1 ( $csi "F "I "] ))
         ( alias R13/Meta-R1 ( $csi "F "Q "] ))
         ( alias R13/Meta-R2 ( $R13 $R2 ) )
         ( alias R13/Meta-R2 ( $csi "F "I "J ))
         ( alias R13/Meta-R2 ( $csi "F "Q "J ))
         ( alias R13/Meta-R3 ( $R13 $R3 ) )
         ( alias R13/Meta-R3 ( $csi "F "I "^ ))
         ( alias R13/Meta-R3 ( $csi "F "Q "^ ))
         ( alias R13/Meta-R4 ( $R13 $R4 ) )
         ( alias R13/Meta-R4 ( $csi "F "I "Z ))
         ( alias R13/Meta-R4 ( $csi "F "Q "Z ))
         ( alias R13/Meta-R5 ( $R13 $R5 ) )
         ( alias R13/Meta-R5 ( $csi "F "I "[ ))
         ( alias R13/Meta-R5 ( $csi "F "Q "[ ))
         ( alias R13/Meta-R6 ( $R13 $R6 ) )
         ( alias R13/Meta-R6 ( $csi "F "I "\ ))
         ( alias R13/Meta-R6 ( $csi "F "Q "\ ))
         ( alias R13/Meta-R7 ( $R13 $R7 ) )
         ( alias R13/Meta-R7 ( $csi "F "I "= ))
         ( alias R13/Meta-R7 ( $csi "F "Q "= ))
         ( alias R13/Meta-R8 ( $R13 $R8 ) )
         ( alias R13/Meta-R8 ( $csi "F "I "> ))
         ( alias R13/Meta-R8 ( $csi "F "Q "> ))
         ( alias R13/Meta-R9 ( $R13 $R9 ) )
         ( alias R13/Meta-R9 ( $csi "F "I "? ))
         ( alias R13/Meta-R9 ( $csi "F "Q "? ))
         ( alias R13/Meta-R10 ( $R13 $R10 ) )
         ( alias R13/Meta-R10 ( $csi "F "I "- ))
         ( alias R13/Meta-R10 ( $csi "F "Q "- ))
         ( alias R13/Meta-R11 ( $R13 $R11 ) )
         ( alias R13/Meta-R11 ( $csi "F "I ". ))
         ( alias R13/Meta-R11 ( $csi "F "Q ". ))
         ( alias R13/Meta-R12 ( $R13 $R12 ) )
         ( alias R13/Meta-R12 ( $csi "F "I "/ ))
         ( alias R13/Meta-R12 ( $csi "F "Q "/ ))
         ( alias R13/Meta-R13 ( $R13 $R13 ) )
         ( alias R13/Meta-R13 ( $csi "F "I C-] ))
         ( alias R13/Meta-R13 ( $csi "F "Q C-] ))
         ( alias R13/Meta-R14 ( $R13 $R14 ) )
         ( alias R13/Meta-R14 ( $csi "F "I C-^ ))
         ( alias R13/Meta-R14 ( $csi "F "Q C-^ ))
         ( alias R13/Meta-R15 ( $R13 $R15 ) )
         ( alias R13/Meta-R15 ( $csi "F "I C-_ ))
         ( alias R13/Meta-R15 ( $csi "F "Q C-_ ))
         ( alias R13/Meta-left ( $R13 $left ) )
         ( alias R13/Meta-right ( $R13 $right ) )
         ( alias R13/Meta-up ( $R13 $up ) )
         ( alias R13/Meta-down ( $R13 $down ) )
         ;OCL}}}
         ;OCL}}}
         ;OCL{{{  unbind-keys
         ( alias unbind-unused-sequences ( $csi * *))
         ( alias unbind-unused-sequences ( $R13 * ) )
         ;OCL}}}
      )
   @fi
   ;OCL}}}
   ;OCL{{{  used keys
   @if-using ( term-alias )
      @use ( del-key esc-del-key backs-key cursor-key fx-key tab-key r-key home-key page-key help-key )
   @fi
   @if-using
    ( use-del-key
      use-esc-del-key
      use-backs-key
      use-cursor-key
      use-fx-key
      use-tab-key
      use-r-key
      use-home-key
      use-page-key
      use-keypad-key
      use-help-key
      use-unbind-key
    )
      @if-using ( amiga ) amiga @fi
      @if-using not( amiga ) default @fi
   @fi
   ;OCL}}}
   @fi
   ;OCL}}}
   ;OCL}}}
   ;OCL{{{  default uses fx and ctrl-h
   @if-using not( AMIGA )
   ;OCL{{{  aliases
   @if-using ( term-alias )
      ( terminal default
         ( alias f1 ( $esc "f "1 ) )
         ( alias f2 ( $esc "f "2 ) )
         ( alias f3 ( $esc "f "3 ) )
         ( alias f4 ( $esc "f "4 ) )
         ( alias f5 ( $esc "f "5 ) )
         ( alias f6 ( $esc "f "6 ) )
         ( alias f7 ( $esc "f "7 ) )
         ( alias f8 ( $esc "f "8 ) )
         ( alias f9 ( $esc "f "9 ) )
         ( alias f10 ( $esc "f "0 ) )
      )
   @fi
   ;OCL}}}
   ;OCL{{{  used keys
   @if-using ( term-alias )
      @use ( fx-key ctrl-h-key )
   @fi
   @if-using ( use-ctrl-h-key )
      default
   @fi
   ;OCL}}}
   @fi
   ;OCL}}}