! WIDE_EDTXINI.EDT initializer file for 132-column editting. ! SET NOVERIFY ! DEFINE MACRO EXIT_80 INSERT =EXIT_80 SET SCREEN 80 SET WRAP 79 EXIT ^Z ! DEFINE MACRO QUIT_80 INSERT =QUIT_80 SET SCREEN 80 SET WRAP 79 QUIT/SAVE ^Z ! DEFINE MACRO QNSV_80 INSERT =QNSV_80 SET SCREEN 80 SET WRAP 79 QUIT ^Z ! DEFINE KEY GOLD Q AS "EXT QUIT_80." DEFINE KEY GOLD CONT F AS "EXT QNSV_80." DEFINE KEY GOLD X AS "EXT EXIT_80." DEFINE KEY GOLD CONT Z AS "EXT EXIT_80." SET SCREEN 132 SET WRAP 131 ! DEFINE KEY FUNCTION 34 AS "XLATEATTACH NAGY_1^Z." !F20 ! SET COMMAND RDCS$COM:EDTXINI.EDT ! ! WIDE_EDTXINI.EDT initializer file for 132-column editting. ! ! 22-Feb-83 FJN Modified to also use SYS$MANAGER:EDTINI.EDT initializer ! 08-Aug-83 FJN Added NOVERIFY at start, redefine GOLD X/Q keys to ! reset to 80 columns ! 11-Jul-84 FJN Added GOLD ^F and ^Z exits ! 07-Sep-86 FJN Personalized and modified to use RDCS$COM:EDTXINI.EDT !