! All-in-1 additions to WPS editing environment ! ! DJS 22-JUL-1986 14:18 Creation ! DJS 8-JAN-1987 15:59 Remove seconds from date ! ! 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 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 GOLD FUNC 28 AS "HELP." 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: '." ! ! 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 GOLD CONT U AS "CHGUSR." DEF K GOLD CONT R AS "RULER." 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 "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)." DEF K GOLD D AS "." 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 Q AS "EXT ?*'Hit ENTER to really quit: ' QUIT." DEF K GOLD R AS "EXT INC ?*'Read file: ' =?*' Buffer: '." DEF K GOLD V AS "EXT F=?*'Switch to buffer: '.." DEF K GOLD W AS "EXT WR ?*'Write file: ' =?*' Buffer: '." ! ! Word processing paragraphs are best ! SE PARA WPS ! ! Set Buffer to MAIN ! F=MAIN ! ! Set EDT-plus help library ! SET HELP SYS$HELP:EDTWPSHELP.HLB ! ! Look for additions to system-wide initializer ! SET COMMAND SYS$LOGIN:PRIVATE.EDT