215 lines
12 KiB
Plaintext
215 lines
12 KiB
Plaintext
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
|