!    ADPC&E TPU initilization routine for Rainbow's (go to 132 col. mode)
pce_init_translate;         ! initilize stuff for translation routines
pce_initilize;              ! initilize everything else
pce$vt100_keys;             ! define the VT100 keypad
set(shift_key,pf1);         ! define the 'shift' key
!
define_key("eve_search('')",        key_name(ctrl_f_key,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");
! initilize for VPW usage
set(margins,current_buffer,1,80);   ! set margin for 80 col. paper
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
body_of_letter := search('.AP',forward,no_exact);   ! find '.AP' (end of header part of letter - start of main body) 
position(body_of_letter);                           ! and position 1 line below this
move_vertical(1);
pce$x_current_editor := "XEVEPLUS";
! End of command file