!    ADPC&E TPU initilization routine for VT2xx's  (go to 132 col. mode)
pce_init_translate;         ! initilize stuff for translation routines
pce_initilize;              ! initilize everything else
pce$vt200_keys;             ! define the VT200 keypad
set(shift_key,pf1);         ! define the 'shift' key
define_key("eve_search('')",        key_name(e1,shift_key), "Search");
define_key("eve_type_all('')",      kp6,                    "type all");
define_key("eve_set_rectangular",   kp7,                    "set rectangular");
define_key("eve_set_norectangular", key_name(kp7,shift_key),"set norectangular");
eve_set_tabs_at('7 11 15 19 23 27 31 35 39 43 47 51 55 59 63 67 71 75 79 83 87 91 95 99 103 107 111');    ! FORTRAN tabs
!eve_set_tabs_at('5 9 13 17 21 25 29 33 37 41 45 49 53 57 61 65 69 73 77 81 85 89 93 97 101 105 109');    ! COBOL tabs
!eve_set_tabs_at('5 10 15 20 25 30 35 40 45 50 55 60 65 70 75 80 85 90 95 100 105 110 115 120 125 130');  ! WP tabs
!eve_set_tabs_every(8);     ! Regular (system default) tabs
set(margins, current_buffer, 1, 983);
pce$x_current_editor := "XEVEPLUS";