\\ Install Editor                                    cas 10nov05                                                                This file contains the Installer for the Forth Editor                                                                           The Installer will query for keystrokes that should invoke      the Editor commands.                                                                                                            This allows custom keybinding for the individual requirements                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   \ install Editor                                     cas 10nov05                                                                Onlyforth Editor also  save   warning on                                                                                        : tab      &20 col &20 mod - spaces ;                           : .key ( c -- )                                                     dup $7E > IF ." $" u. exit THEN                                 dup bl  < IF ." ^" [ Ascii A 1- ] Literal +  THEN emit ;                                                                    : install   \ install editor's keyboard                            page ." Press keys requested (Spacebar to confirm)"             #keys 0 ?DO  cr I 2* actiontable + @ >name .name                  tab ." : " I 2* keytable + dup @ .key   tab ." -> "             key dup bl = IF drop dup @ THEN  dup .key  swap !             LOOP ;                                                       -->                                                             \ define action-names                                 UH 11mai88: :a ( addr -- adr' )  dup @ Alias  2+ ;                        actiontable                                                     :a up          :a left         :a down        :a right          :a push-line   :a push-char    :a pull-line   :a pull-char      :a fix-word    :a screen#      :a copy-line   :a copy-char      :a backspace   :a backspace    :a backspace   :a delete-char    ( :a insert-char )             :a delete-line :a insert-line    :a flipimode                 ( :a erase-line  :a clear-to-right):a new-line    :a +tab         :a -tab                          :a home        :a to-end       :a search      :a undo           :a update-exit :a flushed-exit :a showload    :a shadow-screen  :a next-Screen :a back-Screen  :a alter-Screen :a mark-screen   drop                                                                                                                            warning off  install  empty                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                     