!	[LOMASKY.EVE]MAKE_NEW_SECTION.EVE
!
!	Invoked by MAKE_NEW_SECTION.COM to create new MRP Programming Group
!	Section Files:  TOOLS:MRPGRP_EVE.TPU$SECTION and
!	TOOLS:MRPGRP_EVE_NOREV.TPU$SECTION 
!
!	   <<<<< Modification History >>>>>>
!	01/06/92	Brian Lomasky	Changed SPELL.TPU$COMMAND to BSPELL
!	01/03/92	Brian Lomasky	Replace NARROW/WIDE with TOGGLE_WIDTH,
!					  Added TPUPLUS.TPU$COMMAND
!	12/30/91	Brian Lomasky	Changed section file save commands,
!					  Create second section file which masks
!					  the "Found in Reverse Direction.  Go
!					  there?" prompt, Moved Gold-TAB to
!					  Gold-P, Defined Gold-TAB and F17
!	11/01/91	Brian Lomasky	Added SPELL.TPU$COMMAND
!	10/11/91	Brian Lomasky	Original
!
! -----------------------------------------------------------------------------
!
! >>>>> Teradyne-created procedures, which are saved in the section file: <<<<<
!
GET FILE []TERADYNE.TPU$COMMAND
EXTEND ALL
GET FILE []BSPELL.TPU$COMMAND
EXTEND ALL
GET []TPUPLUS.TPU$COMMAND
EXTEND ALL
!
! >>>>>>>>>> Global attributes, which are saved in the section file: <<<<<<<<<<
!
SET KEYPAD EDT
SET CURSOR BOUND
SET NOEXIT ATTRIBUTE CHECK
SET TABS INVISIBLE
!
! >>>>>>>>>>> Key Definitions, which are saved in the section file: <<<<<<<<<<<
!
! F17 - Next Buffer
DEFINE KEY	=F17		NEXT BUFFER
!
! F18 - Toggle width between 80 and 132 columns
DEFINE KEY	=F18		TOGGLE_WIDTH
!
! F20 - Spawns the MAIL utility
DEFINE KEY	=F20		SPAWN MAIL
!
! Gold-= - Splits current window into 2 windows
DEFINE KEY	=GOLD-=		SPLIT WINDOW
!
! Gold-RETURN - Position the cursor in the first user buffer in the buffer list
DEFINE KEY	=GOLD-RETURN	FIRST_USER_BUFFER
!
! Gold-[ - Set Left Margin
DEFINE KEY	=GOLD-[		SET LEFT MARGIN
!
! Gold-] - Set Right Margin
DEFINE KEY	=GOLD-]		SET RIGHT MARGIN
!
! Gold-TAB - Allow TAB Separators
DEFINE KEY	=GOLD-TAB	ALLOW TAB SEPARATORS
!
! Gold-B - Next Buffer
DEFINE KEY	=GOLD-B		NEXT BUFFER
!
! Gold-C - Center the current line between the left and the right margins
DEFINE KEY	=GOLD-C		CENTER LINE
!
! Gold-D - Inserts the current date (as dd-mmm-yyyy) into the buffer
DEFINE KEY	=GOLD-D		TPU COPY_TEXT (FAO ('!11%D', 0))
!
! Gold-E - Exit editor - Save changes
DEFINE KEY	=GOLD-E		EXIT
!
! Gold-I - Reads an external file into a (new) buffer
DEFINE KEY	=GOLD-I		GET FILE
!
! Gold-M - Toggle the WRITE/NOWRITE status of the current buffer
DEFINE KEY	=GOLD-M		TOGGLE_NOWRITE
!
! Gold-O - Writes current buffer to an external file
DEFINE KEY	=GOLD-O		WRITE FILE
!
! Gold-P - Set Paragraph Indent
DEFINE KEY	=GOLD-P		SET PARAGRAPH INDENT
!
! Gold-Q - Quit editor - Do not save changes
DEFINE KEY	=GOLD-Q		QUIT
!
! Gold-S - Display all current buffers
DEFINE KEY	=GOLD-S		SHOW BUFFERS
!
! Gold-Ctrl/C - Capitalizes current word
DEFINE KEY	=GOLD-CTRL/C	CAPITALIZE WORD
!
! Gold-Ctrl/D - Define additional word delimitters for programmers
DEFINE KEY	=GOLD-CTRL/D	TPU EVE$ADD_WORD_SEPARATORS (",;.!?_({[]})")
!
! Gold-Ctrl/L - Lowercases current word
DEFINE KEY	=GOLD-CTRL/L	LOWERCASE WORD
!
! Gold-Ctrl/R - Restore the normal EVE word delimitters
DEFINE KEY	=GOLD-CTRL/R	TPU EVE$RESTORE_WORD_SEPARATORS
!
! Gold-Ctrl/U - Uppercases current word
DEFINE KEY	=GOLD-CTRL/U	UPPERCASE WORD
!
! >>>>>>>>>>>>>>>>>>>>>>>> Create the new section file <<<<<<<<<<<<<<<<<<<<<<<<<
!
SET NODEFAULT SECTION FILE
SET NOSECTION FILE PROMPTING
SAVE EXTENDED EVE TOOLS:MRPGRP_EVE.TPU$SECTION
!
! >>>>>>>>>>>>>>>>>>>>>>>> Create the new section file <<<<<<<<<<<<<<<<<<<<<<<<<
! >>>>>which eliminates the "Found in Reverse Direction. Go there?" prompt <<<<<
!
GET FILE []NO_FOUND_REVERSE.TPU$COMMAND
EXTEND ALL
SAVE EXTENDED EVE TOOLS:MRPGRP_EVE_NOREV.TPU$SECTION
!
TPU QUIT