SET NOVERIFY
! EDTXINI.EDT			Initializer file for EDTX (EDT-eXtended)
!============================
!	Screen Width Macros
!
DEFINE MACRO WIDTH_132
INSERT =WIDTH_132
DEFINE KEY GOLD CONT W AS "EXT WIDTH_80."
SET SCREEN 132
SET WRAP 131
^Z
!
DEFINE MACRO WIDTH_80
INSERT =WIDTH_80
DEFINE KEY GOLD CONT W AS "EXT WIDTH_132."
SET SCREEN 80
SET WRAP 79
^Z
!
DEFINE MACRO DELIMITERS_PROGRAMMING
FIND=DELIMITERS_PROGRAMMING
INSERT
DEFINE KEY GOLD CONT D AS "EXT DELIMITERS_WORD_PROCESSING."
^Z
C; ISET ENTITY WORD '^Z 9ASC 10ASC 11ASC 12ASC 13ASC 27ASC I ()[],-+#/='^Z EX
!
DEFINE MACRO DELIMITERS_WORD_PROCESSING
FIND=DELIMITERS_WORD_PROCESSING
INSERT
DEFINE KEY GOLD CONT D AS "EXT DELIMITERS_PROGRAMMING."
^Z
C; ISET ENTITY WORD '^Z 9ASC 10ASC 11ASC 12ASC 13ASC 27ASC I ,'^Z EX
!
FIND=RULER
INSERT
....v....1....v....2....v....3....v....4....v....5....v....6....v....7....v....
^Z
!============================
!	Key Definitions
!
DEFINE KEY 10 AS "."
!
DEFINE KEY GOLD 7 AS "EXT ?*'EDT Command: '."
DEFINE KEY GOLD 8 AS "EXT SET SEARCH ?*'Position after Find = BEGIN/END: '."
DEFINE KEY GOLD 12 AS "(-22V)."
DEFINE KEY GOLD 13 AS "(+22V)."
DEFINE KEY GOLD 14 AS "SHR."
DEFINE KEY GOLD 15 AS "SHL."
!
DEFINE KEY GOLD DELETE AS "EXT CL ?*'Clear buffer: '."
DEFINE KEY GOLD CONT H AS "D+C+CUNDC-C."
DEFINE KEY GOLD FUNCTION 24 AS "D+C+CUNDC-C."				!F12
DEFINE KEY GOLD CONT J AS "(-W)."
DEFINE KEY GOLD FUNCTION 25 AS "(-W)."					!F13
DEFINE KEY GOLD CONT M AS "-EL ^M."
DEFINE KEY GOLD CONT I AS "(8C)."
DEFINE KEY GOLD CONT W AS "EXT WIDTH_132."
DEFINE KEY GOLD CONT Z AS "EXT EXIT."
!
DEFINE KEY GOLD "!" AS "XLATESPAWN/BARE MAIL^Z."
DEFINE KEY GOLD "@" AS "XLATEATTACH ?*'To Process: '^Z."
DEFINE KEY GOLD "#" AS "XLATESPAWN/BARE PHONE ANSWER^Z."
DEFINE KEY GOLD "$" AS "XLATESPAWN^Z."
DEFINE KEY GOLD "." AS "I~~/\~~^Z -6C."
DEFINE KEY GOLD "/" AS "S%~~/\~~%%."
!
DEFINE KEY GOLD B AS "EXT INCLUDE ?*'From file: ' =?*' To buffer: '."
DEFINE KEY GOLD C AS "CUTSR=?*'Cut to buffer: '."
DEFINE KEY GOLD G AS "EXT FIND =?*'Goto buffer: '."
DEFINE KEY GOLD H AS "XLATEHELP^Z."
DEFINE KEY GOLD I AS "EXT INCLUDE ?*'Include file: '."
!DEFINE KEY GOLD J AS "CHGCW."
!DEFINE KEY GOLD K AS "CHGCW-WCHGCC+W."
DEFINE KEY GOLD K AS "EXT COPY SELECT TO=?*'Copy to buffer: ' ; FIND LAST."
DEFINE KEY GOLD L AS "EXT FIND LAST."
DEFINE KEY GOLD M AS "EXT FIND =MAIN."
DEFINE KEY GOLD O AS "EXT WRITE ?*'Output to file: ' =?*' From buffer: '."
DEFINE KEY GOLD P AS "PASTE=?*'Paste from buffer: '."
DEFINE KEY GOLD Q AS "EXT QUIT."
DEFINE KEY GOLD R AS "BL
-CPASTE=RULER L."
DEFINE KEY GOLD S AS "EXT SHOW BUFFER."
DEFINE KEY GOLD W AS "EXT WRITE ?*'Writing file: ' SELECT."
DEFINE KEY GOLD X AS "EXT EXIT."
!
DEFINE KEY FUNCTION 19 AS "EXT QUIT."		   			!F8
DEFINE KEY FUNCTION 20 AS "EXT EXIT."			   		!F9
DEFINE KEY FUNCTION 21 AS "EXIT."					!F10
DEFINE KEY FUNCTION 28 AS "XLATEHELP^Z."				!Help
DEFINE KEY FUNCTION 29 AS "EXT ?*'EDT Command: '."			!Do
DEFINE KEY FUNCTION 31 AS "(-23V)."					!F17
DEFINE KEY FUNCTION 32 AS "(+23V)."					!F18
!
DEFINE KEY GOLD FUNCTION 31 AS "SHR."					!F17
DEFINE KEY GOLD FUNCTION 32 AS "SHL."					!F18
!
!! SET TAB 4
SET SEARCH END
SET MODE CHANGE
FIND =MAIN
!
! EDTXINI.EDT initializer file.  Information on keys defined appears in
! file EDTXKEYS.HLP in SYS$HELP.
!
! 13-Jul-83  FJN  Modified GOLD-Q to truly be QUIT/SAVE
! 08-Aug-83  FJN  Added NOVERIFY as first command
! 11-Jul-84  FJN  Adapted some more definitions from Philip Klunzinger
! 17-May-85  FJN  Redefined GOLD 7 key to allow RETURN used as terminator
!		  and added (for EDT V3) definitions of the GOLD left/right
!		  arrow keys
! 05-Jun-85  FJN  Continued re-defining prompting keys to allow RETURN terminator
! 23-Oct-85  FJN  Back to "EDT Command", boo hoo
! 13-Nov-85  FJN  Created from FERMI$UTIL:EDTINI.EDT and added some keys to
!		  invoke the XLATE functions in EDTX
! 19-Nov-85  FJN  General shuffling and defining of keys
! 20-Jun-86  FJN  Added "GOLD @" to invoke XLATE ATTACH function