!
!    TPUINI.FOR       -      Customized for FORTRAN programming.
!
!    This is an individual's initialization file for the VAX TPU
!    editor.  It is designed to work with the section file
!    KAZSECINI which is a set of further customizations layered
!    on the EDTSECINI file provided by DIGITAL.  This file
!    contains some variable initializations and key definitions,
!    and includes comments indicating how it might be further
!    customized according to the preferences of the individual
!    user. 
!
!    This file and KAZSECINI were developed together by Michael
!    L. Penix and Richard D. Piccard at Kalamazoo College in the
!    Fall, 1985, and further enhanced in the Winter, 1986. 
!

!
!    To change the size of the first indentation with the <TAB>
!    key, modify the 8 in the first line below to your preferred
!    value.  We suggest 8 for FORTRAN programmers and 2 or 3 for
!    PASCAL programmers. 
!
edt$x_tab_size := 8;
edt$x_tab_goal := edt$x_tab_size;
edt$x_tab_set := 1;

!
!    To change the width of the text, modify the 72 in the first
!    line below to your preferred value.  We suggest 60 for
!    theses, 72 for FORTRAN, and 78 for PASCAL programmers. 
!
edt$x_wrap_position := 72;
define_key('edt$wrap_word',key_name(' '));

!
!    The following command is activated by deleting the usual
!    initial exclamation point, to customize for FORTRAN or
!    PASCAL. It changes the definition of word boundaries to
!    include algebraic punctuation. 
!
kaz_swap_delim;

!
!    The string 'FORTRAN' in the following command can be
!    modified to match the compile command for whatever language
!    you wish. 
!
define_key("kaz_DCL_COMPILE('FORTRAN')",key_name("p",shift_key),
 "Write and compile the FORTRAN file located in current buffer.");

!
!	The 58 should be changed to 29 or less if you will print
!	double spaced; this command is for manual pagination, it
!	is not normally used if you let RUNOFF break the pages.
!
define_key ('KAZ_page_length(+58)',key_name(CTRL_P_KEY,shift_key),
    		"Go to bottom of current page.");