! EDT-plus initializer for EDT V3.0 ! ! DJS 7-OCT-1985 14:43 Creation ! DJS 11-JUL-1986 09:22 Refinements ! DJS 14-JUL-1986 11:39 More refinements ! DJS 8-JAN-1987 15:56 Remove seconds from date ! DJS 31-MAR-1987 13:51 Modify definition of GOLD-| ! ! Attempt to start initializer pointed to by EDTINI logical ! !SET COMMAND EDTINI ! we're not the system initializer ! ! Redefine word delimiters ! DEF M WORD_DELIMITERS F=WORD_DELIMITERS I SE EN WO ' ()[],;-+*/=' ^Z ! ! Build macro to insert other characters ! DEF M DELETE F=DELETE I F=WORD_DELIMITERS C; ER 2-C 10ASC 11ASC 12ASC 13ASC 27ASC EX ^Z ! ! Do the edit and set the delimiters ! DELETE CLEAR DELETE WORD_DELIMITERS CLEAR WORD_DELIMITERS ! ! Screen Width Macros ! DEF M WIDTH_132 I=WIDTH_132 DEF K GOLD CONT W AS "EXT WIDTH_80." SE SC 132 ^Z ! DEF M WIDTH_80 I=WIDTH_80 DEF K GOLD CONT W AS "EXT WIDTH_132." SE SC 80 ^Z ! ! Editing key definitions ! DEF K GOLD FUNC 1 AS "(CUTSR=DELETE PASTEKS '')." DEF K GOLD FUNC 2 AS "I~~/\~~^Z -6C." DEF K GOLD FUNC 3 AS "S%~~/\~~%%." DEF K GOLD FUNC 4 AS "EXT F=?*'Switch to buffer: '.." DEF K GOLD FUNC 5 AS "BR." DEF K GOLD FUNC 6 AS "ER." DEF K FUNC 17 AS "." DEF K FUNC 18 AS "." DEF K FUNC 19 AS "EXT ?*'Hit ENTER to really quit: ' QUIT." DEF K FUNC 20 AS "EXT F=MAIN.." DEF K FUNC 21 AS "EXT EXIT." DEF K FUNC 23 AS "." DEF K GOLD FUNC 23 AS "." DEF K GOLD FUNC 25 AS "(DBSEN)." DEF K FUNC 26 AS "." DEF K GOLD FUNC 26 AS "." DEF K FUNC 29 AS "EXT ?*'EDT Command: '." DEF K FUNC 31 AS "(-C D-C +C UNDC)." DEF K GOLD FUNC 31 AS "(D+C +C UNDC -C)." DEF K FUNC 32 AS "(-W DBW +W UNDW)." DEF K GOLD FUNC 32 AS "(DEW +W UNDW -W)." DEF K FUNC 33 AS "(-L DBL +L UNDL)." DEF K GOLD FUNC 33 AS "(D+NL +L UNDL -L)." DEF K FUNC 34 AS "(SEL -PAR CUTSR=PARAGRAPH +PAR PASTE=PARAGRAPH -PAR)." DEF K GOLD FUNC 34 AS "(+2PAR SEL -PAR CUTSR=PARAGRAPH -PAR PASTE=PARAGRAPH -PAR)." ! ! Keypad redefinitions ! DEF K GOLD 7 AS "EXT ?*'EDT Command: '." DEF K 10 AS "PAR." ! ! Control key definitions ! DEF K CONT A AS "." DEF K CONT B AS "-W." DEF K GOLD CONT B AS "(-W -C)." DEF K CONT D AS "-C." DEF K CONT E AS "EL." DEF K CONT F AS "+C." DEF K GOLD CONT F AS "(+W -C)." DEF K CONT G AS "PASTE=?*'Get from buffer: '." DEF K GOLD CONT G AS "CUTSR=DELETE PASTE=?*'Replace with buffer: '." DEF K CONT H AS "BL." DEF K GOLD CONT H AS "(-C D-C +C UNDC)." DEF K GOLD CONT I AS "(8C)." DEF K CONT J AS "(DBW)." DEF K GOLD CONT J AS "(DBSEN)." DEF K GOLD CONT K AS "DEFK." DEF K GOLD CONT L AS "CHGLSR." DEF K GOLD CONT M AS "(^M -C)." DEF K CONT P AS "CUTSR=?*'Cut to buffer: '." DEF K GOLD CONT P AS "EXT CO SELECT TO=?*'Copy to buffer: ' ; F L." DEF K CONT R AS "REF." DEF K GOLD CONT U AS "CHGUSR." DEF K CONT W AS "REF." DEF K GOLD CONT W AS "EXT WIDTH_132." DEF K GOLD CONT Z AS "EXT EX." ! ! Gold-letter definitions ! DEF K GOLD , AS "?'Search for: '." DEF K GOLD . AS "''." DEF K GOLD / AS "(DESEL SSEL '')." DEF K GOLD [ AS "EXT ?*'EDT Command: '." DEF K GOLD { AS "EXT ?*'EDT Command: '." DEF K GOLD "'" AS "CUTSR=DELETE PASTE." DEF K GOLD '"' AS "CUTSR=DELETE PASTE." DEF K GOLD ; AS "EXT SUBS ?'Change Every: '?' To: ' %REST/NOTYPE." DEF K GOLD ^ AS "?*'Hit ENTER for upper case conversion on move: ' DUPC." DEF K GOLD _ AS "?*'Hit ENTER for lower case conversion on move: ' DLWC." DEF K GOLD - AS "?*'Hit ENTER for no case conversion on move: ' DMOV." DEF K GOLD \ AS "(DATE 4D-C)." DEF K GOLD | AS "(DATE 4D-C 17-C D-C 17+C)." DEF K GOLD B AS "ER." DEF K GOLD D AS "." DEF K GOLD F AS "EXT EX." DEF K GOLD H AS "HELP." DEF K GOLD I AS "EXT INC ?*'Input file: ' =?*' Buffer: '." DEF K GOLD K AS "EXT ?*'Hit ENTER to really quit: ' QUIT." DEF K GOLD L AS "EXT F L." DEF K GOLD M AS "EXT F=MAIN.." DEF K GOLD N AS "(^L ^M)." DEF K GOLD O AS "EXT WR ?*'Output file: ' =?*' Buffer: '." DEF K GOLD P AS "(^K ^M)." DEF K GOLD Q AS "EXT ?*'Hit ENTER to really quit: ' QUIT." DEF K GOLD R AS "EXT INC ?*'Read file: ' =?*' Buffer: '." DEF K GOLD S AS "EXT SHO BUF." DEF K GOLD T AS "BR." DEF K GOLD V AS "EXT F=?*'Switch to buffer: '.." DEF K GOLD W AS "EXT WR ?*'Write file: ' =?*' Buffer: '." DEF K GOLD DEL AS "EXT CLEAR ?*'Buffer to clear: '." ! ! We are editing in change mode ! SE M C ! ! Word processing paragraphs are best ! SE PARA WPS ! ! Set Buffer to MAIN ! F=MAIN ! ! Set EDT-plus help library ! SET HELP SYS$HELP:EDTPLUSHELP.HLB ! ! Look for additions to system-wide initializer ! SET COMMAND SYS$LOGIN:PRIVATE.EDT