! WPS initializer file for EDT V3.0 ! DJS 3-JUL-1986 08:44 Ripped off from All-in-1 ! DJS 7-JUL-1986 10:04 Muchos refinements ! DJS 10-JUL-1986 09:22 Fine tuning ! DJS 11-JUL-1986 09:31 Check for initializer logical ! DJS 8-JAN-1987 15:58 Remove seconds from date ! ! Attempt to start initializer pointed to by EDTINI logical ! SET COMMAND EDTINI ! ! 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 ! ! Keypad definitions ! DEF K 0 AS "ADV DMOV." DEF K GOLD 0 AS "(+21L) ADV." DEF K 1 AS "BACK DMOV." DEF K GOLD 1 AS "(-21L) BACK." DEF K 2 AS "L." DEF K GOLD 2 AS "D+EL." DEF K 3 AS "ADV CHGUSR." DEF K GOLD 3 AS "ADV CHGLSR." DEF K 4 AS "W." DEF K GOLD 4 AS "ASC." DEF K 5 AS "PAR." DEF K GOLD 5 AS "FILLSR." DEF K 6 AS "." DEF K GOLD 6 AS "." DEF K 7 AS "SEN." DEF K GOLD 7 AS "." DEF K 8 AS "(8C)." DEF K GOLD 8 AS "." DEF K 9 AS "(ADV DMOV D+NL)." DEF K GOLD 9 AS "(ADV DMOV UNDL)." DEF K 10 AS "PAGE." DEF K GOLD 10 AS "." DEF K 11 AS "(ADV DMOV DEW)." DEF K GOLD 11 AS "(ADV DMOV UNDW)." DEF K GOLD 12 AS "EXT F L." DEF K GOLD 13 AS "EXT F L." DEF K GOLD 14 AS "(ADV DMOV DC C UNDC)." DEF K GOLD 15 AS "''." DEF K 16 AS "ADV DMOV TGSEL." DEF K GOLD 16 AS "DESEL." DEF K 17 AS "(ADV DMOV C -DC)." DEF K GOLD 17 AS "(ADV DMOV UNDC)." DEF K 18 AS "CUTSR DMOV ADV." DEF K GOLD 18 AS "APPENDSR ADV." DEF K 19 AS "PASTE DMOV ADV." DEF K GOLD 19 AS "CUTSR=DELETE PASTE DMOV ADV." DEF K 21 AS "." DEF K GOLD 21 AS "(ADV DMOV DC C UNDC)." ! ! Editing key definitions ! DEF K FUNC 1 AS "?'Search for: '." DEF K GOLD FUNC 1 AS "(CUTSR=DELETE PASTEKS '')." DEF K FUNC 2 AS "PASTE DMOV ADV." DEF K GOLD FUNC 2 AS "I~~/\~~^Z -6C." DEF K FUNC 3 AS "CUTSR DMOV ADV." DEF K GOLD FUNC 3 AS "S%~~/\~~%%." DEF K FUNC 4 AS "ADV DMOV TGSEL." DEF K GOLD FUNC 4 AS "EXT F=?*'Switch to buffer: '.." DEF K FUNC 5 AS "(DMOV -16L)." DEF K GOLD FUNC 5 AS "BR." DEF K FUNC 6 AS "(DMOV +16L)." 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 FUNC 24 AS "DMOV BL." DEF K FUNC 25 AS "(ADV DMOV DBW)." DEF K GOLD FUNC 25 AS "(ADV DMOV 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)." ! ! 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 "(DMOV BL)." DEF K GOLD CONT H AS "(-C D-C +C UNDC)." DEF K GOLD CONT I AS "(8C)." DEF K CONT J AS "(ADV DMOV DBW)." DEF K GOLD CONT J AS "(ADV DMOV DBSEN)." DEF K GOLD CONT K AS "DEFK." DEF K GOLD CONT L AS "CHGLSR." DEF K CONT M AS "^M." 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 "(DMOV DESEL SSEL '')." DEF K GOLD [ AS "EXT ?*'EDT Command: '." DEF K GOLD { AS "EXT ?*'EDT Command: '." DEF K GOLD "'" AS "DMOV CUTSR=DELETE PASTE ADV." DEF K GOLD '"' AS "DMOV CUTSR=DELETE PASTE ADV." DEF K GOLD ; AS "ADV DMOV 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 "(ADV DMOV DATE 4D-C)." DEF K GOLD | AS "(ADV DMOV DATE 4D-C)." DEF K GOLD B AS "DMOV ER BACK." 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 "(DMOV ADV ^L ^M)." DEF K GOLD O AS "EXT WR ?*'Output file: ' =?*' Buffer: '." DEF K GOLD P AS "(DMOV ADV ^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 "ADV DMOV EXT SUBS ?'Change Every: '?' To: ' %REST/NOTYPE." DEF K GOLD T AS "BR ADV." 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 "(ADV DMOV DBL)." ! ! We are editing in change mode ! SE M C ! ! Word processing paragraphs are best ! SE PARA WPS ! ! Set Buffer to MAIN ! F=MAIN ! ! Use EDT/WPS help library ! SET HELP SYS$HELP:EDTWPSHELP.HLB ! ! Look for additions to system-wide initializer ! SET COMMAND SYS$LOGIN:PRIVATE.EDT