compile insert EDIT.KEYS
*
*  E D I T    K E Y S
*
*  Revision History:
*  02/19/88  men  Added VIEWER$ and Key Acronyms
*
*   @PRIORITY.INT Definitions
*

EQU GENERAL.HELP$ TO 1     ;* C-F1 General Help
EQU EXECUTE.TCL$  TO 2     ;* F5   TCL
EQU CAPTURE.KEY$  TO 3     ;* A-O  Key capturing on/off
EQU CAPTURE.EDIT$ TO 4     ;* A-8  Captured keys on-the-fly edit
EQU PLAYBACK.KEY$ TO 5     ;* A-9  Key playback start
EQU PAUSE.INPUT$  TO 6     ;* C-\  Pause
EQU MACRO.MODE$   TO 7     ;* C-_  Key nmemonic macro mode on/off
EQU EDIT.MACRO$   TO 8     ;* A-M  Edit key macro set
EQU MACROS.START$ TO 9     ;* A-1  Start of the macro keys
                            * Thru A-5
*
*   @MOVE.KEYS Definitions
*

EQU ENTER$        TO 1     ;* CR     Enter
EQU DOWN$         TO 2     ;* DOWN   Move cursor down one line, maintaining current column
EQU UP$           TO 3     ;* UP     Move cursor up one line, maintaining current column
EQU RIGHT$        TO 4     ;* RIGHT  Move cursor one character (column) left
EQU LEFT$         TO 5     ;* LEFT   Move cursor one character (column) left
EQU LAST.PAGE$    TO 6     ;* C-PGDN Move cursor to the first column, last line of the last page
EQU FIRST.PAGE$   TO 7     ;* C-PGUP Move cursor to the first column, first line of the first page
EQU PAGE.DOWN$    TO 8     ;* PDOWN  Move cursor one page down, maintaining current column position
EQU PAGE.UP$      TO 9     ;* PUP    Move cursor one page up, maintaining current column position
EQU TAB.RIGHT$    TO 10    ;* C-I    Move cursor to next tab right
EQU TAB.LEFT$     TO 11    ;* S-TAB  Move cursor to next tab left
EQU WORD.RIGHT$   TO 12    ;* C-RA   Move cursor one word right
EQU WORD.LEFT$    TO 13    ;* C-LA   Move cursor one word left
EQU END$          TO 14    ;* END    Move cursor to end of current line
EQU HOME$         TO 15    ;* HOME   Move cursor to beginning of current line
EQU END.LINE$     TO 16    ;* C-END  Move cursor to the very end of current line
EQU START.LINE$   TO 17    ;* C-HOME Move cursor to the very beggining of current line
EQU TO.LINE$      TO 18    ;* C-G    Go to line (prompt for line #)
EQU FIND.STR$     TO 19    ;* C-F    Find string
EQU REPEAT.LAST$  TO 20    ;* C-A    Repeat last find/replace again
EQU DEFINE.BLOCK$ TO 21    ;* C-B    Start/Extend Block definition
EQU CLEAR.BLOCK$  TO 22    ;* C-U    Kill any existing block definition
EQU CUT.BLOCK$    TO 23    ;* C-B    Cut block to the buffer
EQU ZOOM$         TO 24    ;* F3     Expand current editing field to the expand window
EQU SUB.VALUES$   TO 25    ;* C-E    Edit subvalue window
EQU AUTO.MODES$   TO 26    ;* C-W    Toggle word wrap on/off
EQU SET.TABS$     TO 27    ;* C-T    Set tab stops
EQU EDIT.TOGGLE$  TO 28    ;* F4     Turn on edit mode

*
*   @EDIT.KEYS Definitions
*

EQU BACK$         TO 1     ;* C-H   Delete character to the left of the cursor
EQU DEL$          TO 2     ;* DEL   Delete character at current cursor position
EQU DEL.WORD$     TO 3     ;* C-Y   Delete this word (or word right) (RESERVED)
EQU CLEAR.TO.END$ TO 4     ;* C-L   Delete all characters from current position to end of current line
EQU CLEAR.TO.BEG$ TO 5     ;* C-K   Delete all characters from beginning of current position to the left
EQU CLEAR.LINE$   TO 6     ;* C-X   Kill all characters in line; lines below do not move up
EQU INS$          TO 7     ;* INS   Insert/overwrite toggle
EQU PROG.KEY$     TO 8     ;* C-P   Duplicate last character inserted (good for high ASCII characters)
EQU RESTART.EDIT$ TO 9     ;* C-Q   Restart editing, undoing any changes (RESERVED)
EQU PASTE.BLOCK$  TO 10    ;* C-F4  Paste block from the buffer
EQU INS.LINE$     TO 11    ;* C-N   Insert blank line at current cursor line
EQU DEL.LINE$     TO 12    ;* C-D   Delete current line, moving lines below up
EQU BREAK.LINE$   TO 13    ;* C-C   Cut line into two lines at current cursor position
EQU MERGE.LINE$   TO 14    ;* C-J   Join current line with following line
EQU REPLACE.STR$  TO 15    ;* C-R   Replace string
EQU SPECIAL.MODE$ TO 16    ;* C-S   Toggle into Special Mode
EQU FIT.WINDOW$   TO 17    ;* C-Z   Reformat text to fit the window (RESERVED)

*
*   @INT.CONST Definitions
*

EQU QUIT$         TO 1     ;* ESC
EQU OPTIONS$      TO 2     ;* F2
EQU SOFTKEYS$     TO 3     ;* F6
EQU PAN$          TO 4     ;* F7
EQU REFRESH$      TO 5     ;* F8
EQU SAVE$         TO 6     ;* F9
EQU MENU$         TO 7     ;* F10
EQU DETAIL$       TO 8     ;* F1
EQU TABLE$        TO 9     ;* C-F5
EQU RELATIONS$    TO 10    ;* C-F6
EQU RESIZE$       TO 11    ;* C-F7
EQU MOVE$         TO 12    ;* C-F8
EQU BROWSE$       TO 13    ;* C-F10
EQU DEL.RECORD$   TO 14    ;* A-D
EQU NEXT.ID$      TO 15    ;* A-F
EQU PREV.ID$      TO 16    ;* A-B
EQU KEY.EDIT$     TO 17    ;* A-K
EQU DEBUG$        TO 18    ;* A-S
EQU DUP.PROMPT$   TO 19    ;* A-O
EQU BROWSE.EDIT$  TO 20    ;* A-I
EQU BROWSE.MODS$  TO 21    ;* A-U
EQU MIDDLE$       TO 22    ;* A-W
EQU TAB.FORWARD$  TO 23    ;* A-T
EQU TAB.BACKWARD$ TO 24    ;* A-Y
EQU ALL.PROMPTS$  TO 25    ;* A-A
EQU PRINT.BROWSE$ TO 26    ;* A-P
EQU TUTORIAL.KEY$ TO 27    ;* C-F2 Setup by MN to match WIN.INT
EQU ACTIVE.KEYS$  TO 28    ;* C-F9 Setup by MN     "
EQU RECALC.ALL$   TO 29    ;* A-V  Setup by MN     "
EQU VIEWER$       TO 30    ;* Setup by MN     "
EQU COPYREC$      TO 31    ;* A-C
*
* The original edit key names
*

*  Cursor Movement Keys:
*
EQU HM           TO @MOVE.KEYS<HOME$>         ;* Home    Move cursor to beginning of current line
EQU ND           TO @MOVE.KEYS<END$>          ;* End     Move cursor to end of current line
EQU UP           TO @MOVE.KEYS<UP$>           ;* Up      Move cursor up one line, maintaining current column
EQU DN           TO @MOVE.KEYS<DOWN$>         ;* Down    Move cursor down one line, maintaining current column
EQU LT           TO @MOVE.KEYS<LEFT$>         ;* Left    Move cursor one character (column) left
EQU RT           TO @MOVE.KEYS<RIGHT$>        ;* Right   Move cursor one character (column) left
EQU PGUP         TO @MOVE.KEYS<PAGE.UP$>      ;* PgUp    Move cursor one page up, maintaining current column position
                                               *         Full page if possible, else cursor at first line
EQU PGDN         TO @MOVE.KEYS<PAGE.DOWN$>    ;* PgDn    Move cursor one page down, maintaining current column position
                                               *         Full page if possible, else cursor at last line
EQU TABRT        TO @MOVE.KEYS<TAB.RIGHT$>    ;* Tab     Move cursor to next tab right
EQU TABLT        TO @MOVE.KEYS<TAB.LEFT$>     ;* Sh-Tab  Move cursor to next tab left
EQU END.LINE     TO @MOVE.KEYS<END.LINE$>     ;* ^Home   Move cursor to first column of current line
EQU START.LINE   TO @MOVE.KEYS<START.LINE$>   ;* ^End    Move cursor to first column, last line of current.line
EQU CRT          TO @MOVE.KEYS<WORD.RIGHT$>   ;* ^Rt     Move cursor one word right
EQU CLT          TO @MOVE.KEYS<WORD.LEFT$>    ;* ^Lt     Move cursor one word left
EQU LAST.PAGE    TO @MOVE.KEYS<LAST.PAGE$>    ;* ^PgDn   Move cursor to the first column, last line of the last page
EQU CPGDN        TO @MOVE.KEYS<LAST.PAGE$>    ;* ^PgDn   Move cursor to the first column, last line of the last page
EQU FIRST.PAGE   TO @MOVE.KEYS<FIRST.PAGE$>   ;* ^PGUP   Move cursor to the first column, first line of the first page
EQU CPGUP        TO @MOVE.KEYS<FIRST.PAGE$>   ;* ^PGUP   Move cursor to the first column, first line of the first page
EQU TO.LINE      TO @MOVE.KEYS<TO.LINE$>      ;* ^G      Go to line (prompt for line #)
*
*  Deleting/Inserting Keys:
*
EQU BACK         TO @EDIT.KEYS<BACK$>         ;* Back    Delete character to the left of the cursor
EQU INS          TO @EDIT.KEYS<INS$>          ;* Ins     Insert/overwrite toggle
EQU INS.LINE     TO @EDIT.KEYS<INS.LINE$>     ;* ^N      Insert blank line at current cursor line
EQU DEL          TO @EDIT.KEYS<DEL$>          ;* Del     Delete character at current cursor position
EQU DEL.LINE     TO @EDIT.KEYS<DEL.LINE$>     ;* ^D      Delete current line, moving lines below up
EQU DEL.WORD     TO @EDIT.KEYS<DEL.WORD$>     ;* ^Y      Delete this word (or word right) (RESERVED)
EQU CLEAR.LINE   TO @EDIT.KEYS<CLEAR.LINE$>   ;* ^X      Kill all characters in line; lines below do not move up
EQU CLEAR.TO.END TO @EDIT.KEYS<CLEAR.TO.END$> ;* ^L      Delete all characters from current position to end of current line
EQU CLEAR.TO.BEG TO @EDIT.KEYS<CLEAR.TO.BEG$> ;* ^K      Delete all characters from beginning of current position to the left
*
*  Find/Replace Keys:
*
EQU FIND.STR     TO @MOVE.KEYS<FIND.STR$>     ;* ^F      Find string
EQU REPLACE.STR  TO @EDIT.KEYS<REPLACE.STR$>  ;* ^R      Replace string
EQU REPEAT.LAST  TO @MOVE.KEYS<REPEAT.LAST$>  ;* ^A      Repeat last find/replace again
*
*  Block Keys:
*
EQU DEFINE.BLOCK TO @MOVE.KEYS<DEFINE.BLOCK$> ;* ^B      Start/End Block definition
EQU CLEAR.BLOCK  TO @MOVE.KEYS<CLEAR.BLOCK$>  ;* ^U      Kill any existing block definition
EQU CUT.BLOCK    TO @MOVE.KEYS<CUT.BLOCK$>    ;* ^F3     Cut block to the buffer
EQU PASTE.BLOCK  TO @EDIT.KEYS<PASTE.BLOCK$>  ;* ^F4     Paste block from the buffer
*
*  Special Keys:
*
EQU SPECIAL.MODE TO @EDIT.KEYS<SPECIAL.MODE$> ;* ^S      Toggle into Special Mode
*
*  Other Keys:
*
EQU PROG.KEY     TO @EDIT.KEYS<PROG.KEY$>     ;* ^P      Duplicate last character inserted (good for high ASCII characters)
EQU MERGE.LINE   TO @EDIT.KEYS<MERGE.LINE$>   ;* ^J      Join current line with following line
EQU BREAK.LINE   TO @EDIT.KEYS<BREAK.LINE$>   ;* ^C      Cut line into two lines at current cursor position
EQU SET.TABS     TO @MOVE.KEYS<SET.TABS$>     ;* ^T      Set tab stops
EQU AUTO.MODES   TO @MOVE.KEYS<AUTO.MODES$>   ;* ^W      Toggle word wrap on/off
EQU FIT.WINDOW   TO @EDIT.KEYS<FIT.WINDOW$>   ;* ^Z      Reformat text to fit the window (RESERVED)
EQU RESTART.EDIT TO @EDIT.KEYS<RESTART.EDIT$> ;* ^Q      Restart editing, undoing any changes (RESERVED)
EQU SUB.VALUES   TO @MOVE.KEYS<SUB.VALUES$>   ;* ^E      Edit subvalue window
EQU ZOOM.KEY     TO @MOVE.KEYS<ZOOM$>         ;* F3      Expand current editing field to the expand window
EQU EDIT.KEY     TO @MOVE.KEYS<EDIT.TOGGLE$>  ;* F4      Turn on edit mode
EQU ENTER        TO @MOVE.KEYS<ENTER$>        ;* CR      Carriage Return

*
*  Int Const's
*

EQU QUIT              TO @INT.CONST<QUIT$>          ;*
EQU OPTIONS.KEY       TO @INT.CONST<OPTIONS$>       ;*
EQU SOFTKEYS.KEY      TO @INT.CONST<SOFTKEYS$>      ;*
EQU PAN.KEY           TO @INT.CONST<PAN$>           ;*
EQU REFRESH.KEY       TO @INT.CONST<REFRESH$>       ;*
EQU SAVE.KEY          TO @INT.CONST<SAVE$>          ;*
EQU MENU.KEY          TO @INT.CONST<MENU$>          ;*
EQU DETAIL.KEY        TO @INT.CONST<DETAIL$>        ;*
EQU TABLE.KEY         TO @INT.CONST<TABLE$>         ;*
EQU RELATIONS.KEY     TO @INT.CONST<RELATIONS$>     ;*
EQU RESIZE.KEY        TO @INT.CONST<RESIZE$>        ;*
EQU MOVE.KEY          TO @INT.CONST<MOVE$>          ;*
EQU BROWSE.KEY        TO @INT.CONST<BROWSE$>        ;*
EQU DEL.REC           TO @INT.CONST<DEL.RECORD$>    ;*
EQU NEXT.FORWARD      TO @INT.CONST<NEXT.ID$>       ;*
EQU NEXT.BACKWARD     TO @INT.CONST<PREV.ID$>       ;*
EQU KEY.EDIT          TO @INT.CONST<KEY.EDIT$>      ;*
EQU DEBUG.KEY         TO @INT.CONST<DEBUG$>         ;*
EQU DUP.PROMPT        TO @INT.CONST<DUP.PROMPT$>    ;*
EQU BROWSE.EDIT       TO @INT.CONST<BROWSE.EDIT$>   ;*
EQU BROWSE.CHANGED    TO @INT.CONST<BROWSE.MODS$>   ;*
EQU MIDDLE.FIELD      TO @INT.CONST<MIDDLE$>        ;*
EQU PTAB.FORWARD      TO @INT.CONST<TAB.FORWARD$>   ;*
EQU PTAB.BACKWARD     TO @INT.CONST<TAB.BACKWARD$>  ;*
EQU ALL.PROMPTS       TO @INT.CONST<ALL.PROMPTS$>   ;*
EQU PRINT.BROWSE      TO @INT.CONST<PRINT.BROWSE$>  ;*
EQU VIEWER.KEY        TO @INT.CONST<VIEWER$>        ;*
EQU COPY.KEY$         TO @INT.CONST<COPYREC$>       ;*
* Source Date: 13:11:08  28 JUL 1992  Build ID: AREV*2.2.58  Level: 2.2