Customizing the editor (c) Copyright 1987 Guy M. Kelly 08/28/87 The following screens are used to customize the editor. (And aresupplied as used to set-up the standard version of the editor.) The following are customizable: 1. the default user initials, 2. the default insert mode, 3. the default line-save mode, 4. the edit control keys. To customize the editor: a. Save a backup copy of this file. b. Edit the following screens and save the edited copy. c. Load the edited copy to update the editor. d. Save the updated editor. \ Load screen for customizing the editor CAPS @ CAPS OFF CLS .( Loading Editor Customization Screens) 2 CAPACITY 2- THRU CAPS ! FORTH CR CR .( If needed, place a DOS diskette in the appropriate drive.)CR .IFDF STATE-SAVE CR .( Type: SAVE-EDITOR [drive][path]FED.OVL ) CR .ELSE CR .( Type: SAVE-EDITOR [drive][path]FED.COM ) CR .THEN CR ABORT \ to suppress "ok" \ SAVE-EDITOR : SAVE-EDITOR ( -- ) CLOSE-ALL DOS-FILES USING 0 CS@ MSG0 @ + FIRST CS@ B/BUF 3 * CMOVEL DEFAULT-FILE "100 FIRST B/BUF 3 * + "100 - WRITE dos-err# @ ABORT" Can't write file!" DEFAULT-FILE CLOSE-FILE COLD ; \ 1. Default user initials. : NEW-INITIALS ( -- ) BL WORD 1+ [ EDITOR ] (WHO) CMOVE ; \ Change the initials listed below (use exactly three): \ --> ||| <-- NEW-INITIALS GmK CR CR .( New initials are: ) WHO \ 2. Default insert mode. \ Select one of the following by changing which of the lines is \ commented. CR ED-INS OFF .( Default insert mode is type-over.) \ ED-INS ON .( Default insert mode is insert.) \ 3. Default line-save mode. \ Select one of the following by changing which of the lines are\ commented. CR ' DO-CUT IS DFT-CBS .( Line-copy mode.) \ ' DO-BRL IS DFT-CBS .( Barrel mode.) \ ' DO-STK IS DFT-CBS .( Line-stack mode.) \ 4. Default control keys. \ Note: capatilization is significant! \ Re-arrange the assignments on this and the following screens \ as desired. \ Assignment Key Comment ' -WORD IS S^A \ ^A is Cursor left one word. ' NO-OP IS S^B \ ^B is NO-OP ' PgDn IS S^C \ ^C is Save-screen, go-to following screen. ' RIGHT IS S^D \ ^D is Cursor-right. ' UP IS S^E \ ^E is Cursor-up. ' +WORD IS S^F \ ^F is Cursor right one word. ' NO-OP IS S^G \ ^G is NO-OP \ Default control keys. \ Assignment Key Comment \ ^H is pre-assigned as Back-space & delete. \ ^I is pre-assigned as Tab-right. ' JOIN IS S^J \ ^J is join lines. ' NO-OP IS S^K \ ^K is NO-OP ' W-FIND IS S^L \ ^L is Find next occurrence of find-string. \ ^M is pre-assigned as Enter key. ' L/I-A IS S^N \ ^N is insert blank line on cursor line. ' BTAB IS S^O \ ^O is Back-Tab ' NO-OP IS S^P \ ^P is NO-OP ' UN-ED IS S^Q \ ^Q is Undo-screen, exit to command line. ' PgUp IS S^R \ ^R is Save-screen, goto preceeding screen. ' LEFT IS S^S \ ^S is Cursor-left \ Default control keys. \ Assignment Key Comment ' \WORD IS S^T \ ^T is pull word at right to cursor. ' L/E-A IS S^U \ ^U is erase all of line containing cursor. ' INS IS S^V \ ^V is toggle Insert mode. ' EX-ED IS S^W \ ^W is Exit to command line, no update. ' DOWN IS S^X \ ^X is Cursor-down. ' L/D-A IS S^Y \ ^Y is delete all of line cursor in on. ' NO-OP IS S^Z \ ^Z is NO-OP \ ^[ is pre-assigned as Esc key. ' NO-OP IS S^\ \ ^\ is NO-OP ' NO-OP IS S^] \ ^] is NO-OP ' NO-OP IS S^^ \ ^^ is NO-OP ' ALT IS S^_ \ ^_ is Toggle `Deposit ^characters mode' \ Default control keys. \ The following keys are pre-assigned by the ROM and are not \ customizable: \ B-S is S^H \ ^H is pre-assigned to the Back-space key. \ HTAB is S^I \ ^I is pre-assigned to the Tab-right key. \ RETURN is S^M \ ^M is pre-assigned to the Enter key. \ SV-ED is S^[ \ ^[ is pre-assigned to the Esc key. \ The following assignements have also been used: \ Ins is assigned to toggle the insert mode. \ Del is assigned to delete a character. \ Edit help screen. \ The following screen is the edit help screen. It should be \ updated to reflect any new control key assignments. \ The changes should only be made to the contents of the (^k) \ indicators on the right side of the screen. BLK @ 1+ BLOCK CS@ SCR-HELP B/BUF CMOVEL F1 Edit help screen. Home Cursor to home. F2 Undo (restore old screen). End Cursor to end. F3 Noop, B, or Push line. Cursor up. (^E) F4 Noop, B, or Pop line. Cursor left. (^S) F5 Mark/capture lines. Cursor right. (^D) F6 Copy captured lines. Cursor down. (^X) F7 Insert blank line. │ Tab left. (^O) F8 Delete line. │ Tab right. (^I) F9 Clear to end of line. - Delete to left. (^H) F10 Clear to end of screen. Del Delete at cursor. Ins Toggle insert mode. PgUp Save, to preceeding.(^R) Esc Save current screen, exit. PgDn Save, to following. (^C) ^Home Add time, date, and ID. ^PgUp Pick: Cut, Barrel, Stack.^End Find next. (^L) ^PgDn Add screen at file end.
