!EDTINI132.EDT = EDT STARTUP FILE FOR 2270/VAX DEVELOPMENT 24-JAN-83 13:48 SRK !Remove '+' from key 8 24-JAN-83 13:48 SRK !Add the '+' to key 8, add '; def k 17 ...' to key 17 21-JAN-83 14:18 SRK !Add second line to HRET macro 21-JAN-83 14:18 SRK !Add gold h (fancy help) 12-JAN-83 16:29 SRK !Adapt to sr:[tools] (use edttls:) 12-JAN-83 14:02 SRK !Add shift left/right and SR. 06-JAN-83 19:10 MWH !Put latest on VAX for 227x developers 05-OCT-82 09:55 MWH !Get 229x/227x/VMS EDT's all consistent 05-OCT-82 09:49 MWH !Fix search delimiters (per DECUS) 10-JUN-82 17:00 PAB !Define additional GOLD Keys 09-FEB-82 14:44 MWH !Includes: FIND LAST on return from help 15-JAN-81 08:50 CDK !From: E.EDT = EDT STARTUP FILE FOR 2290,2294 SYSTEMS 06-JAN-82 16:21 MWH !227DEV! lines need be uncommented for 227x development, !SHIP! lines commented DEF K GOLD H AS 'HELP.' DEF K CON A AS '(+CBL).' DEF K CON B AS '(-C).' DEF K CON D AS '(+DC).' DEF K GOLD D AS 'DEFK.' DEF K CON E AS '(+L-C).' DEF K CON F AS '(+C).' DEF K CON G AS 'EXIT.' DEF K CON H AS '(-V+CBL).' DEF K GOLD I AS "EXT INCLUDE ?'Filespec to include: '." DEF K CON J AS '(-W).' DEF K CON K AS '(D+NL).' DEF K CON L AS 'REF.' DEF K GOLD L AS 'EXT FIND LAST.' DEF K GOLD M AS 'EXT FIND=MAIN..' DEF K 84 AS '(^M-C).' !Gold ^M = Gold DEF K CON N AS '(+L).' DEF K CON P AS "?'Search: 'EXT DEF K 16 AS '"""".'." DEF K GOLD P AS "EXT PRINT ?'Filespec to write in print format: '." DEF K CON R AS '(I -CUNDL+PAGE-DC).' DEF K CON T AS 'BR.' DEF K GOLD S AS "SR." DEF K GOLD T AS "'-'-3C PASTE=WHO ^MI -2C." !227DEV! DEF K GOLD CON T AS "PASTE=WHO." !227DEV! DEF K CON U AS 'DBL.' DEF K CON V AS "S?'Replace: '?' With : 'EXT DEF K 16 AS 'SN.'." DEF K CON W AS "(+W)." DEF K GOLD W AS "EXT WRITE ?'Filespec to write: '." DEF K GOLD CON W AS "BR IW-I-P BY: PASTE=WHO ^M^MBR EXT WRITE;DEL;DEL." !227DEV! DEF K CON X AS '(I -CUNDL+PAGE-DC).' DEF K GOLD X AS 'EXT EXIT.' DEF K CON Z AS 'ER.' DEF K 0 AS '(+L).' DEF K GOLD 0 AS '(+22L).' DEF K 1 AS 'BR.' DEF K GOLD 1 AS 'BACK.' DEF K 2 AS 'ER.' DEF K GOLD 2 AS 'ADV.' DEF K 3 AS '(+CBL).' DEF K GOLD 3 AS '(+L-C).' DEF K 4 AS '(-V+CBL).' DEF K GOLD 4 AS '(-22L).' DEF K 5 AS '(+DC).' DEF K GOLD 5 AS 'UNDC.' DEF K 6 AS "(D+W)." DEF K GOLD 6 AS "(UNDW+W)." DEF K 7 AS '(^M-C).' DEF K GOLD 7 AS '(SEL L APPENDSR=EDTINI).' DEF K 8 AS '(PAGE).' DEF K 9 AS "I?'Special Character(s) (end with ENTER): '^Z." DEF K GOLD 9 AS 'APPENDSR=EDTINI.' DEF K 10 AS 'SEL.' DEF K GOLD 10 AS "EXT ?'Command: '." DEF K 11 AS 'CUTSR=EDTINI.' DEF K GOLD 11 AS 'PASTE=EDTINI.' DEF K GOLD 12 AS '(-22L).' DEF K GOLD 13 AS '(+22L).' DEF K GOLD 14 AS 'SHL.' DEF K GOLD 15 AS 'SHR.' DEF K 16 AS '"".' DEF K 17 AS "EXT F=HELP; DEF K 21 AS 'EXT HRET.'; DEF K 17 AS ''." DEF K GOLD 17 AS "EXT FIND=?'NEW BUFFER NAME: '." DEF K 18 AS "(+W)." DEF K GOLD 18 AS "(-W)." DEF K 19 AS "S?'Replace: '?' With : 'EXT DEF K 16 AS 'SN.'." DEF K GOLD 19 AS 'SN.' DEF K 21 AS "?'Search: 'EXT DEF K 16 AS '"""".'." DEF K GOLD 21 AS 'CHGCSR.' ! !GET HELP TEXT FOR HELP DISPLAY !INCLUDE LD:[1,1]EDTINI.HLP =HELP !SHIP! INCLUDE EDTTLS:EDTINI.HLP =HELP !227DEV! ! !GET DATE/TIME/INITIALS FILE (LEFT AROUND BY EDTTLS:EDT.COM) INCLUDE DTI.EDT =WHO !227DEV! ! !DEFINE RETURN FROM HELP DISPLAY MACRO (FOR "ENTER" KEY AFTER PF4 STRUCK) FIND=HRET I ;FIND LAST; DEF K 21 AS "?'Search: 'EXT DEF K 16 AS '"""".'."; I ;DEF K 17 AS "EXT F=HELP; DEF K 21 AS 'EXT HRET.'; DEF K 17 AS ''." DEFINE MACRO HRET ! !RESET TO MAIN BUFFER AND SET UP NON-DEFAULT PARAMETERS FIND=MAIN SET SEARCH END !LEAVE CURSOR AT END OF SEARCH STRINGS AFTER FOUND ! !NOTE: SET NOTRUNCATE CAUSES EDT TO LOSE FAST SPLIT-SCREEN USAGE IN ANSII/VT100 !SET NOTRUNCATE !WRAP AROUND LINES TOO LONG FOR SCREEN !SET WRAP 78 !ENABLE WRAP FUNCTION !SHIP! ! SET SCREEN 132 !FOR EDTINI132.EDT ONLY - FOR WIDE MODE SET ENTITY WORD " ," !MOVE THIS LINE BY MARK/CUT/PASTE ONLY! SET NONUMBERS SET MODE CHANGE !COME UP IN CHANGE MODE INITIALLY