!
!	This is an example of a account initialization file for use with
!	EDTPSECINI in using VAX TPU.  This file should be located in the 
!	directory SYS$LOGIN and be named ACCOUNT_EDTINI.TPU.  Whenever 
!	the user uses TPU with the EDTPSECINI section, this file will be read,
!	if it exists,and executed.  After being executed,the constants that 
!	are set by this file will be checked and the appropriate action taken.
!	A second initialization file, EDTPINI.TPU, will also be read, if it 
!	exists.  The second file can be used for commands specific to certain
!	tasks that our done in certain directories.
!
!
!
!	To change the size of the first indentation with the <TAB> key, modify
!	the 4 in the first line below to your preferred value.  We suggest 8 
!	for FORTRAN programmers and 2 or 3 for PASCAL programmers.
!
EDTP$x_tab_size := 4;
EDTP$x_tab_goal := EDTP$x_tab_size;
EDTP$x_tab_set := 1;
!
!	Use the following line to set tabs instead of using EDT standard tabs
!	Tab columns should be seperated by one space.
!
!EDTP$Tabs := "6 8 12 20 25 35 40 45 50 55 60 65 70";
!
!	The following line should be used if the user wants the tabs specified
!	in EDTP$Tabs to be expanded into spaces.
!
!EDTP$Expand_Tabs := "YES";
!
!	To change the width of the text, modify the 79 in the first line below
!	to your preferred value.  We suggest 60 for SIP's, 72 for FORTRAN, and  
!	78 for PASCAL programmers.  The user can toggle between seeting 1 and
!	setting 2 by using GOLD (PF1) CTRL/N.
!
EDTP$Wrap_setting_1 := 79;
EDTPL$Wrap_setting_2 := 65;
!
!	 The following commands should be executed if you want to
!	 customize  PROGramming.  It changes the definition of word
!	 boundaries to include algebraic punctuation, changes the wrap
!	 setting the EDTP$Wrap_setting_1 (see Wrap_settings), and sets up
!	 auto-indentation.  Change 'WP' to "PROG' to set up the proper 
!	 punctuation for Word Processing.
!
!	 EDTP$Parameters := "WP";
!	 EDTP$Set_Parameters;
! 
!	The following will set Keypad key 1 to standard EDT move word
!	and Keypad key 3 to standard EDT move character
!
DEFINE_KEY('EDTP$move_word',KP1,'move word');
DEFINE_KEY(
'IF current_direction=forward THEN MOVE_HORIZONTAL(1) ELSE '+
'MOVE_HORIZONTAL(-1) ENDIF',KP3,'Move_Character');
!
!	This next line sets up the editor to erase messages after the
!	user has read them.
!
EDTP$Clear_Message := "YES";